CC "Modeling" GET_ACT_MODEL
IF (modelid = -1) {
  CC "AdoScript" INFOBOX "Please open a model"
} 
ELSE {
  CC "Core" GET_MODEL_INFO modelid:(modelid)
  CC "AdoScript" INFOBOX ("The modelname is " +modelname)
}