home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / jsage / zsus / progpack / z33-tm2.lbr / TZ33M2.MOD next >
Encoding:
Text File  |  1992-05-13  |  256 b   |  14 lines

  1. MODULE TZ33M2;
  2. (* TEST ZCPR33-MODULA2 INTERFACE MECHANISM *)
  3.  
  4. FROM INOUT IMPORT OpenOutput,WriteHex;
  5. FROM Z33M2 IMPORT GETENV;
  6. VAR
  7. C: CARDINAL;
  8. BEGIN
  9.   C :=GETENV();
  10.   OpenOutput("");
  11.   WriteHex(C,4);
  12. END TZ33M2.
  13.  
  14.