$regfile = "m88def.dat"
$crystal = 8000000
$hwstack = 100

' Ausgänge

Led1 Alias Portb.1
Config Led1 = Output

Led2 Alias Portb.2
Config Led2 = Output

Led3 Alias Portb.3
Config Led3 = Output

' Eingänge

Lauter Alias Pind.3
Config Lauter = Input
Lauter = 1

Leiser Alias Pind.2
Config Leiser = Input
Leiser = 1

Dim Lautstaerke As Byte

' Variablen
Lautstaerke = 2

' Ewige Hauptschleife
Do
  If Lauter = 0 Then
    Lautstaerke = Lautstaerke + 1
    Gosub Laut
    Elseif Leiser = 0 Then
    Lautstaerke = Lautstaerke - 1
    Gosub Laut
  End If
  Wait 1 ' vor nächster Auswertung 1s Warten
Loop

'
Laut:
  if Lautstaerke < 1 then
    Lautstaerke = 1
  End If

  if Lautstaerke > 3 then
    Lautstaerke = 3
  End If

  If Lautstaerke = 1 Then
    Set Led1
    Reset Led2
    Reset Led3
  End If

  If Lautstaerke = 2 Then
    Set Led1
    Set Led2
    Reset Led3
  End If

  If Lautstaerke = 3 Then
    Set Led1
    Set Led2
    Set Led3
  End If
Return

End