home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_PAS / MGCOMTP0.ZIP / TERMINAL.PAS < prev   
Pascal/Delphi Source File  |  1980-01-01  |  2KB  |  59 lines
  1.  
  2. (******************************************************************************)
  3. (*                                                                            *)
  4. (*        This is an example that demonstred how to use mgcomtp unit.         *)
  5. (*                                                                            *)
  6. (*                                                          Mark Gauthier.    *)
  7. (*                                                                            *)
  8. (******************************************************************************)
  9.  
  10. Uses Crt,MgCom;
  11.  
  12. Var
  13.  
  14.     Ask    : Connect_Type;
  15.     AskS   : String;
  16.     ChIn   : Char;
  17.     ChOut  : Char;
  18.  
  19.  
  20. Begin
  21.         ClrScr;
  22.         Write('use fossil or ports ? : ');
  23.         ReadLn(AskS);
  24.         If AskS = 'fossil' then Ask := Fossil
  25.         Else if AskS = 'ports' then Ask := Ports
  26.         Else
  27.         Begin
  28.              Write('Error...');
  29.              Halt;
  30.         End;
  31.  
  32.         If Not OpenCom(1,Ask) Then
  33.         Begin
  34.              Write('Can''t open Com1');
  35.              Halt;
  36.         End;
  37.  
  38.         SetParams(1, 2400, 8, 'N',1);
  39.                                      
  40.         HangUp(1);
  41.  
  42.         Repeat
  43.  
  44.             If KeyPressed Then ChOut:=ReadKey Else ChOut := #0;
  45.  
  46.             If ChOut <> #0 Then WriteChW(1,ChOut);
  47.             
  48.             ChIn := ReadCh(1);
  49.  
  50.             If ChIn <> #0 Then Write(ChIn);
  51.                                           
  52.         Until (ChOut = #27) or (ChIn = #27);
  53.  
  54.         CloseCom(1);
  55.  
  56. End.
  57.     
  58.  
  59.