var searchdata, tempstr="",tempstr2,i,j,rannum=Math.round(Math.random(1)*100000),
fcolor='<font face="verdana" color="#0000dd">',cstr,numtoshow,found,screenwin,stks=new Array(),surl='http://www.stockconsultant.com/',
stylestr2='style="font: normal 13px arial,helvetica,sans-serif;"',stylestr3='style="font: normal 12px arial,helvetica,sans-serif;"',
buttonst='style="background-color: #C4DF9B; color: #000000; font: bold 12px verdana,arial,helvetica,sans-serif; cursor:pointer; cursor:hand;"',
progname="basicplus", dbak=0, fselect=0, sortby=-1, newwindow=0,
sortbydata=new Array(0,2,4), /* long, short, sort by price? */
displaydata=new Array('','01236','01457'), /* long, short */
fldname=new Array("Price","Typ Volume","T1 Profit","Breakout","S1 Profit","Breakdown","Typ Rally","Typ Pullback","",""),
/*                   0        1           2             3          4           5           6             7         */
descrip=new Array('~0-5~5-12~12-25~25-40~40-70~> 70','~0-100K~100K-300K~300K-600K~600K-1M~> 1Mil','~0-5%~5-9%~9-16%~16-25%~> 25%','N/A~0-5%~5-9%~9-16%~16-25%~> 25%','~0-5%~5-9%~9-16%~16-25%~> 25%','N/A~0-5%~5-9%~9-16%~16-25%~> 25%','~0-5%~5-9%~9-16%~16-25%~> 25%','~0-5%~5-9%~9-16%~16-25%~> 25%','',''),
headstr='<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><style>HTML, BODY {margin:3; padding:0;}TT{font: normal 11px arial,sans-serif,helvetica; }TD{font: normal 13px arial,sans-serif,helvetica;}.zoo{font: bold 16px verdana,arial,sans-serif,helvetica; color:#000000;}.z4{font: normal 13px verdana,arial,sans-serif,helvetica; color:#000000;}</style></head><body bgcolor="#F9F0DF" link="#0000FF"  vlink="#0000FF" text="#000000">',sortbynum, nmlimit, nmsort, wastot=0,
disclaimertxt='<b>*** Disclaimer:</b> "Stocks To Watch" are NOT stock picks and is NOT investment advice on which stocks to buy or short. Dan Chapman and associates of Chapman Advisory Group are not investment advisors, please check with a registered investment advisor before investing. Dan Chapman and associates of Chapman Advisory Group may buy, short, hold or sell one or more stocks listed in the long and/or short "Stocks To Watch" lists at any time.';
function checkifpres(ts){
  if ((typeof(ts)!='string')||(typeof(ts)=='undefined')||
     (ts==null)||(ts=='null')||(ts=='undefined')) return(0); 
  return(1); 
}
function getsetCookie(get,name,v){
  var t1,t2,tr,ns2,ns,i,j,cs1,cs2,ts,re;
  if (get){
    re = document.cookie.match ( '(^|;) ?' + name + '=([^;]*)(;|$)' );
    if (re) v=unescape(re[2]);
    else v=null;
  }
  if (v!=null) return(v);
  else return("");
}
var tempstr3=window.location.search,issample=0,idnum="ID=381290",counterstr="Memb";
if (tempstr3.indexOf(idnum)<0){idnum="ID=sample"; issample=1; counterstr="Free";}
var isuser=getsetCookie(1,'username','');
issample=!((checkifpres(isuser))&&(isuser.length>2)&&(isuser.indexOf('@')>0));
if (issample) {idnum="ID=sample";counterstr="Free";} else { idnum="ID=381290";counterstr="Memb";}
if (tempstr3.indexOf("affil=nasdaq")>=0){counterstr+="_Naz"; setCookieHome('sc_affil','nasdaq'); newwindow=1;}



  if (tempstr3.indexOf("neww=1")>=0) newwindow=1;
  if (tempstr3.indexOf("type=")>=0){
    var tempnum=tempstr3.split("type="); tempnum=tempnum[1].split("&");
    fselect=parseInt(tempnum[0]);
  }
  if (tempstr3.indexOf("dbak=")>=0){
    var tempnum=tempstr3.split("dbak="); tempnum=tempnum[1].split("&");
    dbak=parseInt(tempnum[0]);
  }
  if (tempstr3.indexOf("sortby=")>=0){
    var tempnum=tempstr3.split("sortby="); tempnum=tempnum[1].split("&");
    sortby=parseInt(tempnum[0]);
  }

