";
    if ($path == "") $openfile = $text;
    else $openfile = $path . "/" . $text;
    $fp=fopen($openfile,"r");
    if ($fp)
    {
      if (eregi("\.(java|asm|inc|c|cpp|phps|h|php-source)$",$text)) { 
        while ($line = fgets($fp,1024)) 
        {
          $line = str_replace('&','&',$line);
          $line = str_replace('<','<',$line);
          $line = str_replace('>','>',$line);
          $line = str_replace("\t",'  ',$line);
          echo $line;
        }
      }
      else
      {
        while ($line = fgets($fp,1024)) 
        {
          echo $line;
        }
      }
      fclose($fp);
      echo "

";

    // read directory
    $openpath = ($path=="") ? "." : $path;
    if (!is_dir($openpath) || !($dp=opendir($openpath)))
    {
      if (!$dp=opendir("."))
        die("Error in URL (" . $path . "). Click here.
");
      else $path="";
    }

    while ($fn = readdir($dp)) 
    { 
      if(substr($fn,0,1) != ".") {
        $fnlist[$fn]=""; 
      }
    };
    if (!isset($fnlist)) $fnlist[""]="";

    closedir($dp);
    ksort($fnlist);
    reset($fnlist);

    echo "";
    display_current_path($path,0);
    echo "\n";

    // display index text
    if ($path != "") $idxfile=$path . "/.index.txt";
    else $idxfile=".index.txt";

    if (file_exists($idxfile) && $file=fopen($idxfile,"r"))
    {
      $line = fgets($file,4096);
      if ($line)
      {
        echo "" . chop($line) . "";
        while ($line = fgets($file,4096)) echo chop($line) . "\n";
      }
      fclose($file);
    }
    else
    {
        
        $tt=strrchr($wdp2,"/");
        if (!$tt || strlen($tt)<1) $tt=$wdp2;
        else $tt=substr($tt,1);
        echo "" . $tt . "\n";
    }


    // directory listing

    reset($fnlist);
    if ($path=="") $newwd="";
    else $newwd=rawurlencode($path . "/");
    $tablestat=2;
    echo "

";
        }
        echo "AUDIO: $fn ($fs"."k)\n";
      }
    }

    // movie listing
    reset($fnlist);
    while ($fn = key($fnlist))
    {
      next($fnlist);
      if ($path=="") $full_fn=$fn;
      else $full_fn=$path."/".$fn;
      $fs=floor(filesize($full_fn)/1000);
      if (!is_dir($full_fn) && eregi("\.(avi|mov|mpg|mpeg)$",$fn)) { 
        $fnu=rawurlencode($fn);
        if ($tablestat == 0) {
          $tablestat=1;
          echo "

";
        }
        echo "VIDEO: $fn ($fs"."k)\n";
      }
    }

    // text listing

    reset($fnlist);
    while ($fn = key($fnlist))
    {
      next($fnlist);
      $full_fn=$wd."/".$fn;
      if (!is_dir($full_fn) && eregi("\.TXT$",$fn)) {
        $fnu=rawurlencode($fn);
        if ($tablestat == 0) {
          $tablestat=1;
          echo "

";
        }
        echo "TEXT: " . substr($fn,0,strlen($fn)-4) . "\n";
      }
    }

    // code listing
    reset($fnlist);
    if ($path=="") $newwd="";
    else $newwd=rawurlencode($path);
    while ($fn = key($fnlist))
    {
      next($fnlist);
      if ($path=="") $full_fn=$fn;
      else $full_fn=$path."/".$fn;
      if (!is_dir($full_fn) && eregi("\.(java|asm|inc|c|cpp|phps|php-source|h)$",$fn)) { 
        $fnu=rawurlencode($fn);
        if ($tablestat == 0) {
          $tablestat=1;
          echo "

";
        }
        echo "CODE: $fn\n";
      }
    }

    // archive listing
    reset($fnlist);
    if ($path=="") $newwd="";
    else $newwd=str_replace("%2F","/",rawurlencode($path));
    while ($fn = key($fnlist))
    {
      next($fnlist);
      if ($path=="") $full_fn=$fn;
      else $full_fn=$path."/".$fn;
      $fs=floor(filesize($full_fn)/1000);
      if (!is_dir($full_fn) && eregi("\.(zip|rar|arj|arc|lzh|lha|tar\.gz|tar|tgz|tar\.bz)$",$fn)) { 
        $fnu=rawurlencode($fn);
        if ($tablestat == 0) {
          $tablestat=1;
          echo "

";
        }
        echo "ARCH: $fn ($fs"."k)\n";
      }
    }





    if ($tablestat == 1) echo "