this.standardbody=(document.compatMode=="CSS2Compat")? document.documentElement : document.body //create reference to common "body" across doctypes
var popwindow=null;
var model=1, copydate="2011"; 
var listdate="<font style='font-family:Verdana; font-size:13.5pt; color:#000080; font-weight:bold'>As at 20 August 2011</font>";
var n=1
var d=new Array;
d[0]=new Array("Ref No..","Iss","Box","Vehicle","Fleetname","Livery","Operator Name","Fleet No.","Reg No.","Route","Destination","Other Notes","Date","Cert","Qty");
d[n++]=new Array("30102","Std","Plastic/Card Outer","Leyland Olympian/Alexander RH 11m","Kowloon Motor Bus","Cream/Red","-","S3BL228","DT 8182","81","Wo Che","","Sep-08","Y","1800");
d[n++]=new Array("300800","Std","?","Guy Arab IV/Metal Sections","China Motor Bus","Yellow Blue Stripe and Mudguards","-","-","HK 4212","-","-","","Mar-01","Y","2000");
d[n++]=new Array("200800A1","Std","?","Guy Arab IV/Metal Sections","China Motor Bus","Maroon/Cream","-","-","HK 4250","1","Y.V.F. Pier","","Dec-00","Y","2000");
d[n++]=new Array("200800A2","Std","?","Guy Arab IV/Metal Sections","China Motor Bus","Maroon/Cream","-","-","HK 4244","3","University","","Dec-00","Y","1000");
d[n++]=new Array("AL04088","Std","Plastic/Card Outer","Leyland Olympian/Alexander RH 11m","Kowloon Motor Bus","White/Red Aircon","-","AL1","DX 2437","6C","Kowloon City Ferry","","May-04","Y","3000");
d[n++]=new Array("AL10802-R10","Com","?","Leyland Olympian/Alexander RH 11m","Kowloon Motor Bus","White/Red Aircon     Bus Fan World banner adverts","-","AL1","DX 2437","10","Bus Fan World logo","Bus Fan World members only","Oct-02","Y","500");
d[n++]=new Array("AL10802-R6","Std","Card Window","Leyland Olympian/Alexander RH 11m","Kowloon Motor Bus","White/Red Aircon     Bus Fan World banner adverts","-","AL1","DX 2437","6","Mei Foo","","Oct-02","Y","1000");
d[n++]=new Array("BLS30101","Std","Plastic/Card Outer","Leyland Olympian/Alexander RH 11m","Kowloon Motor Bus","Cream/Red","-","S3BL426","FT 7111","81C","Hung Hom Station","","Jun-02","Y","3000");
d[n++]=new Array("BLS30102","Std","?","Leyland Olympian/Alexander RH 11m","Kowloon Motor Bus","Cream/Red","-","S3BL221","DT 6115","88M","Hin Keng","","Jul-07","Y","999");
d[n++]=new Array("BLS30103","Std","?","Leyland Olympian/Alexander RH 11m","Kowloon Motor Bus","Cream/Red","-","S3BL410","FA 9288","70","Sheung Shui","","Jan-09","Y","1800");
d[n++]=new Array("BLS30104","Std","Plastic/Card Outer","Leyland Olympian/Alexander RH 11m","Kowloon Motor Bus","Cream/Red","-","S3BL422 ","FP 8167","66","Tai Hing","","Dec-09","Y","1800");
d[n++]=new Array("BLS30105","Std","Plastic/Card Outer","Leyland Olympian/Alexander RH 11m","Kowloon Motor Bus","Cream/Red","-","S3BL470","GB 2444","5","Star Ferry","","Jun-11","Y","1800");
d[n++]=new Array("BLV61001","Std","Plastic/Card Outer","Leyland Olympian/Alexander RH 11m","Kowloon Motor Bus","Cream/Red","-","S3V8","GK 3578","87D","Kam Ying Court","","Dec-10","Y","1800");
d[n++]=new Array("L40703","Std","Card/Card Outer","Leyland Olympian/Alexander RH 11m","China Motor Bus","All-Over Ad Save Our Seas","-","LM4","FW 2045","8","Wan Chai Ferry","","Sep-03","Y","1000");
d[n++]=new Array("L40806","Std","?","Leyland Olympian/Alexander RH 11m","China Motor Bus","60th Anniversary China Motor Bus","-","LM1","FV 6607","101","Kwun Tong","","Aug-05","Y","1000");
d[n++]=new Array("LM2-111","Std","?","Leyland Olympian/Alexander RH 11m","China Motor Bus","Blue/Cream","-","LM2","FV 7737","111","Ping Shek","Not a general release - model offered as a prize only","Jan-02","Y","30");
d[n++]=new Array("LM5","Std","?","Leyland Olympian/Alexander RH 11m","China Motor Bus","Red","-","LM5","FW 2288","347","Aberdeen","","?","?","30");
d[n++]=new Array("LO10101-601","Std","?","Leyland Olympian/Alexander RH 11m","China Motor Bus","Blue/Cream","-","LM10","FW 3858","601","Admiralty","","Sep-01","Y","1000");
d[n++]=new Array("LO10101-94X","Std","?","Leyland Olympian/Alexander RH 11m","China Motor Bus","Blue/Cream","-","LM9","FW 2788","94X","Lei Tung Estate","","Sep-01","Y","2000");
d[n++]=new Array("LO20101-680 ","Std","Cream/Blue Window Card","Leyland Olympian/Alexander RH 11m","China Motor Bus","Blue/Cream     Hotline","-","LM7","FW 3152","680","Central (Macau Ferry)","","Dec-01","Y","1500");
d[n++]=new Array("S3BL428","Std","?","Leyland Olympian/Alexander RH 11m","Kowloon Motor Bus","All-Over Ad St John Ambulance","-","FT 9910","S3BL428","74A","Kwun Tong Ferry","Not a general release - model offered as a prize only","Jan-06","Y","30");
// Buses Model Co Code - © K. Ellis - Ver 2.4-busesmodelco 02-10-10
var no_of_models=d.length-1;
function catnolist()
// Produce HTML code for main model list table
{
for (var l=1; l<d.length; l++)
{
//Add non_breakable space to any empty fields to preserve table borders
for (var f=1; f<15; f++)
{
if ((f==1 || f==2 || f==3||  f==4 || f==7 || f==8 || f==9 || f==12 || f==13) && (d[l][f]=="" || d[l][f]==" ")) d[l][f]="?";
if ((f==5  || f==6 || f==10 || f==11 || f==14) && (d[l][f]=="" || d[l][f]==" ")) d[l][f]="&nbsp;";
}
// Deal with any problem model entries
// None

// All fields Code - document.write("<tr><td id=x onmouseover = popup("+l+") onmouseout= hide_popup()>"+d[l][0]+"</a></td><td id=x>"+d[l][1]+"</td><td id=x>"+d[l][2]+"</td><td id=x>"+d[l][3]+"</td><td id=x>"+d[l][4]+"</td><td id=x>"+d[l][5]+"</td><td id=x>"+d[l][6]+"</td><td id=x>"+d[l][7]+"</td><td id=x>"+d[l][8]+"</td><td id=x>"+d[l][9]+"</td><td id=x>"+d[l][10]+"</td><td id=x>"+d[l][11]+"</td><td id=x>"+d[l][12]+"</td><td id=x>"+d[l][13]+"</td><td id=x>"+d[l][14]+"</td></tr>");

document.write("<tr><td id=x onmouseover = popup("+l+") onmouseout= hide_popup()>"+d[l][0]+"</a></td><td id=x>"+d[l][3]+"</td><td id=x>"+d[l][4]+"</td><td id=x>"+d[l][7]+"</td><td id=x>"+d[l][8]+"</td><td id=x>"+d[l][9]+"</td><td id=x>"+d[l][10]+"</td><td id=x>"+d[l][12]+"</td><td id=x>"+d[l][13]+"</td></tr>");

}
document.write("<tr><td id=x colspan='15'><p align='center'><font style='color:blue; font-family:arial; font-size:10pt'>&copy; Peter Harrison "+copydate+".<br>This list contains details of  "+ no_of_models+" different Buses Model Co releases.</font></td></tr>");
window.document.getElementById("date").innerHTML=" - "+listdate;
hide_popup();
}


