uses dos,crt;
var i:integer;
begin
repeat
 i:=i+1;
 port[$60]:=$0ED;
 delay(50);
 port[$60]:=2; {scroll-lock}
 delay(50);

 port[$60]:=$0ED;
 delay(50);
 port[$60]:=4; {num-lock}
 delay(50);

 port[$60]:=$0ED;
 delay(50);
 port[$60]:=1; {caps-lock}
 delay(50);

 {port[$60]:=$0ED;
 delay(50);
 port[$60]:=0; {zgas wszystkie
 delay(100);                  }

 {port[$60]:=$0ED;
 delay(50);
 port[$60]:=7; {zapal wszystkie
 delay(50); }

 port[$60]:=$0ED;
 delay(50);
 port[$60]:=0; {zgas wszystkie}
 delay(50);


until i=10;
end.