1 DV=PEEK(186):IFDV<8THENDV=8
5 POKE32767,13:POKE53371,0
10 POKE53281,0:POKE53280,0:PRINT"[147][159]":GOSUB100
11 POKE788,49:TQ=TI:POKE198,0
12 SYS57812"MULTI LS SPR",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
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
16 GETA$:IFA$=""AND(TI<TQ+250)THEN16
17 POKE251,32:POKE252,224:POKE253,204
18 POKE53280,0:SYS51456:SYS51459
19 L$="12345678"
21 V=53248
22 FORI=0TO9
23 X1(I)=134+26*I:Y2(I)=220
24 X2(I,0)=X1(I)-8
25 X2(I,1)=134+26*I
26 NEXT
27 POKEV+21,0
28 FORI=0TO7:POKE53240+I,I:POKEV+39+I,0:NEXT
29 POKEV+29,0:POKEV+23,0:POKEV+27,0:POKEV+28,255:POKEV+37,2
30 FORI=0TO10
31 Z(I)=VAL(MID$(L$,I+1,1))
32 NEXT
33 POKEV+16,224
34 FORI=0TO10
35 IFZ(I)=0THEN37
36 POKEV+(Z(I)-1)*2,(X2(I,-(N>5))AND255):POKEV+1+(Z(I)-1)*2,Y2(I)
37 NEXT
38 POKEV+21,255
40 TQ=TI:J=0:POKE53370,0
41 J=1-J:FORI=0TO7:POKEV+39+I,7-6*J:NEXT
70 GETA$:IFA$=""AND(TI<TQ+250)THEN41
80 POKE198,0:POKE53371,0
82 POKEV+21,0
90 POKE157,0:LOAD"PRESENTER",DV
100 FORI=1TO7:READB$(I):NEXT
110 POKE214,2:PRINT
120 FORI=1TO7:PRINT:IFI=4THENPRINT"[155]"
130 PRINTTAB(20-((LEN(B$(I))/2)))B$(I)
140 NEXT
150 RETURN
200 DATA"[210]EDDIE AND [194]LACKIE, THE [204][207][193][196][211][212][193][210] [193]NTS
202 [131]"OR (null)HIS (null)TING'S ASCOR (null)OU"
210 [131]"(null)ICTURE BY (null)ALT LEFT$ARNED
220 DATA"[212]HE MUSIC IS"
230 DATA"[204]ULLABY
240 [131]"BY MID$OHANNES PEEKRAHMS
250 DATA"[212]RANSCRIBED BY [195]ORKY [195]OCHRAN
10000 D[178][194](186):N$[178]"0:STAR":[159]15,D,15,"S"[170]N$:[160]15:[148]N$,D:[128]