ClrText
11->A~C:3->D~E
For 3->B To 5
Locate 10,B,"---"
Next
Do
Getkey
If Ans=27 And A<12
Then Locate A,B,"-"
Isz A
IfEnd
If Ans=28 And B>3
Then Locate A,B,"-"
Dsz B
IfEnd
If Ans=37 And B<5
Then Locate A,B,"-"
Isz B
If Ans=38 And A>10
Then Locate A,B,"-"
Dsz A
IfEnd
Locate A,B,1
Int 4Ran#
If Ans=0 And C<12
Then Locate C,D,"-"
Isz C
IfEnd
If Ans=1 And D>3
Then Locate C,D,"-"
Dsz D
IfEnd
If Ans=2 And D<5
Then Locate C,D,"-"
Isz D
If Ans=3 And C>10
Then Locate C,D,"-"
Dsz C
IfEnd
Locate C,D,2
Isz E
LpWhile AB=/=CD- Disp -
E
BTW, my game on my site will be the same one as the comp except with correct plurals . Enjoy!