home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / hardware.swg / 0030_Disabling PrtScr.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-02-03  |  413 b   |  21 lines
  1.  
  2. {  Anyone have any idea why this won't disable PrtScr? }
  3.  
  4. uses
  5.   crt,dos;
  6.  
  7. var
  8.   i : word;
  9.   old_status : byte;
  10.   prt_status : byte absolute $0040:$0100; { PrtScr status byte }
  11.  
  12. begin
  13.   old_status:= prt_status;
  14.   prt_status:= 1;
  15.   for i:= 1 to 20 do writeln(' This is line ',i);
  16.   writeln;
  17.   writeln('Press PrtScr to test, any other key to exit');
  18.   readkey;
  19.   prt_status:= old_status;
  20. end.
  21.