static double Open8, Close8, LastOpen8; // when found fixed value
   static string DayOfiTDate, DayOfiYDate, // DateOfToday/YesterdayForIndexNo
                 Start8, Stop8;
   static int    DayOfiWkDay, clos8shift;

   for(int i=limit; i>=0; i--)
   {
      DayOfiWkDay=TimeDayOfWeek(Time[i]); //CurrentWeekdayofIndexnummber
      //Print(" DayOfiWkDay=",DayOfiWkDay);
      
      if(DayOfiWkDay>=WEEKSTART && DayOfiWkDay<=WEEKSTOP)     //Mo-Fr
      {
         // =================================================================== Calculation
         DayOfiTDate=TimeToString(Time[i],TIME_DATE);        //yyyy.mm.dd Today
         DayOfiYDate=GetYesterdate(DayOfiTDate,DayOfiWkDay); //yyyy.mm.dd Yesday
         clos8shift=iBarShift(NULL,PERIOD_D1,StringToTime(DayOfiYDate));
         //Print(" DayOfiYDate=",DayOfiYDate," clos8shift=",(int)clos8shift);
         
         Start8=DayOfiTDate+" "+H8START; //yyyy.mm.dd 08:00
         Stop8 =DayOfiTDate+" "+H8STOP;  //yyyy.mm.dd 22:00
         // ======================== 8lines values
         if( Time[i]==StringToTime(Start8) )
         {  
            Open8=Open[i];
            LastOpen8=iOpen(NULL,PERIOD_D1,clos8shift); //YesterdayOpen
            Close8=iClose(NULL,PERIOD_D1,clos8shift);   //YesterdayClose
            // === DAS funktioniert nicht, weil es 8:00 nicht gibt
            //if(Open[i] !=LastOpen8) Open8=Open[i];
            //else                    Open8=0;
         }
         // ======================== Painting lines of Calculation start-stop
         if(   Time[i]>StringToTime(DayOfiTDate+" "+PAINTSTART)  
            && Time[i]<StringToTime(DayOfiTDate+" "+PAINTSTOP ) )
         {
            // ======================== 08:00
            if(SHOWH8LINES)
            {
               if(Time[i]>StringToTime(Start8) && Time[i]<StringToTime(Stop8))
               { 
                  LineOpen8[i]=Open8; 
                  LineClose8[i]=Close8; 
               }
            }//SHOWH8LINES
         }//paint start-stop
      }//Mo-Fr
   }//(int i=limit; i>=0; i--)

// Import the ShellExecuteW() function from the shell32.dll
#import "shell32.dll"
int ShellExecuteW(int hwnd,string Operation,string File,string Parameters,string Directory,int ShowCmd);
#import

void OnStart()
{
   // Show file open dialog
   string filenames[];
   if(FileSelectDialog("Dateien zum Laden auswählen", NULL,
                       "bericht (*.html)|*.html|All files (*.*)|*.*",
                       FSD_ALLOW_MULTISELECT|FSD_FILE_MUST_EXIST, filenames, "data.html")>0)
   {
      // Get the path of the terminal data directory
      string dataPath = TerminalInfoString(TERMINAL_DATA_PATH);
      
      // Open each selected file in the default web browser
      int total=ArraySize(filenames);
      for(int i=0; i<total; i++)
      {
         // Construct the full path of the file relative to the terminal data directory
         string filePath = dataPath + "\\" + filenames[i];
         Print(filePath);
         // Open file in default web browser using ShellExecuteW()
         bool result = (ShellExecuteW(0, "open", filePath, "", "", 1) > 32);
         
         if(result)
         {
            Print("Datei ", filenames[i], " erfolgreich geöffnet.");
         }
         else
         {
            Print("Fehler beim Öffnen von ", filenames[i]);
         }
      }
   }
   else
   {
      Print("Keine Dateien ausgewählt.");
   }
}

#property strict     
    #include <Trade\Trade.mqh>
    CTrade trade;
      
      
    double kontrakt = 0.01;
    int anfang = 1;
    int ende = 240;
    datetime _time_waiting = 0;
    
    void OnTick(void){
    
    
    datetime Istzeit = TimeCurrent();
    string Std_Min_Sek = TimeToString(Istzeit,TIME_SECONDS);
    
    if(Std_Min_Sek == "19:45:15"){
    while (anfang < ende){   //1. while-Schleif
    _time_waiting = TimeCurrent() + 10;
    while ( TimeCurrent() < _time_waiting ){   //2. while-Schleife    
    if(OrdersTotal() == 0)
    trade.BuyStop(kontrakt,Ask+3500*_Point,_Symbol,0,0,ORDER_TIME_GTC,0,"Automatisch");
    if(OrdersTotal() == 1)
    trade.SellStop(kontrakt,Bid-3500*_Point,_Symbol,0,0,ORDER_TIME_GTC,0,"Automatisch");}
    
    for(int i= OrdersTotal()-1; i >= 0; i--){
    ulong ticket = OrderGetTicket(i);
    trade.OrderDelete(ticket);}      
    
    Comment(Std_Min_Sek, "\n \n", anfang);
    anfang = anfang + 1;}}
    
    }//End OnTick

  int d100y=0; double d100x=0;
  for(d100y=1;d100y<=100;d100y++)
   d100x    =    d100x  +  (iHigh(NULL,PERIOD_D1,d100y)-iLow(NULL,PERIOD_D1,d100y))/pt;
   d100  =  d100x/100;

   // ====================================== first run
   if(prev_calculated==0)
   {
      // === calculate the past values
         CalcAdr30();    //from yesterday 30 days back
         CalcAdr0();     //for today
         CalcAdrLeft();  //for today
         CalcChange();   //summaries till now
         CalcState();    //summaries till now
   }
   else
   {
      // === hier fehlt mir eine elegante Lösung
   }