# Casio Calculator Program Library

 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, " " ```