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