Envoy Application Programming Manual

BISYNC Point-To-Point Protocol
Envoy Application Programming Manual—427159-001
3-47
Line Bid
Example 3-18. Program Code for read^text and write^text (Page 3 of 5)
! This procedure checks the home terminal for a completion.
! If a completion was made, another WRITEREAD is issued.
INT PROC check^term ( text );
INT .text;
BEGIN
INT countread := 0,
error;
INT(32) wait^type;
wait^type := IF linestate = writestate THEN -1D ELSE 0D;
CALL AWAITIO ( termfnum,, countread,, wait^type );
CALL FILEINFO( termfnum, error );
IF error <> 40 THEN ! operation completed.
BEGIN
! move term data to text buffer.
text ':=' termbuf FOR ((countread + 1) / 2);
! issue another WRITEREAD.
termbuf := "? ";
CALL WRITEREAD ( termfnum, termbuf, 1, 72 );
RETURN countread;
END;
END; ! check^term.