
FUNCTION CLR
parameter cl_attrib
if ISCOLOR()
   set colo to &cl_attrib
else
   do case
    case upper(cl_attrib) = "GR+/N"
         set colo to w
    case upper(cl_attrib) = "GR+/R"
         set colo to I
    case upper(cl_attrib) = "GR+/N,GR+/R,,,GR+/BG";
           .OR. upper(cl_attrib) = "GR+/N,GR+/B,,,GR+/BG";
           .OR. upper(cl_attrib) = "GR+/N,W+/R,,,GR+/BG";
           .OR. upper(cl_attrib) = "GR+/N,W+/B,,,GR+/BG"
         set colo to w,i,,,w+
    case [*] $ cl_attrib
         set colo to w+*
    otherwise
         set colo to w+
   endcase
endif
return []
