// Downloaded From https://www.WiseStockTrader.com
// Bid & Ask Example.afl
Plot(L+(H-L)/2, "Mid",colorYellow,styleDots|styleNoLine);
Plot(C, "Close",colorGreen,styleDots);
SetChartBkColor(ParamColor("Outer panel",colorBlack));

bc=BarCount-1;
Bid = GetRTData("Bid");
Ask=GetRTData("Ask");
szBid=GetRTData("BidSize");
szAsk=GetRTData("AskSize");

// Display bid & ask as text header ...
if(Bid && Ask && szBid && szAsk)
{
  baDif = abs(szBid-szAsk);
  dCol = IIf(szBid > szAsk, colorGreen,colorRed);
  bidCol = IIf(szBid > Ref(szBid,-1), colorGreen,colorRed);
  askCol = IIf(szAsk > Ref(szAsk,-1), colorGreen,colorRed);
  bStr = EncodeColor(bidCol[bc])+WriteVal(szBid,8);
  aStr = EncodeColor(askCol[bc])+WriteVal(szAsk,8);
  dStr = EncodeColor(dCol[bc])+WriteVal(baDif,8);
  baStr="\nPrice of  Bid:  "+Bid+ "  -  "+"Ask:  "+ask
  + "\nSize of    Bid: "
  + bStr
  + EncodeColor(colorWhite)  +"   -    Ask: "
  + aStr
  + "  =  "+dStr;
} else baStr="\nNo RT Data";

_N(Title=EncodeColor(colorWhite)+StrLeft(Name(),7)
 + "   " + Interval(2) + "  "
 + Date()+" GMT"
 + "      ( O-" + O + "   H-"+ H + "   L-" + L + "   C-" + C + " )"
 + baStr
);