6100 MPS-B Programming Manual

6100 MPS-B PROGRAMMING EXAMPLE
! At this point a terminal has responded to the poll, so let’s
! save the text portion of the received message (without the mcw,
! the SOH or STX, and the ETX) in slinebuff.
slinebuff ’:=’ start^of^msg FOR
(buff^len := line^count^read - 11);
!:
!:
!:
! After the appropriate processing (and assuming that the
! received text string is valid), the application may then
! want to send a message back to the terminal.
CALL reply^line;
END ! of infinite loop.
UNTIL 1 = 0;
END; ! of do^main.
B-17