1 DV=PEEK(186):IFDV<8THENDV=8
5 POKE32767,13
10 POKE53281,0:POKE53280,0:PRINT"[147][159]":GOSUB100
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 POKE251,32:POKE252,224:POKE253,204
18 POKE53280,0:SYS51456:SYS51459
20 POKE198,0
50 POKE157,0:LOAD"PRESENTER",DV
100 FORI=1TO6:READB$(I):NEXT
110 POKE214,2:PRINT
120 FORI=1TO6:PRINT:IFI=3THENPRINT"[155]"
130 PRINTTAB(20-((LEN(B$(I))/2)))B$(I)
140 NEXT
150 RETURN
200 DATA"[211][193][206][212][193] - [212][200][197] [212][197][210][210][207][210] [198][210][207][205] [194][197][217][207][206][196] [211][208][193][195][197]"
210 DATA"[208]ICTURE BY [215]ALT [200]ARNED"
220 DATA"[212]HE MUSIC IS"
230 DATA"[215]E [215]ISH [217]OU [193] [205]ERRY [195]HRISTMAS"
240 DATA"BY [213]. [206]. [207]WEN"
250 DATA"[212]RANSCRIBED BY [196]AVE [205]ARQUIS
10000 [159]15,8,15,"S0:STAR":[160]15:[148]"STAR",8:[128]