$SETCRAY
$ASSIGN 1301:GFEMq1301.POS FOR001
$ASSIGN 1301:GFEMq1301.AGAFGF FOR015
$RUN GFAGAFGF
$ASSIGN 1301:GFEMq1301.ALL FOR001
$ASSIGN 1301:GFEMq1301.ALLAGAFGF FOR015
$RUN GFAGAFGF