Tech-ecke - Turbo Pascal Code

program SendCom;

var { global }
P: Integer;

procedure InitCOM;
begin
{ COM-Port auf 9600,8N1 setzen }
Port[P + 3] := $80; Port[P + 0] := 12;
Port[P + 1] := 0; Port[P + 3] := $03;
end;

procedure SendAT(const S: string);
var
i: Integer;
begin
for i := 1 to Length(S) do
    begin
      while (Port[P + 5] and $20) = 0 do ;
      Port[P] := Ord(S[i]);
    end;
end;

begin
P := 1016; { 1016 = $3F8 = COM1 }
InitCOM;

SendAT('AT+O1');
end.