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