2 IFS=1THEN5
3 POKE49,255:POKE50,47:CLR:S=1:FL=0:LOAD"ROMUSIC",8,1
4 REM STAR MAIN DISK
5 POKE53269,.:IFS%>.THEN11
7 POKE53281,.:POKE53280,.:PRINT"[147]         [208][204][197][193][211][197][160][212][213][210][206][160][214][207][204][213][205][197][160][207][206]"
8 PRINT"        [201]F YOU HAVE A [202]OYSTICK,"
9 PRINT"     PLUG IT INTO [195]ONTROL [208]ORT [212]WO."
11 T$="[204]AUNCHING [208]REVIEW [211]HOW":IFS%=0THENS%=1:LOAD"LOADSTAR.SPR",8,1
12 F$="PICTURE SHOW":IFS%=1THENS%=2:LOAD"MUSIC",8,1
13 IFS%=2THENS%=3:LOAD"CE3K.M",8,1
14 POKE51200,.
15 POKE53281,1:POKE53280,10
16 FORX=1024TO1034:READA:POKEX,A:NEXT
17 DATA169,228,141,8,3,169,167,141,9,3,96
18 SYS1024 :REM  __ WEDGE DEACTIVATOR
20 FORI=.TO7:READS:POKE2040+I,S:NEXT
21 DATA192,193,194,195,196,197,194,198
30 V=53248:O=1:B=255:T=2:SE=V+21:SC=V+39:YD=V+23
40 POKESE,.:POKEV+29,.:POKEV+23,.:POKEV+16,.:IFFL=1THENGOSUB62000
100 PRINT"[147][142][144]           [169]              [223]
110 [153]"          STEP      TOANDANDTO      (null)
120 PRINT"         [169]      [183][184][146][162][162][184][183]      [223]
130 [153]"        STEP         (null)RIGHT$         (null)
140 PRINT"       [169]          [221][221]          [223]
150 [153]"      STEP           /EXP           (null)
160 PRINT"      [152][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]
170 [153]:[139]FL[178]1[167][141]62000
180 C[178]10
190 [151]49569,.:[151]49570,112:[158]49152:[129]I[178]1[164]500:[130]:[139]FL[178]1[167][141]62000
300 [129]S[178].[164]7:[151]SC[170]S,C:[151]V[170]S[170]S,165:[151]V[170]S[170]S[170]O,114:[151]SE,[194](SE)[176]T[174]S
305 [135]X,C:[129]I[178]114[164]65[169][171](T[170]T):[151]V[170]S[170]S[170]O,I
306 [130]
310 [129]I[178]165[164]X[169][180](X[171]165)[172]T:[151]V[170]S[170]S,I:[130]:[151]SC[170]S,C:[151]53280,C
312 [130]
315 [131]74,2,101,8,127,7,152,5,180,3,206,14,230,6,255,4
320 [153]"         PRESS SPACE BAR TO GO"
330 [153]"         STRAIGHT TO LOADSTAR."
340 [153]"PRESS ANY OTHER KEY FOR A QUICK PREVIEW."
400 [153]"          (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$
410 PRINT"          [221] COPYRIGHT 1985 [221]
420 [153]"          MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
425 IFPEEK(788)<>49THEN425
440 POKE198,0:WAIT198,1:GETK$
445 IFK$=" "ORK$="[160]"THEN62020
455 R=V+17:C=128:DIMC(9):FORI=.TO9:READC(I):NEXT:IFFL=1THENGOSUB62000
456 DATA15,12,11,0,0,11,12,15,1,1
460 POKEV+32,0
465 IFFL=1THENGOSUB62000
600 POKEV+21,.
1000 PRINT"[147]";:POKEV+33,.:POKEV+31,.
1190 PRINT"[147]"T$;
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)F$CHR$(34)",8":PRINT"RUN"
1230 POKE 631,13:POKE632,13:POKE198,2
1240 END
62000 REM   CHECK FOR KEYPRESS
62010 IFPEEK(198)=0THEN62050
62020 T$="[204]AUNCHING [212]ABLE OF [195]ONTENTS"
62030 F$="PRESENTER":FL=0
62040 GOTO456
62050 RETURN