ClrHome
ClrDraw
0->Z
0->Y
0->X
0->W
0->V
0->U
0->T
0->S
0->R
Line(32,0,32,62)
Line(62,0,62,62)
Line(0,21,94,21)
Line(0,42,94,42)
Lbl 1
randInt(1,9->C
If (C=1)(Z<1)
Then
Circle(15,52,5
1->Z
Else
Goto 1
End
If (C=2)(Y<1)
Then
Circle(45,52,5
1->Y
Else
Goto 1
End
If (C=3)(X<1)
Then
Circle(79,52,5
1->X
Else
Goto 1
End
If (C=4)(W<1)
Then
Circle(15,32,5
1->W
Else
Goto 1
End
If (C=5)(V<1)
Then
Circle(45,32,5
1->V
Else
Goto 1
End
If (C=6)(U<1)
Then
Circle(79,32,5
1->U
Else
Goto 1
End
If (C=7)(T<1)
Then
Circle(15,10,5
1->T
Else
Goto 1
End
If (C=8)(S<1)
Then
Circle(45,10,5
1->S
Else
Goto 1
End
If (C=9)(R<1)
Then
Circle(79,10,5
1->R
Else
Goto 1
End
Repeat K
getKey->K
If K=72 and Z<1
Then
Line(9,49,16,56
Line(16,49,9,56
2->Z
End
If K=73 and Y<1
Then
Line(42,49,49,56
Line(49,49,42,56
2->Y
End
If K=74 and X<1
Then
Line(74,49,81,56
Line(81,49,74,56
2->X
End
If K=82 and W<1
Then
Line(9,28,16,35
Line(16,28,9,35
2->W
End
If K=83 and V<1
Then
Line(42,28,49,35
Line(49,28,42,35
2->V
End
If K=84 and U<1
Then
Line(74,28,81,35
Line(81,28,74,35
2->U
End
If K=92 and T<1
Then
Line(9,5,16,12
Line(16,5,9,12
2->T
End
If K=93 and S<1
Then
Line(42,5,49,12
Line(49,5,42,12
2->S
End
If K=94 and R<1
Then
Line(81,5,74,12
Line(74,5,81,12
2->R
End
End
Goto 1

:If (C=9)(R<1)