\START85\
\COMMENT=Program file dated 01/26/96, 11:40
\NAME=RDSGraf
\FILE=RDSGRAF.85P
:{1,126}\->\dim J
:ClDrw
:AxesOff
:FnOff 
:126\->\W
:62\->\H
:18\->\F
:Input "Z-Min: ",L
:Input "Z-Max: ",U
: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
:int ((y1-L)F/(U-L))\->\E
:If E<0
:0\->\E
:If E>F
:F\->\E
: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\