|
|
|
|
Wack a rat |
|
|
(c) Copyright Geert Jansen, 1999
geert_jansen84@hotmail.com Program: Wack the rat Size: small Models: all Author: Geert Jansen Description: Try to press the button corresponding with the 'rat'... |
|
|
0->L
0->W ClrText Locate 1,3,"F1 F2 F3 F4 F5 F6" Lbl 1 Int 5Ran#+1->A A=1=>Goto 2 A=2=>Goto 3 A=3=>Goto 4 A=4=>Goto 5 A=5=>Goto 6 A=6=>Goto 7 Lbl 2 Locate 2,5,"*" For 1->A To 40 Getkey->B If B=79 Then Goto 8 IfEnd Next Goto 9 Lbl 3 Locate 6,5,"*" For 1->A To 40 Getkey->B If B=69 Then Goto 8 IfEnd Next Goto 9 Lbl 4 Locate 10,5,"*" For 1->A To 40 Getkey->B If B=59 Then Goto 8 IfEnd Next Goto 9 Lbl 5 Locate 14,5,"*" For 1->A To 40 Getkey->B If B=49 Then Goto 8 IfEnd Next Goto 9 Lbl 6 Locate 18,5,"*" For 1->A To 40 Getkey->B If B=39 Then Goto 8 IfEnd Next Goto 9 Lbl 7 Locate 21,5,"*" For 1->A To 40 Getkey->B If B=29 Then Goto 8 IfEnd Next Goto9 Lbl 9 Locate 1,5," " L+1->L L=10=>Goto A Goto 1 Lbl 8 W+1->W W=10=>Goto B Goto 1 Lbl A ClrText "YOU LOSE" Stop Lbl B ClrText "YOU WIN" Stop |
|
|
|
|
|
|
|