Four Arithmetic Tables

Gallery

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