'Marktdaten
      Dim strSecType, strExpiry, strStrike, strRight, strMultiplier, _
        strExchange, strPrimaryexchange, strCurency, strSymbol As String
      Dim strCLSecType, strCLExpiry, strCLExchange, strCLCurency, strCLSymbol _
      As String
      Public LOGID As Integer
 
      Public inRicht As Integer
      Dim inSteigend, inHoch, inTief, inUmschalten, inDataviewEnde, inOID, _
        inDataRowsA, inCLMenge, inCLPosO, inCLButton, inCLPPos As Integer
      Public doKurs, doHochK, doReaktK, doTiefK, doRalleyK, doSchwankung, _
      doGespwert, siSW, doPreis, doPoSTP, doPosZiel, doCLZiel1, doCLGew, _
      doCLGueltig As Double
      Dim doStopp, doCLHoch, doCLHoch1, doCLTief, doCLTief1, doCLBreak, _
      doCLAHoch, doCLATief, doCLFill, doCLZiele(4), doCLZielSum, doCLTVolaZZu, _
      doCLTVolaUm As Double
      Public anaus, inAutomatanaus, inCLHo, inCLTi, inCLVerlust, inCLGewinn, _
      inCLGewS, inCLVerl, inCLVerlustS, inCLGewinnS, inCLZielZ, inCLVEin, inAn, _
      inCLRichtZUm As Integer
      Dim inCLLongZ, inCLShortZ, inCLLongAusl, inCLShortAusl, inCLSpitzmax, _
      inCLZaehler, inCLHerkunft, inCLMengeStandard, inCLMGewanaus As Integer
      Dim doCLGewS(4), doCLPruefS, doCLVMax, doCLVMaxGew, doCLGewSumme, _
      doCLTickWert, doCLTWSFill, doCLMGewSumme As Double
      Dim strCLOB, strCLOA As String
      Public boCLUmsch, boCLBreak, boCLDrehen, boCLFSuche, boCLFSucheDrehen, _
        boCLEinmal, boCLHo, boCLTi, boCLNureinmal, boCLVDrehen, boCLV, _
        boCLZaehleranaus As Boolean
      Dim inDBEnde As Integer