[Back to KEYBOARD SWAG index]  [Back to Main SWAG index]  [Original]

{
 ER> Anyway, Does anyone knows who to make the num/caps/scroll
 ER> leds on the keyboard 'flicker' or just light up? (You could
 ER> create pretty cool effects like a 'walking light' on ones
 ER> keyboard..:) I checked the SWAGfiles but was not able to
 ER> find anything there..
}
Program LiteShow;
Uses Crt;

Var
   i : Byte;

Procedure SetLED(LED: Byte); Assembler;
ASM
     MOV  AL, $ED
     OUT  $60, AL
     MOV  CX, $200
@@1:
     LOOP @@1
     MOV  AL, LED
     OUT  $60, AL
End;

Begin
   i := 1;
   While not KeyPressed do
   Begin
      SetLED(i);
      i := i SHL 1;
      If i = 8 then i := 1;
      Delay(200);
   End;
   While KeyPressed do ReadKey;
End.

[Back to KEYBOARD SWAG index]  [Back to Main SWAG index]  [Original]