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