! Pen Table for Line Shading for Microstation 
! Plotter: HP 4MV
! Created: 10/12/95
! Revised: 
IF ((COLOR .EQ. 104) && (WEIGHT <= 2)) THEN

   COLOR = (180,180,180)

else IF ((COLOR >= 96) && (COLOR <= 111)) THEN
 IF (WEIGHT == 0 ) THEN
  WEIGHT = 1
 ENDIF
  COLOR = (115,115,115)
ELSE IF ((COLOR >= 128) && (COLOR <= 143)) THEN
  COLOR = (255,255,255)
ELSE IF ((COLOR >= 160) && (COLOR <= 175)) THEN
  COLOR = (255,255,255)
ELSE
  COLOR = (0,0,0)
ENDIF


! Pen Table for showing date, time, user, & file on plots (STAMP.TBL)
IF (CHARACTERS .EQ. 'DD-MMM-YYYY HH:MM') THEN
  CHARACTERS = SYTIME
ENDIF
IF (CHARACTERS .EQ. '$USERNAME$') THEN
  CHARACTERS = USERNAME
ENDIF
IF (CHARACTERS .EQ. '$$$$$$$$$FILENAME$$$$$$$$') THEN
  CHARACTERS = DGNSPEC
ENDIF

