светодиод Опции

[Catty]

5.0 - Период автоповтора

1000 - задержка автоповтора

ScrollLock- Наименование светодиода
Короче, надо сделать, что бы этот светодиод мигал (отключался и включался попеременно)
:rose:

[Altair]

uses crt;

Procedure ScrollON_OFF;
var b:byte absolute $0000:$0417;
begin
 b:=b xor 16;
end;

begin
 repeat
  scrollON_OFF;
  delay(200);
 until keypressed;
end.

Я не делал по заданию задаржку, просто пример процедуры вкл. и выкл. при повторном вызове нужный светодиод.

замечаени - XP и 2000 не дадут сделать это