<pre>on serialPortInterface attribute  -------------------------------------------------------------------------  if attribute is "Volume du haut-parleur" then -- select the speaker volume    select empty    put "0;1;2;3;4;5;6;7" into choices    put popMenu(the mouseLoc,choices) into selectedMenuItem    if selectedMenuItem is 0 then exit serialPortInterface    set itemDelimiter to ";"    put item selectedMenuItem of choices into leVolume    put leVolume into me    get volume(leVolume) --XFCN    beep 1    exit serialPortInterface  end if  -------------------------------------------------------------------------  if attribute is "autoWrap" then                -- enable/disable autoWrap    select empty    put "autoWrapOn,autoWrapOff" into potentialMultipleChoices    put "On;Off" into potentialMenuItems    put popMenu(the mouseLoc,potentialMenuItems) into selectedMenuItem    if selectedMenuItem is 0 then exit serialPortInterface    put item selectedMenuItem of potentialMultipleChoices into the target    exit serialPortInterface  end if  -------------------------------------------------------------------------  if attribute is "strip controls" then      -- enable/disable stripControls    -- except for the control characters carriage return and tab.    select empty    put "stripControlsOn,stripControlsOff" into potentialMultipleChoices    put "On;Off" into potentialMenuItems    put popMenu(the mouseLoc,potentialMenuItems) into selectedMenuItem    if selectedMenuItem is 0 then exit serialPortInterface    put item selectedMenuItem of potentialMultipleChoices into the target    exit serialPortInterface  end if  -------------------------------------------------------------------------  if attribute is "strip" then                        -- enable/disable strip    select empty    put "stripOn,stripOff" into potentialMultipleChoices    put "On;Off" into potentialMenuItems    put popMenu(the mouseLoc,potentialMenuItems) into selectedMenuItem    if selectedMenuItem is 0 then exit serialPortInterface    put item selectedMenuItem of potentialMultipleChoices into the target    exit serialPortInterface  end if  -------------------------------------------------------------------------  if attribute is "edit" then                        -- enable/disable edit    select empty    put "editOn,editOff" into potentialMultipleChoices    put "On;Off" into potentialMenuItems    put popMenu(the mouseLoc,potentialMenuItems) into selectedMenuItem    if selectedMenuItem is 0 then exit serialPortInterface    put item selectedMenuItem of potentialMultipleChoices into the target    exit serialPortInterface  end if  -------------------------------------------------------------------------  if attribute is "echo" then                        -- enable/disable echo    select empty    put "echoOn,echoOff" into potentialMultipleChoices    put "On;Off" into potentialMenuItems    put popMenu(the mouseLoc,potentialMenuItems) into selectedMenuItem    if selectedMenuItem is 0 then exit serialPortInterface    put item selectedMenuItem of potentialMultipleChoices into the target    exit serialPortInterface  end if  -------------------------------------------------------------------------  if attribute is "lineFeed" then               -- enable/disable lineFeeds    select empty    put "linefeedsOn,lineFeedsOff" into potentialMultipleChoices    put "On;Off" into potentialMenuItems    put popMenu(the mouseLoc,potentialMenuItems) into selectedMenuItem    if selectedMenuItem is 0 then exit serialPortInterface    put item selectedMenuItem of potentialMultipleChoices into the target    exit serialPortInterface  end if  -------------------------------------------------------------------------  if attribute is "handshaking" then      -- enable/disable CTS handshaking    select empty    put "CTSOutOn,CTSOutOff" into potentialMultipleChoices    put "On;Off" into potentialMenuItems    put popMenu(the mouseLoc,potentialMenuItems) into selectedMenuItem    if selectedMenuItem is 0 then exit serialPortInterface    put item selectedMenuItem of potentialMultipleChoices into the target    exit serialPortInterface  end if  -------------------------------------------------------------------------  if attribute is "Xon/Xoff" then     -- enable/disable XON/XOFF flowControl    select empty    put "XOnOutOn,XOnOutOff" into potentialMultipleChoices    put "On;Off" into potentialMenuItems    put popMenu(the mouseLoc,potentialMenuItems) into selectedMenuItem    if selectedMenuItem is 0 then exit serialPortInterface    put item selectedMenuItem of potentialMultipleChoices into the target    exit serialPortInterface  end if  -------------------------------------------------------------------------  if attribute is "data" then              -- select the number of data bits    select empty    put "data5,data6,data7,data8" into potentialMultipleChoices    put "5;6;7;8" into potentialMenuItems    put popMenu(the mouseLoc,potentialMenuItems) into selectedMenuItem    if selectedMenuItem is 0 then exit serialPortInterface    put item selectedMenuItem of potentialMultipleChoices into the target    exit serialPortInterface  end if  -------------------------------------------------------------------------  if attribute is "parity" then                -- select the type of parity    select empty    put "parityOff,parityOdd,parityEven" into potentialMultipleChoices    put "Off;Odd;Even" into potentialMenuItems    put popMenu(the mouseLoc,potentialMenuItems) into selectedMenuItem    if selectedMenuItem is 0 then exit serialPortInterface    put item selectedMenuItem of potentialMultipleChoices into the target    exit serialPortInterface  end if  -------------------------------------------------------------------------  if attribute is "stop bit" then          -- select the number of stop bits    select empty    put "stop10,stop15,stop20" into potentialMultipleChoices    put "1.0;1.5;2.0" into choices    put popMenu(the mouseLoc,choices) into selectedMenuItem    if selectedMenuItem is 0 then exit serialPortInterface    set itemDelimiter to ";"    put item selectedMenuItem of potentialMultipleChoices into the target    exit serialPortInterface  end if  -------------------------------------------------------------------------  if attribute is "port" then                            -- select the port    select empty    put "modemPort;printerPort" into choices    put popMenu(the mouseLoc,choices) into selectedMenuItem    if selectedMenuItem is 0 then exit serialPortInterface    set itemDelimiter to ";"    put item selectedMenuItem of choices into the target    exit serialPortInterface  end if  -------------------------------------------------------------------------  if attribute is "baud" then                       -- select the baud rate    select empty    put "300;600;1200;1800;2400;3600;4800;7200;9600;19200;57600" into choices    put popMenu(the mouseLoc,choices) into selectedMenuItem    if selectedMenuItem is 0 then exit serialPortInterface    set itemDelimiter to ";"    put item selectedMenuItem of choices into rate    put "baud" & rate into the target    exit serialPortInterface  end if  -------------------------------------------------------------------------end serialPortInterface</pre>