Hallo,

das könnte man zum Beispiel so machen:

Code:
Taste alias PIND.0 'oder ähnlich

dim TCounter as byte

Do 'Hauptschleife
If Taste = 0 Then Call Tastendruck
'....
loop

sub Tastendruck()
Tcounter = 0
for I = 1 to 100
if Taste = 0 then incr TCounter
waitms 1
next
if TCounter < 90 then exit sub 

'... Hier die Verzweigung

end sub