[SOLVED] ADC problem with pic16f819

Device 16F819
XTAL 4

PORTB_PULLUPS true

LCD_INTERFACE 4
LCD_DTPIN PORTB.4
LCD_RSPIN PORTB.0
LCD_ENPIN PORTB.1
ADIN_RES 10 ' Set the resolution to 10
ADIN_TAD FRC ' Choose the RC osc for ADC samples
ADIN_STIME 100
   ADCON0.3 = 0
   ADCON0.4 = 0
   ADCON0.5 = 0
Output LED
Dim x As Byte
Dim A As Word
Dim V As Word

x= 255
loop:
GoSub GET_VOLT
DelayMS 250
GoSub GET_VOLT1 
GoTo loop

  GET_VOLT:
  A = ADIn 0
        V = (5/1023)*V
        Cls
        Print At 1,1, Dec 4 A 
        Return
        GET_VOLT1:
  A = ADIn 1
        V = (5/1023)*A
        Print At 2,1, DEC3 V
        Return

V = (5/1023)*V

V = (5 * A /1023)

'****************************************************************
'*  Name    : adc + lcd.BAS                                      *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2015 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 9/19/2015                                         *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
    Device 16F819
Declare Xtal 4

Declare LCD_Interface 4

Declare LCD_DTPin PORTB.4
Declare LCD_RSPin PORTB.0
Declare LCD_ENPin PORTB.1

Declare Adin_Res 10     'Set the resolution to 10
Declare Adin_Tad FRC    'Choose the RC osc for ADC samples
Declare Adin_Stime 100

   ADCON0.3 = 0
   ADCON0.4 = 0
   ADCON0.5 = 0
   ADCON1 = $8E
   TRISA = $C1
   TRISB = $00
   PORTA = $00
   PORTB = $00

Dim A As Float

Main:
    
        A = ADIn 0
        'A = (A * 5.0 / 1024.0)                
        Print At 2,1, Dec2 A, " RAW ADC Value"        
  
GoTo Main