' Name        : LCDX4.pbp
' Compiler    : PICBASIC PRO Compiler 2.6
' Assembler   : PM or MPASM
' Target PIC  : 8-pin PIC12F675 or similar types
' Hardware    : Lab-X4 board
' Oscillator  : 4MHz internal
' Keywords    : SEROUT, PAUSE
' Description : PICBASIC PRO program to display "Hello World" on LCD (and serial port)
'

Include "modedefs.bas" ' Mode definitions for Serout

Define OSCCAL_1K 1     ' Calibrate internal oscillator

LCD Var GPIO.1         ' LCD TX pin

   ANSEL = 0           ' Set all digital
   CMCON = 7           ' Analog comparators off

   Pause 500           ' Wait .5 second for LCD to init

mainloop:
   Serout LCD, T2400, [$fe, 1]  ' Clear screen
   Pause 500           ' Wait .5 second

   Serout LCD, T2400, ["Hello"] ' Display "Hello"
   Pause 500           ' Wait .5 second

   Serout LCD, T2400, [$fe, $c0, "World"] ' Move to line 2  and display "World"
   Pause 500           ' Wait .5 second

   Goto mainloop       ' Do it forever

   End