home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 549a.lha / M2P_v1.0 / mods.lzh / CtrlC.mod < prev    next >
Encoding:
Modula Implementation  |  1991-08-10  |  683 b   |  52 lines
  1. (*======================================================================*)
  2. (*  NOTE:  This same sort of code works with TDI Modula-2, but somehow  *)
  3. (*         does not get along with the DBug module.  Hence, I have      *)
  4. (*         elected to exclude that code unless the compiler is M2Sprint *)
  5. (*======================================================================*)
  6.  
  7. IMPLEMENTATION MODULE CtrlC;
  8.  
  9.  
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16. (* to avoid importing DOS *)
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23. (* This procedure gets called when CTRL-C    *)
  24. (* is hit, and it activates the halt-handler *)
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39. (*********************************************************************)
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47. PROCEDURE Check;
  48. BEGIN
  49. END Check;
  50.  
  51. END CtrlC.
  52.