HATA NEREDE? ir to Pic

[ufuk0106]

Elimdeki sony kumandası ile pic çıkışlarını konrol etmek istiyorum. çalışmıyor. beslemeye kondansatörde koydum ama nafile...
sony TV button code:
Program:

Include "Modedefs.Bas"
   Define    OSC      4      
   Header      Var   Word          Packet      Var   Word          P_Val      Var   Byte           IR_But      Var   Byte      
   IR_Dev      Var   Byte      
   Sony_LP      Var   Byte      
   Red_LED      Var   PortB.0      
   Green_LED   Var   PortB.1      
   IR_Sensor   Var   PortA.2      

' ** THE MAIN PROGRAM LOOP STARTS HERE **
trisa=%00001111
Again:   Low Green_LED:Low Red_LED      
   Gosub IRIN            
   If IR_Dev=255 then goto Again      
   Serout PortA.3,N9600,[IR_Dev,IR_But]   
   If IR_Dev<>0 then goto Again      
   If IR_But=116 then High Green_LED   
   If IR_But=117 then High Red_LED      
               Pause 100            
   Goto Again            

IRIN:   IR_Dev=255:IR_But=255
   Pulsin PortA.2,0,Header         
       If Header < 200 then Return                   
       If Header > 270 then Return          

   For Sony_Lp=0 to 11         
   Pulsin PortA.2,0,P_Val         
   If P_Val >= 90 then          
   Packet.0[Sony_Lp]=1         
   Else             
   Packet.0[Sony_Lp]=0         
   Endif
   Next                
   IR_But=Packet & %01111111          IR_Dev=(Packet >>7) & %00011111          Return


Sony buton kodları:
001010010000:mute
010111010000:display
101010010000:power
100100010000:0
000000010000:1
100000010000:2
010000010000:3
110000010000:4
001000010000:5
101000010000:6
011000010000:7
111000010000:8
000100010000:9
001100010000:1-
101100010000:2-
011011010000:sleep
001111110000:select
011010010000:normal
001011110000:+
101011110000:-
101001010000:tv/video
010010010000:vol +
110010010000:vol -
000010010000:prog +
100010010000:prog -

[tnen]

Hocam programın basında yaptıgın

Header Var Word Packet Var Word P_Val Var Byte IR_But Var Byte  seklindeki tanımlamayı

Header Var Word
Packet Var Word
P_Val Var Byte
IR_But Var Byte

seklinde yapıp denedin mi acaba