#COMPILE EXE "s53_varptr.exe"
' Sample: VARPTR - get variable address
FUNCTION PBMAIN() AS LONG
    DIM x AS LONG, p AS LONG PTR
    x = 42
    p = VARPTR(x)
    PRINT "x ="; x
    PRINT "Address of x via VARPTR: p ="; p
    FUNCTION = 0
END FUNCTION
