
uses "oxygen"

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

dim as string src
dim as single v(16)
v(2)=2.5

src="
single v at #v
print "v(2) location: " hex @v(2)
print "v(2) value: " v(2)
v(2)*=2
"


o2_basic src
if o2_errno then
  msgbox 0,o2_error
  stop
else
  o2_exec
  msgbox 0,"ok"
end if


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

msgbox 0,v(2)
