;Kreuz zeichnen
         If MouseHit(1) And KeyDown(2) Then
            neueskreuz.Kreuz=New kreuz
            neueskreuz\ykreuz= MouseY()
            neueskreuz\xkreuz= MouseX()
         EndIf
            For aktuelleskreuz.kreuz = Each kreuz
               DrawImageRect Kreuz, aktuelleskreuz\xkreuz-8,aktuelleskreuz\ykreuz-8,9,89,24,103
               Line 23,450,aktuelleskreuz\xkreuz,aktuelleskreuz\ykreuz
            Next

Function MathToString$(TheMath$, unit = 0, x# = 0.0)
   
  Local MyParam$ = "*/^+-",myOperations$="ls" ;ls, da die beiden buchstaben in log,lgn,cos und sin vorkommen
  Local MathPower#, OldMathPower#
  Local deMathScan$, ScanNumber$, OldScanNumber$, MathScan$, MyScanText$, MathArt$
  Local bscan, bscannow, bscanhave, ScanPosA, ScanPosB, Scan, MathAnswer#
  MathScan$ = Replace(TheMath$, " ", "")

  While bscan < Len(MathScan$)             ;Solange bscan kleiner als die Länge der Formel ist
    bscan = bscan + 1                ;Bscan + 1
    If Mid$(MathScan$, bscan, 1) = "(" Then       ;Wenn an der Pos Bscan ein ( steht, dann...
      ScanPosA = bscan : bscannow = 1             ;ScanPosA = Pos der Klammer, bscannow = 1
      While bscannow                   ;Solange bscannow nicht 0 ist
       If Mid$(MathScan$, bscan, 1) = "(" Then bscanhave = bscanhave + 1;ist auf der Pos ne (? --> bscanhave + 1
       If Mid$(MathScan$, bscan, 1) = ")" Then bscanhave = bscanhave - 1;oder ne )? --> bscanhave - 1
       If bscanhave = 0 Then bscannow = 0             ;wenn die Richtige klammer wieder zu ist, gehts weiter
       bscan = bscan + 1                   ;incrementieren nicht vergessen
       If KeyDown(1) Then End                   ;ESC für Abbrechen
      Wend                      ;Ende Solange bscannow nicht 0 ist

      ScanPosB = bscan                   ;ScanPosB = Pos der schließenden Klammer

      MyScanText$ = Mid$(MathScan$, ScanPosA+1, ScanPosB - ScanPosA - 2);Inhalt der Klammer entnehmen

      MyScanText$ = MathToString$(MyScanText$, unit + 1)   ;Rekursion, die Func wird mit dem Inhalt der Klammer neu ausgeführt
      MathScan$ = Replace(MathScan$, Mid$(MathScan$, ScanPosA, ScanPosB - ScanPosA), MyScanText$);Ergebnis dann einfügen
      bscan = 0                     ;Bscan ist wieder 0
    End If                   ;Ende Wenn and der Pos Bscan ein ( steht, dann...

    If KeyDown(1) Then End             ;Wenn ESC, bla bla bla...
  Wend                      ;Ende Solange bscan kleiner als die Länge der Formel ist

  .NewMathScan

  deMathScan$ = MathScan$            ;Kopie von MahthScan$ erstellen
  Scan = InMid$(MathScan$, MyParam$)         ;Inhalt von der Formel nach Operatoren untersuchen (*+-^ usw)
  If Scan Then                  ;Wenn es welche gibt, dann...
    ScanNumber$ = Mid$(MathScan$, 1, Scan-1)         ;Die erste Zahl herausfischen --> ScanNumber$
    MathScan$ = Mid$(MathScan$, Scan)            ;Operator herausfischen --> MathScan$
    MathAnswer = val2(ScanNumber$,x#)            ;Ich nehme einfach mal an, MathScan in Integerform
  Else                     ;Wenn es keine Operatoren gib
      Scan = InMid$(MathScan$,MyOperations$);dann vielleicht etwas wie sin oder cos?
      if scan then
         Return val2(Mathscan$,x#)
      else
         return Mathscan$
      endif         
  End If                  ;Ende Wenn es Operatoren gibt, dann....

  While Not MathScan$ = ""            ;Solange unsere Formel nicht leer ist
    uu$ = MathScan$                  ;schon wieder eine Kopie von MathScan$

    MathArt$ = Mid$(MathScan$, 1, 1)            ;MathArt$ = erstes Zeichen aus der Formel
    MathScan$ = Mid$(MathScan$, 2)            ;MathScan$ = der Rest der Formel

    If Mid$(MathScan$,1,1) = "-" Then            ;Wenn das erste Zeichen ein - ist (negatives Vorzeichen)
      MathPower# = -1                     ;dann stelle Mathpower auf -1
      MathScan$ = Mid$(MathScan$, 2)               ; MathScan$ mal wieder den Rest zuorden
    Else                     ;Wenn nicht...
      MathPower# = 1                     ;MathPower auf +1 stellen
    End If                     ;Ende

    Scan = InMid$(MathScan$, MyParam$)            ;Scan = Pos des Operanten (Glaub ich!!!)
    OldScanNumber$ = ScanNumber$            ;Kopie von ScanNumber$ erstellen
    OldMathPower# = MathPower#               ;Kopie von Mathpower#  erstellen
    ScanNumber$ = Mid$(MathScan$, 1, Scan-1)         ;ScanNumber$ = Die Nummer vor dem Zeichen

    MathScan$ = Mid$(MathScan$, Len(ScanNumber$)+1)      ;MathScan ist das Zeichen Nach der Nummer

    If MathArt$ = "+" Then; Addieren
       MathAnswer = MathAnswer + (val2(ScanNumber$,x#)*MathPower#)  ;Lösung = Zahl * (-1 oder 1)
    ElseIf MathArt$ = "-" Then;Subtrahieren
       MathAnswer = MathAnswer - (val2(ScanNumber$,x#)*MathPower#)
    ElseIf MathArt$ = "*" Then;Multiplizieren
       MathAnswer = (val2(OldScanNumber$,x#)*OldMathPower#) * (val2(ScanNumber$,x#)*MathPower#)
       If MathPower# = -1 Then
         MathScan$ = Replace(deMathScan$, OldScanNumber$ + "*-" + ScanNumber$, "-" + Str$(MathAnswer))
       ElseIf MathPower# = 1 Then
         MathScan$ = Replace(deMathScan$, OldScanNumber$ + "*" + ScanNumber$, Str$(MathAnswer))
       End If
       Goto NewMathScan
    ElseIf MathArt$ = "/" Then;Dividieren
       MathAnswer = (val2(OldScanNumber$,x#)*OldMathPower#) / (val2(ScanNumber$,x#)*MathPower#)
       If MathPower# = -1 Then
         MathScan$ = Replace(deMathScan$, OldScanNumber$ + "/-" + ScanNumber$, "-" + Str$(MathAnswer))
       ElseIf MathPower# = 1 Then
         MathScan$ = Replace(deMathScan$, OldScanNumber$ + "/" + ScanNumber$, Str$(MathAnswer))
       End If
       Goto NewMathScan
    ElseIf MathArt$ = "^" Then;x hoch n
       MathAnswer = (val2(OldScanNumber$,x#)*OldMathPower#) ^ (val2(ScanNumber$,x#)*MathPower#)
       If MathPower# = -1 Then
         MathScan$ = Replace(deMathScan$, OldScanNumber$ + "^-" + ScanNumber$, "-" + Str$(MathAnswer))
       ElseIf MathPower# = 1 Then
         MathScan$ = Replace(deMathScan$, OldScanNumber$ + "^" + ScanNumber$, Str$(MathAnswer))
       End If
       Goto NewMathScan
    Else;Nichts von alle dem?
       Return "SYNTAX ERROR"
    End If
  Wend

  Return Str(MathAnswer)
End Function

Function InMid$(A$, B$);Durchsucht, ob in A irgendetwas von B drin ist
Local C, Q, W          ;und gibt, wenn true, die pos[A] zurück
  C = 0
  For Q = 1 To Len(A$)
    For W = 1 To Len(B$)
      If (Mid$(A$, Q, 1) = Mid$(B$, W, 1)) And C = 0 Then C = Q : Exit
    Next
    If C>0 Then Exit
  Next
  Return C
End Function

Function val2#(sstring$,var#) ;String wird übergeben - Float zurückgegeben
Local temp#=0,decimal=0,sign=1
Local posa,posb,char ;positionen von eventuellen zeichen
Local base=10
local negative ; zahl negative? dann var auf true
local operation = 0

select mid(sstring$,1,3)
      case "log","lgn","cos","sin"
          operation = 1
         posa = 3
end select

if Instr(sstring$,"-",1) <> 0 then negative=-1

posb=Instr(sstring$,"&",posa+1);wenn ein *&* davor steht, wird in einem anderen System gerechnet
If posb Then
  Select Mid$(sstring$,posa+1,1);welches System willst du haben?
  Case "B", "b"                 ;Anzubieten haben wir Binär,Oktan,oder Hexansystem
    base=2                      ;Natürlich auch das zehnersystem!!
    posa=posb+1
  Case "O", "o"
    base=8
    posa=posb+1
  Case "H", "h"
    base=16
    posa=posb+1
  Default
    base=10
  End Select
End If

For posb=posa+1 To Len(sstring$);die ganze zahl durchrattern mit posb
  char=Asc(Mid(sstring$,posb,1));c speichert den buchstaben
  Select char
  Case 44          ;","
    Goto skip
  Case 45          ;"-"
    sign= - sign
  Case 46          ;"."
    decimal=1
  Case 48,49,50,51,52,53,54,55,56,57   ;"0" To "9"
    temp# = temp * base + char - 48
    If decimal Then decimal=decimal*base
   case 88,120              ;"X" oder "x"
      temp# = temp * base + var
  Case 65,66,67,68,69,60    ;"A" to "F"
    If base=16 Then
      temp# = temp# * base + c - 55
      If decimal Then decimal=decimal*base
    Else
      Goto fini
    EndIf
  Case 97,98,99,100,101,102   ;"a" to "f"
    If base=16 Then
      temp# = temp# * base + c - 87
      If decimal Then decimal=decimal*base
    Else
      Goto fini
    EndIf
  Default
    Goto fini
  End Select
.skip
Next

.fini
If decimal Then temp# = temp# / decimal

If negative = -1 Then
  temp# = -(temp# * sign)
Else
  temp# = temp# * sign
End If

if operation then
   select mid(sstring$,1,3)
      case "log"
         temp# = log10(temp#)
      case "Lgn"
         temp# = log(temp#)
      case "cos"
         temp# = cos(temp#)   
      case "sin"
         temp# = sin(temp#)   
   end select
endif

return temp#

End Function