Here is the code, the problem is there:
Code:
'-----------------Defines & Includes----------------
Include "modedefs.bas"
DEFINE	OSC	20

'------------------------Configuration Fuses-------------
#CONFIG
    ifdef PM_USED
        device  pic16F877A, xt_osc, wdt_on, lvp_off, protect_off
    else	
		__CONFIG _HS_OSC & _WDT_OFF & _LVP_OFF & _CPD_ON & _CP_ALL & _PWRTE_ON & _BODEN_ON
   endif
#ENDCONFIG


@ ERRORLEVEL -306			' SUPRESS PAGE BOUNDRY ERROR

'===================================
DEFINE HSER_RCSTA 90h ' Enable serial port & continuous receive
DEFINE HSER_TXSTA 24h ' Enable transmit, BRGH = 1
DEFINE HSER_SPBRG 64  ' 19200 Baud @ 20MHz, 0.16%
DEFINE HSER_CLROERR 1 ' Clear overflow automatically

'======================================
'--------------------REGISTERS-------------------------------
PAUSE 100
ADCON1=7						' No Analog
CMCON=7						
OPTION_REG=128
TRISA=0 : PORTA=0
TRISB=0 : PORTB=0	' Enter Button Input
TRISC=%10000000 : PORTC=0  ' One pin to get data
TRISD=%10000000 : PORTD=0
TRISE=0 : PORTE=0
CCP1CON=0

Name Var Byte[25]
Pass 	Var Byte
'--------------------------------------------------------------

Name=0 : Pass=0

Gain:
	HSERIN [STR Name\25\"*"] : Pause 250
	HSEROUT [STR Name,"*"]
For pass=0 to 24
	Name[pass]=0
next pass
Goto Gain