XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
NUM-Taste abfragen
Retstate& = 1 -> NUM-Taste ist gedrückt (eingeschaltet)
Retstate& = 0 -> NUM-Taste ist nicht gedrückt (ausgeschaltet)
Def Getkeyboardstate(1) ! USER32.DLL,GetKeyboardState
Declare State#

Proc Numstate

    Getmessage
    Declare Retstate&
    Dim State#,256
    Getkeyboardstate(State#)

    If Byte(State#,144) = 1

        Retstate&=1

    Else

        Retstate&=0

    Endif

    Dispose State#
    Return Retstate&

Endproc

Cls

While 1

    Waitinput
    Numstate
    Print &(0)

Wend