$regfile = "m8def.dat"
$crystal = 3686400
$baud = 9600

Config Rc5 = Pind.3
Portd.3 = 1

Enable Interrupts

Dim Adresse As Byte , Command As Byte
Dim Flag As Bit
Open "COMD.6:9600,8,N,1,inverted" For Output As #1
Flag = 1

Do

   Getrc5(adresse , Command)
   If Flag = 1 Then
      Print "Wait for command"
      Flag = 0
   End If
   If Adresse <> 255 Then
      Reset Command.7
      Cls
      Print "Adresse: " ; Adresse ; " Command: " ; Command  'Ausgabe an den PC
      Flag = 1
      Portd.4 = 1                                           'Relais Schalten
      Print #1 , Adresse                                    'Tastencode senden


   End If
Loop

End