home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1997 October / PCO1097.ISO / FilesBBS / WIN3X / MSTARTER.ARJ / MINITERM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-01-03  |  1.2 KB  |  55 lines
  1. Program MiniTerm;
  2.  
  3. uses Crt, COMMUNIT, COMMCONS;
  4.  
  5.  
  6. var
  7.     Result     : word;
  8.     InitStr,
  9.     HangupStr  : string;
  10.     ch         : char;
  11.     OK         : boolean;
  12.     ComPort    : word;
  13.     Ende       : boolean;
  14.  
  15. begin
  16.   clrscr;
  17.   writeln; writeln('MINITERM - Beenden mit ALT-X');
  18.   ComPort   := COM2;
  19.   InitStr   := 'ATZ^M~~';
  20.   HangupStr := '~~+++~~~~ATH0^M~~~~';
  21.   Result :=
  22.     InitComPort(ComPort, B2400, DataBit8, StopBit1, NoParity, RTS_CTS);
  23.   writeln;
  24.   case Result of
  25.     NoModem : writeln('Modem nicht gefunden');
  26.     NoPort  : writeln('Port nicht gefunden.');
  27.   end;
  28.   If Result <> InitOK Then
  29.     begin
  30.       CloseComPort;
  31.       Exit;
  32.     end;
  33.   writeln('Modem initialisieren ...');
  34.   OK := V24WriteCommand(InitStr);
  35.  
  36.   Ende := false;
  37.   while not Ende do
  38.     begin
  39.       ch := V24ReadCh;
  40.       if ch <> #0 Then write(ch);
  41.       If Keypressed Then
  42.         begin
  43.           ch := Readkey;
  44.           if (ch = #0) then
  45.             begin
  46.               ch := readkey;
  47.               if (ch = #45) Then Ende := true;  { ALTX }
  48.             end;
  49.           OK := V24WriteCh(ch);
  50.         end;
  51.     end;
  52.   writeln('Auflegen...');
  53.   OK := V24WriteCommand(HangupStr);
  54.   CloseComPort;
  55. end.