Code:
 $regfile = "m8def.dat"
 $crystal = 7372800
 $baud = 9600

 $hwstack = 40   ' Stack für Gosubs...
 $swstack = 40


 Dim S As String * 10
 Dim B(11) As Byte At S Overlay
 Dim N As Byte
 config portx = output


Do

   n = inkey
   If N > 0 Then
      gosub empfangen
   End If

Loop
end

empfangen:

      select case n
             case 49
                  reset portx ' port x komplett abschalten, wenn eine 0 empfangen wurde.
             case 49
                  set portx.y 'portx.y stzen, wenn eine 1 empfangen wurde
             case 50
                  set portx.y 'portx.y setzen, wenn eine 2 empfangen wurde
      end select
      print n
return