Stock Portfolio Organizer

The ultimate porfolio management solution.

Shares, Margin, CFD's, Futures and Forex
EOD and Realtime
Dividends and Trust Distributions
And Much More ....
For Portfolio Manager Click Here

WiseTrader Toolbox

#1 Selling Amibroker Plugin featuring:

Advanced Adaptive Indicators
Advanced Pattern Exploration
Neural Networks
And Much More ....
Find Out More Here

Ultimate Volatility Expert V.3 upgrade version sample for Amibroker (AFL)

Copy & Paste Friendly
_SECTION_BEGIN("ULTIMATE VOLATILITY EXPERT V.5");
//SetBarsRequired( sbrAll, sbrAll );
SetTradeDelays( 0, 0, 0, 0 );
SetOption( "CommissionMode", 3 );
SetOption( "CommissionAmount", 2.32 );
SetOption( "FuturesMode", True );
NumContracts = 1;
PositionSize = NumContracts * MarginDeposit;
SetOption( "MaxOpenPositions", 4 );
SetPositionSize(100,spsShares);
LastBar = Day() != Ref( Day(), 1 );
/*
tt = 000000;
beginTradeTime = 000000 - tt;
endTradeTime = 150000 - tt;

timeWindowTrade = TimeNum() >= beginTradeTime AND TimeNum() <= endTradeTime;
firstTradeBarOfDay = TimeNum() >= beginTradeTime;
firstTradeBarOfDay = ( firstTradeBarOfDay - Ref( firstTradeBarOfDay, -1 ) ) == 1;
lastTradeBarOfDay = TimeNum() >= endTradeTime;
lastTradeBarOfDay = ( lastTradeBarOfDay - Ref( lastTradeBarOfDay, -1 ) ) == 1;
ttt = IIf( firstTradeBarOfDay == 1, 1, 0 ) OR IIf( lastTradeBarOfDay == 1, 1, 0 );
*/

