on 1:dialog:dialog1:edit:*:{ set %textbox1 $did(1).text if ($did(dialog1,30).state == 0){ /set %var1 $asc($did(40).text) } else { /set %var1 $chr(45) } }