RosettaCodeData/Task/Factorial/True-BASIC/factorial-1.basic

DEF FNfactorial(n)
    LET f = 1
    FOR  i = 2 TO n
        LET f = f*i
    NEXT i
    LET FNfactorial = f
END DEF
END