procedure sys_proc( Buy, Short, BuyPrice, ShortPrice, BuyStop, BuyTarget1, BuyTarget2, BuyTarget3, ShortStop, ShortTarget1, ShortTarget2, ShortTarget3, lastBar, trendup, trenddn )
{
    global BuyAdjusted;
    global BuyPriceAdjusted;
    global ShortAdjusted;
    global ShortPriceAdjusted;
    global SellAdjusted;
    global SellPriceAdjusted;
    global CoverAdjusted;
    global CoverPriceAdjusted;
    global iBuyStop;
    global iShortStop;
    global iBuyTarget1;
    global iShortTarget1;
    global iBuyTarget2;
    global iShortTarget2;
    global iBuyTarget3;
    global iShortTarget3;



    BuyAdjusted = 0;
    BuyPriceAdjusted = 0;
    ShortAdjusted = 0;
    ShortPriceAdjusted = 0;
    SellAdjusted = 0;
    SellPriceAdjusted = 0;
    CoverAdjusted = 0;
    CoverPriceAdjusted = 0;
    iBuyStop = iBuyTarget1 = iBuyTarget2 = iBuyTarget3 = Null;
    iShortStop = iShortTarget1 = iShortTarget2 = iShortTarget3 = Null;
    longAllowed = 1;
    shortAllowed = 1;

    delay = 1;
    slip = TickSize * 0;

    for( i = 1; i < BarCount; i++ )
    {
        if( Buy[i] AND longAllowed )
        {
            islong = 1;
            BuyAdjusted[i] = 1;
            BuyPriceAdjusted[i] =  BuyPrice[i] + slip;
            iBuyStop[i] = BuyStop[i];
            iBuyTarget1[i] = BuyTarget1[i];
            iBuyTarget2[i] = BuyTarget2[i];
            iBuyTarget3[i] = BuyTarget3[i];

            maxStop = BuyPriceAdjusted[i] - iBuyStop[i];

            for( j = i + 1; j < BarCount; j++ )
            {
                iBuyStop[j] = Max( iBuyStop[j - 1], C[j - 1] - maxStop );
                iBuyTarget1[j] = iBuyTarget1[i];
                iBuyTarget2[j] = iBuyTarget2[i];
                iBuyTarget3[j] = iBuyTarget3[i];

                if( lastbar[j] )
                {
                    SellAdjusted[j] = 1;
                    SellPriceAdjusted[j] = O[j];
                    i = j;
                    break;
                }
                else
                    if( C[j] < iBuyStop[j] )
                    {
                        SellAdjusted[j] = 1;
                        SellPriceAdjusted[j] = C[j] - slip;
                        longAllowed = 0;
                        i = j;
                        break;
                    }
                    /*
                    else
                        if( H[j] > iBuyTarget[j] )
                        {
                            SellAdjusted[j] = 1;
                            SellPriceAdjusted[j] = iBuyTarget[j] - slip;
                            longAllowed = 0;
                            i = j;
                            break;
                        }
                        */
                        else
                            if( j == BarCount - 1 )
                            {
                                i = BarCount - 1;
                                break;
                            }
            }
        }

        if( Short[i] AND shortAllowed )
        {
            ShortAdjusted[i] = 1;
            ShortPriceAdjusted[i] = ShortPrice[i] - slip;
            iShortStop[i] = ShortStop[i];
            iShortTarget1[i] = ShortTarget1[i];
            iShortTarget2[i] = ShortTarget2[i];
            iShortTarget3[i] = ShortTarget3[i];

            maxStop = iShortStop[i] - ShortPriceAdjusted[i];

            for( j = i + 1; j < BarCount; j++ )
            {
                iShortStop[j] = Min( iShortStop[j - 1], C[j - 1] + maxStop );
                iShortTarget1[j] = iShorttarget1[i];
                iShortTarget2[j] = iShorttarget2[i];
                iShortTarget3[j] = iShorttarget3[i];

                if( lastBar[j] )
                {
                    CoverAdjusted[j] = 1;
                    CoverPriceAdjusted[j] = O[j];
                    i = j;
                    break;
                }
                else
                    if( C[j] > iShortStop[j] )
                    {
                        CoverAdjusted[j] = 1;
                        CoverPriceAdjusted[j] = C[j] + slip;
                        shortAllowed = 0;
                        i = j;
                        break;
                    }
                    /*
                    else
                        if( L[j] < iShortTarget[j] )
                        {
                            CoverAdjusted[j] = 1;
                            CoverPriceAdjusted[j] = iShortTarget[j] + slip;
                            shortAllowed = 0;
                            i = j;
                            break;
                        }
                        */
                        else
                            if( j == BarCount - 1 )
                            {
                                i = BarCount - 1;
                                break;
                            }
            }
        }

        if( lastBar[i] )
        {
            longAllowed = 1;
            shortAllowed = 1;
        }

        if( trendup[i] AND !trendup[i - 1] )
        {
            longAllowed = 1;
        }

        if( trenddn[i] AND !trenddn[i - 1] )
        {
            shortAllowed = 1;
        }
    }
}

SetChartOptions( 0, chartShowArrows | chartShowDates );
SetChartBkColor( ParamColor( "bkcolor", ColorRGB( 0, 0, 0 ) ) );

NDays = Param( "Number of Days", 10, 1, 100, 1 );
TimeFrameSet( inDaily );
NDaysDHLAvg = Ref( MA( H - L, NDays ), -1 );
TimeFrameRestore();
NDaysDHLAvg = TimeFrameExpand( NDaysDHLAvg, inDaily, expandFirst );
ADM = NDaysDHLAvg;  // Average Day Moment
DayH = 	TimeFrameGetPrice( "H", inDaily, -1 );
DayL = 	TimeFrameGetPrice( "L", inDaily, -1 );
DayC = 	TimeFrameGetPrice( "C", inDaily, -1 );
DayO = 	TimeFrameGetPrice( "O", inDaily );

Buy = C > ( DayC + ( 0.25 * ADM ) );
Short = C < ( DayC - ( 0.25 * ADM ) );

BuyPrice = ValueWhen(Buy,C);
ShortPrice = ValueWhen(Short,C);

