CDrawGroup-;kj[ -;k CDrawRect-;S-;S {#Label:"Value:"} Arial-Sk-Sk  ArialSkSk  CMouseKey  zDim res res = InputBox($Ext($#Prompt:"Type the data:"), $Ext("Data Entry"), $#TagName:) If res<>"" Then $#TagName: = resDim 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:0CFillStrLen(#TagName:)>6**35TagName:>>11.000000... Arial CDrawText5Wg5Wg COutText #TagName:35TagName: #Disable:0 35Disable:0###### Arial