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