BuyTarget1 = ( 0.25 * ADM ) + BuyPrice;
BuyTarget2 = ( 0.50 * ADM ) + BuyPrice;
BuyTarget3 = ( 0.75 * ADM ) + BuyPrice;
BuyStop = BuyPrice - ( 0.25 * ADM );
ShortTarget1 = ShortPrice - ( 0.25 * ADM );
ShortTarget2 = ShortPrice - ( 0.50 * ADM );
ShortTarget3 = ShortPrice - ( 0.75 * ADM );
ShortStop = ShortPrice + ( 0.25 * ADM );

trendup = IIf( C > ( ( DayC ) + ( ( .25 ) * ( ADM ) ) ), 1, 0 );
trenddn = IIf( C < ( ( DayC ) - ( ( .25 ) * ( ADM ) ) ), 1, 0 );

sys_proc( Buy, Short, BuyPrice, ShortPrice, BuyStop, BuyTarget1, BuyTarget2, BuyTarget3, ShortStop, ShortTarget1, ShortTarget2, ShortTarget3, lastBar, trendup, trenddn );
Buy = BuyAdjusted;
BuyPrice = BuyPriceAdjusted;
Short = ShortAdjusted;
ShortPrice = ShortPriceAdjusted;
Sell = SellAdjusted;
SellPrice = SellPriceAdjusted;
Cover = CoverAdjusted;
CoverPrice = CoverPriceAdjusted;

Long=Flip(Buy,Sell);
Shrt=Flip(Short,Cover);

PlotShapes(IIf(Buy == 1, shapeSquare, shapeNone),colorGreen, 0, L,-10);
PlotShapes(IIf(Buy== 1, shapeSquare, shapeNone),colorLime, 0,L,-20);
PlotShapes( IIf( Buy == 1, shapeUpArrow, shapeNone ), colorWhite, 0, L, -15 );
PlotShapes( IIf( Buy == 1, shapeSmallCircle, shapeNone ), colorWhite, 0, BuyPrice, 0 );
PlotShapes( IIf( Buy == sigScaleIn, shapeUpArrow, shapeNone ), colorWhite, 0, L, -15 );
PlotShapes( IIf( Buy == sigScaleIn, shapeSmallCircle, shapeNone ), colorWhite, 0, BuyPrice, 0 );
PlotShapes( IIf( Buy == sigScaleOut, shapeSmallDownTriangle, shapeNone ), colorWhite, 0, H, -15 );
PlotShapes( IIf( Buy == sigScaleOut, shapeSmallCircle, shapeNone ), colorWhite, 0, BuyPrice, 0 );
 

PlotShapes( IIf( Sell, shapeSmallDownTriangle, shapeNone ), colorWhite, 0, H, -15 );
PlotShapes( IIf( Sell, shapeSmallCircle, shapeNone ), colorWhite, 0, SellPrice, 0 );

PlotShapes(IIf(Short == 1, shapeSquare, shapeNone),colorRed, 0, H, 10);
PlotShapes(IIf(Short == 1, shapeSquare, shapeNone),colorOrange, 0,H, 20);
PlotShapes( IIf( Short == 1, shapeDownArrow, shapeNone ), colorWhite, 0, H, IIf( Short AND Sell, -30, -15 ) );
PlotShapes( IIf( Short == 1, shapeSmallCircle, shapeNone ), colorWhite, 0, ShortPrice, 0 );
PlotShapes( IIf( Short == sigScaleIn, shapeDownArrow, shapeNone ), colorWhite, 0, H, -15 ); //IIf( Short AND Sell, -30, -15 ) );
PlotShapes( IIf( Short == sigScaleIn, shapeSmallCircle, shapeNone ), colorWhite, 0, ShortPrice, 0 );
PlotShapes( IIf( Short == sigScaleOut, shapeSmallUpTriangle, shapeNone ), colorWhite, 0, L, -15 ); //IIf( Short AND Sell, -30, -15 ) );
PlotShapes( IIf( Short == sigScaleOut, shapeSmallCircle, shapeNone ), colorWhite, 0, ShortPrice, 0 );

