Device 4 Example

inc        C:\CXPL\Codes;                \intrinsic declarations

int C;

begin

OpenI(4);                        \Set serial port

OpenO(4);                        \Enable serial port

Text(4,"Hello World");        \Send message

CRLF(4);

repeat

       begin

       C:=Chin(4);                \Wait for input

       Chout(0,C);                \Echo input

       end

until C=$0D;                \Abort if Carriage Return received

Close(4);                        \Disable Serial port

end;