home *** CD-ROM | disk | FTP | other *** search
/ Intermedia 1998 January / inter1_98.iso / www / rozi / RS.ZIP / RS_NAD_4.PAS < prev    next >
Pascal/Delphi Source File  |  1994-01-31  |  672b  |  34 lines
  1.   program NADAJNIK;
  2.   uses Dos;
  3.   var Rejestry:registers;
  4.       T:array[1..50000] of byte;
  5.       NazwaPliku:string[79];
  6.       I,J:word;
  7.       f:file;
  8.       A:char;
  9.  
  10.   begin
  11.     write('Nazwa pliku do wysÆania: ');
  12.     Readln(NazwaPliku);
  13.     Assign(F,NazwaPliku);
  14.     {$I-}
  15.     Reset(F,1);
  16.     If IOResult<>0 then
  17.       begin
  18.       writeln('Brak pliku o takiej nazwie na dysku.');
  19.       Halt
  20.       end;
  21.     {$I+}
  22.     BlockRead(f,T,SizeOf(T),I);
  23.     Close(F);
  24.     For J:=1 to I do
  25.     With Rejestry do
  26.     begin
  27.       AH:=$01;
  28.       DX:=$00;
  29.       AL:=T[J];
  30.       Intr($14,Rejestry);
  31.     end;
  32.     Writeln('Transmisja zakoñczona...');
  33.   end.
  34.