LCD BARgraphs

[SteveB]

Untested, likely needs some debugging, but at least the methodology should be clear.

LCDPos	VAR BYTE
volts	VAR WORD	' 0 to 500 representing 0 to 50.0 Volts
Amps	VAR BYTE	' 0 to 50 representing 0 to 5.0 Amps
Char	VAR BYTE	

FOR LCDPos = 0 TO 9
	IF Volts / 50 >= LCDPos + 1 THEN	' Fill in Volt Block
		IF Amps / 5 >= LCDPos + 1 THEN		' Fill in Volt + Amp Block
			Char = 3
		ELSE					' Fill in Volt Block Only				
			Char = 2
		ENDIF
	ELSE					' Don't Fill in Volt Block
		IF Amps / 5 >= LCDPos + 1 THEN		' Fill in Amp Block only
			Char = 1
		ELSE					' Fill with Space				
			Char = 32
		ENDIF

	ENDIF
	LCDOUT 	$FE, $80 + LCDPos, Char	
NEXT LCDPos