BMP 1 222222222222222222222222222222222222Untitledp`g`g  Arialbb  Arial``  PMControlKeypad.Text202  ########### Courier Newebeb {PMControlKeypad.Title} Courier New  {}{{}{  2B ControlKeypad_OnDown "1"ControlKeypad_OnDown "1"ControlKeypad_OnUp "1"ControlKeypad_OnUp "1"2(PMControlKeypad.Key="1")201=11.0000001  Courier New&A&A{}{{}{  2B ControlKeypad_OnDown "2"ControlKeypad_OnDown "2"ControlKeypad_OnUp "2"ControlKeypad_OnUp "2"2(PMControlKeypad.Key="2")202=11.0000002  Courier NewGbGb{}{{}{  2B ControlKeypad_OnDown "3"ControlKeypad_OnDown "3"ControlKeypad_OnUp "3"ControlKeypad_OnUp "3"2(PMControlKeypad.Key="3")203=11.0000003  Courier New  {}{{}{  2B ControlKeypad_OnDown "4"ControlKeypad_OnDown "4"ControlKeypad_OnUp "4"ControlKeypad_OnUp "4"2(PMControlKeypad.Key="4")204=11.0000004  Courier New&A&A{}{{}{  2B ControlKeypad_OnDown "5"ControlKeypad_OnDown "5"ControlKeypad_OnUp "5"ControlKeypad_OnUp "5"2(PMControlKeypad.Key="5")205=11.0000005  Courier NewGbGb{}{{}{  2B ControlKeypad_OnDown "6"ControlKeypad_OnDown "6"ControlKeypad_OnUp "6"ControlKeypad_OnUp "6"2(PMControlKeypad.Key="6")206=11.0000006  Courier New  .  .{}{{}{  2B ControlKeypad_OnDown "7"ControlKeypad_OnDown "7"ControlKeypad_OnUp "7"ControlKeypad_OnUp "7"2(PMControlKeypad.Key="7")207=11.0000007  Courier New& A.& A.{}{{}{  2B ControlKeypad_OnDown "8"ControlKeypad_OnDown "8"ControlKeypad_OnUp "8"ControlKeypad_OnUp "8"2(PMControlKeypad.Key="8")208=11.0000008  Courier NewG b.G b.{}{{}{  2B ControlKeypad_OnDown "9"ControlKeypad_OnDown "9"ControlKeypad_OnUp "9"ControlKeypad_OnUp "9"2(PMControlKeypad.Key="9")209=11.0000009  Courier New4 W4 W{}{{}{  2B ControlKeypad_OnDown "."ControlKeypad_OnDown "."ControlKeypad_OnUp "."ControlKeypad_OnUp "."2(PMControlKeypad.Key=".")20.=11.000000.  Courier New&4AW&4AW{}{{}{  2B ControlKeypad_OnDown "0"ControlKeypad_OnDown "0"ControlKeypad_OnUp "0"ControlKeypad_OnUp "0"2(PMControlKeypad.Key="0")200=11.0000000  Courier NewG4bWG4bW{}{{}{  2B ControlKeypad_OnDown "-"ControlKeypad_OnDown "-"ControlKeypad_OnUp "-"ControlKeypad_OnUp "-"2(PMControlKeypad.Key="-")20-=11.000000-  Courier New]0]0{}{{}{  PMControlKeypad.Label0<>""2000.000000100 100.000000d00.000000100 100.000000d 2B ControlKeypad_OnDown "K0"ControlKeypad_OnDown "K0"ControlKeypad_OnUp "K0"ControlKeypad_OnUp "K0"2(PMControlKeypad.Key="K0")20K0=11.000000{PMControlKeypad.Label0} Courier New6]a6]a{}{{}{  PMControlKeypad.Label1<>""20 00.000000100 100.000000d00.000000100 100.000000d 2B ControlKeypad_OnDown "K1"ControlKeypad_OnDown "K1"ControlKeypad_OnUp "K1"ControlKeypad_OnUp "K1"2(PMControlKeypad.Key="K1")20K1=11.000000{PMControlKeypad.Label1} Courier New00{}{{}{  PMControlKeypad.Label2<>""20 00.000000100 100.000000d00.000000100 100.000000d 2B ControlKeypad_OnDown "K2"ControlKeypad_OnDown "K2"ControlKeypad_OnUp "K2"ControlKeypad_OnUp "K2"2(PMControlKeypad.Key="K2")20K2=11.000000{PMControlKeypad.Label2} Courier New6a6a{}{{}{  PMControlKeypad.Label3<>""20 00.000000100 100.000000d00.000000100 100.000000d 2B ControlKeypad_OnDown "K3"ControlKeypad_OnDown "K3"ControlKeypad_OnUp "K3"ControlKeypad_OnUp "K3"2(PMControlKeypad.Key="K3")20K3=11.000000{PMControlKeypad.Label3} Courier New2BVBScriptK' Here you can declare variables and procedures and implement Line2=' some pre-defined procedures for screen. ' Declaration of variables ' Declaration of procedures ' Initialization of variables and tags Line9= Line10=' Implementation of pre-defined procedures. ' Note: The name of them can NOT be changed. ' This function is called when the screen is open. Sub Screen_OnOpen() End Sub ' This function is called while the screen is open. Sub Screen_WhileOpen() End Sub ' This function is called when the screen is closed. Sub Screen_OnClose() End Subk Sub Screen_OnOpen() End Sub Sub Screen_WhileOpen() End Sub Sub Screen_OnClose() End Sub2B000000 0 0 PMControlKeyPad.TextPMControlKeyPad.TitlePMControlKeyPad.KeyPMControlKeyPad.KeyPMControlKeyPad.Label0PMControlKeyPad.Label1PMControlKeyPad.Label2PMControlKeyPad.Label3