//This script is the copyright of TJD Patent Services LLP, No copying is authorised for any use without written permission.
//The only exception is the use of the script merely by virtue of browsing webpages controlled by TJD Patent Services, solely 
//for the good faith purposes of using the respective PatentlyProtected.com webpage as a reference tool. 

var charArray = new Array(
'!', '"', '"', '$', '#', '%', '&', "'", '(', ')', '*', '+', ',', '-',   //13
'/', '.', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', ':', ';',   //14  27
'<', '=', '>', '?', '@', 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I',   //14  41
'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W',   //14  55
'X', 'Y', 'Z', '[', '\\', ']', '^', '_', '`', 'a', 'b', 'c', 'd', 'e',  //14  69
'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's',   //14  83
't', 'u', 'v', 'w', 'x', 'y', 'z', '#*#$%');

var d= new Array();
d[0]=new Array('EP','P','Espacenet','EP1234567','@@#######','','http://v3.espacenet.com/results?sf=a&FIRST=1&CY=ep&LG=en&DB=EPODOC&TI=&AB=&PN=','0','&AP=&PR=&PD=&PA=&IN=&EC=&IC=&=&=&=&=&=','','','');
d[1]=new Array('EP','P P','Espacenet','EP12345123567A1','@@###########@#','','http://v3.espacenet.com/results?sf=a&FIRST=1&CY=ep&LG=en&DB=EPODOC&TI=&AB=&PN=','0','&AP=&PR=&PD=&PA=&IN=&EC=&IC=&=&=&=&=&=','','','');
d[2]=new Array('EP','P','Espacenet','1234567A1','#######@#','','http://v3.espacenet.com/results?sf=a&FIRST=1&CY=ep&LG=en&DB=EPODOC&TI=&AB=&PN=','0','&AP=&PR=&PD=&PA=&IN=&EC=&IC=&=&=&=&=&=','','','');
d[3]=new Array('EP','P','Espacenet','EP1234567A1','@@#######@#','','http://v3.espacenet.com/results?sf=a&FIRST=1&CY=ep&LG=en&DB=EPODOC&TI=&AB=&PN=','0','&AP=&PR=&PD=&PA=&IN=&EC=&IC=&=&=&=&=&=','','','');
d[4]=new Array('EP','P A','','1999EP-1234567','&&&&@@-#######','&&&&@@#######','');
d[5]=new Array('EP','P A','','12345678.1','########.#','','');
d[6]=new Array('','','','','','','');
d[7]=new Array('EP','P A','S','EP1999-123456/AP','@@&&&&-######/@@','@@&&&&######@@','');
d[8]=new Array('EP','P A','D','1999EP-123456/AP','&&&&@@-######/@@','&&&&@@######@@','');
d[9]=new Array('EP','P A','W','12345678/APW','########/@@@','########@@@','');
d[10]=new Array('EP','P A','','EP20020003250 20020221','@@&&&&###############','','');
d[11]=new Array('','','','','','','');
d[12]=new Array('','','','','','','');
d[13]=new Array('','','','','','','');
d[14]=new Array('FR','P','Espacenet','FR123451234567A1','@@############@#','','http://v3.espacenet.com/results?sf=a&FIRST=1&CY=ep&LG=en&DB=EPODOC&TI=&AB=&PN=','0','&AP=&PR=&PD=&PA=&IN=&EC=&IC=&=&=&=&=&=','','','');
d[15]=new Array('FR','P','Espacenet','FR1234567A1','@@############@#','','http://v3.espacenet.com/results?sf=a&FIRST=1&CY=ep&LG=en&DB=EPODOC&TI=&AB=&PN=','0','&AP=&PR=&PD=&PA=&IN=&EC=&IC=&=&=&=&=&=','','','');
d[16]=new Array('FR','P A','','FR 95/12345','@@&&/#####','@@#######','');
d[17]=new Array('FR','P A','','1999FR-1234567','&&&&@@-#######','&&&&@@#######','');
d[18]=new Array('','','','','','','');
d[19]=new Array('','','','','','','');
d[20]=new Array('','','','','','','');
d[21]=new Array('US','P','the USPTO','1234567','#######','','http://patft.uspto.gov/netacgi/nph-Parser?Sect1=PTO2&Sect2=HITOFF&p=1&u=/netahtml/search-bool.html&r=1&f=G&l=50&co1=AND&d=ptxt&s1=','0','.WKU.&OS=PN/','0','&RS=PN/','0');
d[22]=new Array('US','P','the USPTO','US1234567','@@#######','','http://patft.uspto.gov/netacgi/nph-Parser?Sect1=PTO2&Sect2=HITOFF&p=1&u=/netahtml/search-bool.html&r=1&f=G&l=50&co1=AND&d=ptxt&s1=','2','.WKU.&OS=PN/','2','&RS=PN/','2');
d[23]=new Array('US','P','','US20011234567','@@&&&&#######','','(published with search report)');
d[24]=new Array('US','P','','US PP12345 P3','@@@@#####@#','','');
d[25]=new Array('US','P A','','US 2001/1234444 P1','@@&&&&/#######@#','@@&&&&#######@#','');
d[26]=new Array('US','E reissue patent','','USRE12345','@@@@#####','','');
d[27]=new Array('US','provisional patent application','','123456','######','','');
d[28]=new Array('US','provisional patent application','','1999USNP123456','&&&&@@@@######','','');
d[29]=new Array('US','patent classes','','123/123','###/###','','');
d[30]=new Array('US','registered copyright document location','','V1234 P12-123','@####@##-###','@####@#####','');
d[31]=new Array('US','registered copyright work registration','','PA-123-123','@@-###-###','@@######','');
d[32]=new Array('US','registered copyright work special codes','','12/N/L','##/@/@','##@@','');
d[33]=new Array('US','design patent','','Des. 456789','@@@.######','@@@######','');
d[34]=new Array('US','re-examination certificate of patent re-issue','',' B1 RE12345','@@@@#####','','');
d[35]=new Array('US','U P','','1234567','#######','','');
d[36]=new Array('US','plant variety','','PP1234','@@#####','','');
d[37]=new Array('US','defensive publication','','T123456','@######','','');
d[38]=new Array('US','defensive SIR (Statutory Invention Registration)','','H12345','@#####','','');
d[39]=new Array('US','D','','D123456','@######','','');
d[40]=new Array('','','','','','','');
d[41]=new Array('','','','','','','');
d[42]=new Array('','','','','','','');
d[43]=new Array('','','','','','','');
d[44]=new Array('','','','','','','');
d[45]=new Array('','','','','','','');
d[46]=new Array('PC','P A','Espacenet','PCT/US99/12345','@@/@@&&/#####','@@/@@&&#####','http://v3.espacenet.com/results?sf=a&FIRST=1&CY=ep&LG=en&DB=EPODOC&TI=&AB=&PN=','0','&AP=&PR=&PD=&PA=&IN=&EC=&IC=&=&=&=&=&=','','','');
d[47]=new Array('PC','P A','Espacenet','1999WO-US12345 ','&&&&@@-@@#####','&&&&@@@@#####','http://v3.espacenet.com/results?sf=a&FIRST=1&CY=ep&LG=en&DB=EPODOC&TI=&AB=&PN=','0','&AP=&PR=&PD=&PA=&IN=&EC=&IC=&=&=&=&=&=','','','');
d[48]=new Array('PC','P A','Espacenet','PCT/US99/12345','@@@/@@##/#####','@@@/@@#######','http://v3.espacenet.com/results?sf=a&FIRST=1&CY=ep&LG=en&DB=EPODOC&TI=&AB=&PN=','0','&AP=&PR=&PD=&PA=&IN=&EC=&IC=&=&=&=&=&=','','','');
d[49]=new Array('PC','P A','','PCT/US99/12345','@@@@@##/#####','@@@@@#######','');
d[50]=new Array('PC','P A','','PCT/JP99/12345','@@@/@@##/#####','@@@/@@#######','');
d[51]=new Array('PC','P A','','PCT/JP99/12345','@@@@@##/#####','@@@@@#######','');
d[52]=new Array('PC','P A','','WO99/12345 ','@@&&/#####','@@&&#####','');
d[53]=new Array('PC','P A','','WO9912345','@@#######','','');
d[54]=new Array('PC','P A','','PCT/JP99/12345','@@@/@@&&/#####','@@@@@&&#####','');
d[55]=new Array('PC','P A','S','WO1999-JP12/AP','@@&&&&-@@##/@@','@@&&&&@@##@@','');
d[56]=new Array('PC','P A','D','1999WO-JP12345/AP','&&&&@@-@@#####/@@','&&&&@@@@#####@@','');
d[57]=new Array('PC','P A','W','PCT-JP99-12345/APW','@@@-@@&&-#####/@@@','@@@@@&&#####@@@','');
d[58]=new Array('PC','P A','W','PCT-JP99-12345/APW','@@@-@@##-#####/@@@','@@@-@@#######/@@@','');
d[59]=new Array('PC','P A','W','PCT-JP99-12345/APW','@@@@@##-#####/@@@','@@@-@@##-#####@@@','');
d[60]=new Array('','','','','','','');
d[61]=new Array('','','','','','','');
d[62]=new Array('GB','P','','123456','######','','(possibly prior to 1949)');
d[63]=new Array('GB','P','','1235467','#######','','');
d[64]=new Array('GB','P','Espacenet','GB1234567','@@#######','','http://v3.espacenet.com/results?sf=a&FIRST=1&CY=ep&LG=en&DB=EPODOC&TI=&AB=&PN=','0','&AP=&PR=&PD=&PA=&IN=&EC=&IC=&=&=&=&=&=','','','');
d[65]=new Array('GB','P','','GB123451234567A','@@############@','','');
d[66]=new Array('GB','P','','1235467A1','#######@#','','');
d[67]=new Array('GB','P','Espacenet','GB1235467A1','@@#######@#','','http://v3.espacenet.com/results?sf=a&FIRST=1&CY=ep&LG=en&DB=EPODOC&TI=&AB=&PN=','0','&AP=&PR=&PD=&PA=&IN=&EC=&IC=&=&=&=&=&=','','','');
d[68]=new Array('GB','P A','','GB1234567.8','@@#######.#','','(<a href="http://webdb4.patent.gov.uk/patents" target="_blank">Use this link to check the application\'s status at the UKPO</a>)');
d[69]=new Array('GB','P A','','GB1234567','@@#######','','(1949 Act)(<a href="http://webdb4.patent.gov.uk/patents" target="_blank">Use this link to check the application\'s status at the UKPO</a>)');
d[70]=new Array('GB','P A','','59N226SU',' ,##@##@@#,','','');
d[71]=new Array('GB','D','','1234567','#######','','');
d[72]=new Array('','','','','','','');
d[73]=new Array('','','','','','','');
d[74]=new Array('','','','','','','');
d[75]=new Array('','','','','','','');
d[76]=new Array('DE','P','','DE1234567','@@#######','','http://v3.espacenet.com/results?sf=a&FIRST=1&CY=ep&LG=en&DB=EPODOC&TI=&AB=&PN=','0','&AP=&PR=&PD=&PA=&IN=&EC=&IC=&=&=&=&=&=','','','');
d[77]=new Array('DE','P','','DE1234567A1','@@#######@#','','http://v3.espacenet.com/results?sf=a&FIRST=1&CY=ep&LG=en&DB=EPODOC&TI=&AB=&PN=','0','&AP=&PR=&PD=&PA=&IN=&EC=&IC=&=&=&=&=&=','','','');
d[78]=new Array('DE','P P','','DE123451234567A1','@@############@#','','');
d[79]=new Array('DE','P A','','P 1234567.1','@#######.#','#######.#','');
d[80]=new Array('DE','P A','','DE19991234','@@&&&&####','@@&&&&####','');
d[81]=new Array('DE','P A','S','DE1999-1234567/AP','@@&&&&-#######/@@','@@&&&&#######/@@','');
d[82]=new Array('DE','P A','S','DE1999-1234567/AP','@@&&&&-#######@@','@@&&&&#######@@','');
d[83]=new Array('DE','P A','D','1999&E-1234567/AP','&&&&@@-#######/@@','&&&&@@-#######@@','');
d[84]=new Array('DE','P A','D','1999DE-1234567/AP','&&&&@@#######/@@','&&&&@@#######@@','');
d[85]=new Array('DE','P A','W','1234567/APW','#######/@@@','#######@@@','');
d[86]=new Array('DE','U M','','1999DE-U123456','&&&&@@-@######','&&&&@@@######','');
d[87]=new Array('DE','U M','','DE 1234567 U','@@#######@','','');
d[88]=new Array('DE','U M A','','12345678 U ','########@','','');
d[89]=new Array('DE','U M A','','1999DE-1234567','&&&&@@-#######','&&&&@@#######','');
d[90]=new Array('','','','','','','');
d[91]=new Array('','','','','','','');
d[92]=new Array('','','','','','','');
d[93]=new Array('','','','','','','');
d[94]=new Array('','','','','','','');
d[95]=new Array('','','','','','','');
d[96]=new Array('JP','P','','P2001123456A','@&&&&-000000@','@&&&&000000@','(after 2000)'); 
d[97]=new Array('JP','patent based on a PCT application','','P2001-500001A','@&&&&-000000@','@&&&&000000@','(after 2000) (for PCT based applications the number must be greater than 500000)'); 
d[98]=new Array('JP','(granted) patent','','JP12345678','@@########','','');
d[99]=new Array('JP','P P','','JP123451234567B2','@@############@#','','');
d[100]=new Array('JP','P P','','JP123451234567Y2','@@############@','','');
d[101]=new Array('JP','unexamined patent','','h10123456A','@########@','','(issued before 2000, the h represents Emperor Heisei)');
d[102]=new Array('JP','P A','','JP2000123456','@@&&&&######','','(after 2000)');
d[103]=new Array('JP','P A','','JP12345678','@@########','','');
d[104]=new Array('JP','P A','','1999JP-1234567','&&&&@@-#######','&&&&@@#######','(after 2000)');
d[105]=new Array('JP','(unexamined) patent application','','JP2001123456','@@&&&&######','','(after 2000)');
d[106]=new Array('JP','(unexamined) patent application','','JP12345678 ','@@########','','');
d[107]=new Array('JP','(examined) patent application','','JP12345678','@@########','','');
d[108]=new Array('JP','P A','','P1234567','@#######','','(after 2000)');
d[109]=new Array('JP','U M A','','U1234567','@#######','','(after 2000)'); 
d[110]=new Array('JP','D','','D1234567','@#######','','(after 2000)'); 
d[111]=new Array('JP','U M','','U2001-123456U','@&&&&-######@','','(after 2000)');
d[112]=new Array('JP','utility model (based on a PCT application)','','U2001-300001U','@&&&&-######@','','(after 2000)(For PCT based applications the number must be greater than 300000)');
d[113]=new Array('JP','D','','1234567','#######','','(after 2000)');
d[114]=new Array('','','','','','','');
d[115]=new Array('','','','','','','');
d[116]=new Array('','','','','','','');
d[117]=new Array('','','','','','','');
d[118]=new Array('','','','','','','');
d[119]=new Array('','','','','','','');
d[120]=new Array('Canadian','P A','','1999CA-1234567','&&&&@@-#######','&&&&@@#######','');
d[121]=new Array('Canadian','P','','CA1234567','@@#######','','http://v3.espacenet.com/results?sf=a&FIRST=1&CY=ep&LG=en&DB=EPODOC&TI=&AB=&PN=','0','&AP=&PR=&PD=&PA=&IN=&EC=&IC=&=&=&=&=&=','','','');
d[122]=new Array('','','','','','','');
d[123]=new Array('','','','','','','');
d[124]=new Array('Russian','P','','RU1234567','@@#######','','http://v3.espacenet.com/results?sf=a&FIRST=1&CY=ep&LG=en&DB=EPODOC&TI=&AB=&PN=','0','&AP=&PR=&PD=&PA=&IN=&EC=&IC=&=&=&=&=&=','','','');;
d[125]=new Array('Russian','P A','','SU19991234567 19991234','@@&&&&###############','','');
d[126]=new Array('','','','','','','');
d[127]=new Array('','','','','','','');
d[128]=new Array('','','','','','','');
d[129]=new Array('Spanish','U M','','1999ES-U123456','&&&&@@-######','','');
d[130]=new Array('Spanish','U M','','1999ES-U123456','&&&&@@######','','');
d[131]=new Array('Spanish','U M','','ES 1234567 U','@@#######@','','http://v3.espacenet.com/results?sf=a&FIRST=1&CY=ep&LG=en&DB=EPODOC&TI=&AB=&PN=','0','&AP=&PR=&PD=&PA=&IN=&EC=&IC=&=&=&=&=&=','','','');
d[132]=new Array('Spanish','patent publication','','ES123451234567U1','@@############@#','','');
d[133]=new Array('','','','','','','');
d[134]=new Array('','','','','','','');
d[135]=new Array('','','','','','','');
d[136]=new Array('','','','','','','');
d[137]=new Array('Danish','U M','','1999DK-U123456','&&&&@@-@######','','');
d[138]=new Array('Danish','U M','','1999DK-U123456','&&&&@@@######','','');
d[139]=new Array('Danish','U M','','DK 1234567 U','@@#######@','','');
d[140]=new Array('Danish','U M','','DK200512345U','@@#######@','','http://v3.espacenet.com/results?sf=a&FIRST=1&CY=ep&LG=en&DB=EPODOC&TI=&AB=&PN=','0','&AP=&PR=&PD=&PA=&IN=&EC=&IC=&=&=&=&=&=','','','');
d[141]=new Array('','','','','','','');
d[142]=new Array('IT','P A','','1999IT-SA12345','&&&&@@-@@#####','&&&&@@@@#####','');
d[143]=new Array('IT','P A','','IT SA 12345','@@@@#####','','(SA stands for the issuing city');
d[144]=new Array('','','','','','','');
d[145]=new Array('','','','','','','');
d[146]=new Array('','','','','','','');
d[147]=new Array('','','','','','','');
d[148]=new Array('Australian','patent publication','','AU123451234567A','@@############@','','');
d[149]=new Array('Australian','patent acceptance','','1234504','#######','','');
d[150]=new Array('','','','','','','');
d[151]=new Array('','','','','','','');
d[152]=new Array('','','','','','','');
d[153]=new Array('','','','','','','');
d[154]=new Array('Indian','P A','','1999IN-CA12345','&&&&@@-@@#####','&&&&@@@@#####','');
d[155]=new Array('Indian','P A','','IN CA 12345','@@@@#####','','(CA stands for the issuing city)');
d[156]=new Array('Indian','P A','','638/MUM/2001','###/@@@/&&&&','','(MUM stands for the issuing city)');
d[157]=new Array('','','','','','','');
d[158]=new Array('Polish','P','','PL123456','@@######','','http://v3.espacenet.com/results?sf=a&FIRST=1&CY=ep&LG=en&DB=EPODOC&TI=&AB=&PN=','0','&AP=&PR=&PD=&PA=&IN=&EC=&IC=&=&=&=&=&=','','','');
d[159]=new Array('','','','','','','');
d[160]=new Array('','','','','','','');
d[161]=new Array('Chinese','P A','','CN1234567U','@@#######@','','');
d[162]=new Array('','','','','','','');
d[163]=new Array('','','','','','','');
d[164]=new Array('Taiwanese','invention patent','','TW-I123456','@@-@######','','');
d[165]=new Array('Taiwanese','U M','','TW-M123456','@@-@######','','');
d[166]=new Array('Taiwanese','design patent','','TW-D123456','@@-@######','','');
d[167]=new Array('','','','','','','');
d[168]=new Array('','','','','','','');
d[169]=new Array('','','','','','','');
d[170]=new Array('GB','safety standard','','BS1234','@@####','','');
d[171]=new Array('English & Welsh','limited liability partnership registration','','OC307278','@@######','','');
d[172]=new Array('Scottish','limited company registration','','SC158547','@@######','','');
d[173]=new Array('Northern Irish','limited company registration','','NI123335','@@######','','');
d[174]=new Array('Various countries','trademark registration','','123456','######','','');
d[175]=new Array('International','classification','','C01A','@##@','','');
d[176]=new Array('International','classification','','C01A123/12','@##@###/##','@##@##/##','');
d[177]=new Array('European','classification','','C01C123/12','@##@###/##','@##@##/##','');
d[178]=new Array('Various countries','P A','','IE19990001234 19990123','@@&&&&###############','','');
d[179]=new Array('International','classification','','C01A','@&&@','','');
d[180]=new Array('International','classification','','C01A123/12','@&&@###/##','@&&@#####','');
d[181]=new Array('European','classification','','C01C123/12','@&&@###/##','@&&@#####','');
d[182]=new Array('E.E.C.','directive','','82/499/EEC','##/###/@@@','##/##/@@@','');
d[183]=new Array('Derabs','database number','','C2000-01330','@&&&&-##### ','','');
arraysize=183;

