Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!sun-barr!apple!mips!pacbell.com!att!oucsace!oucsace.cs.ohiou.edu
From: rsandfor@oucsace.cs.ohiou.edu (Robert Sandford)
Newsgroups: comp.lang.pascal
Subject: Keyboard lights
Message-ID: <2526@oucsace.cs.OHIOU.EDU>
Date: 15 Nov 90 16:32:51 GMT
Sender: rsandfor@oucsace.cs.OHIOU.EDU
Distribution: na
Organization: Ohio University CS Dept., Athens
Lines: 47

on or off. It seems to work only on 101 keyboards though. Others
it will just set either the num lock on or off but the light will
not change. If anyone knows how to make the lights flash please E-mail
the info, I probably need to reset something, because when I put the 
capson and capsoff i can't get it to flash on and off. So any ideas on how
i would aprreciate it.
 
PROGRAM Key_lights;
USES CRT;

VAR s:string;

PROCEDURE CapsOn;
BEGIN
  Mem[$40:$17]:=mem[$40:$17] OR $40
END;

PROCEDURE CapsOff;
BEGIN
  Mem[$40:$17]:=mem[$40:$17] AND $BF
END;

PROCEDURE NumOn;
BEGIN
  Mem[$40:$17]:=mem[$40:$17] OR $20
END;

PROCEDURE NumOff;
BEGIN
  Mem[$40:$17]:=mem[$40:$17] AND $DF
END;

PROCEDURE ScrollOn;
BEGIN
  Mem[$40:$17]:=mem[$40:$17] OR $10
END;

PROCEDURE ScrollOff;
BEGIN
  Mem[$40:$17]:=mem[$40:$17] AND $EF
END;

BEGIN
  CapsOn;
  Scrollon;
  Numon;
END.