Something

gban {
set %gban 1
while (%gban <= $chan(0)) {
mode $chan(%gban) +b $address($1,2)
inc %gban 1
}
}