Problem mit Bascom Programm

[Reinhard S. (reini)]

Hallo

Habe ein Problem mit dem Programm. Eigentlich funst es ja bestens bis 
auf die Auswertung vom Tastendruck 1 oder 11, da ich ich auf der 
Fernbedienung nur eine 1 als Taste habe will ich 3 Sekunden warte ob 
eine weitere Taste gedrückt wird oder nicht. Bei nicht soll das Programm 
1 geschalten werden, zB. bei 1 + 2 das Programm 12. Das Probelm ist das 
in ca. 40% des druckes auf Taste 1, gleich in das Programm 11 geschalten 
wird. Wie kann ich das lösen?

Start:
Do
  Getrc5(adress , Command) 
'RC5-Fernbedienung einlesen
  If Adress = 0 Then                                        'DVD
    'Portd.4 = 1 
'KontrollLED an
    Command = Command And &B01111111                        'Togglebit 
löschen
   Goto Dvd
  End If
  If Adress = 16 Then                                       'TV
    'Portd.4 = 1 
'KontrollLED an
    Command = Command And &B01111111                        'Togglebit 
löschen
   Goto Tv
  End If
Loop

Dvd:
'Programmtasten
'Taste 1 - 9
  If Command < 10 Then
  Select Case Command
     Case 3                                                 'P3
      Portc.3 = 0
      Portd.4 = 1

      Case 9                                                 'P9
      Portc.4 = 0
      Portc.5 = 0
      Portd.4 = 1

     End Select

'auswerten ob über 8
  If Command = 1 Then
     Code = 200
     Msekunden = 0
     Portd.4 = 1
     Do
     Getrc5(adress , Command)
     Loop Until Command = 0 Or Command = 1 Or Command = 3 Or Command = 2 
Or Command = 4 Or Command = 5 Or Msekunden > Zeit
     If Msekunden > Zeit Then Portc.5 = 0
     If Command = 0 Then Code = 210
     Code = Code + Command

'auswerten bei über 8
      Select Case Code
        Case 202                                            'P12
         Portc.5 = 0

        Case 201                                            'P11
         Portc.4 = 0
         Portc.3 = 0

usw.

Danke für eine Hilfe

mfg
reini