- Dev DS H (
             R : - Dev DT H <
                              Baud_rate : Bits_per_second
                              Flags : <
                                        % : R.Flags.%
                                        Parity : 1, RTSCTS : 0
                                      >
                            >
                            (
                              R : Say 'Speed is now ' R.Baud_rate ' bps.'
                            )
         )
' DS = D_RS232 | D_INFO,
  DT = D_RS232 | D_SPEED | D_FLAGS
' H - Kern >H< K_DDC Driver_name
' Driver_name = `PORT_NAME,
  Bits_per_second = `PORT_SPEED