This is a test program for my LCD. Sometime I can read on the screen but the following second the words are jumping from one line to another and the letters and just going about anywhere... any thoughts

Code:
'LCD testing program

INCLUDE "modedefs.bas"
OSCCON = %01110000 '8 Mhz

CMCON = 7 : ANSEL = 0 : ADCON1 = 7
'/////////////////////////
'// LCD configuration //
'/////////////////////////

DEFINE LCD_DREG PORTB ' Set LCD Data port
DEFINE LCD_DBIT 4 ' Set starting Data bit (0 or 4) if 4-bit bus
DEFINE LCD_RSREG PORTA ' Set LCD Register Select port
DEFINE LCD_RSBIT 2 ' Set LCD Register Select bit
DEFINE LCD_EREG PORTA ' Set LCD Enable port
DEFINE LCD_EBIT 3 ' Set LCD Enable bit
DEFINE LCD_BITS 4 ' Set LCD bus size (4 or 8 bits)
DEFINE LCD_LINES 2 ' Set number of lines on LCD
DEFINE LCD_COMMANDUS 2500
DEFINE LCD_DATAUS 250
DEFINE CHAR_PACING 2000
pause 1000


Mainloop:

        lcdout $FE,1, " This is a test"                    '
        lcdout $FE,$C0, "Next or Select"                 '
        pause 200
            
GOTO Mainloop
End