BASIC-compiler/examples/factorial

PRINT "Enter a number to compute its factorial:"
INPUT n
PRINT ""

LET result = 1
WHILE n > 1 REPEAT
    LET result = result * n
    LET n = n - 1
ENDWHILE

PRINT "The factorial is:"
PRINT result