Alles klar, ich glaube ich habs.
Stelle den code mal rein. Dann kannst du bze ihr euch das ja mal angucken.
Von 91% auf bis jetzt 16% runter programmiert!
Ohne den Aufruf der Print Befehle sogar nur 7%, also die reine Berechnung.

gute Nacht

Code:
$regfile = "m8def.dat"
$crystal = 3686400
$baud = 9600


Dim Volt As Integer
Dim Ist As Integer
Dim Ist2 As Integer
Dim Istwert As Integer
Dim Tempwert As Byte
Dim Maxwert As Integer
Dim Minwert As Integer
Dim Differenz As Integer
Dim Abstand As Integer
Dim Differenz5 As Integer
Dim Abstand5 As Integer
Dim Temperatur As Integer

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

Do
   Ist = -1

      Do
         Minwert = Lookup(ist , Dta)
         Volt = Getadc(0)
         Incr Ist
         Maxwert = Lookup(ist , Dta)
      Loop Until Volt <= Maxwert

   Tempwert = Ist * 5
   Tempwert = 20 + Tempwert
   Differenz = Maxwert - Minwert
   Abstand = Maxwert - Volt
   Differenz5 = Differenz / 5
   Abstand5 = Abstand / Differenz5
   Temperatur = Tempwert - Abstand5
   Print "                  Zähler: " ; Ist
   Print "    Temperatur Grundwert: " ; Tempwert
   Print "            Analogsignal: " ; Volt
   Print "             Maximalwert: " ; Maxwert
   Print "             Minimalwert: " ; Minwert
   Print "               Differenz: " ; Differenz
   Print "     Abstand zum Maximum: " ; Abstand
   Print "        Differenz durch5: " ; Differenz5
   Print " Abstand durch differen5: " ; Abstand5
   Print "           Isttemperatur: " ; Temperatur
   Print
   Wait 2
Loop
End

Dta:
Data 515% , 567% , 616% , 662% , 705% , 744% , 779% , 811% , 838% , 862% , 882% , 900% , 916% , 929% , 941% , 951% , 959% , 966% , 973% , 978% , 983% ,