10 IFX=0THENX=1:LOAD"PACKAGE.51.O",8,1
20 SYS38921,50432,"JOEPLAY":SYS38921,35840,"SOS.LNK":SYS38921,51456,"UNPACKER":SYS38921,40960,"ROMUSIC":POKE56,114:CLR:SYS38933,29184,35840,0:SYS38921,29184,"FEATURES":IFAG=0THENAG=0
44 POKE808,234:R=53265:J=128:SYS38921,49152,"MENU.HELP.LNK":SU=38912:SD=SU+3:WW=SD+3:BL=WW+3:CW=BL+3:RE=CW+3:TE=RE+3:FI=TE+3:US=FI+3:S=54272:POKE649,1:DIMM$(110,3),T$(450):GOSUB780:SP$="                                             
120 LM[178]1:RM[178]38:TM[178]3:BM[178]20:[141]270:[158]WW:[158]CW,16:LP[178]1:LM[178]1:RM[178]38:TM[178]3:BM[178]19:[141]270:[158]WW:[158]CW,1:[141]3220:[139]MU[167][158]50432,40960
160 [141]530:[158]51459:[151]53270,[194](53270)[175]239
170 LM[178]1:RM[178]37:TM[178]3:BM[178]19:[141]3220:[141]950
230 [139][200](M$(MP,0),1)[178]"*"[167][141]1550:[137]230
240 [137]1200
270 [151]828,LM:[151]829,RM:[151]830,TM:[151]831,BM:DI[178]BM[171]TM:[142]
330 LM[178][194](828):RM[178][194](829):TM[178][194](830):BM[178][194](831):DI[178]BM[171]TM:[142]
390 [151]828,0:[151]829,39:[151]830,0:[151]831,19:[142]
440 SH[178]6:XP[178]4:YP[178]9:[141]530:[158]51462:[129]DL[178]1[164]100:[130]:SH[178]5:XP[178]1:YP[178]9:[141]530:[158]51462:[158]TE,[200](M$(MP,3),1),2,12,0:[142]
530 [151]249,224:[151]250,204:[151]251,0:[151]252,SB:[151]253,XP:[151]254,YP:[151]255,SH:[142]
600 [141]270:[158]WW:QU[178]0:[141]4020:[139]QU[178]1[167][142]
630 [129]DL[178]1[164]200:[130]:[141]530:[158]51459:[158]50435:[153]"LOAD":[151]56,160:[156]:[151]808,237:[151]56325,59:[147]"GOODBYE",8:[128]
680 V[178]53248:[139][168](MU)[167]730
700 [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
730 [129]I[178]59[164]63:[146]R,J:[151]R,I:[130]:[129]I[178]63[164]56[169][171]1:[146]R,J:[146]R,J:[151]R,I:[130]:[129]I[178]56[164]59:[146]R,J:[146]R,J:[146]R,J:[146]R,J:[151]R,I:[130]:[142]
780 [158]RE,29184,T$(0):MO$[178]T$(2):M[178]1:NL[178][194](251)[170][194](252)[172]256[171]2:NL[178](NL[171]2)[173]4:C[178]3:[129]X[178]1[164]NL:M$(X,0)[178]T$(C):T$(C)[178]"":M$(X,1)[178]T$(C[170]1):T$(C[170]1)[178]"":M$(X,2)[178]T$(C[170]2):T$(C[170]2)[178]"":M$(X,3)[178]T$(C[170]3):T$(C[170]3)[178]"":C[178]C[170]4:[130]:M[178]NL:A[178][194](51)[170][194](52)[172]256:A[178]A[171]1:AH[178][181](A[173]256):AL[178]A[171]AH[172]256
890 [159]2,8,2,"SETUP":[132]2,BO,BK,TC,PA,SA:[160]2:MU[178][194](179):CO[178][194](180):[139]MU[179][177]1[175]MU[179][177]0[167]MU[178]1
914 [139]MU[178]1[167]MU[178][171]1
916 [139]CO[179][177]1[175]CO[179][177]0[167]CO[178]1
918 [139]CO[178]1[167]CO[178][171]1
920 [129]X[178]0[164]24:[151]S[170]X,0:[130]:MP[178][194](178):[141]4130:[139]S$[178]"1"[167]930
927 [139]MP[179][177]0[167]930
928 MP[178]1
929 [143] IFM$(MP,3)<>S$THENMP=MP+1:GOTO929
930 [139]MP[179]1[176]MP[177]NL[167]MP[178]1
935 [142]
950 RF[178]0:LM[178]8:RM[178]38:[141]270:[158]WW:[158]CW,1:SH[178]5:XP[178]1:YP[178]9:[141]530:[158]51462:YP[178]3:XP[178]LM:BR[178]MP[171]8[170][182](MP[177]8):[129]X[178]BR[164]MP[170]9:[139]X[179]0[167][158]TE," ",XP,YP,0:[137]1070
1020 [139]X[178]0[167]X[178]1
1030 MO[178]0:[141]1110:[141]1160:[139]FL[178]1[167][158]TE,[202](M$(X,0),2),XP,YP,MO:[137]1070
1060 [158]TE,M$(X,0),XP,YP,MO
1070 YP[178]YP[170]1:[130]:[142]
1110 MO[178]0:[139][200](M$(X,0),1)[178]"+"[176][200](M$(X,0),1)[178]"!"[167]MO[178]1
1140 [142]
1160 FL[178]0:[139][200](M$(X,0),1)[178]"+"[176][200](M$(X,0),1)[178]"*"[167]FL[178]1
1172 [139][200](M$(X,0),1)[178]"!"[167]FL[178]1
1180 [142]
1200 [151]53280,6
1220 [158]TE,M$(MP,3),2,12,0:[141]1340:[139]OP[178]1[167][141]1550
1250 [139]OP[178]2[167][141]1650
1260 [139]OP[178]3[167][141]440:LM[178]7:RM[178]37:[141]270:[158]WW:[158]CW,1:[137]1920
1270 [139]OP[178]4[167][141]600:[151]828,7:[151]831,17:[151]829,37:[158]CW,1:[158]WW:[141]950
1272 [139]OP[178]4[167]1200
1280 [139]OP[178]5[167][141]1760
1290 [139]OP[178]6[167][141]1840
1300 [139]OP[178]7[167][141]3720:LM[178]7:[141]270:[158]WW:[158]CW,1:[137]170
1310 [137]1220
1340 :
1350 [139]MU[175][194](666)[178]0[167][158]50432,40960
1352 [139][194](197)[178]64[175][194](56320)[178]127[167]1350
1360 A[178][194](197):J%[178][168][194](56320)[175]31:B[178][194](653):[151]198,.
1363 [139](B[175]1)[175](A[178]7)[167]OP[178]2:[137]1530
1366 [139](B[175]1)[175](A[178]2)[167]OP[178]1:[137]1530
1370 [139]A[178]64[175]J%[178]0[167]1350
1380 [139]A[178]6[176]A[178]7[176]J%[178]2[167]OP[178]1:[137]1530
1390 [139]A[178]5[176]A[178]2[176]J%[178]1[167]OP[178]2:[137]1530
1400 [139]A[178]1[176]A[178]60[176]J%[178]16[167]OP[178]3:[137]1530
1410 [139]A[178]62[167]OP[178]4:[137]1530
1420 [139]A[178]3[176]J%[178]8[167]OP[178]5:[137]1530
1430 [139]A[178]4[176]J%[178]4[167]OP[178]6:[137]1530
1440 [139]A[178]41[167]OP[178]7:[137]1530
1470 [139]A[178]13[167][141]3460:[137]1350
1480 [139]A[178]20[175]RF[178]1[167][141]3520:[137]1350
1490 [139]A[178]28[175]RF[178]1[167][141]3570:[137]1350
1510 [139]MM[178].[167][141]9000:[137]1363
1520 MM[178].:[137]1350
1530 MM[178].:[142]
1550 :
1560 [139]MP[178]M[167][141]680:[137]1630
1570 [141]270:[158]SU:MP[178]MP[170]1:YP[178]BM:XP[178]LM:X[178]MP[170]9:[141]1110:[141]1160:[158]TE,[200](SP$,30),XP,YP,0:[139]FL[178]1[167][158]TE,[202](M$(X,0),2),XP,YP,MO:[137]1610
1600 [158]TE,M$(X,0),XP,YP,MO
1610 [139][200](M$(MP,0),1)[179][177]"*"[175][200](M$(MP,0),1)[179][177]"!"[167]1630
1620 [139]MP[179][177]M[167]1560
1622 [141]680:[141]1650
1630 [142]
1650 :
1660 [139]MP[178]1[167][141]680:[137]1740
1670 [141]270:[158]SD:MP[178]MP[171]1:YP[178]TM:XP[178]LM:X[178]MP[171]7:[158]TE,[200](SP$,30),XP,YP,0:[139]X[179]1[167][158]TE," ",XP,YP,0:[137]1720
1690 [141]1110:[141]1160:[139]FL[178]1[167][158]TE,[202](M$(X,0),2),XP,YP,MO:[137]1720
1710 [158]TE,M$(X,0),XP,YP,MO
1720 [139][200](M$(MP,0),1)[179][177]"*"[175][200](M$(MP,0),1)[179][177]"!"[167]1740
1730 [139]MP[179][177]1[167]1660
1732 [141]680:[141]1550
1740 [142]
1760 TT[178]MP[170]DI:[139]TT[177]M[167]TT[178]M
1790 MP[178]TT:[141]950:[139][200](M$(MP,0),1)[179][177]"*"[175][200](M$(MP,0),1)[179][177]"!"[167]1820
1800 [139]MP[179][177]M[167][141]1550:[137]1820
1810 [141]680:[141]1650
1820 [142]
1840 TT[178]MP[171]DI:[139]TT[179]1[167]TT[178]1
1870 MP[178]TT:[141]950:[139][200](M$(MP,0),1)[179][177]"*"[175][200](M$(MP,0),1)[179][177]"!"[167]1900
1880 [139]MP[179][177]1[167][141]1650:[137]1900
1890 [141]680:[141]1550
1900 [142]
1920 SH[178]1:XP[178]0:YP[178]20:[141]530:[158]51462:CB[178]2:[141]5000:SH[178]0:XP[178]0:YP[178]0:[141]530:[158]51462:[141]270:RF[178]0:SH[178]4:XP[178]7:YP[178]4:[141]530:[158]51462:T$[178]M$(MP,2):[139]T$[178]"100"[167]2310
1980 LM[178]8:RM[178]29:TM[178]6:BM[178]14:[141]270:SH[178]2:XP[178]0:YP[178]3:[141]530:[158]51462:SH[178]3:XP[178]39:YP[178]3:[141]530:[158]51462:SH[178]5:XP[178]1:YP[178]9:[141]530:[158]51462:[158]TE,M$(MP,3),2,12,0:X[178]MP:[141]1110:[139]MO[178]1[167][158]TE,[202](M$(MP,0),2),LM,5,0:[137]2070
2065 [158]TE,M$(MP,0),LM,5,0:LD[178]10:NQ[178]1
2070 [139][202](T$,1,1)[178]"1"[167][158]TE,"(null)EAD IT",LM,LD,0:LD[178]LD[170]1:NQ[178]NQ[170]1
2080 [139][202](T$,2,1)[178]"1"[167][158]TE,"(null)UN IT",LM,LD,0:LD[178]LD[170]1:NQ[178]NQ[170]1
2090 [139][202](T$,3,1)[178]"1"[167][158]TE,"LENOPY IT",LM,LD,0:LD[178]LD[170]1:NQ[178]NQ[170]1
2092 [158]TE,"PEEKACK TO (null)AIN (null)ENU",LM,LD,0:LW[178]1
2110 [141]1340:[139]OP[178]1[167][139]LW[179]NQ[167][158]SU:LW[178]LW[170]1:[137]2110
2130 [139]OP[178]2[167][139]LW[177]1[167][158]SD:LW[178]LW[171]1:[137]2110
2140 [139]OP[178]3[167][141]440:[137]2250
2160 [139]OP[178]5[167][139]LW[179]NQ[167][158]SU:LW[178]LW[170]1:[137]2160
2170 [139]OP[178]5[167]2110
2180 [139]OP[178]6[167][139]LW[177]1[167][158]SD:LW[178]LW[171]1:[137]2180
2190 [139]OP[178]6[167]2110
2200 [139]OP[178]6[167][139]LW[177]1[167][158]SD:LW[178]LW[171]1:[137]2200
2220 [141]680:[137]2110
2250 [139]LW[178]NQ[167]2282
2257 PT[178]1:NU[178]0
2260 [139][202](T$,PT,1)[179][177]"1"[167]PT[178]PT[170]1:[137]2260
2264 NU[178]NU[170]1:[139]NU[179][177]LW[167]PT[178]PT[170]1:[137]2260
2280 [145]PT[137]2310,4410,8000
2282 LM[178]7:RM[178]36:TM[178]4:BM[178]15:[141]270:[158]WW:[158]CW,1:[137]170
2290 [144]
2310 RF[178]1:[151]53280,BO:X[178]MP:[141]1110:[139]MO[178]1[167][158]TE,[202](M$(MP,0),2),8,5,0:[137]2332
2330 [158]TE,M$(MP,0),8,5,0
2332 [139]MP[179][177]OL[167][158]50435
2340 [158]TE,"CHR$ETTING THE FILE...",8,10,0:[129]AG[178]11[164]13:[158]TE,[200](SP$,19),8,AG,0:[130]
2360 [139]MP[178]OL[167]2400
2380 [141]4350:[139]FL[178]0[167]2390
2384 LW[178]NQ:[139]MU[167][158]50438
2386 [137]2282
2390 [141]3160
2400 SH[178]7:XP[178]39:YP[178]3:[141]530:[158]51462:SH[178]7:XP[178]0:YP[178]3:[141]530:[158]51462:LM[178]0:RM[178]39:TM[178]0:BM[178]19:[139]T$(0)[178]"^X"[167]BM[178]24
2440 [141]270:[158]CW,1:[158]WW:TM[178]1:[141]270:U$[178]"(null)EADING: ":X[178]MP:[141]1110:[139]MO[178]1[167]U$[178]U$[170][202](M$(MP,0),2):[137]2470
2465 U$[178]U$[170]M$(MP,0)
2470 U$[178]U$[170][200](SP$,40[171][195](U$)):[158]TE,U$,0,0,1:[139][200](T$(0),2)[179][177]"^U"[175][200](T$(0),2)[179][177]"^X"[167]2590
2520 [139]OL[178]MP[167]2560
2530 U$[178]"U."[170][202](T$(0),4):[158]BL,US,U$:[158]BL,29184,[202](T$(0),4)[170]".LNK
2560 SYSUS::GOSUB330
2590 CB=3:IFMUTHENSYS50438
2592 IFCO=0THENGOSUB3570
2594 IFCOTHENGOSUB3520
2595 OL=MP:GOSUB270:LP=1:GOSUB2640:GOSUB270:GOTO2720
2640 GOSUB270:SYSWW:TT=TM:FORX=LPTOLP+DI:IFT$(X)="^U"ORT$(X)="^X"THENSYSTE," ",LM,TT,0:GOTO2690
2675 IFX>NLTHENSYSTE," ",LM,TT,0:GOTO2690
2680 SYSTE," "+T$(X),LM,TT,0
2690 TT=TT+1:NEXT:RETURN
2720 GOSUB1340:IFOP=1THENGOSUB2820
2740 IFOP=2THENGOSUB2900
2760 IFOP=3THEN2980
2770 IFOP=5THENGOSUB3030
2780 IFOP=6THENGOSUB3100
2790 IFOP=7THENGOSUB3870:GOTO2360
2800 GOTO2720
2820 IFLP+DI>=NLTHEN2870
2840 GOSUB270:SYSSU:LP=LP+1:SYSTE,LEFT$(SP$,RM-LM+1),LM,BM,0:SYSTE," "+T$(LP+DI),LM,BM,0:GOTO2880
2870 GOSUB680
2880 RETURN
2900 IFLP=1THEN2950
2920 GOSUB270:SYSSD:LP=LP-1:SYSTE,LEFT$(SP$,RM-LM+1),LM,TM,0:SYSTE," "+T$(LP),LM,TM,0:GOTO2960
2950 GOSUB680
2960 RETURN
2980 GOSUB390:SYSCW,1:SYSWW:GOSUB270:IFM$(MP,2)="100"THEN170
3010 GOTO1920
3030 TP=LP+DI+1:IFTP>NLTHENGOSUB680:GOTO3080
3060 IFTP<1THENGOSUB680:TP=1
3070 LP=TP:GOSUB2640
3080 RETURN
3100 TP=LP-DI-1:IFTP<1THENGOSUB680:TP=1
3130 LP=TP:GOSUB2640:RETURN
3160 POKE51,AL:POKE52,AH:SYSFI,29184,35840,0:SYSBL,29184,LEFT$("T."+M$(MP,1),16)
3170 SYSRE,29184,T$(0):NL=PEEK(251)+PEEK(252)*256-2:RETURN
3220 SB=140:SH=0:XP=0:YP=0:GOSUB530:SYS51462:SH=1:XP=0:YP=20:GOSUB530:SYS51462:CB=1:GOSUB5000:SH=2:XP=0:YP=3:GOSUB530:SYS51462:SH=3:XP=39:YP=3:GOSUB530:SYS51462:RETURN
3460 MU=NOTMU:GOSUB5000:IFMUTHENSYS50432,40960:GOTO3500
3490 SYS50435
3500 RETURN
3520 CO=-1:GOSUB5000:GOSUB270:SYSCW,BK+16*TC:RETURN
3570 CO=0:GOSUB5000:GOSUB270:SYSCW,1:RETURN
3620 GOSUB270:SYSWW:SH=4:XP=7:YP=4:GOSUB530:SYS51462:SYSTE,"[208][210][201][206][212][207][213][212]",8,5,0:SYSTE,"  [208]RESS <[211][208][193][195][197]> TO [208]RINT",9,8,0:SYSTE,"  [208]RESS <[197]> TO [197]XIT",10,10,0
3680 POKE198,0:WAIT198,1:GETA$:IFA$<>" "ANDA$<>"E"THEN3680
3690 FL=0:IFA$="E"THENFL=1
3700 RETURN
3720 :
3730 GOSUB3620:IFFL=1THEN3850
3742 GOSUB7000:IFPO=1THEN3730
3745 SYS50435:OPEN4,PA,SA:LC=0:CL=1
3760 IFM-CL<120THEN3810
3770 FORI=CLTOCL+59:PRINT#4,M$(I,0)LEFT$(SP$,42-LEN(M$(I,0)))M$(I+60,0):NEXT:FORI=1TO6:PRINT#4:NEXT:CL=CL+120:GOTO3760
3810 CH%=(M-CL+2)/2:FORI=CLTOCL+CH%-1:PRINT#4,M$(I,0)LEFT$(SP$,42-LEN(M$(I,0)))M$(I+CH%,0):NEXT:FORI=1TO4:PRINT#4:NEXT:CLOSE4:IFMUTHENSYS50438
3850 RETURN
3870 :
3880 GOSUB3620:IFFL=1THEN4000
3892 GOSUB7000:IFPO=1THEN3880
3895 SYS50435:OPEN4,PA,SA:LC=0:CL=1
3910 IFNL-CL<120THEN3960
3920 FORI=CLTOCL+59:PRINT#4,T$(I)LEFT$(SP$,42-LEN(T$(I)))T$(I+60):NEXT:FORI=1TO6:PRINT#4:NEXT:CL=CL+120:GOTO3910
3960 CH%=(NL-CL+2)/2:FORI=CLTOCL+CH%-1:PRINT#4,T$(I)LEFT$(SP$,42-LEN(T$(I)))T$(I+CH%):NEXT:FORI=1TO4:PRINT#4:NEXT:CLOSE4:IFMUTHENSYS50438
4000 GOSUB390:SYSWW:SYSCW,1:GOSUB270:RETURN
4020 SH=4:XP=7:YP=4:GOSUB530:SYS51462:SYSTE,"[209]UIT?",8,5,0:SYSTE,"[193]RE YOU SURE YOU WANT",10,10,0:SYSTE,"TO [209][213][201][212]? [[217]/[206]]",13,12,0
4070 POKE198,0:WAIT198,1:GETA$:IFA$<>"Y"ANDA$<>"N"THENGOSUB680:GOTO4070
4090 IFA$="Y"THEN4110
4100 QU=1
4110 RETURN
4130 OPEN15,8,15,"I0":OPEN8,8,8,"#":PRINT#15,"UA:8 0 18 0":PRINT#15,"B-P:8 154":GET#8,A$,A$,A$,A$,A$,S$:CLOSE8:CLOSE15:RETURN
4220 GOSUB270:S$="[211]IDE "+M$(MP,3)+" OF [204][207][193][196][211][212][193][210] #"+MO$:SYSTE,S$,8,7,0:SYSTE,"NOT FOUND!",14,8,0:SYSTE,"[201]NSERT THAT SIDE AND",8,10,0:SYSTE,"PRESS <[211][208][193][195][197]>",12,11,0:SYSTE,"<'[197]' TO [197][216][201][212]>",12,12,0
4300 POKE198,0:WAIT198,1:GETA$:IFA$<>" "ANDA$<>"E"THENGOSUB680:GOTO4300
4320 FL=0:IFA$="E"THENFL=1
4330 RETURN
4350 :
4360 GOSUB4130:FL=0:RETURN
4380 GOSUB4220:IFFL=0THEN4360
4390 RETURN
4410 GOSUB270:SYSWW:SYSTE,"[208]LEASE STAND BY...",LM,10,0:GOSUB4350:IFFL<>0THENLW=3:GOSUB2280
4450 SYS50435:OPEN15,8,15,"I0":CLOSE15:PRINT"[147]POKE56325,59:LOADM$(MP,1),8":PRINT"POKE56,160:CLR:SYS51459:RUN
4520 [151]631,13:[151]632,13:[151]198,2:[151]178,MP:[151]179,[182](MU):[151]180,[182](CO):[151]808,237:[128]
5000 [139]BM[178]24[167]5100
5020 [139]MU[167][158]TE,"[(null)]ILENCE",0,24,0:[137]5050
5030 [158]TE,"[(null)]OUND  ",0,24,0
5050 [139]CB[178]2[167]5060
5055 [158]TE,"[(null)]RINT",33,24,0
5060 [139]CB[178]2[167][158]TE,"(null)ELECTS",26,23,0:[137]5100
5080 [139]CB[178]1[167][158]TE,"[(null)]UIT",16,24,0:[158]TE,"(null)ELECTS",26,23,0:[137]5100
5085 [158]TE,"VALXITS",26,23,1:[158]TE,"  ",31,23,0:[139]CO[167][158]TE,"[PEEK]LACK & (null)HITE",13,24,0:[137]5100
5095 [158]TE,"  [LEN]OLOR        ",13,24,0
5100 [142]:[153]"LOADSTR$ISK VALRROR -- "M$(MP,1)"? -- "ER:[158]51459:[153]"":[151]808,237:[151]56,160:[156]:[128]
7000 PO[178]0:[159]15,4,15:[160]15:SG[178]ST:[158]TE,"                        ",9,8,0:[158]TE,"                    ",10,10,0:[139]SG[179][177]0[167][158]TE,"(null)RINTER (null)OT (null)EADY...",9,10,0:[129]DL[178]1[164]500:[130]:PO[178]1
7025 [139]SG[178]0[167][158]TE,"(null)OW PRINTING...",10,10,0
7030 [142]
8000 [141]270:[158]WW:[158]TE,"(null)LEASE STAND BY...",LM,10,0:[153]"LOADLOAD"[199](34)"COPIER"[199](34)",8":[153]"RUN":F$[178]M$(MP,1):[129]X[178]1[164][195](F$):[151]32767[170]X,[198]([202](F$,X,1)):[130]:[151]X[170]32767,0:[158]50435:[137]4520
9000 [151]249,224:[151]250,204:[151]251,0:[151]252,192:[151]253,0:[151]254,22:[151]255,0:[158]51462:[151]198,.:MM[178]150
9050 MM[178]MM[171]1:[139]MU[175][194](666)[178]0[167][158]50432,40960
9055 A[178][194](203):B[178][194](653):[139](A[178]64)[175](MM[177].)[167]9050
9060 SH[178]1:XP[178]0:YP[178]20:[141]530:[158]51462:[141]5000:MM[178]1:[142]