# Casio Calculator Program Library

 Program name: Snake Run (v. 1.0)

 CTF file name: snakerun.ctf 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 source code: 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" ```