1166-2276.0723

procedure senddata var i:integer commflg : Boolean begin commflg:=true for i:=1