! INFOTS.COM NAB 03-FEB-83/08-FEB-83. ! ! ! Demonstrate the initialization of FORTRAN's OTS from a MACRO program. ! ! DISPLAY DISPLAY Compile. RUN SY:FORTRAN JUNK,JUNK/L:1=JUNK/W DISPLAY ! DISPLAY Assemble. RUN SY:MACRO INFOTS,INFOTS=INFOTS DISPLAY ! DISPLAY Link. RUN SY:LINK INFOTS,INFOTS=INFOTS,JUNK/F DISPLAY ! DISPLAY Set size. RUN SY:SETSIZ INFOTS/D:3 DISPLAY ! DISPLAY Execute. DISPLAY RUN INFOTS ! ! ! End of file.