Amibroker Sector Wise Stock Price Together

 Amibroker Sector Wise Stock Price Together

AFL Created by SANJIB CHAKRABORTY

AFL Code:

/////////////////////////////////////////////////////////////////////////////////////

///// DSE TICKER VIEWER AFL.

// BY SANJIB CHAKRABORTY

//( * Best for 14" monitor.* For best view Click Tools>Customize>Appearance & Uncheck "Show MDI Tabs)

_SECTION_BEGIN("DSE Ticker Viewer");

//// Bank------

//// Close Price

Bank1Close=Foreign("ABBANK","C");

Bank2Close=Foreign("ALARABANK","C");

Bank3Close=Foreign("BANKASIA","C");

Bank4Close=Foreign("BRACBANK","C");

Bank5Close=Foreign("CITYBANK","C");

Bank6Close=Foreign("DHAKABANK","C");

Bank7Close=Foreign("DUTCHBANGL","C");

Bank8Close=Foreign("EBL","C");

Bank9Close=Foreign("EXIMBANK","C");

Bank10Close=Foreign("FIRSTSBANK","C");

Bank11Close=Foreign("ICBIBANK","C");

Bank12Close=Foreign("IFIC","C");

Bank13Close=Foreign("ISLAMIBANK","C");

Bank14Close=Foreign("JAMUNABANK","C");

Bank15Close=Foreign("MERCANBANK","C");

Bank16Close=Foreign("MTBL","C");

Bank17Close=Foreign("NBL","C");

Bank18Close=Foreign("NCCBANK","C");

Bank19Close=Foreign("ONEBANKLTD","C");

Bank20Close=Foreign("PREMIERBAN","C");

Bank21Close=Foreign("PRIMEBANK","C");

Bank22Close=Foreign("PUBALIBANK","C");

Bank23Close=Foreign("RUPALIBANK","C");

Bank24Close=Foreign("SHAHJABANK","C");

Bank25Close=Foreign("SIBL","C");

Bank26Close=Foreign("SOUTHEASTB","C");

Bank27Close=Foreign("STANDBANKL","C");

Bank28Close=Foreign("TRUSTBANK","C");

Bank29Close=Foreign("UCBL","C");

Bank30Close=Foreign("UTTARABANK","C");

////Yesterday's Close Price

Bank1Prev=Ref(Bank1Close,-1) ;

Bank2Prev=Ref(Bank2Close,-1) ;

Bank3Prev=Ref(Bank3Close,-1) ;

Bank4Prev=Ref(Bank4Close,-1) ;

Bank5Prev=Ref(Bank5Close,-1) ;

Bank6Prev=Ref(Bank6Close,-1) ;

Bank7Prev=Ref(Bank7Close,-1) ;

Bank8Prev=Ref(Bank8Close,-1) ;

Bank9Prev=Ref(Bank9Close,-1) ;

Bank10Prev=Ref(Bank10Close,-1) ;

Bank11Prev=Ref(Bank11Close,-1) ;

Bank12Prev=Ref(Bank12Close,-1) ;

Bank13Prev=Ref(Bank13Close,-1) ;

Bank14Prev=Ref(Bank14Close,-1) ;

Bank15Prev=Ref(Bank15Close,-1) ;

Bank16Prev=Ref(Bank16Close,-1) ;

Bank17Prev=Ref(Bank17Close,-1) ;

Bank18Prev=Ref(Bank18Close,-1) ;

Bank19Prev=Ref(Bank19Close,-1) ;

Bank20Prev=Ref(Bank20Close,-1) ;

Bank21Prev=Ref(Bank21Close,-1) ;

Bank22Prev=Ref(Bank22Close,-1) ;

Bank23Prev=Ref(Bank23Close,-1) ;

Bank24Prev=Ref(Bank24Close,-1) ;

Bank25Prev=Ref(Bank25Close,-1) ;

Bank26Prev=Ref(Bank26Close,-1) ;

Bank27Prev=Ref(Bank27Close,-1) ;

Bank28Prev=Ref(Bank28Close,-1) ;

Bank29Prev=Ref(Bank29Close,-1) ;

Bank30Prev=Ref(Bank30Close,-1) ;

////Change Taka

Bank1ChangeTaka=Prec((Bank1Close)-(Ref(Bank1Close,-1)),2);

Bank2ChangeTaka=Prec((Bank2Close)-(Ref(Bank2Close,-1)),2);

Bank3ChangeTaka=Prec((Bank3Close)-(Ref(Bank3Close,-1)),2);

Bank4ChangeTaka=Prec((Bank4Close)-(Ref(Bank4Close,-1)),2);

Bank5ChangeTaka=Prec((Bank5Close)-(Ref(Bank5Close,-1)),2);

Bank6ChangeTaka=Prec((Bank6Close)-(Ref(Bank6Close,-1)),2);

Bank7ChangeTaka=Prec((Bank7Close)-(Ref(Bank7Close,-1)),2);

Bank8ChangeTaka=Prec((Bank8Close)-(Ref(Bank8Close,-1)),2);

Bank9ChangeTaka=Prec((Bank9Close)-(Ref(Bank9Close,-1)),2);

Bank10ChangeTaka=Prec((Bank10Close)-(Ref(Bank10Close,-1)),2);

Bank11ChangeTaka=Prec((Bank11Close)-(Ref(Bank11Close,-1)),2);

Bank12ChangeTaka=Prec((Bank12Close)-(Ref(Bank12Close,-1)),2);

Bank13ChangeTaka=Prec((Bank13Close)-(Ref(Bank13Close,-1)),2);

Bank14ChangeTaka=Prec((Bank14Close)-(Ref(Bank14Close,-1)),2);

Bank15ChangeTaka=Prec((Bank15Close)-(Ref(Bank15Close,-1)),2);

Bank16ChangeTaka=Prec((Bank16Close)-(Ref(Bank16Close,-1)),2);

Bank17ChangeTaka=Prec((Bank17Close)-(Ref(Bank17Close,-1)),2);

Bank18ChangeTaka=Prec((Bank18Close)-(Ref(Bank18Close,-1)),2);

Bank19ChangeTaka=Prec((Bank19Close)-(Ref(Bank19Close,-1)),2);

Bank20ChangeTaka=Prec((Bank20Close)-(Ref(Bank20Close,-1)),2);

Bank21ChangeTaka=Prec((Bank21Close)-(Ref(Bank21Close,-1)),2);

Bank22ChangeTaka=Prec((Bank22Close)-(Ref(Bank22Close,-1)),2);

Bank23ChangeTaka=Prec((Bank23Close)-(Ref(Bank23Close,-1)),2);

Bank24ChangeTaka=Prec((Bank24Close)-(Ref(Bank24Close,-1)),2);

Bank25ChangeTaka=Prec((Bank25Close)-(Ref(Bank25Close,-1)),2);

Bank26ChangeTaka=Prec((Bank26Close)-(Ref(Bank26Close,-1)),2);

Bank27ChangeTaka=Prec((Bank27Close)-(Ref(Bank27Close,-1)),2);

Bank28ChangeTaka=Prec((Bank28Close)-(Ref(Bank28Close,-1)),2);

Bank29ChangeTaka=Prec((Bank29Close)-(Ref(Bank29Close,-1)),2);

Bank30ChangeTaka=Prec((Bank30Close)-(Ref(Bank30Close,-1)),2);

////Change %

Bank1Change=Prec((Bank1ChangeTaka*100/Bank1Prev),1);

Bank2Change=Prec((Bank2ChangeTaka*100/Bank2Prev),1);

Bank3Change=Prec((Bank3ChangeTaka*100/Bank3Prev),1);

Bank4Change=Prec((Bank4ChangeTaka*100/Bank4Prev),1);

Bank5Change=Prec((Bank5ChangeTaka*100/Bank5Prev),1);

Bank6Change=Prec((Bank6ChangeTaka*100/Bank6Prev),1);

Bank7Change=Prec((Bank7ChangeTaka*100/Bank7Prev),1);

Bank8Change=Prec((Bank8ChangeTaka*100/Bank8Prev),1);

Bank9Change=Prec((Bank9ChangeTaka*100/Bank9Prev),1);

Bank10Change=Prec((Bank10ChangeTaka*100/Bank10Prev),1);

Bank11Change=Prec((Bank11ChangeTaka*100/Bank11Prev),1);

Bank12Change=Prec((Bank12ChangeTaka*100/Bank12Prev),1);

Bank13Change=Prec((Bank13ChangeTaka*100/Bank13Prev),1);

Bank14Change=Prec((Bank14ChangeTaka*100/Bank14Prev),1);

Bank15Change=Prec((Bank15ChangeTaka*100/Bank15Prev),1);

Bank16Change=Prec((Bank16ChangeTaka*100/Bank16Prev),1);

Bank17Change=Prec((Bank17ChangeTaka*100/Bank17Prev),1);

Bank18Change=Prec((Bank18ChangeTaka*100/Bank18Prev),1);

Bank19Change=Prec((Bank19ChangeTaka*100/Bank19Prev),1);

Bank20Change=Prec((Bank20ChangeTaka*100/Bank20Prev),1);

Bank21Change=Prec((Bank21ChangeTaka*100/Bank21Prev),1);

Bank22Change=Prec((Bank22ChangeTaka*100/Bank22Prev),1);

Bank23Change=Prec((Bank23ChangeTaka*100/Bank23Prev),1);

Bank24Change=Prec((Bank24ChangeTaka*100/Bank24Prev),1);

Bank25Change=Prec((Bank25ChangeTaka*100/Bank25Prev),1);

Bank26Change=Prec((Bank26ChangeTaka*100/Bank26Prev),1);

Bank27Change=Prec((Bank27ChangeTaka*100/Bank27Prev),1);

Bank28Change=Prec((Bank28ChangeTaka*100/Bank28Prev),1);

Bank29Change=Prec((Bank29ChangeTaka*100/Bank29Prev),1);

Bank30Change=Prec((Bank30ChangeTaka*100/Bank30Prev),1);

//// Life Insurance------

//// Close Price

LIns1Close=Foreign("DELTALIFE","C");

LIns2Close=Foreign("FAREASTLIF","C");

LIns3Close=Foreign("MEGHNALIFE","C");

LIns4Close=Foreign("NATLIFEINS","C");

LIns5Close=Foreign("PADMALIFE","C");

LIns6Close=Foreign("POPULARLIF","C");

LIns7Close=Foreign("PRAGATILIF","C");

LIns8Close=Foreign("PRIMELIFE","C");

LIns9Close=Foreign("PROGRESLIF","C");

LIns10Close=Foreign("RUPALILIFE","C");

LIns11Close=Foreign("SANDHANINS","C");

LIns12Close=Foreign("SUNLIFEINS","C");

////Yesterday's Close Price

LIns1Prev=Ref(LIns1Close,-1) ;

LIns2Prev=Ref(LIns2Close,-1) ;

LIns3Prev=Ref(LIns3Close,-1) ;

LIns4Prev=Ref(LIns4Close,-1) ;

LIns5Prev=Ref(LIns5Close,-1) ;

LIns6Prev=Ref(LIns6Close,-1) ;

LIns7Prev=Ref(LIns7Close,-1) ;

LIns8Prev=Ref(LIns8Close,-1) ;

LIns9Prev=Ref(LIns9Close,-1) ;

LIns10Prev=Ref(LIns10Close,-1) ;

LIns11Prev=Ref(LIns11Close,-1) ;

LIns12Prev=Ref(LIns12Close,-1) ;

////Change Taka

LIns1ChangeTaka=Prec((LIns1Close)-(Ref(LIns1Close,-1)),2);

LIns2ChangeTaka=Prec((LIns2Close)-(Ref(LIns2Close,-1)),2);

LIns3ChangeTaka=Prec((LIns3Close)-(Ref(LIns3Close,-1)),2);

LIns4ChangeTaka=Prec((LIns4Close)-(Ref(LIns4Close,-1)),2);

LIns5ChangeTaka=Prec((LIns5Close)-(Ref(LIns5Close,-1)),2);

LIns6ChangeTaka=Prec((LIns6Close)-(Ref(LIns6Close,-1)),2);

LIns7ChangeTaka=Prec((LIns7Close)-(Ref(LIns7Close,-1)),2);

LIns8ChangeTaka=Prec((LIns8Close)-(Ref(LIns8Close,-1)),2);

LIns9ChangeTaka=Prec((LIns9Close)-(Ref(LIns9Close,-1)),2);

LIns10ChangeTaka=Prec((LIns10Close)-(Ref(LIns10Close,-1)),2);

LIns11ChangeTaka=Prec((LIns11Close)-(Ref(LIns11Close,-1)),2);

LIns12ChangeTaka=Prec((LIns12Close)-(Ref(LIns12Close,-1)),2);

////Change %

LIns1Change=Prec((LIns1ChangeTaka*100/LIns1Prev),1);

LIns2Change=Prec((LIns2ChangeTaka*100/LIns2Prev),1);

LIns3Change=Prec((LIns3ChangeTaka*100/LIns3Prev),1);

LIns4Change=Prec((LIns4ChangeTaka*100/LIns4Prev),1);

LIns5Change=Prec((LIns5ChangeTaka*100/LIns5Prev),1);

LIns6Change=Prec((LIns6ChangeTaka*100/LIns6Prev),1);

LIns7Change=Prec((LIns7ChangeTaka*100/LIns7Prev),1);

LIns8Change=Prec((LIns8ChangeTaka*100/LIns8Prev),1);

LIns9Change=Prec((LIns9ChangeTaka*100/LIns9Prev),1);

LIns10Change=Prec((LIns10ChangeTaka*100/LIns10Prev),1);

LIns11Change=Prec((LIns11ChangeTaka*100/LIns11Prev),1);

LIns12Change=Prec((LIns12ChangeTaka*100/LIns12Prev),1);

//// General Insurance------

//// Close Price

GIns1Close=Foreign("AGRANINS","C");

GIns2Close=Foreign("ASIAINS","C");

GIns3Close=Foreign("ASIAPACINS","C");

GIns4Close=Foreign("BGIC","C");

GIns5Close=Foreign("CENTRALINS","C");

GIns6Close=Foreign("CITYGENINS","C");

GIns7Close=Foreign("CONTININS","C");

GIns8Close=Foreign("DHAKAINS","C");

GIns9Close=Foreign("EASTERNINS","C");

GIns10Close=Foreign("EASTLAND","C");

GIns11Close=Foreign("FEDERALINS","C");

GIns12Close=Foreign("GLOBALINS","C");

GIns13Close=Foreign("GREENDELT","C");

GIns14Close=Foreign("ISLAMIINS","C");

GIns15Close=Foreign("JANATAINS","C");

GIns16Close=Foreign("KARNAPHULI","C");

GIns17Close=Foreign("MERCINS","C");

GIns18Close=Foreign("NITOLINS","C");

GIns19Close=Foreign("NORTHRNINS","C");

GIns20Close=Foreign("PARAMOUNT","C");

GIns21Close=Foreign("PEOPLESINS","C");

GIns22Close=Foreign("PHENIXINS","C");

GIns23Close=Foreign("PIONEERINS","C");

GIns24Close=Foreign("PRAGATIINS","C");

GIns25Close=Foreign("PRIMEINSUR","C");

GIns26Close=Foreign("PROVATIINS","C");

GIns27Close=Foreign("PURABIGEN","C");

GIns28Close=Foreign("RELIANCINS","C");

GIns29Close=Foreign("REPUBLIC","C");

GIns30Close=Foreign("RUPALIINS","C");

GIns31Close=Foreign("SONARBAINS","C");

GIns32Close=Foreign("STANDARINS","C");

GIns33Close=Foreign("TAKAFULINS","C");

GIns34Close=Foreign("UNITEDINS","C");

////Yesterday's Close Price

GIns1Prev=Ref(GIns1Close,-1) ;

GIns2Prev=Ref(GIns2Close,-1) ;

GIns3Prev=Ref(GIns3Close,-1) ;

GIns4Prev=Ref(GIns4Close,-1) ;

GIns5Prev=Ref(GIns5Close,-1) ;

GIns6Prev=Ref(GIns6Close,-1) ;

GIns7Prev=Ref(GIns7Close,-1) ;

GIns8Prev=Ref(GIns8Close,-1) ;

GIns9Prev=Ref(GIns9Close,-1) ;

GIns10Prev=Ref(GIns10Close,-1) ;

GIns11Prev=Ref(GIns11Close,-1) ;

GIns12Prev=Ref(GIns12Close,-1) ;

GIns13Prev=Ref(GIns13Close,-1) ;

GIns14Prev=Ref(GIns14Close,-1) ;

GIns15Prev=Ref(GIns15Close,-1) ;

GIns16Prev=Ref(GIns16Close,-1) ;

GIns17Prev=Ref(GIns17Close,-1) ;

GIns18Prev=Ref(GIns18Close,-1) ;

GIns19Prev=Ref(GIns19Close,-1) ;

GIns20Prev=Ref(GIns20Close,-1) ;

GIns21Prev=Ref(GIns21Close,-1) ;

GIns22Prev=Ref(GIns22Close,-1) ;

GIns23Prev=Ref(GIns23Close,-1) ;

GIns24Prev=Ref(GIns24Close,-1) ;

GIns25Prev=Ref(GIns25Close,-1) ;

GIns26Prev=Ref(GIns26Close,-1) ;

GIns27Prev=Ref(GIns27Close,-1) ;

GIns28Prev=Ref(GIns28Close,-1) ;

GIns29Prev=Ref(GIns29Close,-1) ;

GIns30Prev=Ref(GIns30Close,-1) ;

GIns31Prev=Ref(GIns31Close,-1) ;

GIns32Prev=Ref(GIns32Close,-1) ;

GIns33Prev=Ref(GIns33Close,-1) ;

GIns34Prev=Ref(GIns34Close,-1) ;

////Change Taka

GIns1ChangeTaka=Prec((GIns1Close)-(Ref(GIns1Close,-1)),2);

GIns2ChangeTaka=Prec((GIns2Close)-(Ref(GIns2Close,-1)),2);

GIns3ChangeTaka=Prec((GIns3Close)-(Ref(GIns3Close,-1)),2);

GIns4ChangeTaka=Prec((GIns4Close)-(Ref(GIns4Close,-1)),2);

GIns5ChangeTaka=Prec((GIns5Close)-(Ref(GIns5Close,-1)),2);

GIns6ChangeTaka=Prec((GIns6Close)-(Ref(GIns6Close,-1)),2);

GIns7ChangeTaka=Prec((GIns7Close)-(Ref(GIns7Close,-1)),2);

GIns8ChangeTaka=Prec((GIns8Close)-(Ref(GIns8Close,-1)),2);

GIns9ChangeTaka=Prec((GIns9Close)-(Ref(GIns9Close,-1)),2);

GIns10ChangeTaka=Prec((GIns10Close)-(Ref(GIns10Close,-1)),2);

GIns11ChangeTaka=Prec((GIns11Close)-(Ref(GIns11Close,-1)),2);

GIns12ChangeTaka=Prec((GIns12Close)-(Ref(GIns12Close,-1)),2);

GIns13ChangeTaka=Prec((GIns13Close)-(Ref(GIns13Close,-1)),2);

GIns14ChangeTaka=Prec((GIns14Close)-(Ref(GIns14Close,-1)),2);

GIns15ChangeTaka=Prec((GIns15Close)-(Ref(GIns15Close,-1)),2);

GIns16ChangeTaka=Prec((GIns16Close)-(Ref(GIns16Close,-1)),2);

GIns17ChangeTaka=Prec((GIns17Close)-(Ref(GIns17Close,-1)),2);

GIns18ChangeTaka=Prec((GIns18Close)-(Ref(GIns18Close,-1)),2);

GIns19ChangeTaka=Prec((GIns19Close)-(Ref(GIns19Close,-1)),2);

GIns20ChangeTaka=Prec((GIns20Close)-(Ref(GIns20Close,-1)),2);

GIns21ChangeTaka=Prec((GIns21Close)-(Ref(GIns21Close,-1)),2);

GIns22ChangeTaka=Prec((GIns22Close)-(Ref(GIns22Close,-1)),2);

GIns23ChangeTaka=Prec((GIns23Close)-(Ref(GIns23Close,-1)),2);

GIns24ChangeTaka=Prec((GIns24Close)-(Ref(GIns24Close,-1)),2);

GIns25ChangeTaka=Prec((GIns25Close)-(Ref(GIns25Close,-1)),2);

GIns26ChangeTaka=Prec((GIns26Close)-(Ref(GIns26Close,-1)),2);

GIns27ChangeTaka=Prec((GIns27Close)-(Ref(GIns27Close,-1)),2);

GIns28ChangeTaka=Prec((GIns28Close)-(Ref(GIns28Close,-1)),2);

GIns29ChangeTaka=Prec((GIns29Close)-(Ref(GIns29Close,-1)),2);

GIns30ChangeTaka=Prec((GIns30Close)-(Ref(GIns30Close,-1)),2);

GIns31ChangeTaka=Prec((GIns31Close)-(Ref(GIns31Close,-1)),2);

GIns32ChangeTaka=Prec((GIns32Close)-(Ref(GIns32Close,-1)),2);

GIns33ChangeTaka=Prec((GIns33Close)-(Ref(GIns33Close,-1)),2);

GIns34ChangeTaka=Prec((GIns34Close)-(Ref(GIns34Close,-1)),2);

////Change %

GIns1Change=Prec((GIns1ChangeTaka*100/GIns1Prev),1);

GIns2Change=Prec((GIns2ChangeTaka*100/GIns2Prev),1);

GIns3Change=Prec((GIns3ChangeTaka*100/GIns3Prev),1);

GIns4Change=Prec((GIns4ChangeTaka*100/GIns4Prev),1);

GIns5Change=Prec((GIns5ChangeTaka*100/GIns5Prev),1);

GIns6Change=Prec((GIns6ChangeTaka*100/GIns6Prev),1);

GIns7Change=Prec((GIns7ChangeTaka*100/GIns7Prev),1);

GIns8Change=Prec((GIns8ChangeTaka*100/GIns8Prev),1);

GIns9Change=Prec((GIns9ChangeTaka*100/GIns9Prev),1);

GIns10Change=Prec((GIns10ChangeTaka*100/GIns10Prev),1);

GIns11Change=Prec((GIns11ChangeTaka*100/GIns11Prev),1);

GIns12Change=Prec((GIns12ChangeTaka*100/GIns12Prev),1);

GIns13Change=Prec((GIns13ChangeTaka*100/GIns13Prev),1);

GIns14Change=Prec((GIns14ChangeTaka*100/GIns14Prev),1);

GIns15Change=Prec((GIns15ChangeTaka*100/GIns15Prev),1);

GIns16Change=Prec((GIns16ChangeTaka*100/GIns16Prev),1);

GIns17Change=Prec((GIns17ChangeTaka*100/GIns17Prev),1);

GIns18Change=Prec((GIns18ChangeTaka*100/GIns18Prev),1);

GIns19Change=Prec((GIns19ChangeTaka*100/GIns19Prev),1);

GIns20Change=Prec((GIns20ChangeTaka*100/GIns20Prev),1);

GIns21Change=Prec((GIns21ChangeTaka*100/GIns21Prev),1);

GIns22Change=Prec((GIns22ChangeTaka*100/GIns22Prev),1);

GIns23Change=Prec((GIns23ChangeTaka*100/GIns23Prev),1);

GIns24Change=Prec((GIns24ChangeTaka*100/GIns24Prev),1);

GIns25Change=Prec((GIns25ChangeTaka*100/GIns25Prev),1);

GIns26Change=Prec((GIns26ChangeTaka*100/GIns26Prev),1);

GIns27Change=Prec((GIns27ChangeTaka*100/GIns27Prev),1);

GIns28Change=Prec((GIns28ChangeTaka*100/GIns28Prev),1);

GIns29Change=Prec((GIns29ChangeTaka*100/GIns29Prev),1);

GIns30Change=Prec((GIns30ChangeTaka*100/GIns30Prev),1);

GIns31Change=Prec((GIns31ChangeTaka*100/GIns31Prev),1);

GIns32Change=Prec((GIns32ChangeTaka*100/GIns32Prev),1);

GIns33Change=Prec((GIns33ChangeTaka*100/GIns33Prev),1);

GIns34Change=Prec((GIns34ChangeTaka*100/GIns34Prev),1);

//// Finance------

//// Close Price

Fin1Close=Foreign("BAYLEASING","C");

Fin2Close=Foreign("BDFINANCE","C");

Fin3Close=Foreign("BIFC","C");

Fin4Close=Foreign("DBH","C");

Fin5Close=Foreign("FASFIN","C");

Fin6Close=Foreign("FAREASTFIN","C");

Fin7Close=Foreign("FLEASEINT","C");

Fin8Close=Foreign("GSPFINANCE","C");

Fin9Close=Foreign("ICB","C");

Fin10Close=Foreign("IDLC","C");

Fin11Close=Foreign("ILFSL","C");

Fin12Close=Foreign("IPDC","C");

Fin13Close=Foreign("ISLAMICFIN","C");

Fin14Close=Foreign("LANKABAFIN","C");

Fin15Close=Foreign("MIDASFIN","C");

Fin16Close=Foreign("NHFIL","C");

Fin17Close=Foreign("PHOENIXFIN","C");

Fin18Close=Foreign("PLFSL","C");

Fin19Close=Foreign("PREMIERLEA","C");

Fin20Close=Foreign("PRIMEFIN","C");

Fin21Close=Foreign("ULC","C");

Fin22Close=Foreign("UNIONCAP","C");

Fin23Close=Foreign("UTTARAFIN","C");

////Yesterday's Close Price

Fin1Prev=Ref(Fin1Close,-1) ;

Fin2Prev=Ref(Fin2Close,-1) ;

Fin3Prev=Ref(Fin3Close,-1) ;

Fin4Prev=Ref(Fin4Close,-1) ;

Fin5Prev=Ref(Fin5Close,-1) ;

Fin6Prev=Ref(Fin6Close,-1) ;

Fin7Prev=Ref(Fin7Close,-1) ;

Fin8Prev=Ref(Fin8Close,-1) ;

Fin9Prev=Ref(Fin9Close,-1) ;

Fin10Prev=Ref(Fin10Close,-1) ;

Fin11Prev=Ref(Fin11Close,-1) ;

Fin12Prev=Ref(Fin12Close,-1) ;

Fin13Prev=Ref(Fin13Close,-1) ;

Fin14Prev=Ref(Fin14Close,-1) ;

Fin15Prev=Ref(Fin15Close,-1) ;

Fin16Prev=Ref(Fin16Close,-1) ;

Fin17Prev=Ref(Fin17Close,-1) ;

Fin18Prev=Ref(Fin18Close,-1) ;

Fin19Prev=Ref(Fin19Close,-1) ;

Fin20Prev=Ref(Fin20Close,-1) ;

Fin21Prev=Ref(Fin21Close,-1) ;

Fin22Prev=Ref(Fin22Close,-1) ;

Fin23Prev=Ref(Fin23Close,-1) ;

////Change Taka

Fin1ChangeTaka=Prec((Fin1Close)-(Ref(Fin1Close,-1)),2);

Fin2ChangeTaka=Prec((Fin2Close)-(Ref(Fin2Close,-1)),2);

Fin3ChangeTaka=Prec((Fin3Close)-(Ref(Fin3Close,-1)),2);

Fin4ChangeTaka=Prec((Fin4Close)-(Ref(Fin4Close,-1)),2);

Fin5ChangeTaka=Prec((Fin5Close)-(Ref(Fin5Close,-1)),2);

Fin6ChangeTaka=Prec((Fin6Close)-(Ref(Fin6Close,-1)),2);

Fin7ChangeTaka=Prec((Fin7Close)-(Ref(Fin7Close,-1)),2);

Fin8ChangeTaka=Prec((Fin8Close)-(Ref(Fin8Close,-1)),2);

Fin9ChangeTaka=Prec((Fin9Close)-(Ref(Fin9Close,-1)),2);

Fin10ChangeTaka=Prec((Fin10Close)-(Ref(Fin10Close,-1)),2);

Fin11ChangeTaka=Prec((Fin11Close)-(Ref(Fin11Close,-1)),2);

Fin12ChangeTaka=Prec((Fin12Close)-(Ref(Fin12Close,-1)),2);

Fin13ChangeTaka=Prec((Fin13Close)-(Ref(Fin13Close,-1)),2);

Fin14ChangeTaka=Prec((Fin14Close)-(Ref(Fin14Close,-1)),2);

Fin15ChangeTaka=Prec((Fin15Close)-(Ref(Fin15Close,-1)),2);

Fin16ChangeTaka=Prec((Fin16Close)-(Ref(Fin16Close,-1)),2);

Fin17ChangeTaka=Prec((Fin17Close)-(Ref(Fin17Close,-1)),2);

Fin18ChangeTaka=Prec((Fin18Close)-(Ref(Fin18Close,-1)),2);

Fin19ChangeTaka=Prec((Fin19Close)-(Ref(Fin19Close,-1)),2);

Fin20ChangeTaka=Prec((Fin20Close)-(Ref(Fin20Close,-1)),2);

Fin21ChangeTaka=Prec((Fin21Close)-(Ref(Fin21Close,-1)),2);

Fin22ChangeTaka=Prec((Fin22Close)-(Ref(Fin22Close,-1)),2);

Fin23ChangeTaka=Prec((Fin23Close)-(Ref(Fin23Close,-1)),2);

////Change %

Fin1Change=Prec((Fin1ChangeTaka*100/Fin1Prev),1);

Fin2Change=Prec((Fin2ChangeTaka*100/Fin2Prev),1);

Fin3Change=Prec((Fin3ChangeTaka*100/Fin3Prev),1);

Fin4Change=Prec((Fin4ChangeTaka*100/Fin4Prev),1);

Fin5Change=Prec((Fin5ChangeTaka*100/Fin5Prev),1);

Fin6Change=Prec((Fin6ChangeTaka*100/Fin6Prev),1);

Fin7Change=Prec((Fin7ChangeTaka*100/Fin7Prev),1);

Fin8Change=Prec((Fin8ChangeTaka*100/Fin8Prev),1);

Fin9Change=Prec((Fin9ChangeTaka*100/Fin9Prev),1);

Fin10Change=Prec((Fin10ChangeTaka*100/Fin10Prev),1);

Fin11Change=Prec((Fin11ChangeTaka*100/Fin11Prev),1);

Fin12Change=Prec((Fin12ChangeTaka*100/Fin12Prev),1);

Fin13Change=Prec((Fin13ChangeTaka*100/Fin13Prev),1);

Fin14Change=Prec((Fin14ChangeTaka*100/Fin14Prev),1);

Fin15Change=Prec((Fin15ChangeTaka*100/Fin15Prev),1);

Fin16Change=Prec((Fin16ChangeTaka*100/Fin16Prev),1);

Fin17Change=Prec((Fin17ChangeTaka*100/Fin17Prev),1);

Fin18Change=Prec((Fin18ChangeTaka*100/Fin18Prev),1);

Fin19Change=Prec((Fin19ChangeTaka*100/Fin19Prev),1);

Fin20Change=Prec((Fin20ChangeTaka*100/Fin20Prev),1);

Fin21Change=Prec((Fin21ChangeTaka*100/Fin21Prev),1);

Fin22Change=Prec((Fin22ChangeTaka*100/Fin22Prev),1);

Fin23Change=Prec((Fin23ChangeTaka*100/Fin23Prev),1);

//// Cement------

//// Close Price

Cem1Close=Foreign("ARAMITCEM","C");

Cem2Close=Foreign("CONFIDCEM","C");

Cem3Close=Foreign("HEIDELBCEM","C");

Cem4Close=Foreign("LAFSURCEML","C");

Cem5Close=Foreign("MEGHNACEM","C");

Cem6Close=Foreign("MICEMENT","C");

Cem7Close=Foreign("PREMIERCEM","C");

////Yesterday's Close Price

Cem1Prev=Ref(Cem1Close,-1) ;

Cem2Prev=Ref(Cem2Close,-1) ;

Cem3Prev=Ref(Cem3Close,-1) ;

Cem4Prev=Ref(Cem4Close,-1) ;

Cem5Prev=Ref(Cem5Close,-1) ;

Cem6Prev=Ref(Cem6Close,-1) ;

Cem7Prev=Ref(Cem7Close,-1) ;

////Change Taka

Cem1ChangeTaka=Prec((Cem1Close)-(Ref(Cem1Close,-1)),2);

Cem2ChangeTaka=Prec((Cem2Close)-(Ref(Cem2Close,-1)),2);

Cem3ChangeTaka=Prec((Cem3Close)-(Ref(Cem3Close,-1)),2);

Cem4ChangeTaka=Prec((Cem4Close)-(Ref(Cem4Close,-1)),2);

Cem5ChangeTaka=Prec((Cem5Close)-(Ref(Cem5Close,-1)),2);

Cem6ChangeTaka=Prec((Cem6Close)-(Ref(Cem6Close,-1)),2);

Cem7ChangeTaka=Prec((Cem7Close)-(Ref(Cem7Close,-1)),2);

////Change %

Cem1Change=Prec((Cem1ChangeTaka*100/Cem1Prev),1);

Cem2Change=Prec((Cem2ChangeTaka*100/Cem2Prev),1);

