PROGRAM PEEKIO C C N. A. Bourgeois, Jr. 12-Feb-88/. C C Get and display the contents of the RT-11 console terminal CSR. C CALL IPEKIO ("177560,ICSR) TYPE 10,ICSR 10 FORMAT (' The CSR contents are:',O8,/) C CALL EXIT END