alias check.edit.number {
var %k = $did($1,$2)
if (%k !isnum) {
var %t,%i = $len(%k),%j = 1
while (%j <= %i) {
var %n = $mid(%k,%j,1)
if (%n isnum) { %t = %t $+ %n }
inc %j
}
did -ra $1 $2 %t
make.dialog invalid
}
}
alias make.dialog { if (!$dialog($1)) { dialog -m $1 $1 } }