TempleOSCDV3.11.ISO

Demo/AcctExample/AdamKeyPlugIns.CPP

@@ -1,271 +0,0 @@
-//Place this file in /Home and change
-//anything you want.
-
-U0 InsTime()
-{
-  CDate cdt;
-  cdt=Now;
-  "$$IV,1$$----%D %T----$$IV,0$$\n",cdt,cdt;
-}
-
-U0 InsFileLink()
-{
-  U8 *st=PopUpPickFile;
-  st[0]=':';  //This is my personal code, not production. LOL
-  "$$LK,\"%s\",A=\"FI:%s\"$$",st+2,st;
-  Free(st);
-}
-
-U0 InsDirLinks()
-{
-  CDirEntry *tempde,*tempde1;
-  U8 *st=PopUpPickDir,*st2;
-  st[0]=':';  //This is my personal code, not production. LOL
-  st2=MStrPrint("%s/*",st);
-  tempde=tempde1=FilesFind(st2,FUF_JUST_FILES);
-  while (tempde) {
-    tempde->full_name[0]=':';
-    "$$LK,\"%s\",A=\"FI:%s\"$$\n",tempde->full_name+2,tempde->full_name;
-    tempde=tempde->next;
-  }
-  DirTreeDel(tempde1);
-  Free(st);
-  Free(st2);
-}
-
-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,"Keyboard Devices",A="HI:Keyboard Devices/System"$.
-
-  //You can customize keys.  This routine
-  //is called before the main editor
-  //key handler $LK,"DocPutKey",A="MN:DocPutKey"$().
-  //You can intercept any key.
-
-  //Return TRUE if you completely
-  //handled the key.
-  I64 i,sc2=sc.u8[0];
-  U8 *st1,*st2;
-
-  if (SC_F1<=sc2<=SC_F10 &&
-	sc&SCF_ALT &&
-	!(sc & SCF_CTRL)) {
-    switch (sc2) {
-      case SC_F1:
-	if (sc&SCF_KEY_DESC) {
-	  if (sc & SCF_SHIFT)
-	    KeyDescSet("Dollar/LTPURPLE");
-	  else
-	    KeyDescSet("Dollar/PURPLE");
-	} else {
-	  if (sc & SCF_SHIFT)
-	    "$$LTPURPLE$$";
-	  else
-	    "$$PURPLE$$";
-	}
-	break;
-      case SC_F2:
-	if (sc&SCF_KEY_DESC) {
-	  if (sc & SCF_SHIFT)
-	    KeyDescSet("Dollar/LTRED");
-	  else
-	    KeyDescSet("Dollar/RED");
-	} else {
-	  if (sc & SCF_SHIFT)
-	    "$$LTRED$$";
-	  else
-	    "$$RED$$";
-	}
-	break;
-      case SC_F3:
-	if (sc&SCF_KEY_DESC) {
-	  if (sc & SCF_SHIFT)
-	    KeyDescSet("Dollar/LTGREEN");
-	  else
-	    KeyDescSet("Dollar/GREEN");
-	} else {
-	  if (sc & SCF_SHIFT)
-	    "$$LTGREEN$$";
-	  else
-	    "$$GREEN$$";
-	}
-	break;
-      case SC_F4:
-	if (sc&SCF_KEY_DESC) {
-	  if (sc & SCF_SHIFT)
-	    KeyDescSet("Dollar/Default Color");
-	  else
-	    KeyDescSet("Dollar/BLUE");
-	} else {
-	  if (sc & SCF_SHIFT)
-	    "$$FG$$";
-	  else
-	    "$$BLUE$$";
-	}
-	break;
-      case SC_F6:
-	if (sc&SCF_KEY_DESC) {
-	  if (sc & SCF_SHIFT)
-	    KeyDescSet("Misc/Ins My URL");
-	  else
-	    KeyDescSet("Misc/Ins Datetime");
-	} else {
-	  if (sc & SCF_SHIFT)
-	    InsMyURL;
-	  else
-	    InsTime;
-	}
-	break;
-      case SC_F7:
-	if (sc&SCF_KEY_DESC) {
-	  if (sc & SCF_SHIFT)
-	    KeyDescSet("God Book Passage");
-	  else
-	    KeyDescSet("God Doodle File");
-	} else {
-//$LK,"::/Adam/God/HSNotes.TXT"$
-	  if (sc & SCF_SHIFT) {
-	    FifoU8Flush(god.fifo);
-	    GodBitsIns(GOD_GOOD_BITS,KbdMouseEvtTime>>GOD_BAD_BITS);
-	    GodBooksPassage("C:/Home/Wb2/Files/Text/*");
-	  } else {
-	    st1=PopUpPickFile;
-	    st2=FileRead(st1);
-	    GodDoodle(st2);
-	    Free(st2);
-	    Free(st1);
-	  }
-	}
-	break;
-      case SC_F8:
-	if (sc&SCF_KEY_DESC) {
-	  if (sc & SCF_SHIFT)
-	    KeyDescSet("Misc/Ins Dir Links");
-	  else
-	    KeyDescSet("Misc/Ins File Link");
-	} else {
-	  if (sc & SCF_SHIFT)
-	    InsDirLinks;
-	  else
-	    InsFileLink;
-	}
-	break;
-    }
-    return TRUE;
-  } else {
-    if (!(sc & SCF_CTRL)) {
-      if (sc & SCF_ALT) {
-	switch (ch) {
-	  case 'a':
-	    if (sc&SCF_KEY_DESC)
-	      KeyDescSet("Win/AutoComplete(ON);");
-	    else
-	      AutoComplete(ON);
-	    return TRUE;
-	  case 'A':
-	    if (sc&SCF_KEY_DESC)
-	      KeyDescSet("Win/AutoComplete;");
-	    else
-	      AutoComplete;
-	    return TRUE;
-
-	  case 'h':
-	    if (sc&SCF_KEY_DESC)
-	      KeyDescSet("Win/Tile Horizontally");
-	    else
-	      WinTileHorz;
-	    return TRUE;
-	  case 'm':
-	    if (sc&SCF_KEY_DESC)
-	      KeyDescSet("Win/Maximize");
-	    else {
-	      WinMax;
-	      WinBorder;
-	    }
-	    return TRUE;
-	  case 'v':
-	    if (sc&SCF_KEY_DESC)
-	      KeyDescSet("Win/Tile Vertically");
-	    else
-	      WinTileVert;
-	    return TRUE;
-	  case 'V':
-	    if (sc&SCF_KEY_DESC)
-	      KeyDescSet("Sys/Frame Grabber Toggle");
-	    else
-	      FrameGrabberToggle;
-	    return TRUE;
-
-	  case 'l':
-	    if (sc&SCF_KEY_DESC)
-	      KeyDescSet("Edit/Put Link to Cur Pos on Clipboard");
-	    else {
-	      ClipboardDel;
-	      st1=FileNameAbs(BIBLE_FILENAME);
-	      st2=FileNameAbs(DocPut->filename.name);
-	      if (!StrCmp(st1,st2)) {
-		Free(st1);
-		st1=BibleLine2Verse(DocPut->cur_entry->y+1,',');
-		DocPrint(sys_clipboard_doc,"$$LK,\"BF:%s\"$$",st1);
-	      } else
-		DocPrint(sys_clipboard_doc,"$$LK,\"FL:%s,%d\"$$",
-		      st2,DocPut->cur_entry->y+1);
-	      Free(st1);
-	      Free(st2);
-	    }
-	    return TRUE;
-	  case 'L':
-	    if (sc&SCF_KEY_DESC)
-	      KeyDescSet("Edit/Place Anchor, Put Link to Clipboard");
-	    else {
-	      i=RandU32;
-	      ClipboardDel;
-	      DocPrint(sys_clipboard_doc,"$$LK,\"<TODO>\",A=\"FA:%s,ANC%d\"$$",
-		    DocPut->filename.name,i);
-	      "$$AN,\"<TODO>\",A=\"ANC%d\"$$",i;
-	    }
-	    return TRUE;
-
-	    //Ins your own ALT-key plug-ins
-	  case 'b':
-	    if (sc&SCF_KEY_DESC)
-	      KeyDescSet("Cmd/Jump to Bad Code");
-	    else //$LK,"::/Adam/God/HSNotes.TXT"$
-	      BadCodeJump;
-	    return TRUE;
-
-	  case 'g':
-	    if (sc&SCF_KEY_DESC)
-	      KeyDescSet("BlogScreenShot");
-	    else
-	      BlogScreenShot;
-	    return TRUE;
-
-	  case 'p':
-	    if (sc&SCF_KEY_DESC)
-	      KeyDescSet("JukeBox(TAD)");
-	    else
-	      JukeBox("::/Home/Psalmody");
-	    return TRUE;
-	  case 'P':
-	    if (sc&SCF_KEY_DESC)
-	      KeyDescSet("JukeBox(Examples)");
-	    else
-	      JukeBox("::/Apps/Psalmody/Examples");
-	    return TRUE;
-	}
-      }
-    }
-  }
-  return FALSE;
-}
-
-Bool MyPutS(U8 *)
-{
-  return FALSE;
-}
-
-KeyDevAdd(&MyPutKey,&MyPutS,0x20000000,TRUE);

Demo/AcctExample/DoOnce.CPP

@@ -3,7 +3,7 @@
 
 //This file is executed by the
 //first terminal window upon start-up.
-//See $LK,"DoOnce",A="FF:/Home/AdamSys.CPP,DoOnce"$ and $LK,"Home Files",A="FF:::/Doc/GuideLines.TXT,/Home Files"$.
+//See $LK,"DoOnce",A="FF:/Home/HomeSys.CPP,DoOnce"$ and $LK,"Home Files",A="FF:::/Doc/GuideLines.TXT,/Home Files"$.
 
 //  Type("::/Doc/Customize.TXT");
 

Demo/AcctExample/HomeKeyPlugIns.CPP

