$SETCRAY
$ASSIGN 1700:GFEMq1700.POS FOR001
$ASSIGN 1700:GFEMq1700.POSAGAFGF FOR015
$RUN GFAGAFGF
!$ASSIGN 1700:GFEMq1700.ALL FOR001
!$ASSIGN 1700:GFEMq1700.ALLAGAFGF FOR015
!$RUN GFAGAFGF