CC "Modeling" GET_ACT_MODEL
SET n_act_modelid:(modelid)

SET temp_annotation_file:("db:\\Annotations.txt")


CC "AdoScript" FREAD file:(temp_annotation_file) binary:0 base64:0
SET s_annotatations:(text)

CC "AdoScript" LISTBOX entries:(s_annotatations) toksep:("$") boxtext:("Annotation") title:("Select an Annotation")
SET s_selected_annotation:(selection)

CC "Modeling" GET_SELECTED modelid:(n_act_modelid)
SET s_selected_objid:(objids)

IF (endbutton = "ok")
{
	CC "Core"  SET_ATTR_VAL objid:(VAL s_selected_objid) attrname:("Annotation") val:(s_selected_annotation)
}