home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 573 / 3dlab101 / error.pas < prev    next >
Pascal/Delphi Source File  |  1994-05-21  |  844b  |  33 lines
  1. {────────────────────────────────────────────────────────────────────────────}
  2. {───( C ) Copyright 1994 By Kimmo Fredriksson.───────────────────────────────}
  3. {────────────────────────────────────────────────────────────────────────────}
  4. {───Error handling Unit──────────────────────────────────────────────────────}
  5. {────────────────────────────────────────────────────────────────────────────}
  6.  
  7. {$A+,B-,D-,E-,F-,G+,I-,L-,N-,O-,P-,Q-,R-,S-,T-,V-,X+}
  8.  
  9. UNIT    Error;
  10.  
  11.     INTERFACE
  12.  
  13. PROCEDURE FatalError( CONST s : STRING );
  14.  
  15.     IMPLEMENTATION
  16.  
  17. PROCEDURE SetScrMode( m : Byte ); ASSEMBLER;
  18. ASM
  19.     XOR    AH,AH
  20.     MOV    AL,[m]
  21.     INT    10h
  22. END;
  23.  
  24. PROCEDURE FatalError( CONST s : STRING );
  25. BEGIN
  26.   SetScrMode( 3 ); { 80x25x16 }
  27.   WriteLn( s + '  -->');
  28.   WriteLn('Program cannot be continued, exiting to DOS...');
  29.   Halt( 1 )
  30. END;
  31.  
  32. END.
  33.