10 lines
145 B
Text
10 lines
145 B
Text
10 INPUT N
|
|
20 LET FACT=1
|
|
30 GOSUB 60
|
|
40 PRINT FACT
|
|
50 STOP
|
|
60 IF N=0 THEN RETURN
|
|
70 LET FACT=FACT*N
|
|
80 LET N=N-1
|
|
90 GOSUB 60
|
|
100 RETURN
|