C PAT13.FOR C NAB/SLA/1736 23-AUG-79/ C RT-11 SOFTWARE DISPATCH AUGUST 1979 C ORTRAN IV/RT-11 V2.1 SEQ 15 F C OTS C UNFORMATTED BYTE I/O -- PATCH 13. BYTE B(4) INTEGER*2 A(4) A(1)='AB' A(2)='CD' A(3)='EF' A(4)='GH' WRITE (1)A REWIND 1 READ (1)B WRITE (7,100)B 100 FORMAT (1X,4A1) END