List files and directories
──────────────────────────────────────────────────────────────────────────────

 Syntax

         GT_Directory([<cPath>],[cExtent],[<nTop>],[<nLeft>])

 Arguments:

       <cPath> Path to list initially.

       <cExtent> Extentions to list.

       <nTop> Fix the window top.

       <nLeft> Fix the window left column

 Returns:

       cFileSelected

 Description:

       List files and directories and allow selection of a
       file.

 Examples:

 Source: GT_DIREC.PRG

 Author:  Martin Bryant