Sub Process_Globals
Type ByRefInt (val As Int)
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
Dim a, b As ByRefInt
a.val = 2
b.val = 3
s1(a, b)
Log("a = " & a.val & ", b = " & b.val) 'prints: a = 3, b = 6
End Sub
Sub s1 (n1 As ByRefInt, n2 As ByRefInt)
n1.val = n1.val + 1
n2.val = n2.val * 2
End Sub