’ž’%%%%%$$$$&&ABC’ž’%%%%%$$$$&&ABC’ž’%%%%%$$$$&&ABC’ž’%%%%%$$$$&&ABC’ž’%%%%%$$$$&&ABC’ž’%%%%%$$$$&&ABC’ž’%%%%%$$$$&&ABC’ž’%%%%%$$$$&&ABC’ž’%%%%%$$$$&&ABC’ž’%%%%%$$$$&&ABC’ž’%%%%%$$$$&&ABC’ž’%%%%%$$$$&&ABC’ž’%%%%%$$$$&&ABC’ž’0’ž’%%%%%$$$$&&ABC’ž’%%%%%$$$$&&ABC X’ž’BMP’ž’’ž’’ž’’ž’ ’ž’’ž’’ž’’ž’’ž’*If(bIsLocal, SetViewerPos(0, 0, 800, 600))44Ź X¬’ž’ nSelDevID’ž’,if(bIsLocal, (nSelectedNodeID >> 16) & 0xFF)Ń44Ź<–’&’ž’ bCheckExit’ž’if(bIsLocal, 0)2Ź’ž’ bCheckExit’ž’if(bIsLocal, 1)2Ź’ž’ nSelModID’ž’1if(bIsLocal, ((nSelectedNodeID >> 8) & 0xFF) + 1)Ó<<Ź<–’&+’ž’bExit’ž’If(bIsLocal, Not bExit)&&Źƒ’ž’’ž’’ž’nSelCHID’ž’+if(bIsLocal, (nSelectedNodeID & 0xFF) + 1)ķ44Ź<’&+’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’(’ž’’ž’(333’ž’%%%%%$$$$&&ABC’’’’ž’’ž’’ž’’ž’ 0f37c3a4e014b900d5a9a0857c3f0721’ž’’ž’’ž’’ž’’’’4m’ž’&48011-51283q20899188239 C+ĄĄĄ ’ž’&48011-51283q20899188239’ž’’ž’ Instrument:õ’"’ž’Tahoma’ž’%%%%%$$$$&&ABC’’’’’’’ž’’ž’’ž’’ž’$$ĄĄĄ ’ž’ ’ž’’ž’’ž’’ž’’ž’*nWebDevAux > 0 And nDevices[nWebDev] > -100Ķ>~?>„’ž’’ž’0’ž’0.000000’ž’100’ž’ 100.000000d’ž’’ž’0’ž’0.000000’ž’100’ž’ 100.000000d’ž’ ’ž’’ž’$’ž’’ž’’ž’’ž’’ž’Č$Č$ĄĄĄ ’ž’’ž’’ž’’ž’’ž’ś ’ž’’ž’FlkStopScan(nWebDev)?Ī’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’bTrendDisable[nWebDev]ŗ?’ž’ ’ž’’ž’š’¼ ’ž’ArialĄĄĄ’’’ź’ž’%%%%%$$$$&&ABC’ž’Ģ!Ģ’ž’’ž’’ž’’ž’ؽ ’ž’&81611-52283q908994048239ؽ ĄĄĄ ’ž’&81611-52283q908994048239’ž’’ž’ ( <’ž’’ž’’ž’’ž’ؾ ’ž’&81711-52283q908994068239ؾ ĄĄĄ ’ž’ ’ž’’ž’’ž’’ž’’ž’bTrendDisable[nWebDev]ŗ?’ž’’ž’0’ž’0.000000’ž’100’ž’ 100.000000d’ž’’ž’0’ž’0.000000’ž’100’ž’ 100.000000d’ž’ ’ž’&81711-52283q908994068239’ž’’ž’ „„„( ąĘĘĘ’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„’’’„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„’’’„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„’’’„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„’’’„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„’’’„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„’’’„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„’’’„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„’’’„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„’’’„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„’’’„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„’’’„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„’’’„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„’’’„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„’’’„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„’’’„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„’’’„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„’’’„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„’’’„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„ĘĘĘ’ž’’ž’’ž’’ž’Õ$Õ$ĄĄĄ ’ž’’ž’’ž’’ž’’ž’ś ’ž’’ž’FlkStartScan(nWebDev)?Ķ’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’Not bTrendDisable[nWebDev]ŗ?ƒ ’ž’ ’ž’’ž’š’¼ ’ž’ArialĄĄĄ’’’ź’ž’%%%%%$$$$&&ABC’ž’Ģ!Ģ’ž’’ž’’ž’’ž’ā÷ ā÷ ĄĄĄ ’ž’’ž’’ž’ ĘĘĘ( ĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘ’ž’’ž’’ž’’ž’āų āų ĄĄĄ ’ž’ ’ž’’ž’’ž’’ž’’ž’Not bTrendDisable[nWebDev]ŗ?ƒ’ž’’ž’0’ž’0.000000’ž’100’ž’ 100.000000d’ž’’ž’0’ž’0.000000’ž’100’ž’ 100.000000d’ž’ ’ž’’ž’’ž’  ĘĘĘ( 8ĘĘĘ’’’’’’ĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘʄ„„„„„’’’’’’’’’ĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘʄ„„„„„„„„„„„’’’’’’’’’ĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘʄ„„„„„„„„„„„„„„„„„’’’’’’’’’ĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘʄ„„„„„„„„„„„„„„„„„„„„„„„’’’’’’’’’ĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘʄ„„„„„„„„„„„„„„„„„„„„„„„„„„„„„’’’’’’’’’ĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘʄ„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„’’’’’’’’’ĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘʄ„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„’’’’’’’’’ĘĘĘĘĘĘĘĘĘĘĘĘĘĘʄ„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„’’’’’’’’’ĘĘĘĘĘĘĘĘʄ„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„’’’’’’’’’ĘĘʄ„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„’’’’’’„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„ĘĘʄ„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„ĘĘĘĘĘĘĘĘʄ„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„ĘĘĘĘĘĘĘĘĘĘĘĘĘĘʄ„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„ĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘʄ„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„ĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘʄ„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„ĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘʄ„„„„„„„„„„„„„„„„„„„„„„„„„„ĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘʄ„„„„„„„„„„„„„„„„„„„„ĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘʄ„„„„„„„„„„„„„„ĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘʄ„„„„„„„„ĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘ’ž’’ž’’ž’’ž’’ž’’ž’±g ±g ĄĄĄ ’ž’ ’ž’’ž’’ž’’ž’’ž’EnWebDevAux > 0 And nDevices[nWebDev] > -1 And $nDevices[nWebDev] = 5FFĶ>~?>„~?=„’ž’’ž’0’ž’0.000000’ž’100’ž’ 100.000000d’ž’’ž’0’ž’0.000000’ž’100’ž’ 100.000000d’ž’’ž’’ž’± g ’ž’’ž’’ž’’ž’’ž’±×±×ĄĄĄ ’ž’’ž’’ž’Module:õ’"’ž’Tahoma’ž’%%%%%$$$$&&ABC’’’ĄĄĄ%’ž’$’ž’’ž’’ž’Ūg Ūg ĄĄĄ ’ž’’ž’’’’’ž’$nDevices[nWebDev] < 2~?<õ’"’ž’Tahoma’ž’ ’ž’nWebCh’ž’’ž’’ž’’ž’>Front Channel Module 1 Module 2 Module 3 Computed Channels’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’±g ±g ĄĄĄ ’ž’ ’ž’’ž’’ž’’ž’’ž’EnWebDevAux > 0 And nDevices[nWebDev] > -1 And $nDevices[nWebDev] < 4FFĶ>~?>„~?<„’ž’’ž’0’ž’0.000000’ž’100’ž’ 100.000000d’ž’’ž’0’ž’0.000000’ž’100’ž’ 100.000000d’ž’’ž’’ž’± g ’ž’’ž’’ž’’ž’’ž’±×±×ĄĄĄ ’ž’’ž’’ž’Module:õ’"’ž’Tahoma’ž’%%%%%$$$$&&ABC’’’ĄĄĄ%’ž’$’ž’’ž’’ž’Ūg Ūg ĄĄĄ ’ž’’ž’’’’’ž’$nDevices[nWebDev] < 2~?<õ’"’ž’Tahoma’ž’ ’ž’nWebCh’ž’’ž’’ž’’ž’a101 ~ 120 201 ~ 220 301 ~ 320 401 ~ 420 501 ~ 520 601 ~ 620 901 ~ 920 921 ~ 940 941 ~ 960’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’’ž’±g ±g ĄĄĄ ’ž’ ’ž’’ž’’ž’’ž’’ž’EnWebDevAux > 0 And nDevices[nWebDev] > -1 And $nDevices[nWebDev] = 4FFĶ>~?>„~?=„’ž’’ž’0’ž’0.000000’ž’100’ž’ 100.000000d’ž’’ž’0’ž’0.000000’ž’100’ž’ 100.000000d’ž’’ž’’ž’± g ’ž’’ž’’ž’’ž’’ž’±×±×ĄĄĄ ’ž’’ž’’ž’Module:õ’"’ž’Tahoma’ž’%%%%%$$$$&&ABC’’’ĄĄĄ%’ž’$’ž’’ž’’ž’Ūg Ūg ĄĄĄ ’ž’’ž’’’’’ž’$nDevices[nWebDev] < 2~?<õ’"’ž’Tahoma’ž’ ’ž’nWebCh’ž’’ž’’ž’’ž’4Front Channel Module 1 Module 2 Computed Channels’ž’’ž’’ž’’ž’’ž’’ž’%’ž’$’ž’’ž’’ž’q¢ ’ž’&53311-49283q31899918239<z0ĄĄĄ ’ž’&53311-49283q31899918239’ž’’’’’ž’õ’"’ž’Tahoma’ž’’ž’ nWebDevAux’ž’’ž’sDevCmbArray[1]’ž’nDeviceCountWeb’ž’’ž’’ž’’ž’’ž’’ž’’ž’0.000000’ž’VBScript%’ž’’Q' Initialization of variables and tags Line9= Line10=' Implementation of pre-defined procedures. Dim lastType ' Note: The name of them can NOT be changed. ' This function is called when the screen is open. Sub Screen_OnOpen() lastType = -1 End Sub ' This function is called while the screen is open. Sub Screen_WhileOpen() Dim aux If($nWebDevAux > 0) Then aux = $Num($sDevCmbArray[$nWebDevAux]) Else aux = 0 End If If aux > 0 And $nDevices[aux] > -1 Then $nWebDev = aux If lastType <> $nDevices[$nWebDev] Then lastType = $nDevices[$nWebDev] If lastType < 2 Then $Open("WebNDAQComm") ElseIf lastType < 4 Then $Open("WebJRComm") Else $Open("WebMTVComm") End If End If End If End Sub ' This function is called when the screen is closed. Sub Screen_OnClose() End Sub ’ž’’F Dim lastType Sub Screen_OnOpen() lastType = -1 End Sub Sub Screen_WhileOpen() Dim aux If(StGetMnTagVal__(461, 0, 0, 0, 0, "") > 0) Then aux = StFunction1__(26, 1, StGetMnTagVal__(261, StGetMnTagVal__(461, 0, 0, 0, 0, "") , 0, 0, 0, "") ) Else aux = 0 End If If aux > 0 And StGetMnTagVal__(126, aux, 0, 0, 0, "") > -1 Then Call StSetMnTagVal__(319, 0, 0, 0, 0, 1, 20, "", aux) If lastType <> StGetMnTagVal__(126, StGetMnTagVal__(319, 0, 0, 0, 0, "") , 0, 0, 0, "") Then lastType = StGetMnTagVal__(126, StGetMnTagVal__(319, 0, 0, 0, 0, "") , 0, 0, 0, "") If lastType < 2 Then Call StFunction1__(33, 1, "WebNDAQComm") ElseIf lastType < 4 Then Call StFunction1__(33, 1, "WebJRComm") Else Call StFunction1__(33, 1, "WebMTVComm") End If End If End If End Sub Sub Screen_OnClose() End Sub’ž’ŗ?~??Ķ@@Ė’’’ž’BTRENDDISABLE[NWEBDEV]’ž’NDEVICES[NWEBDEV]’ž’NWEBDEV’ž’ NWEBDEVAUX’ž’NWEBCH’ž’NWEBCH’ž’NDEVICECOUNTWEB’ž’SDEVCMBARRAY[1]