Keypad Entry

[SMcNeill]

So, the only remaining solution to coding keypad-5 is the following:

Code: (Select All)

Rem Keypad-5 = 76
Rem Shift-Keypad-5 = 53
Rem Ctrl-Keypad-5 = 143
Do
  X = _KeyHit
  If X Then
      'Print "Keypress="; X
      If X = 27 Then End
      If X < 0 Then
        Select Case X
            Case -12
              Print "keypad-5"
            Case -17
              Print "ctrl-keypad-5"
        End Select
      End If
      If X >= 256 And X <= 65535 Then
        X = (X And &HFF00) / 256
        Print "Ascii2="; X
        Select Case X
            Case 76
              Print "keypad-5"
            Case 53
              Print "shift-keypad-5"
            Case 143
              Print "ctrl-keypad-5"
        End Select
      End If
  End If
Loop
End

I tend to go with:

Code: (Select All)

'$INCLUDE:'Keyboard Library.BI'


Do
    k = KeyHit
    If k <> 0 Then Print k
    _Limit 30
Loop

'$INCLUDE:'Keyboard Library.BM'