Du darfst den Code nicht irgendwie einfach kopieren.
die baudrate hast vergessen und keine geschwindigkeit deklariert=$crystal
Hier der korregierte Code.
Probier aus.
Bei deinem und bei meinem Code kommt vorerst nur der Binärwert raus, da die Umrechnung in Volt noch fehlt.
Das können Werte von 0 bis 1024 sein.



Code:
$regfile = "m16def.dat"
$crystal = 3000000
$baud = 9600


Config Adc = Single , Prescaler = Auto


Start Adc

'

Dim W As Word , Channel As Byte

Channel = 0

Do
  W = Getadc(channel)
  Print "Channel " ; Channel ; " Wert= " ; W
  Incr Channel
  If Channel > 7 Then Channel = 0
Loop
End