Define  LCD_DREG  PORTD
	Define  LCD_DBIT  4
	Define  LCD_RSREG PORTE
	Define  LCD_RSBIT 0
	Define  LCD_EREG  PORTE
	Define  LCD_EBIT  1
	 
	adval Var byte    ' Create adval to store result1	 
	   TRISA = %11111111       ' Set PORTA to all input
	   ADCON1 = %00000010      ' Set PORTA analog and LEFT justify result
	   ADCON0 = %11000001      ' Configure and turn on A/D Module
	   Pause 500               ' Wait .5 second
	 
	mainloop:
	   ADCON0.2 = 1            ' Start Conversion
	 
	notdone:
	   Pause 5
	   If ADCON0.2 = 1 Then notdone  ' Wait for low on bit-2 of ADCON0, conversion finished
	 
	   adval = ADRESH          ' Move high byte of result to adval    
	 
	   Lcdout $fe, 1           ' Clear screen
	   Lcdout "Value: ", DEC adval     ' Display the decimal value 
	   Pause 100               ' Wait .1 second
	 
	   Goto mainloop           ' Do it forever
	    
	   End