Radio Shack TRS-80 User Manual page 228

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