Cem3Change=Prec((Cem3ChangeTaka*100/Cem3Prev),1);

Cem4Change=Prec((Cem4ChangeTaka*100/Cem4Prev),1);

Cem5Change=Prec((Cem5ChangeTaka*100/Cem5Prev),1);

Cem6Change=Prec((Cem6ChangeTaka*100/Cem6Prev),1);

Cem7Change=Prec((Cem7ChangeTaka*100/Cem7Prev),1);

//// Fuel & Power------

//// Close Price

Fuel1Close=Foreign("BDWELDING","C");

Fuel2Close=Foreign("BEDL","C");

Fuel3Close=Foreign("GBBPOWER","C");

Fuel4Close=Foreign("DESCO","C");

Fuel5Close=Foreign("EASTRNLUB","C");

Fuel6Close=Foreign("JAMUNAOIL","C");

Fuel7Close=Foreign("KPCL","C");

Fuel8Close=Foreign("LINDEBD","C");

Fuel9Close=Foreign("MJLBD","C");

Fuel10Close=Foreign("MPETROLEUM","C");

Fuel11Close=Foreign("PADMAOIL","C");

Fuel12Close=Foreign("POWERGRID","C");

Fuel13Close=Foreign("SPPCL","C");

Fuel14Close=Foreign("SUMITPOWER","C");

Fuel15Close=Foreign("TITASGAS","C");

////Yesterday's Close Price

Fuel1Prev=Ref(Fuel1Close,-1) ;

Fuel2Prev=Ref(Fuel2Close,-1) ;

Fuel3Prev=Ref(Fuel3Close,-1) ;

Fuel4Prev=Ref(Fuel4Close,-1) ;

Fuel5Prev=Ref(Fuel5Close,-1) ;

Fuel6Prev=Ref(Fuel6Close,-1) ;

Fuel7Prev=Ref(Fuel7Close,-1) ;

Fuel8Prev=Ref(Fuel8Close,-1) ;

Fuel9Prev=Ref(Fuel9Close,-1) ;

Fuel10Prev=Ref(Fuel10Close,-1) ;

Fuel11Prev=Ref(Fuel11Close,-1) ;

Fuel12Prev=Ref(Fuel12Close,-1) ;

Fuel13Prev=Ref(Fuel13Close,-1) ;

Fuel14Prev=Ref(Fuel14Close,-1) ;

Fuel15Prev=Ref(Fuel15Close,-1) ;

////Change Taka

Fuel1ChangeTaka=Prec((Fuel1Prev)-(Ref(Fuel1Prev,-1)),2);

Fuel2ChangeTaka=Prec((Fuel2Prev)-(Ref(Fuel2Prev,-1)),2);

Fuel3ChangeTaka=Prec((Fuel3Close)-(Ref(Fuel3Close,-1)),2);

Fuel4ChangeTaka=Prec((Fuel4Close)-(Ref(Fuel4Close,-1)),2);

Fuel5ChangeTaka=Prec((Fuel5Close)-(Ref(Fuel5Close,-1)),2);

Fuel6ChangeTaka=Prec((Fuel6Close)-(Ref(Fuel6Close,-1)),2);

Fuel7ChangeTaka=Prec((Fuel7Close)-(Ref(Fuel7Close,-1)),2);

Fuel8ChangeTaka=Prec((Fuel8Close)-(Ref(Fuel8Close,-1)),2);

Fuel9ChangeTaka=Prec((Fuel9Close)-(Ref(Fuel9Close,-1)),2);

Fuel10ChangeTaka=Prec((Fuel10Close)-(Ref(Fuel10Close,-1)),2);

Fuel11ChangeTaka=Prec((Fuel11Close)-(Ref(Fuel11Close,-1)),2);

Fuel12ChangeTaka=Prec((Fuel12Close)-(Ref(Fuel12Close,-1)),2);

Fuel13ChangeTaka=Prec((Fuel13Close)-(Ref(Fuel13Close,-1)),2);

Fuel14ChangeTaka=Prec((Fuel14Close)-(Ref(Fuel14Close,-1)),2);

Fuel15ChangeTaka=Prec((Fuel15Close)-(Ref(Fuel15Close,-1)),2);

////Change %

Fuel1Change=Prec((Fuel1ChangeTaka*100/Fuel1Prev),1);

Fuel2Change=Prec((Fuel2ChangeTaka*100/Fuel2Prev),1);

Fuel3Change=Prec((Fuel3ChangeTaka*100/Fuel3Prev),1);

Fuel4Change=Prec((Fuel4ChangeTaka*100/Fuel4Prev),1);

Fuel5Change=Prec((Fuel5ChangeTaka*100/Fuel5Prev),1);

Fuel6Change=Prec((Fuel6ChangeTaka*100/Fuel6Prev),1);

Fuel7Change=Prec((Fuel7ChangeTaka*100/Fuel7Prev),1);

Fuel8Change=Prec((Fuel8ChangeTaka*100/Fuel8Prev),1);

Fuel9Change=Prec((Fuel9ChangeTaka*100/Fuel9Prev),1);

Fuel10Change=Prec((Fuel10ChangeTaka*100/Fuel10Prev),1);

Fuel11Change=Prec((Fuel11ChangeTaka*100/Fuel11Prev),1);

Fuel12Change=Prec((Fuel12ChangeTaka*100/Fuel12Prev),1);

Fuel13Change=Prec((Fuel13ChangeTaka*100/Fuel13Prev),1);

Fuel14Change=Prec((Fuel14ChangeTaka*100/Fuel14Prev),1);

Fuel15Change=Prec((Fuel15ChangeTaka*100/Fuel15Prev),1);

//// Ceramics Sector------

//// Close Price

Cer1Close=Foreign("FUWANGCER","C");

Cer2Close=Foreign("MONNOCERA","C");

Cer3Close=Foreign("RAKCERAMIC","C");

Cer4Close=Foreign("SPCERAMICS","C");

Cer5Close=Foreign("STANCERAM","C");

////Yesterday's Close Price

Cer1Prev=Ref(Cer1Close,-1) ;

Cer2Prev=Ref(Cer2Close,-1) ;

Cer3Prev=Ref(Cer3Close,-1) ;

Cer4Prev=Ref(Cer4Close,-1) ;

Cer5Prev=Ref(Cer5Close,-1) ;

////Change Taka

Cer1ChangeTaka=Prec((Cer1Close)-(Ref(Cer1Close,-1)),2);

Cer2ChangeTaka=Prec((Cer2Close)-(Ref(Cer2Close,-1)),2);

Cer3ChangeTaka=Prec((Cer3Close)-(Ref(Cer3Close,-1)),2);

Cer4ChangeTaka=Prec((Cer4Close)-(Ref(Cer4Close,-1)),2);

Cer5ChangeTaka=Prec((Cer5Close)-(Ref(Cer5Close,-1)),2);

////Change %

Cer1Change=Prec((Cer1ChangeTaka*100/Cer1Prev),1);

Cer2Change=Prec((Cer2ChangeTaka*100/Cer2Prev),1);

Cer3Change=Prec((Cer3ChangeTaka*100/Cer3Prev),1);

Cer4Change=Prec((Cer4ChangeTaka*100/Cer4Prev),1);

Cer5Change=Prec((Cer5ChangeTaka*100/Cer5Prev),1);

//// Textile------

//// Close Price

Tex1Close=Foreign("AL-HAJTEX","C");

Tex2Close=Foreign("ALLTEX","C");

Tex3Close=Foreign("ANLIMAYARN","C");

Tex4Close=Foreign("APEXSPINN","C");

Tex5Close=Foreign("ARGONDENIM","C");

Tex6Close=Foreign("CMCKAMAL","C");

Tex7Close=Foreign("DACCADYE","C");

Tex8Close=Foreign("DELTASPINN","C");

Tex9Close=Foreign("DSHGARME","C");

Tex10Close=Foreign("DULAMIACOT","C");

Tex11Close=Foreign("ENVOYTEX","C");

Tex12Close=Foreign("FAMILYTEX","C");

Tex13Close=Foreign("GENNEXT","C");

Tex14Close=Foreign("HRTEX","C");

Tex15Close=Foreign("MAKSONSPIN","C");

Tex16Close=Foreign("MALEKSPIN","C");

Tex17Close=Foreign("METROSPIN","C");

Tex18Close=Foreign("MODERNDYE","C");

Tex19Close=Foreign("MITHUNKNIT","C");

Tex20Close=Foreign("PRIMETEX","C");

Tex21Close=Foreign("PTL","C");

Tex22Close=Foreign("RAHIMTEXT","C");

Tex23Close=Foreign("RNSPIN","C");

Tex24Close=Foreign("SAFKOSPINN","C");

Tex25Close=Foreign("SAIHAMCOT","C");

Tex26Close=Foreign("SAIHAMTEX","C");

Tex27Close=Foreign("SONARGAON","C");

Tex28Close=Foreign("SQUARETEXT","C");

Tex29Close=Foreign("STYLECRAFT","C");

Tex30Close=Foreign("TALLUSPIN","C");

Tex31Close=Foreign("ZAHINTEX","C");

////Yesterday's Close Price

Tex1Prev=Ref(Tex1Close,-1) ;

Tex2Prev=Ref(Tex2Close,-1) ;

Tex3Prev=Ref(Tex3Close,-1) ;

Tex4Prev=Ref(Tex4Close,-1) ;

Tex5Prev=Ref(Tex5Close,-1) ;

Tex6Prev=Ref(Tex6Close,-1) ;

Tex7Prev=Ref(Tex7Close,-1) ;

Tex8Prev=Ref(Tex8Close,-1) ;

Tex9Prev=Ref(Tex9Close,-1) ;

Tex10Prev=Ref(Tex10Close,-1) ;

Tex11Prev=Ref(Tex11Close,-1) ;

Tex12Prev=Ref(Tex12Close,-1) ;

Tex13Prev=Ref(Tex13Close,-1) ;

Tex14Prev=Ref(Tex14Close,-1) ;

Tex15Prev=Ref(Tex15Close,-1) ;

Tex16Prev=Ref(Tex16Close,-1) ;

Tex17Prev=Ref(Tex17Close,-1) ;

Tex18Prev=Ref(Tex18Close,-1) ;

Tex19Prev=Ref(Tex19Close,-1) ;

Tex20Prev=Ref(Tex20Close,-1) ;

Tex21Prev=Ref(Tex21Close,-1) ;

Tex22Prev=Ref(Tex22Close,-1) ;

Tex23Prev=Ref(Tex23Close,-1) ;

Tex24Prev=Ref(Tex24Close,-1) ;

Tex25Prev=Ref(Tex25Close,-1) ;

Tex26Prev=Ref(Tex26Close,-1) ;

Tex27Prev=Ref(Tex27Close,-1) ;

Tex28Prev=Ref(Tex28Close,-1) ;

Tex29Prev=Ref(Tex29Close,-1) ;

Tex30Prev=Ref(Tex30Close,-1) ;

Tex31Prev=Ref(Tex31Close,-1) ;

////Change Taka

Tex1ChangeTaka=Prec((Tex1Close)-(Ref(Tex1Close,-1)),2);

Tex2ChangeTaka=Prec((Tex2Close)-(Ref(Tex2Close,-1)),2);

Tex3ChangeTaka=Prec((Tex3Close)-(Ref(Tex3Close,-1)),2);

Tex4ChangeTaka=Prec((Tex4Close)-(Ref(Tex4Close,-1)),2);

Tex5ChangeTaka=Prec((Tex5Close)-(Ref(Tex5Close,-1)),2);

Tex6ChangeTaka=Prec((Tex6Close)-(Ref(Tex6Close,-1)),2);

Tex7ChangeTaka=Prec((Tex7Close)-(Ref(Tex7Close,-1)),2);

Tex8ChangeTaka=Prec((Tex8Close)-(Ref(Tex8Close,-1)),2);

Tex9ChangeTaka=Prec((Tex9Close)-(Ref(Tex9Close,-1)),2);

Tex10ChangeTaka=Prec((Tex10Close)-(Ref(Tex10Close,-1)),2);

Tex11ChangeTaka=Prec((Tex11Close)-(Ref(Tex11Close,-1)),2);

Tex12ChangeTaka=Prec((Tex12Close)-(Ref(Tex12Close,-1)),2);

Tex13ChangeTaka=Prec((Tex13Close)-(Ref(Tex13Close,-1)),2);

Tex14ChangeTaka=Prec((Tex14Close)-(Ref(Tex14Close,-1)),2);

Tex15ChangeTaka=Prec((Tex15Close)-(Ref(Tex15Close,-1)),2);

Tex16ChangeTaka=Prec((Tex16Close)-(Ref(Tex16Close,-1)),2);

Tex17ChangeTaka=Prec((Tex17Close)-(Ref(Tex17Close,-1)),2);

Tex18ChangeTaka=Prec((Tex18Close)-(Ref(Tex18Close,-1)),2);

Tex19ChangeTaka=Prec((Tex19Close)-(Ref(Tex19Close,-1)),2);

Tex20ChangeTaka=Prec((Tex20Close)-(Ref(Tex20Close,-1)),2);

Tex21ChangeTaka=Prec((Tex21Close)-(Ref(Tex21Close,-1)),2);

Tex22ChangeTaka=Prec((Tex22Close)-(Ref(Tex22Close,-1)),2);

Tex23ChangeTaka=Prec((Tex23Close)-(Ref(Tex23Close,-1)),2);

Tex24ChangeTaka=Prec((Tex24Close)-(Ref(Tex24Close,-1)),2);

Tex25ChangeTaka=Prec((Tex25Close)-(Ref(Tex25Close,-1)),2);

Tex26ChangeTaka=Prec((Tex26Close)-(Ref(Tex26Close,-1)),2);

Tex27ChangeTaka=Prec((Tex27Close)-(Ref(Tex27Close,-1)),2);

Tex28ChangeTaka=Prec((Tex28Close)-(Ref(Tex28Close,-1)),2);

Tex29ChangeTaka=Prec((Tex29Close)-(Ref(Tex29Close,-1)),2);

Tex30ChangeTaka=Prec((Tex30Close)-(Ref(Tex30Close,-1)),2);

Tex31ChangeTaka=Prec((Tex31Close)-(Ref(Tex31Close,-1)),2);

////Change %

Tex1Change=Prec((Tex1ChangeTaka*100/Tex1Prev),1);

Tex2Change=Prec((Tex2ChangeTaka*100/Tex2Prev),1);

Tex3Change=Prec((Tex3ChangeTaka*100/Tex3Prev),1);

Tex4Change=Prec((Tex4ChangeTaka*100/Tex4Prev),1);

Tex5Change=Prec((Tex5ChangeTaka*100/Tex5Prev),1);

Tex6Change=Prec((Tex6ChangeTaka*100/Tex6Prev),1);

Tex7Change=Prec((Tex7ChangeTaka*100/Tex7Prev),1);

Tex8Change=Prec((Tex8ChangeTaka*100/Tex8Prev),1);

Tex9Change=Prec((Tex9ChangeTaka*100/Tex9Prev),1);

Tex10Change=Prec((Tex10ChangeTaka*100/Tex10Prev),1);

Tex11Change=Prec((Tex11ChangeTaka*100/Tex11Prev),1);

Tex12Change=Prec((Tex12ChangeTaka*100/Tex12Prev),1);

Tex13Change=Prec((Tex13ChangeTaka*100/Tex13Prev),1);

Tex14Change=Prec((Tex14ChangeTaka*100/Tex14Prev),1);

Tex15Change=Prec((Tex15ChangeTaka*100/Tex15Prev),1);

Tex16Change=Prec((Tex16ChangeTaka*100/Tex16Prev),1);

Tex17Change=Prec((Tex17ChangeTaka*100/Tex17Prev),1);

Tex18Change=Prec((Tex18ChangeTaka*100/Tex18Prev),1);

Tex19Change=Prec((Tex19ChangeTaka*100/Tex19Prev),1);

Tex20Change=Prec((Tex20ChangeTaka*100/Tex20Prev),1);

Tex21Change=Prec((Tex21ChangeTaka*100/Tex21Prev),1);

Tex22Change=Prec((Tex22ChangeTaka*100/Tex22Prev),1);

Tex23Change=Prec((Tex23ChangeTaka*100/Tex23Prev),1);

Tex24Change=Prec((Tex24ChangeTaka*100/Tex24Prev),1);

Tex25Change=Prec((Tex25ChangeTaka*100/Tex25Prev),1);

Tex26Change=Prec((Tex26ChangeTaka*100/Tex26Prev),1);

Tex27Change=Prec((Tex27ChangeTaka*100/Tex27Prev),1);

Tex28Change=Prec((Tex28ChangeTaka*100/Tex28Prev),1);

Tex29Change=Prec((Tex29ChangeTaka*100/Tex29Prev),1);

Tex30Change=Prec((Tex30ChangeTaka*100/Tex30Prev),1);

Tex31Change=Prec((Tex31ChangeTaka*100/Tex31Prev),1);

//// Jute------

//// Close Price

Jute1Close=Foreign("JUTESPINN","C");

Jute2Close=Foreign("NORTHERN","C");

Jute3Close=Foreign("SONALIANSH","C");

////Yesterday's Close Price

Jute1Prev=Ref(Jute1Close,-1) ;

Jute2Prev=Ref(Jute2Close,-1) ;

Jute3Prev=Ref(Jute3Close,-1) ;

////Change Taka

Jute1ChangeTaka=Prec((Jute1Close)-(Ref(Jute1Close,-1)),2);

Jute2ChangeTaka=Prec((Jute2Close)-(Ref(Jute2Close,-1)),2);

Jute3ChangeTaka=Prec((Jute3Close)-(Ref(Jute3Close,-1)),2);

////Change %

Jute1Change=Prec((Jute1ChangeTaka*100/Jute1Prev),1);

Jute2Change=Prec((Jute2ChangeTaka*100/Jute2Prev),1);

Jute3Change=Prec((Jute3ChangeTaka*100/Jute3Prev),1);

//// Pharmaceuticals & Chemicals------

//// Close Price

PC1Close=Foreign("ACI","C");

PC2Close=Foreign("ACIFORMULA","C");

PC3Close=Foreign("ACTIVEFINE","C");

PC4Close=Foreign("AMBEEPHA","C");

PC5Close=Foreign("BEACONPHAR","C");

PC6Close=Foreign("BXPHARMA","C");

PC7Close=Foreign("BXSYNTH","C");

PC8Close=Foreign("CENTRALPHL","C");

PC9Close=Foreign("GHCL","C");

PC10Close=Foreign("GLAXOSMITH","C");

PC11Close=Foreign("IBNSINA","C");

PC12Close=Foreign("IMAMBUTTON","C");

PC13Close=Foreign("JMISMDL","C");

PC14Close=Foreign("KEYACOSMET","C");

PC15Close=Foreign("KOHINOOR","C");

PC16Close=Foreign("LIBRAINFU","C");

PC17Close=Foreign("MARICO","C");

PC18Close=Foreign("ORIONINFU","C");

PC19Close=Foreign("ORIONPHARM","C");

PC20Close=Foreign("PHARMAID","C");

PC21Close=Foreign("RECKITTBEN","C");

PC22Close=Foreign("RENATA","C");

PC23Close=Foreign("SALVOCHEM","C");

PC24Close=Foreign("SQURPHARMA","C");

////Yesterday's Close Price

PC1Prev=Ref(PC1Close,-1) ;

PC2Prev=Ref(PC2Close,-1) ;

PC3Prev=Ref(PC3Close,-1) ;

PC4Prev=Ref(PC4Close,-1) ;

PC5Prev=Ref(PC5Close,-1) ;

PC6Prev=Ref(PC6Close,-1) ;

PC7Prev=Ref(PC7Close,-1) ;

PC8Prev=Ref(PC8Close,-1) ;

PC9Prev=Ref(PC9Close,-1) ;

PC10Prev=Ref(PC10Close,-1) ;

PC11Prev=Ref(PC11Close,-1) ;

PC12Prev=Ref(PC12Close,-1) ;

PC13Prev=Ref(PC13Close,-1) ;

PC14Prev=Ref(PC14Close,-1) ;

PC15Prev=Ref(PC15Close,-1) ;

PC16Prev=Ref(PC16Close,-1) ;

PC17Prev=Ref(PC17Close,-1) ;

PC18Prev=Ref(PC18Close,-1) ;

PC19Prev=Ref(PC19Close,-1) ;

PC20Prev=Ref(PC20Close,-1) ;

PC21Prev=Ref(PC21Close,-1) ;

PC22Prev=Ref(PC22Close,-1) ;

PC23Prev=Ref(PC23Close,-1) ;

PC24Prev=Ref(PC24Close,-1) ;

////Change Taka

PC1ChangeTaka=Prec((PC1Close)-(Ref(PC1Close,-1)),2);

PC2ChangeTaka=Prec((PC2Close)-(Ref(PC2Close,-1)),2);

PC3ChangeTaka=Prec((PC3Close)-(Ref(PC3Close,-1)),2);

PC4ChangeTaka=Prec((PC4Close)-(Ref(PC4Close,-1)),2);

PC5ChangeTaka=Prec((PC5Close)-(Ref(PC5Close,-1)),2);

PC6ChangeTaka=Prec((PC6Close)-(Ref(PC6Close,-1)),2);

PC7ChangeTaka=Prec((PC7Close)-(Ref(PC7Close,-1)),2);

PC8ChangeTaka=Prec((PC8Close)-(Ref(PC8Close,-1)),2);

PC9ChangeTaka=Prec((PC9Close)-(Ref(PC9Close,-1)),2);

PC10ChangeTaka=Prec((PC10Close)-(Ref(PC10Close,-1)),2);

PC11ChangeTaka=Prec((PC11Close)-(Ref(PC11Close,-1)),2);

PC12ChangeTaka=Prec((PC12Close)-(Ref(PC12Close,-1)),2);

PC13ChangeTaka=Prec((PC13Close)-(Ref(PC13Close,-1)),2);

PC14ChangeTaka=Prec((PC14Close)-(Ref(PC14Close,-1)),2);

PC15ChangeTaka=Prec((PC15Close)-(Ref(PC15Close,-1)),2);

PC16ChangeTaka=Prec((PC16Close)-(Ref(PC16Close,-1)),2);

PC17ChangeTaka=Prec((PC17Close)-(Ref(PC17Close,-1)),2);

PC18ChangeTaka=Prec((PC18Close)-(Ref(PC18Close,-1)),2);

PC19ChangeTaka=Prec((PC19Close)-(Ref(PC19Close,-1)),2);

PC20ChangeTaka=Prec((PC20Close)-(Ref(PC20Close,-1)),2);

PC21ChangeTaka=Prec((PC21Close)-(Ref(PC21Close,-1)),2);

PC22ChangeTaka=Prec((PC22Close)-(Ref(PC22Close,-1)),2);

PC23ChangeTaka=Prec((PC23Close)-(Ref(PC23Close,-1)),2);

PC24ChangeTaka=Prec((PC24Close)-(Ref(PC24Close,-1)),2);

////Change %

PC1Change=Prec((PC1ChangeTaka*100/PC1Prev),1);

PC2Change=Prec((PC2ChangeTaka*100/PC2Prev),1);

PC3Change=Prec((PC3ChangeTaka*100/PC3Prev),1);

PC4Change=Prec((PC4ChangeTaka*100/PC4Prev),1);

PC5Change=Prec((PC5ChangeTaka*100/PC5Prev),1);

PC6Change=Prec((PC6ChangeTaka*100/PC6Prev),1);

PC7Change=Prec((PC7ChangeTaka*100/PC7Prev),1);

PC8Change=Prec((PC8ChangeTaka*100/PC8Prev),1);

PC9Change=Prec((PC9ChangeTaka*100/PC9Prev),1);

PC10Change=Prec((PC10ChangeTaka*100/PC10Prev),1);

PC11Change=Prec((PC11ChangeTaka*100/PC11Prev),1);

PC12Change=Prec((PC12ChangeTaka*100/PC12Prev),1);

PC13Change=Prec((PC13ChangeTaka*100/PC13Prev),1);

PC14Change=Prec((PC14ChangeTaka*100/PC14Prev),1);

PC15Change=Prec((PC15ChangeTaka*100/PC15Prev),1);

PC16Change=Prec((PC16ChangeTaka*100/PC16Prev),1);

PC17Change=Prec((PC17ChangeTaka*100/PC17Prev),1);

PC18Change=Prec((PC18ChangeTaka*100/PC18Prev),1);

PC19Change=Prec((PC19ChangeTaka*100/PC19Prev),1);

PC20Change=Prec((PC20ChangeTaka*100/PC20Prev),1);

PC21Change=Prec((PC21ChangeTaka*100/PC21Prev),1);

PC22Change=Prec((PC22ChangeTaka*100/PC22Prev),1);

PC23Change=Prec((PC23ChangeTaka*100/PC23Prev),1);

PC24Change=Prec((PC24ChangeTaka*100/PC24Prev),1);

//// Engineering------

//// Close Price

Eng1Close=Foreign("AFTABAUTO","C");

Eng2Close=Foreign("ANWARGALV","C");

Eng3Close=Foreign("APOLOISPAT","C");

Eng4Close=Foreign("ATLASBANG","C");

Eng5Close=Foreign("AZIZPIPES","C");

Eng6Close=Foreign("BDAUTOCA","C");

Eng7Close=Foreign("BDBUILDING","C");

Eng8Close=Foreign("BDLAMPS","C");

Eng9Close=Foreign("BDTHAI","C");

Eng10Close=Foreign("BSRMSTEEL","C");

Eng11Close=Foreign("DESHBANDHU","C");

Eng12Close=Foreign("ECABLES","C");

Eng13Close=Foreign("GOLDENSON","C");

Eng14Close=Foreign("GPHISPAT","C");

Eng15Close=Foreign("KAY&QUE","C");

Eng16Close=Foreign("MONNOJTX","C");

Eng17Close=Foreign("MONNOSTAF","C");

Eng18Close=Foreign("NAVANACNG","C");

Eng19Close=Foreign("NPOLYMAR","C");

Eng20Close=Foreign("NTLTUBES","C");

Eng21Close=Foreign("OLYMPIC","C");

Eng22Close=Foreign("QSMDRYCELL","C");

Eng23Close=Foreign("RANFOUNDRY","C");

Eng24Close=Foreign("RENWICKJA","C");

Eng25Close=Foreign("SALAMCRST","C");

Eng26Close=Foreign("SINGERBD","C");

////Yesterday's Close Price

Eng1Prev=Ref(Eng1Close,-1) ;

Eng2Prev=Ref(Eng2Close,-1) ;

Eng3Prev=Ref(Eng3Close,-1) ;

Eng4Prev=Ref(Eng4Close,-1) ;

Eng5Prev=Ref(Eng5Close,-1) ;

Eng6Prev=Ref(Eng6Close,-1) ;

Eng7Prev=Ref(Eng7Close,-1) ;

Eng8Prev=Ref(Eng8Close,-1) ;

Eng9Prev=Ref(Eng9Close,-1) ;

Eng10Prev=Ref(Eng10Close,-1) ;

Eng11Prev=Ref(Eng11Close,-1) ;

Eng12Prev=Ref(Eng12Close,-1) ;

Eng13Prev=Ref(Eng13Close,-1) ;

Eng14Prev=Ref(Eng14Close,-1) ;

Eng15Prev=Ref(Eng15Close,-1) ;

Eng16Prev=Ref(Eng16Close,-1) ;

Eng17Prev=Ref(Eng17Close,-1) ;

Eng18Prev=Ref(Eng18Close,-1) ;

Eng19Prev=Ref(Eng19Close,-1) ;

Eng20Prev=Ref(Eng20Close,-1) ;

Eng21Prev=Ref(Eng21Close,-1) ;

Eng22Prev=Ref(Eng22Close,-1) ;

Eng23Prev=Ref(Eng23Close,-1) ;

Eng24Prev=Ref(Eng24Close,-1) ;

Eng25Prev=Ref(Eng25Close,-1) ;

Eng26Prev=Ref(Eng26Close,-1) ;

////Change Taka

Eng1ChangeTaka=Prec((Eng1Close)-(Ref(Eng1Close,-1)),2);

Eng2ChangeTaka=Prec((Eng2Close)-(Ref(Eng2Close,-1)),2);

Eng3ChangeTaka=Prec((Eng3Close)-(Ref(Eng3Close,-1)),2);

Eng4ChangeTaka=Prec((Eng4Close)-(Ref(Eng4Close,-1)),2);

Eng5ChangeTaka=Prec((Eng5Close)-(Ref(Eng5Close,-1)),2);

Eng6ChangeTaka=Prec((Eng6Close)-(Ref(Eng6Close,-1)),2);

Eng7ChangeTaka=Prec((Eng7Close)-(Ref(Eng7Close,-1)),2);

Eng8ChangeTaka=Prec((Eng8Close)-(Ref(Eng8Close,-1)),2);

Eng9ChangeTaka=Prec((Eng9Close)-(Ref(Eng9Close,-1)),2);

Eng10ChangeTaka=Prec((Eng10Close)-(Ref(Eng10Close,-1)),2);

Eng11ChangeTaka=Prec((Eng11Close)-(Ref(Eng11Close,-1)),2);

Eng12ChangeTaka=Prec((Eng12Close)-(Ref(Eng12Close,-1)),2);

Eng13ChangeTaka=Prec((Eng13Close)-(Ref(Eng13Close,-1)),2);

Eng14ChangeTaka=Prec((Eng14Close)-(Ref(Eng14Close,-1)),2);

Eng15ChangeTaka=Prec((Eng15Close)-(Ref(Eng15Close,-1)),2);

Eng16ChangeTaka=Prec((Eng16Close)-(Ref(Eng16Close,-1)),2);

Eng17ChangeTaka=Prec((Eng17Close)-(Ref(Eng17Close,-1)),2);

Eng18ChangeTaka=Prec((Eng18Close)-(Ref(Eng18Close,-1)),2);

Eng19ChangeTaka=Prec((Eng19Close)-(Ref(Eng19Close,-1)),2);

Eng20ChangeTaka=Prec((Eng20Close)-(Ref(Eng20Close,-1)),2);

Eng21ChangeTaka=Prec((Eng21Close)-(Ref(Eng21Close,-1)),2);

Eng22ChangeTaka=Prec((Eng22Close)-(Ref(Eng22Close,-1)),2);

Eng23ChangeTaka=Prec((Eng23Close)-(Ref(Eng23Close,-1)),2);

Eng24ChangeTaka=Prec((Eng24Close)-(Ref(Eng24Close,-1)),2);

Eng25ChangeTaka=Prec((Eng25Close)-(Ref(Eng25Close,-1)),2);

Eng26ChangeTaka=Prec((Eng26Close)-(Ref(Eng26Close,-1)),2);

////Change %

Eng1Change=Prec((Eng1ChangeTaka*100/Eng1Prev),1);

Eng2Change=Prec((Eng2ChangeTaka*100/Eng2Prev),1);

Eng3Change=Prec((Eng3ChangeTaka*100/Eng3Prev),1);

Eng4Change=Prec((Eng4ChangeTaka*100/Eng4Prev),1);

Eng5Change=Prec((Eng5ChangeTaka*100/Eng5Prev),1);

Eng6Change=Prec((Eng6ChangeTaka*100/Eng6Prev),1);

Eng7Change=Prec((Eng7ChangeTaka*100/Eng7Prev),1);

Eng8Change=Prec((Eng8ChangeTaka*100/Eng8Prev),1);

Eng9Change=Prec((Eng9ChangeTaka*100/Eng9Prev),1);

Eng10Change=Prec((Eng10ChangeTaka*100/Eng10Prev),1);

Eng11Change=Prec((Eng11ChangeTaka*100/Eng11Prev),1);

Eng12Change=Prec((Eng12ChangeTaka*100/Eng12Prev),1);

Eng13Change=Prec((Eng13ChangeTaka*100/Eng13Prev),1);

Eng14Change=Prec((Eng14ChangeTaka*100/Eng14Prev),1);

Eng15Change=Prec((Eng15ChangeTaka*100/Eng15Prev),1);

Eng16Change=Prec((Eng16ChangeTaka*100/Eng16Prev),1);

Eng17Change=Prec((Eng17ChangeTaka*100/Eng17Prev),1);

Eng18Change=Prec((Eng18ChangeTaka*100/Eng18Prev),1);

Eng19Change=Prec((Eng19ChangeTaka*100/Eng19Prev),1);

Eng20Change=Prec((Eng20ChangeTaka*100/Eng20Prev),1);

Eng21Change=Prec((Eng21ChangeTaka*100/Eng21Prev),1);

Eng22Change=Prec((Eng22ChangeTaka*100/Eng22Prev),1);

Eng23Change=Prec((Eng23ChangeTaka*100/Eng23Prev),1);

Eng24Change=Prec((Eng24ChangeTaka*100/Eng24Prev),1);

Eng25Change=Prec((Eng25ChangeTaka*100/Eng25Prev),1);

Eng26Change=Prec((Eng26ChangeTaka*100/Eng26Prev),1);

//// FOOD & ALLIED-----

//// Close Price

Food1Close=Foreign("AMCL(PRAN)","C");

Food2Close=Foreign("APEXFOODS","C");

Food3Close=Foreign("BANGAS","C");

