type Pnt
    as integer x
    as integer y
    as zstring ptr ok
end type

dim as Pnt p = (5,2,@"ok")

print p.x
print p.y
print *p.ok
*p.ok = "hello"
print *p.ok
sleep()