function show_popup(divobj){ //Centers a div element on the page
var ie=document.all && !window.opera
var dom=document.getElementById("popup1");
var scroll_top=(ie)? this.standardbody.scrollTop : window.pageYOffset
var scroll_left=(ie)? this.standardbody.scrollLeft : window.pageXOffset
var docwidth=(ie)? this.standardbody.clientWidth : window.innerWidth-this.scrollbarwidth
var docheight=(ie)? this.standardbody.clientHeight: window.innerHeight
var docheightcomplete=(this.standardbody.offsetHeight>this.standardbody.scrollHeight)? this.standardbody.offsetHeight : this.standardbody.scrollHeight //Full scroll height of document
var objwidth=560 //width of div element
var objheight=340//height of div element
var topposition=(docheight>objheight)? scroll_top+docheight/2-objheight/2+"px" : scroll_top+10+"px" //Vertical position of div element: Either centered, or if element height larger than viewpoint height, 10px from top of viewpoint
//dom.style.left=100
dom.style.top=Math.floor(parseInt(topposition))+"px"
dom.style.visibility="visible";
dom.style.width="560"
dom.style.height="auto"
}

function hide_popup()
// Hide pop up division
{
var obj=window.document.getElementById("popup1");
obj.style.visibility="hidden";
}

