Das was du für verwirrende Zeichen gesehen hast kann aber der yc durch Bascom leicht umsetzen:

--> Config Rc5 = Pinb.0

--> Getrc5(address , Command)

Code:
Code:
============================================= 
'     Infrartot - Fernbedinung - LCD Adress and Comand 
'============================================= 

$regfile = "m8def.dat" 
$crystal = 8000000 

Config Pinb.0 = Input 
Config Rc5 = Pinb.0              'Einfach ne Fotodiode zwischen Masse und PinB.0 

Portb.0 = 1                                                 'Pullup aktivieren 

Enable Interrupts 

Dim Address As Byte , Command As Byte , Dispon As Bit 

Initlcd 
Cls 
Initlcd 
Cls 
Home Upper 
Lcd "Waiting for RC5" 

Dispon = 1 

Do 
  Getrc5(address , Command) 
  Home Lower 
  Lcd "---No Command---" 
  If Address <> 255 Then 
     'clear the toggle bit 
     'the toggle bit toggles on each new received command 
     'toggle bit is bit 7. Extended RC5 bit is in bit 6 
     Command = Command And &B01111111 
     Home Lower 
     Lcd "-- " ; Address ; " -- " ; Command ; " --" 

     If Command = 12 Then 
       Dispon = Not Dispon 
       If Dispon = 1 Then 
         Display On 
       Else 
         Display Off 
       End If 
     End If 

     Wait 1 
  End If 
  Waitms 10 
Loop 
End
Wie ich schon gesagt habe ist eigentlich ne ziemlich einfache Angelegenheit. zu Test hat bei mir im dunklen Raum sogar schon ein einfacher Fototransistor von Masse zu PinB.0 gereicht !