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 Hseropen 9600 '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 Hserout "Hello Transistorman.!", CrLf Lcdout "Hello TT" Lcdcmdout LcdClear main: Lcdcmdout LcdLine1Home Lcdout #temp1 WaitMs 1 Hserout #temp1, " " temp1 = temp1 + 1 Goto main End