home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / WIH.ZIP / SHOW_SEG.INC < prev    next >
Encoding:
Text File  |  1987-02-01  |  768 b   |  21 lines
  1.   Procedure User_Procedure;
  2.     Const Interupt_Count: Integer = 0;
  3.     Var
  4.        C                : Char;
  5.        Saved_Screen     : Saved_Screen_Ptr;
  6.   Begin
  7.        Count := Count + 1;
  8.        Save_Screen(Saved_Screen);
  9.        Draw_Menu_Frame(6,2,54,12,15,7,
  10.                        ' Sample Interupt Handler ');
  11.        WriteLn(bell);
  12.        WriteLn('Interupt ',Interupt_Number,' successfully handled ',
  13.                 Interupt_Count,' times.');
  14.        WriteLn('Segment Pointers are: Cseg=',Cseg);
  15.        WriteLn('                      SSeg=',SSeg);
  16.        WriteLn('                      Dseg=',Dseg);
  17.        WriteLn('    Press any key to continue');
  18.        Read(Kbd,c);
  19.        Restore_Screen(Saved_Screen);
  20.     End;
  21.