$SETCRAY
$ASSIGN 1803:GFEMq1803.POS FOR001
$ASSIGN 1803:GFEMq1803.POSAGAFGF FOR015
$RUN GFAGAFGF
$!ASSIGN 1803:GFEMq1803.ALL FOR001
$!ASSIGN 1803:GFEMq1803.ALLAGAFGF FOR015
$!RUN GFAGAFGF