PROGRAM GETLIC C C N. A. Bourgeois, Jr. 12-Feb-88/10-May-89. C C Get and display the TSX-Plus license number and licensee's name. C LOGICAL*1 NAMSTR(46) C IRET = ITSLIC () TYPE *,'The TSX-Plus license number is:',IRET C CALL ITSNAM (NAMSTR,NAMLEN) TYPE 10,(NAMSTR(I),I=1,NAMLEN) 10 FORMAT (' The licensee name is: ',46A1) TYPE * C CALL EXIT END