@@ -0,0 +1,285 @@
+//Place this file in /Home and change
+//anything you want.
+
+U0 InsTime()
+{
+  CDate cdt;
+  cdt=Now;
+  "$$IV,1$$----%D %T----$$IV,0$$\n",cdt,cdt;
+}
+
+U0 InsFileLink()
+{
+  U8 *st=PopUpPickFile;
+  st[0]=':';  //This is my personal code, not production. LOL
+  "$$LK,\"%s\",A=\"FI:%s\"$$",st+2,st;
+  Free(st);
+}
+
+U0 InsDirLinks()
+{
+  CDirEntry *tempde,*tempde1;
+  U8 *st=PopUpPickDir,*st2;
+  st[0]=':';  //This is my personal code, not production. LOL
+  st2=MStrPrint("%s/*",st);
+  tempde=tempde1=FilesFind(st2,FUF_JUST_FILES);
+  while (tempde) {
+    tempde->full_name[0]=':';
+    "$$LK,\"%s\",A=\"FI:%s\"$$\n",tempde->full_name+2,tempde->full_name;
+    tempde=tempde->next;
+  }
+  DirTreeDel(tempde1);
+  Free(st);
+  Free(st2);
+}
+
+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,"Keyboard Devices",A="HI:Keyboard Devices/System"$.
+
+  //You can customize keys.  This routine
+  //is called before the main editor
+  //key handler $LK,"DocPutKey",A="MN:DocPutKey"$().
+  //You can intercept any key.
+
+  //Return TRUE if you completely
+  //handled the key.
+  I64 i;
+  U8 *st1,*st2;
+  if (sc&SCF_ALT && !(sc&SCF_CTRL)) {
+    switch (ch) {
+      case 0:
+	switch (sc.u8[0]) {
+	  case SC_F1:
+	    if (sc&SCF_SHIFT) {
+	      if (sc&SCF_KEY_DESC)
+		KeyDescSet("Dol /LTPURPLE");
+	      else
+		"$$LTPURPLE$$";
+	    } else {
+	      if (sc&SCF_KEY_DESC)
+		KeyDescSet("Dol /PURPLE");
+	      else
+		"$$PURPLE$$";
+	    }
+	    return TRUE;
+	  case SC_F2:
+	    if (sc&SCF_SHIFT) {
+	      if (sc&SCF_KEY_DESC)
+		KeyDescSet("Dol /LTRED");
+	      else
+		"$$LTRED$$";
+	    } else {
+	      if (sc&SCF_KEY_DESC)
+		KeyDescSet("Dol /RED");
+	      else
+		"$$RED$$";
+	    }
+	    return TRUE;
+	  case SC_F3:
+	    if (sc&SCF_SHIFT) {
+	      if (sc&SCF_KEY_DESC)
+		KeyDescSet("Dol /LTGREEN");
+	      else
+		"$$LTGREEN$$";
+	    } else {
+	      if (sc&SCF_KEY_DESC)
+		KeyDescSet("Dol /GREEN");
+	      else
+		"$$GREEN$$";
+	    }
+	    return TRUE;
+	  case SC_F4:
+	    if (sc&SCF_SHIFT) {
+	      if (sc&SCF_KEY_DESC)
+		KeyDescSet("Dol /Default Color");
+	      else
+		"$$FG$$";
+	    } else {
+	      if (sc&SCF_KEY_DESC)
+		KeyDescSet("Dol /BLUE");
+	      else
+		"$$BLUE$$";
+	    }
+	    return TRUE;
+	  case SC_F6:
+	    if (sc&SCF_SHIFT) {
+	      if (sc&SCF_KEY_DESC)
+		KeyDescSet("Cmd /Ins My URL");
+	      else
+		InsMyURL;
+	    } else {
+	      if (sc&SCF_KEY_DESC)
+		KeyDescSet("Cmd /Ins Datetime");
+	      else
+		InsTime;
+	    }
+	    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/Wb2/Files/Text/*");
+	      }
+	    } else {
+	      if (sc&SCF_KEY_DESC)
+		KeyDescSet("Cmd /God Doodle File");
+	      else {
+		st1=PopUpPickFile;
+		st2=FileRead(st1);
+		GodDoodle(st2);
+		Free(st2);
+		Free(st1);
+	      }
+	    }
+	    return TRUE;
+	  case SC_F8:
+	    if (sc&SCF_SHIFT) {
+	      if (sc&SCF_KEY_DESC)
+		KeyDescSet("Cmd /Ins Dir Links");
+	      else
+		InsDirLinks;
+	    } else {
+	      if (sc&SCF_KEY_DESC)
+		KeyDescSet("Cmd /Ins File Link");
+	      else
+		InsFileLink;
+	    }
+	    return TRUE;
+	}
+	break;
+      case 'a':
+	if (sc&SCF_KEY_DESC)
+	  KeyDescSet("Cmd /AutoComplete On");
+	else
+	  AutoComplete(ON);
+	return TRUE;
+      case 'A':
+	if (sc&SCF_KEY_DESC)
+	  KeyDescSet("Cmd /AutoComplete Off");
+	else
+	  AutoComplete;
+	return TRUE;
+      case 'h':
+	if (sc&SCF_KEY_DESC)
+	  KeyDescSet("Cmd /Tile Horizontally");
+	else
+	  WinTileHorz;
+	return TRUE;
+      case 'm':
+	if (sc&SCF_KEY_DESC)
+	  KeyDescSet("Cmd /Maximize");
+	else {
+	  WinBorder;
+	  WinMax;
+	}
+	return TRUE;
+      case 'v':
+	if (sc&SCF_KEY_DESC)
+	  KeyDescSet("Cmd /Tile Vertically");
+	else
+	  WinTileVert;
+	return TRUE;
+      case 'V':
+	if (sc&SCF_KEY_DESC)
+	  KeyDescSet("Cmd /Frame Grabber Toggle");
+	else
+	  FrameGrabberToggle;
+	return TRUE;
+      case 'l':
+	if (sc&SCF_KEY_DESC)
+	  KeyDescSet("Edit/Put Link to Cur Pos on Clipboard");
+	else {
+	  ClipboardDel;
+	  st1=FileNameAbs(BIBLE_FILENAME);
+	  st2=FileNameAbs(DocPut->filename.name);
+	  if (!StrCmp(st1,st2)) {
+	    Free(st1);
+	    st1=BibleLine2Verse(DocPut->cur_entry->y+1,',');
+	    DocPrint(sys_clipboard_doc,"$$LK,\"BF:%s\"$$",st1);
+	  } else
+	    DocPrint(sys_clipboard_doc,"$$LK,\"FL:%s,%d\"$$",
+		  st2,DocPut->cur_entry->y+1);
+	  Free(st1);
+	  Free(st2);
+	}
+	return TRUE;
+      case 'L':
+	if (sc&SCF_KEY_DESC)
+	  KeyDescSet("Edit/Place Anchor, Put Link to Clipboard");
+	else {
+	  i=RandU32;
+	  ClipboardDel;
+	  DocPrint(sys_clipboard_doc,"$$LK,\"<TODO>\",A=\"FA:%s,ANC%d\"$$",
+		DocPut->filename.name,i);
+	  "$$AN,\"<TODO>\",A=\"ANC%d\"$$",i;
+	}
+	return TRUE;
+
+	//Ins your own ALT-key plug-ins
+      case '1':
+	if (sc&SCF_KEY_DESC)
+	  KeyDescSet("Dol /ã");
+	else
+	  'ã';
+	return TRUE;
+      case '2':
+	if (sc&SCF_KEY_DESC)
+	  KeyDescSet("Dol /é");
+	else
+	  'é';
+	return TRUE;
+      case '3':
+	if (sc&SCF_KEY_DESC)
+	  KeyDescSet("Dol /è");
+	else
+	  'è';
+	return TRUE;
+      case '4':
+	if (sc&SCF_KEY_DESC)
+	  KeyDescSet("Dol /ê");
+	else
+	  'ê';
+	return TRUE;
+      case 'b':
+	if (sc&SCF_KEY_DESC)
+	  KeyDescSet("Cmd /Jump to Bad Code");
+	else //$LK,"::/Adam/God/HSNotes.TXT"$
+	  BadCodeJump;
+	return TRUE;
+      case 'g':
+	if (sc&SCF_KEY_DESC)
+	  KeyDescSet("Edit/BlogScreenShot");
+	else
+	  BlogScreenShot;
+	return TRUE;
+      case 'p':
+	if (sc&SCF_KEY_DESC)
+	  KeyDescSet("Cmd /JukeBox(TAD)");
+	else
+	  JukeBox("::/Home/Wb2/Files/Psalmody");
+	return TRUE;
+      case 'P':
+	if (sc&SCF_KEY_DESC)
+	  KeyDescSet("Cmd /JukeBox(Examples)");
+	else
+	  JukeBox("::/Apps/Psalmody/Examples");
+	return TRUE;
+    }
+  }
+  return FALSE;
+}
+
+Bool MyPutS(U8 *)
+{
+  return FALSE;
+}
+
+KeyDevAdd(&MyPutKey,&MyPutS,0x20000000,TRUE);

Demo/AcctExample/HomeLocalize.CPP

@@ -1,8 +1,8 @@
 //Place this file in /Home and change
 //anything you want.
 
-OptOn(OPTf_WARN_PAREN);
-OptOn(OPTf_WARN_DUP_TYPES);
+Option(OPTf_WARN_PAREN,ON);
+Option(OPTf_WARN_DUP_TYPES,ON);
 
 KbdTypeMatic(0);
 

Demo/AcctExample/HomePkgs.CPP

@@ -1,11 +1,10 @@
 //Place this file in /Home and change
 //anything you want.
 
-#include "::/AdamPkgs"
+#include "::/HomePkgs"
 #include "::/Apps/Psalmody/Load"
 #include "::/Demo/WebLogExample/WebLogRep"
 Cd("::/Home");;
-#include "::/Misc/ToDolDoc"
 #include "::/Home/TOSIDComputer"
 #include "::/Home/TOSCfg"
 #include "::/Home/TOSMisc"

Demo/AcctExample/HomeSys.CPP

@@ -8,7 +8,6 @@ U0 UserStartUp()
   LBts(&Fs->display_flags,DISPLAYf_SHOW);
   WinToTop;
   WinZBufUpdate;
-  Preempt(ON);
   Dir;
   switch (tos_cid) {
     case CID_DFT:
@@ -25,7 +24,6 @@ U0 SrvStartUp()
   LBts(&Fs->display_flags,DISPLAYf_SHOW);
   WinToTop;
   WinZBufUpdate;
-  Preempt(ON);
 }
 
 CTask *user1,*user2;

Demo/AcctExample/PersonalNotes.TXT

@@ -1,19 +1,35 @@
-$WW,1$* Clean-up $LK,"FileNameAbs",A="MN:FileNameAbs"$().
+$WW,1$* I'm going to redo all my videos and make them more professional.
+
+* $TX,"Kruskal-Wallis_one-way_analysis_of_variance",HTML="http://en.wikipedia.org/wiki/Kruskal-Wallis_one-way_analysis_of_variance"$ disk sector allocation?
+
+* Investigate why packet loss $LK,"Training Sleep(1)",A="FF:::/Adam/Training.CPP,Sleep(1)"$.
+
+* 8/20/2015 TAD8, Tour1, then Tour TestSuite was missing #include "TestSuite".
+
+* Clean-up $LK,"FileNameAbs",A="MN:FileNameAbs"$().
 
 * Get rid of having two terms and pick one, "Disk" and "BlkDev"?  I don't think so.  (Probably not.)
 
+* Make Bible into Tree Branches Collapsed.
+
 * God said this is bad.  $LK,"FL:::/Adam/DolDoc/DocFind.CPP,41"$
 
 * $LK,"ChkDsk",A="MN:ChkDsk"$ alloc unalloced.
 
 * Entering a '$$' in text entry
 
-* Clean-up ASCII-127 delete.
+* Should these be moved into $LK,"CHashClass",A="MN:CHashClass"$ from $LK,"CMemberLst",A="MN:CMemberLst"$ and $LK,"CHashGlblVar",A="MN:CHashGlblVar"$?
+  CArrayDim dim;
+  CHashFun *fun_ptr;
+
+* Clean-up ASCII-127 delete char.
 * $LK,"StrPrintJoin",A="MN:StrPrintJoin"$(st); With st="\n\\";
 
+* 8/2/2015 VMware start-up. Probably multicore.
+
 * 1/1/2015 Bug messing-up keyboard, like no CTRL key.  Was working on Sprites.
 
-* 1/?/2015 Macro select in Menu did not go to shell.
+* 1/?/2015,8/10/2015 Macro select in Menu did not go to shell.  No: I think CTRL-M twice.
 
 * $LK,"BMPRLE4To",A="MN:BMPRLE4To"$() has files_size too big by 108.  Did I fix it?
 
@@ -25,6 +41,12 @@ $WW,1$* Clean-up $LK,"FileNameAbs",A="MN:FileNameAbs"$().
 
 * Add Redo to editor.
 
+* Perhaps, links to self document if empty file name? $LK,"Document Links",A="FF:::/Adam/DolDoc/DocLink.CPP,AD"$
+
+* Cannot include ':' in $LK,"Document Links",A="FF:::/Adam/DolDoc/DocLink.CPP,AD"$ search string.
+
+* $LK,"Type",A="MN:Type"$() doesn't work in $LK,"Raw",A="MN:Raw"$() mode.
+
 * PSect does not scan all task tables.
 
 * No Compiler Warning:  dc->palette48.r   =palette24[i].r<<8;
@@ -54,7 +76,6 @@ $WW,1$* Clean-up $LK,"FileNameAbs",A="MN:FileNameAbs"$().
 * $$CM+LE+RE is nasty
 
 * FlatTop is torpedo, not bombs.
-* BomberGolf is weird concept?
 
 * Maybe, 3x3 instead of 4x4 matrices. <sigh>
 
@@ -137,8 +158,6 @@ $LK,"::/Demo/Lectures/FixedPointAdvanced.CPP"$.
 
 * clean-up addDev pmt
 
-* Might want to convert some Preempt() to Cli
-
 * $LK,"Plain",A="MN:Plain"$() might be better not saving $LK,"CH_CURSOR",A="MN:CH_CURSOR"$.
 
 * TRANSPARENT might not work with line ROPF_DITHER
@@ -200,13 +219,13 @@ Works for $LK,"IPSet",A="MN:IPSet"$(), though.
 
 * Add local vars to sym table in $LK,"Dbg",A="MN:Dbg"$()?  (maybe)
 
-* $LK,"Bible sized nodes",A="FF:::/Adam/DolDoc/DocRecalcB.CPP,->tag+i"$
-* Mouseinstall throws exceptions, doesn't work, investigate Mouse $LK,"0x9FC30",A="FF:::/Kernel/KbdMouse/Mouse.CPP,9FC"$
+* $LK,"Bible sized nodes",A="FF:::/Adam/DolDoc/DocRecalc.CPP,->tag+i"$
+* Mouseinstall throws exceptions, doesn't work, investigate Mouse $LK,"0x9FC30",A="FF:::/Kernel/SerialDev/Mouse.CPP,9FC"$
 * get kbd lights working.
 * Might have issue with compiler exceptions and restoring lex.hash tables.
 * Generates two compiler error messages for expressions in statements.
 * release semaphores or break lock sema,usb_td
-* Fix Mom's secondary CD-ROM, dad's primary
+* Fix Mom's secondary CD/DVD, dad's primary
 * pmtstr in install didn't like focus change
 
 *$FG,2$U0 Main()
@@ -234,7 +253,6 @@ short names.
 * Maybe convert graphics to float
 * Warn unnecessary typecast
 * compiler F32
-* preempt(OFF) during graphic clipping?
 * compiler optimization heap_glbls with added offset
 * Might make FAT32 read in contiguous chunks.
 * make Clamp(),Min(),Max() asm routines.
@@ -267,7 +285,6 @@ registry-like routines... or registry I guess.
 * new HolyC language features
 * better debugging
 
-* Too much preemption turned off?
 * Look for mem leaks.
 * Move stuff out of Kernel module.
 
@@ -311,32 +328,77 @@ assignments.  Is ShiftNoPush fully implemented?
 * sort options for findfiles
 * Maybe, get rid of $LK,"0x20000",A="FF:::/Compiler/CMain.CPP,0x20000"$ in compiler.
 
-It is love I desire: $LK,"Hosea,6:6",A="BF:Hosea,6:6"$ $TX,"Hosea 6:6",HTML="http://www.biblegateway.com/verse/en/Hosea%206:6"$
+================================================================================
+It is love I desire: $TX,"Hosea 6:6",HTML="http://www.biblegateway.com/verse/en/Hosea%206:6"$
+Offer a sacrifice of praise: $TX,"Hebrews 13:15",HTML="http://www.biblegateway.com/verse/en/Hebrews%2013:15"$
+Do I drink blood of goats? Offer praise: $TX,"Psalms 50:14",HTML="http://www.biblegateway.com/verse/en/Psalms%2050:14"$
+Runner's Stride: $TX,"Psalms 147:10",HTML="http://www.biblegateway.com/verse/en/Psalms%20147:10"$
 
-Offer a sacrifice of praise: $LK,"Hebrews,13:15",A="BF:Hebrews,13:15"$ $TX,"Hebrews 13:15",HTML="http://www.biblegateway.com/verse/en/Hebrews%2013:15"$
-
-Do I drink blood of goats? Offer praise: $LK,"Psalms,50:14",A="BF:Psalms,50:14"$ $TX,"Psalms 50:14",HTML="http://www.biblegateway.com/verse/en/Psalms%2050:14"$
-
-Runner's Stride: $LK,"Psalms,147:10",A="BF:Psalms,147:10"$ $TX,"Psalms 147:10",HTML="http://www.biblegateway.com/verse/en/Psalms%20147:10"$
-
-Buckling Armor: $LK,"1 Kings,20:11",A="BF:1 Kings,20:11"$ $TX,"1 Kings 20:11",HTML="http://www.biblegateway.com/verse/en/1%20Kings%2020:11"$
+$HC,"<object width=\"640\" height=\"520\"><param name=\"movie\" value=\"http://www.youtube.com/v/aKchwAWMpDA\"></param><param name=\"allowscriptaccess\" value=\"always\"></param><embed src=\"http://www.youtube.com/v/aKchwAWMpDA\" type=\"application/x-shockwave-flash\" allowscriptaccess=\"always\" width=\"640\" height=\"520\"></embed></object>"$
+Buckling Armor: $TX,"1 Kings 20:11",HTML="http://www.biblegateway.com/verse/en/1%20Kings%2020:11"$
+Lot cast in the lap: $TX,"Proverbs 16:33",HTML="http://www.biblegateway.com/verse/en/Proverbs%2016:33"$
+Lord does not repeat: $TX,"Job 33:14",HTML="http://www.biblegateway.com/verse/en/Job%2033:14"$
+Offer only in approved place: $TX,"Deuteronomy 12:13-18",HTML="http://www.biblegateway.com/passage/?search=Deuteronomy%2012:13-18&version=NIV"$
+Jesus' zeal for the Temple: $TX,"John 2:14-19",HTML="http://www.biblegateway.com/passage/?search=John%202:14-19&version=NIV"$
 
 >lspci -v
+Size:$TX,"17294 KB",D="DD_TEMPLEOSCD_K_SIZE"$
 
-Size:$TX,"17594 KB",D="DD_TEMPLEOSCD_K_SIZE"$
+$HC,"<object width=\"640\" height=\"520\"><param name=\"movie\" value=\"http://www.youtube.com/v/E6K9zK9ZWSg\"></param><param name=\"allowscriptaccess\" value=\"always\"></param><embed src=\"http://www.youtube.com/v/E6K9zK9ZWSg\" type=\"application/x-shockwave-flash\" allowscriptaccess=\"always\" width=\"640\" height=\"520\"></embed></object>"$
+8:11 Behold, the days come, saith the Lord GOD, that I will send a
+famine in the land, not a famine of bread, nor a thirst for water, but
+of hearing the words of the LORD: 8:12 And they shall wander from sea
+to sea, and from the north even to the east, they shall run to and fro
+to seek the word of the LORD, and shall not find it.
 
-$TX,"Let me Google NIST Random Beacon",HTML="http://lmgtfy.com?q=NIST+random+beacon"$
+TempleOS Logo
+$HC,"<img src=\"http://www.templeos.org/images/Logo128x152.jpg\" width=\"640\" height=\"760\" alt=\"\">"$
+
+Contact
+$HC,"<object width=\"640\" height=\"520\"><param name=\"movie\" value=\"http://www.youtube.com/v/SRoj3jK37Vc\"></param><param name=\"allowscriptaccess\" value=\"always\"></param><embed src=\"http://www.youtube.com/v/SRoj3jK37Vc\" type=\"application/x-shockwave-flash\" allowscriptaccess=\"always\" width=\"640\" height=\"520\"></embed></object>"$
+
+Black Knight
+$HC,"<object width=\"640\" height=\"520\"><param name=\"movie\" value=\"http://www.youtube.com/v/dhRUe-gz690\"></param><param name=\"allowscriptaccess\" value=\"always\"></param><embed src=\"http://www.youtube.com/v/dhRUe-gz690\" type=\"application/x-shockwave-flash\" allowscriptaccess=\"always\" width=\"640\" height=\"520\"></embed></object>"$
+
+Metallica: Creeping Death
+$HC,"<object width=\"640\" height=\"520\"><param name=\"movie\" value=\"http://www.youtube.com/v/z5lXEFdZAmU\"></param><param name=\"allowscriptaccess\" value=\"always\"></param><embed src=\"http://www.youtube.com/v/z5lXEFdZAmU\" type=\"application/x-shockwave-flash\" allowscriptaccess=\"always\" width=\"640\" height=\"520\"></embed></object>"$
+
+Neil Degrasse Tyson: Get of of their Way
+$HC,"<object width=\"640\" height=\"520\"><param name=\"movie\" value=\"http://www.youtube.com/v/AIEJjpVlZu0\"></param><param name=\"allowscriptaccess\" value=\"always\"></param><embed src=\"http://www.youtube.com/v/AIEJjpVlZu0\" type=\"application/x-shockwave-flash\" allowscriptaccess=\"always\" width=\"640\" height=\"520\"></embed></object>"$
+Neil Degrasse Tyson: Girl
+$HC,"<object width=\"640\" height=\"520\"><param name=\"movie\" value=\"http://www.youtube.com/v/rVwQ9jBuoFA\"></param><param name=\"allowscriptaccess\" value=\"always\"></param><embed src=\"http://www.youtube.com/v/rVwQ9jBuoFA\" type=\"application/x-shockwave-flash\" allowscriptaccess=\"always\" width=\"640\" height=\"520\"></embed></object>"$
 
 Commodore 64 Basic/Assembly
 $HC,"<object width=\"640\" height=\"520\"><param name=\"movie\" value=\"http://www.youtube.com/v/d8bZ92gIVms\"></param><param name=\"allowscriptaccess\" value=\"always\"></param><embed src=\"http://www.youtube.com/v/d8bZ92gIVms\" type=\"application/x-shockwave-flash\" allowscriptaccess=\"always\" width=\"640\" height=\"520\"></embed></object>"$
 
+Red Fang: Prehistoric Dog
+$HC,"<object width=\"640\" height=\"520\"><param name=\"movie\" value=\"http://www.youtube.com/v/VufilzHKTqk\"></param><param name=\"allowscriptaccess\" value=\"always\"></param><embed src=\"http://www.youtube.com/v/VufilzHKTqk\" type=\"application/x-shockwave-flash\" allowscriptaccess=\"always\" width=\"640\" height=\"520\"></embed></object>"$
+
 Bill Gates Predictions
 $HC,"<object width=\"640\" height=\"520\"><param name=\"movie\" value=\"http://www.youtube.com/v/4r9u_R0cCew\"></param><param name=\"allowscriptaccess\" value=\"always\"></param><embed src=\"http://www.youtube.com/v/4r9u_R0cCew\" type=\"application/x-shockwave-flash\" allowscriptaccess=\"always\" width=\"640\" height=\"520\"></embed></object>"$
 
 Cop tying shoe:  (After drive-by shooting, God said kid was not innocent, LOL.)
 $HC,"<img src=\"https://goodtimestories.files.wordpress.com/2013/04/cop-tying-shoe-cambridge-county-pd.jpg\" width=\"480\" height=\"376\" alt=\"\">"$
 
+Frontier Psychiatrist
+$HC,"<object width=\"640\" height=\"520\"><param name=\"movie\" value=\"http://www.youtube.com/v/qLrnkK2YEcE\"></param><param name=\"allowscriptaccess\" value=\"always\"></param><embed src=\"http://www.youtube.com/v/qLrnkK2YEcE\" type=\"application/x-shockwave-flash\" allowscriptaccess=\"always\" width=\"640\" height=\"520\"></embed></object>"$
+$HC,"<object width=\"640\" height=\"520\"><param name=\"movie\" value=\"http://www.youtube.com/v/DfIcZtjAch8\"></param><param name=\"allowscriptaccess\" value=\"always\"></param><embed src=\"http://www.youtube.com/v/DfIcZtjAch8\" type=\"application/x-shockwave-flash\" allowscriptaccess=\"always\" width=\"640\" height=\"520\"></embed></object>"$
+
+Morning has Broken
+$HC,"<object width=\"640\" height=\"520\"><param name=\"movie\" value=\"http://www.youtube.com/v/kKoRp05L95c\"></param><param name=\"allowscriptaccess\" value=\"always\"></param><embed src=\"http://www.youtube.com/v/kKoRp05L95c\" type=\"application/x-shockwave-flash\" allowscriptaccess=\"always\" width=\"640\" height=\"520\"></embed></object>"$
+
+Icarus
+$HC,"<object width=\"640\" height=\"520\"><param name=\"movie\" value=\"http://www.youtube.com/v/0Pmgtyw2n8w\"></param><param name=\"allowscriptaccess\" value=\"always\"></param><embed src=\"http://www.youtube.com/v/0Pmgtyw2n8w\" type=\"application/x-shockwave-flash\" allowscriptaccess=\"always\" width=\"640\" height=\"520\"></embed></object>"$
+
+Zombie Game
+$HC,"<object width=\"640\" height=\"520\"><param name=\"movie\" value=\"http://www.youtube.com/v/F27r_9oyqBI\"></param><param name=\"allowscriptaccess\" value=\"always\"></param><embed src=\"http://www.youtube.com/v/F27r_9oyqBI\" type=\"application/x-shockwave-flash\" allowscriptaccess=\"always\" width=\"640\" height=\"520\"></embed></object>"$
+Sports Game
+$HC,"<object width=\"640\" height=\"520\"><param name=\"movie\" value=\"http://www.youtube.com/v/ORXqOEGFQfE\"></param><param name=\"allowscriptaccess\" value=\"always\"></param><embed src=\"http://www.youtube.com/v/ORXqOEGFQfE\" type=\"application/x-shockwave-flash\" allowscriptaccess=\"always\" width=\"640\" height=\"520\"></embed></object>"$
+
+
 $TX,"WWW.OSDEV.ORG",HTML="http://www.osdev.org"$
+$TX,"PCI Interrupt Routing",HTML="http://forum.osdev.org/viewtopic.php?f=1&t=29558"$
+$TX,"Lamp Shades",HTML="http://www.lampsplus.com/products/lamp-shades"$
 $TX,"My Bookmarks",HTML="http://www.templeos.org/Wb/Home/Wb2/Files/Bookmarks"$
 $TX,"Perfect Coin Toss",HTML="http://hackaday.com/2014/12/19/nist-randomness-beacon/"$
 $TX,"Top 100 Movies",HTML="http://www.afi.com/100years/movies10.aspx"$
@@ -348,6 +410,7 @@ $TX,"KeyPeele#1",HTML="http://www.youtube.com/watch?v=Dd7FixvoKBw"$
 $TX,"KeyPeele#2",HTML="http://www.youtube.com/watch?v=VHG_Gv_zLY4"$
 $TX,"ThePrisoner",HTML="http://www.youtube.com/watch?v=HRPDO63rI1E"$
 $TX,"Bible with LineNums",HTML="http://www.templeos.org/files/NumBible.TXT"$
+$TX,"Security at NIST",HTML="http://csrc.nist.gov/publications/nistpubs/800-30-rev1/sp800_30_r1.pdf"$
 $TX,"WestWorld",HTML="http://www.youtube.com/watch?v=LcL3eP0Hfy4"$
 $TX,"Picard:FourLights",HTML="http://www.youtube.com/watch?v=o_eSwq1ewsU"$
 $TX,"Dwight:NerdTorture",HTML="http://www.noob.us/humor/the-office-dwight-faces-nerd-torture-of-the-highest-form"$
@@ -362,3 +425,5 @@ $TX,"BBC_Five_Live",HTML="http://www.bbc.co.uk/radio/player/bbc_radio_five_live"
 $TX,"KNPR",HTML="http://www.knpr.org"$
 $TX,"C64 Users Guide",HTML="http://www.commodore.ca/manuals/c64_users_guide/c64-users_guide.htm"$
 $TX,"C64 Programmers Reference Guide",HTML="http://www.commodore.ca/manuals/c64_programmers_reference/c64-programmers_reference.htm"$
+$TX,"8-Bit Japanese Pixel Art",HTML="http://designmadeinjapan.com/magazine/illustration-icon/tumblr-gifs-of-japanese-life"$
+$TX,"Resperdal Shortens Life",HTML="http://factmed.com/study-RISPERDAL-causing-LIFE EXPECTANCY SHORTENED.php"$

Demo/AcctExample/Registry.CPP

@@ -2,16 +2,14 @@ $TR-UL,"Adam"$
 $ID,2$$TR,"SysMsgFlags"$
 $ID,2$sys_msg_flags[0]=0xFF;
 $ID,-2$$TR,"SysRegVer"$
-$ID,2$registry_version=3.070;
-$ID,-2$$ID,-2$$TR-C-UL,"TempleOS"$
-$ID,2$$TR,"CircleTrace"$
-$ID,2$F64 best_score=4.9425;
-$ID,-2$$TR,"TOS"$
+$ID,2$registry_version=3.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;
 $ID,-2$$TR,"DiningStars"$
 $ID,2$F64 best_score=9999.0000;
 $ID,-2$$TR,"BlackDiamond"$
-$ID,2$I64 best_score=1;
+$ID,2$I64 best_score=9;
 $ID,-2$$TR,"EagleDive"$
 $ID,2$I64 best_score=4;
 $ID,-2$$TR,"DunGen"$
@@ -21,25 +19,27 @@ $ID,2$F64 best_score=33.8405;
 $ID,-2$$TR,"ZoneOut"$
 $ID,2$F64 best_score=50.3318;
 $ID,-2$$TR,"Varoom"$
-$ID,2$F64 best_score=11.8623;
-$ID,-2$$TR,"BugBird"$
-$ID,2$F64 best_score=18.2332;
+$ID,2$F64 best_score=46.2643;
+$ID,-2$$TR,"FlapBat"$
+$ID,2$F64 best_score=16.4090;
 $ID,-2$$TR,"TimeOut"$
-$ID,2$I64 best_score=21532;
+$ID,2$I64 best_score=22202;
 $ID,-2$$TR,"RawHide"$
-$ID,2$F64 best_score=81.1088;
+$ID,2$F64 best_score=96.1279;
 $ID,-2$$TR,"KeepAway"$
 $ID,2$I64 best_score0=0,best_score1=9999;
-$ID,-2$$TR,"XCaliber"$
-$ID,2$I64 best_score=248;
-I64 msg_flags=1;
 $ID,-2$$TR,"Wenceslas"$
 $ID,2$F64 best_score=49.8074;
 $ID,-2$$TR,"BomberGolf"$
-$ID,2$I64 best_score=32;
+$ID,2$I64 best_score=175;
+$ID,-2$$TR,"XCaliber"$
+$ID,2$I64 best_score=248;
+I64 msg_flags=1;
+$ID,-2$$TR,"CircleTrace"$
+$ID,2$F64 best_score=4.9425;
 $ID,-2$$ID,-2$$TR,"DemoCompany"$
 $ID,2$$TR,"Game1"$
-$ID,2$F64 best_score=168.62557;
+$ID,2$F64 best_score=166.20441;
 $TR,"SimpleVal"$
-$ID,2$1250;
+$ID,2$1267;
 $ID,-2$$ID,-2$$ID,-2$

Demo/AcctExample/TOSCfg.CPP

@@ -6,7 +6,7 @@ U0 TOSBootRescueDrv1()
   DefinePrint("TOS_BOOT_RESCUE_DRV","0x%X",
 	CeilI64(SYS_KERNEL_END+SLOP,BLK_SIZE));
   DefinePrint("TOS_BOOT_RESCUE_DRV_END",  "0x%X",FloorI64(
-	(BOOT_RAM_LIMIT-(BOOT_STK_SIZE+CD_BOOT_LOADER_SIZE))>>4<<4-
+	(BOOT_RAM_LIMIT-(BOOT_STK_SIZE+DVD_BOOT_LOADER_SIZE))>>4<<4-
 	(bfh(I64)-SYS_KERNEL_END)-SLOP,BLK_SIZE));
   DefinePrint("CFG_BOOT_RESCUE_DRV_FILE","\"/Temp/BootRescueDrv.BIN.Z\"");
 } TOSBootRescueDrv1;
@@ -25,25 +25,25 @@ U0 TOSInit()
   switch (tos_cid) {
     case CID_DFT:
       DefinePrint("CFG_RAM_DRVS",
-	    "\"b1\nScale2Mem(2048,0x280000,4*1024*1024*1024)\n\"");
-      if (dsk.auto_mount_ide_cnt) {
+	    "\"b1\nScale2Mem(2048,0x100000,4*1024*1024*1024)\n\"");
+      if (blkdev.auto_mount_ide_cnt) {
 //If AutoMount was successful, No need to manually mount in next compile
 	DefinePrint("CFG_HARD_DRVS","\"\"");
-	DefinePrint("CFG_CDROM_DRVS","\"\"");
+	DefinePrint("CFG_DVD_DRVS","\"\"");
       } else {
 
 	//These two are a crazy guess.	ATA:IDE Primary  ATAPI:IDE Secondary
 	DefinePrint("CFG_HARD_DRVS","\"c2s0x1F0\n0x3F4\n0\"");
-	DefinePrint("CFG_CDROM_DRVS","\"t3s0x170\n0\"");
+	DefinePrint("CFG_DVD_DRVS","\"t3s0x170\n0\"");
 
 	bd=Let2BlkDev(':');
 	if (bd->type==BDT_ATAPI) {
 	  ATARep(FALSE,,&root);
-	  ATAIDDrvs(root,dsk.boot_drv_let,&ata_drv,&atapi_drv);
+	  ATAIDDrvs(root,blkdev.boot_drv_let,&ata_drv,&atapi_drv);
 	  if (ata_drv)
 	    DefinePrint("CFG_HARD_DRVS","\"c2p%d\n\"",ata_drv->num);
 	  if (atapi_drv)
-	    DefinePrint("CFG_CDROM_DRVS","\"t3p%d\n\"",atapi_drv->num);
+	    DefinePrint("CFG_DVD_DRVS","\"t3p%d\n\"",atapi_drv->num);
 	} else {
 	  try {
 	    bd=Let2BlkDev('C');
@@ -53,7 +53,7 @@ U0 TOSInit()
 	    Fs->catch_except=TRUE;
 	  try {
 	    bd=Let2BlkDev('T');
-	    DefinePrint("CFG_CDROM_DRVS","\"t3s0x%X\n%d\"",bd->base0,bd->unit);
+	    DefinePrint("CFG_DVD_DRVS","\"t3s0x%X\n%d\"",bd->base0,bd->unit);
 	  } catch
 	    Fs->catch_except=TRUE;
 	}
@@ -70,7 +70,7 @@ U0 TOSDrvTextAttrSet()
   DrvTextAttrSet('D', WHITE <<4|RED);	//Back-up
   DrvTextAttrSet('A', BLUE  <<4|BROWN);	//Rescue
   DrvTextAttrSet('B', BLUE  <<4|YELLOW);//RAM
-  DrvTextAttrSet('T', LTGRAY<<4|BLUE);	//CDROM
+  DrvTextAttrSet('T', LTGRAY<<4|BLUE);	//CD/DVD
 } TOSDrvTextAttrSet;
 
 #define TOS_ISO_NAME	"B:/TempleOSCD.ISO"
@@ -80,10 +80,10 @@ U0 TOSDrvTextAttrSet()
 			"HeapInit\n130\nMemInit\n131\nVarInit\n132\n\n"
 #define CFG_DBGZ_OPTS	"AutoMountIDE\nCT"\
 			"HeapInit\n0\nMemInit\n0\nVarInit\n0\n\n"
-#define TOS_CFG		"\n" CFG_RAM_DRVS CFG_CDROM_DRVS CFG_HARD_DRVS "\n"\
+#define TOS_CFG		"\n" CFG_RAM_DRVS CFG_DVD_DRVS CFG_HARD_DRVS "\n"\
 			CFG_DSK_CACHE CFG_OPTS
-#define TOS_CDROM_CFG	"Tb1\n0x20000\nt3 \n\n\nAutoMountIDE\nCT\n"
-#define TOS_CDROM_DBG_CFG "A" CFG_BOOT_RESCUE_DRV\
+#define TOS_DVD_CFG	"Tb1\n0x20000\nt3 \n\n\nAutoMountIDE\nCT\n"
+#define TOS_DVD_DBG_CFG "A" CFG_BOOT_RESCUE_DRV\
 			"b1\nScale2Mem(2048,0x40000)\n\n\n"\
 			"DontProbe\nBootRescueDrv\n"\
 			"C:" CFG_BOOT_RESCUE_DRV_FILE "\n"\

Demo/AcctExample/TOSDistro.CPP

@@ -90,7 +90,8 @@ public U0 CopySongs(U8 threshold='7')
 {
   CDoc *s;
   CDocEntry *doc_e;
-  CDirEntry *tempde=FilesFind("::/Home/Psalmody/*.CPP*",FUF_CLUSTER_ORDER),
+  CDirEntry *tempde=FilesFind("::/Home/Wb2/Files/Psalmody/*.CPP*",
+	FUF_CLUSTER_ORDER),
 	*tempde1=tempde;
   DelTree("/Apps/Psalmody/Examples");
   MkDir("/Apps/Psalmody/Examples");
@@ -110,7 +111,7 @@ U0 DistroPrep()
   Del("/Demo/ReverseFileExample/PoemForeward.TXT*");
   Del("/Home/NumBible.TXT.Z");
   DelTree("/Home/*Temp.TXT.Z");
-  if (FileFind("::/Home/Psalmody"))
+  if (FileFind("::/Home/Wb2/Files/Psalmody"))
     CopySongs;
 
   DelTree("/Temp");
@@ -123,8 +124,12 @@ U0 DistroPrep()
   DelTree("/Demo/AcctExample");
   CopyTree("/Home","/Demo/AcctExample");
   DelTree("/Demo/AcctExample/Archive");
+  DelTree("/Demo/AcctExample/Blog");
   DelTree("/Demo/AcctExample/Budget");
+  DelTree("/Demo/AcctExample/Code");
+  DelTree("/Demo/AcctExample/Misc");
   DelTree("/Demo/AcctExample/Psalmody");
+  DelTree("/Demo/AcctExample/Videos");
   DelTree("/Demo/AcctExample/Wb2");
   Del("/Demo/AcctExample/Test*");
 
@@ -160,15 +165,17 @@ U0 MakeBootRescueDrvFile()
 
   MkDir("A:/Kernel");
   Copy("C:/Kernel/*.HPP*",		"A:/Kernel");
-  CopyTree("C:/Kernel/Dsk",		"A:/Kernel/Dsk");
+  CopyTree("C:/Kernel/BlkDev",		"A:/Kernel/BlkDev");
 
-  Copy("C:/Home/Wb2/Files/DbgAdam.CPP.Z","A:/Adam.CPP.Z");
+  Copy("C:/Home/Wb2/Files/DbgStartOS.CPP.Z","A:/StartOS.CPP.Z");
 
   MkDir("A:/Adam");
+  Copy("C:/Home/Wb2/Files/DbgMakeAdam.CPP.Z","A:/Adam/MakeAdam.CPP.Z");
   Copy("C:/Adam/AExts.HPP.Z",	"A:/Adam");
   Copy("C:/Adam/AMath.CPP.Z",	"A:/Adam");
   Copy("C:/Adam/Training.CPP.Z","A:/Adam");
-  Copy("C:/Adam/AUtils.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");
 
   FileWrite("C:" CFG_BOOT_RESCUE_DRV_FILE,
@@ -270,7 +277,7 @@ website, too.
 */
   Drv('C');
   DistroPrep;
-  Auto(TOS_CDROM_CFG);
+  Auto(TOS_DVD_CFG);
   MakeOSDrvBootInstall('C','T');
   DelTree(TOS_DISTRO_DIR);
   CopyTree("C:/",TOS_DISTRO_DIR "/");
@@ -282,14 +289,14 @@ U0 MakeTOSDistro()
   ISOFileCreate(TOS_ISO_NAME,TOS_DISTRO_DIR "/*",,
 	TOS_DISTRO_DIR BOOT_DIR_KERNEL_BIN_C);
   DefinePrint("DD_TEMPLEOSTS_SIZE",
-	"Download $TX,"TempleOS V3.07",D="DD_OS_NAME_VERSION"$ - T.S. Company Internal Distro (%0.1f MB)",
+	"Download $TX,"TempleOS V3.10",D="DD_OS_NAME_VERSION"$ - T.S. Company Internal Distro (%0.1f MB)",
 	0.1*(10*Size(TOS_ISO_NAME,"+s")/1024/1024));
   Drv('C');
 }
 
 
 U0 DbgDistroPrep()
-{/*This is a debug distro.  The CDROM bootloader uses BIOS INT 0x13 0x42 to
+{/*This is a debug distro.  The CD/DVD bootloader uses BIOS INT 0x13 0x42 to
 load Kernel.BIN.C which has been modified to also hold a small RAM drive
 (Drive A) that fits in the low 640k.  The bootloader starts in real mode
 and the kernel changes to long, 64-bit mode.  It loads the 64-bit compiler
@@ -305,7 +312,7 @@ I call $LK,"MakeBootDrvFile",A="FF:::/Demo/AcctExample/TOSDistro.CPP,MakeBootRes
   Drv('C');
   DistroPrep;
   MakeBootRescueDrvFile;
-  Auto(TOS_CDROM_DBG_CFG);
+  Auto(TOS_DVD_DBG_CFG);
   MakeOSDrvBootInstall('C','T');
   DelTree(TOS_DISTRO_DIR);
   CopyTree("C:/",TOS_DISTRO_DIR "/");
@@ -318,7 +325,7 @@ U0 MakeDbgDistro()
   ISOFileCreate(TOS_ISO_NAME,TOS_DISTRO_DIR "/*",,
 	TOS_DISTRO_DIR BOOT_DIR_KERNEL_BIN_C);
   DefinePrint("DD_TEMPLEOSDBG_SIZE",
-	"Download $TX,"TempleOS V3.07",D="DD_OS_NAME_VERSION"$ - Debug Distro (%0.1f MB)",
+	"Download $TX,"TempleOS V3.10",D="DD_OS_NAME_VERSION"$ - Debug Distro (%0.1f MB)",
 	0.1*(10*Size(TOS_ISO_NAME,"+s")/1024/1024));
   Drv('C');
 }
@@ -327,7 +334,7 @@ U0 StdDistroPrep()
 {
   Drv('C');
   DistroPrep;
-  Auto(STD_DISTRO_CDROM_CFG);
+  Auto(STD_DISTRO_DVD_CFG);
   MakeOSDrvBootInstall('C','T');
   DelTree(TOS_DISTRO_DIR);
   CopyTree("C:/",TOS_DISTRO_DIR "/");
@@ -366,7 +373,7 @@ U0 MakeLiteDistro()
   ISOFileCreate(TOS_ISO_NAME,TOS_DISTRO_DIR "/*",,
 	TOS_DISTRO_DIR BOOT_DIR_KERNEL_BIN_C);
   DefinePrint("DD_TEMPLEOSLITE_SIZE",
-	"Download $TX,"TempleOS V3.07",D="DD_OS_NAME_VERSION"$ - Lite Distro (%0.1f MB)",
+	"Download $TX,"TempleOS V3.10",D="DD_OS_NAME_VERSION"$ - Lite Distro (%0.1f MB)",
 	0.1*(10*Size(TOS_ISO_NAME,"+s")/1024/1024));
   Drv('C');
 }
@@ -388,6 +395,10 @@ FileManager, WindowManager, PCSpeaker, Documentation.
   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/Wb2/Files/UltraMenu.TXT.Z",
+	TOS_DISTRO_DIR "/PersonalMenu.TXT.Z");
+  Copy("C:/Demo/Games/EagleDive.CPP.Z",
+	TOS_DISTRO_DIR "/Misc");
 }
 U0 MakeUltraDistro()
 {
@@ -395,7 +406,7 @@ U0 MakeUltraDistro()
   ISOFileCreate(TOS_ISO_NAME,TOS_DISTRO_DIR "/*",,
 	TOS_DISTRO_DIR BOOT_DIR_KERNEL_BIN_C);
   DefinePrint("DD_TEMPLEOSULTRA_SIZE",
-	"Download $TX,"TempleOS V3.07",D="DD_OS_NAME_VERSION"$ - UltraLite Distro (%0.1f MB)",
+	"Download $TX,"TempleOS V3.10",D="DD_OS_NAME_VERSION"$ - UltraLite Distro (%0.1f MB)",
 	0.1*(10*Size(TOS_ISO_NAME,"+s")/1024/1024));
   Drv('C');
 }
@@ -473,18 +484,19 @@ U0 FreshenWebDir(U8 *dirname)
 U0 MakeWebSitePartial()
 {
   FreshenWebDir("/Home/Wb2");
+  FreshenWebDir("/Home/Wb2/Imgs");
   Drv('C');
 }
 
 U0 UpdateISODocDefines()
 {
   DefinePrint("DD_TEMPLEOSCD_SIZE",
-	"Download $TX,"TempleOS V3.07",D="DD_OS_NAME_VERSION"$ - Standard Distro (%0.1f MB)",
+	"Download $TX,"TempleOS V3.10",D="DD_OS_NAME_VERSION"$ - Standard Distro (%0.1f MB)",
 	0.1*(10*Size("D:/Wb/TempleOSCD.ISO","+s")/1024/1024));
   DefinePrint("DD_TEMPLEOSCD_K_SIZE",
 	"%d KB",Size("D:/Wb/TempleOSCD.ISO","+s")/1024);
   DefinePrint("DD_TEMPLEOSULTRA_SIZE",
-	"Download $TX,"TempleOS V3.07",D="DD_OS_NAME_VERSION"$ - UltraSmall Distro (%0.1f MB)",
+	"Download $TX,"TempleOS V3.10",D="DD_OS_NAME_VERSION"$ - UltraSmall Distro (%0.1f MB)",
 	0.1*(10*Size("D:/Wb/TempleOSUltra.ISO","+s")/1024/1024));
   DefinePrint("DD_TEMPLEOSULTRA_K_SIZE",
 	"%d KB",Size("D:/Wb/TempleOSUltra.ISO","+s")/1024);
@@ -498,8 +510,8 @@ public U0 MakeDistrosAndBackUp()
   progress4=*progress4_desc=0;
   progress4_max=14;
   AutoComplete;
-  WinMax;
   WinBorder;
+  WinMax;
   ChkAll; progress4++;
 
   MakeLineRepFile; progress4++;

Demo/AcctExample/TOSHolySpirit.CPP

@@ -127,7 +127,7 @@ class CTopMoviesForm
   U8	tag[STR_LEN];
   U8	special[STR_LEN];
   I64	timestamp;
-  I64	cert		fmtstr "$$DA,32,A=\"Movie #1-100 :%d\"$$\n";
+  I64	cert		fmtstr "$$DA-TRM,2,A=\"Movie #1-100 :%02d\"$$\n";
   I64	min;
   I64	sec;
 };
@@ -155,7 +155,7 @@ class CWebBibleForm
 class CYouTubeForm
 {
   U8	tag[STR_LEN];
-  U8	special[STR_LEN]	fmtstr "$$DA-P,STR_LEN-1,A=\"SerialNum:%s\"$$\n";
+  U8	special[STR_LEN] fmtstr "$$DA-P-TRM,11,A=\"SerialNum:%11s\"$$\n";
   I64	timestamp;
   I64	cert;
   I64	min		fmtstr "$$DA,32,A=\"Minutes  :%d\"$$\n";
@@ -165,7 +165,7 @@ class CYouTubeForm
 class CTopMoviesYouTubeForm
 {
   U8	tag[STR_LEN]	fmtstr "$$DA-P,STR_LEN-1,A=\"Movie    :%s\"$$\n";
-  U8	special[STR_LEN]	fmtstr "$$DA-P,STR_LEN-1,A=\"SerialNum:%s\"$$\n";
+  U8	special[STR_LEN] fmtstr "$$DA-P,STR_LEN-1,A=\"SerialNum:%s\"$$\n";
   I64	timestamp;
   I64	cert;
   I64	min		fmtstr "$$DA,32,A=\"Minutes  :%d\"$$\n";
@@ -175,7 +175,7 @@ class CTopMoviesYouTubeForm
 class CImgurForm
 {
   U8	tag[STR_LEN];
-  U8	special[STR_LEN]	fmtstr "$$DA-P,STR_LEN-1,A=\"SerialNum:%s\"$$\n";
+  U8	special[STR_LEN] fmtstr "$$DA-P,STR_LEN-1,A=\"SerialNum:%s\"$$\n";
   I64	timestamp;
   I64	cert;
   I64	min		fmtstr "$$DA,32,A=\"Width    :%d\"$$\n";
@@ -185,7 +185,7 @@ class CImgurForm
 class CWikipediaForm
 {
   U8	tag[STR_LEN]	fmtstr "$$DA-P,STR_LEN-1,A=\"Tag Text:%s\"$$\n";
-  U8	special[STR_LEN]	fmtstr "$$DA-P,STR_LEN-1,A=\"Index   :%s\"$$\n";
+  U8	special[STR_LEN] fmtstr "$$DA-P,STR_LEN-1,A=\"Index   :%s\"$$\n";
   I64	timestamp;
   I64	cert;
   I64	min;
@@ -195,7 +195,7 @@ class CWikipediaForm
 class CRandDecForm
 {
   U8	tag[STR_LEN];
-  U8	special[STR_LEN]	fmtstr "$$DA-P,STR_LEN-1,A=\"Line (Dec):%s\"$$\n";
+  U8	special[STR_LEN] fmtstr "$$DA-P,STR_LEN-1,A=\"Line (Dec):%s\"$$\n";
   I64	timestamp;
   I64	cert;
   I64	min;
@@ -205,7 +205,7 @@ class CRandDecForm
 class CRandHexForm
 {
   U8	tag[STR_LEN];
-  U8	special[STR_LEN]	fmtstr "$$DA-P,STR_LEN-1,A=\"Line (Hex):%s\"$$\n";
+  U8	special[STR_LEN] fmtstr "$$DA-P,STR_LEN-1,A=\"Line (Hex):%s\"$$\n";
   I64	timestamp;
   I64	cert;
   I64	min;
@@ -222,10 +222,22 @@ class CRandCertForm
   I64	sec;
 };
 
-class CRandHexBeaconForm
+class CRandHexBeacon5Form
 {
   U8	tag[STR_LEN];
-  U8	special[STR_LEN]	fmtstr "$$DA-P,STR_LEN-1,A=\"Line (Hex):%s\"$$\n";
+  U8	special[STR_LEN]
+			fmtstr "$$DA-P-TRM,5,A=\"Line (5-Digit Hex):%5s\"$$\n";
+  I64	timestamp	fmtstr "$$DA,32,A=\"TimeStamp :%d\"$$\n";
+  I64	cert;
+  I64	min;
+  I64	sec;
+};
+
+class CRandHexBeacon8Form
+{
+  U8	tag[STR_LEN];
+  U8	special[STR_LEN]
+			fmtstr "$$DA-P-TRM,8,A=\"Line (8-Digit Hex):%8s\"$$\n";
   I64	timestamp	fmtstr "$$DA,32,A=\"TimeStamp :%d\"$$\n";
   I64	cert;
   I64	min;
@@ -311,7 +323,53 @@ U0 MyBibleLines(U8 *st,I64 num_lines,I64 radix,Bool modulo,Bool plus_one)
   }
 }
 
-#define NIST_TIME_OFFSET	(-7788-local_time_offset/CDATE_FREQ)
+public U0 GodBooksPassage(U8 *files_find_mask,I64 len=512,
+	I64 rand_i32=MIN_I64,Bool full=FALSE)
+{//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 (full)
+      "%08X-",i;
+    if (tempde->user_data>=len)
+      i+=tempde->user_data+1-len;
+    if (full)
+      "%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 (full)
+    "\n%08X*%08X",rand_i32,i;
+  i*=rand_i32;
+  if (full)
+    "=%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\n\n$$RED$$%s$$FG$$\n",tempde->full_name,st2;
+	Free(st);
+      }
+    }
+    tempde=tempde->next;
+  }
+  DirTreeDel(tempde1);
+}
+
+#define NIST_TIME_OFFSET	(-7788-21-local_time_offset/CDATE_FREQ)
 #define NIST_TIME_TO_SWITCH	3
 
 public U0 NISTSync()
@@ -336,12 +394,13 @@ U0 InsMyURL()
   url->timestamp=
 	FloorI64((Now-Str2Date("1/1/1970"))/CDATE_FREQ+NIST_TIME_OFFSET-
 	NIST_TIME_TO_SWITCH,60);
-  switch (PopUpPickLst("NISTBeacon\0BibleGatewaySearch\0BibleGatewayVerse\0"
+  switch (PopUpPickLst("NISTBeacon5Bible\0NISTBeacon8Passage\0"
+	"BibleGatewaySearch\0BibleGatewayVerse\0"
 	"YouTube\0Imgur\0Wikipedia\0RandomNumbers.info\0Random.org\0PassWord\0"
 	"VirtualNotary\0Nist\0HotBits\0GenerateData\0WebBookMark\0"
 	"Roulette\0Movie\0")) {
     case 0:
-      if (DocForm(url(CRandHexBeaconForm *))) {
+      if (DocForm(url(CRandHexBeacon5Form *))) {
 	"$$TX,\"Guidelines for Talking with God.\","
 	      "HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\n";
 	tag=MStrPrint("https:/beacon.nist.gov/rest/record/%d",url->timestamp);
@@ -351,6 +410,17 @@ U0 InsMyURL()
       }
       break;
     case 1:
+      if (DocForm(url(CRandHexBeacon8Form *))) {
+	"$$TX,\"Guidelines for Talking with God.\","
+	      "HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\n";
+	tag=MStrPrint("https:/beacon.nist.gov/rest/record/%d",url->timestamp);
+	"$$TX,\"%Q\",HTML=\"%Q\"$$\n",tag,tag;
+	Free(tag);
+	GodBooksPassage("C:/Home/Wb2/Files/Text/*",,
+	      Str2I64(url->special,16),TRUE);
+      }
+      break;
+    case 2:
       if (DocForm(url(CWebBibleForm *))) {
 	tag=url->special;
 	st2=URLPercentSpaces(url->special);
@@ -363,7 +433,7 @@ U0 InsMyURL()
 	Free(st);
       }
       break;
-    case 2:
+    case 3:
       if (DocForm(url(CWebBibleForm *))) {
 	tag=url->special;
 	st2=URLPercentSpaces(url->special);
@@ -376,7 +446,7 @@ U0 InsMyURL()
 	Free(st);
       }
       break;
-    case 3:
+    case 4:
       if (DocForm(url(CYouTubeForm *))) {
 	if (url->min || url->sec)
 	  st=MStrPrint("%s&hl=enUS&start=%d",url->special,url->min*60+url->sec);
@@ -395,14 +465,14 @@ U0 InsMyURL()
 	Free(st);
       }
       break;
-    case 4:
+    case 5:
       if (DocForm(url(CImgurForm *))) {
 	"$$HC,\"<img src=\\\"http://i.imgur.com/%s\\\" "
 	      "width=\\\"%d\\\" height=\\\"%d\\\" alt=\\\"\\\">\"$$\n",
 	      url->special,url->min,url->sec;
       }
       break;
-    case 5:
+    case 6:
       if (DocForm(url(CWikipediaForm *))) {
 	tag=url->special;
 	st=MStrPrint("http://en.wikipedia.org/wiki/%s",url->special);
@@ -412,7 +482,7 @@ U0 InsMyURL()
 	Free(st);
       }
       break;
-    case 6:
+    case 7:
       if (DocForm(url(CRandDecForm *))) {
 	"$$TX,\"Guidelines for Talking with God\","
 	      "HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\n";
@@ -421,7 +491,7 @@ U0 InsMyURL()
 	MyBibleLines(url->special,20,10,FALSE,TRUE);
       }
       break;
-    case 7:
+    case 8:
       if (DocForm(url(CRandDecForm *))) {
 	"$$TX,\"Guidelines for Talking with God\","
 	      "HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\n";
@@ -430,7 +500,7 @@ U0 InsMyURL()
 	MyBibleLines(url->special,20,10,FALSE,FALSE);
       }
       break;
-    case 8:
+    case 9:
       if (DocForm(url(CRandDecForm *))) {
 	"$$TX,\"Guidelines for Talking with God\","
 	      "HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\n";
@@ -439,7 +509,7 @@ U0 InsMyURL()
 	MyBibleLines(url->special,20,10,FALSE,FALSE);
       }
       break;
-    case 9:
+    case 10:
       if (DocForm(url(CRandCertForm *))) {
 	"$$TX,\"Guidelines for Talking with God\","
 	      "HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\n";
@@ -453,7 +523,7 @@ U0 InsMyURL()
 	MyBibleLines(url->special,20,10,FALSE,FALSE);
       }
       break;
-    case 10:
+    case 11:
       if (DocForm(url(CRandHexForm *))) {
 	"$$TX,\"Guidelines for Talking with God\","
 	      "HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\n";
@@ -462,7 +532,7 @@ U0 InsMyURL()
 	MyBibleLines(url->special,20,16,TRUE,TRUE);
       }
       break;
-    case 11:
+    case 12:
       if (DocForm(url(CRandHexForm *))) {
 	"$$TX,\"Guidelines for Talking with God\","
 	      "HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\n";
@@ -471,7 +541,7 @@ U0 InsMyURL()
 	MyBibleLines(url->special,20,16,TRUE,TRUE);
       }
       break;
-    case 12:
+    case 13:
       if (DocForm(url(CRandDecForm *))) {
 	"$$TX,\"Guidelines for Talking with God\","
 	      "HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\n";
@@ -480,7 +550,7 @@ U0 InsMyURL()
 	MyBibleLines(url->special,20,10,FALSE,FALSE);
       }
       break;
-    case 13:
+    case 14:
       if (DocForm(url(CWebBookMarkForm *))) {
 	tag=st=WebBookMarks;
 	if (*url->tag)
@@ -489,17 +559,16 @@ U0 InsMyURL()
 	Free(st);
       }
       break;
-    case 14:
+    case 15:
       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/casino_game.html"
-	      "?mode=demo&game=136#gameId=136";
+	tag="https://www.dublinbet.com";
 	"$$TX,\"%Q\",HTML=\"%Q\"$$\n",tag,tag;
 	MyBibleLines(url->special,20,10,FALSE,FALSE);
       }
       break;
-    case 15:
+    case 16:
       if (DocForm(url(CTopMoviesForm *)) && (st=TopMoviesRead(,url->cert*2))) {
 	StrCpy(url->tag,st);
 	Free(st);
@@ -538,38 +607,5 @@ U0 InsMyURL()
   Free(url);
 }
 
-public U0 GodBooksPassage(U8 *files_find_mask,I64 len=512)
-{//Make God pick a book passage. $LK+PU,"Holy Spirit Instructions",A="FI:::/Adam/God/HSNotes.TXT"$
-  CDirEntry *tempm=FilesFind(files_find_mask,
-	FUF_RECURSE|FUF_JUST_FILES|FUF_JUST_TXT),
-	*tempm1=tempm;
-  I64 i=0;
-  U8 *st,*st2=NULL;
-  while (tempm) {
-    st=FileRead(tempm->full_name);
-    tempm->user_data=StrLen(st);
-    if (tempm->user_data>=len)
-      i+=tempm->user_data+1-len;
-    Free(st);
-    tempm=tempm->next;
-  }
-  i=(GodBits(24)*i)>>24;
-  tempm=tempm1;
-  while (tempm) {
-    if (!st2 && tempm->user_data>=len) {
-      i-=tempm->user_data+1-len;
-      if (i<0) {
-	st=FileRead(tempm->full_name);
-	st2=st+(tempm->user_data+1-len)+i;
-	st2[len]=0;
-	"%s\n\n%s\n",tempm->full_name,st2;
-	Free(st);
-      }
-    }
-    tempm=tempm->next;
-  }
-  DirTreeDel(tempm1);
-}
-
 if (FileFind("::/Home/Wb2/Files/Words/HappyWords.TXT"))
   GodInit("::/Home/Wb2/Files/Words/HappyWords.TXT");

Demo/AcctExample/TOSMisc.CPP

@@ -7,43 +7,31 @@ I64	fg_mode=FG_RAM_DRV;
 Bool	fg_on =FALSE;
 
 U0 FrameGrabberTask(I64)
-{//ffmpeg -r 8 -i VID%05d.BMP -y Movie.avi
+{//#!/bin/bash
+//for f in ./ScreenShots/*.Z; do ./Bin/TOSZ $$f; done
+  //ffmpeg -r 8 -i VID%05d.BMP -y Movie.avi
   I64 frame_num=0;
-  U8  buf[STR_LEN],buf2[STR_LEN];
+  U8  buf[STR_LEN],buf2[STR_LEN],*st_dir;
   F64 end_time=tS;
   Silent;	//no output to screen
-  if (fg_mode==FG_RAM_DRV) {
-    MkDir("B:/Temp/ScreenShots");
-    while (fg_on) {
-      StrPrint(buf,"B:/Temp/ScreenShots/VID%05d.BMP",frame_num++);
-      StrCpy(buf2,buf);
-      BMPScreenCapture(buf);
-      while (TRUE) {
-	end_time+=1.0/VIDEO_FRAME_RATE;
-	if (end_time<tS) {
-	  StrPrint(buf,"B:/Temp/ScreenShots/VID%05d.BMP",frame_num++);
-	  Copy(buf2,buf);
-	} else
-	  break;
-      }
-      SleepUntil(cnts.jiffies+(end_time-tS)*JIFFY_FREQ);
-    }
-  } else {
-    MkDir("::/Temp/ScreenShots");
-    while (fg_on) {
-      StrPrint(buf,"::/Temp/ScreenShots/VID%05d.BMP.Z",frame_num++);
-      StrCpy(buf2,buf);
-      BMPScreenCapture(buf);
-      while (TRUE) {
-	end_time+=1.0/VIDEO_FRAME_RATE;
-	if (end_time<tS) {
-	  StrPrint(buf,"::/Temp/ScreenShots/VID%05d.BMP.Z",frame_num++);
-	  Copy(buf2,buf);
-	} else
-	  break;
-      }
-      SleepUntil(cnts.jiffies+(end_time-tS)*JIFFY_FREQ);
+  if (fg_mode==FG_RAM_DRV)
+    st_dir="B:/Temp/ScreenShots";
+  else
+    st_dir="::/Temp/ScreenShots";
+  MkDir(st_dir);
+  while (fg_on) {
+    StrPrint(buf,"%s/VID%05d.BMP.Z",st_dir,frame_num++);
+    StrCpy(buf2,buf);
+    BMPScreenCapture(buf);
+    while (TRUE) {
+      end_time+=1.0/VIDEO_FRAME_RATE;
+      if (end_time<tS) {
+	StrPrint(buf,"%s/VID%05d.BMP.Z",st_dir,frame_num++);
+	Copy(buf2,buf);
+      } else
+	break;
     }
+    SleepUntil(cnts.jiffies+(end_time-tS)*JIFFY_FREQ);
   }
 }
 
@@ -52,17 +40,15 @@ I64 CopyVideo()
   I64 result=0;
   Del("D:/Temp/*.SND");
   if (fg_mode==FG_JUST_AUDIO)
-    SndFileCreate("D:/Temp/Audio",0.015,0.0,WF_SQUARE,0.45,0.35,2.5);
+    SndFileCreate("D:/Temp/Audio",0.115,0.0,WF_SQUARE,0.45,0.35,2.5);
   else {
-    SndFileCreate("D:/Temp/Audio",0.23,0.0,WF_SQUARE,0.45,0.35);
+    SndFileCreate("D:/Temp/Audio",0.115,0.0,WF_SQUARE,0.45,0.35);
     DelTree("D:/Temp/ScreenShots");
     if (fg_mode==FG_RAM_DRV) {
       result=CopyTree("B:/Temp/ScreenShots","D:/Temp/ScreenShots");
       "Unused Space: %12.6fMeg\n",UnusedDrvSpace('B')/1024.0/1024.0;
-    } else {
+    } else
       result=CopyTree("::/Temp/ScreenShots","D:/Temp/ScreenShots");
-      Unzip("D:/Temp/ScreenShots/*.Z");
-    }
     "$$BK,1$$Files Copied:%d$$BK,0$$ Time:%8.3fm\n",
 	  result,result/60.0/VIDEO_FRAME_RATE;
   }
@@ -79,7 +65,7 @@ public U0 FrameGrabberToggle()
       Snd(0);
       wall->record=snd.record=FALSE;
       Sleep(1000);
-      CopyVideo;
+      User("CopyVideo;Exit;\n");
     } else {
       fg_on=TRUE;
       if (fg_mode!=FG_JUST_AUDIO)
@@ -160,11 +146,11 @@ public U0 BMP2TXT(U8 *_in_name,U8 *_out_name=NULL)
   I64 dx,dy,score,best_score=MAX_I64;
   CDC *dc;
   CDoc *doc;
-  in_name=DftExt(_in_name,"BMP"),
-	if (_out_name)
-  out_name=DftExt(_out_name,"TXT.Z");
+  in_name=DftExt(_in_name,"BMP");
+  if (_out_name)
+    out_name=DftExt(_out_name,"TXT.Z");
   else
-  out_name=ChgExt(_in_name,"TXT.Z");
+    out_name=ChgExt(_in_name,"TXT.Z");
   if (dc=BMPRead(in_name)) {
     for (dy=-3;dy<=4;dy++)
       for (dx=-3;dx<=4;dx++) {
@@ -278,11 +264,11 @@ U0 AfterEgyptInAction()
   SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
   Adam("GodInit(\"/Adam/God/Vocab.TXT*\");");
   AutoComplete;
-  WinMax;
   WinBorder;
+  WinMax;
   if (!fg_on)
     PopUp("Sleep(50);FrameGrabberToggle;");
-  Ed("::/Home/Archive/AfterEgypt.TXT.Z");
+  Ed("::/Home/Videos/AfterEgypt.TXT.Z");
   Msg(MSG_KEY_DOWN_UP,CH_SPACE,0x3900000039); //<SPACE>
   ExeFile("::/Apps/AfterEgypt/Run");
   SettingsPop;
@@ -294,17 +280,25 @@ U0 CodeWalkThru()
 {
   SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
   AutoComplete;
-  WinMax;
   WinBorder;
+  WinMax;
   if (!fg_on)
     PopUp("Sleep(50);FrameGrabberToggle;");
-  Ed("::/Home/Archive/RandomCode.TXT.Z");
+  Ed("::/Home/Videos/RandomCode.TXT.Z");
   SettingsPop;
   Msg(MSG_KEY_DOWN_UP,'b',0x83000000830); //<ALT-b>
   tos_code_walk_thru++;
   TOSRegWrite;
 }
 
+U0 TempleOSTheme()
+{
+  if (!fg_on)
+    PopUp("Sleep(50);FrameGrabberToggle;");
+  ExeFile("::/Home/Wb2/Files/TempleOSTheme.CPP");
+  DocClear;
+}
+
 U0 TOSJukeVideo(I64 start=0,I64 end=10)
 {
   U8 *buf=FileRead("::/Misc/Bible.TXT.Z"); //Put in cache