When I program the code, LCD toggle's right away. If I cycle power, LCD takes forever to toggle. Any ideas? Internal OSC.

Code:
#CONFIG
  CONFIG FOSC = INTIO67
  CONFIG PLLCFG = ON        
  CONFIG PRICLKEN = OFF
  CONFIG FCMEN = ON
  CONFIG IESO = OFF
  CONFIG PWRTEN = ON
  CONFIG BOREN = OFF
  CONFIG WDTEN = OFF
  CONFIG CCP2MX = PORTC1
  CONFIG PBADEN = OFF
  CONFIG MCLRE = INTMCLR
  CONFIG STVREN = ON
  CONFIG LVP = OFF
  CONFIG XINST = OFF
  CONFIG DEBUG = OFF
#ENDCONFIG

DEFINE OSC 32
OSCCON = %01100000
OSCTUNE = %01000000'01000000         
@ ERRORLEVEL -306   ; turn off crossing page boundary message
'Include "modedefs.bas"	' Mode definitions for Serou


Baud       var     PortA.2   'Output Set Baud rate (high = force 9,600, low = 115 K or firmware setting)
Master     var     PortA.3   'Output high=automaster-mode Input to RN-42 with weak pulldown
TRISA=%010001

DEFINE DEBUG_REG PORTB       ' Set Debug pin port
DEFINE DEBUG_BIT 6           ' Set Debug pin bit 
DEFINE DEBUG_BAUD 57600       ' Set Debug baud rate 
DEFINE DEBUG_MODE 0          ' Set Debug mode: 0 = true, 1 = inverted
DEFINE DEBUG_PACING 200'200 
                                                                                               
DEFINE DEBUGIN_REG PORTB     ' Set Debugin pin port 
dEFINE DEBUGIN_BIT 7         ' Set Debugin pin bit 
DEFINE DEBUGIN_MODE 0        ' Set Debugin mode: 0 = true, 1 = inverted

DEFINE HSER2_RCSTA 90h 
DEFINE HSER2_TXSTA 20h 
DEFINE HSER2_BAUD 57600

DEFINE HSER_RCSTA 90h 
DEFINE HSER_TXSTA 20h 
DEFINE HSER_BAUD 9600 

LiftSwitch var     PortB.0   'When low, shut off rows. 
STS        var     PortB.1   'Input Status, high when connected, low otherwise
Discover   var     PortB.2   'Output Auto discovery = high
Test       var     PortB.3
Defaults   var     PortB.4   'Output Set factory defaults Input to RN-42 with weak pulldown
LCD        Var     PortB.5
BTX        var     PortB.6   'Wireless transmit                                               
BRX        var     PortB.7   'Wireless receive
TRISB=%10000011
ADCON1.7=1
ADCON1.6=1
ADCON1.5=0
ADCON1.4=0
ADCON1.3=0
ADCON1.2=1
ADCON1.0=1

WRX        var     PortC.0   'Input
RadarIn    var     PortC.1   'Input
Config1    var     PortC.2   'Input
Config2    var     PortC.3   'Input
'NC                PortC.4
CTS        var     PortC.5   'Output
WTX        var     PortC.6   'Output
GRX        var     PortC.7   'Input
TRISC=%10001111

GPGGA      VAR     BYTE[64]
Blue       var     byte[64]
RadarLow   Var     Word                                                                                                                                                                 
RadarHigh  var     Word
RadarTotal var     word
qI         VAR     Word          'Quotient-integer------------------Maybe change to Byte
qF         VAR     Word         'Quotient-fractional
GSpeed     var     word
Res        var     WOrd
hh         VAR     BYTE  'hours
mm         VAR     BYTE  'minutes
ss         VAR     BYTE  'seconds
sss        var     word  'milliseconds
fix        VAR     WORD  'GPS fix
latdeg     VAR     word  'degrees latitude
latmin     VAR     byte  'minutes latitude  
latmin2    var     word  'fractional minutes latitude
totallat   var     long
NS         VAR     BYTE  'north or south
londeg     VAR     word  'degrees longitude
lonmin     VAR     byte  'minutes longitude
lonmin2    var     long  'fractional minutes longitude
totallon   var     WORD  'long
EW         VAR     BYTE  'east or west
Knots      VAR     byte  'speed in knots (units)
Knotss     var     byte  'speed in fractional knots
course     var     word  'heading
dy         VAR     BYTE  'day
mt         VAR     BYTE  'month
yr         VAR     BYTE  'year
quality    var     byte
satnum     var     byte  
geoid      var     word
geoiddec   var     byte
dummy      var     byte
altitude   var     word
altitudedec        var   byte 
altunit    var     byte
CBID       var     byte
CBCount    var     byte
RPM1X      var     word
RPM2X      var     word
RPM3X      var     word
RPM4X      var     word
RPM1R      var     word
RPM2R      var     word
RPM3R      var     word
RPM4R      var     word
RPM5R      var     word
RPM6R      var     word
RPM7R      var     word
RPM8R      var     word
RPM9R      var     word
RPM10R     var     word
RPM11R     var     word
RPM12R     var     word
RPM13R     var     word
RPM14R     var     word
RPM15R     var     word
RPM16R     var     word
RPM17R     var     word
RPM18R     var     word
RPM19R     var     word
RPM20R     var     word
RPM21R     var     word
RPM22R     var     word
RPM23R     var     word
RPM24R     var     word
RPM25R     var     word
RPM26R     var     word
RPM27R     var     word
RPM28R     var     word
RPM29R     var     word
RPM30R     var     word
RPM31R     var     word
RPM32R     var     word
RPM33R     var     word
RPM34R     var     word
RPM35R     var     word
RPM36R     var     word
RPM37R     var     word
RPM38R     var     word
RPM39R     var     word
RPM40R     var     word
RPM41R     var     word
RPM42R     var     word
RPM43R     var     word
RPM44R     var     word
RPM45R     var     word
RPM46R     var     word
RPM47R     var     word
RPM48R     var     word

