program RsAPI_test;
var datum : string;
var i: integer;
var k: integer;
var str: string;
var c1 : byte;

begin
ComSendChr(13);

  i:=0;
  while (k<90) do
   begin
      c1 :=48+i;
datum :='#12'+chr(c1)+'0&';
ComSendStr(Datum);
ComSendChr(13); ComSendChr(10);
     i:= i+1;
     if i>9 then  i:=0;
     k:=k+1;
   Delay(1990);
  end;
end.