home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / BONUS40.ZIP / ASYNC4.ZIP / ASYNC.PAS
Encoding:
Pascal/Delphi Source File  |  1987-11-28  |  833 b   |  29 lines
  1. Program Async;
  2.  
  3.  {--------------------------------------------------------------------------}
  4.  { This is a trivial little glass terminal program which simply shows a     }
  5.  { test I used of the ASYNC4U unit under Turbo 4.0 which appears to work.   }
  6.  {                                        Scott Gurvey                      }
  7.  {--------------------------------------------------------------------------}
  8.  
  9.  uses Dos, Crt, Async4U;
  10.  
  11.  var inchar, outchar : char;
  12.  
  13.  begin
  14.   Async_Init;
  15.   write(Async_Open(1,1200,'E',7,1));
  16.   outchar:=' ';
  17.  
  18.  repeat
  19.    if Async_Buffer_Check(inchar) then write(inchar);
  20.    if keypressed then begin
  21.       outchar:=Readkey;
  22.       If outchar<>'!' then     {Type an exclaimation point to exit}
  23.          Async_send(outchar);
  24.       end;
  25.    until outchar='!';
  26.  
  27.   Async_Close;
  28.  
  29.  end.