Dim Shared A As Integer
A = 12: B = 34: C = 56: D = 78: ret = 0
sample1 A
Print Using "mainloop: A=### / B=### / C=### / D=### / ret=###"; A; B; C; D; ret
ret = sample2(A)
Print Using "mainloop: A=### / B=### / C=### / D=### / ret=###"; A; B; C; D; ret
End
Sub sample1 (C)
D = A
C = B
D = D + 1
A = 99
Print Using "sub proc: A=### / B=### / C=### / D=### / ret=###"; A; B; C; D; ret
End Sub
Function sample2 (C)
D = A
C = B
D = D + 1
A = 33
Print Using "func prc: A=### / B=### / C=### / D=### / ret=###"; A; B; C; D; ret
sample2 = D
End Function
