so läuft es durch Bascom musst halt deinen µC usw noch hinzufügen
Code:
Dim Normal As Byte

do

Debounce Pind.2 , 0 , Taster1
If Normal = 1 Then
portd.6 = 1
End If
if normal = 2 then
portd.6 = 0
end if
loop
end

Taster1:
Normal = Normal + 1
If Normal > 2 Then
Normal = 0
End If
Return