>CLEAR
>CLEAR ALL
>SET EXACT ON
>SET TALK off
>SET DEFAULT TO c:\global
>LOCAL nCount, gnDbcnumber, gaDatabase[1]
> 
>gnDbcnumber = ADIR(gaDatabase, '*.DBF') && Create array
>FOR nCount = 1 TO gnDbcnumber           && Loop for number of databases
>    USE (gaDatabase[nCount, 1]) IN 0
>ENDFOR
>