home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / jsage / zsus / progpack / tmsinst.lbr / TESTPROG.MOD < prev   
Encoding:
Text File  |  1992-05-13  |  384 b   |  16 lines

  1. MODULE TESTPROG;
  2. FROM InOut    IMPORT WriteHex;
  3. FROM SYSTEM   IMPORT ADR, ADDRESS;
  4. FROM GetEnv   IMPORT GetEnv;
  5.  
  6. VAR
  7.   a   : ADDRESS;
  8.   n   : ARRAY [0..15] OF CHAR;
  9.  
  10. BEGIN
  11.   GetEnv (a, n);
  12.   WriteHex (CARDINAL (a), 6);
  13.   WRITELN ();
  14.   WRITELN ('/', n, '/');
  15. END TESTPROG.
  16.