Multiplication drill. Getting a correct answer will result in the display of the game MONEY PAIL. A wrong answer will result in another multiplication test.
Appears on
Library tape of the Indiana Sinclair Timex User’s Group.
Gallery
Source Code
10 REM An original program by G F Chambers, 1-84 20 GO SUB 890: GO SUB 780 30 GO SUB 720 40 POKE 23613,PEEK 23613-2 50 LET a$="00" 60 LET t=0: LET p=14: LET sc=t: LET x=t 70 LET z$="*******************************" 80 PAPER 6: CLS 90 LET d=10: LET d=3: LET h=d 100 LET x=g: LET y=i 110 FOR n=1 TO 8 120 PRINT AT (n*2),0;x;AT 18,(n*3)+PI;y: LET x=x+1: LET y=y+1 130 NEXT n 140 POKE 23658,0 150 LET x=INT (g+(RND*(u-g))+.5) 160 LET y=INT (i+(RND*(k-i))+.5) 170 PRINT AT 2+(x-g)*2,2;z$( TO 4+((y-i)*3)) 180 FOR n=2+(x-g)*2 TO 17: PRINT AT n,6+((y-i)*3);"*" 190 NEXT n 200 IF t<0 THEN PRINT AT 0,2;"YOU OWE ";ABS t;"$": GO TO 220 210 IF t>0 THEN PRINT AT 0,2;"YOU NOW HAVE $";t 220 PRINT AT 21,7;"MULTIPLY ";x;" X ";y;"" 230 INPUT j$ 240 GO SUB 470 250 LET a=VAL j$: IF a=x*y THEN GO TO 340 260 CLS : PRINT AT 10,7;"WRONG WRONG WRONG": PAUSE VAL "50" 270 LET r=28: FOR n=1 TO 18: BEEP .005,n: PRINT AT n,r; PAPER 8;"\j": NEXT n 280 FOR n=16 TO 0 STEP -1: BEEP .005,n: BEEP .005,n+5: PRINT AT n,r; PAPER 8;"\j";AT n+1,r;"\k";AT n+2,r;"\l";AT n+3,r;"\m";AT n+4,r;" ": NEXT n 290 PAUSE VAL "20": PRINT AT 10,5;"THE CORRECT ANSWER IS ";AT 12,15; FLASH 1; INK 2;X*Y 300 PRINT 'TAB 11;x;" X ";y;" = ";x*y 310 PRINT '"YOU LOSE $200" 320 LET t=t-200 330 PAUSE VAL "200": CLS : GO TO 90 340 CLS : PRINT AT 10,PI;"HURRAH HURRAH";AT 12,5;"YOUR ANSWER IS CORRECT" 350 PAUSE VAL "100" 360 FOR z=30 TO 10 STEP -1: SOUND 6,x;7,7;8,16;9,16;10,16;12,140;13,1: NEXT z 370 BEEP .3,20 380 GO TO 550 390 LET sc=sc+1: SOUND 6,6;7,7;8,16;9,16;10,16;12,56;13,8: PAUSE 10: SOUND 8,0;9,0;10,0 400 LET b$=CHR$ 144+CHR$ (147+sc)+CHR$ 147 410 LET x=x+10*VAL a$(2): PRINT AT 0,7;x 420 RETURN 430 LET sc=0: LET t=t+x: LET x=0: PRINT AT 0,7;"00 ";AT 0,27,AT 0,27;t: BEEP .05,48: BEEP .07,44 440 LET b$="\a\c\d": PRINT AT 21,28;b$ 450 FOR e=12 TO 2 STEP -2: PRINT AT e,29;"$";AT e+2,29;" ": NEXT e: PRINT AT 2,29;" " 460 RETURN 470 IF j$(1)="q" THEN RUN 480 LET v=0: FOR z=1 TO LEN j$: IF j$(z)<CHR$ 48 OR j$(z)>CHR$ 57 THEN GO TO 510 490 NEXT z 500 RETURN 510 CLS : PRINT AT 17,0;"You have entered a wrong number" 520 PRINT '"Please press any key to restart" 530 IF INKEY$="" THEN GO TO 530 540 CLS : GO TO 80 550 BORDER 2: PAPER 7: INK 0: CLS 560 LET b$="\a\c\d" 570 PRINT AT 15,29;"B";TAB 29;"A";TAB 29;"N";TAB 29;"K";AT 21,29;AT 20,29;"^" 580 LET sc=0: LET x=0: PRINT AT 0,7;"00 ";AT 0,27;t: BEEP .05,48: BEEP .07,44 590 PRINT AT 21,p;b$ 600 PRINT AT 0,0;"\ :PAIL\: $00";TAB 10;"\ :BILLS\: 0";TAB 20;"\ :BANK\ :$";t 610 REM DROP 620 FOR a=1 TO 6 630 LET q=10*(INT (RND*9)+1): LET a$="$"+CHR$ (q/10+48)+"0": LET c=INT (RND*22)+3: PRINT AT 0,17;6-a;" " 640 REM GO 650 FOR b=h TO 20: PRINT AT b,c;a$: BEEP d/100,b: LET p=p-(INKEY$="z")+(INKEY$="m"): LET p=p+(p=0)-(p=28): PRINT AT 21,p;" ";b$;" ";AT b,c;" ": NEXT b 660 REM HIT 670 IF p=27 THEN GO SUB 430 680 IF c=p+1 AND sc<5 THEN GO SUB 390 690 NEXT a 700 PAUSE VAL "200": CLS : GO TO 80 710 REM END 720 INK NOT PI: PAPER 7: BORDER 2: CLS 730 PRINT '''TAB 9;"\ .\..\..\..\..\..\..\..\..\..\..\. ";TAB 9;"\ :MONEY PAIL\: ";TAB 9;"\ '\''\''\''\''\''\''\''\''\''\''\' " 740 PRINT AT 7,1;"If there were tens of dollars falling from the sky, how much of it could you catch with a small pail?"''"NOTE: Your pail only holds 5 bills. Take your money to the bank and come back for more."'''" USE KEYS z & m TO MOVE PAIL " 750 PRINT AT 21,PI;" Press ENTER to continue" 760 PAUSE NOT PI: CLS 770 RETURN 780 CLS : PRINT AT SGN PI,PI;" MULTIPLICATION DRILL" 790 PRINT ''"This program is a multiplicationdrill. Getting a correct answerwill result in the display of the game ""MONEY PAIL"". A wrong answer will result in another multiplication test." 800 PRINT '" To start it is necessary to enter the upper level of the multiplier and the multiplicand to be used in this particular exercise." 810 PRINT '''"Enter the values when requested." 820 INPUT "Enter high value of multiplier";u 830 IF u<7 THEN LET u=7 840 LET g=u-7 850 INPUT "Enter high value of multiplicand";k 860 IF k<7 THEN LET k=7 870 LET i=k-7 880 RETURN 890 RESTORE 920 900 FOR n=0 TO 103: IF n=8 THEN LET n=16 910 READ l: POKE USR "\c"+n,l: NEXT n 920 DATA 192,l,l,l,l,l,255,l,0,l,l,l,l,l,255,l,3,l,l,l,l,l,255,l,0,l,l,l,l,255,l,l,0,l,l,l,255,l,l,l,0,l,l,255,l,l,l,l,0,l,255,l,l,l,l,l,0,255,l,l,l,l,l,l 930 DATA 24,36,l,l,l,l,24,0,24,36,24,16,8,4,36,24,56,l,16,238,254,198,222,l,198,124,68,84,l,l,l,238 940 RETURN 950 CLS : INPUT ;"Do you wish to verify?(Y/N)";a$ 960 IF a$="y" THEN VERIFY "" 970 STOP 980 SAVE "MULTIPLY" LINE 10