TempleOSCDV4.11.ISO

2018-09-08 21:47:50 +02:00
1 parent 9206246147
commit 93ca216483
@@ -3,9 +3,9 @@

 //This file is executed by the
 //first terminal window upon start-up.
-//See $LK,"DoOnce",A="FF:/Home/HomeSys.CPP,DoOnce"$ and $LK,"Home Files",A="FF:::/Doc/GuideLines.TXT,/Home Files"$.
+//See $LK,"DoOnce",A="FF:/Home/HomeSys.HC,DoOnce"$ and $LK,"Home Files",A="FF:::/Doc/GuideLines.DD,/Home Files"$.

-//  Type("::/Doc/Customize.TXT");
+//  Type("::/Doc/Customize.DD");

 U0 DoOnce()
 {
@@ -28,8 +28,8 @@ U0 DoOnce()
 	      );
 	      break;
 	  }
-	  Del("C:/Home/DoDistro.CPP.Z");
-	  Del("D:/Home/DoDistro.CPP.Z");
+	  Del("C:/Home/DoDistro.HC.Z");
+	  Del("D:/Home/DoDistro.HC.Z");
 	  "\n\n\nAfter Reboot be sure to run MakeDistrosAndBackUp.\n\n";
 	  PressAKey;
 	  Reboot; //Too dangerous for amateurs until reboot.
@@ -40,7 +40,7 @@ U0 DoOnce()
  if (FileFind("D:/Temp/Logs/access.log")) {
    Auto("\n\n%C",CH_ESC);
    RunFile("::/Demo/WebLogDemo/WebLogRep",,
-	  "D:/Temp/Logs/*.log","D:/Temp/LogRep.TXT");
+	  "D:/Temp/Logs/*.log","D:/Home/WebLogRep.DD");
    Del("D:/Temp/Logs/*.log");
  }
 }
