$regfile = "Attiny26.dat"
$crystal = 1000000

Dim Hell As Word
Dim An As Word
Dim Aus As Word
Dim Pressed As Word
Dim Neu As Word
Dim Heller As Word
Dim Dunkler As Word
Dim Pwm As Word
Dim Analog As Word
Dim Dimm As Word

' Festlegen der Starthelligkeit beim antippen des Tasters
' 0=Dunkel, 255=Hell
Const Starthelligkeit = 255

Config Portb.0 = Output
Config Portb.6 = Input

Tccr1a = &B01010011 : TCCR1B = &B10000101 : OCR1C = 255

Ocr1a = 255 : Portb.6 = 1

An = 0 : Neu = 0 : Pwm = 255
Hell = 255 - Starthelligkeit
Dunkler = Hell
If Dunkler = 0 Then Dunkler = 255

Do
  If Pinb.6 = 0 Then
    Incr Pressed : Waitms 1 : Neu = Heller
  End If
  If Pwm = 0 Then Heller = 0
  If Pwm = 255 Then Heller = 1
  If Pressed > 250 Then
    If Heller = 0 Then Incr Pwm Else Decr Pwm
    Waitms 30
  End If
  If Pinb.6 = 1 And Pressed > 0 And Pressed < 250 Then
  If Pressed < 50 Then
    If Pwm = 0 Then
      Do
        Incr Pwm : Ocr1a = Pwm : Waitms 5
        Pressed = 0 : Neu = 1 : An = 1
      Loop Until Pwm = Dunkler Or Pinb.6 = 0
    Else
      Do
        Decr Pwm : Ocr1a = Pwm : Waitms 5
        Pressed = 0 : Neu = 0 : An = 1
      Loop Until Pwm = 0 Or Pinb.6 = 0
    End If
  Elseif An = 1 Then
    Do
      Incr Pwm : Ocr1a = Pwm : Waitms 5
      Pressed = 0 : Neu = 1 : An = 0
    Loop Until Pwm = 255 Or Pinb.6 = 0
  Else
    Do
      Decr Pwm : Ocr1a = Pwm : Waitms 5
      Pressed = 0 : Neu = 0 : An = 1
    Loop Until Pwm = Hell Or Pinb.6 = 0
  End If
  If Pinb.6 = 0 Then Pressed = 250
  Elseif Pressed > 0 And Pinb.6 = 1 Then
    If Neu = 1 Then Heller = 0
    If Neu = 0 Then Heller = 1
    Pressed = 0 : Waitms 100
  End If
  If Pwm = 255 Then An = 0 Else If Aus > 5 Then An = 1
  Incr Aus : Ocr1a = Pwm
Loop