PROGRAM PRGNAM C C N. A. Bourgeois, Jr. 15-Feb-88/. C C Get and display the name of the program running on the current line. C INTEGER*2 INAME(2) LOGICAL*1 SNAME(8) C LINUM = ITSLIN () CALL IPGNAM (LINUM,INAME) CALL R50ASC (6,INAME,SNAME) TYPE 10,(SNAME(I),I=1,6) 10 FORMAT (' The program name is: '6A1,/) C CALL EXIT END