Eigentlich eher so:

Code:
Do

Do
Toggle Led1
Waitms 500
Toggle Led1
Waitms 500
Loop Until Taster =  0


Bitwait Taster, Set                                      'Taster losgelassen         == Taster = 1
Waitms 20
Bitwait Taster, Reset                                    'Taster gedrückt            == Taster = 0
Stelle1 = Pina

Do
Toggle Led2
Waitms 500
Toggle Led2
Waitms 500
Loop Until Taster = 1                                 'Taster wieder losgelassen



'Bitwait Taster, Set                                      'Taster losgelassen
'Waitms 20
Bitwait Taster, Reset                                    'Taster gedrückt
Stelle2  = PinA

 Do
Toggle Led3
Waitms 500
Toggle Led3
Waitms 500
Loop Until Taster = 0


'Bitwait Taster, Set                                      'Taster losgelassen
'Waitms 20
Bitwait Taster, Reset                                    'Taster gedrückt
Stelle3 = Pina


Do
Toggle Led4
Waitms 500
Toggle Led4
Waitms 500
Loop Until Taster = 0


'Bitwait Taster, Set                                      'Taster losgelassen
'Waitms 20
Bitwait Taster, Reset                                    'Taster gedrückt
Stelle4 = Pina

Gosub Vergleichen

Loop

End