\START85\
\COMMENT=Program file dated 03/02/96, 11:04
\NAME=RDSFrac
\FILE=RDSFRAC.85P
:{1,126}\->\dim J
:ClDrw
:AxesOff
:FnOff 
:Lbl A
:Input "MAX ITER: ",Z
:If Z>18 or Z\<=\0 or Z\<>\iPart Z
:Goto A
:126\->\W
:62\->\H
:18\->\F
:For(D,0,H)
:Fill(0,J)
:For(AB,1,F)
:If int (rand*2)==1
:1\->\J(1,AB)
:End
:For(C,0,W-F-1)
:C*\Delta-x\+xMin\->\x
:yMax-D*\Delta-y\\->\y
:x\->\S
:y\->\T
:0\->\E
:Lbl C
:S\^2\-T\^2\+x\->\U
:2*S*T+y\->\V
:U\->\S
:V\->\T
:E+1\->\E
:If S\^2\+T\^2\>4
:Goto D
:If E<Z
:Goto C
:Lbl D
:PtOff(xMin+(F+C)*\Delta-x\,yMax-D*\Delta-y\)
:0\->\J(1,F+C+1)
:If J(1,C+E+1)==1
:Then
:PtOn(xMin+(F+C)*\Delta-x\,yMax-D*\Delta-y\)
:1\->\J(1,F+C+1)
:End
:End
:End
:(W+F)/2-F/2\->\M
:For(Y,0,8)
:For(X,\(-)\1,4)
:PtOff(xMin+(X+M+F)*\Delta-x\,yMax-Y*\Delta-y\)
:PtOff(xMin+(X+M+(F/2))*\Delta-x\,yMax-Y*\Delta-y\)
:End
:End
:For(Y,0,7)
:For(X,0,3)
:PtOn(xMin+(X+M+F)*\Delta-x\,yMax-Y*\Delta-y\)
:PtOn(xMin+(X+M+(F/2))*\Delta-x\,yMax-Y*\Delta-y\)
:End
:End
\STOP85\