function submitenter(myfield,x){
var keycode;
if (window.event) keycode = window.event.keyCode;
else if (x) keycode = x.which;
else return true;
if (keycode == 13){
   doit();
   return false;}
else
   return true;
}

function undoit(){
myinput=document.uncol.inb.value;
document.getElementById('s').innerHTML="<br><b><b><font color='blue'>Results:<br><br>" ;
document.getElementById('s').innerHTML+="<b><font color='blue'>Intellectual Property document number formats in this category include: <br><br>";
for(i=0;i<=arraysize;i++){
   if (myinput==d[i][0] || myinput==d[i][1]){
      region=d[i][0];
      if(d[i][0]=="PC" ) region="PCT";
      if(d[i][0]=="US" ) region="American";
      if(d[i][0]=="FR" )  region="French";
      if(d[i][0]=="GB" ) region="British";
      if(d[i][0]=="JP" ) region="Japanese";
      if(d[i][0]=="EP" ) region="European";
      if(d[i][0]=="DE" ) region="German";
      if(d[i][0]=="IT" ) region="Italian";
      document.getElementById('s').innerHTML+="<br><font color='red'><b>"+region;
      if(d[i][1]=="P") document.getElementById('s').innerHTML+="<font color='red'><b> patent";
      if(d[i][1]=="P A") document.getElementById('s').innerHTML+="<font color='red'><b> patent application";
      if(d[i][1]=="P P") document.getElementById('s').innerHTML+="<font color='red'><b> patent publication";
      if(d[i][1]=="U M") document.getElementById('s').innerHTML+="<font color='red'><b> utility model";
      if(d[i][1]=="U M A") document.getElementById('s').innerHTML+="<font color='red'><b> utility model application";    
      if(d[i][1]=="U P") document.getElementById('s').innerHTML+="<font color='red'><b> utility patent";                  
      if(d[i][1]=="D") document.getElementById('s').innerHTML+="<font color='red'><b> design";
      if(d[i][1].length>5) document.getElementById('s').innerHTML+="<font color='red'><b> " + d[i][1] + " ";                                              
      document.getElementById('s').innerHTML+=" numbers can have the format " + d[i][3];
      if(d[i][2]=="D") document.getElementById('s').innerHTML+=" (A Derwent format)";
      if(d[i][2]=="S") document.getElementById('s').innerHTML+=" (An STN format)";
      if(d[i][2]=="W") document.getElementById('s').innerHTML+=" (A WPIL format)";
      if(myinput.charAt(myinput.length-2)==".") document.getElementById('s').innerHTML+=" (The last digit is a check digit)";
      if((myinput.charAt(myinput.length-2)=="A"||myinput.charAt(myinput.length-2)=="a") && myinput.charAt(myinput.length-1)=="1" && d[i][1]=="P") document.getElementById('s').innerHTML+=" (A1 means published with search report)";
      if((myinput.charAt(myinput.length-2)=="A"||myinput.charAt(myinput.length-2)=="a") && myinput.charAt(myinput.length-1)=="2" && d[i][1]=="P") document.getElementById('s').innerHTML+=" (A2 means published without search report)";
      if((myinput.charAt(myinput.length-2)=="A"||myinput.charAt(myinput.length-2)=="a") && myinput.charAt(myinput.length-1)=="3" && d[i][1]=="P") document.getElementById('s').innerHTML+=" (A3 means publication of the search report only)";
      if((myinput.charAt(myinput.length-2)=="B"||myinput.charAt(myinput.length-2)=="b") && myinput.charAt(myinput.length-1)=="1" && d[i][1]=="P") document.getElementById('s').innerHTML+=" (B1 means published as granted)";
      if((myinput.charAt(myinput.length-2)=="B"||myinput.charAt(myinput.length-2)=="b") && myinput.charAt(myinput.length-1)=="2" && d[i][1]=="P") document.getElementById('s').innerHTML+=" (B2 means published as amended by opposition)";
}}return(0);}

