Variable as a reference or value to a function

[bplus]

Does not work for strings

Code: (Select All)

x$ = "3"
subproc x$
Print "passed byref:"; x$ ' prints 4

x$ = "3"
subproc (x$)
Print "passed byval:"; x$ ' prints 3

x$ = "3"
Call subproc(x$)
Print "passed byref:"; x$ ' prints 4

x$ = "3"
Call subproc((x$))
Print "passed byval:"; x$ ' prints 3

End

Sub subproc (a$)
    a$ = _Trim$(Str$(Val(a$) + 1))
End Sub