00100 C READS THE MASTER BOOKKEEPING FILE 00200 1 CALL GET(I,J,K) 00300 Q=J 00400 R=K 00500 B=100.*(R-Q)/R 00600 TYPE 100,I,J,K,B 00700 100 FORMAT(1X,I6,' USES'/1X,I6,' MASTER BLKS'/ 00800 11X,I6,' DSK BLKS'/1X,G,'%BETTER') 00900 END