i write this code
but the program run in loop why


'************************************************* ******************************
@ device WDT_OFF, MCLR_OFF, HS_OSC, BOD_OFF, PWRT_ON, CPD_OFF, LVP_OFF
'************************************************* ******************************
INCLUDE "modedefs.bas"
DEFINE OSC 20
DEFINE HSER_RCSTA 90h
DEFINE HSER_TXSTA 24h
DEFINE HSER_BAUD 9600
DEFINE HSER_CLROERR 1

CMCON = 7
VRCON = 0



' ************************************************** ****************************
INIT:
Pause 2000

LOOP:
Pause 500
HSerout ["AT*EIPS=1,1",13]
Pause 500

HSerin 2000,APRI,[WAIT ("*ELIP:")]

APRI:
High PORTB.4
Pause 1000
Low PORTB.4
Pause 15000
GoTo LOOP


End