Omron ES100 - Page 33

躍P鱒嚢権副i§璽
1'**********Sk・¥'****糟オ津締*******締********繰**締*******************************牌***********
2$*ES16◎LNK.BAS3/15/94‑‑VERS夏ON].20*
3'*})R〈)VllDESFORCO〕獺MUトJICATIONJBj巳TV∨EEIANIBIYECOIVIPATiBLEI)]ERS◎NALCOMPU質三R*
4'*AN夏〕SEVERAL(UPTosa)ES100PROCESSCONTROLLERS.COMMUNICATIONS*
5'*CAN8EACHIEVEDONLYT}IROUGHTHEREARCOM{MUMCATIONSPORTIFMULTII)LE*
6'*C◎NTR()LLiEe]RSARE(〕ONN]巳CTX已1)T}璽R.()U(}H]RS422.*
7う******************************************************・一***********************************
100'***締******************************牢***************結締********************************
至03'*O賜NCO閲Wm璽DEFAULT麗100CぴVEMUN1CATiON「SPARAMETERS‑CANBE*
102'*BEADj『UST既》TO⑪THERCOMMPARA]を犯TERSIFMATCHED至NES100SETUP(REAR*
103'*PORTONLY)*
104'***************************************************************************************
110◎亙)EN℃OM亘19600,E,8,2,Z,F,RS,(〕S,DS"AS…騎
12⑪'**************幸************************************************************************
121'*SETUP脳ITIALVAREABLESANDPRINTUNXTNUMBERINSTRUCTIONS*
122'*************・**************************************************************************
125CLS
130U$=="◎On
140CLR$=SPACj巳$(255)
150LOCAT夏三24,1
155PRiNT"PRESSUT(>CffANGEUN亘TNUMBER,PRESSENTERTOREPEATCOMMAND"
157'***************************************************************************************
158'*BEGINNINGOFMAIN】しOOP*
159'******************x:***********************,***st*****************************************
160LOCATE蚕,1:PR夏NTCLR$:LOCATEi,1
170PRINTMRSRTYSTART#OF'
175PjRINT"CCPEADDRITEM"
1809NPUT"COMMAND'う;CC$
1811FCC$="Uう'THENLOCATE4,亙:INPUT"UNIT##";U$:GOTO960
182PRINT
183'***************************************************************************************
184予*(〕LEARPREVIOUSR、ESPONSE*
185'************************締******************x;******************************************
186LOCATE9,1:PRINTCLR$:LOCATEll,亘:PRINTCLR$
187LOCATE17,1:PRINTCLR$lLOCATE19,1潭RINTCLR$
188LOCATI巳5,夏
189亙FCC$=ウ寸"THEN300:孫CRT】KENSEN夏)SAME〈=《)醐擁AND
1鋤'***************************************************************x:*****粋****************
捌'*A1)1[)STARTOFTEXTCHARACTER〈@)ANDUNITNUMBERU$AN「1)'9'YPEXD"FBO"*
192'************************************宋**************************************************
20⑪C$="@"+U$+"FB《)?ラ+Cむ$
210旺MC}{ECKS{JM(FCS)CALCULATION
211'*CALCULATEFRAM毘C迎CKSUMANIDADD夢CSAN夏)TERIY(INATOR〈*)TOCO醐曳4ANI)*
212'***************x:**・*****************************************************持経************
220CKSM==0
230FORN=1TOLEN(C$)
240CKSM=CKSMXORAS()(MID$(C$,N,1))
250NEXTN
260CKSM$=HEX$(CKSM)
2701F]しjiヨ]饗(CKS]M【$)=・2GOT◎29⑪
f‑29
‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑[EndofPage9276]‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