FTN4
      LOGICAL FUNCTION OKABT(LU),92903-16407 REV.1805  770712 
C 
C 
C 
C     **************************************************************
C     * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978.  ALL RIGHTS    *
C     * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- *
C     * PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH-  *
C     * OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.  *
C     **************************************************************
C 
C 
C 
C     NAME:   OKABT 
C     SOURCE: &OKABT    92903-18407 
C     SOURCE: %OKABT    92903-16407    PART OF  RTMGLB1 
C 
C     PRMG:   FRANCOIS GAULLIER   HPG 
C 
C 
C 
C     ********************************
C     * THIS FUNCTION PRINTS ON LU:  *
C     * " O.K. TO ABORT? .. (Y/N) "  *
C     *                              *
C     *  FORTRAN CALL:               *
C     *                              *
C     * --IF(OKABT(LU)) GOTO "YES"   *
C     * --GOTO "NO"                  *
C     ********************************
C 
C 
      DIMENSION IMESA(29),IBLOK(3)
      DATA IMESA/15530B,15555B,15446B,2Hk0,2HB ,15510B,15512B,15542B
     .,15446B,2HdB,2H O,2H.K,2H. ,2HTO,2H A,2HBO,2HRT,2H ?,2H : 
     .,2H  ,2H (,2HY/,2HN),20033B,2H&d,40033B,2H&a,2H-8,2HC_/ 
      DATA IBLOK/15446B,2Hk1,2HB /
C 
      OKABT=.TRUE.
      CALL EXEC(2,LU,IMESA,29)
      CALL REIO(1,LU+500B,IBUF,-1)
C-----RESTORE BLOCK MODE
      CALL EXEC(2,LU,IBLOK,3) 
      IF(IGET1(IBUF,1).EQ.1HY) RETURN 
      OKABT=.FALSE. 
      RETURN
      END 
      END$
                                                                                                                                                                                                                      