C PAT04.FOR C RET/SLA/1523 -- NAB/1736 04-APR-79/04-OCT-79 C RT-11 SOFTWARE DISPATCH SEPTEMBER 1979 C FORTRAN IV/RT-11 V2.1 SEQ 5 M C OTS C PATCH 4. OPEN(UNIT = 1) DO 10 I = 1,10 10 WRITE(1,20) I 20 FORMAT(I4) REWIND 1 DO 30 I = 1,10 30 READ(1,20) J END