Habs nun mal versucht, aber er spuckt imemr Fehlermeldungen beim Compilieren aus.

Wäre nett wenn mir jemand sagen kann was an dem Code falsch ist.

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
 If Taster = 1 Then
  Gosub Stelle2
 End If

Stelle2                                               'Wenn Taster über 1sek. betätigt wird zu stelle3 Springen
 If Taster = 0 Then
  Waitms 1000
 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
 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
 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
 If Taster = 1 Then
  Gosub Ledan Led
 End If


Ledan:
Toggle Led                                            'LED togglen

End