$SETCRAY
$ASSIGN 3801:GFEMq3801.POS FOR001
$ASSIGN 3801:GFEMq3801.POSAGAFGF FOR015
$RUN GFAGAFGF
$ASSIGN 3801:GFEMq3801.ALL FOR001
$ASSIGN 3801:GFEMq3801.ALLAGAFGF FOR015
$RUN GFAGAFGF