PlotShapes( IIf( Cover, shapeSmallUpTriangle, shapeNone ), colorWhite, 0, L, IIf( Cover AND Buy, -30, -15 ) );
PlotShapes( IIf( Cover, shapeSmallCircle, shapeNone ), colorWhite, 0, CoverPrice, 0 );

trendup = IIf( C > ( ( DayC ) + ( ( .25 ) * ( ADM ) ) ), colorBlue, colorWhite );
trendcolor = IIf( C < ( ( DayC ) - ( ( .25 ) * ( ADM ) ) ), colorRed, trendup );
Plot( C, "Close", trendcolor, styleCandle | styleThick );

Plot( iBuyStop, "Buy Stop", colorBlue, styleDots | styleLine | styleNoRescale | styleNoTitle );
Plot( iBuyTarget1, "Buy Target1", colorGreen, styleDots |styleLine | styleNoRescale | styleNoTitle );
Plot( iBuyTarget2, "Buy Target2", colorGreen, styleDots |styleLine | styleNoRescale | styleNoTitle );
Plot( iBuyTarget3, "Buy Target3", colorGreen, styleDots |styleLine | styleNoRescale | styleNoTitle );

Plot( iShortStop, "Short Stop", colorRed, styleDots | styleLine | styleNoRescale | styleNoTitle );
Plot( iShortTarget1, "Short Target1", colorOrange, styleDots |styleLine | styleNoRescale | styleNoTitle );
Plot( iShortTarget2, "Short Target2", colorOrange, styleDots |styleLine | styleNoRescale | styleNoTitle );
Plot( iShortTarget3, "Short Target3", colorOrange, styleDots |styleLine | styleNoRescale | styleNoTitle );
_SECTION_END();


Bdc=(
WriteIf (Buy==1, " BUY@ "+C+"  ","") 
);

Sdc=(
WriteIf (Short ==1 , " SEll@ "+C+"  ","")
);

Ndc=(
WriteIf(Long ==1 AND NOT Buy, "Long@"+WriteVal((Buy))+" /Profit="+WriteVal((C-Buy))+"","")+
WriteIf(Shrt==1 AND NOT Short, "Short@"+WriteVal((Short))+" /Profit="+WriteVal((Short-C))+"","")
);

if (EndValue(Buy)==1) Say("Buy Trigged, Mr. Krishna, Buy some lots"); 
if (EndValue(Sell)==1) Say("Sell Trigged, Mr. Krishna, Sell some lots");

_SECTION_BEGIN("Background text");
C11=ParamColor("up panel",colorBlack );
C12=ParamColor("dn panel",colorBlack );
C13=Param("fonts",20,10,30,1 );
C14=Param("left-right",2.1,1.0,5.0,0.1 );
C15=Param("up-down",8,1,30,1 );
Miny = Status("axisminy");
Maxy = Status("axismaxy");
lvb = Status("lastvisiblebar");
fvb = Status("firstvisiblebar");
pxwidth = Status("pxwidth");
pxheight = Status("pxheight");
GfxSetBkMode( 0 ); 
GfxSelectFont("Tahoma", 15, 600, False, False, 0);
GfxSetTextColor(colorWhite); 
GfxSetTextAlign( 6 );
GfxTextOut( "LTP "+WriteVal(C,1.2), Status("pxwidth")/C14, Status("pxheight")/C15*1.5);
GfxSelectFont("Tahoma", 12, 400, False, False, 0);
GfxSetTextColor(colorBrightGreen);
GfxTextOut(""+Bdc+"", Status("pxwidth")/C14, Status("pxheight")/C15*2.0);
GfxSelectFont("Tahoma", 12, 400, False, False, 0);
GfxSetTextColor(colorRed);
GfxTextOut(""+Sdc+"", Status("pxwidth")/C14, Status("pxheight")/C15*2.0);
GfxSelectFont("Tahoma", 12, 400, False, False, 0);
GfxSetTextColor(colorYellow);
GfxTextOut(""+Ndc+"", Status("pxwidth")/C14, Status("pxheight")/C15*2.0);
GfxSelectFont("Tahoma", 12, 400, False, False, 0);
GfxSetTextColor(colorGreen);

x=Param("xposn",1,0,1000,1);
y=Param("yposn",1,0,1000,1);

