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

DEF FNfactorial(n)
    IF n < 2 THEN
       LET FNfactorial = 1
    ELSE
       LET FNfactorial = n * FNfactorial(n-1)
    END IF
END DEF
END