$SET DEF 0401
$ASSIGN HYPER04019.OUT FOR006
$ASSIGN HYPER04019.POS FOR007
$ASSIGN HYPEREMQ04019.POS FOR007
$assign GF0401.POS for002
$assign GFEMQ0401.POS for002
$ASSIGN AB04019.dat  FOR001
$run cowan:hyperfine
$SORT/KEY=(POS:1,SIZE:11)/STABLE HYPEREMQ04019.POS HYPEREMQ04019.POS
$ASSIGN HYPEREMQ04019.ALL FOR007
$assign GFEMQ0401.ALL for002
$ASSIGN AB04019.dat  FOR001
$run cowan:hyperfine
$SORT/KEY=(POS:1,SIZE:11)/STABLE HYPEREMQ04019.ALL HYPEREMQ04019.ALL