GfxGradientRect( 1, 1, 1400, 25, colorGrey50, colorDarkGrey);
GfxSetBkMode(0);
GfxSelectFont( "Georgia", 15, 800, False );
GfxSetTextColor( colorWhite );
GfxTextOut( "ULTIMATE  VOLATILITY  EXPERT  V3", x+600, y+2 );
GfxSelectFont( "Tahoma", 12, 800, False );
GfxSetTextColor( colorGold );
GfxTextOut( Name(), x+100, y+2 );
GfxSelectFont( "Century Gothic", 12, 100, False );
GfxSetTextColor( colorWhite );
GfxTextOut( Date(), x+1000, y+2 );
GfxSelectFont( "Comic Sans MS", 12, 500, False );
GfxSetTextColor( colorYellow );
GfxTextOut( Interval(2), x+275, y+2 );
//------------------------------------------------------------ H, L, O, C----------------------
GfxGradientRect( 1, 25, 1400, 40, colorGrey50, colorDarkGrey );
GfxSetBkMode(0);
GfxSelectFont( "Areal", 9, 200, False );
GfxSetTextColor( colorWhite );
GfxTextOut( "High:"+WriteVal(H,1.2), x+100, y+26 );
GfxSelectFont( "Areal", 9, 200, False );
GfxSetTextColor( colorWhite );
GfxTextOut( "Low:"+WriteVal(L,1.2), x+200, y+26 );
GfxSelectFont( "Areal", 9, 200, False );
GfxSetTextColor( colorWhite );
GfxTextOut( "Open:"+WriteVal(O,1.2), x+300, y+26 );
GfxSelectFont( "Areal", 9, 200, False );
GfxSetTextColor( colorWhite );
GfxTextOut( "Close:"+WriteVal(C,1.2), x+400, y+26 );
GfxSelectFont( "Script MT Bold", 12, 100, False );
GfxSetTextColor( colorWhite );
GfxTextOut( "Created By Murali Krishna ", x+1000, y+26 );
GfxSelectFont( "Script MT Bold", 12, 100, False );
GfxSetTextColor( colorWhite );
GfxTextOut( "Edited By Edward Potasch ", x+600, y+26 );

//----------------------------------------------------------------Leveles----------------------------
// Dynamic Levels//----------Majer Support Resistent Zones---------------------------------------------------

