Code:
Wartezeit = 100
Zaehler_max = 30

While Taste1 = 0                                            'gedrückt
   Incr Zaehler
   If Zaehler > Zaehler_max Then
      Variable = Variable + 10
      Zaehler = Zaehler_max
   Else
      Variable = Variable + 1
   End If
   Gosub Anzeige
   Waitms Wartezeit
Wend

Zaehler = 0


Anzeige:
   Locate 1 , 1
   Lcd Variable
Return
ungetestet.....und warscheinlich umständlich... hab' aber gerade null Zeit..muß arbeiten