PROGRAM LINUM C C N. A. Bourgeois, Jr. 12-Feb-88/23-May-88. C C Get and display the TSX-Plus line number via both subroutine and C function calls. C CALL ISERR CALL ITSLIN (IRET) IF (IRET .EQ. 0) STOP 'TSX-Plus not running.' CALL IHERR TYPE *,'Line number via subroutine call is:',IRET IRET = ITSLIN () TYPE *,'Line number via function call is: ',IRET TYPE * C CALL EXIT END