procedure fos_dtr_(comport_ : byte;  state: boolean);