function popup(l)
// process raw model data, pre-format fields for pop-up window
{
var fno=d[l][7];
var reg=d[l][8];
var release=d[l][1];
var details=d[l][11];
var cert=d[l][13];
var qty=d[l][14];
var month=d[l][12].substr(0,3);
var yt= d[l][12].substr(4,2);
if (yt=="") yt="88";
if (d[l][4]=="") d[l][4]="&nbsp;";
switch(month)
{
case "Jan" : month="January"; break;
case "Feb" : month="February"; break;
case "Mar" : month="March"; break;
case "Apr" : month="April"; break;
case "Jun" : month="June"; break;
case "Jul" : month="July"; break;
case "Aug" : month="August"; break;
case "Sep" : month="September"; break;
case "Oct" : month="October"; break;
case "Nov" : month="November"; break;
case "Dec" : month="December"; break;
case "?" : month="Unknown"; break;
}
var year=parseInt(yt,10);
if (fno=="-") fno="None";
if (reg=="-") reg="None";
if (details.length==0) details="-";
if (cert=="Y") cert="Yes"; else cert="No";
if (release=="Std") release="Standard";
if (release=="Com") release="Commissioned";
if (qty.length==0) qty="Not disclosed by ABC";
if (year>88) year+=1900; else year+=2000;
if (year==2088) year="";

// HTML Code strings for pop up window
// <img width=568 height=48 border=0 src='pop_header1.gif'>

// HTML Code strings for pop up window
// <img width=568 height=48 border=0 src='pop_header1.gif'>
var info1="<center><table width=98% border=1 cellpadding=2 cellspacing=1 bordercolor=#687BF8><tr><td id=ph colspan=2>"+d[l][0]+" - "+d[l][3]+"<br>"+d[l][4]+"</td></tr><tr><td colspan=2 align=left id=px><b>Operator:</b> "+d[l][6]+"</td></tr><tr><td colspan=2 align=left id=px><b>Livery:</b> "+d[l][5]+"</td></tr><tr><td width=50% id=px><b>Fleet No.:</b> "+fno+"</td><td width=50% id=px><b>Registration:</b> "+reg+"</td></tr>";
var info2="<tr><td colspan=2 align=left id=px><b>Route &amp; Destination:</b> "+d[l][9]+" "+d[l][10]+"</td></tr><tr><td id=px><b>Issue Type:</b> "+release+"</td><td id=px><b>Release Date:</b> "+month+" "+year+"</td></tr><tr><td colspan=2 id=px><b>Box Type:</b> "+d[l][2]+"</td></tr><tr><td id=px><b>Quantity:</b> "+qty+"</td><td id=px><b>Certificated:</b> "+cert+"</td></tr><tr><td colspan=2 id=px><b>Notes:</b> "+details+"</td></tr></table><font style='color:blue; font-family:arial; font-size:10pt'>&copy; Peter Harrison "+copydate+"</font></center>";
//</body></html>";

// Insert model data into hidden pop up window division & make visible
hide_popup();
document.getElementById("popup1").innerHTML=info1+info2;
show_popup("popup1");
}

catnolist();