BTM182

Const
  BT_Init : Array[0..3] of String[5]=('ATZ0'+#13,'ATR0'+#13,'ATP0'+#13,'ATO0'+#13);
            // ATZ0              Restore factory default settings
            // ATR0              Set device as master
            // ATD=000bd58829bc  Set device-address
            // ATP0              Disable Pin-Code authorization
            // ATO0              Autoconnect Device
{-----------------------------------------------------------------------------}
Var
  C1, C2               : Byte;
  BTT, BTR             : String[1];
{$IDATA
Process Init_BT(20,20:iData);               // BT-Initialisierung und GPS-Kopplung
  Begin
    Write(SerOut,#13);
    Sleep(Init_BT,100);
    For C1:=0 to 3 do
      For C2:=1 to 5 do
        BTT:=Copy(BT_Init[C1],C2,1);
        BTR:='';
        Repeat
          Write(SerOut,BTT);
          WaitPipe(RXBuffer);
          Read(SerInp,BTR);
          Sleep(Init_BT,10);
          Until BTR=BTT;
        EndFor;
        Sleep(Init_BT,100);
        FlushBuffer(RXBuffer);
      EndFor;
    Repeat
      WaitPipe(RXBuffer);
      Read(SerInp, Temp);
      Until Temp='$';
    Resume(ReadGPS);
    Suspend(Init_BT);
  End Init_BT;