ich habe folgendes Problem

ich habe mir das myavr bord MK2 USB gekauf und dazu noch ein LCD Adon
und habe folgendes programmiert und das hohzählen der uhr funktioniert schon

Code:
$regfile = "m8def.dat"                                      'für Mega8
$crystal = 4000000

' /// UHR
Dim Sekunde As Word
Dim Minute As Word
Dim Stunde As Word
Dim H As String * 2
Dim H1 As String * 2
Dim M As String * 2
Dim M1 As String * 2
Dim S As String * 2
Dim S1 As String * 2





'// Zum setzten von Stunde Minute Sekunde setzen
Sekunde = 00
Minute = 00
Stunde = 00

'/// LCD ///
Config Lcd = 16*2
Config Lcdbus = 4

Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , _
   Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Config Lcd = 16 * 2
Cls
cursor  off
'/// TIMER ////

Config Timer1 = Timer , Prescale = 64
Const Startwert = 7936

On Timer1 Ontimer1                                          'Interrupt-Routine für Timer1-Overflow
Enable Timer1                                               'Timer1-Overflow-Interrupt einschalten
Enable Interrupts                                           'Interrupts global zulassen
'-------------------------------------------------------------------------------
Main:
Do
    'Uhrzeit in Sekunde Minute Stunde
If Sekunde > 59 Then
   Sekunde = 0
   Incr Minute
End If

If Minute > 59 Then
   Minute = 0
   Incr Stunde
End If

If Stunde > 23 Then
   Stunde = 0
End If

'/// LCD Anzeige Stunde Minute Sekunde

Home
 H = Str(stunde)
 H1 = Format(h , "00")
 M = Str(minute)
 M1 = Format(m , "00")
 S = Str(sekunde)
 S1 = Format(s , "00")
 Lcd H1 ; ":" ; M1 ; ":" ; S1
 Waitms 100
Loop


End
'//////////////////
Ontimer1:
    Timer1 = Startwert
    Incr Sekunde
Return
meine frage ist nun wie kann ich mit hilfe der taster die Zeit einstellen und dann loslaufen lassen bitte um hilfe
kann mir da jemand helfen mir fehlt ein ansatz um das problem zu lösen
wäre über jeden Link und jedes Code beispiel sehr dankbar