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