home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / CMPLTPAS.ZIP / UNIT1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-12-12  |  316 b   |  20 lines
  1. UNIT Unit1;
  2.  
  3. INTERFACE
  4.  
  5. IMPLEMENTATION
  6.  
  7. VAR Save : Pointer;
  8.  
  9. {$F+} PROCEDURE Unit1ExitProcedure; {$F-}
  10.  
  11. BEGIN
  12.   Writeln('Unit #1 -- Exit procedure...');
  13.   ExitProc := Save
  14. END;
  15.  
  16. BEGIN
  17.   Save := ExitProc;
  18.   ExitProc := @Unit1ExitProcedure;
  19.   Writeln('Unit #1 -- Initialization procedure...');
  20. END.