4. COMMUNICATION PROTOCOL
IMSRM04-E8
37
1450 '
1460 *BCCCH
1470 FOR II=1 TO LEN(DT$)
1480 BCCA$=MID$(DT$,II,1)
1490 IF BCCA$=STX$ THEN BCC=0 : GOTO *IINEXT
1500 BCC=BCC XOR ASC(BCCA$)
1510 *IINEXT
1520 NEXT II
1530 RETURN
(The items after the mark of " ' " can be omitted.)
BCC calculation
Setting of the receiving waiting time : If timeout occurs in using high speed computer (Except no
response), the numeral value of 500 in the program should
be changed to an appropriately-sized numeral value.