40 lines
722 B
Plaintext
40 lines
722 B
Plaintext
10 REM MULTIPLICATION TABLES
|
|
20 LET N=12
|
|
30 REM TO ALIGN NUMBERS TO THE RIGHT
|
|
40 REM ASSUME THAT N IS AT MOST TWO-DIGIT.
|
|
50 LET J=1
|
|
60 PRINT " ";
|
|
70 IF J<10 THEN PRINT " ";
|
|
80 PRINT J;" ";
|
|
90 LET J=J+1
|
|
100 IF J=N THEN GOTO 120
|
|
110 GOTO 60
|
|
120 PRINT " ";
|
|
130 IF N<10 THEN PRINT " ";
|
|
140 PRINT N
|
|
150 LET J=0
|
|
160 PRINT "----";
|
|
170 J=J+1
|
|
180 IF J=N THEN GOTO 200
|
|
190 GOTO 160
|
|
200 PRINT "+"
|
|
210 LET I=1
|
|
220 LET J=1
|
|
230 IF J<I THEN GOTO 290
|
|
240 LET P=I*J
|
|
250 IF P<100 THEN PRINT " ";
|
|
260 IF P<10 THEN PRINT " ";
|
|
270 PRINT P;" ";
|
|
280 GOTO 300
|
|
290 PRINT " ";
|
|
300 IF J=N THEN GOTO 330
|
|
310 LET J=J+1
|
|
320 GOTO 230
|
|
330 PRINT "! ";
|
|
340 IF I<10 THEN PRINT " ";
|
|
350 PRINT I
|
|
360 IF I=N THEN GOTO 390
|
|
370 LET I=I+1
|
|
380 GOTO 220
|
|
390 END
|