#COMPILE EXE "s37_basic_function.exe"
' Sample: Basic function with return value
FUNCTION AddNumbers(BYVAL a AS LONG, BYVAL b AS LONG) AS LONG
    FUNCTION = a + b
END FUNCTION
FUNCTION PBMAIN() AS LONG
    DIM result AS LONG
    result = AddNumbers(10, 25)
    PRINT "AddNumbers(10,25) ="; result
    FUNCTION = 0
END FUNCTION