DayH = 	TimeFrameGetPrice("H", inDaily, -1);	   		DayHI = LastValue (DayH,1); 		// yesterdays high
DayL = 	TimeFrameGetPrice("L", inDaily, -1);	 		DayLI = LastValue (DayL,1);			// yesterdays low
DayC = 	TimeFrameGetPrice("C", inDaily, -1);	 		DayCI = LastValue (DayC,1);			// yesterdays close
DayO = 	TimeFrameGetPrice("O", inDaily);				DayOI = LastValue (DayO,1);			// current day open
WeekH= 	TimeFrameGetPrice("H", inWeekly, 0);     		WeekHI = LastValue (WeekH,1); 		// This Week  high
WeekL= 	TimeFrameGetPrice("L", inWeekly, 0);     		WeekLI = LastValue (WeekL,1); 		// This Week  low
MonthH= 	TimeFrameGetPrice("H", inMonthly, 0);   		MonthHI = LastValue (MonthH,1); 	// This Month  high
MonthL= 	TimeFrameGetPrice("L", inMonthly, 0);  		MonthLI = LastValue (MonthL,1); 	// This Month  low
LWeekH= 	TimeFrameGetPrice("H", inWeekly, -1);   		LWeekHI = LastValue (LWeekH,1);  	// One Week before high
LWeekL= 	TimeFrameGetPrice("L", inWeekly, -1);   		LWeekLI = LastValue (LWeekL,1);  	// One Week before low
LMonthH= 	TimeFrameGetPrice("H", inMonthly, -1); 		LMonthHI = LastValue (LMonthH,1); 	// One Month before high
LMonthL= 	TimeFrameGetPrice("L", inMonthly, -1); 		LMonthLI = LastValue (LMonthL,1); 	// One Month before low
L1WeekH= 	TimeFrameGetPrice("H", inWeekly, -2);  		L1WeekHI = LastValue (L1WeekH,1); 	// Two Week before high
L1WeekL= 	TimeFrameGetPrice("L", inWeekly, -2);  		L1WeekLI = LastValue (L1WeekL,1); 	// Two Week before low
L1MonthH= 	TimeFrameGetPrice("H", inMonthly, -2);		L1MonthHI = LastValue (L1MonthH,1);	// Two Month before high
L1MonthL= 	TimeFrameGetPrice("L", inMonthly, -2); 		L1MonthLI = LastValue (L1MonthL,1);	// Two Month before low
L2WeekH= 	TimeFrameGetPrice("H", inWeekly, -3);   		L2WeekHI = LastValue (L2WeekH,1);  	// Three Week before high
L2WeekL= 	TimeFrameGetPrice("L", inWeekly, -3);   		L2WeekLI = LastValue (L2WeekL,1);  	// Three Week before low
L2MonthH= 	TimeFrameGetPrice("H", inMonthly, -3); 		L2MonthHI = LastValue (L2MonthH,1);	// Three Month before high
L2MonthL= 	TimeFrameGetPrice("L", inMonthly, -3); 		L2MonthLI = LastValue (L2MonthL,1);  	// Three Month before low
L3MonthH= 	TimeFrameGetPrice("H", inMonthly, -4); 		L3MonthHI = LastValue (L3MonthH,1);  	// Four Month before high
L3MonthL= 	TimeFrameGetPrice("L", inMonthly, -4);  		L3MonthLI = LastValue (L3MonthL,1); 	// Four Month before low
L4MonthH= 	TimeFrameGetPrice("H", inMonthly, -5);  		L4MonthHI = LastValue (L4MonthH,1); 	// Five Month before high
L4MonthL= 	TimeFrameGetPrice("L", inMonthly, -5);  		L4MonthLI = LastValue (L4MonthL,1); 	// Five Month before low
L3WeekH= 	TimeFrameGetPrice("H", inWeekly, -4);    		L3WeekHI = LastValue (L3WeekH,1); 	// Four Week before high
L3WeekL= 	TimeFrameGetPrice("L", inWeekly, -4);   		L3WeekLI = LastValue (L3WeekL,1); 	// Four Week before low
//----------------------------------------------------------------------------------------------------------------------

GfxGradientRect( 1, 185, 90, 200, colorGrey50,colorDarkGrey );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorOrange );
GfxTextOut( "Levels ", x+45, y+185 );

GfxGradientRect( 1, 200, 90, 215, colorDarkGrey,colorDarkRed );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (L4MonthH>C, " 5MH "+WriteVal(L4MonthH,1.2)+"  ",""), x+50, y+200 );

GfxGradientRect( 1, 215, 90, 230, colorDarkGrey, colorDarkRed );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (L3MonthH>C, " 4MH "+WriteVal(L3MonthH,1.2)+"  ",""), x+50, y+215 );

GfxGradientRect( 1, 230, 90, 245, colorDarkGrey, colorDarkRed );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (L2MonthH>C, " 3MH "+WriteVal(L2MonthH,1.2)+"  ",""), x+50, y+230 );

GfxGradientRect( 1, 245, 90, 260, colorDarkGrey, colorDarkRed );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (L1MonthH>C, " 2MH "+WriteVal(L1MonthH,1.2)+"  ",""), x+50, y+245 );

GfxGradientRect( 1, 260, 90, 275, colorDarkGrey, colorDarkRed );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (LMonthH>C, " LMH "+WriteVal(LMonthH,1.2)+"  ",""), x+50, y+260 );

GfxGradientRect( 1, 275, 90, 290, colorDarkGrey, colorDarkRed );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (MonthH>C, " CMH "+WriteVal(MonthH,1.2)+"  ",""), x+50, y+275 );

GfxGradientRect( 1, 290, 90, 305, colorDarkGrey, colorDarkRed );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (L3WeekH>C, " 4WH "+WriteVal(L3WeekH,1.2)+"  ",""),x+50, y+290 );

