home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
compuserve
/
P-Code
/
FASBAK.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
2006-10-19
|
1KB
|
65 lines
{$L PRINTER: }
program fastback;
var
buffer:array[1..5120] of integer;
inunit,outunit:integer;
blkbase,blklimit:integer;
ch:string[9];
procedure getfrom;
begin
inunit:=0;
while (inunit <>4) and (inunit <> 5) and (inunit <> 9) do
begin
write('Enter Source Drive # (4,5,9) ?');
readln(inunit)
end;
blkbase:=0;
while (blkbase <> 180) and (blkbase <> 360) do
begin
write('# blocks to copy (180/360) ?');
readln(blkbase)
end;
blklimit:=(blkbase div 10) - 1;
end;
procedure getto;
begin
outunit:=0;
while (outunit <>4) and (outunit<>5) and (outunit<>9) do
begin
write('Enter Copy Drive # (4,5,9) ?');
readln(outunit)
end
end;
begin
writeln('FASTBACK [V1.0]');
getfrom;
getto;
writeln('Insert disks--<CR> to start');
readln(ch);
for blkbase:=0 to blklimit do
begin
if inunit=outunit then
begin
write('Insert MASTER disk--press <CR> when ready');
readln(ch)
end;
unitread(inunit,buffer,5120,blkbase*10);
if inunit=outunit then
begin
write('Insert COPY disk--press <CR> when ready');
readln(ch)
end;
unitwrite(outunit,buffer,5120,blkbase*10)
end;
writeln('Copy Complete.')
end.