CipherLab 8200 - Page 37

25
Chapter 3 Basics of the CipherLab BASIC Language
Loop:
GOTO Loop
Factorial:
IF Fact% < 1 THEN RETURN
FactResult! = FactResult! * Fact%
Fact% = Fact% -1
GOSUB Factorial
RETURN