$SETNEWDF
$FOR/G/LIS REPACKDI
$TYPE REPACKDI
$LINK REPACKDI
$ASSIGN K4F:DIATOMICSDF.DAT FOR012
$ASSIGN K4E:DIATOMICS.PCK FOR011
$RUN REPACKDI