GfxGradientRect( 1, 305, 90, 320, colorDarkGrey, colorDarkRed );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (L2WeekH>C, " 3WH "+WriteVal(L2WeekH,1.2)+"  ",""), x+50, y+305 );

GfxGradientRect( 1, 320, 90, 335, colorDarkGrey, colorDarkRed );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (L1WeekH>C, " 2WH "+WriteVal(L1WeekH,1.2)+"  ",""), x+50, y+320 );

GfxGradientRect( 1, 335, 90, 350, colorDarkGrey, colorDarkRed );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (LWeekH>C, " 1WH "+WriteVal(LWeekH,1.2)+"  ","") , x+50, y+335 );

GfxGradientRect( 1, 350, 90, 365, colorDarkGrey, colorDarkRed );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (WeekH>C, " CWH "+WriteVal(WeekH,1.2)+"  ",""), x+50, y+350 );

GfxGradientRect( 1, 365, 90, 380, colorDarkGrey, colorDarkRed );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (DayH>C, " PDH "+WriteVal(DayH,1.2)+"  ",""), x+50, y+365 );

GfxGradientRect( 1, 380, 90, 395, colorLightBlue , colorBlue );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorCustom12);
GfxTextOut( WriteIf (C, " LTP "+WriteVal(C,1.2)+"  ",""), x+50, y+380 );

GfxGradientRect( 1, 395, 90, 410, colorDarkGrey,colorDarkGreen);
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (DayL<C, " PDL "+WriteVal(DayL,1.2)+"  ",""), x+50, y+395 );

GfxGradientRect( 1, 410, 90, 425, colorDarkGrey, colorDarkGreen );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (WeekL<C, " CWL "+WriteVal(WeekL,1.2)+"  ",""), x+50, y+410 );

GfxGradientRect( 1, 425, 90, 440, colorDarkGrey, colorDarkGreen );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (LWeekL<C, " 1WL "+WriteVal(LWeekL,1.2)+"  ",""), x+50, y+425 );

GfxGradientRect( 1, 440, 90, 455, colorDarkGrey, colorDarkGreen );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 9, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (L1WeekL<C, " 2WL "+WriteVal(L1WeekL,1.2)+"  ",""), x+50, y+440);

GfxGradientRect( 1, 455, 90, 470, colorDarkGrey, colorDarkGreen );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (L2WeekL<C, " 3WL "+WriteVal(L2WeekL,1.2)+"  ",""), x+50, y+455);

GfxGradientRect( 1, 470, 90, 485, colorDarkGrey, colorDarkGreen );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (L3WeekL<C, " 4WL "+WriteVal(L3WeekL,1.2)+"  ",""), x+50, y+470);

GfxGradientRect( 1, 485, 90, 500, colorDarkGrey, colorDarkGreen );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (MonthL<C, " CML "+WriteVal(MonthL,1.2)+"  ",""), x+50, y+485);

GfxGradientRect( 1, 500, 90, 515, colorDarkGrey, colorDarkGreen );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (LMonthL<C, " 1ML "+WriteVal(LMonthL,1.2)+"  ",""), x+50, y+500);

GfxGradientRect( 1, 515, 90, 530, colorDarkGrey, colorDarkGreen );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (L1MonthL<C, " 2ML "+WriteVal(L1MonthL,1.2)+"  ",""), x+50, y+515);

GfxGradientRect( 1, 530, 90, 545, colorDarkGrey, colorDarkGreen );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (L2MonthL<C, " 3ML "+WriteVal(L2MonthL,1.2)+"  ",""), x+50, y+530);

GfxGradientRect( 1, 545, 90, 560, colorDarkGrey, colorDarkGreen );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (L3MonthL<C, " 4ML "+WriteVal(L3MonthL,1.2)+"  ",""), x+50, y+545);

GfxGradientRect( 1, 560, 90, 575, colorDarkGrey, colorDarkGreen );
GfxSetBkMode(0);
GfxSelectFont( "Tahoma", 10, 300, False );
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf (L4MonthL<C, " 5ML "+WriteVal(L4MonthL,1.2)+"  ",""), x+50, y+560);
Back