Mine

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