FTN4,L
       SUBROUTINE EOTAP(ITTY,MTLU,IHDR,IBUF,ISIZE 
     X ),92067-1X549 REV.2001 791101
C*****************************************************************
C*                                                               *
C*  (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS       *
C*  RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,        *
C*  REPRODUCED OR TRANSLATED TO ANOTHER PROGRAMMING LANGUAGE     *
C*  WITHOUT THE PRIOR WRITTEN CONSENT OF THE HEWLETT-PACKARD     *
C*  COMPANY.                                                     *
C*                                                               *
C*****************************************************************
C 
C     NAME:  EOTAP
C   SOURCE:  92067-18549
C    RELOC:  PART OF 92067-12003
C     PGMR:  J.S.W
C 
       DIMENSION IHDR(1),IBUF(1)
C 
C 
C END OF TAPE WHEN READING (RESTORING)
C 
C 
100   CALL EXEC(2,ITTY,11HEND OF TAPE,-11)
      CALL EXEC(2,ITTY,15HMOUNT NEXT TAPE,-15)
      CALL EXEC(2,ITTY,32HTYPE "GO" TO CONTINUE           ,-32) 
C 
C 
      CALL EXEC(1,ITTY+400B,IGO,-2) 
      IF(IGO.NEQ.2HGO) GO TO 100
C 
C CHECK IF MT LU IS STILL UP
C 
120   CALL EXEC(13,MTLU,IEQT5)
      IF(IAND(IEQT5,40000B).EQ.0) GO TO 150 
      CALL EXEC(2,ITTY,10HMT LU DOWN,-10) 
      CALL EXEC(2,ITTY, 
     X  47HUP THE EQT AND TYPE "GO,<PROG-NAM>" TO CONTINUE, 
     X -47) 
      PAUSE 
      GO TO 120 
C 
150   CALL EXEC(3,600B+MTLU)
      CALL ABREG(IA,IB) 
      IF(IAND(IA,1).EQ.1)GO TO 900
C 
C READ HEADER,PRINT HEADER AND TAPE NO. 
      CALL EXEC(1,MTLU,IHDR,247)
      CALL ABREG(IA,IB) 
      IF(IAND(IA,1).EQ.1) GO TO 970 
200   CALL EXEC(2,ITTY,IHDR,-76)
      CALL EXEC(2,ITTY,8HTAPE # _,-8) 
      CALL XDCAS(IGO,1,IHDR(247)) 
      CALL EXEC(2,ITTY,IGO,-2)
C 
C ASK IF OK TO PROCEED, IF YES ,READ NEXT TRACK FROM TAPE 
C IF NO ASK AGAIN 
C 
      CALL EXEC(2,ITTY,4HOK?_,-4) 
      CALL EXEC(1,ITTY+400B,IGO,-2) 
      IF(IGO.EQ.2HNO) GO TO 100 
      IF(IGO.NEQ.2HYE) GO TO 200
      IF(IGO.EQ.2H/E.OR.IGO.EQ.2HEN.OR.IGO.EQ.2HEX)STOP 
      CALL EXEC(1,MTLU,IBUF,ISIZE)
      CALL ABREG(IA,IB) 
      IF(IAND(IA,1).EQ.1) GO TO 970 
       RETURN 
970   CALL EXEC(2,ITTY,15HMT PARITY ERROR,-15)
      STOP 66 
C 
C 
900   CALL EXEC(2,ITTY,18HMAG TAPE OFF-LINE ,-18) 
      GO TO 100 
       END
       END$ 
                                                                                                                                                                      