.key Baud/A,Lock/A,Port/A
.bra {
.ket }
changetaskpri 1
failat 50
dlg:freeport >nil: -p {port}
type "color:[1;34m"
avail >nil: flush
path c: c2: dlg: mail: ram: point: uucp: reset

echo "port=" {port} "lock=" {lock} "baud=" {baud}  noline

dlg:immed >nil: {port} {lock} {baud} w
avail >nil: flush
dlg:getport >nil: -p {port}

;