function doit() {
   myinput=document.col.ina.value;
   document.getElementById('s').innerHTML="<br><b><b><font color='blue'>Results:<br><br>" ;
   if(myinput!="")document.getElementById('s').innerHTML+="<b><font color='blue'>Intellectual Property document number formats nearest to " + myinput + ":<br><br>";
   modformat="";
   for(i=0;i<=myinput.length;i++){
      if(myinput.charAt(i)!=",") modformat+=myinput.charAt(i);
   }
   myinput=modformat;
   modformat="";
   for(i=0;i<=myinput.length;i++){
      for(j=0;j<91;j++){
      if(myinput.charAt(i)==charArray[j]){
         if(j<=11) modformat+="N";
         if(13<=j && j<=25) modformat+=charArray[j];
         if(26<=j && j<=32) modformat+="N";
         if(33<=j && j<=58) modformat+="@";
         if(59<=j && j<=64) modformat+="N";
         if(65<=j && j<=91) modformat+="@";
}  }  }
   datestart="";
   datelength=0;
   if(datelength==0){
      for(i=0;i<=(modformat.length-5) && datelength==0;i++){
         if((modformat.charAt(i)=="." || modformat.charAt(i)=="-" || modformat.charAt(i)=="/" || modformat.charAt(i)=="@") && modformat.charAt(i+1)==1 && modformat.charAt(i+2)==9 && modformat.charAt(i+3)<=9 && modformat.charAt(i+3)>=7 && modformat.charAt(i+4)>=0 && modformat.charAt(i+4)<=9){
            datestart=i+1;
            datelength=4;}  }  }
   if(datelength==0){
      for(i=0;i<=(modformat.length-5) && datelength==0;i++){
         if((modformat.charAt(i)=="." || modformat.charAt(i)=="-" || modformat.charAt(i)=="/" || modformat.charAt(i)=="@") && modformat.charAt(i+1)==2 && modformat.charAt(i+2)==0 && modformat.charAt(i+3)==0 && modformat.charAt(i+4)>=0 && modformat.charAt(i+4)<=5){
            datestart=i+1;
            datelength=4;}  }  }
   if(datelength==0){
      for(i=0;i<=(modformat.length-5) && datelength==0;i++){
         if((modformat.charAt(i+4)=="." || modformat.charAt(i+4)=="-" || modformat.charAt(i+4)=="/" || modformat.charAt(i+4)=="@") && modformat.charAt(i)==1 && modformat.charAt(i+1)==9 && modformat.charAt(i+2)<=9 && modformat.charAt(i+2)>=4 && modformat.charAt(i+3)>=0 && modformat.charAt(i+3)<=9){
            datestart=i;
            datelength=4;}  }  }
   if(datelength==0){
      for(i=0;i<=(modformat.length-5) && datelength==0;i++){
         if((modformat.charAt(i+4)=="." || modformat.charAt(i+4)=="-" || modformat.charAt(i+4)=="/" || modformat.charAt(i+4)=="@") && modformat.charAt(i)==2 && modformat.charAt(i+1)==0 && modformat.charAt(i+2)==0 && modformat.charAt(i+3)>=0 && modformat.charAt(i+3)<=5){
            datestart=i;
            datelength=4;}  }  }
   if(datelength==0){
      for(i=0;i<=(modformat.length-3) && datelength==0;i++){
         if((modformat.charAt(i+2)=="." || modformat.charAt(i+2)=="-" || modformat.charAt(i+2)=="/" || modformat.charAt(i+2)=="@") && ((modformat.charAt(i)==9 && modformat.charAt(i+1)>=0 && modformat.charAt(i+1)<=9) || (modformat.charAt(i)==0 && modformat.charAt(i+1)>=0 && modformat.charAt(i+1)<=5))) {
            datestart=i;//( c )tjdpatentservices
            datelength=2;}  }  }
   modformat2="";
   for(i=0;i<=modformat.length;i++){
      if(datelength>0 && i>=datestart && i<(datestart+datelength)){
         modformat2+="&";}
      if(i<datestart || i>=(datestart+datelength)){
         for(j=0;j<91;j++){
            if(modformat.charAt(i)==charArray[j]){
               if(j>=16 && j<=25){
                  modformat2+="#";}
               if(j<=15 || j>=26){
                  modformat2+=modformat.charAt(i);}  }  }  }  }
    region="";
    regioncode="";
    nn=myinput;
    for(i=0;i<=nn.length-1;i++){ 
         if((nn.charAt(i)=="D" || nn.charAt(i)=="d")&&(nn.charAt(i+1)=="E" || nn.charAt(i+1)=="e")) regioncode="DE";
         if((nn.charAt(i)=="G" || nn.charAt(i)=="g")&&(nn.charAt(i+1)=="B" || nn.charAt(i+1)=="b")) regioncode="GB";
         if((nn.charAt(i)=="U" || nn.charAt(i)=="u")&&(nn.charAt(i+1)=="S" || nn.charAt(i+1)=="s")) regioncode="US";
         if((nn.charAt(i)=="F" || nn.charAt(i)=="f")&&(nn.charAt(i+1)=="R" || nn.charAt(i+1)=="r"))  regioncode="FR";
         if((nn.charAt(i)=="E" || nn.charAt(i)=="e")&&(nn.charAt(i+1)=="P" || nn.charAt(i+1)=="p")) regioncode="EP";
         if((nn.charAt(i)=="J" || nn.charAt(i)=="j")&&(nn.charAt(i+1)=="P" || nn.charAt(i+1)=="p")) regioncode="JP";
         if((nn.charAt(i)=="I" || nn.charAt(i)=="i")&&(nn.charAt(i+1)=="T" || nn.charAt(i+1)=="t")) regioncode="IT";
         if((nn.charAt(i)=="P" || nn.charAt(i)=="p") && (nn.charAt(i+1)=="C" || nn.charAt(i+1)=="c")) regioncode="PC";
         if((nn.charAt(i)=="W" || nn.charAt(i)=="w") && (nn.charAt(i+1)=="O" || nn.charAt(i+1)=="o")) regioncode="PC";
         if(regioncode!="") i=nn.length;}
     maxnumberlength=0;
     maxnumberstart=0;
     theorder=new Array();
     theorder[0]=1;
     theorder[1]=1;
     theorder[2]=-3;
     theorder[3]=-1;
     newnumberlength=0;
     allstop=0;
     formatlength=modformat2.length;
     for(i=0;i<=formatlength;i++){
         if(modformat2.charAt(i)=="#"){
            numberlength=1;
            stop=0;
            numberstart=i;
            for(j=i+1;j<=modformat2.length && stop==0;j++){
               if(modformat2.charAt(j)=="#") numberlength++;
               else stop==1;}
            if(numberlength>maxnumberlength){
               maxnumberlength=numberlength;
               maxnumberstart=numberstart;}  }  }
      newnumberlength=maxnumberlength;
      j=0;
      if(myinput!=""){
      for(x=0;x<=3 && allstop==0;x++){
//document.getElementById('s').innerHTML+=" modformat= "+modformat2 + " region= " +region+" regioncode="+regioncode;
         for(i=0;i<=arraysize && allstop==0;i++){
//document.getElementById('s').innerHTML+=" i= "+i;
            if((d[i][4]==modformat2 && d[i][4].length==modformat2.length) || (d[i][5]==modformat2 && d[i][5].length==modformat2.length)){
               if ((regioncode=="")||(d[i][0]==regioncode&&regioncode!="")){
                  region=d[i][0];
                  if(d[i][0]=="PC") region="PCT";
                  if(d[i][0]=="US") region="American";
                  if(d[i][0]=="FR")  region="French";
                  if(d[i][0]=="GB") region="British";
                  if(d[i][0]=="JP") region="Japanese";
                  if(d[i][0]=="EP") region="European";
                  if(d[i][0]=="DE") region="German";
                  if(d[i][0]=="IT") region="Italian";
                  document.getElementById('s').innerHTML+="<font color='red'><b>"+region;
                  if(d[i][1]=="P") document.getElementById('s').innerHTML+="<font color='red'><b> patent";
                  if(d[i][1]=="P A") document.getElementById('s').innerHTML+="<font color='red'><b> patent application";
                  if(d[i][1]=="P P") document.getElementById('s').innerHTML+="<font color='red'><b> patent publication";
                  if(d[i][1]=="U M") document.getElementById('s').innerHTML+="<font color='red'><b> utility model";
                  if(d[i][1]=="U M A") document.getElementById('s').innerHTML+="<font color='red'><b> utility model application";    
                  if(d[i][1]=="U P") document.getElementById('s').innerHTML+="<font color='red'><b> utility patent";                  
                  if(d[i][1]=="D") document.getElementById('s').innerHTML+="<font color='red'><b> design";
                  if(d[i][1].length>5) document.getElementById('s').innerHTML+="<font color='red'><b> " + d[i][1] + " ";                                              
                  document.getElementById('s').innerHTML+=" numbers have the format " + d[i][3];
                  if(d[i][2]=="D") document.getElementById('s').innerHTML+=" (A Derwent format)";
                  if(d[i][2]=="S") document.getElementById('s').innerHTML+=" (An STN format)";
                  if(d[i][2]=="W") document.getElementById('s').innerHTML+=" (A WPIL format)";
                  if(myinput.charAt(myinput.length-2)==".") document.getElementById('s').innerHTML+=" (The last digit is a check digit)";
                  if((myinput.charAt(myinput.length-2)=="A"||myinput.charAt(myinput.length-2)=="a") && myinput.charAt(myinput.length-1)=="1" && d[i][1]=="P") document.getElementById('s').innerHTML+=" (A1 means published with search report)";
                  if((myinput.charAt(myinput.length-2)=="A"||myinput.charAt(myinput.length-2)=="a") && myinput.charAt(myinput.length-1)=="2" && d[i][1]=="P") document.getElementById('s').innerHTML+=" (A2 means published without search report)";
                  if((myinput.charAt(myinput.length-2)=="A"||myinput.charAt(myinput.length-2)=="a") && myinput.charAt(myinput.length-1)=="3" && d[i][1]=="P") document.getElementById('s').innerHTML+=" (A3 means publication of the search report only)";
                  if((myinput.charAt(myinput.length-2)=="B"||myinput.charAt(myinput.length-2)=="b") && myinput.charAt(myinput.length-1)=="1" && d[i][1]=="P") document.getElementById('s').innerHTML+=" (B1 means published as granted)";
                  if((myinput.charAt(myinput.length-2)=="B"||myinput.charAt(myinput.length-2)=="b") && myinput.charAt(myinput.length-1)=="2" && d[i][1]=="P") document.getElementById('s').innerHTML+=" (B2 means published as amended by opposition)";
                  if(d[i][6]!=""&&d[i][6].charAt(0)!="(") {
                     tempdata= "<a href=\"";
                     for(j=6;j<=11;j++){
                        for(k=d[i][j];(d[i][j]=="2"||d[i][j]=="0")&&k<myinput.length;k++){
                             tempdata+=myinput.charAt(k);
                        }  
                        if(d[i][j].length>1) tempdata+=d[i][j];
                     }
                     tempdata+= '\" target=\"_blank\">This link requests document '+myinput +' from '+d[i][2]+'</a>';
                     document.getElementById('s').innerHTML+=" "+tempdata;
                  }
                  if(d[i][6].charAt(0)=="(") document.getElementById('s').innerHTML+=d[i][6];
                  document.getElementById('s').innerHTML+="<br>";
                  j=1;}  }  }
         modformattemp="";                   
         for(i=0;i<=modformat2.length;i++){
            if(i==maxnumberstart){ 
               if(theorder[x]==1) modformattemp+="#";
               if(theorder[x]==1)     newnumberlength+=1;
               if(theorder[x]==-3 && newnumberlength<8) allstop=1;
               if(theorder[x]==-3 &&  newnumberlength>=8) i+=3, newnumberlength-=3;
               if(theorder[x]==-1 && newnumberlength<6) allstop=1;
               if(theorder[x]==-1 && newnumberlength>=6) i+=1, newnumberlength-=1;
            }
            modformattemp+=modformat2.charAt(i);
         }
         modformat2=modformattemp;}}
    document.getElementById('s').innerHTML+="<font color='blue'>";
    if(j==0) document.getElementById('s').innerHTML+="Sorry, no formats were found which were close matches ";
    document.getElementById('s').innerHTML+="</font>";
    return(0);}