gunfight
--------

This program is a game in which you "shoot" at an opponent.  It is
written in basic and takes 814 bytes of calculator memory.  Instructions
for play are in the game.
It's pretty much public domain, since everyone can really see it and
edit it and no one is going to copyright a game.
So, if you don't have a link cable, here's the source code.

ClrHome
Disp "YOU ARE ON THE"
Disp "TOP. USE THE"
Disp "ARROW KEYS TO"
Disp "MOVE, 2ND TO"
Disp "FIRE AND ENTER"
Disp "TO QUIT."
Pause
8A
8B
3C
0D
Lbl 
ClrHome
Output(1,1,"!--------------!")
Output(2,1,"!              !")
Output(3,1,"!              !")
Output(4,1,"!              !")
Output(5,1,"!              !")
Output(6,1,"!              !")
Output(7,1,"!              !")
Output(8,1,"!--------------!")
Lbl A
If A>15
Then
15A
End
If A<2
Then
2A
End
If B>15
Then
15B
End
If B<2
Then
2B
End
Output(2,A,"I")
Output(7,B,"I")
randInt(1,3)
If =1
Then
Output(7,B," ")
B+1B
End
If =2
Then
Output(7,B," ")
B-1B
End
If =3
Then
BB
End
getKeyX
If X21 and X24 and X26 and X105
Then
Goto A
End
If X=105
Then
ClrHome
Disp "SCORE:",D
Stop
End
If X=21
Then
Goto B
End
If X=24
Then
Output(2,A," ")
A-1A
Goto A
End
If X=26
Then
Output(2,A," ")
A+1A
Goto A
End
Lbl B
Output(C-1,A," ")
If C>6
Then
3C
Goto C
End
If C<7
Then
Output(2,A,"I")
Output(C,A,"")
Output(7,B,"I")
C+1C
Goto B
End
Lbl C
If A=B
Then
ClrHome
Disp "YOU GOT HIM!"
Pause
8A
8B
D+1D
Disp "SCORE:",D
Pause
Goto 
End
If AB
Then
ClrHome
Disp "YOU MISSED HIM!"
Pause
D-1D
Disp "SCORE:",D
Pause
Goto 
End

That's it.  Enjoy.
