main()
{
   long int adcValue;                     //16-bit A2D reading storage
   char adcHI, adcLO;                     //8-bit real time frames storage
   setup_adc_ports(A_ANALOG);             //set all ADC pins to analog
   setup_adc(ADC_CLOCK_INTERNAL);         //enable A2D module
   set_adc_channel(0);                    //read channel 0
   delay_us(20);                          //delay for sampling cap to charge
   while(TRUE)
   {
      adcValue = read_adc();                    //start conversion
      adcHI = (char)((adcValue>>5)& 0x1f);      // 0|0|0|d9|d8|d7|d6|d5
      adcLO = (char)((adcValue & 0x1f)|0x80);   // 1|0|0|d4|d3|d2|d1|d0
      putc(adcHI);                              // Transmit Byte 1 (d9...d5)
      putc(adcLO);                              // Transmit Byte 2 (d4...d0)
      delay_ms(5);                             //small delay before read
   }
}

s = serial('COM1');
   fopen(s);
   set (s, 'BaudRate', 9600);
   data = fread(s,s.BytesAvailable);
   n = length(data);
i=1;
   while (i<n/2)
   {
   }
   end
   fclose(s);
   delete(s);
   clear(s);