d"": 53280,6: 53281,1<n 3)"D I R E C T O R Y"aL$""wAA1:BB1: PR$ (L$,B3)0)"";A;"- "PR$ B8 175 150 A16 :A0 (L$,17)" DISKS REPRODUCED WITH" (L$,18)" d"": 53280,6: 53281,1\n 3)"        "x 3)"        ̯" 3)"         " "  (L$,20)9)"RETURN OR CHOOSE NO.";: AN$:AN(AN$):B0M AN$"" 100j : CH1 AN: PR$: CHt "" "LOAD";(34);PR$;(34);",8" "RUN": ""  631,13: 632,13: 198,2:  64 CHECKSUM,VIC CHECKSUM,MA 3@ @E3@ @E@ "D3ЌD"D3ЌD"D3@ "D3@ bx!YMJ,),#($YX$$#]#)i#$S#$S[[i$$)|mi)S4i#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDD:;RMGXLSTFHDP,AB5VMSD SUPER DRIVES"; (L$,22)1)"(C)DOUBLE L SOFTWARE"\ (L$,20)3)"YOUR CHOICE";p AN$:AN(AN$) AN$"" B0: 100 AN$"1" AN$"17" 240: A1 AN: PR$: A"" "LOAD";(34);PR$;(34);",8"  MSD SUPER DRIVES"; (L$,22)1)"(C)DOUBLE L SOFTWARE"\ (L$,20)3)"YOUR CHOICE";p AN$:AN(AN$) AN$"" B0: 100 AN$"1" AN$"17" 240: A1 AN: PR$: A"" "LOAD";(34);PR$;(34);",8"  "' L$""= AA1:BB1: PR$_ (L$,B6)10)"";A;"- "PR$o B8 175y 150 A16 :A0 (L$,22)" DISKS REPRODUCED WITH MSD SUPER DRIVES " (L$,24)7)"(C) ION INTERNATIONAL INC"" IL STARTER,MAIL,RUPERT #1,RUPERT #2^  RUPERT #3,RUPERT #4,CARD/RUNNER,CARD/MOVERS,ALICE,MIDPRINT  TO THE TOP,VIC-TAPE/DISK,64-TAPE/DISK,MUSIC TUTOR DISKS REPRODUCED WITH MSD SUPER DRIVES " (L$,24)7)"(C) ION INTERNATIONAL INC"" @ >8[F PC SR AC XR YR SP Lj* 0* е Ы Ц(Р i()ɝ   L& © A T A T L (`0G`8`@E@ 0"E  "RUN":""3 631,13: 632,13: 198,2:n 64 CHECKSUM,VIC CHECKSUM,MAIL STARTER,MAIL,RUPERT #1 RUPERT #2,RUPERT #3,RUPERT #4,CARD/RUNNER CARD/MOVER,ALICE,MIDPRINT,TO THE TOP,VIC-TAPE/DISK 64-TAPE/DISK,MUSIC TUTOR,END Ȉ`  Ȑ`7(w))&(*i? , L i i( W r  /LG  > !LF( ` i Hh8?Jnn   …0ۆ( dI5318153247:A:I,A:Ln"  TAPE TO DISK TRANSFER PROGRAM "yx:"INSERT AND REWIND TAPE TO BE COPIED":"INSERT DISK INTO DISK DRIVE":"DOES THE DISK NEED TO BE FORMATTED? Y/N"A$:A$""150A$"Y"53181 "N _  3 (eÅØeą &= (4 L} i i > & /  3LLG i i > >' > "  Ɲ  W  A T 3&Ѝ / 213,255,169,8,162,8,160,255,32,186,255,169,20,162,65,160,3,32 189,255,173,61,3,141,251,0,173,62,3,141,252,0,169,251,174,63,3,172 64,3,32,216,255,76,189,207-".#7$8%"#""<"#""!&"#""e$&e%  ?l@ 8" " )L , )兺 `l0l2 ԩ )LG ,к y i ,Э y… i И LG HHJJJJ `h) `H hL 0:i`H•h` L 3`;©`H Wh.LW ; 9 H: H \ > y3 i > y( i <&8.: A L y  y > LG y ?x9H:H;H<=> 787h7H787h7O7384l7OOOO h>h=h<h;hh8:9? WB* WR4&` hh & . W >. ݷ HH`L:9` T H 3` `  `* > > ` * > *8`:i)`,&` > ` | ` > yޮ? ? LG T``H'h'`ä8 ()L3ä8¨` i / i&d> >8[F PC SR AC XR YR SP Lj* 0* е Ы Ц(Р i()ɝ   L& © A T A T L (`0G`8`@E@ 0"E3 LG …!(  j  LG, T A T H h 5* ** 0 ` Ș  H`8ªe`J J") JJJJJ)*)) JJJ &&u& *)7w *0! Lj* 0* е Ы Ц(Р i()ɝ   L& © A T A T L (`0G`8`@E@ 0"E3 AME OF DISK";A$ "DISK ID";B$0 ""C "OPEN15,8,15"h "P15,"(34)"N0:"A$","B$(34) "SYS53181":"" 631,13:632,13:633,13:198,3: 169,1,162,1,160,1,32,186,255,169,0,162,65,160,3,32,189,255,169,09 32, LG …!(  j  LG, T A T H h 5* ** 0 ` Ș  H`8ªe`J J") JJJJJ)*)) JJJ H787h7H787h7O7384l7OOOO h>h=h<h;hh8:9? WB* WR4&` hh & . W >. ݷ HH`L:9` T H 3`   `* > > ` * > *8`:i)`,&` > ` | ` > yޮ? ? LG T``H'h'`ä8 ()L3ä8¨` i / i&d ( @ ?l@ 8" " )L , )兺 `l0l2 ԩ )LG ,к y i ,Э y… i И LG HHJJJJ `h) `H hL 0:i`H•h L 3`;©`H Wh.LW ; 9 H: H \ > y3 i > y( i <&8.: A L y  y > LG y ?x9H:H;H<=>@ (_  3 (eÅØeą &= (4 L} i i > & /  3LLG i i > >' > "  Ɲ  W  A T 3&Ѝ / &&u& *)7w *0! Lj* 0* е Ы Ц(Р i()ɝ   L& © A T A T L (`0G`8`@E@ 0"E Ȉ`  Ȑ`7(w))&(*i? , L i i( W r  /LG  > !LF( ` i Hh8?Jnn   …0ۆ( @ @E3@ @E@ "D3ЌD"D3ЌD"D3@ "D3@ bx!YMJ,),#($YX$$#]#)i#$S#$S[[i$$)|mi)S4i#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDD:;RMGXLSTFHDP,AB5V d53281,1:"" f410[g4)"ENTER (ZZZ) WHEN COMPOSITION FINISHED"khC13000:i(147);8)"UPPER OR LOWER CASE? (U/L)"kC$:C$""107lC$"L"53272,23:115mC$"U"53272,21:115 nC$"L"C$  90AB,32:C,32:B((1)10)7680:C((1)10)7691:34qBO0:B((1)14)227680:CB198:GB110:" MAGIC WINGS LEVEL!":T14:W,241:TT1200::W,0:II1: "":A8175:V1,10:PH2:6:UU5:T1U20:S((1)45 A1 W,0:X,0:D42AA220 (A)3(A)552b C,32:B,32:G,32:CC1:BB1:GG1:BO226q A770223y 11 75 :PU147:J::PU115:J:W,J:II1100::X,J II1100::: "":36869,255:W36876:V,15:V1,14:H76 D44AA1 'D42AA22@ (E(A):E2E3ABACAB22AC2251O )A770259 *A,2:ALL,5:B,32:C,32:BB22:CC22:W,. +X,.:B81645 ,34 ."CONGRATULATIONS!!!!":"YOU HAVE GOTTEN TO LEVEL 32!!!!":24 /"GET REAAPPED AT STAGE,";I8I3246:9"HITANYKEY"^:198,0:198,1:I1:U30:UU2:29;7:X,0:"";:PH3:T1500:" ";:<KD135:A8175:B7812:C7769:G7726:UUUU2:T1UU:S((1)22)7680:S,4=S308,4:S308LL,2:S3KPH4:KD135:7:"":V1,15:A8175:T1UU2:S((1)386)7680bLSS((1)6)1:S,5:SLL,SS:X,200:X,0:NA,2:ALL,5:W1,KD:KDKD4:D(197)OPA:D20AA1PAA22:D44AA1QP,32:(A)551RAH84S78TW1,0:II1:29I_24,60,126,255,219,219,255,102,255,219,219,227,126,60,36,102,255,86,126,16,56,124`40,108,255,219,219,255,165,189,129,255,127,8,127,93,93,127,20,34,126,219,126a24,255,153,60,102,0b200,140,145,150,140,150,180,140,130,200,210,190,9jc SI5,143: SI6,255: SI24,15: SI4,1299tc SI,3: SI1,35: D1 25: D:~c SI4,16: SI,0: SI1,0:=:c SI5,143: SI6,255: SI24,15: SI4,17e:cSN((1)100)25: SI,SN: SI1,SN:c SI4,16: SI,0: SI1,0::d SI5,143: SI" F1 TO REPRINT-F3 TO RERUN "8 rR$:R$""370H |R$""300V R$""_ 370 "DO YOU WANT ANNOUNCEMENT PRINT FORMAT?":15)"(Y/N)" AN$:AN$""420 AN$"Y"AN1: AN$"N"AN0: 420EN-F3 TO RdI7600760066:A:I,A:Mn"  TAPE TO DISK TRANSFER PROGRAM "zx:"INSERT AND REWIND TAPE TO BE COPIED":"INSERT DISK INTO DISK DRIVE":"DOES THE DISK NEED TO BE FORMATTED? Y/N"A$:A$""150A$"Y"7600 "N"U"107 sA$(25):""" xN123O "ENTER LINE #"N:A$(N):A$(N)"ZZZ"145V N_ ""o W10(N2) Z1W:"";:Z X123 T(40(A$(X)))2 A$(X)"ZZZ"185 T)A$(X) X " PRESS F1 TO PRINT SCREEN-F3 TO R2)7680$ S,3:SLL,3:X,200:X,0:M A,2:ALL,5:(B1)3W,200:BB44 B,5:BLL,4:D(197):(C1)3X,200:CC44 (G1)3W,135:GG44 G,5:GLL,4:C,5:CLL,4:D64A,32:D20AA1: ACABAG51 BOBO1:D44A80:A8153:B7680:PH1:C7701U UU5:T1U:S((1)386)7746:S,3:SLL,4:X,200:X,0:j X36875:I124 "(C22)3X,135:C,32:CC2 #D(197):(B22)3W,135:B,32:BB2 $B,0:B22,1:C,0:C22,1:D64A,32 %D20AA1 &DY....":LW9:T11000::29+ 3LW9PH29,9,59,75j 4W1,220:W,135:ALL,7:Y115:V,Y:A,42:Z15::A,214 5A,42:Z15::A,214:Z15:: 6Y1501:V,Y:A,42:Z110::A,214:Z110::7V,15:W1,0:W,0:36879,24:" ZLL,2::F7900;?ALL,5:A,2:B,3:C,3:F,3:G,3:G3,3:W1,KD:AH73`BD(197):KDKD4:PA:D20AA1wCAA22:D44AA1EP,32:PLL,7:(A)3(A)451HB3,32:C3,32:F6,32:G3,32:FF1:BB1:CC1:GG1:63III1:W1,0:9I1:293Z52,28:56,28::I71687679:I,(I25600)::H71687216y[J:H,J::36869,255:"BTOTHETOP!"\" BY KEVIN DEWEY":"HITANYKEY"]V36878:198,0:198,1^U30:UU2:LL30720: 150,140,052,28:56,28::I71687679:I,(I25600)::H71687216y[J:H,J::36869,255:"BTOTHETOP!"\" BY KEVIN DEWEY":"HITANYKEY"]V36878:198,0:198,1^U30:UU2:LL30720:6,255: SI24,15: SI4,129: d SI,2: SI1,25: D1 35: D:d SI4,16: SI,0: SI1,0:;e "","","","","","",""N;e 10,32,15,32,5,32,32,6,32,21,32,19,32,3,32,15;e 2,32,15,32,2,32,32,12,32,12,32,15,32,18,32,5,32,200: SI1,0: 13,255,169,8,162,8,160,255,32,186,255,169,20,162,65,160,3,32 189,255,173,61,3,141,251,0,173,62,3,141,252,0,169,251,174,63,3,172 64,3,32,216,255,76,176,29-".#7$8%"#""<"#""!&"#""e$&e%HAME OF DISK";A$ "DISK ID";B$0 ""C "OPEN15,8,15"h "P15,"(34)"N0:"A$","B$(34) "SYS7600":"" 631,13:632,13:633,13:198,3: 169,1,162,1,160,1,32,186,255,169,0,162,65,160,3,32,189,255,169,08 32,2ENEW " F$:F$""190& F$""3004 F$""I ,(53272)23M7_ 11,4,M:AN1310q 3F137:1:F} 6X124 @A$(X)"ZZZ"1:360 JL(A$(X)):S(L2):T20S OAN11,(15)T40)A$(X):350 T1,(14)T)A$(X) ^X% h 13)"[0] FOR MENU",. 13)"[1] FOR SEARCH"-. 13)"[2] FOR SCROLL"4-."YOUR CHOICE";M:M212025A-.M0110b-."LAST NAME ";H$-."FIRST NAME ";H1$:"":22000-."": A1 8:: A-/I1NN Z$""FL1:11050*+1,"P"(3)(R1)(R2)(1)*+2,SR$(I)+ +1,"P"(3)(R1)(R2)(14)&++2,SF$(I):j+*+SR$(I)"**********":SF$(I)"**********":DF1:VJVJ1:DL(VJ)I:+."": 53280,2: 53281,1+.9)""+.9)" * SE DESIGNED BY..."5*bM$(MSG$,(MSG$)1):C$M$(MSG$,1)64b 25450: "";(C$,40);:MSG$C$E6>b D1 150: D:MSGMSG1: MSG26 25170Q6Hb 251306RbP55896:C1624: A5 35:CL((1)8)2: PA,CL:6\b A1 16: N:BB1 )(Z#Q(6X)Q(X)L1::('('"": 53280,0: 53281,3)' 10)""A)' 10);" * PRINTER OPTIONS * "d)' 10)""v) ' I1 5::)!'11)"[0] RETURN TO MENU")$' 11);"[1] MAILING LABELS")     ߒ  ߒ  ߩ  ߒ   "4a "            "d4a "     ߒ         "p4a 253004a D1 70: D: A4a D1 100: D4a "":$"B"8170&400:FL1FL0:8165&FV$""8143 'N$(C)FV$8165' 9000N'3,A$Q(6))B$(1)Q(7))B$(2)Q(8))B$(3)Q(9))B$(4);b'3,Q(10))B$(5)n'CNCN1t''3,"NUMBER OF PERSONS PRINTED:";CN'3," ":3'"LABELS YZ)2)1^VH$SR$(R)H1$SF$(R)221401hVH$SR$(R)ZR1:22010 2rVH$SR$(R)YR1:22010;2|V:: 13);SF$(R);" ";SR$(R);SQ(R):12070]2Y SI5,8: SI6,255: SI4,332Y A15 1 .5: SI1,16: SI,195:SI24,A: A2Y SI4,16: SI1,0:$[SS1EDNN:SS1:8031%^" ENDING REC-#";ED:EDNNEDNN-%_" KEYED FIELD";KY$:KY$""8110G%`" FIELD VALUE";FV$]%m13000:CK18000y%"SET TOP OF FORM"%"WHEN DONE ENTER 'P' TO PRINT"%"ENTER 'Q' TO QUIT"%"/2KY$"ZIP"C7:13030/2CK1/2/6/6"": 53280,14: 53281,106 A1 6:: A,0613)"S O R T I N G"F0613)""]06Y1NN:HY$SR$(Y)j06"";Yw06ZZYNN06SR$(ZZ)HY$HY$SR$(ZZ):QQZZ06ZZ07SR$(QQ A7b D1 400: D7b " INSERT DATA DISK...PRESS F1 TO START"8b A$: A$"" 25250:8bCL((1)9)2: 53280,CL: D1 300: D: 25230@8bo8b SI5,143: SI6,255: SI24,15: SI4,338bSN50 100 5:SI,SN40:SI1,SN: SN-/A$:A$""12100-/M212200./H$SR$(I) 13);SR$(I);SQ(I):12070./M112063"./X175:X-./20000=./A$""110V./FP1M2E1400:h./I:M212070.!/"PERSON NOT FOUND".&/: 13);"CONTINUE Y/N".+/M$:ARCHSCROLL * "+.9)""::,.7)"PRESS F1 TO SLOW SCROLL"7,.7)"PRESS F2 TO RETURN SCROLL"\,.7)"PRESS F3 TO LEAVE SCROLL",.7)"PRESS F7 TO STOP SCROLL",.7)"PRESS F8 TO CONTINUE SCROLL",.:,. : C11B,N: N32 255006ab D1 75: D: A7fb D1 500: D: "";19)"AND": 256007kb D1 400: DR7pbP56056:C1784: A5 35:CL((1)8)2: PA,CL:7zbB0: A1 18: N:BB1: C11B,N: N32 255007b D1 75: D:.' 11);"[2] MAILING LIST")3' I1 6:: *8'11)"YOUR CHOICE [0-2]"*='M$:M$""10045+*B'M(M$)8*C'M0110K*D'M1M210045_*G' M 3000,8000**R1I:R20:R1255R2(R1256):R1R1(256R2)**1,"P"(3)(R1)(R2)(1)*+#2,Z$: "":SN60: A1 18: 253504a " ": A:: 5aSN50: A1 L:: 25400: A:5bCTCT1: CT2 L18M5b CT3 25110[5 b: 250055b "": L1 12:: L: D1 200: D5 bMSG$" PRINTED"'"ENTER C TO RETURN TO MENU"(W$:W$""3185 ( 110((#A$(I)a(2#B$(1)N$(1)" "N$(2):B$(2)N$(3):B$(3)N$(5):B$(4)N$(6):B$(5)N$(7){(<#L1(A$):Q(6)Q(0)L1(F#X15(R#(B$(X))Q(X)B$(X)(B$(X),Q(X)1)(S#L1(B$(X) SI,0:2 Z SI5,8: SI6,255: SI4,333Z A15 1 .5: SI1,22: SI,96:SI24,A: A(3Z SI4,16: SI1,0: SI,0:K3a "": 53280,0: 53281,0:L21v3aSI54272: SN0 24: SISN,0:: ""3a A1 7: CH$:CH(CH$)3a (CH);"  ENTER 'B' TO STOP PRINTING"%3,4%3:3," " &W$:W$""8120&W$"Q"110.&W$"P"8120u&3,"REC# NAME: ADDRESS: CITY:";&3," ST: ZIP:"&3:3&USSED:IU:FG1ISQ(U)&W$:W)SR$(Y):SR$(Y)HY$07VZSQ(QQ):SQ(QQ)SQ(Y):SQ(Y)VZ17H2$SF$(QQ):SF$(QQ)SF$(Y):SF$(Y)H2$17Y1 7110%1 N81*NA$""FP1:K1/NA$""FP0:Q14Ns1R "";14);DL(VJ): 1702y1U1UY1:ZNN1UYZ221001V120651TVR((8b SI4,16: SI,0: SI1,0:8c SI5,143: SI6,255: SI24,15: SI4,33 9cSNSN3: SI,SN: SI1,SN100-9c SI4,16: SI,0: SI1,0:d98c SI5,143: SI6,255: SI24,15: SI4,33: SI,30z9BcSNSN5: SI1,SN9Lc SI4,16: SI,0: SI1,0:M$""12075.0/M$"Y"12000.1/M$"N"12075.5/110.D//N/A$:A$""12052/P/A$""110#/S/12110]//ZJ((SQ(I))):Z14ZJ:8)SQ(I)Z1)SR$(I);" ";SF$(I)h//12060n/2w/2CK0/2KY$"CITY"C5:13030/2KY$"STATE"C6:13030 C""HL18M"";N$(L)R/\II1 7::IIR 12);"ANY CHANGES ? [Y/N]"j C$: C$"" 2212~ C$"N" 2300C$"Y"1850:2210 C$"Y" C$"N" 22122210 11);"PRESS 'F  " "& " "G " 1. REC-#-->";" ";0b " 2. L.NAME>"} " 3. F.NAME>"  " 4. ADDRE>" " 5. ADDRE2>" " 6. CITY>"  " 7. ST 2,NN$!2:1: (147): 53280,14: 53281,6:0!p"";I:I0I102460006!zh!"";N$(1):X14: 6900:!8"";N$(2):X13: 6900:!"";N$(3):X12: 690 INN1:NNNN17"":15)"WORKING.......":300:VJ1VJ0WDL(VJ)0:VJVJ1:VJ0DF0kE1250::110: 11);" "< 12);"WHICH LINE [2-9]";: C:C2C9: 1852? C 6000,6100,6200,6300,;Q$Q$"N"4000Q$"Y"4045$"DELETE THIS PERSON(Y-N)";Y$5Y$"N"4000GY$"Y"4060PDF1\VJVJ1iDL(VJ)I" PERSON DELETED!!! "Y1NNSQ(Y)ISR$(Y)"**********":SF$(Y)"***** "": 14);"";NN1N$(1)""0"";N$(1)@N$(1)""t"";N$(2):N$(2)""N$(2)"NONE""";N$(3):N$(3)""N$(3)"NONE""";N$(4):N$(4)""N$(4)"NONE""RINTED"l "ENTER C TO RETURN TO MENU"q W$:W$""3185 v 1102 DELETE RTN.O"": 53280,6: 53281,0^VJ50110 10)"" 10)" * DELETE NAME * " 10)"" A1 17:: ) " 5. ADDRE2>"#. " 6. CITY>">8 " 7. STATE>"YB " 8. ZIP>"tC " 9. TELE>"D ""EA13:8);" ":G 9);"PRESS 'RETURN' FOR MENU"L1700:N$(1)""""3110 " FIELD VALUE";FV$ 13000:CK13000-& "SET TOP OF FORM"T' "WHEN DONE ENTER 'P' TO PRINT"p( "ENTER 'Q' TO QUIT") "ENTER 'B' TO STOP PRINTING". 3,4/ 3:3," "0 W$:W$""31205 W$"Q"3:110:";N$(8):X7: 6900:"II1 X::II: #X ERROR CHECK RTN. #]1,EN,EM$,ET,ES-#bEN509#gEN0b#l"":"ERROR STATUS"z#q"";EN;EM$;ET,ES#v"PLEASE CHECK THE ERROR"#{"EXECUTION TERMANATED"1' TO CONT"  11);"PRESS 'F3' TO RECORD"- 11);"PRESS 'F7' TO EXIT"A Q$:Q$""2315R Q$""2000h Q$""CG0:110 Q$"" 300:2000 2315 PRINT RTN. "" 14)"PRINT LABELS" 14)"************" ATE>"* " 8. ZIP>"/ " 9. TELE>"-0 ""]1A13:8);" ":2 13);"ENTER 0 FOR MENU"4"";I:I0I102421009I0CG0:110>400:FL1FL0:2100 0:""";N$(4):X11: 6900::"d"";N$(5):X10: 6900:p""";N$(6):X9: 6900:","";N$(7):X8: 6900:""6400,6500,6600,6700,6800D CHANGE/INQUIRE RTN.@"": 53280,6: 53281,1:CG1v " î " "  CHANGEINQUIRE  " " ý "*****":4080YD$"" R1I:R20:R1255R2(R1256):R1R1(256R2)= 1,"P"(3)(R1)(R2)(1)G 2,D$r "ENTER C TO CONTINUE " W$:W$""4105 W$"C"4105 4000 1,"P"(3)(0)(3)(1) NN$(NN) ";N$(5):N$(5)""N$(5)"NONE"D"";N$(6):N$(6)""N$(6)"NONE"x"";N$(7):N$(7)""N$(7)"NONE""";N$(8):N$(8)""N$(8)"NONE"DF01729IDL(VJ):Y1NN:SQ(Y)I1730YA12)"ENTER 0 FOR MENU""ENTER RECORD NUMBER";I2I0I7504000?I0110Y400:FL1FL0:4000"NAME ";"";N$(2)" "N$(1)"ADDRE ";"";N$(3)"CORRECT PERSON (Y-N)"110UC$""4V"": A1 18:::9);" "VX 11);"ANY CHANGES [Y/N]"m[ C$:C$"" 1115\ C$"N" 1800`C$"Y" 1850: 1110e C$"N" C$"Y" 1115j1110L18:N$(L)"":L:DF121000 W$"P"3120? USSED:IU:FG1ISQ(U)@ W$:W$"B"31704D 400:FL1FL0:3165EE FV$""3145ZF N$(C)FV$3165qI 3,N$(2);" ";N$(1)~N 3,N$(3)S 3,N$(5);" ";N$(6);" ";N$(7)X 3:3:3] b 3," ":3g "LABELS P#2:1:#@#E"":CN0$J8)"PRINT GENERAL LIST"!$O8)"******************"Q$T3)"ENTER 0 TO RETURN TO RETURN TO MENU"q$U"ON SORT 1/YES 0/NO";FG$V"ENTER -1 FOR ALL"$XKY$"":FV$""$Y"STARTING REC-#";SS$ZSS01103)"ENTER 0 TO RETURN TO RETURN TO MENU"% "ON SORT 1/YES 0/NO";FG= "ENTER -1 FOR ALL"X "STARTING REC-#";SSf SS0110 SS1EDNN:SS1:3031 " ENDING REC-#";ED:EDNNEDNN KY$"":FV$"" " KEYED FIELD";KY$:KY$ ( X 49152 49488 : Y: X,Y::\ 32, 161, 192, 165, 43, 133, 251, 165, 44, 133 252, 160, 0, 132, 254, 32, 37, 193, 234, 177 251, 208, 3, 76, 138, 192, 230, 251, 208, 2 230, 252, 76, 43, 192, 76, 73, 78, 69, 32!  35, 32 % X 828 1023 : Y: X,Y::W 169, 0, 133, 63, 133, 64, 165, 43, 133, 251 165, 44, 133, 252, 160, 0, 132, 254, 32, 228 3, 234, 177, 251, 208, 3, 76, 208, 3, 230 251, 208, 2, 230, 252, 169, 244, 160, 3, 32  30, 203, 16 253, 177, 251, 208, 226, 165, 253, 41R # 240, 74, 74, 74, 74, 24, 105, 65, 32, 210 $ 255, 165, 253, 41, 15, 24, 105, 65, 32, 210 % 255, 169, 13, 32, 210, 255, 173, 141, 2, 41 & 1, 208, 249, 230, 63, 208, 2, 230, 64, 230 ' 251, 208, 2,  ""3"INSERT DATA DISK IN DRIVE 8"R"PRESS 'D' WHEN DONE"d X$:X$""4t X$"D"4"FORMATING DISK PLEASE WAIT"15,8,15,"N0:DATA DISK,01":15T11000: "CREATING DATA FILE" 1,8,15 2  25000[V(8):V(1)1:V(2)14:V(3)30:V(4)50:V(5)70:V(6)83:V(7)88:V(8)98:VJ0N$(8):Q(15):SR$(750):J$(5):DL(50):SQ(750):SF$(750)Q(0)5:Q(1)20:Q(2)30:Q(3)11:Q(4)5:Q(5)5:FL0 S(1)12:S(2)15:S(3)19:S(4)19:S(5)12:S(0110 - A1 7:: A! 2I1NN/ 3T15:TI 511000:FL1FL0:60P <I{ n"":CG0: 53280,14: 53281,0: 23000 o1,"P"(3)(0)(2)(1) s 12);"" t 7);"" x 3);"<ݞ* S E L E C T 76, 195, 255, 147, 83, 67<  82, 69, 69, 78, 32, 79, 82, 32, 80, 82h  73, 78, 84, 69, 82, 32, 63, 32, 0, 76  44, 193, 234, 177, 251, 201, 32, 240, 6, 138  113, 251, 69, 254, 170, 138, 76, 88, 192, 0  0, 0, 0, 230, 251, 208, 2, 230, )"[6] SORT LIST", 11)"[7] EXIT PROGRAM"@ A1 6:: Aa 11)"YOUR CHOICE? [1-7]"t M$:M$""220 M(M$):M1M7220 23050 M 1000,2000,10000,4000,12000,14000,5000 , WRITE RTN. -DF1CG0SR$(Y)N$(1) 32, 30, 171, 166, 63, 165, 64, 76K  231, 192, 96, 76, 73, 78, 69, 83, 58, 32|  0, 169, 247, 160, 192, 32, 30, 171, 169, 3  133, 254, 32, 228, 255, 201, 83, 240, 6, 201  80, 208, 245, 230, 254, 32, 210, 255, 169, 4  166, 254, 160, (R1256):R1R1(256R2)(1,"P"(3)(R1)(R2)(1)B#2,Z$:Z$""FL1:iL18:1,"P"(3)(R1)(R2)(V(L))x2,N$(L):~ "": 53280,6: 53281,1 " î " "  ADD , 0, 169, 35, 160, 192, 32, 30, 171T  160, 0, 177, 251, 170, 230, 251, 208, 2, 230  252, 177, 251, 32, 205, 189, 169, 58, 32, 210  255, 169, 0, 133, 253, 230, 254, 32, 37, 193  234, 165, 253, 160, 0, 76, 13, 193, 133, 253"  177, 250, 0, 177, 251, 170, 230, 251, 208S  2, 230, 252, 177, 251, 32, 205, 221, 169, 58  32, 210, 255, 169, 0, 133, 253, 230, 254, 32 228, 3, 234, 165, 253, 160, 0, 170, 177, 251 ! 201, 32, 240, 6, 138, 113, 251, 69, 254, 170" " 138, 133, 230, 252, 76, 74, 3, 169, 236H ( 160, 3, 32, 30, 203, 166, 63, 165, 64, 32| ) 205, 221, 169, 13, 32, 210, 255, 96, 230, 251 * 208, 2, 230, 252, 96, 0, 76, 73, 78, 69 + 83, 58, 32, 0, 76, 73, 78, 69, 32, 35 , 32, 0, 0, 0, 0, 08, 133,,8,3,"0:LIST,L,"(110)  900: (1,"P"(3)(0)(3)(1)D 2 900d <2,0:1,"P"(3)(0)(3)(1)p F2,X:X ,2:1:"INSERT PROGRAM DISK":"LOAD AND RUN MAIL": 1,E,B$,C,D:E (E50) (E20)  E;B$;C;D::6)4:S(7)9:S(8)12& 15,8,15,"I":15C "": 53280,0: 53281,6p # A1 8:: A:12);"INITIALIZING..." $ 12);"PLEASE STAND BY" %Y1750:SQ(Y)Y: (1,8,15:2,8,3,"0:LIST":7000 )1,"P"(3)(0)(3)(1) *2,NN$:NN(NN$):NNI O N S *>"0 } 7);""M ~ 12);""k 11)"[1] ADD NAME" 11)"[2] CHANGE/INQUIRE" 11)"[3] PRINT COMMANDS" 11)"[4] DELETE NAME" 11)"[5] SEARCH/SCROLL" 11252, 96, 170, 177, 251, 201, 34, 208, 6, 165, 2, 73_ 255, 133, 2, 165, 2, 208, 218, 177, 251, 201 32, 208, 212, 198, 254, 76, 29, 193, 0, 169 13, 76, 210, 255, 0, 0, 0, 205, 189, 169, 13, 32, 210, 255, 32  204, 255, 169, 4,  :SF$(Y)N$(2):305 .CG13054 /SR$(I)N$(1):SF$(I)N$(2)f 1R1I:R20:R1255R2(R1256):R1R1(256R2) 6L18:1,"P"(3)(R1)(R2)(V(L)) ;(N$(L))S(L)N$(L)(N$(L),S(L)) @2,N$(L): E  READ RTN. R1I:R20:R1255R2255, 32, 186, 255, 169, 0, 133G  63, 133, 64, 133, 2, 32, 189, 255, 32, 192z  255, 166, 254, 32, 201, 255, 76, 73, 193, 96  32, 210, 255, 173, 141, 2, 41, 1, 208, 249  96, 32, 205, 189, 169, 13, 32, 210, 255, 32  204, 255, 169, 4, NAME  "< " ý "p  " "  " " " 1. REC #>" " 2. L.NAME>" " 3. F.NAME>"$ " 4. ADDRE>"1, 208, 237, 165, 253, 41, 240, 74, 74T  74, 74, 24, 105, 65, 32, 210, 255, 165, 253  41, 15, 24, 105, 65, 32, 210, 255, 169, 13  32, 220, 192, 230, 63, 208, 2, 230, 64, 230  251, 208, 2, 230, 252, 76, 11, 192, 169, 153  160, 192,A l ÏAHOY! JANUARY 8LL2A64 CHECKSUMVIC CHECKSUMMAIL STARTERMAIL4RUPERT #1RUPERT #2RUPERT #3RUPERT #4  CARD/RUNNER CARD/MOVERS ALICE6MIDPRINTTO THE TOP  VIC-TAPE/DISK 64-TAPE/DISK MUSIC TUTOR MENU-VIC MENU C-64  << RR13-4 >>/ =-= SPRITE MAKER =-=` "STORE IN WHICH MEMORY BLOCK (192..199)";BKnMEM64BK ROW0 20( A$2 BYTE0 2 : TTL0< BIT7 0 1F (A$,88BYTEBIT,1)"." 90PTTLTTL2BITZ BIT d TT .......*...% .................*..*...C ..................***...a ..............**....*... .............*..*...*... ............*....*..*... ....*........*..*..**... ***..*...**...**........ ****..*.*..*............   << RR13-5 >>/ =-= SPRITE SAVER =-=Q * ADD THESE LINES *s * TO THE PREVIOUS PROGRAM * <><><><><><><><><><><><><><"WHAT IS THE FILENAME FOR THIS SPRITE";FL$ 8,8,8,"0:"FL$",S,W"# # >FOR CASSETTES, REPLAC  << RR13-6 >>0 --- SPRITE LOADER ---R "LOAD WHICH SPRITE FILE";FL$z"WHICH MEMORY BLOCK (192..199)";BKMEM64BK( 8,8,8,"0:"FL$",S,R"- >FOR CASSETTE, REPLACE LINE 40 WITH THIS: OPEN 8,1,0,FL$2 N1 63 <8,T << RR13-9 >>2 =-=SPRITE CONTROLLER=-=8W SPRITE DATA MUST ALREADYk BE IN MEMORY.q z <> <> FNSB(N) AND FNRB(N) <> ARE USED TO SET/RESET <> BIT N OF LOCATION M <> WHEN USED WITH A POKE  <LOCK (192..199)";BK* 7 BK192 BK199 50E < 500 : * SET POINTERi F"WHAT X COORDINATE (0..511)";X K X0 X511 70 P 600 : * SET X COORD. Z"WHAT Y COORDINATE (0..255)";Y _ Y0 Y255 90 d 700 : * SET Y COORD. n"SS ANY KEY" A$: A$"" 2006 2000 : * MOVE SPRITES =-=-=-=-=-=-=-=-=-=-=-=p = SET SPRITE POINTER = =-=-=-=-=-=-=-=-=-=-=-=  2040SN,BK  S=-=-=-=-=-=-=-=-=-=-=-= T= SET X COORDINATE = U=-=-=-=-=-=-=-=-=- SET COLOR =#=-=-=-=-=-=-=-=-=-=-=-=3  V39SN,C9*V=-=-=-=-=-=-=-=-=-=-=-=s= TURN SPRITE ON ==-=-=-=-=-=-=-=-=-=-=-=MV21 M,SB(SN)=-=-=-=-=-=-=-=-=-=-=-== TURN SPRITE OFF ==@YDY   Y50 DYDY 600 : 700&  2020,*9*V=-=-=-=-=-=-=-=-=-=-=-=s= TURN SPRITE ON ==-=-=-=-=-=-=-=-=-=-=-=MV21 M,SB(SN)=-=-=-=-=-=-=-=-=-=-=-== TURN SPRITE OFF == ANIMATE A RUNNERL PRESS SHIFT, COMMODORE, OR CTRL TO QUITRr CB(2),CM(2),RU$(2),BL$(2)x GO SET UP MEMORY AND VARIABLES 400_` MAIN MOVEMENT LOOPa b IF SHIFT, COMMODORE, OR CTRL ARE PRESL, n MEM,TTL : MEMMEM1% x BYTE+ 5 ROWS ........................q ...................**... ...................***.. ....................**.. ........................ ...................*...* .............*..**..*....*...........3 *...**..*...............Q .*.**.*..*..*...........o ..**...**..*............ ...*....***............. ....*........................................... ...................*...* ............. AS FOLLOWS:(  <> POKE M, FNSB(N)5  <> ORQ  <> POKE M, FNRB(N)Z  <>r  SB(N)(M) 2N  RB(N)(M) (2552N) #V53248 : VIC CHIP ADDRESS ("WHICH SPRITE # (0..7)";SN - SN0 SN7 40 2"WHICH MEMORY BWHAT COLOR (0..15)";C& s C0 C15 110? x 800 : * SET COLORd "PRESS A KEY TO TURN SPRITE ON"{ A$: A$"" 140 900 : * TURN IT ON "PRESS A KEY TO TURN SPRITE OFF" A$: A$"" 170 1000 : * TURN IT OFF "PRE=-=-= XMV16 : X0X- b X256 M,RB(SN): 630H lX0X256 : M,SB(SN)X v VSN2,X0^ { =-=-=-=-=-=-=-=-=-=-=-= = SET Y COORDINATE = =-=-=-=-=-=-=-=-=-=-=-=  VSN21,Y  =-=-=-=-=-=-=-=-=-=-=-== -=-=-=-=-=-=-=-=-=-=-=MV21# M,RB(SN))F=-=-=-=-=-=-=-=-=-=-=-=c= MOVE SPRITE ==-=-=-=-=-=-=-=-=-=-=-=X24:Y150:DX4:DY2 900XXDX : YYDY X320 DXDX X24 DXDX Y229 DSED, JUMP TO ENDING ROUTINE c@ d I0 38: (653)0 200F k l PRINT LEFT-FACING AND RIGHT-FACING RUNNERS IN NEW POSITION m n ""39I)BL$(0)RU$(0)""I)BL$(2)RU$(2); u v CYCLE THROUGH THE CHARACTER SETS w (I)SKCM(I):: 53272,CM(0) .  SET VIDEO BLOCK4 n  56578,(56578) 3: 56576,((56576) 252) (3VM)t   DISABLE SHIFT-COMMODORE AND KEYBOARD INTERRUPTS   (8): 808,234   DEFINE RUNNER STRINGS .RU 2 24,56,24,12,12,14,62,28/ 44,12,28,48,24,20,24,48N 24,56,24,12,12,14,125,13m 13,28,52,36,36,36,100,12$ 24,28,24,48,114,180,120,48. 56,60,22,18,34,66,131,648 24,28,24,48,48,112,124,56B 52,48,56,12,24,40,24,12 L  CB(3),CM(3),MV$(6)* 400: 3000k@l MAIN LOOPFm`nAMAM1: AM3 AM0fuv SWITCH CHARACTER SETSwx 53272,CM(AM): K0 59: IS SHIFT, COMMODORE, OR CTRL PRESSED? (653)0 200 11 "GH": T I0 35:D((9)24):R2((9)19):CC((9)7)m ^ "";: J0 D: "";:: R)MV$(CC)" ";::s   VIDEO SET-UP ROUTINES   SET VIDEO POINTERS  VM1:SM6: I0 3:CM(I)I28::XX(53272)   SET STA8 CB(I)3287: J,0:: Q  POKE NEW CHARACTER SET AND SCREEN MEMORY LOCATIONSW q SKSM16: 648,SB256  I0 3:CM(I)CM(I)SK:: 53272,CM(0)   POKE NEW VIDEO BLOCK LOCATION   56578,(56578) 3: 56576,((5657128,192,192 0,0,0,0,0,0,16,2544 0,64,64,255,255,2,2,0R$ 0,10,10,10,22,45,83,145s. 0,80,80,80,104,172,202,1378 0,0,24,44,52,24,0,0B 124,254,146,238,254,84,124,0L 0,0,0,28,62,62,28,0V 0,0,0,128,128,128,67,63` 0,0254 24,30,24,24,24,24,120,241 20,42,45,43,81,80,80,144Q 40,84,180,212,138,10,10,9w 126,191,195,203,211,195,253,126 124,254,146,238,254,84,124,0 0,0,0,28,62,62,28,0 252,194,1,01,1,0,0,0 16,16,56,56,124,124,254,  ALICE4 53280,0:53281,0:"":I17::j15)"ɰ ɰ":15)" ":15)"˭":15)"BY SPIRKO":SE54272:SE24,15R$(5,5,5),PX(12),PY(12),SP(12),K$(12),A(15),B(15),C(15) R(R)S(0)S(1)S(2)S(3)S(4)S(5)S(6 xAMAM1: AM2 AM0 H SWITCH CHARACTER SET AND WAIT A MOMENTN p 53272,CM(AM): K0 59:: "": 100 RESTORE VIDEO MEMORY TO NORMAL, RE-ENABLE INTERRUPTS,AND END  808,237: 648,4: 53272,XX: 56578,VB: %  LOOPS TO LOAD CHARACTER DATA+ ^  I0 16 16: J0 2:BCB(J)I: K0 15d }  READ AND POKE DATA   A: BK,A:::   SET CHARACTER AND SCREEN MEMORY  SKSM16: 648,SB256  I0 2:CM$(0)"@A":RU$(2)"BC":BL$(0)"  ":BL$(2)"  "4S POKE IN SPACE CHARACTERSY I0 2: J328 3287: CB(I)J,0:: "": CHARACTER DATA 24,56,24,12,78,45,30,12 28,60,104,72,68,66,193,? 24,28,24,48,48,112,190,176+V 176,56,44,36,36,36,38,48S POKE IN SPACE CHARACTERSY I0 2: J328 3287: CB(I)J,0:: "": CHARACTER DATA 24,56,24,12,78,45,30,12 28,60,104,72,68,66,193,0  ENDING ROUTINE U 808,237: 648,4: 53272,XX: 56578,(56578) 3| 56576,((56576) 252) 3: "": ) * SET UP SCREEN RANDOMLY + ,MV$(0)"A":MV$(1)"B":MV$(2)"C":MV$(3)"D":MV$(4)"E":MV$(5)"F" 6MV$(6)RTING ADDRESSES O VB161024VM:SBVB1024SM: I0 3:CB(I)CM(I)1024VB:U z  POKE CHARACTER DATA INTO PLACE   I0 3: JCB(I)8 CB(I)71: A: J,A::   SET UP BLANK CHARACTER   I0 3: JCB(I)326) 252) (3VM) ?  DISABLE SHIFT-COMMODORE AND RUN/STOP-RESTOREE Z  (8): 808,234f  "":l   CHARACTER DATA   0,0,0,24,24,0,0,0  124,254,146,238,254,124,0,0  28,62,62,28,0,0,0,0  56,64,128,128,128,,0,0,16,56,124,254$j 2,7,14,158,121,112,224,64Bt 0,20,20,42,45,75,81,144a~ 0,40,40,84,180,210,138,9 0,60,122,102,102,94,60,0 124,254,146,238,254,84,40,124 0,0,0,0,0,28,62,127 3,3,1,1,1,1,2,28 0,0,16,16,56,56,124,d254  72,240,112,56,28,14,15,18/ 0,20,20,42,45,75,81,144N 0,40,40,84,180,210,138,980,210,138,9 0,60,122,102,102,94,60,0 124,254,146,238,254,84,40,124 0,0,0,0,0,28,62,127 3,3,1,1,1,1,2,28 0,0,16,16,56,56,124,)S(7):OO(14(0))1/ #I16:SP(I6)22I:Z (1700:2000:X(R)R(3)R(4)R(6)R(7) /I05:L$(I)::I14:DR$(I): 0I14:Q$(I): 2G11472:G21730 7I112:PX(I),PY(I)::I712:K$(I): <I115:A(I),B(I),C(I)::I13:J, (56578) 3& 56576,((56576) 252) 3:, F  SET UP VIDEO MEMORYL  VM1:SM15: I0 2:CM(I)I28::XX(53272)   CONVERT VIDEO POINTERS TO MEMORY ADDRESSES  VB161024VM:SBVB1024SM: I0 2:CB(I)CM(I)1024 26);:230:250H"  ";k"":""22)"GOLD":LC54272GS0I1GS:G2I,81:G2ILC,7:,ER$" ":ER$SP$ER$ER 2:AXPX(K):AYPY(K)AAXPX(K):AYPY(K):YY(ND1)(ND3):XX(ND2)(ND4):500fXS(1)2:V2,AX:V3,AY:V21,R(R)bI1242:NXI(ND4)I(ND2):NYI(ND1)I(ND3)lV2,AXNX:V3,AYNY:qAXNXAX:AYAYNY:::"ARE YOU USING T ,C):A,B,CB1:B11:90A15,8,15:15,E1$,E2$,E3$,E4$:15:E1(E1$):E12090i"DISK ERROR":E1$,E2$,E3$,E4$::"LOADING PLEASE WAIT...."2,8,2,"0:CONTINUATION,S,R":720 V21,0:""::" DO YOU WISH TO!:"CONTINU $;ZCB1,R(3);C$;R(4);C$;R(6);C$;R(7)$HI27:B1,S(I):;MI27:B1,D$(I):iRC05:B05:A05:B1,R$(A,B,C):A,B,C~\B1:B1:B11 ^15,"V":15:f:"SAVING TO DISK...."h15,8,15,"S0:CONTINUATION":2,8,2,"0:CONTINUATION,SNYSP(M$"X")SP(M$"Z"):NXSP(M$",")SP(M$".")+M$""80051010bLR$R$(X,Y,Z):I14:PD(I)((R$,I1,1))[(S(3)0S(7)0)IKPD(I)1\PD$(I);:PD(I)11120,1130,1140,1145`WD$(I):1147jOD$(I):1147tGD$(I):1:""Q$:E$(R$(X,Y,Z),1):E$"0"/E(E$)48:U110:SEU,0:YE2100,2200,2300,2400,2500,2600,2800E163100,3200,2900,3300,3200,3200EE23:2700"";:M114:" "26);::xU010:SEU,0:I14:PD(I)DNPD$(I)OD$(I):1650 :GPD$(1)"":PD$(2)""PD$(3)"":PD$(4)""OD$(1)" ":OD$(3)OD$(1):OD$(2)"    ":OD$(4)OD$(2)WD$(1)"ST$(J):< =Z05:Y05:X05:R$(X,Y,Z):L((R$(X,Y,Z),1))Q >L77L841500h @X,Y,Z:X4:Y5:Z0 A"":::"IS THIS ANEW GAME OR ACONTINUATION?" BA$:A$""66 CA$"C"700 E"":::12)"RIGHT >" F12)"LEFT "86 WA$""SP4:90& XA$""SP5:90/ YSP7T ZH14:L:ILL62:J:I,J:I,Hu d"۲ ۲" e""; f"۱۳۽"; g"ۑۑۑݑۑ$"">""26)"MAP LEVEL"fQP$""QP$""SP$""""26);:230""$AXPX(5):AYPY(5):V21,R(R):V16,X(R)UE712:S(E5)0VSP(E),PX(E):VSP(E)1,PY(E)[{ER$:1100:1200:SK0600SK15101000SK0:ER$:S(1)0:S(0)0:V21,R(R):14001300:ND0500KND(ND3)2(ND2)APE OR DISK?"'B1$: (B1$"")702:B1$"D"B12:7605B11:""T::"LOAD CONTINUATION":n1,1,0,"CONTINUATION"B1,SP,OO,GS,X,Y,Z,R(3),R(4),R(6),R(7)I27:B1,S(I):I27:B1,D$(I):C05:B05:A05:B1,R$(A,BE THIS GAME ORNOT?"::%A$:A$""805$&A$"C"I*"SAVE TO TAPE OR DISK?"::u,B1$: (B1$"")812:B1$"D"B12:870.B11:""4"SAVE CONTINUATION"::91,1,1,"CONTINUATION":C$(13)>B1,SP;C$;OO;C$;GS;C$;X;C$;Y;C,W":C$(13)j830NY0:NX0:S(3)0S(7)016002P(VC):P21030GM$:M$""1040{AYAYNY(P2):AXAXNX(P2):V2,AX:V3,AYND(AY65)2(AX150)3(AY175)4(AX35):ND01005AXAXNX:AYAYNY:V2,AX:V3,AY147ySD$(I){:LP$;L$(Z)*~QP$X1);:Q$" ":Y111170,1180,1190VX1(X2):Y1(Y2):X2XX12:Y2YY12QS(X20Y20)2(X21Y20)3(X20Y21)4(X21Y21)Q$Q$((QS))QP$X1);:Y111170,1180,1190:Q$:""Q$ SE,80:SE1,33:SE5,72:SE22,104:SE4,33'O1200::SE4,32:TD$(L76)((X),1)((Y),1)((Z),1):k@S(7)0DN3:1680JS(3)0DN2:1680TrU010:SEU,0:|SE1,60:SE5,128:SE4,129O050::SE4,128:":WD$(3)WD$(1):WD$(2)"":WD$(4)WD$(2)KGD$(1)"":GD$(2)"":GD$(3)""fGD$(4)""SD$(1)"":SD$(2)"":SD$(3)""SD$(4)"":lU123:SEU,0:<":12)"UP X"@ G12)"DOWN Z":12)"QUIT F1"s H12)"YES SPACE":12)"NO ANY KEY" P::::11)"F1 SLOW" Q11)"F3 MEDIUM":11)"F5 FAST" U:12)"WHAT SPEED? "; V"֝";:A$:"۝";:A$" ۑ". iV53248:V2V2:V3V3:VCV31:V37,1:V38,10S sS(1)2:2041,13:V28,3:V40,14y tV2,PX(5):V3,PY(5):I11500: xV41,10:2042,14:V42,5:2043,14 V43,4:2044,14:V44,14:2045,14 V45,7:2046,14:2047,14:V46,1LP 21,R(R):600 $t SP$"ALICE!! YOU FOUND THE WHITE RABBIT!":2460$ 1900:"":2$ L115:SE4,33X$ SE5,8:SE6,32:SE1,30:SE,100o$ D140::SE4,32$ SE5,64:SE6,8:SE1,20:C140:SE,C:::$ ""10)" OLD COIN!":I1700:% AXPX(5):AYPY(5):ER$& 1300:S3S(3):S(3)0:S7S(7):S(7)0>& 1100:S(3)S3:S(7)S7:1200:X& UZZ1.2:SE4,33& SE5,8:SE6,8:SE1,U20:SE,250U5& LP$;L$((U1))& D125::SE4,0::& U023:SE "8);'/ X(5(0)):Y(5(0)):Z(5(0))(0 X1Y5(Y3Y4)2607?(2 I14:"";:2640::"";:I14:"";n(7 2640::"";:I14:"ם";:2640::"";(< I14:"ב";:2640::S(1)0:V21,R(R):ND0:K5(A AXPX(5):AYPY(5)( ) O0150::SE4,32:* FE5:VSP(E),PX(5):VSP(E)1,PY(5):S(F)2(F):R(F)0O* V21,R(R):V16,X(R):R$(X,Y,Z)"0"(R$(X,Y,Z),4):600* SP$"YOU FOUND THE "K$(E)"!":I1600::R(F)S(F)* V16,X(R):VSP(E),PX(E)* VSP(E)1,PY(E): ((V30)33)2870+ :V21,R(R), SV0R$(A(O),B(O),C(O))(SV76)(R$(A(O),B(O),C(O)),4)U, SV0SP$"THE GRYPHON STOLE YOUR "K$(SV5)"!", A$((A(O)),1):B$((B(O)),1):C$((C(O)),1), S(0)0:V21,R(R):D$(SV)A$B$C$:SV0:2F(2)3)2(F(1)3F(2)2)3-w DRDR4(F(1)2F(2)2)&. S(Z2)0SP$"'I SEE YOU HAVE THE "K$(Z7)"!'":J. SP$"'YOU'LL FIND THE "K$(Z7). SP$"IN THE "DR$((DR))" SECTION ON LEVEL"(F(3)1)"'":. E$(E16):E0:. E$(E16):SK:SE1,130:SE5,9:SE15,30vSE4,21:T1500::SE4,20:SE24,15:OE$(1)"ͧ"gEL$""E$(2)"MACDUCHESS"EL$E$(2)E$(2)"Ȗ OVER 6"EL$"ٖBILLION"CARPENTER'S".E$(6)E$(6)" SEAFOOD Ւ DINER ˒"43r4"";9"ݑݑݑݑݑ":600:SK1>S(2)0SP$"SORRY ALICE, BUT YOU NEED A KEY"?S pLZNL.1(12(ZNL)):SE4,17,!SE5,8:SE6,8:SE1,L20:SE,250L5:LP$;L$((L)1)U!O125:::SE4,0::ND0:ZNL:SK1!AXPX(5)16:AYPY(5)16:1300:S3S(3):S(3)0:1100:S(3)S3:!""3)"";:O14:"";::Q1:2315ER$:SK1:#) ZZQ:ER$:S(1)0:V21,R(R):2250:V2,PX(5):V3,PY(5)O#+ K5:AXPX(K):AYPY(K):ND0:1300:E0:1100:S(1)2:SK1a#. V21,R(R):k#8 2320#` L:ILL62:J:I,J::2040,15:S(0)1:V,PX(1)1#j V1,PY(1)15:V39,12:V28,3:V":S(5)0% 600:"͝";G% "ΑΑΑΑΑΑΑΑΑ":V2,PX(5):V3,PY(5)x% ND0:2550:2580:ZZ1:ND0:SK1:GS02535% P(0):P.7G2GS,32:GSGS(GS0):2640% P.7SP$"YOU LOST A GU,0:& SE,80:SE1,33:SE5,72:SE22,104:SE4,129.' SE24,79:O1350::SE4,128:SE24,15:1300:`'( "۝۝ے"n'+ S(4)0', 600:SP$"LOOKING GLASS ROOM!":2680:U1200:'- V2,PX(5):V3,PY(5):"F 2680:T1200::S(1)2:V21,R(R)(H T1200::1300:ER$5)K S3S(3):S(3)0:S7S(7):S(7)0:1100:S(3)S3:S(7)S7G)M 1200:SK1:^)P SE5,128:SE4,33)Z SE1,100:SE,45:T199::SE4,32:T190::)x SE,210:SE1,140:SE5,15:SE4,1291900:SK1:* S(0)1:V1,PY(4)10:V30,0:V,0+ V28,3:V39,7:2040,11:V21,R(R):600C+ (X0Y0)(X1Y5(Z3Y4))2607h+ OOO:SL(6(0))7:SL11SL12|+ I51555:V,I+ SE1,160:SE5,64:SE4,129+ J010::SE4,128+SK1:,6 S(SL5)0S(6)0-; 2640:SVSL5:S(SL5)0:R(SL5)0:V21,R(R):OOOO115(OO15) -@ =-T V28,2:V39,8:2040,15s-^ S(0)1:V21,R(R):V1,PY(5):V,PX(5):600:SK1-h I13:F(I)((D$(Z2),I,1)):-r DR(F(1)3F(2)3)(F(1)1:600:GS0SP$;ST$(E16) / E0:GS0SP$"SORRY, LITTLE GIRL, BUT YOU NEED GOLD":(/ G2GS,32:GSGS1:2640:d/ G1,81:G1LC,7:600:SP$"YOU FOUND A GOLD COIN!":SK1/ GSGS(GS1):G1,32:G2GS,81:G2GSLC,7:1900/ R$(X,Y,Z)"0"(REL$E$(2)E$(2)" SERVED">E$(5)" MAD "E$(5)E$(5)"HATTER'STEAHOUSE"E$(5)E$(5)""E$(6)"(2)0A11200::1300: CSP$"DO YOU WANT TO USE THE ELEVATOR?"( HA$:A$""2120H IA$(32)E0:ER$:1300:a MER$SP$"WHAT LEVEL?" \V2,PX(5)16:V3,PY(5)16 ^A$:A$""2142 a(A$)48(A$)55NL(A$)1:ER$:2160 f2142 !L254540(Q1)24(Q1):SE4,33"SE5,8:SE6,32:SE1,L:SE,100L?"D180::SE4,0::ND0:K5:y"""12)"";:O14:"";::Q1" 600:SP$"DO YOU WISH TO USE THE STAIRS?"" A$:A$""2320" A$(32) 01020,P20108%01210,62132,01121,00211,02212,010128%01010,D3000,C2020,01110,01031,D1010$9%01110,00111,02101,71121,03111,01001M9%51200,D1002,00000,D2100,51301,D00039%832,0,20,0,0,125,0,0,125,0,0,60,0,0,170,0,2,170,128,10,40,1609%40,40, ,0,24,0,0,120,0,0,88,0,0,0,0,0,0,0:%704,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,248,0,168F;%170,128,168,255,160,175,42,168,47,63,250,40,0,170,160,170,170,144|;%42,229,64,7,212,0,3,192,0,15,0,0,3,192,0,0,252,0;%960,0,0,0,0,0,0,0,0,0,,0,16,0,0,152,0,2,170,0,10,170,128,8,136,128 " ";:X130:"";::"";:""L G11000x 2042,194:2043,194:2044,196:2046,198 V4,84:V5,143:V6,84:V7,191:V12,165:V13,108 V28,64 V41,0:V42,0:V43,7:V45,7 4200:V29,79:X(R):I1011:G2I,32:2640:1 A((D$(J),1)):B((D$(J),2,1)):C((D$(J),1))81% R$(A,B,C)"0"(R$(A,B,C),4):V21,R(R):1900b1* ER$SP$"YOU JUST BOUGHT THE "K$(J5)14 R$(X,Y,Z)"0"(R$(X,Y,Z),4):1(#"   ","","R THE PITS,GRYPHON KEY,WHITE KEY 3b%0,4,0,3,0,3,1,1,4,1,5,1,5,4,2,1,5,5,5,5,4,1,1,0,5,0,2,5,5,3.3c%4,3,0,5,0,5,0,5,4,2,0,2,5,4,1h3l%2,HAVE A HAMBURGER AND FRIES!,5,YOU MUST BE THIRSTY!3m%6,EAT AN OYSTER FOR DINNER!3%10110,00121,D0111,00011,D114%02200,01012,63100,D1111,01021,010104%B0100,01111,00101,C1201,02112,01021#5%D0000,D1110,70121,00211,01112,N2011L5%00110,31201,02002,01110,01011,D1020u5%01100,D0301,00103,D1101,51101,D20015%10110,00201,D0102,00011,30010,D00105% 012,01010,00120,01001,500106%D2010,01110,D1111,O2221,00312,D10137%31120,01011,51220,D2102,71101,0101187%62110,01101,02101,20121,F0121,01011a7%01000,40000,E0300,52103,02201,D10027%10110,00101,20011,D0000,50130,F00017%01010,D0100,0111 0wL111:L211:" F1-TREBLE F3-BASS F5-GRAND STAFF":.|N$""4230qL111:L21:" F1-TREBLE F3-BASS F5-GRAND STAFF":L121:L21:" F1-TREBLE F3-BASS F5-GRAND STAFF": CLEAR AND POSITION CURSOR 54274,0:V21,(V21)64'54296,15:54273,A(NI):54272,B(NI):54277,15:54278,0O54275,10:54274,0:V21,(V21)64{54276,65:X1750::54276,64:54296,0V21,(V21)191: WRONG ANSWER54296,15:54277,45:54278,165:54276,6 "4000:250 G1500,280,7002 (N$)65(N$)72250H "N$A$4500:400W ,4600:250r ""NI23)" " V21,143:200 NP50NP19:""NP)"^":PNNP 3000:FR16600 JV4JV8250 JV8NPNP2:NP2 JV1JV2250'JV1NPNP1:NP22NP21:250IJV2NPNP1:NP0NP1:250`V9,2224NP:710uNPA4500:400 4600:250" MUSIC TUTOR"" 1 NOTE PRIMER"" 2 KEYBOARD SEARCH""  KEYBOARD SEARCH":::V21,128:100N" NAME THE NOTE":::V21,128:100" PIN THE NOTE ON THE STAFF":::V21,128:100 NOTE PRIMER2042,195:2043,200:2044,196:2046,202V23,131:V29,3:V28,0 THE"3" TREBLE CLEF,";G8X13:V21,129:Y1500::V21,128:Y1100:Y,X{=V21,129:X1200::" AND THE BASS CLEF.BX13:V21,131:Y1500::V21,129:Y1100:Y,XGV21,131:4300L7)"TOGETHER THEY ARE KNOWN5:54277,13:54278,0 b54273,A(1):54272,B(1):54276,65ZeX11100::" ^";:V9,214:54273,A(2):54272,B(2)rf54276,64:54276,65jY119:X11100::" ^";:V9,(V9)4k54273,A(Y2):54272,B(Y2):54276,64:54276,65:lX110SIC ALPHABET"214,20::15)"GBDFACEGBDF"1V8,210:V9,160b2044,201:V43,0:V44,11:V45,0:V21,223v4300:V21,255"GABCDEFGAB DEFGABCDEF"" THE NAMES OF THE PIANO KEYS"" " EVERY GOOD BOY DESERVES FUDGE"4300E" BASS CLEF SPACES, THE SENTENCE:"m11)"ALL COWS EAT GRASS"w4300" BASS CLEF LINES, THE SENTENCE:" " GREAT BIG DOGS FIGHT ANIMALS"AFF, MIDDLE C IS ON A"!7" SPECIAL LINE CALLED A LEDGER LINE"8<4300:V21,0:900B2000V READ JOYSTICK T180::JV(56320):FRJV16:JV15(JV15):: HELPh RANGE SELECTIONmL10N$""r214,22::N$""422214,6::X112:" ";:.214,22::7)" "C214,6::"";:^ INSTRUCTION CONTINUE214,22::7)"PRESS ANY KEY TO CONTINUE."A$:A$""43204250: CORRECT ANSWER54275,10:5:54273,154272,195:54275,5:54274,120, X1300::54276,32:54273,0:54272,0:> TREBLE CLEF,12,,,10,,,10,,,10,,,12,,,24,,,56,,,104,,,200,,1,136,,3,62,,6,75,012,137,128,12,200,192,12,8,192,6,8,192,3,137,128,,255,,,8,,,40,,,56,NP1NP41NP39:250-&JV4NPNP2:NP1NP0B0NP2NP0:250Y:""PN)" "xD""NP)"^":PNNPN250XN(NP22):NP0N1lNA4500:410v4600:250NP50V9,178:NP113000:FR16770 3 NAME THE NOTE"." 4 PIN THE NOTE ON THE STAFF"=NP50:L10b" PRESS CHOICE"uA$:A$""940G(A$)G1G4940G960,965,970,975" NOTE PRIMER":::V21,128:100" V4,170:V5,200:V6,186:V7,1809V8,170:V9,219:V12,227:V13,139]V41,0:V42,0:V43,7:V45,0g4250$" MUSIC IS WRITTEN ON A SET OF LINES")" AND SPACES KNOWN AS A STAFF.".4300:" THE BASIC STAFFS ARE AS"O11)"THE GRAND STAFF."GQX12:V21,128:Y1100::V21,131:Y1500:Y,X|V4300:" EACH LINE AND SPACE ON THE GRAND STAFF"[" REPRESENTS A KEY ON THE PIANO"`214,5::"^";:V21,147a54296,15:54275,0:54274,2500::54276,64o4300:V21,131>t" THE MUSIC ALPHABET IS FROM A TO G.":4300ly" AFTER G IT REPEATS, STARTING WITH A."~6)"(A B C D E F G A B C . . .)4300" EVERY LINE AND SPACE HAS A LETTER NAME"8)"FROM THE MU MATCH THE NAMES ON THE STAFF" 43005" TO HELP LEARN THE NAMES OF THE"e" LINES AND SPACES, REMEMBER:":43006)"TREBLE CLEF SPACES, THE WORD:"16)"FACE"4300" TREBLE CLEF LINES, THE SENTENCE:" 4300 " THE NOTE C IN THE MIDDLE OF THE"?" PIANO KEYBOARD IS CALLED MIDDLE C.l214,20::15)"ÑÑÑÑÑÑÑÑÑ"z#V21,163(214,5::" ݠݠݠݠݠݠݠݠݙݠݠ ݠݠݠݠݠݠݠ"-43002" ON THE GRAND ST 0 BASS CLEF. 31,,,96,195,,192,99,,240,48,,112,48,,,51,,,51,,,96,,,192,,1,128,,3,,,12V ,,48,,,192,,,,,,,,,,,,,,,,,,,,,,,0`  4/4 ,1,192,,3,192,,6,192,,12,192,,31,224,,,192,,1,224,,,,0 1,192,,3,192,,6,192,,12,192,,31,224,,,192,,1 ,,,,,,,,,,,,,,,,,,,,,,,,,,,0! LETTER C'" 120,,,204,,,192,,,192,,,192,,,204,,,120,,0W",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,0c" CLOWN",16,,,84,,1,85,,5,85,64,62,170,240,254,34,252,62,154,240,10,154,128"(9,169,128,8,84,128,9,1,1,,,,,,,0#P EGB#$Z,,,,,,,,248,,,204,,,204,,,248,,,204,,,204,,,248,,,,,120,,,204,,,192W$_,,220,,,204,,,204,,,120,,,,,252,,,192,,,192,,0a$d DFA$i,,204,,,252,,,204,,,204,,,204,,,,,252,,,192,,,192,,,248,,,192,,,192$n,,192,,,,,240,,,216,,,B7,162,42,62,44,193,50,60,56,99,63,75,67,15,75,69,84,125,89,131,,,248,,,,,120,,,204,,,192W$_,,220,,,204,,,204,,,120,,,,,252,,,192,,,192,,0a$d DFA$i,,204,,,252,,,204,,,204,,,204,,,,,252,,,192,,,192,,,248,,,192,,,192$n,,192,,,,,240,,,216,,,,224,,,,0 ,,,,,,,,,,,,,0  ACE=!,,,,,248,,,192,,,192,,,252,,,,,120,,,204,,,192,,,192,,,192,,,204,0u!,120,,,,,48,,,120,,,204,,,252,,,204,,,204,,,204,,0! NOTE BODY!,,120,,,252,,1,254,,1,254,,1,254,,,252,,,120,0!,,,,,,,,,,,,,28,1,85,,63,171,240,63,207,240,63,19,240,,16,,,, #2,,,,,,,,,,,0#7 MIDDLE Cg#<255,240,,255,240,,255,240,,255,240,,255,240,,255,240,,255,240,,255,240n#A0#F255,254,,255,254,,255,254,,255,254,,255,254,,255,254,,255,254,,255,254#K,,,,,,,,204,,,204,,,204,,,216,,,240,,0$s ACE7%x,,,,,,,,,,3,240,,3,,,3,,,3,224,,3,,,3,,,3,240,,,,1,224,,3,48,,3,,,3^%},,3,,,3,48,,1,224,,,,,96,,,240,,0p%p NOTE VALUES%z12,143,14,24,15,210,16,195,18,209,21,31,22,96,25,30,28,49,31,165,33,135&3