SUBROUTINE CANT(BUF)
      INTEGER BUF(132)
      CALL PUTLIN(BUF, 2)
      CALL REMARK(": can't open.")
      CALL RATEXIT
      END