.LINE SET CLR

      PASS         <color_spec_name>          FIELD            SHARE? N
      *        OR
      PASS         <color_value>              FIELD            SHARE? N
      GOSUB    0CD .LINE SET CLR
      *        Check for error
      IF       0CD .LINE SET CLR              NE

This routine receives a single, optional value specifying either a <color_spec_name> or a <color_value>.

If a parameter is not received or if the value received is blank, then the color of the line object is cleared and the default color will be rendered.

If a parameter is received, the system first assumes that the value received is a <color_spec_name> and checks to see if a color spec record has been previously initialized with that name. If a color spec record is found, then that color spec record is used as a prototype to create a color spec for the line color. If a color spec record is not found, then the system assumes that the value received is a literal <color_value> and uses the specified color to create a color spec for the line color.

See ColorSpec for more information on working with colors.