| Program name: Wak A Rat (v. 1.0) |
 
|
| CTF file name: | wakarat.ctf |
| Author: | Tom Lynn |
| Date: | 1997 |
| Models: | 9750, 9850, 9950 |
|
Description:
Vaguely inspired by the game in Sam 'n' Max (which I've never played...)
this is a simple to play but difficult(ish) to win game.
* How To Play *
After a quick countdown, "rats" start popping up out of the sixteen
"holes" at the left of the screen. Press the corresponding key from the
sixteen top-left keys (not counting function keys - [SHIFT] to [)]) to
"wak the rat". Wak all 100 rats to win.
|
|
Program source code:
Program "~WAKARAT"
ClrText
For 1->Y To 4
For 1->X To 4
Locate 4X - 3, 2Y - 1, "-"
Next
Next
Locate 17, 1, "WAK"
Locate 18, 3, "A"
Locate 17, 5, "RAT"
For 5->Y To 1 Step (-)1
Locate 17, 7, Y
For 1->X To 30:Next
Next
0->S
'START
Lbl 0
Locate 17, 7, S
S = 100 => Goto 5
1 + Int 4Ran#->X
1 + Int 4Ran#->Y
Locate 4X - 3, 2Y - 1, "\th"
1->A
Lbl 1
GetKey->K
8 - Int .1K->I
9 - 10Frac .1K->J
I >= 1 => I <= 4 => J >= 1 => J <= 4 => Goto 3
Lbl 2
Isz A
A < 15 => Goto 1
Locate 17, 1, "TOO"
Locate 17, 3, "SLOW"
Locate 17, 5, " "
Stop
Lbl 3
Locate 4I - 3, 2J - 1, "X"
For 1->B To 10:Next
Locate 4I - 3, 2J - 1, "-"
I = X => J = Y => Goto 4
A - 10->A
Goto 2
Lbl 4
Isz S
Goto 0
Lbl 5
Locate 17, 1, "YOU"
Locate 17, 3, "WIN"
Locate 17, 5, " "
|
This page was created by Tom Lynn (tom-calcs@mythic-beasts.com).
This page last updated: Friday, 30 April, 1999
Written in notepad and compiled with
WTA,
for clean, consistent HTML.
Part of the Casio Graphical Calculator Encyclopaedia.
