' SERLCD_3.BS2

' Displays the characters $00 through $0F

' copyright, Peter H. Anderson, Feb, ‘98

	N_9600 CON $4000+84	' 9600 baud inverted

	
	N VAR BYTE

	DIRS = $0001	' make P0 an output
TOP:
	
	SEROUT 0, N_9600, [$0C]	
			'clear the LCD and locate cursor to up left

	FOR N=0 TO $1F

	   SEROUT 0, N_9600, [HEX2 N, $09, $12, N]
	   PAUSE 2000
           SEROUT 0, N_9600, [$0C]	' clear the LCD

	NEXT
DONE:
	GOTO DONE