procedure fos_write_(comport_ : byte;  character: char);