Nur so zum Denkanstoß. Das Einlesen des Tasters macht man mit Debounce um das Tastenprellen wegzubekommen. Kannst ja mal in der Hilfe danach schaune.

Code:
Dim X As Word


If Pina.0 = 1 Then
  Incr X
  Locate 1 , 1
  Lcd X
endif