home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / sampler / 03 / exit / customex.src next >
Encoding:
Text File  |  1987-10-19  |  774 b   |  23 lines
  1. {$F+} PROCEDURE CustomExit; {$F-}
  2. BEGIN
  3.    IF errorAddr <> NIL THEN
  4.    BEGIN
  5.       Writeln( '-------------------------------------' );
  6.       Writeln( 'A small problem has developed.'        );
  7.       Writeln( 'Please jot down the following numbers' );
  8.       Writeln( 'and call the programmer at 555-1212.'  );
  9.       Writeln;
  10.       Writeln( 'Address = ',
  11.          seg(errorAddr^), ':', ofs(errorAddr^) );
  12.       Writeln( 'Code    = ', exitCode );
  13.       Writeln;
  14.       Writeln( 'Thank you for your support!'           );
  15.       Writeln( '-------------------------------------' );
  16.  
  17.       errorAddr := NIL;    { Cancel runtime error }
  18.       exitCode := 0
  19.  
  20.    END; { if }
  21.    exitProc := savedExitProc    { Restore saved exitProc pointer }
  22. END; { CustomExit }
  23.