Source Code
10 REM "SNIPER"
40 CLS
50 LET S=0
60 LET C=0
70 LET X=INT (RND*9.9)
80 LET T=(X+1)*SGN (9-X)
90 LET X=X*3
100 PRINT AT 4,X;" O"
110 PRINT AT 5,X;"\''% \''"
120 PRINT AT 6,X;" % "
130 PRINT AT 7,X;"\ .% \. "
140 PAUSE 90-C
150 POKE 16437,255
160 IF INKEY$<>STR$ T THEN GOTO 250
170 PRINT AT 4,X;"\'.O\.'"
180 PRINT AT 5,X;" % "
190 PRINT AT 6,X;" % "
200 PRINT AT 7,X;"\.' \'."
210 LET S=S+1
220 PRINT AT 15,0;"SCORE";S
230 PAUSE 60
240 POKE 16437,255
250 CLS
260 IF C=40 THEN GOTO 40
270 PAUSE INT (RND*120)+30
280 POKE 16437,255
290 LET C=C+1
300 GOTO 70
310 SAVE "1016%7"
320 LIST
