home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / compuserve / P-Code / FASBAK.PAS < prev    next >
Pascal/Delphi Source File  |  2006-10-19  |  1KB  |  65 lines
  1.  
  2. {$L PRINTER: }
  3. program fastback;
  4. var
  5.     buffer:array[1..5120] of integer;
  6.     inunit,outunit:integer;
  7.     blkbase,blklimit:integer;
  8.     ch:string[9];
  9.  
  10. procedure getfrom;
  11. begin
  12.     inunit:=0;
  13.     while (inunit <>4) and (inunit <> 5) and (inunit <> 9) do
  14.     begin
  15.         write('Enter Source Drive # (4,5,9) ?');
  16.         readln(inunit)
  17.     end;
  18.     blkbase:=0;
  19.     while (blkbase <> 180) and (blkbase <> 360) do
  20.     begin
  21.         write('# blocks to copy (180/360) ?');
  22.         readln(blkbase)
  23.     end;
  24.     blklimit:=(blkbase div 10) - 1;
  25. end;
  26.  
  27. procedure getto;
  28. begin
  29.     outunit:=0;
  30.     while (outunit <>4) and (outunit<>5) and (outunit<>9) do
  31.     begin
  32.         write('Enter Copy Drive # (4,5,9) ?');
  33.         readln(outunit)
  34.     end
  35. end;
  36. begin
  37.     writeln('FASTBACK [V1.0]');
  38.     getfrom;
  39.     getto;
  40.     writeln('Insert disks--<CR> to start');
  41.     readln(ch);
  42.     for blkbase:=0 to blklimit do
  43.     begin
  44.         if inunit=outunit then
  45.         begin
  46.             write('Insert MASTER disk--press <CR> when ready');
  47.             readln(ch)
  48.         end;
  49.         unitread(inunit,buffer,5120,blkbase*10);
  50.         if inunit=outunit then
  51.         begin
  52.             write('Insert COPY disk--press <CR> when ready');
  53.             readln(ch)
  54.         end;
  55.         unitwrite(outunit,buffer,5120,blkbase*10)
  56.     end;
  57.     writeln('Copy Complete.')
  58. end.
  59.  
  60.  
  61.  
  62.   
  63.  
  64.  
  65.