@@ -58,7 +58,7 @@ Bool MyPutKey(I64 ch,I64 sc)
 {//ch=ASCII; sc=scan_code

  //See $LK,"Char",A="HI:Char"$ for definition of scan codes.
-  //See $LK,"Key Allocations",A="FI:::/Doc/KeyAlloc.TXT"$.
+  //See $LK,"Key Allocations",A="FI:::/Doc/KeyAlloc.DD"$.
  //See $LK,"Keyboard Devices",A="HI:Keyboard Devices/System"$.

  //You can customize keys.  This routine
@@ -147,9 +147,9 @@ Bool MyPutKey(I64 ch,I64 sc)
 	  case SC_F6:
 	    if (sc&SCF_SHIFT) {
 	      if (sc&SCF_KEY_DESC)
-		KeyDescSet("Cmd /Ins My URL");
+		KeyDescSet("Cmd /Ins Misc");
 	      else
-		InsMyURL;
+		TOSInsMisc;
 	    } else {
 	      if (sc&SCF_KEY_DESC)
 		KeyDescSet("Cmd /Ins Datetime");
@@ -158,15 +158,11 @@ Bool MyPutKey(I64 ch,I64 sc)
 	    }
 	    return TRUE;
 	  case SC_F7:
-//$LK,"::/Adam/God/HSNotes.TXT"$
 	    if (sc&SCF_SHIFT) {
 	      if (sc&SCF_KEY_DESC)
-		KeyDescSet("Cmd /God Book Passage");
-	      else {
-		FifoU8Flush(god.fifo);
-		GodBitsIns(GOD_GOOD_BITS,KbdMouseEvtTime>>GOD_BAD_BITS);
-		GodBooksPassage("C:/Home/Sup1/Sup1Texts/*");
-	      }
+		KeyDescSet("Cmd /God Misc");
+	      else
+		GodMisc;
 	    } else {
 	      if (sc&SCF_KEY_DESC)
 		KeyDescSet("Cmd /God Doodle File");
@@ -308,8 +304,8 @@ Bool MyPutKey(I64 ch,I64 sc)
      case 'b':
 	if (sc&SCF_KEY_DESC)
 	  KeyDescSet("Cmd /Jump to Bad Code");
-	else //$LK,"::/Adam/God/HSNotes.TXT"$
-	  BadCodeJump;
+	else //$LK,"::/Adam/God/HSNotes.DD"$
+	  GodCodeJmp;
 	return TRUE;
      case 'g':
 	if (sc&SCF_KEY_DESC)
@@ -4,12 +4,12 @@
 U0 UserStartUp()
 {//Run each time a user a spawned
  DocTermNew;
-  Type("::/Doc/Start.TXT");
+  Type("::/Doc/Start.DD");
  LBts(&Fs->display_flags,DISPLAYf_SHOW);
  WinToTop;
  WinZBufUpdate;
  Dir;
-  "$TX,"81,125",D="DD_TEMPLEOS_LOC_OFFICIAL"$LOC:";
+  "$TX,"81,208",D="DD_TEMPLEOS_LOC_OFFICIAL"$LOC:";
  CPURep;
 }

@@ -32,7 +32,7 @@ U0 StartUpTasks()
  "Boot     Time:%7.3fs\n",tS;
  XTalk(user1,"Cd;#include \"DoOnce\";\n");
  Silent;
-  ACInit("/*;!*/Bible.TXT*;!*.TXT*"); //No Bible, no uncompressed TXT.
+  ACInit("/*;!*/Bible.TXT*;!*.TXT"); //No Bible, no uncompressed DD.
  Silent(OFF);
  "AutoComplete Time:%7.3fs\n",tS;
 }
@@ -1,8 +1,8 @@
 #help_index "Cmd Line (Typically)"

-#define FILEMASK_OFF_LIMITS "!*/Misc/PCIDevices.TXT*;!*/Misc/Bible.TXT*;"\
+#define FILEMASK_OFF_LIMITS "!*/Misc/PCIDevices.DD*;!*/Misc/Bible.TXT*;"\
 	"!*/Sup1/Sup1Texts/*;!*/Sup1/Sup1Words/*;!*/Sup1/Sup1Bin/*;"\
-	"!*/God/Vocab.TXT*"
+	"!*/God/Vocab.DD*"

 public I64 F(U8 *needle_str,U8 *fu_flags=NULL)
 {//Find text in all text files.
@@ -2,16 +2,16 @@ $MA,"Cd      ",LM="Cd;Dir;\n"$$MA,"DrvC    ",LM="Drv('C');\n"$$MA,"DrvD    ",LM=
 $MA,"MakeC   ",LM="TOSBootHDIns('C');\n"$$MA+PU,"BootC   ",LM="BootRAM(\"C:/Kernel.BIN.C\");"$$MA,"MakeBack",LM="MakeDistrosAndBackUp;\n"$$MA,"PreBack ",LM="PreBackUp;\n"$$MA,"MakeD   ",LM="TOSBootHDIns('D');\n"$$MA+PU,"BootD   ",LM="BootRAM(\"D:/Kernel.BIN.C\");"$$MA,"CopyDrv ",LM="TOSPromptAndCopyDrv;\n"$$MA,"MakeWeb ",LM="MakeWebSitePartial;\n"$
 $MA,"Kernel  ",LM="Cd(\"/Kernel\");Dir;\n"$$MA,"Compiler",LM="Cd(\"/Compiler\");Dir;\n"$$MA,"BlkDev  ",LM="Cd(\"/Kernel/BlkDev\");Dir;\n"$$MA,"Mem     ",LM="Cd(\"/Kernel/Mem\");Dir;\n"$$MA,"Serial  ",LM="Cd(\"/Kernel/SerialDev\");Dir;\n"$$MA,"Bin     ",LM="Cd(\"/Home/Sup1/Sup1Bin\");Dir;\n"$$MA,"HDAudio ",LM="Cd(\"/Home/Sup1/Sup1HDAudio\");Dir;\n"$$MA,"Examples",LM="Cd(\"/Home/Sup1/Sup1HDAudio/Examples\");Dir;\n"$
 $MA,"Adam    ",LM="Cd(\"/Adam\");Dir;\n"$$MA,"AutoComp",LM="Cd(\"/Adam/AutoComplete\");Dir;\n"$$MA,"Ctrls   ",LM="Cd(\"/Adam/Ctrls\");Dir;\n"$$MA,"ABlkDev ",LM="Cd(\"/Adam/ABlkDev\");Dir;\n"$$MA,"DolDoc  ",LM="Cd(\"/Adam/DolDoc\");Dir;\n"$$MA,"Gr      ",LM="Cd(\"/Adam/Gr\");Dir;\n"$$MA,"God     ",LM="Cd(\"/Adam/God\");Dir;\n"$$MA,"Snd     ",LM="Cd(\"/Adam/Snd\");Dir;\n"$$MA,"Boot    ",LM="Cd(\"/Adam/Opt/Boot\");Dir;\n"$$MA,"Utils   ",LM="Cd(\"/Adam/Opt/Utils\");Dir;\n"$
-$LK+X,"ChangeLg",A="FI:::/Doc/ChangeLog.TXT"$$MA,"Blog    ",LM="Blog;\n"$$MA,"EdGod   ",LM="Ed(\"D:/Home/God.TXT\");\n"$$MA,"BlogDir ",LM="Cd(\"/Home/Web/TAD/BlogDir\");Dir;\n"$$MA,"Partial ",LM="MakeWebSitePartial;\n"$$MA,"CodeWalk",LM="CodeWalkThru;\n"$$MA,"AfterEgp",LM="AfterEgyptInAction;\n"$$MA,"TOSTheme",LM="TempleOSTheme;\n"$$MA,"Sup1Vids",LM="Cd(\"/Home/Sup1/Sup1Videos\");Dir;\n"$
-$MA,"Web     ",LM="Cd(\"/Home/Web\");Dir;\n"$$MA,"TAD     ",LM="Cd(\"/Home/Web/TAD\");Dir;\n"$$MA,"Sup1    ",LM="Cd(\"/Home/Sup1\");Dir;\n"$$MA,"Blog    ",LM="Cd(\"/Home/Sup1/Sup1Blog\");Dir;\n"$$MA,"Code    ",LM="Cd(\"/Home/Sup1/Sup1CodeScraps\");Dir;\n"$$MA,"Dist    ",LM="Cd(\"/Home/Sup1/Sup1Distro\");Dir;\n"$$MA,"Game    ",LM="Cd(\"/Home/Sup1/Sup1Games\");Dir;\n"$$MA,"Graphics",LM="Cd(\"/Home/Sup1/Sup1Graphics\");Dir;\n"$$MA,"Psalmody",LM="Cd(\"/Home/Sup1/Sup1Psalmody\");Dir;\n"$$MA,"Utils   ",LM="Cd(\"/Home/Sup1/Sup1Utils\");Dir;\n"$
+$LK+X,"ChangeLg",A="FI:::/Doc/ChangeLog.DD"$$MA,"Blog    ",LM="Blog;\n"$$MA,"EdGod   ",LM="Ed(\"D:/Home/God.DD\");\n"$$MA,"BlogDir ",LM="Cd(\"/Home/Web/TAD/BlogDir\");Dir;\n"$$MA,"Partial ",LM="MakeWebSitePartial;\n"$$MA,"CodeWalk",LM="CodeWalkThru;\n"$$MA,"AfterEgp",LM="AfterEgyptInAction;\n"$$MA,"TOSTheme",LM="TempleOSTheme;\n"$$MA,"Videos  ",LM="Cd(\"/Home/Sup1/Sup1Videos\");Dir;\n"$
+$MA,"Web     ",LM="Cd(\"/Home/Web\");Dir;\n"$$MA,"TAD     ",LM="Cd(\"/Home/Web/TAD\");Dir;\n"$$MA,"Sup1    ",LM="Cd(\"/Home/Sup1\");Dir;\n"$$MA,"Blog    ",LM="Cd(\"/Home/Sup1/Sup1Blog\");Dir;\n"$$MA,"Code    ",LM="Cd(\"/Home/Sup1/Sup1CodeScraps\");Dir;\n"$$MA,"Dist    ",LM="Cd(\"/Home/Sup1/Sup1Distro\");Dir;\n"$$MA,"Games   ",LM="Cd(\"/Home/Sup1/Sup1Games\");Dir;\n"$$MA,"Graphics",LM="Cd(\"/Home/Sup1/Sup1Graphics\");Dir;\n"$$MA,"Psalmody",LM="Cd(\"/Home/Sup1/Sup1Psalmody\");Dir;\n"$$MA,"Utils   ",LM="Cd(\"/Home/Sup1/Sup1Utils\");Dir;\n"$
 $MA,"Apps    ",LM="Cd(\"/Apps\");Dir;\n"$$MA,"AfterEgp",LM="Cd(\"/Apps/AfterEgypt\");Dir;\n"$$MA,"Budget  ",LM="Cd(\"/Apps/Budget\");Dir;\n"$$MA,"GrModels",LM="Cd(\"/Apps/GrModels\");Dir;\n"$$MA,"KeepAway",LM="Cd(\"/Apps/KeepAway\");Dir;\n"$$MA,"Logic   ",LM="Cd(\"/Apps/Logic\");Dir;\n"$$MA,"Psalmody",LM="Cd(\"/Apps/Psalmody\");Dir;\n"$$MA,"Span    ",LM="Cd(\"/Apps/Span\");Dir;\n"$$MA,"Strut   ",LM="Cd(\"/Apps/Strut\");Dir;\n"$$MA,"TimeClk ",LM="Cd(\"/Apps/TimeClock\");Dir;\n"$
 $MA,"TimeOut ",LM="Cd(\"/Apps/TimeOut\");Dir;\n"$$MA,"ToTheFrt",LM="Cd(\"/Apps/ToTheFront\");Dir;\n"$$MA,"Vocab   ",LM="Cd(\"/Apps/Vocabulary\");Dir;\n"$$MA,"XCaliber",LM="Cd(\"/Apps/X-Caliber\");Dir;\n"$$SP,"",BI=1$
 $MA,"Demo    ",LM="Cd(\"/Demo\");Dir;\n"$$MA,"AcctEmpl",LM="Cd(\"/Demo/AcctExample\");Dir;\n"$$MA,"Asm     ",LM="Cd(\"/Demo/Asm\");Dir;\n"$$MA,"AutoFile",LM="Cd(\"/Demo/AutoFile\");Dir;\n"$$MA,"DocDoc  ",LM="Cd(\"/Demo/DolDoc\");Dir;\n"$$MA,"Dsk     ",LM="Cd(\"/Demo/Dsk\");Dir;\n"$$MA,"Games   ",LM="Cd(\"/Demo/Games\");Dir;\n"$$MA,"Graphics",LM="Cd(\"/Demo/Graphics\");Dir;\n"$$MA,"Lectures",LM="Cd(\"/Demo/Lectures\");Dir;\n"$$MA,"MultCore",LM="Cd(\"/Demo/MultiCore\");Dir;\n"$
 $MA,"RevFile ",LM="Cd(\"/Demo/RevFileDemo\");Dir;\n"$$MA,"Snd     ",LM="Cd(\"/Demo/Snd\");Dir;\n"$$MA,"SortFile",LM="Cd(\"/Demo/SortFileDemo\");Dir;\n"$$MA,"Template",LM="Cd(\"/Demo/Templates\");Dir;\n"$$MA,"HtmlTXT ",LM="Cd(\"/Demo/ToHtmlToTXTDemo\");Dir;\n"$$MA,"WebLog  ",LM="Cd(\"/Demo/WebLogDemo\");Dir;\n"$$MA,"Stadium ",LM="Cd(\"/Demo/Games/Stadium\");Dir;\n"$
 $MA,"Doc     ",LM="Cd(\"/Doc\");Dir;\n"$$MA,"Misc    ",LM="Cd(\"/Misc\");Dir;\n"$$MA,"Tour    ",LM="Cd(\"/Misc/Tour\");Dir;\n"$$MA,"Temp    ",LM="Cd(\"/Temp\");Dir;\n"$$MA,"ScrnShot",LM="Cd(\"/Temp/ScreenShots\");Dir;\n"$$MA,"DelScrSt",LM="Del(\"D:/Temp/*.SND\");DelTree(\"D:/Temp/ScreenShots\");MkDir(\"D:/Temp/ScreenShots\");Del(\"C:/Temp/*.SND\");DelTree(\"C:/Temp/ScreenShots\");MkDir(\"C:/Temp/ScreenShots\");\n"$$MA,"0000Boot",LM="Cd(\"/0000Boot\");Dir;\n"$$MA,"Linux   ",LM="Cd(\"/Linux\");Dir;\n"$
-$MA,"LinxDict",LM="Adam(\"GodInit(\\\"~/Sup1/Sup1Words/LinuxDict.TXT**\\\");\");\n"$$MA,"August  ",LM="Adam(\"GodInit(\\\"~/Sup1/Sup1Words/AugustWords.TXT**\\\");\");\n"$$MA,"Happy   ",LM="Adam(\"GodInit(\\\"~/Sup1/Sup1Words/HappyWords.TXT*\\\");\");\n"$$MA,"Bible   ",LM="Adam(\"GodInit(\\\"~/Sup1/Sup1Words/BibleWords.TXT*\\\");\");\n"$$MA,"Huck    ",LM="Adam(\"GodInit(\\\"~/Sup1/Sup1Words/HuckWords.TXT*\\\");\");\n"$$MA,"Ingreds ",LM="Adam(\"GodInit(\\\"~/Sup1/Sup1Words/Ingredients.TXT*\\\");\");\n"$$MA,"Chess   ",LM="Adam(\"GodInit(\\\"~/Sup1/Sup1Words/Chess.TXT*\\\");\");\n"$$MA,"Texts   ",LM="Cd(\"/Home/Sup1/Sup1Texts\");Dir;\n"$$MA,"Words   ",LM="Cd(\"/Home/Sup1/Sup1Words\");Dir;\n"$
-$MA,"MakeStd ",LM="MakeStdDistro; MkDir(\"D:/Wb\"); Move(TOS_ISO_NAME,\"D:/Wb/TempleOSCD.ISO\");\n"$$MA,"MakeStRS",LM="MakeStdRedSeaDistro; MkDir(\"D:/Wb\"); Move(TOS_ISO_C_NAME,\"D:/Wb/TempleOSCDRS.ISO\");\n"$$MA,"MakeUlt ",LM="MakeUltraDistro; MkDir(\"D:/Wb\"); Move(TOS_ISO_NAME,\"D:/Wb/TempleOSUltra.ISO\");\n"$$MA,"MakeUtRS",LM="MakeUltraRedSeaDistro; MkDir(\"D:/Wb\"); Move(TOS_ISO_C_NAME,\"D:/Wb/TempleOSUltraRS.ISO\");\n"$$MA,"MakeStaf",LM="MakeStaffDistro; MkDir(\"D:/Wb\"); Move(TOS_ISO_NAME,\"D:/Wb/TempleOSStaff.ISO\");\n"$$MA,"MakeDbg ",LM="MakeDbgDistro; MkDir(\"D:/Wb\"); Move(TOS_ISO_NAME,\"D:/Wb/TempleOSDbg.ISO\");\n"$
-$MA,"BurnStd ",LM="MakeStdDistro; DVDImageWrite('T',TOS_ISO_NAME);\n"$$MA,"BurnStRS",LM="MakeStdRedSeaDistro; DVDImageWrite('T',TOS_ISO_C_NAME);\n"$$MA,"BurnUlt ",LM="MakeUltraDistro;DVDImageWrite('T',TOS_ISO_NAME);\n"$$MA,"BurnUtRS",LM="MakeUltraRedSeaDistro;DVDImageWrite('T',TOS_ISO_C_NAME);\n"$$MA,"BurnStaf",LM="MakeAStaffDistro; DVDImageWrite('T',TOS_ISO_NAME);\n"$$MA,"BurnDbg ",LM="MakeDbgDistro; DVDImageWrite('T',TOS_ISO_NAME);\n"$
+$MA,"LinxDict",LM="Adam(\"GodInit(\\\"~/Sup1/Sup1Words/LinuxDict.TXT**\\\");\");\n"$$MA,"August  ",LM="Adam(\"GodInit(\\\"~/Sup1/Sup1Words/AugustWords.TXT**\\\");\");\n"$$MA,"Happy   ",LM="Adam(\"GodInit(\\\"~/Sup1/Sup1Words/HappyWords.TXT*\\\");\");\n"$$MA,"Bible   ",LM="Adam(\"GodInit(\\\"~/Sup1/Sup1Words/BibleWords.TXT*\\\");\");\n"$$MA,"Huck    ",LM="Adam(\"GodInit(\\\"~/Sup1/Sup1Words/HuckWords.TXT*\\\");\");\n"$$MA,"Ingreds ",LM="Adam(\"GodInit(\\\"~/Sup1/Sup1Words/Ingredients.TXT*\\\");\");\n"$$MA,"Chess   ",LM="Adam(\"GodInit(\\\"~/Sup1/Sup1Words/Chess.DD*\\\");\");\n"$$MA,"Texts   ",LM="Cd(\"/Home/Sup1/Sup1Texts\");Dir;\n"$$MA,"Words   ",LM="Cd(\"/Home/Sup1/Sup1Words\");Dir;\n"$
+$MA,"MakeStd ",LM="MakeStdDistro;MkDir(\"D:/Wb\");Move(TOS_ISO_NAME,\"D:/Wb/TempleOSCD.ISO\");\n"$$MA,"MakeStRS",LM="MakeStdRedSeaDistro;MkDir(\"D:/Wb\");Move(TOS_ISO_C_NAME,\"D:/Wb/TempleOSCDRS.ISO\");\n"$$MA,"MakeUlt ",LM="MakeUltraDistro;MkDir(\"D:/Wb\");Move(TOS_ISO_NAME,\"D:/Wb/TempleOSUltra.ISO\");\n"$$MA,"MakeUtRS",LM="MakeUltraRedSeaDistro;MkDir(\"D:/Wb\");Move(TOS_ISO_C_NAME,\"D:/Wb/TempleOSUltraRS.ISO\");\n"$$MA,"MakeStaf",LM="MakeStaffDistro;MkDir(\"D:/Wb\");Move(TOS_ISO_NAME,\"D:/Wb/TempleOSStaff.ISO\");\n"$$MA,"MakeDbg ",LM="MakeDbgDistro;MkDir(\"D:/Wb\");Move(TOS_ISO_NAME,\"D:/Wb/TempleOSDbg.ISO\");\n"$
+$MA,"BurnStd ",LM="MakeStdDistro;DVDImageWrite('T',TOS_ISO_NAME);\n"$$MA,"BurnStRS",LM="MakeStdRedSeaDistro;DVDImageWrite('T',TOS_ISO_C_NAME);\n"$$MA,"BurnUlt ",LM="MakeUltraDistro;DVDImageWrite('T',TOS_ISO_NAME);\n"$$MA,"BurnUtRS",LM="MakeUltraRedSeaDistro;DVDImageWrite('T',TOS_ISO_C_NAME);\n"$$MA,"BurnStaf",LM="MakeStaffDistro;DVDImageWrite('T',TOS_ISO_NAME);\n"$$MA,"BurnDbg ",LM="MakeDbgDistro;DVDImageWrite('T',TOS_ISO_NAME);\n"$



@@ -73,7 +73,7 @@ $SP+PU,"JukeBox",LM="#include \"::/Apps/Psalmody/Load\";JukeBox(\"::/Apps/Psalmo



-$SP+PU,"BigGuns",LM="#include \"::/Demo/Games/BigGuns\"",BI=27$ $SP+PU,"Budget",LM="#include \"::/Apps/Budget/Run\"",BI=28$ $SP+PU,"Digits",LM="#include \"::/Demo/Games/Digits\"",BI=29$ $SP+PU,"Checkers",LM="#include \"::/Demo/Games/TreeCheckers.CPP.Z\"",BI=30$
+$SP+PU,"BigGuns",LM="#include \"::/Demo/Games/BigGuns\"",BI=27$ $SP+PU,"Budget",LM="#include \"::/Apps/Budget/Run\"",BI=28$ $SP+PU,"Digits",LM="#include \"::/Demo/Games/Digits\"",BI=29$ $SP+PU,"Checkers",LM="#include \"::/Demo/Games/TreeCheckers.HC.Z\"",BI=30$

 $MA,"TestSuit",LM="#include \"::/Misc/OSTestSuite\";\n"$$MA,"TakeTour",LM="Cd(\"::/Misc/Tour\");;AutoFile(\"Tour\");\n"$$MA+PU,"PsalSup1",LM="#include \"::/Apps/Psalmody/Load\";Psalmody(\"~/Sup1/Sup1Psalmody\");"$$MA,"Comics  ",LM="Cd(\"/Home/Sup1/Sup1Comics\");Dir;\n"$$MA-X+PU,"SymAlpha",LM="DocMax;Who;View;"$$MA-X+PU,"SymNum  ",LM="DocMax;Who(\"+m\");View;"$
 yÓÿÿÿÜÿÿÿ<H÷ÿÿÿ'ûÿÿÿ÷ÿÿÿõÿÿÿüÿÿÿ	õÿÿÿ'ûÿÿÿ	'
@@ -405,7 +405,7 @@ $MA,"TestSuit",LM="#include \"::/Misc/OSTestSuite\";\n"$$MA,"TakeTour",LM="Cd(\"


 	

   ! ""#!%$&&'%! $$%!#"&&'#" $$&"#!%%'#)(**+)-,../-)(,,-)+*../+*(,,.*+)--/+10223154667510445132667320446231557398::;9=<>>?=98<<=9;:>>?;:8<<>:;9==?;A@BBCAEDFFGEA@DDEACBFFGCB@DDFBCAEEGCIHJJKIMLNNOMIHLLMIKJNNOKJHLLNJKIMMOKQPRRSQUTVVWUQPTTUQSRVVWSRPTTVRSQUUWSYXZZ[Y]\^^_]YX\\]Y[Z^^_[ZX\\^Z[Y]]_[a`bbcaedffgea`ddeacbffgcb`ddfbcaeegcihjjkimlnnomihllmikjnnokjhllnjkimmok	ęâ˙˙˙Đ˙˙˙%%˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙	ĺ˙˙˙ř˙˙˙Flap„Ő˙˙˙á˙˙˙*˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙	Ń˙˙˙ř˙˙˙BomberŇŇ˙˙˙Ű˙˙˙0$˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙Line truncated
-’ÁÿÿÿÑÿÿÿ>.																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																		B¹ÿÿÿÉÿÿÿF6ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+’ÁÿÿÿÑÿÿÿ>.																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																																											B¹ÿÿÿÉÿÿÿF6ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ

 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
@@ -1,30 +1,32 @@
 $WW,1$$FG,5$$TX+CX,"TODO"$$FG$
-* Cursor in $LK,"::/Home/TOSToHtml.CPP"$.
+* Cursor in $LK,"::/Home/TOSToHtml.HC"$.

-* Investigate why packet loss $LK,"Training Sleep(1)",A="FF:::/Adam/Training.CPP,Sleep(1)"$.
+* Investigate why packet loss $LK,"Training Sleep(1)",A="FF:::/Adam/Training.HC,Sleep(1)"$.

 * Add AVL or red/black binary tree library support.  We have fixed-size stack.  Auto-balancing binary tree is very needed.  I've done everything myself.  I don't want to ruin a perfect record.  I'm in no hurry.

-* $LK,"SpriteEd",A="FI:::/Adam/Gr/SpriteEd.CPP"$ shift pts, Ctrl pt for ellipse/polygon w,h is off when rotated.
+* $LK,"SpriteEd",A="FI:::/Adam/Gr/SpriteEd.HC"$ shift pts, Ctrl pt for ellipse/polygon w,h is off when rotated.

-* God said this is bad.  $LK,"FL:::/Adam/DolDoc/DocFind.CPP,41"$
+* God said this is bad.  $LK,"FL:::/Adam/DolDoc/DocFind.HC,41"$
 * Backward <SHIFT-F3> is broken?

-* Cannot include ':' in $LK,"Document Links",A="FF:::/Adam/DolDoc/DocLink.CPP,AD"$ search string.
+* Cannot include ':' in $LK,"Document Links",A="FF:::/Adam/DolDoc/DocLink.HC,AD"$ search string.
 * $$DA fixed width string: <Del> or <BACKSPACE> permanently shortens.

 * Editor overstrike mode at cmd line with menu macro?  Probably, many other overstrike issues.

 * $LK,"DOCT_HEX_ED",A="MN:DOCT_HEX_ED"$ with odd size, ASCII cannot be edited.

-* $LK,"FL:::/Adam/Gr/SpriteEd.CPP,789"$ Resize bitmap?
+* $LK,"FL:::/Adam/Gr/SpriteEd.HC,789"$ Resize bitmap?

-* $LK,"DOCEF_REMALLOC_DATA",A="FF:::/Adam/DolDoc/DocChar.CPP,DOCEF_REMALLOC_DATA"$ HexEdit Remalloc.
+* $LK,"DOCEF_REMALLOC_DATA",A="FF:::/Adam/DolDoc/DocChar.HC,DOCEF_REMALLOC_DATA"$ HexEdit Remalloc.

 * $LK,"DOCF_DBL_DOLLARS",A="MN:DOCF_DBL_DOLLARS"$ in $LK,"Reindention",A="MN:EdCodeTools2"$.

 * Compiler Optimization: Local array vars --> reg.  Might exist.

+* Make function as a better word processor.  Justify text.  Page numbers.  Header and footer templates?
+
 * Compiler Optimization: heap_glbls with added offset.  Might exist.

 * AfterEgypt: $LK,"Numbers,13:33",A="BF:Numbers,13:33"$ scouts? $LK,"Numbers,21:8",A="BF:Numbers,21:8"$ snakes?
@@ -43,13 +45,13 @@ $WW,1$$FG,5$$TX+CX,"TODO"$$FG$

 * Bible ranges in $LK,"BibleVerse",A="MN:BibleVerse"$(). 

-* $LK,"::/Demo/Games/FlatTops.CPP"$ is torpedo, not bombs.
+* $LK,"::/Demo/Games/FlatTops.HC"$ is torpedo, not bombs.

 * Reset MPs with $LK,"Core0StartMP",A="MN:Core0StartMP"$() after boot.  Free old task memory?

 * Use pen_width and pen_height when clipping with pen_width>1.

-* $LK,"~/Sup1/Sup1Games/Rocks.CPP"$.
+* $LK,"~/Sup1/Sup1Games/Rocks.HC"$.

 * Asm LIST NOLIST bugs.

@@ -66,7 +68,7 @@ $WW,1$$FG,5$$TX+CX,"TODO"$$FG$

 * $LK,"GrLineFat3",A="MN:GrLineFat3"$() needs a little work.

-* $LK,"GrFillTri0",A="MN:GrFillTri0"$() with both $LK,"GrHLine",A="MN:GrHLine"$() and $LK,"GrVLine",A="MN:GrVLine"$() don't match in $LK,"::/Demo/Games/CastleFrankenstein.CPP"$ causing wall spot pixels.
+* $LK,"GrFillTri0",A="MN:GrFillTri0"$() with both $LK,"GrHLine",A="MN:GrHLine"$() and $LK,"GrVLine",A="MN:GrVLine"$() don't match in $LK,"::/Demo/Games/CastleFrankenstein.HC"$ causing wall spot pixels.


 $FG,5$$TX+CX,"TODO? Meh"$$FG$
@@ -78,13 +80,13 @@ $FG,5$$TX+CX,"TODO? Meh"$$FG$

 * $LK,"Mem32DevAlloc",A="MN:Mem32DevAlloc"$() is broken.  Devices should be in free spot of E820 report.

-* $LK,"SpriteEd",A="FI:::/Adam/Gr/SpriteEd.CPP"$: Strip $LK,"SPT_SHIFT",A="MN:SPT_SHIFT"$ origin cmds?
+* $LK,"SpriteEd",A="FI:::/Adam/Gr/SpriteEd.HC"$: Strip $LK,"SPT_SHIFT",A="MN:SPT_SHIFT"$ origin cmds?

 * Clean-up ASCII #127 delete char?  (No. Maybe, we want a new usage for 127 in future centuries.)

 * Compiler: Exceptions don't free $LK,"CCmpCtrl",A="MN:CCmpCtrl"$ stuff.

-* $LK,"::/Adam/DolDoc/DocHighlight.CPP"$ for code comments at top of documents.
+* $LK,"::/Adam/DolDoc/DocHighlight.HC"$ for code comments at top of documents.

 * Unhandled exception msgs from MP's get overwritten by WinMgr.

@@ -101,7 +103,7 @@ $FG,5$$TX+CX,"TODO? Meh"$$FG$
 $FG,5$$TX+CX,"TODO: Too Hard, or Not Worth Doing."$$FG$
 * AutoComplete/$LK,"Man",A="MN:Man"$() Jmp for user code.

-* $LK,"Bible sized nodes",A="FF:::/Adam/DolDoc/DocRecalc.CPP,->tag+i"$
+* $LK,"Bible sized nodes",A="FF:::/Adam/DolDoc/DocRecalc.HC,->tag+i"$

 * $LK,"FileMgr",A="MN:FileMgr"$() is bad with lots of files.  

@@ -109,7 +111,7 @@ $FG,5$$TX+CX,"TODO: Too Hard, or Not Worth Doing."$$FG$

 * Log-to-file is inefficient because we load and save whole file.

-* $LK,"ICMov",A="MN:ICMov"$() $LK,"PUSH_CMP",A="FF:::/Compiler/BackLib.CPP,PUSH_CMP"$ and $LK,"MDf_STK",A="MN:MDf_STK"$?  Perhaps, it's okay.
+* $LK,"ICMov",A="MN:ICMov"$() $LK,"PUSH_CMP",A="FF:::/Compiler/BackLib.HC,PUSH_CMP"$ and $LK,"MDf_STK",A="MN:MDf_STK"$?  Perhaps, it's okay.

 * Short FAT32 ~ names.

@@ -121,17 +123,17 @@ $ID,5$$HL,1$U0 Main()
  U0 (*fp_old_draw_input_ptr)(CDC *dc,I64 x,I64 y)=gr.fp_draw_input_ptr;
 }
 $ID,-5$$HL,0$
-* Compiler: Get rid of $LK,"0x20000",A="FF:::/Compiler/CMain.CPP,0x20000"$ limit.
+* Compiler: Get rid of $LK,"0x20000",A="FF:::/Compiler/CMain.HC,0x20000"$ limit.

-* $LK,"GrFloodFillRay",A="MN:GrFloodFillRay"$: Get rid of $LK,"0x80000",A="FF:::/Adam/Gr/GrPrimatives.CPP,0x80000"$ limit.
+* $LK,"GrFloodFillRay",A="MN:GrFloodFillRay"$: Get rid of $LK,"0x80000",A="FF:::/Adam/Gr/GrPrimatives.HC,0x80000"$ limit.


 $FG,5$$TX+CX,"Bugs"$$FG$
-* 1/28/16 $LK,"::/Demo/Graphics/Pick3D.CPP"$ crashed in TestSuite.
+* 1/28/16 $LK,"::/Demo/Graphics/Pick3D.HC"$ crashed in TestSuite.

 * 1/12/16 make RAM drive 2288 blks, $FG,2$CopyTree("C:/Home","B:/Home"); $FG$  Disk runs-out of space and hangs instead of reporting errors.

-* Bug introduced around 11/1/15.  Changed $LK,"::/Kernel/Sched.CPP"$ and now $LK,"WinToTop",A="MN:WinToTop"$ is called on Adam task at start-up, sometimes.  Might be user's fault because of bad keys pressed during VMware power-on init.  Might be fixed by $LK,"ACf_INIT_IN_PROGRESS",A="MN:ACf_INIT_IN_PROGRESS"$.
+* Bug introduced around 11/1/15.  Changed $LK,"::/Kernel/Sched.HC"$ and now $LK,"WinToTop",A="MN:WinToTop"$ is called on Adam task at start-up, sometimes.  Might be user's fault because of bad keys pressed during VMware power-on init.  Might be fixed by $LK,"ACf_INIT_IN_PROGRESS",A="MN:ACf_INIT_IN_PROGRESS"$.

 * 1/12/16 $LK,"ATARepEntry",A="MN:ATARepEntry"$ shows corrupted buttons.  Weird.  Perhaps, my imagination.

@@ -140,7 +142,7 @@ $FG,5$$TX+CX,"3rd Party Bugs"$$FG$
 * VMware: Stretch to full screen
 * VMware: PC speaker sound distorted.
 * VMware: 8/2/2015 start-up. Probably multicore.
-* VMware: $LK,"CtrlAltDel",A="FF:::/Kernel/SerialDev/Keyboard.CPP,CtrlAltDel"$ on <CTRL-ALT-INS>
+* VMware: $LK,"CtrlAltDel",A="FF:::/Kernel/SerialDev/Keyboard.HC,CtrlAltDel"$ on <CTRL-ALT-INS>
 * VMware: Size zero files don't copy out of mounted disk?  (Might be fixed.)


@@ -158,8 +160,8 @@ $FG,5$$TX+CX,"Bugs? Not really sure."$$FG$
 * 1/?/2015,8/10/2015 Macro sel in Menu did not go to shell?  No, I think just <CTRL-m> twice.  Not a bug.

 * 5/7/14:Something like $LK,"AFSetIP",A="MN:AFSetIP"$ caused hang, then reboot in TestSuite.
-* 5/7/14:#63 Maybe, $LK,"::/Demo/Graphics/Pick3D.CPP"$ crashed in TestSuite.
-* 6/8/14:After or in $LK,"PageTableEntries",A="FF:::/Misc/OSTestSuite.CPP,PageTableEntries"$ in TestSuite crash.
+* 5/7/14:#63 Maybe, $LK,"::/Demo/Graphics/Pick3D.HC"$ crashed in TestSuite.
+* 6/8/14:After or in $LK,"PageTableEntries",A="FF:::/Misc/OSTestSuite.HC,PageTableEntries"$ in TestSuite crash.

 * $LK,"StrPrintJoin",A="MN:StrPrintJoin"$(,st); With st="\n\\"; (Forgot what this is talking about.)

@@ -185,9 +187,9 @@ $ID,-5$

 * $LK,"U",A="MN:U"$() negative byte displacement, neg 32-bit disp.

-* Race condition in $LK,"::/Demo/Games/FlatTops.CPP"$ torpedo.
+* Race condition in $LK,"::/Demo/Games/FlatTops.HC"$ torpedo.

-* Links to self document if empty file name? $LK,"Document Links",A="FF:::/Adam/DolDoc/DocLink.CPP,AD"$
+* Links to self document if empty file name? $LK,"Document Links",A="FF:::/Adam/DolDoc/DocLink.HC,AD"$

 * $LK,"FUF_RECURSE",A="MN:FUF_RECURSE"$ would be nice if capital "+R".

@@ -208,7 +210,7 @@ $ID,-5$
 $FG,5$$TX+CX,"Committee Needed"$$FG$
 * Make binary tree look-up using FUN_SEG symbol addresses, so we can eliminate fun_seg cache and wall-paper kludge?  All HolyC functions and glbl vars would have left-right for address search.

-* $LK,"MP DepthBuf",A="FF:::/Adam/Gr/SpriteMesh.CPP,dc->depth_buf=e->"$ is a kludge because of dc->depth_buf=NULL in various graphics routines.
+* $LK,"MP DepthBuf",A="FF:::/Adam/Gr/SpriteMesh.HC,dc->depth_buf=e->"$ is a kludge because of dc->depth_buf=NULL in various graphics routines.

 * Improve editor undo, add redo.

@@ -225,8 +227,8 @@ $FG,5$$TX+CX,"Committee Needed"$$FG$

 * $LK,"GrPutChar3",A="MN:GrPutChar3"$() with depth buf?

-* Eliminate?  $LK,"::/Adam/Ctrls/CtrlsA.CPP"$?
-* Eliminate?  $LK,"::/Adam/AMathODE.CPP"$?
+* Eliminate?  $LK,"::/Adam/Ctrls/CtrlsA.HC"$?
+* Eliminate?  $LK,"::/Adam/AMathODE.HC"$?
 * Eliminate?  $LK,"Complex",A="MN:Complex"$?
 * Eliminate?  $LK,"CDC",A="MN:CDC"$.brush?
 * Eliminate?  $LK,"Mat4x4MulXYZ",A="MN:Mat4x4MulXYZ"$() change to 3x3?
@@ -236,9 +238,9 @@ $FG,5$$TX+CX,"Committee Needed"$$FG$

 * Should Msgs in PopUp queue get fwded to parent when task dies?

-* Import Intel datasheets so we can use links in $LK,"Code",A="FI:::/Kernel/Mem/PageTables.CPP"$ for documentation.  I tried a PDF-to-text convertor and it wasn't acceptible.
+* Import Intel datasheets so we can use links in $LK,"Code",A="FI:::/Kernel/Mem/PageTables.HC"$ for documentation.  I tried a PDF-to-text convertor and it wasn't acceptible.

-* Why are BMP file $LK,"CBGR24",A="MN:CBGR24"$'s wrong?  $LK,"::/Adam/Opt/Utils/FileBMP.CPP"$.
+* Why are BMP file $LK,"CBGR24",A="MN:CBGR24"$'s wrong?  $LK,"::/Adam/Opt/Utils/FileBMP.HC"$.

 * Switch stmt with sparse cases?  Maybe, ban sparse switch stmts.

@@ -252,21 +254,17 @@ $FG,5$$TX+CX,"Committee Needed"$$FG$

 * Compiler: &=, |= can overflow with Bts Btr on small data types?

-* Since no true preprocessor, $LK,"R",A="MN:R"$("#define","StrMap");  $LK,"R",A="MN:R"$("#include",...); also?
-
 * Compiler: $LK,"sys_var_init_flag",A="MN:sys_var_init_flag"$ for local vars?

 * Implement $LK,"RS_ATTR_FIXED",A="MN:RS_ATTR_FIXED"$ fixed pos files?

-* Editor page formatting is FUBAR.
-
 * SIMD in $LK,"Mat4x4MulXYZ",A="MN:Mat4x4MulXYZ"$?

-* I use fixed-point in $LK,"Circle",A="MN:Circle"$(), $LK,"Ellipse",A="MN:Ellipse"$(), $LK,"Mat4x4MulXYZ",A="MN:Mat4x4MulXYZ"$(), $LK,"Mat4x4MulMat4x4New",A="MN:Mat4x4MulMat4x4New"$() and others.  God says I might want to change to float.  $LK,"::/Demo/Lectures/FixedPoint.CPP"$ $LK,"::/Demo/Lectures/FixedPointAdvanced.CPP"$.
+* I use fixed-point in $LK,"Circle",A="MN:Circle"$(), $LK,"Ellipse",A="MN:Ellipse"$(), $LK,"Mat4x4MulXYZ",A="MN:Mat4x4MulXYZ"$(), $LK,"Mat4x4MulMat4x4New",A="MN:Mat4x4MulMat4x4New"$() and others.  God says I might want to change to float.  $LK,"::/Demo/Lectures/FixedPoint.HC"$ $LK,"::/Demo/Lectures/FixedPointAdvanced.HC"$.

-* Note: We will never put multiple $LK,"Keyboard Tables",A="FI:::/Kernel/SerialDev/Keyboard.CPP"$.  Each country must make their own version of TempleOS.  The $LK,"Intel Factory ROM",A="FF:::/Doc/Demands.TXT,English"$ will have just English.  Our $LK,"Charter",A="FI:::/Doc/Charter.TXT"$ bans multiple country or architectures in the same version.
+* Note: We will never put multiple $LK,"Keyboard Tables",A="FI:::/Kernel/SerialDev/Keyboard.HC"$.  Each country must make their own version of TempleOS.  The $LK,"Intel Factory ROM",A="FF:::/Doc/Demands.DD,English"$ will have just English.  Our $LK,"Charter",A="FI:::/Doc/Charter.DD"$ bans multiple country or architectures in the same version.

-* 12 border chars in screen font codes 0x02-0x0D.  $LK,"TextBorder",A="MN:TextBorder"$() $LK,"RawDr",A="MN:RawDr"$() $LK,"::/Demo/Games/CharDemo.CPP"$. LineFeed shows-up in $FG,2$<CTRL-m>$FG$ PersonalMenu.
+* 12 border chars in screen font codes 0x02-0x0D.  $LK,"TextBorder",A="MN:TextBorder"$() $LK,"RawDr",A="MN:RawDr"$() $LK,"::/Demo/Games/CharDemo.HC"$. LineFeed shows-up in $FG,2$<CTRL-m>$FG$ PersonalMenu.

 * Super-simple high speed serial needs flow control.  $FG,2$<CTRL-s>$FG$ and $FG,2$<CTRL-q>$FG$?

@@ -291,7 +289,7 @@ $FG,5$$TX+CX,"Inspirational Ideas"$$FG$
 * Make use of flag potential in $LK,"FilesFind",A="MN:FilesFind"$() and possibly $LK,"DirContextNew",A="MN:DirContextNew"$().
 * Sort options for $LK,"FilesFind",A="MN:FilesFind"$()?

-* New $LK,"HolyC",A="FI:::/Doc/HolyC.TXT"$ language features?
+* New $LK,"HolyC",A="FI:::/Doc/HolyC.DD"$ language features?

 * Better $LK,"Debugging",A="HI:Debugging"$?

@@ -303,7 +301,7 @@ $FG,5$$TX+CX,"Inspirational Ideas"$$FG$

 * Move stuff out of $LK,"Kernel",A="FI:::/Kernel/Kernel.PRJ"$ module.

-* $$LK,L="FL:D:/Kernel/File.CPP"$$ instead of A=
+* $$LK,L="FL:D:/Kernel/File.HC"$$ instead of A=
 * $$SP,B=1$$ instead of $$SP,BI=1$$
 * $$CM+LE+RE is nasty

@@ -315,7 +313,7 @@ $FG,5$$TX+CX,"Inspirational Ideas"$$FG$

 * Compiler: More aggressive in $LK,"CmpF2PushPop",A="MN:CmpF2PushPop"$() with types besides MOV and F64. 

-* Playing with $LK,"::/Demo/Lectures/NegDisp.CPP"$ on $LK,"CTask",A="MN:CTask"$?
+* Playing with $LK,"::/Demo/Lectures/NegDisp.HC"$ on $LK,"CTask",A="MN:CTask"$?
 $ID,5$$$=-CTASK_NEG_OFFSET
 offset(CTask.addr)==0
 Spawn(): CAlloc()
@@ -327,14 +325,14 @@ $ID,-5$


 $FG,5$$TX+CX,"Test"$$FG$
-* $LK,"SpriteBitMap",A="FI:::/Adam/Gr/SpriteBitMap.CPP"$: Grabscroll? 
+* $LK,"SpriteBitMap",A="FI:::/Adam/Gr/SpriteBitMap.HC"$: Grabscroll? 

 * $LK,"DrvMap",A="MN:DrvMap"$() in $LK,"MountFile",A="MN:MountFile"$().

 * Return ress for $LK,"GrBlot",A="MN:GrBlot"$, $LK,"GrRect",A="MN:GrRect"$, $LK,"GrPutChar",A="MN:GrPutChar"$?
 * Collision cnts for $LK,"GrBlot",A="MN:GrBlot"$, $LK,"GrRect",A="MN:GrRect"$, $LK,"GrPutChar",A="MN:GrPutChar"$?

-* $LK,"GetStr",A="MN:GetStr"$() or $LK,"GetChar",A="MN:GetChar"$() in $LK,"OSInstall",A="FI:::/Misc/OSInstall.CPP"$ didn't like focus change.
+* $LK,"GetStr",A="MN:GetStr"$() or $LK,"GetChar",A="MN:GetChar"$() in $LK,"OSInstall",A="FI:::/Misc/OSInstall.HC"$ didn't like focus change.

 * Test on Dad's computer or other people's?

@@ -344,7 +342,7 @@ $FG,5$$TX+CX,"Test"$$FG$

 * $LK,"FileMgr",A="MN:FileMgr"$() help link scrolls out of window.

-* $LK,"MouseDriverInstall",A="MN:MouseDriverInstall"$() throws exceptions?  Doesn't work?  Why mouse $LK,"0x9FC30",A="FF:::/Kernel/SerialDev/Mouse.CPP,9FC"$?
+* $LK,"MouseDriverInstall",A="MN:MouseDriverInstall"$() throws exceptions?  Doesn't work?  Why mouse $LK,"0x9FC30",A="FF:::/Kernel/SerialDev/Mouse.HC,9FC"$?

 * VirtualBox MP reboot?

@@ -365,7 +363,7 @@ $FG,5$$TX+CX,"Uncategorized"$$FG$
  >Might want to do ZOOM in U8 graphics and convert screen capture to U8
  >Might want to rev bit order

-* This $LK,"Fs->catch_except=TRUE",A="FF:::/Kernel/SrvCmd.CPP,Fs->catch_except=TRUE"$ causes problems because it
+* This $LK,"Fs->catch_except=TRUE",A="FF:::/Kernel/SrvCmd.HC,Fs->catch_except=TRUE"$ causes problems because it
 catches divide and out-of-mem.  Not sure what to do, yet.

 * Release semaphores or break lock sema,usb_td
@@ -373,7 +371,7 @@ catches divide and out-of-mem.  Not sure what to do, yet.
 * Might make CSprite flood fill operate on a separate bitmap
 and blotted at the end.
 * <CTRL-r> delete subsprite in menu near others
-* make better heapwalk, do something with $LK,"_CFG_HEAP_DBG",A="FF:::/Kernel/KernelA.HPP,_CFG_HEAP_DBG"$.
+* make better heapwalk, do something with $LK,"_CFG_HEAP_DBG",A="FF:::/Kernel/KernelA.HH,_CFG_HEAP_DBG"$.

 * static var off of data heap.
 * could add "const" to not set CCF_NOT_CONST flag for trig, etc.
@@ -402,13 +400,17 @@ Moses gets Aaron			$TX,"Exodus 4:10-16",HTML="http://www.biblegateway.com/passag
 There is no council against the Lord	$TX,"Proverbs 21:30",HTML="http://www.biblegateway.com/verse/en/Proverbs%2021:30"$
 Human help is worthless			$TX,"Psalm 108:12",HTML="http://www.biblegateway.com/verse/en/Psalm%20108:12"$
 Do not seek your own wealth		$TX,"1 Corinthians 10:24",HTML="http://www.biblegateway.com/verse/en/1%20Corinthians%2010:24"$
+Abundance of Spirits			$TX,"1 Corinthians 14:12",HTML="http://www.usccb.org/bible/1corinthians/14:12"$
 The stone rejected is cornerstone	$TX,"Matthew 21:42",HTML="http://www.biblegateway.com/verse/en/Matthew%2021:42"$
+Egypt rise like flood			$TX,"Jeremiah 46:7-8",HTML="http://www.biblegateway.com/passage/?search=Jeremiah%2046:7-8&version=NIV"$
 New wineskins				$TX,"Mark 2:22",HTML="http://www.biblegateway.com/verse/en/Mark%202:22"$
+Thousand songs of Solomon		$TX,"1 Kings 4:30-32",HTML="http://www.biblegateway.com/passage/?search=1%20Kings%204:30-32&version=NIV"$

 $FG,5$$TX+CX,"Misc Notes"$$FG$
+Erik van der Karbargenbok: $LK,"TempleBot",A="PI:::/Home/Sup1/Sup1Bin/TempleBot"$.
 Intel CEO's name: Brian Krzanich
 >$FG,2$lspci -v$FG$
-Size:$TX,"17422 KB",D="DD_TEMPLEOSCD_K_SIZE"$
+Size:$TX,"20932 KB",D="DD_TEMPLEOSCD_K_SIZE"$

 $FG,5$$TX+CX,"My Web Bookmarks"$$FG$$WW,0$
 $TX,"My FireFox Bookmarks",HTML="http://www.templeos.org/Wb/Home/Sup1/Sup1Blog/Bookmarks"$
@@ -442,12 +444,13 @@ $TX,"The sins of Newton",HTML="https://www.brainpickings.org/2012/01/04/isaac-ne
 $TX,"Stalin's Tanks",HTML="https://boardgamegeek.com/boardgame/5198/stalins-tanks"$
 $TX,"Lamp shades",HTML="http://www.lampsplus.com/products/lamp-shades"$
 $TX,"The Original Jewish Temple",HTML="http://www.jewishvirtuallibrary.org/jsource/Judaism/The_Temple.html"$
-$TX,"KingJamesBible with LineNums",HTML="http://www.templeos.org/Wb/Home/Sup1/Sup1Blog/NumBible.TXT"$
+$TX,"KingJamesBible with LineNums",HTML="http://www.templeos.org/Wb/Home/Sup1/Sup1Blog/NumBible.DD"$
 $TX,"Higgs 5-Sigma Proof",HTML="http://understandinguncertainty.org/explaining-5-sigma-higgs-how-well-did-they-do"$
 $TX,"The Number Bleem",HTML="http://www.strangehorizons.com/2000/20001120/secret_number.shtml"$
 $TX,"Dwight: Nerd torture",HTML="http://www.noob.us/humor/the-office-dwight-faces-nerd-torture-of-the-highest-form"$
 $TX,"TOSZ Compression",HTML="http://www.templeos.org/Wb/Linux/TOSZ.CPP"$
 $TX,"ATA/ATAPI spec",HTML="http://www.t13.org/Documents/UploadedDocuments/docs2007/D1532v1r4b-AT_Attachment_with_Packet_Interface_-_7_Volume_1.pdf"$
+$TX,"Patton Prayer",HTML="http://www.pattonhq.com/prayer.html"$
 $TX,"Streaming Terry A. Davis",HTML="https://www.youtube.com/channel/UCdX4uJUwSFwiY3XBvu-F_-Q/live"$

 $TX,"WWW.OSDEV.ORG",HTML="http://www.osdev.org"$
@@ -2,7 +2,7 @@ $TR-UL,"Adam"$
 $ID,2$$TR,"SysMsgFlags"$
 $ID,2$sys_msg_flags[0]=0xFF;
 $ID,-2$$TR,"SysRegVer"$
-$ID,2$registry_version=4.100;
+$ID,2$registry_version=4.110;
 $ID,-2$$ID,-2$$TR-UL,"TempleOS"$
 $ID,2$$TR,"TOS"$
 $ID,2$I64 tos_code_walk_thru=105,tos_after_egypt_in_action=46;
@@ -10,40 +10,40 @@ $ID,-2$$TR,"CircleTrace"$
 $ID,2$F64 best_score=4.9425;
 $ID,-2$$TR,"DiningStars"$
 $ID,2$F64 best_score=9999.0000;
-$ID,-2$$TR,"Staff"$
-$ID,2$#define PERSONAL_INITIALS "TAD"
-#define MACHINE_CFG 0
-$ID,-2$$TR,"KeepAway"$
-$ID,2$I64 best_score0=68,best_score1=30;
+$ID,-2$$TR,"BlackDiamond"$
+$ID,2$I64 best_score=1;
+$ID,-2$$TR,"EagleDive"$
+$ID,2$F64 best_score=147.6932;
+$ID,-2$$TR,"DunGen"$
+$ID,2$F64 best_score=20.5295;
 $ID,-2$$TR,"CastleFrankenstein"$
 $ID,2$F64 best_score=33.8405;
 $ID,-2$$TR,"ZoneOut"$
 $ID,2$F64 best_score=8.1373;
-$ID,-2$$TR,"DunGen"$
-$ID,2$F64 best_score=20.5295;
-$ID,-2$$TR,"Wenceslas"$
-$ID,2$F64 best_score=43.9944;
-$ID,-2$$TR,"FlapBat"$
-$ID,2$F64 best_score=16.3077;
-$ID,-2$$TR,"RawHide"$
-$ID,2$F64 best_score=96.1279;
 $ID,-2$$TR,"Varoom"$
 $ID,2$F64 best_score=46.2643;
+$ID,-2$$TR,"FlapBat"$
+$ID,2$F64 best_score=16.3077;
 $ID,-2$$TR,"TimeOut"$
 $ID,2$I64 best_score=22202;
-$ID,-2$$TR,"BlackDiamond"$
-$ID,2$I64 best_score=9;
-$ID,-2$$TR,"BomberGolf"$
-$ID,2$I64 best_score=175;
+$ID,-2$$TR,"RawHide"$
+$ID,2$F64 best_score=96.1279;
+$ID,-2$$TR,"KeepAway"$
+$ID,2$I64 best_score0=68,best_score1=30;
 $ID,-2$$TR,"XCaliber"$
 $ID,2$I64 best_score=248;
 I64 msg_flags=1;
-$ID,-2$$TR,"EagleDive"$
-$ID,2$F64 best_score=147.6932;
+$ID,-2$$TR,"Wenceslas"$
+$ID,2$F64 best_score=43.9944;
+$ID,-2$$TR,"BomberGolf"$
+$ID,2$I64 best_score=175;
+$ID,-2$$TR,"Staff"$
+$ID,2$#define PERSONAL_INITIALS "TAD"
+#define MACHINE_CFG 0
 $ID,-2$$ID,-2$$TR,"DemoCompany"$
 $ID,2$
 $TR,"Game1"$
-$ID,2$F64 best_score=388.68032;
+$ID,2$F64 best_score=197.62089;
 $TR,"SimpleVal"$
-$ID,2$1332;
+$ID,2$1344;
 $ID,-2$$ID,-2$
@@ -17,7 +17,7 @@ U8 *BlogLocalFile(CDate cdt=0)
  CDateStruct ds;
  if (!cdt) cdt=Now+local_time_offset;
  Date2Struct(&ds,cdt);
-  StrPrint(file,"%s/" PERSONAL_INITIALS "%02d%02d%02d.TXT.Z",
+  StrPrint(file,"%s/" PERSONAL_INITIALS "%02d%02d%02d.DD.Z",
 	BlogLocalDir(cdt),ds.year%100,ds.mon,ds.day_of_mon);
  return file;
 }
@@ -39,7 +39,7 @@ U8 *BlogWebFile(CDate cdt=0)
  CDateStruct ds;
  if (!cdt) cdt=Now+local_time_offset;
  Date2Struct(&ds,cdt);
-  StrPrint(file,"%s/" PERSONAL_INITIALS "%02d%02d%02d.TXT.Z",
+  StrPrint(file,"%s/" PERSONAL_INITIALS "%02d%02d%02d.DD.Z",
 	BlogWebDir(cdt),ds.year%100,ds.mon,ds.day_of_mon);
  return file;
 }
@@ -100,7 +100,7 @@ public U0 MakeWebSitePartial()
 public U0 Blog()
 {
  if (!FileFind(BlogLocalFile,,FUF_JUST_FILES))
-    Copy("~/Web/" PERSONAL_INITIALS "/DailyBlogHeader.TXT.Z",
+    Copy("~/Web/" PERSONAL_INITIALS "/DailyBlogHeader.DD.Z",
 	  BlogLocalFile);
  AutoComplete;
  WinBorder;
@@ -110,9 +110,9 @@ public U0 Blog()
  Msg(MSG_KEY_DOWN_UP,'\n',0);
  if (Ed(BlogLocalFile,EDF_WAS_WRITE)) {
    DocOpt(BlogLocalFile,"-r");
-    Copy(BlogLocalFile,"::" DAILY_BASE ".TXT.Z");
-    Copy(BlogLocalFile,"D:" DAILY_BASE ".TXT.Z");
-    Copy(BlogLocalFile,"D:/Wb" DAILY_BASE ".TXT.Z");
-    TOSWebFile("D:/Wb" DAILY_BASE ".TXT.Z");
+    Copy(BlogLocalFile,"::" DAILY_BASE ".DD.Z");
+    Copy(BlogLocalFile,"D:" DAILY_BASE ".DD.Z");
+    Copy(BlogLocalFile,"D:/Wb" DAILY_BASE ".DD.Z");
+    TOSWebFile("D:/Wb" DAILY_BASE ".DD.Z");
  }
 }
@@ -1,4 +1,4 @@
-//The CFG defines are $LK,"~/TOSCfg.CPP",A="FI:::/Demo/AcctExample/TOSCfg.CPP"$.
+//The CFG defines are $LK,"~/TOSCfg.HC",A="FI:::/Demo/AcctExample/TOSCfg.HC"$.

 #help_index "TOS"

@@ -51,7 +51,7 @@ public U0 CopySongs(U8 threshold='7')
 {
  CDoc *doc;
  CDocEntry *doc_e;
-  CDirEntry *tempde=FilesFind("/Home/Sup1/Sup1Psalmody/*.CPP*",
+  CDirEntry *tempde=FilesFind("/Home/Sup1/Sup1Psalmody/*.HC*",
 	FUF_CLUSTER_ORDER),*tempde1=tempde;
  DelTree("/Apps/Psalmody/Examples");
  MkDir("/Apps/Psalmody/Examples");
@@ -69,7 +69,7 @@ public U0 CopySongs(U8 threshold='7')
 U0 DistroPrep()
 {
  Del("/Home/Demo*");
-  DelTree("/Home/*Temp.TXT.Z");
+  DelTree("/Home/*Temp.DD.Z");
  if (FileFind("/Home/Sup1/Sup1Psalmody"))
    CopySongs;

@@ -77,8 +77,8 @@ U0 DistroPrep()
  MkDir("/Temp");
  MkDir("/Temp/ScreenShots");

-  Touch("/PersonalMenu.TXT.Z","+T");
-  Touch("/Home/PersonalMenu.TXT.Z","+T");
+  Touch("/PersonalMenu.DD.Z","+T");
+  Touch("/Home/PersonalMenu.DD.Z","+T");

  DelTree("/Demo/AcctExample");
  CopyTree("/Home","/Demo/AcctExample");
@@ -87,15 +87,15 @@ U0 DistroPrep()
  DelTree("/Demo/AcctExample/Sup1");
  DelTree("/Demo/AcctExample/Web");
  Del("/Demo/AcctExample/Test*");
-  Copy("/Home/Web/index.TXT.Z",
-	"/Demo/ToHtmlToTXTDemo/DemoInPage.TXT.Z");
-  if (FileFind("/Home/Sup1/Sup1Utils/SortHeaders.CPP.Z"))
-    ExeFile("/Home/Sup1/Sup1Utils/SortHeaders.CPP.Z");
+  Copy("/Home/Web/index.DD.Z",
+	"/Demo/ToHtmlToTXTDemo/DemoInPage.DD.Z");
+  if (FileFind("/Home/Sup1/Sup1Utils/SortHeaders.HC.Z"))
+    ExeFile("/Home/Sup1/Sup1Utils/SortHeaders.HC.Z");

-  if (FileFind("/Home/Sup1/Sup1Blog/YouTube.TXT.Z"))
-    Sort("/Home/Sup1/Sup1Blog/YouTube.TXT.Z",,2);
+  if (FileFind("/Home/Sup1/Sup1Blog/YouTube.DD.Z"))
+    Sort("/Home/Sup1/Sup1Blog/YouTube.DD.Z",,2);

-  //Once in a while, do $LK,"~/Sup1/Sup1Utils/DblSpaceScan.CPP"$.
+  //Once in a while, do $LK,"~/Sup1/Sup1Utils/DblSpaceScan.HC"$.

  CursorRem("/*");
  DelTree("/Demo/*.BI*");
@@ -116,25 +116,25 @@ U0 MakeBootRescueDrvFile()

  MkDir("A:/Compiler");
  Copy("C:/Compiler/Compiler.BIN.Z",	"A:/Compiler");
-  Copy("C:/Compiler/OpCodes.TXT.Z",	"A:/Compiler");
-  Copy("C:/Compiler/CompilerA.HPP.Z",	"A:/Compiler");
-  Copy("C:/Compiler/CompilerB.HPP.Z",	"A:/Compiler");
+  Copy("C:/Compiler/OpCodes.DD.Z",	"A:/Compiler");
+  Copy("C:/Compiler/CompilerA.HH.Z",	"A:/Compiler");
+  Copy("C:/Compiler/CompilerB.HH.Z",	"A:/Compiler");

  MkDir("A:/Kernel");
-  Copy("C:/Kernel/*.HPP*",		"A:/Kernel");
+  Copy("C:/Kernel/*.HH*",		"A:/Kernel");
  CopyTree("C:/Kernel/BlkDev",		"A:/Kernel/BlkDev");

-  Copy("C:/Home/Sup1/Sup1Distro/DbgStartOS.CPP.Z","A:/StartOS.CPP.Z");
+  Copy("C:/Home/Sup1/Sup1Distro/DbgStartOS.HC.Z","A:/StartOS.HC.Z");

  MkDir("A:/Adam");
-  Copy("C:/Home/Sup1/Sup1Distro/DbgMakeAdam.CPP.Z","A:/Adam/MakeAdam.CPP.Z");
-  Copy("C:/Home/Sup1/Sup1Distro/DbgMount.CPP.Z","A:/Adam");
-  Copy("C:/Adam/AExts.CPP.Z",	"A:/Adam");
-  Copy("C:/Adam/AMath.CPP.Z",	"A:/Adam");
-  Copy("C:/Adam/Training.CPP.Z","A:/Adam");
-  Copy("C:/Adam/AMem.CPP.Z",	"A:/Adam");
-  Copy("C:/Adam/TaskRep.CPP.Z",	"A:/Adam");
-  Copy("C:/Adam/AMathODE.CPP.Z","A:/Adam");
+  Copy("C:/Home/Sup1/Sup1Distro/DbgMakeAdam.HC.Z","A:/Adam/MakeAdam.HC.Z");
+  Copy("C:/Home/Sup1/Sup1Distro/DbgMount.HC.Z","A:/Adam");
+  Copy("C:/Adam/AExts.HC.Z",	"A:/Adam");
+  Copy("C:/Adam/AMath.HC.Z",	"A:/Adam");
+  Copy("C:/Adam/Training.HC.Z","A:/Adam");
+  Copy("C:/Adam/AMem.HC.Z",	"A:/Adam");
+  Copy("C:/Adam/TaskRep.HC.Z",	"A:/Adam");
+  Copy("C:/Adam/AMathODE.HC.Z","A:/Adam");

  FileWrite("C:" CFG_BOOT_RESCUE_DRV_FILE,
 	bd->RAM_dsk,(bd->max_blk+1)<<BLK_SIZE_BITS);
@@ -151,7 +151,7 @@ U0 MakeSymFiles()
  Who;
  if (doc=DocPut) {
    st=StrNew(doc->filename.name);
-    StrCpy(doc->filename.name,"D:/Wb/Home/Web/SymsAlpha.TXT.Z");
+    StrCpy(doc->filename.name,"D:/Wb/Home/Web/SymsAlpha.DD.Z");
    DocWrite(doc);
    StrCpy(doc->filename.name,st);
    Free(st);
@@ -161,7 +161,7 @@ U0 MakeSymFiles()
  Who("+m");
  if (doc=DocPut) {
    st=StrNew(doc->filename.name);
-    StrCpy(doc->filename.name,"D:/Wb/Home/Web/SymsAddress.TXT.Z");
+    StrCpy(doc->filename.name,"D:/Wb/Home/Web/SymsAddress.DD.Z");
    DocWrite(doc);
    StrCpy(doc->filename.name,st);
    Free(st);
@@ -190,7 +190,7 @@ I64 MakeLineRepFile()
  res=LineRep;
  if (doc=DocPut) {
    st=StrNew(doc->filename.name);
-    StrCpy(doc->filename.name,"B:/TOS/Web/LineRep.TXT.Z");
+    StrCpy(doc->filename.name,"B:/TOS/Web/LineRep.DD.Z");
    DocWrite(doc);
    StrCpy(doc->filename.name,st);
    Free(st);
@@ -204,7 +204,7 @@ I64 MakeLineRepFile()
  CopyTree("B:/TOS","C:/Home");
  DelTree("B:/TOS");

-  doc=DocRead("C:/Adam/ADefine.CPP.Z");
+  doc=DocRead("C:/Adam/ADefine.HC.Z");
  DocTreeFind(doc,"LineRep",&tree_branch,&start_indent,&end_indent);
  DocCut(doc,start_indent->next,end_indent->last);
  doc->cur_entry=start_indent->next;
@@ -312,7 +312,7 @@ U0 UltraDistroPrep()
  DelTree(TOS_DISTRO_DIR "/Linux");
  Del(TOS_DISTRO_DIR "/" KERNEL_BIN_C);
  Del(TOS_DISTRO_DIR "/Adam/AutoComplete/ACDefs.DAT*");
-  Del(TOS_DISTRO_DIR "/Misc/PCIDevices.TXT.Z");
+  Del(TOS_DISTRO_DIR "/Misc/PCIDevices.DD.Z");
  Del(TOS_DISTRO_DIR "/Misc/Bible.TXT.Z");

  DelTree(TOS_DISTRO_DIR "/Apps");
@@ -321,11 +321,11 @@ U0 UltraDistroPrep()
  DelTree(TOS_DISTRO_DIR "/Misc/Tour");
  Del(TOS_DISTRO_DIR "/" KERNEL_BIN_C);
  Del(TOS_DISTRO_DIR "/Adam/AutoComplete/ACWords.DAT*");
-  Del(TOS_DISTRO_DIR "/Adam/God/Vocab.TXT.Z");
-  Del(TOS_DISTRO_DIR "/Misc/OSTestSuite.CPP.Z");
-  Copy("C:/Home/Sup1/Sup1Distro/UltraMenu.TXT.Z",
-	TOS_DISTRO_DIR "/PersonalMenu.TXT.Z");
-  Copy("C:/Demo/Games/EagleDive.CPP.Z",
+  Del(TOS_DISTRO_DIR "/Adam/God/Vocab.DD.Z");
+  Del(TOS_DISTRO_DIR "/Misc/OSTestSuite.HC.Z");
+  Copy("C:/Home/Sup1/Sup1Distro/UltraMenu.DD.Z",
+	TOS_DISTRO_DIR "/PersonalMenu.DD.Z");
+  Copy("C:/Demo/Games/EagleDive.HC.Z",
 	TOS_DISTRO_DIR "/Misc");
 }
 U0 MakeUltraDistro()
@@ -470,6 +470,5 @@ public U0 PreBackUp()
  Copy("D:/Home/Sup1/Sup1Blog/Bookmarks.html","C:/Home/Sup1/Sup1Blog");
  Del("C:/Home/Sup1/Sup1Bin/*");
  Copy("D:/Home/Sup1/Sup1Bin/*","C:/Home/Sup1/Sup1Bin");
-  Copy("D:/Home/Sup1/Sup1Bin/TempleBot","C:/Linux");
  Copy("D:/Home/Sup1/Sup1Bin/God*","C:/Linux");
 }
@@ -1,765 +0,0 @@
-#help_index "TOS"
-
-U0 BadCodeJump()
-{//$LK,"::/Adam/God/HSNotes.TXT"$
-  CDirEntry *tempde1=FilesFind("/*",
-	FUF_JUST_FILES|FUF_RECURSE|FUF_JUST_SRC|FUF_CLUSTER_ORDER),
-	*tempde=tempde1;
-  I64 cnt=0,num;
-  CDoc *doc;
-  U8 *st;
-  while (tempde) {
-    doc=DocRead(tempde->full_name);
-    tempde->user_data=doc->head.y;
-    cnt+=doc->head.y;
-    DocDel(doc);
-    tempde=tempde->next;
-  }
-
-  FifoU8Flush(god.fifo);
-  GodBitsIns(GOD_GOOD_BITS,KbdMouseEvtTime>>GOD_BAD_BITS);
-  num=GodBits(GOD_GOOD_BITS)%cnt;
-
-  tempde=tempde1;
-  while (tempde) {
-    num-=tempde->user_data;
-    if (num<0) {
-      st=MStrPrint("FL:%s,%d",tempde->full_name,-num);
-      break;
-    }
-    tempde=tempde->next;
-  }
-  DirTreeDel(tempde1);
-  Ed(st);
-  Free(st);
-}
-
-U8 *WebBookMarks(U8 *filename="~/Sup1/Sup1Blog/Bookmarks.html")
-{
-  U8 *st;
-  CDocEntry *doc_e;
-  CDoc *doc=DocNew;
-  CCmpCtrl *cc=CmpCtrlNew(MStrPrint("#include \"%s\"",filename));
-  while (Lex(cc))
-    if (cc->token==TK_STR && *cc->cur_str(U32 *)=='http') {
-      DocPrint(doc,"$$MU-UL,\"%$$Q\",LE=0x%X$$\n",cc->cur_str,cc->cur_str);
-      cc->cur_str=NULL;
-    }
-  CmpCtrlDel(cc);
-
-  if ((st=PopUpMenu(doc))!=DOCM_CANCEL)
-    st=StrNew(st);
-  else
-    st=NULL;
-
-  doc_e=doc->head.next;
-  while (doc_e!=doc) {
-    if (doc_e->type_u8==DOCT_MENU_VAL)
-      Free(doc_e->left_exp);
-    doc_e=doc_e->next;
-  }
-  DocDel(doc);
-
-  return st;
-}
-
-U8 *YouTubeGet(U8 *filename="C:/Home/Sup1/Sup1Blog/YouTube.TXT.Z",U8 *needle)
-{
-  I64 i=0,line=MIN_I64;
-  CDoc	*doc=DocRead(filename,DOCF_PLAIN_TEXT_TABS|DOCF_NO_CURSOR),
-	*doc2=DocNew;
-  U8 *title,*code,*res;
-  while (DocFind(doc,line,needle)) {
-    if (!(doc->cur_entry->y&1)) {
-      title=doc->cur_entry->tag;
-      DocLineNumGoTo(doc,doc->cur_entry->y+2);
-      if (doc->cur_entry->type_u8==DOCT_TEXT) {
-	code=doc->cur_entry->tag;
-	DocPrint(doc2,"$$MU-UL,\"%s\",LE=0x%X$$\n",title,code);
-	i++;
-      }
-    }
-    line=doc->cur_entry->y+2;
-  }
-  switch (i) {
-    case 0:
-      res=NULL;
-      break;
-    case 1:
-      res=StrNew(code);
-      break;
-    default:
-      res=PopUpMenu(doc2);
-      if (res==DOCM_CANCEL)
-	res=NULL;
-      else
-	res=StrNew(res);
-  }
-  DocDel(doc);
-  DocDel(doc2);
-  return res;
-}
-
-U0 YouTubeAdd(U8 *filename="C:/Home/Sup1/Sup1Blog/YouTube.TXT.Z",
-	U8 *title,U8 *code)
-{
-  CDoc *doc=DocRead(filename,DOCF_PLAIN_TEXT_TABS|DOCF_NO_CURSOR);
-  if (!DocFind(doc,,title)) {
-    DocBottom(doc);
-    DocPrint(doc,"%s\n%s\n",title,code);
-    DocTop(doc);
-    DocWrite(doc);
-    Sort(filename,,2);
-  }
-  DocDel(doc);
-}
-
-class CTopMoviesForm
-{
-  U8	tag[STR_LEN];
-  U8	special[STR_LEN] fmtstr "$$DA-P,"
-	"A=\"Movie #1-100 (2 Decimal Digits from Hex):%s\"$$\n";
-  I64	timestamp	fmtstr "$$DA,A=\"TimeStamp :%d\"$$\n";
-  I64	cert;
-  I64	min;
-  I64	sec;
-};
-
-class CMetallicaForm
-{
-  U8	tag[STR_LEN];
-  U8	special[STR_LEN] fmtstr "$$DA-P,"
-	"A=\"Song #1-99 (2 Decimal Digits from Hex):%s\"$$\n";
-  I64	timestamp	fmtstr "$$DA,A=\"TimeStamp :%d\"$$\n";
-  I64	cert;
-  I64	min;
-  I64	sec;
-};
-
-class CWebBookMarkForm
-{
-  U8	tag[STR_LEN]	fmtstr "$$DA-P,A=\"Tag Text:%s\"$$\n";
-  U8	special[STR_LEN];
-  I64	timestamp;
-  I64	cert;
-  I64	min;
-  I64	sec;
-};
-
-class CWebBibleForm
-{
-  U8	tag[STR_LEN]	fmtstr "$$DA-P,A=\"Tag Text:%s\"$$\n";
-  U8	special[STR_LEN] fmtstr "$$DA-P,A=\"Bible Passage:%s\"$$\n";
-  I64	timestamp;
-  I64	cert;
-  I64	min;
-  I64	sec;
-};
-
-class CYouTubeForm
-{
-  U8	tag[STR_LEN]	fmtstr "$$DA-P,A=\"Title:%s\"$$\n";
-  U8	special[STR_LEN] fmtstr "$$DA-P-TRM,LEN=11,A=\"SerialNum:%11s\"$$\n";
-  I64	timestamp;
-  I64	cert;
-  I64	min		fmtstr "$$DA,A=\"Minutes  :%d\"$$\n";
-  I64	sec		fmtstr "$$DA,A=\"Seconds  :%d\"$$\n";
-};
-
-class CImgurForm
-{
-  U8	tag[STR_LEN];
-  U8	special[STR_LEN] fmtstr "$$DA-P,A=\"SerialNum:%s\"$$\n";
-  I64	timestamp;
-  I64	cert;
-  I64	min		fmtstr "$$DA,A=\"Width    :%d\"$$\n";
-  I64	sec		fmtstr "$$DA,A=\"Height   :%d\"$$\n";
-};
-
-class CWikipediaForm
-{
-  U8	tag[STR_LEN]	fmtstr "$$DA-P,A=\"Tag Text:%s\"$$\n";
-  U8	special[STR_LEN] fmtstr "$$DA-P,A=\"Index   :%s\"$$\n";
-  I64	timestamp;
-  I64	cert;
-  I64	min;
-  I64	sec;
-};
-
-class CRandDecForm
-{
-  U8	tag[STR_LEN];
-  U8	special[STR_LEN] fmtstr "$$DA-P,A=\"Line (Dec):%s\"$$\n";
-  I64	timestamp;
-  I64	cert;
-  I64	min;
-  I64	sec;
-};
-
-class CRandHex5Form
-{
-  U8	tag[STR_LEN];
-  U8	special[STR_LEN] fmtstr "$$DA-P-TRM,LEN=5,"
-	"A=\"Line (5-Digit Hex):%5s\"$$\n";
-  I64	timestamp;
-  I64	cert;
-  I64	min;
-  I64	sec;
-};
-
-class CRandCertForm
-{
-  U8	tag[STR_LEN];
-  U8	special[STR_LEN] fmtstr "$$DA-P,A=\"Line (Dec) :%s\"$$\n";
-  I64	timestamp;
-  I64	cert		fmtstr "$$DA,A=\"Certificate:%d\"$$\n";
-  I64	min;
-  I64	sec;
-};
-
-class CRandHex5BeaconForm
-{
-  U8	tag[STR_LEN];
-  U8	special[STR_LEN] fmtstr "$$DA-P-TRM,LEN=5,"
-	"A=\"Line (5-Digit Hex):%5s\"$$\n";
-  I64	timestamp	fmtstr "$$DA,A=\"TimeStamp :%d\"$$\n";
-  I64	cert;
-  I64	min;
-  I64	sec;
-};
-
-class CRandHex8BeaconForm
-{
-  U8	tag[STR_LEN];
-  U8	special[STR_LEN] fmtstr "$$DA-P-TRM,LEN=8,"
-	"A=\"Line (8-Digit Hex):%8s\"$$\n";
-  I64	timestamp	fmtstr "$$DA,A=\"TimeStamp :%d\"$$\n";
-  I64	cert;
-  I64	min;
-  I64	sec;
-};
-
-class CRandExtDec5Form
-{
-  U8	tag[STR_LEN];
-  U8	special[STR_LEN] fmtstr "$$DA-P,A=\"5 Decimal Digits from Hex:%s\"$$\n";
-  I64	timestamp;
-  I64	cert;
-  I64	min;
-  I64	sec;
-};
-
-class CRandExtDec5BeaconForm
-{
-  U8	tag[STR_LEN];
-  U8	special[STR_LEN] fmtstr "$$DA-P,A=\"5 Decimal Digits from Hex:%s\"$$\n";
-  I64	timestamp	fmtstr "$$DA,A=\"TimeStamp:%d\"$$\n";
-  I64	cert;
-  I64	min;
-  I64	sec;
-};
-
-U8 *URLPercentSpaces(U8 *src)
-{
-  U8 buf[2048],*dst=buf;
-  while (*src) {
-    if (*src==CH_SPACE) {
-      *dst++='%';
-      *dst++='%';
-      *dst++='2';
-      *dst++='0';
-      src++;
-    } else
-      *dst++=*src++;
-  }
-  *dst=0;
-  return StrNew(buf);
-}
-
-U8 *URLPlusSpaces(U8 *src)
-{
-  U8 buf[2048],*dst=buf;
-  while (*src) {
-    if (*src==CH_SPACE) {
-      *dst++='+';
-      src++;
-    } else
-      *dst++=*src++;
-  }
-  *dst=0;
-  return StrNew(buf);
-}
-
-I64 ExtDecFromHex(U8 *st,I64 digits)
-{
-  I64 res=0,ch;
-  do {
-    if (!(ch=*st++))
-      throw;
-    if ('0'<=ch<='9') {
-      res=10*res+ch-'0';
-      digits--;
-    }
-  } while (digits);
-  return res;
-}
-
-U8 *RandVideoRead(U8 *filename,I64 line)
-{
-  U8 *res=NULL;
-  CDoc *doc=DocRead(filename,DOCF_PLAIN_TEXT_TABS|DOCF_NO_CURSOR);
-  if (DocLineNumGoTo(doc,line-1) && doc->cur_entry->type_u8==DOCT_TEXT)
-    res=StrNew(doc->cur_entry->tag);
-  DocDel(doc);
-  return res;
-}
-
-U8 *RandVideoWrite(U8 *filename,I64 line,U8 *st)
-{
-  U8 *res=NULL;
-  CDoc *doc=DocRead(filename,DOCF_PLAIN_TEXT_TABS|DOCF_NO_CURSOR);
-  if (DocLineNumGoTo(doc,line-1)) {
-    if (doc->cur_entry->type_u8==DOCT_TEXT) {
-      Free(doc->cur_entry->tag);
-      doc->cur_entry->tag=StrNew(st);
-    } else
-      DocPrint(doc,"%s",st);
-    DocTop(doc);
-    DocWrite(doc);
-  }
-  DocDel(doc);
-  return res;
-}
-
-U0 RandVideo(U8 *title,U8 *webpage,CTopMoviesForm *url,I64 digits,U8 *filename)
-{
-  U8 *st,*st2;
-  I64 i=ExtDecFromHex(url->special,digits);
-  if (st=RandVideoRead(filename,i*2)) {
-    StrCpy(url->tag,st);
-    Free(st);
-    if (!(st=RandVideoRead(filename,i*2+1))||!*st) {
-      Free(st);
-      *url->special=0;
-      if (DocForm(url(CYouTubeForm *)) && *url->special) {
-	if (url->min || url->sec)
-	  st=MStrPrint("%s&hl=enUS&start=%d",
-		url->special,url->min*60+url->sec);
-	else
-	  st=StrNew(url->special);
-	RandVideoWrite(filename,i*2+1,st);
-      } else
-	st=NULL;
-    }
-    if (StrIMatch("Metallica",filename)) {
-      st2=URLPlusSpaces(url->tag+3);
-      "God's response:\n"
-	    "$$TX,\"%s\",HTML=\"%s\"$$\n"
-	    "$$TX,\"%s (Lyrics)\","
-	    "HTML=\"http://lmgtfy.com/?q=Metallica+lyrics+%s\"$$\n",
-	    title,webpage,url->tag,st2;
-      Free(st2);
-    } else
-      "God's response:\n"
-	    "$$TX,\"%s\",HTML=\"%s\"$$\n"
-	    "#%s\n",title,webpage,url->tag;
-    if (st) {
-      "$$HC,\"<object width=\\\"640\\\" height=\\\"520\\\">"
-	    "<param name=\\\"movie\\\" "
-	    "value=\\\"http://www.youtube.com/v/%s\\\"></param><param "
-	    "name=\\\"allowscriptaccess\\\" "
-	    "value=\\\"always\\\"></param><embed "
-	    "src=\\\"http://www.youtube.com/v/%s\\\" "
-	    "type=\\\"application/x-shockwave-flash\\\" "
-	    "allowscriptaccess=\\\"always\\\" "
-	    "width=\\\"640\\\" height=\\\"520\\\">"
-	    "</embed></object>\"$$\n",st,st;
-      Free(st);
-    }
-  }
-}
-
-U0 MyBibleLines(U8 *st,I64 num_lines,I64 radix,Bool modulo,Bool plus_one)
-{//Radix<0 means extract N dec digits from hex.
-  CDoc *doc_out,*doc_in;
-  CDocEntry *doc_e;
-  I64 i,start;
-  U8 *verse;
-  if (*st && (doc_out=DocPut)) {
-    if (radix<0)
-      i=ExtDecFromHex(st,-radix);
-    else
-      i=Str2I64(st,radix);
-    if (radix<0)
-      DocPrint(doc_out,"'%s'-->(Taking first %d decimal digits)",st,-radix);
-    else if (radix==16)
-      DocPrint(doc_out,"0x%s-->",st);
-    if (modulo) {
-      DocPrint(doc_out,"(%d remainder when divided by %d)",
-	    i,ST_BIBLE_LINES-(num_lines-1));
-      start=i%(ST_BIBLE_LINES-(num_lines-1));
-    } else {
-      if (radix>=0 || plus_one)
-	DocPrint(doc_out,"%d",i);
-      start=i;
-    }
-    if (plus_one) {
-      start++;
-      DocPrint(doc_out,"+1");
-    }
-    DocPrint(doc_out,"-->Line:%d\n",start);
-
-    verse=BibleLine2Verse(start);
-    DocPrint(doc_out,"$TX,"KingJamesBible",HTML="http://www.templeos.org/Wb/Home/Sup1/Sup1Blog/NumBible.TXT"$ (%s)\n\nGod says...\n$$RED$$",verse);
-    Free(verse);
-
-    doc_in=DocNew;
-    BibleLines(doc_in,start,num_lines,"::/Home/Sup1/Sup1Blog/NumBible.TXT");
-    while (TRUE) {//Del leading blanks
-      doc_e=doc_in->head.next;
-      if (doc_e==doc_in)
-	break;
-      else {
-	if (doc_e->type_u8==DOCT_NEW_LINE)
-	  DocEntryDel(doc_in,doc_e);
-	else
-	  break;
-      }
-    }
-    while (TRUE) {//Del trailing blanks
-      doc_e=doc_in->cur_entry->last;
-      if (doc_e==doc_in)
-	break;
-      else {
-	if (doc_e->type_u8==DOCT_NEW_LINE)
-	  DocEntryDel(doc_in,doc_e);
-	else
-	  break;
-      }
-    }
-    DocPrint(doc_in,"$$FG$$\n");
-    DocInsDoc(doc_out,doc_in);
-    DocDel(doc_in);
-  }
-}
-
-#define GBP_SHORT	0
-#define GBP_MEDIUM	1
-#define GBP_LONG	2
-
-public U0 GodBooksPassage(U8 *files_find_mask,I64 len=512,
-	I64 rand_i32=MIN_I64,I64 verbosity=GBP_SHORT)
-{//Make God pick a book passage. $LK+PU,"Holy Spirit Instructions",A="FI:::/Adam/God/HSNotes.TXT"$
-  CDirEntry *tempde=FilesFind(files_find_mask,
-	FUF_RECURSE|FUF_JUST_FILES|FUF_JUST_TXT),
-	*tempde1=tempde;
-  I64 i=0;
-  U8 *st,*st2=NULL;
-  while (tempde) {
-    st=FileRead(tempde->full_name);
-    tempde->user_data=StrLen(st);
-    if (verbosity==GBP_LONG)
-      "%08X-",i;
-    if (tempde->user_data>=len)
-      i+=tempde->user_data+1-len;
-    if (verbosity==GBP_LONG)
-      "%08X:$$LK,\"%s\",A=\"FI:%s\"$$\n",
-	    i-1,tempde->full_name+2,tempde->full_name;
-    Free(st);
-    tempde=tempde->next;
-  }
-  if (rand_i32<0)
-    rand_i32=GodBits(32);
-  if (verbosity==GBP_LONG)
-    '\n';
-  if (verbosity>=GBP_MEDIUM)
-    "%08X*%08X",rand_i32,i;
-  i*=rand_i32;
-  if (verbosity>=GBP_MEDIUM)
-    "=%08X.%08X\n",i.u32[1],i.u32[0];
-  i=i.u32[1];
-  tempde=tempde1;
-  while (tempde) {
-    if (!st2 && tempde->user_data>=len) {
-      i-=tempde->user_data+1-len;
-      if (i<0) {
-	st=FileRead(tempde->full_name);
-	st2=st+(tempde->user_data+1-len)+i;
-	st2[len]=0;
-	"%s\nGod says...\n$$RED$$%s$$FG$$\n",tempde->full_name,st2;
-	Free(st);
-      }
-    }
-    tempde=tempde->next;
-  }
-  DirTreeDel(tempde1);
-}
-
-#define NIST_TIME_OFFSET	(-7976-local_time_offset/CDATE_FREQ)
-#define NIST_TIME_TO_SWITCH	3
-
-public U0 NISTSync()
-{
-  I64 i,j;
-  CDate d;
-  CDateStruct ds;
-  while (!ScanChar) {
-    d=Now;
-    Date2Struct(&ds,d);
-    i=ToI64((d-Str2Date("1/1/1970"))/CDATE_FREQ+NIST_TIME_OFFSET);
-    j=FloorI64(i,60);
-    "%d %d %02d %02d\n",i,j,ds.sec,(60+ds.sec-(i-j))%60;
-    Sleep(100);
-  }
-}
-
-U0 NISTBeaconURL(I64 timestamp)
-{
-  U8 *tag;
-  CDateStruct ds;
-  CDate dt=(timestamp-NIST_TIME_OFFSET)*CDATE_FREQ+Str2Date("1/1/1970");
-  Date2Struct(&ds,dt+local_time_offset);
-  "$$TX,\"NIST Beacon Date:%D Time:%02d:%02d Unix TimeStamp:%u\","
-	"HTML=\"https://beacon.nist.gov/home\"$$\n",dt,ds.hour,ds.min,timestamp;
-  tag=MStrPrint("https:/beacon.nist.gov/rest/record/%d",timestamp);
-  "$$TX,\"NIST Beacon Record:%$$Q\",HTML=\"%$$Q\"$$\n",tag,tag;
-  Free(tag);
-}
-
-U0 InsMyURL()
-{
-  U8 *tag,*st,*st2;
-  CWebBibleForm *url=CAlloc(sizeof(CWebBibleForm));
-  url->timestamp=
-	FloorI64((Now-Str2Date("1/1/1970"))/CDATE_FREQ+NIST_TIME_OFFSET-
-	NIST_TIME_TO_SWITCH,60);
-  try {
-    switch (PopUpPickLst("NISTExtDec5Bible\0NISTHex5Bible\0NISTHex8Passage\0"
-	  "BibleGatewaySearch\0BibleGatewayVerse\0"
-	  "YouTube\0Imgur\0Wikipedia\0ExtDec5Bible\0Random.org\0"
-	  "RandomNumbers.info\0PassWord\0VirtualNotary\0ANU_NIST\0HotBits\0"
-	  "GenerateData\0WebBookMark\0Roulette\0NISTMovie\0NISTMetallica\0")) {
-      case:
-	if (DocForm(url(CRandExtDec5BeaconForm *))) {
-	  "$$TX,\"Guidelines for Talking with God.\","
-		"HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\t";
-	  NISTBeaconURL(url->timestamp);
-	  MyBibleLines(url->special,20,-5,FALSE,FALSE);
-	}
-	break;
-      case:
-	if (DocForm(url(CRandHex5BeaconForm *))) {
-	  "$$TX,\"Guidelines for Talking with God.\","
-		"HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\t";
-	  "$$TX,\"How this random Bible passage was chosen.\","
-		"HTML=\"http://www.templeos.org/Wb"
-		"/Home/Web/TAD/NISTPassage.html\"$$\n";
-	  NISTBeaconURL(url->timestamp);
-	  MyBibleLines(url->special,20,16,TRUE,TRUE);
-	}
-	break;
-      case:
-	if (DocForm(url(CRandHex8BeaconForm *))) {
-	  "$$TX,\"Guidelines for Talking with God.\","
-		"HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\t";
-	  "$$TX,\"How this random book pick was chosen.\","
-		"HTML=\"http://www.templeos.org/Wb"
-		"/Home/Web/TAD/NISTPick001.html\"$$\n";
-	  NISTBeaconURL(url->timestamp);
-	  GodBooksPassage("C:/Home/Sup1/Sup1Texts/*",,
-		Str2I64(url->special,16),GBP_MEDIUM);
-	}
-	break;
-      case:
-	if (DocForm(url(CWebBibleForm *))) {
-	  tag=url->special;
-	  st2=URLPercentSpaces(url->special);
-	  st=MStrPrint("http://www.biblegateway.com/passage/"
-		"?search=%s&version=NIV",st2);
-	  Free(st2);
-	  if (*url->tag)
-	    tag=url->tag;
-	  "$$TX,\"%$$Q\",HTML=\"%$$Q\"$$",tag,st;
-	  Free(st);
-	}
-	break;
-      case:
-	if (DocForm(url(CWebBibleForm *))) {
-	  tag=url->special;
-	  st2=URLPercentSpaces(url->special);
-	  st=MStrPrint(
-		"http://www.biblegateway.com/verse/en/%s",st2);
-	  Free(st2);
-	  if (*url->tag)
-	    tag=url->tag;
-	  "$$TX,\"%$$Q\",HTML=\"%$$Q\"$$",tag,st;
-	  Free(st);
-	}
-	break;
-      case:
-	if (DocForm(url(CYouTubeForm *))) {
-	  if (*url->special==CH_SPACE)
-	    st2=YouTubeGet(,url->tag);
-	  else
-	    st2=StrNew(url->special);
-	  if (st2 && *st2!=CH_SPACE) {
-	    if (url->min || url->sec)
-	      st=MStrPrint("%s&hl=enUS&start=%d",st2,url->min*60+url->sec);
-	    else
-	      st=StrNew(st2);
-	    if (*url->special!=CH_SPACE && *url->tag)
-	      YouTubeAdd(,url->tag,st);
-	    "$$HC,\"<object width=\\\"640\\\" "
-		  "height=\\\"520\\\"><param name=\\\"movie\\\" "
-		  "value=\\\"http://www.youtube.com/v/%s\\\"></param><param "
-		  "name=\\\"allowscriptaccess\\\" "
-		  "value=\\\"always\\\"></param><embed "
-		  "src=\\\"http://www.youtube.com/v/%s\\\" "
-		  "type=\\\"application/x-shockwave-flash\\\" "
-		  "allowscriptaccess=\\\"always\\\" "
-		  "width=\\\"640\\\" height=\\\"520\\\">"
-		  "</embed></object>\"$$\n",st,st;
-	    Free(st);
-	    Free(st2);
-	  }
-	}
-	break;
-      case:
-	if (DocForm(url(CImgurForm *))) {
-	  "$$HC,\"<center><img src=\\\"http://i.imgur.com/%s\\\" "
-		"width=\\\"%d\\\" height=\\\"%d\\\" "
-		"alt=\\\"\\\"></center>\"$$\n",
-		url->special,url->min,url->sec;
-	}
-	break;
-      case:
-	if (DocForm(url(CWikipediaForm *))) {
-	  tag=url->special;
-	  st=MStrPrint("http://en.wikipedia.org/wiki/%s",url->special);
-	  if (*url->tag)
-	    tag=url->tag;
-	  "$$TX,\"%$$Q\",HTML=\"%$$Q\"$$",tag,st;
-	  Free(st);
-	}
-	break;
-      case:
-	if (DocForm(url(CRandExtDec5Form *))) {
-	  "$$TX,\"Guidelines for Talking with God.\","
-		"HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\n";
-	  MyBibleLines(url->special,20,-5,FALSE,FALSE);
-	}
-	break;
-      case:
-	if (DocForm(url(CRandDecForm *))) {
-	  "$$TX,\"Guidelines for Talking with God\","
-		"HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\n";
-	  tag="http://www.random.org";
-	  "$$TX,\"%$$Q\",HTML=\"%$$Q\"$$\n",tag,tag;
-	  MyBibleLines(url->special,20,10,FALSE,FALSE);
-	}
-	break;
-      case:
-	if (DocForm(url(CRandDecForm *))) {
-	  "$$TX,\"Guidelines for Talking with God\","
-		"HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\n";
-	  tag="http://www.randomnumbers.info";
-	  "$$TX,\"%$$Q\",HTML=\"%$$Q\"$$\n",tag,tag;
-	  MyBibleLines(url->special,20,10,FALSE,TRUE);
-	}
-	break;
-      case:
-	if (DocForm(url(CRandDecForm *))) {
-	  "$$TX,\"Guidelines for Talking with God\","
-		"HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\n";
-	  tag="https://passed.pw";
-	  "$$TX,\"%$$Q\",HTML=\"%$$Q\"$$\n",tag,tag;
-	  MyBibleLines(url->special,20,10,FALSE,FALSE);
-	}
-	break;
-      case:
-	if (DocForm(url(CRandCertForm *))) {
-	  "$$TX,\"Guidelines for Talking with God\","
-		"HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\n";
-	  tag="http://virtual-notary.org";
-	  "$$TX,\"%$$Q\",HTML=\"%$$Q\"$$\n",tag,tag;
-	  tag="Here is the certificate";
-	  st=MStrPrint("http://www.templeos.org/Certs/virtual-notary-cert"
-		"-randomnum-%d.p12",url->cert);
-	  "\n$$TX,\"%$$Q: %d\",HTML=\"%$$Q\"$$.\n",tag,url->cert,st;
-	  Free(st);
-	  MyBibleLines(url->special,20,10,FALSE,FALSE);
-	}
-	break;
-      case:
-	if (DocForm(url(CRandHex5Form *))) {
-	  "$$TX,\"Guidelines for Talking with God\","
-		"HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\n";
-	  tag="http://qrng.anu.edu.au/NIST.php";
-	  "$$TX,\"%$$Q\",HTML=\"%$$Q\"$$\n",tag,tag;
-	  MyBibleLines(url->special,20,16,TRUE,TRUE);
-	}
-	break;
-      case:
-	if (DocForm(url(CRandHex5Form *))) {
-	  "$$TX,\"Guidelines for Talking with God\","
-		"HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\n";
-	  tag="https://www.fourmilab.ch/hotbits/secure_generate.html";
-	  "$$TX,\"%$$Q\",HTML=\"%$$Q\"$$\n",tag,tag;
-	  MyBibleLines(url->special,20,16,TRUE,TRUE);
-	}
-	break;
-      case:
-	if (DocForm(url(CRandDecForm *))) {
-	  "$$TX,\"Guidelines for Talking with God\","
-		"HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\n";
-	  tag="http://www.generatedata.com";
-	  "$$TX,\"%$$Q\",HTML=\"%$$Q\"$$\n",tag,tag;
-	  MyBibleLines(url->special,20,10,FALSE,FALSE);
-	}
-	break;
-      case:
-	if (DocForm(url(CWebBookMarkForm *))) {
-	  tag=st=WebBookMarks;
-	  if (*url->tag)
-	    tag=url->tag;
-	  "$$TX,\"%$$Q\",HTML=\"%$$Q\"$$",tag,st;
-	  Free(st);
-	}
-	break;
-      case:
-	if (DocForm(url(CRandDecForm *))) {
-	  "$$TX,\"Guidelines for Talking with God\","
-		"HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\n";
-	  tag="https://www.dublinbet.com";
-	  "$$TX,\"%$$Q\",HTML=\"%$$Q\"$$\n",tag,tag;
-	  MyBibleLines(url->special,20,10,FALSE,FALSE);
-	}
-	break;
-      case:
-	if (DocForm(url(CTopMoviesForm *))) {
-	  NISTBeaconURL(url->timestamp);
-	  RandVideo("Top 100 Movies",
-		"http://www.afi.com/100years/movies10.aspx",
-		url,2,"C:/Home/Sup1/Sup1Blog/Movies.TXT.Z");
-	}
-	break;
-      case:
-	if (DocForm(url(CMetallicaForm *))) {
-	  NISTBeaconURL(url->timestamp);
-	  RandVideo("Metallica Song","http://home.hccnet.nl/a.r.adams/lyrics/"
-		"metallica/songindex.html",
-		url,2,"C:/Home/Sup1/Sup1Blog/Metallica.TXT.Z");
-	}
-	break;
-    }
-  } catch {
-    Fs->catch_except=TRUE;
-    Beep; Beep;
-  }
-  Free(url);
-}
-
-//if (FileFind("~/Sup1/Sup1Words/LinuxDict.TXT"))
-//  GodInit("~/Sup1/Sup1Words/LinuxDict.TXT");
-if (FileFind("~/Sup1/Sup1Words/HappyWords.TXT"))
-  GodInit("~/Sup1/Sup1Words/HappyWords.TXT");
@@ -0,0 +1,854 @@
+#help_index "TOS"
+
+U8 *URLPercentSpaces(U8 *src)
+{
+  U8 buf[2048],*dst=buf;
+  while (*src) {
+    if (*src==CH_SPACE) {
+      *dst++='%';
+      *dst++='%';
+      *dst++='2';
+      *dst++='0';
+      src++;
+    } else
+      *dst++=*src++;
+  }
+  *dst=0;
+  return StrNew(buf);
+}
+
+U8 *URLPlusSpaces(U8 *src)
+{
+  U8 buf[2048],*dst=buf;
+  while (*src) {
+    if (*src==CH_SPACE) {
+      *dst++='+';
+      src++;
+    } else
+      *dst++=*src++;
+  }
+  *dst=0;
+  return StrNew(buf);
+}
+
+I64 ExtDecFromHex(U8 *st,I64 digits)
+{
+  I64 res=0,ch;
+  while (digits) {
+    if (!(ch=*st++))
+      break;
+    if ('0'<=ch<='9') {
+      res=10*res+ch-'0';
+      digits--;
+    }
+  }
+  return res;
+}
+
+U0 TOSBibleLines(U8 *st,I64 num_lines,I64 radix,Bool modulo,Bool plus_one)
+{//Radix<0 means extract N dec digits from hex.
+  CDoc *doc_out,*doc_in;
+  CDocEntry *doc_e;
+  I64 i,start;
+  U8 *verse;
+  if (*st && (doc_out=DocPut)) {
+    if (radix<0)
+      i=ExtDecFromHex(st,-radix);
+    else
+      i=Str2I64(st,radix);
+    if (radix<0)
+      DocPrint(doc_out,"'%s'-->(Taking first %d decimal digits)",st,-radix);
+    else if (radix==16)
+      DocPrint(doc_out,"0x%s-->",st);
+    if (modulo) {
+      DocPrint(doc_out,"(%d remainder when divided by %d)",
+	    i,ST_BIBLE_LINES-(num_lines-1));
+      start=i%(ST_BIBLE_LINES-(num_lines-1));
+    } else {
+      if (radix>=0 || plus_one)
+	DocPrint(doc_out,"%d",i);
+      start=i;
+    }
+    if (plus_one) {
+      start++;
+      DocPrint(doc_out,"+1");
+    }
+    DocPrint(doc_out,"-->Line:%d\n",start);
+
+    verse=BibleLine2Verse(start);
+    DocPrint(doc_out,"$TX,"KingJamesBible",HTML="http://www.templeos.org/Wb/Home/Sup1/Sup1Blog/NumBible.DD"$ (%s)\n\nGod says...\n$$RED$$",verse);
+    Free(verse);
+
+    doc_in=DocNew;
+    BibleLines(doc_in,start,num_lines,"::/Home/Sup1/Sup1Blog/NumBible.DD");
+    while (TRUE) {//Del leading blanks
+      doc_e=doc_in->head.next;
+      if (doc_e==doc_in)
+	break;
+      else {
+	if (doc_e->type_u8==DOCT_NEW_LINE)
+	  DocEntryDel(doc_in,doc_e);
+	else
+	  break;
+      }
+    }
+    while (TRUE) {//Del trailing blanks
+      doc_e=doc_in->cur_entry->last;
+      if (doc_e==doc_in)
+	break;
+      else {
+	if (doc_e->type_u8==DOCT_NEW_LINE)
+	  DocEntryDel(doc_in,doc_e);
+	else
+	  break;
+      }
+    }
+    DocPrint(doc_in,"$$FG$$\n");
+    DocInsDoc(doc_out,doc_in);
+    DocDel(doc_in);
+  }
+}
+
+#define GBP_SHORT	0
+#define GBP_MEDIUM	1
+#define GBP_LONG	2
+
+public U0 GodBooksPassage(U8 *files_find_mask,I64 len=512,
+	I64 rand_i32=MIN_I64,I64 verbosity=GBP_SHORT)
+{//Make God pick a book passage. $LK+PU,"Holy Spirit Instructions",A="FI:::/Adam/God/HSNotes.DD"$
+  CDirEntry *tempde=FilesFind(files_find_mask,
+	FUF_RECURSE|FUF_JUST_FILES|FUF_JUST_TXT),
+	*tempde1=tempde;
+  I64 i=0;
+  U8 *st,*st2=NULL;
+  while (tempde) {
+    st=FileRead(tempde->full_name);
+    tempde->user_data=StrLen(st);
+    if (verbosity==GBP_LONG)
+      "%08X-",i;
+    if (tempde->user_data>=len)
+      i+=tempde->user_data+1-len;
+    if (verbosity==GBP_LONG)
+      "%08X:$$LK,\"%s\",A=\"FI:%s\"$$\n",
+	    i-1,tempde->full_name+2,tempde->full_name;
+    Free(st);
+    tempde=tempde->next;
+  }
+  if (rand_i32<0)
+    rand_i32=GodBits(32);
+  if (verbosity==GBP_LONG)
+    '\n';
+  if (verbosity>=GBP_MEDIUM)
+    "%08X*%08X",rand_i32,i;
+  i*=rand_i32;
+  if (verbosity>=GBP_MEDIUM)
+    "=%08X.%08X\n",i.u32[1],i.u32[0];
+  i=i.u32[1];
+  tempde=tempde1;
+  while (tempde) {
+    if (!st2 && tempde->user_data>=len) {
+      i-=tempde->user_data+1-len;
+      if (i<0) {
+	st=FileRead(tempde->full_name);
+	st2=st+(tempde->user_data+1-len)+i;
+	st2[len]=0;
+	"%s\nGod says...\n$$RED$$%s$$FG$$\n",tempde->full_name,st2;
+	Free(st);
+      }
+    }
+    tempde=tempde->next;
+  }
+  DirTreeDel(tempde1);
+}
+
+U8 *GodVideoRead(U8 *filename,I64 line)
+{
+  U8 *res=NULL;
+  CDoc *doc=DocRead(filename,DOCF_PLAIN_TEXT_TABS|DOCF_NO_CURSOR);
+  if (DocLineNumGoTo(doc,line-1) && doc->cur_entry->type_u8==DOCT_TEXT)
+    res=StrNew(doc->cur_entry->tag);
+  DocDel(doc);
+  return res;
+}
+
+U8 *GodVideoWrite(U8 *filename,I64 line,U8 *st)
+{
+  U8 *res=NULL;
+  CDoc *doc=DocRead(filename,DOCF_PLAIN_TEXT_TABS|DOCF_NO_CURSOR);
+  if (DocLineNumGoTo(doc,line-1)) {
+    if (doc->cur_entry->type_u8==DOCT_TEXT) {
+      Free(doc->cur_entry->tag);
+      doc->cur_entry->tag=StrNew(st);
+    } else
+      DocPrint(doc,"%s",st);
+    DocTop(doc);
+    DocWrite(doc);
+  }
+  DocDel(doc);
+  return res;
+}
+
+class CGodVideoForm
+{
+  U8	title[STR_LEN]	fmtstr "$$DA-P,A=\"Title:%s\"$$\n";
+  U8	serial[STR_LEN] fmtstr "$$DA-P-TRM,LEN=11,A=\"SerialNum:%11s\"$$\n";
+  I64	min		fmtstr "$$DA,A=\"Minutes:%d\"$$\n";
+  I64	sec		fmtstr "$$DA,A=\"Seconds:%d\"$$\n";
+};
+
+U0 GodVideo(U8 *title,U8 *webpage,U8 *rnd,I64 digits,U8 *filename)
+{
+  U8 *st,*st2;
+  CGodVideoForm *gvf=CAlloc(sizeof(CGodVideoForm));
+  I64 i=ExtDecFromHex(rnd,digits);
+  if (st=GodVideoRead(filename,i*2)) {
+    StrCpy(gvf->title,st);
+    Free(st);
+    if (!(st=GodVideoRead(filename,i*2+1))||!*st) {
+      Free(st);
+      if (DocForm(gvf) && *gvf->serial) {
+	if (gvf->min || gvf->sec)
+	  st=MStrPrint("%s&hl=enUS&start=%d",
+		gvf->serial,gvf->min*60+gvf->sec);
+	else
+	  st=StrNew(gvf->serial);
+	GodVideoWrite(filename,i*2+1,st);
+      } else
+	st=NULL;
+    }
+    if (StrIMatch("Metallica",filename)) {
+      st2=URLPlusSpaces(gvf->title+3);
+      "God's response:\n"
+	    "$$TX,\"%s\",HTML=\"%s\"$$\n"
+	    "$$TX,\"%s (Lyrics)\","
+	    "HTML=\"http://lmgtfy.com/?q=Metallica+lyrics+%s\"$$\n",
+	    title,webpage,gvf->title,st2;
+      Free(st2);
+    } else
+      "God's response:\n"
+	    "$$TX,\"%s\",HTML=\"%s\"$$\n"
+	    "#%s\n",title,webpage,gvf->title;
+    if (st) {
+      "$$HC,\"<object width=\\\"640\\\" height=\\\"520\\\">"
+	    "<param name=\\\"movie\\\" "
+	    "value=\\\"http://www.youtube.com/v/%s\\\"></param><param "
+	    "name=\\\"allowscriptaccess\\\" "
+	    "value=\\\"always\\\"></param><embed "
+	    "src=\\\"http://www.youtube.com/v/%s\\\" "
+	    "type=\\\"application/x-shockwave-flash\\\" "
+	    "allowscriptaccess=\\\"always\\\" "
+	    "width=\\\"640\\\" height=\\\"520\\\">"
+	    "</embed></object>\"$$\n",st,st;
+      Free(st);
+    }
+  }
+  Free(gvf);
+}
+
+class CRandExtDec5Form
+{
+  I64	timestamp;
+  U8	rnd0[512]	fmtstr "$$DA-P,A=\"5 Decimal Digits from Hex:%s\"$$\n";
+  U8	rnd1[512];
+  U8	rnd2[512];
+  U8	rnd3[512];
+  I64	cert;
+};
+
+class CNISTBeaconRandExtDec5Form
+{
+  I64	timestamp	fmtstr "$$DA,A=\"TimeStamp:%d\"$$\n";
+  U8	rnd0[512]	fmtstr "$$DA-P,A=\"5 Decimal Digits from Hex:%s\"$$\n";
+  U8	rnd1[512];
+  U8	rnd2[512];
+  U8	rnd3[512];
+  I64	cert;
+};
+
+class CHexWordForm
+{
+  I64	timestamp;
+  U8	rnd0[512]	fmtstr "$$DA-P,A=\"Hex Word Indices#0:%s\"$$\n";
+  U8	rnd1[512]	fmtstr "$$DA-P,A=\"Hex Word Indices#1:%s\"$$\n";
+  U8	rnd2[512]	fmtstr "$$DA-P,A=\"Hex Word Indices#2:%s\"$$\n";
+  U8	rnd3[512]	fmtstr "$$DA-P,A=\"Hex Word Indices#3:%s\"$$\n";
+  I64	cert;
+};
+
+class CNISTBeaconHexWordForm
+{
+  I64	timestamp	fmtstr "$$DA,A=\"TimeStamp:%d\"$$\n";
+  U8	rnd0[512]	fmtstr "$$DA-P,A=\"Hex Word Indices#0:%s\"$$\n";
+  U8	rnd1[512]	fmtstr "$$DA-P,A=\"Hex Word Indices#1:%s\"$$\n";
+  U8	rnd2[512]	fmtstr "$$DA-P,A=\"Hex Word Indices#2:%s\"$$\n";
+  U8	rnd3[512]	fmtstr "$$DA-P,A=\"Hex Word Indices#3:%s\"$$\n";
+  I64	cert;
+};
+
+class CRandHex5Form
+{
+  I64	timestamp;
+  U8	rnd0[512]	fmtstr "$$DA-P-TRM,LEN=5,"
+	"A=\"Line (5-Digit Hex):%5s\"$$\n";
+  U8	rnd1[512];
+  U8	rnd2[512];
+  U8	rnd3[512];
+  I64	cert;
+};
+
+class CNISTBeaconRandHex5Form
+{
+  I64	timestamp	fmtstr "$$DA,A=\"TimeStamp:%d\"$$\n";
+  U8	rnd0[512]	fmtstr "$$DA-P-TRM,LEN=5,"
+	"A=\"Line (5-Digit Hex):%5s\"$$\n";
+  U8	rnd1[512];
+  U8	rnd2[512];
+  U8	rnd3[512];
+  I64	cert;
+};
+
+class CRandHex8Form
+{
+  I64	timestamp;
+  U8	rnd0[512]	fmtstr "$$DA-P-TRM,LEN=8,"
+	"A=\"Line (8-Digit Hex):%8s\"$$\n";
+  U8	rnd1[512];
+  U8	rnd2[512];
+  U8	rnd3[512];
+  I64	cert;
+};
+
+class CNISTBeaconRandHex8Form
+{
+  I64	timestamp	fmtstr "$$DA,A=\"TimeStamp:%d\"$$\n";
+  U8	rnd0[512]	fmtstr "$$DA-P-TRM,LEN=8,"
+	"A=\"Line (8-Digit Hex):%8s\"$$\n";
+  U8	rnd1[512];
+  U8	rnd2[512];
+  U8	rnd3[512];
+  I64	cert;
+};
+
+class CMoviesForm
+{
+  I64	timestamp;
+  U8	rnd0[512]	fmtstr "$$DA-P,"
+	"A=\"Movie #1-100 (2 Decimal Digits from Hex):%s\"$$\n";
+  U8	rnd1[512];
+  U8	rnd2[512];
+  U8	rnd3[512];
+  I64	cert;
+};
+
+class CNISTMoviesForm
+{
+  I64	timestamp	fmtstr "$$DA,A=\"TimeStamp:%d\"$$\n";
+  U8	rnd0[512]	fmtstr "$$DA-P,"
+	"A=\"Movie #1-100 (2 Decimal Digits from Hex):%s\"$$\n";
+  U8	rnd1[512];
+  U8	rnd2[512];
+  U8	rnd3[512];
+  I64	cert;
+};
+
+class CMetallicaForm
+{
+  I64	timestamp;
+  U8	rnd0[512]	fmtstr "$$DA-P,"
+	"A=\"Song #1-99 (2 Decimal Digits from Hex):%s\"$$\n";
+  U8	rnd1[512];
+  U8	rnd2[512];
+  U8	rnd3[512];
+  I64	cert;
+};
+
+class CNISTMetallicaForm
+{
+  I64	timestamp	fmtstr "$$DA,A=\"TimeStamp:%d\"$$\n";
+  U8	rnd0[512]	fmtstr "$$DA-P,"
+	"A=\"Song #1-99 (2 Decimal Digits from Hex):%s\"$$\n";
+  U8	rnd1[512];
+  U8	rnd2[512];
+  U8	rnd3[512];
+  I64	cert;
+};
+
+class CCertRandDec5Form
+{
+  I64	timestamp;
+  U8	rnd0[512]	fmtstr "$$DA-P,A=\"Line (Dec):%s\"$$\n";
+  U8	rnd1[512];
+  U8	rnd2[512];
+  U8	rnd3[512];
+  I64	cert		fmtstr "$$DA,A=\"Certificate:%d\"$$\n";
+};
+
+U0 GodWordBatch(CHexWordForm *url)
+{
+  I64 i=0;
+  CDirEntry *tempde,*tempde1;
+
+  FifoU8Flush(god.fifo);
+  GodHexIns(url->rnd0);
+  GodHexIns(url->rnd1);
+  GodHexIns(url->rnd2);
+  GodHexIns(url->rnd3);
+  tempde=tempde1=FilesFind(god.word_file_mask,god.word_fuf_flags);
+  while (tempde) {
+    PutFileLink(tempde->full_name);
+    '\n';
+    tempde=tempde->next;
+  }
+  DirTreeDel(tempde1);
+
+  "\n$$RED$$";
+  if (*url->rnd0)
+    "%s\n",url->rnd0;
+  if (*url->rnd1)
+    "%s\n",url->rnd1;
+  if (*url->rnd2)
+    "%s\n",url->rnd2;
+  if (*url->rnd3)
+    "%s\n",url->rnd3;
+  '\n';
+  while (FifoU8Cnt(god.fifo)>20) {
+     GodBits(3);
+     "%02d: ",i++;
+     GodWord(TRUE);
+  }
+  FifoU8Flush(god.fifo);
+  "$$FG$$\n";
+}
+
+#define NIST_TIME_OFFSET	(-7998-local_time_offset/CDATE_FREQ)
+#define NIST_TIME_TO_SWITCH	3
+
+public U0 NISTSync()
+{
+  I64 i,j;
+  CDate d;
+  CDateStruct ds;
+  while (!ScanChar) {
+    d=Now;
+    Date2Struct(&ds,d);
+    i=ToI64((d-Str2Date("1/1/1970"))/CDATE_FREQ+NIST_TIME_OFFSET);
+    j=FloorI64(i,60);
+    "%d %d %02d %02d\n",i,j,ds.sec,(60+ds.sec-(i-j))%60;
+    Sleep(100);
+  }
+}
+
+U0 NISTBeaconURL(I64 timestamp)
+{
+  U8 *tag;
+  CDateStruct ds;
+  CDate dt=(timestamp-NIST_TIME_OFFSET)*CDATE_FREQ+Str2Date("1/1/1970");
+  Date2Struct(&ds,dt+local_time_offset);
+  "$$TX,\"NIST Beacon Date:%D Time:%02d:%02d Unix TimeStamp:%u\","
+	"HTML=\"https://beacon.nist.gov/home\"$$\n",dt,ds.hour,ds.min,timestamp;
+  tag=MStrPrint("https:/beacon.nist.gov/rest/record/%d",timestamp);
+  "$$TX,\"NIST Beacon Record:%$$Q\",HTML=\"%$$Q\"$$\n",tag,tag;
+  Free(tag);
+}
+
+
+U0 GodMisc()
+{
+  U8 *st,*tag;
+  CRandExtDec5Form *gm=CAlloc(sizeof(CRandExtDec5Form));
+  I64 i=PopUpPickLst("NISTBeacon\0HotBits\0Random.org\0RandomNumbers.info\0"
+	"ANU_NIST\0Password\0GenerateData\0VirtualNotary\0Timer\0");
+  if (i>=0) {
+    "$$TX,\"Guidelines for Talking with God.\","
+	  "HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\n";
+    switch (i) {
+      case:
+	gm->timestamp=FloorI64((Now-Str2Date("1/1/1970"))/CDATE_FREQ+
+	      NIST_TIME_OFFSET-NIST_TIME_TO_SWITCH,60);
+	switch (PopUpPickLst("ExtDec5Bible\0HexWordBatch\0Hex5Bible\0"
+	      "Hex8Books\0Movie\0Metallica\0")) {
+	  case:
+	    if (DocForm(gm(CNISTBeaconRandExtDec5Form *))) {
+	      NISTBeaconURL(gm->timestamp);
+	      TOSBibleLines(gm->rnd0,20,-5,FALSE,FALSE);
+	    }
+	    break;
+	  case:
+	    if (DocForm(gm(CNISTBeaconHexWordForm *))) {
+	      NISTBeaconURL(gm->timestamp);
+	      GodWordBatch(gm);
+	    }
+	    break;
+	  case:
+	    if (DocForm(gm(CNISTBeaconRandHex5Form *))) {
+	      "$$TX,\"How this random Bible passage was chosen.\","
+		    "HTML=\"http://www.templeos.org/Wb"
+		    "/Home/Web/TAD/NISTPassage.html\"$$\n";
+	      NISTBeaconURL(gm->timestamp);
+	      TOSBibleLines(gm->rnd0,20,16,TRUE,TRUE);
+	    }
+	    break;
+	  case:
+	    if (DocForm(gm(CNISTBeaconRandHex8Form *))) {
+	      "$$TX,\"How this random book pick was chosen.\","
+		    "HTML=\"http://www.templeos.org/Wb"
+		    "/Home/Web/TAD/NISTPick001.html\"$$\n";
+	      NISTBeaconURL(gm->timestamp);
+	      GodBooksPassage("C:/Home/Sup1/Sup1Texts/*",,
+		    Str2I64(gm->rnd0,16),GBP_MEDIUM);
+	    }
+	    break;
+	  case:
+	    if (DocForm(gm(CNISTMoviesForm *))) {
+	      NISTBeaconURL(gm->timestamp);
+	      GodVideo("Top 100 Movies",
+		    "http://www.afi.com/100years/movies10.aspx",
+		    gm->rnd0,2,"C:/Home/Sup1/Sup1Blog/Movies.DD.Z");
+	    }
+	    break;
+	  case:
+	    if (DocForm(gm(CNISTMetallicaForm *))) {
+	      NISTBeaconURL(gm->timestamp);
+	      GodVideo("Metallica Song",
+		    "http://home.hccnet.nl/a.r.adams/lyrics/"
+		    "metallica/songindex.html",
+		    gm->rnd0,2,"C:/Home/Sup1/Sup1Blog/Metallica.DD.Z");
+	    }
+	    break;
+	}
+	break;
+      start:
+	case:
+	  tag="https://www.fourmilab.ch/hotbits/secure_generate.html";
+	  break;
+	case:
+	  tag="http://www.random.org";
+	  break;
+	case:
+	  tag="http://www.randomnumbers.info";
+	  break;
+	case:
+	  tag="http://qrng.anu.edu.au/NIST.php";
+	  break;
+	case:
+	  tag="https://passed.pw";
+	  break;
+	case:
+	  tag="http://www.generatedata.com";
+	  break;
+      end:
+	"$$TX,\"%$$Q\",HTML=\"%$$Q\"$$\n",tag,tag;
+	switch (PopUpPickLst("ExtDec5Bible\0HexWordBatch\0Hex5Bible\0"
+	      "Hex8Books\0Movie\0Metallica\0")) {
+	  case:
+	    if (DocForm(gm(CRandExtDec5Form *)))
+	      TOSBibleLines(gm->rnd0,20,-5,FALSE,FALSE);
+	    break;
+	  case:
+	    if (DocForm(gm(CHexWordForm *)))
+	      GodWordBatch(gm);
+	    break;
+	  case:
+	    if (DocForm(gm(CRandHex5Form *))) {
+	      "$$TX,\"How this random Bible passage was chosen.\","
+		    "HTML=\"http://www.templeos.org/Wb"
+		    "/Home/Web/TAD/Passage.html\"$$\n";
+	      TOSBibleLines(gm->rnd0,20,16,TRUE,TRUE);
+	    }
+	    break;
+	  case:
+	    if (DocForm(gm(CRandHex8Form *))) {
+	      "$$TX,\"How this random book pick was chosen.\","
+		    "HTML=\"http://www.templeos.org/Wb"
+		    "/Home/Web/TAD/Pick001.html\"$$\n";
+	      GodBooksPassage("C:/Home/Sup1/Sup1Texts/*",,
+		    Str2I64(gm->rnd0,16),GBP_MEDIUM);
+	    }
+	    break;
+	  case:
+	    if (DocForm(gm(CMoviesForm *)))
+	      GodVideo("Top 100 Movies",
+		    "http://www.afi.com/100years/movies10.aspx",
+		    gm->rnd0,2,"C:/Home/Sup1/Sup1Blog/Movies.DD.Z");
+	    break;
+	  case:
+	    if (DocForm(gm(CMetallicaForm *)))
+	      GodVideo("Metallica Song",
+		    "http://home.hccnet.nl/a.r.adams/lyrics/"
+		    "metallica/songindex.html",
+		    gm->rnd0,2,"C:/Home/Sup1/Sup1Blog/Metallica.DD.Z");
+	    break;
+	}
+	break;
+      case:
+	if (DocForm(gm(CCertRandDec5Form *))) {
+	  tag="http://virtual-notary.org";
+	  "$$TX,\"%$$Q\",HTML=\"%$$Q\"$$\n",tag,tag;
+	  tag="Here is the certificate";
+	  st=MStrPrint("http://www.templeos.org/Certs/virtual-notary-cert"
+		"-randomnum-%d.p12",gm->cert);
+	  "\n$$TX,\"%$$Q: %d\",HTML=\"%$$Q\"$$.\n",tag,gm->cert,st;
+	  Free(st);
+	  TOSBibleLines(gm->rnd0,20,-5,FALSE,FALSE);
+	}
+	break;
+      case:
+	FifoU8Flush(god.fifo);
+	GodBitsIns(GOD_GOOD_BITS,KbdMouseEvtTime>>GOD_BAD_BITS);
+	GodBooksPassage("C:/Home/Sup1/Sup1Texts/*");
+	break;
+    }
+  }
+  Free(gm);
+}
+
+U8 *YouTubeGet(U8 *filename="C:/Home/Sup1/Sup1Blog/YouTube.DD.Z",U8 *needle)
+{
+  I64 i=0,line=MIN_I64;
+  CDoc	*doc=DocRead(filename,DOCF_PLAIN_TEXT_TABS|DOCF_NO_CURSOR),
+	*doc2=DocNew;
+  U8 *title,*code,*res;
+  while (DocFind(doc,line,needle)) {
+    if (!(doc->cur_entry->y&1)) {
+      title=doc->cur_entry->tag;
+      DocLineNumGoTo(doc,doc->cur_entry->y+2);
+      if (doc->cur_entry->type_u8==DOCT_TEXT) {
+	code=doc->cur_entry->tag;
+	DocPrint(doc2,"$$MU-UL,\"%s\",LE=0x%X$$\n",title,code);
+	i++;
+      }
+    }
+    line=doc->cur_entry->y+2;
+  }
+  switch (i) {
+    case 0:
+      res=NULL;
+      break;
+    case 1:
+      res=StrNew(code);
+      break;
+    default:
+      res=PopUpMenu(doc2);
+      if (res==DOCM_CANCEL)
+	res=NULL;
+      else
+	res=StrNew(res);
+  }
+  DocDel(doc);
+  DocDel(doc2);
+  return res;
+}
+
+U0 YouTubeAdd(U8 *filename="C:/Home/Sup1/Sup1Blog/YouTube.DD.Z",
+	U8 *title,U8 *code)
+{
+  CDoc *doc=DocRead(filename,DOCF_PLAIN_TEXT_TABS|DOCF_NO_CURSOR);
+  if (!DocFind(doc,,title)) {
+    DocBottom(doc);
+    DocPrint(doc,"%s\n%s\n",title,code);
+    DocTop(doc);
+    DocWrite(doc);
+    Sort(filename,,2);
+  }
+  DocDel(doc);
+}
+
+U8 *WebBookMarks(U8 *filename="~/Sup1/Sup1Blog/Bookmarks.html")
+{
+  U8 *st;
+  CDocEntry *doc_e;
+  CDoc *doc=DocNew;
+  CCmpCtrl *cc=CmpCtrlNew(MStrPrint("#include \"%s\"",filename));
+  while (Lex(cc))
+    if (cc->token==TK_STR && *cc->cur_str(U32 *)=='http') {
+      DocPrint(doc,"$$MU-UL,\"%$$Q\",LE=0x%X$$\n",cc->cur_str,cc->cur_str);
+      cc->cur_str=NULL;
+    }
+  CmpCtrlDel(cc);
+
+  if ((st=PopUpMenu(doc))!=DOCM_CANCEL)
+    st=StrNew(st);
+  else
+    st=NULL;
+
+  doc_e=doc->head.next;
+  while (doc_e!=doc) {
+    if (doc_e->type_u8==DOCT_MENU_VAL)
+      Free(doc_e->left_exp);
+    doc_e=doc_e->next;
+  }
+  DocDel(doc);
+
+  return st;
+}
+
+class CWebBibleForm
+{
+  U8	tag[STR_LEN]	fmtstr "$$DA-P,A=\"Tag Text:%s\"$$\n";
+  U8	special[STR_LEN] fmtstr "$$DA-P,A=\"Bible Passage:%s\"$$\n";
+  I64	min;
+  I64	sec;
+};
+
+class CYouTubeForm
+{
+  U8	tag[STR_LEN]	fmtstr "$$DA-P,A=\"Title:%s\"$$\n";
+  U8	special[STR_LEN] fmtstr "$$DA-P-TRM,LEN=11,A=\"SerialNum:%11s\"$$\n";
+  I64	min		fmtstr "$$DA,A=\"Minutes:%d\"$$\n";
+  I64	sec		fmtstr "$$DA,A=\"Seconds:%d\"$$\n";
+};
+
+class CImgurForm
+{
+  U8	tag[STR_LEN];
+  U8	special[STR_LEN] fmtstr "$$DA-P,A=\"SerialNum:%s\"$$\n";
+  I64	min		fmtstr "$$DA,A=\"Width    :%d\"$$\n";
+  I64	sec		fmtstr "$$DA,A=\"Height   :%d\"$$\n";
+};
+
+class CWikipediaForm
+{
+  U8	tag[STR_LEN]	fmtstr "$$DA-P,A=\"Tag Text:%s\"$$\n";
+  U8	special[STR_LEN] fmtstr "$$DA-P,A=\"Index   :%s\"$$\n";
+  I64	min;
+  I64	sec;
+};
+
+class CWebBookMarkForm
+{
+  U8	tag[STR_LEN]	fmtstr "$$DA-P,A=\"Tag Text:%s\"$$\n";
+  U8	special[STR_LEN];
+  I64	min;
+  I64	sec;
+};
+
+U0 TOSInsMisc()
+{
+  CWebBibleForm *url=CAlloc(sizeof(CWebBibleForm));
+  U8 *tag,*st,*st2;
+
+  switch (PopUpPickLst("BiblePassage\0BibleVerse\0"
+	"YouTube\0Imgur\0Wikipedia\0WebBookMark\0")) {
+    case:
+      if (DocForm(url(CWebBibleForm *))) {
+	tag=url->special;
+	st2=URLPercentSpaces(url->special);
+	st=MStrPrint("http://www.biblegateway.com/passage/"
+	      "?search=%s&version=NIV",st2);
+	Free(st2);
+	if (*url->tag)
+	  tag=url->tag;
+	"$$TX,\"%$$Q\",HTML=\"%$$Q\"$$",tag,st;
+	Free(st);
+      }
+      break;
+    case:
+      if (DocForm(url(CWebBibleForm *))) {
+	tag=url->special;
+	st2=URLPercentSpaces(url->special);
+	st=MStrPrint(
+	      "http://www.biblegateway.com/verse/en/%s",st2);
+	Free(st2);
+	if (*url->tag)
+	  tag=url->tag;
+	"$$TX,\"%$$Q\",HTML=\"%$$Q\"$$",tag,st;
+	Free(st);
+      }
+      break;
+    case:
+      if (DocForm(url(CYouTubeForm *))) {
+	if (*url->special==CH_SPACE)
+	  st2=YouTubeGet(,url->tag);
+	else
+	  st2=StrNew(url->special);
+	if (st2 && *st2!=CH_SPACE) {
+	  if (url->min || url->sec)
+	    st=MStrPrint("%s&hl=enUS&start=%d",st2,url->min*60+url->sec);
+	  else
+	    st=StrNew(st2);
+	  if (*url->special!=CH_SPACE && *url->tag)
+	    YouTubeAdd(,url->tag,st);
+	  "$$HC,\"<object width=\\\"640\\\" "
+		"height=\\\"520\\\"><param name=\\\"movie\\\" "
+		"value=\\\"http://www.youtube.com/v/%s\\\"></param><param "
+		"name=\\\"allowscriptaccess\\\" "
+		"value=\\\"always\\\"></param><embed "
+		"src=\\\"http://www.youtube.com/v/%s\\\" "
+		"type=\\\"application/x-shockwave-flash\\\" "
+		"allowscriptaccess=\\\"always\\\" "
+		"width=\\\"640\\\" height=\\\"520\\\">"
+		"</embed></object>\"$$\n",st,st;
+	  Free(st);
+	  Free(st2);
+	}
+      }
+      break;
+    case:
+      if (DocForm(url(CImgurForm *))) {
+	"$$HC,\"<center><img src=\\\"http://i.imgur.com/%s\\\" "
+	      "width=\\\"%d\\\" height=\\\"%d\\\" "
+	      "alt=\\\"\\\"></center>\"$$\n",
+	      url->special,url->min,url->sec;
+      }
+      break;
+    case:
+      if (DocForm(url(CWikipediaForm *))) {
+	tag=url->special;
+	st=MStrPrint("http://en.wikipedia.org/wiki/%s",url->special);
+	if (*url->tag)
+	  tag=url->tag;
+	"$$TX,\"%$$Q\",HTML=\"%$$Q\"$$",tag,st;
+	Free(st);
+      }
+      break;
+    case:
+      if (DocForm(url(CWebBookMarkForm *))) {
+	tag=st=WebBookMarks;
+	if (*url->tag)
+	  tag=url->tag;
+	"$$TX,\"%$$Q\",HTML=\"%$$Q\"$$",tag,st;
+	Free(st);
+      }
+      break;
+  }
+  Free(url);
+}
+
+U0 GodCodeJmp()
+{//$LK,"::/Adam/God/HSNotes.DD"$
+  CDirEntry *tempde1=FilesFind("/*",
+	FUF_JUST_FILES|FUF_RECURSE|FUF_JUST_SRC|FUF_CLUSTER_ORDER),
+	*tempde=tempde1;
+  I64 cnt=0,num;
+  CDoc *doc;
+  U8 *st;
+  while (tempde) {
+    doc=DocRead(tempde->full_name);
+    tempde->user_data=doc->head.y;
+    cnt+=doc->head.y;
+    DocDel(doc);
+    tempde=tempde->next;
+  }
+
+  FifoU8Flush(god.fifo);
+  GodBitsIns(GOD_GOOD_BITS,KbdMouseEvtTime>>GOD_BAD_BITS);
+  num=GodBits(GOD_GOOD_BITS)%cnt;
+
+  tempde=tempde1;
+  while (tempde) {
+    num-=tempde->user_data;
+    if (num<0) {
+      st=MStrPrint("FL:%s,%d",tempde->full_name,-num);
+      break;
+    }
+    tempde=tempde->next;
+  }
+  DirTreeDel(tempde1);
+  Ed(st);
+  Free(st);
+}
+
+if (FileFind("~/Sup1/Sup1Words/LinuxDict.TXT"))
+  GodInit("~/Sup1/Sup1Words/LinuxDict.TXT");
+//if (FileFind("~/Sup1/Sup1Words/HappyWords.TXT"))
+//  GodInit("~/Sup1/Sup1Words/HappyWords.TXT");
@@ -40,7 +40,7 @@ public U0 Uncollapse(U8 *files_find_mask="*",U8 *fu_flags=NULL)
  DirTreeDel(tempde1);
 }

-#define VIDEO_FRAME_RATE	8
+#define VIDEO_FRAME_RATE	30

 #define FG_JUST_AUDIO	0
 #define FG_BOOT_DRV	1
@@ -200,9 +200,9 @@ public U0 BMP2TXT(U8 *_in_name,U8 *_out_name=NULL)
  CDoc *doc;
  in_name=DftExt(_in_name,"BMP");
  if (_out_name)
-    out_name=DftExt(_out_name,"TXT.Z");
+    out_name=DftExt(_out_name,"DD.Z");
  else
-    out_name=ChgExt(_in_name,"TXT.Z");
+    out_name=ChgExt(_in_name,"DD.Z");
  if (dc=BMPRead(in_name)) {
    for (dy=-3;dy<=4;dy++)
      for (dx=-3;dx<=4;dx++) {
@@ -266,13 +266,13 @@ U8 *TOSYouTube()
 U0 AfterEgyptInAction()
 {
  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
-  Adam("GodInit(\"/Adam/God/Vocab.TXT*\");");
+  Adam("GodInit(\"/Adam/God/Vocab.DD*\");");
  AutoComplete;
  WinBorder;
  WinMax;
  if (!fg_on)
    PopUp("Sleep(50);FrameGrabberToggle;");
-  Ed("~/Videos/AfterEgypt.TXT.Z");
+  Ed("~/Videos/AfterEgypt.DD.Z");
  Msg(MSG_KEY_DOWN_UP,CH_SPACE,0x3900000039); //<SPACE>
  ExeFile("::/Apps/AfterEgypt/Run");
  SettingsPop;
@@ -288,7 +288,7 @@ U0 CodeWalkThru()
  WinMax;
  if (!fg_on)
    PopUp("Sleep(50);FrameGrabberToggle;");
-  Ed("~/Videos/RandomCode.TXT.Z");
+  Ed("~/Videos/RandomCode.DD.Z");
  SettingsPop;
  Msg(MSG_KEY_DOWN_UP,'b',0x83000000830); //<ALT-b>
  tos_code_walk_thru++;
@@ -299,7 +299,7 @@ U0 TempleOSTheme()
 {
  if (!fg_on)
    PopUp("Sleep(50);FrameGrabberToggle;");
-  ExeFile("~/Sup1/Sup1Graphics/TempleOSTheme.CPP");
+  ExeFile("~/Sup1/Sup1Graphics/TempleOSTheme.HC");
  DocClear;
 }

@@ -1,7 +1,7 @@
-//This is a customized version of $LK,"::/Demo/ToHtmlToTXTDemo/ToHtml.CPP"$.
+//This is a customized version of $LK,"::/Demo/ToHtmlToTXTDemo/ToHtml.HC"$.

 #help_index "DolDoc/Conversion"
-//See $LK,"::/Doc/Credits.TXT"$.
+//See $LK,"::/Doc/Credits.DD"$.

 U0 HtmlPutS(CDoc *doc,I64 u32_attr,I64 *_old_u32_attr,
 	U8 *st,I64 *_col,U8 *style_bitmap=NULL)
@@ -144,7 +144,7 @@ U8 *TOSLinkCvt1(U8 *link_st)
 public CDoc *Doc2Html(CDoc *doc_in,U8 *html_header=NULL,U8 *body_header=NULL,
 	U8 *body_footer=NULL,U8 *html_footer=NULL,Bool line_anchors=TRUE,
 	U8 (*link_cvt)(U8 *link_st)=&TOSLinkCvt1)
-{//Cvt $LK,"DolDoc",A="FI:::/Doc/DolDocOverview.TXT"$doc to HTML file.
+{//Cvt $LK,"DolDoc",A="FI:::/Doc/DolDocOverview.DD"$doc to HTML file.
  CDocEntry *doc_e,*style,*doc_e2;
  I64 i,y,old_y=MIN_I64,col,old_u32_attr=-1,old_attr;
  U32 *hl,*src;
@@ -335,7 +335,7 @@ public U0 TOSToHtml(U8 *_in_name,U8 *_out_name=NULL,U8 *html_header=NULL,
 	U8 *body_header=NULL,U8 *body_footer=NULL,U8 *html_footer=NULL,
 	I64 width=80,Bool line_anchors=TRUE,
 	U8 (*link_cvt)(U8 *link_st)=&TOSLinkCvt1)
-{//Convert $LK,"DolDoc",A="FI:::/Doc/DolDocOverview.TXT"$file to HTML.
+{//Convert $LK,"DolDoc",A="FI:::/Doc/DolDocOverview.DD"$file to HTML.
 //Supply your own link_cvt routine.
  U8 *in_name,*out_name;
  CDoc *doc_in,*doc_out;
@@ -343,7 +343,7 @@ public U0 TOSToHtml(U8 *_in_name,U8 *_out_name=NULL,U8 *html_header=NULL,
  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
  WinHorz(0,width-1); //Sets doc width for word wrap.

-  in_name=DftExt(_in_name,"CPP.Z");
+  in_name=DftExt(_in_name,"HC.Z");
  if (_out_name)
    out_name=DftExt(_out_name,"html");
  else
@@ -416,20 +416,15 @@ public U0 MakeWebSite()
  DelTree("D:/Wb/Home/Budget");
  DelTree("D:/Wb/Home/Private");
  Del("D:/Wb/Home/*");
-  Touch("D:/Wb/Home/Web/index.TXT.Z","");
-  Touch("D:/Wb/Home/Web/DownloadOS.TXT.Z","");
-  Touch("D:/Wb/Home/Web/TempleOS.TXT.Z","");
+  Touch("D:/Wb/Home/Web/index.DD.Z","");
+  Touch("D:/Wb/Home/Web/DownloadOS.DD.Z","");
+  Touch("D:/Wb/Home/Web/TempleOS.DD.Z","");
  tempde=tempde1=FilesFind("*",
 	FUF_RECURSE|FUF_JUST_FILES|FUF_JUST_TXT|FUF_CLUSTER_ORDER);
  while (tempde) {
    TOSWebFile(tempde->full_name);
    tempde=tempde->next;
  }
-  Copy(	"D:/Wb/Home/Sup1/Sup1Bin/TempleBot",
-	"D:/Wb/Home/Sup1/Sup1Bin/TempleBot.TXT");
-  ToDolDoc("D:/Wb/Home/Sup1/Sup1Bin/TempleBot.TXT");
-  TOSToHtml("D:/Wb/Home/Sup1/Sup1Bin/TempleBot.TXT");
-  Del("D:/Wb/Home/Sup1/Sup1Bin/TempleBot.TXT");
  DirTreeDel(tempde1);
  Drv('C');
 }
@@ -7,7 +7,7 @@ it from the cmd line.

 asm {
 //Opcodes are slightly different to make writing my x86_64 assembler easier.
-//See $LK,"::/Compiler/OpCodes.TXT"$.
+//See $LK,"::/Compiler/OpCodes.DD"$.

 	IMPORT	Beep;

@@ -16,7 +16,7 @@ _BEEPS::
 //See $LK,"REGG_CLOBBERED",A="MN:REGG_CLOBBERED"$ and $LK,"REGG_STK_TEMP",A="MN:REGG_STK_TEMP"$.
 	PUSH	RBP
 	MOV	RBP,RSP
-	MOV	RCX,U64 SF_ARG1[RBP]  //$LK,"SF_ARG1",A="FF:::/Kernel/KernelA.HPP,SF_ARG1"$
+	MOV	RCX,U64 SF_ARG1[RBP]  //$LK,"SF_ARG1",A="FF:::/Kernel/KernelA.HH,SF_ARG1"$

@@05:	PUSH	RCX
 //U0 $LK,"Beep",A="MN:Beep"$(I64 freq=500,Bool busy=FALSE)
@@ -58,7 +58,7 @@ I64 AsmAndC1()
    MOV	RAX,RCX	//freq=loop*100.0+100.0
    IMUL2	RAX,100 //TempleOS uses nonstandard opcodes
 //to avoid multiple form of the same one.
-    //See $LK,"::/Compiler/OpCodes.TXT"$.
+    //See $LK,"::/Compiler/OpCodes.DD"$.
    ADD	RAX,100
    PUSH	RAX
    FILD	U64 [RSP]	//Convert from int to floating
@@ -11,18 +11,18 @@ I64 glbl_hz=400,glbl_hz_step=100,glbl_hz_base=100;

 asm {
 //Opcodes are slightly different to make writing my x86_64 assembler easier.
-//See $LK,"::/Compiler/OpCodes.TXT"$.
+//See $LK,"::/Compiler/OpCodes.DD"$.

 JIFFIES_MSG:	DU8 "Jiffies:",0;

-//See $LK,"::/Kernel/StrA.CPP",A="FL:::/Kernel/StrA.CPP,1"$ and $LK,"::/Kernel/KUtils.CPP"$.
+//See $LK,"::/Kernel/StrA.HC",A="FL:::/Kernel/StrA.HC,1"$ and $LK,"::/Kernel/KUtils.HC"$.

 _BEEPS2::
 //You can clobber RAX,RBX,RCX,RDX,R8,R9.  The compiler expects that.
 //See $LK,"REGG_CLOBBERED",A="MN:REGG_CLOBBERED"$ and $LK,"REGG_STK_TEMP",A="MN:REGG_STK_TEMP"$.
 	PUSH	RBP
 	MOV	RBP,RSP
-	MOV	RCX,U64 SF_ARG1[RBP] //$LK,"SF_ARG1",A="FF:::/Kernel/KernelA.HPP,SF_ARG1"$
+	MOV	RCX,U64 SF_ARG1[RBP] //$LK,"SF_ARG1",A="FF:::/Kernel/KernelA.HH,SF_ARG1"$

 	PUSH	U64 [&cnts.jiffies]

@@ -5,7 +5,7 @@ error, like when repeatedly #including
 it from the cmd line.

 These are many useful kernel
-routines $LK,"::/Kernel/StrA.CPP",A="FF:::/Kernel/StrA.CPP,PUT_CHARS"$
+routines $LK,"::/Kernel/StrA.HC",A="FF:::/Kernel/StrA.HC,PUT_CHARS"$
 intended to be called from
 asm.  Generally, they preserve
 regs.
@@ -21,7 +21,7 @@ from C, preserve all other regs.

 asm {
 //Opcodes are slightly different to make writing my x86_64 assembler easier.
-//See $LK,"::/Compiler/OpCodes.TXT"$.
+//See $LK,"::/Compiler/OpCodes.DD"$.

 MY_WORLD_MSG:
 //Define U8 does not put terminating zeros
@@ -5,7 +5,7 @@ I used more regs in this example.
 */
 asm {
 //Opcodes are slightly different to make writing my x86_64 assembler easier.
-//See $LK,"::/Compiler/OpCodes.TXT"$.
+//See $LK,"::/Compiler/OpCodes.DD"$.

 //You can clobber RAX,RBX,RCX,RDX,R8,R9.  The compiler expects that.

@@ -24,7 +24,7 @@ MUL_BY_HAND_U8_U8_TO_U16: //This is only for fun.
 _MUL_BY_HAND_U8_U8_TO_U16::	//C callable
 	PUSH	RBP
 	MOV	RBP,RSP
-	MOV	AL,U8 SF_ARG1[RBP] //$LK,"SF_ARG1",A="FF:::/Kernel/KernelA.HPP,SF_ARG1"$
+	MOV	AL,U8 SF_ARG1[RBP] //$LK,"SF_ARG1",A="FF:::/Kernel/KernelA.HH,SF_ARG1"$
 	MOV	BL,U8 SF_ARG2[RBP]
 	CALL	MUL_BY_HAND_U8_U8_TO_U16
 	MOVZX	RAX,AX
@@ -36,7 +36,7 @@ _MUL_U64_U64_TO_U128::
 	PUSH	RBP
 	MOV	RBP,RSP
 	MOV	RBX,U64 SF_ARG3[RBP]
-	MOV	RAX,U64 SF_ARG1[RBP] //$LK,"SF_ARG1",A="FF:::/Kernel/KernelA.HPP,SF_ARG1"$
+	MOV	RAX,U64 SF_ARG1[RBP] //$LK,"SF_ARG1",A="FF:::/Kernel/KernelA.HH,SF_ARG1"$
 	MUL	U64 SF_ARG2[RBP]	//Res RDX:RAX 128bit
 	MOV	U64 [RBX],RAX
 	MOV	U64 8[RBX],RDX
@@ -6,7 +6,7 @@ PUT_DEC_U64::
 	MOV	RBP,RSP
 	SUB	RSP,24		//24 char buffer on stack

-//$LK,"Save regs",A="FF:::/Kernel/KernelA.HPP,PUSH_C_REGS"$ which C code is free to clobber.  We don't have to for C callers,
+//$LK,"Save regs",A="FF:::/Kernel/KernelA.HH,PUSH_C_REGS"$ which C code is free to clobber.  We don't have to for C callers,
 //but this function will be nice for ASM callers if it saves all regs.
 	PUSH_C_REGS

@@ -1,7 +1,7 @@
 /* To run this, do a directory, right click on
 this file's name and sel "AutoFile".
 Or, type $LK,"AutoFile",A="MN:AutoFile"$(filename);
-See $LK,"AutoFile",A="FF:::/Doc/Glossary.TXT,AutoFile"$ in the glossary for more info.
+See $LK,"AutoFile",A="FF:::/Doc/Glossary.DD,AutoFile"$ in the glossary for more info.
 */

 I64 i;
@@ -1,17 +1,17 @@
 /* To run this, do a directory, right click on
 this file's name and sel "AutoFile".
 Or, type $LK,"AutoFile",A="MN:AutoFile"$(filename);
-See $LK,"AutoFile",A="FF:::/Doc/Glossary.TXT,AutoFile"$ in the glossary for more info.
+See $LK,"AutoFile",A="FF:::/Doc/Glossary.DD,AutoFile"$ in the glossary for more info.

 This autofile will renum the defines in
-AFEd.TXT.Z.  Test it by numbering a few wrong
+AFEd.DD.Z.  Test it by numbering a few wrong
 and running this demo.

 */

 U8 i;

-"Ed(\"AFEd.TXT.Z\");\n";
+"Ed(\"AFEd.DD.Z\");\n";
 //Go to start of file
 Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
 for (i=0;i<=0xC3;i++) {
@@ -1,7 +1,7 @@
 /* To run this, do a directory, right click on
 this file's name and sel "AutoFile".
 Or, type $LK,"AutoFile",A="MN:AutoFile"$(filename);
-See $LK,"AutoFile",A="FF:::/Doc/Glossary.TXT,AutoFile"$ in the glossary for more info.
+See $LK,"AutoFile",A="FF:::/Doc/Glossary.DD,AutoFile"$ in the glossary for more info.

 Profiling does not $UL,1$require$UL,0$ autofiles.
 */
@@ -28,7 +28,7 @@ class Test2Struct
 };

 U0 DumpStruct(U8 *_d,U8 *class_name=lastclass)
-{//lastclass is keyword.  See $LK,"::/Demo/LastClass.CPP"$.
+{//lastclass is keyword.  See $LK,"::/Demo/LastClass.HC"$.
  CHashClass *tempc=HashFind(class_name,Fs->hash_table,HTT_CLASS);
  U8 *print_str;
  I64 *q,dft_val;
@@ -31,8 +31,8 @@ U0 DoIt()
 //The TC flag is "has tag callback".

  //Flags are explained here:
-  //$LK,"::/Doc/DolDocOverview.TXT"$	$LK,"::/Doc/Widget.TXT"$
-  //$LK,"Dollar Flags",A="MN:DOCEf_TAG"$		$LK,"ST_DOC_FLAGS",A="FF:::/Adam/DolDoc/DocInit.CPP,ST_DOC_FLAGS"$
+  //$LK,"::/Doc/DolDocOverview.DD"$	$LK,"::/Doc/Widget.DD"$
+  //$LK,"Dollar Flags",A="MN:DOCEf_TAG"$		$LK,"ST_DOC_FLAGS",A="FF:::/Adam/DolDoc/DocInit.HC,ST_DOC_FLAGS"$
  doc_e->tag_cb=&tSCB;
  DocPrint(bdoc,"$$FG$$");
  DocUnlock(bdoc);
@@ -18,8 +18,8 @@ U0 ClickCallBack()
 //The LC flag is "has left callback".

  //Flags are explained here:
-  //$LK,"::/Doc/DolDocOverview.TXT"$	$LK,"::/Doc/Widget.TXT"$
-  //$LK,"Dollar Flags",A="MN:DOCEf_TAG"$		$LK,"ST_DOC_FLAGS",A="FF:::/Adam/DolDoc/DocInit.CPP,ST_DOC_FLAGS"$
+  //$LK,"::/Doc/DolDocOverview.DD"$	$LK,"::/Doc/Widget.DD"$
+  //$LK,"Dollar Flags",A="MN:DOCEf_TAG"$		$LK,"ST_DOC_FLAGS",A="FF:::/Adam/DolDoc/DocInit.HC,ST_DOC_FLAGS"$
  "(Not preserved if you press <CTRL-t>.)\n\n";
  doc_e->left_cb=&MyLeftCB1;
  DocUnlock(DocPut);
@@ -27,7 +27,7 @@ The +H flag will hold-onto an entry
 so it doesn't get pushed-out of the document.
 This is useful for a $$WW+H,1$$ cmd.

-See $LK,"::/Doc/DolDocOverview.TXT"$ for documentation on
+See $LK,"::/Doc/DolDocOverview.DD"$ for documentation on
 all flags and cmds.

 Note: the default page length is 66 lines
@@ -8,7 +8,7 @@
   -P	Means it is a string var, basically.

   ,32	sets the tag string width.
-	See $LK,"Data Tag Width",A="FA:::/Adam/DolDoc/DocPlain.CPP,DataTagWidth"$.
+	See $LK,"Data Tag Width",A="FA:::/Adam/DolDoc/DocPlain.HC,DataTagWidth"$.

   ,RT=I16 means the val is 2 bytes.
 	See $LK,"DocDataFmt",A="MN:DocDataFmt"$() and $LK,"DocDataScan",A="MN:DocDataScan"$().
@@ -31,7 +31,7 @@ public U0 DocProfile(U8 *filename,I64 flags)
 	"See $$LK,\"CDocEntry\",A=\"MN:CDocEntry\"$$, "
 	"$$LK,\"Doc Type Defines\",A=\"MN:DOCT_TEXT\"$$ and "
 	"$$LK,\"Doc Type Codes\","
-	"A=\"FF:::/Adam/DolDoc/DocInit.CPP,ST_DOC_CMDS\"$$.\n"
+	"A=\"FF:::/Adam/DolDoc/DocInit.HC,ST_DOC_CMDS\"$$.\n"
 	"$$FG$$";
  for (i=0;i<DOCT_NUM_TYPES;i++)
    if (cmd_stats[i])
@@ -51,7 +51,7 @@ public U0 DocProfile(U8 *filename,I64 flags)
  "$$GREEN$$\n'$$PURPLE$$doc_e->de_flags$$GREEN$$' is 64-bit.  "
 	"See $$LK,\"Doc Flag Defines\",A=\"MN:DOCEf_TAG\"$$ and "
 	"$$LK,\"Doc Flag Codes\","
-	"A=\"FF:::/Adam/DolDoc/DocInit.CPP,ST_DOC_FLAGS\"$$.\n"
+	"A=\"FF:::/Adam/DolDoc/DocInit.HC,ST_DOC_FLAGS\"$$.\n"
 	"$$FG$$";
  for (i=0;i<64;i++)
    if (flags_stats[i])
@@ -76,5 +76,5 @@ The flag arrays $LK,"doldoc.type_flags_form",A="MN:CDolDocGlbls"$, etc
 are useful.
 */

-DocProfile("::/Doc/ChangeLog.TXT",0);
-DocProfile("::/Doc/ChangeLog.TXT",DOCF_PLAIN_TEXT);
+DocProfile("::/Doc/ChangeLog.DD",0);
+DocProfile("::/Doc/ChangeLog.DD",DOCF_PLAIN_TEXT);
@@ -4,7 +4,7 @@
 U0 NumBible()
 {
  CDoc *doc_in=DocRead("::/Misc/Bible.TXT.Z",DOCF_PLAIN_TEXT_TABS),
-	*doc_out=DocNew("~/DemoNumBible.TXT.Z");
+	*doc_out=DocNew("~/DemoNumBible.DD.Z");
  CDocEntry *doc_e=doc_in->head.next;
  while (doc_e!=doc_in) {
    if (doc_e->type_u8==DOCT_TEXT) {
@@ -6,8 +6,8 @@ U0 BlkDevRep()
      //$LK,"ClassRep",A="MN:ClassRep"$() dumps any structure, automatically.
      ClassRep(&blkdev.blkdevs[i]);
      //The lastclass arg tells ClassRep the datatype.
-      //lastclass is a language feature of $LK,"HolyC",A="FI:::/Doc/HolyC.TXT"$.
-      //See $LK,"::/Demo/LastClass.CPP"$.
+      //lastclass is a language feature of $LK,"HolyC",A="FI:::/Doc/HolyC.DD"$.
+      //See $LK,"::/Demo/LastClass.HC"$.
 }

 BlkDevRep;
@@ -6,7 +6,7 @@ other end.

 U0 SerializeTree()
 {
-  CDirEntry *tempde=FilesFind("/Demo/*.TXT*",FUF_RECURSE);
+  CDirEntry *tempde=FilesFind("/Demo/*.DD*",FUF_RECURSE);
  I64 size;
  U8 *ptr;
  CArcCompress *arc;
@@ -30,7 +30,7 @@ U0 SrcExample()
 }

 SrcExample;
-//See $LK,"::/Demo/ScreenCodes.CPP"$, $LK,"::/Demo/Graphics/CharAnimation.CPP"$,
-//$LK,"::/Demo/Games/CharDemo.CPP"$ and $LK,"::/Demo/Graphics/FontEd.CPP"$.
+//See $LK,"::/Demo/ScreenCodes.HC"$, $LK,"::/Demo/Graphics/CharAnimation.HC"$,
+//$LK,"::/Demo/Games/CharDemo.HC"$ and $LK,"::/Demo/Graphics/FontEd.HC"$.

 //See $LK,"chars_bmp_alpha",A="MN:chars_bmp_alpha"$ and $LK,"chars_bmp_alpha_numeric",A="MN:chars_bmp_alpha_numeric"$.
@@ -1,4 +1,4 @@
-//Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.CPP"$.
+//Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.HC"$.

 RegSetDftEntry("TempleOS/CastleFrankenstein","F64 best_score=9999;\n");
 RegExeBranch("TempleOS/CastleFrankenstein");
@@ -3,7 +3,7 @@ Char graphics are how games on the C64 were made.  You don't need to do it
 this way, unless for fun.  You can just make device context bigger than
 the screen and scroll around.

-See  $LK,"::/Demo/Games/RawHide.CPP"$ or $LK,"::/Demo/Games/BigGuns.CPP"$.
+See  $LK,"::/Demo/Games/RawHide.HC"$ or $LK,"::/Demo/Games/BigGuns.HC"$.

 The nice thing about character graphics are the animations.
 */
@@ -31,7 +31,7 @@ U0 DrawIt(CTask *task,CDC *)
    for (j=0;j<task->win_width;j++)
 	//By the time you clip to window and handle Fs->scroll_x,Fs->scroll_y,
 	//it is too much trouble to do raw access to gr.text_base like we do
-	//in $LK,"::/Demo/Games/Maze.CPP"$.
+	//in $LK,"::/Demo/Games/Maze.HC"$.
      TextChar(task,FALSE,j,i,*ptr++);
  }
 }
@@ -3,7 +3,7 @@
 //gives a name to it.  Strings like
 //this are known as Define entries.

-//See $LK,"ST_RAINBOW_10",A="FF:::/Adam/Gr/GrPalette.CPP,ST_RAINBOW_10"$
+//See $LK,"ST_RAINBOW_10",A="FF:::/Adam/Gr/GrPalette.HC,ST_RAINBOW_10"$

 U0 PrintDigit(U8 ch)
 {
@@ -112,7 +112,7 @@ U0 DrawIt(CTask *task,CDC *dc)
  dc_t->flags|=DCF_TRANSFORMATION;

  //You could make it much more efficient
-  //if you did it like $LK,"::/Demo/Games/BigGuns.CPP"$
+  //if you did it like $LK,"::/Demo/Games/BigGuns.HC"$
  //with a $LK,"CDC",A="MN:CDC"$.

  for (y=-SCREEN_HEIGHT/2;y<SCREEN_HEIGHT/2;y++) {
@@ -1,4 +1,4 @@
-//Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.CPP"$.
+//Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.HC"$.

 RegSetDftEntry("TempleOS/EagleDive","F64 best_score=9999;\n");
 RegExeBranch("TempleOS/EagleDive");
@@ -970,10 +970,10 @@ Obj *FishFind(I64 x1,I64 y1,I64 *_dd)
 U0 AnimateTask(I64)
 {//Steadily moves the airplane fwd.
  I64 *s2w,x1,y1,z1,dx,dy,dz,dd;
-  F64 t0=tS,mS,é,d;
+  F64 t0=tS,ms,é,d;
  Obj *tempo;
  while (TRUE) {
-    mS=1000*(tS-t0);
+    ms=1000*(tS-t0);
    t0=tS;
    if (!game_tf) {
 //Screen to world coordinates
@@ -984,9 +984,9 @@ U0 AnimateTask(I64)

      dx=0;dy=0;dz=1<<16;
      Mat4x4MulXYZ(s2w,&dx,&dy,&dz);
-      x-=speed*mS*COORDINATE_SCALE*dx/1<<16;
-      y-=speed*mS*COORDINATE_SCALE*dy/1<<16;
-      z-=speed*mS*COORDINATE_SCALE*dz/1<<16;
+      x-=speed*ms*COORDINATE_SCALE*dx/1<<16;
+      y-=speed*ms*COORDINATE_SCALE*dy/1<<16;
+      z-=speed*ms*COORDINATE_SCALE*dz/1<<16;
      Free(s2w);
      x1=x/COORDINATE_SCALE; y1=y/COORDINATE_SCALE; z1=z/COORDINATE_SCALE;
      if (z1<(WATER_ELEVATION+3)*MAP_SCALE) {
@@ -994,9 +994,9 @@ U0 AnimateTask(I64)
 	  z=WATER_ELEVATION*MAP_SCALE*COORDINATE_SCALE;
 	  if (invert_pitch) {
 	    if (pitch<-ã/8)
-	      è+=mS/1000.0*Sign(3*ã/8-è);
+	      è+=ms/1000.0*Sign(3*ã/8-è);
 	  } else if (pitch<-ã/8)
-	    è+=mS/1000.0*Sign(-3*ã/8-è);
+	    è+=ms/1000.0*Sign(-3*ã/8-è);
 	  WrapAngles;
 	}
 	speed=1.0;
@@ -1056,13 +1056,14 @@ U0 TaskEndCB()
 }

 U0 SongTask(I64)
-{//Song by Terry A. Davis
+{
  Fs->task_end_cb=&SndTaskEndCB;
  MusicSettingsRst;
-  music.stacatto_factor=0.2;
  while (TRUE) {
-    Play("3eBDEDBDEDFEEDFEED");
-    Play("BDEDBDEDFEEDFEED");
+    Play("3eCGFsDAe.C2sG3eGDqCDeGsGG2qG");
+    Play("3eCGFsDAe.C2sG3eGDqCDeGsGG2qG");
+    Play("3eGECGCAFCsCBCBe.GsG2qG3B");
+    Play("eGECGCAFCsCBCBe.GsG2qG3B");
  }
 }

@@ -1,4 +1,4 @@
-//Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.CPP"$.
+//Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.HC"$.

 RegSetDftEntry("TempleOS/RawHide","F64 best_score=9999;\n");
 RegExeBranch("TempleOS/RawHide");
@@ -1,4 +1,4 @@
-//Generate "StadiumBG.GRA.Z" from "StadiumBG.TXT.Z"
+//Generate "StadiumBG.GRA.Z" from "StadiumBG.DD.Z"

 U0 StadiumGen()
 {
@@ -11,7 +11,7 @@ U0 StadiumGen()
  WinMax;
  DocCursor(OFF);
  DocClear;
-  Type("StadiumBG.TXT");
+  Type("StadiumBG.DD");
  "$$CM,0,%d$$",TEXT_ROWS-3;
  fp_old_update=gr.fp_final_screen_update; //hide mouse cursor
  gr.fp_final_screen_update=NULL;
@@ -1,4 +1,4 @@
-//Uses $LK,"fixed-point-arithmetic",A="FI:::/Demo/Lectures/FixedPoint.CPP"$.
+//Uses $LK,"fixed-point-arithmetic",A="FI:::/Demo/Lectures/FixedPoint.HC"$.

 I64 x[16],y[16],dx[16],dy[16];