komische Fehlermeldung ohne Zeilenangabe

[Dane]

Hallo,

ich habe gerade ein Programm mit mehreren IF-THEN-ELSE-Bedingungen geschrieben.
Das Programm ist für eine Steuerung, mit der ich mehrere Relais, zwei PCs usw. schalten will
Dies geschieht entweder mit der Fernbedienung (RC5) oder mit einem Bedienkästchen mit 12 Tastern. In diesem Kästchen ist auch ein AVR, der den Tastendruck als 4Bit ausgibt und auch 12 LEDs ansteuert, wenn das Signal 4Bit +1Bit ON/OFF kommt.

Beim Kompilieren bringt er die Fehlermeldung:

Error:7 Line: 0 IF THEN expected [ 258] ,in File:
Error:123 Line: 0 END IF expected ,in File:

Ich habe Bascom neu gestartet, vorher brachte er diese Fehlermeldungen mit Zeilenangaben, dort war aber alles 100%ig in Ordnung, weil an dieser Stelle der Syntax genauso war wie weiter oben.

Was kann das sein?

Hier noch mein Code (Achtung, ziemlich umfangreich):

'Belegung:
'PortA:

$regfile = "m32def.dat"
$crystal = 12000000

Enable Interrupts

Ddra = &B11111111                                           '0=Eingang 1=Ausgang
Ddrb = &B11111111
Ddrc = &B00000000
Ddrd = &B11110000

Porta = &B00000000
Portb = &B00000000                                          '1=Pull Up
Portc = &B00010000
Portd = &B00001111

Dim Address As Byte , Command As Byte , Signal As Byte
Dim Bereit As Bit , Bit1 As Bit , Bit2 As Bit , Bit3 As Bit , Bit4 As Bit , Merker1 As Bit

Config Rc5 = Pinb.4                                         'IR-Empfänger sitzt auf PB4

Bereit = 1                                                  'Bereitschaft herstellen

Do
Getrc5(address , Command)                                   'IR-Empfänger abfragen
Signal = Pind And &B00001111                                'Nur die ersten 4 Bits in Variable Signal übernehmen

If Bereit = 1 Then                                          'Ausgabe der Bereitschafts-Variable an eine LED
Portd.5 = 1
Else
Portd.5 = 0
End If


