Hallo Daniel,

hab hier mal kurz einen Code geschrieben, allerdings mit meinen "Einstellungen". Musst du nur auf dich anpassen, also µC, Crystal, usw.

Code:
$regfile = "m32def.dat"
$crystal = 16000000

Config Pinb.0 = Input
Portb.0 = 1
T1 Alias Pinb.0

Dim A As Byte


Do


If T1 = 0 Then
While T1 = 0
Waitms 10
Incr A
If A = 255 Then A = 200
Wend
If A >= 200 Then
'Aktion bei 2 Sek.
Else
'Aktion bei kurzem Tastendruck
End If
End If


Loop

End
Gruß
Chris