Nightly update (ISO SHA-1 b968ab1)

TempleOSCD/Adam/ADefine.HC

@@ -18,7 +18,7 @@ U0 LoadDocDefines()
   //$LK,"DD_BOOT_HIGH_LOC_DVD",A="FF:::/Adam/Opt/Boot/BootDVD.HC,DD_BOOT_HIGH_LOC_DVD"$
 
   $TR-C,"LineRep"$
-$ID,4$DefinePrint("DD_TEMPLEOS_LOC","120,793");
+$ID,4$DefinePrint("DD_TEMPLEOS_LOC","120,834");
 DefinePrint("DD_TEMPLEOS_LOC_OFFICIAL","82,152");
 $ID,-4$
   DefinePrint("DD_MP_VECT","%08X",MP_VECT_ADDR);

TempleOSCD/Adam/God/HSNotes.DD

@@ -81,7 +81,7 @@ On socialism?			$FG,4$"pardon_the_French, never_happy, never_enough"$FG$
 On overpopulation		$FG,4$"Okay church what_now whats_the_plan"$FG$
 Favorite thing on TV?		$FG,4$"Soap_operas"$FG$
 Favorite movie?			$FG,4$$TX,"Three Kings",HTML="http://www.youtube.com/watch?v=8NOAd2mldQ8"$. Also Highlander$FG$
-Favorite song?			$FG,4$$TX,"Morning has Broken",HTML="http://www.youtube.com/watch?v=qH0iFkxQba4"$
+Favorite song?			$FG,4$$TX,"Morning has Broken",HTML="http://www.youtube.com/watch?v=e0TInLOJuUM"$
 				God said the first bird croaked, not sung.$FG$
 Favorite comic strip?		$FG,4$$TX,"Prince Valiant",HTML="http://en.wikipedia.org/wiki/Prince_Valiant"$$FG$
 Shakespeare?			$FG,4$had a "vile heart"$FG$

TempleOSCD/Compiler/CompilerB.HH

@@ -21,6 +21,7 @@ extern U0 StreamDir();
 public extern I64 StreamExePrint(U8 *fmt,...);
 public extern U0 StreamPrint(U8 *fmt,...);
 public extern Bool Trace(Bool val=ON);
+
 #help_index "Compiler/Lex"
 #help_file "::/Doc/Lex"
 extern U0 ClassMemberLstDel(CHashClass *c);

TempleOSCD/Demo/AcctExample/PersonalNotes.DD

@@ -461,6 +461,8 @@ Purple Frog	$HC,"<center><img src=\"https://s-media-cache-ak0.pinimg.com/736x/fb
 Casino (Dog)	$HC,"<center><img src=\"http://www.templeos.org/images/Dog1855x1056.jpg\" width=\"640\" height=\"364\" alt=\"\"></center>"$
 Sombrero	$HC,"<center><img src=\"https://upload.wikimedia.org/wikipedia/commons/5/5e/M104_ngc4594_sombrero_galaxy_hi-res.jpg\" width=\"640\" height=\"359\" alt=\"\"></center>"$
 Zinger		$HC,"<center><img src=\"http://media.shopwell.com/gladson/00041300000031_full.jpg\" width=\"432\" height=\"234\" alt=\"\"></center>"$
+Dianna Throne	$HC,"<center><img src=\"http://i.imgur.com/RtcK6iX.jpg%EF%BB%BF\" width=\"640\" height=\"746\" alt=\"\"></center>"$
+170310 Terry	$HC,"<center><img src=\"http://www.templeos.org/images/170310TerryADavis.jpg\" width=\"640\" height=\"640\" alt=\"\"></center>"$
 
 $TX,"SimStructure",HTML="http://www.templeos.org/files/SimStrSetUp.zip"$
 $TX,"ASU_Transcripts",HTML="http://www.templeos.org/files/ASU_Transcripts.pdf"$      $TX,"ASU Course Catalog (See page 261)",HTML="https://catalog.asu.edu/files/shared/archives/1994-1996/general/UG1994-1996.pdf/1994-1996-UG-241-267.pdf"$

