$regfile = "m8def.dat"
$crystal = 3686400

Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6
Config Lcdpin = Pin , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2

Config Lcd = 16 * 2
Config Portd = Output

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

Dim W As Word , Channel As Byte
Dim X As Single

Channel = 0


Do

   Waitms 500
   Cls
    W = Getadc(channel)
    X = W / 222

   Lcd "Ch" ; Channel ; "=" ; X

   Incr Channel

   W = Getadc(channel)
   X = W / 11

   Lowerline

   Lcd "Ch" ; Channel ; "=" ; X
   If Channel > 0 Then Channel = 0
Loop

End