global c0 c1 c2 c3 c4 c5 d0 d1 d2 d3 d4 d5
set varlist [d0 d1 d2 d3 d4 d5]

foreach chan [channels] { if [channel get $chan servplus] {
set list "\$[lindex $varlist [rand [llength $varlist]]]"

set fi [open $list r]
set data [read $fi]