$SETCRAY
$ASSIGN 1500:GFEMq1500.POS FOR001
$ASSIGN 1500:GFEMq1500.POSAGAFGF FOR015
$RUN GFAGAFGF
!$ASSIGN 1500:GFEMq1500.ALL FOR001
!$ASSIGN 1500:GFEMq1500.ALLAGAFGF FOR015
!$RUN GFAGAFGF