Thank You so much for reply !
The rest of code is :
Code:
main:
pause 200
 ADCON0.1 = 1
 WHILE ADCON0.1 = 1 : WEND
 adval.HighByte = ADRESH
 adval.LowByte = ADRESL
 if k=0 and adval > 10 and adval < 750 then
 k=1
 pause 250
 endif

 while k=1
 gosub start
 wend
 goto main


start:

 ADCON0.1 = 1
 WHILE ADCON0.1 = 1 : WEND
 adval.HighByte = ADRESH
 adval.LowByte = ADRESL
if adval > 10  AND adval < 103 then gosub VolDn     

return