SUBROUTINE HDCOPY
      DIMENSION ICODE(2)
      DATA ICODE(1),ICODE(2)/27,23/
C * OUTPUT (ESC) (ETB) TO START HARDCOPY
      CALL TOUTST(2,ICODE)
      CALL IOWAIT(180)
      RETURN
      END