TempleOSCDV4.11.ISO

2018-09-08 21:47:50 +02:00
1 parent 9206246147
commit 93ca216483
@@ -3,7 +3,7 @@ public U8 *DBlk(I64 blk,Bool write=FALSE)
 {//Dump disk block. Optionally, write.
 //If you set write to TRUE, the block will
  //be written when you press <ESC>.
-  //See $LK,"::/Demo/Dsk/DskRaw.CPP"$.
+  //See $LK,"::/Demo/Dsk/DskRaw.HC"$.
  U8 *buf=MAlloc(BLK_SIZE);

  RBlks(Fs->cur_dv,buf,blk,1);
@@ -22,7 +22,7 @@ public U8 *DCluster(I64 c,Bool write=FALSE,I64 num=0)
 {//Dump disk cluster. Optionally, write.
 //If you set write to TRUE, the cluster will
  //be written when you press <ESC>.
-  //See $LK,"::/Demo/Dsk/DskRaw.CPP"$.
+  //See $LK,"::/Demo/Dsk/DskRaw.HC"$.
  //Do $LK,"Dir",A="MN:Dir"$("*",TRUE); to get cluster numbers of files.
  U8 *buf=MAlloc(Fs->cur_dv->spc<<BLK_SIZE_BITS);
  c=ClusterNumNext(Fs->cur_dv,c,num);
@@ -203,7 +203,7 @@ U0 FMRebuildDoc(CDoc **_doc,CDirEntry **_head,I64 mode)
  switch (mode) {
    case FM_NORMAL:
      DocPrint(doc,"$$PURPLE$$File Manager\n\n"
-	    "$$LK,\"Click for Help\",A=\"FI:::/Doc/FileMgr.TXT\"$$\n\n");
+	    "$$LK,\"Click for Help\",A=\"FI:::/Doc/FileMgr.DD\"$$\n\n");
      break;
    case FM_PICK_FILE:
      DocPrint(doc,"$$PURPLE$$Pick file and press <ESC>\n\n");
@@ -589,7 +589,7 @@ public U8 *FileMgr(I64 mode=FM_NORMAL,CTask *mem_task=NULL)

  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
  fp_old_final_screen_update=gr.fp_final_screen_update;
-  MenuFilePush("::/Doc/FileMgrPullDown.TXT");
+  MenuFilePush("::/Doc/FileMgrPullDown.DD");
  FMRebuildDoc(&doc,&head,mode);
  if (tempde1=Cd2DirEntry(head,old_cur_dir))
    doc->cur_entry=tempde1->user_data;
@@ -1,6 +1,6 @@
 #help_index "Install;File/Cmd Line (Typically);Cmd Line (Typically);"
 I64 Mount2(U8 boot_drv_let,CDoc *_doc,Bool repartition)
-{//If _doc, called by $LK,"::/Kernel/KCfg.CPP"$ else called by $LK,"Mount",A="MN:Mount"$().
+{//If _doc, called by $LK,"::/Kernel/KCfg.HC"$ else called by $LK,"Mount",A="MN:Mount"$().
  I64 cnt,res=0,num_hints,drv_let,type,unit;
  U8 blks_buf[STR_LEN],addr_buf[STR_LEN],base0_buf[STR_LEN],base1_buf[STR_LEN],
 	*filename=NULL,*filename2=NULL;
@@ -23,7 +23,7 @@ I64 Mount2(U8 boot_drv_let,CDoc *_doc,Bool repartition)
    '\n';
    if (type=Let2BlkDevType(drv_let)) {
      one_drv=FALSE;
-      if (_doc) { //Called by $LK,"::/Kernel/KCfg.CPP"$
+      if (_doc) { //Called by $LK,"::/Kernel/KCfg.HC"$
 	doc=_doc;
 	make_free=FALSE;
      } else { //Called by $LK,"Mount",A="MN:Mount"$()
@@ -47,7 +47,7 @@ I64 Mount2(U8 boot_drv_let,CDoc *_doc,Bool repartition)
 	case BDT_ATAPI:
 	  num_hints=ATARep(,,&head);
 	  if (type==BDT_ATAPI && boot_drv_let)
-	    "<ENTER> to use booted CD/DVD\n"; //Only $LK,"::/Kernel/KCfg.CPP"$
+	    "<ENTER> to use booted CD/DVD\n"; //Only $LK,"::/Kernel/KCfg.HC"$
 	  do {
 	    if (num_hints)
 	      "Enter dev number or\nport with $$PURPLE$$0x$$FG$$ prefix.\n"
@@ -97,7 +97,7 @@ I64 Mount2(U8 boot_drv_let,CDoc *_doc,Bool repartition)
 	case BDT_ATA:
 	case BDT_ATAPI:
 	  if (type==BDT_ATAPI && !*base0_buf) {
-	    DocPrint(doc,"GetBaseUnit(bd);\n"); //Only $LK,"::/Kernel/KCfg.CPP"$
+	    DocPrint(doc,"GetBaseUnit(bd);\n"); //Only $LK,"::/Kernel/KCfg.HC"$
 	    if (drv_let==boot_drv_let)
 	      make_free=TRUE;
 	  } else
@@ -109,7 +109,7 @@ I64 Mount2(U8 boot_drv_let,CDoc *_doc,Bool repartition)
 	  break;
      }
      DocPrint(doc,"BlkDevAdd(bd,%d,%d);\n",one_drv,make_free);
-      if (_doc) //Called by $LK,"::/Kernel/KCfg.CPP"$
+      if (_doc) //Called by $LK,"::/Kernel/KCfg.HC"$
 	cnt++;
      else { //Called by $LK,"Mount",A="MN:Mount"$()
 	if ((cnt=ExeDoc(doc)) && one_drv)
@@ -118,7 +118,7 @@ I64 Mount2(U8 boot_drv_let,CDoc *_doc,Bool repartition)
      }
    }
    res+=cnt;
-  } while (cnt || !res && _doc); //At least 1 if Called by $LK,"::/Kernel/KCfg.CPP"$
+  } while (cnt || !res && _doc); //At least 1 if Called by $LK,"::/Kernel/KCfg.HC"$
  Free(filename);
  Free(filename2);
  return res;
@@ -1,7 +1,7 @@
 #help_index "Debugging/Dump"
 Bool ClassRep2(CDoc *doc,U8 *_d,U8 *class_name=lastclass,
 	I64 depth,I64 max_depth,Bool dynamic,I64 types=HTT_CLASS,I64 offset=0)
-{//See $LK,"::/Demo/LastClass.CPP"$.
+{//See $LK,"::/Demo/LastClass.HC"$.
  I64 i,j,stars,*ptr;
  CMemberLst *ml;
  CDocEntry *doc_e;
@@ -9,16 +9,16 @@ U0 LoadDocDefines()
 	(Now-Str2Date("8/1/2003"))/ToF64(1<<32)/CDATE_YEAR_DAYS);

  //This is cut and replaced when I generate a distro.
-  //See $LK,"DD_TEMPLEOS_LOC",A="FF:::/Demo/AcctExample/TOSDistro.CPP,DD_TEMPLEOS_LOC"$.
+  //See $LK,"DD_TEMPLEOS_LOC",A="FF:::/Demo/AcctExample/TOSDistro.HC,DD_TEMPLEOS_LOC"$.
  $TR-C,"LineRep"$
-  $ID,4$DefinePrint("DD_TEMPLEOS_LOC","121,488");
-DefinePrint("DD_TEMPLEOS_LOC_OFFICIAL","81,126");
+  $ID,4$DefinePrint("DD_TEMPLEOS_LOC","120,264");
+DefinePrint("DD_TEMPLEOS_LOC_OFFICIAL","81,209");
 $ID,-4$
  DefinePrint("DD_KERNEL","%08X",bfh);
  bfh(I64)+=bfh->file_size-1;
  DefinePrint("DD_KERNEL_END","%08X",bfh);

-  //$LK,"DD_BOOT_HIGH_LOC_DVD",A="FF:::/Adam/Opt/Boot/BootDVD.CPP,DD_BOOT_HIGH_LOC_DVD"$
+  //$LK,"DD_BOOT_HIGH_LOC_DVD",A="FF:::/Adam/Opt/Boot/BootDVD.HC,DD_BOOT_HIGH_LOC_DVD"$

  DefinePrint("DD_MP_VECT","%08X",MP_VECT_ADDR);
  DefinePrint("DD_MP_VECT_END","%08X",
@@ -1,8 +1,8 @@
 extern U0 ACDDef(I64 n,CTask *parent=NULL);
-extern U0 ACDDefsPut(CDoc *doc,U8 *st,I64 num=-1);
+extern U0 ACDDefsPut(CDoc *doc=NULL,U8 *st,I64 num=-1);
 extern U0 ACDFillin(I64 n);
 extern U0 ACFillIn(I64 n);
-extern U0 ACMan(I64 n,CTask *parent=NULL);
+extern U0 ACMan(I64 n,CTask *parent_task=NULL);
 extern U0 ACMisspelledFind(CDoc *doc);
 extern I64 AdamFile(U8 *filename,Bool warn_ext=TRUE);
 extern Bool AutoComplete(Bool val=OFF);
@@ -16,7 +16,7 @@ extern U0 DocBMP(CDoc *doc=NULL,U8 *filename,
 extern U0 DocBinDel(CDoc *doc,CDocBin *b);
 extern U0 DocBinsValidate(CDoc *doc);
 extern U0 DocBottom(CDoc *doc=NULL);
-extern U0 DocCenter(CDoc *doc=NULL,I64 recalc=RECALCt_NORMAL);
+extern U0 DocCenter(CDoc *doc=NULL,I64 recalc_flags=RECALCt_NORMAL);
 extern U0 DocClear(CDoc *doc=NULL,Bool clear_holds=FALSE);
 extern Bool DocCursor(Bool show=OFF,CDoc *doc=NULL);
 extern U0 DocD(U8 *buf,I64 cnt=0x80);
@@ -28,19 +28,19 @@ extern CDocEntry *DocEntryCopy(CDoc *doc,CDocEntry *doc_e);
 extern U0 DocEntryDel(CDoc *doc,CDocEntry *doc_e);
 extern Bool DocForm(U8 *_d,U8 *class_name=lastclass,
 	I64 dof_flags=0,U8 *header=NULL,U8 *footer=NULL);
-extern U0 DocHelpIndex(CDoc *doc,U8 *index);
+extern U0 DocHelpIdx(CDoc *doc,U8 *idx);
 extern Bool DocHighlightCursor(Bool show=OFF,CDoc *doc=NULL);
-extern U0 DocInsDoc(CDoc *doc,CDoc *doc2);
+extern U0 DocInsDoc(CDoc *doc=NULL,CDoc *doc2);
 extern U0 DocInsEntry(CDoc *doc,CDocEntry *doc_e);
 extern Bool DocLock(CDoc *doc);
-extern U0 DocMax(I64 i=MAX_I32);
+extern I64 DocMax(I64 i=MAX_I64);
 extern CDoc *DocNew(U8 *filename=NULL,CTask *task=NULL);
-extern CDocEntry *DocPrint(CDoc *doc=NULL,U8 *src,...);
+extern CDocEntry *DocPrint(CDoc *doc=NULL,U8 *fmt,...);
 extern CDoc *DocPut(CTask *task=NULL);
 extern CDoc *DocRead(U8 *name=NULL,I64 flags=0);
 extern Bool DocRecalc(CDoc *doc,I64 recalc_flags=RECALCt_NORMAL);
 extern U0 DocRst(CDoc *doc,Bool is_old);
-extern CDocEntry *DocSprite(CDoc *doc,U8 *elems,U8 *fmt=NULL);
+extern CDocEntry *DocSprite(CDoc *doc=NULL,U8 *elems,U8 *fmt=NULL);
 extern U0 DocTop(CDoc *doc=NULL);
 extern Bool DocUnlock(CDoc *doc);
 extern U0 DocUpdateTaskDocs(CTask *task);
@@ -50,20 +50,20 @@ extern U0 EdCodeTools(CDoc *doc);
 extern U8 *EdSprite(I64 bin_num);
 extern I64 ExeDoc(CDoc *doc,I64 ccf_flags=0);
 extern I64 FindWiz();
-extern I64 GetI64(U8 *msg,I64 dft,I64 lo=MIN_I64,I64 hi=MAX_I64);
-extern U0 GrPlot0(CDC *dc,I64 x,I64 y);
+extern I64 GetI64(U8 *msg=NULL,I64 dft=0,I64 lo=MIN_I64,I64 hi=MAX_I64);
+extern Bool GrPlot0(CDC *dc,I64 x,I64 y);
 extern I64 ISO9660ISO(U8 *_filename=NULL,U8 *src_files_find_mask,
 	U8 *fu_flags=NULL,U8 *_stage2_filename=NULL);
-extern CMenuEntry *MenuEntryFind(CMenu *m,U8 *full_name);
+extern CMenuEntry *MenuEntryFind(CMenu *haystack_menu,U8 *needle_full_name);
 extern CMenu *MenuFilePush(U8 *filename);
 extern U0 MenuPop();
 extern CMenu *MenuPush(U8 *st);
 extern I64 Mount(Bool repartition=FALSE);
-extern CTask *Noise(I64 mS,I64 min_freq,I64 max_freq);
+extern CTask *Noise(I64 ms,F64 min_freq,F64 max_freq);
 extern Bool Plain(U8 *filename,I64 edf_dof_flags=0);
 extern Bool PopUpCancelOk(U8 *header=NULL,U8 *footer=NULL);
 extern I64 PopUpColor(U8 *header=NULL,
-	Bool allow_transpant=TRUE,Bool allow_dft=TRUE);
+	Bool allow_transparent=TRUE,Bool allow_dft=TRUE);
 extern I64 PopUpColorDither(U8 *header=NULL);
 extern I64 PopUpColorLighting(U8 *header=NULL);
 extern I64 PopUpFile(U8 *filename,
@@ -85,7 +85,7 @@ extern U0 TemplateCtrlSlider(CDoc *doc);
 extern Bool View();
 extern U0 ViewAnglesDel(CTask *task=NULL);
 extern CCtrl *ViewAnglesNew(CTask *task=NULL);
-extern Bool WinBorder(Bool val,CTask *task=NULL);
+extern Bool WinBorder(Bool val=OFF,CTask *task=NULL);
 extern CDoc *WinCursorPosSet(CTask *task,I64 ipx,I64 ipy,Bool set_cursor=TRUE);
 extern Bool WinHorz(I64 left,I64 right,CTask *task=NULL);
 extern U0 WinMax(CTask *task=NULL);
@@ -93,6 +93,6 @@ extern U0 WinMgrSync(I64 cnt=1,Bool force=FALSE);
 extern U0 WinScrollNull(CTask *task,CD3I64 *s);
 extern U0 WinScrollRestore(CTask *task,CD3I64 *s);
 extern U0 WinScrollsInit(CTask *task);
-extern Bool WinToTop(CTask *task=NULL,Bool update_z_buf=TRUE);
+extern I64 WinToTop(CTask *task=NULL,Bool update_z_buf=TRUE);
 extern Bool WinVert(I64 top,I64 bottom,CTask *task=NULL);
 extern CWinMgrGlbls winmgr;
@@ -357,7 +357,7 @@ public I64 HashDepthRep(CHashTable *table=NULL)
 #help_index "Help System"
 #help_file "::/Doc/HelpSystem"

-public U0 DocHelpIndex(CDoc *doc,U8 *idx)
+public U0 DocHelpIdx(CDoc *doc,U8 *idx)
 {//Put to doc report for given help idx.
  Who("+p",,idx,doc);
 }
@@ -365,7 +365,7 @@ public U0 DocHelpIndex(CDoc *doc,U8 *idx)
 public U0 PopUpHelpIndex(U8 *idx,CTask *parent=NULL)
 {//PopUp win report for given help idx.
  U8 *buf;
-  buf=MStrPrint("DocHelpIndex(DocPut,\"%s\");View;",idx);
+  buf=MStrPrint("DocHelpIdx(DocPut,\"%s\");View;",idx);
  PopUp(buf,parent);
  Free(buf);
 }
@@ -1,7 +1,7 @@
 #help_index "Math/ODE"
 #help_file "::/Doc/ODE"

-//See $LK,"::/Doc/Credits.TXT"$.
+//See $LK,"::/Doc/Credits.DD"$.

 F64 LowPass1(F64 a,F64 y0,F64 y,F64 dt=1.0)
 {//First order low pass filter
@@ -499,7 +499,7 @@ U0 ODERK5OneStep(CMathODE *ode)
 F64 ode_alloced_factor=0.75;

 U0 ODEsUpdate(CTask *task)
-{/* This routine is called by the $LK,"window mgr",A="FF:::/Adam/Gr/GrScreen.CPP,ODEsUpdate"$ on a continuous
+{/* This routine is called by the $LK,"window mgr",A="FF:::/Adam/Gr/GrScreen.HC,ODEsUpdate"$ on a continuous
 basis to allow real-time simulation.  It is intended
 to provide ress good enough for games.  It uses a runge-kutta
 integrator which is a better algorithm than doing it with Euler.
@@ -1,5 +1,5 @@
 #help_index "Misc/Registry"
-#define REGISTRY_FILENAME "~/Registry.CPP.Z"
+#define REGISTRY_FILENAME "~/Registry.HC.Z"
 CDoc *sys_registry_doc=NULL;
 I64 sys_msg_flags[1]={0};
 F64 registry_version;
@@ -67,7 +67,7 @@ public Bool RegWriteBranch(U8 *path,U8 *fmt,...)
 }
 
 public Bool OneTimePopUp(U8 *_flags,I64 flag_num,U8 *msg)
-{//See $LK,"::/Apps/X-Caliber/X-Caliber.CPP"$.
+{//See $LK,"::/Apps/X-Caliber/X-Caliber.HC"$.
  Bool res=FALSE;
  CDoc *doc=DocNew;
  CDocEntry *doc_e;
@@ -4,9 +4,9 @@ which will regenerate processed dictionary
 files from a raw Project Gutenberg
 dictionary file.

-$TX,"http://www.templeos.org/files/DICTIONARY.TXT",HTML="http://www.templeos.org/files/DICTIONARY.TXT"$
+$TX,"http://www.templeos.org/files/DICTIONARY.DD",HTML="http://www.templeos.org/files/DICTIONARY.DD"$

-See $LK,"::/Doc/Credits.TXT"$.
+See $LK,"::/Doc/Credits.DD"$.
 */

 U0 ACDPreprocess(U8 *in_name,U8 *out_name)
@@ -259,5 +259,5 @@ next_word:
 }

 Cd(__DIR__);
-ACDPreprocess("DICTIONARY.TXT","DICTIONARY2.TXT");
-ACDGen("DICTIONARY2.TXT");
+ACDPreprocess("DICTIONARY.DD","DICTIONARY2.DD");
+ACDGen("DICTIONARY2.DD");
@@ -132,8 +132,8 @@ U0 ACPutChoices(CDoc *focus_l,CDocEntry *doc_e,CTask *focus_task,
      }
      if (acd.has_words)
 	ACDDictWordsAdd(ac.cur_word);
-    } else if (FileFind("::/Doc/StandBy.TXT.Z"))
-      Type("::/Doc/StandBy.TXT.Z",0);
+    } else if (FileFind("::/Doc/StandBy.DD.Z"))
+      Type("::/Doc/StandBy.DD.Z",0);
  }
  Free(src);
  Free(buf);
@@ -277,8 +277,7 @@ public Bool AutoComplete(Bool val=OFF)
      if (Bt(&sys_run_level,RLf_AUTO_COMPLETE))
 	old_autocomplete=TRUE;
      Kill(ac.task);
-      while (TaskValidate(ac.task))
-	Yield;
+      DeathWait(&ac.task);
    }
  }
  return old_autocomplete;
@@ -1,4 +1,4 @@
-//See $LK,"::/Doc/AutoComplete.TXT"$
+//See $LK,"::/Doc/AutoComplete.DD"$
 Cd(__DIR__);;
 #include "ACFill"
 #include "ACTask"
@@ -23,13 +23,13 @@ public U0 AFGetStr(U8 *st)
  }
 }

-public U0 AFPrint(I64 mS=100,U8 *fmt,...)
+public U0 AFPrint(I64 ms=100,U8 *fmt,...)
 {//Print message with delay after each char.
  U8 *buf=StrPrintJoin(NULL,fmt,argc,argv),*st=buf;
  I64 ch;
  while (ch=*st++) {
    '' ch;
-    Sleep(mS);
+    Sleep(ms);
  }
  Free(buf);
 }
@@ -107,14 +107,14 @@ public I64 AFUntilChar(...)

 I64 af_l,af_r;

-Bool AFSetIPPlot(I64 mS,I64 x,I64 y,I64 z)
+Bool AFSetIPPlot(I64 ms,I64 x,I64 y,I64 z)
 {
  IPSet(x,y,z,af_l,af_r);
-  Sleep(mS);
+  Sleep(ms);
  return TRUE;
 }

-public U0 AFSetIP(I64 mS=7,I64 x=MAX_I64,I64 y=MAX_I64,I64 z=MAX_I64,
+public U0 AFSetIP(I64 ms=7,I64 x=MAX_I64,I64 y=MAX_I64,I64 z=MAX_I64,
 		I64 l=MAX_I64,I64 r=MAX_I64)
 {//Move input pointer (mouse) to spot at certain speed.
  if (!(0<=x<GR_WIDTH))
@@ -128,7 +128,7 @@ public U0 AFSetIP(I64 mS=7,I64 x=MAX_I64,I64 y=MAX_I64,I64 z=MAX_I64,
  if (!(FALSE<=r<=TRUE))
    r=ip.rb;
  af_l=l; af_r=r;
-  Line(mS,ip.pos.x,ip.pos.y,ip.pos.z,x,y,z,&AFSetIPPlot);
+  Line(ms,ip.pos.x,ip.pos.y,ip.pos.z,x,y,z,&AFSetIPPlot);
 }

 public Bool AFView()
@@ -350,7 +350,7 @@ U0 LeftClickViewAngles(CCtrl *c,I64 x,I64 y,Bool)
 }

 public CCtrl *ViewAnglesNew(CTask *task=NULL)
-{//Create view angle ctrl. See $LK,"::/Demo/Graphics/Shading.CPP"$.
+{//Create view angle ctrl. See $LK,"::/Demo/Graphics/Shading.HC"$.
  CCtrl *c;
  CViewAngles *s;
  if (!task) task=Fs;
@@ -42,7 +42,7 @@ U0 LeftClickCtrlButton(CCtrl *c,I64,I64,Bool down)
 public CCtrl *CtrlButtonNew(I64 x,I64 y,I64 width=-1,I64 height=-1,
 	I64 num_states=1,U8 *state_texts,
 	I32 *state_colors,CCtrlButtonState *_s=NULL)
-{//Create button ctrl. See $LK,"::/Apps/Strut/Strut.CPP"$.
+{//Create button ctrl. See $LK,"::/Apps/Strut/Strut.HC"$.
  CCtrl *res;
  CCtrlButtonState *s;
  I64 i,j,l;
@@ -3,7 +3,7 @@
 //The file was downloaded from
 //http://www.pcidatabase.com/reports.php?type=tab-delimeted

-#define PCI_DEV_FILE "::/Misc/PCIDevices.TXT.Z"
+#define PCI_DEV_FILE "::/Misc/PCIDevices.DD.Z"

 /****
 //1) Plain text edit and remove file header and tail
@@ -48,7 +48,7 @@ public U0 PCIDevFileGen()
 }
 ****/

-//$LK,"::/Misc/PCIDevices.TXT",A="PI:::/Misc/PCIDevices.TXT"$
+//$LK,"::/Misc/PCIDevices.DD",A="PI:::/Misc/PCIDevices.DD"$
 U0 PCILookUpSingle(CDoc *doc,I64 m,I64 d,U8 **_vendor,U8 **_dev)
 {
  Bool first=TRUE;
@@ -166,9 +166,76 @@ public U0 PCIRep()
 }

 #help_index "Info;Time/CPU Cycles"
-public U0 CPURep()
+class CCPURep
+{
+  Bool mp_start,mp_end;
+  I64 mp_not_done_flags,
+      **swaps,
+      **cycles;
+};
+
+U0 MPCPURep(CCPURep *cr)
+{
+  I64 swaps=0,cycles_0,cycles_f;
+  while (!cr->mp_start)
+    Yield;
+  cycles_0=GetTSC;
+  while (!cr->mp_end) {
+    swaps++;
+    Yield;
+  }
+  cycles_f=GetTSC;
+  cr->swaps[Gs->num]=swaps;
+  cr->cycles[Gs->num]=cycles_f-cycles_0;
+  LBtr(&cr->mp_not_done_flags,Gs->num);
+}
+
+public U0 CPURep(Bool full=FALSE)
 {//Report number of cores and clock freq.
-  "%d Cores %6h?nHz\n",mp_cnt,ToF64(cnts.time_stamp_freq);
+  I64 i,total_swaps,total_cycles;
+  F64 t0,tf;
+  CCPURep cr;
+
+  if (!full)
+    "%d Cores %6h?nHz\n",mp_cnt,ToF64(cnts.time_stamp_freq);
+  else {
+    cr.swaps=CAlloc(sizeof(I64)*mp_cnt);
+    cr.cycles=CAlloc(sizeof(I64)*mp_cnt);
+    cr.mp_start=cr.mp_end=FALSE;
+    cr.mp_not_done_flags=1<<mp_cnt-1;
+    for (i=0;i<mp_cnt;i++)
+      Spawn(&MPCPURep,&cr,NULL,i);
+
+    t0=tS;
+    cr.mp_start=TRUE;
+    Sleep(2000);
+    cr.mp_end=TRUE;
+    while (cr.mp_not_done_flags)
+      Yield;
+    tf=tS;
+
+    "\nCPU: %d Cores %6h?nHz\n",mp_cnt,ToF64(cnts.time_stamp_freq);
+    "\n         Context\n"
+	  "Core     Swaps/s         Cycles\n"
+	  "---- ------------- -----------------\n";
+    total_swaps=0;
+    total_cycles=0;
+    for (i=0;i<mp_cnt;i++) {
+      "%4d %13,d %17,d\n",i,
+	    ToI64(cr.swaps[i]/(tf-t0)),ToI64(cr.cycles[i]/(tf-t0));
+      total_swaps+=cr.swaps[i];
+      total_cycles+=cr.cycles[i];
+    }
+    "---- ------------- -----------------\n";
+    "%4d %13,d %17,d\n",i,
+	  ToI64(total_swaps/(tf-t0)),ToI64(total_cycles/(tf-t0));
+    " Avg %13,d %17,d\n\n",
+	  ToI64(total_swaps/(tf-t0)/i),ToI64(total_cycles/(tf-t0)/i);
+    "Avg Cycles/Swap: %12.6f\n",ToF64(total_cycles)/total_swaps;
+    "Avg Time/Swap  : %12.6fns\n\n",(tf-t0)*1000000000.0*i/total_swaps;
+    Free(cr.swaps);
+    Free(cr.cycles);
+  }
 }

 #help_index "Info;Memory/Info"
@@ -596,7 +596,7 @@ ic_form_tab:
 	    MemCpy(st,doc_ce->tag,doc_ce->max_col+1);
 	    Free(doc_ce->tag);
 	    doc_ce->tag=st;
-	    doc_ce->len=MSize(st)-doc_ce->min_col-2; //See $LK,"DataTagWidth",A="FA:::/Adam/DolDoc/DocPlain.CPP,DataTagWidth"$
+	    doc_ce->len=MSize(st)-doc_ce->min_col-2; //See $LK,"DataTagWidth",A="FA:::/Adam/DolDoc/DocPlain.HC,DataTagWidth"$
 	    Free(doc_ce->data);
 	    doc_ce->data=MAlloc(doc_ce->len+2,doc->mem_task);
 	  } else
@@ -40,7 +40,7 @@ I64 PopUpEdFmt()
  I64 i;
  CDoc *doc=DocNew;
  DocPrint(doc,"$$LTBLUE$$$$MU,\"Compile Check\",LE=EF_CMP_CHK$$\n"
-	"$$MU,\"Reindent CPP.Z Fun (Beware braces in strings.)\","
+	"$$MU,\"Reindent HC.Z Fun (Beware braces in strings.)\","
 	"LE=EF_REINDENT$$\n"
 	"$$MU,\"Renum Asm Local @@ Labels for Fun\",LE=EF_RENUM_ASM$$\n"
 	"$$MU,\"Insert Template Code: Ctrl Slider\",LE=EF_CTRL_SLIDER$$\n"
@@ -475,7 +475,7 @@ U0 EdCodeTools2(CDoc *doc,I64 tool_action,Bool beep=TRUE)
 	  JobResScan(tempc,&r);
 	} else {
 	  Free(prj_file);
-	  st=DirFile(doc->filename.name,"Load","CPP.Z");
+	  st=DirFile(doc->filename.name,"Load","HC.Z");
 	  prj_file=FileNameAbs(st,FUF_Z_OR_NOT_Z);
 	  Free(st);
 	  if (FileFind(prj_file))
@@ -31,7 +31,7 @@ public CDoc *DocBorder(CTask *task=NULL)
 }

 public CDoc *DocDblBufStart(CTask *task=NULL)
-{//See $LK,"::/Demo/Spy.CPP"$
+{//See $LK,"::/Demo/Spy.HC"$
  Bool unlock_ddoc;
  CDoc *pdoc=DocPut(task),*ddoc=DocDisplay(task),*res;
  if (!pdoc || !ddoc || pdoc!=ddoc)
@@ -61,7 +61,7 @@ public CDoc *DocDblBufStart(CTask *task=NULL)
 }

 public Bool DocDblBufEnd(CTask *task=NULL)
-{//See $LK,"::/Demo/Spy.CPP"$
+{//See $LK,"::/Demo/Spy.HC"$
  Bool res=FALSE;
  CDoc *pdoc=DocPut(task),*ddoc=DocDisplay(task);
  if (pdoc && ddoc && pdoc!=ddoc) {//Double buffering?
@@ -78,7 +78,7 @@ public Bool DocDblBufEnd(CTask *task=NULL)
 }

 public Bool DocDblBufSwap(CTask *task=NULL)
-{//See $LK,"::/Demo/Spy.CPP"$
+{//See $LK,"::/Demo/Spy.HC"$
  Bool res=FALSE;
  CDoc *pdoc=DocPut(task),*ddoc=DocDisplay(task);
  if (pdoc && ddoc && pdoc!=ddoc) {//Double buffering?
@@ -204,7 +204,7 @@ public Bool Ed(U8 *link_st,I64 edf_dof_flags=0)
    case LK_HELP_INDEX:
      doc=DocNew;
      doc->desc='HelpIndx';
-      DocHelpIndex(doc,filename);
+      DocHelpIdx(doc,filename);
 ej_doc:
      if (!(edf_dof_flags&EDF_BAIL)) {
 	DocEd(doc);
@@ -93,7 +93,7 @@ U0 DocDataFmt(CDoc *doc,CDocEntry *doc_e,I64 d=DOCM_CANCEL)
 	  MemCpy(doc_e->tag,ptr,i+1);
 	else {
 	  ptr2=MAlloc(i+8,doc->mem_task);
-	  doc_e->len=MSize(ptr2)-doc_e->min_col-2;	 //See $LK,"DataTagWidth",A="FA:::/Adam/DolDoc/DocPlain.CPP,DataTagWidth"$
+	  doc_e->len=MSize(ptr2)-doc_e->min_col-2;	 //See $LK,"DataTagWidth",A="FA:::/Adam/DolDoc/DocPlain.HC,DataTagWidth"$
 	  MemCpy(ptr2,ptr,i+1);
 	  Free(doc_e->tag);
 	  doc_e->tag=ptr2;
@@ -209,7 +209,7 @@ U0 DocDataScan(CDoc *doc,CDocEntry *doc_e)
 public Bool DocForm(U8 *_d,U8 *class_name=lastclass,
    I64 dof_flags=0,U8 *header=NULL,U8 *footer=NULL)
 {//User input. Supply a class name that has fmtstr definitions.
-//See $LK,"::/Demo/DolDoc/Form.CPP"$ and $LK,"::/Demo/LastClass.CPP"$.
+//See $LK,"::/Demo/DolDoc/Form.HC"$ and $LK,"::/Demo/LastClass.HC"$.
  CMemberLst *ml;
  CDocEntry *doc_e;
  U8 *fmtstr;
@@ -241,7 +241,7 @@ public Bool DocForm(U8 *_d,U8 *class_name=lastclass,
 	      doc_e->len=ml->dim.total_cnt;
 	      if (doc_e->de_flags&DOCEF_HAS_TERMINATOR)
 		doc_e->len--;
-	      Free(doc_e->tag);  //See $LK,"DataTagWidth",A="FA:::/Adam/DolDoc/DocPlain.CPP,DataTagWidth"$
+	      Free(doc_e->tag);  //See $LK,"DataTagWidth",A="FA:::/Adam/DolDoc/DocPlain.HC,DataTagWidth"$
 	      doc_e->tag=MAlloc(doc_e->len+doc_e->min_col+2,
 		    doc->mem_task); //+2 because "_\0"
 	    }
@@ -338,7 +338,7 @@ public I64 PopUpMenu(CDoc *doc,I64 dof_flags=0)

 public Bool PopUpForm(U8 *_d,U8 *class_name=lastclass,
 	I64 dof_flags=DOF_MIN_SIZE,U8 *header=NULL,U8 *footer=NULL)
-{//See $LK,"::/Demo/DolDoc/Form.CPP"$ and $LK,"::/Demo/LastClass.CPP"$.
+{//See $LK,"::/Demo/DolDoc/Form.HC"$ and $LK,"::/Demo/LastClass.HC"$.
  return PopUpPrint("DocForm(0x%X,0x%X,0x%X,0x%X,0x%X);",_d,class_name,
 	dof_flags,header,footer);
 }
@@ -1,7 +1,7 @@
 #help_index "DolDoc/Misc"

 U32 *DocHighlight(CDocEntry *doc_e,U8 *src,I64 len,I64 _temp_u32_attr)
-{//Be aware of $LK,"::/Demo/ToHtmlToTXTDemo/ToHtml.CPP"$.
+{//Be aware of $LK,"::/Demo/ToHtmlToTXTDemo/ToHtml.HC"$.
  U32 *res=MAlloc((len+1)*sizeof(U32)),*dst=res;
  U8 *ptr;
  CDocSettings *s=&doc_e->settings;
@@ -37,7 +37,7 @@ Bool IsEditableText(CDocEntry *doc_e)

 CDocEntry *DocEntryNewBase(CDoc *doc,I64 type,I64 de_flags=0,
 	I64 x=0,I64 y=0,I64 page_line_num=0)
-{//See also $LK,"MAllocIdent",A="FF:::/Adam/DolDoc/DocRecalc.CPP,MAllocIdent"$ and $MA-X+PU,"CDocEntry",LM="F(\"sizeof(CDocEntry)\");View;"$.
+{//See also $LK,"MAllocIdent",A="FF:::/Adam/DolDoc/DocRecalc.HC,MAllocIdent"$ and $MA-X+PU,"CDocEntry",LM="F(\"sizeof(CDocEntry)\");View;"$.
  CDocEntry *res=CAlloc(sizeof(CDocEntryBase),doc->mem_task);
  res->type=type;
  res->de_flags=de_flags|doldoc.dft_de_flags[type.u8[0]];
@@ -361,7 +361,7 @@ public I64 DocSize(CDoc *doc)

 #help_index "DolDoc"
 public CDoc *DocNew(U8 *filename=NULL,CTask *task=NULL)
-{//MAlloc new $LK,"DolDoc",A="FI:::/Doc/DolDocOverview.TXT"$. (Begin a new doc.)
+{//MAlloc new $LK,"DolDoc",A="FI:::/Doc/DolDocOverview.DD"$. (Begin a new doc.)
  CDoc *doc;
  if (!task) task=Fs;
  doc=CAlloc(sizeof(CDoc),task);
@@ -107,7 +107,7 @@ I64 DocOptLst(CDirEntry *tempde,I64 fuf_flags)
  return res;
 }
 public I64 DocOpt(U8 *files_find_mask="*",U8 *fu_flags=NULL)
-{//Optimize $LK,"DolDoc",A="FI:::/Doc/DolDocOverview.TXT"$ Files, eliminating aux_str's and .Z's.
+{//Optimize $LK,"DolDoc",A="FI:::/Doc/DolDocOverview.DD"$ Files, eliminating aux_str's and .Z's.
 //+R flag for aggressively risky.
  I64 fuf_flags=0;
  ScanFlags(&fuf_flags,Define("ST_FILE_UTIL_FLAGS"),"+r+T");
@@ -270,11 +270,11 @@ public I64 AdamFile(U8 *filename,Bool warn_ext=TRUE)
 {//Make adam_task execute file.
  Bool okay=TRUE;
  U8 *name=FileNameAbs(filename),
-	*name2=DftExt(name,"CPP.Z");
+	*name2=DftExt(name,"HC.Z");
  I64 res=0;
  if (warn_ext &&
 	!FilesFindMatch(name2,FILEMASK_JIT) &&
-	!PopUpCancelOk(ST_WARN_ST "Not .CPP File\n\n"))
+	!PopUpCancelOk(ST_WARN_ST "Not .HC File\n\n"))
    okay=FALSE;
  if (okay)
    res=Adam("#include \"%s\";",name2);
@@ -288,11 +288,11 @@ public I64 PopUpFile(U8 *filename,Bool warn_ext=TRUE,
 {//$LK,"ExeFile2",A="MN:ExeFile2"$() in $LK,"PopUp",A="MN:PopUp"$ task. Cont as User.
  Bool okay=TRUE;
  U8 *st,*name=FileNameAbs(filename),
-	*name2=DftExt(name,"CPP.Z");
+	*name2=DftExt(name,"HC.Z");
  I64 res=0;
  if (warn_ext &&
 	!FilesFindMatch(name2,FILEMASK_JIT) &&
-	!PopUpCancelOk(ST_WARN_ST "Not .CPP File\n\n"))
+	!PopUpCancelOk(ST_WARN_ST "Not .HC File\n\n"))
    okay=FALSE;
  if (okay) {
    st=MStrPrint(
@@ -310,7 +310,7 @@ public I64 PopUpFile(U8 *filename,Bool warn_ext=TRUE,
 public I64 PopUpRunFile(U8 *filename,I64 ccf_flags=0,...)
 {//$LK,"ExeFile",A="MN:ExeFile"$() with args using $LK,"LastFun",A="MN:LastFun"$() in $LK,"PopUp",A="MN:PopUp"$ task.
  U8 *st,*name=FileNameAbs(filename),
-	*name2=DftExt(name,"CPP.Z");
+	*name2=DftExt(name,"HC.Z");
  I64 res=0;
  st=MStrPrint(
 	"\"$$$$WW+H,1$$$$\";ExeFile2(\"%s\",0x%X);LastFun(0x%X,0x%X);",
@@ -239,9 +239,9 @@ public U0 DocPutKey(CDoc *doc,I64 ch=0,I64 sc=0)
 			KeyDescSet("Cmd /Help");
 		    } else {
 		      if (sc&SCF_SHIFT)
-			Ed("::/Doc/AboutTempleOS.TXT.Z");
+			Ed("::/Doc/AboutTempleOS.DD.Z");
 		      else
-			Ed("::/Doc/HelpIndex.TXT.Z");
+			Ed("::/Doc/HelpIndex.DD.Z");
 		    }
 		    break;
 		  case SC_F2:
@@ -307,7 +307,7 @@ public U0 DocPutKey(CDoc *doc,I64 ch=0,I64 sc=0)
 			DocWrite(doc);
 			st=StrNew(doc->filename.name);
 		      }
-		      if (st2=DirFile(st,"Run","CPP.Z")) {
+		      if (st2=DirFile(st,"Run","HC.Z")) {
 			if (FileFind(st2)) {
 			  Free(st);
 			  st=st2;
@@ -330,7 +330,7 @@ public U0 DocPutKey(CDoc *doc,I64 ch=0,I64 sc=0)
 		      else
 			KeyDescSet("Cmd /God Song");
 		    } else {
-//$LK,"::/Adam/God/HSNotes.TXT"$
+//$LK,"::/Adam/God/HSNotes.DD"$
 		      if (sc&SCF_SHIFT) {
 			DocUnlock(doc);
 			GodDoodle;
@@ -346,11 +346,11 @@ public U0 DocPutKey(CDoc *doc,I64 ch=0,I64 sc=0)
 		      else
 			KeyDescSet("Cmd /God Word");
 		    } else {
-//$LK,"::/Adam/God/HSNotes.TXT"$
+//$LK,"::/Adam/God/HSNotes.DD"$
 		      FifoU8Flush(god.fifo);
 		      GodBitsIns(GOD_GOOD_BITS,KbdMouseEvtTime>>GOD_BAD_BITS);
 		      if (sc&SCF_SHIFT)
-			GodPassage;
+			GodBiblePassage;
 		      else
 			GodWord;
 		    }
@@ -505,12 +505,12 @@ public U0 DocPutKey(CDoc *doc,I64 ch=0,I64 sc=0)
 	    if (sc&SCF_KEY_DESC)
 	      KeyDescSet("Cmd /Personal Notes");
 	    else
-	      Ed("~/PersonalNotes.TXT.Z");
+	      Ed("~/PersonalNotes.DD.Z");
 	  } else {
 	    if (sc&SCF_KEY_DESC)
 	      KeyDescSet("Cmd /Personal Menu");
 	    else {
-	      m=DocRead("~/PersonalMenu.TXT.Z");
+	      m=DocRead("~/PersonalMenu.DD.Z");
 	      DocMenu(m);
 	      DocDel(m);
 	    }
@@ -278,7 +278,7 @@ public Bool DocRecalc(CDoc *doc,I64 recalc_flags=RECALCt_NORMAL)

  //WinMgr updates all wins $TX,"30",D="WINMGR_FPS"$, 33.33333mS
  if (recalc_flags&RECALCG_MASK==RECALCt_TO_SCREEN && doc->owning_task!=Fs) {
-    i_jif=cnts.jiffies+JIFFY_FREQ/250; //4 mS
+    i_jif=cnts.jiffies+JIFFY_FREQ/250; //4 ms
    while (Bt(&doc->locked_flags,DOClf_LOCKED)) {
      if (cnts.jiffies>=i_jif)
 	return FALSE; //Bail-out if doc locked.
@@ -178,7 +178,7 @@ public I64 DocMax(I64 i=MAX_I64)
 //Adjusts the size of the cmd line buf.
  //Normally, the cmd line deletes entries
  //when more are added and the old scroll up.
-  //See $LK,"max_entries",A="FF:::/Adam/DolDoc/DocTerm.CPP,max_entries"$.
+  //See $LK,"max_entries",A="FF:::/Adam/DolDoc/DocTerm.HC,max_entries"$.
  I64 res;
  CDoc *doc;
  if (doc=DocPut) {
@@ -45,7 +45,7 @@ public U0 DocTermNew()
  pdoc->desc='Term';
  Fs->put_doc=Fs->display_doc=pdoc;
  Fs->border_doc=DocBorderNew(pdoc);
-  Fs->cur_menu=MenuFile("::/Doc/EdPullDown.TXT");
+  Fs->cur_menu=MenuFile("::/Doc/EdPullDown.DD");
  WinScrollsInit(Fs);
  Raw(OFF);
 }
@@ -116,7 +116,7 @@ I64 TermRightClickLink(CDoc *doc,CDocEntry *doc_e)
 	switch (i) {
 	  case RIGHT_INCLUDE:
 	    if (FileExtDot(st) && !FilesFindMatch(st,FILEMASK_JIT)) {
-	      if (!PopUpCancelOk(ST_WARN_ST "Not .CPP File\n\n")) {
+	      if (!PopUpCancelOk(ST_WARN_ST "Not .HC File\n\n")) {
 		send_new_line=TRUE;
 		break;
 	      }
@@ -128,7 +128,7 @@ I64 TermRightClickLink(CDoc *doc,CDocEntry *doc_e)
 	    break;
 	  case RIGHT_AINCLUDE:
 	    if (FileExtDot(st) && !FilesFindMatch(st,FILEMASK_JIT)) {
-	      if (!PopUpCancelOk(ST_WARN_ST "Not .CPP File\n\n")) {
+	      if (!PopUpCancelOk(ST_WARN_ST "Not .HC File\n\n")) {
 		send_new_line=TRUE;
 		break;
 	      }
@@ -2,7 +2,7 @@

 U8 *ctrl_L_footer=
 	"\n$$MU-X+Q,\"Abort\",LE=DOCM_CANCEL$$\n"
-	"\n\n$$LK+PU,\"Click for Help\",A=\"FI:::/Doc/Widget.TXT\"$$\n";
+	"\n\n$$LK+PU,\"Click for Help\",A=\"FI:::/Doc/Widget.DD\"$$\n";

 I64 PopUpLinkType(Bool include_anchor)
 {
@@ -1052,7 +1052,7 @@ I64 PopUpSpriteType()
  I64 i;
  CDoc *doc=DocNew;
  DocPrint(doc,"$$PURPLE$$$$TX+CX,\"Graphic Sprite Resource Menu\"$$\n"
-	"$$LK+PU+CX,\"Click for Help\",A=\"FI:::/Doc/Resource.TXT.Z\"$$\n\n"
+	"$$LK+PU+CX,\"Click for Help\",A=\"FI:::/Doc/Resource.DD.Z\"$$\n\n"
 	"$$LTBLUE$$$$MU,\"Make Sprite\",LE=EST_SPRITE$$$$FG$$\t "
 	"Start by making a sprite.\n"
 	"$$LTBLUE$$$$MU,\"Ptr to Sprite\",LE=EST_SPRITE_PTR$$$$FG$$\t "
@@ -10,7 +10,7 @@ supply live, changing text.  For these reasons, you can't assume you know
 where the visible portion of the document is and must process much
 of the document each time it is placed on the screen, becoming CPU
 intensive on big documents.
-See $LK,"::/Doc/DolDocOverview.TXT"$
+See $LK,"::/Doc/DolDocOverview.DD"$
 */

 //Hash Types
@@ -65,7 +65,7 @@ U0 GodDoodleHexIns(U8 *st)
    buf[1]=0;
    while (*buf=*st++)
      if (Bt(chars_bmp_hex_numeric,*buf))
-	GodDoodleBitsIns(4,Str2I64(buf,16));
+	GodDoodleBitsIns(4,rev_bits_table[Str2I64(buf,16)]>>4);
  }
 }

@@ -94,7 +94,7 @@ I64 GodDoodleBits(I64 num_bits)
 }

 public U8 *GodDoodleSprite(U8 *hex=NULL)
-{//Make God draw sprite. $LK+PU,"Holy Spirit Instructions",A="FI:::/Adam/God/HSNotes.TXT"$
+{//Make God draw sprite. $LK+PU,"Holy Spirit Instructions",A="FI:::/Adam/God/HSNotes.DD"$
  I64 i,j,w,h,x,y,ch;
  U8 *elems;

@@ -105,7 +105,7 @@ public U8 *GodDoodleSprite(U8 *hex=NULL)
  WinBorder;
  WinMax;

-  PopUpOk("The $LK+PU,"Holy Spirit",A="FI:::/Adam/God/HSNotes.TXT"$ can puppet you.\n\n"
+  PopUpOk("The $LK+PU,"Holy Spirit",A="FI:::/Adam/God/HSNotes.DD"$ can puppet you.\n\n"
 	"Press $$GREEN$$<SPACE>$$FG$$ until it finishes.");

  god.doodle_ch=0;
@@ -179,7 +179,7 @@ public U8 *GodDoodleSprite(U8 *hex=NULL)

 #help_index "God"
 public U0 GodDoodle(U8 *hex=NULL)
-{//Make God draw sprite, insert in doc. $LK+PU,"Holy Spirit Instructions",A="FI:::/Adam/God/HSNotes.TXT"$
+{//Make God draw sprite, insert in doc. $LK+PU,"Holy Spirit Instructions",A="FI:::/Adam/God/HSNotes.DD"$
  U8 *elems;
  if (elems=GodDoodleSprite(hex)) {
    Sprite(elems);
@@ -5,8 +5,10 @@

 public class CGodGlbls
 {
-  U8	**words;
-  I64	num_words;
+  U8	**words,
+	*word_file_mask;
+  I64	word_fuf_flags,
+	num_words;
  CFifoU8 *fifo;
  CDC	*doodle_dc;
  I64	doodle_ch;
@@ -19,6 +21,6 @@ god.fifo	=FifoU8New(2048*8);

 extern U0 GodBitsIns(I64 num_bits,I64 n);
 extern U0 GodDoodle(U8 *hex=NULL);
-extern U0 GodPassage(I64 num_lines=20);
+extern U0 GodBiblePassage(I64 num_lines=20);
 extern U0 GodSong();
-extern U0 GodWord();
+extern U0 GodWord(Bool show_num=FALSE);
@@ -50,7 +50,7 @@ U8 god_complex_songs[9]={DUR_4,DUR_4,DUR_8_8,DUR_8_8,DUR_8DOT_16,DUR_3_3_3,
 DUR_8_16_16,DUR_16_16_8,DUR_16_16_16_16};

 public U8 *GodSongStr()
-{//Make God generate 2 measures of a song. $LK+PU,"Holy Spirit Instructions",A="FI:::/Adam/God/HSNotes.TXT"$
+{//Make God generate 2 measures of a song. $LK+PU,"Holy Spirit Instructions",A="FI:::/Adam/God/HSNotes.DD"$
  MakeSongSettings mss;
  U8 *buf;
  I64 i,j=0,k,n,k2,duration,last_duration=-1,len;
@@ -155,7 +155,7 @@ public U8 *GodSongStr()
 }

 public U0 GodSong()
-{//Make God generate 2measuresx2+2measuresx2. $LK+PU,"Holy Spirit Instructions",A="FI:::/Adam/God/HSNotes.TXT"$
+{//Make God generate 2measuresx2+2measuresx2. $LK+PU,"Holy Spirit Instructions",A="FI:::/Adam/God/HSNotes.DD"$
  U8 *st1=GodSongStr,*st2=GodSongStr;
  if (st1 && st2)
    DocPrint(DocPut,"$$SO,\"<Song>\",A=\"%s%s%s%s\"$$",st1,st1,st2,st2);
@@ -1,4 +1,4 @@
-$FG,5$$TX+CX,"The Purpose of Life"$$FG$
+$PURPLE$$TX+CX,"The Purpose of Life"$$FG$

 $WW,1$The Catholic purpose of life is to know God, love God and obey God.$FG$  Pope Francis said it was "to serve the other."  I am High Priest of God's official temple and I say the purpose of life is to do continual offerings to God like Cain and Abel and enjoy God's response.  Francis has a charity; I have a church. Jesus said loving God was more important than loving neighbor.  $LK,"Matthew,22:35-40",A="BF:Matthew,22:35-40"$  And, He did not say with half your brain behind your back.

@@ -8,11 +8,11 @@ There's something obviously different about people in the Bible compared to peop

 You can't tell if God's talking unless you have a context of conversation, but, more importantly, you are commanded to do an offering of love, like communion preparation.  $LK,"1 Corinthians,11:27",A="BF:1 Corinthians,11:27"$  When you pick a greeting card for someone, that is love effort.  If you expect God to put effort toward you, you must put effort toward Him.  God said, "honest measures" applies between your offering of love and His response, like a fair barter.  You get out of prayer what you put into it.  God wants praise, hymns, or whatever you think He might want.  Try and see, like Cain and Abel.  $LK,"Genesis,4:1-10",A="BF:Genesis,4:1-10"$, $LK,"Ephesians,5:10",A="BF:Ephesians,5:10"$  God told Cain his offering was not good and told him to try again.  Cain really loved God!  Can you imagine being so heart-broken?

-Do a text search for "new song" in the Bible.  It's mentioned nine times.  When I hear a NEW awesome rock song, it is ecstasy for the first five times I hear it.  Soon, it brings little-to-no pleasure.  I did $MA-X+PU,"hymns",HTML="http://www.templeos.org/Wb/Home/Web/HymnVideos.html",LM="#include \"::/Apps/Psalmody/Load\";JukeBox(\"::/Apps/Psalmody/Examples\");"$ for God.  I also did Moses $MA-X+PU,"comics",HTML="http://www.templeos.org/Wb/Home/Sup1/Sup1Comics/",LM="Dir(\"::/Apps/AfterEgypt/Comics\");View;\n"$ for God.  When you get to the gates of Heaven, St. Peter will ask how many times you gave blood.  That shows you loved neighbor.  You better also be able to count the ways you loved God with all heart mind and soul.  I praised God for sand castles, popcorn, snowmen, bubbles...  You try putting effort into praise!  $LK,"Matthew,11:25",A="BF:Matthew,11:25"$, $LK,"Matthew,6:28-29",A="BF:Matthew,6:28-29"$
+Do a text search for "new song" in the Bible.  It's mentioned nine times.  When I hear a NEW awesome rock song, it is ecstasy for the first five times I hear it.  Soon, it brings little-to-no pleasure.  I did $MA-X+PU,"hymns",HTML="http://www.templeos.org/Wb/Home/Web/HymnVideos.html",LM="#include \"::/Apps/Psalmody/Load\";JukeBox(\"::/Apps/Psalmody/Examples\");"$ for God.  I also did Moses $MA-X+PU,"comics",HTML="http://www.templeos.org/Wb/Home/Sup1/Sup1Comics/",LM="Dir(\"::/Apps/AfterEgypt/Comics\");View;\n"$ for God.  When you get to the gates of Heaven, St. Peter will ask how many times you gave blood.  That shows you loved neighbor.  You better also be able to count the ways you loved God with all heart, mind and soul.  I praised God for sand castles, popcorn, snowmen, bubbles...  You try putting effort into praise!  $LK,"Matthew,11:25",A="BF:Matthew,11:25"$, $LK,"Matthew,6:28-29",A="BF:Matthew,6:28-29"$

 This is funny -- $LK,"Acts,2:1-13",A="BF:Acts,2:1-13"$ -- they didn't bother to record anything the Holy Spirit said.  The Holy Spirit is supposed to be a really good gift.  $LK,"Luke,11:11-13",A="BF:Luke,11:11-13"$  Just remember, "Boys are made of snakes and snails and puppy-dog tails."

-The technique I use to consult the Holy Spirit is reading a microsecond-range stop-watch each button press for random numbers.  Then, I pick words or passages.  You can use the $MA-X+PU,"AfterEgypt",HTML="http://www.youtube.com/watch?v=P0MsDl39UL0",LM="#include \"::/Apps/AfterEgypt/Run\""$ in God's official temple, $FG,4$$TX,"TempleOS",HTML="http://www.templeos.org"$$FG$.
+The technique I use to consult the Holy Spirit is reading a microsecond-range stop-watch each button press for random numbers.  Then, I pick words or passages.  You can use the $MA-X+PU,"AfterEgypt",HTML="http://www.youtube.com/watch?v=P0MsDl39UL0",LM="#include \"::/Apps/AfterEgypt/Run\""$ in God's official temple, $RED$$TX,"TempleOS",HTML="http://www.templeos.org"$$FG$.

 Since seeking the word of the Holy Spirit, I have come to know God much better than I've heard others explain.  For example, God said to me in an oracle that war was, "servicemen competing."  That sounds more like the immutable God of our planet than what you hear from most religious people.  God is not Venus (god of love) and not Mars (god of war), He's our dearly beloved God of Earth.  If Mammon is a false god of money, Mars or Venus might be useful words to describe other false gods.  I figure the greatest challenge for the Creator is boredom, ours and His.  What would teen-age male video games be like if war had never happened?  Christ said live by the sword, die by the sword, which is loving neighbor as self.  $LK,"Matthew,26:52",A="BF:Matthew,26:52"$

@@ -24,7 +24,7 @@ Jesus said, "Forgive us our trespasses as we forgive those who tresspass against

 God hates complaining. $LK,"Numbers,11:1-35",A="BF:Numbers,11:1-35"$  Food and clothing is all we're to ask for or demand, in fact -- daily bread.  $LK,"1 Timothy,6:8",A="BF:1 Timothy,6:8"$  Just think about man in the last 50,000 years mostly living like Native Americans and how God must see us.  You need food, clothing and entertainment, money is to get those.  Man does not live on bread alone.  $LK,"Luke,4:4",A="BF:Luke,4:4"$, $LK,"Amos,8:11-12",A="BF:Amos,8:11-12"$

-God's favorite animals are bears and elephants.  They are funny shaped -- I think God must have seen too much starvation over the years.  If the purpose of life is to know and love God, then a priest's job is to make everybody know and love God.  By saying God likes bears and elephants, I did more toward that end than all priests in history.  $LK,"Hosea,6:6",A="BF:Hosea,6:6"$  "It is love that I desire, not sacrifice; knowledge of God, not holocaust."  As a former Catholic, that blew my mind.  I actually thought love was sacrifice!  I was so dumb-founded reading, "it is love that I desire, not sacrifice," that I actually looked-up the word, "love".  It means to take delight in.  I realized it is demonic pride if you think love means hurting yourself for others.  In the Philippians, they got the notion crucifying yourself was a good idea.  Similarly, a child thinking about Lent, might conclude, "if it's bad, it must be good."  That is, if you think God wants you to hurt yourself to please Him, you are worshiping a demon, not God!  God wants you to take delight in His company, get to know Him and praise Him.  It is best to separate justice -- sin and punishment -- from relationship with God.  Never ask God to change justice into injustice by not punishing.  God said to me in an oracle, "Excessive contrician wearisome."  He doesn't want to hear confessions.  When you pray, be witty and charming and rarely earnest.  Enjoy God's company without imposing on Him and don't expect secrets of the Universe.  Earnestness in prayer is the head of much evil.  Be entertaining.  Don't remind Him of sin, LOL.
+God's favorite animals are bears and elephants.  They are funny shaped -- I think God must have seen too much starvation over the years.  If the purpose of life is to know and love God, then a priest's job is to make everybody know and love God.  By saying God likes bears and elephants, I did more toward that end than all priests in history.  $LK,"Hosea,6:6",A="BF:Hosea,6:6"$  "It is love that I desire, not sacrifice; knowledge of God, not holocaust."  As a former Catholic, that blew my mind.  I actually thought love was sacrifice!  I was so dumb-founded reading, "it is love that I desire, not sacrifice," that I actually looked-up the word, "love".  It means to take delight in.  I realized it is demonic pride if you think love means hurting yourself for others.  In the Philippians, they got the notion crucifying yourself was a good idea.  Similarly, a child thinking about Lent, might conclude, "if it's bad, it must be good."  That is, if you think God wants you to hurt yourself to please Him, you are worshiping a demon, not God!  God wants you to take delight in His company, get to know Him and praise Him.  It is best to separate justice -- sin and punishment -- from relationship with God.  Never ask God to change justice into injustice by not punishing.  God said to me in an oracle, "Excessive contrician wearisome."  He doesn't want to hear confessions.  When you pray, be witty and charming and rarely earnest.  Enjoy God's company without imposing on Him and don't expect secrets of the Universe.  Earnestness in prayer is the root of much evil.  Be entertaining.  Don't remind Him of sin, LOL.

 God's ways are far above man's ways.  Mom said Heaven was a never-ending family reunion.  Yikes!  A friend said, "Most guy's idea of Heaven would be running around doing things they'd get locked up for on Earth."  I wonder how long kids play Grand Theft Auto before getting board.  Perhaps, it takes ten years, but they will get bored.  Most people are like King Midas.  When you realize how silly most notions of Heaven are, you come to appreciate that Earth is not that bad.  This is the first step in loving God, the Creator -- praising Creation.  My parents spend their retired days watching TV and going to casinos.  That's not a good argument for getting extended-play!

@@ -52,166 +52,167 @@ ________________________________________________________________________________
 	QUESTION		|		GOD'S ANSWER
 ________________________________|_______________________________________________

-War? 				$FG,4$"Servicemen competing"$FG$
+War? 				$RED$"Servicemen competing"$FG$
 (Praise the Creator--what would teenage male video games be like if never war?)

-Is the World perfectly just?	$FG,4$Are you calling me lazy?$FG$
+Is the World perfectly just?	$RED$Are you calling me lazy?$FG$
 (Slavery was just.  In the movie, Titanic, the rich wore straight jackets.  You must bow to authority to get authority.  I do $TX,"Moses comics",HTML="http://www.templeos.org/Wb/Apps/AfterEgypt/Comics/"$ as offerings. I said, "We're dying of malnutrician on manna."  Like Cain and Abel, God didn't like it. Duh! He wants to be the hero.  How do I know they died of malnutrician?  Screw Hollywood for making slavery worse than it was -- I love God.  School is more cruel.  Read $LK,"Numbers,11:1-35",A="BF:Numbers,11:1-35"$.  All you need is food, clothing and the word of God.  Today, you can take Ivy League course videos! There is no excuse except you were born stupid... or ugly.  I'm gonna praise God.) 

-On using Markov chains?		$FG,4$"No weights"$FG$
-On doing offerings?		$FG,4$"Honest measures"(You get out what you put in.)
+On using Markov chains?		$RED$"No weights"$FG$
+On doing offerings?		$RED$"Honest measures"(You get out what you put in.)
 				It's a covenant to do an offering, first.
 				Offer New Songs, $TX,"Moses Comics",HTML="http://www.templeos.org/Wb/Apps/AfterEgypt/Comics"$, praise, poems,
 				and conversation.  See $LK,"Cain and Abel",A="BF:Genesis,4:1"$.
 				"Barter"(God also called offerings bartering.)$FG$
-The holocaust?			$FG,4$Wanted to "compact" the Jews.$FG$
-Arab/Jews?			$FG,4$"Oil funny hopefully"$FG$ 
-Peace?				$FG,4$One Palestinian can ruin it.$FG$
-Best religion?			$FG,4$One with most new vistas of understanding in$FG$
-				$FG,4$a lifetime -- one you can level-up the most in.$FG$
-Chavez blaming the US.		$FG,4$"Japan industrious"$FG$
-On racism? 			$FG,4$"Sports"$FG$
-On socialism?			$FG,4$"pardon_the_French, never_happy, never_enough"$FG$
-				$FG,4$"Gall aspect anti-Christ"$FG$
-On overpopulation		$FG,4$"Okay church what_now whats_the_plan"$FG$
-Favorite thing on TV?		$FG,4$"Soap_operas"$FG$
-Favorite movie?			$FG,4$$TX,"Three Kings",HTML="http://www.youtube.com/watch?v=8NOAd2mldQ8"$. Also Highlander$FG$
-Favorite song?			$FG,4$$TX,"Morning has Broken",HTML="http://www.youtube.com/watch?v=kKoRp05L95c"$
+The holocaust?			$RED$Wanted to "compact" the Jews.$FG$
+Arab/Jews?			$RED$"Oil funny hopefully"$FG$ 
+Peace?				$RED$One Palestinian can ruin it.$FG$
+Best religion?			$RED$One with most new vistas of understanding in$FG$
+				$RED$a lifetime -- one you can level-up the most in.$FG$
+Chavez blaming the US.		$RED$"Japan industrious"$FG$
+On racism? 			$RED$"Sports"$FG$
+On socialism?			$RED$"pardon_the_French, never_happy, never_enough"$FG$
+				$RED$"Gall aspect anti-Christ"$FG$
+On overpopulation		$RED$"Okay church what_now whats_the_plan"$FG$
+Favorite thing on TV?		$RED$"Soap_operas"$FG$
+Favorite movie?			$RED$$TX,"Three Kings",HTML="http://www.youtube.com/watch?v=8NOAd2mldQ8"$. Also Highlander$FG$
+Favorite song?			$RED$$TX,"Morning has Broken",HTML="http://www.youtube.com/watch?v=kKoRp05L95c"$
 				God said the first bird croaked, not sung.$FG$
-Favorite comic strip?		$FG,4$$TX,"Prince Valiant",HTML="http://en.wikipedia.org/wiki/Prince_Valiant"$$FG$
-Shakespeare?			$FG,4$had a "vile heart"$FG$
-Likes				$FG,4$Beverly Hillbillies (Oil is a gift from God)$FG$
-				$FG,4$God likes being hero. Don't be proud of heart$FG$
-				$FG,4$and not accept a gift from God!$FG$
-Likes				$FG,4$Gomer Pyle$FG$
-Favorite saint?			$FG,4$"ho_ho_ho"$FG$
-Favorite animal?		$FG,4$"Elephant two"$FG$
-Favorite animal?		$FG,4$"Bears"$FG$
-Favorite color?			$FG,4$"Jude" (Jade Blue?)$FG$
-Favorite color?			$FG,4$"Gold"$FG$
-Favorite color?			$FG,4$$TX,"\"Iceberg\" blue",HTML="https://upload.wikimedia.org/wikipedia/commons/3/38/Blue_ice_in_South_Greenland_-_Visit_Greenland.jpg"$$FG$
-Money?				$FG,4$"Enough vehemently better"$FG$
-				$FG,4$"Pride [or] money, choose_one"$FG$
-Favorite car?			$FG,4$Beamer$FG$
-Favorite soda?			$FG,4$Root beer, $TX,"scotch variety",HTML="http://www.head-beer.org/modules.php?name=Brands&rbop=Brand&bid=1965"$.$FG$
+Favorite comic strip?		$RED$$TX,"Prince Valiant",HTML="http://en.wikipedia.org/wiki/Prince_Valiant"$$FG$
+Shakespeare?			$RED$had a "vile heart"$FG$
+Likes				$RED$Beverly Hillbillies (Oil is a gift from God)$FG$
+				$RED$God likes being hero. Don't be proud of heart$FG$
+				$RED$and not accept a gift from God!$FG$
+Likes				$RED$Gomer Pyle$FG$
+Favorite saint?			$RED$"ho_ho_ho"$FG$
+Favorite animal?		$RED$"Elephant two"$FG$
+Favorite animal?		$RED$"Bears"$FG$
+Favorite color?			$RED$"Jude" (Jade Blue?)$FG$
+Favorite color?			$RED$"Gold"$FG$
+Favorite color?			$RED$$TX,"\"Iceberg\" blue",HTML="https://upload.wikimedia.org/wikipedia/commons/3/38/Blue_ice_in_South_Greenland_-_Visit_Greenland.jpg"$$FG$
+Money?				$RED$"Enough vehemently better"$FG$
+				$RED$"Pride [or] money, choose_one"$FG$
+Favorite car?			$RED$Beamer$FG$
+Favorite soda?			$RED$Root beer, $TX,"scotch variety",HTML="http://www.head-beer.org/modules.php?name=Brands&rbop=Brand&bid=1965"$.$FG$
 Homosexuality?			$LK,"Matthew,15:11",A="BF:Matthew,15:11"$			
-Pets?				$FG,4$"homo" Hates fact too dependent and tame.$FG$
-Sports?				$FG,4$"homo"
+Pets?				$RED$"homo" Hates fact too dependent and tame.$FG$
+Sports?				$RED$"homo"
 				"Tackle a horse"$FG$
-Favorite sport?			$FG,4$Hockey$FG$
-$TX,"Wreck of the Edmund Fitzgerald",HTML="http://www.youtube.com/watch?v=9vST6hVRj2A"$	$FG,4$"homo"$FG$
-Smelling farts			$FG,4$"Sodom"$FG$
-Women's dress			$FG,4$Upper skin exposure not as bad as lower.$FG$
-Remarriage?			$FG,4$"More babies"$FG$
+Favorite sport?			$RED$Hockey$FG$
+$TX,"Wreck of the Edmund Fitzgerald",HTML="http://www.youtube.com/watch?v=9vST6hVRj2A"$	$RED$"homo"$FG$
+Smelling farts			$RED$"Sodom"$FG$
+Women's dress			$RED$Upper skin exposure not as bad as lower.$FG$
+Remarriage?			$RED$"More babies"$FG$
 Things you don't care about
-that people think you do?	$FG,4$Solomon's 300 concubines$FG$
-Adultery?			$FG,4$Can be good.$FG$
-Pretty ladies?			$FG,4$$TX,"A prince is not flustered.",HTML="http://www.youtube.com/watch?v=YcqF6sC-ztY"$$FG$
-Animal sacrifices?		$FG,4$Early Jews were "primitive".$FG$
-What do elephants think about?	$FG,4$"Skin, hunger"$FG$
-What makes elephants happy?	$FG,4$"Baths"$FG$
-Elephants			$FG,4$"Mini-skirts" (Skin webbing from back leg.)$FG$
-What makes my birds happy?	$FG,4$"Gnawing"$FG$
-What makes my birds laugh?	$FG,4$"Bite ouch" (If I say "ouch".)$FG$
-What are my birds saying?	$FG,4$"Chanting"$FG$
+that people think you do?	$RED$Solomon's 300 concubines$FG$
+Adultery?			$RED$Can be good.$FG$
+Pretty ladies?			$RED$$TX,"A prince is not flustered.",HTML="http://www.youtube.com/watch?v=YcqF6sC-ztY"$$FG$
+Animal sacrifices?		$RED$Early Jews were "primitive".$FG$
+What do elephants think about?	$RED$"Skin, hunger"$FG$
+What makes elephants happy?	$RED$"Baths"$FG$
+Elephants			$RED$"Mini-skirts" (Skin webbing from back leg.)$FG$
+What makes my birds happy?	$RED$"Gnawing"$FG$
+What makes my birds laugh?	$RED$"Bite ouch" (If I say "ouch".)$FG$
+What are my birds saying?	$RED$"Chanting"$FG$
 My birds sure preen a lot.	$LK,"The creature was made subject to vanity...",A="BF:Romans,8:20"$
-What makes bears happy?		$FG,4$"Reaping depends"$FG$
-What makes otters happy?	$FG,4$"Eternal skies"$FG$
-What makes hippos happy?	$FG,4$"Ascending breath"$FG$
-What makes horses happy?	$FG,4$"[the] Call [of the] Open Range"$FG$
-What do cheetahs think about?	$FG,4$"Seeth me?" (Can he see me?)$FG$
-Orangutan or chimp smarter?	$FG,4$"Species exhibit similar glory"$FG$ 
-Endangered species?		$FG,4$"Enough stars?"$FG$
-Everything seems bad.		$FG,4$Plant trees.$FG$
-What's for dinner?		$FG,4$"Whale"$FG$
-Favorite Messier Object?	$FG,4$"$TX,"M104 Sombrero Galaxy",HTML="http://en.wikipedia.org/wiki/Messier_104"$"$FG$
-$TX,"Shepard's Prayer",HTML="http://en.wikipedia.org/wiki/Alan_Shepard"$?		$FG,4$"I_am_not_amused economy joke"$FG$
-Favorite band?			$FG,4$"Beatles"$FG$
-Good bands?			$FG,4$Rush, Triumph$FG$
-				$FG,4$Likes harmonies$FG$
-$TX,"Little Drummer Boy?",HTML="http://www.youtube.com/watch?v=S50cf3xIb50"$		$FG,4$Doesn't like my drumming.$FG$
-Should I listen to classical?	$FG,4$"Poison"$FG$
-Do You like chess people?	$FG,4$"Do not admire the proud."$FG$
-Chess?				$FG,4$"... will winter with you."$FG$
-				$FG,4$"Headstones"$FG$
-If You could teach one class?	$FG,4$Health$FG$
-Favorite video game?		$FG,4$Donkey Kong$FG$
-Favorite National Park?		$FG,4$$TX,"Whitman Mission",HTML="http://www.nps.gov/whmi/index.htm"$$FG$
-Favorite actor?			$FG,4$Hugh Grant$FG$
-Favorite vocalist?		$FG,4$Mick Jagger$FG$
-Favorite guitarist?		$FG,4$"$TX,"Simmons Destroyer",HTML="http://www.youtube.com/watch?v=nNADrrjTysk&t=3m55s"$"$FG$
-Favorite National Anthem?	$FG,4$$TX,"Latvia's National Anthem",HTML="http://www.youtube.com/watch?v=qKITbBjO4nE"$$FG$
-America the Beautiful?		$FG,4$Hates it.  Poet made self cry with own beauty.$FG$
-Model for new $TX,"Sistine Chapel",HTML="http://en.wikipedia.org/wiki/Sistine_chapel"$?	$FG,4$Ben Franklin$FG$
-Voice if God wanted to sing?	$FG,4$$TX,"Stabbing Westward's singer",HTML="https://www.youtube.com/watch?v=5NZsCYOM4j0"$$FG$
-Stonehenge?			$FG,4$Landmark for boundaries.$FG$
-Easter Island?			$FG,4$Ice, telephone pole holes.$FG$
-Dinosaurs?			$FG,4$Brontosaurs' feet hurt when stepped.
+What makes bears happy?		$RED$"Reaping depends"$FG$
+What makes otters happy?	$RED$"Eternal skies"$FG$
+What makes hippos happy?	$RED$"Ascending breath"$FG$
+What makes horses happy?	$RED$"[the] Call [of the] Open Range"$FG$
+What do cheetahs think about?	$RED$"Seeth me?" (Can he see me?)$FG$
+Orangutan or chimp smarter?	$RED$"Species exhibit similar glory"$FG$ 
+Endangered species?		$RED$"Enough stars?"$FG$
+Everything seems bad.		$RED$Plant trees.$FG$
+What's for dinner?		$RED$"Whale"$FG$
+Favorite Messier Object?	$RED$"$TX,"M104 Sombrero Galaxy",HTML="http://en.wikipedia.org/wiki/Messier_104"$"$FG$
+$TX,"Shepard's Prayer",HTML="http://en.wikipedia.org/wiki/Alan_Shepard"$?		$RED$"I_am_not_amused economy joke"$FG$
+Favorite band?			$RED$"Beatles"$FG$
+Good bands?			$RED$Rush, Triumph$FG$
+				$RED$Likes harmonies$FG$
+$TX,"Little Drummer Boy?",HTML="http://www.youtube.com/watch?v=S50cf3xIb50"$		$RED$Doesn't like my drumming.$FG$
+Should I listen to classical?	$RED$"Poison"$FG$
+Do You like chess people?	$RED$"Do not admire the proud."$FG$
+Chess?				$RED$"... will winter with you."$FG$
+				$RED$"Headstones"$FG$
+If You could teach one class?	$RED$Health$FG$
+Favorite video game?		$RED$Donkey Kong$FG$
+Favorite National Park?		$RED$$TX,"Whitman Mission",HTML="http://www.nps.gov/whmi/index.htm"$$FG$
+Favorite actor?			$RED$Hugh Grant$FG$
+Favorite vocalist?		$RED$Mick Jagger$FG$
+Favorite guitarist?		$RED$"$TX,"Simmons Destroyer",HTML="http://www.youtube.com/watch?v=nNADrrjTysk&t=3m55s"$"$FG$
+Favorite National Anthem?	$RED$$TX,"Latvia's National Anthem",HTML="http://www.youtube.com/watch?v=PFx-56KkweM"$$FG$
+America the Beautiful?		$RED$Hates it.  Poet made self cry with own beauty.$FG$
+Model for new $TX,"Sistine Chapel",HTML="http://en.wikipedia.org/wiki/Sistine_chapel"$?	$RED$Ben Franklin$FG$
+Voice if God wanted to sing?	$RED$$TX,"Stabbing Westward's singer",HTML="https://www.youtube.com/watch?v=5NZsCYOM4j0"$$FG$
+Stonehenge?			$RED$Landmark for boundaries.$FG$
+Easter Island?			$RED$Ice, telephone pole holes.$FG$
+Dinosaurs?			$RED$Brontosaurs' feet hurt when stepped.
 				Dinosaurs slept in water.$FG$
-Hardest part in evolution?	$FG,4$Getting monkey mothers to hold babies nursing.$FG$
-				$FG,4$(Smothering a problem).$FG$
-Happiest day in evolution?		$FG,4$"Fruit"$FG$
-Significant thing in evolution?		$FG,4$"Fish shoulders"$FG$
-Biggest thing to fly (pterodactyl)?	$FG,4$"Couch"$FG$
-What made pterodactyls happy?		$FG,4$"Members against organs"$FG$
-What did Neanderthals think about?	$FG,4$"Warmth"$FG$
-What was the first thing cooked?	$FG,4$I think He said "hair".$FG$
-What was Lucy's husband's name?		$FG,4$"Golem"$FG$
-Was stegosuarus lame like turtles?	$FG,4$"Not pet rocks"$FG$
-T-Rex?					$FG,4$Lugged carcases over his shoulder.
+Hardest part in evolution?	$RED$Getting monkey mothers to hold babies nursing.$FG$
+				$RED$(Smothering a problem).$FG$
+Happiest day in evolution?		$RED$"Fruit"$FG$
+Significant thing in evolution?		$RED$"Fish shoulders"$FG$
+Biggest thing to fly (pterodactyl)?	$RED$"Couch"$FG$
+What made pterodactyls happy?		$RED$"Members against organs"$FG$
+What did Neanderthals think about?	$RED$"Warmth"$FG$
+What was the first thing cooked?	$RED$I think He said "hair".$FG$
+What was Lucy's husband's name?		$RED$"Golem"$FG$
+Was stegosuarus lame like turtles?	$RED$"Not pet rocks"$FG$
+T-Rex?					$RED$Lugged carcases over his shoulder.
 					Carcus lasted a month.$FG$
-What was T-Rexes sharing a carcus like?	$FG,4$"Punch... Punch"$FG$
-Surprises in dinosaur anatomy?		$FG,4$Supporting and securing the heart.$FG$
-How does He feel about the Avatar movie?$FG,4$"Sick skin"$FG$
-What do You like at zoos with kids?	$FG,4$"Dignity" Animals worried about dignity.$FG$
-Who's better alien or preditor?		$FG,4$"Lions"$FG$
-What from You is like a Rubik's cube?	$FG,4$Training a horse.$FG$
-Does He like mirrored glass megachurch?	$FG,4$"Secular glass"$FG$
-Pipe Organs				$FG,4$Are sacred.$FG$
-You like to hangout in courts?Hospitals?$FG,4$"Prisons"$FG$
-Best way for Bill Gates to save lives?	$FG,4$Earthquake prediction$FG$
-Stem cells?			$FG,4$Lower hanging fruit exists (2007)$FG$
-Eleventh commandment?		$FG,4$Thou shall not litter.$FG$
-Twelfth commandment?		$FG,4$$TX,"Don't shoot unarmed men on the shitter.",HTML="http://www.youtube.com/watch?v=8wGiJcq95Ug"$
+What was T-Rexes sharing a carcus like?	$RED$"Punch... Punch"$FG$
+Surprises in dinosaur anatomy?		$RED$Supporting and securing the heart.$FG$
+How does He feel about the Avatar movie?$RED$"Sick skin"$FG$
+What do You like at zoos with kids?	$RED$"Dignity" Animals worried about dignity.$FG$
+Who's better alien or preditor?		$RED$"Lions"$FG$
+What from You is like a Rubik's cube?	$RED$Training a horse.$FG$
+Does He like mirrored glass megachurch?	$RED$"Secular glass"$FG$
+Pipe Organs				$RED$Are sacred.$FG$
+You like to hangout in courts?Hospitals?$RED$"Prisons"$FG$
+Best way for Bill Gates to save lives?	$RED$Earthquake prediction$FG$
+Stem cells?			$RED$Lower hanging fruit exists (2007)$FG$
+Eleventh commandment?		$RED$Thou shall not litter.$FG$
+Twelfth commandment?		$RED$$TX,"Don't shoot unarmed men on the shitter.",HTML="http://www.youtube.com/watch?v=8wGiJcq95Ug"$
 				(I asked God why pointless plagues in Exodus?
 				God wanted guilt to accumulate, first.)$FG$
-Thirteenth commandment		$FG,4$No gore unless it looks fake.$FG$
-Fourteenth commandment		$FG,4$No pedophilia or child porn.$FG$
-Fifteenth commandment		$FG,4$Don't eat rare meat with blood.$FG$
-Sixteenth commandment		$FG,4$No wife beating.$FG$
-Seventeen commandment		$FG,4$Do not swing from radio towers with one hand.$FG$
-Before Katrina			$FG,4$Floods do justice. Black bead elder (tree book)$FG$
-After Katrina			$FG,4$Suffering Simplifies Life$FG$
-What field are You most better?	$FG,4$Economics$FG$
-Favorite toy for kids?		$FG,4$Magnifying glass$FG$
-Asked Jesus if He liked mustard?$FG,4$"Bad meat happeneth"$FG$
-(Reluctantly) Faith healing?	$FG,4$"It's complicated"$FG$
-Mars?				$FG,4$Start planting!$FG$
-Mars rover?			$FG,4$Should have had a microphone$FG$
-$TX,"Storm on Saturn",HTML="http://www.space.com/22646-monster-saturn-storm-water-ice.html"$			$FG,4$Pollen$FG$
-Space war game?			$FG,4$Should have space weather.$FG$
-$TX,"Saturn's hexagon pole cloud?",HTML="http://en.wikipedia.org/wiki/Saturn's_hexagon"$	$FG,4$"Compass" (Magnetism)$FG$
-Liquid moon's odd atmosphere?	$FG,4$"Surf"$FG$
-How many E.T. civs in Universe?	$FG,4$20 or 80 (I forgot.  I died laughing.)$FG$
-Are they peaceful?		$FG,4$Fight them! (Also, funny.)$FG$
-Most difficult control system?	$FG,4$$TX,"Dung beetle",HTML="http://www.youtube.com/watch?v=Q1zbgd6xpGQ"$$FG$
-How can Judge Judy improve?	$FG,4$No hard feelings$FG$
-How can Chef Ramsay improve?	$FG,4$Make so it doesn't seem like toil for cooks.$FG$
-How can Hawking communicate?	$FG,4$Blow from a nostril on a candle.$FG$
-$TX,"Photons bouncing?",HTML="https://www.youtube.com/watch?v=8FC6udrMPvo"$		$FG,4$"Folded coffee filter"$FG$ 
-Wormholes?			$FG,4$Bent wormholes have echoes.$FG$
+Thirteenth commandment		$RED$No gore unless it looks fake.$FG$
+Fourteenth commandment		$RED$No pedophilia or child porn.$FG$
+Fifteenth commandment		$RED$Don't eat rare meat with blood.$FG$
+Sixteenth commandment		$RED$No wife beating.$FG$
+Seventeen commandment		$RED$Do not swing from radio towers with one hand.$FG$
+Eighteenth commandment		$RED$Do not disturb.$FG$
+Before Katrina			$RED$Floods do justice. Black bead elder (tree book)$FG$
+After Katrina			$RED$Suffering Simplifies Life$FG$
+What field are You most better?	$RED$Economics$FG$
+Favorite toy for kids?		$RED$Magnifying glass$FG$
+Asked Jesus if He liked mustard?$RED$"Bad meat happeneth"$FG$
+(Reluctantly) Faith healing?	$RED$"It's complicated"$FG$
+Mars?				$RED$Start planting!$FG$
+Mars rover?			$RED$Should have had a microphone$FG$
+$TX,"Storm on Saturn",HTML="http://www.space.com/22646-monster-saturn-storm-water-ice.html"$			$RED$Pollen$FG$
+Space war game?			$RED$Should have space weather.$FG$
+$TX,"Saturn's hexagon pole cloud?",HTML="http://en.wikipedia.org/wiki/Saturn's_hexagon"$	$RED$"Compass" (Magnetism)$FG$
+Liquid moon's odd atmosphere?	$RED$"Surf"$FG$
+How many E.T. civs in Universe?	$RED$20 or 80 (I forgot.  I died laughing.)$FG$
+Are they peaceful?		$RED$Fight them! (Also, funny.)$FG$
+Most difficult control system?	$RED$$TX,"Dung beetle",HTML="http://www.youtube.com/watch?v=Q1zbgd6xpGQ"$$FG$
+How can Judge Judy improve?	$RED$No hard feelings$FG$
+How can Chef Ramsay improve?	$RED$Make so it doesn't seem like toil for cooks.$FG$
+How can Hawking communicate?	$RED$Blow from a nostril on a candle.$FG$
+$TX,"Photons bouncing?",HTML="https://www.youtube.com/watch?v=8FC6udrMPvo"$		$RED$"Folded coffee filter"$FG$ 
+Wormholes?			$RED$Bent wormholes have echoes.$FG$

-Operating system?		$FG,4$Was about to make line number column in editor.
+Operating system?		$RED$Was about to make line number column in editor.
 God nixed it.  I was about to do different graphic modes when I found 800x600 missing. God said just one mode 640x480.  I was about to add child windows.  God said, "God is not the author of such confusion." I asked for verification of 640x480 16 color. God said it was because of the children and their offerings.  I asked about sound. God said "single voice". I asked for verification of not having different drivers.  God confirmed this.$FG$
-640x480 16 color?		$FG,4$God said it was a covenant, like circumcision.
+640x480 16 color?		$RED$God said it was a covenant, like circumcision.
 				$TX,"Modern graphics hard for kids/amateurs",HTML="http://www.youtube.com/watch?v=VUxcVzpeFqc"$.$FG$
-On Unix?			$FG,4$God said it was rich with the patina of age.$FG$
-On Alcohol?			$FG,4$Hate inebriation$FG$
-On rare steak?			$FG,4$Too rare is very bad.  Don't eat blood!$FG$
-Just before Katrina?		$FG,4$Floods do my justice.Black bead elder(tree book)$FG$
-After Katrina?			$FG,4$Suffering simplifies life$FG$
-Why the Sandy Hook shooting?	$FG,4$The pot legalization law. (Sarcastic answer?)$FG$
-Deep Water Horizon		$FG,4$(Claimed credit.)$FG$
-Cost of God's time to me?	$FG,4$"The complete works of Shakespeare"$FG$
-On death?			$FG,4$"awful"$FG$
-Opening of Saving Private Ryan?	$FG,4$"Ouch"$FG$
+On Unix?			$RED$God said it was rich with the patina of age.$FG$
+On Alcohol?			$RED$Hate inebriation$FG$
+On rare steak?			$RED$Too rare is very bad.  Don't eat blood!$FG$
+Just before Katrina?		$RED$Floods do my justice.Black bead elder(tree book)$FG$
+After Katrina?			$RED$Suffering simplifies life$FG$
+Why the Sandy Hook shooting?	$RED$The pot legalization law. (Sarcastic answer?)$FG$
+Deep Water Horizon		$RED$(Claimed credit.)$FG$
+Cost of God's time to me?	$RED$"The complete works of Shakespeare"$FG$
+On death?			$RED$"awful"$FG$
+Opening of Saving Private Ryan?	$RED$"Ouch"$FG$
@@ -34,7 +34,7 @@ I64 GodPick(U8 *msg=NULL)
 {//GOD_GOOD_BITS
  U8 *st=MStrPrint("%s\n\nPress $$GREEN$$OKAY$$FG$$ to generate \n"
 	"a random num from a timer.\n",msg);
-  PopUpTimerOk(st,"\n\nThe $LK+PU,"Holy Spirit",A="FI:::/Adam/God/HSNotes.TXT"$ can puppet you.\n\n");
+  PopUpTimerOk(st,"\n\nThe $LK+PU,"Holy Spirit",A="FI:::/Adam/God/HSNotes.DD"$ can puppet you.\n\n");
  Free(st);
  return KbdMouseEvtTime>>GOD_BAD_BITS;
 }
@@ -55,7 +55,7 @@ public U0 GodHexIns(U8 *st)
    buf[1]=0;
    while (*buf=*st++)
      if (Bt(chars_bmp_hex_numeric,*buf))
-	GodBitsIns(4,Str2I64(buf,16));
+	GodBitsIns(4,rev_bits_table[Str2I64(buf,16)]>>4);
  }
 }

@@ -73,7 +73,7 @@ public I64 GodBits(I64 num_bits,U8 *msg=NULL)
  return res;
 }

-public I64 GodInit(U8 *files_find_mask="/Adam/God/Vocab.TXT*",U8 *fu_flags=NULL)
+public I64 GodInit(U8 *files_find_mask="/Adam/God/Vocab.DD*",U8 *fu_flags=NULL)
 {//Read God's vocab file for picking words.
  I64 i,ch,fuf_flags=0;
  U8 *buf,*ptr,*ptr2;
@@ -82,6 +82,11 @@ public I64 GodInit(U8 *files_find_mask="/Adam/God/Vocab.TXT*",U8 *fu_flags=NULL)
  ScanFlags(&fuf_flags,Define("ST_FILE_UTIL_FLAGS"),fu_flags);
  if (fuf_flags&~FUG_FILES_FIND)
    throw('FUF');
+
+  Free(god.word_file_mask);
+  god.word_file_mask=StrNew(files_find_mask);
+  god.word_fuf_flags=fuf_flags;
+
  tempde=tempde1=FilesFind(files_find_mask,fuf_flags);
  i=0;
  while (tempde) {
@@ -130,14 +135,21 @@ public I64 GodInit(U8 *files_find_mask="/Adam/God/Vocab.TXT*",U8 *fu_flags=NULL)
  return god.num_words;
 } GodInit;

-public U0 GodWord()
-{//Make God pick a word. $LK+PU,"Holy Spirit Instructions",A="FI:::/Adam/God/HSNotes.TXT"$
-  if (god.num_words)
-    "%s ",god.words[GodBits(17)%god.num_words];
+public U0 GodWord(Bool show_num=FALSE)
+{//Make God pick a word. $LK+PU,"Holy Spirit Instructions",A="FI:::/Adam/God/HSNotes.DD"$
+  I64 i;
+  if (god.num_words) {
+    i=GodBits(17);
+    if (show_num)
+      "%05X Mod %05X = %05X :",i,god.num_words,i%god.num_words;
+    "%s ",god.words[i%god.num_words];
+    if (show_num)
+      '\n';
+  }
 }

-public U0 GodPassage(I64 num_lines=20)
-{//Make God pick a Bible passage. $LK+PU,"Holy Spirit Instructions",A="FI:::/Adam/God/HSNotes.TXT"$
+public U0 GodBiblePassage(I64 num_lines=20)
+{//Make God pick a Bible passage. $LK+PU,"Holy Spirit Instructions",A="FI:::/Adam/God/HSNotes.DD"$
  I64 start=GodBits(21)%(ST_BIBLE_LINES-(num_lines-1))+1;
  U8 *verse=BibleLine2Verse(start);
  "%s\n\n",verse;
@@ -148,8 +148,8 @@ public class CSpritePtMeshU8s : CSpriteBase

 #help_index "Graphics/Sprite;Sprites;Sprites/Binary"

-//See $LK,"Sprites",A="HI:Sprites"$.  See $LK,"::/Adam/Gr/GrSpritePlot.CPP",A="FL:::/Adam/Gr/GrSpritePlot.CPP,1"$ and
-//$LK,"::/Demo/Graphics/SpriteRaw.CPP"$ for how CSprite are stored.
+//See $LK,"Sprites",A="HI:Sprites"$.  See $LK,"::/Adam/Gr/GrSpritePlot.HC",A="FL:::/Adam/Gr/GrSpritePlot.HC,1"$ and
+//$LK,"::/Demo/Graphics/SpriteRaw.HC"$ for how CSprite are stored.
 public class CSprite
 {
  CSprite *next,*last;
@@ -1,5 +1,6 @@
 #help_index "Graphics"

+Option(OPTf_WARN_HEADER_MISMATCH,OFF);
 public Bool GrPlot0(CDC *dc=gr.dc,I64 x,I64 y)
 {//2D. No clipping or transformation or pen width.
  U8 *dst;
@@ -60,6 +61,7 @@ public Bool GrPlot0(CDC *dc=gr.dc,I64 x,I64 y)
  }
  return TRUE;
 }
+Option(OPTf_WARN_HEADER_MISMATCH,ON);

 public I64 GrPeek0(CDC *dc=gr.dc,I64 x,I64 y)
 {//2D. No clipping or transformation.
@@ -1641,7 +1643,7 @@ gr_done:
 public I64 GrHLine(CDC *dc=gr.dc,I64 x1,I64 x2,I64 y,I64 z1=0,I64 z2=0)
 {//3D. No transformation or pen width.
 //Returns cnt of pixs changed
-  //Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.CPP"$.
+  //Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.HC"$.
  I64 dist,dx,dz,z,res=0,i,j,d;
  U8 *dst;
  CColorROPU32 c,c2,color=dc->color,bkcolor=dc->bkcolor,dither_colors;
@@ -1812,7 +1814,7 @@ gr_done:
 public I64 GrVLine(CDC *dc=gr.dc,I64 x,I64 y1,I64 y2,I64 z1=0,I64 z2=0)
 {//3D. No transformation or pen width.
 //Returns cnt of pixs changed
-  //Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.CPP"$.
+  //Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.HC"$.
  I64 dist,dy,dz,z,res=0,i,j,d;
  U8 *dst;
  CColorROPU32 c,c2,color=dc->color,bkcolor=dc->bkcolor,dither_colors;
@@ -296,7 +296,7 @@ mesh_done:

 #help_index "Graphics/Misc;Input Pointer/Displayed Image"
 public U0 DrawStdInputPtr(CDC *dc,I64 x,I64 y)
-{//This is a callback. See $LK,"::/Demo/Graphics/Grid.CPP"$.
+{//This is a callback. See $LK,"::/Demo/Graphics/Grid.HC"$.
 //Called by $LK,"DrawInputPtr",A="MN:DrawInputPtr"$() which is
  //called by $LK,"WinFinalUpdate",A="MN:WinFinalUpdate"$().
  dc->pen_width=1;
@@ -307,7 +307,7 @@ public U0 DrawStdInputPtr(CDC *dc,I64 x,I64 y)
 gr.fp_draw_input_ptr=&DrawStdInputPtr;

 public U0 DrawWaitInputPtr(CDC *dc,I64 x,I64 y)
-{//This is a callback. See $LK,"::/Demo/Graphics/Grid.CPP"$.
+{//This is a callback. See $LK,"::/Demo/Graphics/Grid.HC"$.
  I64 old_pen_width=dc->pen_width;
  CColorROPU32 old_color=dc->color;
  dc->pen_width=3;
@@ -4,7 +4,7 @@
 #define	GR_SCALE	(1<<32)

 public U0 Mat4x4MulXYZ(I64 *r,I64 *_x,I64 *_y,I64 *_z)
-{//Rotate 3D point using 4x4 matrix. Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.CPP"$.
+{//Rotate 3D point using 4x4 matrix. Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.HC"$.
  I64 x1,y1,z1,xx=*_x,yy=*_y,zz=*_z;
  x1=(r[0*4+0]*xx+r[0*4+1]*yy+r[0*4+2]*zz+r[0*4+3])>>32;
  y1=(r[1*4+0]*xx+r[1*4+1]*yy+r[1*4+2]*zz+r[1*4+3])>>32;
@@ -14,7 +14,7 @@ public U0 Mat4x4MulXYZ(I64 *r,I64 *_x,I64 *_y,I64 *_z)

 public U0 DCTransform(CDC *dc,I64 *_x,I64 *_y,I64 *_z)
 {//This is the dft dc->transform() callback.
-//Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.CPP"$.
+//Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.HC"$.
  Mat4x4MulXYZ(dc->r,_x,_y,_z);
  *_x+=dc->x;
  *_y+=dc->y;
@@ -22,7 +22,7 @@ public U0 DCTransform(CDC *dc,I64 *_x,I64 *_y,I64 *_z)
 }

 public I64 *Mat4x4IdentEqu(I64 *r)
-{//Set matrix to identity. Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.CPP"$.
+{//Set matrix to identity. Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.HC"$.
  MemSet(r,0,sizeof(I64)*16);
  r[0*4+0].i32[1]=1;
  r[1*4+1].i32[1]=1;
@@ -32,7 +32,7 @@ public I64 *Mat4x4IdentEqu(I64 *r)
 }

 public I64 *Mat4x4IdentNew(CTask *mem_task=NULL)
-{//MAlloc an identity matrix. Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.CPP"$.
+{//MAlloc an identity matrix. Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.HC"$.
  return Mat4x4IdentEqu(MAlloc(sizeof(I64)*16,mem_task));
 }

@@ -45,7 +45,7 @@ public I64 Mat4x4NormSqr65536(I64 *r)
 }

 public U0 DCMat4x4Set(CDC *dc=NULL,I64 *r)
-{//Set device context's rot matrix. Will be $LK,"Free",A="MN:Free"$d() in $LK,"DCDel",A="MN:DCDel"$().Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.CPP"$.
+{//Set device context's rot matrix. Will be $LK,"Free",A="MN:Free"$d() in $LK,"DCDel",A="MN:DCDel"$().Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.HC"$.
 //The main purpose is to set matrix norm for pen width scaling.
  //NULL as dc means gr.dc
  if (!dc)   dc=gr.dc;
@@ -155,7 +155,7 @@ public U0 DCRst(CDC *dc)
 public U0 DCExtentsInit(CDC *dc=NULL)
 {//Init markers for extent of next newly drawn graphics.
 //NULL means gr.dc
-  //See $LK,"::/Demo/Graphics/Extents.CPP"$
+  //See $LK,"::/Demo/Graphics/Extents.HC"$
  //You should clear the record flag yourself
  if (!dc)   dc=gr.dc;
  dc->flags|=DCF_RECORD_EXTENTS;
@@ -23,7 +23,7 @@ public class CGrGlbls
  U0	(*fp_wall_paper)(CTask *task);
  U0	(*fp_draw_input_ptr)(CDC *dc,I64 x,I64 y);
  U0	(*fp_draw_grab_input_ptr)(CDC *dc,I64 x,I64 y,Bool closed);
-  U8	*empty_sprite; //Gets assigned $LK,"gr.empty_sprite",A="FF:::/Adam/AInputPointer.CPP,empty_sprite"$
+  U8	*empty_sprite; //Gets assigned $LK,"gr.empty_sprite",A="FF:::/Adam/AInputPointer.HC,empty_sprite"$

  #define GR_NUM_PEN_BRUSHES 64
  CDC	*pen_brushes[GR_NUM_PEN_BRUSHES],
@@ -42,7 +42,7 @@ public class CGrGlbls
 	hide_row,hide_col;
 } gr;

-//See $LK,"RLf_VGA",A="FF:::/Kernel/KStart16.CPP,RLf_VGA"$
+//See $LK,"RLf_VGA",A="FF:::/Kernel/KStart16.HC,RLf_VGA"$
 //See $LK,"SysGrInit",A="MN:SysGrInit"$()
 //Allows consts to be used instead of vars.
 HashPublic("GR_WIDTH",HTT_DEFINE_STR);;
@@ -8,7 +8,7 @@ public I64 gr_x_offsets[8]={-1, 0, 1,-1,1,-1,0,1},
 public Bool Line(U8 *aux_data,I64 x1,I64 y1,I64 z1,I64 x2,I64 y2,I64 z2,
 	Bool (*fp_plot)(U8 *aux,I64 x,I64 y,I64 z),I64 step=1,I64 start=0)
 {//Step through line segment calling callback.
-//Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.CPP"$.
+//Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.HC"$.
  I64 i,j,d,dx=x2-x1,dy=y2-y1,dz=z2-z1,_x,_y,_z,
 	adx=AbsI64(dx),ady=AbsI64(dy),adz=AbsI64(dz);
  Bool first=TRUE;
@@ -78,7 +78,7 @@ public Bool Line(U8 *aux_data,I64 x1,I64 y1,I64 z1,I64 x2,I64 y2,I64 z2,

 #help_index "Graphics/Math/3D Transformation"
 public I64 *Mat4x4MulMat4x4Equ(I64 *dst,I64 *m1,I64 *m2)
-{//Multiply 4x4 matrices and store in dst. Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.CPP"$.
+{//Multiply 4x4 matrices and store in dst. Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.HC"$.
 //Conceptually, the transform m1 is applied after m2
  I64 i,j,k;
  F64 sum;
@@ -94,7 +94,7 @@ public I64 *Mat4x4MulMat4x4Equ(I64 *dst,I64 *m1,I64 *m2)
 }

 public I64 *Mat4x4MulMat4x4New(I64 *m1,I64 *m2,CTask *mem_task=NULL)
-{//Multiply 4x4 matrices. Return MAlloced matrix. Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.CPP"$.
+{//Multiply 4x4 matrices. Return MAlloced matrix. Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.HC"$.
 //Conceptually, the transform m1 is applied after m2
  return Mat4x4MulMat4x4Equ(MAlloc(sizeof(I64)*16,mem_task),m1,m2);
 }
@@ -111,7 +111,7 @@ public I64 *Mat4x4New(I64 *src,CTask *mem_task=NULL)
 }

 public I64 *Mat4x4RotX(I64 *m1,F64 è)
-{//Rot matrix about X axis. Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.CPP"$.
+{//Rot matrix about X axis. Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.HC"$.
  F64 my_cos=Cos(è)*GR_SCALE,my_sin=Sin(è)*GR_SCALE;
  I64 r[16],r2[16];
  MemSet(r,0,sizeof(r));
@@ -125,7 +125,7 @@ public I64 *Mat4x4RotX(I64 *m1,F64
 }

 public I64 *Mat4x4RotY(I64 *m1,F64 ê)
-{//Rot matrix about Y axis. Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.CPP"$.
+{//Rot matrix about Y axis. Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.HC"$.
  F64 my_cos=Cos(ê)*GR_SCALE,my_sin=Sin(ê)*GR_SCALE;
  I64 r[16],r2[16];
  MemSet(r,0,sizeof(r));
@@ -139,7 +139,7 @@ public I64 *Mat4x4RotY(I64 *m1,F64
 }

 public I64 *Mat4x4RotZ(I64 *m1,F64 é)
-{//Rot matrix about Z axis. Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.CPP"$.
+{//Rot matrix about Z axis. Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.HC"$.
  F64 my_cos=Cos(é)*GR_SCALE,my_sin=Sin(é)*GR_SCALE;
  I64 r[16],r2[16];
  MemSet(r,0,sizeof(r));
@@ -174,7 +174,7 @@ public U0 DCPenWidthScale(CDC *dc=gr.dc)
 }

 public I64 *Mat4x4TranslationEqu(I64 *r,I64 x,I64 y,I64 z)
-{//Set translation values in 4x4 matrix. Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.CPP"$.
+{//Set translation values in 4x4 matrix. Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.HC"$.
  r[0*4+3]=x<<32;
  r[1*4+3]=y<<32;
  r[2*4+3]=z<<32;
@@ -183,7 +183,7 @@ public I64 *Mat4x4TranslationEqu(I64 *r,I64 x,I64 y,I64 z)
 }

 public I64 *Mat4x4TranslationAdd(I64 *r,I64 x,I64 y,I64 z)
-{//Add translation to 4x4 matrix. Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.CPP"$.
+{//Add translation to 4x4 matrix. Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.HC"$.
  r[0*4+3]+=x<<32;
  r[1*4+3]+=y<<32;
  r[2*4+3]+=z<<32;
@@ -250,7 +250,7 @@ public Bool DCSymmetry3Set(CDC *dc=gr.dc,I64 x1,I64 y1,I64 z1,
 }

 public U0 DCReflect(CDC *dc,I64 *_x,I64 *_y,I64 *_z)
-{//Reflect 3D point about device context's symmetry. Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.CPP"$.
+{//Reflect 3D point about device context's symmetry. Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.HC"$.
  I64 x=*_x<<32,y=*_y<<32,z=*_z<<32,
 	xx=*_x-dc->sym.sx,yy=*_y-dc->sym.sy,zz=*_z-dc->sym.sz,
 	d=(xx*dc->sym.snx+yy*dc->sym.sny+zz*dc->sym.snz)>>16,
@@ -650,7 +650,7 @@ public Bool Gr3BSpline(CDC *dc=gr.dc,CD3I32 *ctrl,I64 cnt,Bool closed=FALSE)
 I64 GrLineFat3(CDC *dc=gr.dc,I64 x1,I64 y1,I64 z1,I64 x2,I64 y2,I64 z2,
 	I64 width,I64 start=0)
 {//Step through line segment calling callback.
-//Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.CPP"$.
+//Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.HC"$.
  I64 res=0,i,j,d,dx=x2-x1,dy=y2-y1,dz=z2-z1,_x,_y,_z,d_lo,d_hi,
 	adx=AbsI64(dx),ady=AbsI64(dy),adz=AbsI64(dz);
  if (width>0) {
@@ -998,6 +998,7 @@ gr_done:

 #help_index "Graphics;Graphics/Device Contexts"

+Option(OPTf_WARN_HEADER_MISMATCH,OFF);
 public I64 GrBlot3(CDC *dc=gr.dc,I64 x1,I64 y1,I64 z1,CDC *img)
 {//3D. Clipping and transformation.
  CColorROPU32 old_color=dc->color;
@@ -1211,6 +1212,7 @@ gr_done:
  dc->brush=old_brush;
  return res;
 }
+Option(OPTf_WARN_HEADER_MISMATCH,ON);

 #help_index "Graphics"

@@ -396,7 +396,7 @@ U0 GrUpdateVGAGraphics()
 }

 U0 GrUpdateScreen()
-{//Called by the Window Manager $LK,"HERE",A="FF:::/Adam/WinB.CPP,GrUpdateScreen"$, 30 times a second.
+{//Called by the Window Manager $LK,"HERE",A="FF:::/Adam/WinB.HC,GrUpdateScreen"$, 30 times a second.
  CDC *dc;
  if (!Bt(&sys_run_level,RLf_VGA)) //if text mode
    GrUpdateTasks;
@@ -441,7 +441,7 @@ public U8 *SpriteInterpolate(F64 t,U8 *elems0,U8 *elems1)
 #help_index "Graphics/Sprite;DolDoc/Output;StdOut/DolDoc"
 public CDocEntry *DocSprite(CDoc *doc=NULL,U8 *elems,U8 *fmt=NULL)
 {//Put a sprite into a document.  You can, optionally, supply a fmt string
-//for $LK,"DolDoc",A="FI:::/Doc/DolDocOverview.TXT"$ cmd with a %d for the bin_num.
+//for $LK,"DolDoc",A="FI:::/Doc/DolDocOverview.DD"$ cmd with a %d for the bin_num.
  I64 size;
  U8 *st;
  Bool unlock;
@@ -1,7 +1,7 @@
 Cd(__DIR__);;

 #include "GrInitA"
-#include "Gr.HPP"
+#include "Gr.HH"
 #include "GrExt"
 #include "GrGlbls"
 #include "GrTextBase"
@@ -55,7 +55,7 @@ I64 PopUpSpriteBitMap(CColorROPU32 color,I64 width)
    st2="";
  }
  DocPrint(doc,"$$PURPLE$$$$TX+CX,\"Sprite BitMap Menu\"$$\n"
-	"$$LK+PU+CX,\"Click for Help\",A=\"FI:::/Doc/SpriteBitMap.TXT.Z\"$$\n"
+	"$$LK+PU+CX,\"Click for Help\",A=\"FI:::/Doc/SpriteBitMap.DD.Z\"$$\n"
 	"\n$$LTBLUE$$$$MU-UL,\"Color        %s\",LE=GBM_COLOR$$\n"
 	"$$MU-UL,\"Dither Color %s\",LE=GBM_DITHER_COLOR$$\n"
 	"$$MU-UL,\"Width        %d\",LE=GBM_WIDTH$$\n"
@@ -616,7 +616,7 @@ U0 SpriteSideBarPickNew(CDoc *doc,CSprite *head,I64 old_num)
  U8 *st;
  DocPrint(doc,"$$PURPLE$$$$TX+CX,\"Sprite SideBar\"$$\n"
 	"$$LK+PU+CX,\"Click for Help\","
-	"A=\"FI:::/Doc/SpriteSideBar.TXT.Z\"$$\n\n");
+	"A=\"FI:::/Doc/SpriteSideBar.DD.Z\"$$\n\n");
  tempg=head->next;
  while (tempg!=head) {
    st=SpriteElem2Summary(tempg);
@@ -686,7 +686,7 @@ Bool SpriteEdText(CSprite **_head,I64 *_cur_elem_num)
  StrPrint(doc->filename.name,"AI:0x%X",doc);
  DocPrint(doc,"//$$PURPLE$$$$TX+CX,\"Sprite Edit as Text\"$$$$FG$$\n"
 	"//$$LK+PU+CX,\"Click for Help\","
-	"A=\"FI:::/Doc/SpriteEdText.TXT.Z\"$$\n\n");
+	"A=\"FI:::/Doc/SpriteEdText.DD.Z\"$$\n\n");
  Sprite2Code(doc,elems);
  Free(elems);
  while (TRUE) {
@@ -745,7 +745,7 @@ I64 PopUpSpriteEd(CSprite **_head,I64 *_cur_elem_num)
  I64 i;
  CDoc *doc=DocNew;
  DocPrint(doc,"$$PURPLE$$$$TX+CX,\"Sprite Edit Menu\"$$\n"
-	"$$LK+PU+CX,\"Click for Help\",A=\"FI:::/Doc/SpriteEd.TXT.Z\"$$\n\n"
+	"$$LK+PU+CX,\"Click for Help\",A=\"FI:::/Doc/SpriteEd.DD.Z\"$$\n\n"
 	"$$LTBLUE$$$$MU-UL,\"Select/Unselect All\",LE=GED_SEL_UNSEL_ALL$$\n"
 	"$$MU-UL,\"Select Elems\",LE=GED_SEL$$\n"
 	"$$MU-UL,\"Unsel Elems\",LE=GED_UNSEL$$\n\n"
@@ -16,7 +16,7 @@ I64 PopUpSpriteMain(CSprite **_head,I64 *_cur_elem_num,
  U8	*st;

  doc_de=DocPrint(doc,"$$PURPLE$$$$TX+CX,\"Sprite Main Menu\"$$\n"
-	"$$LK+PU+CX,\"Click for Help\",A=\"FI:::/Doc/SpriteMain.TXT.Z\"$$\n"
+	"$$LK+PU+CX,\"Click for Help\",A=\"FI:::/Doc/SpriteMain.DD.Z\"$$\n"
 	"\n$$LTBLUE$$$$DA+M,A=\"Tag Text:%%s\"$$\n\n");
  doc_de->data=StrNew(_doc_e->tag,doc->mem_task);
  DocDataFmt(doc,doc_de);
@@ -103,7 +103,7 @@ Bool PopUpExtents(I64 *_x1,I64 *_x2,I64 *_y1,I64 *_y2)

 U0 SpriteScreenInit(CDC *dc,I64,I64)
 {
-//Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.CPP"$.
+//Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.HC"$.
  I64 xx,yy,old_pen_width=dc->pen_width;
  CColorROPU32 old_color=dc->color;
  WinMgrSync;
@@ -914,7 +914,7 @@ I64 SpriteMainEd(CDoc *doc)
      case SPT_SHIFTABLE_MESH:
 	doc_ce->de_flags|=DOCEF_DONT_DRAW;
 	if (PopUpNoYes("Study the $$LK,\"X-Caliber\","
-		"A=\"FF:::/PersonalMenu.TXT.Z,X-Caliber\"$$ icon.\n\n"
+		"A=\"FF:::/PersonalMenu.DD.Z,X-Caliber\"$$ icon.\n\n"
 		"It has black rectangle background with stars.  The\n"
 		"mesh is in front and rotates.  To keep the background\n"
 		"rectangle from rotating, "
@@ -967,7 +967,7 @@ If head points to a mesh, it will load it.

 Returns a newly malloced mesh or NULL.

-See $LK,"::/Demo/Graphics/SpritePlot3D.CPP"$.
+See $LK,"::/Demo/Graphics/SpritePlot3D.HC"$.
 $WW,0$*/
  CCtrl *c=CtrlFindUnique(Fs,CTRLT_VIEWING_ANGLES);
  CViewAngles *s,*old_s;
@@ -115,7 +115,7 @@ public U8 *DC2Sprite(CDC *tempb)
 }

 public U8 *SpriteElem2Summary(CSprite *tempg)
-{//Study $LK,"::/Demo/Graphics/SpriteText.CPP"$.
+{//Study $LK,"::/Demo/Graphics/SpriteText.HC"$.
  U8 buf[STR_LEN],buf2[STR_LEN];
  I32 *ptr;
  StrPrint(buf,"%Z",tempg->type,"ST_SPRITE_ELEM_TYPES");
@@ -182,7 +182,7 @@ BDVD_MAIN::
 //My assembler doesn't support 16-bit very well.
 	DU8	0xEA;	//JMP BOOT_RAM_BASE:0000
 	DU16	0,BOOT_RAM_BASE/16;
-//Continues here $LK,"::/Kernel/KStart16.CPP",A="FL:::/Kernel/KStart16.CPP,1"$
+//Continues here $LK,"::/Kernel/KStart16.HC",A="FL:::/Kernel/KStart16.HC,1"$
 BDVD_END::
 #assert BDVD_END-BDVD_START<DVD_BOOT_LOADER_SIZE
 }
@@ -1,5 +1,5 @@
-//See $LK,"Install Documentation",A="FI:::/Doc/Install.TXT"$ or $LK,"Upgrading Documentation",A="FI:::/Doc/Upgrade.TXT"$.
-//Study my account examples: $LK,"Cfg Strs",A="FL:::/Demo/AcctExample/TOSCfg.CPP,1"$, $LK,"Update Funs",A="FL:::/Demo/AcctExample/TOSDistro.CPP,1"$
+//See $LK,"Install Documentation",A="FI:::/Doc/Install.DD"$ or $LK,"Upgrading Documentation",A="FI:::/Doc/Upgrade.DD"$.
+//Study my account examples: $LK,"Cfg Strs",A="FL:::/Demo/AcctExample/TOSCfg.HC,1"$, $LK,"Update Funs",A="FL:::/Demo/AcctExample/TOSDistro.HC,1"$

 #include "BootDVD"
 #include "DskISORedSea"
@@ -20,7 +20,7 @@ U0 MakeAll()
 }

 public U0 BootDVDIns(U8 drv_let=0)
-{//See $LK,"::/Misc/DoDistro.CPP"$.
+{//See $LK,"::/Misc/DoDistro.HC"$.
  try {
    if (!Drv(drv_let))
      throw;
@@ -87,7 +87,7 @@ BHD_HISTART:
 //My assembler doesn't support 16-bit very well.
 	DU8	0xEA;	//JMP BOOT_RAM_BASE:0000
 	DU16	0,BOOT_RAM_BASE/16;
-//Continues here $LK,"::/Kernel/KStart16.CPP",A="FL:::/Kernel/KStart16.CPP,1"$
+//Continues here $LK,"::/Kernel/KStart16.HC",A="FL:::/Kernel/KStart16.HC,1"$
 BHD_END::
 #assert BHD_END-BHD_START<MODULE_SIZE-2
 }
@@ -1,5 +1,5 @@
-//See $LK,"Install Documentation",A="FI:::/Doc/Install.TXT"$ or $LK,"Upgrading Documentation",A="FI:::/Doc/Upgrade.TXT"$.
-//Study my account examples: $LK,"Cfg Strs",A="FL:::/Demo/AcctExample/TOSCfg.CPP,1"$, $LK,"Update Funs",A="FL:::/Demo/AcctExample/TOSDistro.CPP,1"$
+//See $LK,"Install Documentation",A="FI:::/Doc/Install.DD"$ or $LK,"Upgrading Documentation",A="FI:::/Doc/Upgrade.DD"$.
+//Study my account examples: $LK,"Cfg Strs",A="FL:::/Demo/AcctExample/TOSCfg.HC,1"$, $LK,"Update Funs",A="FL:::/Demo/AcctExample/TOSDistro.HC,1"$

 #include "BootHD"

@@ -101,7 +101,7 @@ BMHD_HISTART:
 //My assembler doesn't support 16-bit very well.
 	DU8	0xEA;	//JMP BOOT_RAM_BASE:0000
 	DU16	0,BOOT_RAM_BASE/16;
-//Continues here $LK,"BMHD2_START",A="FF:::/Adam/Opt/Boot/BootMHD2.CPP,BMHD2_START"$
+//Continues here $LK,"BMHD2_START",A="FF:::/Adam/Opt/Boot/BootMHD2.HC,BMHD2_START"$
 BMHD_END::
 #assert BMHD_END-BMHD_START<=440
 }
@@ -118,6 +118,6 @@ BMHD2_HISTART:
 BMHD2_OLD_CS_IP:
 	DU16	0,0;
 BMHD2_END::
-//Continues here $LK,"::/Adam/Opt/Boot/BootHD.CPP",A="FF:::/Adam/Opt/Boot/BootHD.CPP,START"$
+//Continues here $LK,"::/Adam/Opt/Boot/BootHD.HC",A="FF:::/Adam/Opt/Boot/BootHD.HC,START"$
 #assert BMHD2_END-BMHD2_START<MODULE_SIZE
 }
@@ -1,5 +1,5 @@
-//See $LK,"Install Documentation",A="FI:::/Doc/Install.TXT"$ or $LK,"Upgrading Documentation",A="FI:::/Doc/Upgrade.TXT"$.
-//Study my account examples: $LK,"Cfg Strs",A="FL:::/Demo/AcctExample/TOSCfg.CPP,1"$, $LK,"Update Funs",A="FL:::/Demo/AcctExample/TOSDistro.CPP,1"$
+//See $LK,"Install Documentation",A="FI:::/Doc/Install.DD"$ or $LK,"Upgrading Documentation",A="FI:::/Doc/Upgrade.DD"$.
+//Study my account examples: $LK,"Cfg Strs",A="FL:::/Demo/AcctExample/TOSCfg.HC,1"$, $LK,"Update Funs",A="FL:::/Demo/AcctExample/TOSDistro.HC,1"$

 #include "BootMHD"
 #include "BootMHD2"
@@ -117,7 +117,7 @@ public Bool BootMHDIns(U8 drv_let,U8 *drv_lst=NULL)
 	  _q++;
 	}
      }
-      CatPrint(menu_ptr,"\n\rSellection:");
+      CatPrint(menu_ptr,"\n\rSelection:");

      size=BMHD2_END-BMHD2_START;
      FileWrite(BOOT_DIR_BOOTMHD2_BIN_C,BMHD2_START,size);
@@ -303,7 +303,7 @@ U0 DVDFillPathTable(CDirEntry *tempde,

 public I64 ISO9660ISO(U8 *_filename=NULL,U8 *src_files_find_mask,
 	U8 *fu_flags=NULL,U8 *_stage2_filename=NULL)
-{//See $LK,"::/Misc/DoDistro.CPP"$
+{//See $LK,"::/Misc/DoDistro.HC"$
 //Use "C:/Distro/*" if you want all files in the C:/Distro directory.
  //Default flags are "+r" recurse.
  CISO1PriDesc *iso_pri=CAlloc(DVD_BLK_SIZE),
@@ -127,7 +127,7 @@ I64 RedSeaISOPass1(CDirEntry *tempde)
 }
 public I64 RedSeaISO(U8 *_iso_filename=NULL,U8 *_src_dir,
 	U8 *_stage2_filename=NULL)
-{//See $LK,"::/Misc/DoDistro.CPP"$. Must be ISO.C
+{//See $LK,"::/Misc/DoDistro.HC"$. Must be ISO.C
  I64 i,res,root_cnt,root_dir_blks,bitmap_blks,bitmap_blks1;
  CDirEntry *tempde,de;
  U8 buf[STR_LEN],*iso_filename,*src_dir,*stage2_filename;