#COMPILE EXE "s58_null_ptr_check.exe"
' Sample: Null pointer safety check
FUNCTION PBMAIN() AS LONG
    DIM p AS LONG PTR
    p = 0
    PRINT "Null pointer check:";
    IF p = 0 THEN PRINT " p is NULL (safe)" ELSE PRINT " p is not NULL"
    FUNCTION = 0
END FUNCTION
