1 IFAG=1THEN1240
2 IFS=1GOTO5
3 S=1
4 :
5 IFS%>.THEN11
6 POKE53281,0:POKE53280,0:POKE32768+5,.
10 IFS%=0THENS%=1:LOAD"LSBOOT.SHP",8,1
11 IFS%=1THENS%=2:LOAD"JOEPLAY",8,1
12 IFS%=2THENS%=3:LOAD"M.INTRO",8,1
13 IFS%=3THENS%=4:LOAD"UNPACKER",8,1
16 FORX=1024TO1034:READA:POKEX+54272,0:POKEX,A:NEXT:SYS1024
17 DATA169,228,141,8,3,169,167,141,9,3,96
190 :
195 FORS=54272TO54296:POKES,0:NEXT
200 POKE249,224:POKE250,204:POKE251,0:POKE252,64:POKE253,0:POKE254,0
205 SYS51456:SYS51459:POKE53280,7
210 SYS50432,40960
220 IFPEEK(666)<>0THEN220
600 SYS50435:PRINT"[147]"
602 POKEV+21,.:POKE808,237
1000 POKEV+33,.:POKEV+31,.:POKE53280,3
1215 POKE318,0
1217 POKE178,0  :REM MENU POINTER
1218 POKE52084,.:REM SET UNPACKER'S          TEXT/HI-RES FLAG TO TEXT
1220 :
1240 :
1250 :
1260 IFAG=0THENAG=1:LOAD"PACKAGE.51.O",8,1
1265 BL=38921:FI=38933
1272 SYSBL,35840,"SOS.LNK"
1276 SYSBL,40960,"ROMUSIC"
1277 SYSFI,29184,35840,0
1278 SYSBL,29184,"FEATURES":POKE53281,1
1280 PRINT"[147]LOAD"CHR$(34)"PRESENTER"CHR$(34)",8"
1282 PRINT"SYS38930,"CHR$(34)"[208]RESS A [203]EY"CHR$(34)",14,23,1"
1284 PRINT"P[207]198,0:WAIT198,1:P[207]631,13:POKE632,13:POKE633,13:P[207]198,3"
1285 PRINT"P[207]53280,6:P[207]53281,4
1286 [153]"SYS38930,"[199](34)" (null)ORKING..."[199](34)",14,23,1"
1290 [153]"POKE56,114:CLR:RUN44"
1300 [151]631,13:[151]632,13:[151]633,13:[151]634,13:[151]635,13:[151]636,13:[151]198,6
1310 [128]