Type Test
    As Ubyte array(5)
    Declare Sub DoSomething()
End Type

Sub Test.DoSomething()
    Var tmp=@array(0)
    Asm mov tmp+1,12
End Sub

Dim As Test tmp
tmp.DoSomething
Print tmp.array(1)