AllDigital Define SIMULATION_WAITMS_VALUE = 1 Dim temp1 As Byte Define LCD_LINES = 2 Define LCD_CHARS = 16 Define LCD_BITS = 4 Define LCD_DREG = PORTA Define LCD_DBIT = 0 Define LCD_RSREG = PORTA Define LCD_RSBIT = 4 Define LCD_EREG = PORTA Define LCD_EBIT = 7 Define LCD_RWREG = PORTA Define LCD_RWBIT = 6 TRISA = %00000000 TRISB = %00001111 CMCON = 0x07 'use the ' symbol to REM out unused commands 'Lcdinit ; no cursor 'Lcdinit 2 'cursor on LCD Lcdinit 3 'cursor and flashing Lcdout "Ready" WaitMs 1 main: Lcdout "Hello TT" Lcdcmdout LcdClear Lcdcmdout LcdLine2Home Lcdout "Today is Tuesday" WaitMs 5 Lcdcmdout LcdLine1Home Lcdout "then Wednesday " WaitMs 1 Goto main End