[code=thinbasic]
' Usage of the Choose Instruction example
'
' Displays an indexed value
'
' Written by Abraxas

Dim Index as LONG value 3
DIM RetNumber as LONG

RetNumber = Choose (Index, 1,2,3)

msgbox 0,RetNumber
[/code]