DEFINE ADC_BITS 10 ' Set number of bits in result
DEFINE ADC_CLOCK 3 ' Set clock source (3=rc)
DEFINE ADC_SAMPLEUS 50 ' Set sampling time in uS
define osc 4 'set clock speed

ledred var portd.0
ledgreen var portd.1
ledblue var portd.2

red var byte
green var byte
blue var byte
ADCvar VAR WORD ' Create variable to
store result
x var byte
red = minpulse
green = minpulse
blue = minpulse

TRISA = %11111111 ' Set PORTA to all input
ADCON1 = %10000010 ' Set PORTA analog and right
justify result
low ledred
low ledgreen
low ledblue

Pause 500 ' Wait .5 second

main: 
ADCIN 0, ADCvar ' Read channel 0 to adval

red = (ADCvar/2-255)*-1
if adcvar < 0 then
red = 255
endif
if Adcvar > 510 then
red = 0
endif 
if adcvar < 510 then
green = adcvar/2
else
green = (adcvar -1020)*-1 /2
endif
if adcvar < 0 then
green = 0
endif
if Adcvar > 1020 then
green = 0
endif 
blue = (adcvar -510) /2
if adcvar < 510 then
blue = 0
endif
if Adcvar> 1020 then
blue = 250
endif 
pulsout ledblue, blue
pulsout ledred, red
pulsout ledgreen, green
GoTo main ' Do it forever