%
% get or set serial port combo box settings
%
% stack: set-serial
%
{
_SerialA.Flow dup @!Flow <_SerialA.LookFlow> not { "None" } if !FlowA
_SerialA.StopBits dup @!StopBits <_SerialA.LookStop> not { 1 } if !StopBitsA
_SerialA.Parity dup @!Parity <_SerialA.LookParity> not { "Even parity" } if !ParityA
_SerialA.DataBits dup @!DataBits <_SerialA.LookBits> not { 8 } if !DataBitsA
_SerialA.Baud dup @!Baud <_SerialA.LookBaud> not { 9600 } if !BaudA
_SerialA.Port dup @!Port <_SerialA.LookPort> not { "COM1" } if !PortA
}
{
*serlcfga
empty
"SerialA.Flow" sval
"SerialA.StopBits" sval
"SerialA.Parity" sval
"SerialA.DataBits" sval
"SerialA.Baud" sval
"SerialA.Port" sval
} ifelse
%
% stack: [ serial-settings ]  (if false path)
%