Math

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 
 9999 SAVE "math" LINE 1: BEEP 1,32: PRINT FLASH 1;"Program Saved"