Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!usc!nic.csu.net!csun!csunb.csun.edu!abcscnuk
From: abcscnuk@csunb.csun.edu (Naoto Kimura (ACM))
Newsgroups: comp.os.msdos.programmer
Subject: Re: TP memory problems
Message-ID: <1991Mar20.111203.25495@csun.edu>
Date: 20 Mar 91 11:12:03 GMT
References: <1991Mar14.154513.2859@desire.wright.edu> <24398@hydra.gatech.EDU>
Sender: news@csun.edu (News Administrator)
Organization: csun
Lines: 45

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 !!