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

begin
ComSendChr(13);
datum :='02102H30M40S;A1=0111 ;EA2=0222 ;EA3=0333 ;EA4=0444 ;EA5=0555 ;EA6=0666 ;EA7=0777 ;EA8=0888 ;Lec=01010101;Ecr=11110000;&';
  i:=0;
  while (k<100) do
   begin
	ComSendChr(35);
        c1 :=48+i;
         ComSendChr(48); ComSendChr(48);ComSendChr(c1);
	ComSendStr(Datum);
        ComSendChr(13); ComSendChr(10);
     i:= i+1;
     if i>10 then  i:=0;
     k:=k+1;
   Delay(1990);
  end;
end.