5 REM FACTRL: FACTORIAL PROGRAM, TRANSLATED BY PROJECT DELTA
8 REM
9 REM
10 PRINT''
20 DIM A(200)
30 N=200
40 A$='0123456789'
50 MAT A=ZER
60 PRINT'TO WHAT FACTORIAL TO BE PRINTED OUT';
70 INPUT X
80 A(200)=1
90 FOR Y=1 TO X
100 MAT A=(Y)*A
110 FOR A=N TO 1 STEP -1
120 IF A(A)<10 THEN 160
130 A(A)=A(A)-10
140 A(A-1)=A(A-1)+1
150 GOTO 120
160 NEXT A
170 B=0
180 PRINT Y;
190 C=7
200 FOR A=1 TO N
210 IF A(A)=0 AND B=0 THEN 280
220 B=1
230 PRINT MID(A$,A(A)+1,1);
240 C=C+1
250 IF C<70 THEN 280
260 PRINT'';TAB(6);
270 C=7
280 NEXT A
290 PRINT'';
300 IF C=7 THEN 320
310 PRINT
320 NEXT Y
330 END