include "ConsoleWindow"

dim as short i : i = 575
dim as ptr j : j = NULL

j = @i

print "Adddress of i ="; j
print "Value of i ="; [j]