/* Basic pointer example */
DECLARE (ptr, var) FIXED BINARY;
DECLARE target FIXED BINARY;
/* Initialize the variable */
var = 42;
/* Assign the address of var to the pointer */
ptr = ADDR(var);
/* Dereference the pointer to get the value */
target = *ptr;
PUT SKIP LIST ('Value of var: ', var);
PUT SKIP LIST ('Value through pointer: ', target);
LyogQmFzaWMgcG9pbnRlciBleGFtcGxlICovCgpERUNMQVJFIChwdHIsIHZhcikgRklYRUQgQklOQVJZOwpERUNMQVJFIHRhcmdldCBGSVhFRCBCSU5BUlk7CgovKiBJbml0aWFsaXplIHRoZSB2YXJpYWJsZSAqLwp2YXIgPSA0MjsKCi8qIEFzc2lnbiB0aGUgYWRkcmVzcyBvZiB2YXIgdG8gdGhlIHBvaW50ZXIgKi8KcHRyID0gQUREUih2YXIpOwoKLyogRGVyZWZlcmVuY2UgdGhlIHBvaW50ZXIgdG8gZ2V0IHRoZSB2YWx1ZSAqLwp0YXJnZXQgPSAqcHRyOwoKUFVUIFNLSVAgTElTVCAoJ1ZhbHVlIG9mIHZhcjogJywgdmFyKTsKUFVUIFNLSVAgTElTVCAoJ1ZhbHVlIHRocm91Z2ggcG9pbnRlcjogJywgdGFyZ2V0KTs=