C PAT001.FOR C NAB/SLA/1736 10-MAR-78/01-MAR-79 C RT-11 SOFTWARE DISPATCH JANUARY 1979 (FEBRUARY 1978) C FORTRAN IV/RT-11 V2 SEQ 7 M (SEQ 2 M) C THIS PROGRAM TESTS FORTRAN SYSTEM PATCH 1. DEFINE FILE 1(4,4,U,INDX) WRITE(1'1)I INDX=555 FIND(1'3) TYPE *, INDX END