# http://www.ex-parrot.com/~tom/calcs/calcs/encyc/progs/src/snakerun.ctf
# ========================================================================
# Program name: Snake Run
# 
#      Version: 1.0
#       Author: Tom Lynn
#         Date: 1997-8
#       Models: 9750, 9850, 9940, 9950
#
#
# Description:
#
# A snake circles around the outside of the screen, while you're trapped in
# the middle with only your courage, wits, strength, cunning, and 12 guided
# missiles to protect you... :)
# 
# Unfortunately it's an invulnerable snake.  Sure, you can blow holes in it,
# but they grow back.  Luckily for you, though, even this monster has an
# Achilles heel.  Except that snakes don't have heels, so it's its tail.
# Keep blasting its tail off until you get to the head, and you might stand a
# chance...
# 
# If you run out of missiles, it'll get you.  So don't.
#
# * How to play *
#
# Use the arrow keys to fire and guide the missiles and aim for the tail.
# The keys are a little insensitive, so hold them down rather than tap them.
# The number in the centre of the screen is how many missiles you have left.
#
# * What it looks like *
#
# It looks something like this:
#    ________________
#   |       oOOOOOOOO|
#   |               O|
#   |         6  *   |
#   |                |
#   |________________|


@@ Program "~SNAKRUN"

ClrText
Locate 7,1,"SNAKE RUN"
Locate 6,7,"PRESS A KEY"
Do
LpWhile Not Getkey
Locate 6,7,"           "    ;11 spaces
10->P
12->Z:'<-- MISSILES
21->A:1->B
18->C:7->D
0->H~I
11->E
4->F
Lbl 1
LocateE,F,"\*"
Getkey->G
G<>27 And G<>28 And G<>37 And G<>38=>Goto N
If Not H And Not I
Then Dsz Z:0
Not Z=>Goto L
IfEnd
G=27=>1->H
G=38=>(-)1->H
G=28=>(-)1->I
G=37=>1->I
Lbl N
If Not (H=0 And I=0
Then Locate E,F," "
If E+H>=1 And E+H<=21 And F+I>=1 And F+I<=7
Then Locate E+H,F+I,"\*"
Else 11->E:4->F
0->H~I
IfEnd
IfEnd
Z=9=>Locate 12,4," "
Locate 11,4,Z
E+H->E
F+I->F
E=C=>F=D=>Goto Z
'MOVESNK
Locate A,B,"O"
0->X~Y
A=1=>B<7=>Isz Y
B=7=>A<21=>Y=0=>Isz X
A=21=>B>1=>X=0=>Dsz Y
B=1=>A>1=>Y=0=>Dsz X
A+X->A
B+Y->B
Locate A,B,"\th"
Lbl X
Locate C,D," "
0->X~Y
C=1=>D<7=>Isz Y
D=7=>C<21=>Y=0=>Isz X
C=21=>D>1=>X=0=>Dsz Y
D=1=>C>1=>Y=0=>Dsz X
C+X->C
D+Y->D
Goto 1
Lbl Z
Dsz P
Goto X
Locate 8,4,"YOU WIN"
Stop
Lbl L
Locate 8,4,"YOU LOSE"


# ========================================================================
# CTF compliant.  See http://www.york.ac.uk/~tw104/casio/ for details.
#
# More programs and information at:
#              http://www.ex-parrot.com/~tom/calcs/calcs/encyc/
#
# This file last compiled: Friday, 30 April, 1999
# ========================================================================