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 
                                                                                                                                    