####################################################################
#### Section for replacing plot wrapper text with information
#### 1-20-96 TMUHLEN for implementing laser printers on NT nodes
#### 11-20-97 BMS Added grayscale priorities
#### 11-20-97 Glen Lyall changed from 230 to 228 grayscale priorities
#### 12-31-98 BMS Added 227-229 color change to 235 for pavement shading
####################################################################
if (color == 200) then
  color = 238
endif
if (color > 226) then
  priority = 5
else
  priority = 10
endif
if (color .IN. 227, 228, 229) then
  fill_color = 235
  color = 235
endif

if (type == text) then
  midline_joint=circle
  switch (characters)
     case 'SYSTEMTIME' ? 
       characters=sytim	
     case 'USERNAME' ?
       characters=username
     case 'DGNSPEC' ?
       characters=dgnspec
  endswitch
endif

if (type == text) then
  midline_joint=circle
  switch (characters)
     case 'XXXXXXXXXXSYSTEMTIME' ? 
       characters=sytim	
     case 'XXXXXXXUSERNAME' ?
       characters=username
     case 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXDGNSPEC' ?
       characters=dgnspec
  endswitch
endif


####################################################################