'  ###########  start  ###########
'  pic:PIC16F886
'  ###########   end   ###########

'This program reads the potentiometer on AN0 and lights
' the LEDs connected to PORTB to form a bar graph
' that indicates how far the pot has been turned.
' This is similar to the volume display on a stereo

'Chip Settings
#chip 16F886,16

Dir PORTB Out
Start:

'Light all LEDs if pot turned all way to right
If ReadAD(AN0) > 230 Then
	PORTB = b'00111100'
	Goto Start
end if

'Three LEDs lit
If ReadAD(AN0) > 180 Then
	PORTB = b'00011100'
	Goto Start
end if

'Two LEDs lit
If ReadAD(AN0) > 100 Then
	PORTB = b'00001100'
	Goto Start
end if

'One LED lit
If ReadAD(AN0) > 10 Then
	PORTB = b'00000100'
	Goto Start
end if

'All LEDs off, Pot all way to left
If ReadAD(AN0) < 10 Then
	PORTB = 0
end if
Goto Start