dialog chans { title "Chans" size -1 -1 167 118 option dbu list 1, 4 3 159 111, size }
on *:DIALOG:chans:init:0:{ var %c = 1 while ( $chan(%c) ) { did -a chans 1 $chan(%c) inc %c } }