$SETCRAY
$ASSIGN 2901:GFEMQ2901.POS FOR001
$ASSIGN 2901:GFEMQ2901.AGAFGF FOR015
$RUN GFAGAFGF
!$ASSIGN 2901:GFEMq2901.ALL FOR001
!$ASSIGN 2901:GFEMq2901.ALLAGAFGF FOR015
!$RUN GFAGAFGF