Select

[Charles Pegge]

'SELECT
'

uses "oxygen","file"
dim src as string

src = "

dim a as long, s as string

a=4

'COMPACT FORM

select a

case 1 : s=`A=1`
case 2 : s=`A=2`
case 3 : s=`A=3`
case else : s=`A>3`

end select


'GENERAL FORM

select a

case 1
s=`A=1`
case 2
s=`A=2`
case 3
s=`A=3`
case else
s=`A>3`

end select


print s

terminate
"
o2_basic src

'msgbox 0, o2_view "o2h "+src

if len(o2_error) then
msgbox 0, o2_error : stop
end if

o2_exec