TempleOSCD/Demo/AcctExample/Registry.HC

@@ -62,7 +62,7 @@ $ID,-2$$TR,"Titanium"$
 $ID,2$I64 best_score=16469;
 $ID,-2$$TR,"TOSRegen"$
 $ID,2$progress1_tf=0.000;progress2_tf=0.000;
-progress3_tf=0.000;progress4_tf=195.473;
+progress3_tf=0.000;progress4_tf=195.789;
 $ID,-2$$ID,-2$$TR,"Once"$
 $ID,2$$TR,"Adam"$
 $ID,2$$ID,-2$$TR,"User"$

TempleOSCD/Demo/AcctExample/TOS/TOSExt.HC

@@ -167,6 +167,25 @@ class CPaintings1000Form
   I64	cert;
 };
 
+class CPoems100Form
+{
+  I64	timestamp;
+  U8	rnd0[512]	fmtstr "$$DA-P,"
+	"A=\"Poems #00-99 (2 Decimal Digits from Hex):%s\"$$\n";
+  U8	rnd1[512];
+  U8	rnd2[512];
+  U8	rnd3[512];
+  U8	rnd4[512];
+  U8	rnd5[512];
+  U8	rnd6[512];
+  U8	rnd7[512];
+  U8	rnd8[512];
+  U8	rnd9[512];
+  U8	rndA[512];
+  U8	rndB[512];
+  I64	cert;
+};
+
 class CMetallicaForm
 {
   I64	timestamp;

TempleOSCD/Demo/AcctExample/TOS/TOSHolySpirit.HC

@@ -453,7 +453,7 @@ U0 TimerGodIns()
   FifoU8Flush(god.fifo);
   GodBitsIns(GOD_GOOD_BITS,KbdMsEvtTime>>GOD_BAD_BITS);
   switch (PopUpPickLst("Hex5Bible\0Hex8Books\0Doodle\0Movie100\0Painting100\0"
-	"Painting1000\0Metallica\0")) {
+	"Painting1000\0Poems100\0Metallica\0")) {
     case:
       StrPrint(buf,"%05X",GodBits(5*4));
       "$$TX,\"How this random Bible passage was chosen.\","
@@ -487,6 +487,12 @@ U0 TimerGodIns()
 	    "nsf/ListOfTop1000MostPopularPainting",
 	    buf,3,"~/Sup1/Sup1Blog/Paintings1000.DD.Z");
       break;
+    case:
+      StrPrint(buf,"%05X",GodBits(2*5*4)); //Little bit risky if no dec.
+      GodWebIdx("Top 100 Poems",
+	    "http://100.best-poems.net/top-100-best-poems.html",
+	    buf,2,"~/Sup1/Sup1Blog/Poems100.DD.Z");
+      break;
     case:
       StrPrint(buf,"%05X",GodBits(2*5*4)); //Little bit risky if no dec.
       GodVideoDigits("Metallica Song",
@@ -520,7 +526,7 @@ public U0 GodIns()
 	"$$TX,\"%$$Q\",HTML=\"%$$Q\"$$\n",tag,tag;
 	switch (PopUpPickLst("ExtDec5Bible\0LinuxWords\0HappyWords\0"
 	      "Words1000\0Words10k\0Hex5Bible\0Hex8Books\0Doodle\0Movie100\0"
-	      "Painting100\0Painting1000\0Metallica\0")) {
+	      "Painting100\0Painting1000\0Poems100\0Metallica\0")) {
 	  case:
 	    if (DocForm(gm(CRandExtDec5Form *)))
 	      TOSBookLines("~/Sup1/Sup1Blog/NumBible.TXT",ST_BIBLE_LINES,
@@ -589,6 +595,13 @@ public U0 GodIns()
 		    gm->rnd0,3,"~/Sup1/Sup1Blog/Paintings1000.DD.Z");
 	    }
 	    break;
