.;
.;	GET A DIRECTORY OF ALL FILESAND COMPARE
.;	THE USED/ALLOCATED BLOCKS.  CREATE A PIP COMMAND
.;	FILE TO TRUNCATE (/TR) UNEQUAL FILES.
.;
.;	WRITTEN JUNE 1980
.;		BY MARVIN BROWN, N.C.A.R.
.;
SRD PIPTR.TMP=[*,*]/FU
MUNG PIPTR,PIPTR.TMP
PIP @PIPTR.TMP
PIP PIPTR.TMP;*/DE