' tb-screen: 80x25
' BYREF wirkt auf das Argument zurueck; Klammern erzwingen
' Wertuebergabe (BYVAL); STATIC behaelt Werte; Rekursion ueber den
' Funktionsnamen (Spec vm-ausfuehrung).
n% = 1
Inc n%
PRINT n%
Inc (n%)
PRINT n%
PRINT Fak&(6)
Zaehl
Zaehl
END

SUB Inc (x%)
x% = x% + 1
END SUB

FUNCTION Fak& (n%)
IF n% <= 1 THEN
Fak& = 1
ELSE
Fak& = n% * Fak&(n% - 1)
END IF
END FUNCTION

SUB Zaehl
STATIC z%
z% = z% + 1
PRINT "zaehler"; z%
END SUB