$SETCRAY
$ASSIGN 3901:GFEMQ3901.POS FOR001
$ASSIGN 3901:GFEMQ3901.AGAFGF FOR015
$RUN GFAGAFGF
$ASSIGN 3901:GFEMq3901.ALL FOR001
$ASSIGN 3901:GFEMq3901.ALLAGAFGF FOR015
$RUN GFAGAFGF