Ist aus der Hilfe von Bascom kopiert:
Code:
$regfile = "2313def.dat"
$crystal = 4000000

Dim Togbit As Byte , Command As Byte , Address As Byte

Command = 12                                                ' power on off
Togbit = 0                                                  ' make it 0 or 32 to set the toggle bit
Address = 0
Do
   Waitms 500
   Rc5send Togbit , Address , Command
Loop

End
Gruß, Trabukh