xbasic64 1.0.0

A BASIC-to-x86_64 native code compiler targeting 1980s-era BASIC dialects
1
2
3
4
5
6
7
8
9
10
11
12

' Factorial using a recursive FUNCTION
FUNCTION Factorial(N)
    IF N <= 1 THEN
        Factorial = 1
    ELSE
        Factorial = N * Factorial(N - 1)
    END IF
END FUNCTION

PRINT "5! ="; Factorial(5)
PRINT "7! ="; Factorial(7)
PRINT "10! ="; Factorial(10)