5 RANDOM
10 DIM D(10),W(60)
20 CLS
40 REM POKE 16396,23
60 POKE 16419,193
70 ES$=CHR$(31)
80 CLS:PRINT @475,"TIMINGS"
100 PRINT @532,"MULTIPLICATION TABLES"
120 PRINT:INPUT"ENTER YOUR NAME";N$
140 CLS
160 PRINT"HELLO, ";N$;", WHICH OF THE MULTIPLICATION TABLES"
161 PRINT"DO YOU NEED TO WORK ON"
170 PRINT:PRINT:PRINT @223,"REQUIRED NUMBER CORRECT"
175 RESTORE
180 FOR A=1 TO 10:PRINT TAB(10)"X ";A"'s";:READ D(A):PRINT TAB(40)D(A):NEXT A
200 PRINT @86,"";:INPUT C:IF C<1 OR C>10 THEN 200
220 CLS:REM REVIEW ANSWERS
240 PRINT"GOOD LUCK, ";N$;", YOU ARE WORKING ON THE TIMES ";C"'s."
260 PRINT"HERE THEY ARE FOR YOUR REVIEW."
280 PRINT @384,"  0     1     2     3     4     5     6     7     8     9    10"
290 FOR A=1 TO 11:PRINT USING"x##   ##   ##   ##   ##   ##    ##    ##    ##    ##";C;:NEXT A
300 PRINT @512,"---   ---   ---   ---   ---   ---   ---   ---   ---   ---   ---"
320 FOR A=0 TO 10:PRINT USING"###   ";A*C;:NEXT A
340 PRINT @832,"PRESS ANY KEY TO BEGIN YOUR ONE MINUTE TIMING."
360 IF INKEY$="" THEN 360
400 POKE 16919,0
401 POKE 16920,0
500 CLS
505 F=0:E=0
510 PRINT CHR$(23)
515 G=(RND(11)-1)
520 PRINT@320," "
525 PRINT TAB(15)USING"##";G
530 PRINT TAB(14)USING"x##";C
540 PRINT TAB(13)"----"
570 PRINTTAB(12)ES$;:INPUT Y
572 IF Y>999 THEN 570
580 IF PEEK(16920)=1 THEN 650
585 T=T+1
590 IF Y=G*C THEN F=F+1
600 IF Y<>G*C THEN E=E+1:W(E)=G
610 GOTO 515
650 CLS
660 PRINT@153,"TIME IS UP."
670 PRINT TAB(17)"YOU GOT ";
671 PRINT USING"##";F;
672 PRINT " PROBLEMS CORRECT."
680 PRINT TAB(19)"YOU MISSED ";:PRINT USING"##";E;:PRINT" PROBLEMS."
690 PRINT@394,"CHART THE NUMBER CORRECT IN YOUR PACKET."
700 PRINT@526,"IN ORDER TO GO TO THE NEXT PHASE,"
710 PRINT TAB(13)"YOU HAD TO GET AT LEAST"D(C)"CORRECT."
720 GOSUB 900
900 IF F<D(C) THEN GOTO 1000
920 PRINT TAB(24)"YOU MADE IT!"
930 L=LEN(N$)
940 Y=30-(8+(L/2))
950 PRINT TAB(Y)"CONGRATULATIONS,";N$"!"
960 GOTO 1100
1000 PRINT TAB(18)"RATS! YOU DIDN'T MAKE IT"
1010 PRINT TAB(12)"YOU NEED TO DO THE TIMES"C"'s AGAIN."
1020 Y=30-(11+(L/2))
1030 PRINT TAB(Y)"BETTER LUCK NEXT TIME, "N$"."
1100 PRINT@905,"WOULD YOU LIKE TO SEE THE ONES YOU MISSED(Y/N)";
1110 INPUT J$
1111 IF J$="N" THEN 1250
1120 CLS
1125 IF E=0 THEN PRINT CHR$(23)"YOU DIDN'T MISS ANY":FOR X=1 TO 1000:NEXT:CLS:GOTO 1250
1130 IF LEFT$(J$,1)="Y" THEN 1200
1140 GOTO 80
1200 CLS
1210 PRINT" THESE ARE THE ONES YOU MISSED"
1220 FOR M=1 TO E
1230 PRINT W(M)"x"C"="W(M)*C,
1240 NEXT M
1250 PRINT@960,"PRESS ANY KEY TO CONTINUE";
1260 IF INKEY$="" THEN 1260
1280 GOTO 80
10000 DATA 40,35,35,35,35,30,30,30,30,35
