select ...end select

in blitz3d you could do:

select a
case 1,2,3
do stuff
case 4,5,6
do stuff
default
do stuff
end select

might work in blitzmax too, i haven't tried it yet.