#COMPILE EXE "s38_byref_param.exe"
' Sample: BYREF parameter (pass by reference)
FUNCTION DoubleIt(BYREF value AS LONG) AS LONG
    value = value * 2
    FUNCTION = value
END FUNCTION
FUNCTION PBMAIN() AS LONG
    DIM x AS LONG
    x = 21
    PRINT "Before: x ="; x
    DoubleIt(x)
    PRINT "After DoubleIt: x ="; x
    FUNCTION = 0
END FUNCTION
