9 lines
205 B
Text
9 lines
205 B
Text
10 LET x=5: GO SUB 1000: PRINT "5! = ";r
|
|
999 STOP
|
|
1000 REM *************
|
|
1001 REM * FACTORIAL *
|
|
1002 REM *************
|
|
1010 LET r=1
|
|
1020 IF x<2 THEN RETURN
|
|
1030 FOR i=2 TO x: LET r=r*i: NEXT i
|
|
1040 RETURN
|