Var p = Cast(Integer Ptr, 1375832) *p = 42 Print p, *p