Try your hand at up 25 problems in addition, subtraction, multiplication or division.
Appears on
One of a series of library tapes. Programs on these tapes were renamed to a number series. This tape contained programs 20121 to 20163. These tapes were compiled by Tony Willing.
Source Code
5 REM math VERSION 2.1 10 REM John Colonna SINCUS 15 RANDOMIZE : GO SUB 850 20 CLS : BORDER 6 25 PRINT 30 PRINT "HOW MANY PROBLEMS ARE YOU GOING TO DO (1 TO 25)?"; 35 INPUT A 40 IF A>25 OR A<1 THEN GO TO 35 45 PRINT " "; INVERSE 1;A 50 LET C=0: LET I=0 55 PRINT 60 PRINT " "; PAPER 6;"ENTER 1 FOR ADDITION" 65 PRINT " "; PAPER 6;"ENTER 2 FOR SUBTRACTION" 70 PRINT " "; PAPER 6;"ENTER 3 FOR MULTIPLICATION" 72 PRINT " "; PAPER 6;"ENTER 4 FOR DIVISION" 75 INPUT B 80 IF B<1 OR B>4 THEN GO TO 75 85 GO TO B*100 100 FOR J=1 TO A 105 PRINT 110 PRINT " NUMBER "; INVERSE 1;J 115 GO SUB 800 120 PRINT " ";E;" + ";F;" = "; 125 INPUT G 130 PRINT G; 135 IF G=E+F THEN GO TO 160 140 IF G<>E+F THEN GO TO 145 145 PRINT ," INCORRECT": BEEP .5,0: BEEP .5,-5 150 LET I=I+1 155 GO TO 170 160 PRINT ," CORRECT": FOR H=15 TO 17: BEEP .2,H: NEXT H 165 LET C=C+1 170 NEXT J 175 GO TO 505 200 FOR J=1 TO A 205 PRINT 210 PRINT " NUMBER "; INVERSE 1;J 215 GO SUB 800 220 IF F>E THEN PRINT " ";F;" - ";E;" = ";: GO TO 230 225 PRINT " ";E;" - ";F;" = "; 230 INPUT G 235 PRINT G; 240 IF G=E-F OR G=F-E THEN GO TO 160 245 IF G<>E-F OR G<>F-E THEN GO TO 145 300 FOR J=1 TO A 305 PRINT 310 PRINT " NUMBER "; INVERSE 1;J 315 GO SUB 800 320 PRINT " ";E;" X ";F;" = "; 325 INPUT G 330 PRINT G; 335 IF G=E*F THEN GO TO 160 340 IF G<>E*F THEN GO TO 145 400 FOR J=1 TO A 405 PRINT 410 PRINT " NUMBER "; INVERSE 1;J 411 LET F=INT (RND*10)+1 412 LET E=F*(INT (RND*10)+1) 420 PRINT " ";E;" \a ";F;" = "; 425 INPUT G 430 PRINT G; 435 IF G=E/F THEN GO TO 160 440 IF G<>E/F THEN GO TO 145 505 PRINT : PRINT "\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''": PRINT 510 PRINT " YOUR SCORE IS" 515 PRINT : PRINT 520 PRINT " ";INT ((C/A*100)+.5);" PER CENT" 525 PRINT 530 PRINT "\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''" 535 PRINT "DO YOU WANT TO PLAY AGAIN? (y/n)" 540 PRINT 545 IF INKEY$="y" OR INKEY$="Y" THEN GO TO 20 550 GO TO 545 800 LET E=INT (RND*10)+1 805 LET F=INT (RND*10)+1 810 RETURN 850 REM udg 860 DATA 0,24,0,127,0,24,0,0 870 FOR a=0 TO 7: READ b: POKE USR "\a"+a,b: NEXT a 900 CLS 905 PRINT AT 6,3;"+ + - xxxxx \a \a " 910 PRINT TAB 3;"++ ++ - - x \a \a" 920 PRINT TAB 3;"+ + + ----- x \a\a\a\a\a" 930 PRINT TAB 3;"+ + - - x \a \a" 940 PRINT TAB 3;"+ + - - x \a \a" 950 PRINT : PRINT : PRINT : PRINT : PRINT TAB 3; FLASH 1;"Press any key to continue." 955 PAUSE 0 960 RETURN 9998 STOP 9999 SAVE "Math" LINE 1: BEEP 1,32