home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 037.lha / DU / MyGlobals.mod < prev    next >
Encoding:
Modula Implementation  |  1987-05-17  |  618 b   |  30 lines
  1. IMPLEMENTATION MODULE MyGlobals;
  2.  
  3. FROM SYSTEM         IMPORT  NULL;
  4. FROM DOSLibrary     IMPORT  DOSName,DOSBase;
  5. FROM Libraries      IMPORT  OpenLibrary;
  6. FROM Strings        IMPORT  InitStringModule;
  7.  
  8. (*
  9.         PART OF Windowed development program for Modula 2
  10.  
  11.         This contains the definitions of all global stuff
  12.  
  13.         Written: 5/8/87 by Greg Browne
  14.  
  15.         Compiles on TDI's Modula-2 Compiler version 2.20a
  16.  
  17. *)
  18.  
  19. BEGIN
  20.  
  21.   NullReqPtr := NULL;
  22.  
  23. (* not needed in this version, since MyType does both these
  24.  
  25.   IF (DOSBase = 0) THEN DOSBase := OpenLibrary(DOSName,0) END;
  26.   InitStringModule;
  27.  
  28. *)
  29. END MyGlobals.
  30.