on *:tabcomp:*:{
;a = wort der editbox bei cursor; b = alles der editbox; c = stelle des wortes bei cursor (wenn normal 0 weil cursor vor erstem wort (leerzeilen), setze c = 1)
var %c = $iif($numtok($left($editbox($active),$editbox($active).selstart),32) == 0 && %b,1,$v1)
var %b = $editbox($active)
var %a = $gettok(%b,%c,32)
if $regex(%a,/(\$asc\([\x2C{}()]\))/) {
var %t = $eval($replace($regml(1),$!asc(,),44,$!asc( $+ $chr(40) $+ ),40,$!asc( $+ $chr(41) $+ ),41,$!asc({),123,$!asc(}),125),2), %i = $calc($iif(%c == 1,1,2 + $len($gettok(%b,1- $calc(%c -1),32)))+ $len(%t))
editbox $+(-ab,%i,e,%i) $puttok(%b,%t,%c,32)
halt
}
var %t = $eval(%a,2), %i = $calc($iif(%c == 1,1,2 + $len($gettok(%b,1- $calc(%c -1),32)))+ $len(%t))
if (!%t) { beep 1 | halt }
editbox $+(-ab,%i,e,%i) $puttok(%b,%t,%c,32)
halt
:error
echo -acg info $gettok($error,1,40) eigener
beep 1
reseterror
}
