ÿÿÿÿÿÿÿÿÿÿ CDrawGroupÿþÿÿþÿÿþÿïÝO xâØÀÀÀ ÿþÿïÝOÿþÿÿÿ CDrawRectÿþÿÿþÿÿþÿƒï¯Oƒï¯Oÿÿÿ ÿþÿÿþÿ {#TagName:}óÿ¼ ÿþÿArialÿÿÿÿÿÿê€ÿþÿÿþÿÿþÿ®ïÆ®ïÆÀÀÀ ÿÿ CMouseKeyÿþÿÿþÿÿþÿ ÿþÿú ÿþÿzDim res res = InputBox($Ext($#Prompt:"Type the data:"), $Ext("Data Entry"), $#TagName:) If res<>"" Then $#TagName: = resÿþÿÁDim res res = InputBox(StFunction1__(31, 1, "Type the data:"), StFunction1__(31, 1, "Data Entry"), StGetTagVal__(-1, 0, 0, 0, 0) ) If res<>"" Then Call StSetTagVal__(-1, 0, 0, 0, 0, 4, 3, res)ÿþÿÿþÿÿþÿÿþÿÿþÿÿþÿÿþÿÿþÿÿþÿÿþÿÿþÿ #Disable:0 ÿþ35Disable:0ÿþÿÿþÿ...óÿ¼ ÿþÿArialÀÀÀÿÿÿì€ÿþÿÿþÿÿþÿÅïÝÅïÝÀÀÀ €ÿþÿÿþÿÿþÿ ÿþÿú ÿþÿ¬Dim res res = MsgBox($Ext("Are you sure you want to erase the value '" & $#TagName: & "' ?"), vbYesNo + vbQuestion, $Ext("Erase Value")) If res=vbYes Then $#TagName: = ""ÿþÿûDim res res = MsgBox(StFunction1__(31, 1, "Are you sure you want to erase the value '" & StGetTagVal__(-1, 0, 0, 0, 0) & "' ?"), vbYesNo + vbQuestion, StFunction1__(31, 1, "Erase Value")) If res=vbYes Then Call StSetTagVal__(-1, 0, 0, 0, 0, 4, 3, "")ÿþÿÿþÿÿþÿÿþÿÿþÿÿþÿÿþÿÿþÿÿþÿÿþÿÿþÿ #Disable:0 ÿþ35Disable:0ÿþÿÿþÿóÿ¼ ÿþÿArialÀÀÀÿÿÿìÿÿ CDrawBitmapÿþÿÿþÿÿþÿÊöØÊöØÀÀÀ ÿþÿÿþÿ  ëéí(  híéëíéëíéëíéëíéëíéëíéëÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀíéëíéëíéëíéëíéëÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀ¿¿íéëíéëíéëíéëÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀÀ¿¿¿¿íéëíéëíéëíéëÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¿¿¿¿íéëíéëíéëíéëÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¿¿¿¿íéëíéëíéëíéëÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¿¿¿¿íéëíéëíéëíéëÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¿¿íéëíéëíéëíéëíéëÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿíéëíéëíéëíéëíéëíéëÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿíéëíéëíéëíéëíéëíéëíéëíéë€ÿþÿÿþÿÿþÿïƒïƒÀÀÀ ÿþÿÿþÿ{#Label:"Value:"}óÿ¼ ÿþÿArialÀÀÀÿÿÿêÿþÿ