$regfile = "m8def.dat"
$crystal = 8000000
$baud = 38400
$hwstack = 32

Dim Empfangen As String * 10

Config Portb.1 = Output
Config Portb.2 = Output
Config Portb.3 = Output

Print "Test"

   Do
      Input Empfangen

      If Empfangen = "LED1" Then
         If Portb.1 = 0 Then
            Portb.1 = 1
            Print "LED1 An"
         Else
            Portb.1 = 0
            Print "LED1 Aus"
         End If

      Elseif Empfangen = "LED2" Then
         If Portb.2 = 0 Then
            Portb.2 = 1
            Print "LED2 An"
         Else
            Portb.2 = 0
            Print "LED2 Aus"
         End If

      Elseif Empfangen = "LED3" Then
         If Portb.3 = 0 Then
            Portb.3 = 1
            Print "LED3 An"
         Else
            Portb.3 = 0
            Print "LED3 Aus"
         End If

      End If

   Loop
End