C PAT14.FOR C NAB/SLA/1736 23-AUG-79/ C RT-11 SOFTWARE DISPATCH AUGUST 1979 C FORTRAN IV/RT-11 V2.1 SEQ 16 M C OTS C LIST DIRECTED INPUT ERRORS -- PATCH 14. BYTE ERRCNT DATA ERRCNT/0/ CALL SETERR(5,ERRCNT) DO 10 I=1,2 WRITE (7,20) 20 FORMAT ('$ENTER A REAL NUMBER: ') READ (5,*)X WRITE (7,*) 'YOUR NUMBER WAS',X 10 CONTINUE STOP END