$SETCRAY
$ASSIGN 1701:GFEMq1701.POS FOR001
$ASSIGN 1701:GFEMq1701.POSAGAFGF FOR015
$RUN GFAGAFGF
!$ASSIGN 1701:GFEMq1701.ALL FOR001
!$ASSIGN 1701:GFEMq1701.ALLAGAFGF FOR015
!$RUN GFAGAFGF