Agreed, to upgrade to bigger chip is probably the best way.
If you just need to try a little more room, you could try taking out your graphics:

cut out:
Code:
BorderLine: 
'=================================== UP
                LcdReg  =  %10000000            ' cursor  X  
               call    PrintCtrlLcd
                LcdReg  =  %01000000            ' cursor  Y
               call    PrintCtrlLcd
                 for y = 0 to 73                   
      LOokup y, [$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$3F,$3F,$21,$21,$3F,$1E,$00,$3F,$3F,$00,_
		     $1E,$3F,$21,$29,$3B,$1A,$00,$3F,$3F,$00,_
                 $01,$01,$3F,$3F,$01,$01,$00,$3E,$3F,$09,$09,$3F,$3E,$00,_
                 $3F,$3F,$20,$20,$20,_
                 $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,_
		     $18,$27,$27,$18,$00,$00,$00,$00,$06,$06,_
		     $00,$1E,$3F,$21,$21] ,LcdReg   

'                 for y = 0 to 83                   
'      LOokup y, [$01,$01,$01,$01,$01,$01,$01,$01,_
'                 $01,$01,$01,$01,$01,$01,$7F,$7F,$43,$43,$7F,$3D,$01,$7F,$7F,$01,_            'DI
'                 $3D,$7F,$43,$53,$77,$35,$01,$7F,$7F,$01,$03,$03,$7F,$7F,$03,$03,$01,_        'GIT
'                 $7D,$7F,$13,$13,$7F,$7D,$01,$7F,$7F,$41,$41,$41,$01,$01,$01,$01,$01,_        'AL
'  		     $01,$01,$01,$31,$4F,$4F,$31,$01,$01,$01,$0D,$0D,$01,$3D,$7F,$43,$43,$43,_
'		     $01,$01,$01,$01,$01,$01,$01,01] ,LcdReg       
   
                   call    PrintDataLcd
                    next y

 
'===================================  DOWN                
'		    LcdReg  =  %10000000            ' cursor  X  
'               call    PrintCtrlLcd
'                LcdReg  =  %01000101            ' cursor  Y
'               call    PrintCtrlLcd
'                 for y = 0 to 83 
'      LOokup y, [$80,$80,$80,$80,$80,$80,$FE,$CA,$CA,$B4,$80,$8E,$D0,$D0,$BE,_          'BY      
'		     $80,$80,$80,$80,$FE,$88,$90,$FE,$80,$FE,$80,$BC,$C2,$C2,$A4,_          'NIC
'                 $80,$BE,$C0,$C0,$BE,$80,$FE,$C0,$C0,$C0,$80,$FE,$CA,$CA,$C2,_          'ULE
'	           $80,$A4,$CA,$CA,$B0,$80,$BC,$C2,$C2,$A4,$80,$BE,$C0,$C0,$BE,_          'SCU
'		     $80,$80,$80,$80,$FE,$C2,$C2,$BC,$80,$FC,$92,$92,$FC,$80,$FE,_          'DAN
'		     $88,$90,$FE,$80,$80,$80,$80,$80,$80] ,LcdReg             
'
'                   call    PrintDataLcd
'                    next y 
       return

 '=================================== end of BorderLine