What about:
MODULE Boom VAR Foo : POINTER TO INTEGER; BEGIN Foo^ = 123; END Boom.
But if you still want to get your point through and have a boom.
MODULE Boom; IMPORT SYSTEM; VAR Foo : POINTER TO INTEGER; BEGIN Foo := SYSTEM.CAST(POINTER TO INTEGER, 43414); Foo^ := 123; END Boom.
What about: