home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 13 / CDA13.ISO / cdactual / demobin / share / program / Pascal / ASYNEW.ZIP / ASYNC.PAS next >
Encoding:
Pascal/Delphi Source File  |  1988-03-04  |  1.2 KB  |  32 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.  { Removed call to Async_init.                                              }
  8.  { Call to Async_close is now optional.                                     }
  9.  {                                        Tom R. Donnelly                   }
  10.  {--------------------------------------------------------------------------}
  11.  
  12.  uses Dos, Crt, Async4U;
  13.  
  14.  var inchar, outchar : char;
  15.  
  16.  begin
  17.   {Async_Init; Not necessary - handled automatically !}
  18.   writeln('Init status:',Async_Open(1,1200,'E',7,1));
  19.   outchar:=' ';
  20.  
  21.  repeat
  22.    if Async_Buffer_Check(inchar) then write(inchar);
  23.    if keypressed then begin
  24.       outchar:=Readkey;
  25.       If outchar<>'!' then     {Type an exclaimation point to exit}
  26.          Async_send(outchar);
  27.       end;
  28.    until outchar='!';
  29.  
  30.   Async_Close; {This is optional - ExitProc will close automatically}
  31.  
  32.  end.