ZU 1.)
Ich hab ein Poti dran, er liest den Wert ja auch aus. Aber wenn er dann die ertse If bedingung weiter ist dann ist der wert auf einmal komplett anders.
Das sieht dann so aus.

Licht1: 1021
zuendung aus!!!
Licht2: 12337


Zu 2.)
Ja habe ich geändert mit dem Leerzeichen.

Zu 3.)
Habe ich auch geändert.

Zu 4.)
Habe ich auch geändert.

Hier nochmal der aktuelle Code.
Code:
                           $regfile = "m8def.dat "
$crystal = 3686400


Config Portc = &B00110100                                   'Ausgangs Eingangszuweisung

Portc.0 = 1                                                 'Pull Up
Portc.1 = 1

Funkzu Alias Pinc.0                                         'Alias
Zuendung Alias Pinc.1                                       'alias
'Led Alias Portc.2                                           'alias
'Helligkeit Alias Pinc.3                                     'alias'
Relais_ldr Alias Portc.4                                    'Alias
Relais Alias Portc.5                                        'Alias

Dim Licht As Integer
Dim Helfer As Integer

Declare Sub Ausgang

Config Adc = Single , Prescaler = Auto , Reference = Avcc

Start Adc


Do
   Licht = Getadc(3)
   Print "Licht1: " ; Licht
   Wait 1
   If Zuendung = 1 Then
      Print "zuendung aus!!!"                               'Abfrage ob zündung an ist
      Print "Licht2: " ; Licht
      Print
      Wait 1
      If Funkzu = 0 Then                                    'abfrage ob das ZV signal anliegt
        Print "Zuendung aus und Funk Signal erhalten!!!"
        Print "Licht3: " ; Licht
        Wait 1
        Ausgang
   End If
   End If
Ende:
Loop
End

Sub Ausgang

       Set Relais
       Print "Relais ohne LDR: " ; Relais
       Print "Licht4: " ; Licht
       Wait 1
       If Licht < 200 Then
        Print "Licht5: " ; Licht
         Wait 1
       End If
Neustart:
       For Helfer = 0 To 60
       Wait 1
       If Funkzu = 1 Then Helfer = 0
       Print "Istzeit: " ; Helfer
       Print "Licht6: " ; Licht
       Next
       Reset Relais
       Print "Relais ohne LDR: " ; Relais
       Reset Relais_ldr
       Print "Relais mit LDR: " ; Relais_ldr
 Wait 1
End Sub
Ciao Marco