( ********************************O * *v * JELLYBEAN MATH * * * * BY * * * # * FRAN BLOOMER *9 $ * *` & * UPLOADED * ( * * * * TO PUBLIC DOMAIN * - * * / * ON APRIL 28, 1986 *# 2 * *J 7 ********************************^ 52,62:56,62: "LOADING DATA, PLEASE BE PATIENT........" VC53248:SA15872:SP2040:PV248:SC0:SD54272:P1(14),P2(14),P3(14) J1$"JELLYBEANS"G T0: N10:N20:PRN1N2: C1$(9),C2$(10),M(10):J$"JELLBEANS" L$"":L1$(L$,3):L2$(L$,11) L3$(L$,17):L4$(L$,23):C0:P0:VP0:T10:PI0:PR$"" L7$(L$,7):L8$(L$,15):L9$(L$,20) K2$(L$,18):K3$(L$,6):K4$(L$,2)1 L5$(L$,13):L6$(L$,19)y C1$(1)" ":C1$(2)" ":C1$(3)"":C1$(4)" " C1$(5)" ":C1$(6)"ё":C1$(7)" " C1$(8)" ":C1$(9)"ё"T C2$(1)"":C2$(2)"ё":C2$(3)"ё":C2$(4)"ё" C2$(5)"ё":C2$(6)"ё" C2$(7)"ё":C2$(8)"ё"C2$(9)"ё":C2$(0)""3CP2$"":CP3$""O,W0511:DS:SAW,DS:g1WSDSD24:SD,0:6M114:P1,P2,P3:P1(M)P1:P2(M)P2:P3(M)P3:;SD24,15@9800: ******** PICK FACT FAMILY ******:"":53280,6:53281,1%L2$5)"PRESS THE NUMBER KEY":\5)"OF THE FACT FAMILY YOU"::5)"WANT TO LEARN"x :5)"PRESS ";N1N11N19:5)"1 TO 9 ONLY";:10389880+:, ******* TUTORIAL SUBROUTINE ********-:.""8N209:"":53280,6B8200%GPRN1N2OLL1$15)""N1"X"N2::16)"MEANS":wVN1112)""N1"GROUP OF"N2:1117[11)""N1"GROUPS OF"N2]8000`L4$"HOW MANY 'S DO YOU COUNT? ?";b9650i198,0:PR$""jA$:A$""1130lA$(13)1180@mA$(20)L4$28)" ";:A$"":1120\n(A$)48(A$)571130vo(PR$)2A$"":1130rA$;tPR$PR$A$~ 1130(PR$)PR1210L4$" "9700L4$" NOT RIGHT! COUNT AGAIN. ?";:SCSC1(9650:11293 8500CZ11000:IVVC21,0eSC21291"":L2$11)"V E R Y G O O D"::11)"YOU HAVE FINISHED":14)"LEARNING THE"::10)"MULTIPLICATION FACTS":17)"FOR"N1 9500:1300: "":L2$5)"YOU MADE"SC"MISTAKES.":a 5)"YOU SHOULD DO THIS SECTION":r 5)"AGAIN."X1500:L4$" ONTINUE, EPEAT, OR UIT"198,0Z$:Z$""1310(Z$"Q"""L2$18)"BYE":64738 2Z$"R"SC0:10706<Z$"C"L$"PRESS C, R, Q ONLY":1305<:g ***** DRILL ON SELECTED FACTS *****m:"":53280,6:SC0L1$"DO YOU WANT COUNTERS? Y/N"198,0Z$:Z$""1515Z$"Y"C1:1525Z$"N"1515""6L1$" "N1" "N1" "N1" "N1" "N1" "N1" "N1" "N1" "N1" "N1C"X"0;WX19:"X"X;]"" ":T2,VC,48:VC1,210:VC16,06VC39,14:VC23,1:VC29,1:SP,PV3:VC21,1N209C02084 81007$L9$10)"I WANT JELLYBEANS! "G%L7$T)"?"m*L4$10)" ENTER ANSWER "w/96504198,0:PR$"">A$:A$""2110C(A$)48(A$)572110HN1N210(L$,7)T)""A$:PR$PR$A$:2130ML7$T1)""A$:PR$PR$A$RN1N2102170%W198,09XA$:A$""2136bYA$(20)L7$T1)" ":A$"":2085u\A$(13)2180a(A$)48(A$)57A$"":2136bPR$PR$A$fL7$T)""A$:2170p2190zA$:A$""2170~A$(20)L7$T1)" ":2085A$(13)2170+(PR$)N1N2221059700RL7$T1)" ?":SCSC1aGOSUB9650L4$" "L4$10)" NOT RIGHT! TRY AGAIN. "W11000::L4$" ":20909100TT4Z11000: 53280,6&3VC21,0BSC22292y"":L2$12)"CONGRATULATIONS"::11)"YOU HAVE COMPLETED":10)"PRACTICING THE FACTS":17)"FOR"N1:2300"":L2$5)"YOU MADE"SC"MISTAKES":25)"YOU SHOULD DO THIS SECTION"::5)"AGAIN"GW1500::2310Q9500 L4$" ONTINUE, EPEAT, OR UIT" 198,0$ Z$:Z$""2340. Z$"Q"""L2$18)"BYE":647388 Z$"R"C0:1500B Z$"C""PRESS C, R, Q ONLY":2340  :, ***** DRILL SUBPROGRAM *****2 :M "":53280,3:SC0:P4v L2$8)"TIME TO SEE HOW WELL YOU": 8)"LEARNED THE FACTS FOR"N1 W110:M(W)10: X110 R((0)10) Y110 RM(Y)Y10::3050 Y M(X)R  X! "" & X110@I L2$15)" "lN L8$9)" "X VC,82:VC1,174b VC39,6:VC23,1:VC29,1:SP,PV5l VC21,1 L8$6)"      " 6)" " 6)" ":6)" "Y " ":"  ENTER ANSWER "g (L$,P);} H110SC:J1$:rL2$15)""N1"X"M(X)"= ?";t9650w198,0:PR$""|A$:A$""4220A$(13)4250 A$(20)L2$24)"? ";:4212.(A$)48(A$)57A$"":4220H(PR$)2A$"":4220bA$;:PR$PR$A$:4220(PR$)N1M(X)SCSC1:42909700L3$8)" ":VC39,0L8$9)"WHERE ARE MY JELLYBEANS!"W12000::VC39,6:43104220 9250"W11000::53280,3(C0"":53280,2:VC21,0x:L2$9)"YOUR SCORE IS"((SC100)10)"PERCENT":?SC74440DSC810)"YOU NEED MORE PRACTICE":N12)"ON THE FACTS FOR"N1:4480X10)"YOU DID A TERRIFIC JOB" ]9500:4500 W11000:; L4$10)"EPEAT OR UIT"F 198,0Z Z$:Z$""4520k Z$"R"3000 Z$"Q"""L2$18)"BYE!":64738 L4$10)"PRESS OR ONLY":4520 =: > ***** COUNTERS FOR TUTORIAL SUBROUTINE ***** ?: !@L2$8)""N2;!ON1180500!TX2N1:" +"N2;B!^X5L3$6);H!h_!rL5$7)""C1$(N2);n!wN118090!|X2N1:C1$(N2);!X5L6$7);!!!:! ***** COUNTERS FOR PART 2 ****!:!W19!N208140"L2$T)""C2$(N1); """ ::" **** PRINT GRAPHICS PT 1 ****@" :Y" K4$34)"JELLY"" L1$32)" BEANS":33)"ͯ":35)"̺""& X119:35)"̺"::35)"̺""0 VC16,1:VC,35:VC1,208": VC39,14:VC23,1:VC29,1#D SP,PV:VC21,1/#N K2$29)"I WANT":29)"JELLY"G#X 29)"BEANS"M#*!S#1!:x#2! **** CORRECT ANSWER PT 1 *****~#3!:#4!53280,2:9750#>!Q119#C!PI(VC1)#H!W18:VC1,PIW:#M!8820#Q!SD4,0#R!(SP)PVSP,PV1:8560$\!SP,PV$p!$z!W040$!SP,PV2:L1$28)"WOW!"E$!K4$34W)"  "f$!SD5,134:SD6,132:SD4,17r$!SD,100$!Q4860:SD1,Q:$!Q60481:SD1,Q:$!Q1100:$!54276,0$!SP,PV:L1$28)" "$!Q1100:$!$!Q119 %!PI(VC1)!%!W18:VC1,PIW:+%!88208%!54276,0U%!(SP)PVSP,PV1:8700`%!SP,PVu%!FORV=1TO50:NEXT{%"%"K2$28)"THANKS ":29)"VERY "%"29)"MUCH! "%`"%i":%j" **** CLIMBING LADDER SOUND *****%k":&t"SD5,1:SD6,8:SD4,129:SD1,75:SD,69-&y"B130:3&~"9&#:`&# **** CORRECT ANSWERS PART 2 ****f&#:&#VP45:T110:L9$10)" ":VC21,1퀠,2:L4$10)"J E L L Y B E A N S "☖Đ'#Y116:VC,VPY:'#SP,PV4:VC39,20'#L9$T14)"SMACK!"Q'#54277,1:54278,8:54276,129j'#54273,253:54272,46x'#Z150:'#54276,0'#VC39,14:SP,PV3'#L9$T14)" ":VPVP16'#L4$T1)" ":T1T12'#'#SD5,136:SD6,134(#SD4,33:SD,150( $J205443:VC,J*($SD1,J0($<($SD4,0c($L9$10)"THANKS, THANKS BUNCHES!"i($o($:( $ **** CORRECT RESPONSE PART 3 ****(!$:("$53280,2:(L$,17)8)J$:VC39,2(1$(L$,P)"  ":PP2(3$9750)6$Y(J$)01)J$L3$8)(J$,Y)" "0)T$SP,PV6:W150:E)Y$L8$9)"CHOMP!"c)^$SD5,1:SD6,8:SD4,129v)h$SD1,5:SD,33)$SP,PV7:W150:)$SD4,0)$L8$9)" ")$)$L3$9)" ")$L8$11)"THANKS! THAT WAS YUMMY!")$SP,PV5*$W1100:*$VC39,6*$*%:S*% **** PLAY HAIL, HAIL THE GANG'S ALL HERE ****Y*%:q*%SD5,136:SD6,132*0%M112:9600:*I%M712:9600:*X%M111:9600:*g%M1314:9600:*v%*}%:*~% **** PARAMETERS FOR MUSIC *****%:+%SD4,33:SD1,P1(M):SD,P2(M)-+%W1P3(M)::+%SD4,32@+%F+%:q+% ***** SIGNAL TO IMPUT RESPONSE *****w+%:+%SD3,8:SD5,0:SD6,240:SD1,25:SD,47:SD4,65+%W150:+%SD4,0+%+%:+% **** ERROR SOUND SUBROUTINE ****,%: ,%SD5,8:SD6,136:SD4,333,%SD1,8:SD,97J,&Z1200::SD4,0P, &V,&:u,& ****** WOLF WHISTLE ****{,&:,&SD5,136:SD6,134:SD4,17:SD,150, &J502505:SD1,J:,%&J1002505:SD1,J:,*&J250505:SD1,J:-9&SD4,0->& -E&:*-F& **** TITLE SCREEN *****0-G&:K-H&"":53281,1:53280,4-R&K3$10)"ќўџіњќўџіџќ"-W&10)""28)""-\&10)"";28)""-f&10)" JELLYBEAN "-k&10)""28)"".p&10)""28)""$.u&10)""17)"MATH"28)"":.v&10)""28)""Y.z&10)""18)"BY"28)""o.&10)""28)"".&10)" FRAN BLOOMER ".&10)""28)"".&10)"ўќњіўџќўџњў".&9500.&.&:/& ***** MENU ***** /&:?/&"":15)"CHOOSE ONE"::13)"PRESS "b/&::11)"EARN THE FACTS":/&11)"

RACTICE THE FACTS":/&11)"EST YOUR SKILL"::11)"UIT"/&:11);:Z$/&Z$"Q""":L2$18)"BYE!":64738/&Z$"L"1070 0&Z$"P"15000&Z$"T"3000K0&:5)"PRESS ,

, , OR ":9905Q0'W0 ':i0' SPRITE DATAo0':0'1,0,0,1,0,0,1,50,0,1,121,0,1,216,128,1,121,0,1,50,0,1,254,00'0,252,0,0,120,0,0,120,0,0,252,0,0,252,0,1,220,0,3,12,0,3,12,031'1,140,0,0,204,0,0,76,0,0,140,0,0,6,0,243,0,4,0,0,4,0,2,100x1'0,4,244,0,8,220,0,4,244,0,2,100,0,3,252,0,1,248,0,0,240,0,0,2401'00,1,248,0,1,248,0,1,220,0,1,134,0,1,134,0,1,140,0,1,152,0,1,1441 '0,1,136,0,3,0,0,243,0,0,0,0,0,0,0,50,0,0,121,0,15,248,128,4C2*121,0,2,50,0,1,254,0,0,252,0,0,120,0,0,120,0,0,252,0,0,252,0,12*220,0,3,12,0,3,12,0,1,140,0,0,204,0,0,76,0,0,140,0,0,6,0,2432+0,0,0,0,255,0,3,255,192,15,255,240,31,255,248,632+207,252,127,135,254,255,207,248,255,255,192,255,254,0,255,248>3+0,255,254,0,255,255,192,255,255,248,127,255,254,63,255,2523+31,255,248,15,255,240,3,255,192,0,255,0,0,0,0,0,0,0,0,0,255,0,3,2553 +192,15,255,240,31,255,248,63,255,252,127,135,254,255,255,2554 +255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255N4+255,255,127,255,254,63,255,252,31,255,248,15,255,240,3,2554+192,0,255,0,0,0,0,0,248,0,0,232,0,0,252,0,0,224,12,0,224,12,0,2484_+24,0,112,24,0,252,48,0,252,240,0,255,192,0,255,0,0,252,0,0,252,0,05b+252,0,0,252,0,0,252,0,0,252,0,12,252,0,12,255,255O5d+236,255,255,252,255,255,252,255,248,0,0,232,0,0,252,05f+0,224,192,0,224,192,0,248,96,0,112,96,0,252,48,05h+252,240,0,255,192,0,255,0,0,252,0,0,252,0,0,252,0,0,252,0,0,252,0,0 6k+252,0,0,252,0,6,255,255,236,255,255,248,255,255,248,255@6m+248,0,0,232,0,0,252,0,0,249,128,0,249,224,0,248u6o+96,0,112,48,0,252,240,0,255,192,0,255,0,0,252,06q+0,252,0,0,252,0,0,252,0,0,252,0,0,252,0,0,252,0,0,252,0,6,255,2556t+236,255,255,248,255,255,248,2556+:7+ **** MUSIC DATA ****7+:87+ 31,165,600,31,165,400,28,49,100,28,49,300h7+ 25,30,300,18,206,600,18,209,200,21,31,1007+ 23,181,200,18,209,200,21,31,300,18,209,3007+ 37,162,200,25,30,600