SHOTER by Anders Edqvist
edqvistg@algonet.se

SHOTER is very simple to play.
Use the arrow-keys to move the ->
and the A so they aim at the 0,
then press EXE to fire.
After 10 hits the game ends
and you will get a highscore.
The point comes from:
1000000/(1.2*time*shots)
and removing the decimals.

    A            
  xxxxxx  SHOTER
  x    x
->x    x  TIME   124
  x  0 x  SHOTS  3
  x    x  TARGET 4 /10
  xxxxxx

--------------Enjoy----------

'SHOTER
4->A
4->B
5->C
5->D
0->T
0->S
0->H
ClrText
Locate 2,2,"xxxxxx"
Locate 2,7,"xxxxxx"
For 3->I To 6
Locate 2,I,"x"
Locate 7,I,"x"
Next
Locate 1,2,"SHoTER"
Locate 10,4,"TIME"
Locate 10,5,"SHoTS"
Locate 10,6,"TARGET   /10"			//3spcs
Locate A,1,"A"
Locate 1,b,"->"
0->Z
Goto 5
Lbl 5
H+1->H
if H>9
Then Goto 6
IfEnd
Locate C,D," "
Locate 17,6,H
Int 3Ran#+3->C
Int 3Ran#+3->D
Locate C,D,"0"        //0 is the target's symbol
While Z=0
T+1->T
Locate 17,4,T
If Getkey=28 And b>3
Then Locate 1,B," "
B-1->B
Locate 1,B,"->"
IfEnd
If Getkey=37 And B<6
Then Locate 1,B," "
B+1->B
Locate 1,B,"->"
IfEnd
If Getkey=38 And A>3
Then Locate A,1," "
A-1->A
Locate A,1,"A"      //replace A with something that looks like an arrow down
IfEnd
If Getkey=27 And A<6
Then Locate A,1," "
A+1->A
Locate A,1,"A"      //replace A with something that looks like an arrow down
IfEnd
If Getkey=31
Then S+1->S
Locate 17,5,S
A=C And B=D => Goto 5
IfEnd
WhileEnd
Lbl 6
ClrText
"SCoRE="
Int(1000000/(0.2*S*T))_
Prog "SHOTER"