Source Code
10 REM 4 MATH TABLES
100 PRINT "***********************"
110 PRINT "* *"
120 PRINT "*THE FOUR ARITHMETIC *"
130 PRINT "* TABLES *"
140 PRINT "* *"
150 PRINT "***********************"
160 PRINT "PLEASE TYPE IN YOUR VALUE FOR N";
170 INPUT N
180 IF N=INT (N) AND N>0 THEN GOTO 210
190 PRINT " I WONDER IF YOU MEAN THAT. PLEASE TRY AGAIN."
200 GOTO 160
210 PRINT " MULTIPLICATION ","DIVISION"
220 PRINT "-------------- ","--------"
230 FOR I=1 TO N
240 PRINT
250 FOR J=1 TO N
260 LET P=I*J
270 LET Q=I/J
280 PRINT I;" X ";J;" = ";P,I;" / ";J;" = ";Q
290 NEXT J
300 NEXT I
310 PRINT "ADDITION ","SUBTRACTION"
320 PRINT "-------- ","-----------"
330 FOR K=1 TO N
340 PRINT
350 FOR L=1 TO N
360 LET A=K+L
370 LET D=K-L
380 PRINT K;" + ";L;" = ";A,K;" - ";L;" = ";D
390 NEXT L
400 NEXT K
500 STOP
510 SAVE "1010%1"
520 RUN
