// Code is inserted into the body part of "calendar"
aDatePtr=0; sTitle="";
SkipToDate();
while (aDatePtr < aDateIndex) {
  sBuff=aDate[aDatePtr];
  if (sBuff.charAt(0) == "$") {
    if (sTitle != "") document.write(sTitle);
    sTitle="";
    GetTheDate(sBuff);
    if (sType != "H") {
      sTitle="<b>"+WeekdayName(iNumberDays)+", " + MonthName(iMonth) + " ";
      sTitle=sTitle+Decimal(iDay,1) + ", "+Decimal(iYear) + ":</b>";
      I=aDatePtr+1;
      sBuff=aDate[I];
      while (sBuff.charAt(0) == "$") {
        GetTheDate(sBuff);
        I=I+1;
        sBuff=aDate[I];
      }
      if (iNumberDays >= iCurrentDate) { // Print
        document.write("<p>");
        while (aDatePtr < I) {
          sBuff=aDate[aDatePtr];
          document.write('<a name="'+sBuff.substr(1,10)+'"></a>');
          aDatePtr=aDatePtr+1;
        }
      } else { // Past History, skip
        aDatePtr=I+1;
        SkipToDate();
        sTitle=""; sType=""; sBuff=" ";
      }
    } else { // Skip Holiday entry
      aDatePtr=aDatePtr+1;
      SkipToDate();
    }
  }
  if (sBuff.charAt(0) == "#") { // Title, so set title variable
    sTitle="<b>"+sBuff.substr(1)+"</b>";
    aDatePtr=aDatePtr+1;
  }
  if (sBuff.charAt(0) == "@") {
    if (sTitle != "") document.write(sTitle);
    sTitle=sBuff.charAt(1);
    I=Binary(sTitle,1);
    sTitle="";
    document.write("<br>");
    while (I > 0) {
      document.write("&nbsp;&nbsp;");
      I=I-1;
    }
    sBuff=sBuff.substr(2);
    document.write(sBuff);
    aDatePtr=aDatePtr+1;
  }
  if (sBuff.charAt(0) == "&") {
    if (sTitle != "") document.write(sTitle);
    sTitle=sBuff.charAt(1);
    I=Binary(sTitle,1);
    sTitle="";
    document.write("<br>");
    while (I > 0) {
      document.write("&nbsp;&nbsp;");
      I=I-1;
    }
    I=2;
    while (I < sBuff.length) {
      if (sBuff.charAt(I) == "\n") break;
      I=I+1;
    }
    document.write("For further information email ");
    sTitle=sBuff.substr(2,I-2);
    sType=sBuff.substr(I+1);
    document.write(PutItTogether(sTitle,sType));
    sTitle=""; sType="";
    aDatePtr=aDatePtr+1;
  }
}
if (sTitle != "") document.write(sTitle);
sTitle="";