$regfile = "M8def.dat"
$crystal = 10000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6
Config Lcdpin = Pin , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Cls
Locate 1 , 1
Lcd Chr(223) ; "C"
Locate 2 , 2
Lcd "www.qariya.com"
Cursor Off
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Dim A As Word , Volt As Word
Do
  A = Getadc(0)
  Volt = A * 5
  Volt = Volt / 10
  Locate 1 , 4
  Lcd Volt ; " "
Loop
  Waitms 100
End