home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / program / compiler / m2posx14 / src / lcusa.dpp < prev    next >
Encoding:
Modula Definition  |  1994-05-27  |  892 b   |  32 lines
  1. DEFINITION MODULE LCusa;
  2. __DEF_SWITCHES__
  3. #ifdef HM2
  4. #ifdef __LONG_WHOLE__
  5. (*$!i+: Modul muss mit $i- uebersetzt werden! *)
  6. (*$!w+: Modul muss mit $w- uebersetzt werden! *)
  7. #else
  8. (*$!i-: Modul muss mit $i+ uebersetzt werden! *)
  9. (*$!w-: Modul muss mit $w+ uebersetzt werden! *)
  10. #endif
  11. #endif
  12. (****************************************************************************)
  13. (* 27-Mai-94, Holger Kleinschmidt                                           *)
  14. (****************************************************************************)
  15.  
  16. FROM LCTypes IMPORT
  17. (* TYPE *) LCTimeP, LCNumericP, LCMonetaryP, LCCtypeP, LCMessagesP;
  18.  
  19. (*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*)
  20.  
  21. CONST
  22.   Ident = "usa";
  23.  
  24. VAR
  25.   Time     : LCTimeP;
  26.   Numeric  : LCNumericP;
  27.   Monetary : LCMonetaryP;
  28.   Ctype    : LCCtypeP;
  29.   Messages : LCMessagesP;
  30.  
  31. END LCusa.
  32.