! Pen Table for Line Shading for Microstation 
! Plotter: HP 4MV
! Created: 10/12/95
! Revised: 
!Major contours
IF ((LEVEL == 20) AND (COLOR == 2) AND (WEIGHT == 5)) THEN
   COLOR = 105
   WEIGHT = 4		
   STYLE = 1
ENDIF

!Minor contours
IF ((LEVEL == 20) AND (COLOR == 15) AND (WEIGHT == 1)) THEN
   COLOR = 98
   WEIGHT = 1	
   STYLE = 1
ENDIF

!Shading
IF ((COLOR >= 96) AND (COLOR <= 111)) THEN
 IF (WEIGHT == 0 ) THEN
  WEIGHT = 1
 ENDIF
  COLOR = (108,108,108)
ELSE IF ((COLOR >= 128) AND (COLOR <= 143)) THEN
  COLOR = (255,255,255)
ELSE IF ((COLOR >= 160) AND (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

