[Back to COMM SWAG index] [Back to Main SWAG index] [Original]

    {
    MIKE MOSSERI

    >  Does anyone have any bbs routines that they recommend.  I'd prefer if
    >it came With source but one that doesn't is good.  Mostly I want the
    >modem routines.  Also does anyone have a routine to answer the phone and
    >tell the baud rate of connection?  I working on a bbs Program (mostly
    >just For myself, small and quick) and Im doing it from scratch.  Im have
    >some communication routines but Im looking For others made For bbs's.
    }

    Uses
      Dos, Crt;

    Var
      REGS : Registers;

    Function CheckRing(Comport : Byte) : Boolean;
    begin
      fill(Regs, SizeOf(Regs), 0);    {Reset All Registers}
      Regs.AH := 3;
      Regs.DX := Comport - 1;
      Intr($14, Regs);
      CheckRing:= ((Regs.Al and $40) = $40);
    end;

    {
     The Function comes back True only when a ring is currently happening so
    you can:
    }

    begin
      Repeat
      Until CheckRing(2);      {Or Whatever comport}
      Delay(1000);             {Give it a sec}
      Writeln_Fossil('ATA'); {Or Whatever you use to Interface w/ the fossil}
      While not CarrierDetect do Delay(250); {Suffecient Time}

    {
      Well that should answer the phone, now if you want to check the baud
    you can read a line from the modem or something.
    }

[Back to COMM SWAG index] [Back to Main SWAG index] [Original]