1 DV=PEEK(186):IFDV<8THENDV=8
2 IFDV>9THENGOSUB200:DV=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,64:POKE253,96
18 POKE53280,0:SYS51456:SYS51459
20 SYS57812"SID PLAYER",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
30 SYS57812"FONT",DV,0:POKE780,0:POKE781,0:POKE782,100:SYS65493
40 SYS57812"MUSIC",DV,0:POKE780,0:POKE781,0:POKE782,108:SYS65493:POKE198,0
50 POKE157,0:LOAD"PRESENTER",DV
100 PRINT"[129]           [204][193][213][206][196][210][217] [196][193][217] [198][207][210] [212][200][197]
110 [153]"         ATNRIGHT$(null) (null)(null)ATNASCASCRIGHT$LEN LEN(null)(null)(null)(null)(null)(null)(null)VAL(null)
130 PRINT"[155]        [208]ICTURE BY [215]ALT [200]ARNED.
150 [153]"      (null)HE MUSIC IS 'ATNNVIL LENHORUS'
152 PRINT"           FROM '[201]L [212]ROVATORE'
160 [153]"            BY CHR$UISEPPE (null)ERDI
170 PRINT"      TRANSCRIBED BY [196]AVE [205]ARQUIS.
190 [142]
200 [153]"LOADLENHANGING DEVICE NUMBER TO 8..."
201 [159]15,DV,15,"CP":[132]15,A:[139]A[178]2[167][152]15,"S-8":[129]I[178]1[164]500:[130]
202 [139]A[178]2[167][160]15:[142]
205 [160]15:[159]15,8,15:[160]15:[139]ST[167][141]500:[142]
210 [159]15,8,15:[152]15,"M-W:"[199](119)[199](0)[199](2)[199](13[170]32)[199](13[170]64)
220 [141]600:[160]15
221 [159]15,8,15:[160]15:[139]ST[167]230
224 [159]15,8,15:[152]15,"U0>"[170][199](13):[141]600:[160]15
230 [159]15,DV,15:[152]15,"M-W:"[199](119)[199](0)[199](2)[199](08[170]32)[199](08[170]64)
240 [141]600:[160]15
241 [159]15,DV,15:[160]15:[139]ST[167]250
244 [159]15,DV,15:[152]15,"U0>"[170][199](8):[141]600:[160]15
250 [159]15,13,15:[152]15,"M-W:"[199](119)[199](0)[199](2)[199](DV[170]32)[199](DV[170]64)
260 [141]600:[160]15
261 [159]15,13,15:[160]15:[139]ST[167]270
264 [159]15,13,15:[152]15,"U0>"[170][199](DV):[141]600:[160]15
270 [142]
500 [159]15,DV,15:[152]15,"M-W:"[199](119)[199](0)[199](2)[199](08[170]32)[199](08[170]64)
510 [141]600:[160]15
520 [159]15,DV,15:[160]15:[139]ST[167]540
530 [159]15,DV,15:[152]15,"U0>"[170][199](8):[141]600:[160]15
600 [129]I[178]1[164]700:[130]:[142]
10000 [159]15,8,15,"S0:STAR":[160]15:[148]"STAR",8:[128]