call border (XStart, YStart, XLength, YLength,
XStart, YStart = coordinates of lower left corner of border in
XLength, YLength = length of sides of border in plotter inches.
LinesArray = array of y coordinate locations at which to draw a
horizontal line XLength long.
ArraySize = number of elements in LinesArray.
Although this program has been used by the U.S. Geological Survey,
no warranty, expressed or implied, is made by the Survey as to the
accuracy and functioning of the program and related program
material nor shall the fact of distribution constitute any such
warranty, and no responsibility is assured by the Survey in
call newpen (1)
call plot (XStart, YStart, PenUp)
call plot (XStart + XLength, YStart, PenDown)
call plot (XStart + XLength, YStart + YLength,
call plot (XStart, YStart + YLength, PenDown)
call plot (XStart, YStart, PenDown)
call plot (XStart, Lines (Element), PenUp)
call plot (XStart + XLength, Lines (Element), PenDown)