+	  case:
+	    if (DocForm(gm(CPoems100Form *))) {
+	      GodWebIdx("Top 100 Poems",
+		    "http://100.best-poems.net/top-100-best-poems.html",
+		    gm->rnd0,2,"~/Sup1/Sup1Blog/Poems100.DD.Z");
+	    }
+	    break;
 	  case:
 	    if (DocForm(gm(CMetallicaForm *)))
 	      GodVideoDigits("Metallica Song",

TempleOSCD/Demo/AcctExample/TOS/TOSNIST.HC

@@ -49,7 +49,7 @@ U0 NISTGodIns1()
 {
   tos_type=PopUpPickLst("ExtDec5Bible\0LinuxWords\0HappyWords\0Words1000\0"
 	"Words10k\0Hex5Bible\0Hex8Books\0Doodle\0Movie100\0Painting100\0"
-	"Painting1000\0Metallica\0");
+	"Painting1000\0Poems100\0Metallica\0");
   switch (tos_type) {
     case: tos_timestamp=GodHeaderIns("Bible");		break;
     case: tos_timestamp=GodHeaderIns("LinuxWords");	break;
@@ -62,6 +62,7 @@ U0 NISTGodIns1()
     case: tos_timestamp=GodHeaderIns("Movie100");	break;
     case: tos_timestamp=GodHeaderIns("Painting100");	break;
     case: tos_timestamp=GodHeaderIns("Painting1000");	break;
+    case: tos_timestamp=GodHeaderIns("Poems100");	break;
     case: tos_timestamp=GodHeaderIns("Metallica");	break;
   }
   Once("tos_timestamp=%d;\ntos_type=%d;\n"
@@ -158,6 +159,14 @@ U0 NISTGodIns2()
 	      gm->rnd0,3,"~/Sup1/Sup1Blog/Paintings1000.DD.Z");
       }
       break;
+    case:
+      if (DocForm(gm(CPoems100Form *))) {
+	NISTBeaconURL(gm->timestamp);
+	GodWebIdx("Top 100 Poems",
+	      "http://100.best-poems.net/top-100-best-poems.html",
+	      gm->rnd0,2,"~/Sup1/Sup1Blog/Poems100.DD.Z");
+      }
+      break;
     case:
       if (DocForm(gm(CMetallicaForm *))) {
 	NISTBeaconURL(gm->timestamp);

TempleOSCD/Doc/AboutTempleOS.DD

@@ -7,7 +7,7 @@ $TX,"www.templeos.org",HTML="http://www.templeos.org"$
 $FG,5$Owner/President:$FG$
 $TX,"Terry A. Davis",HTML="mailto:tdavis@templeos.org"$
 
-$HC,"<center><img src=\"http://www.templeos.org/images/140414TerryADavis.jpg\" width=\"432\" height=\"324\" alt=\"\"></center>"$
+$HC,"<center><img src=\"http://www.templeos.org/images/170310TerryADavis.jpg\" width=\"640\" height=\"640\" alt=\"\"></center>"$
 
 8144 Sickle Lane
 Las Vegas, NV 89128

TempleOSCD/Doc/ChgLog.DD

@@ -2,7 +2,7 @@ $WW,1$$FG,5$$TX+CX,"Change Log"$$FG$
 
 Use $LK,"R",A="MN:R"$() to rename if I change a label.
 
-$IV,1$----03/09/17 02:47:46----$IV,0$
+$IV,1$----03/10/17 18:56:28----$IV,0$
 
 $IV,1$----02/05/17 16:37:39----$IV,0$
 * Added $LK,"::/Doc/BlkChain.DD"$.

TempleOSCD/Kernel/KernelC.HH

@@ -160,7 +160,6 @@ public extern U0	QueVectU8Del(CQueVectU8 *v);
 public extern I64	QueVectU8Get(CQueVectU8 *v,I64 idx);
 public extern CQueVectU8 *QueVectU8New(I64 min_idx=0);
 public extern U0	QueVectU8Put(CQueVectU8 *v,I64 idx,U8 ch);
-
 #help_index "Debugging"
 public extern U8 *Caller(I64 num=1);
 public extern Bool ChkCodePtr(U8 *ptr);