Hi,

da war so einiges, ich hab´s Dir überarbeitet und kommentiert, diesen Code solltest Du fehlerfrei kompilieren können:

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

Ddrb = &B0000001                                    'Pin PD3 Ausgang, Rest Eingang
Portd = &B00000100                                  'Pullup von Pind.2 Aktivieren



Led Alias Portb.0                                         'Portb.2 als LED deklarieren
Taster Alias Pind.2                                       'Pind.2 als Taster deklarieren

Declare Sub Stelle1                                  'Stelle1 als Subroutine deklarieren
Declare Sub Stelle2                                   'Stelle2 als Subroutine deklarieren
Declare Sub Stelle3                                   'Stelle3 als Subroutine deklarieren
Declare Sub Stelle4                                   'Stelle4 als Subroutine deklarieren
Declare Sub Stelle5                                   'Stelle5 als Subroutine deklarieren
Declare Sub Ledan                                     'Ledan als Subroutine Deklarieren



Do                                                        'Starte Hauptschleife
Debounce Taster , 0 , Stelle1 , Sub                    'Taster entprellen
Loop



Stelle1:                                              'Wenn Taster unter 1sek. betätigt wird zu stelle2 Springen
 If Taster = 0 Then
  Waitms 1000
 End If
 '**FEHLTE!
 If Taster = 1 Then
  Gosub Stelle2
 End If

Stelle2:
'**Doppelpunkt vergessen!                            'Wenn Taster über 1sek. betätigt wird zu stelle3 Springen
 If Taster = 0 Then
  Waitms 1000
 End If
 '**FEHLTE!
 If Taster = 0 Then
  Gosub Stelle2
 End If

Stelle3:                                              'Wenn Taster über 1sek. betätigt wird zu stelle4 Springen
 If Taster = 0 Then
  Waitms 1000
 End If
 '**FEHLTE!
 If Taster = 0 Then
  Gosub Stelle4
 End If

Stelle4:                                              'Wenn Taster unter 1sek. betätigt wird zu stelle5 Springen
 If Taster = 0 Then
  Waitms 1000
 End If
 '**FEHLTE!
 If Taster = 1 Then
  Gosub Stelle5
 End If

Stelle5:                                              'Wenn Taster unter 1sek. betätigt wird zu Ledan Springen
 If Taster = 0 Then
  Waitms 1000
 End If
 '**FEHLTE!
 If Taster = 1 Then
  Gosub Ledan
  '**Ledan Led gibt´s nicht!
 End If


Ledan:
Toggle Led                                            'LED togglen

End
Die Kommentare mit dem führenden "**" sind von mir...

Viele Grüße

Torsten