PROGRAM FILINF C C N. A. Bourgeois, Jr. 12-Feb-88/. C C Get and display the length and starting block number of a file. C INTEGER*2 IDEV(4),INFO(7) C CALL IRAD50 (12,'DK FILINFSAV',IDEV) ICHAN = IGETC () CALL IFLINF (ICHAN,IDEV,INFO) TYPE *,'The file length in blocks is:',INFO(1) TYPE *,'The starting block number is:',INFO(5) TYPE * C CALL EXIT END