$SETCRAY
$ASSIGN 3001:GF3001.POS FOR001
$ASSIGN 3001:GF3001.AGAFGF FOR015
$RUN GFAGAFGF
!$ASSIGN 3001:GFEMq3001.ALL FOR001
!$ASSIGN 3001:GFEMq3001.ALLAGAFGF FOR015
!$RUN GFAGAFGF