C PAT06.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 7 M C OTS C OPEN FAILURE WITH TYPE='OLD' -- PATCH 6. OPEN(UNIT=1,TYPE='OLD',ERR=1) STOP 'FILE FTN1.DAT EXISTS' 1 OPEN(UNIT=1,TYPE='NEW',ERR=2) STOP 'FILE OPENED OK' 2 STOP 'FILE OPEN FAILED' END