Device = 18F2550 // Setup the device/clock information
Clock = 8
Config FOSC = INTOSCIO_EC
 
Include "ADC.bas" // Include the ADC.bas library
 
Dim LED as PORTC.0 // Declare the LED pin
 
 
function Get_ADC_Sample() as word // Function to grab the ADC sample
 
 result = ADC.Read(0) // Grab an ADC sample from channel 0
 result = result * 2 // Scale the answer up by a factor of 2
 
end function
 
 
OSCCON = %01110110 // Setup the internal OSC for 8Mhz
 
Input(PORTA.0) // Make AN0 an input
 
While True // Create an infinate loop
 
 High(LED) // Make the LED pin High
 Delayms(100 + Get_ADC_Sample) // Delay for 0.1 seconds + the ADC result
 
 Low(LED) // Make the LED pin Low
 Delayms(100 + Get_ADC_Sample) // Delay for 0.1 seconds + the ADC result
 
Wend