>L.
   10 REM **************
   20 REM PROCrectangle
   30 REM By Tim Surtell
   40 REM **************
   50 REM Routine to draw a rectangle
   60 REM Downloaded from Tim's NC Users' Site
   70 REM http://www.ncus.org.uk
   80 REM Input is (X1,Y1,X2,Y2,IS,OS), IS being inside colour, OS being
   90 REM outside colour.1-Black  2-White  3-Not filled
  100 DEF PROCrectangle(X1,Y1,X2,Y2,IS,OS)
  110 IF IS=1 MOVEX1,Y1:PLOT101,X2,Y2
  120 IF IS=2 MOVEX1,Y1:PLOT103,X2,Y2
  130 IF OS=1 MOVEX1,Y1:DRAWX2,Y1:DRAWX2,Y2:DRAWX1,Y2:DRAWX1,Y1
  140 IF OS=2 MOVEX1,Y1:PLOT7,X2,Y1:PLOT7,X2,Y2:PLOT7,X1,Y2:PLOT7,X1,Y1
  150 ENDPROC
>*SPOOL