struct meine_struktur
  byte  wert1
  byte  wert2
  word  wert3
endstruct
 
dim var as meine_struktur
 
var.wert1 = 123
var.wert2 = 23
var.wert3 = 0x7766
 
test(var)
 
do
loop
 
'Objekte und Arrays dürfen nur als Referenz übergeben werden
procedure test(byRef d as meine_struktur)
  dim a as byte
  dim b as word
 
  a = d.wert1
  b = d.wert3
 
  d.wert3 = 0xabcd
 
endproc