home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / JELLYBEAN-MATH (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  12.0 KB  |  456 lines
  1. 10 REM ********************************
  2. 12 REM *                              *
  3. 15 REM *      JELLYBEAN MATH          *
  4. 20 REM *                              *
  5. 25 REM *            BY                *
  6. 30 REM *                              *
  7. 35 REM *       FRAN BLOOMER           *
  8. 36 REM *                              *
  9. 38 REM *         UPLOADED             *
  10. 40 REM *                              *
  11. 42 REM *     TO PUBLIC DOMAIN         *
  12. 45 REM *                              *
  13. 47 REM *     ON APRIL 28, 1986        *
  14. 50 REM *                              *
  15. 55 REM ********************************
  16. 135 POKE52,62:POKE56,62:CLR
  17. 140 PRINT"[147]LOADING DATA, PLEASE BE PATIENT........"
  18. 150 VC=53248:SA=15872:SP=2040:PV=248:SC=0:SD=54272:DIMP1(14),P2(14),P3(14)
  19. 190 J1$="JE[158]L[159]LY[157][157][157][157][157][154]B[150]E[153]A[159]N[156]S"
  20. 200 T=0: N1=0:N2=0:PR=N1*N2:DIM C1$(9),C2$(10),M(10):J$="JE[158]L[159]LB[150]E[154]A[159]N[156]S"
  21. 210 L$="":L1$=LEFT$(L$,3):L2$=LEFT$(L$,11)
  22. 220 L3$=LEFT$(L$,17):L4$=LEFT$(L$,23):C=0:P=0:VP=0:T1=0:PI=0:PR$=""
  23. 221 L7$=LEFT$(L$,7):L8$=LEFT$(L$,15):L9$=LEFT$(L$,20)
  24. 222 K2$=LEFT$(L$,18):K3$=LEFT$(L$,6):K4$=LEFT$(L$,2)
  25. 225 L5$=LEFT$(L$,13):L6$=LEFT$(L$,19)
  26. 230 C1$(1)="[209]  ":C1$(2)="[209][209] ":C1$(3)="[209][209][209]":C1$(4)="[209][209][209][157][157][157][209]  [145]"
  27. 240 C1$(5)="[209][209][209][157][157][157][209][209] [145]":C1$(6)="[209][209][209][157][157][157][209][209][209][145]":C1$(7)="[209][209][209][157][157][157][209][209][209][157][157][157][209]  [145][145]"
  28. 250 C1$(8)="[209][209][209][157][157][157][209][209][209][157][157][157][209][209] [145][145]":C1$(9)="[209][209][209][157][157][157][209][209][209][157][157][157][209][209][209][145][145]"
  29. 255 C2$(1)="[209]":C2$(2)="[209][157][209][145]":C2$(3)="[209][157][209][157][209][145][145]":C2$(4)="[209][157][209][157][209][157][209][145][145][145]"
  30. 260 C2$(5)="[209][157][209][157][209][157][209][157][209][145][145][145][145]":C2$(6)="[209][157][209][157][209][157][209][157][209][157][209][145][145][145][145][145]"
  31. 270 C2$(7)="[209][157][209][157][209][157][209][157][209][157][209][157][209][145][145][145][145][145][145]":C2$(8)="[209][157][209][157][209][157][209][157][209][157][209][157][209][157][209][145][145][145][145][145][145][145]"
  32. 280 C2$(9)="[209][157][209][157][209][157][209][157][209][157][209][157][209][157][209][157][209][145][145][145][145][145][145][145][145]":C2$(0)=""
  33. 285 CP2$="[145][145]":CP3$="[145]"
  34. 300 FORW=0TO511:READDS:POKESA+W,DS:NEXT
  35. 305 FORW=SDTOSD+24:POKESD,0:NEXT
  36. 310 FORM=1TO14:READP1,P2,P3:P1(M)=P1:P2(M)=P2:P3(M)=P3:NEXT
  37. 315 POKESD+24,15
  38. 320 GOSUB9800
  39. 999 :
  40. 1000 REM ******** PICK FACT FAMILY ******
  41. 1001 :
  42. 1010 PRINT"[147]":POKE53280,6:POKE53281,1
  43. 1020 PRINTL2$TAB(5)"PRESS THE NUMBER KEY":PRINT
  44. 1030 PRINTTAB(5)"OF THE FACT FAMILY YOU":PRINT:PRINTTAB(5)"WANT TO LEARN"
  45. 1035 PRINT:PRINTTAB(5)"PRESS <RETURN>";
  46. 1038 INPUTN1
  47. 1040 IFN1<1ORN1>9THENPRINT:PRINTTAB(5)"1 TO 9 ONLY";:GOTO1038
  48. 1045 GOSUB9880
  49. 1067 :
  50. 1068 REM ******* TUTORIAL SUBROUTINE ********
  51. 1069 :
  52. 1070 PRINT"[147]"
  53. 1080 FORN2=0TO9:PRINT"[147]":POKE53280,6
  54. 1090 GOSUB8200
  55. 1095 PR=N1*N2
  56. 1100 PRINTL1$TAB(15)""N1"[144]X"N2:PRINT:PRINTTAB(16)"MEANS":PRINT
  57. 1110 IFN1=1THENPRINTTAB(12)""N1"GROUP OF"N2:GOTO1117
  58. 1115 PRINTTAB(11)""N1"GROUPS OF"N2
  59. 1117 GOSUB8000
  60. 1120 PRINTL4$"HOW MANY [159][209]'S DO YOU COUNT?<R> ?[157]";
  61. 1122 GOSUB9650
  62. 1129 POKE198,0:PR$=""
  63. 1130 GETA$:IFA$=""THEN1130
  64. 1132 IFA$=CHR$(13)THEN1180
  65. 1133 IFA$=CHR$(20)THENPRINTL4$TAB(28)"     [157][157][157][157]";:A$="":GOTO1120
  66. 1134 IFASC(A$)<48ORASC(A$)>57THEN1130
  67. 1135 IFLEN(PR$)>2THENA$="":GOTO1130
  68. 1138 PRINTA$;
  69. 1140 PR$=PR$+A$
  70. 1150 GOTO 1130
  71. 1180 IFVAL(PR$)=PRTHEN1210
  72. 1190 PRINTL4$"                                 "
  73. 1194 GOSUB9700
  74. 1200 PRINTL4$" NOT RIGHT! COUNT AGAIN.<R> ?[157]";:SC=SC+1
  75. 1205 GOSUB9650:GOTO1129
  76. 1210 GOSUB 8500
  77. 1220 FORZ=1TO1000:NEXT
  78. 1230 NEXT
  79. 1235 POKEVC+21,0
  80. 1240 IFSC>2THEN1291
  81. 1250 PRINT"[147]":PRINTL2$TAB(11)"V E [159]R [156]Y   G [158]O [150]O [154]D":PRINT:PRINT
  82. 1260 PRINTTAB(11)"YOU HAVE FINISHED":PRINT
  83. 1270 PRINTTAB(14)"LEARNING THE":PRINT:PRINTTAB(10)"MULTIPLICATION FACTS":PRINT
  84. 1280 PRINTTAB(17)"FOR"N1
  85. 1290 GOSUB9500:GOTO1300
  86. 1291 PRINT"[147]":PRINTL2$TAB(5)"YOU MADE"SC"MISTAKES.":PRINT
  87. 1292 PRINTTAB(5)"YOU SHOULD DO THIS SECTION":PRINT
  88. 1293 PRINTTAB(5)"AGAIN."
  89. 1294 FORX=1TO500:NEXT
  90. 1300 PRINTL4$"    <C>ONTINUE, <R>EPEAT, OR <Q>UIT"
  91. 1305 POKE198,0
  92. 1310 GETZ$:IFZ$=""THEN1310
  93. 1320 IFZ$="Q"THENPRINT"[147]"L2$TAB(18)"BYE":SYS64738
  94. 1330 IFZ$="R"THENSC=0:GOTO1070
  95. 1340 IFZ$<>"C"THENPRINTL$"[144]PRESS C, R, Q ONLY":GOTO1305
  96. 1496 :
  97. 1497 REM  ***** DRILL ON SELECTED FACTS *****
  98. 1499 :
  99. 1500 PRINT"[147]":POKE53280,6:SC=0
  100. 1510 PRINTL1$"DO YOU WANT COUNTERS? Y/N"
  101. 1514 POKE198,0
  102. 1515 GETZ$:IFZ$=""THEN1515
  103. 1516 IFZ$="Y"THENC=1:GOTO1525
  104. 1517 IFZ$<>"N"THEN1515
  105. 1525 PRINT"[147]"
  106. 1530 PRINTL1$" "N1" "N1" "N1" "N1" "N1" "N1" "N1" "N1" "N1" "N1
  107. 1540 PRINT"[144]X"0;
  108. 1550 FORX=1TO9:PRINT"[144]X"X;
  109. 1560 NEXT
  110. 1570 PRINT"[144][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]":T=2
  111. 1580 POKEVC,48:POKEVC+1,210:POKEVC+16,0
  112. 1590 POKEVC+39,14:POKEVC+23,1:POKEVC+29,1:POKESP,PV+3:POKEVC+21,1
  113. 2075 FORN2=0TO9
  114. 2078 IFC=0THEN2084
  115. 2080 GOSUB8100
  116. 2084 PRINTL9$TAB(10)"I WANT J[158]EL[159]LY[150]B[154]E[156]A[158]NS[144]!     "
  117. 2085 PRINTL7$TAB(T)"?"
  118. 2090 PRINTL4$TAB(10)"[154]  ENTER ANSWER  <R>   "
  119. 2095 GOSUB9650
  120. 2100 POKE198,0:PR$=""
  121. 2110 GETA$:IFA$=""THEN2110
  122. 2115 IFASC(A$)<48ORASC(A$)>57THEN2110
  123. 2120 IFN1*N2<10THENPRINTLEFT$(L$,7)TAB(T)"[156]"A$:PR$=PR$+A$:GOTO2130
  124. 2125 PRINTL7$TAB(T-1)"[156]"A$:PR$=PR$+A$
  125. 2130 IFN1*N2<10THEN2170
  126. 2135 POKE198,0
  127. 2136 GETA$:IFA$=""THEN2136
  128. 2137 IFA$=CHR$(20)THENPRINTL7$TAB(T-1)"   ":A$="":GOTO2085
  129. 2140 IFA$=CHR$(13)THEN2180
  130. 2145 IFASC(A$)<48ORASC(A$)>57THENA$="":GOTO2136
  131. 2146 PR$=PR$+A$
  132. 2150 PRINTL7$TAB(T)"[156]"A$:GOTO2170
  133. 2160 GOTO2190
  134. 2170 GETA$:IFA$=""THEN2170
  135. 2174 IFA$=CHR$(20)THENPRINTL7$TAB(T-1)"    ":GOTO2085
  136. 2176 IFA$<>CHR$(13)THEN2170
  137. 2180 IFVAL(PR$)=N1*N2THEN2210
  138. 2183 GOSUB9700
  139. 2185 PRINTL7$TAB(T-1)"  [157]?":SC=SC+1
  140. 2187 REMGOSUB9650
  141. 2190 PRINTL4$"                            "
  142. 2200 PRINTL4$TAB(10)" NOT RIGHT! TRY AGAIN.    "
  143. 2205 FORW=1TO1000:NEXT:PRINTL4$"                              ":GOTO2090
  144. 2210 GOSUB9100
  145. 2220 T=T+4
  146. 2230 FORZ=1TO1000:NEXT
  147. 2240 POKE53280,6
  148. 2250 NEXT
  149. 2254 POKEVC+21,0
  150. 2255 IFSC>2THEN2292
  151. 2260 PRINT"[147]":PRINTL2$TAB(12)"CO[159]N[158]G[156]RA[150]TU[158]L[154]A[159]T[156]IONS[156]":PRINT:PRINT
  152. 2270 PRINTTAB(11)"YOU HAVE COMPLETED":PRINT
  153. 2280 PRINTTAB(10)"PRACTICING THE FACTS":PRINT
  154. 2290 PRINTTAB(17)"FOR"N1:GOTO2300
  155. 2292 PRINT"[147]":PRINTL2$TAB(5)"YOU MADE"SC"MISTAKES":PRINT
  156. 2294 PRINTTAB(5)"YOU SHOULD DO THIS SECTION":PRINT:PRINTTAB(5)"AGAIN"
  157. 2296 FORW=1TO500:NEXT:GOTO2310
  158. 2300 GOSUB9500
  159. 2310 PRINTL4$"[159]    <C>ONTINUE, <R>EPEAT, OR <Q>UIT"
  160. 2320 POKE198,0
  161. 2340 GETZ$:IFZ$=""THEN2340
  162. 2350 IFZ$="Q"THENPRINT"[147]"L2$TAB(18)"BYE":SYS64738
  163. 2360 IFZ$="R"THENC=0:GOTO1500
  164. 2370 IFZ$<>"C"THENPRINT"[144]PRESS C, R, Q ONLY":GOTO2340
  165. 2996 :
  166. 2997 REM ***** DRILL SUBPROGRAM *****
  167. 2999 :
  168. 3000 PRINT"[147]":POKE53280,3:SC=0:P=4
  169. 3020 PRINTL2$TAB(8)"TIME TO SEE HOW WELL YOU":PRINT
  170. 3021 PRINTTAB(8)"LEARNED THE FACTS FOR"N1
  171. 3030 FORW=1TO10:M(W)=10:NEXT
  172. 3040 FORX=1TO10
  173. 3050 R=INT(RND(0)*10)
  174. 3060 FORY=1TO10
  175. 3070 IFR=M(Y)THENY=10:NEXT:GOTO3050
  176. 3080 NEXT Y
  177. 3090 M(X)=R
  178. 3100 NEXT X
  179. 3105 PRINT"[147]"
  180. 3110 FORX=1TO10
  181. 3145 PRINTL2$TAB(15)"                 "
  182. 3150 PRINTL8$TAB(9)"                              "
  183. 3160 POKEVC,82:POKEVC+1,174
  184. 3170 POKEVC+39,6:POKEVC+23,1:POKEVC+29,1:POKESP,PV+5
  185. 3180 POKEVC+21,1
  186. 3200 PRINTL8$TAB(6)"[153] [157] [157] [157] [157] [157] [146]"
  187. 3210 PRINTTAB(6)"         [146]"
  188. 3220 PRINTTAB(6)"[181]       [182]":PRINTTAB(6)"[181]       [182]"
  189. 3230 PRINT"[144]                  ":PRINT"                   [146] ENTER ANSWER <R>"
  190. 3240 PRINTLEFT$(L$,P);
  191. 3250 FORH=1TO10-SC:PRINTJ1$:NEXT
  192. 4210 PRINTL2$TAB(15)""N1"[144]X"M(X)"= ?[157]";
  193. 4212 GOSUB9650
  194. 4215 POKE198,0:PR$=""
  195. 4220 GETA$:IFA$=""THEN4220
  196. 4225 IFA$=CHR$(13)THEN4250
  197. 4230 IFA$=CHR$(20)THENPRINTL2$TAB(24)"?   [157][157][157][157]";:GOTO4212
  198. 4235 IFASC(A$)<48ORASC(A$)>57THENA$="":GOTO4220
  199. 4237 IFLEN(PR$)>2THENA$="":GOTO4220
  200. 4240 PRINTA$;:PR$=PR$+A$:GOTO4220
  201. 4250 IFVAL(PR$)=N1*M(X)THENSC=SC+1:GOTO4290
  202. 4255 GOSUB9700
  203. 4260 PRINTL3$TAB(8)"          ":POKEVC+39,0
  204. 4265 PRINTL8$TAB(9)"[144]WHERE ARE MY JELLYBEANS!"
  205. 4270 FORW=1TO2000:NEXT:POKEVC+39,6:GOTO4310
  206. 4280 GOTO4220
  207. 4290 GOSUB9250
  208. 4300 FORW=1TO1000:NEXT:POKE53280,3
  209. 4310 NEXT
  210. 4400 PRINT"[147]":POKE53280,2:POKEVC+21,0
  211. 4410 PRINTL2$TAB(9)"YOUR SCORE IS"INT((SC*100)/10)"PERCENT":PRINT
  212. 4415 IFSC>7THEN4440
  213. 4420 IFSC<8THENPRINTTAB(10)"YOU NEED MORE PRACTICE":PRINT
  214. 4430 PRINTTAB(12)"ON THE FACTS FOR"N1:GOTO4480
  215. 4440 PRINTTAB(10)"YOU DID A TERRIFIC JOB"
  216. 4445 GOSUB9500:GOTO4500
  217. 4480 FORW=1TO1000:NEXT
  218. 4500 PRINTL4$TAB(10)"[159]<R>EPEAT  OR  <Q>UIT"
  219. 4510 POKE198,0
  220. 4520 GETZ$:IFZ$=""THEN4520
  221. 4530 IFZ$="R"THEN3000
  222. 4540 IFZ$="Q"THENPRINT"[147]"L2$TAB(18)"BYE!":SYS64738
  223. 4550 PRINTL4$TAB(10)"[144]PRESS <R> OR <Q> ONLY":GOTO4520
  224. 7997 :
  225. 7998 REM ***** COUNTERS FOR TUTORIAL SUBROUTINE *****
  226. 7999 :
  227. 8000 PRINTL2$TAB(8)"[144]"N2;
  228. 8015 IFN1=1THEN8050
  229. 8020 FORX=2TON1:PRINT" +"N2;
  230. 8030 IFX=5THENPRINTL3$TAB(6);
  231. 8040 NEXT
  232. 8050 PRINTL5$TAB(7)"[159]"C1$(N2);
  233. 8055 IFN1=1THEN8090
  234. 8060 FORX=2TON1:PRINTC1$(N2);
  235. 8070 IFX=5THENPRINTL6$TAB(7);
  236. 8080 NEXT
  237. 8090 RETURN
  238. 8097 :
  239. 8098 REM ***** COUNTERS FOR PART 2 ****
  240. 8099 :
  241. 8100 FORW=1TO9
  242. 8115 IFN2=0THEN8140
  243. 8120 PRINTL2$TAB(T)"[159]"C2$(N1);
  244. 8140 NEXT
  245. 8150 RETURN
  246. 8196 :
  247. 8197 REM **** PRINT GRAPHICS PT 1 ****
  248. 8199 :
  249. 8200 PRINTK4$TAB(34)"[159]JEL[158]LY"
  250. 8220 PRINTL1$TAB(32)"[155][205] B[158]E[154]AN[150]S[155][206]":PRINTTAB(33)"[145][155][205][175][175][175][175][206]":PRINTTAB(35)"[155][204][186]"
  251. 8230 FORX=1TO19:PRINTTAB(35)"[204][186]":NEXT:PRINTTAB(35)"[204][186]"
  252. 8240 POKEVC+16,1:POKEVC,35:POKEVC+1,208
  253. 8250 POKEVC+39,14:POKEVC+23,1:POKEVC+29,1
  254. 8260 POKESP,PV:POKEVC+21,1
  255. 8270 PRINTK2$TAB(29)"I WANT":PRINTTAB(29)"JE[158]L[159]L[156]Y"
  256. 8280 PRINTTAB(29)"[150]B[154]EA[158]N[159]S[144]"
  257. 8490 RETURN
  258. 8497 :
  259. 8498 REM **** CORRECT ANSWER PT 1 *****
  260. 8499 :
  261. 8500 POKE53280,2:GOSUB9750
  262. 8510 FORQ=1TO19
  263. 8515 PI=PEEK(VC+1)
  264. 8520 FORW=1TO8:POKEVC+1,PI-W:NEXT
  265. 8525 GOSUB8820
  266. 8529 POKESD+4,0
  267. 8530 IFPEEK(SP)=PVTHENPOKESP,PV+1:GOTO8560
  268. 8540 POKESP,PV
  269. 8560 NEXT
  270. 8570 FORW=0TO4
  271. 8575 POKESP,PV+2:PRINTL1$TAB(28)"WOW!"
  272. 8577 PRINTK4$TAB(34+W)" [157] "
  273. 8580 POKESD+5,134:POKESD+6,132:POKESD+4,17
  274. 8582 POKESD,100
  275. 8585 FORQ=48TO60:POKESD+1,Q:NEXT
  276. 8587 FORQ=60TO48STEP-1:POKESD+1,Q:NEXT
  277. 8600 FORQ=1TO100:NEXT
  278. 8605 POKE54276,0
  279. 8610 POKESP,PV:PRINTL1$TAB(28)"    "
  280. 8620 FORQ=1TO100:NEXT
  281. 8630 NEXT
  282. 8640 FORQ=1TO19
  283. 8650 PI=PEEK(VC+1)
  284. 8670 FORW=1TO8:POKEVC+1,PI+W:NEXT
  285. 8674 GOSUB8820
  286. 8675 POKE54276,0
  287. 8680 IFPEEK(SP)=PVTHENPOKESP,PV+1:GOTO8700
  288. 8690 POKESP,PV
  289. 8700 REMFORV=1TO50:NEXT
  290. 8710 NEXT
  291. 8720 PRINTK2$TAB(28)"TH[158]AN[159]K[156]S ":PRINTTAB(29)"VERY  "
  292. 8730 PRINTTAB(29)"MUCH! "
  293. 8800 RETURN
  294. 8809 :
  295. 8810 REM **** CLIMBING LADDER SOUND *****
  296. 8811 :
  297. 8820 POKESD+5,1:POKESD+6,8:POKESD+4,129:POKESD+1,75:POKESD,69
  298. 8825 FORB=1TO30:NEXT
  299. 8830 RETURN
  300. 9097 :
  301. 9098 REM **** CORRECT ANSWERS PART 2 ****
  302. 9099 :
  303. 9100 VP=45:T1=10:PRINTL9$TAB(10)"                  ":POKEVC+21,1
  304. 9110 POKE53280,2:PRINTL4$TAB(10)"J [158]E L [159]L Y [150]B [154]E [158]A [156]N [159]S   "
  305. 9115 GOSUB9750
  306. 9120 FORX=1TO10
  307. 9130 FORY=1TO16:POKEVC,VP+Y:NEXT
  308. 9140 POKESP,PV+4:POKEVC+39,2
  309. 9145 PRINTL9$TAB(T1-4)"SMACK[144]!"
  310. 9150 POKE54277,1:POKE54278,8:POKE54276,129
  311. 9155 POKE54273,253:POKE54272,46
  312. 9160 FORZ=1TO50:NEXT
  313. 9165 POKE54276,0
  314. 9170 POKEVC+39,14:POKESP,PV+3
  315. 9180 PRINTL9$TAB(T1-4)"      ":VP=VP+16
  316. 9185 PRINTL4$TAB(T1)" ":T1=T1+2
  317. 9190 NEXT
  318. 9200 POKESD+5,136:POKESD+6,134
  319. 9205 POKESD+4,33:POKESD,150
  320. 9225 FORJ=205TO44STEP-3:POKEVC,J
  321. 9230 POKESD+1,J
  322. 9235 NEXT
  323. 9236 POKESD+4,0
  324. 9240 PRINTL9$TAB(10)"THANKS, THANKS BUNCHES!"
  325. 9245 RETURN
  326. 9247 :
  327. 9248 REM **** CORRECT RESPONSE PART 3 ****
  328. 9249 :
  329. 9250 POKE53280,2:PRINTLEFT$(L$,17)TAB(8)J$:POKEVC+39,2
  330. 9265 PRINTLEFT$(L$,P)"     [157][157][157][157][157]     ":P=P+2
  331. 9267 GOSUB9750
  332. 9270 FORY=LEN(J$)TO0STEP-1
  333. 9290 PRINTL3$TAB(8)RIGHT$(J$,Y)" "
  334. 9300 POKESP,PV+6:FORW=1TO50:NEXT
  335. 9305 PRINTL8$TAB(9)"[144]CHOMP!"
  336. 9310 POKESD+5,1:POKESD+6,8:POKESD+4,129
  337. 9320 POKESD+1,5:POKESD,33
  338. 9380 POKESP,PV+7:FORW=1TO50:NEXT
  339. 9385 POKESD+4,0
  340. 9390 PRINTL8$TAB(9)"      "
  341. 9400 NEXT
  342. 9410 PRINTL3$TAB(9)"[145] "
  343. 9420 PRINTL8$TAB(11)"THANKS! THAT WAS YUMMY!"
  344. 9430 POKESP,PV+5
  345. 9435 FORW=1TO100:NEXT
  346. 9440 POKEVC+39,6
  347. 9450 RETURN
  348. 9497 :
  349. 9498 REM **** PLAY HAIL, HAIL THE GANG'S ALL HERE ****
  350. 9499 :
  351. 9500 POKESD+5,136:POKESD+6,132
  352. 9520 FORM=1TO12:GOSUB9600:NEXT
  353. 9545 FORM=7TO12:GOSUB9600:NEXT
  354. 9560 FORM=1TO11:GOSUB9600:NEXT
  355. 9575 FORM=13TO14:GOSUB9600:NEXT
  356. 9590 RETURN
  357. 9597 :
  358. 9598 REM **** PARAMETERS FOR MUSIC ****
  359. 9599 :
  360. 9600 POKESD+4,33:POKESD+1,P1(M):POKESD,P2(M)
  361. 9610 FORW=1TOP3(M):NEXT
  362. 9620 POKESD+4,32
  363. 9630 RETURN
  364. 9647 :
  365. 9648 REM ***** SIGNAL TO IMPUT RESPONSE *****
  366. 9649 :
  367. 9650 POKESD+3,8:POKESD+5,0:POKESD+6,240:POKESD+1,25:POKESD,47:POKESD+4,65
  368. 9660 FORW=1TO50:NEXT
  369. 9665 POKESD+4,0
  370. 9670 RETURN
  371. 9697 :
  372. 9698 REM **** ERROR SOUND SUBROUTINE ****
  373. 9699 :
  374. 9700 POKESD+5,8:POKESD+6,136:POKESD+4,33
  375. 9720 POKESD+1,8:POKESD,97
  376. 9730 FORZ=1TO200:NEXT:POKESD+4,0
  377. 9740 RETURN
  378. 9747 :
  379. 9748 REM ****** WOLF WHISTLE ****
  380. 9749 :
  381. 9750 POKESD+5,136:POKESD+6,134:POKESD+4,17:POKESD,150
  382. 9760 FORJ=50TO250STEP5:POKESD+1,J:NEXT
  383. 9765 FORJ=100TO250STEP5:POKESD+1,J:NEXT
  384. 9770 FORJ=250TO50STEP-5:POKESD+1,J:NEXT
  385. 9785 POKESD+4,0
  386. 9790 RETURN
  387. 9797 :
  388. 9798 REM **** TITLE SCREEN *****
  389. 9799 :
  390. 9800 PRINT"[147]":POKE53281,1:POKE53280,4
  391. 9810 PRINTK3$TAB(10)"[159][209][209][156][209][209][209][158][209][159][209][150][209][154][209][156][209][209][158][209][159][209][209][209][209][150][209][159][209][156][209]"
  392. 9815 PRINTTAB(10)"[209]"TAB(28)"[209]"
  393. 9820 PRINTTAB(10)"[156][209]";TAB(28)"[209]"
  394. 9830 PRINTTAB(10)"[209]    JE[158]LLY[159]B[150]E[156]A[154]N    [209]"
  395. 9835 PRINTTAB(10)"[159][209]"TAB(28)"[209]"
  396. 9840 PRINTTAB(10)"[159][209]"TAB(28)"[158][209]"
  397. 9845 PRINTTAB(10)"[209]"TAB(17)"[156]MATH"TAB(28)"[154][209]"
  398. 9846 PRINTTAB(10)"[154][209]"TAB(28)"[159][209]"
  399. 9850 PRINTTAB(10)"[209]"TAB(18)"BY"TAB(28)"[209]"
  400. 9855 PRINTTAB(10)"[158][209]"TAB(28)"[150][209]"
  401. 9860 PRINTTAB(10)"[209]  FRAN  BLOOMER  [209]"
  402. 9865 PRINTTAB(10)"[154][209]"TAB(28)"[159][209]"
  403. 9870 PRINTTAB(10)"[159][209][209][209][158][209][209][156][209][154][209][150][209][158][209][159][209][209][156][209][209][158][209][159][209][209][154][209][158][209][209]"
  404. 9875 GOSUB9500
  405. 9876 RETURN
  406. 9877 :
  407. 9878 REM ***** MENU *****
  408. 9879 :
  409. 9880 PRINT"[147]":PRINTTAB(15)"CHOOSE ONE":PRINT:PRINTTAB(13)"PRESS <RETURN>"
  410. 9890 PRINT:PRINT:PRINTTAB(11)"<L>EARN THE FACTS":PRINT
  411. 9895 PRINTTAB(11)"<P>RACTICE THE FACTS":PRINT
  412. 9900 PRINTTAB(11)"<T>EST YOUR SKILL":PRINT:PRINTTAB(11)"<Q>UIT"
  413. 9905 PRINT:PRINTTAB(11);:INPUTZ$
  414. 9920 IFZ$="Q"THENPRINT"[147]":PRINTL2$TAB(18)"BYE!":SYS64738
  415. 9930 IFZ$="L"THEN1070
  416. 9940 IFZ$="P"THEN1500
  417. 9950 IFZ$="T"THEN3000
  418. 9960 PRINT:PRINTTAB(5)"[144]PRESS <L>, <P>, <T>, OR <Q>":GOTO9905
  419. 9990 RETURN
  420. 9997 :
  421. 9998 REM SPRITE DATA
  422. 10000 :
  423. 10001 DATA1,0,0,1,0,0,1,50,0,1,121,0,1,216,128,1,121,0,1,50,0,1,254,0
  424. 10004 DATA0,252,0,0,120,0,0,120,0,0,252,0,0,252,0,1,220,0,3,12,0,3,12,0
  425. 10007 DATA1,140,0,0,204,0,0,76,0,0,140,0,0,6,0,243,0,4,0,0,4,0,2,100
  426. 10010 DATA0,4,244,0,8,220,0,4,244,0,2,100,0,3,252,0,1,248,0,0,240,0,0,240
  427. 10013 DATA00,1,248,0,1,248,0,1,220,0,1,134,0,1,134,0,1,140,0,1,152,0,1,144
  428. 10016 DATA0,1,136,0,3,0,0,243,0,0,0,0,0,0,0,50,0,0,121,0,15,248,128,4
  429. 11003 DATA121,0,2,50,0,1,254,0,0,252,0,0,120,0,0,120,0,0,252,0,0,252,0,1
  430. 11006 DATA220,0,3,12,0,3,12,0,1,140,0,0,204,0,0,76,0,0,140,0,0,6,0,243
  431. 11009 DATA0,0,0,0,255,0,3,255,192,15,255,240,31,255,248,63
  432. 11011 DATA207,252,127,135,254,255,207,248,255,255,192,255,254,0,255,248
  433. 11013 DATA0,255,254,0,255,255,192,255,255,248,127,255,254,63,255,252
  434. 11015 DATA31,255,248,15,255,240,3,255,192,0,255,0,0,0,0,0,0,0,0,0,255,0,3,255
  435. 11018 DATA192,15,255,240,31,255,248,63,255,252,127,135,254,255,255,255
  436. 11020 DATA255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  437. 11022 DATA255,255,127,255,254,63,255,252,31,255,248,15,255,240,3,255
  438. 11024 DATA192,0,255,0,0,0,0,0,248,0,0,232,0,0,252,0,0,224,12,0,224,12,0,248
  439. 11103 DATA24,0,112,24,0,252,48,0,252,240,0,255,192,0,255,0,0,252,0,0,252,0,0
  440. 11106 DATA252,0,0,252,0,0,252,0,0,252,0,12,252,0,12,255,255
  441. 11108 DATA236,255,255,252,255,255,252,255,248,0,0,232,0,0,252,0
  442. 11110 DATA0,224,192,0,224,192,0,248,96,0,112,96,0,252,48,0
  443. 11112 DATA252,240,0,255,192,0,255,0,0,252,0,0,252,0,0,252,0,0,252,0,0,252,0,0
  444. 11115 DATA252,0,0,252,0,6,255,255,236,255,255,248,255,255,248,255
  445. 11117 DATA248,0,0,232,0,0,252,0,0,249,128,0,249,224,0,248
  446. 11119 DATA96,0,112,48,0,252,240,0,255,192,0,255,0,0,252,0
  447. 11121 DATA0,252,0,0,252,0,0,252,0,0,252,0,0,252,0,0,252,0,0,252,0,6,255,255
  448. 11124 DATA236,255,255,248,255,255,248,255
  449. 11148 :
  450. 11149 REM **** MUSIC DATA ****
  451. 11150 :
  452. 11151 DATA 31,165,600,31,165,400,28,49,100,28,49,300
  453. 11152 DATA 25,30,300,18,206,600,18,209,200,21,31,100
  454. 11153 DATA 23,181,200,18,209,200,21,31,300,18,209,300
  455. 11154 DATA 37,162,200,25,30,600
  456.