home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / FORUM25C.ZIP / EXITPROC.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-12-27  |  1.1 KB  |  36 lines
  1. Save_exit : POINTER;
  2.  
  3. {$F+}
  4. Procedure Error_handler;
  5. VAR Error_str : Lstr;
  6. Begin
  7.   Sound(2000);
  8.   Delay(250);
  9.   NoSOund;
  10.   ExitProc := Save_exit;
  11.   TextColor(WHITE);
  12.   Writeln(USR,ExitCode);
  13.   Writeln(USR,Ext_code);
  14.   If ExitCode = e_Extended_code  THEN
  15.     Begin
  16.       Case Ext_code OF
  17.         -1 : Writeln(USR,'Overlay manager error');
  18.         -2 : Begin
  19.               Writeln(USR,'Overlay file not found');
  20.              End;
  21.          1 : Begin
  22.                writeln (usr,'The modem driver is not installed!  Please run the',
  23.                         'program'^M^J^M^J'    MODEMDRV.COM'^M^J^M^J,
  24.                         'and run Forum-PC again.');
  25.                ExitCode := 2;
  26.              End;
  27.          2 : Begin
  28.                writeln (usr,^M^J'Fatal error:  You MUST put the command',
  29.                ^M^J^J'   FILES=30',
  30.                ^M^J^J'in your CONFIG.SYS file on the disk from which you boot.',
  31.                ^M^J^J'Note:  If you have been modifying Forum-PC, then you may',
  32.                 ^M^J'       be leaving a file open.');;
  33.              End;
  34.         End;
  35.     End;
  36. End;