[continued from previous message]   
      
       if (ch = CLeft) then GotoXY(WhereX - 1, WhereY);   
       if (ch = CRight) then GotoXY(WhereX+1, WhereY);   
       if (ch = CDown) then GotoXY(WhereX, WhereY+1);   
       if (ch = CExit) then Done := True;   
      
       if (ch = CEnter) then   
       begin   
          {$I-}   
      
          chdir(listing[whereY]);   
          if (IOResult <> 0) then   
            done := true   
          else   
            goto 1   
       end;   
      
    until Done;   
      
     Window(1, 1, 80, 25);   
     NormVideo;   
     ClrScr;   
   end.   
      
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)