home *** CD-ROM | disk | FTP | other *** search
/ Intermedia 1998 January / inter1_98.iso / www / rozi / RS.ZIP / RS_ODB_4.PAS < prev    next >
Pascal/Delphi Source File  |  1994-01-31  |  912b  |  44 lines
  1.   program ODBIORNIK;
  2.   uses Dos;
  3.   var T:array[1..50000] of byte;
  4.       Rozmiar,i:word;
  5.       NazwaPliku:string[79];
  6.       Rejestry:registers;
  7.       f:file;
  8.  
  9.   begin
  10.     Write('Rozmiar pliku odbieranego: ');
  11.     Readln(Rozmiar);
  12.     Dec(Rozmiar);
  13.     Write('Nazwa pliku wynikowego: ');
  14.     Readln(NazwaPliku);
  15.     Writeln(#13#10,'Proszæ czekaì...');
  16.     Repeat
  17.       With Rejestry do
  18.       begin
  19.         AH:=$02;
  20.         DX:=$00;
  21.         Intr($14,Rejestry);
  22.       end;
  23.     Until (Rejestry.ah=0) and (Rejestry.al<>46);
  24.     I:=1;
  25.     T[I]:=Rejestry.AL;
  26.     Repeat
  27.       With Rejestry do
  28.       begin
  29.         AH:=$02;
  30.         DX:=$00;
  31.         Intr($14,Rejestry);
  32.         Inc(I);
  33.         T[I]:=AL;
  34.       end;
  35.     Until (I=Rozmiar);
  36.  
  37.     { zapisanie przesÆanych danych do pliku }
  38.     Assign(f,NazwaPliku);
  39.     Rewrite(f,1);
  40.     BlockWrite(f,T,Rozmiar);
  41.     Close(F);
  42.   end.
  43.  
  44.