PROGRAM SPLBLK C C N. A. Bourgeois, Jr. 15-Feb-88/11-May-89. C C Get and display the number of free and used blocks in the spool file. C IBLOCK = ISPBLK () TYPE *,'Free blocks in the spool file are:',IBLOCK C CALL ISPUSE (IBLOCK) TYPE *,'Blocks used in the spool file are:',IBLOCK TYPE * C CALL EXIT END