1 IFLF=0THENPOKE53281,0:PRINT"[147]    [210]EADING THE [212]ABLE OF [195]ONTENTS...
2 [139]LF[178]0[167]LF[178]1:[147]"ROMUSIC",8,1
4 [139]LF[178]1[167]LF[178]2:[147]"JOEPLAY",8,1
7 [139]LF[178]2[167]LF[178]3:[147]"ROUTINES V5",8,1
8 MS[178]59
9 [139]LF[178]3[167]LF[178]4:[147]"MENU.SPRITES",8,1
10 [134]DS$(14):FR[178]52320:[158]FR,"STRINGS",DS$(0):OL$[178]"":V[178]53248:[151]V[170]16,0:[151]V[170]23,0:[151]V[170]29,0:[159]15,8,15:[137]6000
28 [151]251,0:[151]252,224:[158]49152:[142]
1000 [151]646,C%(2):[153]"LOAD"TL$:[151]V[170]33,C%(1):[151]1021,17:LP[178]1:[151]646,C%(4):[151]53280,6:[153]WT$;:[129]I[178]2[164]17:[153]"(null)"[166]38)"(null)";:[130]:[153]WB$;:[151]646,C%(3):[153]DS$(1);:[153]DS$(14);:[153]DS$(13);:[153]"(null)F5WAIT(null)CROLL ASCWD.(null)"MU$;DS$(2);:[153]"(null)F7WAIT(null)AGE ASCWD.  (null)(null)WAIT=VALXIT (null)"[166](16[171][195](MO$))[173]2)MO$[163]39)"(null)";:[153]DS$(3);
1038 [129]I[178]217[164]242:[151]I,[194](I)[176]128:[130]:[151]646,C%(5):[158]51203:[151]2023,125:[151]56295,C%(3):[142]
1100 [151]783,[194](783)[175]254:[151]781,Y%:[151]782,X%:[158]65520:[142]
1200 [132]15,ER%,ER$,ET%,ES%:[139](ER%[177]19[175]ER%[179]30)[176]ER%[178]66[176]ER%[178]67[176]ER%[178]71[176]ER%[178]73[167]1250
1210 [142]
1250 [153]"LOAD(null)HERE HAS BEEN A DISK ERROR.":[153]:[153]"(null)RESS <SPACE> TO CONTINUE.":[151]B,0
1253 [161]K$:[139]K$[178]""[167]1253
1261 [138]
1280 [129]I[178]27[164]31[169][170]1:[146]R,128:[151]R,I:[130]:[129]I[178]31[164]24[169][171]1:[146]R,128:[151]R,I:[130]:[129]I[178]24[164]27[169][170]1:[146]R,128:[151]R,I:[130]:[139][194](788)[179][177]49[167]1296
1291 [151]S[170]4,0:[151]S[170]11,0:[151]S[170]18,0:[151]S[170]5,8:[151]S[170]6,0:[151]S[170]24,15:[151]S[170]4,20:[151]S,[187](0)[172]256:[151]S[170]1,[187](0)[172]256:[151]S[170]14,[187](0)[172]256:[151]S[170]15,30:[151]S[170]4,21
1296 [142]
1500 [139]F$[178]OL$[167][142]
1501 OL$[178]F$:[159]8,8,8,F$:[141]1200:[143]IFER%=62THENRETURN
1505 [153]DS$(4);M$(MP,0):[151]781,8:[158]65478:[158]FR,F$,T$(0):LL[178][194](251)[170]256[172][194](252):[159]15,8,15:[158]65484:[160]8:[141]1200:[129]I[178]LL[164]LL[170]21:T$(I)[178]"":[130]:[142]
2000 [139][194](788)[178]49[175]MU%[167][141]28
2001 [161]K$:J%[178][168][194](J)[175]31:[139]K$[178]""[175]J%[178].[167]2000
2003 [151]B,0:[139]K$[178]"\"[167]60000
2010 [139]K$[178]"ON"[176]K$[178]""[176]K$[178]"DIM"[176]J%[178]1[167][141]2100:[137]2000
2015 [139]K$[178]""[176]K$[178]"CMD"[176]K$[178]"READ"[176]J%[178]2[167][141]2200[137]200
2020 [139]K$[178]"INPUT"[167][129]I[178]1[164]15:[141]2100:[130]:[137]2000
2025 [139]K$[178]"LET"[167][129]I[178]1[164]15:[141]2200:[130]:[137]2000
2030 [139]K$[178]"P"[176]K$[178]"(null)"[176]K$[178]"AND"[176]K$[178]""[167]50000
2040 [139]K$[178]"M"[176]K$[178]"(null)"[176]K$[178]"THEN"[167]MU%[178][171]1:[141]2705:MU$[178]"(null)WAITUIET":[137]2800
2045 [139]K$[178]"Q"[176]K$[178]"(null)"[176]K$[178]"-"[167]MU%[178]0:[141]2705:MU$[178]"(null)WAITUSIC":[137]2800
2050 [139](K$[178]"X"[176]K$[178]"(null)"[176]K$[178]"EXP"[176]K$[178]""[176]J%[178]16[176]K$[178]" ")[175]M$(MP,2)[178]"RQ"[167]5000
2052 [139]K$[178]"X"[176]K$[178]"(null)"[176]K$[178]"EXP"[176]K$[178]""[176]J%[178]16[176]K$[178]" "[167]S$[178]"1":[141]9000:[137]5900
2055 [137]2000
2100 [139]LP[178]1[167]1280
2105 LP[178]LP[171]1:[158]51209:X%[178]1:Y%[178]2:[141]1100:[139][200](T$(LP),4)[178]"\OAD"[167][153]"":[142]
2107 [153]T$(LP):[142]
2200 [139]LP[170]16[177]LL[167]1280
2205 LP[178]LP[170]1:[158]51206:X%[178]1:Y%[178]17:[141]1100:[139][200](T$(LP[170]15),4)[178]"\OAD"[167][153]"":[137]2210
2207 [153]T$(LP[170]15)
2210 [142]
2705 [139]MU%[175][194](788)[178]49[167][141]28:[137]2715
2706 [139]MU%[175][194](788)[179][177]49[167]2715
2707 [139]MU%[178]0[175][194](788)[178]49[167]2715
2710 [158]49155:[151]S[170]4,0:[151]S[170]11,0:[151]S[170]18,0:[151]S[170]5,0:[151]S[170]6,0:[151]S[170]24,15
2715 [142]
2800 X%[178]15:Y%[178]22:[141]1100:[151]646,C%(3):[153]MU$:[151]646,C%(5):[137]2000
2900 X%[178]0:Y%[178]2:[141]1100:[158]51200:[129]I[178]LP[164]LP[170]15:[139][200](T$(I),4)[178]"\OAD"[167][153]"":[137]2904
2903 [153]""T$(I)
2904 [130]:[151]B,0:[142]
5000 S$[178]"1":[141]9000:CF%[178]0
5050 [139]CF%[178].[175]S$[178]"2"[175][197](M$(MP,3))[179][177]2[167]MP[178]MP[170]1:[137]5050
5051 [139]CF%[178]0[167]CF%[178]1:[141]5500
5052 [139]MP[178]1[175]M$(1,1)[178]"*"[176]M$(1,1)[178]"+"[167]A$[178]"":[137]5055
5053 [129]MY[178]55708[164]55708[170]25:[151]MY,7:[130]:[151]V[170]21,[197](M$(MP,3))
5054 [161]A$:J%[178][168][194](J)[175]31:[139]J%[178].[175]A$[178]""[167]5054
5055 [151]B,0:[139]A$[178]"ON"[176]A$[178]""[176]A$[178]"DIM"[176]A$[178]"RUN"[176]J%[178]1[167][141]5100
5060 KF[178]0:[139]A$[178]""[176]A$[178]"CMD"[176]A$[178]"READ"[176]A$[178]"IF"[176]J%[178]2[167][141]5200
5065 [139]A$[178]"INPUT"[176]A$[178]"GOTO"[167]MP[178]1:[141]5520
5070 [139]A$[178]"LET"[176]A$[178]"RESTORE"[167]MP[178]ML:[141]5500
5075 [139]J%[178]16[176]A$[178]" "[176]A$[178][199](13)[167][141]63300:[137]5900
5080 [139]A$[178]"X"[176]A$[178]"(null)"[176]A$[178]"EXP"[167][151]V[170]21,.:[137]5600
5090 [137]5050
5100 [139]MP[178]1[167][141]1280:[137]5160
5105 [158]51209:[158]51209:MP[178]MP[171]1:[139]MP[179]5[167]5150
5114 X%[178]12:Y%[178]2:[141]1100:PO$[178]M$(MP[171]4,.):[139][200](PO$,1)[178]"*"[167][153][202](PO$,2);:[137]5150
5115 [139][200](PO$,1)[178]"+"[167][153]""[202](PO$,2)"WAIT";:[137]5150
5116 [153]"FOR"M$(MP[171]4,.);
5150 [139][200](M$(MP,1),1)[178]"*"[167]5100
5160 [142]
5200 [139]MP[178]ML[167][141]1280:[137]5260
5205 [158]51206:[158]51206:MP[178]MP[170]1:[139]MP[177]ML[171]4[167]5250
5214 X%[178]12:Y%[178]18:[141]1100:PO$[178]M$(MP[170]4,.):[139][200](PO$,1)[178]"*"[167][153][202](PO$,2);:[137]5250
5215 [139][200](PO$,1)[178]"+"[167][153]""[202](PO$,2)"WAIT";:[137]5250
5216 [153]"FOR"M$(MP[170]4,.);
5250 [139][200](M$(MP,1),1)[178]"*"[167]5200
5260 [142]
5500 [158]51200:[153]"FOR";:[139]MP[179]5[167]5520
5505 [129]I[178]MP[171]4[164]MP[170]4:[139][200](M$(I,.),1)[178]"*"[167][153][163]12)[202](M$(I,0),2)"":[137]5515
5506 [139][200](M$(I,0),1)[178]"+"[167][153][163]12)""[202](M$(I,0),2)"":[137]5515
5510 [153][163]12)"FOR"M$(I,.)"
5515 NEXT:RETURN
5520 SYS51200:PRINT"[129]";:FORI=MPTO4:PRINT"";:NEXT:FORI=1TOMP+4:IFLEFT$(M$(I,.),1)="*"THENPRINTTAB(12)MID$(M$(I,0),2)"":GOTO5530
5522 IFLEFT$(M$(I,0),1)="+"THENPRINTTAB(12)""MID$(M$(I,0),2)"[146]":GOTO5530
5525 PRINTTAB(12)M$(I,.)"
5530 [130]:[142]
5600 [141]63002:[141]63000:[153]"LOAD    ATNRE YOU SURE YOU WANT TO EXIT?":[151]198,0:[146]198,1:[161]A$:[139]A$[178]"Y"[167]63400
5608 [137]5000
5900 PO[178]0:[141]7000:[139]PO[178]1[167]5000
5902 F$[178]"T."[170]M$(MP,1):TL$[178]M$(MP,.):PO[178]0:[141]63100:[139]PO[178]1[167]5000
5904 [141]1500:[143]IFER%=62THENCLOSE8:GOTO5000
5906 [151]V[170]21,0:[151]1020,2:[151]1021,18:[151]1022,1:[151]1023,38:[158]51200:[153]"FOR";:[158]51203:[151]S[170]4,.:[151]S[170]11,.:[151]S[170]18,.:[139]MU%[175][194](788)[178]49[167][141]28
5915 MU$[178]"(null)WAITUIET":[139]MU%[178]0[167]MU$[178]"(null)WAITUSIC
5920 POKE56325,MS:POKES+24,15
5999 GOSUB1000:GOSUB2900:GOTO2000
6000 V=53248:R=V+17:C=128:S=V+1024:J=56320:LP=1:LI=52016:MU%=-1:SYS52176:B=198:POKES+5,96:POKES+6,246:CLOSE15:OPEN15,8,15:DIMT$(600),M$(60,3),C(4):FORI=1TO4:READC(I):NEXT:MU$="[209][146]UIET":DATA2,5,6,7:POKE1020,2:POKE1021,17:POKE1022,1:POKE1023,38:PRINT:POKES+23,0:POKES+4,128:POKEV+28,0:POKES+24,0
6014 WL$=DS$(5):WT$="[176]"+WL$+"[174]":WB$="[173]"+WL$+"[189]":D1$=LEFT$(WT$,27)+"[174]":D2$=LEFT$(WB$,27)+"[189]":BO$=DS$(6):Q1$=DS$(7):Q2$=DS$(8):M$="FEATURES11":OPEN8,8,8,M$:GOSUB1200:ML=1:INPUT#8,MT$,MO$,MN$
6030 FORI=.TO3:POKE781,8:SYS65478:SYSLI,B$:M$(ML,I)=B$+"":IFSTTHENGOSUB1200:IFER%=.ANDST>63THEN6037
6032 IFER%=0ANDST>63THEN6037
6033 NEXT:ML=ML+1:GOTO6030
6037 CLOSE8:P$="P"+CHR$(8)+CHR$(1)+CHR$(0)+CHR$(1):PRINT#15,"I0":DIMC%(5):OPEN8,8,8,"COLOR.FILE":PRINT#15,P$:FORI=0TO5:INPUT#8,C%(I):NEXT:CLOSE8:OPEN8,8,8,"PRINT.FILE":PRINT#15,P$:INPUT#8,PA:INPUT#8,SA:CLOSE8:SYS65484:POKES+4,0:POKES+23,0:POKES+5,9:POKES+6,0:MP=PEEK(597):IFMP>MLORMP<1THENMP=1
6044 POKE53280,6:POKE53281,0:GOSUB63230:GOTO5000
7000 POKE53281,0:POKE53280,6:SYS51200:POKEV+21,VAL(M$(MP,3)):POKE1020,6:POKE1021,14:POKE1022,12:POKE1023,37:SYS51200:PRINT"";:SYS51203:BL=LEN(M$(MP,2)):SQ$=M$(MP,2):C=0:PRINT"                                        ";
7031 PRINT"[159]"WT$"[221] [195][210][211][210][146] KEYS OR [202]OYSTICK[146] TO SCROLL MENU [221]";:PRINT"[221] [211][208][193][195][197]-[194][193][210][146], [210]ETURN[146], OR [194]UTTON[146] [211]ELECTS [221]";:PRINTLEFT$(WB$,39);:POKE2023,125:POKE56295,3:PRINT"[158]":PRINTSPC(11)"[158]"D1$"[146]":FORI=1TO11:PRINTBO$;:NEXT:PRINTSPC(11)""D2$"[146]":FORZP=217TO242:POKEZP,128ORPEEK(ZP):NEXT
7045 PRINT"[158]":PRINT:FORUU=1TOBL:CH$=MID$(SQ$,UU,1):IFCH$="R"THENPRINTSPC(12)"[210]EAD ABOUT IT.":C=C+1
7060 IFCH$="E"THENPRINTSPC(12)"[210]UN IT.":C=C+1
7070 IFCH$="Q"THENPRINTSPC(12)"[199]O BACK TO [205]AIN [205]ENU.":C=C+1
7100 NEXT:PQ=1:SD=51209:SU=51206:PRINT"[158]";SPC(25-(LEN(M$(MP,0))/2))M$(MP,0)"[145][145]":POKEB,0
7161 GETA$:J%=NOTPEEK(J)AND31:IFJ%=.ANDA$=""THEN7161
7162 POKEB,0:FF=0:IFA$="[145]"ORA$=""ORA$="[134]"ORA$="[133]"ORJ%=1THENFF=1
7164 IFFF=1THENIFPQ>=2THENSYSSD:PRINTQ1$:SYSSD:PRINTQ1$:PQ=PQ-1:GOTO7161
7166 IFA$=""ORA$="[157]"ORA$="[135]"ORA$="[136]"ORJ%=2THENFF=2
7167 IFFF=2THENIFPQ<BLTHENSYSSU:PRINTQ2$:SYSSU:PRINTQ2$:PQ=PQ+1:GOTO7161
7169 IFA$<>CHR$(13)ANDA$<>" "ANDJ%<>16THENGOSUB1280:GOTO7161
7173 GOSUB63300:IFMID$(SQ$,PQ,1)="Q"THENPO=1
7180 IFMID$(SQ$,PQ,1)="R"THEN8000
7190 IFMID$(SQ$,PQ,1)="E"THENF$="LOAD"+CHR$(34)+M$(MP,1)+CHR$(34)+",8":GOTO61000
8000 RETURN
9000 SYS49155:PRINT"[147]";:POKEV+33,.:PRINT"[153] "MT$" #"MN$;:PRINTTAB(24)"[211]IDE "S$" IN DRIVE.";:PRINTWT$;:FORI=2TO18:PRINT"[221]"SPC(38)"[221]";:NEXT:PRINTWB$;:PRINT"[159]"WT$"[221] [195][210][211][210][146] KEYS OR [202]OYSTICK[146] TO SCROLL MENU [221]";:PRINT"[221] [211][208][193][195][197]-[194][193][210][146], [210][197][212][213][210][206][146], OR [194]UTTON[146] [211]ELECTS [221]";
9012 PRINT"[221]       [216][146] KEY TO EXIT [204][207][193][196][211][212][193][210]         [221]";
9022 PRINTLEFT$(WB$,39);:POKE2023,125:POKE56295,3:FORI=217TO242:POKEI,PEEK(I)OR128:NEXT:POKE1020,2:POKE1021,18:POKE1022,1:POKE1023,38:SYS51200:PRINT"[129]";:SYS51203:POKE2040,13:POKEV,60:POKEV+1,128:POKEV+39,7:POKE2041,14:POKEV+2,60:POKEV+3,128:POKEV+40,7:POKE2042,15:POKEV+4,60:POKEV+5,128:POKEV+41,7:POKEV+29,7:RETURN:STOP
50000 Z$="[147]          [204][207][193][196][211][212][193][210] [200]ARDCOPY             ":POKE646,C%(5):PRINTZ$:PRINT"  [196]O YOU WANT YOUR HARDCOPY PRINTED":PRINT""SPC(10)"IN TWO COLUMNS?
51035 [151]B,.:[146]B,1:[161]A$:[139]A$[178]"Y"[167]C8%[178]1:[137]55000
51045 [139]A$[179][177]"N"[167]51035
51050 C8%[178]0
55000 [151]646,C%(5):[153]Z$:[153]"  (null)LEASE MAKE SURE YOUR PRINTER IS":[153]"       ON-LINE AND READY TO GO.":[153]"   (null)RESS A KEY WHEN YOU ARE READY.":[151]B,0:[146]B,1:[161]A$:FL[178]0:[139]MU%[167]MU%[178]0:[141]2705:FL[178]1
55025 [159]4,PA,SA:LC[178].:CL[178]1:[139]C8%[167]55100
55030 [129]I[178]1[164]LL:LC[178]LC[170]1:[139]LC[177]60[167][129]J[178]1[164]6:[152]4," ":[130]:LC[178]1
55035 [152]4,T$(I):[130]:[129]I[178]LL[164]65:[152]4," ":[130]:[137]55160
55100 [139]LL[171]CL[179]120[167]55150
55105 [129]I[178]CL[164]CL[170]59:T$[178]T$(I):[152]4,T$[166]42[171][195](T$))T$(I[170]60):[130]:[129]I[178]1[164]6:[152]4," ":[130]:CL[178]CL[170]120:[137]55100
55150 CH%[178](LL[171]CL[170]2)[173]2:[129]I[178]CL[164]CL[170]CH%[171]1:T$[178]T$(I):[152]4,T$[166]42[171][195](T$))T$(I[170]CH%):[130]:[129]I[178]1[164]4:[152]4," ":[130]
55160 [160]4:[139]FL[178]1[167]MU%[178]1:[141]2705:[141]28
55165 J[178]56320:[137]5999
59999 [151]56325,59:[128]
61000 MU%[178]0:[141]2705:[151]597,MP::PO[178]0:[141]63100:[139]PO[178]1[167]5900
61008 [151]V[170]21,0:[153]"LOAD"F$:[153]"RUN":[151]631,13:[151]632,13:[151]B,2:[151]44,8:[151]56325,59:[128]
63000 [129]I[178].[164]24:[151]S[170]I,.:[130]:[151]S[170]1,100:[151]S[170]2,100:[151]S[170]5,10:[151]S[170]6,2:[151]S[170]24,15:[151]S[170]4,33:[129]DL[178]1[164]600:[130]:[151]S[170]4,32:[142]
63002 [129]I[178]0[164]24:[151]S[170]I,0:[130]:[151]S[170]1,40:[151]S[170]2,40:[151]S[170]5,10:[151]S[170]6,2:[151]S[170]24,15:[151]S[170]4,33:[129]DL[178]1[164]600:[130]:[151]S[170]4,32:[142]
63100 [142]    :
63100 [141]63230:[139][197](S$)[178][197](M$(MP,3))[167][142]
63106 [153]"SYS";:[151]V[170]21,0:[153]"LOAD(null)HE DISKETTE CURRENTLY IN YOUR DRIVE IS":[139]I1$[179][177]"\"[167][153]"     NOT A REGULAR (null)(null)ATNSTR$(null)(null)ATN(null) ISSUE.":[137]63140
63130 [153]"         SIDE "S$" OF (null)(null)ATNSTR$(null)(null)ATN(null)"[197](N1$[170]N2$)
63140 KL$[178]"'"[170]M$(MP,0)[170]"' IS ON":[153]""[166]20[171][195](KL$)[173]2);KL$"":[153]"         SIDE "M$(MP,3)" OF (null)(null)ATNSTR$(null)(null)ATN(null) "MN$".":[153]:[153]:[153]"  ASCLIP THE DISK OVER AND RE-INSERT IT":[153]"  INTO THE DRIVE AND PRESS SPACE BAR":[153]"   OR PRESS (null)VAL(null)(null)(null)(null)WAIT TO RETURN TO MENU
63210 POKEB,.:WAITB,1:GETK$:IFK$<>" "THENPO=1:PRINT"[147]";:RETURN
63220 PRINT"[147]":GOTO63100
63230 CLOSE8:OPEN8,8,8,"#":PRINT#15,"UA:8 0 18 0":PRINT#15,"B-P:8 154":GET#8,N1$,N2$,A$,A$,A$,S$,A$,A$,I1$,I2$:CLOSE8:RETURN
63300 KT=PEEK(1020):KB=PEEK(1021):KL=PEEK(1022):KR=PEEK(1023):FORPP=1020TO1023:POKEPP,0:NEXT:POKEV+21,4:GOSUB63000:POKEV+21,VAL(M$(MP,3)):GOSUB63002:POKE1020,KT:POKE1021,KB:POKE1022,KL:POKE1023,KR:RETURN
63400 LOAD"GOODBYE",8