DIM parentProperties[] n = REQUEST ("Properties_Of_Parent", "", parentProperties) FILL gs_fill_type text2 0,0,GLOB_ID box_ID = stw(GLOB_ID) / 1000*GLOB_SCALE poly2_b 5,2,gs_fill_pen,gs_back_pen, 0,0,1, box_ID,0,1, box_ID,-sheight,1, 0,-sheight,1, 0,0,-1 name1 = "AAA" name2 = "BBB" name3 = "CCC" for j = 4 to 300 if parentProperties[j] = name1 then pv = REQUEST ( "Property_Value_Of_Parent", parentProperties[j-3], type, dim1, dim2, propertyValues ) if propertyValues = 0 then goto 0000 else text2 0,-1*sHeight,parentProperties[j]+" "+str(propertyValues,3,2)+"m" endif endif 0000: if parentProperties[j] = name2 then pv = REQUEST ( "Property_Value_Of_Parent", parentProperties[j-3], type, dim1, dim2, propertyValues ) if propertyValues = 0 then goto 1111 else text2 0,-2*sHeight,parentProperties[j]+" "+str(propertyValues,3,2)+"m" endif endif 1111: if parentProperties[j] = name3 then pv3 = REQUEST ( "Property_Value_Of_Parent", parentProperties[j-3], type, dim1, dim2, propertyValues ) if propertyValues = 0 then goto 2222 else text2 0,-3*sHeight,parentProperties[j]+" "+str(propertyValues,3,2)+"m" endif endif 2222: