TempleOSCDV4.08.ISO

Demo/AcctExample/DoOnce.CPP

@@ -9,6 +9,35 @@
 
 U0 DoOnce()
 {
+  switch (sys_boot_src.u16[0]) {
+    case BOOT_SRC_DVD:
+      "\nIf you answer 'No' you can play with\n"
+	    "the live CD without installing.\n\n"
+	    "Install onto hard drive ";
+      if (YorN) {
+	DocBottom;
+	ExeFile("::/Misc/OSInstall");
+	if (ExePrint("OSInstall(FALSE);")) {
+	  *sys_registry_doc->filename.name='C';
+	  "\n\n1) TAD\n\n";
+	  switch (GetI64("Staff Member Number:")) {
+	    case 1:
+	      RegWriteBranch("TempleOS/Staff",
+		    "#define PERSONAL_INITIALS \"TAD\"\n"
+		    "#define MACHINE_CFG %d\n",
+		    GetI64("Machine Cfg Number:")
+	      );
+	      break;
+	  }
+	  Del("C:/Home/DoDistro.CPP.Z");
+	  Del("D:/Home/DoDistro.CPP.Z");
+	  "\n\n\nAfter Reboot be sure to run MakeDistrosAndBackUp.\n\n";
+	  PressAKey;
+	  Reboot; //Too dangerous for amateurs until reboot.
+	}
+      }
+      break;
+  }
   if (FileFind("D:/Temp/Logs/access.log")) {
     Auto("\n\n%C",CH_ESC);
     WebLogRep("D:/Temp/Logs/*.log","D:/Temp/LogRep.TXT");

Demo/AcctExample/HomeKeyPlugIns.CPP

@@ -321,7 +321,7 @@ Bool MyPutKey(I64 ch,I64 sc)
 	if (sc&SCF_KEY_DESC)
 	  KeyDescSet("Cmd /JukeBox(Home/Downloads)");
 	else
-	  JukeBox("::/Home/Downloads/Psalmody");
+	  JukeBox("~/Downloads/Psalmody");
 	return TRUE;
       case 'P':
 	if (sc&SCF_KEY_DESC)

Demo/AcctExample/HomePkgs.CPP

@@ -1,14 +0,0 @@
-//Place this file in /Home and change
-//anything you want.
-
-#include "::/HomePkgs"
-#include "::/Apps/Psalmody/Load"
-#include "::/Demo/WebLogExample/WebLogRep"
-Cd("::/Home");;
-#include "::/Home/TOSCfg"
-#include "::/Home/TOSMisc"
-#include "::/Home/TOSToHtml"
-#include "::/Home/TOSDistro"
-#include "::/Home/TOSBlog"
-#include "::/Home/TOSHolySpirit"
-Cd("::/Home");;

Demo/AcctExample/HomeSys.CPP

@@ -9,7 +9,7 @@ U0 UserStartUp()
   WinToTop;
   WinZBufUpdate;
   Dir;
-  "$TX,"81,095",D="DD_TEMPLEOS_LOC_OFFICIAL"$LOC:";
+  "$TX,"80,142",D="DD_TEMPLEOS_LOC_OFFICIAL"$LOC:";
   CPURep;
 }
 
@@ -30,9 +30,9 @@ U0 StartUpTasks()
   WinToTop(user1);
   WinTileVert;
   "Boot     Time:%7.3fs\n",tS;
-  XTalk(user1,"Cd(\"::/Home\");#include \"DoOnce\";\n");
+  XTalk(user1,"Cd;#include \"DoOnce\";\n");
   Silent;
-  ACInit("/*;~*/Bible.TXT*;~*.TXT*"); //No Bible, no uncompressed TXT.
+  ACInit("/*;!*/Bible.TXT*;!*.TXT*"); //No Bible, no uncompressed TXT.
   Silent(OFF);
   "AutoComplete Time:%7.3fs\n",tS;
 }

Demo/AcctExample/HomeWrappers.CPP

@@ -1,8 +1,8 @@
 #help_index "Cmd Line (Typically)"
 
