INCLUDE "int.bas"

DEFINE	LCD_DREG	PORTD
DEFINE	LCD_DBIT	0
DEFINE	LCD_RSREG	PORTE
DEFINE	LCD_RSBIT	1
DEFINE	LCD_EREG	PORTE
DEFINE	LCD_EBIT	0
DEFINE	LCD_BITS	8
DEFINE	LCD_LINES	2

ADCON1 = $05							'PortE = digital



lcdout $FE,1							'clears the display							

loop:

	lcdout $FE,$80,"This is a clock"

	if i_tic > 2 then					'needs to be in a fast loop to blink
		lcdout $FE,$c0,"Blinking line"
	else
		lcdout $FE,$c0,"              "
	endif

	lcdout $FE,$90,"Time ",dec2 i_hour,":",dec2 i_minu,":",dec2 i_sec

	lcdout $FE,$d0," "

	goto loop