Device 4 Example

Device 4 Example

Top  Previous  Next

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;