struct myStructure
  byte  value1
  byte  value2
  word  value3
endstruct
 
dim var as myStructure
var.value1= 123
var.value2= 23
var.value3= 0x7766
 
test(var)
do
loop
 
'objects and arrays must be passed byRef
procedure test(byRef d as myStructure)
  dim a as byte
  dim b as word
 
  a = d.value1
  b = d.value3
 
  d.value3 = 0xabcd
endproc