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