
uses "oxygen"

'OXYGENBASIC SECTION
'===================

dim as string src
dim v(100) as single

src="

dim v at #v as single
print v[2] '12.5
v[2]=42

"


o2_basic src
if o2_error then
  msgbox 0,o2_error
  stop
else
  v(1)=6
  v(2)=12.5
  o2_exec
end if


'MAIN THINBASIC SECTION
'======================

msgbox 0,v(2) '42
