alias ischan {
var %scon = 1, %scons = $scon(0)
while ( %scon <= %scons ) {
var %chan_num = 1, %channels = $chan(0)
while (%chan_num <= %channels) {
if ($chan(%chan_num) == $1) { return %chan_num %scon | halt }
else { inc %chan_num 1 }
}
inc %scon
}
return 0
}