http://www.ousob.com --- Legacy Redefined #include <dos.h> #include <extend50.h> CLIPPER b_adir() { int fCount = 1; int done, i; struct find_t ffblk; char *fSpec = _parc(1); if( !ISCHAR(1) ){ _retni(0); return; } done = _dos_findfirst(fSpec, _A_NORMAL, &ffblk); while( !done ){ fCount++; done = _dos_findnext(&ffblk); } _reta(fCount -1); fCount = 1; done = _dos_findfirst(fSpec, _A_NORMAL, &ffblk); while( !done ){ _storc(ffblk.name, -1, fCount); if( (done = _dos_findnext(&ffblk)) == 0 ){ fCount++; } } _ret(); }