function openwin(name){ var winsize='resizable=1,toolbar=1,location=1,menubar=1,status=1,scrollbars=1,';
  if (screen.width>810) winsize+='width=843,height=700,left=70,top=20,screenX=70,screenY=20';
  else winsize+='width=790,height=550,left=5,top=5,screenX=5,screenY=5';
  screenwin=window.open(name,'screenwin',winsize); screenwin.focus(); 
}
function callstk(num){ var rannum=Math.round(Math.random(1)*100000); if ((newwindow==1) || (!opener) || (opener.closed)) openwin(surl+"consultnow/"+progname+".cgi?"+idnum+"&symbol="+stks[num]+"&"+rannum); else opener.location.href=surl+"consultnow/"+progname+".cgi?"+idnum+"&symbol="+stks[num]+"&"+rannum; }
function screenit(num,num2,num3){ 
  var rannum=Math.round(Math.random(1)*100000), dbakstr=""; 
  /* fselect is the type 0=none, 1=long, 2=short */
  if (num<0) { dbak=top.frames[0].document.sform.daysb.selectedIndex; if (dbak>0) dbakstr="_"+dbak;
    top.location.href=surl+"consultnow/stockstowatch"+dbakstr+".htm?"+idnum+"&dbak="+dbak+"&neww="+newwindow+"&type="+fselect+"&sortby="+sortby+"&"+rannum; }
  else {
    if ((num2==0)&&(issample>=1)){ window.alert("-- Custom sorting for members only --"); return;} 
    if (num2==1) {sortby=-1; if (num==0) fselect=num3;} else sortby=num; writeoutput(); 
  } 
}
function setCookieHome(name, value) { var cooktime6mo = new Date(); cooktime6mo.setTime(cooktime6mo.getTime() + 15.552E9); /* 6 month cookie */ document.cookie=name + "=" + escape(value) + "; expires=" + cooktime6mo.toGMTString() + "; path=/;"; }
function signupwin() { if ((newwindow==1) || (!opener) || (opener.closed)) openwin(surl+"signup.html"); else opener.location.href=surl+"signup.html"; window.close(); }
function sortwithvol(a,b){ if (a.substr(sortbynum,1)==b.substr(sortbynum,1)) return (0);  return ((a.substr(sortbynum,1)>b.substr(sortbynum,1))? -1 : 1); };
function writehead(){
  var l3=new Array(),n=0,i,tempstr="",tempstr2="";
  l3[n]=headstr+'<form name="sform" method="post" action="javascript:parent.screenit(-1,0,0)"><table border=0 cellpadding=5 cellspacing=0 width=100%><tr><td><span class=zoo>Stocks To Watch</span></td><td align=right><a href="javascript:top.window.close()">Close Window</a> &nbsp; &nbsp; </td></tr>';n++;
  l3[n]='<tr><td colspan=2 height=6></td></tr><tr><td nowrap colspan=2> &nbsp; ';n++;
  l3[n]='<SELECT onFocus="this.focus()" name="daysb" '+stylestr3+' onChange="javascript:parent.screenit(-1,0,0)">';n++;
  for (i=0;i<6;i++) { if (i!=dbak) tempstr=''; else tempstr='SELECTED'; l3[n]='<option '+tempstr+'>';n++;
    if (i==0) tempstr2='Current report'; else if (i==1) tempstr2='1 report ago'; else tempstr2=i+' reports ago'; 
    l3[n]=tempstr2+'</option>';n++;
  }
  l3[n]='</select> &nbsp; &nbsp; <b>'+fcolor+'Select:</b></font> &nbsp;  <input '+buttonst+' type="BUTTON" name="go1" value="Long Stocks" onClick="javascript:parent.screenit(0,1,1)">&nbsp; &nbsp; <input '+buttonst+' type="BUTTON" name="go2" value="Short Stocks" onClick="javascript:parent.screenit(0,1,2)">';n++;
  l3[n]='</form></td></tr></table>';n++;
  top.frames[0].document.open(); top.frames[0].document.clear();
  top.frames[0].document.write(l3.join(""));
  top.frames[0].document.close(); 
}
function writeoutput() {
var l3=new Array(),n=0,tempstr='',i,datestr='',stockstr='',firsttime=0,
tempstr2=new Array("","<b>Long</b> (upside) stocks to watch","<b>Short</b> (downside) stocks to watch");
if (fselect>=1){ datestr=stocks[fselect].split("~"); if (datestr[2].length>5) datestr='  &#8594;'+datestr[2]; else datestr=''; datestr+=' &nbsp; &nbsp;  &#8594;<a href="javascript:parent.screenit(-1,0,0)">Refresh</a>';}
else { if (issample>=1) datestr=', &nbsp; Non-members version.'; else datestr=', &nbsp; Members version.'; firsttime=1; }
l3[n]=headstr+'<table border=0 cellpadding=5 cellspacing=0 width=100%><tr><td><table bgcolor="#33CC99" border=1 bordercolor="#33CC99" cellpadding=1 cellspacing=0><tr><td bgcolor="#FFFFFF"><table border=0 cellpadding=6 cellspacing=0><tr><td><font face="verdana"><b>Report</b>'+datestr+'</font></td></tr><tr><td>';n++;
if (sortby<0) sortbynum=sortbydata[fselect]; else sortbynum=sortby;
if (fselect<1) { /* not long=1 or short=2 */
  l3[n]='<table border=0 cellpadding=3 cellspacing=0><tr><td><table border=0 cellpadding=4 cellspacing=0>';n++;
  l3[n]='<tr><td nowrap valign=top><img border=0 src="../img/tbull.gif" WIDTH="12" HEIGHT="13" align="top"></td><td>Long and short "Stocks To Watch" selected by founder Dan Chapman.</td></tr>';n++;
  l3[n]='<tr><td nowrap valign=top><img border=0 src="../img/tbull.gif" WIDTH="12" HEIGHT="13" align="top"></td><td>Select a long or short stocks to watch list above for a listing of up to 70 stocks each. Each list can be sorted by various indicators and copy and pasted into one of the 8 StockConsultant user lists.</td></tr>';n++;
  if (issample==1){ 
    l3[n]='<tr><td nowrap valign=top><img border=0 src="../img/tbull.gif" WIDTH="12" HEIGHT="13" align="top"></td><td>Members please login and access the tool from the main Consultant page.</td></tr>';n++;
    l3[n]='<tr><td nowrap valign=top><img border=0 src="../img/tbull.gif" WIDTH="12" HEIGHT="13" align="top"></td><td>Non members receive 3 stocks per watch list.<br><br> &nbsp; &nbsp; &nbsp; <a href="'+surl+'signup.html" target="_new"><b>Sign up</b></a> to view the complete watch list!</td></tr>';n++;
    }
  l3[n]='</table></td></tr></table></td></tr></table></td></tr>';n++;
}
else {
var searchdata=stocks[fselect].split("~"),datanum,symlist="";
l3[n]='<span  style="line-height:1.6em;"><b>'+fcolor+'List:</font></b> '+tempstr2[fselect]+'<br><b>'+fcolor+'Sorted by:</font></b> <b>'+fldname[sortbynum]+'</b>&nbsp;<font color="#0000ee">(click on a heading below to change sort)</font> &nbsp; &nbsp; </font><tt><a href="javascript:window.print()">Print Page</a></tt></span></td></tr></table></td></tr>';n++;
if (searchdata[fselect]!="") tempstr=searchdata[1].split(","); else {tempstr=""; wastot=0;}
l3[n]='<tr><td bgcolor="#bbbbbb"><table border=0 cellpadding=3 cellspacing=1 width=100%>';n++;
 if (tempstr.length>0){
  if (issample==1){wastot=tempstr.length; nmlimit=3;
    if (wastot>nmlimit) numtoshow=nmlimit; else numtoshow=wastot;
  } else {numtoshow=tempstr.length; wastot=numtoshow;}
  tempstr.sort(sortwithvol);
  if (numtoshow>70) numtoshow=70;
  for (i=0;i<numtoshow;i++) {
    if ((i%10)==0){
      l3[n]='<tr><td bgcolor="#3871BC"><font color="#FFFFFF">&nbsp;Symbol&nbsp;</font></td>';n++;
      for (j=0;j<displaydata[fselect].length;j++) {l3[n]='<td bgcolor="#0066CC" nowrap>&nbsp;<a href="javascript:parent.screenit('+displaydata[fselect].substr(j,1)+',0,0)"><font color="#FFFFFF">'+fldname[displaydata[fselect].substr(j,1)]+'</font></a>&nbsp;</td>';n++;}
      l3[n]='</tr>';n++;
    }
    if ((i % 3)==0) cstr='bgcolor="#eeeeee"'; else cstr='bgcolor="#FFFFFF"';
    stks[i]=tempstr[i].substr(8,tempstr[i].length-8);
    l3[n]='<tr '+cstr+'><td>'+(i+1)+'.&nbsp;<a href="javascript:parent.callstk('+i+')">'+stks[i]+'</a>&nbsp;</td>';n++;
    for (j=0;j<displaydata[fselect].length;j++) { 
        datanum=Math.floor(displaydata[fselect].substr(j,1));
        tempstr2=descrip[datanum].split("~");
        l3[n]='<td>&nbsp;'+tempstr2[tempstr[i].substr(datanum,1)]+'&nbsp;</td>';n++;
    }
    l3[n]='</tr>';n++;
  }  
 } else { l3[n]='<tr><td bgcolor="#FFFFFF"><br> &nbsp; <font face="verdana"><b>*** No stocks to watch at this time</b></font>  &nbsp; <br><br></td></tr>';n++;}
l3[n]='</table></td></tr>';n++;
if ((issample==0)&&(tempstr.length>0)){
  if (wastot>numtoshow){ l3[n]='<tr><td bgcolor="#FFFFFF"><table border=0 cellpadding=5 cellspacing=0><tr><td><b>***</b> Showing the top <b>'+numtoshow+' out of '+wastot+'</b> found. Sorted by: <b>'+fldname[sortbynum]+'</b>.</td></tr></table></td></tr>';n++;}
  l3[n]='<tr><td bgcolor="#FFFFFF"><table border=0 cellpadding=5 cellspacing=0><tr><td><b>'+fcolor+'Symbol List:</font></b> (Sorted by "'+fldname[sortbynum]+'")<tt><br> &nbsp; &nbsp; (copy-n-paste into one of 8 user lists and set to no sort to keep search order,<br> 10 stocks listed per row)</tt></td></tr><tr><td>&nbsp;&nbsp;';n++;
  if (numtoshow>70) numtoshow=70;
  for (i=0;i<numtoshow;i++){ if (i<(numtoshow-1)) l3[n]=stks[i]+","; else l3[n]=stks[i]; n++; if ((i==9)||(i==19)||(i==29)||(i==39)||(i==49)||(i==59)) {l3[n]='<br>';n++;} }
  l3[n]='&nbsp;&nbsp;<br><br></td></tr></table></td></tr>';n++;
}
if ((issample==1)&&(wastot>nmlimit)) {l3[n]='<tr><td bgcolor="#FFFFFF"><br>&nbsp;<span class="z4"><b>'+nmlimit+' out of '+wastot+'</b> stocks displayed<br><br>&nbsp; &nbsp; &nbsp; <a href="'+surl+'signup.html" target="_new"><b>Sign up</b></a> to view the complete list!</span><br><br></td></tr>';n++;}
if (tempstr.length>0){l3[n]='<tr><td bgcolor="#FFFFFF"><table border=0 cellpadding=5 cellspacing=0><tr><td><tt><b>Notes:</b> Some stocks may appear in both the long and short watch lists. Here are three examples out of many possibilities: 1. A bottoming (at support) long watch stock may also be a possible short watch breakdown. 2. An uptrending (at support) long watch stock may also be a possible short watch breakdown. 3. A topping (at resistance) short watch stock may also be a possible long watch breakout.</tt></td></tr></table></td></tr>';n++;}
}
var googlead='';
if (issample==1) googlead='<tr><td height=6></td></tr><tr><td nowrap><a href="http://www.adtrader.com/ads/adlink.asp?POS=1&SN=1350&rn='+rannum+'" target="_blank"><img style="border:1px solid grey;" width=468 height=60 src="http://www.adtrader.com/ads/adserve.asp?POS=1&SN=1350&rn='+rannum+'"></a></td></tr>';
l3[n]='</table><br><table border=0 cellpadding=5 cellspacing=0 width=100%><tr><td><tt>'+disclaimertxt+'</tt></td></tr><tr><td height=8></td></tr>'+googlead+'</table><br></td></tr></table></body></html>';n++;
top.frames[1].document.open(); top.frames[1].document.clear();
top.frames[1].document.write(l3.join(""));
if (firsttime==1){
//<![CDATA[
top.frames[1].document.write('<scr'+'ipt language="javascript" src="http://www.stockconsultant.com/twatch/jslogger.php?ref='+( document["referrer"]==null?'':escape(document.referrer))+'&pg='+escape(window.location)+'&pagepre='+counterstr+'"></scr'+'ipt>');
//]]>
}
top.frames[1].document.close();
}

