* Lista os nomes dos arquivos de um certo diretório
* Autor: Antonio e Junior
* Em 13/11/2000

dir troca "\winvox"
busca a DIR "*.*"
@loop
    se a = "" desvia @fimDosArquivos
    escreve a
    busca a PROXIMO
    desvia @loop

@fimDosArquivos


