{#OptVar1 4;2;4;1}         //Optimierung fuer Days, hier 4 eingestellt
{#OptVar2 20;10;40;1}      //Optimierung fuer SMA, hier 20 eingestellt
var BBUp, BBLow: integer;
var Bar, p: integer;
BBUp := BBandUpperSeries( #Close, 20, 2 );
BBLow := BBandLowerSeries( #Close, 20, 2 );
PlotSeries( SMASeries( #Close, 20 ), 0, #Teal, #Thick );
PlotSeries( BBUp, 0, 559, #Thick );
PlotSeries( BBLow, 0, 559, #Thick );
InstallTimeBasedExit( #OptVar1 );
for Bar := 20 to BarCount - 1 do
begin
  ApplyAutoStops( Bar );
  if LastPositionActive then
  begin
    p := LastPosition;
    if CrossOver( Bar, #Close, BBUp ) or CrossUnder( Bar, #Close, SMASeries( #Close, #OptVar2 ) ) then
      begin
        SellAtMarket( Bar + 1, p, '' );
      end;
  end
  else
  begin
    if not LastPositionActive then
    begin
      if CrossOver( Bar, #Close, SMASeries( #Close, #OptVar2 ) ) then
      begin
        BuyAtMarket( Bar + 1, '0' );
      end;
    end;
  end;
end;