Food4Close=Foreign("BATBC","C");

Food5Close=Foreign("BEACHHATCH","C");

Food6Close=Foreign("CVOPRL","C");

Food7Close=Foreign("FINEFOODS","C");

Food8Close=Foreign("FUWANGFOOD","C");

Food9Close=Foreign("GEMINISEA","C");

Food10Close=Foreign("GHAIL","C");

Food11Close=Foreign("MEGCONMILK","C");

Food12Close=Foreign("MEGHNAPET","C");

Food13Close=Foreign("NTC","C");

Food14Close=Foreign("RAHIMAFOOD","C");

Food15Close=Foreign("RDFOOD","C");

Food16Close=Foreign("SHYAMPSUG","C");

Food17Close=Foreign("ZEALBANGLA","C");

////Yesterday's Close Price

Food1Prev=Ref(Food1Close,-1) ;

Food2Prev=Ref(Food2Close,-1) ;

Food3Prev=Ref(Food3Close,-1) ;

Food4Prev=Ref(Food4Close,-1) ;

Food5Prev=Ref(Food5Close,-1) ;

Food6Prev=Ref(Food6Close,-1) ;

Food7Prev=Ref(Food7Close,-1) ;

Food8Prev=Ref(Food8Close,-1) ;

Food9Prev=Ref(Food9Close,-1) ;

Food10Prev=Ref(Food10Close,-1) ;

Food11Prev=Ref(Food11Close,-1) ;

Food12Prev=Ref(Food12Close,-1) ;

Food13Prev=Ref(Food13Close,-1) ;

Food14Prev=Ref(Food14Close,-1) ;

Food15Prev=Ref(Food15Close,-1) ;

Food16Prev=Ref(Food16Close,-1) ;

Food17Prev=Ref(Food17Close,-1) ;

////Change Taka

Food1ChangeTaka=Prec((Food1Close)-(Ref(Food1Close,-1)),2);

Food2ChangeTaka=Prec((Food2Close)-(Ref(Food2Close,-1)),2);

Food3ChangeTaka=Prec((Food3Close)-(Ref(Food3Close,-1)),2);

Food4ChangeTaka=Prec((Food4Close)-(Ref(Food4Close,-1)),2);

Food5ChangeTaka=Prec((Food5Close)-(Ref(Food5Close,-1)),2);

Food6ChangeTaka=Prec((Food6Close)-(Ref(Food6Close,-1)),2);

Food7ChangeTaka=Prec((Food7Close)-(Ref(Food7Close,-1)),2);

Food8ChangeTaka=Prec((Food8Close)-(Ref(Food8Close,-1)),2);

Food9ChangeTaka=Prec((Food9Close)-(Ref(Food9Close,-1)),2);

Food10ChangeTaka=Prec((Food10Close)-(Ref(Food10Close,-1)),2);

Food11ChangeTaka=Prec((Food11Close)-(Ref(Food11Close,-1)),2);

Food12ChangeTaka=Prec((Food12Close)-(Ref(Food12Close,-1)),2);

Food13ChangeTaka=Prec((Food13Close)-(Ref(Food13Close,-1)),2);

Food14ChangeTaka=Prec((Food14Close)-(Ref(Food14Close,-1)),2);

Food15ChangeTaka=Prec((Food15Close)-(Ref(Food15Close,-1)),2);

Food16ChangeTaka=Prec((Food16Close)-(Ref(Food16Close,-1)),2);

Food17ChangeTaka=Prec((Food17Close)-(Ref(Food17Close,-1)),2);

////Change %

Food1Change=Prec((Food1ChangeTaka*100/Food1Prev),1);

Food2Change=Prec((Food2ChangeTaka*100/Food2Prev),1);

Food3Change=Prec((Food3ChangeTaka*100/Food3Prev),1);

Food4Change=Prec((Food4ChangeTaka*100/Food4Prev),1);

Food5Change=Prec((Food5ChangeTaka*100/Food5Prev),1);

Food6Change=Prec((Food6ChangeTaka*100/Food6Prev),1);

Food7Change=Prec((Food7ChangeTaka*100/Food7Prev),1);

Food8Change=Prec((Food8ChangeTaka*100/Food8Prev),1);

Food9Change=Prec((Food9ChangeTaka*100/Food9Prev),1);

Food10Change=Prec((Food10ChangeTaka*100/Food10Prev),1);

Food11Change=Prec((Food11ChangeTaka*100/Food11Prev),1);

Food12Change=Prec((Food12ChangeTaka*100/Food12Prev),1);

Food13Change=Prec((Food13ChangeTaka*100/Food13Prev),1);

Food14Change=Prec((Food14ChangeTaka*100/Food14Prev),1);

Food15Change=Prec((Food15ChangeTaka*100/Food15Prev),1);

Food16Change=Prec((Food16ChangeTaka*100/Food16Prev),1);

Food17Change=Prec((Food17ChangeTaka*100/Food17Prev),1);

//// Service & R. Estate------

//// Close Price

SR1Close=Foreign("EHL","C");

SR2Close=Foreign("SAMORITA","C");

SR3Close=Foreign("SAPORTL","C");

////Yesterday's Close Price

SR1Prev=Ref(SR1Close,-1) ;

SR2Prev=Ref(SR2Close,-1) ;

SR3Prev=Ref(SR3Close,-1) ;

////Change Taka

SR1ChangeTaka=Prec((SR1Close)-(Ref(SR1Close,-1)),2);

SR2ChangeTaka=Prec((SR2Close)-(Ref(SR2Close,-1)),2);

SR3ChangeTaka=Prec((SR3Close)-(Ref(SR3Close,-1)),2);

////Change %

SR1Change=Prec((SR1ChangeTaka*100/SR1Prev),1);

SR2Change=Prec((SR2ChangeTaka*100/SR2Prev),1);

SR3Change=Prec((SR3ChangeTaka*100/SR3Prev),1);

_SECTION_END();

//// IT------

//// Close Price

IT1Close=Foreign("AAMRATECH","C");

IT2Close=Foreign("AGNISYSL","C");

IT3Close=Foreign("BDCOM","C");

IT4Close=Foreign("DAFODILCOM","C");

IT5Close=Foreign("INTECH","C");

IT6Close=Foreign("ISNLTD","C");

////Yesterday's Close Price

IT1Prev=Ref(IT1Close,-1) ;

IT2Prev=Ref(IT2Close,-1) ;

IT3Prev=Ref(IT3Close,-1) ;

IT4Prev=Ref(IT4Close,-1) ;

IT5Prev=Ref(IT5Close,-1) ;

IT6Prev=Ref(IT6Close,-1) ;

////Change Taka

IT1ChangeTaka=Prec((IT1Close)-(Ref(IT1Close,-1)),2);

IT2ChangeTaka=Prec((IT2Close)-(Ref(IT2Close,-1)),2);

IT3ChangeTaka=Prec((IT3Close)-(Ref(IT3Close,-1)),2);

IT4ChangeTaka=Prec((IT4Close)-(Ref(IT4Close,-1)),2);

IT5ChangeTaka=Prec((IT5Close)-(Ref(IT5Close,-1)),2);

IT6ChangeTaka=Prec((IT6Close)-(Ref(IT6Close,-1)),2);

////Change %

IT1Change=Prec((IT1ChangeTaka*100/IT1Prev),1);

IT2Change=Prec((IT2ChangeTaka*100/IT2Prev),1);

IT3Change=Prec((IT3ChangeTaka*100/IT3Prev),1);

IT4Change=Prec((IT4ChangeTaka*100/IT4Prev),1);

IT5Change=Prec((IT5ChangeTaka*100/IT5Prev),1);

IT6Change=Prec((IT6ChangeTaka*100/IT6Prev),1);

//// Tannery Industries------

//// Close Price

Tannery1Close=Foreign("APEXADELFT","C");

Tannery2Close=Foreign("APEXTANRY","C");

Tannery3Close=Foreign("BATASHOE","C");

Tannery4Close=Foreign("LEGACYFOOT","C");

Tannery5Close=Foreign("SAMATALETH","C");

////Yesterday's Close Price

Tannery1Prev=Ref(Tannery1Close,-1) ;

Tannery2Prev=Ref(Tannery2Close,-1) ;

Tannery3Prev=Ref(Tannery3Close,-1) ;

Tannery4Prev=Ref(Tannery4Close,-1) ;

Tannery5Prev=Ref(Tannery5Close,-1) ;

////Change Taka

Tannery1ChangeTaka=Prec((Tannery1Close)-(Ref(Tannery1Close,-1)),2);

Tannery2ChangeTaka=Prec((Tannery2Close)-(Ref(Tannery2Close,-1)),2);

Tannery3ChangeTaka=Prec((Tannery3Close)-(Ref(Tannery3Close,-1)),2);

Tannery4ChangeTaka=Prec((Tannery4Close)-(Ref(Tannery4Close,-1)),2);

Tannery5ChangeTaka=Prec((Tannery5Close)-(Ref(Tannery5Close,-1)),2);

////Change %

Tannery1Change=Prec((Tannery1ChangeTaka*100/Tannery1Prev),1);

Tannery2Change=Prec((Tannery2ChangeTaka*100/Tannery2Prev),1);

Tannery3Change=Prec((Tannery3ChangeTaka*100/Tannery3Prev),1);

Tannery4Change=Prec((Tannery4ChangeTaka*100/Tannery4Prev),1);

Tannery5Change=Prec((Tannery5ChangeTaka*100/Tannery5Prev),1);

//// Misc------

//// Close Price

Misc1Close=Foreign("ARAMIT","C");

Misc2Close=Foreign("BERGERPBL","C");

Misc3Close=Foreign("BEXIMCO","C");

Misc4Close=Foreign("BSC","C");

Misc5Close=Foreign("GQBALLPEN","C");

Misc6Close=Foreign("MIRACLEIND","C");

Misc7Close=Foreign("SAVAREFR","C");

Misc8Close=Foreign("SINOBANGLA","C");

Misc9Close=Foreign("USMANIAGL","C");

////Yesterday's Close Price

Misc1Prev=Ref(Misc1Close,-1) ;

Misc2Prev=Ref(Misc2Close,-1) ;

Misc3Prev=Ref(Misc3Close,-1) ;

Misc4Prev=Ref(Misc4Close,-1) ;

Misc5Prev=Ref(Misc5Close,-1) ;

Misc6Prev=Ref(Misc6Close,-1) ;

Misc7Prev=Ref(Misc7Close,-1) ;

Misc8Prev=Ref(Misc8Close,-1) ;

Misc9Prev=Ref(Misc9Close,-1) ;

////Change Taka

Misc1ChangeTaka=Prec((Misc1Close)-(Ref(Misc1Close,-1)),2);

Misc2ChangeTaka=Prec((Misc2Close)-(Ref(Misc2Close,-1)),2);

Misc3ChangeTaka=Prec((Misc3Close)-(Ref(Misc3Close,-1)),2);

Misc4ChangeTaka=Prec((Misc4Close)-(Ref(Misc4Close,-1)),2);

Misc5ChangeTaka=Prec((Misc5Close)-(Ref(Misc5Close,-1)),2);

Misc6ChangeTaka=Prec((Misc6Close)-(Ref(Misc6Close,-1)),2);

Misc7ChangeTaka=Prec((Misc7Close)-(Ref(Misc7Close,-1)),2);

Misc8ChangeTaka=Prec((Misc8Close)-(Ref(Misc8Close,-1)),2);

Misc9ChangeTaka=Prec((Misc9Close)-(Ref(Misc9Close,-1)),2);

////Change %

Misc1Change=Prec((Misc1ChangeTaka*100/Misc1Prev),1);

Misc2Change=Prec((Misc2ChangeTaka*100/Misc2Prev),1);

Misc3Change=Prec((Misc3ChangeTaka*100/Misc3Prev),1);

Misc4Change=Prec((Misc4ChangeTaka*100/Misc4Prev),1);

Misc5Change=Prec((Misc5ChangeTaka*100/Misc5Prev),1);

Misc6Change=Prec((Misc6ChangeTaka*100/Misc6Prev),1);

Misc7Change=Prec((Misc7ChangeTaka*100/Misc7Prev),1);

Misc8Change=Prec((Misc8ChangeTaka*100/Misc8Prev),1);

Misc9Change=Prec((Misc9ChangeTaka*100/Misc9Prev),1);

//// BOND------

//// Close Price

Bond1Close=Foreign("ACIZCBOND","C");

Bond2Close=Foreign("IBBLPBOND","C");

Bond3Close=Foreign("BRACSCBOND","C");

////Yesterday's Close Price

Bond1Prev=Ref(Bond1Close,-1) ;

Bond2Prev=Ref(Bond2Close,-1) ;

Bond3Prev=Ref(Bond3Close,-1) ;

////Change Taka

Bond1ChangeTaka=Prec((Bond1Close)-(Ref(Bond1Close,-1)),2);

Bond2ChangeTaka=Prec((Bond2Close)-(Ref(Bond2Close,-1)),2);

Bond3ChangeTaka=Prec((Bond3Close)-(Ref(Bond3Close,-1)),2);

////Change %

Bond1Change=Prec((Bond1ChangeTaka*100/Bond1Prev),1);

Bond2Change=Prec((Bond2ChangeTaka*100/Bond2Prev),1);

Bond3Change=Prec((Bond3ChangeTaka*100/Bond3Prev),1);

//// MF------

//// Close Price

MF1Close=Foreign("1JANATAMF","C");

MF2Close=Foreign("1STICB","C");

MF3Close=Foreign("1STPRIMFMF","C");

MF4Close=Foreign("2NDICB","C");

MF5Close=Foreign("3RDICB","C");

MF6Close=Foreign("4THICB","C");

MF7Close=Foreign("5THICB","C");

MF8Close=Foreign("6THICB","C");

MF9Close=Foreign("7THICB","C");

MF10Close=Foreign("8THICB","C");

MF11Close=Foreign("ABB1STMF","C");

MF12Close=Foreign("AIBL1STIMF","C");

MF13Close=Foreign("AIMS1STMF","C");

MF14Close=Foreign("DBH1STMF","C");

MF15Close=Foreign("EBL1STMF","C");

MF16Close=Foreign("EBLNRBMF","C");

MF17Close=Foreign("EXIM1STMF","C");

MF18Close=Foreign("FBFIF","C");

MF19Close=Foreign("GRAMEEN1","C");

MF20Close=Foreign("GRAMEENS2","C");

MF21Close=Foreign("GREENDELMF","C");

MF22Close=Foreign("ICB1STNRB","C");

MF23Close=Foreign("ICB2NDNRB","C");

MF24Close=Foreign("ICB3RDNRB","C");

MF25Close=Foreign("ICBAMCL2ND","C");

MF26Close=Foreign("ICBEPMF1S1","C");

MF27Close=Foreign("ICBISLAMIC","C");

MF28Close=Foreign("ICBSONALI1","C");

MF29Close=Foreign("IFIC1STMF","C");

MF30Close=Foreign("IFILISLMF1","C");

MF31Close=Foreign("LRGLOBMF1","C");

MF32Close=Foreign("MBL1STMF","C");

MF33Close=Foreign("NLI1STMF","C");

MF34Close=Foreign("PF1STMF","C");

MF35Close=Foreign("PHPMF1","C");

MF36Close=Foreign("POPULAR1MF","C");

MF37Close=Foreign("PRIME1ICBA","C");

MF38Close=Foreign("RELIANCE1","C");

MF39Close=Foreign("SEBL1STMF","C");

MF40Close=Foreign("TRUSTB1MF","C");

////Yesterday's Close Price

MF1Prev=Ref(MF1Close,-1) ;

MF2Prev=Ref(MF2Close,-1) ;

MF3Prev=Ref(MF3Close,-1) ;

MF4Prev=Ref(MF4Close,-1) ;

MF5Prev=Ref(MF5Close,-1) ;

MF6Prev=Ref(MF6Close,-1) ;

MF7Prev=Ref(MF7Close,-1) ;

MF8Prev=Ref(MF8Close,-1) ;

MF9Prev=Ref(MF9Close,-1) ;

MF10Prev=Ref(MF10Close,-1) ;

MF11Prev=Ref(MF11Close,-1) ;

MF12Prev=Ref(MF12Close,-1) ;

MF13Prev=Ref(MF13Close,-1) ;

MF14Prev=Ref(MF14Close,-1) ;

MF15Prev=Ref(MF15Close,-1) ;

MF16Prev=Ref(MF16Close,-1) ;

MF17Prev=Ref(MF17Close,-1) ;

MF18Prev=Ref(MF18Close,-1) ;

MF19Prev=Ref(MF19Close,-1) ;

MF20Prev=Ref(MF20Close,-1) ;

MF21Prev=Ref(MF21Close,-1) ;

MF22Prev=Ref(MF22Close,-1) ;

MF23Prev=Ref(MF23Close,-1) ;

MF24Prev=Ref(MF24Close,-1) ;

MF25Prev=Ref(MF25Close,-1) ;

MF26Prev=Ref(MF26Close,-1) ;

MF27Prev=Ref(MF27Close,-1) ;

MF28Prev=Ref(MF28Close,-1) ;

MF29Prev=Ref(MF29Close,-1) ;

MF30Prev=Ref(MF30Close,-1) ;

MF31Prev=Ref(MF31Close,-1) ;

MF32Prev=Ref(MF32Close,-1) ;

MF33Prev=Ref(MF33Close,-1) ;

MF34Prev=Ref(MF34Close,-1) ;

MF35Prev=Ref(MF35Close,-1) ;

MF36Prev=Ref(MF36Close,-1) ;

MF37Prev=Ref(MF37Close,-1) ;

MF38Prev=Ref(MF38Close,-1) ;

MF39Prev=Ref(MF39Close,-1) ;

MF40Prev=Ref(MF40Close,-1) ;

////Change Taka

MF1ChangeTaka=Prec((MF1Close)-(Ref(MF1Close,-1)),2);

MF2ChangeTaka=Prec((MF2Close)-(Ref(MF2Close,-1)),2);

MF3ChangeTaka=Prec((MF3Close)-(Ref(MF3Close,-1)),2);

MF4ChangeTaka=Prec((MF4Close)-(Ref(MF4Close,-1)),2);

MF5ChangeTaka=Prec((MF5Close)-(Ref(MF5Close,-1)),2);

MF6ChangeTaka=Prec((MF6Close)-(Ref(MF6Close,-1)),2);

MF7ChangeTaka=Prec((MF7Close)-(Ref(MF7Close,-1)),2);

MF8ChangeTaka=Prec((MF8Close)-(Ref(MF8Close,-1)),2);

MF9ChangeTaka=Prec((MF9Close)-(Ref(MF9Close,-1)),2);

MF10ChangeTaka=Prec((MF10Close)-(Ref(MF10Close,-1)),2);

MF11ChangeTaka=Prec((MF11Close)-(Ref(MF11Close,-1)),2);

MF12ChangeTaka=Prec((MF12Close)-(Ref(MF12Close,-1)),2);

MF13ChangeTaka=Prec((MF13Close)-(Ref(MF13Close,-1)),2);

MF14ChangeTaka=Prec((MF14Close)-(Ref(MF14Close,-1)),2);

MF15ChangeTaka=Prec((MF15Close)-(Ref(MF15Close,-1)),2);

MF16ChangeTaka=Prec((MF16Close)-(Ref(MF16Close,-1)),2);

MF17ChangeTaka=Prec((MF17Close)-(Ref(MF17Close,-1)),2);

MF18ChangeTaka=Prec((MF18Close)-(Ref(MF18Close,-1)),2);

MF19ChangeTaka=Prec((MF19Close)-(Ref(MF19Close,-1)),2);

MF20ChangeTaka=Prec((MF20Close)-(Ref(MF20Close,-1)),2);

MF21ChangeTaka=Prec((MF21Close)-(Ref(MF21Close,-1)),2);

MF22ChangeTaka=Prec((MF22Close)-(Ref(MF22Close,-1)),2);

MF23ChangeTaka=Prec((MF23Close)-(Ref(MF23Close,-1)),2);

MF24ChangeTaka=Prec((MF24Close)-(Ref(MF24Close,-1)),2);

MF25ChangeTaka=Prec((MF25Close)-(Ref(MF25Close,-1)),2);

MF26ChangeTaka=Prec((MF26Close)-(Ref(MF26Close,-1)),2);

MF27ChangeTaka=Prec((MF27Close)-(Ref(MF27Close,-1)),2);

MF28ChangeTaka=Prec((MF28Close)-(Ref(MF28Close,-1)),2);

MF29ChangeTaka=Prec((MF29Close)-(Ref(MF29Close,-1)),2);

MF30ChangeTaka=Prec((MF30Close)-(Ref(MF30Close,-1)),2);

MF31ChangeTaka=Prec((MF31Close)-(Ref(MF31Close,-1)),2);

MF32ChangeTaka=Prec((MF32Close)-(Ref(MF32Close,-1)),2);

MF33ChangeTaka=Prec((MF33Close)-(Ref(MF33Close,-1)),2);

MF34ChangeTaka=Prec((MF34Close)-(Ref(MF34Close,-1)),2);

MF35ChangeTaka=Prec((MF35Close)-(Ref(MF35Close,-1)),2);

MF36ChangeTaka=Prec((MF36Close)-(Ref(MF36Close,-1)),2);

MF37ChangeTaka=Prec((MF37Close)-(Ref(MF37Close,-1)),2);

MF38ChangeTaka=Prec((MF38Close)-(Ref(MF38Close,-1)),2);

MF39ChangeTaka=Prec((MF39Close)-(Ref(MF39Close,-1)),2);

MF40ChangeTaka=Prec((MF40Close)-(Ref(MF40Close,-1)),2);

////Change %

MF1Change=Prec((MF1ChangeTaka*100/MF1Prev),1);

MF2Change=Prec((MF2ChangeTaka*100/MF2Prev),1);

MF3Change=Prec((MF3ChangeTaka*100/MF3Prev),1);

MF4Change=Prec((MF4ChangeTaka*100/MF4Prev),1);

MF5Change=Prec((MF5ChangeTaka*100/MF5Prev),1);

MF6Change=Prec((MF6ChangeTaka*100/MF6Prev),1);

MF7Change=Prec((MF7ChangeTaka*100/MF7Prev),1);

MF8Change=Prec((MF8ChangeTaka*100/MF8Prev),1);

MF9Change=Prec((MF9ChangeTaka*100/MF9Prev),1);

MF10Change=Prec((MF10ChangeTaka*100/MF10Prev),1);

MF11Change=Prec((MF11ChangeTaka*100/MF11Prev),1);

MF12Change=Prec((MF12ChangeTaka*100/MF12Prev),1);

MF13Change=Prec((MF13ChangeTaka*100/MF13Prev),1);

MF14Change=Prec((MF14ChangeTaka*100/MF14Prev),1);

MF15Change=Prec((MF15ChangeTaka*100/MF15Prev),1);

MF16Change=Prec((MF16ChangeTaka*100/MF16Prev),1);

MF17Change=Prec((MF17ChangeTaka*100/MF17Prev),1);

MF18Change=Prec((MF18ChangeTaka*100/MF18Prev),1);

MF19Change=Prec((MF19ChangeTaka*100/MF19Prev),1);

MF20Change=Prec((MF20ChangeTaka*100/MF20Prev),1);

MF21Change=Prec((MF21ChangeTaka*100/MF21Prev),1);

MF22Change=Prec((MF22ChangeTaka*100/MF22Prev),1);

MF23Change=Prec((MF23ChangeTaka*100/MF23Prev),1);

MF24Change=Prec((MF24ChangeTaka*100/MF24Prev),1);

MF25Change=Prec((MF25ChangeTaka*100/MF25Prev),1);

MF26Change=Prec((MF26ChangeTaka*100/MF26Prev),1);

MF27Change=Prec((MF27ChangeTaka*100/MF27Prev),1);

MF28Change=Prec((MF28ChangeTaka*100/MF28Prev),1);

MF29Change=Prec((MF29ChangeTaka*100/MF29Prev),1);

MF30Change=Prec((MF30ChangeTaka*100/MF30Prev),1);

MF31Change=Prec((MF31ChangeTaka*100/MF31Prev),1);

MF32Change=Prec((MF32ChangeTaka*100/MF32Prev),1);

MF33Change=Prec((MF33ChangeTaka*100/MF33Prev),1);

MF34Change=Prec((MF34ChangeTaka*100/MF34Prev),1);

MF35Change=Prec((MF35ChangeTaka*100/MF35Prev),1);

MF36Change=Prec((MF36ChangeTaka*100/MF36Prev),1);

MF37Change=Prec((MF37ChangeTaka*100/MF37Prev),1);

MF38Change=Prec((MF38ChangeTaka*100/MF38Prev),1);

MF39Change=Prec((MF39ChangeTaka*100/MF39Prev),1);

MF40Change=Prec((MF40ChangeTaka*100/MF40Prev),1);

//// Paper & Printing------

//// Close Price

Paper1Close=Foreign("HAKKANIPUL","C");

////Yesterday's Close Price

Paper1Prev=Ref(Bond1Close,-1) ;

////Change Taka

Paper1ChangeTaka=Prec((Paper1Close)-(Ref(Paper1Close,-1)),2);

////Change %

Paper1Change=Prec((Paper1ChangeTaka*100/Paper1Prev),1);

//// Telecommunication------

//// Close Price

Tele1Close=Foreign("GP","C");

Tele2Close=Foreign("BSCCL","C");

////Yesterday's Close Price

Tele1Prev=Ref(Tele1Close,-1) ;

Tele2Prev=Ref(Tele2Close,-1) ;

////Change Taka

Tele1ChangeTaka=Prec((Tele1Close)-(Ref(Tele1Close,-1)),2);

Tele2ChangeTaka=Prec((Tele2Close)-(Ref(Tele2Close,-1)),2);

////Change %

Tele1Change=Prec((Tele1ChangeTaka*100/Tele1Prev),1);

Tele2Change=Prec((Tele2ChangeTaka*100/Tele2Prev),1);

//// Travel & Leisure------

//// Close Price

Trav2Close=Foreign("UNIQUEHRL","C");

Trav3Close=Foreign("UNITEDAIR","C");

////Yesterday's Close Price

Trav2Prev=Ref(Trav2Close,-1) ;

Trav3Prev=Ref(Trav3Close,-1) ;

////Change Taka

Trav2ChangeTaka=Prec((Trav2Close)-(Ref(Trav2Close,-1)),2);

Trav3ChangeTaka=Prec((Trav3Close)-(Ref(Trav3Close,-1)),2);

////Change %

Trav2Change=Prec((Trav2ChangeTaka*100/Trav2Prev),1);

Trav3Change=Prec((Trav3ChangeTaka*100/Trav3Prev),1);

_SECTION_BEGIN("Ticker in Box");

radius = 0.1 * Status("pxheight");

textoffset = 0.05 * radius;

GfxSetBkColor(colorBlack);

GfxSetBkMode(2);

SetChartBkColor(1 ) ;

GfxSetTextColor( colorOrange);

GfxSelectFont("Arial", 9, 650 );

GfxTextOut( "" +" (" +Date ()+") ", textoffset + -1, 1 );

GfxSetTextColor( colorTurquoise);

GfxTextOut( "=====================================================================================================================================" , textoffset + 70, 1 );

GfxTextOut( "========================================================================================================================================================================" , textoffset + -5, 600 );

GfxSelectFont("Times New Roman", 8.4, 550, True, False, 900 );

