FB "select case" doesn't work with commas like QB
Code: Select all
screen 19
dim as longint a = int(rnd*2)
dim as longint b = int(rnd*2)
select case a , b
case 0 , 1 : print "a="; a
case 1 , 0 : print "b=" ; b
case 1 , 1 : print "ab = " ; a+b
end select
sleep
end