$SETH2O
$FOR/LIS/G H2OPARTFN
$TYPE H2OPARTFN
$LINK H2OPARTFN
$ASSIGN EH2OPARTRIDGE.ASC FOR001
$ASSIGN H2OPARTFN.DAT FOR007
$RUN H2OPARTFN