1 IFW=0THENW=1:LOAD"MAGIC",8,1
2 IFS=1THEN5
3 S=1
4 REM STAR MAIN DISK
5 IFS%>.THEN11
6 POKE53281,0:POKE53280,0:GOSUB2000
7 PRINT""SPC(9)"[208][148][204][197][193][211][197][160][212][213][210][206][160][214][207][204][213][205][197][160][207][206]"
8 PRINTCHR$(8)"        [201]F YOU HAVE A [202]OYSTICK,"
9 PRINT"     PLUG IT INTO [195]ONTROL [208]ORT [212]WO."
10 IFS%=0THENS%=1:LOAD"RED.TITLE.SHP",8,1
11 IFS%=1THENS%=2:LOAD"JOEPLAY",8,1
12 IFS%=2THENS%=3:LOAD"VICTORY",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
20 :
22 :
190 :
200 POKE249,224:POKE250,204:POKE251,0:POKE252,64:POKE253,0:POKE254,0
205 SYS51456:SYS51459
210 POKE251,0:POKE252,160:SYS49152
425 IFPEEK(788)<>49ANDPEEK(198)=0THEN425
600 IFPEEK(198)=0THENWAIT198,1
602 SYS49155:POKEV+21,.:POKE808,237
1000 SYS51459:POKEV+33,.:POKEV+31,.
1190 PRINT"[147]     [204]AUNCHING [212]ABLE OF [195]ONTENTS...";
1200 S=54272:FORI=0TO24:POKES+I,0:NEXT
1205 POKES+5,240:POKES+6,253:POKES,0:POKES+1,4:POKES+23,241:POKES+24,31
1210 POKES+4,129
1215 POKE597,0:REM SET HIDE FLAG TO ZERO
1220 PRINT"[144]LOAD"CHR$(34)"PRESENTER"CHR$(34)",8":PRINT"SYS32768"
1225 PRINT"RUN"
1230 POKE 631,13:POKE632,13:POKE633,13:POKE198,3
1240 END
2000 PRINT"[147]"
2005 PRINTSPC(10)"*******************"
2006 PRINTSPC(10)"* [204] [207][160][193][160][196][160][211][160][212][160][193][160][210] *"
2007 PRINTSPC(10)"*******************"
2010 RETURN