( ********************************O * *v * BASIC MATH * * BY * * FRAN BLOOMER *# * UPLOADED TO * ( * PUBLIC DOMAIN *9 - * *` 2 ********************************t d52,63:56,63: n53281,1:53280,6:"":N$(19) xVC53248:SP2040:SA16128:PVSA64255:H(TI) XSA(SA(644)1):D:X,D:( VC16,63:VC28,1:VC39,2:VC40,2:VC37,3:VC38,6G VC41,0:VC42,0:VC43,0 VC0,40:VC1,0:VC2,30:VC3,10:VC4,40:VC5,15 VC6,40:VC7,50:VC8,40:VC9,50:VC10,40:VC11,40 VC23,61:VC29,2 SP0,PV:SP1,PV3:SP2,PV2:SP3,PV2:SP4,PV2 SP5,PV2( SD54272I WSDSD23:W,0::SD24,15y L$"":G$"" A0$"          " A1$"      " A3$"      "D A2$"     "p A4$"         " A5$"       " A6$"        " "A7$"      "A ,A8$"        " 6B1$"   ":B2$" ":B3$" ":B4$"  ":B5$" " @A9$"        ":B6$"X"JC$A1$G$:C0$C$A0$:C1$C$A1$:C2$C$A2$:C3$C$A3$:C4$C$A4$HTC5$C$A5$:C6$C$A6$:C7$C$A7$:C8$C$A8$^N$(10)C0$:N$(11)C1$:N$(12)C2$:N$(13)C3$:N$(14)C4$hN$(15)C5$:N$(16)C6$:N$(17)C7$:N$(18)C8$rL1$(L$,2):L2$(L$,9):L3$(L$,16):L4$(L$,12)|L5$(L$,5):L6$(L$,18):L7$(L$,20)SN$(0)A0$:N$(1)A1$:N$(2)A2$:N$(3)A3$:N$(4)A4$:N$(5)A5$N$(6)A6$:N$(7)A7$:N$(8)A8$:N$(9)A9$1950""Y115L2$11)"A D D I T I O N":X1100:L2$11)"A D D I T I O N":X1100:""+L5$15)"PICK LEVEL":G13)"1. FACTS TO 10":f13)"2. FACTS 10 TO 18":q198,0{3000Z$:Z$""500Z$"1"V0:540Z$"2"V1:540"PRESS 1 OR 2 ONLY":3150:500 ""L5$10)"DO YOU WANT COUNTERS?":!19)"Y/N":)&198,03+3000F0Z$:Z$""560[:Z$"Y"P1:600pDZ$"N"P0:600N"PRESS Y OR N ONLY":3150:550X""L5$6)"ENTER THE NUMBER OF PROBLEMS":14)"PRESS RETURN"]3000::17);:Fb""/lL5$4)"TYPE YOUR NAME AND PRESS RETURN"::4);7vW$@""[L5$15)"THANK YOU,":t20((W$)2))W$:15)"LET'S GO!"X12000:""T1FR1((0)10):R2((0)10):C((0)14)2SUMR1R2V0SUM10690V1SUM10690""0L1$9)""N$(R1)EL2$9)""N$(R2)WL3$8)""B3$iL4$5)""B1$ SUM10L7$11)"?"SUM9L7$8)"? ?" P0830*R10L5$:X1R1:14)B5$;:3200:4 R20L4$:X1R2:14)B5$;:3200:">(L$,25)13)"ENTER ANSWER"-H198,07M3000LRAN$:AN$""850i\(AN$)48(AN$)57850fAN(AN$):K1AN10pSUM10L7$11)" ":L6$9)""N$(AN):900zL7$8)" ":L6$6)""N$(AN)SUM9940ANSUML6$15)"SORRY!":3150:930 ANSUMSCSC1:2280*10005198,0?3000VAN1$:AN1$""940u(AN1$)48(AN1$)57940AN1(AN1$)L7$13)" ":L6$10)""N$(AN1)K1AN1SUML6$15)"SORRY":3150:1000K1AN1SUMSCSC1:2280VC21,0:VC3,0X11000:1SC(SCF100)ASC751110f"":L2$10)"GOOD WORK, "W$"."$:10)"YOUR SCORE IS"SC"PERCENT".(L$,23)12)"PRESS RETURN"8198,0BZ$:Z$(13)1090LV"":L2$10)"YOU SCORE IS LESS THAN": `15)"75 PERCENT.":Cj10)"YOU NEED MORE PRACTICE."gt(L$,23)12)"PRESS RETURN"r~198,0Z$:Z$(13)1160""Y115L2$9)"S U B T R A C T I 0 N":X1100: L2$9)"S U B T R A C T I O N"X1100:"+""FL5$15)"PICK LEVEL":d12)"1. TO 10 MINUS 9":12)"2. TO 18 MINUS 9":198,03000Z$:Z$""1260Z$"1"V0:1300Z$"2"V1:1300 "PRESS 1 OR 2 ONLY":3150:1260)""L5$10)"DO YOU WANT COUNTERS?":>19)"Y/N":I198,0S#3000g(Z$:Z$""1320}2Z$"Y"P1:1360<Z$"N"P0:1360F"PRESS Y OR N ONLY":1310P""L5$6)"ENTER THE NUMBER OF PROBLEMS":14)"PRESS RETURN"U3000::17);:FZ""MdL5$4)"TYPE YOUR NAME AND PRESS RETURN"::4);UfW$^i""ynL5$15)"THANK YOU,":s20((W$)2))W$:u15)"LET'S GO!"xX12000:T1F""R1((0)18)1:R2((0)10):DFR1R2R1R21430DF91430)V0R1101430=V1R1101430^R19L1$5)""N$(R1):1500sL1$9)""N$(R1)L2$9)""N$(R2)L3$8)""B3$L4$5)""B2$L7$11)"?"P0 1690R10L5$X1R1:14)B5$;:3200"X914)"",16IFR2=0THENGOTO760j@(L$,25)" PRESS RETURN TO SUBTRACT THE 'S"uJ198,0O3000TZ$:Z$""1620YZ$(13)3150:1620^R201690hZ1R222rL5$|12(Z2))B6$;:3250Q1100:;(L$,25)" ENTER ANSWER "F198,0P3000fAN$:AN$""1700(AN$)48(AN$)571700AN(AN$)L7$11)" "L6$9)""N$(AN)ANDFL6$15)"SORRY!":3150:1770ANDFSCSC1:2280VC21,0:VC3,0Y11000:$7SC(SCF100)GSC751880l"":L2$10)"GOOD WORK, "W$"."&:10)"YOUR SCORE IS"SC"PERCENT"0(L$,25)12)"PRESS RETURN":198,0DZ$:Z$(13)1860N X"":L2$10)"YOUR SCORE IS LESS THAN":&b15)"75 PERCENT.":Il10)"YOU NEED MORE PRACTICE."gvL$12)"PRESS RETURN"r198,0Z$:Z$(13)1930"";(L$,4)8)"מןלךזימןל"8)""31)"" 8)""31)""8 (L$,7)8)""16)"B A S I C"31)""O 8)""31)""f 8)""31)""} 8)""31)"" (L$,11)8)""11)"A R I T H M E T I C " 8)""31)"":8)""31)""! 8)""31)"":8)""31)""A!(L$,16)8)""16)"F A C T S"31)""k! 8)""31)"":8)""31)""!*8)""31)"":8)""31)""!48)""13)"BYFRANBLOOMER"31)""!>8)""31)"" "H8)"מלןךזילן","LSD5,8:SD6,240:SD4,17K"MW1150:R3((1)230)14b"RSD1,R3:Q120:q"W:SD4,16"\"":SC0"f::9)"PRESS THE KEY WITH THE""p7)"SAME NUMBER AS YOUR CHOICE":"zX139:"";:#::8)"1. ADDITION FACTS":%#8)"2. SUBTRACTION FACTS":8#8)"3. QUIT">#I#198,0S#3000g#Z$:Z$""2230#(Z$)49(Z$)52:3150:2230#Z$"3""":L4$18)"BYE!":X11000::64738#(Z$)420,1180#2140# CORRECT RESPONSE $WSDSD23:W,0:)$SD5,8:SD6,240:SD4,33C$VC21,(VC21)(21)a$Y1042:VC3,Y:W15:{$ VC21,(VC21)(20)$ Y050:VC1,Y:VC3,42Y$ $ VC21,(VC21)(22):SP0,PV1$$ Y1050$. VC5,Y:VC1,40Y:VC3,82Y$3 %8 VC21,(VC21)(23):SP0,PV)%B Y041Z%L VC3,132Y:VC1,90Y:VC5,50Y:VC7,Y10`%V %` VC21,(VC21)(24):SP0,PV1%j Y041%t VC3,173Y:VC1,131Y:VC5,91Y:VC7,50Y%~ % VC21,(VC21)(25):SP0,PV% Y0156& VC3,214Y:VC1,172Y:VC5,132Y:VC7,91Y:VC9,50Y<& V& J502505:SD1,J:q& J1002505:SD1,J:& J250505:SD1,J:& SD4,32& Y015& VC1,187Y:VC5,147Y:VC7,106Y:VC9,65Y& & SP0,PV1& Y041 ' VC1,172Y:VC5,132Y:VC7,91Y&' D' VC21,(VC21)(25525)P' Y041v' VC1,131Y:VC5,91Y:VC7,50Y|' ' VC21,(VC21)(25524):SP0,PV'( Y040'2 VC1,90Y:VC5,50Y'< 'F VC21,(VC21)(25523):SP0,PV1(P Y050:VC1,50Y:"(U POKESD+4,32Z(Z VC21,(VC21)(25522):VC21,(VC21)(25520)`(d r(n SPRITE DATA(x 000,080,000,000,080,000,000,060( 000,000,060,000,000,010,000,000( 010,000,000,001,064,000,001,064) 000,000,240,000,000,240,000,002+) 128,000,002,128,000,005,000,000P) 005,000,000,060,000,000,060,001u) 000,010,004,000,010,016,000,001) 080,000,001,068,000,001,065,113) 000,005,000,000,005,000,000,060) 000,000,060,000,000,160,000,000 * 160,000,001,064,000,001,064,000.* 015,000,000,015,000,000,002,128S* 000,002,128,000,000,080,000,000x* 080,000,000,060,000,064,060,000* 016,160,000,004,160,000,005,064* 000,017,064,000,065,064,000,113* 000,024,000,000,024,000,000,024 +" 000,000,024,000,000,024,000,0001+, 024,000,000,024,000,000,024,000V+6 000,024,000,000,024,000,000,024{+@ 000,000,024,000,000,024,000,000+J 024,000,000,024,000,000,024,000+T 000,024,000,000,024,000,000,024+^ 000,000,024,000,000,024,000,052,h 100,185,239,148,165,009,148,1654,r 009,132,165,009,132,165,009,132Y,| 165,009,132,165,009,132,165,009~, 132,165,009,132,165,009,100,185, 206,020,161,009,020,161,009,020, 161,009,020,161,009,020,161,009, 020,161,009,020,161,009,148,161- 009,148,161,009,099,033,233,065$- SUBROUTINES;- WSDSD23:W,0:c- SD5,8:SD6,136:SD1,25:SD4,33|-0 W150::SD4,32:-M -N WSDSD23:W,0:-X SD5,8:SD6,136:SD1,8:SD4,33-b W1100::SD4,32:- - WSDSD23:W,0:. SD5,8:SD6,0:SD1,100:SD4,337. W150::SD4,32:=. T. WSDSD23:W,0:{. SD5,8:SD6,0:SD1,50:SD4,129. W150::SD4,128: