;##############################################
;NUM,CAPSLOCK,SCROLL -Tasten zum blinken bringen
;funktioniert nicht unter XP
;##############################################
;Andreas Miethe 2003
;##############################################



Procedure.w AMOD(a.w,b.w)
ProcedureReturn a - ((a/b)*b)
EndProcedure


Global OldNum.b,OldCaps.b,OldScroll.b
Global x.b
*Mem1 = AllocateMemory(0,256,0)
GetKeyboardState_(MemoryID())
;die alten Werte sichern 
OldNum    = PeekB(MemoryID()+144)
OldCaps   = PeekB(MemoryID()+20)
OldScroll = PeekB(MemoryID()+145)


Repeat
Sleep_(100)
If AMod(x,2) = 0
PokeB(MemoryID()+144,1)
PokeB(MemoryID()+20,1)
PokeB(MemoryID()+145,1)
Else
PokeB(MemoryID()+144,0)
PokeB(MemoryID()+20,0)
PokeB(MemoryID()+145,0)
EndIf
SetKeyboardState_(MemoryID())
x+1
Until x = 100

;die alten Werte zurückschreiben
PokeB(MemoryID()+144,OldNum)
PokeB(MemoryID()+20,OldCaps)
PokeB(MemoryID()+145,OldScroll)
SetKeyboardState_(MemoryID())
FreeMemory(0)
End 
; ExecutableFormat=Windows
; Executable=F:\Examples.exe
; EOF