home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / zcpr33 / z33-tm2.lbr / TZ33M2.MOD next >
Text File  |  1987-06-21  |  256b  |  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.