Hello,

I'm using the following configuration:

1 PIC 16F876A
PIC Basic PRO 3 (demo)

Why does the uC only runs this code one time. It does not loops it:

Code:
Include     "modedefs.bas"

Define  OSC             20

STATUSLED           VAR         PORTC.4             ' Rode LED
BUZZER              VAR         PORTC.7             ' Buzzer
ReedContact         VAr         PORTC.0             ' Reed contact voor starten dot
Power_On            VAR         PORTC.1             ' Overname contact power
Power_XBEE          VAR         PORTB.0
Power_RFID          VAR         PORTB.3

XBEE_RX             VAR         PORTB.2             ' Serial data vanaf XBEE
XBEE_TX             VAR         PORTB.1             ' Serial data naar XBEE 

RFID_RX             VAR         PORTB.4             ' Seriele data vanaf de RFID lezer
RFID_TX             VAR         PORTB.5             ' Seriele data naar de RFID lezer

i                   VAr         BYTE                ' Globale teller

received_date       VAR         BYTE[16]  


x                   var         BYTE[20]
y                   VAR         BYTE

CRC                 VAR         BYTE                ' CRC over RFID data
CRC_TOT             VAR         BYTE                ' CRC over totale data

'===============================================================================
' Init
'===============================================================================
Init:

    HIGH Power_On
    
    high Power_XBEE  
    

    for x  = 0 to 20
        serout XBEE_TX, T9600,["X2 = ",#x,13,10]    '9600 inverted    
        pause 500

    next x    
    
Goto Main

'*******************************************************************************
' Main:
'*******************************************************************************
Main:

    HIGH STATUSLED
    pause 500
    
    Serout2 RFID_TX,16416,[$AA,$BB,$02,$20,$22]             ' Read Card Command

    SERIN2 RFID_RX,16416,100,Check_data,[received_date[0]]    ' Receive data
    

Goto Main

'*******************************************************************************
' Check_Data:
' 1. Controle op gelezen data
' 2. Controle of kaart anders is dan vorige keer
' 3. Indien nieuwe kaart schrijf deze in Temp Card Data
'*******************************************************************************
Check_Data:

    serout XBEE_TX, T9600,["CHECK DATA",13,10]    '9600 inverted 
  LOW STATUSLED 
  pause 500
RETURN