$SET DEF 4001
$ASSIGN 4001:GF4001.POS FOR001
$ASSIGN 4001:GF4001.POSAGAFGF FOR015
$RUN CRAY:GFAGAFGF
$SORT/KEY=(POS:13,SIZE:12,DESC) GF4001.POSAGAFGF GF4001.POSAGAFGF
$ASSIGN 4001:GF4001.ALL FOR001
$ASSIGN 4001:GF4001.ALLAGAFGF FOR015
$RUN CRAY:GFAGAFGF
$SORT/KEY=(POS:13,SIZE:12,DESC) GF4001.ALLAGAFGF GF4001.ALLAGAFGF