{
Bitt 7 6 5 4 3 2 1 0
     | | | | | | | +--> 1, kui parem Shift on all
     | | | | | | +----> 1, kui vasak Shift on all
     | | | | | +------> 1, kui Control on all (=FCksk=F5ik kumb)
     | | | | +--------> 1, kui Alt on all (=FCksk=F5ik kumb)
     | | | +----------> 1, kui ScrollLock tuli p=F5leb
     | | +------------> 1, kui NumLock tuli p=F5leb
     | +--------------> 1, kui CapsLock tuli p=F5leb
     +----------------> 1, kui Insert mode on sees}

uses crt;
var
    keyb1 : byte absolute $0040:$0017;
    abi: byte;
    ins, caps, num, scroll, alt, ctrl, vshift, pshift: integer;
    i: integer;
begin
for i:=1 to 100 do begin
 abi:=keyb1;
 if abi>127 then begin abi:=abi-128; ins:=1; end else ins:=0;
 if abi>63 then begin abi:=abi-64; caps:=1; end else caps:=0;
 if abi>31 then begin abi:=abi-32; num:=1; end else num:=0;
 if abi>15 then begin abi:=abi-16; scroll:=1; end else scroll:=0;
 if abi>7 then begin abi:=abi-8; alt:=1; end else alt:=0;
 if abi>3 then begin abi:=abi-4; ctrl:=1 end else ctrl:=0;
 if abi>1 then begin abi:=abi-2; vshift:=1 end else vshift:=0;
 if abi=1 then pshift:=1 else pshift:=0;

 writeln(keyb1:3,',  ', ins, '  ', caps, '  ', num, '  ', scroll, '   ',
        alt,'   ', ctrl, '   ', vshift,'    ', pshift);
 delay (200);
end;
end.