Define  LCD_DREG  PORTD
	Define  LCD_DBIT  4
	Define  LCD_RSREG PORTE
	Define  LCD_RSBIT 0
	Define  LCD_EREG  PORTE
	Define  LCD_EBIT  1
	 

	Define  ADC_BITS  10       
	Define  ADC_CLOCK 3      
	Define  ADC_SAMPLEUS  50  
	 
	adval Var Byte            
	 
	 
	  TRISA = %11111111       
	  ADCON1 = %00001100      
	  Low PORTE.2             
	 
	  Pause 100               
	 
	mainloop:
	  ADCIN 0, adval         
	  adval= (adval*500)/1024
	  Lcdout $fe, 1           
	  Lcdout "DC Volts=",DEC(adval/100),".",DEC2 adval
	 
	  Pause 100              
	 
	  Goto mainloop           
	 
	  End