SWITCH .. CASE .. SWEND Verbs - BBj

input "1..5? ",x
a = 1
switch x
    case a; print "one"; break
    case 2; print "two"; break
    case 3; print "three"; break
    case 4; print "four"; break
    case 5; print "five"; break
    case default; print "other"; break
swend

input "a..e? ",x$
c$ = "c"
switch x$
    case "a"; print "a"; break
    case "b"; print "b"; break
    case c$; print "c"; break
    case "d"; print "d"; break
    case "e"; print "e"; break
    case default; print "other"; break
swend

input "num,str,obj (n,s,o)? ",x$
x$ = cvs(x$,8)
x! = null()
if pos("n"=x$)=1 then x! = 42
if pos("s"=x$)=1 then x! = "xyzzy"
if pos("o"=x$)=1 then x! = bbjapi()
print "switch ",x!
switch x!
    case bbjapi(); print "found the object bbjapi()"; break
    case "xyzzy"; print "found the string xyzzy"; break
    case 42; print "found the number 42"; break
    case null(); print "found the object null()"; break
    case default; print "found unexpected value ",x!
swend