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] [207] [193] [196] [211] [212] [193] [210] ' [211]
110 [153]"      CHR$ATN(null)ATN  10TH  ATN(null)(null)RIGHT$(null)VAL(null)(null)ATN(null)(null) (null)ATN(null)(null)(null)
130 PRINT"[155]         [208]ICTURE BY [215]ALT [200]ARNED.
150 [153]"    (null)HE MUSIC IS 'LENORONATION (null)ARCH'
152 PRINT"      FROM THE OPERA '[204]E [208]ROPHETE'
160 [153]"          BY CHR$IACOMO (null)EYERBEER
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]