12 lines
237 B
Text
12 lines
237 B
Text
MODULE GetAddress;
|
|
|
|
FROM SYSTEM IMPORT ADR;
|
|
FROM InOut IMPORT WriteInt, WriteLn;
|
|
|
|
VAR var : INTEGER;
|
|
adr : LONGINT;
|
|
BEGIN
|
|
adr := ADR(var); (*get the address*)
|
|
WriteInt(adr, 0);
|
|
WriteLn;
|
|
END GetAddress.
|