! Pen Table for Full-Size Line Shading Only (SHADE.NEW)
! Written By Douglas K. Casto
! Last Revised for microstation 2/11/92 
! Revised for Microstation V-8 upgrade 3/18/03 by CJT


IF ((COLOR .EQ. 104) && (WEIGHT <= 1)) THEN
   IF ((WEIGHT >= 0) && (WEIGHT < 4)) THEN
     WEIGHT = 4
   ENDIF
COLOR = (230,230,230) 
ELSE IF ((COLOR >= 96) && (COLOR <= 111)) THEN
   IF ((WEIGHT >= 0) && (WEIGHT < 4)) THEN
     WEIGHT = 4
   ENDIF
   COLOR=(205,205,205)
ELSE IF ((COLOR >= 128) && (COLOR <= 175)) THEN
    IF ((WEIGHT >= 0) && (WEIGHT < 4)) THEN
      WEIGHT = 4
    ENDIF
   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