If Address < 255 Or Signal > 0 And Address = 55 Then        'wenn ein Signal von der Fernbedienung oder von PD0 bis PD3 kommt
Command = Command And &B01111111                            'Toggle Bit entfernen


   If Command = 1 And Bereit = 1 Or Signal = 1 And Bereit = 1 Then       'Taster 1 Stromstoßrelais Zimmerlicht
   Portb.0 = 1
   Bereit = 0
   Waitms 200
   Portb.0 = 0

   Elseif Command = 2 And Bereit = 1 Or Signal = 2 And Bereit = 1 Then       'Taster 2 Flutlicht
   Toggle Porta.0
   Bereit = 0
   Bit1 = 0
   Bit2 = 1
   Bit3 = 0
   Bit4 = 0
      If Porta.0 = 1 Then
      Gosub Ausgeben_ein
      Else
      Gosub Ausgeben_aus
      End If

   Elseif Command = 3 And Bereit = 1 Or Signal = 3 And Bereit = 1 Then       'Taster 3 Schwarzlicht
   Toggle Porta.1
   Bereit = 0
   Bit1 = 1
   Bit2 = 1
   Bit3 = 0
   Bit4 = 0
      If Porta.1 = 1 Then
      Gosub Ausgeben_ein
      Else
      Gosub Ausgeben_aus
      End If

   Elseif Command = 4 And Bereit = 1 Or Signal = 4 And Bereit = 1 Then       'Taster 4 Strahler für Spiegelkugel
   Toggle Portb.1
   Bereit = 0
   Bit1 = 0
   Bit2 = 0
   Bit3 = 1
   Bit4 = 0
      If Portb.1 = 1 Then
      Gosub Ausgeben_ein
      Else
      Gosub Ausgeben_aus
      End If

   Elseif Command = 5 And Bereit = 1 Or Signal = 5 And Bereit = 1 Then       'Taster 5 Spiegelkugelmotor
   Toggle Porta.2
   Bereit = 0
   Bit1 = 1
   Bit2 = 0
   Bit3 = 1
   Bit4 = 0
      If Porta.2 = 1 Then
      Gosub Ausgeben_ein
      Else
      Gosub Ausgeben_aus
      End If

   Elseif Command = 6 And Bereit = 1 Or Signal = 6 And Bereit = 1 Then       'Taster 6 UFO
   Toggle Portb.2
   Bereit = 0
   Bit1 = 0
   Bit2 = 1
   Bit3 = 1
   Bit4 = 0
      If Portb.2 = 1 Then
      Gosub Ausgeben_ein
      Else
      Gosub Ausgeben_aus
      End If

   Elseif Command = 7 And Bereit = 1 Or Signal = 7 And Bereit = 1 Then       'Taster 7 Lichterorgel
   Toggle Porta.3
   Bereit = 0
   Bit1 = 1
   Bit2 = 1
   Bit3 = 1
   Bit4 = 0
      If Porta.3 = 1 Then
      Gosub Ausgeben_ein
      Else
      Gosub Ausgeben_aus
      End If
      '                                  Schaltmodul
   Elseif Command = 8 And Bereit = 1 And Pinc.7 = 0 Or Signal = 8 And Bereit = 1 And Pinc.7 = 0 Then       'Taster 8 Röhrenverst., Mediastation usw. EIN
   Bereit = 0
   Portb.5 = 1
   Bit1 = 0
   Bit2 = 0
   Bit3 = 0
   Bit4 = 1
   Gosub Ausgeben_ein
   Waitms 500
   Portb.5 = 0
   '                                  Schaltmodul    Mediastation
   Elseif Command = 8 And Bereit = 1 And Pinc.7 = 1 And Pinc.5 = 0 And Pinc.7 = 1 Or Signal = 8 And Bereit = 1 And Pinc.7 = 1 And Pinc.5 = 0 Then       'Taster 8 Röhrenverst., Mediastation usw. AUS, wenn Mediastation nicht läuft
   Bereit = 0
   Portb.6 = 1
   Bit1 = 0
   Bit2 = 0
   Bit3 = 0
   Bit4 = 1
   Gosub Ausgeben_aus
   Waitms 500
   Portb.6 = 0

   Elseif Command = 8 And Bereit = 1 And Portb.5 = 1 And Pinc.5 = 1 Or Signal = 8 And Bereit = 1 And Portb.5 = 1 And Pinc.5 = 1 Then       'Taster 8 Röhrenverst., Mediastation usw. AUS, wenn Mediastation läuft
   Merker1 = 1
   Bereit = 0
   Portb.7 = 1                                              'Taster an Mediastation simulieren
   Waitms 100                                               'Taster an Mediastation simulieren
   Portb.7 = 0                                              'Taster an Mediastation simulieren

   Elseif Command = 9 And Bereit = 1 And Pinc.6 = 0 Or Signal = 9 And Bereit = 1 And Pinc.6 = 0 Then       'Taster 9 PC EIN
   Porta.4 = 1
   Bereit = 0
   Bit1 = 1
   Bit2 = 0
   Bit3 = 0
   Bit4 = 1
   Gosub Ausgeben_ein

   Elseif Command = 9 And Bereit = 1 And Pinc.6 = 1 Or Signal = 9 And Bereit = 1 And Pinc.6 = 1 Then       'Taster 9 PC AUS
   Porta.4 = 1
   Bereit = 0
   Bit1 = 1
   Bit2 = 0
   Bit3 = 0
   Bit4 = 1
   Gosub Ausgeben_ein

   Elseif Command = 10 And Bereit = 1 Or Signal = 10 And Bereit = 1 Then       'Taster 10 Arbeitssteckdose
   Toggle Porta.5
   Bereit = 0
   Bit1 = 0
   Bit2 = 1
   Bit3 = 0
   Bit4 = 1
      If Porta.5 = 1 Then
      Gosub Ausgeben_ein
      Else
      Gosub Ausgeben_aus
      End If

   Elseif Command = 11 And Bereit = 1 Or Signal = 11 And Bereit = 1 Then       'Taster 11 Reserve
   Toggle Porta.6
   Bereit = 0
   Bit1 = 1
   Bit2 = 1
   Bit3 = 0
   Bit4 = 1
      If Porta.6 = 1 Then
      Gosub Ausgeben_ein
      Else
      Gosub Ausgeben_aus
      End If

   Elseif Command = 12 And Bereit = 1 Or Signal = 12 And Bereit = 1 Then       'Taster 12 Reserve
   Toggle Portb.4
   Bereit = 0
   Bit1 = 0
   Bit2 = 1
   Bit3 = 0
   Bit4 = 1
      If Portb.4 = 1 Then
      Gosub Ausgeben_ein
      Else
      Gosub Ausgeben_aus
      End If
   End If

Else
Bereit = 1                                                  'wenn kein Signal kommt, dann Bereitschaft wieder herstellen
   If Merker1 = 1 And Pinc.5 = 0 Then                       'wenn Merker gesetzt wurde und Mediastation sich ausgeschaltet hat, Relais auschalten
   Merker1 = 0
   Portb.6 = 1
   Bit1 = 0
   Bit2 = 0
   Bit3 = 0
   Bit4 = 1
   Gosub Ausgeben_aus
   Waitms 500
   Portb.6 = 0

End If

Loop

Ausgeben_ein:
Portd.4 = 1                                                 'Bit ON/OFF
Portd.0 = Bit1
Portd.1 = Bit2
Portd.2 = Bit3
Portd.3 = Bit4
Waitms 500
Portd.0 = 0
Portd.1 = 0
Portd.2 = 0
Portd.3 = 0
Portd.4 = 0
Return

Ausgeben_aus:
Portd.4 = 0                                                 'Bit ON/OFF
Portd.0 = Bit1
Portd.1 = Bit2
Portd.2 = Bit3
Portd.3 = Bit4
Waitms 500
Portd.0 = 0
Portd.1 = 0
Portd.2 = 0
Portd.3 = 0
Portd.4 = 0
Return


End

MfG, Dane