OpSystem := environment('OS')
if (OpSystem='Windows_NT')
open_serial ('COM1', SerialHandle)
else
open_serial ('/dev/tty', SerialHandle)
endif
set_serial_param (SerialHandle, 9600, 8, 'none', 'none', 1, 1000, 'unchanged')
write_serial (SerialHandle, ords('Hello world!\n\r'))
while(1)
read_serial (SerialHandle, 10, Data)
if (|Data| > 0)
Read := chrt(Data)
break
endif
endwhile