Code:
<html>
<head></head>
<body><!--StartFragment--><pre><code><font color="#008000"><i>'****************************************************************
'*  Name    : Reciver.BAS                                       *
'*  Author  : Fredrick                                          *
'*  Notice  : Copyright (c) 2008                                *
'*          : All Rights Reserved                               *
'*  Date    : 2008-02-13                                        *
'*  Version : 2008-02-16                                        *
'*  Notes   : PIC16F872 @ 20 MHz                                *
'*                                                              *                                                              *
'*                                                              *
'****************************************************************
</i></font>ADCON1 = <font color="#808080">7 </font><font color="#008000"><i>' Alla digitala
</i></font><font color="#000080">DEFINE </font>OSC <font color="#808080">20
</font><font color="#000080">DEFINE </font>LCD_COMMANDUS <font color="#808080">3000   </font><font color="#008000"><i>'Set command delay time in us
</i></font><font color="#000080">DEFINE </font>LCD_DATAUS <font color="#808080">200       </font><font color="#008000"><i>'Set data delay time in us
</i></font><font color="#000080">DEFINE </font>DEBUG_BAUD <font color="#808080">2400 
</font><font color="#000080">DEFINE </font>DEBUG_MODE <font color="#808080">0
</font><font color="#000080">DEFINE </font>DEBUG_REG PORTC
<font color="#000080">DEFINE </font>DEBUG_BIT <font color="#808080">7   </font><font color="#008000"><i>'PORTC.7 OLIMEX RS232Board
</i></font><font color="#000080">INCLUDE </font><font color="#FF0000">&quot;modedefs.bas&quot;
</font>ReciverPIN <font color="#000080">VAR </font>PORTC.<font color="#808080">0
</font>Check1 <font color="#000080">VAR BYTE
</font>Check2 <font color="#000080">VAR BYTE
</font>Counter <font color="#000080">VAR BYTE
</font>Errors <font color="#000080">VAR WORD


CLEAR
PAUSE </font><font color="#808080">500
</font><font color="#000080">LCDOUT </font><font color="#808080">$FE</font>,<font color="#808080">1

</font>Main:
    <font color="#000080">SERIN </font>ReciverPIN,N2400,<font color="#808080">100</font>,NoSignal,[<font color="#808080">$55</font>,<font color="#808080">$55</font>,<font color="#808080">$55</font>,<font color="#808080">63519</font>],Counter,Check1,Check2
    
    <font color="#000080">IF </font>Check1 = <font color="#808080">121 </font><font color="#000080">AND </font>Check2 = <font color="#808080">212 </font><font color="#000080">THEN 
        GOSUB </font>LCD
    <font color="#000080">ELSE
       GOSUB </font>NoSignal
    <font color="#000080">ENDIF
        
GOTO </font>Main

LCD:
    <font color="#000080">LCDOUT </font><font color="#808080">$FE</font>,<font color="#808080">$80</font>, #Counter, <font color="#FF0000">&quot;    &quot;
    </font><font color="#000080">DEBUG </font>#Counter, <font color="#808080">13</font>,<font color="#808080">10    
    </font>Check1 = <font color="#808080">0  
    </font>Check2 = <font color="#808080">0
</font><font color="#000080">GOTO </font>Main

NoSignal:
    Errors = Errors + <font color="#808080">1

    </font><font color="#000080">LCDOUT </font><font color="#808080">$FE</font>,<font color="#808080">$C0</font>, <font color="#FF0000">&quot;ERROR:&quot;</font>,#Errors,<font color="#FF0000">&quot; &quot;</font>,#Check1,<font color="#FF0000">&quot; &quot;</font>,#Check2
    <font color="#000080">DEBUG </font>#Counter, <font color="#FF0000">&quot;ERROR:&quot;</font>,#Errors,<font color="#FF0000">&quot; &quot;</font>,#Check1,<font color="#FF0000">&quot; &quot;</font>,#Check2, <font color="#808080">13</font>,<font color="#808080">10
    </font>Check1 = <font color="#808080">0
    </font>Check2 = <font color="#808080">0 
</font><font color="#000080">GOTO </font>Main
<font color="#000080">END 
</font></code></pre><!--EndFragment--></body>
</html>