Irgentwie bin ich gerade zu dumm. Sitze hier nun 2 Stunden und bekomme es einfach nicht hin eine LED an und aus zu tooglen mitm Taster.
Wäre sehr nett wenn jemand mal gucken kann was in meinem Code falsch ist oder wie es einfacher geht.

Code:
$regfile = M8def.dat
$crystal = 3686400


Ddrd = &B10000000                                           ' PD7 auf Ausgang
Portd = &B00000100                                          ' PullUP von PinD2 An

Dim T1 As Bit

Do                                                          ' Beginn Mainloop


If Pind.2 = 0 Then                                          ' Wenn Taster1 gedrückt, dann..
Waitms 200                                                  ' 200ms warten
If Pind.2 = 0 Then Toggle T1                                ' Wenn taster1 immer noch gedrückt, dann Toogle T1


If T1 = 1 Gosub An                                          ' wenn T1 = 1, gehe zum Unterprogramm An
Else Gosub Aus                                               ' sonst gehe zum Unterprogramm Aus
End If
Loop

An:
Portd.7 = 1
Return

Aus:
Portd.7 = 0
Return

End