Forums Scripts & Popups need help with dialog editbox

dialog test {
  size -1 -1 66 22
  option dbu
  edit "", 1, 3 4 50 10
  button "ok", 2, 1 1 30 10, ok hide
}
on *:dialog:test:edit:1:{
  set %a $iif(%a,$iif($len(%a) == $calc($len($did(1)) - 1),%a $+ $remove($did(1),*),$left(%a,-1)),$did(1)) 
  did -ra $dname 1 $str(*,$len(%a))
  .echo -s %a
}

//var %a = $?*

edit "",1,3 4 50 10,[color:brown]pass[/color]