RPM1T      var     word
RPM2T      var     word
RPM3T      var     word
RPM4T      var     word
RPM5T      var     word
RPM6T      var     word
RPM7T      var     word
RPM8T      var     word
RPM9T      var     word
RPM10T     var     word
RPM11T     var     word
RPM12T     var     word
RPM13T     var     word
RPM14T     var     word
RPM15T     var     word
RPM16T     var     word
RPM17T     var     word
RPM18T     var     word
RPM19T     var     word
RPM20T     var     word
RPM21T     var     word
RPM22T     var     word
RPM23T     var     word
RPM24T     var     word
RPM25T     var     word
RPM26T     var     word
RPM27T     var     word
RPM28T     var     word
RPM29T     var     word
RPM30T     var     word
RPM31T     var     word
RPM32T     var     word
RPM33T     var     word
RPM34T     var     word
RPM35T     var     word
RPM36T     var     word
RPM37T     var     word
RPM38T     var     word
RPM39T     var     word
RPM40T     var     word
RPM41T     var     word
RPM42T     var     word
RPM43T     var     word
RPM44T     var     word
RPM45T     var     word
RPM46T     var     word
RPM47T     var     word
RPM48T     var     word
RPM1O      var     word
RPM2O      var     word
RPM3O      var     word
RPM4O      var     word
RPM5O      var     word
RPM6O      var     word
RPM7O      var     word
RPM8O      var     word
RPM9O      var     word
RPM10O     var     word
RPM11O     var     word
RPM12O     var     word
RPM13O     var     word
RPM14O     var     word
RPM15O     var     word
RPM16O     var     word
RPM17O     var     word
RPM18O     var     word
RPM19O     var     word
RPM20O     var     word
RPM21O     var     word
RPM22O     var     word
RPM23O     var     word
RPM24O     var     word
RPM25O     var     word
RPM26O     var     word
RPM27O     var     word
RPM28O     var     word
RPM29O     var     word
RPM30O     var     word
RPM31O     var     word
RPM32O     var     word
RPM33O     var     word
RPM34O     var     word
RPM35O     var     word
RPM36O     var     word
RPM37O     var     word
RPM38O     var     word
RPM39O     var     word
RPM40O     var     word
RPM41O     var     word
RPM42O     var     word
RPM43O     var     word
RPM44O     var     word
RPM45O     var     word
RPM46O     var     word
RPM47O     var     word
RPM48O     var     word
TXID       var     byte
EPDCount   var     byte
BTPrefix   var     Long
SimYN      var     byte
T1                 var     word  'Used to measure RPM
T2                 var     word  'Used to measure RPM
T3                 var     word  'Used to measure RPM
Prefix             con     $FE             ' needed before each command
LcdCls             CON     $51             ' clear LCD (use PAUSE 5 after)
CursorPS           con     $45             'Cursor Position
Backlight          con     $53             ' Backlighting 1-8
Contrast           con     $52             ' Contrast 1-50
Shit               var     byte
BTArray            var     byte[4]
Prefix1            var     byte
Prefix2            var     byte
Prefix3            var     byte
Prefix4            var     byte
RFCheck            var     bit

ADCON0.0=0                                                                                                 
ADCON1=%00001111      
Symbol Capture = PIR2.0 ' CCP2 capture flag
Symbol Overflow = PIR1.0
INTCON.7 = 1   
INTCON.6 = 1
CCP2CON = %00000101     ' Capture mode, capture on rising edge
T1CON = %00110011       ' TMR1 prescale=1, clock=Fosc/4, TMR1=on
ANSELA=%00000000
ANSELB=%00000000
ANSELC=%00000000

Low Discover
high lcd
low Baud
Low Master
Low CTS

pause 200
'GOSUB INITIALIZE  
'gosub Send_BT
do until STS=1
  'gosub RFOOff  
  pause 50
  toggle lcd 
loop
'GOSUB INITIALIZE
pause 100
 
CCPTMRS0.4=0            'CCP2 uses Timer1
CCPTMRS0.3=0            'CCP2 uses Timer1
PIE2.0=1                'CCPIE Enabled
IPR2.0=0                'Low PRiority Interrupt