cd INFGES
sh ../w1 >.INFGES
exit
awk -F"^" ' 
$5+0 == 0 && index($5,"19")==0 {print $1 ; print >".INF.1"}
'  .INFGES >.INFGES.1
wc .INFGES.1
read line
x=`cat .INFGES.1`
echo $x
for i in $x
do
echo $i
vi  $i
read line
[ -z $line ] || exit
done


