{ klavpriz.pas } { Testovanie stavu Num Lock, Caps Lock a Scroll Lock. } { } { Datum:28.01.1996 http://www.trsek.com } program Testovanie_klavesnice; uses Dos,Crt; var Reg:registers; ch:char; BEGIN repeat reg.AH:=$02; {testovanie stavu Num, Caps a Scroll Lock} Intr($16,reg); with reg do begin if AL and $10>0 then writeln('ScrollLock'); if AL and $20>0 then writeln('NumLock'); if AL and $40>0 then writeln('CapsLock'); if AL and $01>0 then writeln('Pravy Shift'); if AL and $02>0 then writeln('Lavy Shift'); if AL and $04>0 then writeln('Ctrl'); if AL and $08>0 then writeln('Alt'); end; Delay(100); ClrScr; until keypressed; ClrScr; ch:=ReadKey; writeln('Nastavovanie priznakovych klaves:'); repeat Mem[$0040:$0017]:=$70; { $10+$20+$40} reg.AH:=$01;{Potom musis precitat znak z klavesnice, aby sa nastavili priznaky} Intr($16,reg); Delay(300); Mem[$0040:$0017]:=$00; reg.AH:=$01; Intr($16,reg); Delay(300); until keypressed; END.