PROGRAM PPNUM C C N. A. Bourgeois, Jr. 15-Feb-88/. C C Get and display the project and programmer numbers for the current C line. C INTEGER*2 IPPN(2) C LINUM = ITSLIN () CALL IPPNUM (LINUM,IPPN) TYPE*,'The project and programmer numbers are:',IPPN(1),IPPN(2) TYPE * C CALL EXIT END