C READS THE MASTER BOOKKEEPING FILE 1 CALL GET(I,J,K) Q=J R=K B=100.*(R-Q)/R TYPE 100,I,J,K,B 100 FORMAT(1X,I6,' USES'/1X,I6,' MASTER BLKS'/ 11X,I6,' DSK BLKS'/1X,G,'%BETTER') END *U*7>