'****************************************************************************
'* ADC_2_BARGRAPH ROUTINE FOR LCD LINE 1 *
'****************************************************************************

Column_Position = (t_temp DIV 65) + 1 'which column is ADC value
Column_Value = t_temp MOD 65 'what value in column

For b = 1 to 16
If b < Column_Position Then 'fill in dark columns behind ADC value
LCD_CHR(1, b, $04)
Else 'clear columns ahead of ADC value
LCD_CHR(1, b, $FE)
End If
Next b

LCD_CHR(1, Column_Position, Column_Value DIV 13) 'Place Character Value in proper column

End If

Delay_ms(20) 'Delay helps stabilize a jittery display

goto Read_and_Print

end.