PROGRAM SCREEN
      CHARACTER ERROR(2)*40, IONN*4, IOFF*4, IBOLD*4
      DATA ERROR(1) /' THIS IS AN ERROR'/
      DATA ERROR(2) /' THIS IS NOT AN ERROR'/
  100 FORMAT (1X,A)
C       The below shows how too turn inverse video on and off on a
C       terminal, to highlight an error! CHAR(27) is the Escape
C       character, 7=inverse, 0=attribute off, 1=bold, 5=blink etc
      IONN = CHAR(27)//'[7m'
      IBOLD = CHAR(27)//'[1m'
      IOFF = CHAR(27)//'[0m'
      WRITE (*,100) IONN
      WRITE (*,100) ERROR(1)
      WRITE (*,100) IBOLD
      WRITE (*,100) ERROR(2)
      WRITE (*,100) IOFF
C Better turn all attributes off before leaving program!
      END