<pre>on startSerialPort userName  if userName is empty then exit startSerialPort  --------------------------------------------------------------------------  put disk() & ":Fichiers:Listes:Telematique" & userName into filename  put readFile(filename) into serialPortAttributes  set itemDelimiter to tab  --------------------------------------------------------------------------  put item 2 of line 1 of serialPortAttributes into P1  -- "Port"  put item 2 of line 2 of serialPortAttributes into P2  -- "Baud"  put item 2 of line 3 of serialPortAttributes into P2  -- "Stop bit"  put item 2 of line 4 of serialPortAttributes into P2  -- "Parity"  put item 2 of line 5 of serialPortAttributes into P2  -- "Data bits"  put item 2 of line 6 of serialPortAttributes into P2  -- "Xon/Xoff"  put item 2 of line 7 of serialPortAttributes into P2  -- "Handshaking"  put item 2 of line 8 of serialPortAttributes into P2  -- "Linefeed"  put item 2 of line 9 of serialPortAttributes into P2  -- "Echo"  put item 2 of line 10 of serialPortAttributes into P2 -- "Edit"  put item 2 of line 11 of serialPortAttributes into P2 -- "Strip"  put item 2 of line 12 of serialPortAttributes into P2 -- "Strip controls"  put item 2 of line 13 of serialPortAttributes into P2 -- "AutoWrap"  --------------------------------------------------------------------------  configureSPort P1,P2,P3,P4,P5,P6,P7,P8,P9,P10,P11,P12,P13  setSPortBufferSize 0end startSerialPort</pre>