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]":IFPEEK(653)=0THENGOSUB100
11 TQ=TI:POKE198,0:IFPEEK(653)=0THENGOSUB1000:GOTO13
12 POKE53280,11:POKE53281,11:GOTO50
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,00:PRINT"[147]":SYS51456:SYS51459
28 TQ=TI+300::POKE198,0:J=0:POKE53370,0
30 IFPEEK(V+1)<40ORTI>TQORPEEK(198)>0THEN40
31 GOTO30
32 STOP
40 POKE198,0:POKEV+21,0
50 REM
98 POKE198,0
99 POKE157,0:LOAD"PRESENTER",DV
100 PRINT"[158][147]        [215]ELCOME TO [204][207][193][196][211][212][193][210] 233
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]"
301 DATA" [215]E [198]EED [205]OOR[205]AN'S"
302 DATA" [155]OR
303 [131]" (null)OUR VALDITOR IS (null)UTS"
305 [131]"
306 DATA" [155][212]HE MUSIC IS"
307 DATA" [195]AN [195]AN"
308 DATA"  [155]FROM [205]ORPHEUS IN THE [213]NDERWORLD"
309 DATA"  [155]BY [202]ACQUES [207]FFENBACH
310 [131]"  LIST(null)RANSCRIBED BY STR$AVE (null)ARQUIS
1000 GOTO2000
1001 C0=PEEK(151):C1=PEEK(253)
1002 SYS57812"PLAY",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
1003 SYS49155"WELCOME.VOX",DV
1010 POKE151,0:POKE253,12
1020 POKE214,22:PRINT"[129]":READA1$,B1$
1030 PRINTTAB(19-LEN(A1$)/2)A1$
1040 PRINTTAB(19-LEN(B1$)/2)B1$;
1050 SYS49152
1051 POKE151,C0:POKE253,C1
1055 RETURN
1060 DATA"[215]ELCOME TO [204][207][193][196][211][212][193][210]!"
1061 DATA"[212]HIS IS [196]AVE [205]OORMAN"
2000 T=TI+240:FORX=-1TO0:X=TI<T:NEXT:RETURN
9999 END
10000 DV=PEEK(186):OPEN15,DV,15,"S0:STAR":CLOSE15:SAVE"STAR",DV:END
60000 GOTO10000