1 PRINT"[147]"
10 D=40:F=54272:G=1:H=32:DIMA%(39):FORA=1TO10:READC%(A),S%(A):NEXT:A$="[144]"
20 DATA 149,116,150,161,151,184,159,190,153,163,154,181,28,182,129,183,30,163
30 DATA 31,170:POKE53265,23:POKE53280,6:F1=54273:V1=54276:K=150:L=2
40 FORA=54272TO54295:POKEA,0:NEXT:POKE54277,23:POKE54296,15:POKE54278,241
50 FORA=1TO40:A$=A$+CHR$(C%(INT(RND(1)*10)+1))+CHR$(S%(INT(RND(1)*10)+1))
60 NEXT:POKE53281,15:PRINT"[147]"SPC(9)"CHARACTER ASSASSINATION"
70 PRINT"ENTER SPEED 0-9 (9 IS THE FASTEST)":POKE198,0
80 GETB$:IFB$<"0"ORB$>"9"THEN80
90 S=28-3*VAL(B$):PRINT"[147]"SPC(15)"SCORE[146] 0"
100 FORA=1TO22:PRINT:NEXT:PRINTA$;
110 FL=0:FORA=1104TO1143:POKE649,1:SS=39:IFA%(A-1104)=0THEN170
120 NEXTA:POKE198,0:IFFLTHEN110
130 PRINT"[146]"SPC(15)"GAME OVER":PRINT""SPC(11)"PLAY AGAIN? (Y/N)"
140 GETA$:IFA$="Y"THENPRINTSPC(17)"[144]OK":RUN
150 IFA$="N"THENPOKE828,0:SYS828
160 GOTO140
170 FL=1:R1=RND(1):R2=(-(R1<.5)*(RND(1)*9+48))+(-(R1>=.5)*(RND(1)*26+1))
180 POKEV1,33:R$=CHR$(R2-(R2<30)*64):C=A+840:FORB=ATOCSTEPD:POKEF1,K-L*SS
190 SS=SS-1:GETA$:IFA$<>""THENPOKE649,0:IFA$=R$THEN220
200 POKEB-D,H:POKEB,R2:POKEB+F,J
210 FORTD=GTOS:NEXTTD:NEXTB:Q=1:GOSUB230:POKEB-D,H:A%(A-1104)=1:NEXTA:GOTO110
220 Q=0:GOSUB230:POKEB-D,H:SC=SC+SS:PRINT"[146]"SPC(20)SC:NEXTA:GOTO110
230 POKEV1,129:Z=2:POKEB-D+F,2:FORT=1TO20
240 POKEF1,Z:POKE53270,200-7*(Q=1):POKEB-D,42-4*(PEEK(B-D)=42)
250 Z=Z-(Q=0)*2:POKE53270,200:NEXT:POKEV1,128:RETURN