Ich habs...

Code:
   If Command = 1 And Address = 5 Then
      Motor = 1
      Printbin #1 , Motor
   Else
      Motor = 2
      Printbin #1 , Motor
Code:
Do
Motor = Inkey(#1)
   If Motor > 0 Then
      If Motor = 1 Then
         Relais_motor_links = 1
      End If

      If Motor = 2 Then
         Relais_motor_links = 0
      End If
   End If
Loop