Sniper

Gallery

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