$regfile = "m32def.dat"
$crystal = 8000000
$baud = 4800

Dim W0 As Word
Dim Spannung0 As Single
Dim Spannungger0 As String * 4

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

Do
Channel = 0
W0 = Getadc(channel)
Spannung0 = W0 * 0.0117192
Spannungger0 = Fusing(spannung0 , "##.##")
Locate 1 , 1
Lcd ; "Bat.1:" ; Spannungger0 ; "V"
Print "ADC-Pin " ; Channel ; " : V " ; Spannungger0
Waitms 500


Jetzt wollte ich hier noch 3 leds ansteuern rot gelb grun für die zustandsanzeige:
(if blblbl > then bla bla bla) das haut aber irgendwie nur mit 2 leds hin)

Loop