Lbl B 
ZInteger 
0\->\Xmin 
-62\->\Ymin 
94\->\Xmax 
0\->\Ymax 
CoordOff 
GridOff 
AxisOff 
LabelOff 
ClrDraw 
Horizontal -21 
Horizontal -42 
Vertical 62 
Vertical 31 
0\->\D 
0\->\C 
Lbl A 
0\->\A 
D +1\->\D 
If D=10 
Goto C 
For (B,0,1 
getkey\->\A 
A>0\->\B 
End 
If A=45 
Goto D 
If A=22 
Goto C 
If A=72 
Then 
8\->\F:14\->\G 
End 
If A=73 
Then 
8\->\F:45\->\G 
End 
If A=74 
Then 
8\->\F:76\->\G 
End 
If A=82 
Then 
29\->\F:14\->\G 
End 
If A=83 
Then 
29\->\F:45\->\G 
End 
If A=84 
Then 
29\->\F:76\->\G 
End 
If A=92 
Then 
50->\F:14\->\G 
End 
If A=93 
Then 
50\->\F:45\->\G 
End 
If A=94 
Then 
50\->\F:76\->\G 
End 
C+1\->\C 
fPart(C/2)=.5\->\E 
If E=1 
Goto E 
If E=0 
Goto F 
Lbl E 
Text(F,G,X 
Goto A 
Lbl F 
Text(F,G,O 
Goto A 
Lbl D 
ClrDraw 
Goto B 
Lbl C 
Pause
Make your own free website on Tripod.com