home *** CD-ROM | disk | FTP | other *** search
- 10 REM ********************************
- 12 REM * *
- 15 REM * JELLYBEAN MATH *
- 20 REM * *
- 25 REM * BY *
- 30 REM * *
- 35 REM * FRAN BLOOMER *
- 36 REM * *
- 38 REM * UPLOADED *
- 40 REM * *
- 42 REM * TO PUBLIC DOMAIN *
- 45 REM * *
- 47 REM * ON APRIL 28, 1986 *
- 50 REM * *
- 55 REM ********************************
- 135 POKE52,62:POKE56,62:CLR
- 140 PRINT"[147]LOADING DATA, PLEASE BE PATIENT........"
- 150 VC=53248:SA=15872:SP=2040:PV=248:SC=0:SD=54272:DIMP1(14),P2(14),P3(14)
- 190 J1$="JE[158]L[159]LY[157][157][157][157][157][154]B[150]E[153]A[159]N[156]S"
- 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"
- 210 L$="":L1$=LEFT$(L$,3):L2$=LEFT$(L$,11)
- 220 L3$=LEFT$(L$,17):L4$=LEFT$(L$,23):C=0:P=0:VP=0:T1=0:PI=0:PR$=""
- 221 L7$=LEFT$(L$,7):L8$=LEFT$(L$,15):L9$=LEFT$(L$,20)
- 222 K2$=LEFT$(L$,18):K3$=LEFT$(L$,6):K4$=LEFT$(L$,2)
- 225 L5$=LEFT$(L$,13):L6$=LEFT$(L$,19)
- 230 C1$(1)="[209] ":C1$(2)="[209][209] ":C1$(3)="[209][209][209]":C1$(4)="[209][209][209][157][157][157][209] [145]"
- 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]"
- 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]"
- 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]"
- 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]"
- 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]"
- 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)=""
- 285 CP2$="[145][145]":CP3$="[145]"
- 300 FORW=0TO511:READDS:POKESA+W,DS:NEXT
- 305 FORW=SDTOSD+24:POKESD,0:NEXT
- 310 FORM=1TO14:READP1,P2,P3:P1(M)=P1:P2(M)=P2:P3(M)=P3:NEXT
- 315 POKESD+24,15
- 320 GOSUB9800
- 999 :
- 1000 REM ******** PICK FACT FAMILY ******
- 1001 :
- 1010 PRINT"[147]":POKE53280,6:POKE53281,1
- 1020 PRINTL2$TAB(5)"PRESS THE NUMBER KEY":PRINT
- 1030 PRINTTAB(5)"OF THE FACT FAMILY YOU":PRINT:PRINTTAB(5)"WANT TO LEARN"
- 1035 PRINT:PRINTTAB(5)"PRESS <RETURN>";
- 1038 INPUTN1
- 1040 IFN1<1ORN1>9THENPRINT:PRINTTAB(5)"1 TO 9 ONLY";:GOTO1038
- 1045 GOSUB9880
- 1067 :
- 1068 REM ******* TUTORIAL SUBROUTINE ********
- 1069 :
- 1070 PRINT"[147]"
- 1080 FORN2=0TO9:PRINT"[147]":POKE53280,6
- 1090 GOSUB8200
- 1095 PR=N1*N2
- 1100 PRINTL1$TAB(15)""N1"[144]X"N2:PRINT:PRINTTAB(16)"MEANS":PRINT
- 1110 IFN1=1THENPRINTTAB(12)""N1"GROUP OF"N2:GOTO1117
- 1115 PRINTTAB(11)""N1"GROUPS OF"N2
- 1117 GOSUB8000
- 1120 PRINTL4$"HOW MANY [159][209]'S DO YOU COUNT?<R> ?[157]";
- 1122 GOSUB9650
- 1129 POKE198,0:PR$=""
- 1130 GETA$:IFA$=""THEN1130
- 1132 IFA$=CHR$(13)THEN1180
- 1133 IFA$=CHR$(20)THENPRINTL4$TAB(28)" [157][157][157][157]";:A$="":GOTO1120
- 1134 IFASC(A$)<48ORASC(A$)>57THEN1130
- 1135 IFLEN(PR$)>2THENA$="":GOTO1130
- 1138 PRINTA$;
- 1140 PR$=PR$+A$
- 1150 GOTO 1130
- 1180 IFVAL(PR$)=PRTHEN1210
- 1190 PRINTL4$" "
- 1194 GOSUB9700
- 1200 PRINTL4$" NOT RIGHT! COUNT AGAIN.<R> ?[157]";:SC=SC+1
- 1205 GOSUB9650:GOTO1129
- 1210 GOSUB 8500
- 1220 FORZ=1TO1000:NEXT
- 1230 NEXT
- 1235 POKEVC+21,0
- 1240 IFSC>2THEN1291
- 1250 PRINT"[147]":PRINTL2$TAB(11)"V E [159]R [156]Y G [158]O [150]O [154]D":PRINT:PRINT
- 1260 PRINTTAB(11)"YOU HAVE FINISHED":PRINT
- 1270 PRINTTAB(14)"LEARNING THE":PRINT:PRINTTAB(10)"MULTIPLICATION FACTS":PRINT
- 1280 PRINTTAB(17)"FOR"N1
- 1290 GOSUB9500:GOTO1300
- 1291 PRINT"[147]":PRINTL2$TAB(5)"YOU MADE"SC"MISTAKES.":PRINT
- 1292 PRINTTAB(5)"YOU SHOULD DO THIS SECTION":PRINT
- 1293 PRINTTAB(5)"AGAIN."
- 1294 FORX=1TO500:NEXT
- 1300 PRINTL4$" <C>ONTINUE, <R>EPEAT, OR <Q>UIT"
- 1305 POKE198,0
- 1310 GETZ$:IFZ$=""THEN1310
- 1320 IFZ$="Q"THENPRINT"[147]"L2$TAB(18)"BYE":SYS64738
- 1330 IFZ$="R"THENSC=0:GOTO1070
- 1340 IFZ$<>"C"THENPRINTL$"[144]PRESS C, R, Q ONLY":GOTO1305
- 1496 :
- 1497 REM ***** DRILL ON SELECTED FACTS *****
- 1499 :
- 1500 PRINT"[147]":POKE53280,6:SC=0
- 1510 PRINTL1$"DO YOU WANT COUNTERS? Y/N"
- 1514 POKE198,0
- 1515 GETZ$:IFZ$=""THEN1515
- 1516 IFZ$="Y"THENC=1:GOTO1525
- 1517 IFZ$<>"N"THEN1515
- 1525 PRINT"[147]"
- 1530 PRINTL1$" "N1" "N1" "N1" "N1" "N1" "N1" "N1" "N1" "N1" "N1
- 1540 PRINT"[144]X"0;
- 1550 FORX=1TO9:PRINT"[144]X"X;
- 1560 NEXT
- 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
- 1580 POKEVC,48:POKEVC+1,210:POKEVC+16,0
- 1590 POKEVC+39,14:POKEVC+23,1:POKEVC+29,1:POKESP,PV+3:POKEVC+21,1
- 2075 FORN2=0TO9
- 2078 IFC=0THEN2084
- 2080 GOSUB8100
- 2084 PRINTL9$TAB(10)"I WANT J[158]EL[159]LY[150]B[154]E[156]A[158]NS[144]! "
- 2085 PRINTL7$TAB(T)"?"
- 2090 PRINTL4$TAB(10)"[154] ENTER ANSWER <R> "
- 2095 GOSUB9650
- 2100 POKE198,0:PR$=""
- 2110 GETA$:IFA$=""THEN2110
- 2115 IFASC(A$)<48ORASC(A$)>57THEN2110
- 2120 IFN1*N2<10THENPRINTLEFT$(L$,7)TAB(T)"[156]"A$:PR$=PR$+A$:GOTO2130
- 2125 PRINTL7$TAB(T-1)"[156]"A$:PR$=PR$+A$
- 2130 IFN1*N2<10THEN2170
- 2135 POKE198,0
- 2136 GETA$:IFA$=""THEN2136
- 2137 IFA$=CHR$(20)THENPRINTL7$TAB(T-1)" ":A$="":GOTO2085
- 2140 IFA$=CHR$(13)THEN2180
- 2145 IFASC(A$)<48ORASC(A$)>57THENA$="":GOTO2136
- 2146 PR$=PR$+A$
- 2150 PRINTL7$TAB(T)"[156]"A$:GOTO2170
- 2160 GOTO2190
- 2170 GETA$:IFA$=""THEN2170
- 2174 IFA$=CHR$(20)THENPRINTL7$TAB(T-1)" ":GOTO2085
- 2176 IFA$<>CHR$(13)THEN2170
- 2180 IFVAL(PR$)=N1*N2THEN2210
- 2183 GOSUB9700
- 2185 PRINTL7$TAB(T-1)" [157]?":SC=SC+1
- 2187 REMGOSUB9650
- 2190 PRINTL4$" "
- 2200 PRINTL4$TAB(10)" NOT RIGHT! TRY AGAIN. "
- 2205 FORW=1TO1000:NEXT:PRINTL4$" ":GOTO2090
- 2210 GOSUB9100
- 2220 T=T+4
- 2230 FORZ=1TO1000:NEXT
- 2240 POKE53280,6
- 2250 NEXT
- 2254 POKEVC+21,0
- 2255 IFSC>2THEN2292
- 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
- 2270 PRINTTAB(11)"YOU HAVE COMPLETED":PRINT
- 2280 PRINTTAB(10)"PRACTICING THE FACTS":PRINT
- 2290 PRINTTAB(17)"FOR"N1:GOTO2300
- 2292 PRINT"[147]":PRINTL2$TAB(5)"YOU MADE"SC"MISTAKES":PRINT
- 2294 PRINTTAB(5)"YOU SHOULD DO THIS SECTION":PRINT:PRINTTAB(5)"AGAIN"
- 2296 FORW=1TO500:NEXT:GOTO2310
- 2300 GOSUB9500
- 2310 PRINTL4$"[159] <C>ONTINUE, <R>EPEAT, OR <Q>UIT"
- 2320 POKE198,0
- 2340 GETZ$:IFZ$=""THEN2340
- 2350 IFZ$="Q"THENPRINT"[147]"L2$TAB(18)"BYE":SYS64738
- 2360 IFZ$="R"THENC=0:GOTO1500
- 2370 IFZ$<>"C"THENPRINT"[144]PRESS C, R, Q ONLY":GOTO2340
- 2996 :
- 2997 REM ***** DRILL SUBPROGRAM *****
- 2999 :
- 3000 PRINT"[147]":POKE53280,3:SC=0:P=4
- 3020 PRINTL2$TAB(8)"TIME TO SEE HOW WELL YOU":PRINT
- 3021 PRINTTAB(8)"LEARNED THE FACTS FOR"N1
- 3030 FORW=1TO10:M(W)=10:NEXT
- 3040 FORX=1TO10
- 3050 R=INT(RND(0)*10)
- 3060 FORY=1TO10
- 3070 IFR=M(Y)THENY=10:NEXT:GOTO3050
- 3080 NEXT Y
- 3090 M(X)=R
- 3100 NEXT X
- 3105 PRINT"[147]"
- 3110 FORX=1TO10
- 3145 PRINTL2$TAB(15)" "
- 3150 PRINTL8$TAB(9)" "
- 3160 POKEVC,82:POKEVC+1,174
- 3170 POKEVC+39,6:POKEVC+23,1:POKEVC+29,1:POKESP,PV+5
- 3180 POKEVC+21,1
- 3200 PRINTL8$TAB(6)"[153] [157] [157] [157] [157] [157] [146]"
- 3210 PRINTTAB(6)" [146]"
- 3220 PRINTTAB(6)"[181] [182]":PRINTTAB(6)"[181] [182]"
- 3230 PRINT"[144] ":PRINT" [146] ENTER ANSWER <R>"
- 3240 PRINTLEFT$(L$,P);
- 3250 FORH=1TO10-SC:PRINTJ1$:NEXT
- 4210 PRINTL2$TAB(15)""N1"[144]X"M(X)"= ?[157]";
- 4212 GOSUB9650
- 4215 POKE198,0:PR$=""
- 4220 GETA$:IFA$=""THEN4220
- 4225 IFA$=CHR$(13)THEN4250
- 4230 IFA$=CHR$(20)THENPRINTL2$TAB(24)"? [157][157][157][157]";:GOTO4212
- 4235 IFASC(A$)<48ORASC(A$)>57THENA$="":GOTO4220
- 4237 IFLEN(PR$)>2THENA$="":GOTO4220
- 4240 PRINTA$;:PR$=PR$+A$:GOTO4220
- 4250 IFVAL(PR$)=N1*M(X)THENSC=SC+1:GOTO4290
- 4255 GOSUB9700
- 4260 PRINTL3$TAB(8)" ":POKEVC+39,0
- 4265 PRINTL8$TAB(9)"[144]WHERE ARE MY JELLYBEANS!"
- 4270 FORW=1TO2000:NEXT:POKEVC+39,6:GOTO4310
- 4280 GOTO4220
- 4290 GOSUB9250
- 4300 FORW=1TO1000:NEXT:POKE53280,3
- 4310 NEXT
- 4400 PRINT"[147]":POKE53280,2:POKEVC+21,0
- 4410 PRINTL2$TAB(9)"YOUR SCORE IS"INT((SC*100)/10)"PERCENT":PRINT
- 4415 IFSC>7THEN4440
- 4420 IFSC<8THENPRINTTAB(10)"YOU NEED MORE PRACTICE":PRINT
- 4430 PRINTTAB(12)"ON THE FACTS FOR"N1:GOTO4480
- 4440 PRINTTAB(10)"YOU DID A TERRIFIC JOB"
- 4445 GOSUB9500:GOTO4500
- 4480 FORW=1TO1000:NEXT
- 4500 PRINTL4$TAB(10)"[159]<R>EPEAT OR <Q>UIT"
- 4510 POKE198,0
- 4520 GETZ$:IFZ$=""THEN4520
- 4530 IFZ$="R"THEN3000
- 4540 IFZ$="Q"THENPRINT"[147]"L2$TAB(18)"BYE!":SYS64738
- 4550 PRINTL4$TAB(10)"[144]PRESS <R> OR <Q> ONLY":GOTO4520
- 7997 :
- 7998 REM ***** COUNTERS FOR TUTORIAL SUBROUTINE *****
- 7999 :
- 8000 PRINTL2$TAB(8)"[144]"N2;
- 8015 IFN1=1THEN8050
- 8020 FORX=2TON1:PRINT" +"N2;
- 8030 IFX=5THENPRINTL3$TAB(6);
- 8040 NEXT
- 8050 PRINTL5$TAB(7)"[159]"C1$(N2);
- 8055 IFN1=1THEN8090
- 8060 FORX=2TON1:PRINTC1$(N2);
- 8070 IFX=5THENPRINTL6$TAB(7);
- 8080 NEXT
- 8090 RETURN
- 8097 :
- 8098 REM ***** COUNTERS FOR PART 2 ****
- 8099 :
- 8100 FORW=1TO9
- 8115 IFN2=0THEN8140
- 8120 PRINTL2$TAB(T)"[159]"C2$(N1);
- 8140 NEXT
- 8150 RETURN
- 8196 :
- 8197 REM **** PRINT GRAPHICS PT 1 ****
- 8199 :
- 8200 PRINTK4$TAB(34)"[159]JEL[158]LY"
- 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]"
- 8230 FORX=1TO19:PRINTTAB(35)"[204][186]":NEXT:PRINTTAB(35)"[204][186]"
- 8240 POKEVC+16,1:POKEVC,35:POKEVC+1,208
- 8250 POKEVC+39,14:POKEVC+23,1:POKEVC+29,1
- 8260 POKESP,PV:POKEVC+21,1
- 8270 PRINTK2$TAB(29)"I WANT":PRINTTAB(29)"JE[158]L[159]L[156]Y"
- 8280 PRINTTAB(29)"[150]B[154]EA[158]N[159]S[144]"
- 8490 RETURN
- 8497 :
- 8498 REM **** CORRECT ANSWER PT 1 *****
- 8499 :
- 8500 POKE53280,2:GOSUB9750
- 8510 FORQ=1TO19
- 8515 PI=PEEK(VC+1)
- 8520 FORW=1TO8:POKEVC+1,PI-W:NEXT
- 8525 GOSUB8820
- 8529 POKESD+4,0
- 8530 IFPEEK(SP)=PVTHENPOKESP,PV+1:GOTO8560
- 8540 POKESP,PV
- 8560 NEXT
- 8570 FORW=0TO4
- 8575 POKESP,PV+2:PRINTL1$TAB(28)"WOW!"
- 8577 PRINTK4$TAB(34+W)" [157] "
- 8580 POKESD+5,134:POKESD+6,132:POKESD+4,17
- 8582 POKESD,100
- 8585 FORQ=48TO60:POKESD+1,Q:NEXT
- 8587 FORQ=60TO48STEP-1:POKESD+1,Q:NEXT
- 8600 FORQ=1TO100:NEXT
- 8605 POKE54276,0
- 8610 POKESP,PV:PRINTL1$TAB(28)" "
- 8620 FORQ=1TO100:NEXT
- 8630 NEXT
- 8640 FORQ=1TO19
- 8650 PI=PEEK(VC+1)
- 8670 FORW=1TO8:POKEVC+1,PI+W:NEXT
- 8674 GOSUB8820
- 8675 POKE54276,0
- 8680 IFPEEK(SP)=PVTHENPOKESP,PV+1:GOTO8700
- 8690 POKESP,PV
- 8700 REMFORV=1TO50:NEXT
- 8710 NEXT
- 8720 PRINTK2$TAB(28)"TH[158]AN[159]K[156]S ":PRINTTAB(29)"VERY "
- 8730 PRINTTAB(29)"MUCH! "
- 8800 RETURN
- 8809 :
- 8810 REM **** CLIMBING LADDER SOUND *****
- 8811 :
- 8820 POKESD+5,1:POKESD+6,8:POKESD+4,129:POKESD+1,75:POKESD,69
- 8825 FORB=1TO30:NEXT
- 8830 RETURN
- 9097 :
- 9098 REM **** CORRECT ANSWERS PART 2 ****
- 9099 :
- 9100 VP=45:T1=10:PRINTL9$TAB(10)" ":POKEVC+21,1
- 9110 POKE53280,2:PRINTL4$TAB(10)"J [158]E L [159]L Y [150]B [154]E [158]A [156]N [159]S "
- 9115 GOSUB9750
- 9120 FORX=1TO10
- 9130 FORY=1TO16:POKEVC,VP+Y:NEXT
- 9140 POKESP,PV+4:POKEVC+39,2
- 9145 PRINTL9$TAB(T1-4)"SMACK[144]!"
- 9150 POKE54277,1:POKE54278,8:POKE54276,129
- 9155 POKE54273,253:POKE54272,46
- 9160 FORZ=1TO50:NEXT
- 9165 POKE54276,0
- 9170 POKEVC+39,14:POKESP,PV+3
- 9180 PRINTL9$TAB(T1-4)" ":VP=VP+16
- 9185 PRINTL4$TAB(T1)" ":T1=T1+2
- 9190 NEXT
- 9200 POKESD+5,136:POKESD+6,134
- 9205 POKESD+4,33:POKESD,150
- 9225 FORJ=205TO44STEP-3:POKEVC,J
- 9230 POKESD+1,J
- 9235 NEXT
- 9236 POKESD+4,0
- 9240 PRINTL9$TAB(10)"THANKS, THANKS BUNCHES!"
- 9245 RETURN
- 9247 :
- 9248 REM **** CORRECT RESPONSE PART 3 ****
- 9249 :
- 9250 POKE53280,2:PRINTLEFT$(L$,17)TAB(8)J$:POKEVC+39,2
- 9265 PRINTLEFT$(L$,P)" [157][157][157][157][157] ":P=P+2
- 9267 GOSUB9750
- 9270 FORY=LEN(J$)TO0STEP-1
- 9290 PRINTL3$TAB(8)RIGHT$(J$,Y)" "
- 9300 POKESP,PV+6:FORW=1TO50:NEXT
- 9305 PRINTL8$TAB(9)"[144]CHOMP!"
- 9310 POKESD+5,1:POKESD+6,8:POKESD+4,129
- 9320 POKESD+1,5:POKESD,33
- 9380 POKESP,PV+7:FORW=1TO50:NEXT
- 9385 POKESD+4,0
- 9390 PRINTL8$TAB(9)" "
- 9400 NEXT
- 9410 PRINTL3$TAB(9)"[145] "
- 9420 PRINTL8$TAB(11)"THANKS! THAT WAS YUMMY!"
- 9430 POKESP,PV+5
- 9435 FORW=1TO100:NEXT
- 9440 POKEVC+39,6
- 9450 RETURN
- 9497 :
- 9498 REM **** PLAY HAIL, HAIL THE GANG'S ALL HERE ****
- 9499 :
- 9500 POKESD+5,136:POKESD+6,132
- 9520 FORM=1TO12:GOSUB9600:NEXT
- 9545 FORM=7TO12:GOSUB9600:NEXT
- 9560 FORM=1TO11:GOSUB9600:NEXT
- 9575 FORM=13TO14:GOSUB9600:NEXT
- 9590 RETURN
- 9597 :
- 9598 REM **** PARAMETERS FOR MUSIC ****
- 9599 :
- 9600 POKESD+4,33:POKESD+1,P1(M):POKESD,P2(M)
- 9610 FORW=1TOP3(M):NEXT
- 9620 POKESD+4,32
- 9630 RETURN
- 9647 :
- 9648 REM ***** SIGNAL TO IMPUT RESPONSE *****
- 9649 :
- 9650 POKESD+3,8:POKESD+5,0:POKESD+6,240:POKESD+1,25:POKESD,47:POKESD+4,65
- 9660 FORW=1TO50:NEXT
- 9665 POKESD+4,0
- 9670 RETURN
- 9697 :
- 9698 REM **** ERROR SOUND SUBROUTINE ****
- 9699 :
- 9700 POKESD+5,8:POKESD+6,136:POKESD+4,33
- 9720 POKESD+1,8:POKESD,97
- 9730 FORZ=1TO200:NEXT:POKESD+4,0
- 9740 RETURN
- 9747 :
- 9748 REM ****** WOLF WHISTLE ****
- 9749 :
- 9750 POKESD+5,136:POKESD+6,134:POKESD+4,17:POKESD,150
- 9760 FORJ=50TO250STEP5:POKESD+1,J:NEXT
- 9765 FORJ=100TO250STEP5:POKESD+1,J:NEXT
- 9770 FORJ=250TO50STEP-5:POKESD+1,J:NEXT
- 9785 POKESD+4,0
- 9790 RETURN
- 9797 :
- 9798 REM **** TITLE SCREEN *****
- 9799 :
- 9800 PRINT"[147]":POKE53281,1:POKE53280,4
- 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]"
- 9815 PRINTTAB(10)"[209]"TAB(28)"[209]"
- 9820 PRINTTAB(10)"[156][209]";TAB(28)"[209]"
- 9830 PRINTTAB(10)"[209] JE[158]LLY[159]B[150]E[156]A[154]N [209]"
- 9835 PRINTTAB(10)"[159][209]"TAB(28)"[209]"
- 9840 PRINTTAB(10)"[159][209]"TAB(28)"[158][209]"
- 9845 PRINTTAB(10)"[209]"TAB(17)"[156]MATH"TAB(28)"[154][209]"
- 9846 PRINTTAB(10)"[154][209]"TAB(28)"[159][209]"
- 9850 PRINTTAB(10)"[209]"TAB(18)"BY"TAB(28)"[209]"
- 9855 PRINTTAB(10)"[158][209]"TAB(28)"[150][209]"
- 9860 PRINTTAB(10)"[209] FRAN BLOOMER [209]"
- 9865 PRINTTAB(10)"[154][209]"TAB(28)"[159][209]"
- 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]"
- 9875 GOSUB9500
- 9876 RETURN
- 9877 :
- 9878 REM ***** MENU *****
- 9879 :
- 9880 PRINT"[147]":PRINTTAB(15)"CHOOSE ONE":PRINT:PRINTTAB(13)"PRESS <RETURN>"
- 9890 PRINT:PRINT:PRINTTAB(11)"<L>EARN THE FACTS":PRINT
- 9895 PRINTTAB(11)"<P>RACTICE THE FACTS":PRINT
- 9900 PRINTTAB(11)"<T>EST YOUR SKILL":PRINT:PRINTTAB(11)"<Q>UIT"
- 9905 PRINT:PRINTTAB(11);:INPUTZ$
- 9920 IFZ$="Q"THENPRINT"[147]":PRINTL2$TAB(18)"BYE!":SYS64738
- 9930 IFZ$="L"THEN1070
- 9940 IFZ$="P"THEN1500
- 9950 IFZ$="T"THEN3000
- 9960 PRINT:PRINTTAB(5)"[144]PRESS <L>, <P>, <T>, OR <Q>":GOTO9905
- 9990 RETURN
- 9997 :
- 9998 REM SPRITE DATA
- 10000 :
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 11009 DATA0,0,0,0,255,0,3,255,192,15,255,240,31,255,248,63
- 11011 DATA207,252,127,135,254,255,207,248,255,255,192,255,254,0,255,248
- 11013 DATA0,255,254,0,255,255,192,255,255,248,127,255,254,63,255,252
- 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
- 11018 DATA192,15,255,240,31,255,248,63,255,252,127,135,254,255,255,255
- 11020 DATA255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
- 11022 DATA255,255,127,255,254,63,255,252,31,255,248,15,255,240,3,255
- 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
- 11103 DATA24,0,112,24,0,252,48,0,252,240,0,255,192,0,255,0,0,252,0,0,252,0,0
- 11106 DATA252,0,0,252,0,0,252,0,0,252,0,12,252,0,12,255,255
- 11108 DATA236,255,255,252,255,255,252,255,248,0,0,232,0,0,252,0
- 11110 DATA0,224,192,0,224,192,0,248,96,0,112,96,0,252,48,0
- 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
- 11115 DATA252,0,0,252,0,6,255,255,236,255,255,248,255,255,248,255
- 11117 DATA248,0,0,232,0,0,252,0,0,249,128,0,249,224,0,248
- 11119 DATA96,0,112,48,0,252,240,0,255,192,0,255,0,0,252,0
- 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
- 11124 DATA236,255,255,248,255,255,248,255
- 11148 :
- 11149 REM **** MUSIC DATA ****
- 11150 :
- 11151 DATA 31,165,600,31,165,400,28,49,100,28,49,300
- 11152 DATA 25,30,300,18,206,600,18,209,200,21,31,100
- 11153 DATA 23,181,200,18,209,200,21,31,300,18,209,300
- 11154 DATA 37,162,200,25,30,600
-