Hallo Dirk,

vielen Dank für Deine Antwort, dass hat mich schon sehr viel weiter gebracht - war mir mit den µs nicht klar, ich war von ms ausgegangen

Jetzt funktioniert das schon fast so, wie ich das haben möchte, nur das Led1 nicht aufleuchtet, wenn Led2 aufgerufen wird und Led 2 auch nur erlischt, wenn ein weiteres langes Signal folgt - ...aber schon verdammt nah dran =D>

Code:
$regfile = "attiny2313.dat"
$crystal = 4000000


Config Pind.2 = Input                                       'Taster Eingang

Config Portb.1 = Output                                     'Led1 aus
Config Portb.2 = Output                                     'Led2 aus
Config Portb.3 = Output                                     'Led3 aus

Taster Alias Pind.2                                         'Taster def.
Led1 Alias Portb.1                                          'Led 1 def.
Led2 Alias Portb.2                                          'Led 2 def.
Led3 Alias Portb.3                                          'Led 3 def.

Led1 = 1
Led2 = 1
Led3 = 1


Dim Tastendrucklaenge As Word

Do

Pulsein Tastendrucklaenge , Pind , 2 , 0

If Tastendrucklaenge > 1000 And Tastendrucklaenge < 5000 Then Toggle Led1
If Tastendrucklaenge > 5000 Then Toggle Led3

Loop