Contributor: STEVE ROGERS
{ Anyone have any idea why this won't disable PrtScr? }
uses
crt,dos;
var
i : word;
old_status : byte;
prt_status : byte absolute 0040ドル:0100ドル; { PrtScr status byte }
begin
old_status:= prt_status;
prt_status:= 1;
for i:= 1 to 20 do writeln(' This is line ',i);
writeln;
writeln('Press PrtScr to test, any other key to exit');
readkey;
prt_status:= old_status;
end.