Code:
$regfile = "m32def.dat"
$baud = 38400

$crystal = 14500000


$hwstack = 32                                               ' default use 32 for the hardware stack
$swstack = 10                                               ' default use 10 for the SW stack
$framesize = 40




Dim B1 As Byte

Config Porta.0 = Output
Config Porta.1 = Output

Led1 Alias Porta.0                                          'Port A0 für LED1
Led2 Alias Porta.1                                          'Port A1 für LED2


Do
 B1 = Inkey()                                               'first UART


If B1 <> 0 Then

    If B1 = 65 Then Set Led1                                'A LED1 an
    If B1 = 66 Then Set Led2                                'B LED2 an
    If B1 = 67 Then                                         'C beide aus
      Reset Led1
      Reset Led2
    End If

End If





Loop
End
edit: Fenster zu lange offen gehabt... Ich lass es trotzdem drin