SUBROUTINE RECTS(XST,YST,XL,YL) 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