$SETCRAY
$ASSIGN 1702:GFEMq1702.POS FOR001
$ASSIGN 1702:GFEMq1702.POSAGAFGF FOR015
$RUN GFAGAFGF
!$ASSIGN 1702:GFEMq1702.ALL FOR001
!$ASSIGN 1702:GFEMq1702.ALLAGAFGF FOR015
!$RUN GFAGAFGF