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:POKE808,234:R=53265:J=128: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:POKE649,1:DIMM$(110,3),T$(450):GOSUB780
110 SP$="                                             ":LM=1:RM=38:TM=3:BM=20:GOSUB270:SYSWW:SYSCW,16:LP=1:LM=1:RM=38:TM=3:BM=19:GOSUB270:SYSWW:SYSCW,1:GOSUB3220:IFMUTHENSYS50432,40960
160 GOSUB530:SYS51459:POKE53270,PEEK(53270)AND239
170 LM=1:RM=37:TM=3:BM=19:GOSUB3220:GOSUB950
230 X=MP:GOSUB1160:IFFL=1THENGOSUB1550:GOTO230
240 GOTO1200
270 POKE828,LM:POKE829,RM:POKE830,TM:POKE831,BM:DI=BM-TM:RETURN
330 LM=PEEK(828):RM=PEEK(829):TM=PEEK(830):BM=PEEK(831):DI=BM-TM:RETURN
390 POKE828,0:POKE829,39:POKE830,0:POKE831,19:RETURN
440 IFNOT(MU)THEN470
460 SYS50435:S=54272:POKES+24,15:POKES+5,9:POKES+1,20:POKES+4,128
470 SH=6:XP=4:YP=9:GOSUB530:SYS51462:FORDL=1TO100:NEXT:POKES+4,129:SH=5:XP=1:YP=9:GOSUB530:SYS51462:SYSTE,LEFT$(M$(MP,3),1),2,12,0:POKES+4,128:IFMUTHENSYS50438
510 RETURN
530 POKE249,224:POKE250,204:POKE251,0:POKE252,SB:POKE253,XP:POKE254,YP:POKE255,SH:RETURN
600 GOSUB270:SYSWW:QU=0:GOSUB4020:IFQU=1THENRETURN
630 FORDL=1TO200:NEXT:GOSUB530:SYS51459:SYS50435:PRINT"[147]":POKE56,160:CLR:POKE808,237:LOAD"GOODBYE",8:END
680 S=54272:V=53248:IFNOT(MU)THEN730
700 POKES+4,0:POKES+11,0:POKES+18,0:POKES+5,8:POKES+6,0:POKES+24,15:POKES+4,20:POKES,RND(0)*256:POKES+1,RND(0)*256:POKES+14,RND(0)*256:POKES+15,30:POKES+4,21
730 FORI=59TO63:WAITR,J:POKER,I:NEXT:FORI=63TO56STEP-1:WAITR,J:WAITR,J:POKER,I:NEXT:FORI=56TO59:WAITR,J:WAITR,J:WAITR,J:WAITR,J:POKER,I:NEXT:RETURN
780 SYSFI,29184,35840,0:SYSBL,29184,"FEATURES":SYSRE,29184,T$(0):MO$=T$(2):M=1:NL=PEEK(251)+PEEK(252)*256-2:NL=(NL-2)/4:C=3:FORX=1TONL:M$(X,0)=T$(C):T$(C)="":M$(X,1)=T$(C+1):T$(C+1)="":M$(X,2)=T$(C+2):T$(C+2)="":M$(X,3)=T$(C+3):T$(C+3)="":C=C+4
860 NEXT:M=NL:A=PEEK(51)+PEEK(52)*256:A=A-1:AH=INT(A/256):AL=A-AH*256
861 OPEN2,8,2,"SETUP":INPUT#2,BO,BK,TC,PA,SA,MU,CO:CLOSE2:S=54272
862 FORX=0TO24:POKES+X,0:NEXT:MP=PEEK(178):GOSUB4130:IFS$<>"2"THEN930
927 IFMP<>0THEN930
928 MP=1
929 IFM$(MP,3)<>"2"THENMP=MP+1:GOTO929
930 IFMP<1ORMP>NLTHENMP=1
935 RETURN
950 RF=0:LM=8:RM=38:GOSUB270:SYSWW:SYSCW,1:SH=5:XP=1:YP=9:GOSUB530:SYS51462:YP=3:XP=LM:BR=MP-8+ABS(MP>8):FORX=BRTOMP+9:IFX<0THENSYSTE," ",XP,YP,0:GOTO1070
1020 IFX=0THENX=1
1030 MO=0:GOSUB1110:GOSUB1160:IFFL=1THENSYSTE,MID$(M$(X,0),2),XP,YP,MO:GOTO1070
1060 SYSTE,M$(X,0),XP,YP,MO
1070 YP=YP+1:NEXT:RETURN
1110 MO=0:IFLEFT$(M$(X,0),1)="+"THENMO=1
1140 RETURN
1160 FL=0:IFLEFT$(M$(X,0),1)="+"ORLEFT$(M$(X,0),1)="*"THENFL=1
1180 RETURN
1200 POKE53280,6
1220 SYSTE,M$(MP,3),2,12,0:GOSUB1340:IFOP=1THENGOSUB1550
1250 IFOP=2THENGOSUB1650
1260 IFOP=3THENGOSUB440:LM=7:RM=37:GOSUB270:SYSWW:SYSCW,1:GOTO1920
1270 IFOP=4THENGOSUB600:POKE828,7:SYSCW,1:SYSWW:GOSUB950:GOTO1200
1280 IFOP=5THENGOSUB1760
1290 IFOP=6THENGOSUB1840
1300 IFOP=7THENGOSUB3720:LM=7:GOSUB270:SYSWW:SYSCW,1:GOTO170
1310 GOTO1220
1340 :
1350 IFMUANDPEEK(666)=0THENSYS50432,40960
1352 IFPEEK(197)=64ANDPEEK(56320)=127THEN1350
1360 A=PEEK(197):J%=NOTPEEK(56320)AND31:POKE198,0:IFA=64ANDJ%=0THEN1350
1380 IFA=6ORA=7ORJ%=2THENOP=1:GOTO1530
1390 IFA=5ORA=2ORJ%=1THENOP=2:GOTO1530
1400 IFA=1ORA=60ORJ%=16THENOP=3:GOTO1530
1410 IFA=62THENOP=4:GOTO1530
1420 IFA=3ORJ%=8THENOP=5:GOTO1530
1430 IFA=4ORJ%=4THENOP=6:GOTO1530
1440 IFA=41THENOP=7:GOTO1530
1470 IFA=13THENGOSUB3460:GOTO1350
1480 IFA=20ANDRF=1THENGOSUB3520:GOTO1350
1490 IFA=28ANDRF=1THENGOSUB3570:GOTO1350
1510 GOSUB680:GOTO1350
1530 RETURN
1550 :
1560 IFMP=MTHENGOSUB680:GOTO1630
1570 GOSUB270:SYSSU:MP=MP+1:YP=BM:XP=LM:X=MP+9:GOSUB1110:GOSUB1160:SYSTE,LEFT$(SP$,30),XP,YP,0:IFFL=1THENSYSTE,MID$(M$(MP+9,0),2),XP,YP,MO:GOTO1610
1600 SYSTE,M$(MP+9,0),XP,YP,MO
1610 X=MP:GOSUB1160:IFFL=1ANDMP<>MTHEN1560
1620 IFFL=1THENGOSUB680:GOSUB1650
1630 RETURN
1650 :
1660 IFMP=1THENGOSUB680:GOTO1740
1670 GOSUB270:SYSSD:MP=MP-1:YP=TM:XP=LM:X=MP-7:SYSTE,LEFT$(SP$,30),XP,YP,0:IFMP-7<1THENSYSTE," ",XP,YP,0:GOTO1720
1690 GOSUB1110:GOSUB1160:IFFL=1THENSYSTE,MID$(M$(MP-7,0),2),XP,YP,MO:GOTO1720
1710 SYSTE,M$(MP-7,0),XP,YP,MO
1720 X=MP:GOSUB1160:IFFL=1ANDMP<>1THEN1660
1730 IFFL=1THENGOSUB680:GOSUB1550
1740 RETURN
1760 TT=MP+DI:IFTT>MTHENTT=M
1790 MP=TT:GOSUB950:X=MP:GOSUB1160:IFFL=1ANDMP<>MTHENGOSUB1550
1810 IFFL=1ANDMP=MTHENGOSUB680:GOSUB1650
1820 RETURN
1840 TT=MP-DI:IFTT<1THENTT=1
1870 MP=TT:GOSUB950:X=MP:GOSUB1160:IFFL=1ANDMP<>1THENGOSUB1650
1890 IFFL=1ANDMP=1THENGOSUB680:GOSUB1550
1900 RETURN
1920 SH=1:XP=0:YP=20:GOSUB530:SYS51462:CB=2:GOSUB5000:SH=0:XP=0:YP=0:GOSUB530:SYS51462:GOSUB270:RF=0:SH=4:XP=7:YP=4:GOSUB530:SYS51462:T$=M$(MP,2):IFT$="RQ"THEN2310
1980 LM=8:RM=29:TM=7:BM=13:GOSUB270:SH=2:XP=0:YP=3:GOSUB530:SYS51462:SH=3:XP=39:YP=3:GOSUB530:SYS51462:SH=5:XP=1:YP=9:GOSUB530:SYS51462:SYSTE,M$(MP,3),2,12,0:SYSTE,M$(MP,0),LM,5,0:SYSTE,"[210]EAD ALL ABOUT IT",LM,10,0:SYSTE,"[204]ET'S DO IT!",LM,11,0:SYSTE,"[199]O BACK TO [205]AIN [205]ENU",LM,12,0:LW=1
2110 GOSUB1340:IFOP=1THENIFLW<3THENSYSSU:LW=LW+1:GOTO2110
2130 IFOP=2THENIFLW>1THENSYSSD:LW=LW-1:GOTO2110
2140 IFOP=3THENGOSUB440:GOTO2250
2160 IFOP=5THENIFLW<3THENSYSSU:LW=LW+1:GOTO2160
2170 IFOP=5THEN2110
2180 IFOP=6THENIFLW>1THENSYSSD:LW=LW-1:GOTO2180
2190 IFOP=6THEN2110
2200 IFOP=6THENIFLW>1THENSYSSD:LW=LW-1:GOTO2200
2220 GOSUB680:GOTO2110
2250 IFLW=1THEN2310
2270 IFLW=2THEN4410
2280 IFLW=3THENLM=7:RM=36:TM=4:BM=15:GOSUB270:SYSWW:SYSCW,1:GOTO170
2290 STOP
2310 RF=1:POKE53280,BO:SYSTE,M$(MP,0),8,5,0:IFMP<>OLTHENSYS50435
2340 SYSTE,"[199]ETTING THE FILE...",8,10,0:SYSTE,"                   ",8,11,0:SYSTE,"                    ",8,12,0
2360 IFMP=OLTHEN2400
2380 GOSUB4350:IFFL=0THEN2390
2384 LW=3:IFMUTHENSYS50438
2386 GOTO2280
2390 GOSUB3160
2400 SH=7:XP=39:YP=3:GOSUB530:SYS51462:SH=7:XP=0:YP=3:GOSUB530:SYS51462:LM=0:RM=39:TM=0:BM=19:IFT$(0)="^X"THENBM=24
2440 GOSUB270:SYSCW,1:SYSWW:TM=1:GOSUB270:SYSTE,"[210]EADING: "+M$(MP,0)+LEFT$(SP$,31-LEN(M$(MP,0))),0,0,1:IFT$(0)<>"^U"ANDT$(0)<>"^X"THEN2590
2520 IFOL=MPTHEN2560
2530 U$="U."+M$(MP,1):SYSBL,US,U$:SYSBL,29184,M$(MP,1)+".LNK
2560 [158]US::[141]330
2590 CB[178]3:[139]MU[167][158]50438
2592 [139]CO[178]0[167][141]3570
2594 [139]CO[167][141]3520
2595 OL[178]MP:[141]270:LP[178]1:[141]2640:[141]270:[137]2720
2640 [141]270:[158]WW:TT[178]TM:[129]X[178]LP[164]LP[170]DI:[139]T$(X)[178]"^U"[176]T$(X)[178]"^X"[167][158]TE," ",LM,TT,0:[137]2690
2675 [139]X[177]NL[167][158]TE," ",LM,TT,0:[137]2690
2680 [158]TE," "[170]T$(X),LM,TT,0
2690 TT[178]TT[170]1:[130]:[142]
2720 [141]1340:[139]OP[178]1[167][141]2820
2740 [139]OP[178]2[167][141]2900
2760 [139]OP[178]3[167]2980
2770 [139]OP[178]5[167][141]3030
2780 [139]OP[178]6[167][141]3100
2790 [139]OP[178]7[167][141]3870:[137]2360
2800 [137]2720
2820 [139]LP[170]DI[177][178]NL[167]2870
2840 [141]270:[158]SU:LP[178]LP[170]1:[158]TE,[200](SP$,RM[171]LM[170]1),LM,BM,0:[158]TE," "[170]T$(LP[170]DI),LM,BM,0:[137]2880
2870 [141]680
2880 [142]
2900 [139]LP[178]1[167]2950
2920 [141]270:[158]SD:LP[178]LP[171]1:[158]TE,[200](SP$,RM[171]LM[170]1),LM,TM,0:[158]TE," "[170]T$(LP),LM,TM,0:[137]2960
2950 [141]680
2960 [142]
2980 [141]390:[158]CW,1:[158]WW:[141]270:[139]M$(MP,2)[178]"REQ"[167]1920
3010 [137]170
3030 TP[178]LP[170]DI[170]1:[139]TP[177]NL[167]3080
3060 [139]TP[179]1[167]TP[178]1
3070 LP[178]TP:[141]2640
3080 [142]
3100 TP[178]LP[171]DI[171]1:[139]TP[179]1[167]TP[178]1
3130 LP[178]TP:[141]2640:[142]
3160 [151]51,AL:[151]52,AH:[158]FI,29184,35840,0:[158]BL,29184,"T."[170]M$(MP,1):[158]RE,29184,T$(0):NL[178][194](251)[170][194](252)[172]256[171]2:[142]
3220 SB[178]140:SH[178]0:XP[178]0:YP[178]0:[141]530:[158]51462:SH[178]1:XP[178]0:YP[178]20:[141]530:[158]51462:CB[178]1:[141]5000: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:[142]
3460 MU[178][168]MU:[141]5000:[139]MU[167][158]50432,40960:[137]3500
3490 [158]50435
3500 [142]
3520 CO[178][171]1:[141]5000:[141]270:[158]CW,BK[170]16[172]TC:[142]
3570 CO[178]0:[141]5000:[141]270:[158]CW,1:[142]
3620 [141]270:[158]WW:SH[178]4:XP[178]7:YP[178]4:[141]530:[158]51462:[158]TE,"(null)(null)RIGHT$(null)(null)(null)(null)(null)",8,5,0:[158]TE,"  (null)RESS <(null)(null)ATNLENVAL> TO (null)RINT",9,8,0:[158]TE,"  (null)RESS <VAL> TO VALXIT",10,10,0
3680 [151]198,0:[146]198,1:[161]A$:[139]A$[179][177]" "[175]A$[179][177]"E"[167]3680
3690 FL[178]0:[139]A$[178]"E"[167]FL[178]1
3700 [142]
3720 [141]3620:[139]FL[178]1[167]3850
3745 [158]50435:[159]4,PA,SA:LC[178]0:CL[178]1
3760 [139]M[171]CL[179]120[167]3810
3770 [129]I[178]CL[164]CL[170]59:[152]4,M$(I,0)[200](SP$,42[171][195](M$(I,0)))M$(I[170]60,0):[130]:[129]I[178]1[164]6:[152]4:[130]:CL[178]CL[170]120:[137]3760
3810 CH%[178](M[171]CL[170]2)[173]2:[129]I[178]CL[164]CL[170]CH%[171]1:[152]4,M$(I,0)[200](SP$,42[171][195](M$(I,0)))M$(I[170]CH%,0):[130]:[129]I[178]1[164]4:[152]4:[130]:[160]4:[139]MU[167][158]50438
3850 [142]
3870 [141]3620:[139]FL[178]1[167]4000
3895 [158]50435:[159]4,PA,SA:LC[178]0:CL[178]1
3910 [139]NL[171]CL[179]120[167]3960
3920 [129]I[178]CL[164]CL[170]59:[152]4,T$(I)[200](SP$,42[171][195](T$(I)))T$(I[170]60):[130]:[129]I[178]1[164]6:[152]4:[130]:CL[178]CL[170]120:[137]3910
3960 CH%[178](NL[171]CL[170]2)[173]2:[129]I[178]CL[164]CL[170]CH%[171]1:[152]4,T$(I)[200](SP$,42[171][195](T$(I)))T$(I[170]CH%):[130]:[129]I[178]1[164]4:[152]4:[130]:[160]4:[139]MU[167][158]50438
4000 [141]390:[158]WW:[158]CW,1:[141]270:[142]
4020 SH[178]4:XP[178]7:YP[178]4:[141]530:[158]51462:[158]TE,"(null)UIT?",8,5,0:[158]TE,"ATNRE YOU SURE YOU WANT",10,10,0:[158]TE,"TO (null)(null)RIGHT$(null)? [(null)/(null)]",13,12,0
4070 [151]198,0:[146]198,1:[161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167][141]680:[137]4070
4090 [139]A$[178]"Y"[167]4110
4100 QU[178]1
4110 [142]
4130 [159]15,8,15,"I0":[159]8,8,8,"#":[152]15,"UA:8 0 18 0":[152]15,"B-P:8 154":[161]#8,A$,A$,A$,A$,A$,S$:[160]8:[160]15:[142]
4220 [141]270:S$[178]"(null)IDE "[170]M$(MP,3)[170]" OF (null)(null)ATNSTR$(null)(null)ATN(null) #"[170]MO$:[158]TE,S$,8,7,0:[158]TE,"NOT FOUND!",14,8,0:[158]TE,"RIGHT$NSERT THAT SIDE AND",8,10,0:[158]TE,"PRESS <(null)(null)ATNLENVAL>",12,11,0:[158]TE,"<'VAL' TO VAL(null)RIGHT$(null)>",12,12,0
4300 [151]198,0:[146]198,1:[161]A$:[139]A$[179][177]" "[175]A$[179][177]"E"[167][141]680:[137]4300
4320 FL[178]0:[139]A$[178]"E"[167]FL[178]1
4330 [142]
4350 :
4360 [141]4130:FL[178]0:[142]
4380 [141]4220:[139]FL[178]0[167]4360
4390 [142]
4410 [141]270:[158]WW:[158]TE,"(null)LEASE STAND BY...",LM,10,0:[141]4350:[139]FL[179][177]0[167]LW[178]3:[141]2280
4450 [158]50435:[159]15,8,15,"I0":[159]2,8,2,"SETUP":CR$[178][199](13):[152]15,"P
"[199](0)"
";:[152]2,BO;CR$;BK;CR$;TC;CR$;PA;CR$;SA;CR$;MU;CR$;CO;CR$:[160]2:[160]15:[153]"LOADLOADM$(MP,1),8":[153]"SYS51459:RUN":[151]631,13:[151]632,13:[151]198,2:[151]178,MP:[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]