SUBROUTINE RECTS(XST,YST,XL,YL) C C Subroutine to draw rectangles,squares C C XST(real) = starting X position of the rectangle C YST(real) = starting Y position of the rectangle CALL PLOT(XST,YST,3) CALL PLOT(XST+XL,YST,2) CALL PLOT(XST+XL,YST+YL,1) CALL PLOT(XST,YST+YL,1) CALL PLOT(XST,YST,1) CALL PENUP RETURN END