So hab ich es auch gemacht, leider zu spät gesehen.
ICH benutze ein Keypad, per PS/2 angeschlossen am Rn 2650 und dem Display3000 TFT, alles funktioniert wunderbar....

Code:
'_____X-Abfrage_________________________________________________________________
Do
   E = Getatkbd()

   Num1x1 = Chr(e)
   Num1x = Val(num1x1)
   If E > 0 Then Call Lcd_print(num1x1 , 80 , 85 , 1 , 1 , 1 , White , Black)
   If E = 0 Then Loop Else Nop

Do
   R = Getatkbd()

   Num2x2 = Chr(r)
   Num2x = Val(num2x2)
   If R > 0 Then Call Lcd_print(num2x2 , 89 , 85 , 1 , 1 , 1 , White , Black)
   If R = 0 Then Loop Else Nop

Do
   U = Getatkbd()
   If U = 13 Then Gosub Wert2_x Else Nop
   Num3x3 = Chr(u)
   Num3x = Val(num3x3)
   If U > 0 Then Call Lcd_print(num3x3 , 98 , 85 , 1 , 1 , 1 , White , Black)
   If U > 20 Then Gosub Enterx Else Loop

Enterx:
Do
   Q = Getatkbd()
   If Q = 13 Then Gosub Wert1_x Else Loop


Wert2_x:
   Num1x = Num1x * 10
   Weite_x = Num1x + Num2x                                  'Nummx ist der Wert für den X-Vorschub
   Gosub Y_abfrage
End


Wert1_x:
   Num1x = Num1x * 100
   Num2x = Num2x * 10

   Numx = Num1x + Num2x
   Weite_x = Numx + Num3x                                   'Nummx ist der Wert für den X-Vorschub
   If Weite_x > 150 Then Ueberschreiten Else Nop
   Gosub Y_abfrage
End
Vielleicht kann ja jemand noch etwas damit anfangen...