Radio Shack TRS-80

70
IFX>=YSTOP
80
IFY<XSTOP
90
IFY<=XSTDP
100
F.X=1TO10STEP2
110 GOTO130
120
STOP
130
GOS.
150
140 GQTO160
150
RETURN
160
ONXGOTO180
170 STOP
180
SET(
X
, Y)
185
IFPOINTCX,
Y)G. 190
187 STOP
190
RESETCX.Y)
200
IFXOY-1STOP
210
IFY=X+1G. 230
220
STOP
230 Z=RND( 0)
240 X=l .
1
sX=INT<
X)
245
Y=ABS<X)/2+.5
250 IFY=1G.
270
260 STOP
270
REM
EVERYTHING
IS
OK
226