FTN4 LOGICAL FUNCTION OKABT(LU),92080-1X407 REV.2026 800515 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 92080-18407 C RELOC: %OKABT 92080-16407 PART OF $GPLB4 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$