' SERLCD_2.BS2
'
' Illustrates how to display four quantities on different lines on a 
' 4-line display.
'
' P0 (term 5) -------------------------- To RX on LCD
'
' copyright, Peter H. Anderson, Feb, ‘98

	
	N_9600  CON 84+$4000
		
	Q1	VAR WORD	' some dummy quantities
	Q2	VAR WORD
	Q3	VAR WORD
	Q4	VAR WORD
	
	N 	VAR BYTE

	DIR0=1  		' define serial output to LCD

MAIN:
	SEROUT 0, N_9600, [$0C]	' clear LCD


	' display Q1=
	'	  Q2=
	'	  Q3=
	'         Q4=

	SEROUT 0, N_9600, [$01, $00, "Q1="]	  ' line 1, pos 0
	SEROUT 0, N_9600, [$01, $40, "Q2="]	  ' line 2, pos 0
	SEROUT 0, N_9600, [$01, $14, "Q3="]   	  ' line 3, pos 0
	SEROUT 0, N_9600, [$01, $54, "Q4="]	  ' line 4, pos 0

	FOR N=0 to $FF
	   Q1=N		' give quantities some varying values
	   Q2=100+N
	   Q3=200+N
	   Q4=300-N
		
           SEROUT 0, N_9600, [$01, $00+4, dec Q1]
	   SEROUT 0, N_9600, [$01, $40+4, dec Q2]
           SEROUT 0, N_9600, [$01, $14+4, dec Q3]
           SEROUT 0, N_9600, [$01, $54+4, dec Q4]

	   PAUSE 300
	NEXT
	STOP