C PAT12A.FOR C NAB/SLA/1736 23-AUG-79/ C RT-11 SOFTWARE DISPATCH AUGUST 1979 C FORTRAN IV/RT-11 V2.1 SEQ 14 M C OTS C CALL CLOSE (FORTRAN LIBRARY SUBROUTINE) -- PATCH 12. CALL ASSIGN(1,'FILE.DAT',8) DEFINE FILE 1(8,64,U,INDEX) A='A' WRITE (1'1)A CALL CLOSE(1) END