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

Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc

Config Portb = Output                                       'PortB als Ausgang

Dim Poti As Word                                            'ADC Wert des Potis
Dim Schritt As Byte                                         'aktueller Schritt
Schritt = 0
Dim Pause As Word                                           'Verweildauer im aktuellen Schritt


   Do
      Poti = Getadc(5)                                      'Poti an PC5 /Wert einlesen

      If Poti > 537 Then
         Schritt = Schritt + 1                              'Schritt hoch zählen (Rechtsdrehung)
         If Schritt = 5 Then Schritt = 1
         Pause = 1023
         Pause = Pause - Poti

      Elseif Poti < 486 Then
         Schritt = Schritt - 1                              'Schritt runter zählen (Linksdrehung)
         If Schritt = 0 Then Schritt = 4
         Pause = Poti

      End If

      Select Case Schritt
         Case 1 : Portb = &B00000010                        'PB1 aktiv
         Case 2 : Portb = &B00000100                        'PB2 aktiv
         Case 3 : Portb = &B00001000                        'PB3 aktiv
         Case 4 : Portb = &B00010000                        'PB4 aktiv
      End Select

      Waitms Pause                                          'Verweildauer

   Loop

End                                                         'end program