You can create a variable byref then give it whatever address you choose.
dim byref a
&a= ...
[code=thinbasic]
uses "oxygen"
'-----------------------
'DIM BYREF
'=======================
'and assigning an address to a byref variable
dim src as string
src = "
#o2h
#indexbase 0
'
dim d(1000)
d(10)=42
'
'-----
'BYREF
'=====
'
dim byref a
&a=&d + 10 * sizeof d
print str a
'
'----------
'POINTERING
'==========
'
dim pb
dim b at pb
pb=&d + 10 * sizeof d
print str b
"
o2_basic src
if len(o2_error) then msgbox 0, o2_error() : stop
o2_exec
[/code]
Bookmarks