$SETCRAY
$ASSIGN 2900:GFEMQ2900.POS FOR001
$ASSIGN 2900:GFEMQ2900.AGAFGF FOR015
$RUN GFAGAFGF
!$ASSIGN 2900:GFEMq2900.ALL FOR001
!$ASSIGN 2900:GFEMq2900.ALLAGAFGF FOR015
!$RUN GFAGAFGF