anchor.diff:  
      fname:=fname + #0;
   
  -   libc.chmod(
  +   fpchmod(
       PChar(@fname[1 ] ) ,
       S_IRWXU or S_IRWXG or S_IROTH or S_IWOTH );
   
  
positive.code: { ITERATEFOLDER }
  procedure IterateFolder(inFolder : shortstring );
  var
   dp : libc.PDIR;
   ep : libc.Pdirent;
  
  begin
   inFolder:=inFolder + #0;
  
   dp:=libc.opendir(PChar(@inFolder[1 ] ) );
  
   if dp <> NIL then
    begin
     repeat
      ep:=libc.readdir(dp );
  
      if ep <> NIL then
       ProcessObject(strpas(ep.d_name ) );
  
     until ep = NIL;
  
     libc.closedir(dp );
  
    end;
  
  end;
  
  { CREATEMAKEFILE }
  
negative.code:  else
    writeln('ERROR: Not enough memory for the pool buffer !' ); 
  
  end.
  
  