Sharp Shooter

AN ESPECIALLY pleasing display is the strong point of the Sharp Shooter program from Paul Naylor.

You are the black-hatted villain confronting a posse of lily-livered bounty hunters. An inverted O represents the deputy badges on their trembling chests. You are armed with a Colt ten-shooter (what?) which you fire with the P key. When the gun is fired the outlaw falls into a very effective crouching position.

Maneuvre the cowpoke up with key 1 and down with A (T/S1000,ZX81).

   1 LET N=PI/PI
   2 LET D=VAL "29"
   3 LET A=5
   4 LET H=SIN PI
   5 LET S=H
   6 LET T=INT (RND * VAL "17") + N
   7 LET M=INT (RND * INT PI)
   8 IF M=N AND T>N THEN LET T=T-N
   9 IF M=VAL "2" AND T<VAL "18" THEN LET T=T+N
  10 CLS
  20 PRINT AT T,SIN PI; "O";AT A,D; "[illegible]";AT A+N,D+N;
     "[illegible]";AT A+VAL "2",D;"[illegible]";AT A+INT PI,D;"[illegible]";
     AT A+VAL "4",D;"[illegible]"
  30 IF INKEY$ <> "P" THEN GOTO VAL "120"
  40 PRINT AT A+N,D-N; "[illegible]";AT A+VAL "2",D; "[illegible]";
     AT A+INT PI,D; "[illegible]"; AT A+VAL "4",D-N; "[illegible]"
  50 FOR F=VAL "26" TO SIN PI STEP -N
  60 PRINT AT A+N,F;". "
  70 NEXT F
  80 LET S=S+N
  90 IF A+N=T THEN LET H=H+N
 100 IF S=VAL "10" THEN GOTO VAL "150"
 110 IF A+N=T THEN GOTO VAL "6"
 120 IF INKEY$="1" AND A > SIN PI THEN LET A=A-N
 130 IF INKEY$="A" AND A < VAL "17" THEN LET A=A+N
 140 GOTO VAL "7"
 150 PRINT AT A+N,SIN PI;" HITS ";H