11 lines
192 B
Text
11 lines
192 B
Text
10 REM FACTORIAL
|
|
20 REM COMMODORE BASIC 2.0
|
|
30 N = 10 : GOSUB 100
|
|
40 PRINT N"! ="F
|
|
50 END
|
|
100 REM FACTORIAL CALC USING SIMPLE LOOP
|
|
110 F = 1
|
|
120 FOR I=1 TO N
|
|
130 F = F*I
|
|
140 NEXT
|
|
150 RETURN
|