2 MA=52200:IFS=1GOTO5
3 DIMNT(12,3):S=1:POKE32775,0
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
12 IFS%=2THENS%=3
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 GOSUB3000
600 WAIT198,1
602 SYS51459:POKEV+21,.:POKE808,237
1000 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 POKE318,0:REM SET HIDE FLAG TO ZERO
1220 LOAD"HELLO CONNECT",8
1240 END
2000 PRINT"[147]"
2005 PRINTSPC(10)"[219][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][219]"
2006 PRINTSPC(10)"[179] [204] [207][160][193][160][196][160][211][160][212][160][193][160][210] [171]"
2007 PRINTSPC(10)"[219][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][219]"
2010 RETURN
2998 REM *** MUSIC ***
3000 S=54272:N=1:FORT=54272TO54296:POKET,0:NEXT
3010 READ NT(N,1),NT(N,2),NT(N,3)
3020 IFNT(N,1)=0 THEN 3050
3030 N=N+1:GOTO3010
3050 N=N-1:POKE54296,15
3055 POKE54277,73:POKE54278,252:POKE54275,5
3060 FORT=1TON:IFPEEK(198)<>0THENT=500:GOTO3090
3070 POKE54272,NT(T,1):POKE54273,NT(T,2):POKE54276,65
3080 FORT2=1TONT(T,3)*5:NEXTT2:POKE54276,64
3090 NEXTT:POKE54296,0:RETURN
3100 DATA 99,56,40
3110 DATA 75,63,50
3120 DATA 60,50,50
3130 DATA 30,25,60
3140 DATA 162,37,225
3150 DATA 0,0,0