XProfan

window 10,10-500,500
declare Demo&,Dummy&--Geht
declare Demo&,Dummy%--Geht nicht
declare Demo&----------Geht nicht

proc Test----------------------------------

    parameters Text$,Pointer&
    long Pointer&,0=123
    endproc-------------------------------------
    Test(Text,addr(Demo&))
    print Test 1:,Demo&
    Test(Text,addr(Demo&))
    print Test 2:,Demo&
    CompileMarkSeparation
proc Test----------------------------------

    parameters Pointer&
    endproc-------------------------------------
    declare Dummy&--so goes it
    var Demo&=123
    print addr(Demo&),Demo&
    Test(addr(Demo&))
    print addr(Demo&),Demo&
    Test(addr(Demo&))
    print addr(Demo&),Demo&
    waitkey

Hierbei changes the address, on the Demo&  lying, by the 1. Proc-appeal, though only, if the übergebene worth by Parameters  read becomes.

with XProfan 10 reacted everything How expects.
there is correct still what not ?!

PS: was Yes clear, that just I over something like stolpere  

SeeYou
Pascal