%
% get or set serial port combo box settings
%
% stack: set-serial
%
{
_SerialB.Flow dup @!Flow <_SerialB.LookFlow> not { "None" } if !FlowB
_SerialB.StopBits dup @!StopBits <_SerialB.LookStop> not { 1 } if !StopBitsB
_SerialB.Parity dup @!Parity <_SerialB.LookParity> not { "Even parity" } if !ParityB
_SerialB.DataBits dup @!DataBits <_SerialB.LookBits> not { 8 } if !DataBitsB
_SerialB.Baud dup @!Baud <_SerialB.LookBaud> not { 9600 } if !BaudB
_SerialB.Port dup @!Port <_SerialB.LookPort> not { "COM1" } if !PortB
}
{
*serlcfgb
empty
"SerialB.Flow" sval
"SerialB.StopBits" sval
"SerialB.Parity" sval
"SerialB.DataBits" sval
"SerialB.Baud" sval
"SerialB.Port" sval

} ifelse
%
% stack: [ serial-settings ]  (if false path)
%