DEFINE VARIABLE p AS MEMPTR NO-UNDO.
DEFINE VARIABLE i AS INTEGER NO-UNDO.
SET-SIZE(p) = 1.
i = GET-POINTER-VALUE(p) NO-ERROR.
IF i = ? THEN
MESSAGE "64bit"
VIEW-AS ALERT-BOX INFO BUTTONS OK.
ELSE
MESSAGE "32bit"
VIEW-AS ALERT-BOX INFO BUTTONS
"This is not a bug, but a product limitation at this time."