C PAT07.FOR C RET/SLA/1523 -- NAB/1736 13-JUN-79/22-AUG-79 C RT-11 SOFTWARE DISPATCH AUGUST 1979 C FORTRAN IV/RT-11 V2.1 SEQ 8 M C OTS C FORTRAN LIBRARY FUNCTION ERRTST -- PATCH 7. OPEN(UNIT=1,TYPE='OLD',ERR=1) STOP 'FILE FTN1.DAT EXISTS' 1 CALL ERRTST(28,I) TYPE *,I STOP 'ERROR IN OPEN' END