
uses "oxygen"

'SHARED VARIABLES
'================

dim as string src
dim as single v(4,4,4)
'
'OXYGENBASIC SECTION
'===================
src="
#minormajor 'thinBasic and Powerbasic mode
indexbase 1
overlay single v(4,4,4)
@v=#v 'link to host variable v
dim as long c,x,y,z
for z=1 to 4
  for y=1 to 4
    for x=1 to 4
      c++
      v(x,y,z)=c 'fill 1 to 64
    next
  next
next 
"

'COMPILE
'=======

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


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

'array Order: 17 18 19 20
msgbox 0,"Order: "+v(1,1,2)+", "+v(2,1,2)+", "+v(3,1,2)+", "+v(4,1,2)
