here you go:


Code:
 
'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2011 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 5/23/2011                                         *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
'include "ALLDIGITAL.pbp"
@ DEVICE pic16F877a, WDT_OFF  ' Watchdog Timer
@ DEVICE pic16F877a, PWRT_OFF  ' Power-On Timer
@ DEVICE pic16F877a, BOD_OFF  ' Brown-Out Detect
@ DEVICE pic16F877a, LVP_OFF  ' Low-Voltage Programming
@ DEVICE pic16F877a, CPD_OFF  ' Data Memory Code Protect
@ DEVICE pic16F877a, PROTECT_OFF ' Program Code Protection
@ DEVICE pic16F877a, HS_OSC  
Define OSC 20 
cmcon=2
Header var word
Body var word
i var byte
tmp var Byte
irButton var byte
irDevice var byte 
irIN var PortB.2 
SonyLED var PortB.5 
'TrisA = %00000100 
TrisB = %00000100 
Start:
LOW SONYLED 
IRBUTTON=255: IRDEVICE=255
 
Pulsin irin,0,header 
if header < 1000 or header > 1350 then goto Start
 
check: 
for i =0 to 11
pulsin irin,0,tmp 
if tmp >= 500 then
Body.0[i]=1 'Sony Logic 1 is 120
else
Body.0[i]=0 ' Sony Logic 0 is 60
endif
next
IRBUTTON = Body & %01111111
if IRBUTTON <=9 then
loop:
toggle Sonyled       '<----------------------change!
 
endif
pause 100
goto start