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