GfxTextOut( "-------------------------------------------------------------------------------

------------------------------------------------------------------------" , textoffset + 1165, 609 );

GfxSetTextColor( colorYellow);

GfxSelectFont("Times New Roman", 11, 500 );

GfxTextOut( "•••••• DSE Ticker Viewer ••••••" , textoffset + 75, 1 );

TColor= ParamColor("Font Color", colorSkyblue);

BColor= ParamColor("Border Color", colorTeal);

Acolor= ParamColor("ADU Color", colorLightOrange);

//1

////Rect Box Bank

GfxSelectPen( BColor, 1 );

GfxSelectSolidBrush( colorBlack );

////Rect Bank

GfxRoundRect( 2, 20, 175, 337, 5, 5 );

////Rect lIFE INS

GfxRoundRect( 2, 338, 175, 476, 5, 5 );

////Rect CEMENT

GfxRoundRect( 2, 477, 175, 565, 5, 5 );

////Rect Box GP

GfxRoundRect( 2, 566, 175, 602, 5, 5 );

//2

////Rect Box Gen. Ins.

GfxRoundRect( 178, 20, 352, 377, 5, 10 );

////Rect FUEL

GfxRoundRect( 178, 378, 352, 545, 5, 5 );

////Rect Box UNIAIR

GfxRoundRect( 178, 546, 352, 602, 5, 5 );

//3

////Rect NBFI

GfxRoundRect( 355, 20, 532, 264, 5, 5 );

////Rect TEX

GfxRoundRect( 355, 266, 532, 573, 5, 5 );

////Rect Paper

GfxRoundRect( 355, 575, 532, 602, 5, 5 );

//4

////Rect Box Engeneering

GfxRoundRect( 534, 20, 702, 298, 5, 5 );

////Rect PHARMA

GfxRoundRect( 534, 299, 702, 533, 5, 5 );

////Rect CERAMICS

GfxRoundRect( 534, 534, 702, 602, 5, 5 );

//5

////Rect Box FOOD

GfxRoundRect( 704, 20, 880, 224, 5, 5 );

////Rect Box SERV & Real

GfxRoundRect( 704, 225, 880, 272, 5, 5 );

////Rect Box IT

GfxRoundRect( 704, 273, 880, 358, 5, 5 );

////Rect Box Tannery

GfxRoundRect( 704, 359, 880, 432, 5, 5 );

////Rect Box MISC

GfxRoundRect( 704, 433, 880, 550, 5, 5 );

////Rect Box BOND

GfxRoundRect( 704, 551, 880, 602, 5, 5 );

//6

////Rect Box MF

GfxRoundRect( 882, 20, 1170, 478, 5, 5 );

////Rect Box Jute

GfxRoundRect( 882, 480, 1170, 532, 5, 5 );

////Rect ????????????????????????

//////////////////////////////

GfxSelectPen( colorBlack, 1 );

////////////////////////////////

GfxRoundRect( 977, 534, 1170, 600, 5, 5 );

/////////////////////////////////////////////////////

////Text in Box

Font = ParamList("Font:","Arial|Calibri|Futura|Tahoma|Times New Roman");

FontSize= Param("FontSize", 7, 6, 8, 1 );

GfxSelectFont(Font, FontSize, 900 );

BankVBS=0;

BankVSS=0;

BankEQL=0;

////////////////////////////////////////////////////

GfxSetTextColor (TColor);

GfxTextOut("== BANK ==", 4 , 22 );

Bank1up=SelectedValue( Bank1Close> Bank1Prev);

BankVBS = IIf(Bank1up,BankVBS+1,BankVBS);

Bank1down=SelectedValue( Bank1Close < Bank1Prev);

BankVSS = IIf(Bank1down,BankVSS+1,BankVSS);

Color=IIf(Bank1up,colorBrightGreen,IIf(Bank1down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("ABBANK - " + Bank1Close+" (" +Bank1ChangeTaka+"Tk.)"+" (" +Bank1Change+"%)", 6 , 34 );

Bank2up=SelectedValue( Bank2Close> Bank2Prev);

BankVBS = IIf(Bank2up,BankVBS+1,BankVBS);

Bank2down=SelectedValue( Bank2Close < Bank2Prev);

BankVSS = IIf(Bank2down,BankVSS+1,BankVSS);

Color=IIf(Bank1up,colorBrightGreen,IIf(Bank1down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("ALARABANK - " + Bank2Close+" (" +Bank2ChangeTaka+"Tk.)"+" (" +Bank2Change+"%)", 6 , 44 );

Bank3up=SelectedValue( Bank3Close> Bank3Prev);

BankVBS = IIf(Bank3up,BankVBS+1,BankVBS);

Bank3down=SelectedValue( Bank3Close < Bank3Prev);

BankVSS = IIf(Bank3down,BankVSS+1,BankVSS);

Color=IIf(Bank3up,colorBrightGreen,IIf(Bank3down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("BANKASIA - " + Bank3Close+" (" +Bank3ChangeTaka+"Tk.)"+" (" +Bank3Change+"%)", 6 , 54 );

Bank4up=SelectedValue( Bank4Close> Bank4Prev);

BankVBS = IIf(Bank4up,BankVBS+1,BankVBS);

Bank4down=SelectedValue( Bank4Close < Bank4Prev);

BankVSS = IIf(Bank4down,BankVSS+1,BankVSS);

Color=IIf(Bank4up,colorBrightGreen,IIf(Bank4down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("BRACBANK - " + Bank4Close+" (" +Bank4ChangeTaka+"Tk.)"+" (" +Bank4Change+"%)", 6 , 64 );

Bank5up=SelectedValue( Bank5Close> Bank5Prev);

BankVBS = IIf(Bank5up,BankVBS+1,BankVBS);

Bank5down=SelectedValue( Bank5Close < Bank5Prev);

BankVSS = IIf(Bank5down,BankVSS+1,BankVSS);

Color=IIf(Bank5up,colorBrightGreen,IIf(Bank5down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("CITYBANK - " + Bank5Close+" (" +Bank5ChangeTaka+"Tk.)"+" (" +Bank5Change+"%)", 6 , 74 );

Bank6up=SelectedValue( Bank6Close> Bank6Prev);

BankVBS = IIf(Bank6up,BankVBS+1,BankVBS);

Bank6down=SelectedValue( Bank6Close < Bank6Prev);

BankVSS = IIf(Bank6down,BankVSS+1,BankVSS);

Color=IIf(Bank6up,colorBrightGreen,IIf(Bank6down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("DHAKABANK - " + Bank6Close+" (" +Bank6ChangeTaka+"Tk.)"+" (" +Bank6Change+"%)", 6 , 84 );

Bank7up=SelectedValue( Bank7Close> Bank7Prev);

BankVBS = IIf(Bank7up,BankVBS+1,BankVBS);

Bank7down=SelectedValue( Bank7Close < Bank7Prev);

BankVSS = IIf(Bank7down,BankVSS+1,BankVSS);

Color=IIf(Bank7up,colorBrightGreen,IIf(Bank7down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("DUTCHBB - " + Bank7Close+" (" +Bank7ChangeTaka+"Tk.)"+" (" +Bank7Change+"%)", 6 , 94 );

Bank8up=SelectedValue( Bank8Close> Bank8Prev);

BankVBS = IIf(Bank8up,BankVBS+1,BankVBS);

Bank8down=SelectedValue( Bank8Close < Bank8Prev);

BankVSS = IIf(Bank8down,BankVSS+1,BankVSS);

Color=IIf(Bank8up,colorBrightGreen,IIf(Bank8down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("EBL - " + Bank8Close+" (" +Bank8ChangeTaka+"Tk.)"+" (" +Bank8Change+"%)", 6 , 104 );

Bank9up=SelectedValue( Bank9Close> Bank9Prev);

BankVBS = IIf(Bank9up,BankVBS+1,BankVBS);

Bank9down=SelectedValue( Bank9Close < Bank9Prev);

BankVSS = IIf(Bank9down,BankVSS+1,BankVSS);

Color=IIf(Bank9up,colorBrightGreen,IIf(Bank9down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("EXIMBANK - " + Bank9Close+" (" +Bank9ChangeTaka+"Tk.)"+" (" +Bank9Change+"%)", 6 , 114 );

Bank10up=SelectedValue( Bank10Close> Bank10Prev);

BankVBS = IIf(Bank10up,BankVBS+1,BankVBS);

Bank10down=SelectedValue( Bank10Close < Bank10Prev);

BankVSS = IIf(Bank10down,BankVSS+1,BankVSS);

Color= IIf(Bank10up,colorBrightGreen,IIf(Bank10down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("FIRSTSBANK - " + Bank10Close+" (" +Bank10ChangeTaka+"Tk.)"+" (" +Bank10Change+"%)", 6 , 124 );

Bank11up=SelectedValue( Bank11Close> Bank11Prev);

BankVBS = IIf(Bank11up,BankVBS+1,BankVBS);

Bank11down=SelectedValue( Bank11Close < Bank11Prev);

BankVSS = IIf(Bank11down,BankVSS+1,BankVSS);

Color=IIf(Bank11up,colorBrightGreen,IIf(Bank11down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("ICBIBANK - " + Bank11Close+" (" +Bank11ChangeTaka+"Tk.)"+" (" +Bank11Change+"%)", 6 , 134 );

Bank12up=SelectedValue( Bank12Close> Bank12Prev);

BankVBS = IIf(Bank12up,BankVBS+1,BankVBS);

Bank12down=SelectedValue( Bank12Close < Bank12Prev);

BankVSS = IIf(Bank12down,BankVSS+1,BankVSS);

Color=IIf(Bank12up,colorBrightGreen,IIf(Bank12down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("IFIC - " + Bank12Close+" (" +Bank12ChangeTaka+"Tk.)"+" (" +Bank12Change+"%)", 6 , 144 );

Bank13up=SelectedValue( Bank13Close> Bank13Prev);

BankVBS = IIf(Bank13up,BankVBS+1,BankVBS);

Bank13down=SelectedValue( Bank13Close < Bank13Prev);

BankVSS = IIf(Bank13down,BankVSS+1,BankVSS);

Color=IIf(Bank13up,colorBrightGreen,IIf(Bank13down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("ISLAMIBANK - " + Bank13Close+" (" +Bank13ChangeTaka+"Tk.)"+" (" +Bank13Change+"%)", 6 , 154 );

Bank14up=SelectedValue( Bank14Close> Bank14Prev);

BankVBS = IIf(Bank14up,BankVBS+1,BankVBS);

Bank14down=SelectedValue( Bank14Close < Bank14Prev);

BankVSS = IIf(Bank14down,BankVSS+1,BankVSS);

Color=IIf(Bank14up,colorBrightGreen,IIf(Bank14down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("JAMUNABANK - " + Bank14Close+" (" +Bank14ChangeTaka+"Tk.)"+" (" +Bank14Change+"%)", 6 , 164 );

Bank15up=SelectedValue( Bank15Close> Bank15Prev);

BankVBS = IIf(Bank15up,BankVBS+1,BankVBS);

Bank15down=SelectedValue( Bank15Close < Bank15Prev);

BankVSS = IIf(Bank15down,BankVSS+1,BankVSS);

Color=IIf(Bank15up,colorBrightGreen,IIf(Bank15down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("MERCANBANK - " + Bank15Close+" (" +Bank15ChangeTaka+"Tk.)"+" (" +Bank15Change+"%)", 6 , 174 );

Bank16up=SelectedValue( Bank16Close> Bank16Prev);

BankVBS = IIf(Bank16up,BankVBS+1,BankVBS);

Bank16down=SelectedValue( Bank16Close < Bank16Prev);

BankVSS = IIf(Bank16down,BankVSS+1,BankVSS);

Color=IIf(Bank16up,colorBrightGreen,IIf(Bank16down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("MTBL - " + Bank16Close+" (" +Bank16ChangeTaka+"Tk.)"+" (" +Bank16Change+"%)", 6 , 184);

Bank17up=SelectedValue( Bank17Close> Bank17Prev);

BankVBS = IIf(Bank17up,BankVBS+1,BankVBS);

Bank17down=SelectedValue( Bank17Close < Bank17Prev);

BankVSS = IIf(Bank17down,BankVSS+1,BankVSS);

Color=IIf(Bank17up,colorBrightGreen,IIf(Bank17down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("NBL - " + Bank17Close+" (" +Bank17ChangeTaka+"Tk.)"+" (" +Bank17Change+"%)", 6 , 194 );

Bank18up=SelectedValue( Bank18Close> Bank18Prev);

BankVBS = IIf(Bank18up,BankVBS+1,BankVBS);

Bank18down=SelectedValue( Bank18Close < Bank18Prev);

BankVSS = IIf(Bank18down,BankVSS+1,BankVSS);

Color=IIf(Bank18up,colorBrightGreen,IIf(Bank18down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("NCCBANK - " + Bank18Close+" (" +Bank18ChangeTaka+"Tk.)"+" (" +Bank18Change+"%)", 6 , 204 );

Bank19up=SelectedValue( Bank19Close> Bank19Prev);

BankVBS = IIf(Bank19up,BankVBS+1,BankVBS);

Bank19down=SelectedValue( Bank19Close < Bank19Prev);

BankVSS = IIf(Bank19down,BankVSS+1,BankVSS);

Color=IIf(Bank19up,colorBrightGreen,IIf(Bank19down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("ONEBANKLTD - " + Bank19Close+" (" +Bank19ChangeTaka+"Tk.)"+" (" +Bank19Change+"%)", 6 , 214 );

Bank20up=SelectedValue( Bank20Close> Bank20Prev);

BankVBS = IIf(Bank20up,BankVBS+1,BankVBS);

Bank20down=SelectedValue( Bank20Close < Bank20Prev);

BankVSS = IIf(Bank20down,BankVSS+1,BankVSS);

Color=IIf(Bank20up,colorBrightGreen,IIf(Bank20down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("PREMIERBAN - " + Bank20Close+" (" +Bank20ChangeTaka+"Tk.)"+" (" +Bank20Change+"%)", 6 , 224 );

Bank21up=SelectedValue( Bank21Close> Bank21Prev);

BankVBS = IIf(Bank21up,BankVBS+1,BankVBS);

Bank21down=SelectedValue( Bank21Close < Bank21Prev);

BankVSS = IIf(Bank21down,BankVSS+1,BankVSS);

Color=IIf(Bank21up,colorBrightGreen,IIf(Bank21down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("PRIMEBANK - " + Bank21Close+" (" +Bank21ChangeTaka+"Tk.)"+" (" +Bank21Change+"%)", 6 , 234 );

Bank22up=SelectedValue( Bank22Close> Bank22Prev);

BankVBS = IIf(Bank22up,BankVBS+1,BankVBS);

Bank22down=SelectedValue( Bank22Close < Bank22Prev);

BankVSS = IIf(Bank22down,BankVSS+1,BankVSS);

Color=IIf(Bank22up,colorBrightGreen,IIf(Bank22down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("PUBALIBANK - " + Bank22Close+" (" +Bank22ChangeTaka+"Tk.)"+" (" +Bank22Change+"%)", 6 , 244 );

Bank23up=SelectedValue( Bank23Close> Bank23Prev);

BankVBS = IIf(Bank23up,BankVBS+1,BankVBS);

Bank23down=SelectedValue( Bank23Close < Bank23Prev);

BankVSS = IIf(Bank23down,BankVSS+1,BankVSS);

Color=IIf(Bank23up,colorBrightGreen,IIf(Bank23down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("RUPALIBANK - " + Bank23Close+" (" +Bank23ChangeTaka+"Tk.)"+" (" +Bank23Change+"%)", 6 , 254 );

Bank24up=SelectedValue( Bank24Close> Bank24Prev);

BankVBS = IIf(Bank24up,BankVBS+1,BankVBS);

Bank24down=SelectedValue( Bank24Close < Bank24Prev);

BankVSS = IIf(Bank24down,BankVSS+1,BankVSS);

Color=IIf(Bank24up,colorBrightGreen,IIf(Bank24down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("SHAHJABANK - " + Bank24Close+" (" +Bank24ChangeTaka+"Tk.)"+" (" +Bank24Change+"%)", 6 , 264 );

Bank25up=SelectedValue( Bank25Close> Bank25Prev);

BankVBS = IIf(Bank25up,BankVBS+1,BankVBS);

Bank25down=SelectedValue( Bank25Close < Bank25Prev);

BankVSS = IIf(Bank25down,BankVSS+1,BankVSS);

Color=IIf(Bank25up,colorBrightGreen,IIf(Bank25down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("SIBL - " + Bank25Close+" (" +Bank25ChangeTaka+"Tk.)"+" (" +Bank25Change+"%)", 6 , 274 );

Bank26up=SelectedValue( Bank26Close> Bank26Prev);

BankVBS = IIf(Bank26up,BankVBS+1,BankVBS);

Bank26down=SelectedValue( Bank26Close < Bank26Prev);

BankVSS = IIf(Bank26down,BankVSS+1,BankVSS);

Color=IIf(Bank26up,colorBrightGreen,IIf(Bank26down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("SOUTHEASTB - " + Bank26Close+" (" +Bank26ChangeTaka+"Tk.)"+" (" +Bank26Change+"%)", 6 , 284 );

Bank27up=SelectedValue( Bank27Close> Bank27Prev);

BankVBS = IIf(Bank27up,BankVBS+1,BankVBS);

Bank27down=SelectedValue( Bank27Close < Bank27Prev);

BankVSS = IIf(Bank27down,BankVSS+1,BankVSS);

Color=IIf(Bank27up,colorBrightGreen,IIf(Bank27down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("STANDBANKL - " + Bank27Close+" (" +Bank27ChangeTaka+"Tk.)"+" (" +Bank27Change+"%)", 6 , 294 );

Bank28up=SelectedValue( Bank28Close> Bank28Prev);

BankVBS = IIf(Bank28up,BankVBS+1,BankVBS);

Bank28down=SelectedValue( Bank28Close < Bank28Prev);

BankVSS = IIf(Bank28down,BankVSS+1,BankVSS);

Color=IIf(Bank28up,colorBrightGreen,IIf(Bank28down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("TRUSTBANK - " + Bank28Close+" (" +Bank28ChangeTaka+"Tk.)"+" (" +Bank28Change+"%)", 6 , 304 );

Bank29up=SelectedValue( Bank29Close> Bank29Prev);

BankVBS = IIf(Bank29up,BankVBS+1,BankVBS);

Bank29down=SelectedValue( Bank29Close < Bank29Prev);

BankVSS = IIf(Bank29down,BankVSS+1,BankVSS);

Color=IIf(Bank29up,colorBrightGreen,IIf(Bank29down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("UCBL - " + Bank29Close+" (" +Bank29ChangeTaka+"Tk.)"+" (" +Bank29Change+"%)", 6 , 314 );

Bank30up=SelectedValue( Bank30Close> Bank30Prev);

BankVBS = IIf(Bank30up,BankVBS+1,BankVBS);

Bank30down=SelectedValue( Bank30Close < Bank30Prev);

BankVSS = IIf(Bank30down,BankVSS+1,BankVSS);

Color=IIf(Bank30up,colorBrightGreen,IIf(Bank30down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("UTTARABANK - " + Bank30Close+" (" +Bank30ChangeTaka+"Tk.)"+" (" +Bank30Change+"%)", 6 , 324 );

BankEQL= 30-(BankVBS+BankVSS);

GfxSetTextColor (Acolor);

GfxTextOut("[ A: "+BankVBS+", D: "+BankVSS+", U: "+BankEQL+" ]",80,22);

/////////////////////////////////////////////////////

LInsVBS=0;

LInsVSS=0;

LInsEQL=0;

GfxSetTextColor (TColor);

GfxTextOut("==LIFE INS==", 4 , 341 );

LIns1up=SelectedValue( LIns1Close> LIns1Prev);

LInsVBS = IIf(LIns1up,LInsVBS+1,LInsVBS);

LIns1down=SelectedValue( LIns1Close < LIns1Prev);

LInsVSS = IIf(LIns1down,LInsVSS+1,LInsVSS);

Color=IIf(LIns1up,colorBrightGreen,IIf(LIns1down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("DELTALIFE - " + LIns1Close+" (" +LIns1ChangeTaka+"Tk.)"+" (" +LIns1Change+"%)", 6 , 353 );

LIns2up=SelectedValue( LIns2Close> LIns2Prev);

LInsVBS = IIf(LIns2up,LInsVBS+1,LInsVBS);

LIns2down=SelectedValue( LIns2Close < LIns2Prev);

LInsVSS = IIf(LIns2down,LInsVSS+1,LInsVSS);

Color=IIf(LIns2up,colorBrightGreen,IIf(LIns2down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("FAREASTLIF - " + LIns2Close+" (" +LIns2ChangeTaka+"Tk.)"+" (" +LIns2Change+"%)", 6 , 363 );

LIns3up=SelectedValue( LIns3Close> LIns3Prev);

LInsVBS = IIf(LIns3up,LInsVBS+1,LInsVBS);

LIns3down=SelectedValue( LIns3Close < LIns3Prev);

LInsVSS = IIf(LIns3down,LInsVSS+1,LInsVSS);

Color=IIf(LIns3up,colorBrightGreen,IIf(LIns3down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("MEGHNALIFE - " + LIns3Close+" (" +LIns3ChangeTaka+"Tk.)"+" (" +LIns3Change+"%)", 6 , 373 );

LIns4up=SelectedValue( LIns4Close> LIns4Prev);

LInsVBS = IIf(LIns4up,LInsVBS+1,LInsVBS);

LIns4down=SelectedValue( LIns4Close < LIns4Prev);

LInsVSS = IIf(LIns4down,LInsVSS+1,LInsVSS);

Color=IIf(LIns4up,colorBrightGreen,IIf(LIns4down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("NATLIFEINS - " + LIns4Close+" (" +LIns4ChangeTaka+"Tk.)"+" (" +LIns4Change+"%)", 6 , 383 );

LIns5up=SelectedValue( LIns5Close> LIns5Prev);

LInsVBS = IIf(LIns5up,LInsVBS+1,LInsVBS);

LIns5down=SelectedValue( LIns5Close < LIns5Prev);

LInsVSS = IIf(LIns5down,LInsVSS+1,LInsVSS);

Color=IIf(LIns5up,colorBrightGreen,IIf(LIns5down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("PADMALIFE - " + LIns5Close+" (" +LIns5ChangeTaka+"Tk.)"+" (" +LIns5Change+"%)", 6 , 393 );

LIns6up=SelectedValue( LIns6Close> LIns6Prev);

LInsVBS = IIf(LIns6up,LInsVBS+1,LInsVBS);

LIns6down=SelectedValue( LIns6Close < LIns6Prev);

LInsVSS = IIf(LIns6down,LInsVSS+1,LInsVSS);

Color=IIf(LIns6up,colorBrightGreen,IIf(LIns6down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("POPULARLIF - " + LIns6Close+" (" +LIns6ChangeTaka+"Tk.)"+" (" +LIns6Change+"%)", 6 , 403 );

LIns7up=SelectedValue( LIns7Close> LIns7Prev);

LInsVBS = IIf(LIns7up,LInsVBS+1,LInsVBS);

LIns7down=SelectedValue( LIns7Close < LIns7Prev);

LInsVSS = IIf(LIns7down,LInsVSS+1,LInsVSS);

Color=IIf(LIns7up,colorBrightGreen,IIf(LIns7down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("PRAGATILIF - " + LIns7Close+" (" +LIns7ChangeTaka+"Tk.)"+" (" +LIns7Change+"%)", 6 , 413 );

LIns8up=SelectedValue( LIns8Close> LIns8Prev);

LInsVBS = IIf(LIns8up,LInsVBS+1,LInsVBS);

LIns8down=SelectedValue( LIns8Close < LIns8Prev);

LInsVSS = IIf(LIns8down,LInsVSS+1,LInsVSS);

Color=IIf(LIns8up,colorBrightGreen,IIf(LIns8down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("PRIMELIFE - " + LIns8Close+" (" +LIns8ChangeTaka+"Tk.)"+" (" +LIns8Change+"%)", 6 , 423 );

LIns9up=SelectedValue( LIns9Close> LIns9Prev);

LInsVBS = IIf(LIns9up,LInsVBS+1,LInsVBS);

LIns9down=SelectedValue( LIns9Close < LIns9Prev);

LInsVSS = IIf(LIns9down,LInsVSS+1,LInsVSS);

Color=IIf(LIns9up,colorBrightGreen,IIf(LIns9down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("PROGRESLIF - " + LIns9Close+" (" +LIns9ChangeTaka+"Tk.)"+" (" +LIns9Change+"%)", 6 , 433 );

LIns10up=SelectedValue( LIns10Close> LIns10Prev);

LInsVBS = IIf(LIns10up,LInsVBS+1,LInsVBS);

LIns10down=SelectedValue( LIns10Close < LIns10Prev);

LInsVSS = IIf(LIns10down,LInsVSS+1,LInsVSS);

Color=IIf(LIns10up,colorBrightGreen,IIf(LIns10down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("RUPALILIFE - " + LIns10Close+" (" +LIns10ChangeTaka+"Tk.)"+" (" +LIns10Change+"%)", 6 , 443 );

LIns11up=SelectedValue( LIns11Close> LIns11Prev);

LInsVBS = IIf(LIns11up,LInsVBS+1,LInsVBS);

LIns11down=SelectedValue( LIns11Close < LIns11Prev);

LInsVSS = IIf(LIns11down,LInsVSS+1,LInsVSS);

Color=IIf(LIns11up,colorBrightGreen,IIf(LIns11down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("SANDHANINS - " + LIns11Close+" (" +LIns11ChangeTaka+"Tk.)"+" (" +LIns11Change+"%)", 6 , 453 );

LIns12up=SelectedValue( LIns12Close> LIns12Prev);

LInsVBS = IIf(LIns12up,LInsVBS+1,LInsVBS);

LIns12down=SelectedValue( LIns12Close < LIns12Prev);

LInsVSS = IIf(LIns12down,LInsVSS+1,LInsVSS);

Color=IIf(LIns12up,colorBrightGreen,IIf(LIns12down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("SUNLIFEINS - " + LIns12Close+" (" +LIns12ChangeTaka+"Tk.)"+" (" +LIns12Change+"%)", 6 , 463 );

LInsEQL= 12-(LInsVBS+LInsVSS);

GfxSetTextColor (Acolor);

GfxTextOut("[ A: "+LInsVBS+", D: "+LInsVSS+", U: "+LInsEQL+" ]",85,341);

/////////////////////////////////////////////////////

CemVBS=0;

CemVSS=0;

CemEQL=0;

/////////////////////////////////////////////////////

GfxSetTextColor (TColor);

GfxTextOut("==CEMENT==", 4 , 479 );

Cem1up=SelectedValue( Cem1Close> Cem1Prev);

CemVBS = IIf(Cem1up,CemVBS+1,CemVBS);

Cem1down=SelectedValue( Cem1Close < Cem1Prev);

CemVSS = IIf(Cem1down,CemVSS+1,CemVSS);

Color=IIf(Cem1up,colorBrightGreen,IIf(Cem1down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("ARAMITCEM - " + Cem1Close+" (" +Cem1ChangeTaka+"Tk.)"+" (" +Cem1Change+"%)", 6 , 491 );

Cem2up=SelectedValue( Cem2Close> Cem2Prev);

CemVBS = IIf(Cem2up,CemVBS+1,CemVBS);

Cem2down=SelectedValue( Cem2Close < Cem2Prev);

CemVSS = IIf(Cem2down,CemVSS+1,CemVSS);

Color=IIf(Cem2up,colorBrightGreen,IIf(Cem2down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("CONFIDCEM - " + Cem2Close+" (" +Cem2ChangeTaka+"Tk.)"+" (" +Cem2Change+"%)", 6 , 501 );

Cem3up=SelectedValue( Cem3Close> Cem3Prev);

CemVBS = IIf(Cem3up,CemVBS+1,CemVBS);

Cem3down=SelectedValue( Cem3Close < Cem3Prev);

CemVSS = IIf(Cem3down,CemVSS+1,CemVSS);

Color=IIf(Cem3up,colorBrightGreen,IIf(Cem3down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("HEIDELBCEM - " + Cem3Close+" (" +Cem3ChangeTaka+"Tk.)"+" (" +Cem3Change+"%)", 6 , 511 );

Cem4up=SelectedValue( Cem4Close> Cem4Prev);

CemVBS = IIf(Cem4up,CemVBS+1,CemVBS);

Cem4down=SelectedValue( Cem4Close < Cem4Prev);

CemVSS = IIf(Cem4down,CemVSS+1,CemVSS);

Color=IIf(Cem4up,colorBrightGreen,IIf(Cem4down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("LAFSURCEML - " + Cem4Close+" (" +Cem4ChangeTaka+"Tk.)"+" (" +Cem4Change+"%)", 6 , 521 );

Cem5up=SelectedValue( Cem5Close> Cem5Prev);

CemVBS = IIf(Cem5up,CemVBS+1,CemVBS);

Cem5down=SelectedValue( Cem5Close < Cem5Prev);

CemVSS = IIf(Cem5down,CemVSS+1,CemVSS);

Color=IIf(Cem5up,colorBrightGreen,IIf(Cem5down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("MEGHNACEM - " + Cem5Close+" (" +Cem5ChangeTaka+"Tk.)"+" (" +Cem5Change+"%)", 6 , 531 );

Cem6up=SelectedValue( Cem6Close> Cem6Prev);

CemVBS = IIf(Cem6up,CemVBS+1,CemVBS);

Cem6down=SelectedValue( Cem6Close < Cem6Prev);

CemVSS = IIf(Cem6down,CemVSS+1,CemVSS);

Color=IIf(Cem6up,colorBrightGreen,IIf(Cem6down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("MICEMENT - " + Cem6Close+" (" +Cem6ChangeTaka+"Tk.)"+" (" +Cem6Change+"%)", 6 , 541 );

Cem7up=SelectedValue( Cem7Close> Cem7Prev);

CemVBS = IIf(Cem7up,CemVBS+1,CemVBS);

Cem7down=SelectedValue( Cem7Close < Cem7Prev);

CemVSS = IIf(Cem7down,CemVSS+1,CemVSS);

Color=IIf(Cem7up,colorBrightGreen,IIf(Cem7down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("PREMIERCEM - " + Cem7Close+" (" +Cem7ChangeTaka+"Tk.)"+" (" +Cem7Change+"%)", 6 , 551 );

CemEQL= 7-(CemVBS+CemVSS);

GfxSetTextColor (Acolor);

GfxTextOut("[ A: "+CemVBS+", D: "+CemVSS+", U: "+CemEQL+" ]",85,479);

/////////////////////////////////////////////////////

TeleVBS=0;

TeleVSS=0;

TeleEQL=0;

/////////////////////////////////////////////////////

GfxSetTextColor (TColor);

GfxTextOut("==TELECOM==", 5 , 567 );

Tele1up=SelectedValue( Tele1Close> Tele1Prev);

TeleVBS = IIf(Tele1up,TeleVBS+1,TeleVBS);

Tele1down=SelectedValue( Tele1Close < Tele1Prev);

TeleVSS = IIf(Tele1down,TeleVSS+1,TeleVSS);

Color=IIf(Tele1up,colorBrightGreen,IIf(Tele1down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("GP - " + Tele1Close+" (" +Tele1ChangeTaka+"Tk.)"+" (" +Tele1Change+"%)", 6 , 578 );

Tele2up=SelectedValue( Tele2Close> Tele2Prev);

TeleVBS = IIf(Tele2up,TeleVBS+1,TeleVBS);

Tele2down=SelectedValue( Tele2Close < Tele2Prev);

TeleVSS = IIf(Tele2down,TeleVSS+1,TeleVSS);

Color=IIf(Tele2up,colorBrightGreen,IIf(Tele2down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("BSCCL - " + Tele2Close+" (" +Tele2ChangeTaka+"Tk.)"+" (" +Tele2Change+"%)", 6 , 588 );

TeleEQL= 2-(TeleVBS+TeleVSS);

GfxSetTextColor (Acolor);

GfxTextOut("[ A: "+TeleVBS+", D: "+TeleVSS+", U: "+TeleEQL+" ]",86,567);

/////////////////////////////////////////////////////

GInsVBS=0;

GInsVSS=0;

GInsEQL=0;

/////////////////////////////////////////////////////

GfxSetTextColor (Tcolor);

GfxTextOut("=GENERAL INS=", 180 , 22 );

GIns1up=SelectedValue( GIns1Close> GIns1Prev);

GInsVBS = IIf(GIns1up,GInsVBS+1,GInsVBS);

GIns1down=SelectedValue( GIns1Close < GIns1Prev);

GInsVSS = IIf(GIns1down,GInsVSS+1,GInsVSS);

Color=IIf(GIns1up,colorBrightGreen,IIf(GIns1down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("AGRANINS - " + GIns1Close+" (" +GIns1ChangeTaka+"Tk.)"+" (" +GIns1Change+"%)", 185 , 34 );

GIns2up=SelectedValue( GIns2Close> GIns2Prev);

GInsVBS = IIf(GIns2up,GInsVBS+1,GInsVBS);

GIns2down=SelectedValue( GIns2Close < GIns2Prev);

GInsVSS = IIf(GIns2down,GInsVSS+1,GInsVSS);

Color=IIf(GIns2up,colorBrightGreen,IIf(GIns2down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("ASIAINS - " + GIns2Close+" (" +GIns2ChangeTaka+"Tk.)"+" (" +GIns2Change+"%)", 185 , 44 );

GIns3up=SelectedValue( GIns3Close> GIns3Prev);

GInsVBS = IIf(GIns3up,GInsVBS+1,GInsVBS);

GIns3down=SelectedValue( GIns3Close < GIns3Prev);

GInsVSS = IIf(GIns3down,GInsVSS+1,GInsVSS);

Color=IIf(GIns3up,colorBrightGreen,IIf(GIns3down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("ASIAPACINS - " + GIns3Close+" (" +GIns3ChangeTaka+"Tk.)"+" (" +GIns3Change+"%)", 185 , 54 );

GIns4up=SelectedValue( GIns4Close> GIns4Prev);

GInsVBS = IIf(GIns4up,GInsVBS+1,GInsVBS);

GIns4down=SelectedValue( GIns4Close < GIns4Prev);

GInsVSS = IIf(GIns4down,GInsVSS+1,GInsVSS);

Color=IIf(GIns4up,colorBrightGreen,IIf(GIns4down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("BGIC - " + GIns4Close+" (" +GIns4ChangeTaka+"Tk.)"+" (" +GIns4Change+"%)", 185 , 64 );

GIns5up=SelectedValue( GIns5Close> GIns5Prev);

GInsVBS = IIf(GIns5up,GInsVBS+1,GInsVBS);

GIns5down=SelectedValue( GIns5Close < GIns5Prev);

GInsVSS = IIf(GIns5down,GInsVSS+1,GInsVSS);

Color=IIf(GIns5up,colorBrightGreen,IIf(GIns5down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("CENTRALINS - " + GIns5Close+" (" +GIns5ChangeTaka+"Tk.)"+" (" +GIns5Change+"%)", 185 , 74 );

GIns6up=SelectedValue( GIns6Close> GIns6Prev);

GInsVBS = IIf(GIns6up,GInsVBS+1,GInsVBS);

GIns6down=SelectedValue( GIns6Close < GIns6Prev);

GInsVSS = IIf(GIns6down,GInsVSS+1,GInsVSS);

Color=IIf(GIns6up,colorBrightGreen,IIf(GIns6down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("CITYGENINS - " + GIns6Close+" (" +GIns6ChangeTaka+"Tk.)"+" (" +GIns6Change+"%)", 185 , 84 );

GIns7up=SelectedValue( GIns7Close> GIns7Prev);

GInsVBS = IIf(GIns7up,GInsVBS+1,GInsVBS);

GIns7down=SelectedValue( GIns7Close < GIns7Prev);

GInsVSS = IIf(GIns7down,GInsVSS+1,GInsVSS);

Color=IIf(GIns7up,colorBrightGreen,IIf(GIns7down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("CONTININS - " + GIns7Close+" (" +GIns7ChangeTaka+"Tk.)"+" (" +GIns7Change+"%)", 185 , 94 );

GIns8up=SelectedValue( GIns8Close> GIns8Prev);

GInsVBS = IIf(GIns8up,GInsVBS+1,GInsVBS);

GIns8down=SelectedValue( GIns8Close < GIns8Prev);

GInsVSS = IIf(GIns8down,GInsVSS+1,GInsVSS);

Color=IIf(GIns8up,colorBrightGreen,IIf(GIns8down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("DHAKAINS - " + GIns8Close+" (" +GIns8ChangeTaka+"Tk.)"+" (" +GIns8Change+"%)", 185 , 104 );

GIns9up=SelectedValue( GIns9Close> GIns9Prev);

GInsVBS = IIf(GIns9up,GInsVBS+1,GInsVBS);

GIns9down=SelectedValue( GIns9Close < GIns9Prev);

GInsVSS = IIf(GIns9down,GInsVSS+1,GInsVSS);

Color=IIf(GIns9up,colorBrightGreen,IIf(GIns9down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("EASTERNINS - " + GIns9Close+" (" +GIns9ChangeTaka+"Tk.)"+" (" +GIns9Change+"%)", 185 , 114 );

GIns10up=SelectedValue( GIns10Close> GIns10Prev);

GInsVBS = IIf(GIns10up,GInsVBS+1,GInsVBS);

GIns10down=SelectedValue( GIns10Close < GIns10Prev);

GInsVSS = IIf(GIns10down,GInsVSS+1,GInsVSS);

Color=IIf(GIns10up,colorBrightGreen,IIf(GIns10down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("EASTLAND - " + GIns10Close+" (" +GIns10ChangeTaka+"Tk.)"+" (" +GIns10Change+"%)", 185 , 124 );

GIns11up=SelectedValue( GIns11Close> GIns11Prev);

GInsVBS = IIf(GIns11up,GInsVBS+1,GInsVBS);

GIns11down=SelectedValue( GIns11Close < GIns11Prev);

GInsVSS = IIf(GIns11down,GInsVSS+1,GInsVSS);

Color=IIf(GIns11up,colorBrightGreen,IIf(GIns11down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("FEDERALINS - " + GIns11Close+" (" +GIns11ChangeTaka+"Tk.)"+" (" +GIns11Change+"%)", 185 , 134 );

GIns12up=SelectedValue( GIns12Close> GIns12Prev);

GInsVBS = IIf(GIns12up,GInsVBS+1,GInsVBS);

GIns12down=SelectedValue( GIns12Close < GIns12Prev);

GInsVSS = IIf(GIns12down,GInsVSS+1,GInsVSS);

Color=IIf(GIns12up,colorBrightGreen,IIf(GIns12down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("GLOBALINS - " + GIns12Close+" (" +GIns12ChangeTaka+"Tk.)"+" (" +GIns12Change+"%)", 185 , 144 );

GIns13up=SelectedValue( GIns13Close> GIns13Prev);

GInsVBS = IIf(GIns13up,GInsVBS+1,GInsVBS);

GIns13down=SelectedValue( GIns13Close < GIns13Prev);

GInsVSS = IIf(GIns13down,GInsVSS+1,GInsVSS);

Color=IIf(GIns13up,colorBrightGreen,IIf(GIns13down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("GREENDELT - " + GIns13Close+" (" +GIns13ChangeTaka+"Tk.)"+" (" +GIns13Change+"%)", 185 , 154 );

GIns14up=SelectedValue( GIns14Close> GIns14Prev);

GInsVBS = IIf(GIns14up,GInsVBS+1,GInsVBS);

GIns14down=SelectedValue( GIns14Close < GIns14Prev);

GInsVSS = IIf(GIns14down,GInsVSS+1,GInsVSS);

Color=IIf(GIns14up,colorBrightGreen,IIf(GIns14down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("ISLAMIINS - " + GIns14Close+" (" +GIns14ChangeTaka+"Tk.)"+" (" +GIns14Change+"%)", 185 , 164 );

GIns15up=SelectedValue( GIns15Close> GIns15Prev);

GInsVBS = IIf(GIns15up,GInsVBS+1,GInsVBS);

GIns15down=SelectedValue( GIns15Close < GIns15Prev);

GInsVSS = IIf(GIns15down,GInsVSS+1,GInsVSS);

Color=IIf(GIns15up,colorBrightGreen,IIf(GIns15down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("JANATAINS - " + GIns15Close+" (" +GIns15ChangeTaka+"Tk.)"+" (" +GIns15Change+"%)", 185 , 174 );

GIns16up=SelectedValue( GIns16Close> GIns16Prev);

GInsVBS = IIf(GIns16up,GInsVBS+1,GInsVBS);

GIns16down=SelectedValue( GIns16Close < GIns16Prev);

GInsVSS = IIf(GIns16down,GInsVSS+1,GInsVSS);

Color=IIf(GIns16up,colorBrightGreen,IIf(GIns16down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("KARNAPHULI - " + GIns16Close+" (" +GIns16ChangeTaka+"Tk.)"+" (" +GIns16Change+"%)", 185 , 184 );

GIns17up=SelectedValue( GIns17Close> GIns17Prev);

GInsVBS = IIf(GIns17up,GInsVBS+1,GInsVBS);

GIns17down=SelectedValue( GIns17Close < GIns17Prev);

GInsVSS = IIf(GIns17down,GInsVSS+1,GInsVSS);

Color=IIf(GIns17up,colorBrightGreen,IIf(GIns17down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("MERCINS - " + GIns17Close+" (" +GIns17ChangeTaka+"Tk.)"+" (" +GIns17Change+"%)", 185 , 194 );

GIns18up=SelectedValue( GIns18Close> GIns18Prev);

GInsVBS = IIf(GIns18up,GInsVBS+1,GInsVBS);

GIns18down=SelectedValue( GIns18Close < GIns18Prev);

GInsVSS = IIf(GIns18down,GInsVSS+1,GInsVSS);

Color=IIf(GIns18up,colorBrightGreen,IIf(GIns18down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("NITOLINS - " + GIns18Close+" (" +GIns18ChangeTaka+"Tk.)"+" (" +GIns18Change+"%)", 185 , 204 );

GIns19up=SelectedValue( GIns19Close> GIns19Prev);

GInsVBS = IIf(GIns19up,GInsVBS+1,GInsVBS);

GIns19down=SelectedValue( GIns19Close < GIns19Prev);

GInsVSS = IIf(GIns19down,GInsVSS+1,GInsVSS);

Color=IIf(GIns19up,colorBrightGreen,IIf(GIns19down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("NORTHRNINS - " + GIns19Close+" (" +GIns19ChangeTaka+"Tk.)"+" (" +GIns19Change+"%)", 185 , 214 );

GIns20up=SelectedValue( GIns20Close> GIns20Prev);

GInsVBS = IIf(GIns20up,GInsVBS+1,GInsVBS);

GIns20down=SelectedValue( GIns20Close < GIns20Prev);

GInsVSS = IIf(GIns20down,GInsVSS+1,GInsVSS);

Color=IIf(GIns20up,colorBrightGreen,IIf(GIns20down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("PARAMOUNT - " + GIns20Close+" (" +GIns20ChangeTaka+"Tk.)"+" (" +GIns20Change+"%)", 185 , 224 );

GIns21up=SelectedValue( GIns21Close> GIns21Prev);

GInsVBS = IIf(GIns21up,GInsVBS+1,GInsVBS);

GIns21down=SelectedValue( GIns21Close < GIns21Prev);

GInsVSS = IIf(GIns21down,GInsVSS+1,GInsVSS);

Color=IIf(GIns21up,colorBrightGreen,IIf(GIns21down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("PEOPLESINS - " + GIns21Close+" (" +GIns21ChangeTaka+"Tk.)"+" (" +GIns21Change+"%)", 185 , 234 );

GIns22up=SelectedValue( GIns22Close> GIns22Prev);

GInsVBS = IIf(GIns22up,GInsVBS+1,GInsVBS);

GIns22down=SelectedValue( GIns22Close < GIns22Prev);

GInsVSS = IIf(GIns22down,GInsVSS+1,GInsVSS);

Color=IIf(GIns22up,colorBrightGreen,IIf(GIns22down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("PHENIXINS - " + GIns22Close+" (" +GIns22ChangeTaka+"Tk.)"+" (" +GIns22Change+"%)", 185 , 244 );

GIns23up=SelectedValue( GIns23Close> GIns23Prev);

GInsVBS = IIf(GIns23up,GInsVBS+1,GInsVBS);

GIns23down=SelectedValue( GIns23Close < GIns23Prev);

GInsVSS = IIf(GIns23down,GInsVSS+1,GInsVSS);

Color=IIf(GIns23up,colorBrightGreen,IIf(GIns23down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("PIONEERINS - " + GIns23Close+" (" +GIns23ChangeTaka+"Tk.)"+" (" +GIns23Change+"%)", 185 , 254 );

GIns24up=SelectedValue( GIns24Close> GIns24Prev);

GInsVBS = IIf(GIns24up,GInsVBS+1,GInsVBS);

GIns24down=SelectedValue( GIns24Close < GIns24Prev);

GInsVSS = IIf(GIns24down,GInsVSS+1,GInsVSS);

Color=IIf(GIns24up,colorBrightGreen,IIf(GIns24down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("PRAGATIINS - " + GIns24Close+" (" +GIns24ChangeTaka+"Tk.)"+" (" +GIns24Change+"%)", 185 , 264 );

GIns25up=SelectedValue( GIns25Close> GIns25Prev);

GInsVBS = IIf(GIns25up,GInsVBS+1,GInsVBS);

GIns25down=SelectedValue( GIns25Close < GIns25Prev);

GInsVSS = IIf(GIns25down,GInsVSS+1,GInsVSS);

Color=IIf(GIns25up,colorBrightGreen,IIf(GIns25down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("PRIMEINSUR - " + GIns25Close+" (" +GIns25ChangeTaka+"Tk.)"+" (" +GIns25Change+"%)", 185 , 274 );

GIns26up=SelectedValue( GIns26Close> GIns26Prev);

GInsVBS = IIf(GIns26up,GInsVBS+1,GInsVBS);

GIns26down=SelectedValue( GIns26Close < GIns26Prev);

GInsVSS = IIf(GIns26down,GInsVSS+1,GInsVSS);

Color=IIf(GIns26up,colorBrightGreen,IIf(GIns26down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("PROVATIINS - " + GIns26Close+" (" +GIns26ChangeTaka+"Tk.)"+" (" +GIns26Change+"%)", 185 , 284 );

GIns27up=SelectedValue( GIns27Close> GIns27Prev);

GInsVBS = IIf(GIns27up,GInsVBS+1,GInsVBS);

GIns27down=SelectedValue( GIns27Close < GIns27Prev);

GInsVSS = IIf(GIns27down,GInsVSS+1,GInsVSS);

Color=IIf(GIns27up,colorBrightGreen,IIf(GIns27down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("PURABIGEN - " + GIns27Close+" (" +GIns27ChangeTaka+"Tk.)"+" (" +GIns27Change+"%)", 185 , 294 );

GIns28up=SelectedValue( GIns28Close> GIns28Prev);

GInsVBS = IIf(GIns28up,GInsVBS+1,GInsVBS);

GIns28down=SelectedValue( GIns28Close < GIns28Prev);

GInsVSS = IIf(GIns28down,GInsVSS+1,GInsVSS);

Color=IIf(GIns28up,colorBrightGreen,IIf(GIns28down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("RELIANCINS - " + GIns28Close+" (" +GIns28ChangeTaka+"Tk.)"+" (" +GIns28Change+"%)", 185 , 304 );

GIns29up=SelectedValue( GIns29Close> GIns29Prev);

GInsVBS = IIf(GIns29up,GInsVBS+1,GInsVBS);

GIns29down=SelectedValue( GIns29Close < GIns29Prev);

GInsVSS = IIf(GIns29down,GInsVSS+1,GInsVSS);

Color=IIf(GIns29up,colorBrightGreen,IIf(GIns29down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("REPUBLIC - " + GIns29Close+" (" +GIns29ChangeTaka+"Tk.)"+" (" +GIns29Change+"%)", 185 , 314 );

GIns30up=SelectedValue( GIns30Close> GIns30Prev);

GInsVBS = IIf(GIns30up,GInsVBS+1,GInsVBS);

GIns30down=SelectedValue( GIns30Close < GIns30Prev);

GInsVSS = IIf(GIns30down,GInsVSS+1,GInsVSS);

Color=IIf(GIns30up,colorBrightGreen,IIf(GIns30down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("RUPALIINS - " + GIns30Close+" (" +GIns30ChangeTaka+"Tk.)"+" (" +GIns30Change+"%)", 185 , 324 );

GIns31up=SelectedValue( GIns31Close> GIns31Prev);

GInsVBS = IIf(GIns31up,GInsVBS+1,GInsVBS);

GIns31down=SelectedValue( GIns31Close < GIns31Prev);

GInsVSS = IIf(GIns31down,GInsVSS+1,GInsVSS);

Color=IIf(GIns31up,colorBrightGreen,IIf(GIns31down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("SONARBAINS - " + GIns31Close+" (" +GIns31ChangeTaka+"Tk.)"+" (" +GIns31Change+"%)", 185 , 334 );

GIns32up=SelectedValue( GIns32Close> GIns32Prev);

GInsVBS = IIf(GIns32up,GInsVBS+1,GInsVBS);

GIns32down=SelectedValue( GIns32Close < GIns32Prev);

GInsVSS = IIf(GIns32down,GInsVSS+1,GInsVSS);

Color=IIf(GIns32up,colorBrightGreen,IIf(GIns32down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("STANDARINS - " + GIns32Close+" (" +GIns32ChangeTaka+"Tk.)"+" (" +GIns32Change+"%)", 185 , 344 );

GIns33up=SelectedValue( GIns33Close> GIns33Prev);

GInsVBS = IIf(GIns33up,GInsVBS+1,GInsVBS);

GIns33down=SelectedValue( GIns33Close < GIns33Prev);

GInsVSS = IIf(GIns33down,GInsVSS+1,GInsVSS);

Color=IIf(GIns33up,colorBrightGreen,IIf(GIns33down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("TAKAFULINS - " + GIns33Close+" (" +GIns33ChangeTaka+"Tk.)"+" (" +GIns33Change+"%)", 185 , 354 );

GIns34up=SelectedValue( GIns34Close> GIns34Prev);

GInsVBS = IIf(GIns34up,GInsVBS+1,GInsVBS);

GIns34down=SelectedValue( GIns34Close < GIns34Prev);

GInsVSS = IIf(GIns34down,GInsVSS+1,GInsVSS);

Color=IIf(GIns34up,colorBrightGreen,IIf(GIns34down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("UNITEDINS - " + GIns34Close+" (" +GIns34ChangeTaka+"Tk.)"+" (" +GIns34Change+"%)", 185 , 364 );

GInsEQL= 34-(GInsVBS+GInsVSS);

GfxSetTextColor (Acolor);

GfxTextOut("[ A: "+GInsVBS+", D: "+GInsVSS+", U: "+GInsEQL+" ]",265,22);

/////////////////////////////////////////////////////

FuelVBS=0;

FuelVSS=0;

FuelEQL=0;

/////////////////////////////////////////////////////

GfxSetTextColor (Tcolor);

GfxTextOut("=FUEL&POWER=", 180 , 380 );

Fuel1up=SelectedValue( Fuel1Close> Fuel1Prev);

FuelVBS = IIf(Fuel1up,FuelVBS+1,FuelVBS);

Fuel1down=SelectedValue( Fuel1Close < Fuel1Prev);

FuelVSS = IIf(Fuel1down,FuelVSS+1,FuelVSS);

Color=IIf(Fuel1up,colorBrightGreen,IIf(Fuel1down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("BDWELDING - " + Fuel1Close+" (" +Fuel1ChangeTaka+"Tk.)"+" (" +Fuel1Change+"%)", 185 , 391 );

Fuel2up=SelectedValue( Fuel2Close> Fuel2Prev);

FuelVBS = IIf(Fuel2up,FuelVBS+1,FuelVBS);

Fuel2down=SelectedValue( Fuel2Close < Fuel2Prev);

FuelVSS = IIf(Fuel2down,FuelVSS+1,FuelVSS);

Color=IIf(Fuel2up,colorBrightGreen,IIf(Fuel2down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("BEDL - " + Fuel2Close+" (" +Fuel2ChangeTaka+"Tk.)"+" (" +Fuel2Change+"%)", 185 , 401);

Fuel3up=SelectedValue( Fuel3Close> Fuel3Prev);

FuelVBS = IIf(Fuel3up,FuelVBS+1,FuelVBS);

Fuel3down=SelectedValue( Fuel3Close < Fuel3Prev);

FuelVSS = IIf(Fuel3down,FuelVSS+1,FuelVSS);

Color=IIf(Fuel3up,colorBrightGreen,IIf(Fuel3down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("GBBPOWER - " + Fuel3Close+" (" +Fuel3ChangeTaka+"Tk.)"+" (" +Fuel3Change+"%)", 185 , 411 );

Fuel4up=SelectedValue( Fuel4Close> Fuel4Prev);

FuelVBS = IIf(Fuel4up,FuelVBS+1,FuelVBS);

Fuel4down=SelectedValue( Fuel4Close < Fuel4Prev);

FuelVSS = IIf(Fuel4down,FuelVSS+1,FuelVSS);

Color=IIf(Fuel4up,colorBrightGreen,IIf(Fuel4down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("DESCO - " + Fuel4Close+" (" +Fuel4ChangeTaka+"Tk.)"+" (" +Fuel4Change+"%)", 185 , 421 );

Fuel5up=SelectedValue( Fuel5Close> Fuel5Prev);

FuelVBS = IIf(Fuel5up,FuelVBS+1,FuelVBS);

Fuel5down=SelectedValue( Fuel5Close < Fuel5Prev);

FuelVSS = IIf(Fuel5down,FuelVSS+1,FuelVSS);

Color=IIf(Fuel5up,colorBrightGreen,IIf(Fuel5down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("EASTRNLUB - " + Fuel5Close+" (" +Fuel5ChangeTaka+"Tk.)"+" (" +Fuel5Change+"%)", 185 , 431 );

Fuel6up=SelectedValue( Fuel6Close> Fuel6Prev);

FuelVBS = IIf(Fuel6up,FuelVBS+1,FuelVBS);

Fuel6down=SelectedValue( Fuel6Close < Fuel6Prev);

FuelVSS = IIf(Fuel6down,FuelVSS+1,FuelVSS);

Color=IIf(Fuel6up,colorBrightGreen,IIf(Fuel6down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("JAMUNAOIL - " + Fuel6Close+" (" +Fuel6ChangeTaka+"Tk.)"+" (" +Fuel6Change+"%)", 185 , 441 );

Fuel7up=SelectedValue( Fuel7Close> Fuel7Prev);

FuelVBS = IIf(Fuel7up,FuelVBS+1,FuelVBS);

Fuel7down=SelectedValue( Fuel7Close < Fuel7Prev);

FuelVSS = IIf(Fuel7down,FuelVSS+1,FuelVSS);

Color=IIf(Fuel7up,colorBrightGreen,IIf(Fuel7down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("KPCL - " + Fuel7Close+" (" +Fuel7ChangeTaka+"Tk.)"+" (" +Fuel7Change+"%)", 185 , 451);

Fuel8up=SelectedValue( Fuel8Close> Fuel8Prev);

FuelVBS = IIf(Fuel8up,FuelVBS+1,FuelVBS);

Fuel8down=SelectedValue( Fuel8Close < Fuel8Prev);

FuelVSS = IIf(Fuel8down,FuelVSS+1,FuelVSS);

Color=IIf(Fuel8up,colorBrightGreen,IIf(Fuel8down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("LINDEBD - " + Fuel8Close+" (" +Fuel8ChangeTaka+"Tk.)"+" (" +Fuel8Change+"%)", 185 , 461 );

Fuel9up=SelectedValue( Fuel9Close> Fuel9Prev);

FuelVBS = IIf(Fuel9up,FuelVBS+1,FuelVBS);

Fuel9down=SelectedValue( Fuel9Close < Fuel9Prev);

FuelVSS = IIf(Fuel9down,FuelVSS+1,FuelVSS);

Color=IIf(Fuel9up,colorBrightGreen,IIf(Fuel9down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("MJLBD- " + Fuel9Close+" (" +Fuel9ChangeTaka+"Tk.)"+" (" +Fuel9Change+"%)", 185 , 471 );

Fuel10up=SelectedValue( Fuel10Close> Fuel10Prev);

FuelVBS = IIf(Fuel10up,FuelVBS+1,FuelVBS);

Fuel10down=SelectedValue( Fuel10Close < Fuel10Prev);

FuelVSS = IIf(Fuel10down,FuelVSS+1,FuelVSS);

Color=IIf(Fuel10up,colorBrightGreen,IIf(Fuel10down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("MPETROLEUM - " + Fuel10Close+" (" +Fuel10ChangeTaka+"Tk.)"+" (" +Fuel10Change+"%)", 181 , 481 );

Fuel11up=SelectedValue( Fuel11Close> Fuel11Prev);

FuelVBS = IIf(Fuel11up,FuelVBS+1,FuelVBS);

Fuel11down=SelectedValue( Fuel11Close < Fuel11Prev);

FuelVSS = IIf(Fuel11down,FuelVSS+1,FuelVSS);

Color=IIf(Fuel11up,colorBrightGreen,IIf(Fuel11down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("PADMAOIL - " + Fuel11Close+" (" +Fuel11ChangeTaka+"Tk.)"+" (" +Fuel11Change+"%)", 185 , 491 );

Fuel12up=SelectedValue( Fuel12Close> Fuel12Prev);

FuelVBS = IIf(Fuel12up,FuelVBS+1,FuelVBS);

Fuel12down=SelectedValue( Fuel12Close < Fuel12Prev);

FuelVSS = IIf(Fuel12down,FuelVSS+1,FuelVSS);

Color=IIf(Fuel12up,colorBrightGreen,IIf(Fuel12down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("POWERGRID - " + Fuel12Close+" (" +Fuel12ChangeTaka+"Tk.)"+" (" +Fuel12Change+"%)", 185 , 501 );

Fuel13up=SelectedValue( Fuel13Close> Fuel13Prev);

FuelVBS = IIf(Fuel13up,FuelVBS+1,FuelVBS);

Fuel13down=SelectedValue( Fuel13Close < Fuel13Prev);

FuelVSS = IIf(Fuel13down,FuelVSS+1,FuelVSS);

Color=IIf(Fuel13up,colorBrightGreen,IIf(Fuel13down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("SPPCL - " + Fuel13Close+" (" +Fuel13ChangeTaka+"Tk.)"+" (" +Fuel13Change+"%)", 185 , 511 );

Fuel14up=SelectedValue( Fuel14Close> Fuel14Prev);

FuelVBS = IIf(Fuel14up,FuelVBS+1,FuelVBS);

Fuel14down=SelectedValue( Fuel14Close < Fuel14Prev);

FuelVSS = IIf(Fuel14down,FuelVSS+1,FuelVSS);

Color=IIf(Fuel14up,colorBrightGreen,IIf(Fuel14down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("SUMITPOWER - " + Fuel14Close+" (" +Fuel14ChangeTaka+"Tk.)"+" (" +Fuel14Change+"%)", 185 , 522 );

Fuel15up=SelectedValue( Fuel15Close> Fuel15Prev);

FuelVBS = IIf(Fuel15up,FuelVBS+1,FuelVBS);

Fuel15down=SelectedValue( Fuel15Close < Fuel15Prev);

FuelVSS = IIf(Fuel15down,FuelVSS+1,FuelVSS);

Color=IIf(Fuel15up,colorBrightGreen,IIf(Fuel15down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("TITASGAS - " + Fuel15Close+" (" +Fuel15ChangeTaka+"Tk.)"+" (" +Fuel15Change+"%)", 185 , 533 );

FuelEQL= 15-(FuelVBS+FuelVSS);

GfxSetTextColor (Acolor);

GfxTextOut("[ A: "+FuelVBS+", D: "+FuelVSS+", U: "+FuelEQL+" ]",267,380);

/////////////////////////////////////////////////////

TravVBS=0;

TravVSS=0;

TravEQL=0;

/////////////////////////////////////////////////////

GfxSetTextColor (TColor);

GfxTextOut("=TRAVEL&LEISURE", 180 , 548 );

Trav2Close=Foreign("UNIQUEHRL","C");

Trav3Close=Foreign("UNITEDAIR","C");

Trav2up=SelectedValue(Trav2Close>Trav2Prev);

TravVBS = IIf(Trav2up,TravVBS+1,TravVBS);

Trav2down=SelectedValue(Trav2Close<Trav2Prev);

TravVSS = IIf(Trav2down,TravVSS+1,TravVSS);

Color=IIf(Trav2up,colorBrightGreen,IIf(Trav2down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("UNIQUEHRL- " + Trav2Close+" (" +Trav2ChangeTaka+"Tk.)"+" (" +Trav2Change+"%)", 185 , 559 );

Trav3up=SelectedValue(Trav3Close>Trav2Prev);

TravVBS = IIf(Trav3up,TravVBS+1,TravVBS);

Trav3down=SelectedValue(Trav3Close<Trav3Prev);

TravVSS = IIf(Trav3down,TravVSS+1,TravVSS);

Color=IIf(Trav3up,colorBrightGreen,IIf(Trav3down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("UNITEDAIR- " + Trav3Close+" (" +Trav3ChangeTaka+"Tk.)"+" (" +Trav3Change+"%)", 185 , 570 );

TravEQL= 2-(TravVBS+TravVSS);

GfxSetTextColor (Acolor);

GfxTextOut("[ A:"+TravVBS+", D:"+TravVSS+", U:"+TravEQL+" ]",275,548);/////////////////////////////////////////////////////

FinVBS=0;

FinVSS=0;

FinEQL=0;

/////////////////////////////////////////////////////

GfxSetTextColor (TColor);

GfxTextOut("==NBFI==", 358 , 21 );

Fin1up=SelectedValue( Fin1Close> Fin1Prev);

FinVBS = IIf(Fin1up,FinVBS+1,FinVBS);

Fin1down=SelectedValue( Fin1Close < Fin1Prev);

FinVSS = IIf(Fin1down,FinVSS+1,FinVSS);

Color=IIf(Fin1up,colorBrightGreen,IIf(Fin1down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("BAYLEASING - " + Fin1Close+" (" +Fin1ChangeTaka+"Tk.)"+" (" +Fin1Change+"%)", 360 , 32 );

Fin2up=SelectedValue( Fin2Close> Fin2Prev);

FinVBS = IIf(Fin2up,FinVBS+1,FinVBS);

Fin2down=SelectedValue( Fin2Close < Fin2Prev);

FinVSS = IIf(Fin2down,FinVSS+1,FinVSS);

Color=IIf(Fin2up,colorBrightGreen,IIf(Fin2down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("BDFINANCE - " + Fin2Close+" (" +Fin2ChangeTaka+"Tk.)"+" (" +Fin2Change+"%)", 360 , 41 );

Fin3up=SelectedValue( Fin3Close> Fin3Prev);

FinVBS = IIf(Fin3up,FinVBS+1,FinVBS);

Fin3down=SelectedValue( Fin3Close < Fin3Prev);

FinVSS = IIf(Fin3down,FinVSS+1,FinVSS);

Color=IIf(Fin3up,colorBrightGreen,IIf(Fin3down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("BIFC - " + Fin3Close+" (" +Fin3ChangeTaka+"Tk.)"+" (" +Fin3Change+"%)", 360 , 50 );

Fin4up=SelectedValue( Fin4Close> Fin4Prev);

FinVBS = IIf(Fin4up,FinVBS+1,FinVBS);

Fin4down=SelectedValue( Fin4Close < Fin4Prev);

FinVSS = IIf(Fin4down,FinVSS+1,FinVSS);

Color=IIf(Fin4up,colorBrightGreen,IIf(Fin4down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("DBH - " + Fin4Close+" (" +Fin4ChangeTaka+"Tk.)"+" (" +Fin4Change+"%)", 360 , 59 );

Fin5up=SelectedValue( Fin5Close> Fin5Prev);

FinVBS = IIf(Fin5up,FinVBS+1,FinVBS);

Fin5down=SelectedValue( Fin5Close < Fin5Prev);

FinVSS = IIf(Fin5down,FinVSS+1,FinVSS);

Color=IIf(Fin5up,colorBrightGreen,IIf(Fin5down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("FASFIN - " + Fin5Close+" (" +Fin5ChangeTaka+"Tk.)"+" (" +Fin5Change+"%)", 360 , 68 );

Fin6up=SelectedValue( Fin6Close> Fin6Prev);

FinVBS = IIf(Fin6up,FinVBS+1,FinVBS);

Fin6down=SelectedValue( Fin6Close < Fin6Prev);

FinVSS = IIf(Fin6down,FinVSS+1,FinVSS);

Color=IIf(Fin6up,colorBrightGreen,IIf(Fin6down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("FAREASTFIN - " + Fin6Close+" (" +Fin6ChangeTaka+"Tk.)"+" (" +Fin6Change+"%)", 360 , 77 );

Fin7up=SelectedValue( Fin7Close> Fin7Prev);

FinVBS = IIf(Fin7up,FinVBS+1,FinVBS);

Fin7down=SelectedValue( Fin7Close < Fin7Prev);

FinVSS = IIf(Fin7down,FinVSS+1,FinVSS);

Color=IIf(Fin7up,colorBrightGreen,IIf(Fin7down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("FLEASEINT - " + Fin7Close+" (" +Fin7ChangeTaka+"Tk.)"+" (" +Fin7Change+"%)", 360 , 86 );

Fin8up=SelectedValue( Fin8Close> Fin8Prev);

FinVBS = IIf(Fin8up,FinVBS+1,FinVBS);

Fin8down=SelectedValue( Fin8Close < Fin8Prev);

FinVSS = IIf(Fin8down,FinVSS+1,FinVSS);

Color=IIf(Fin8up,colorBrightGreen,IIf(Fin8down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("GSPFINANCE - " + Fin8Close+" (" +Fin8ChangeTaka+"Tk.)"+" (" +Fin8Change+"%)", 360 , 95 );

Fin9up=SelectedValue( Fin9Close> Fin9Prev);

FinVBS = IIf(Fin9up,FinVBS+1,FinVBS);

Fin9down=SelectedValue( Fin9Close < Fin9Prev);

FinVSS = IIf(Fin9down,FinVSS+1,FinVSS);

Color=IIf(Fin9up,colorBrightGreen,IIf(Fin9down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("ICB - " + Fin9Close+" (" +Fin9ChangeTaka+"Tk.)"+" (" +Fin9Change+"%)", 360 , 104 );

Fin10up=SelectedValue( Fin10Close> Fin10Prev);

FinVBS = IIf(Fin10up,FinVBS+1,FinVBS);

Fin10down=SelectedValue( Fin10Close < Fin10Prev);

FinVSS = IIf(Fin10down,FinVSS+1,FinVSS);

Color=IIf(Fin10up,colorBrightGreen,IIf(Fin10down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("IDLC - " + Fin10Close+" (" +Fin10ChangeTaka+"Tk.)"+" (" +Fin10Change+"%)", 360 , 113 );

Fin11up=SelectedValue( Fin11Close> Fin11Prev);

FinVBS = IIf(Fin11up,FinVBS+1,FinVBS);

Fin11down=SelectedValue( Fin11Close < Fin11Prev);

FinVSS = IIf(Fin11down,FinVSS+1,FinVSS);

Color=IIf(Fin11up,colorBrightGreen,IIf(Fin11down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("ILFSL - " + Fin11Close+" (" +Fin11ChangeTaka+"Tk.)"+" (" +Fin11Change+"%)", 360 , 122 );

Fin12up=SelectedValue( Fin12Close> Fin12Prev);

FinVBS = IIf(Fin12up,FinVBS+1,FinVBS);

Fin12down=SelectedValue( Fin12Close < Fin12Prev);

FinVSS = IIf(Fin12down,FinVSS+1,FinVSS);

Color=IIf(Fin12up,colorBrightGreen,IIf(Fin12down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("IPDC - " + Fin12Close+" (" +Fin12ChangeTaka+"Tk.)"+" (" +Fin12Change+"%)", 360 , 131 );

Fin13up=SelectedValue( Fin13Close> Fin13Prev);

FinVBS = IIf(Fin13up,FinVBS+1,FinVBS);

Fin13down=SelectedValue( Fin13Close < Fin13Prev);

FinVSS = IIf(Fin13down,FinVSS+1,FinVSS);

Color=IIf(Fin13up,colorBrightGreen,IIf(Fin13down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("ISLAMICFIN - " + Fin13Close+" (" +Fin13ChangeTaka+"Tk.)"+" (" +Fin13Change+"%)", 360 , 140 );

Fin14up=SelectedValue( Fin14Close> Fin14Prev);

FinVBS = IIf(Fin14up,FinVBS+1,FinVBS);

Fin14down=SelectedValue( Fin14Close < Fin14Prev);

FinVSS = IIf(Fin14down,FinVSS+1,FinVSS);

Color=IIf(Fin14up,colorBrightGreen,IIf(Fin14down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("LANKABAFIN - " + Fin14Close+" (" +Fin14ChangeTaka+"Tk.)"+" (" +Fin14Change+"%)", 360 , 149 );

Fin15up=SelectedValue( Fin15Close> Fin15Prev);

FinVBS = IIf(Fin15up,FinVBS+1,FinVBS);

Fin15down=SelectedValue( Fin15Close < Fin15Prev);

FinVSS = IIf(Fin15down,FinVSS+1,FinVSS);

Color=IIf(Fin15up,colorBrightGreen,IIf(Fin15down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("MIDASFIN - " + Fin15Close+" (" +Fin15ChangeTaka+"Tk.)"+" (" +Fin15Change+"%)", 360 , 158 );

Fin16up=SelectedValue( Fin16Close> Fin16Prev);

FinVBS = IIf(Fin16up,FinVBS+1,FinVBS);

Fin16down=SelectedValue( Fin16Close < Fin16Prev);

FinVSS = IIf(Fin16down,FinVSS+1,FinVSS);

Color=IIf(Fin16up,colorBrightGreen,IIf(Fin16down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("NHFIL - " + Fin16Close+" (" +Fin16ChangeTaka+"Tk.)"+" (" +Fin16Change+"%)", 360 , 167 );

Fin17up=SelectedValue( Fin17Close> Fin17Prev);

FinVBS = IIf(Fin17up,FinVBS+1,FinVBS);

Fin17down=SelectedValue( Fin17Close < Fin17Prev);

FinVSS = IIf(Fin17down,FinVSS+1,FinVSS);

Color=IIf(Fin17up,colorBrightGreen,IIf(Fin17down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("PHOENIXFIN - " + Fin17Close+" (" +Fin17ChangeTaka+"Tk.)"+" (" +Fin17Change+"%)", 360 , 176 );

Fin18up=SelectedValue( Fin18Close> Fin18Prev);

FinVBS = IIf(Fin18up,FinVBS+1,FinVBS);

Fin18down=SelectedValue( Fin18Close < Fin18Prev);

FinVSS = IIf(Fin18down,FinVSS+1,FinVSS);

Color=IIf(Fin18up,colorBrightGreen,IIf(Fin18down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("PLFSL - " + Fin18Close+" (" +Fin18ChangeTaka+"Tk.)"+" (" +Fin18Change+"%)", 360 , 185 );

Fin19up=SelectedValue( Fin19Close> Fin19Prev);

FinVBS = IIf(Fin19up,FinVBS+1,FinVBS);

Fin19down=SelectedValue( Fin19Close < Fin19Prev);

FinVSS = IIf(Fin19down,FinVSS+1,FinVSS);

Color=IIf(Fin19up,colorBrightGreen,IIf(Fin19down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("PREMIERLEA - " + Fin19Close+" (" +Fin19ChangeTaka+"Tk.)"+" (" +Fin19Change+"%)", 360 , 194 );

Fin20up=SelectedValue( Fin20Close> Fin20Prev);

FinVBS = IIf(Fin20up,FinVBS+1,FinVBS);

Fin20down=SelectedValue( Fin20Close < Fin20Prev);

FinVSS = IIf(Fin20down,FinVSS+1,FinVSS);

Color=IIf(Fin20up,colorBrightGreen,IIf(Fin20down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("PRIMEFIN - " + Fin20Close+" (" +Fin20ChangeTaka+"Tk.)"+" (" +Fin20Change+"%)", 360 , 203 );

Fin21up=SelectedValue( Fin21Close> Fin2Prev);

FinVBS = IIf(Fin21up,FinVBS+1,FinVBS);

Fin21down=SelectedValue( Fin21Close < Fin21Prev);

FinVSS = IIf(Fin21down,FinVSS+1,FinVSS);

Color=IIf(Fin21up,colorBrightGreen,IIf(Fin21down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("ULC - " + Fin21Close+" (" +Fin21ChangeTaka+"Tk.)"+" (" +Fin21Change+"%)", 360 , 212);

Fin22up=SelectedValue( Fin22Close> Fin22Prev);

FinVBS = IIf(Fin22up,FinVBS+1,FinVBS);

Fin22down=SelectedValue( Fin22Close < Fin22Prev);

FinVSS = IIf(Fin22down,FinVSS+1,FinVSS);

Color=IIf(Fin22up,colorBrightGreen,IIf(Fin22down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("UNIONCAP - " + Fin22Close+" (" +Fin22ChangeTaka+"Tk.)"+" (" +Fin22Change+"%)", 360 , 221);

Fin23up=SelectedValue( Fin23Close> Fin23Prev);

FinVBS = IIf(Fin23up,FinVBS+1,FinVBS);

Fin23down=SelectedValue( Fin23Close < Fin23Prev);

FinVSS = IIf(Fin23down,FinVSS+1,FinVSS);

Color=IIf(Fin23up,colorBrightGreen,IIf(Fin23down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("UTTARAFIN - " + Fin23Close+" (" +Fin23ChangeTaka+"Tk.)"+" (" +Fin23Change+"%)", 360 , 230 );

FinEQL= 23-(FinVBS+FinVSS);

GfxSetTextColor (Acolor);

GfxTextOut("[ A: "+FinVBS+", D: "+FinVSS+", U: "+FinEQL+" ]",425,23);

/////////////////////////////////////////////////////

TexVBS=0;

TexVSS=0;

TexEQL=0;

/////////////////////////////////////////////////////

GfxSetTextColor (TColor);

GfxTextOut("==TEXTILE==", 358 , 267 );

Tex1up=SelectedValue( Tex1Close> Tex1Prev);

TexVBS = IIf(Tex1up,TexVBS+1,TexVBS);

Tex1down=SelectedValue( Tex1Close < Tex1Prev);

TexVSS = IIf(Tex1down,TexVSS+1,TexVSS);

Color=IIf(Tex1up,colorBrightGreen,IIf(Tex1down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("AL-HAJTEX - " + Tex1Close+" (" +Tex1ChangeTaka+"Tk.)"+" (" +Tex1Change+"%)", 360 , 278 );

Tex2up=SelectedValue( Tex2Close> Tex2Prev);

TexVBS = IIf(Tex2up,TexVBS+1,TexVBS);

Tex2down=SelectedValue( Tex2Close < Tex2Prev);

TexVSS = IIf(Tex2down,TexVSS+1,TexVSS);

Color=IIf(Tex2up,colorBrightGreen,IIf(Tex2down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("ALLTEX - " + Tex2Close+" (" +Tex2ChangeTaka+"Tk.)"+" (" +Tex2Change+"%)", 360 , 287 );

Tex3up=SelectedValue( Tex3Close> Tex3Prev);

TexVBS = IIf(Tex3up,TexVBS+1,TexVBS);

Tex3down=SelectedValue( Tex3Close < Tex3Prev);

TexVSS = IIf(Tex3down,TexVSS+1,TexVSS);

Color=IIf(Tex3up,colorBrightGreen,IIf(Tex3down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("ANLIMAYARN - " + Tex3Close+" (" +Tex3ChangeTaka+"Tk.)"+" (" +Tex3Change+"%)", 360 , 296);

Tex4up=SelectedValue( Tex4Close> Tex4Prev);

TexVBS = IIf(Tex4up,TexVBS+1,TexVBS);

Tex4down=SelectedValue( Tex4Close < Tex4Prev);

TexVSS = IIf(Tex4down,TexVSS+1,TexVSS);

Color=IIf(Tex4up,colorBrightGreen,IIf(Tex4down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("APEXSPINN - " + Tex4Close+" (" +Tex4ChangeTaka+"Tk.)"+" (" +Tex4Change+"%)", 360 , 305 );

Tex5up=SelectedValue( Tex5Close> Tex5Prev);

TexVBS = IIf(Tex5up,TexVBS+1,TexVBS);

Tex5down=SelectedValue( Tex5Close < Tex5Prev);

TexVSS = IIf(Tex5down,TexVSS+1,TexVSS);

Color=IIf(Tex5up,colorBrightGreen,IIf(Tex5down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("ARGONDENIM - " + Tex5Close+" (" +Tex5ChangeTaka+"Tk.)"+" (" +Tex5Change+"%)", 360 , 314 );

Tex6up=SelectedValue( Tex6Close> Tex6Prev);

TexVBS = IIf(Tex6up,TexVBS+1,TexVBS);

Tex6down=SelectedValue( Tex6Close < Tex6Prev);

TexVSS = IIf(Tex6down,TexVSS+1,TexVSS);

Color=IIf(Tex6up,colorBrightGreen,IIf(Tex6down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("CMCKAMAL - " + Tex6Close+" (" +Tex6ChangeTaka+"Tk.)"+" (" +Tex6Change+"%)", 360 , 323 );

Tex7up=SelectedValue( Tex7Close> Tex7Prev);

TexVBS = IIf(Tex7up,TexVBS+1,TexVBS);

Tex7down=SelectedValue( Tex7Close < Tex7Prev);

TexVSS = IIf(Tex7down,TexVSS+1,TexVSS);

Color=IIf(Tex7up,colorBrightGreen,IIf(Tex7down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("DACCADYE - " + Tex7Close+" (" +Tex7ChangeTaka+"Tk.)"+" (" +Tex7Change+"%)", 360 , 332 );

Tex8up=SelectedValue( Tex8Close> Tex8Prev);

TexVBS = IIf(Tex8up,TexVBS+1,TexVBS);

Tex8down=SelectedValue( Tex8Close < Tex8Prev);

TexVSS = IIf(Tex8down,TexVSS+1,TexVSS);

Color=IIf(Tex8up,colorBrightGreen,IIf(Tex8down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("DELTASPINN - " + Tex8Close+" (" +Tex8ChangeTaka+"Tk.)"+" (" +Tex8Change+"%)", 360 , 341 );

Tex9up=SelectedValue( Tex9Close> Tex9Prev);

TexVBS = IIf(Tex9up,TexVBS+1,TexVBS);

Tex9down=SelectedValue( Tex9Close < Tex9Prev);

TexVSS = IIf(Tex9down,TexVSS+1,TexVSS);

Color=IIf(Tex9up,colorBrightGreen,IIf(Tex9down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("DSHGARME - " + Tex9Close+" (" +Tex9ChangeTaka+"Tk.)"+" (" +Tex9Change+"%)", 360 , 350 );

Tex10up=SelectedValue( Tex10Close> Tex10Prev);

TexVBS = IIf(Tex10up,TexVBS+1,TexVBS);

Tex10down=SelectedValue( Tex10Close < Tex10Prev);

TexVSS = IIf(Tex10down,TexVSS+1,TexVSS);

Color=IIf(Tex10up,colorBrightGreen,IIf(Tex10down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("DULAMIACOT - " + Tex10Close+" (" +Tex10ChangeTaka+"Tk.)"+" (" +Tex10Change+"%)", 360 , 359 );

Tex11up=SelectedValue( Tex11Close> Tex11Prev);

TexVBS = IIf(Tex11up,TexVBS+1,TexVBS);

Tex11down=SelectedValue( Tex11Close < Tex11Prev);

TexVSS = IIf(Tex11down,TexVSS+1,TexVSS);

Color=IIf(Tex11up,colorBrightGreen,IIf(Tex11down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("ENVOYTEX - " + Tex11Close+" (" +Tex11ChangeTaka+"Tk.)"+" (" +Tex11Change+"%)", 360 , 368 );

Tex12up=SelectedValue( Tex12Close> Tex12Prev);

TexVBS = IIf(Tex12up,TexVBS+1,TexVBS);

Tex12down=SelectedValue( Tex12Close < Tex12Prev);

TexVSS = IIf(Tex12down,TexVSS+1,TexVSS);

Color=IIf(Tex12up,colorBrightGreen,IIf(Tex12down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("FAMILYTEX - " + Tex12Close+" (" +Tex12ChangeTaka+"Tk.)"+" (" +Tex12Change+"%)", 360 , 377 );

Tex13up=SelectedValue( Tex13Close> Tex13Prev);

TexVBS = IIf(Tex13up,TexVBS+1,TexVBS);

Tex13down=SelectedValue( Tex13Close < Tex13Prev);

TexVSS = IIf(Tex13down,TexVSS+1,TexVSS);

Color=IIf(Tex13up,colorBrightGreen,IIf(Tex13down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("GENNEXT - " + Tex13Close+" (" +Tex13ChangeTaka+"Tk.)"+" (" +Tex13Change+"%)", 360 , 386 );

Tex14up=SelectedValue( Tex14Close> Tex14Prev);

TexVBS = IIf(Tex14up,TexVBS+1,TexVBS);

Tex14down=SelectedValue( Tex14Close < Tex14Prev);

TexVSS = IIf(Tex14down,TexVSS+1,TexVSS);

Color=IIf(Tex14up,colorBrightGreen,IIf(Tex14down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("HRTEX - " + Tex14Close+" (" +Tex14ChangeTaka+"Tk.)"+" (" +Tex14Change+"%)", 360 , 395 );

Tex15up=SelectedValue( Tex15Close> Tex15Prev);

TexVBS = IIf(Tex15up,TexVBS+1,TexVBS);

Tex15down=SelectedValue( Tex15Close < Tex15Prev);

TexVSS = IIf(Tex15down,TexVSS+1,TexVSS);

Color=IIf(Tex15up,colorBrightGreen,IIf(Tex15down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("MAKSONSPIN - " + Tex15Close+" (" +Tex15ChangeTaka+"Tk.)"+" (" +Tex15Change+"%)", 360 , 404 );

Tex16up=SelectedValue( Tex16Close> Tex16Prev);

TexVBS = IIf(Tex16up,TexVBS+1,TexVBS);

Tex16down=SelectedValue( Tex16Close < Tex16Prev);

TexVSS = IIf(Tex16down,TexVSS+1,TexVSS);

Color=IIf(Tex16up,colorBrightGreen,IIf(Tex16down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("MALEKSPIN - " + Tex16Close+" (" +Tex16ChangeTaka+"Tk.)"+" (" +Tex16Change+"%)", 360 , 413 );

Tex17up=SelectedValue( Tex17Close> Tex17Prev);

TexVBS = IIf(Tex17up,TexVBS+1,TexVBS);

Tex17down=SelectedValue( Tex17Close < Tex17Prev);

TexVSS = IIf(Tex17down,TexVSS+1,TexVSS);

Color=IIf(Tex17up,colorBrightGreen,IIf(Tex17down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("METROSPIN - " + Tex17Close+" (" +Tex17ChangeTaka+"Tk.)"+" (" +Tex17Change+"%)", 360 , 422 );

Tex18up=SelectedValue( Tex18Close> Tex18Prev);

TexVBS = IIf(Tex18up,TexVBS+1,TexVBS);

Tex18down=SelectedValue( Tex18Close < Tex18Prev);

TexVSS = IIf(Tex18down,TexVSS+1,TexVSS);

Color=IIf(Tex18up,colorBrightGreen,IIf(Tex18down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("MODERNDYE - " + Tex18Close+" (" +Tex18ChangeTaka+"Tk.)"+" (" +Tex18Change+"%)", 360 , 431 );

Tex19up=SelectedValue( Tex19Close> Tex19Prev);

TexVBS = IIf(Tex19up,TexVBS+1,TexVBS);

Tex19down=SelectedValue( Tex19Close < Tex19Prev);

TexVSS = IIf(Tex19down,TexVSS+1,TexVSS);

Color=IIf(Tex19up,colorBrightGreen,IIf(Tex19down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("MITHUNKNIT - " + Tex19Close+" (" +Tex19ChangeTaka+"Tk.)"+" (" +Tex19Change+"%)", 360 , 440 );

Tex20up=SelectedValue( Tex20Close> Tex20Prev);

TexVBS = IIf(Tex20up,TexVBS+1,TexVBS);

Tex20down=SelectedValue( Tex20Close < Tex20Prev);

TexVSS = IIf(Tex20down,TexVSS+1,TexVSS);

Color=IIf(Tex20up,colorBrightGreen,IIf(Tex20down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("PRIMETEX - " + Tex20Close+" (" +Tex20ChangeTaka+"Tk.)"+" (" +Tex20Change+"%)", 360 , 449 );

Tex21up=SelectedValue( Tex21Close> Tex21Prev);

TexVBS = IIf(Tex21up,TexVBS+1,TexVBS);

Tex21down=SelectedValue( Tex21Close < Tex21Prev);

TexVSS = IIf(Tex21down,TexVSS+1,TexVSS);

Color=IIf(Tex21up,colorBrightGreen,IIf(Tex21down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("PTL  - " + Tex21Close+" (" +Tex21ChangeTaka+"Tk.)"+" (" +Tex21Change+"%)", 360 , 458 );

Tex22up=SelectedValue( Tex22Close> Tex22Prev);

TexVBS = IIf(Tex22up,TexVBS+1,TexVBS);

Tex22down=SelectedValue( Tex22Close < Tex22Prev);

TexVSS = IIf(Tex22down,TexVSS+1,TexVSS);

Color=IIf(Tex22up,colorBrightGreen,IIf(Tex22down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("RAHIMTEXT  - " + Tex22Close+" (" +Tex22ChangeTaka+"Tk.)"+" (" +Tex22Change+"%)", 360 , 467 );

Tex23up=SelectedValue( Tex23Close> Tex23Prev);

TexVBS = IIf(Tex23up,TexVBS+1,TexVBS);

Tex23down=SelectedValue( Tex23Close < Tex23Prev);

TexVSS = IIf(Tex23down,TexVSS+1,TexVSS);

Color=IIf(Tex23up,colorBrightGreen,IIf(Tex23down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("RNSPIN - " + Tex23Close+" (" +Tex23ChangeTaka+"Tk.)"+" (" +Tex23Change+"%)", 360 , 476 );

Tex24up=SelectedValue( Tex24Close> Tex24Prev);

TexVBS = IIf(Tex24up,TexVBS+1,TexVBS);

Tex24down=SelectedValue( Tex24Close < Tex24Prev);

TexVSS = IIf(Tex24down,TexVSS+1,TexVSS);

Color=IIf(Tex24up,colorBrightGreen,IIf(Tex24down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("SAFKOSPINN - " + Tex24Close+" (" +Tex24ChangeTaka+"Tk.)"+" (" +Tex24Change+"%)", 360 , 485 );

Tex25up=SelectedValue( Tex25Close> Tex25Prev);

TexVBS = IIf(Tex25up,TexVBS+1,TexVBS);

Tex25down=SelectedValue( Tex25Close < Tex25Prev);

TexVSS = IIf(Tex25down,TexVSS+1,TexVSS);

Color=IIf(Tex25up,colorBrightGreen,IIf(Tex25down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("SAIHAMCOT  - " + Tex25Close+" (" +Tex25ChangeTaka+"Tk.)"+" (" +Tex25Change+"%)", 360 , 494 );

Tex26up=SelectedValue( Tex26Close> Tex26Prev);

TexVBS = IIf(Tex26up,TexVBS+1,TexVBS);

Tex26down=SelectedValue( Tex26Close < Tex26Prev);

TexVSS = IIf(Tex26down,TexVSS+1,TexVSS);

Color=IIf(Tex26up,colorBrightGreen,IIf(Tex26down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("SAIHAMTEX  - " + Tex26Close+" (" +Tex26ChangeTaka+"Tk.)"+" (" +Tex26Change+"%)", 360 , 503 );

Tex27up=SelectedValue( Tex27Close> Tex27Prev);

TexVBS = IIf(Tex27up,TexVBS+1,TexVBS);

Tex27down=SelectedValue( Tex27Close < Tex27Prev);

TexVSS = IIf(Tex27down,TexVSS+1,TexVSS);

Color=IIf(Tex27up,colorBrightGreen,IIf(Tex27down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("SONARGAON - " + Tex27Close+" (" +Tex27ChangeTaka+"Tk.)"+" (" +Tex27Change+"%)", 360 , 512 );

Tex28up=SelectedValue( Tex28Close> Tex28Prev);

TexVBS = IIf(Tex28up,TexVBS+1,TexVBS);

Tex28down=SelectedValue( Tex28Close < Tex28Prev);

TexVSS = IIf(Tex28down,TexVSS+1,TexVSS);

Color=IIf(Tex28up,colorBrightGreen,IIf(Tex28down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("SQUARETEXT - " + Tex28Close+" (" +Tex28ChangeTaka+"Tk.)"+" (" +Tex28Change+"%)", 360 , 521 );

Tex29up=SelectedValue( Tex29Close> Tex29Prev);

TexVBS = IIf(Tex29up,TexVBS+1,TexVBS);

Tex29down=SelectedValue( Tex29Close < Tex29Prev);

TexVSS = IIf(Tex29down,TexVSS+1,TexVSS);

Color=IIf(Tex29up,colorBrightGreen,IIf(Tex29down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("STYLECRAFT - " + Tex29Close+" (" +Tex29ChangeTaka+"Tk.)"+" (" +Tex29Change+"%)", 360 , 530 );

Tex30up=SelectedValue( Tex30Close> Tex30Prev);

TexVBS = IIf(Tex30up,TexVBS+1,TexVBS);

Tex30down=SelectedValue( Tex30Close < Tex30Prev);

TexVSS = IIf(Tex30down,TexVSS+1,TexVSS);

Color=IIf(Tex30up,colorBrightGreen,IIf(Tex30down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("TALLUSPIN - " + Tex30Close+" (" +Tex30ChangeTaka+"Tk.)"+" (" +Tex30Change+"%)", 360 , 539 );

Tex31up=SelectedValue( Tex31Close> Tex31Prev);

TexVBS = IIf(Tex31up,TexVBS+1,TexVBS);

Tex31down=SelectedValue( Tex31Close < Tex31Prev);

TexVSS = IIf(Tex31down,TexVSS+1,TexVSS);

Color=IIf(Tex31up,colorBrightGreen,IIf(Tex31down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("ZAHINTEX - " + Tex31Close+" (" +Tex31ChangeTaka+"Tk.)"+" (" +Tex31Change+"%)", 360 , 548 );

TexEQL= 31-(TexVBS+TexVSS);

GfxSetTextColor (Acolor);

GfxTextOut("[ A: "+TexVBS+", D: "+TexVSS+", U: "+TexEQL+" ]",425,267);

/////////////////////////////////////////////////////

PaperVBS=0;

PaperVSS=0;

PaperEQL=0;

/////////////////////////////////////////////////////

GfxSetTextColor (TColor);

GfxTextOut("=Paper&Print=", 358 , 577 );

Paper1up=SelectedValue( Paper1Close> Paper1Prev);

PaperVBS = IIf(Paper1up,PaperVBS+1,PaperVBS);

Paper1down=SelectedValue( Paper1Close < Paper1Prev);

PaperVSS = IIf(Paper1down,PaperVSS+1,PaperVSS);

Color=IIf(Paper1up,colorBrightGreen,IIf(Paper1down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("HAKKANIPUL - " + Paper1Close+" (" +Paper1ChangeTaka+"Tk.)"+" (" +Paper1Change+"%)", 360 , 588 );

PaperEQL= 1-(PaperVBS+PaperVSS);

GfxSetTextColor (Acolor);

GfxTextOut("[ A: "+PaperVBS+", D: "+PaperVSS+", U: "+PaperEQL+" ]",425,577);

///////////////////////////////////////////////////

EngVBS=0;

EngVSS=0;

EngEQL=0;

/////////////////////////////////////////////////////

GfxSetTextColor (TColor);

GfxTextOut("=ENGINEERING=", 536 , 22 );

Eng1up=SelectedValue( Eng1Close> Eng1Prev);

EngVBS = IIf(Eng1up,EngVBS+1,EngVBS);

Eng1down=SelectedValue( Eng1Close < Eng1Prev);

EngVSS = IIf(Eng1down,EngVSS+1,EngVSS);

Color=IIf(Eng1up,colorBrightGreen,IIf(Eng1down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("AFTABAUTO - " + Eng1Close+" (" +Eng1ChangeTaka+"Tk.)"+" (" +Eng1Change+"%)", 540 , 33 );

Eng2up=SelectedValue( Eng2Close> Eng2Prev);

EngVBS = IIf(Eng2up,EngVBS+1,EngVBS);

Eng2down=SelectedValue( Eng2Close < Eng2Prev);

EngVSS = IIf(Eng2down,EngVSS+1,EngVSS);

Color=IIf(Eng2up,colorBrightGreen,IIf(Eng2down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("ANWARGALV - " + Eng2Close+" (" +Eng2ChangeTaka+"Tk.)"+" (" +Eng2Change+"%)", 540 , 44 );

Eng3up=SelectedValue( Eng3Close> Eng3Prev);

EngVBS = IIf(Eng3up,EngVBS+1,EngVBS);

Eng3down=SelectedValue( Eng3Close < Eng3Prev);

EngVSS = IIf(Eng3down,EngVSS+1,EngVSS);

Color=IIf(Eng3up,colorBrightGreen,IIf(Eng3down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("APOLOISPAT - " + Eng3Close+" (" +Eng3ChangeTaka+"Tk.)"+" (" +Eng3Change+"%)", 540 , 55 );

Eng4up=SelectedValue( Eng4Close> Eng4Prev);

EngVBS = IIf(Eng4up,EngVBS+1,EngVBS);

Eng4down=SelectedValue( Eng4Close < Eng4Prev);

EngVSS = IIf(Eng4down,EngVSS+1,EngVSS);

Color=IIf(Eng4up,colorBrightGreen,IIf(Eng4down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("ATLASBANG - " + Eng4Close+" (" +Eng4ChangeTaka+"Tk.)"+" (" +Eng4Change+"%)", 540 , 65 );

Eng5up=SelectedValue( Eng5Close> Eng5Prev);

EngVBS = IIf(Eng5up,EngVBS+1,EngVBS);

Eng5down=SelectedValue( Eng5Close < Eng5Prev);

EngVSS = IIf(Eng5down,EngVSS+1,EngVSS);

Color=IIf(Eng5up,colorBrightGreen,IIf(Eng5down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("AZIZPIPES - " + Eng5Close+" (" +Eng5ChangeTaka+"Tk.)"+" (" +Eng5Change+"%)", 540 , 75 );

Eng6up=SelectedValue( Eng6Close> Eng6Prev);

EngVBS = IIf(Eng6up,EngVBS+1,EngVBS);

Eng6down=SelectedValue( Eng6Close < Eng6Prev);

EngVSS = IIf(Eng6down,EngVSS+1,EngVSS);

Color=IIf(Eng6up,colorBrightGreen,IIf(Eng6down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("BDAUTOCA - " + Eng6Close+" (" +Eng6ChangeTaka+"Tk.)"+" (" +Eng6Change+"%)", 540 , 85 );

Eng7up=SelectedValue( Eng7Close> Eng7Prev);

EngVBS = IIf(Eng7up,EngVBS+1,EngVBS);

Eng7down=SelectedValue( Eng7Close < Eng7Prev);

EngVSS = IIf(Eng7down,EngVSS+1,EngVSS);

Color=IIf(Eng7up,colorBrightGreen,IIf(Eng7down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("BDBUILDING - " + Eng7Close+" (" +Eng7ChangeTaka+"Tk.)"+" (" +Eng7Change+"%)", 540 , 95 );

Eng8up=SelectedValue( Eng8Close> Eng8Prev);

EngVBS = IIf(Eng8up,EngVBS+1,EngVBS);

Eng8down=SelectedValue( Eng8Close < Eng8Prev);

EngVSS = IIf(Eng8down,EngVSS+1,EngVSS);

Color=IIf(Eng8up,colorBrightGreen,IIf(Eng8down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("BDLAMPS - " + Eng8Close+" (" +Eng8ChangeTaka+"Tk.)"+" (" +Eng8Change+"%)", 540 , 105 );

Eng9up=SelectedValue( Eng9Close> Eng9Prev);

EngVBS = IIf(Eng9up,EngVBS+1,EngVBS);

Eng9down=SelectedValue( Eng9Close < Eng9Prev);

EngVSS = IIf(Eng9down,EngVSS+1,EngVSS);

Color=IIf(Eng9up,colorBrightGreen,IIf(Eng9down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("BDTHAI - " + Eng9Close+" (" +Eng9ChangeTaka+"Tk.)"+" (" +Eng9Change+"%)", 540 , 115 );

Eng10up=SelectedValue( Eng10Close> Eng10Prev);

EngVBS = IIf(Eng10up,EngVBS+1,EngVBS);

Eng10down=SelectedValue( Eng10Close < Eng10Prev);

EngVSS = IIf(Eng10down,EngVSS+1,EngVSS);

Color=IIf(Eng10up,colorBrightGreen,IIf(Eng10down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("BSRMSTEEL- " + Eng10Close+" (" +Eng10ChangeTaka+"Tk.)"+" (" +Eng10Change+"%)", 540 , 125 );

Eng11up=SelectedValue( Eng11Close> Eng11Prev);

EngVBS = IIf(Eng11up,EngVBS+1,EngVBS);

Eng11down=SelectedValue( Eng11Close < Eng11Prev);

EngVSS = IIf(Eng11down,EngVSS+1,EngVSS);

Color=IIf(Eng11up,colorBrightGreen,IIf(Eng11down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("DESHBANDHU- " + Eng11Close+" (" +Eng11ChangeTaka+"Tk.)"+" (" +Eng11Change+"%)", 540 , 135 );

Eng12up=SelectedValue( Eng12Close> Eng12Prev);

EngVBS = IIf(Eng12up,EngVBS+1,EngVBS);

Eng12down=SelectedValue( Eng12Close < Eng12Prev);

EngVSS = IIf(Eng12down,EngVSS+1,EngVSS);

Color=IIf(Eng12up,colorBrightGreen,IIf(Eng12down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("ECABLES - " + Eng12Close+" (" +Eng12ChangeTaka+"Tk.)"+" (" +Eng12Change+"%)", 540 , 145 );

Eng13up=SelectedValue( Eng13Close> Eng13Prev);

EngVBS = IIf(Eng13up,EngVBS+1,EngVBS);

Eng13down=SelectedValue( Eng13Close < Eng13Prev);

EngVSS = IIf(Eng13down,EngVSS+1,EngVSS);

Color=IIf(Eng13up,colorBrightGreen,IIf(Eng13down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("GOLDENSON - " + Eng13Close+" (" +Eng13ChangeTaka+"Tk.)"+" (" +Eng13Change+"%)", 540 ,155 );

Eng14up=SelectedValue( Eng14Close> Eng14Prev);

EngVBS = IIf(Eng14up,EngVBS+1,EngVBS);

Eng14down=SelectedValue( Eng14Close < Eng14Prev);

EngVSS = IIf(Eng14down,EngVSS+1,EngVSS);

Color=IIf(Eng14up,colorBrightGreen,IIf(Eng14down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("GPHISPAT - " + Eng14Close+" (" +Eng14ChangeTaka+"Tk.)"+" (" +Eng14Change+"%)", 540 , 165 );

Eng15up=SelectedValue( Eng15Close> Eng15Prev);

EngVBS = IIf(Eng15up,EngVBS+1,EngVBS);

Eng15down=SelectedValue( Eng15Close < Eng15Prev);

EngVSS = IIf(Eng15down,EngVSS+1,EngVSS);

Color=IIf(Eng15up,colorBrightGreen,IIf(Eng15down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("KAY&QUE - " + Eng15Close+" (" +Eng15ChangeTaka+"Tk.)"+" (" +Eng15Change+"%)", 540 , 175 );

Eng16up=SelectedValue( Eng16Close> Eng16Prev);

EngVBS = IIf(Eng16up,EngVBS+1,EngVBS);

Eng16down=SelectedValue( Eng16Close < Eng16Prev);

EngVSS = IIf(Eng16down,EngVSS+1,EngVSS);

Color=IIf(Eng16up,colorBrightGreen,IIf(Eng16down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("MONNOJTX - " + Eng16Close+" (" +Eng16ChangeTaka+"Tk.)"+" (" +Eng16Change+"%)", 540 , 185 );

Eng17up=SelectedValue( Eng17Close> Eng17Prev);

EngVBS = IIf(Eng17up,EngVBS+1,EngVBS);

Eng17down=SelectedValue( Eng17Close < Eng17Prev);

EngVSS = IIf(Eng17down,EngVSS+1,EngVSS);

Color=IIf(Eng17up,colorBrightGreen,IIf(Eng17down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("MONNOSTAF - " + Eng17Close+" (" +Eng17ChangeTaka+"Tk.)"+" (" +Eng17Change+"%)", 540 , 195 );

Eng18up=SelectedValue( Eng18Close> Eng18Prev);

EngVBS = IIf(Eng18up,EngVBS+1,EngVBS);

Eng18down=SelectedValue( Eng18Close < Eng18Prev);

EngVSS = IIf(Eng18down,EngVSS+1,EngVSS);

Color=IIf(Eng18up,colorBrightGreen,IIf(Eng18down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("NAVANACNG - " + Eng18Close+" (" +Eng18ChangeTaka+"Tk.)"+" (" +Eng18Change+"%)", 540 , 205 );

Eng19up=SelectedValue( Eng19Close> Eng19Prev);

EngVBS = IIf(Eng19up,EngVBS+1,EngVBS);

Eng19down=SelectedValue( Eng19Close < Eng19Prev);

EngVSS = IIf(Eng19down,EngVSS+1,EngVSS);

Color=IIf(Eng19up,colorBrightGreen,IIf(Eng19down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("NPOLYMAR - " + Eng19Close+" (" +Eng19ChangeTaka+"Tk.)"+" (" +Eng19Change+"%)", 540 , 215 );

Eng20up=SelectedValue( Eng20Close> Eng20Prev);

EngVBS = IIf(Eng20up,EngVBS+1,EngVBS);

Eng20down=SelectedValue( Eng20Close < Eng20Prev);

EngVSS = IIf(Eng20down,EngVSS+1,EngVSS);

Color=IIf(Eng20up,colorBrightGreen,IIf(Eng20down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("NTLTUBES - " + Eng20Close+" (" +Eng20ChangeTaka+"Tk.)"+" (" +Eng20Change+"%)", 540 , 225 );

Eng21up=SelectedValue( Eng21Close> Eng21Prev);

EngVBS = IIf(Eng21up,EngVBS+1,EngVBS);

Eng21down=SelectedValue( Eng21Close < Eng21Prev);

EngVSS = IIf(Eng21down,EngVSS+1,EngVSS);

Color=IIf(Eng21up,colorBrightGreen,IIf(Eng21down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("OLYMPIC - " + Eng21Close+" (" +Eng21ChangeTaka+"Tk.)"+" (" +Eng21Change+"%)", 540 , 235 );

Eng22up=SelectedValue( Eng22Close> Eng22Prev);

EngVBS = IIf(Eng22up,EngVBS+1,EngVBS);

Eng22down=SelectedValue( Eng22Close < Eng22Prev);

EngVSS = IIf(Eng22down,EngVSS+1,EngVSS);

Color=IIf(Eng22up,colorBrightGreen,IIf(Eng22down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("QSMDRYCELL - " + Eng22Close+" (" +Eng22ChangeTaka+"Tk.)"+" (" +Eng22Change+"%)", 540 , 245 );

Eng23up=SelectedValue( Eng23Close> Eng23Prev);

EngVBS = IIf(Eng23up,EngVBS+1,EngVBS);

Eng23down=SelectedValue( Eng23Close < Eng23Prev);

EngVSS = IIf(Eng23down,EngVSS+1,EngVSS);

Color=IIf(Eng23up,colorBrightGreen,IIf(Eng23down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("RANFOUNDRY - " + Eng23Close+" (" +Eng23ChangeTaka+"Tk.)"+" (" +Eng23Change+"%)", 540 , 255 );

Eng24up=SelectedValue( Eng24Close> Eng24Prev);

EngVBS = IIf(Eng24up,EngVBS+1,EngVBS);

Eng24down=SelectedValue( Eng24Close < Eng24Prev);

EngVSS = IIf(Eng24down,EngVSS+1,EngVSS);

Color=IIf(Eng24up,colorBrightGreen,IIf(Eng24down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("RENWICKJA - " + Eng24Close+" (" +Eng24ChangeTaka+"Tk.)"+" (" +Eng24Change+"%)", 540 , 265 );

Eng25up=SelectedValue( Eng25Close> Eng25Prev);

EngVBS = IIf(Eng25up,EngVBS+1,EngVBS);

Eng25down=SelectedValue( Eng25Close < Eng25Prev);

EngVSS = IIf(Eng25down,EngVSS+1,EngVSS);

Color=IIf(Eng25up,colorBrightGreen,IIf(Eng25down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("SALAMCRST - " + Eng25Close+" (" +Eng25ChangeTaka+"Tk.)"+" (" +Eng25Change+"%)", 540 , 275 );

Eng26up=SelectedValue( Eng26Close> Eng26Prev);

EngVBS = IIf(Eng26up,EngVBS+1,EngVBS);

Eng26down=SelectedValue( Eng26Close < Eng26Prev);

EngVSS = IIf(Eng26down,EngVSS+1,EngVSS);

Color=IIf(Eng26up,colorBrightGreen,IIf(Eng26down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("SINGERBD - " + Eng26Close+" (" +Eng26ChangeTaka+"Tk.)"+" (" +Eng26Change+"%)", 540 , 285 );

EngEQL= 26-(EngVBS+EngVSS);

GfxSetTextColor (Acolor);

GfxTextOut("[ A: "+EngVBS+", D: "+EngVSS+", U: "+EngEQL+" ]",620,22);

/////////////////////////////////////////////////////

PCVBS=0;

PCVSS=0;

PCEQL=0;

/////////////////////////////////////////////////////

GfxSetTextColor (TColor);

GfxTextOut("=PHARMA &C.=", 536 , 300 );

PC1up=SelectedValue( PC1Close> PC1Prev);

PCVBS = IIf(PC1up,PCVBS+1,PCVBS);

PC1down=SelectedValue( PC1Close < PC1Prev);

PCVSS = IIf(PC1down,PCVSS+1,PCVSS);

Color=IIf(PC1up,colorBrightGreen,IIf(PC1down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("ACI - " + PC1Close+" (" +PC1ChangeTaka+"Tk.)"+" (" +PC1Change+"%)", 540 , 311 );

PC2up=SelectedValue( PC2Close> PC2Prev);

PCVBS = IIf(PC2up,PCVBS+1,PCVBS);

PC2down=SelectedValue( PC2Close < PC2Prev);

PCVSS = IIf(PC2down,PCVSS+1,PCVSS);

Color=IIf(PC2up,colorBrightGreen,IIf(PC2down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("ACIFORMULA - " + PC2Close+" (" +PC2ChangeTaka+"Tk.)"+" (" +PC2Change+"%)", 540 , 320 );

PC3up=SelectedValue( PC3Close> PC3Prev);

PCVBS = IIf(PC3up,PCVBS+1,PCVBS);

PC3down=SelectedValue( PC3Close < PC3Prev);

PCVSS = IIf(PC3down,PCVSS+1,PCVSS);

Color=IIf(PC3up,colorBrightGreen,IIf(PC3down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("ACTIVEFINE - " + PC3Close+" (" +PC3ChangeTaka+"Tk.)"+" (" +PC3Change+"%)", 540 , 329 );

PC4up=SelectedValue( PC4Close> PC4Prev);

PCVBS = IIf(PC4up,PCVBS+1,PCVBS);

PC4down=SelectedValue( PC4Close < PC4Prev);

PCVSS = IIf(PC4down,PCVSS+1,PCVSS);

Color=IIf(PC4up,colorBrightGreen,IIf(PC4down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("AMBEEPHA - " + PC4Close+" (" +PC4ChangeTaka+"Tk.)"+" (" +PC4Change+"%)", 540 , 338 );

PC5up=SelectedValue( PC5Close> PC5Prev);

PCVBS = IIf(PC5up,PCVBS+1,PCVBS);

PC5down=SelectedValue( PC5Close < PC5Prev);

PCVSS = IIf(PC5down,PCVSS+1,PCVSS);

Color=IIf(PC5up,colorBrightGreen,IIf(PC5down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("BEACONPHAR - " + PC5Close+" (" +PC5ChangeTaka+"Tk.)"+" (" +PC5Change+"%)", 540 , 347 );

PC6up=SelectedValue( PC6Close> PC6Prev);

PCVBS = IIf(PC6up,PCVBS+1,PCVBS);

PC6down=SelectedValue( PC6Close < PC6Prev);

PCVSS = IIf(PC6down,PCVSS+1,PCVSS);

Color=IIf(PC6up,colorBrightGreen,IIf(PC6down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("BXPHARMA - " + PC6Close+" (" +PC6ChangeTaka+"Tk.)"+" (" +PC6Change+"%)", 540 , 356 );

PC7up=SelectedValue( PC7Close> PC7Prev);

PCVBS = IIf(PC7up,PCVBS+1,PCVBS);

PC7down=SelectedValue( PC7Close < PC7Prev);

PCVSS = IIf(PC7down,PCVSS+1,PCVSS);

Color=IIf(PC7up,colorBrightGreen,IIf(PC7down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("BXSYNTH - " + PC7Close+" (" +PC7ChangeTaka+"Tk.)"+" (" +PC7Change+"%)", 540 , 365 );

PC8up=SelectedValue( PC8Close> PC8Prev);

PCVBS = IIf(PC8up,PCVBS+1,PCVBS);

PC8down=SelectedValue( PC8Close < PC8Prev);

PCVSS = IIf(PC8down,PCVSS+1,PCVSS);

Color=IIf(PC8up,colorBrightGreen,IIf(PC8down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("CENTRALPHL - " + PC8Close+" (" +PC8ChangeTaka+"Tk.)"+" (" +PC8Change+"%)", 540 , 374 );

PC9up=SelectedValue( PC9Close> PC9Prev);

PCVBS = IIf(PC9up,PCVBS+1,PCVBS);

PC9down=SelectedValue( PC9Close < PC9Prev);

PCVSS = IIf(PC9down,PCVSS+1,PCVSS);

Color=IIf(PC9up,colorBrightGreen,IIf(PC9down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("GHCL - " + PC9Close+" (" +PC9ChangeTaka+"Tk.)"+" (" +PC9Change+"%)", 540 , 383 );

PC10up=SelectedValue( PC10Close> PC10Prev);

PCVBS = IIf(PC10up,PCVBS+1,PCVBS);

PC10down=SelectedValue( PC10Close < PC10Prev);

PCVSS = IIf(PC10down,PCVSS+1,PCVSS);

Color=IIf(PC10up,colorBrightGreen,IIf(PC10down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("GLAXOSMITH - " + PC10Close+" (" +PC10ChangeTaka+"Tk.)"+" (" +PC10Change+"%)", 540 , 392 );

PC11up=SelectedValue( PC11Close> PC11Prev);

PCVBS = IIf(PC11up,PCVBS+1,PCVBS);

PC11down=SelectedValue( PC11Close < PC11Prev);

PCVSS = IIf(PC11down,PCVSS+1,PCVSS);

Color=IIf(PC11up,colorBrightGreen,IIf(PC11down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("IBNSINA - " + PC11Close+" (" +PC11ChangeTaka+"Tk.)"+" (" +PC11Change+"%)", 540 , 401 );

PC12up=SelectedValue( PC12Close> PC12Prev);

PCVBS = IIf(PC12up,PCVBS+1,PCVBS);

PC12down=SelectedValue( PC12Close < PC12Prev);

PCVSS = IIf(PC12down,PCVSS+1,PCVSS);

Color=IIf(PC12up,colorBrightGreen,IIf(PC12down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("IMAMBUTTON - " + PC12Close+" (" +PC12ChangeTaka+"Tk.)"+" (" +PC12Change+"%)", 540 , 410 );

PC13up=SelectedValue( PC13Close> PC13Prev);

PCVBS = IIf(PC13up,PCVBS+1,PCVBS);

PC13down=SelectedValue( PC13Close < PC13Prev);

PCVSS = IIf(PC13down,PCVSS+1,PCVSS);

Color=IIf(PC13up,colorBrightGreen,IIf(PC13down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("JMISMDL - " + PC13Close+" (" +PC13ChangeTaka+"Tk.)"+" (" +PC13Change+"%)", 540 , 419 );

PC14up=SelectedValue( PC14Close> PC14Prev);

PCVBS = IIf(PC14up,PCVBS+1,PCVBS);

PC14down=SelectedValue( PC14Close < PC14Prev);

PCVSS = IIf(PC14down,PCVSS+1,PCVSS);

Color=IIf(PC14up,colorBrightGreen,IIf(PC14down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("KEYACOSMET - " + PC14Close+" (" +PC14ChangeTaka+"Tk.)"+" (" +PC14Change+"%)", 540 , 428 );

PC15up=SelectedValue( PC15Close> PC15Prev);

PCVBS = IIf(PC15up,PCVBS+1,PCVBS);

PC15down=SelectedValue( PC15Close < PC15Prev);

PCVSS = IIf(PC15down,PCVSS+1,PCVSS);

Color=IIf(PC15up,colorBrightGreen,IIf(PC15down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("KOHINOOR - " + PC15Close+" (" +PC15ChangeTaka+"Tk.)"+" (" +PC15Change+"%)", 540 , 437 );

PC16up=SelectedValue( PC16Close> PC16Prev);

PCVBS = IIf(PC16up,PCVBS+1,PCVBS);

PC16down=SelectedValue( PC16Close < PC16Prev);

PCVSS = IIf(PC16down,PCVSS+1,PCVSS);

Color=IIf(PC16up,colorBrightGreen,IIf(PC16down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("LIBRAINFU - " + PC16Close+" (" +PC16ChangeTaka+"Tk.)"+" (" +PC16Change+"%)", 540 , 446 );

PC17up=SelectedValue( PC17Close> PC17Prev);

PCVBS = IIf(PC17up,PCVBS+1,PCVBS);

PC17down=SelectedValue( PC17Close < PC17Prev);

PCVSS = IIf(PC17down,PCVSS+1,PCVSS);

Color=IIf(PC17up,colorBrightGreen,IIf(PC17down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("MARICO - " + PC17Close+" (" +PC17ChangeTaka+"Tk.)"+" (" +PC17Change+"%)", 540 , 455 );

PC18up=SelectedValue( PC18Close> PC18Prev);

PCVBS = IIf(PC18up,PCVBS+1,PCVBS);

PC18down=SelectedValue( PC18Close < PC18Prev);

PCVSS = IIf(PC18down,PCVSS+1,PCVSS);

Color=IIf(PC18up,colorBrightGreen,IIf(PC18down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("ORIONINFU - " + PC18Close+" (" +PC18ChangeTaka+"Tk.)"+" (" +PC18Change+"%)", 540 , 464 );

PC19up=SelectedValue( PC19Close> PC19Prev);

PCVBS = IIf(PC19up,PCVBS+1,PCVBS);

PC19down=SelectedValue( PC19Close < PC19Prev);

PCVSS = IIf(PC19down,PCVSS+1,PCVSS);

Color=IIf(PC19up,colorBrightGreen,IIf(PC19down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("ORIONPHARM - " + PC19Close+" (" +PC19ChangeTaka+"Tk.)"+" (" +PC19Change+"%)", 540 , 473 );

PC20up=SelectedValue( PC20Close> PC20Prev);

PCVBS = IIf(PC20up,PCVBS+1,PCVBS);

PC20down=SelectedValue( PC20Close < PC20Prev);

PCVSS = IIf(PC20down,PCVSS+1,PCVSS);

Color=IIf(PC20up,colorBrightGreen,IIf(PC20down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("PHARMAID - " + PC20Close+" (" +PC20ChangeTaka+"Tk.)"+" (" +PC20Change+"%)", 540 , 482 );

PC21up=SelectedValue( PC21Close> PC21Prev);

PCVBS = IIf(PC21up,PCVBS+1,PCVBS);

PC21down=SelectedValue( PC21Close < PC21Prev);

PCVSS = IIf(PC21down,PCVSS+1,PCVSS);

Color=IIf(PC21up,colorBrightGreen,IIf(PC21down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("RECKITTBEN - " + PC21Close+" (" +PC21ChangeTaka+"Tk.)"+" (" +PC21Change+"%)", 540 , 491 );

PC22up=SelectedValue( PC22Close> PC22Prev);

PCVBS = IIf(PC22up,PCVBS+1,PCVBS);

PC22down=SelectedValue( PC22Close < PC22Prev);

PCVSS = IIf(PC22down,PCVSS+1,PCVSS);

Color=IIf(PC22up,colorBrightGreen,IIf(PC22down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("RENATA - " + PC22Close+" (" +PC22ChangeTaka+"Tk.)"+" (" +PC22Change+"%)", 540 , 500 );

PC23up=SelectedValue( PC23Close> PC23Prev);

PCVBS = IIf(PC23up,PCVBS+1,PCVBS);

PC23down=SelectedValue( PC23Close < PC23Prev);

PCVSS = IIf(PC23down,PCVSS+1,PCVSS);

Color=IIf(PC23up,colorBrightGreen,IIf(PC23down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("SALVOCHEM - " + PC23Close+" (" +PC23ChangeTaka+"Tk.)"+" (" +PC23Change+"%)", 540 , 509 );

PC24up=SelectedValue( PC24Close> PC24Prev);

PCVBS = IIf(PC24up,PCVBS+1,PCVBS);

PC24down=SelectedValue( PC24Close < PC24Prev);

PCVSS = IIf(PC24down,PCVSS+1,PCVSS);

Color=IIf(PC24up,colorBrightGreen,IIf(PC24down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("SQURPHARMA - " + PC24Close+" (" +PC24ChangeTaka+"Tk.)"+" (" +PC24Change+"%)", 540 , 518 );

PCEQL= 24-(PCVBS+PCVSS);

GfxSetTextColor (Acolor);

GfxTextOut("[ A: "+PCVBS+", D: "+PCVSS+", U: "+PCEQL+" ]",610,300);

/////////////////////////////////////////////////////

CerVBS=0;

CerVSS=0;

CerEQL=0;

/////////////////////////////////////////////////////

GfxSetTextColor (colorAqua);

GfxTextOut("=CERAMICS=", 536 , 536 );

Cer1up=SelectedValue( Cer1Close> Cer1Prev);

CerVBS = IIf(Cer1up,CerVBS+1,CerVBS);

Cer1down=SelectedValue( Cer1Close < Cer1Prev);

CerVSS = IIf(Cer1down,CerVSS+1,CerVSS);

Color=IIf(Cer1up,colorBrightGreen,IIf(Cer1down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("FUWANGCER - " + Cer1Close+" (" +Cer1ChangeTaka+"Tk.)"+" (" +Cer1Change+"%)", 540 , 546 );

Cer2up=SelectedValue( Cer2Close> Cer2Prev);

CerVBS = IIf(Cer2up,CerVBS+1,CerVBS);

Cer2down=SelectedValue( Cer2Close < Cer2Prev);

CerVSS = IIf(Cer2down,CerVSS+1,CerVSS);

Color=IIf(Cer2up,colorBrightGreen,IIf(Cer2down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("MONNOCERA - " + Cer2Close+" (" +Cer2ChangeTaka+"Tk.)"+" (" +Cer2Change+"%)", 540 , 557 );

Cer3up=SelectedValue( Cer3Close> Cer3Prev);

CerVBS = IIf(Cer3up,CerVBS+1,CerVBS);

Cer3down=SelectedValue( Cer3Close < Cer3Prev);

CerVSS = IIf(Cer3down,CerVSS+1,CerVSS);

Color=IIf(Cer3up,colorBrightGreen,IIf(Cer3down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("RAKCERAMIC - " + Cer3Close+" (" +Cer3ChangeTaka+"Tk.)"+" (" +Cer3Change+"%)", 540 , 568 );

Cer4up=SelectedValue( Cer4Close> Cer4Prev);

CerVBS = IIf(Cer4up,CerVBS+1,CerVBS);

Cer4down=SelectedValue( Cer4Close < Cer4Prev);

CerVSS = IIf(Cer4down,CerVSS+1,CerVSS);

Color=IIf(Cer4up,colorBrightGreen,IIf(Cer4down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("SPCERAMICS - " + Cer4Close+" (" +Cer4ChangeTaka+"Tk.)"+" (" +Cer4Change+"%)", 540 , 579 );

Cer5up=SelectedValue( Cer5Close> Cer5Prev);

CerVBS = IIf(Cer5up,CerVBS+1,CerVBS);

Cer5down=SelectedValue( Cer5Close < Cer5Prev);

CerVSS = IIf(Cer5down,CerVSS+1,CerVSS);

Color=IIf(Cer5up,colorBrightGreen,IIf(Cer5down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("STANCERAM - " + Cer5Close+" (" +Cer5ChangeTaka+"Tk.)"+" (" +Cer5Change+"%)", 540 , 589 );

CerEQL= 5-(CerVBS+CerVSS);

GfxSetTextColor (Acolor);

GfxTextOut("[ A: "+CerVBS+", D: "+CerVSS+", U: "+CerEQL+" ]",620,536);

/////////////////////////////////////////////////////

FoodVBS=0;

FoodVSS=0;

FoodEQL=0;

/////////////////////////////////////////////////////

GfxSetTextColor (TColor);

GfxTextOut("=FOOD&ALLIED=", 709 , 22 );

Food1up=SelectedValue( Food1Close> Food1Prev);

FoodVBS = IIf(Food1up,FoodVBS+1,FoodVBS);

Food1down=SelectedValue( Food1Close < Food1Prev);

FoodVSS = IIf(Food1down,FoodVSS+1,FoodVSS);

Color=IIf(Food1up,colorBrightGreen,IIf(Food1down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("AMCL(PRAN) - " + Food1Close+" (" +Food1ChangeTaka+"Tk.)"+" (" +Food1Change+"%)", 710 , 34 );

Food2up=SelectedValue( Food2Close> Food2Prev);

FoodVBS = IIf(Food2up,FoodVBS+1,FoodVBS);

Food2down=SelectedValue( Food2Close < Food2Prev);

FoodVSS = IIf(Food2down,FoodVSS+1,FoodVSS);

Color=IIf(Food2up,colorBrightGreen,IIf(Food2down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("APEXFOODS - " + Food2Close+" (" +Food2ChangeTaka+"Tk.)"+" (" +Food2Change+"%)", 710 , 45 );

Food3up=SelectedValue( Food3Close> Food3Prev);

FoodVBS = IIf(Food3up,FoodVBS+1,FoodVBS);

Food3down=SelectedValue( Food3Close < Food3Prev);

FoodVSS = IIf(Food3down,FoodVSS+1,FoodVSS);

Color=IIf(Food3up,colorBrightGreen,IIf(Food3down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("BANGAS - " + Food3Close+" (" +Food3ChangeTaka+"Tk.)"+" (" +Food3Change+"%)", 710 , 56);

Food4up=SelectedValue( Food4Close> Food4Prev);

FoodVBS = IIf(Food4up,FoodVBS+1,FoodVBS);

Food4down=SelectedValue( Food4Close < Food4Prev);

FoodVSS = IIf(Food4down,FoodVSS+1,FoodVSS);

Color=IIf(Food4up,colorBrightGreen,IIf(Food4down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("BATBC - " + Food4Close+" (" +Food4ChangeTaka+"Tk.)"+" (" +Food4Change+"%)", 710 , 67);

Food5up=SelectedValue( Food5Close> Food5Prev);

FoodVBS = IIf(Food5up,FoodVBS+1,FoodVBS);

Food5down=SelectedValue( Food5Close < Food5Prev);

FoodVSS = IIf(Food5down,FoodVSS+1,FoodVSS);

Color=IIf(Food5up,colorBrightGreen,IIf(Food5down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("BEACHHATCH - " + Food5Close+" (" +Food5ChangeTaka+"Tk.)"+" (" +Food5Change+"%)", 710 , 78);

Food6up=SelectedValue( Food6Close> Food6Prev);

FoodVBS = IIf(Food6up,FoodVBS+1,FoodVBS);

Food6down=SelectedValue( Food6Close < Food6Prev);

FoodVSS = IIf(Food6down,FoodVSS+1,FoodVSS);

Color=IIf(Food6up,colorBrightGreen,IIf(Food6down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("CVOPRL - " + Food6Close+" (" +Food6ChangeTaka+"Tk.)"+" (" +Food6Change+"%)", 710 , 89);

Food7up=SelectedValue( Food7Close> Food7Prev);

FoodVBS = IIf(Food7up,FoodVBS+1,FoodVBS);

Food7down=SelectedValue( Food7Close < Food7Prev);

FoodVSS = IIf(Food7down,FoodVSS+1,FoodVSS);

Color=IIf(Food7up,colorBrightGreen,IIf(Food7down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("FINEFOODS - " + Food7Close+" (" +Food7ChangeTaka+"Tk.)"+" (" +Food7Change+"%)", 710 , 100);

Food8up=SelectedValue( Food8Close> Food8Prev);

FoodVBS = IIf(Food8up,FoodVBS+1,FoodVBS);

Food8down=SelectedValue( Food8Close < Food8Prev);

FoodVSS = IIf(Food8down,FoodVSS+1,FoodVSS);

Color=IIf(Food8up,colorBrightGreen,IIf(Food8down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("FUWANGFOOD - " + Food8Close+" (" +Food8ChangeTaka+"Tk.)"+" (" +Food8Change+"%)", 710 , 111);

Food9up=SelectedValue( Food9Close> Food9Prev);

FoodVBS = IIf(Food9up,FoodVBS+1,FoodVBS);

Food9down=SelectedValue( Food9Close < Food9Prev);

FoodVSS = IIf(Food9down,FoodVSS+1,FoodVSS);

Color=IIf(Food9up,colorBrightGreen,IIf(Food9down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("GEMINISEA - " + Food9Close+" (" +Food9ChangeTaka+"Tk.)"+" (" +Food9Change+"%)", 710 , 122);

Food10up=SelectedValue( Food10Close> Food10Prev);

FoodVBS = IIf(Food10up,FoodVBS+1,FoodVBS);

Food10down=SelectedValue( Food10Close < Food10Prev);

FoodVSS = IIf(Food10down,FoodVSS+1,FoodVSS);

Color=IIf(Food10up,colorBrightGreen,IIf(Food10down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("GHAIL - " + Food10Close+" (" +Food10ChangeTaka+"Tk.)"+" (" +Food10Change+"%)", 710 , 133);

Food11up=SelectedValue( Food11Close> Food11Prev);

FoodVBS = IIf(Food11up,FoodVBS+1,FoodVBS);

Food11down=SelectedValue( Food11Close < Food11Prev);

FoodVSS = IIf(Food11down,FoodVSS+1,FoodVSS);

Color=IIf(Food11up,colorBrightGreen,IIf(Food11down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("MEGCONMILK - " + Food11Close+" (" +Food11ChangeTaka+"Tk.)"+" (" +Food11Change+"%)", 710 , 144);

Food12up=SelectedValue( Food12Close> Food12Prev);

FoodVBS = IIf(Food12up,FoodVBS+1,FoodVBS);

Food12down=SelectedValue( Food12Close < Food12Prev);

FoodVSS = IIf(Food12down,FoodVSS+1,FoodVSS);

Color=IIf(Food12up,colorBrightGreen,IIf(Food12down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("MEGHNAPET - " + Food12Close+" (" +Food12ChangeTaka+"Tk.)"+" (" +Food12Change+"%)", 710 , 155);

Food13up=SelectedValue( Food13Close> Food13Prev);

FoodVBS = IIf(Food13up,FoodVBS+1,FoodVBS);

Food13down=SelectedValue( Food13Close < Food13Prev);

FoodVSS = IIf(Food13down,FoodVSS+1,FoodVSS);

Color=IIf(Food13up,colorBrightGreen,IIf(Food13down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("NTC - " + Food13Close+" (" +Food13ChangeTaka+"Tk.)"+" (" +Food13Change+"%)", 710 , 166);

Food14up=SelectedValue( Food14Close> Food14Prev);

FoodVBS = IIf(Food14up,FoodVBS+1,FoodVBS);

Food14down=SelectedValue( Food14Close < Food14Prev);

FoodVSS = IIf(Food14down,FoodVSS+1,FoodVSS);

Color=IIf(Food14up,colorBrightGreen,IIf(Food14down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("RAHIMAFOOD - " + Food14Close+" (" +Food14ChangeTaka+"Tk.)"+" (" +Food14Change+"%)", 710 ,177);

Food15up=SelectedValue( Food15Close> Food15Prev);

FoodVBS = IIf(Food15up,FoodVBS+1,FoodVBS);

Food15down=SelectedValue( Food15Close < Food15Prev);

FoodVSS = IIf(Food15down,FoodVSS+1,FoodVSS);

Color=IIf(Food15up,colorBrightGreen,IIf(Food15down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("RDFOOD - " + Food15Close+" (" +Food15ChangeTaka+"Tk.)"+" (" +Food15Change+"%)", 710 , 188 );

Food16up=SelectedValue( Food16Close> Food16Prev);

FoodVBS = IIf(Food16up,FoodVBS+1,FoodVBS);

Food16down=SelectedValue( Food16Close < Food16Prev);

FoodVSS = IIf(Food16down,FoodVSS+1,FoodVSS);

Color=IIf(Food16up,colorBrightGreen,IIf(Food16down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("SHYAMPSUG - " + Food16Close+" (" +Food16ChangeTaka+"Tk.)"+" (" +Food16Change+"%)", 710 , 199 );

Food17up=SelectedValue( Food17Close> Food17Prev);

FoodVBS = IIf(Food17up,FoodVBS+1,FoodVBS);

Food17down=SelectedValue( Food17Close < Food17Prev);

FoodVSS = IIf(Food17down,FoodVSS+1,FoodVSS);

Color=IIf(Food17up,colorBrightGreen,IIf(Food17down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("ZEALBANGLA - " + Food17Close+" (" +Food17ChangeTaka+"Tk.)"+" (" +Food17Change+"%)", 710 , 210 );

FoodEQL= 17-(FoodVBS+FoodVSS);

GfxSetTextColor (Acolor);

GfxTextOut("[ A: "+FoodVBS+", D: "+FoodVSS+", U: "+FoodEQL+" ]",800,22);

/////////////////////////////////////////////////////

SRVBS=0;

SRVSS=0;

SREQL=0;

/////////////////////////////////////////////////////

GfxSetTextColor (TColor);

GfxTextOut("=SERVICE&RE=", 709 , 227);

SR1up=SelectedValue( SR1Close> SR1Prev);

SRVBS = IIf(SR1up,SRVBS+1,SRVBS);

SR1down=SelectedValue( SR1Close < SR1Prev);

SRVSS = IIf(SR1down,SRVSS+1,SRVSS);

Color=IIf(SR1up,colorBrightGreen,IIf(SR1down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("EHL - " + SR1Close+" (" +SR1ChangeTaka+"Tk.)"+" (" +SR1Change+"%)", 710 , 237 );

SR2up=SelectedValue( SR2Close> SR2Prev);

SRVBS = IIf(SR2up,SRVBS+1,SRVBS);

SR2down=SelectedValue( SR2Close < SR2Prev);

SRVSS = IIf(SR2down,SRVSS+1,SRVSS);

Color=IIf(SR2up,colorBrightGreen,IIf(SR2down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("SAMORITA - " + SR2Close+" (" +SR2ChangeTaka+"Tk.)"+" (" +SR2Change+"%)", 710 , 247 );

SR3up=SelectedValue( SR3Close> SR3Prev);

SRVBS = IIf(SR3up,SRVBS+1,SRVBS);

SR3down=SelectedValue( SR3Close < SR3Prev);

SRVSS = IIf(SR3down,SRVSS+1,SRVSS);

Color=IIf(SR3up,colorBrightGreen,IIf(SR3down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("SAPORTL - " + SR3Close+" (" +SR3ChangeTaka+"Tk.)"+" (" +SR3Change+"%)", 710 , 257 );

SREQL= 3-(SRVBS+SRVSS);

GfxSetTextColor (Acolor);

GfxTextOut("[ A: "+SRVBS+", D: "+SRVSS+", U: "+SREQL+" ]",800,227);

/////////////////////////////////////////////////////

ITVBS=0;

ITVSS=0;

ITEQL=0;

/////////////////////////////////////////////////////

GfxSetTextColor (TColor);

GfxTextOut("==IT SECTOR==", 709 , 277 );

IT1up=SelectedValue( IT1Close> IT1Prev);

ITVBS = IIf(IT1up,ITVBS+1,ITVBS);

IT1down=SelectedValue( IT1Close < IT1Prev);

ITVSS = IIf(IT1down,ITVSS+1,ITVSS);

Color=IIf(IT1up,colorBrightGreen,IIf(IT1down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("AAMRATECH - " + IT1Close+" (" +IT1ChangeTaka+"Tk.)"+" (" +IT1Change+"%)", 710 , 289 );

IT2up=SelectedValue( IT2Close> IT2Prev);

ITVBS = IIf(IT2up,ITVBS+1,ITVBS);

IT2down=SelectedValue( IT2Close < IT2Prev);

ITVSS = IIf(IT2down,ITVSS+1,ITVSS);

Color=IIf(IT2up,colorBrightGreen,IIf(IT2down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("AGNISYSL - " + IT2Close+" (" +IT2ChangeTaka+"Tk.)"+" (" +IT2Change+"%)", 710 , 300 );

IT3up=SelectedValue( IT3Close> IT3Prev);

ITVBS = IIf(IT3up,ITVBS+1,ITVBS);

IT3down=SelectedValue( IT3Close < IT3Prev);

ITVSS = IIf(IT3down,ITVSS+1,ITVSS);

Color=IIf(IT3up,colorBrightGreen,IIf(IT3down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("BDCOM - " + IT3Close+" (" +IT3ChangeTaka+"Tk.)"+" (" +IT3Change+"%)", 710 , 311 );

IT4up=SelectedValue( IT4Close> IT4Prev);

ITVBS = IIf(IT4up,ITVBS+1,ITVBS);

IT4down=SelectedValue( IT4Close < IT4Prev);

ITVSS = IIf(IT4down,ITVSS+1,ITVSS);

Color=IIf(IT4up,colorBrightGreen,IIf(IT4down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("DAFODILCOM - " + IT4Close+" (" +IT4ChangeTaka+"Tk.)"+" (" +IT4Change+"%)", 710 , 321 );

IT5up=SelectedValue( IT5Close> IT5Prev);

ITVBS = IIf(IT5up,ITVBS+1,ITVBS);

IT5down=SelectedValue( IT5Close < IT5Prev);

ITVSS = IIf(IT5down,ITVSS+1,ITVSS);

Color=IIf(IT5up,colorBrightGreen,IIf(IT5down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("INTECH - " + IT5Close+" (" +IT5ChangeTaka+"Tk.)"+" (" +IT5Change+"%)", 710 , 332 );

IT6up=SelectedValue( IT6Close> IT6Prev);

ITVBS = IIf(IT6up,ITVBS+1,ITVBS);

IT6down=SelectedValue( IT6Close < IT6Prev);

ITVSS = IIf(IT6down,ITVSS+1,ITVSS);

Color=IIf(IT6up,colorBrightGreen,IIf(IT6down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("ISNLTD - " + IT6Close+" (" +IT6ChangeTaka+"Tk.)"+" (" +IT6Change+"%)", 710 , 343 );

ITEQL= 6-(ITVBS+ITVSS);

GfxSetTextColor (Acolor);

GfxTextOut("[ A: "+ITVBS+", D: "+ITVSS+", U: "+ITEQL+" ]",800,277);

/////////////////////////////////////////////////////

TanneryVBS=0;

TanneryVSS=0;

TanneryEQL=0;

/////////////////////////////////////////////////////

GfxSetTextColor (TColor);

GfxTextOut("==TANNERY==", 709 , 363 );

Tannery1up=SelectedValue( Tannery1Close> Tannery1Prev);

TanneryVBS = IIf(Tannery1up,TanneryVBS+1,TanneryVBS);

Tannery1down=SelectedValue( Tannery1Close < Tannery1Prev);

TanneryVSS = IIf(Tannery1down,TanneryVSS+1,TanneryVSS);

Color=IIf(Tannery1up,colorBrightGreen,IIf(Tannery1down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("APEXADELFT - " + Tannery1Close+" (" +Tannery1ChangeTaka+"Tk.)"+" (" +Tannery1Change+"%)", 710 , 374 );

Tannery2up=SelectedValue( Tannery2Close> Tannery2Prev);

TanneryVBS = IIf(Tannery2up,TanneryVBS+1,TanneryVBS);

Tannery2down=SelectedValue( Tannery2Close < Tannery2Prev);

TanneryVSS = IIf(Tannery2down,TanneryVSS+1,TanneryVSS);

Color=IIf(Tannery2up,colorBrightGreen,IIf(Tannery2down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("APEXTANRY - " + Tannery2Close+" (" +Tannery2ChangeTaka+"Tk.)"+" (" +Tannery2Change+"%)", 710 , 384 );

Tannery3up=SelectedValue( Tannery3Close> Tannery3Prev);

TanneryVBS = IIf(Tannery3up,TanneryVBS+1,TanneryVBS);

Tannery3down=SelectedValue( Tannery3Close < Tannery3Prev);

TanneryVSS = IIf(Tannery3down,TanneryVSS+1,TanneryVSS);

Color=IIf(Tannery3up,colorBrightGreen,IIf(Tannery3down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("BATASHOE - " + Tannery3Close+" (" +Tannery3ChangeTaka+"Tk.)"+" (" +Tannery3Change+"%)", 710 , 394 );

Tannery4up=SelectedValue( Tannery4Close> Tannery4Prev);

TanneryVBS = IIf(Tannery4up,TanneryVBS+1,TanneryVBS);

Tannery4down=SelectedValue( Tannery4Close < Tannery4Prev);

TanneryVSS = IIf(Tannery4down,TanneryVSS+1,TanneryVSS);

Color=IIf(Tannery4up,colorBrightGreen,IIf(Tannery4down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("LEGACYFOOT - " + Tannery4Close+" (" +Tannery4ChangeTaka+"Tk.)"+" (" +Tannery4Change+"%)", 710 , 404 );

Tannery5up=SelectedValue( Tannery5Close> Tannery5Prev);

TanneryVBS = IIf(Tannery5up,TanneryVBS+1,TanneryVBS);

Tannery5down=SelectedValue( Tannery5Close < Tannery5Prev);

TanneryVSS = IIf(Tannery5down,TanneryVSS+1,TanneryVSS);

Color=IIf(Tannery5up,colorBrightGreen,IIf(Tannery5down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("SAMATALETH - " + Tannery5Close+" (" +Tannery5ChangeTaka+"Tk.)"+" (" +Tannery5Change+"%)", 710 , 414 );

TanneryEQL= 5-(TanneryVBS+TanneryVSS);

GfxSetTextColor (Acolor);

GfxTextOut("[ A: "+TanneryVBS+", D: "+TanneryVSS+", U: "+TanneryEQL+" ]",800,363);

/////////////////////////////////////////////////////

MiscVBS=0;

MiscVSS=0;

MiscEQL=0;

/////////////////////////////////////////////////////

GfxSetTextColor (TColor);

GfxTextOut("==MISC.==", 708 , 437 );

Misc1up=SelectedValue( Misc1Close> Misc1Prev);

MiscVBS = IIf(Misc1up,MiscVBS+1,MiscVBS);

Misc1down=SelectedValue( Misc1Close < Misc1Prev);

MiscVSS = IIf(Misc1down,MiscVSS+1,MiscVSS);

Color=IIf(Misc1up,colorBrightGreen,IIf(Misc1down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("ARAMIT - " + Misc1Close+" (" +Misc1ChangeTaka+"Tk.)"+" (" +Misc1Change+"%)", 710, 449 );

Misc2up=SelectedValue( Misc2Close> Misc2Prev);

MiscVBS = IIf(Misc2up,MiscVBS+1,MiscVBS);

Misc2down=SelectedValue( Misc2Close < Misc2Prev);

MiscVSS = IIf(Misc2down,MiscVSS+1,MiscVSS);

Color=IIf(Misc2up,colorBrightGreen,IIf(Misc2down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("BERGERPBL - " + Misc2Close+" (" +Misc2ChangeTaka+"Tk.)"+" (" +Misc2Change+"%)", 710 , 459 );

Misc3up=SelectedValue( Misc3Close> Misc3Prev);

MiscVBS = IIf(Misc3up,MiscVBS+1,MiscVBS);

Misc3down=SelectedValue( Misc3Close < Misc3Prev);

MiscVSS = IIf(Misc3down,MiscVSS+1,MiscVSS);

Color=IIf(Misc3up,colorBrightGreen,IIf(Misc3down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("BEXIMCO - " + Misc3Close+" (" +Misc3ChangeTaka+"Tk.)"+" (" +Misc3Change+"%)", 710 , 469 );

Misc4up=SelectedValue( Misc4Close> Misc4Prev);

MiscVBS = IIf(Misc4up,MiscVBS+1,MiscVBS);

Misc4down=SelectedValue( Misc4Close < Misc4Prev);

MiscVSS = IIf(Misc4down,MiscVSS+1,MiscVSS);

Color=IIf(Misc4up,colorBrightGreen,IIf(Misc4down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("BSC - " + Misc4Close+" (" +Misc4ChangeTaka+"Tk.)"+" (" +Misc4Change+"%)", 710 , 479 );

Misc5up=SelectedValue( Misc5Close> Misc5Prev);

MiscVBS = IIf(Misc5up,MiscVBS+1,MiscVBS);

Misc5down=SelectedValue( Misc5Close < Misc5Prev);

MiscVSS = IIf(Misc5down,MiscVSS+1,MiscVSS);

Color=IIf(Misc5up,colorBrightGreen,IIf(Misc5down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("GQBALLPEN - " + Misc5Close+" (" +Misc5ChangeTaka+"Tk.)"+" (" +Misc5Change+"%)", 710 , 489 );

Misc6up=SelectedValue( Misc6Close> Misc6Prev);

MiscVBS = IIf(Misc6up,MiscVBS+1,MiscVBS);

Misc6down=SelectedValue( Misc6Close < Misc6Prev);

MiscVSS = IIf(Misc6down,MiscVSS+1,MiscVSS);

Color=IIf(Misc6up,colorBrightGreen,IIf(Misc6down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("MIRACLEIND - " + Misc6Close+" (" +Misc6ChangeTaka+"Tk.)"+" (" +Misc6Change+"%)", 710 , 499 );

Misc7up=SelectedValue( Misc7Close> Misc7Prev);

MiscVBS = IIf(Misc7up,MiscVBS+1,MiscVBS);

Misc7down=SelectedValue( Misc7Close < Misc7Prev);

MiscVSS = IIf(Misc7down,MiscVSS+1,MiscVSS);

Color=IIf(Misc7up,colorBrightGreen,IIf(Misc7down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("SAVAREFR - " + Misc7Close+" (" +Misc7ChangeTaka+"Tk.)"+" (" +Misc7Change+"%)", 710 , 509 );

Misc8up=SelectedValue( Misc8Close> Misc8Prev);

MiscVBS = IIf(Misc8up,MiscVBS+1,MiscVBS);

Misc8down=SelectedValue( Misc8Close < Misc8Prev);

MiscVSS = IIf(Misc8down,MiscVSS+1,MiscVSS);

Color=IIf(Misc8up,colorBrightGreen,IIf(Misc8down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("SINOBANGLA - " + Misc8Close+" (" +Misc8ChangeTaka+"Tk.)"+" (" +Misc8Change+"%)", 710 , 519 );

Misc9up=SelectedValue( Misc9Close> Misc9Prev);

MiscVBS = IIf(Misc9up,MiscVBS+1,MiscVBS);

Misc9down=SelectedValue( Misc9Close < Misc9Prev);

MiscVSS = IIf(Misc9down,MiscVSS+1,MiscVSS);

Color=IIf(Misc9up,colorBrightGreen,IIf(Misc9down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("USMANIAGL - " + Misc9Close+" (" +Misc9ChangeTaka+"Tk.)"+" (" +Misc9Change+"%)", 710 , 529 );

MiscEQL= 9-(MiscVBS+MiscVSS);

GfxSetTextColor (Acolor);

GfxTextOut("[ A: "+MiscVBS+", D: "+MiscVSS+", U: "+MiscEQL+" ]",800,437);

/////////////////////////////////////////////////////

BondVBS=0;

BondVSS=0;

BondEQL=0;

/////////////////////////////////////////////////////

GfxSetTextColor (TColor);

GfxTextOut("==BOND==", 709 , 554 );

Bond1up=SelectedValue( Bond1Close> Bond1Prev);

BondVBS = IIf(Bond1up,BondVBS+1,BondVBS);

Bond1down=SelectedValue( Bond1Close < Bond1Prev);

BondVSS = IIf(Bond1down,BondVSS+1,BondVSS);

Color=IIf(Bond1up,colorBrightGreen,IIf(Bond1down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("ACIZCBOND - " + Bond1Close+" (" +Bond1ChangeTaka+"Tk.)"+" (" +Bond1Change+"%)", 710 , 566 );

Bond2up=SelectedValue( Bond2Close> Bond2Prev);

BondVBS = IIf(Bond2up,BondVBS+1,BondVBS);

Bond2down=SelectedValue( Bond2Close < Bond2Prev);

BondVSS = IIf(Bond2down,BondVSS+1,BondVSS);

Color=IIf(Bond2up,colorBrightGreen,IIf(Bond2down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("IBBLPBOND - " + Bond2Close+" (" +Bond2ChangeTaka+"Tk.)"+" (" +Bond2Change+"%)", 710 , 576 );

Bond3up=SelectedValue( Bond3Close> Bond3Prev);

BondVBS = IIf(Bond3up,BondVBS+1,BondVBS);

Bond3down=SelectedValue( Bond3Close < Bond3Prev);

BondVSS = IIf(Bond3down,BondVSS+1,BondVSS);

Color=IIf(Bond3up,colorBrightGreen,IIf(Bond3down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("BRACSCBOND - " + Bond3Close+" (" +Bond3ChangeTaka+"Tk.)"+" (" +Bond3Change+"%)", 710 , 586 );

BondEQL= 3-(BondVBS+BondVSS);

GfxSetTextColor (Acolor);

GfxTextOut("[ A: "+BondVBS+", D: "+BondVSS+", U: "+BondEQL+" ]",800,554);

/////////////////////////////////////////////////////

MFVBS=0;

MFVSS=0;

MFEQL=0;

/////////////////////////////////////////////////////

GfxSetTextColor (TColor);

GfxTextOut("=MUTUAL FUND=", 979 , 22 );

MF1up=SelectedValue( MF1Close> MF1Prev);

MFVBS = IIf(MF1up,MFVBS+1,MFVBS);

MF1down=SelectedValue( MF1Close < MF1Prev);

MFVSS = IIf(MF1down,MFVSS+1,MFVSS);

Color=IIf(MF1up,colorBrightGreen,IIf(MF1down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("1JANATAMF - " + MF1Close+" (" +MF1ChangeTaka+"Tk.)"+" (" +MF1Change+"%)", 980 , 35 );

MF2up=SelectedValue( MF2Close> MF2Prev);

MFVBS = IIf(MF2up,MFVBS+1,MFVBS);

MF2down=SelectedValue( MF2Close < MF2Prev);

MFVSS = IIf(MF2down,MFVSS+1,MFVSS);

Color=IIf(MF2up,colorBrightGreen,IIf(MF2down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("1STICB - " + MF2Close+" (" +MF2ChangeTaka+"Tk.)"+" (" +MF2Change+"%)", 980 , 46 );

MF3up=SelectedValue( MF3Close> MF3Prev);

MFVBS = IIf(MF3up,MFVBS+1,MFVBS);

MF3down=SelectedValue( MF3Close < MF3Prev);

MFVSS = IIf(MF3down,MFVSS+1,MFVSS);

Color=IIf(MF3up,colorBrightGreen,IIf(MF3down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("1STPRIMFMF - " + MF3Close+" (" +MF3ChangeTaka+"Tk.)"+" (" +MF3Change+"%)", 980 , 57 );

MF4up=SelectedValue( MF4Close> MF4Prev);

MFVBS = IIf(MF4up,MFVBS+1,MFVBS);

MF4down=SelectedValue( MF4Close < MF4Prev);

MFVSS = IIf(MF4down,MFVSS+1,MFVSS);

Color=IIf(MF4up,colorBrightGreen,IIf(MF4down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("2NDICB - " + MF4Close+" (" +MF4ChangeTaka+"Tk.)"+" (" +MF4Change+"%)", 980 , 68 );

MF5up=SelectedValue( MF5Close> MF5Prev);

MFVBS = IIf(MF5up,MFVBS+1,MFVBS);

MF5down=SelectedValue( MF5Close < MF5Prev);

MFVSS = IIf(MF5down,MFVSS+1,MFVSS);

Color=IIf(MF5up,colorBrightGreen,IIf(MF5down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("3RDNDICB - " + MF5Close+" (" +MF5ChangeTaka+"Tk.)"+" (" +MF5Change+"%)", 980 , 79 );

MF6up=SelectedValue( MF6Close> MF6Prev);

MFVBS = IIf(MF6up,MFVBS+1,MFVBS);

MF6down=SelectedValue( MF6Close < MF6Prev);

MFVSS = IIf(MF6down,MFVSS+1,MFVSS);

Color=IIf(MF6up,colorBrightGreen,IIf(MF6down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("4THICB - " + MF6Close+" (" +MF6ChangeTaka+"Tk.)"+" (" +MF6Change+"%)", 980 , 90 );

MF7up=SelectedValue( MF7Close> MF7Prev);

MFVBS = IIf(MF7up,MFVBS+1,MFVBS);

MF7down=SelectedValue( MF7Close < MF7Prev);

MFVSS = IIf(MF7down,MFVSS+1,MFVSS);

Color=IIf(MF7up,colorBrightGreen,IIf(MF7down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("5THICB - " + MF7Close+" (" +MF7ChangeTaka+"Tk.)"+" (" +MF7Change+"%)", 980 , 101 );

MF8up=SelectedValue( MF8Close> MF8Prev);

MFVBS = IIf(MF8up,MFVBS+1,MFVBS);

MF8down=SelectedValue( MF8Close < MF8Prev);

MFVSS = IIf(MF8down,MFVSS+1,MFVSS);

Color=IIf(MF8up,colorBrightGreen,IIf(MF8down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("6THICB - " + MF8Close+" (" +MF8ChangeTaka+"Tk.)"+" (" +MF8Change+"%)", 980 , 112 );

MF9up=SelectedValue( MF9Close> MF9Prev);

MFVBS = IIf(MF9up,MFVBS+1,MFVBS);

MF9down=SelectedValue( MF9Close < MF9Prev);

MFVSS = IIf(MF9down,MFVSS+1,MFVSS);

Color=IIf(MF9up,colorBrightGreen,IIf(MF9down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("7THICB - " + MF9Close+" (" +MF9ChangeTaka+"Tk.)"+" (" +MF9Change+"%)", 980 , 123 );

MF10up=SelectedValue( MF10Close> MF10Prev);

MFVBS = IIf(MF10up,MFVBS+1,MFVBS);

MF10down=SelectedValue( MF10Close < MF10Prev);

MFVSS = IIf(MF10down,MFVSS+1,MFVSS);

Color=IIf(MF10up,colorBrightGreen,IIf(MF10down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("8THICB - " + MF10Close+" (" +MF10ChangeTaka+"Tk.)"+" (" +MF10Change+"%)", 980 , 134 );

MF11up=SelectedValue( MF11Close> MF11Prev);

MFVBS = IIf(MF11up,MFVBS+1,MFVBS);

MF11down=SelectedValue( MF11Close < MF11Prev);

MFVSS = IIf(MF11down,MFVSS+1,MFVSS);

Color=IIf(MF11up,colorBrightGreen,IIf(MF11down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("ABB1STMF - " + MF11Close+" (" +MF11ChangeTaka+"Tk.)"+" (" +MF11Change+"%)", 980 , 145 );

MF12up=SelectedValue( MF12Close> MF12Prev);

MFVBS = IIf(MF12up,MFVBS+1,MFVBS);

MF12down=SelectedValue( MF12Close < MF12Prev);

MFVSS = IIf(MF12down,MFVSS+1,MFVSS);

Color=IIf(MF12up,colorBrightGreen,IIf(MF12down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("AIBL1STIMF - " + MF12Close+" (" +MF12ChangeTaka+"Tk.)"+" (" +MF12Change+"%)", 980 , 156 );

MF13up=SelectedValue( MF13Close> MF13Prev);

MFVBS = IIf(MF13up,MFVBS+1,MFVBS);

MF13down=SelectedValue( MF13Close < MF13Prev);

MFVSS = IIf(MF13down,MFVSS+1,MFVSS);

Color=IIf(MF13up,colorBrightGreen,IIf(MF13down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("AIMS1STMF - " + MF13Close+" (" +MF13ChangeTaka+"Tk.)"+" (" +MF13Change+"%)", 980 ,167 );

MF14up=SelectedValue( MF14Close> MF14Prev);

MFVBS = IIf(MF14up,MFVBS+1,MFVBS);

MF14down=SelectedValue( MF14Close < MF14Prev);

MFVSS = IIf(MF14down,MFVSS+1,MFVSS);

Color=IIf(MF14up,colorBrightGreen,IIf(MF14down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("DBH1STMF - " + MF14Close+" (" +MF14ChangeTaka+"Tk.)"+" (" +MF14Change+"%)", 980 , 178 );

MF15up=SelectedValue( MF15Close> MF15Prev);

MFVBS = IIf(MF15up,MFVBS+1,MFVBS);

MF15down=SelectedValue( MF15Close < MF15Prev);

MFVSS = IIf(MF15down,MFVSS+1,MFVSS);

Color=IIf(MF15up,colorBrightGreen,IIf(MF15down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("EBL1STMF - " + MF15Close+" (" +MF15ChangeTaka+"Tk.)"+" (" +MF15Change+"%)", 980 , 189 );

MF16up=SelectedValue( MF16Close> MF16Prev);

MFVBS = IIf(MF16up,MFVBS+1,MFVBS);

MF16down=SelectedValue( MF16Close < MF16Prev);

MFVSS = IIf(MF16down,MFVSS+1,MFVSS);

Color=IIf(MF16up,colorBrightGreen,IIf(MF16down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("EBLNRBMF - " + MF16Close+" (" +MF16ChangeTaka+"Tk.)"+" (" +MF16Change+"%)", 980 , 200 );

MF17up=SelectedValue( MF17Close> MF17Prev);

MFVBS = IIf(MF17up,MFVBS+1,MFVBS);

MF17down=SelectedValue( MF17Close < MF17Prev);

MFVSS = IIf(MF17down,MFVSS+1,MFVSS);

Color=IIf(MF17up,colorBrightGreen,IIf(MF17down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("EXIM1STMF - " + MF17Close+" (" +MF17ChangeTaka+"Tk.)"+" (" +MF17Change+"%)", 980 , 211 );

MF18up=SelectedValue( MF18Close> MF18Prev);

MFVBS = IIf(MF18up,MFVBS+1,MFVBS);

MF18down=SelectedValue( MF18Close < MF18Prev);

MFVSS = IIf(MF18down,MFVSS+1,MFVSS);

Color=IIf(MF18up,colorBrightGreen,IIf(MF18down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("FBFIF - " + MF18Close+" (" +MF18ChangeTaka+"Tk.)"+" (" +MF18Change+"%)", 980 , 222 );

MF19up=SelectedValue( MF19Close> MF19Prev);

MFVBS = IIf(MF19up,MFVBS+1,MFVBS);

MF19down=SelectedValue( MF19Close < MF19Prev);

MFVSS = IIf(MF19down,MFVSS+1,MFVSS);

Color=IIf(MF19up,colorBrightGreen,IIf(MF19down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("GRAMEEN1 - " + MF19Close+" (" +MF19ChangeTaka+"Tk.)"+" (" +MF19Change+"%)", 980 , 233 );

MF20up=SelectedValue( MF20Close> MF20Prev);

MFVBS = IIf(MF20up,MFVBS+1,MFVBS);

MF20down=SelectedValue( MF20Close < MF20Prev);

MFVSS = IIf(MF20down,MFVSS+1,MFVSS);

Color=IIf(MF20up,colorBrightGreen,IIf(MF20down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("GRAMEENS2 - " + MF20Close+" (" +MF20ChangeTaka+"Tk.)"+" (" +MF20Change+"%)", 980 , 244 );

MF21up=SelectedValue( MF21Close> MF21Prev);

MFVBS = IIf(MF21up,MFVBS+1,MFVBS);

MF21down=SelectedValue( MF21Close < MF21Prev);

MFVSS = IIf(MF21down,MFVSS+1,MFVSS);

Color=IIf(MF21up,colorBrightGreen,IIf(MF21down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("GreenDELMF - " + MF21Close+" (" +MF21ChangeTaka+"Tk.)"+" (" +MF21Change+"%)", 980 , 255 );

MF22up=SelectedValue( MF22Close> MF22Prev);

MFVBS = IIf(MF22up,MFVBS+1,MFVBS);

MF22down=SelectedValue( MF22Close < MF22Prev);

MFVSS = IIf(MF22down,MFVSS+1,MFVSS);

Color=IIf(MF22up,colorBrightGreen,IIf(MF22down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("ICB1STNRB - " + MF22Close+" (" +MF22ChangeTaka+"Tk.)"+" (" +MF22Change+"%)", 980 , 266 );

MF23up=SelectedValue( MF23Close> MF23Prev);

MFVBS = IIf(MF23up,MFVBS+1,MFVBS);

MF23down=SelectedValue( MF23Close < MF23Prev);

MFVSS = IIf(MF23down,MFVSS+1,MFVSS);

Color=IIf(MF23up,colorBrightGreen,IIf(MF23down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("ICB2NDNRB - " + MF23Close+" (" +MF23ChangeTaka+"Tk.)"+" (" +MF23Change+"%)", 980 , 277 );

MF24up=SelectedValue( MF24Close> MF24Prev);

MFVBS = IIf(MF24up,MFVBS+1,MFVBS);

MF24down=SelectedValue( MF24Close < MF24Prev);

MFVSS = IIf(MF24down,MFVSS+1,MFVSS);

Color=IIf(MF24up,colorBrightGreen,IIf(MF24down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("ICB3RDNRB - " + MF24Close+" (" +MF24ChangeTaka+"Tk.)"+" (" +MF24Change+"%)", 980 , 288 );

MF25up=SelectedValue( MF25Close> MF25Prev);

MFVBS = IIf(MF25up,MFVBS+1,MFVBS);

MF25down=SelectedValue( MF25Close < MF25Prev);

MFVSS = IIf(MF25down,MFVSS+1,MFVSS);

Color=IIf(MF25up,colorBrightGreen,IIf(MF25down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("ICBAMCL2ND - " + MF26Close+" (" +MF26ChangeTaka+"Tk.)"+" (" +MF26Change+"%)", 980 , 299 );

MF26up=SelectedValue( MF26Close> MF26Prev);

MFVBS = IIf(MF26up,MFVBS+1,MFVBS);

MF26down=SelectedValue( MF26Close < MF26Prev);

MFVSS = IIf(MF26down,MFVSS+1,MFVSS);

Color=IIf(MF26up,colorBrightGreen,IIf(MF26down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("ICBEPMF1S1 - " + MF27Close+" (" +MF27ChangeTaka+"Tk.)"+" (" +MF27Change+"%)", 980 , 310 );

MF27up=SelectedValue( MF27Close> MF27Prev);

MFVBS = IIf(MF27up,MFVBS+1,MFVBS);

MF27down=SelectedValue( MF27Close < MF27Prev);

MFVSS = IIf(MF27down,MFVSS+1,MFVSS);

Color=IIf(MF27up,colorBrightGreen,IIf(MF27down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("ICBISLAMIC - " + MF26Close+" (" +MF26ChangeTaka+"Tk.)"+" (" +MF26Change+"%)", 980 , 321 );

MF28up=SelectedValue( MF28Close> MF28Prev);

MFVBS = IIf(MF28up,MFVBS+1,MFVBS);

MF28down=SelectedValue( MF28Close < MF28Prev);

MFVSS = IIf(MF28down,MFVSS+1,MFVSS);

Color=IIf(MF28up,colorBrightGreen,IIf(MF28down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("ICBSONALI1 - " + MF28Close+" (" +MF28ChangeTaka+"Tk.)"+" (" +MF28Change+"%)", 980 , 332 );

MF29up=SelectedValue( MF29Close> MF29Prev);

MFVBS = IIf(MF29up,MFVBS+1,MFVBS);

MF29down=SelectedValue( MF29Close < MF29Prev);

MFVSS = IIf(MF29down,MFVSS+1,MFVSS);

Color=IIf(MF29up,colorBrightGreen,IIf(MF29down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("IFIC1STMF - " + MF29Close+" (" +MF29ChangeTaka+"Tk.)"+" (" +MF29Change+"%)", 980 , 343 );

MF30up=SelectedValue( MF30Close> MF30Prev);

MFVBS = IIf(MF30up,MFVBS+1,MFVBS);

MF30down=SelectedValue( MF30Close < MF30Prev);

MFVSS = IIf(MF30down,MFVSS+1,MFVSS);

Color=IIf(MF30up,colorBrightGreen,IIf(MF30down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("IFILISLMF1 - " + MF30Close+" (" +MF30ChangeTaka+"Tk.)"+" (" +MF30Change+"%)", 980 , 354 );

MF31up=SelectedValue( MF31Close> MF31Prev);

MFVBS = IIf(MF31up,MFVBS+1,MFVBS);

MF31down=SelectedValue( MF31Close < MF31Prev);

MFVSS = IIf(MF31down,MFVSS+1,MFVSS);

Color=IIf(MF31up,colorBrightGreen,IIf(MF31down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("LRGLOBMF1 - " + MF30Close+" (" +MF30ChangeTaka+"Tk.)"+" (" +MF30Change+"%)", 980 , 365 );

MF32up=SelectedValue( MF32Close> MF32Prev);

MFVBS = IIf(MF32up,MFVBS+1,MFVBS);

MF32down=SelectedValue( MF32Close < MF32Prev);

MFVSS = IIf(MF32down,MFVSS+1,MFVSS);

Color=IIf(MF32up,colorBrightGreen,IIf(MF32down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("MBL1STMF - " + MF31Close+" (" +MF31ChangeTaka+"Tk.)"+" (" +MF31Change+"%)", 980 , 376 );

MF33up=SelectedValue( MF33Close> MF33Prev);

MFVBS = IIf(MF33up,MFVBS+1,MFVBS);

MF33down=SelectedValue( MF33Close < MF33Prev);

MFVSS = IIf(MF33down,MFVSS+1,MFVSS);

Color=IIf(MF33up,colorBrightGreen,IIf(MF33down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("NLI1STMF - " + MF33Close+" (" +MF33ChangeTaka+"Tk.)"+" (" +MF33Change+"%)", 980 , 387 );

MF34up=SelectedValue( MF34Close> MF34Prev);

MFVBS = IIf(MF34up,MFVBS+1,MFVBS);

MF34down=SelectedValue( MF34Close < MF34Prev);

MFVSS = IIf(MF34down,MFVSS+1,MFVSS);

Color=IIf(MF34up,colorBrightGreen,IIf(MF34down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("PF1STMF - " + MF34Close+" (" +MF34ChangeTaka+"Tk.)"+" (" +MF34Change+"%)", 980 , 398 );

MF35up=SelectedValue( MF35Close> MF35Prev);

MFVBS = IIf(MF35up,MFVBS+1,MFVBS);

MF35down=SelectedValue( MF35Close < MF35Prev);

MFVSS = IIf(MF35down,MFVSS+1,MFVSS);

Color=IIf(MF35up,colorBrightGreen,IIf(MF35down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("PHPMF1 - " + MF35Close+" (" +MF35ChangeTaka+"Tk.)"+" (" +MF35Change+"%)", 980 , 409 );

MF36up=SelectedValue( MF36Close> MF36Prev);

MFVBS = IIf(MF36up,MFVBS+1,MFVBS);

MF36down=SelectedValue( MF36Close < MF36Prev);

MFVSS = IIf(MF36down,MFVSS+1,MFVSS);

Color=IIf(MF36up,colorBrightGreen,IIf(MF36down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("POPULAR1MF - " + MF36Close+" (" +MF36ChangeTaka+"Tk.)"+" (" +MF36Change+"%)", 980 , 420 );

MF37up=SelectedValue( MF37Close> MF37Prev);

MFVBS = IIf(MF37up,MFVBS+1,MFVBS);

MF37down=SelectedValue( MF37Close < MF37Prev);

MFVSS = IIf(MF37down,MFVSS+1,MFVSS);

Color=IIf(MF37up,colorBrightGreen,IIf(MF37down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("PRIME1ICBA- " + MF37Close+" (" +MF37ChangeTaka+"Tk.)"+" (" +MF37Change+"%)", 980 , 431 );

MF38up=SelectedValue( MF38Close> MF38Prev);

MFVBS = IIf(MF38up,MFVBS+1,MFVBS);

MF38down=SelectedValue( MF38Close < MF38Prev);

MFVSS = IIf(MF38down,MFVSS+1,MFVSS);

Color=IIf(MF38up,colorBrightGreen,IIf(MF38down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("RELIANCE1 - " + MF38Close+" (" +MF38ChangeTaka+"Tk.)"+" (" +MF38Change+"%)", 980 , 442 );

MF39up=SelectedValue( MF39Close> MF39Prev);

MFVBS = IIf(MF39up,MFVBS+1,MFVBS);

MF39down=SelectedValue( MF39Close < MF39Prev);

MFVSS = IIf(MF39down,MFVSS+1,MFVSS);

Color=IIf(MF39up,colorBrightGreen,IIf(MF39down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("SEBL1STMF - " + MF39Close+" (" +MF39ChangeTaka+"Tk.)"+" (" +MF39Change+"%)", 980 , 453 );

MF40up=SelectedValue( MF40Close> MF40Prev);

MFVBS = IIf(MF40up,MFVBS+1,MFVBS);

MF40down=SelectedValue( MF40Close < MF40Prev);

MFVSS = IIf(MF40down,MFVSS+1,MFVSS);

Color=IIf(MF40up,colorBrightGreen,IIf(MF40down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("TRUSTB1MF - " + MF40Close+" (" +MF40ChangeTaka+"Tk.)"+" (" +MF40Change+"%)", 980 , 464 );

MFEQL= 40-(MFVBS+MFVSS);

GfxSetTextColor (Acolor);

GfxTextOut("[ A: "+MFVBS+", D: "+MFVSS+", U: "+MFEQL+" ]",1057,22);

///////////////////////////////////////////////

JuteVBS=0;

JuteVSS=0;

JuteEQL=0;

/////////////////////////////////////////////////////

GfxSetTextColor (TColor);

GfxTextOut("==JUTE==", 979 , 482 );

Jute1up=SelectedValue( Jute1Close> Jute1Prev);

JuteVBS = IIf(Jute1up,JuteVBS+1,JuteVBS);

Jute1down=SelectedValue( Jute1Close < Jute1Prev);

JuteVSS = IIf(Jute1down,JuteVSS+1,JuteVSS);

Color=IIf(Jute1up,colorBrightGreen,IIf(Jute1down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("JUTESPINN - " + Jute1Close+" (" +Jute1ChangeTaka+"Tk.)"+" (" +Jute1Change+"%)", 980 , 495 );

Jute2up=SelectedValue( Jute2Close> Jute2Prev);

JuteVBS = IIf(Jute2up,JuteVBS+1,JuteVBS);

Jute2down=SelectedValue( Jute2Close < Jute2Prev);

JuteVSS = IIf(Jute2down,JuteVSS+1,JuteVSS);

Color=IIf(Jute2up,colorBrightGreen,IIf(Jute2down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("NORTHERN - " + Jute2Close+" (" +Jute2ChangeTaka+"Tk.)"+" (" +Jute2Change+"%)", 980 , 506 );

Jute3up=SelectedValue( Jute3Close> Jute3Prev);

JuteVBS = IIf(Jute3up,JuteVBS+1,JuteVBS);

Jute3down=SelectedValue( Jute3Close < Jute3Prev);

JuteVSS = IIf(Jute3down,JuteVSS+1,JuteVSS);

Color=IIf(Jute3up,colorBrightGreen,IIf(Jute3down,colorRed,colorLightBlue));

GfxSetTextColor (color);

GfxTextOut("SONALIANSH - " + Jute3Close+" (" +Jute3ChangeTaka+"Tk.)"+" (" +Jute3Change+"%)", 980 , 517 );

JuteEQL= 3-(JuteVBS+JuteVSS);

GfxSetTextColor (Acolor);

GfxTextOut("[ A: "+JuteVBS+", D: "+JuteVSS+", U: "+JuteEQL+" ]",1055,483);

/////////////////////////////////////////////////////

GfxSetTextColor (colorDarkGrey);

GfxSelectFont("Times New Roman", 8.8, 0 );

GfxTextOut("Creator: Sanjibbd06 >>> <<< Modified by: Rakib Hasan",920,585);

/////////////////////////////////////////////////////

/////////////////////////////////////////////////////////////////////////////////

TotADV= BankVBS+LInsVBS+CemVBS+TeleVBS+GInsVBS+FuelVBS+TravVBS+FinVBS+TexVBS+JuteVBS+

EngVBS+PCVBS+CerVBS+FoodVBS+SRVBS+ITVBS+TanneryVBS+MiscVBS+BondVBS+MFVBS+PaperEQL;

TotDEC= BankVSS+LInsVSS+CemVSS+TeleVSS+GInsVSS+FuelVSS+TravVSS+FinVSS+TexVSS+JuteVSS+

EngVSS+PCVSS+CerVSS+FoodVSS+SRVSS+ITVSS+TanneryVSS+MiscVSS+BondVSS+MFVSS+PaperEQL;

TotUC= BankEQL+LInsEQL+CemEQL+TeleEQL+GInsEQL+FuelEQL+TravEQL+FinEQL+TexEQL+JuteEQL+

EngEQL+PCEQL+CerEQL+FoodEQL+SREQL+ITEQL+TanneryEQL+MiscEQL+BondEQL+MFEQL+PaperEQL;

GfxSelectFont("Times New Roman", 8.5, 550, True );

GfxSetTextColor (colorPink);

GfxTextOut("[ Issues Advanced: "+TotADV+", Issues Declined: "+TotDEC+", Issues Unchanged/ Non Traded: "+TotUC+" ]",250,1);

_SECTION_END();