1 DV=PEEK(186):IFDV<8THENDV=8
5 POKE32767,13:POKE53371,0
6 POKE65534,1:REM S-KEY ON
10 POKE53281,0:POKE53280,0:PRINT"[147][159]":GOSUB100
11 TQ=TI:POKE198,0:GOSUB1000
12 GETA$:IFA$=""AND(TI<TQ+350)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
15 SYS57812"MULTI LS SPR",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
16 POKE251,32:POKE252,224:POKE253,204
18 POKE53280,0:PRINT"[147]":SYS51456:SYS51459
19 L$="12345678":V=53248:FORI=0TO9
20 X1(I)=134+26*I:Y2(I)=220
21 X2(I,0)=X1(I)-8:X2(I,1)=134+26*I
22 NEXT:POKEV+21,0:FORI=0TO7:POKE53240+I,I:POKEV+39+I,0:NEXT
23 POKEV+29,0:POKEV+23,0:POKEV+27,0:POKEV+28,255:POKEV+37,2
24 FORI=0TO10:Z(I)=VAL(MID$(L$,I+1,1)):NEXT
25 POKEV+16,224:FORI=0TO10:IFZ(I)=0THEN27
26 POKEV+(Z(I)-1)*2,(X2(I,-(N>5))AND255):POKEV+1+(Z(I)-1)*2,Y2(I)
27 NEXT:POKEV+21,255
28 TQ=TI+240::POKE198,0:J=0:POKE53370,0
30 IFTI>TQORPEEK(198)>0THEN40
31 J=1-J:FORI=0TO7:POKEV+39+I,7-6*J:NEXT:GOTO30
40 POKE198,0:POKEV+21,0
50 REM  SYS57812"MR.MOUSE 2+ 1000",DV:POKE780,0:POKE781,0:POKE782,16:SYS65493
51 REM BL=4096+54:B0=4096+177
60 REM SYSB0,"FEATURES",DV,96*256
61 REM SYSBL,"FRODO.ML",DV,41*256
62 REM SYSBL,"MUSIC",DV,106*256
97 REM  POKE53280,0:POKE53281,0
98 POKE198,0
99 POKE157,0:LOAD"PRESENTER",DV
100 PRINT"[158][147]        [215]ELCOME TO [204][207][193][196][211][212][193][210] 202
105 [129]I[178]0[164]9:[135]B$(I):[130]
110 [151]214,1:[153]
120 [129]I[178]0[164]9:[153]
130 [153][163]20[171](([195](B$(I))[173]2)))B$(I)
140 [130]:[143]:PRINT"":STOP
150 [142]
300 [131]"(null)LEFT$VAL (null)(null)ATNSTR$(null)(null)ATN(null) (null)RIGHT$(null)(null)
301 DATA"
303 [131]"LIST(null)ICTURE BY
304 DATA"[215]ALT [200]ARNED
305 [131]"
306 DATA"[155][212]HE MUSIC IS
307 [131]"ATN(null)(null) (null)LEFT$(null)(null)(null)CHR$LEFT$ (null)LEFT$VALCLOSE(null)RIGHT$CHR$LEFT$(null)
308 DATA"[155]AN OLD [215]ELSH TUNE
309 [131]"LIST(null)RANSCRIBED BY
310 DATA"[195]ORKY [195]OCHRAN
1000 [158]57812"SAM",DV:[151]780,0:[151]781,0:[151]782,149:[158]65493
1002 [143] SYS57812"RECITER",DV:POKE780,0:POKE781,0:POKE782,125:SYS65493
1006 [151]39440,10:[151]39439,40
1009 [151]214,22:[153]"VERIFY"
1010 [129]X[178]1[164]2:[135]SA$
1012 [135]A$:[153][163]20[171][195](A$)[173]2)A$:[158]39424:[130]:[142]
1020 [131] "WEHLKAHM.TUX.LLOHD3STAAR3 .4TUX5.4OH4.TUX.
1021 DATA"[215]ELCOME TO [204][207][193][196][211][212][193][210] 202
1022 [131]".GRAYNDIXNX1 AWT GRRREYT3 SAOFTWEHR.
1023 DATA"[145][199]RINDING OUT GREAT SOFTWARE.
9999 [128]
10000 DV[178][194](186):[159]15,DV,15,"S0:STAR":[160]15:[148]"STAR",DV:[128]
60000 [137]10000