PROGRAM LNSTAT C C N. A. Bourgeois, Jr. 12-Feb-88/. C C Get and display some status information about the current line. C LINUM = ITSLIN () CALL ILNSTS (LINUM,ISTAT) TYPE 10,ISTAT 10 FORMAT (' The line status code is:',O8,/) C CALL EXIT END