6100 BSC Programming Manual

BSC Example
!DO A CONNECT
!REQUEST FOR
!A SWITCHED
!LINE HERE
END;
END;
s^cpline^buffer.clip^req^hdr.func ':=' clip^read^req for 2;
reqid := (reqid '+' 1); !THE WRITE HAD
cpline^buffer.clip^req^hdr.reqid := reqid; !NO ERRORS, SO
cpline^buffer.clip^req^hdr.txtout^len := 0; !POST ANOTHER
cpline^buffer.clip^req^hdr.txtin^len := cpline^text^len; !READ AND GO ON
CALL WRITEREAD (comm^file, cpline^buffer,clip^req^hdr^len,
max^comm^read,cpline^cnt^recvd);
END; ! WRITE^COMM
B-15