$crystal = 8000000
$regfile = "m8535.dat"

Config Adc = Single , Prescaler = Auto , Reference = Avcc   'Adc konfigurieren
Start Adc

Config Porta = Input                                        'Port a als eingang für adc

Dim Helligkeit As Word
                                                   'Variable definieren



Main:
Do
Helligkeit = Getadc(0)                                      'ADC Wert von ADC0/PA0 holen Bei AVcc am Port =1023
Locate 1 , 1                                                'Cursor positionieren Zeile 1 Spalte 1
Lcd "Helligkeit: " ; Helligkeit                             ' Helligkeit auf dem display anzeigen
Waitms 100                                                  '1/100 sek warten
Loop

End