home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 037.lha / DU / MyStart.def < prev    next >
Encoding:
Modula Definition  |  1987-05-17  |  624 b   |  35 lines
  1. DEFINITION MODULE MyStart;
  2.  
  3. FROM DOSFiles       IMPORT  FileHandle;
  4.  
  5. VAR
  6.   InitialInput,
  7.   InitialOutput : FileHandle;
  8.  
  9.  
  10. (*
  11.     This module has DOSBase open and close in the two procedures.
  12.     If you use one, use the other! and don't worry about DOSBase
  13. *)
  14.  
  15. PROCEDURE EnteredFromWorkbench():BOOLEAN;
  16. (*
  17.    Sets up for either CLI or WB  RETURNS TRUE IF WB
  18.    Sets variables above to a valid window to use
  19.     and sets up console handler info if from WB
  20. *)
  21.  
  22.  
  23. PROCEDURE CleanUpAndExit;
  24. (*
  25.    Cleans up after the above
  26.    ALSO CLOSES DOSBASE and window if opened above.
  27.    SHOULD BE LAST CALL IN A PROGRAM
  28. *)
  29.  
  30.  
  31.  
  32. END MyStart.
  33.  
  34.  
  35.