1 DV=PEEK(186):IFDV<8THENDV=8
5 POKE32767,13:POKE53371,0
10 POKE53281,0:POKE53280,0:PRINT"[147][159]":GOSUB100
11 TQ=TI:POKE198,0
12 GETA$:IFA$=""AND(TI<TQ+250)THEN12
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
28 TQ=TI:POKE198,0
30 GETA$:IFA$=""AND(TI<TQ+250)THEN30
40 POKE198,0
50 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"[197]LECTRA -- THE [204][207][193][196][211][212][193][210] [199]ATO
202 [131]"OR LENAT ON A LEFT$OT PEEKLACK STR$ISK"
210 [131]"(null)ICTURE BY MID$ANE (null). MID$ONES
220 DATA"[212]HE MUSIC IS"
230 DATA"[195]LOUDY [197]YES - [193] MEDLEY"
240 DATA"BY [200]. [198]ULMER AND [215]. [211]ANLAN
250 [131]"(null)RANSCRIBED BY LENORKY LENOCHRAN
10000 DV=PEEK(186):OPEN15,DV,15,"S0:STAR":CLOSE15:SAVE"STAR",DV:END