XProfan

struct ?_Point = x&, y&
declare Mem ?_thePoint
cls
?_thePoint = New(?_Point)
dispose ?_thePoint
print "New works!"
dim ?_thePoint, ?_Point
Dispose ?_thePoint
print "Dim doesn't!"
waitinput
end

proc ?_Dummy

    print "Called Dummy"
    return "Dummy Return value"

endproc

print "This call works:"
?_Dummy
print $(0)
print "This call works:"
print @?_Dummy()
print "This call doesn't:"
print ?_Dummy()
waitinput
end