-#define FILEMASK_OFF_LIMITS "~*/Misc/PCIDevices.TXT*;~*/Misc/Bible.TXT*;"\
-	"~*/Downloads/Text/*;~*/Downloads/Words/*;~*/Downloads/Bin/*;"\
-	"~*/God/Vocab.TXT*"
+#define FILEMASK_OFF_LIMITS "!*/Misc/PCIDevices.TXT*;!*/Misc/Bible.TXT*;"\
+	"!*/Downloads/Text/*;!*/Downloads/Words/*;!*/Downloads/Bin/*;"\
+	"!*/God/Vocab.TXT*"
 
 public I64 F(U8 *needle_str,U8 *fu_flags=NULL)
 {//Find text in all text files.

Demo/AcctExample/MakeHome.CPP

@@ -0,0 +1,24 @@
+Cd(__DIR__);;
+
+//If these are not present in /Home, it uses the version in the root dir.  You
+//can make your own, modified, version of these files in your /Home directory.
+#include "~/HomeLocalize"
+
+#include "/Adam/Opt/Boot/MakeBoot"
+#include "/Adam/Opt/Utils/MakeUtils"
+MapFileLoad("::/Kernel/Kernel");
+MapFileLoad("::/Compiler/Compiler");
+
+#include "::/Apps/Psalmody/Load"
+#include "::/Demo/WebLogDemo/WebLogRep"
+#include "~/TOSCfg"
+#include "~/TOSMisc"
+#include "~/TOSToHtml"
+#include "~/TOSDistro"
+#include "~/TOSBlog"
+#include "~/TOSHolySpirit"
+
+#include "~/HomeKeyPlugIns"
+#include "~/HomeWrappers"
+#include "~/HomeSys"
+Cd("..");;

Demo/AcctExample/PersonalNotes.TXT

@@ -1,4 +1,5 @@
 $WW,1$$FG,5$$TX+CX,"TODO"$$FG$
+* $LK,"::/Demo/Games/RawHide.CPP"$ fix waterfall code so not in center.
 
 * Investigate why packet loss $LK,"Training Sleep(1)",A="FF:::/Adam/Training.CPP,Sleep(1)"$.
 
@@ -6,10 +7,6 @@ $WW,1$$FG,5$$TX+CX,"TODO"$$FG$
 
 * $LK,"SpriteEd",A="FI:::/Adam/Gr/SpriteEd.CPP"$ shift pts, Ctrl pt for ellipse/polygon w,h is off when rotated.
 
-* $LK,"SpriteMesh",A="FI:::/Adam/Gr/SpriteMesh.CPP"$: $LK,"R",A="MN:R"$("Mesh",...);?
-* $LK,"SpriteMesh",A="FI:::/Adam/Gr/SpriteMesh.CPP"$: Add change triangle color.
-* $LK,"SpriteMesh",A="FI:::/Adam/Gr/SpriteMesh.CPP"$: Add make-prism.
-
 * God said this is bad.  $LK,"FL:::/Adam/DolDoc/DocFind.CPP,41"$
 * Backward <SHIFT-F3> is broken?
 
@@ -57,6 +54,8 @@ $WW,1$$FG,5$$TX+CX,"TODO"$$FG$
 
 * Use pen_width and pen_height when clipping with pen_width>1.
 
+* $LK,"~/Downloads/Games/Rocks.CPP"$.
+
 * Asm LIST NOLIST bugs.
 
 * Review writing to same cache-line from multicore.  Do $LK,"CTask",A="MN:CTask"$->task_flags and others need to be in separate cache lines?
@@ -64,6 +63,14 @@ $WW,1$$FG,5$$TX+CX,"TODO"$$FG$
 * Fix $LK,"KbdLEDsSet",A="MN:KbdLEDsSet"$().
 * NumLock comes on with break key.
 
+* Hymns: mightest, finger
+
+* Get rid of JIFFY and HPET and just use tS.
+
+* Change %h*c so the character is not a arg?
+
+* $LK,"GrLineFat3",A="MN:GrLineFat3"$() needs work.
+
 
 $FG,5$$TX+CX,"TODO? Meh"$$FG$
 * Compiler: lock{} needs warn on invalid modes or something.
@@ -152,7 +159,7 @@ $FG,5$$TX+CX,"Bugs? Not really sure."$$FG$
 
 * $LK,"ChkDsk",A="MN:ChkDsk"$ alloc unalloced.  I don't know if I fixed this.
 
-* 1/?/2015,8/10/2015 Macro select in Menu did not go to shell?  No, I think just <CTRL-m> twice.  Not a bug.
+* 1/?/2015,8/10/2015 Macro sel in Menu did not go to shell?  No, I think just <CTRL-m> twice.  Not a bug.
 
 * 5/7/14:Something like $LK,"AFSetIP",A="MN:AFSetIP"$ caused hang, then reboot in TestSuite.
 * 5/7/14:#63 Maybe, $LK,"::/Demo/Graphics/Pick3D.CPP"$ crashed in TestSuite.
@@ -205,6 +212,8 @@ $ID,-5$
 $FG,5$$TX+CX,"Committee Needed"$$FG$
 * Make binary tree look-up using FUN_SEG symbol addresses, so we can eliminate fun_seg cache and wall-paper kludge?  All HolyC functions and glbl vars would have left-right for address search.
 
+* $LK,"MP DepthBuf",A="FF:::/Adam/Gr/SpriteMesh.CPP,dc->depth_buf=e->"$ is a kludge because of dc->depth_buf=NULL in various graphics routines.
+
 * Improve editor undo, add redo.
 
 * Compiler: F32?
@@ -261,7 +270,9 @@ $FG,5$$TX+CX,"Committee Needed"$$FG$
 
 * Note: We will never put multiple $LK,"Keyboard Tables",A="FI:::/Kernel/SerialDev/Keyboard.CPP"$.  Each country must make their own version of TempleOS.  The $LK,"Intel Factory ROM",A="FF:::/Doc/Demands.TXT,English"$ will have just English.  Our $LK,"Charter",A="FI:::/Doc/Charter.TXT"$ bans multiple country or architectures in the same version.
 
-* We are not doing UTF, but we will add cyrillic 8-bit Russian font on aux_font. <CTRL-ALT-f> will toggle fonts.  Or, we will redefine upper 128-255 ASCII characters and move 12 border chars to screen font codes 0-26?  $LK,"TextBorder",A="MN:TextBorder"$() $LK,"RawDr",A="MN:RawDr"$().  Add aux_font option with $LK,"chars_bmp_alpha",A="MN:chars_bmp_alpha"$ configured for any aux_font?
+* 12 border chars in screen font codes 0x02-0x0D.  $LK,"TextBorder",A="MN:TextBorder"$() $LK,"RawDr",A="MN:RawDr"$()  LineFeed shows-up in $FG,2$<CTRL-m>$FG$ PersonalMenu.
+
+* Super-simple high speed serial needs flow control.  $FG,2$<CTRL-s>$FG$ and $FG,2$<CTRL-q>$FG$?
 
 
 $FG,5$$TX+CX,"Inspirational Ideas"$$FG$
@@ -354,7 +365,7 @@ $FG,5$$TX+CX,"Uncategorized"$$FG$
 
 * $LK,"gr.screen_image",A="MN:CGrGlbls"$
   >Might want to do ZOOM in U8 graphics and convert screen capture to U8
-  >Might want to reverse bit order
+  >Might want to rev bit order
 
 * This $LK,"Fs->catch_except=TRUE",A="FF:::/Kernel/SrvCmd.CPP,Fs->catch_except=TRUE"$ causes problems because it
 catches divide and out-of-mem.  Not sure what to do, yet.
@@ -397,7 +408,7 @@ Do not seek your own wealth		$TX,"1 Corinthians 10:24",HTML="http://www.biblegat
 $FG,5$$TX+CX,"Misc Notes"$$FG$
 Intel CEO's name: Brian Krzanich
 >$FG,2$lspci -v$FG$
-Size:$TX,"17380 KB",D="DD_TEMPLEOSCD_K_SIZE"$
+Size:$TX,"17400 KB",D="DD_TEMPLEOSCD_K_SIZE"$
 
 $FG,5$$TX+CX,"My Web Bookmarks"$$FG$$WW,0$
 $TX,"My FireFox Bookmarks",HTML="http://www.templeos.org/Wb/Home/Downloads/Blog/Bookmarks"$

Demo/AcctExample/Registry.CPP

@@ -2,45 +2,48 @@ $TR-UL,"Adam"$
 $ID,2$$TR,"SysMsgFlags"$
 $ID,2$sys_msg_flags[0]=0xFF;
 $ID,-2$$TR,"SysRegVer"$
-$ID,2$registry_version=4.06;
-$ID,-2$$ID,-2$$TR-UL,"TempleOS"$
+$ID,2$registry_version=4.080;
+$ID,-2$$ID,-2$$TR-C-UL,"TempleOS"$
 $ID,2$$TR,"TOS"$
 $ID,2$I64 tos_code_walk_thru=105,tos_after_egypt_in_action=46;
 $ID,-2$$TR,"CircleTrace"$
 $ID,2$F64 best_score=4.9425;
 $ID,-2$$TR,"DiningStars"$
 $ID,2$F64 best_score=9999.0000;
+$ID,-2$$TR,"Staff"$
+$ID,2$#define PERSONAL_INITIALS "TAD"
+#define MACHINE_CFG 0
 $ID,-2$$TR,"BlackDiamond"$
 $ID,2$I64 best_score=9;
+$ID,-2$$TR,"EagleDive"$
+$ID,2$I64 best_score=8;
 $ID,-2$$TR,"DunGen"$
 $ID,2$F64 best_score=20.5295;
 $ID,-2$$TR,"CastleFrankenstein"$
 $ID,2$F64 best_score=33.8405;
 $ID,-2$$TR,"ZoneOut"$
 $ID,2$F64 best_score=8.1373;
+$ID,-2$$TR,"Varoom"$
+$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=22202;
 $ID,-2$$TR,"RawHide"$
 $ID,2$F64 best_score=96.1279;
-$ID,-2$$TR,"KeepAway"$
-$ID,2$I64 best_score0=0,best_score1=9999;
-$ID,-2$$TR,"Wenceslas"$
-$ID,2$F64 best_score=49.8074;
-$ID,-2$$TR,"BomberGolf"$
-$ID,2$I64 best_score=175;
-$ID,-2$$TR,"Varoom"$
-$ID,2$F64 best_score=46.2643;
-$ID,-2$$TR,"EagleDive"$
-$ID,2$I64 best_score=4;
 $ID,-2$$TR,"XCaliber"$
 $ID,2$I64 best_score=248;
 I64 msg_flags=1;
+$ID,-2$$TR,"Wenceslas"$
+$ID,2$F64 best_score=43.9944;
+$ID,-2$$TR,"BomberGolf"$
+$ID,2$I64 best_score=175;
+$ID,-2$$TR,"KeepAway"$
+$ID,2$I64 best_score0=68,best_score1=30;
 $ID,-2$$ID,-2$$TR,"DemoCompany"$
 $ID,2$
 $TR,"Game1"$
-$ID,2$F64 best_score=190.66292;
+$ID,2$F64 best_score=166.57305;
 $TR,"SimpleVal"$
-$ID,2$1313;
+$ID,2$1329;
 $ID,-2$$ID,-2$

Demo/AcctExample/TOSBlog.CPP

@@ -100,7 +100,8 @@ public U0 MakeWebSitePartial()
 public U0 Blog()
 {
   if (!FileFind(BlogLocalFile,,FUF_JUST_FILES))
-    Copy("::/Home/Downloads/Blog/DailyBlogHeader.TXT.Z",BlogLocalFile);
+    Copy("~/Web/" PERSONAL_INITIALS "/DailyBlogHeader.TXT.Z",
+	  BlogLocalFile);
   AutoComplete;
   WinBorder;
   WinMax;

Demo/AcctExample/TOSCfg.CPP

@@ -1,7 +1,12 @@
 #help_index "TOS"
 
+RegSetDftEntry("TempleOS/Staff",
+"#define PERSONAL_INITIALS \"TAD\"\n"
+"#define MACHINE_CFG 0\n"
+);
+RegExeBranch("TempleOS/Staff");
+
 #define PERSONAL_WEB		"http:/" "/www.templeos.org/Wb"
-#define PERSONAL_INITIALS	"TAD"
 #define BLOG_BASE		"/Home/Web/" PERSONAL_INITIALS "/Blog"
 #define DAILY_BASE		"/Home/Web/" PERSONAL_INITIALS "/DailyBlog"
 #define BLOG_LOCAL_BASE		"::" BLOG_BASE
@@ -29,16 +34,29 @@ U0 TOSBootRescueDrv2()
 
 U0 TOSInit()
 {
-  DefinePrint("CFG_RAM_DRVS",
-	"\"b\nScale2Mem(2048,0x100000,4*1024*1024*1024)\n\"");
-  DefinePrint("CFG_HARD_DRVS","\"\"");
-  DefinePrint("CFG_DVD_DRVS","\"\"");
-  DefinePrint("CFG_DSK_CACHE","\"Scale2Mem(0x80000,0x8000000)\n\"");
-  DefinePrint("TOS_HDS","\"CD\"");
-  DefinePrint("TOS_MASTER_BOOT_DRVS","\"C\"");
+  switch (MACHINE_CFG) {
+    case 1: //TAD Native Machine
+      DefinePrint("CFG_RAM_DRVS",
+	    "\"b\nScale2Mem(2048,0x100000,4*1024*1024*1024)\n\"");
+      DefinePrint("CFG_HARD_DRVS","\"cs0xFE00\n0xFE10\n0\"");
+      DefinePrint("CFG_DVD_DRVS","\"ts0x1F0\n1\"");
+      DefinePrint("CFG_DSK_CACHE","\"Scale2Mem(0x80000,0x8000000)\n\"");
+      DefinePrint("TOS_HDS","\"CD\"");
+      DefinePrint("TOS_MASTER_BOOT_DRVS","\"C\"");
+      break;
+    default:
+      DefinePrint("CFG_RAM_DRVS",
+	    "\"b\nScale2Mem(2048,0x100000,4*1024*1024*1024)\n\"");
+      DefinePrint("CFG_HARD_DRVS","\"\"");
+      DefinePrint("CFG_DVD_DRVS","\"\"");
+      DefinePrint("CFG_DSK_CACHE","\"Scale2Mem(0x80000,0x8000000)\n\"");
+      DefinePrint("TOS_HDS","\"CD\"");
+      DefinePrint("TOS_MASTER_BOOT_DRVS","\"C\"");
+  }
 } TOSInit;
 
 #define TOS_ISO_NAME	"B:/TempleOSCD.ISO"
+#define TOS_ISO_C_NAME	"B:/TempleOSCD.ISO.C"
 #define TOS_DISTRO_DIR	"B:/Distro"
 #define CFG_OPTS	"AutoMountIDE\nCT\n"
 #define CFG_DBG_OPTS	"AutoMountIDE\nCT"\

Demo/AcctExample/TOSDistro.CPP

@@ -1,4 +1,4 @@
-//The CFG defines are $LK,"::/Home/TOSCfg.CPP",A="FI:::/Demo/AcctExample/TOSCfg.CPP"$.
+//The CFG defines are $LK,"~/TOSCfg.CPP",A="FI:::/Demo/AcctExample/TOSCfg.CPP"$.
 
 #help_index "TOS"
 
@@ -68,10 +68,7 @@ public U0 CopySongs(U8 threshold='7')
 
 U0 DistroPrep()
 {
-  Del("/Demo/WebLogExample/WebLogRep.TXT*");
-  Del("/Demo/ReverseFileExample/PoemForeward.TXT*");
-  Del("/Demo/ToHtmlToTXTExample/Out*");
-  Del("/Home/NumBible.TXT.Z");
+  Del("/Home/Demo*");
   DelTree("/Home/*Temp.TXT.Z");
   if (FileFind("/Home/Downloads/Psalmody"))
     CopySongs;
@@ -97,7 +94,7 @@ U0 DistroPrep()
   if (FileFind("/Home/Downloads/Blog/YouTube.TXT.Z"))
     Sort("/Home/Downloads/Blog/YouTube.TXT.Z",,2);
 
-  //Once in a while, do $LK,"::/Home/Downloads/Utils/DblSpaceScan.CPP"$.
+  //Once in a while, do $LK,"~/Downloads/Utils/DblSpaceScan.CPP"$.
 
   CursorRem("/*");
   DelTree("/Demo/*.BI*");
@@ -223,7 +220,7 @@ I64 MakeLineRepFile()
   return res;
 }
 
-U0 TOSDistroPrep()
+U0 StaffDistroPrep()
 {/*This is the TempleOS internal distro.  Only run this on a
 virtual machine, not bare metal hardware because it's settings could cause
 problems.  The hard drive must be partitioned.	Install Std Distro, then
@@ -233,17 +230,18 @@ install this on top.
   DistroPrep;
   Auto(TOS_DVD_CFG);
   MakeOSDrvBootInstall('C','T');
+  Fmt('B',,FALSE,FSt_REDSEA);
   DelTree(TOS_DISTRO_DIR);
   CopyTree("C:/",TOS_DISTRO_DIR "/");
   Del(TOS_DISTRO_DIR "/" KERNEL_BIN_C);
 }
-U0 MakeTOSDistro()
+U0 MakeStaffDistro()
 {
-  TOSDistroPrep;
-  ISOFileCreate(TOS_ISO_NAME,TOS_DISTRO_DIR "/*",,
+  StaffDistroPrep;
+  ISO9660ISO(TOS_ISO_NAME,TOS_DISTRO_DIR "/*",,
 	TOS_DISTRO_DIR BOOT_DIR_KERNEL_BIN_C);
-  DefinePrint("DD_TEMPLEOSTS_SIZE",
-	"Download $TX,"TempleOS V4.06",D="DD_OS_NAME_VERSION"$ - T.S. Company Internal Distro (%0.1f MB)",
+  DefinePrint("DD_TEMPLEOSSTAFF_SIZE",
+	"Download $TX,"TempleOS V4.08",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');
 }
@@ -267,6 +265,7 @@ I call $LK,"MakeBootDrvFile",A="FF:::/Demo/AcctExample/TOSDistro.CPP,MakeBootRes
   MakeBootRescueDrvFile;
   Auto(TOS_DVD_DBG_CFG);
   MakeOSDrvBootInstall('C','T');
+  Fmt('B',,FALSE,FSt_REDSEA);
   DelTree(TOS_DISTRO_DIR);
   CopyTree("C:/",TOS_DISTRO_DIR "/");
   Del(TOS_DISTRO_DIR "/" KERNEL_BIN_C);
@@ -275,10 +274,10 @@ I call $LK,"MakeBootDrvFile",A="FF:::/Demo/AcctExample/TOSDistro.CPP,MakeBootRes
 U0 MakeDbgDistro()
 {
   DbgDistroPrep;
-  ISOFileCreate(TOS_ISO_NAME,TOS_DISTRO_DIR "/*",,
+  ISO9660ISO(TOS_ISO_NAME,TOS_DISTRO_DIR "/*",,
 	TOS_DISTRO_DIR BOOT_DIR_KERNEL_BIN_C);
   DefinePrint("DD_TEMPLEOSDBG_SIZE",
-	"Download $TX,"TempleOS V4.06",D="DD_OS_NAME_VERSION"$ - Debug Distro (%0.1f MB)",
+	"Download $TX,"TempleOS V4.08",D="DD_OS_NAME_VERSION"$ - Debug Distro (%0.1f MB)",
 	0.1*(10*Size(TOS_ISO_NAME,"+s")/1024/1024));
   Drv('C');
 }
@@ -289,6 +288,7 @@ U0 StdDistroPrep()
   DistroPrep;
   Auto(STD_DISTRO_DVD_CFG);
   MakeOSDrvBootInstall('C','T');
+  Fmt('B',,FALSE,FSt_REDSEA);
   DelTree(TOS_DISTRO_DIR);
   CopyTree("C:/",TOS_DISTRO_DIR "/");
   DelTree(TOS_DISTRO_DIR "/Home");
@@ -300,8 +300,20 @@ U0 StdDistroPrep()
 U0 MakeStdDistro()
 {
   StdDistroPrep;
-  ISOFileCreate(TOS_ISO_NAME,TOS_DISTRO_DIR "/*",,
+  ISO9660ISO(TOS_ISO_NAME,TOS_DISTRO_DIR "/*",,
 	TOS_DISTRO_DIR BOOT_DIR_KERNEL_BIN_C);
+  DefinePrint("DD_TEMPLEOSCD_SIZE",
+	"Download $TX,"TempleOS V4.08",D="DD_OS_NAME_VERSION"$ - Standard Distro (%0.1f MB)",
+	0.1*(10*Size(TOS_ISO_NAME,"+s")/1024/1024));
+  Drv('C');
+}
+U0 MakeStdRedSeaDistro()
+{
+  StdDistroPrep;
+  RedSeaISO(TOS_ISO_C_NAME,TOS_DISTRO_DIR,TOS_DISTRO_DIR BOOT_DIR_KERNEL_BIN_C);
+  DefinePrint("DD_TEMPLEOSCD_RS_SIZE",
+	"Download $TX,"TempleOS V4.08",D="DD_OS_NAME_VERSION"$ - Standard RedSea Distro (%0.1f MB)",
+	0.1*(10*Size(TOS_ISO_C_NAME,"+s")/1024/1024));
   Drv('C');
 }
 
@@ -323,10 +335,10 @@ Demos, Documentation.
 U0 MakeLiteDistro()
 {
   LiteDistroPrep;
-  ISOFileCreate(TOS_ISO_NAME,TOS_DISTRO_DIR "/*",,
+  ISO9660ISO(TOS_ISO_NAME,TOS_DISTRO_DIR "/*",,
 	TOS_DISTRO_DIR BOOT_DIR_KERNEL_BIN_C);
   DefinePrint("DD_TEMPLEOSLITE_SIZE",
-	"Download $TX,"TempleOS V4.06",D="DD_OS_NAME_VERSION"$ - Lite Distro (%0.1f MB)",
+	"Download $TX,"TempleOS V4.08",D="DD_OS_NAME_VERSION"$ - Lite Distro (%0.1f MB)",
 	0.1*(10*Size(TOS_ISO_NAME,"+s")/1024/1024));
   Drv('C');
 }
@@ -356,11 +368,20 @@ FileManager, WindowManager, PCSpeaker, Documentation.
 U0 MakeUltraDistro()
 {
   UltraDistroPrep;
-  ISOFileCreate(TOS_ISO_NAME,TOS_DISTRO_DIR "/*",,
+  ISO9660ISO(TOS_ISO_NAME,TOS_DISTRO_DIR "/*",,
 	TOS_DISTRO_DIR BOOT_DIR_KERNEL_BIN_C);
   DefinePrint("DD_TEMPLEOSULTRA_SIZE",
-	"Download $TX,"TempleOS V4.06",D="DD_OS_NAME_VERSION"$ - UltraLite Distro (%0.1f MB)",
-	0.1*(10*Size(TOS_ISO_NAME,"+s")/1024/1024));
+	"Download $TX,"TempleOS V4.08",D="DD_OS_NAME_VERSION"$ - UltraSmall Distro (%0.2f MB)",
+	0.01*(100*Size(TOS_ISO_NAME,"+s")/1024/1024));
+  Drv('C');
+}
+U0 MakeUltraRedSeaDistro()
+{
+  UltraDistroPrep;
+  RedSeaISO(TOS_ISO_C_NAME,TOS_DISTRO_DIR,TOS_DISTRO_DIR BOOT_DIR_KERNEL_BIN_C);
+  DefinePrint("DD_TEMPLEOSULTRA_RS_SIZE",
+	"Download $TX,"TempleOS V4.08",D="DD_OS_NAME_VERSION"$ - UltraSmall RedSea Distro (%0.2f MB)",
+	0.01*(100*Size(TOS_ISO_C_NAME,"+s")/1024/1024));
   Drv('C');
 }
 
@@ -368,26 +389,38 @@ U0 UpdateISODocDefines()
 {
   try {
     DefinePrint("DD_TEMPLEOSCD_SIZE",
-	  "Download $TX,"TempleOS V4.06",D="DD_OS_NAME_VERSION"$ - Standard Distro (%0.1f MB)",
+	  "Download $TX,"TempleOS V4.08",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_TEMPLEOSCD_RS_SIZE",
+	  "Download $TX,"TempleOS V4.08",D="DD_OS_NAME_VERSION"$ - Standard RedSea Distro (%0.1f MB)",
+	  0.1*(10*Size("D:/Wb/TempleOSCDRS.ISO","+s")/1024/1024));
+    DefinePrint("DD_TEMPLEOSCD_RS_K_SIZE",
+	  "%d KB",Size("D:/Wb/TempleOSCDRS.ISO","+s")/1024);
+
     DefinePrint("DD_TEMPLEOSULTRA_SIZE",
-	  "Download $TX,"TempleOS V4.06",D="DD_OS_NAME_VERSION"$ - UltraSmall Distro (%0.1f MB)",
-	  0.1*(10*Size("D:/Wb/TempleOSUltra.ISO","+s")/1024/1024));
+	  "Download $TX,"TempleOS V4.08",D="DD_OS_NAME_VERSION"$ - UltraSmall Distro (%0.2f MB)",
+	  0.01*(100*Size("D:/Wb/TempleOSUltra.ISO","+s")/1024/1024));
     DefinePrint("DD_TEMPLEOSULTRA_K_SIZE",
 	  "%d KB",Size("D:/Wb/TempleOSUltra.ISO","+s")/1024);
+
+    DefinePrint("DD_TEMPLEOSULTRA_RS_SIZE",
+	  "Download $TX,"TempleOS V4.08",D="DD_OS_NAME_VERSION"$ - UltraSmall RedSea Distro (%0.2f MB)",
+	  0.01*(100*Size("D:/Wb/TempleOSUltraRS.ISO","+s")/1024/1024));
+    DefinePrint("DD_TEMPLEOSULTRA_RS_K_SIZE",
+	  "%d KB",Size("D:/Wb/TempleOSUltraRS.ISO","+s")/1024);
   } catch
     Fs->catch_except=TRUE;
 }
-
 UpdateISODocDefines;
 
 public U0 MakeDistrosAndBackUp()
 {
   SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
   progress4=*progress4_desc=0;
-  progress4_max=14;
+  progress4_max=19;
   AutoComplete;
   WinBorder;
   WinMax;
@@ -401,11 +434,23 @@ public U0 MakeDistrosAndBackUp()
 
   MakeStdDistro; progress4++;
   DocClear;
-  Copy(TOS_ISO_NAME,"D:/Wb/TempleOSCD.ISO"); progress4++;
+  Move(TOS_ISO_NAME,"D:/Wb/TempleOSCD.ISO"); progress4++;
+
+  MakeStdRedSeaDistro; progress4++;
+  DocClear;
+  Move(TOS_ISO_C_NAME,"D:/Wb/TempleOSCDRS.ISO"); progress4++;
 
   MakeUltraDistro; progress4++;
   DocClear;
-  Copy(TOS_ISO_NAME,"D:/Wb/TempleOSUltra.ISO"); progress4++;
+  Move(TOS_ISO_NAME,"D:/Wb/TempleOSUltra.ISO"); progress4++;
+
+  MakeUltraRedSeaDistro; progress4++;
+  DocClear;
+  Move(TOS_ISO_C_NAME,"D:/Wb/TempleOSUltraRS.ISO"); progress4++;
+
+  MakeStaffDistro; progress4++;
+  DocClear;
+  Move(TOS_ISO_NAME,"D:/Wb/TempleOSStaff.ISO"); progress4++;
 
   UpdateISODocDefines;
 

Demo/AcctExample/TOSHolySpirit.CPP

@@ -15,7 +15,11 @@ U0 BadCodeJump()
     DocDel(doc);
     tempde=tempde->next;
   }
-  num=KbdMouseEvtTime>>GOD_BAD_BITS%cnt;
+
+  FifoU8Flush(god.fifo);
+  GodBitsIns(GOD_GOOD_BITS,KbdMouseEvtTime>>GOD_BAD_BITS);
+  num=GodBits(GOD_GOOD_BITS)%cnt;
+
   tempde=tempde1;
   while (tempde) {
     num-=tempde->user_data;
@@ -30,7 +34,7 @@ U0 BadCodeJump()
   Free(st);
 }
 
-U8 *WebBookMarks(U8 *filename="::/Home/Downloads/Blog/Bookmarks.html")
+U8 *WebBookMarks(U8 *filename="~/Downloads/Blog/Bookmarks.html")
 {
   U8 *st;
   CDocEntry *doc_e;
@@ -190,10 +194,11 @@ class CRandDecForm
   I64	sec;
 };
 
-class CRandHexForm
+class CRandHex5Form
 {
   U8	tag[STR_LEN];
-  U8	special[STR_LEN] fmtstr "$$DA-P,A=\"Line (Hex):%s\"$$\n";
+  U8	special[STR_LEN] fmtstr "$$DA-P-TRM,LEN=5,"
+	"A=\"Line (5-Digit Hex):%5s\"$$\n";
   I64	timestamp;
   I64	cert;
   I64	min;
@@ -618,7 +623,7 @@ U0 InsMyURL()
       }
       break;
     case:
-      if (DocForm(url(CRandHexForm *))) {
+      if (DocForm(url(CRandHex5Form *))) {
 	"$$TX,\"Guidelines for Talking with God\","
 	      "HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\n";
 	tag="http://qrng.anu.edu.au/NIST.php";
@@ -627,7 +632,7 @@ U0 InsMyURL()
       }
       break;
     case:
-      if (DocForm(url(CRandHexForm *))) {
+      if (DocForm(url(CRandHex5Form *))) {
 	"$$TX,\"Guidelines for Talking with God\","
 	      "HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\n";
 	tag="https://www.fourmilab.ch/hotbits/secure_generate.html";
@@ -677,5 +682,5 @@ U0 InsMyURL()
   Free(url);
 }
 
-if (FileFind("::/Home/Downloads/Words/LinuxDict.TXT"))
-  GodInit("::/Home/Downloads/Words/LinuxDict.TXT");
+if (FileFind("~/Downloads/Words/LinuxDict.TXT"))
+  GodInit("~/Downloads/Words/LinuxDict.TXT");

Demo/AcctExample/TOSMisc.CPP

@@ -124,7 +124,7 @@ public U0 JukeSong(I64 num)
   AutoComplete;
   if (!fg_on)
     FrameGrabberToggle;
-  JukeSongsPuppet("::/Home/Downloads/Psalmody",,num,num+1);
+  JukeSongsPuppet("~/Downloads/Psalmody",,num,num+1);
   if (fg_on)
     FrameGrabberToggle;
 }
@@ -134,7 +134,7 @@ public U0 JukeLines(I64 start_line,I64 end_line)
   AutoComplete;
   if (!fg_on)
     FrameGrabberToggle;
-  JukeSongsPuppet("::/Home/Downloads/Psalmody",,start_line*5,end_line*5);
+  JukeSongsPuppet("~/Downloads/Psalmody",,start_line*5,end_line*5);
   if (fg_on)
     FrameGrabberToggle;
 }
@@ -273,7 +273,7 @@ U0 AfterEgyptInAction()
   WinMax;
   if (!fg_on)
     PopUp("Sleep(50);FrameGrabberToggle;");
-  Ed("::/Home/Videos/AfterEgypt.TXT.Z");
+  Ed("~/Videos/AfterEgypt.TXT.Z");
   Msg(MSG_KEY_DOWN_UP,CH_SPACE,0x3900000039); //<SPACE>
   ExeFile("::/Apps/AfterEgypt/Run");
   SettingsPop;
@@ -289,7 +289,7 @@ U0 CodeWalkThru()
   WinMax;
   if (!fg_on)
     PopUp("Sleep(50);FrameGrabberToggle;");
-  Ed("::/Home/Videos/RandomCode.TXT.Z");
+  Ed("~/Videos/RandomCode.TXT.Z");
   SettingsPop;
   Msg(MSG_KEY_DOWN_UP,'b',0x83000000830); //<ALT-b>
   tos_code_walk_thru++;
@@ -300,7 +300,7 @@ U0 TempleOSTheme()
 {
   if (!fg_on)
     PopUp("Sleep(50);FrameGrabberToggle;");
-  ExeFile("::/Home/Downloads/Graphics/TempleOSTheme.CPP");
+  ExeFile("~/Downloads/Graphics/TempleOSTheme.CPP");
   DocClear;
 }
 
@@ -310,6 +310,6 @@ U0 TOSJukeVideo(I64 start=0,I64 end=10)
   Free(buf);
   AutoComplete;
   FrameGrabberToggle;
-  JukeSongsPuppet("::/Home/Downloads/Psalmody",,start,end);
+  JukeSongsPuppet("~/Downloads/Psalmody",,start,end);
   FrameGrabberToggle;
 }

Demo/AcctExample/TOSToHtml.CPP

@@ -1,4 +1,4 @@
-//This is a customized version of $LK,"::/Demo/ToHtmlToTXTExample/ToHtml.CPP"$.
+//This is a customized version of $LK,"::/Demo/ToHtmlToTXTDemo/ToHtml.CPP"$.
 
 #help_index "DolDoc/Conversion"
 //See $LK,"::/Doc/Credits.TXT"$.
@@ -33,25 +33,25 @@ U0 HtmlPutS(CDoc *doc,I64 u32_attr,I64 *_old_u32_attr,
 	} while (*_col&7);
 	break;
 
-      sub_switch_start:
+      start:
 	case 'ã':	ptr="pi";	break;
 	case 'é':	ptr="theta";	break;
 	case 'è':	ptr="phi";	break;
 	case 'ê':	ptr="omega";	break;
 	case 'ì':	ptr="inf";	break;
 	case 'æ':	ptr="u";	break;
-      sub_switch_end:
+      end:
 	DocPrint(doc,ptr);
 	*_col=*_col+StrLen(ptr);
 	break;
 
-      sub_switch_start:
+      start:
 	case CH_SHIFT_SPACE: ptr=" ";	break;
 	case '&':	ptr="&";	break;
 	case '<':	ptr="&lt;";	break;
 	case '>':	ptr="&gt;";	break;
 	case '"':	ptr="&quot;";	break;
-      sub_switch_end:
+      end:
 	DocPrint(doc,ptr);
 	*_col=*_col+1;
 	break;
@@ -83,7 +83,7 @@ U8 *URLBibleGateway(U8 *src)
 {
   U8 buf[STR_LEN],*dst=buf;
   if (!MemCmp(src,"BF:",3))
-   src+=3;
+    src+=3;
   while (*src) {
     if (*src==CH_SPACE || *src==',')
       *dst++='+';
@@ -92,8 +92,12 @@ U8 *URLBibleGateway(U8 *src)
     src++;
   }
   *dst=0;
-  return MStrPrint(
-	"http://www.biblegateway.com/passage/?search=%s&version=NIV",buf);
+  if (StrOcc(buf,'-'))
+    return MStrPrint(
+	  "http://www.biblegateway.com/passage/?search=%s&version=NIV",buf);
+  else
+    return MStrPrint(
+	  "http://www.biblegateway.com/verse/en/%s",buf);
 }
 
 U8 *TOSLinkCvt1(U8 *link_st)
@@ -122,12 +126,8 @@ U8 *TOSLinkCvt1(U8 *link_st)
 	  Yield;
 	if (!bible)
 	  bible=Adam("DocRead(\"%s\");",filename);
-	if (DocFind(bible,num,needle)) {
-	  if (StrOcc(link_st,'-'))
-	    res=URLBibleGateway(link_st);
-	  else
-	    res=TOSLinkCvt2(filename,bible->cur_entry->y+1);
-	}
+	if (DocFind(bible,num,needle))
+	  res=URLBibleGateway(link_st);
 	LBtr(&locks,0);
 	break;
       default:
@@ -171,7 +171,7 @@ public CDoc *Doc2Html(CDoc *doc_in,U8 *html_header=NULL,U8 *body_header=NULL,
 	  "<head>\n"
 	  "<meta http-equiv=\"Content-Type\" "
 	  "content=\"text/html;charset=US-ASCII\">\n"
-	  "<meta name=\"generator\" content=\"$TX,"TempleOS V4.06",D="DD_OS_NAME_VERSION"$\">\n";
+	  "<meta name=\"generator\" content=\"$TX,"TempleOS V4.08",D="DD_OS_NAME_VERSION"$\">\n";
   if (!body_header) body_header=
 	  "<body>\n"
 	  "<pre style=\"font-family:courier;font-size:10pt\">\n";
@@ -393,7 +393,7 @@ U0 TOSWebFile(U8 *name)
 	  "<meta name=\"keywords\" "
 	  "content=\"Operating System,64-Bit,64 Bit,"
 	  "Temple,OS,TempleOS,Free,Open Source,Public Domain,x86_64\">\n"
-	  "<meta name=\"generator\" content=\"$TX,"TempleOS V4.06",D="DD_OS_NAME_VERSION"$\">\n",
+	  "<meta name=\"generator\" content=\"$TX,"TempleOS V4.08",D="DD_OS_NAME_VERSION"$\">\n",
 
 	  "<body style=\"background-color:#55FFFF; border-style:solid;
 	  border-width:8px; border-color:#0000AA;