Omron ES100 - Page 34

li・嶽漬貫主芦亘魎⊇亘嘩顧糠:㌻◎∵!詰A.1//∵∴ 三∵ン::言㌫
28◎CKSM$="0"+CKSM$
290C$=C$+CKSM$+sc*"
300>***********************************************************x:********s*******************
30ピ*SENDCOMMANDANDRECEVERESPONSEFROMCONTROLLER*
302s*ZEQUALSNUM{BBROFTR肥SBEFOREDECLARINGCOMMUNICATIONERROR*
303'****************************************************************************************
310P]RINT
320PRINT℃OMMANDSENTTOCON']rROLLE鼠"
330PR夏NT"+C$
340PRINT#1,C$
350Z=0
360Z=Z+1:1】FZ・1⑪00T}IENPRINT"NORESPONSE":GOTO410
3651FLOC〈1)=OTHEN360
370LINEINNPUT#1,R$
380PRINT
390PR脳丁"RESPONSEFROMCONTROLLER"
400PRINT""+R$
402PRINT
405GOSUB1000
410GOTO160
420END
lOOO'********************x:*****************************************************************
1001'*DECODERESPONSEFROMCONTROLLER*
玉002'**************************************************************************************
10ioUNIT$=MID$(R$,2,2)
1020COMMAND$=MID$(R$,8,4)
10251]FLEN(COMMANDS)<4THENCOMMAND$ゴ'"1℃HECKSFORILLEGALCOMMAND
1030COMPCODE$=MID$(R$,6,2)
1035LN=(L】EN(R$)‑14)
10361FLN〈OTH]EN1060:'CHECKSFORPRESENCEOFDATAINCONTROLLERR.ESPONSE
1040TEXT$=MID$(R$,]2,LN>
104・5RESPCODE$=LEFr$(T]EXT$,4)
1050RESPONSE$=MID$(TEXT$,5,LN)
1060CHECKSUM$=MgD$(RI研IT$(R$,3),1,2)
1◎70LOCATE15,i
玉100PRINT'UNITCOM‑ENDCHECKRESPDATA"
至105P斑NT"NOMANDCODESUMCODE"
1UOPRINT"'+UN亙T$+""+C◎MMAND$+""+COMPCODE$+'金"+CHECKSUM$+""+RESPCOD$+"";
112⑪FORX=1TOLNSTEP8:'PRINTSDATA脳8C}{ARBL◎ぴ(SFeRREADABI￨LITY
1130PRINTMID$(R.ESPONSB$,X,8)+"":
1140NEXTX
i199RETURN
1‑30
‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑[EndofPage9277]‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