Device = 18F452
Clock = 20
// some LCD options...
#option LCD_DATA = PORTD.4
#option LCD_RS = PORTE.0
#option LCD_EN = PORTE.1
// import LCD library...
Include "LCD.bas"
Include "utils.bas"
Include "convert.bas"
Dim Var1 As Word
// Start Of Program...
SetAllDigital // Make all pins digital I/O's
DelayMS(150) // Let the LCD warm up
Cls // Clear the LCD screen
WriteAt(1,1,"Hello World") // Send some text to the LCD
Var1 = 59248
WriteAt(2,1,DecToStr(Var1,5)) // Convert to a string, and display the first 5 characters
WriteAt(2,10,DecToStr(Var1,2)) // Convert to a string, and display the first 2 characters "48"
While 1 = 1 // Loop forever
Wend //