$SETCRAY
$ASSIGN 1601:GFEMq1601.POS FOR001
$ASSIGN 1601:GFEMq1601.POSAGAFGF FOR015
$RUN GFAGAFGF
$ASSIGN 1601:GFEMq1601.ALL FOR001
$ASSIGN 1601:GFEMq1601.ALLAGAFGF FOR015
$RUN GFAGAFGF