home *** CD-ROM | disk | FTP | other *** search
- MODULE TESTPROG;
- FROM InOut IMPORT WriteHex;
- FROM SYSTEM IMPORT ADR, ADDRESS;
- FROM GetEnv IMPORT GetEnv;
-
- VAR
- a : ADDRESS;
- n : ARRAY [0..15] OF CHAR;
-
- BEGIN
- GetEnv (a, n);
- WriteHex (CARDINAL (a), 6);
- WRITELN ();
- WRITELN ('/', n, '/');
- END TESTPROG.
-