/dmode { var %; = 1 | while $chan(%;) { if !$istok(#kanal1 #kanal2,$v1,32)  { mode $chan(%;) +D } | inc %; } }