FTN4 SUBROUTINE READY(LU1,RESPON,IERR) +,92069-16199 REV.2013 790205 C C C***************************************************************** C (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS RESERVED. C NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, REPRODUCED, OR C TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT THE PRIOR C WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. C****************************************************************** C C C SOURCE: 92069-18199 C RELOC: 92069-16199 C C C****************************************************************: C C C******************************************************** C READY PROMPTS THE USER FOR A RESPONSE. C********************************************************* INTEGER LU1,RESPON,IERR C*********************************************************** 1000 CALL REIO(2,LU1,21H READY (YES OR NO)? _,-21) CALL REIO(1,LU1+400B,RESPON,1) IF (RESPON .EQ. 2HNO) GO TO 8000 IF (RESPON .EQ. 2HYE) GO TO 9000 CALL REIO(2,LU1,38H ENTER YES TO CONTINUE OR NO TO ABORT.,19) GO TO 1000 C********************************************************** C ABORT POINT RETURNS NEGATIVE ERROR. C 8000 IERR=-1 RETURN C************************************************************ C CONTINUATION POINT. C 9000 IERR=0 RETURN END