COLD
 
DECIMAL 

3.30e FCONSTANT VREF ( change 3.3 to your Vref value )

( Single Ended Voltage = Vref x [Value Read/32760] )
: DECIVAL S>F VREF FSWAP 32760.0e F/ F* F. ;  
 
( display 8 channel A/D readings in Floating Point number )
: GET-AD 
   CR
   BEGIN 
     13 EMIT 
     ADC0 ANALOGIN DECIVAL 
     ADC1 ANALOGIN DECIVAL
     ADC2 ANALOGIN DECIVAL
     ADC3 ANALOGIN DECIVAL
     ADC4 ANALOGIN DECIVAL
     ADC5 ANALOGIN DECIVAL
     ADC6 ANALOGIN DECIVAL
     ADC7 ANALOGIN DECIVAL
?TERMINAL UNTIL ;

GET-AD