! Pen Table for Full-Size Line Shading Only (SHADE.NEW)
! Written By Douglas K. Casto
! Last Revised for microstation 2/11/92 
IF (WEIGHT .LT. 4) THEN
IF (STYLE .EQ. 0) THEN
IF (COLOR .GT. 95) THEN
IF (COLOR .LT. 112) THEN
  STYLE=(.005,.02)
ENDIF
ENDIF
ENDIF
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

