10 PRINTCHR$(142):GOTO560 30 REM ARITHME-SKETCH BY TED JEAN & JIM PELLECHI 80 REM RIGHT ANSWER 90 POKEV,15:FORTT=1TO3:POKED,10:POKER,64+11:POKESU,23:POKES1,23:POKEU,4 100 POKEW,21:FORT=1TO50:NEXT:POKEW,20 110 FORT=1TO16:POKE53280,PEEK(53280)+1AND15:NEXT:NEXT:POKE53280,14:RETURN 120 : KEY PRESSED 130 POKEV,15:POKEU,110:POKED,15:POKER,9:POKEW,17:FORT=1TO90:NEXT:POKEV,0 140 FORT=0TO24:POKEB+T,0:NEXT:RETURN 150 : WRONG ANSWER 160 POKE53280,9:FORTT=1TO25:POKEV,10 170 FORT=1TO3:NEXT:POKEV,0:FORI=1TO3:NEXT:NEXT:POKE53280,14:RETURN 180 REM LARGE NUMBERS 190 ON(A+1) GOSUB200,210,220,230,240,250,260,270,280,290:PRINTCHR$(29);:RETURN 200 PRINT" [157][145] [157][145] [157] [157] [157] [157] [157][157] [157][157] [157][145] [145]";:RETURN: 0 210 PRINT"[145][145] [157] [157] [157] [157] [145][145]";:RETURN: 1 220 PRINT"[145][145] [157] [157] [157][157] [157][157] [157] [157] [145][145]";:RETURN: 2 230 PRINT"[145][145] [157] [157] [157][157] [157][157] [157] [157][145] [145]";:RETURN: 3 240 PRINT"[145][145] [157] [157] [145][145][157] [157] [157] [157] [145][145]";:RETURN: 4 250 PRINT"[145][145] [157][157][157] [157] [157] [157][157][157] [145][145]";:RETURN: 5 260 PRINT"[145][145] [157] [157] [157][157][157] [157] [145][157] [145]";:RETURN: 6 270 PRINT"[145] [157][145] [157] [157] [157] [157] [145][145]";:RETURN: 7 280 PRINT" [157][145] [157][145] [157] [157] [157] [157] [157][157] [157][157] [157][145] [145] ";:RETURN: 8 290 PRINT" [157][145] [157][145] [157] [157] [157] [157] [157][157] [157][157] [145][145] ";:RETURN: 9 300 ON GL GOTO310,320,330,340,350 310 S=8:SL=15:LL= 8:RETURN 320 S=6:SL=13:LL=12:RETURN 330 S=4:SL=12:LL=15:RETURN 340 S=2:SL=10:LL=19:RETURN 350 S=0:SL= 8:LL=23:RETURN 360 REM CLIPBOARD 370 POKE53280,14:POKE53281,7 380 PRINT"[149] [180][213][201][170] "; 390 PRINT" [205][202][203][206] "; 400 PRINT"  [146][169] [223] [146]" 410 PRINT"  [146] [221][149] [206] [205]  " 420 PRINT"  [146] [221][149] [183][183][183][183][183][183]  [145]":FORA=0TO9 430 PRINT"  [146] [221][149]  " 440 PRINT"  [146][163][163][221][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][149] [145]":NEXT 450 FORA=1308TO1948STEP320:POKEA,81:NEXT:RETURN 460 REM TITLE SCREEN 470 GOSUB370 480 PRINT LINE$(8)SPC(14)"ARITHME-SKETCH" 490 PRINT LINE$(9)SPC(14); 500 FOR A=1TO14:PRINT CHR$(183);:NEXT 510 PRINT LINE$(12)SPC(10)"WHAT KIND OF PROBLEMS ?" 520 PRINT LINE$(16)SPC(7)"PRESS + FOR ADDITION" 530 PRINT LINE$(18)SPC(7)"PRESS - FOR SUBTRACTION" 540 PRINT LINE$(22)SPC(12)"YOUR CHOICE ";:RETURN 550 REM CURSOR CONTROL 560 DIM LINE$(25) 570 LINE$(1)=CHR$(19) 580 FOR A=2TO25 590 LINE$(A)=LINE$(A-1)+CHR$(17):NEXT 600 REM CONSTANTS 610 ZZ=1:SC=1065:CO=54272:CL=0 620 REM JOYSTICK TABLE 630 FOR A=0TO10:READ XY(A):NEXT 640 DATA 0,-40,40,0,-1,-41 650 DATA 39,0,1,-39,41 660 REM KEYBOARD TABLE 670 DIM KEY(64) 680 FOR A=0TO64:KEY(A)=0:NEXT 690 KEY(08)=11:KEY(11)=15:KEY(16)=5 700 KEY(19)=6:KEY(24)=7:KEY(27)=8 710 KEY(56)=1:KEY(59)=2 720 REM ML 730 AD=49152 740 READ A:IFA<>-1THENPOKEAD,A:AD=AD+1:GOTO740 750 DATA 162,4,160,196,32,30,192 760 DATA 162,216,160,200,32,30 770 DATA 192,96,162,196,160,4 780 DATA 32,30,192,162,200,160 790 DATA 216,32,30,192,96 800 DATA 142,42,192,140,45,192 810 DATA 160,4,162,0,189,0,0 820 DATA 157,0,0,202,208,247 830 DATA 238,42,192,238,45,192 840 DATA 136,208,238,96,-1 850 REM SOUND 860 B=54272:FORT=0TO24:POKEB+T,0:NEXT 870 V=B+24:W=B+4:U=B+1:D=B+5:R=B+6:S1=B+14:SU=B+15 880 REM DISPLAY TITLE 890 PRINT"[147]":GOSUB470:POKE198,0 900 PRINT"?"CHR$(149)CHR$(157);:IF PEEK(162)AND32 THEN PRINTCHR$(158); 910 GETAN$:IFAN$<>"+"ANDAN$<>"-"THEN900 920 PRINTCHR$(149)AN$:GOSUB130:FOR A=1TO500:NEXT 930 REM DIFFICULTY LEVEL 940 GOSUB370 950 PRINT LINE$(6)SPC(11)"SELECT GRADE LEVEL" 960 PRINT LINE$(10)SPC(11)CHR$(18)"1"SPC(5)CHR$(146)" FIRST GRADE" 970 PRINT LINE$(12)SPC(11)CHR$(18)"2"SPC(5)CHR$(146)"SECOND GRADE" 980 PRINT LINE$(14)SPC(11)CHR$(18)"3"SPC(5)CHR$(146)" THIRD GRADE" 990 PRINT LINE$(16)SPC(11)CHR$(18)"4"SPC(5)CHR$(146)"FOURTH GRADE" 1000 PRINT LINE$(18)SPC(11)CHR$(18)"5"SPC(5)CHR$(146)" FIFTH GRADE" 1010 PRINT LINE$(24)SPC(9)"PICK ANY GRADE"CHR$(149)" 1 - 5" 1020 IFPEEK(162)AND32THENPRINTCHR$(158); 1030 GETA$:ON-(A$<"1"ORA$>"5"ORA$="")GOTO1010:GOSUB130 1040 NN=10^(VAL(A$))-1:MM=NN 1050 : 1060 REM INSTRUCTIONS 1070 GOSUB370 1080 PRINT LINE$(8)SPC(10)"YOU WILL NOW GET 5" 1090 PRINT LINE$(10)SPC(10)CHR$(18); 1100 IFAN$="+"THEN PRINT"ADDITION PROBLEMS.":GOTO1120 1110 PRINT"SUBTRACTION PROBLEMS." 1120 PRINT LINE$(12)SPC(10)"FOR EVERY RIGHT ANSWER," 1130 PRINT LINE$(14)SPC(10)"YOU WILL GET 1 MINUTE" 1140 PRINT LINE$(16)SPC(10)"OF DRAWING TIME." 1150 PRINT LINE$(20)SPC(15); 1160 FOR A=1TO11:PRINT CHR$(175);:NEXT 1170 PRINT LINE$(21)SPC(15)CHR$(18)" GOOD LUCK " 1180 PRINT LINE$(22)SPC(15); 1190 FOR A=1TO11:PRINT CHR$(163);:NEXT:POKE198,0 1200 PRINT LINE$(24)SPC(8)"PRESS " 1210 PRINT LINE$(24)SPC(14)"ANY KEY"CHR$(149)" TO CONTINUE" 1220 IFPEEK(162)AND32THENPRINTCHR$(158); 1230 GETA$:ON-(A$="")GOTO1210:GOSUB130 1240 REM BEGIN MATH 1250 PROB=1:TL=0:POKE198,0 1260 GOSUB1900:TRY=0 1270 GOSUB370 1280 REM MATH PROBLEMS 1290 PRINT LINE$(05)SPC(6)"PROBLEM"SPC(35)"#"PROB:GOSUB300 1300 PRINTLINE$(09)SPC(12)SPC((GL-LN)*4+S); 1310 ON LN GOTO1370,1360,1350,1340,1330,1320 1320 A=N(1):GOSUB190 1330 A=N(2):GOSUB190 1340 A=N(3):GOSUB190 1350 A=N(4):GOSUB190 1360 A=N(5):GOSUB190 1370 A=N(6):GOSUB190 1380 PRINTLINE$(15)SPC(12)SPC((GL-LM)*4+S); 1390 ON LM GOTO1450,1440,1430,1420,1410,1400 1400 A=M(1):GOSUB190 1410 A=M(2):GOSUB190 1420 A=M(3):GOSUB190 1430 A=M(4):GOSUB190 1440 A=M(5):GOSUB190 1450 A=M(6):GOSUB190 1460 PRINTLINE$(16)SPC(SL); 1470 IF AN$="+"THEN PRINT" [157][157][145] [157] ":GOTO1490 1480 PRINT "[175][175]" 1490 PRINTLINE$(18)SPC(SL); 1500 FOR A=0TO LL:PRINT CHR$(185);:NEXT 1510 PRINT LINE$(22)SPC((SL+LL)-2); 1520 GOSUB2050:REM DIGIT 1 1530 ANS=VAL(A$) 1540 IF N3<10 THEN1690 1550 GOSUB2050:REM DIGIT 2 1560 ANS=ANS+(VAL(A$)*10) 1570 IF N3<100 THEN1690 1580 GOSUB2050:REM DIGIT 3 1590 ANS=ANS+(VAL(A$)*100) 1600 IF N3<1000 THEN1690 1610 GOSUB2050:REM DIGIT 4 1620 ANS=ANS+(VAL(A$)*1000) 1630 IF N3<10000 THEN1690 1640 GOSUB2050:REM DIGIT 5 1650 ANS=ANS+(VAL(A$)*10000) 1660 IF N3<100000 THEN1690 1670 GOSUB2050:REM DIGIT 6 1680 ANS=ANS+(VAL(A$)*100000) 1690 PRINTCHR$(18);:IF N3=ANS THEN1770 1700 GOSUB160:TRY=TRY+1:IF TRY=2 THEN1730 1710 PRINT LINE$(1)SPC(3)"INCORRECT !!"SPC(11)" TRY AGAIN " 1720 FOR A=1TO2000:NEXT:GOTO1270 1730 PRINT LINE$(1)SPC(2)"WRONG AGAIN ..."SPC(6)" THE ANSWER IS " 1740 PRINTLINE$(2)SPC(24);:IFGL<4THENPRINT" ";:IFGL=1THENPRINT" "; 1750 PRINT"*** "MID$(STR$(N3),2)" ***" 1760 GOTO1790 1770 TL=TL+1 1780 PRINT LINE$(1)SPC(4)" EXCELLENT "SPC(10)" ANSWER !!!":GOSUB90 1790 PRINTCHR$(146):FOR A=1TO1400:NEXT 1800 PROB=PROB+1:IF PROB<6 THEN1260 1810 POKE53280,14:POKE53281,2 1820 POKE646,1:PRINT CHR$(147) 1830 PRINT LINE$(6)SPC(10)"YOU GOT "TL" RIGHT!" 1840 PRINT LINE$(9)SPC(8)"NOW IT IS TIME TO DRAW." 1850 PRINT LINE$(16)SPC(8)"USE JOYSTICK IN CONTROL" 1860 PRINT LINE$(18)SPC(15)"PORT # 2" 1870 FOR A=1TO4000:NEXT 1880 GOTO2110 1890 REM RANDOM NUMBERS 1900 FORX=1TO6:N(X)=-1:NEXT 1910 FORX=1TO6:M(X)=-1:NEXT 1920 N=INT((RND(0)* NN)+1) 1930 M=INT((RND(0)* MM)+1) 1940 IF AN$="+"THEN N3=N+M:GOTO1980 1950 IF N=M THEN1930 1960 IF N"9"THEN2060 2080 A=VAL(A$):PRINTCHR$(158)CHR$(160)CHR$(149)CHR$(157)CHR$(157);:GOSUB190 2090 FORA=0TO6:PRINT CHR$(157);:NEXT:GOSUB130:RETURN 2100 REM 2110 REM DRAW ROUTINE 2120 PRINT CHR$(151);CHR$(147); 2130 POKE53280,8:POKE53281,15 2140 IF ZZ=0 THENSYS(49167):GOTO2200 2150 PRINTCHR$(18)"%%%%%%%%%%%%% TIME = %%%%%%%%%%%%%"; 2160 FORX=1TO23:PRINTSPC(38)"%%";:NEXT 2170 PRINT"%%% F1= SAVE %%%%%%%%% F2= RESTORE %%%"CHR$(157)CHR$(148)"%"CHR$(19) 2180 ZZ=0:IFER=1THEN SC=1065:ER=0:RETURN 2190 SYS(49152) 2200 TIME$="000000" 2210 T2$=MID$(TIME$,4,1) 2220 T3$=MID$(TIME$,5,2) 2230 T2=TL-VAL(T2$)-1 2240 T3=59-VAL(T3$) 2250 T3$=STR$(T3):IFT3<10THENT3$=" 0"+RIGHT$(T3$,1) 2260 PRINT LINE$(1)SPC(20)CHR$(18)T2":"T3$ 2270 IF T2<0THEN2500 2280 JV=PEEK(56320):KV=PEEK(197):SV=PEEK(653) 2290 FB=16-(JV AND 16):JV=15-(JV AND 15) 2300 CH=PEEK(SC):CC=PEEK(SC+CO) 2310 IF CH>127THEN POKESC,171:GOTO2330 2320 POKE SC,43:POKE SC+CO,CL 2330 FOR A=1TO50:NEXT 2340 POKE SC,CH:POKE SC+CO,CC 2350 FOR A=1TO50:NEXT 2360 IF FB THENPOKE SC,160:POKE SC+CO,CL 2370 IFKEY(KV) THEN CL=KEY(KV)-1 2380 IF SV=1 AND KV<>4 THEN POKE SC,32 2390 IFKV<>4THEN2450 2400 IFSV=1THENGOSUB130:SYS(49167):GOTO2450:REM F2 KEY 2410 IFSV=4THENER=1:ZZ=1:GOSUB2120:REM CONTROL KEY/F1 KEY (ERASE SCREEN) 2420 IF SV THEN2450 2430 GOSUB130:SYS(49152):PRINTCHR$(147)LINE$(12)SPC(15)"S A V E D" 2440 FORA=1TO999:NEXT:SYS(49167) 2450 SC=SC+XY(JV):IF SV=6 THEN 2500:REM CONTROL KEY/LOGO KEY (EXIT DRAW) 2460 IF(SC<1065)OR(SC>1982)THEN SC=SC-XY(JV) 2470 IF(SC-1064)/40=INT((SC-1064)/40)THEN SC=SC-XY(JV) 2480 IF(SC-1063)/40=INT((SC-1063)/40)THEN SC=SC-XY(JV) 2490 GOTO2210 2500 GOSUB90:SYS(49152):PRINTCHR$(147):GOTO890