C PAT16.FOR C NAB/SLA/1736 23-AUG-79/ C RT-11 SOFTWARE DISPATCH AUGUST 1979 C FORTRAN IV/RT-11 V2.1 SEQ 18 M C OTS C FORMATTED RECORD OUTPUT -- PATCH 16. OPEN (UNIT=5,FORM='FORMATTED') WRITE (5,1000) WRITE (5,1000) 1000 FORMAT (1X,3('1234567890')) END