$SETCRAY
$!FOR/LIS GFAGAFGF
$!TYPE GFAGAFGF
$!LINK GFAGAFGF
$ASSIGN 1602:GFEMq1602.POS FOR001
$ASSIGN 1602:GFEMq1602.POSAGAFGF FOR015
$RUN GFAGAFGF
$ASSIGN 1602:GFEMq1602.ALL FOR001
$ASSIGN 1602:GFEMq1602.ALLAGAFGF FOR015
$RUN GFAGAFGF