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)=0THENPOKE53265,11:GOSUB100
11 POKE53265,27: TQ=TI:POKE198,0:IFPEEK(653)=0THENGOSUB1000:GOTO13
12 POKE53280,11:POKE53281,11:GOTO50
13 REM
15 SYS57812"MULTI LS SPR",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
16 LOAD"241.PKD",DV:
18 POKE53280,01:PRINT"[147]":SYS51456:SYS51459
19 L$="12345678":V=53248:FORI=0TO9
20 X1(I)=134+26*I:Y2(I)=55
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,000:REM SPRITE ON
28 TQ=TI+300::POKE198,0:J=0:POKE53370,0
29 CV=7
30 IFPEEK(V+1)<40ORTI>TQORPEEK(198)>0THEN40
31 FORQ9=0TO7:POKE53287+Q9,CW
32 NEXT:KV=ABS(KV-5):CV=KV+2:POKE53285,CV:CW=ABS(CW-1)
39 GOTO30
40 POKE198,0:POKEV+21,0
50 REM
98 POKE198,0
99 POKE157,0:LOAD"P241.PKD",DV
100 PRINT"[158][147]        [215]ELCOME TO [204][207][193][196][211][212][193][210] 241
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" [200]ELPING [200]ANDS OF [211]TEEL
302 [131]" LISTOR (null)(null)ATNSTR$(null)(null)ATN(null)'S (null)OBOTIC ATNSSISTANTS"
303 [131]" LISTFROM (null)HE LENOMPLETE LENOMMODORE ATNNTHOLOGY
305 DATA"  [155]BY [202]OHN [205]OSTACCI
306 [131]"
307 DATA" [155][212]HE MUSIC IS"
308 DATA" [211]UITE #1 [201]N [199] [205]AJOR
309 [131]"  LISTBY MID$OHN (null)ABASTIAN PEEKACH
310 DATA"  [155][211][201][196] BY [202]OHN [193]NDREW [203]APUTA
1000 [137]2000
1001 C0[178][194](151):C1[178][194](253)
1002 [158]57812"PLAY",DV,0:[151]780,0:[151]781,0:[151]782,192:[158]65493
1003 [158]49155"WELCOME.VOX",DV
1010 [151]151,0:[151]253,12
1020 [151]214,22:[153]"FOR":[135]A1$,B1$
1030 [153][163]19[171][195](A1$)[173]2)A1$
1040 [153][163]19[171][195](B1$)[173]2)B1$;
1050 [158]49152
1051 [151]151,C0:[151]253,C1
1055 [142]
1060 [131]"(null)ELCOME TO (null)(null)ATNSTR$(null)(null)ATN(null)!"
1061 [131]"(null)HIS IS STR$AVE (null)OORMAN"
2000 T[178]TI[170]240:[129]X[178][171]1[164]0:X[178]TI[179]T:[130]:[142]
9999 [128]
10000 DV[178][194](186):[159]15,DV,15,"S0:STAR":[160]15:[148]"STAR",DV:[128]
60000 [137]10000