Hinweis: Direkt möglich ab Version 2013.R1

struct status_t
  byte timeout
  byte value
endstruct
 
 
dim buf(9) as byte
dim stat(3) as status_t
 
test(buf(),stat())
 
do
loop
 
procedure test(byRef a() as byte, byRef s() as status_t)
  a(3)=12
  s(1).timeout = 100
endproc