Tic-Tac-Toe
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
A0\-\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