$file) {
$f1=fopen($file,'r');
$line=0;
while(!feof($f1)) {
$ch=fgetc($f1);
if ($var) {
$chl=strtolower($ch);
if (($chl>='a' and $chl<='z') or ($chl>='0' and $chl<='9')) {$varn.=$chl;}
elseif ($varn>'') {$vars[$varn][$file][]=$line;$varn='';$var=0;}}
if ($ch=='$') {$var=1;}
if ($ch==chr(13)) {$line++;}}}
ksort($vars);
foreach ($vars as $varn=>$fa) {print"\n$varn ";}
foreach ($vars as $varn=>$fa) {
print"\n\n