probier es einfach mit zwei Taster:
Code:
$regfile = "m8def.dat"
$crystal = 16000000

Config Portb.1 = Output
Config Pinb.2 = Input                                       'Eingang für den Taster_An
Config Pinb.3 = Input                                       'Eingang für den Taster_Aus
Portb.2 = 1                                                 'Pullup ein
Portb.3 = 1                                                 'Pullup ein
Taster_An Alias Pinb.2
Taster_aus Alias Pinb.3


If Taster_An = 0 Then Gosub Diode_An
If Taster_Aus = 0 Then Gosub Diode_Aus

Diode_An:
   Do
      Portb.1 = 0
      Waitus 13
      Portb.1 = 1
      Waitus 13
   Loop


Diode_Aus:
Portb.1 = 0
Das wäre wohl die einfachste Möglichkeit.
Das Tastenprellen ist aber dabei nicht berücksichtigt.
Über einen Timer wäre das Ganze aber besser...