100 SCREEN 1,1 110 COLOR 1,0 120 PRINT" ***********************" 130 PRINT" * *" 140 PRINT" * Mathematics *" 150 PRINT" * Flash Card Program *" 160 PRINT" * by *" 170 PRINT" * Stacey A. Denenberg *" 180 PRINT" * *" 190 PRINT" ***********************" 200 PRINT"" 210 INPUT"What is your name";NA\$ 220 PRINT"" 230 PRINT"Hello " NA\$ ", Let's do math!" 240 PRINT"" 250 INPUT"Do you want to +, -, x, or /";FU\$ 260 IF FU\$="+" THEN GOTO 320 270 IF FU\$="-" THEN GOTO 350 280 IF FU\$="x" THEN GOTO 380 290 IF FU\$="/" THEN GOTO 410 300 PRINT"Please use one of the math symbols." 310 GOTO 250 320 PRINT"" 330 PRINT"We're going to add!" 340 GOTO 440 350 PRINT"" 360 PRINT"We're going to subtract!" 370 GOTO 440 380 PRINT"" 390 PRINT"We're going to multiply!" 400 GOTO 440 410 PRINT"" 420 PRINT"We're going to divide!" 430 GOTO 440 440 PRINT"" 450 INPUT"What is the largest number to use";MX 460 IF MX>0 THEN PRINT"" ELSE PRINT"That's too easy " NA\$".":GOTO 450 470 INPUT"How many problems do you want to do";NU 480 IF NU>0 THEN PRINT"OK "NA\$"." ELSE PRINT"That's too easy "NA\$".":GOTO 470 490 RANDOMIZE(100*VAL(MID\$(TIME\$,4,2))+VAL(RIGHT\$(TIME\$,2))) 500 CLS 510 IF FU\$="+" THEN PRINT" Addition" 520 IF FU\$="-" THEN PRINT" Subtraction" 530 IF FU\$="x" THEN PRINT" Multiplication" 540 IF FU\$="/" THEN PRINT" Division" 550 PRINT"" 560 PRINT"" 570 PRINT"" 580 K=0 590 ST\$=TIME\$ 600 ST=3600*VAL(LEFT\$(ST\$,2))+60*VAL(MID\$(ST\$,4,2))+VAL(RIGHT\$(ST\$,2)) 610 FOR I=1 TO NU 620 X=INT(MX*RND) 630 Y=INT(MX*RND) 640 IF X>Y THEN W=X ELSE W=Y 650 IF X>Y THEN V=Y ELSE V=X 660 IF FU\$="+" THEN GOTO 700 670 IF FU\$="-" THEN GOTO 740 680 IF FU\$="x" THEN GOTO 780 690 IF FU\$="/" THEN GOTO 820 700 PRINT "(" I ") " W "+" V " = "; 710 INPUT Z 720 IF Z=W+V THEN GOTO 890 ELSE K=K+1 725 BEEP 730 GOTO 700 740 PRINT "(" I ") " W "-" V " = "; 750 INPUT Z 760 IF Z=W-V THEN GOTO 890 ELSE K=K+1 765 BEEP 770 GOTO 740 780 PRINT "(" I ") " W "x" V " = "; 790 INPUT Z 800 IF Z=W*V THEN GOTO 890 ELSE K=K+1 805 BEEP 810 GOTO 780 820 V=V+1 830 W=W+1 840 Z=W*V 850 PRINT "(" I ") " Z "/" W " = "; 860 INPUT U 870 IF U=V THEN GOTO 890 ELSE K=K+1 875 BEEP 880 GOTO 850 890 PRINT"" 900 NEXT I 910 IF K=0 THEN PRINT"Perfect " NA\$ "!" ELSE GOTO 930 920 GOTO 950 930 PRINT"You only made " K " mistakes!" 940 PRINT"Good job " NA\$ "!" 950 SP\$=TIME\$ 960 SP=3600*VAL(LEFT\$(SP\$,2))+60*VAL(MID\$(SP\$,4,2))+VAL(RIGHT\$(SP\$,2)) 970 TI=SP-ST 980 PRINT"You only took" TI "seconds." 990 INPUT"Do you want to try again";OP\$ 1000 IF LEFT\$(OP\$,1)="y" OR LEFT\$(OP\$,1)="Y" THEN GOTO 500 1010 SCREEN 0,0,0,0 1020 WIDTH 80 1030 END 