Příklady - Zjištění souborů na disku C:\

  dim FName  : String;
  dim Attr   : Byte;
  dim Time   : LongInt;
  dim Size   : LongInt;

  WInit(1, 1,1,80,22, "", winMove, 0); WOpen(1);
      
       
       
       
       
  if _FindFirst("C:\*.*", $20, FName, Attr, Time, Size) then
    repeat
      PrintLn(Size:6,"  ",FName);
    until _FindNext(FName, Attr, Time, Size) = 0;
  endif
  Wait