Learn FOXPRO with Real Code Examples

COUNT = 0
ISDARK = .F.

PROCEDURE updateUI
    ? "Counter:", COUNT
    ? "Theme:", IIF(ISDARK, "Dark", "Light")
ENDPROC

PROCEDURE increment
    COUNT = COUNT + 1
    updateUI
ENDPROC

PROCEDURE decrement
    COUNT = COUNT - 1
    updateUI
ENDPROC

PROCEDURE reset
    COUNT = 0
    updateUI
ENDPROC

PROCEDURE toggleTheme
    ISDARK = .NOT. ISDARK
    updateUI
ENDPROC

* Simulate actions
updateUI()
increment()
increment()
toggleTheme()
decrement()
reset()

Demonstrates a simple counter with theme toggling using FoxPro variables and DISPLAY commands.

A = 0
B = 1
? A
? B
FOR I = 1 TO 8
    C = A + B
    ? C
    A = B
    B = C
ENDFOR

Generates first 10 Fibonacci numbers.

N = 5
F = 1
FOR I = 1 TO N
    F = F * I
ENDFOR
? F

Calculates factorial of a number.

N = 13
ISPRIME = .T.
FOR I = 2 TO N-1
    IF MOD(N, I) = 0
        ISPRIME = .F.
        EXIT
    ENDIF
ENDFOR
? IIF(ISPRIME, "Prime", "Not Prime")

Checks if a number is prime.

ARR = [1,2,3,4,5]
SUM = 0
FOR I = 1 TO ALEN(ARR)
    SUM = SUM + ARR[I]
ENDFOR
? SUM

Calculates the sum of an array of numbers.

S = "HELLO"
R = ""
FOR I = LEN(S) TO 1 STEP -1
    R = R + SUBSTR(S,I,1)
ENDFOR
? R

Reverses a string.

N = 5
FOR I = 1 TO 10
    ? N, 'x', I, '=', N*I
ENDFOR

Prints multiplication table of a number.

C = 25
F = (C * 9 / 5) + 32
? F

Converts Celsius to Fahrenheit.

TEMP = 80
THRESH = 75
? IIF(TEMP > THRESH, "Alarm: Temperature Too High!", "Temperature Normal")

Simulates an alarm when temperature exceeds a threshold.

STEPS = 10
POS = 0
FOR I = 1 TO STEPS
    IF RAND() < 0.5
        POS = POS + 1
    ELSE
        POS = POS - 1
    ENDIF
    ? POS
ENDFOR

Simulates a 1D random walk.