🚀 go-pugleaf

In article <24398@hydra.gatech.EDU> bb16@prism.gatech.EDU (Scott Bostater) writes:
]In article <1991Mar14.154513.2859@desire.wright.edu> rocker@desire.wright.edu 
]writes:
]
][stuff deleted]
]>
]>The last thing I need to add is a backup capability.  I was going to the 
]>program write and EXEC a .BAT file, but I don't think I can give EXEC enough
]>memory.  If I use $M to set heapmax low enough for EXEC, ny NEWs barf, if 
]>it's not high enough EXEC does not run, DOSERROR=8.
]>
]
]... [stuff deleted]
]
>-- 
]Scott Bostater      Georgia Tech Research Institute - Radar Systems Analysis

Even simpler solution... Try something like:

procedure CopyFile( Src, Dest: String );
    const
	BUFSIZE	= 4096;
    var
	F1,F2	: File;
	Buf	: array [1..BUFSIZE] of byte;
	Count,
	Result	: Word;
    begin
	Assign(F1,Src);
	Reset(F1,1);
	Assign(F2,Dest);
	Rewrite(F1,1);
	while not eof() do begin
	    BlockRead(F1,Buf,BUFSIZE,Count);
	    BlockWrite(F2,Buf,Count,Result);
	  end;
	close(F1);
	close(F2)
    end;

                //-n-\\			 Naoto Kimura
        _____---=======---_____		 (abcscnuk@csuna.csun.edu)
    ====____\   /.. ..\   /____====
  //         ---\__O__/---         \\	Enterprise... Surrender or we'll
  \_\                             /_/	send back your *&^$% tribbles !!