$SET DEF 1801
$ASSIGN GF1801.GAM FOR008
$ASSIGN PARTFN1801.DAT FOR007
$RUN CRAY:PARTFN3007