PROGRAM TTTYP C C N. A. Bourgeois, Jr. 22-Feb-88/. C C Get and display the terminal type code. C ITTYP = ITRTYP () TYPE *,'The terminal type code is:',ITTYP TYPE * C CALL EXIT END