procedure fos_parms_(
     comport_ : byte;
     baud: integer;
     databits: byte;
     parity: char;
     stopbit: byte
   );