Das ist vieleicht nicht die eleganteste Lösung aber sie sollte funktionieren.

Config Portc.0 = Output
Config Int0 = Rising

Dim A As Bit

On Int0 Irq0
Enable Int0

Enable Interrupts

Do

If A = 1 And Portc.0 = 0 Then
Portc.0 = 1
A = 0
End If


If A = 1 And Portc.0 = 1 Then
Portc.0 = 0
A = 0
End If

Loop


Irq0:

A = 1

Return


MFg Orko