1 DV=PEEK(186):IFDV<8THENDV=8
5 POKE32767,13:POKE53371,0
6 POKE65534,1:REM S-KEY ON
10 POKE53281,0:POKE53280,0:PRINT"[147][159]":IFPEEK(653)=0THENGOSUB100
11 TQ=TI:POKE198,0:IFPEEK(653)=0THENGOSUB1000:GOTO13
12 POKE53280,11:POKE53281,11:GOTO50
13 SYS57812"UNPACKER.89",DV,0:POKE780,0:POKE781,0:POKE782,201:SYS65493
14 SYS57812"INTRO.SHP",DV,0:POKE780,0:POKE781,0:POKE782,32:SYS65493
15 SYS57812"MULTI LS SPR",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
16 POKE251,32:POKE252,224:POKE253,204
18 POKE53280,01:PRINT"[147]":SYS51456:SYS51459
19 L$="12345678":V=53248:FORI=0TO9
20 X1(I)=134+26*I:Y2(I)=190
21 X2(I,0)=X1(I)-8:X2(I,1)=134+26*I
22 NEXT:POKEV+21,0:FORI=0TO7:POKE53240+I,I:POKEV+39+I,0:NEXT
23 POKEV+29,0:POKEV+23,0:POKEV+27,0:POKEV+28,000:POKEV+37,2
24 FORI=0TO10:Z(I)=VAL(MID$(L$,I+1,1)):NEXT
25 POKEV+16,224:FORI=0TO10:IFZ(I)=0THEN27
26 POKEV+(Z(I)-1)*2,(X2(I,-(N>5))AND255):POKEV+1+(Z(I)-1)*2,Y2(I)
27 NEXT:POKEV+21,000:FORX=0TO7:POKE53287+X,2:NEXT
28 TQ=TI+300::POKE198,0:J=0:POKE53370,0
30 IFPEEK(V+1)<40ORTI>TQORPEEK(198)>0THEN40
31 FORX=1TO16STEP2:POKEV+X,PEEK(V+X)-0AND255:NEXT:J=1-J:POKE53285,7-6*J:GOTO30
32 STOP
40 POKE198,0:POKEV+21,0
50 REM
98 POKE198,0
99 POKE157,0:LOAD"PRESENTER",DV
100 PRINT"[158][147]        [215]ELCOME TO [204][207][193][196][211][212][193][210] 230
105 [129]I[178]0[164]9:[135]B$(I):[130]
110 [151]214,1:[153]
120 [129]I[178]0[164]9:[153]
130 [153][163]20[171](([195](B$(I))[173]2)))B$(I)
140 [130]:[143]:PRINT"":STOP
150 [142]
300 [131]" (null)OU STR$ESERVE A MID$IHAD (null)ODAY
301 DATA" [155]OR"
302 DATA" [201]'D [215]ALK A [205]ILE FOR A [195]AMEL [194]URGER"
303 DATA"  [155][199]ODOTED BY [196]AVE [205]OORMAN"
305 DATA"
306 [131]" LIST(null)HE MUSIC IS"
307 [131]" LEFT$OOSIER (null)AG
308 DATA"  [155]BY [202]ULIA [204]. [206]IEBERGALL
309 [131]
310 [131]"  LIST(null)RANSCRIBED BY STR$AVE (null)ARQUIS
1000 T=TI+300:FORX=0TO1:X=-(TI>T):NEXT:RETURN
9999 END
10000 DV=PEEK(186):OPEN15,DV,15,"S0:STAR":CLOSE15:SAVE"STAR",DV:END
60000 GOTO10000