$regfile = "2313DEF.dat"                                    'es handelt sich um einen ATmega8
$crystal = 8000000                                          'der eingebauter RC-Oszillator läuft mit 1 Mhz
$hwstack = 30                                               'im Speicher werden für den Hardware-Stack 100 Byte reserviert
$swstack = 30                                               'im Speicher werden für den Software-Stack 100 Byte reserviert
$framesize = 30                                             'im Speicher werden für den Frame 100 Byte reserviert


'Eingänge definieren
Config Portd.2 = Input                                      'Taster Vor
Config Portd.3 = Input                                      'Taster zurück
Config Pinb.0 = Input                                       'RC5 Signal

' Ausgänge Definieren
Config Pinb.2 = Output                                      'Rot
Config Pinb.3 = Output                                      'Grün
Config Pinb.4 = Output                                      'Blau
Config Pind.4 = Output                                      'Statusled Rot
Config Pind.5 = Output                                      'Statusled Blau

'Ein und Ausgänge Benennen
Rot Alias Pinb.2
Grun Alias Pinb.3
Blau Alias Pinb.4
Statrt Alias Pind.4
Statbl Alias Pind.5

Tastvor Alias Portd.2
Tastzur Alias Portd.3

Do

If Tastvor = 1 Then
Rot = 1
Grun = 0
Blau = 0
Statrt = 1
Statbl = 0
End If

If Tastzur = 1 Then
Rot = 0
Grun = 1
Blau = 0
Statrt = 0
Statbl = 1
End If

If Tastvor = 0 And Tastzur = 0 Then
Rot = 0
Grun = 0
Blau = 1
Statrt = 0
Statbl = 0
End If


Loop