home *** CD-ROM | disk | FTP | other *** search
/ The Unsorted BBS Collection / thegreatunsorted.tar / thegreatunsorted / hacking / phreak_utils_pc / ferror.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-04-01  |  521 b   |  33 lines
  1. unit ferror;
  2.  
  3. interface
  4.  
  5. procedure fatalerror(stuff:string);
  6.  
  7. implementation
  8.  
  9. uses crt,bbp_vars;
  10.  
  11. procedure fatalerror(stuff:string);
  12. begin
  13.   sound(700);
  14.   delay(300);
  15.   sound(500);
  16.   delay(300);
  17.   nosound;
  18.   textattr:=colors.error;
  19.   window(1,1,80,25);
  20.   clrscr;
  21.   textattr:=colors.error_reverse;
  22.   write(' FATAL ERROR');
  23.   clreol;
  24.   textattr:=colors.error;
  25.   writeln;
  26.   writeln;
  27.   writeln(stuff);
  28.   writeln;
  29.   writeln('Program terminated.');
  30.   textattr:=lightgray;
  31.   halt($ff);
  32. end;
  33. end.