*
;
%MACRO draw( x1, y1, colin, lintyp, width );
%*--------------------------------------------------------------------;
%* DRAW a line to the requested ( X1,Y1 ) coordinate. ;
%*--------------------------------------------------------------------;
X = &x1;
Y = &y1;
LINE = &lintyp;
SIZE = &width;
IF "&colin" =: '*' THEN ; ELSE color = "&colin" ;
FUNCTION = "DRAW "; output;
%MEND draw;
*;