";
$flag=0;
while (!feof ($file)) {
$line = fgets ($file, 1024);
if (eregi ("(.*)", $line, $out))
{
$flag++;
if ($flag==3)
break;
else
print "".$out[1]." ";
}
if (eregi ("(.*) ", $line, $out))
{
if ($flag>1)
print "
".$out[1]."";
else
print "".$out[1]." ";
}
if (eregi ("", $line, $out))
print "PERMANENTE ";
if(eregi("(.*)H",$line, $out))
{
print "".$out[1]." ";
// if (eregi(" (.*)", $out[1], $out2))
// print $out2[1];
}
// echo "->".$line."<-";
// if ($line=="") $flag1++;
// if ($flag1)
// print $line."\n";
}
print " |