home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1997 October / PCO1097.ISO / FilesBBS / WIN3X / MSTARTER.ARJ / BIOSTERM.PAS next >
Encoding:
Pascal/Delphi Source File  |  1995-11-13  |  1.4 KB  |  55 lines
  1. Program BiosTerm;
  2.  
  3. uses Crt, V24Unit, COMMCONS;
  4.  
  5.  
  6. var
  7.     InitStr,
  8.     HangupStr  : string;
  9.     ch         : char;
  10.     ComPort    : word;
  11.     Fehler     : boolean;
  12.     Ende       : boolean;
  13. begin
  14.   clrscr;
  15.   writeln; writeln('BIOSTERM - Beenden mit ALT-X');
  16.   ComPort   := COM2;
  17.   InitStr   := 'AT Z ^M~~~~';
  18.   HangupStr := '~~+++~~~~ATH0^M~~~~';
  19.  
  20.   bio_InitComPort(ComPort, Baud9600+NoParity+StopBit1+Databit8);
  21.   Fehler := true;
  22.   if bio_NoModemFound(ComPort)
  23.     Then writeln('Modem nicht gefunden')
  24.     Else if bio_NoPortFound(ComPort)
  25.            Then writeln('Port nicht gefunden')
  26.            Else Fehler := false;
  27.   If Fehler Then EXIT;
  28.   writeln('Modem initialisieren ...');
  29.   bio_V24WriteCommand(ComPort, InitStr);
  30.  
  31.   Ende := false;
  32.   while not Ende do
  33.     begin
  34.       if (bio_V24Status(ComPort) and (DataReady shl 8)) <> 0 then
  35.         begin
  36.           if bio_V24Fehler = 0 Then
  37.             begin
  38.               ch := bio_V24ReadCh(ComPort);
  39.               write(ch);
  40.             end;
  41.         end;
  42.       If Keypressed Then
  43.         begin
  44.           ch := Readkey;
  45.           if (ch = #0) then
  46.             begin
  47.               ch := readkey;
  48.               if (ch = #45) Then Ende := true;  { ALTX }
  49.             end;
  50.           bio_V24WriteCh(ComPort, ch);
  51.         end;
  52.     end;
  53.   writeln('Auflegen...');
  54.   bio_V24WriteCommand(ComPort, HangupStr);
  55. end.