C PAT18B.FOR C NAB/1736/SLA 30-JUL-79/23-AUG-79-79 C RT-11 SOFTWARE DISPATCH AUGUST 1979 C FORTRAN IV/RT-11 V2.1 SEQ 20 M C OTS C CALL ASSIGN CARRIAGE CONTROL -- PATCH 18. CALL ASSIGN(2,'TT:/N') WRITE (2,100) 100 FORMAT ('OTHIS IS IT!') END