TempleOSTS_140317.ISO

Accts/Adam3.CPP

@@ -3,6 +3,6 @@
 
 #include "HOME/Adam3aLocalize"
 #include "HOME/Adam3bPkgs"
-#include "HOME/Adam3dKeyPlugIns"
+#include "HOME/Adam3cKeyPlugIns"
-#include "HOME/Adam3eWrappers"
+#include "HOME/Adam3dWrappers"
-#include "HOME/Adam3fSys"
+#include "HOME/Adam3eSys"

Accts/Adam3aLocalize.CPP

@@ -7,7 +7,7 @@ SetTypeMatic(0);
 //Set Time Zone
 local_time_offset=0*60*60*CDATE_FREQ; //Do daylight savings by hand
 
-//$AN,"","mouse_move_scale"$adjust these to set mouse move scale
+//$AN,"",A="mouse_move_scale"$adjust these to set mouse move scale
 mxx_scale=0.5;
 myy_scale=0.5;
 mzz_scale=1.0; //wheel

Accts/Adam3bPkgs.CPP

@@ -1,13 +1,13 @@
 //Change anything you want in this
 //acct file or others.
 
-Cd("/TempleOS/Adam/Boot");;
+Cd("/Adam/Boot");;
 #include "InsBoot"
-Cd("/TempleOS/Adam/Utils");;
+Cd("/Adam/Utils");;
 #include "Profiler"
 #include "Diff"
 #include "Grep"
-#include "LineCnt"
+#include "LineRep"
 #include "Merge"
 #include "S2T"
 #include "LinkChk"
@@ -17,9 +17,8 @@ Cd("/TempleOS/Adam/Utils");;
 #include "ToTXT"
 #include "BinRep"
 #include "FileBMP"
-Cd("/TempleOS/Apps");;
 
-MapFileLoad("::/TempleOS/Kernel/Kernel");
+MapFileLoad("::/Kernel/Kernel");
-MapFileLoad("::/TempleOS/Compiler/Compiler");
+MapFileLoad("::/Compiler/Compiler");
 
 Cd("HOME");;

Accts/Adam3cKeyPlugIns.CPP

@@ -4,20 +4,19 @@
 U0 FillInTime()
 {
   CDate cdt;
-  cdt=GetDateTime;
+  cdt=Now;
   "$$IV,1$$----%D %T----$$IV,0$$\n",cdt,cdt;
 }
 
-
 Bool MyPutKey(I64 ch,I64 sc)
 {  //ch=ASCII; sc=scancode
 
-//See $LK,"Char","HI:Char"$ for definition of scan codes.
+//See $LK,"Char",A="HI:Char"$ for definition of scan codes.
-//See $LK,"Keyboard Handling","FI:::/TempleOS/Doc/KeyBoard.TXT"$
+//See $LK,"Keyboard Handling",A="FI:::/Doc/KeyBoard.TXT"$
 
 //You can customize keys.  This routine
 //is called before the main editor
-//key handler $LK,"DocPutKey","MN:DocPutKey"$().
+//key handler $LK,"DocPutKey",A="MN:DocPutKey"$().
 //You can intercept any key.
 
 //Return TRUE if you completely
@@ -37,9 +36,9 @@ Bool MyPutKey(I64 ch,I64 sc)
 	    SetKeyDesc("Dollar/PURPLE");
 	} else {
 	  if (sc & SCF_SHIFT)
-	    "$$FG,LTPURPLE$$";
+	    "$$LTPURPLE$$";
 	  else
-	    "$$FG,PURPLE$$";
+	    "$$PURPLE$$";
 	}
 	break;
       case SC_F2:
@@ -50,9 +49,9 @@ Bool MyPutKey(I64 ch,I64 sc)
 	    SetKeyDesc("Dollar/RED");
 	} else {
 	  if (sc & SCF_SHIFT)
-	    "$$FG,LTRED$$";
+	    "$$LTRED$$";
 	  else
-	    "$$FG,RED$$";
+	    "$$RED$$";
 	}
 	break;
       case SC_F3:
@@ -63,9 +62,9 @@ Bool MyPutKey(I64 ch,I64 sc)
 	    SetKeyDesc("Dollar/GREEN");
 	} else {
 	  if (sc & SCF_SHIFT)
-	    "$$FG,LTGREEN$$";
+	    "$$LTGREEN$$";
 	  else
-	    "$$FG,GREEN$$";
+	    "$$GREEN$$";
 	}
 	break;
       case SC_F4:
@@ -76,18 +75,11 @@ Bool MyPutKey(I64 ch,I64 sc)
 	    SetKeyDesc("Dollar/Default Color");
 	} else {
 	  if (sc & SCF_SHIFT)
-	    "$$FG,LTBLUE$$";
+	    "$$LTBLUE$$";
 	  else
 	    "$$FG$$";
 	}
 	break;
-      case SC_F6:
-	if (sc&SCF_KEY_DESC) {
-	  if (!(sc & SCF_SHIFT))
-	    SetKeyDesc("Cmd/Init WordStat LT");
-	} else if (!(sc & SCF_SHIFT))
-	  PopUp("WSInit(\"/TempleOS/*;~*Bible.TXT*\");");
-	break;
       case SC_F7:
 	if (sc&SCF_KEY_DESC)
 	  SetKeyDesc("Misc/Insert Datetime");
@@ -125,8 +117,8 @@ Bool MyPutKey(I64 ch,I64 sc)
 	    if (sc&SCF_KEY_DESC)
 	      SetKeyDesc("Edit/Put Link to Cur Pos on Clipboard");
 	    else {
-	      ClipBoardDel;
+	      ClipboardDel;
-	      DocPrint(sys_clipboard_doc,"$$LK-A,\"FL:%s,%d\"$$",
+	      DocPrint(sys_clipboard_doc,"$$LK,\"FL:%s,%d\"$$",
 		DocPut->filename.name,DocPut->cur_entry->y+1);
 	    }
 	    return TRUE;
@@ -135,10 +127,10 @@ Bool MyPutKey(I64 ch,I64 sc)
 	      SetKeyDesc("Edit/Place Anchor, Put Link to Clipboard");
 	    else {
 	      i=RandU32;
-	      ClipBoardDel;
+	      ClipboardDel;
-	      DocPrint(sys_clipboard_doc,"$$LK,\"<TODO>\",\"FA:%s,ANC%d\"$$",
+	      DocPrint(sys_clipboard_doc,"$$LK,\"<TODO>\",A=\"FA:%s,ANC%d\"$$",
 		DocPut->filename.name,i);
-	      "$$AN,\"<TODO>\",\"ANC%d\"$$",i;
+	      "$$AN,\"<TODO>\",A=\"ANC%d\"$$",i;
 	    }
 	    return TRUE;
 

Accts/Adam3dWrappers.CPP

@@ -0,0 +1,27 @@
+//Change anything you want in this
+//acct file or others.
+
+#help_index "Utils;Cmd Line (Typically)"
+
+//These are customized quick commands.
+//Feel free to add more or change.
+public I64 F(U8 *needle_str,U8 *fu_flags=NULL)
+{
+  return Grep(needle_str,"/*",fu_flags);
+}
+
+public I64 R(U8 *needle_str,U8 *replace_text=NULL,U8 *fu_flags="+l-i")
+{
+  return Grep(needle_str,"/*",fu_flags,replace_text);
+}
+
+public I64 FD(U8 *needle_str,U8 *fu_flags=NULL)
+{
+  return Grep(needle_str,"*",fu_flags);
+}
+
+public I64 RD(U8 *needle_str,U8 *replace_text=NULL,U8 *fu_flags="+l-i")
+{
+  return Grep(needle_str,"*",fu_flags,replace_text);
+}
+#help_index ""

Accts/Adam3eSys.CPP

@@ -3,22 +3,22 @@
 
 U0 UserStartUp()
 { //Run each time a user a spawned
-  UseTermDoc;
+  DocTermNew;
-  Type("::/TempleOS/Doc/Start.TXT");
+  Type("::/Doc/Start.TXT");
   LBts(&Fs->display_flags,DISPLAYf_SHOW);
+  WinToTop;
   WinZBufUpdate;
-  if (!IsSysDeterministic)
+  Preempt(ON);
-    Preempt(ON);
   Dir;
 }
 
 U0 SrvStartUp()
 { //Run each time a srv task is spawned.
-  UseTermDoc;
+  DocTermNew;
   LBts(&Fs->display_flags,DISPLAYf_SHOW);
+  WinToTop;
   WinZBufUpdate;
-  if (!IsSysDeterministic)
+  Preempt(ON);
-    Preempt(ON);
 }
 
 U0 StartUpTasks()
@@ -28,12 +28,11 @@ U0 StartUpTasks()
   user2=SpawnUser;
   WinToTop(user1);
   WinTileVert;
-  if (!IsSysDeterministic)
+  PopUp("#include \"::/Adam/Start\";");
-    PopUp("#include \"::/TempleOS/Adam/Start\";");
   "Boot Time:%7.3fs\n",tS;
-  XTalk(user1,"Cd(\"HOME\");#include \"DoItOnce\";\n");
+  XTalk(user1,"Cd(\"HOME\");#include \"DoOnce\";\n");
   Silent(ON);	//no output to screen
-  WSInit("/TempleOS/*;~*Bible.TXT*");
+  WSInit("/*;~*Bible.TXT*");
   Silent(OFF); //no output to screen
 }
 

Accts/DoOnce.CPP

@@ -1,16 +1,16 @@
 //This file is executed by the
 //first terminal window upon start-up.
-//See $LK,"DoItOnce","FF:HOME/Adam3fSys.CPP,DoItOnce"$ and $LK,"Acct Files","FF:::/TempleOS/Doc/GuideLines.TXT,ACCT FILES"$.
+//See $LK,"DoOnce",A="FF:HOME/Adam3eSys.CPP,DoOnce"$ and $LK,"Acct Files",A="FF:::/Doc/GuideLines.TXT,ACCT FILES"$.
 
 //It goes in your HOME directory and
 //you can customize it.
 
 //Delete this to get rid of
 //default start-up msg.
-Type("::/TempleOS/Doc/Customize.TXT");
+Type("::/Doc/Customize.TXT");
 
 "\nTake Tour";
 if (YorN) {
-  Cd("::/TempleOS/Misc/Tour");
+  Cd("::/Misc/Tour");
   AutoFile("Tour");
 }

Accts/Install/Adam3eSys.CPP

@@ -3,32 +3,32 @@
 
 U0 UserStartUp()
 { //Run each time a user a spawned
-  UseTermDoc;
+  DocTermNew;
-  Type("::/TempleOS/Doc/Start.TXT");
+  Type("::/Doc/Start.TXT");
   LBts(&Fs->display_flags,DISPLAYf_SHOW);
+  WinToTop;
   WinZBufUpdate;
-  if (!IsSysDeterministic)
+  Preempt(ON);
-    Preempt(ON);
 }
 
 U0 SrvStartUp()
 { //Run each time a srv task is spawned.
-  UseTermDoc;
+  DocTermNew;
   LBts(&Fs->display_flags,DISPLAYf_SHOW);
+  WinToTop;
   WinZBufUpdate;
-  if (!IsSysDeterministic)
+  Preempt(ON);
-    Preempt(ON);
 }
 
 U0 StartUpTasks()
 {
   CTask *user1,*user2;
   user1=SpawnUser;
-  user2=SpawnUser;
+  user2=SpawnUser("Ed(\"::/Doc/Install.TXT.Z\");\n");
   WinToTop(user1);
   WinTileVert;
   "Boot Time:%7.3fs\n",tS;
-  XTalk(user1,"Cd(\"HOME\");#include \"DoItOnce\";\n");
+  XTalk(user1,"Cd(\"HOME\");#include \"DoOnce\";\n");
   Silent(ON);	//no output to screen
   WSInit;
   Silent(OFF); //no output to screen

Accts/Install/DoOnce.CPP

@@ -19,14 +19,14 @@ U0 VMInstallBoot(CTask *task,U8 cd_drv,U8 drv,U8 *acct_name,
   Free(st1);
   Free(st2);
 
-  st1=MPrint("%C:/TempleOS/Accts/%s",drv,acct_name);
+  st1=MPrint("%C:/Accts/%s",drv,acct_name);
   MkDir(st1);
-  Copy("::/TempleOS/Demo/MakeDistro.CPP.Z",st1);
+  Copy("::/Misc/MakeDistro.CPP.Z",st1);
   Free(st1);
 
   XTalkWait(task,
-    "MakeOSInstallPrtBootLoader('%C');\n"
+    "MakeOSPrtBootInstall('%C');\n"
-    "B1\n0x20000\n",drv);
+    "\nB1\n0x20000\n",drv);
 
   if (ata_drv)
     XTalkWait(task,"C2p%d\n",ata_drv->num);
@@ -37,7 +37,7 @@ U0 VMInstallBoot(CTask *task,U8 cd_drv,U8 drv,U8 *acct_name,
     "\n"   //Exit Drives
     "%s\n" //Acct
     "\n"   //Dsk Cache
-    "\n",	//Options
+    "\n",  //Options
     acct_name);
 }
 
@@ -69,7 +69,7 @@ U0 VMInstallWizard()
   if (VMPrtDsk(task,ata_drv)) {
     VMInstallBoot(task,*sys_acct,'C',acct_name,ata_drv,atapi_drv);
     VMInstallBoot(task,*sys_acct,'D',acct_name,ata_drv,atapi_drv);
-    InstallMasterBootLoader('C');
+    MasterBootIntall('C');
   }
   LinkedLstDel(root);
   Free(acct_name);
@@ -81,10 +81,9 @@ U0 VMInstallWizard()
 U0 RegularInstallWizard()
 {
   I64 unit;
-  U8 ch,*base0,*base1,*ms,*dst,*acct_name;
+  U8 *base0,*base1,*ms,*dst,*acct_name,*st1,*st2,*new_home_str;
-  U8 *st1,*st2,*new_home_str;
   CATARep *root=NULL,*tempha;
-  I64 num_hints;
+  I64 ch,num_hints;
   CTask *task;
 
   while (TRUE) {
@@ -104,44 +103,39 @@ U0 RegularInstallWizard()
   SetWinVert(Fs->win_top,(Fs->win_top+Fs->win_bottom)>>2-1,task);
   SetWinVert(task->win_bottom+3,Fs->win_bottom);
   WinToTop(Fs);
-  XTalk(task,"Mount;\n");
+  XTalk(task,"Mount;\nC2 ");
-  XTalk(task,"C");
-  XTalk(task,"2 ");
 
   num_hints=ATARep(FALSE,,&root);
-  "\nInclude '$$FG,PURPLE$$0x$$FG$$' for hexidecimal numbers.\n\n";
+  "\nInclude '$$PURPLE$$0x$$FG$$' for hexidecimal numbers.\n\n";
   while (TRUE) {
     base0=PmtStr("Hard Drive I/O Port Base0  : ");
-    if (0<A2I(base0)<=0xFFFF)
+    if (0<A2I64(base0)<=0xFFFF)
       break;
     Free(base0);
   }
-  if (1<=A2I(base0)<=num_hints) {
+  if (1<=A2I64(base0)<=num_hints) {
-    tempha=ATARepFind(&root,A2I(base0));
+    tempha=ATARepFind(&root,A2I64(base0));
     Free(base0);
     base0=MPrint("0x%X",tempha->base0);
     base1=MPrint("0x%X",tempha->base1);
     ms	 =MPrint("0x%X",tempha->unit);
-    unit=A2I(ms);
+    unit=A2I64(ms);
   } else {
     while (TRUE) {
       base1=PmtStr("Hard Drive I/O Port Base1  : ");
-      if (0<A2I(base1)<=0xFFFF)
+      if (0<A2I64(base1)<=0xFFFF)
 	break;
       Free(base1);
     }
     while (TRUE) {
-      ms =PmtStr("Unit--$$FG,PURPLE$$0$$FG$$=Master or $$FG,PURPLE$$1$$FG$$=Slave: ","0");
+      ms =PmtStr("Unit--$$PURPLE$$0$$FG$$=Master or $$PURPLE$$1$$FG$$=Slave: ","0");
-      unit=A2I(ms);
+      unit=A2I64(ms);
       if (0<=unit<=1)
 	break;
     }
   }
   LinkedLstDel(root);
-  XTalk(task,"%s\n",base0);
+  XTalkWait(task,"%s\n%s\n%C\n",base0,base1,'0'+unit);
-  XTalk(task,"%s\n",base1);
-  XTalk(task,"%C",'0'+unit);
-  XTalkWait(task,"\n");
   PrtRep;
   while (TRUE) {
     dst=PmtStr("\nDestination Partition Letter: ");
@@ -151,15 +145,15 @@ U0 RegularInstallWizard()
   }
 
   NewLine;
-  st1=MPrint("%C:/TempleOS",*sys_acct);
+  st1=MPrint("%C:/",*sys_acct);
-  st2=MPrint("%C:/TempleOS",*dst);
+  st2=MPrint("%C:/",*dst);
 
-  "$$FG,RED$$Format %C Partition?$$FG$$\n",*dst;
+  "$$RED$$Format %C Partition?$$FG$$\n",*dst;
   if (YorN) {
     NewLine;
     while (TRUE) {
-    "$$FG,PURPLE$$1$$FG$$) Use FAT32\n"
+    "$$PURPLE$$1$$FG$$) Use FAT32\n"
-      "$$FG,PURPLE$$2$$FG$$) Use RedSea\n"
+      "$$PURPLE$$2$$FG$$) Use RedSea\n"
       "\nFile System Type: ";
       ch=GetChar;
       NewLine;
@@ -167,31 +161,21 @@ U0 RegularInstallWizard()
 	break;
     }
     if (ch=='1')
-      Fmt(*dst,TRUE,FALSE,PT_FAT32);
+      Fmt(*dst,,FALSE,PT_FAT32);
     else
-      Fmt(*dst,TRUE,FALSE,PT_REDSEA);
+      Fmt(*dst,,FALSE,PT_REDSEA);
-  } else {
-  "\n$$BK,1$$WARNING$$BK,0$$ if you answer yes to the following "
-    "you will lose all TempleOS files in your /TempleOS directory tree.\n"
-    "Delete %s Directory ",st2;
-    if (YorN)
-      DelTree(st2);
-    NewLine;
   }
   CopyTree(st1,st2);
-  st2=MPrint("%C:/0000Boot",*dst);
-  MkDir(st2);
-  Free(st2);
   st2=MPrint("%C:/Temp",*dst);
   MkDir(st2);
   Free(st2);
 
-  new_home_str=MPrint("%C:/TempleOS/Accts/%s",*dst,acct_name);
+  new_home_str=MPrint("%C:/Accts/%s",*dst,acct_name);
   MkDir(new_home_str);
-  Copy("::/TempleOS/Demo/MakeDistro.CPP.Z",new_home_str);
+  Copy("::/Misc/MakeDistro.CPP.Z",new_home_str);
   XTalkWait(task,
-  "MakeOSInstallPrtBootLoader('%C');\n"
+  "MakeOSPrtBootInstall('%C');\n"
-  "B1\n0x20000\n"
+  "\nB1\n0x20000\n"
   "C"
   "2p"
   "%s\n"
@@ -202,10 +186,10 @@ U0 RegularInstallWizard()
   "\n"	 //Dsk Cache
   "\n",	//Options
   *dst,base0,base1,'0'+unit,acct_name);
-  "$$FG,RED$$Install Master Boot loader?$$FG$$";
+  "$$RED$$Install Master Boot loader?$$FG$$";
   if (YorN) {
     NewLine;
-    InstallMasterBootLoader(*dst);
+    MasterBootIntall(*dst);
   }
   Free(new_home_str);
   Free(acct_name);
@@ -221,19 +205,13 @@ U0 RegularInstallWizard()
 U0 DoInstall()
 {
   I64 pmt_reboot;
-  CTask *task=Fs->next_task;
-  while (task->user_num!=2 && task!=Fs)
-    task=task->next_task;
-  if (task->user_num==2)
-    XTalk(task,"Ed(\"::/TempleOS/Doc/Install.TXT.Z\");\n");
-
   NewLine(5);
   "Install on virtual machine ";
   if (pmt_reboot=YorN)
     VMInstallWizard();
   else {
     "\n\nThis wizard works if you have a partition ready.  "
-    "You can partition the drive or MakeOSInstallPrtBootLoader() "
+    "You can partition the drive or MakeOSPrtBootInstall() "
     "with more options if you do it by hand, not using this wizard.\n\n"
     "Continue Install Wizard ";
     if (pmt_reboot=YorN)

Accts/TS/Adam3bPkgs.CPP

@@ -0,0 +1,8 @@
+#include "/Accts/Adam3bPkgs"
+
+#include "/Apps/MusicOrgan/Load"
+Cd("HOME");;
+#include "/Accts/TS/TSAdam"
+#include "/Accts/TS/TSDistro"
+#include "/Accts/TS/TSHolySpirit"
+Cd("HOME");;

Accts/TS/Adam3cKeyPlugIns.CPP

@@ -4,29 +4,25 @@
 U0 FillInTime()
 {
   CDate cdt;
-  cdt=GetDateTime;
+  cdt=Now;
   "$$IV,1$$----%D %T----$$IV,0$$\n",cdt,cdt;
 }
 
-#define WS_F6		0
-#define WS_SHIFT_F6	1
-I64 my_wordstat=WS_F6;
-
 Bool MyPutKey(I64 ch,I64 sc)
 {  //ch=ASCII; sc=scancode
 
-//See $LK,"Char","HI:Char"$ for definition of scan codes.
+//See $LK,"Char",A="HI:Char"$ for definition of scan codes.
-//See $LK,"Keyboard Handling","FI:::/TempleOS/Doc/KeyBoard.TXT"$
+//See $LK,"Keyboard Handling",A="FI:::/Doc/KeyBoard.TXT"$
 
 //You can customize keys.  This routine
 //is called before the main editor
-//key handler $LK,"DocPutKey","MN:DocPutKey"$().
+//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],old_wordstat;
+  I64 i,sc2=sc.u8[0];
 
   if (SC_F1<=sc2<=SC_F10 &&
       sc&SCF_ALT &&
@@ -40,9 +36,9 @@ Bool MyPutKey(I64 ch,I64 sc)
 	    SetKeyDesc("Dollar/PURPLE");
 	} else {
 	  if (sc & SCF_SHIFT)
-	    "$$FG,LTPURPLE$$";
+	    "$$LTPURPLE$$";
 	  else
-	    "$$FG,PURPLE$$";
+	    "$$PURPLE$$";
 	}
 	break;
       case SC_F2:
@@ -53,9 +49,9 @@ Bool MyPutKey(I64 ch,I64 sc)
 	    SetKeyDesc("Dollar/RED");
 	} else {
 	  if (sc & SCF_SHIFT)
-	    "$$FG,LTRED$$";
+	    "$$LTRED$$";
 	  else
-	    "$$FG,RED$$";
+	    "$$RED$$";
 	}
 	break;
       case SC_F3:
@@ -66,9 +62,9 @@ Bool MyPutKey(I64 ch,I64 sc)
 	    SetKeyDesc("Dollar/GREEN");
 	} else {
 	  if (sc & SCF_SHIFT)
-	    "$$FG,LTGREEN$$";
+	    "$$LTGREEN$$";
 	  else
-	    "$$FG,GREEN$$";
+	    "$$GREEN$$";
 	}
 	break;
       case SC_F4:
@@ -79,61 +75,11 @@ Bool MyPutKey(I64 ch,I64 sc)
 	    SetKeyDesc("Dollar/Default Color");
 	} else {
 	  if (sc & SCF_SHIFT)
-	    "$$FG,LTBLUE$$";
+	    "$$LTBLUE$$";
 	  else
 	    "$$FG$$";
 	}
 	break;
-      case SC_F5:
-	if (sc&SCF_KEY_DESC) {
-	  if (sc & SCF_SHIFT)
-	    SetKeyDesc("God Passage");
-	  else
-	    SetKeyDesc("God Word");
-	} else {
-	  //$LK-A,"::/TempleOS/Apps/HolySpirit/HSNotes.TXT"$
-	  DocRecalc(DocPut);
-	  if (DocPut->cur_entry->settings->cur_text_attr&0xF!=RED)
-	    "$$FG,RED$$";
-	  if (sc & SCF_SHIFT)
-	    RandQuote;
-	  else {
-	    if (my_wordstat!=WS_SHIFT_F6) {
-	      old_wordstat=TaskValidate(ws_task);
-	      my_wordstat=WS_SHIFT_F6;
-	      PopUp("WSInit(\"::/TempleOS/Apps/HolySpirit/Vocab.TXT*\");");
-	      while (!Bt(&ws_flags,WSf_INIT_IN_PROGRESS)) //Kinda risky
-		Yield;
-	      while (Bt(&ws_flags,WSf_INIT_IN_PROGRESS))
-		Yield;
-	      WordStat(old_wordstat);
-	    }
-	    RandWord;
-	  }
-	}
-	break;
-      case SC_F6:
-	if (sc&SCF_KEY_DESC) {
-	  if (sc & SCF_SHIFT)
-	    SetKeyDesc("Cmd/Init WordStat Spirit");
-	  else
-	    SetKeyDesc("Cmd/Init WordStat TempleOS");
-	} else {
-	  old_wordstat=TaskValidate(ws_task);
-	  if (sc & SCF_SHIFT) {
-	    my_wordstat=WS_SHIFT_F6;
-	    PopUp("WSInit(\"::/TempleOS/Apps/HolySpirit/Vocab.TXT*\");");
-	  } else {
-	    my_wordstat=WS_F6;
-	    PopUp("WSInit(\"::/TempleOS/*;~*Bible.TXT*\");");
-	  }
-	  while (!Bt(&ws_flags,WSf_INIT_IN_PROGRESS)) //Kinda risky
-	    Yield;
-	  while (Bt(&ws_flags,WSf_INIT_IN_PROGRESS))
-	    Yield;
-	  WordStat(old_wordstat);
-	}
-	break;
       case SC_F7:
 	if (sc&SCF_KEY_DESC) {
 	  if (sc & SCF_SHIFT)
@@ -184,8 +130,8 @@ Bool MyPutKey(I64 ch,I64 sc)
 	    if (sc&SCF_KEY_DESC)
 	      SetKeyDesc("Edit/Put Link to Cur Pos on Clipboard");
 	    else {
-	      ClipBoardDel;
+	      ClipboardDel;
-	      DocPrint(sys_clipboard_doc,"$$LK-A,\"FL:%s,%d\"$$",
+	      DocPrint(sys_clipboard_doc,"$$LK,\"FL:%s,%d\"$$",
 		DocPut->filename.name,DocPut->cur_entry->y+1);
 	    }
 	    return TRUE;
@@ -194,10 +140,10 @@ Bool MyPutKey(I64 ch,I64 sc)
 	      SetKeyDesc("Edit/Place Anchor, Put Link to Clipboard");
 	    else {
 	      i=RandU32;
-	      ClipBoardDel;
+	      ClipboardDel;
-	      DocPrint(sys_clipboard_doc,"$$LK,\"<TODO>\",\"FA:%s,ANC%d\"$$",
+	      DocPrint(sys_clipboard_doc,"$$LK,\"<TODO>\",A=\"FA:%s,ANC%d\"$$",
 		DocPut->filename.name,i);
-	      "$$AN,\"<TODO>\",\"ANC%d\"$$",i;
+	      "$$AN,\"<TODO>\",A=\"ANC%d\"$$",i;
 	    }
 	    return TRUE;
 
@@ -218,28 +164,28 @@ Bool MyPutKey(I64 ch,I64 sc)
 	  case 'b':
 	    if (sc&SCF_KEY_DESC)
 	      SetKeyDesc("Cmd/Jump to Bad Code");
-	    else //$LK-A,"::/TempleOS/Apps/HolySpirit/HSNotes.TXT"$
+	    else //$LK,"::/Adam/God/HSNotes.TXT"$
 	      BadCodeJump;
 	    return TRUE;
 
 	  case 'g':
 	    if (sc&SCF_KEY_DESC)
-	      SetKeyDesc("Godle");
+	      SetKeyDesc("BlogScreenShot");
-	    else //$LK-A,"::/TempleOS/Apps/HolySpirit/HSNotes.TXT"$
+	    else
-	      Godle; //God drawing
+	      BlogScreenShot;
 	    return TRUE;
 
 	  case 'p':
 	    if (sc&SCF_KEY_DESC)
 	      SetKeyDesc("JukeBox(TAD)");
 	    else
-	      JukeBox("::/TempleOS/Accts/TS/TAD/MusicOrgan");
+	      JukeBox("::/Accts/TS/TAD/MusicOrgan");
 	    return TRUE;
 	  case 'P':
 	    if (sc&SCF_KEY_DESC)
 	      SetKeyDesc("JukeBox(Examples)");
 	    else
-	      JukeBox("::/TempleOS/Apps/MusicOrgan/Examples");
+	      JukeBox("::/Apps/MusicOrgan/Examples");
 	    return TRUE;
 	}
       }

Accts/TS/Adam3eSys.CPP

@@ -1,33 +1,34 @@
 U0 UserStartUp()
 { //Run each time a user a spawned
-  UseTermDoc;
+  DocTermNew;
-  Type("::/TempleOS/Doc/Start.TXT");
+  Type("::/Doc/Start.TXT");
   LBts(&Fs->display_flags,DISPLAYf_SHOW);
+  WinToTop;
   WinZBufUpdate;
-  if (!IsSysDeterministic)
+  Preempt(ON);
-    Preempt(ON);
   Dir;
   switch (ts_cid) {
     case CID_TAD8:
-      "$$FG,GREEN$$TAD8$$FG$$: ";
+      "$$GREEN$$TAD8$$FG$$:";
       break;
     case CID_TAD8_VM:
-      "$$FG,RED$$TAD8_VM$$FG$$: ";
+      "$$RED$$TAD8_VM$$FG$$:";
       break;
     case CID_DFT:
-      "$$FG,PURPLE$$DFT$$FG$$: ";
+      "$$PURPLE$$DFT$$FG$$:";
       break;
   }
+  "$TX,"81,527",D="DD_TEMPLEOS_LOC_OFFICIAL"$LOC:";
   CPURep;
 }
 
 U0 SrvStartUp()
 { //Run each time a srv task is spawned.
-  UseTermDoc;
+  DocTermNew;
   LBts(&Fs->display_flags,DISPLAYf_SHOW);
+  WinToTop;
   WinZBufUpdate;
-  if (!IsSysDeterministic)
+  Preempt(ON);
-    Preempt(ON);
 }
 
 CTask *user1,*user2;
@@ -38,13 +39,11 @@ U0 StartUpTasks()
   user2=SpawnUser;
   WinToTop(user1);
   WinTileVert;
-  if (!IsSysDeterministic)
+  PopUp("#include \"::/Adam/Start\";");
-    PopUp("#include \"::/TempleOS/Adam/Start\";");
   "Boot     Time:%7.3fs\n",tS;
-  XTalk(user1,"Cd(\"HOME\");#include \"DoItOnce\";\n");
+  XTalk(user1,"Cd(\"HOME\");#include \"DoOnce\";\n");
   Silent(ON);
-  if (!IsSysDeterministic)
+  WSInit("/*;~*Bible.TXT*");
-    WSInit("/TempleOS/*;~*Bible.TXT*");
   Silent(OFF);
   "WordStat Time:%7.3fs\n",tS;
   if (ts_has_win_drv)

Accts/TS/DbgAdam2.CPP

@@ -0,0 +1,51 @@
+#exe {OptOn(OPTf_WARN_PAREN);};
+#exe {OptOn(OPTf_WARN_DUP_TYPES);};
+
+HashTablePurge(adam_task->hash_table);
+
+#help_index "Misc"
+
+public F64 os_version=2.03;
+
+#include "AdamExt.HPP"
+#include "Math2a"
+#include "Training"
+#include "Utils2a"
+#include "MathODE"
+
+Dbg("Type 'G;'");
+
+Cd("::/Adam/Gr");;
+#include "Gr"
+
+Cd("::/Adam/Snd");;
+#include "Snd"
+
+Cd("::/Adam/Dsk");;
+#include "Dsk2"
+
+Cd("::/Adam");;
+#include "Menu"
+#include "Win2a"
+#include "Win2b"
+#include "Dbg2a"
+
+Cd("::/Adam/Doc");;
+#include "Doc"
+LBts(&sys_run_level,RLf_DOC);
+
+Cd("::/Adam/Ctrls");;
+#include "Ctrls"
+
+Cd("::/Adam");;
+#include "AutoFile2a"
+#include "LogIn"
+
+Cd("::/Adam/WordStat");;
+#include "WordStat"
+
+Cd("::/Adam");;
+#include "Hash2a"
+#include "TaskSettings"
+#include "DevInfo"
+#include "DocDefines"

Accts/TS/DoOnce.CPP

@@ -1,6 +1,6 @@
 //This file is executed by the
 //first terminal window upon start-up.
-//See $LK,"DoItOnce","FF:HOME/Adam3fSys.CPP,DoItOnce"$ and $LK,"Acct Files","FF:::/TempleOS/Doc/GuideLines.TXT,ACCT FILES"$.
+//See $LK,"DoOnce",A="FF:HOME/Adam3eSys.CPP,DoOnce"$ and $LK,"Acct Files",A="FF:::/Doc/GuideLines.TXT,ACCT FILES"$.
 
 //It goes in your HOME directory and
 //you can customize it.
@@ -8,5 +8,5 @@
 //Delete this to get rid of
 //default start-up msg.
 
-//Type("::/TempleOS/Doc/Customize.TXT");
+//Type("::/Doc/Customize.TXT");
 

Accts/TS/Registry.CPP

@@ -0,0 +1,6 @@
+$TR,"Adam"$
+$ID,2$$TR,"SysMsgFlags"$
+$ID,2$sys_msg_flags[0]=0;
+$ID,-2$$TR,"SysRegVer"$
+$ID,2$registry_version=2.030;
+$ID,-2$$ID,-2$

Accts/TS/TAD/Adam3aLocalize.CPP

@@ -1,13 +1,10 @@
-//Change anything you want in this
+OptOn(OPTf_WARN_PAREN);
-//acct file or others.
+OptOn(OPTf_WARN_DUP_TYPES);
 
-//This makes your keyboard fast
 SetTypeMatic(0);
-
-//Set Time Zone
 local_time_offset=-7*60*60*CDATE_FREQ; //Pacific
 
-//$AN,"","mouse_move_scale"$adjust these to set mouse move scale
+//$AN,"",A="mouse_move_scale"$adjust these to set mouse move scale
 mxx_scale=0.5;
 myy_scale=0.5;
 mzz_scale=5.0; //wheel

Accts/TS/TAD/Archive/Bookmarks.html

@@ -0,0 +1,199 @@
+<!DOCTYPE NETSCAPE-Bookmark-file-1>
+<!-- This is an automatically generated file.
+It will be read and overwritten.
+Do Not Edit! -->
+<TITLE>Bookmarks</TITLE>
+<H1>Bookmarks</H1>
+<DL><p>
+    <DT><H3 FOLDED ADD_DATE="1374957505">Accounts</H3>
+    <DL><p>
+        <DT><A HREF="https://www.annualcreditreport.com/cra/index.jsp" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >AnnualCreditReport</A>
+        <DT><A HREF="http://software.intel.com/partner/app/dashboard" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >Dashboard Intel® Developer Zone</A>
+        <DT><A HREF="http://www.dell.com/" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://i.dell.com/images/global/branding/dellecomicon.ico" >Dell Laptops, Desktop Computers, Monitors, Printers & PC Accessories</A>
+        <DT><A HREF="https://www.mymedicare.gov/" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >mymedicare.gov Portal of Personalized Medicare Information</A>
+        <DT><A HREF="https://www.paypal.com/" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >Send Money, Money Transfer - PayPal</A>
+        <DT><A HREF="http://www.socialsecurity.gov/onlineservices/" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://www.socialsecurity.gov/favicon.ico" >Social Security Online What You Can Do Online</A>
+        <DT><A HREF="http://www.wellsfargo.com/" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >Wells Fargo Home Page</A>
+    </DL><p>
+    <DT><H3 FOLDED ADD_DATE="1389105117">Commonly Quoted</H3>
+    <DL><p>
+        <DT><A HREF="http://www.youtube.com/watch?v=eB5VXJXxnNU" ADD_DATE="1381134432" LAST_VISIT="1386666617" LAST_MODIFIED="1389105618" ICON_URI="http://s.ytimg.com/yts/img/favicon_32-vflWoMFGx.png" >Ali G Homo Sapien</A>
+        <DT><A HREF="http://www.wired.com/magazine/2010/11/mf_ticketmaster/all/1" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >Everyone Hates Ticketmaster — But No One Can Take It Down Magazine</A>
+        <DT><A HREF="http://stevehanov.ca/blog/index.php?id=56" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >How a programmer reads your resume (comic) - Steve Hanov's Programming Blog</A>
+        <DT><A HREF="http://wayback.archive.org/web/*/www.losethos.com" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" ICON_URI="http://wayback.archive.org/favicon.ico" >Internet Archive (LoseThos)</A>
+        <DT><A HREF="http://waybackmachine.org/*/http://www.simstructure.hare.com" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >Internet Archive (SimStructure)</A>
+        <DT><A HREF="http://www.youtube.com/watch?v=Dd7FixvoKBw" ADD_DATE="1379786905" LAST_VISIT="1386666617" LAST_MODIFIED="1389105613" ICON_URI="http://s.ytimg.com/yts/img/favicon_32-vflWoMFGx.png" >Key Peele #1</A>
+        <DT><A HREF="http://www.youtube.com/watch?v=VHG_Gv_zLY4" ADD_DATE="1384979305" LAST_VISIT="1386666617" LAST_MODIFIED="1389105621" ICON_URI="http://s.ytimg.com/yts/img/favicon_32-vflWoMFGx.png" >Key Peele #2</A>
+        <DT><A HREF="http://lmgtfy.com/" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" ICON_URI="http://lmgtfy.com/favicon.ico" >Let me google that for you</A>
+        <DT><A HREF="http://unusedino.de/ec64/technical/project64/mapping_c64.html" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" ICON_URI="http://unusedino.de/favicon.ico" >Mapping The C64</A>
+        <DT><A HREF="http://www.youtube.com/watch?feature=player_embedded&v=nj6DK_WX7Yc#!" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" ICON_URI="http://s.ytimg.com/yt/favicon-refresh-vfldLzJxy.ico" >The Magic of CES - YouTube#!</A>
+        <DT><A HREF="http://www.noob.us/humor/the-office-dwight-faces-nerd-torture-of-the-highest-form/" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" ICON_URI="http://www.noob.us/favicon.ico" >The Office - Dwight faces nerd torture of the highest form</A>
+        <DT><A HREF="http://www.youtube.com/watch?v=HRPDO63rI1E" ADD_DATE="1381122671" LAST_VISIT="1386666617" LAST_MODIFIED="1389105665" ICON_URI="http://s.ytimg.com/yts/img/favicon_32-vflWoMFGx.png" >The Prisoner</A>
+        <DT><A HREF="http://www.youtube.com/watch?v=o_eSwq1ewsU" ADD_DATE="1381122683" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" ICON_URI="http://s.ytimg.com/yts/img/favicon-vfldLzJxy.ico" >There... Are... Four... Lights! - YouTube</A>
+    </DL><p>
+    <DT><H3 FOLDED ADD_DATE="1374957505">Downloads</H3>
+    <DL><p>
+        <DT><A HREF="http://www.ccs64.com/" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >Commodore 64 Emulator</A>
+        <DT><A HREF="http://ffmpeg.zeranoe.com/builds/" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >FFmpeg</A>
+        <DT><A HREF="http://www.dandans.com/Full-Video-Audio-Mixer.htm" ADD_DATE="1375786853" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://www.dandans.com/webico.ico" >Full Video Audio Mixer, Mix & Merge Audio and Video, Extract & Remove Audio from Video</A>
+        <DT><A HREF="http://www.winimage.com/" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >Gilles Vollant software</A>
+        <DT><A HREF="https://www.virtualbox.org/" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >Oracle VM VirtualBox</A>
+        <DT><A HREF="http://www.qb64.net/" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >QB64</A>
+        <DT><A HREF="http://www.phatcode.net/downloads.php?id=280" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >turbo assembler 5 (tasm)</A>
+        <DT><A HREF="http://www.vmware.com/" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >VMware Virtualization Software for Desktops, Servers & Virtual Machines for Public and Private Cloud Solutions</A>
+    </DL><p>
+    <DT><H3 FOLDED ADD_DATE="1374957505">Games</H3>
+    <DL><p>
+        <DT><A HREF="http://www.classicempire.com/" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >EMPIRE, Wargame of the Century (tm) index</A>
+        <DT><A HREF="http://www.freeciv.net/" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >Freeciv.net - online multiplayer strategy game</A>
+    </DL><p>
+    <DT><H3 FOLDED ADD_DATE="1389102772">Links</H3>
+    <DL><p>
+    </DL><p>
+    <DT><H3 FOLDED ADD_DATE="1374957505">Media Streams</H3>
+    <DL><p>
+        <DT><A HREF="http://www.bbc.co.uk/?ok" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >BBC - bbc.co.uk homepage - Home of the BBC on the Internet</A>
+        <DT><A HREF="http://www.bbc.co.uk/iplayer/console/bbc_world_service" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >BBC iPlayer - Listen live - BBC World Service</A>
+        <DT><A HREF="http://ocw.mit.edu/courses/electrical-engineering-and-computer-science/" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >Free Online Course Materials Electrical Engineering and Computer Science MIT OpenCourseWare</A>
+        <DT><A HREF="http://ocw.mit.edu/OcwWeb/web/home/home/index.htm" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >Free Online Course Materials MIT OpenCourseWare</A>
+        <DT><A HREF="http://www.gametrailers.com/news.php" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >Gametrailers.com - Video Games News, Game Trailers News</A>
+        <DT><A HREF="http://www.komp.com/" ADD_DATE="1389413520" LAST_VISIT="1389413520" LAST_MODIFIED="1389413520" >komp Homepage - LV Portal - Homepage</A>
+        <DT><A HREF="http://openclassroom.stanford.edu/MainFolder/HomePage.php" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >OpenClassroom</A>
+        <DT><A HREF="http://webcast.berkeley.edu/" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >webcast.berkeley UC Berkeley Video and Podcasts for Courses & Events</A>
+        <DT><A HREF="http://www.xtremeradio.com/" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >X107.5 X-treme Radio Las Vegas, NV - Homepage</A>
+    </DL><p>
+    <DT><H3 FOLDED ADD_DATE="1374957504">Misc</H3>
+    <DL><p>
+        <DT><A HREF="http://blog.seattleinterviewcoach.com/2009/02/140-google-interview-questions.html" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >140 Google Interview Questions Seattle Interview Coach</A>
+        <DT><A HREF="http://blog.smartbear.com/programming/7-silly-programming-challenges-to-do-for-fun/" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1389105588" ICON_URI="http://blog.smartbear.com/wp-content/uploads/dynamik-gen/theme/images/favicon.png" >7 Silly Programming Challenges to Do for Fun</A>
+        <DT><A HREF="http://petr-mitrichev.blogspot.com/" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://petr-mitrichev.blogspot.com/favicon.ico" >Algorithm problems for dummies Petr Mitrichev's blog</A>
+        <DT><A HREF="http://www.youtube.com/watch?v=p-_RHRAzUHM" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >Flying with the fastest birds on the planet Peregrine Falcon & Gos Hawk - Animal Camera - BBC - YouTube</A>
+        <DT><A HREF="http://harkavagrant.com/index.php?id=296" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" ICON_URI="http://harkavagrant.com/favicon.ico" >Hark, a vagrant 296</A>
+        <DT><A HREF="http://www.tldp.org/LDP/Linux-Filesystem-Hierarchy/html/" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1389102608" ICON_URI="http://www.tldp.org/favicon.ico" >Linux Filesystem Hierarchy</A>
+    </DL><p>
+    <DT><H3 FOLDED ADD_DATE="1374957504">People</H3>
+    <DL><p>
+        <DT><A HREF="http://www.altdevblogaday.com/2012/04/26/functional-programming-in-c/" ADD_DATE="1377013922" LAST_VISIT="1386666616" LAST_MODIFIED="1389102919" ICON_URI="http://www.altdevblogaday.com/favicon.ico" >Carmack #AltDevBlog</A>
+        <DT><A HREF="http://scpd.stanford.edu/knuth/index.jsp" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >Computer Musings by Professor Donald E. Knuth Stanford University Online</A>
+        <DT><A HREF="http://www-cs-faculty.stanford.edu/~knuth/index.html" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >Don Knuth's Home Page</A>
+        <DT><A HREF="http://www.insight.org/site/PageServer" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >Insight For Living Chuck Swindoll's Bible-teaching via articles, books, audio, and devotionals</A>
+        <DT><A HREF="http://torvalds-family.blogspot.com/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >Linus' blog</A>
+        <DT><A HREF="http://www.hawking.org.uk/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >Stephen Hawking - Home</A>
+        <DT><A HREF="http://www.escapistmagazine.com/articles/view/editorials/zeropunctuation" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >The Escapist Zero Punctuation</A>
+        <DT><A HREF="http://www.thegatesnotes.com/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >The Gates Notes</A>
+        <DT><A HREF="http://www.linuxfoundation.org/" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://www.linuxfoundation.org/sites/www.linuxfoundation.org/themes/opensourcery/favicon.ico" >The Linux Foundation</A>
+        <DT><A HREF="http://www.slingshotchannel.com/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >The Slingshot Channel's Official Website</A>
+        <DT><A HREF="http://pdos.csail.mit.edu/6.828/2012/xv6.html" ADD_DATE="1388187282" LAST_VISIT="1388187282" LAST_MODIFIED="1388187282" >Xv6, a simple Unix-like teaching operating system</A>
+    </DL><p>
+    <DT><H3 FOLDED ADD_DATE="1374957504">Research</H3>
+    <DL><p>
+        <DT><H3 FOLDED ADD_DATE="1389105041">Operating Systems</H3>
+        <DL><p>
+            <DT><A HREF="http://stochastix.wordpress.com/2009/01/31/distance-between-two-words/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1389106385" ICON_URI="http://1.gravatar.com/blavatar/97f8320d71ee1387cf94dbb722633e25?s=16" >Distance between two words « Reasonable Deviations</A>
+            <DT><A HREF="http://misc.aspell.net/wiki/English_Dictionaries" ADD_DATE="1384796381" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >English Dictionaries - AspellWiki</A>
+            <DT><A HREF="http://help.yahoo.com//l/us/yahoo/smallbusiness/webhosting/gftp/ftps-04.html#g" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://help.yahoo.com/favicon.ico" >How to setup FTPS tool - Yahoo! Small Business Help</A>
+            <DT><A HREF="http://msdn.microsoft.com/en-us/library/windows/hardware/ff559006(v=vs.85).aspx" ADD_DATE="1375962144" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://msdn.microsoft.com/Areas/Epx/Themes/Windows/Content/Winlogo_favicon.ico" >IDENTIFY_DEVICE_DATA structure (Windows Drivers)</A>
+            <DT><A HREF="http://arstechnica.com/information-technology/2012/10/linux-foundation-to-offer-signed-solution-for-uefi-secure-boot-conundrum/" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >Linux Foundation to offer signed solution for UEFI Secure Boot conundrum Ars Technica</A>
+            <DT><A HREF="http://www.linuxfoundation.org/news-media/blogs/browse/2012/10/linux-foundation-uefi-secure-boot-system-open-source" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >Linux Foundation UEFI Secure Boot System for Open Source The Linux Foundation</A>
+            <DT><A HREF="http://www.pcworld.com/article/2011669/linux-foundation-unveils-a-new-solution-for-win-8-secure-boot.html" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >Linux Foundation unveils a workaround for Win 8 Secure Boot PCWorld</A>
+            <DT><A HREF="http://academicearth.org/courses/operating-systems-and-system-programming" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >Operating Systems and System Programming Berkeley Video Course</A>
+            <DT><A HREF="http://partedmagic.com/doku.php" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >start – Parted Magic</A>
+        </DL><p>
+        <DT><A HREF="http://www.hongkiat.com/blog/pixel-art-tutorials/" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://mediatemplestatic.hongkiat.netdna-cdn.com/logo/hkdc/favicon.ico" >30 Excellent Pixel Art Tutorials For Pixel Lovers</A>
+        <DT><A HREF="http://bigocheatsheet.com/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >Big-O Algorithm Complexity Cheat Sheet</A>
+        <DT><A HREF="https://www.circuitlab.com/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >CircuitLab sketch, simulate, and share your circuits</A>
+        <DT><A HREF="http://www.sparknotes.com/writing/style/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >Grammar, Usage, and Style Guide SparkNotes Ultimate Style Ultimate Style</A>
+        <DT><A HREF="http://imgur.com/" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://imgur.com/favicon.ico" >imgur the simple image sharer</A>
+        <DT><A HREF="http://software.intel.com/en-us/" ADD_DATE="1386626088" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://software.intel.com/sites/all/themes/isn3/favicon.ico" >Intel® Developer Zone</A>
+        <DT><A HREF="http://www.archive.org/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >Internet Archive Digital Library of Free Books, Movies, Music & Wayback Machine</A>
+        <DT><A HREF="http://www.netlib.org/lapack/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >LAPACK — Linear Algebra PACKage</A>
+        <DT><A HREF="http://www.gutenberg.org/wiki/Main_Page" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" ICON_URI="http://www.gutenberg.org/favicon.ico" >Main Page - Gutenberg</A>
+        <DT><A HREF="http://www.moreofit.com/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1389102467" ICON_URI="http://www.moreofit.com/favicon.ico" >moreofit - Website Similarity Search Engine</A>
+        <DT><A HREF="http://www.peoplesmart.com/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1389105190" ICON_URI="http://www.peoplesmart.com/favicon.ico" >People Search & Background Checks by Name, Phone, Email or Address - PeopleSmart</A>
+        <DT><A HREF="http://promo.net/pg/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >PROJECT GUTENBERG OFFICIAL HOME SITE - INDEX -- Free Books On-Line -</A>
+        <DT><A HREF="http://validator.w3.org/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >The W3C Markup Validation Service</A>
+        <DT><A HREF="http://www.whorush.com/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >WHORush.com, your source for information on domains</A>
+        <DT><A HREF="http://www.wolframalpha.com/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >WolframAlpha Computational Knowledge Engine</A>
+        <DT><A HREF="http://youtubetime.com/" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >YouTube Time</A>
+        <DT><A HREF="http://www.metacrawler.com/info.metac/dog/index.htm" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >[ MetaCrawler® ]</A>
+        <DT><A HREF="http://validator.w3.org/check?uri=http%3A%2F%2Flynx.isc.org%2Findex.html" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >[Valid] Markup Validation of http--lynx.isc.org-index.html - W3C Markup Validator</A>
+    </DL><p>
+    <DT><H3 FOLDED ADD_DATE="1374957503">Spiritual</H3>
+    <DL><p>
+        <DT><A HREF="http://www.biblegateway.com/passage/?search=1+Corinthians+14&version=NIV" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1389330204" ICON_URI="http://static5.bgcdn.com/favicon.ico?ca05b3df" >1 Corinthians 14 NIV - Intelligibility in Worship Follow the - Bible Gateway</A>
+        <DT><A HREF="http://qrng.anu.edu.au/NIST.php" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" ICON_URI="http://qrng.anu.edu.au/favicon.ico" >ANU Quantum Random Number Server</A>
+        <DT><A HREF="http://www.generatedata.com/" ADD_DATE="1383350304" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >generatedata.com</A>
+        <DT><A HREF="https://qrng.physik.hu-berlin.de/download" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >QRNG Service - Download</A>
+        <DT><A HREF="http://random.irb.hr/index.php" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" ICON_URI="http://random.irb.hr/favicon.ico" >Quantum Random Bit Generator Service</A>
+        <DT><A HREF="http://www.randomnumbers.info/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >Random Numbers Info</A>
+        <DT><A HREF="http://www.random.org/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" ICON_URI="http://www.random.org/favicon.ico" >RANDOM.ORG - True Random Number Service</A>
+        <DT><A HREF="https://www.fourmilab.ch/hotbits/secure_generate.html" ADD_DATE="1374957503" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" ICON_URI="https://www.fourmilab.ch/favicon.ico" >Request HotBits (Secure Server)</A>
+        <DT><A HREF="http://www.theyshootpictures.com/gf1000_all1000films.htm" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >TSPDT - The 1,000 Greatest Films (Full List)</A>
+        <DT><A HREF="http://www.usccb.org/" ADD_DATE="1374957503" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" ICON_URI="http://www.usccb.org/favicon.ico" >United States Conference of Catholic Bishops</A>
+        <DT><A HREF="http://virtual-notary.org/" ADD_DATE="1374957503" LAST_VISIT="1386666617" LAST_MODIFIED="1387238161" ICON_URI="http://virtual-notary.org/static/favicon.png" >Virtual-Notary</A>
+    </DL><p>
+    <DT><H3 FOLDED ADD_DATE="1374957503">TempleOS Business</H3>
+    <DL><p>
+        <DT><A HREF="http://betanews.com/" ADD_DATE="1374957503" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" ICON_URI="http://betanews.com/wp-content/themes/betanews/favicon.ico" >BetaNews</A>
+        <DT><A HREF="http://www.devmaster.net/forums/" ADD_DATE="1374957503" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >DevMaster.net Forums - Powered by vBulletin</A>
+        <DT><A HREF="http://www.gamedev.net/" ADD_DATE="1374957503" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >GameDev.net - all your game development needs</A>
+        <DT><A HREF="http://www.majorgeeks.com/" ADD_DATE="1374957503" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" ICON_URI="http://www.majorgeeks.com/favicon.ico" >MajorGeeks.com - Download Freeware and Shareware Computer Utilities</A>
+        <DT><A HREF="http://www.youtube.com/watch?v=6WgOWrT1yyI&feature=youtu.be&a" ADD_DATE="1381667845" LAST_VISIT="1386666617" LAST_MODIFIED="1387406101" ICON_URI="http://s.ytimg.com/yts/img/favicon_32-vflWoMFGx.png" >Mum Tries Out TempleOS 1.06 (2013) - YouTube</A>
+        <DT><A HREF="http://www.businessconsultingabc.com/Feedback.html" ADD_DATE="1374957503" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" ICON_URI="http://www.businessconsultingabc.com/wp-content/themes/business-consulting-abc/favicon.ico" >Send Us Feedback Email ABC Business Consulting ABC Business Consulting</A>
+        <DT><A HREF="http://www.sparrowos.com/" ADD_DATE="1375793135" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" ICON_URI="http://www.sparrowos.com/favicon.ico" >Sparrow Operating System</A>
+        <DT><A HREF="http://www.losethos.com/" ADD_DATE="1374957503" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" ICON_URI="http://www.losethos.com/favicon.ico" >The LoseThos Operating System</A>
+        <DT><A HREF="http://www.google.com/webmasters/" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://www.google.com/favicon.ico" >Webmasters – Google</A>
+    </DL><p>
+    <DT><H3 FOLDED ADD_DATE="1389105242">Uncommon</H3>
+    <DL><p>
+        <DT><A HREF="http://irc.netsplit.de/channels/details.php?room=%23%23programming&net=freenode" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1389102778" ICON_URI="http://irc.netsplit.de/favicon.ico" >##programming freenode - Chat Room on IRC - irc.netsplit.de</A>
+        <DT><A HREF="http://politicalhumor.about.com/library/bl-political-cartoons.htm" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >2012 Political Cartoons - Best Political Cartoons of 2012</A>
+        <DT><A HREF="http://english.aljazeera.net/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >AJE - Al Jazeera English</A>
+        <DT><A HREF="http://www.amazon.com/" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1389106076" ICON_URI="http://www.amazon.com/favicon.ico" >amazon.com Online Shopping for Electronics, Apparel, Computers, Books, DVDs & more</A>
+        <DT><A HREF="http://www.huffingtonpost.com/" ADD_DATE="1386981098" LAST_VISIT="1386981098" LAST_MODIFIED="1386981098" ICON_URI="http://www.huffingtonpost.com/favicon.ico" >Breaking News and Opinion on The Huffington Post</A>
+        <DT><A HREF="http://www.dailyrotation.com/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >DAILY ROTATION</A>
+        <DT><A HREF="http://www.dzone.com/links/index.html" ADD_DATE="1378720139" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://www.dzone.com/favicon.ico" >dzone.com - fresh links for developers</A>
+        <DT><A HREF="http://www.hackforums.net/" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >Hack Forums</A>
+        <DT><A HREF="http://hckrnews.com/" ADD_DATE="1377987384" LAST_VISIT="1386666616" LAST_MODIFIED="1387840046" ICON_URI="http://hckrnews.com/img/touch/apple-touch-icon.png" >hckr news - Hacker News sorted by time</A>
+        <DT><A HREF="http://www.shellcity.net/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1389105474" ICON_URI="http://www.shellcity.net/favicon.ico" >http--www.shellcity.net-</A>
+        <DT><A HREF="http://chat.icq.com/icqchat/" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >ICQ Chat Rooms - ICQ.com</A>
+        <DT><A HREF="http://iopscience.iop.org/1367-2630" ADD_DATE="1374957505" LAST_VISIT="1386666617" LAST_MODIFIED="1389105799" ICON_URI="http://iopscience.iop.org/favicon.ico" >iopscience Journal of Physics</A>
+        <DT><A HREF="http://www.irc.org/links.html" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >IRC.org</A>
+        <DT><A HREF="http://www.haaretz.com/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >Israel News - Haaretz Israeli News source</A>
+        <DT><A HREF="https://lobste.rs/" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1389102792" ICON_URI="https://lobste.rs/favicon.ico" >Lobsters</A>
+        <DT><A HREF="http://www.microsoft.com/isapi/redir.dll?prd=ie&pver=6&ar=IStart" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >MSN.com</A>
+        <DT><A HREF="http://www.physorg.com/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >PhysOrg.com - Science News, Technology, Physics, Nanotechnology, Space Science, Earth Science, Medicine</A>
+        <DT><A HREF="http://www.chess.com/" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >Play Chess Online - Free Chess Games at Chess.com</A>
+        <DT><A HREF="http://gogloom.com/DIR?cat=84126&catdesc=Programming" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >Programming CHAT ROOMS - Online CHAT!</A>
+        <DT><A HREF="http://royal.pingdom.com/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >Royal Pingdom</A>
+        <DT><A HREF="http://www.infopackets.com/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >Tech News Daily - Infopackets.com</A>
+        <DT><A HREF="http://www.techbeta.org/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >TechBeta Free and open source software for Windows, Mac OS X, Linux, iPhone, and Mobile</A>
+        <DT><A HREF="http://www.techcrunch.com/" ADD_DATE="1374957503" LAST_VISIT="1386666617" LAST_MODIFIED="1386666617" >TechCrunch</A>
+        <DT><A HREF="http://www.tomshardware.com/" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >Tom's Hardware Hardware News, Tests and Reviews</A>
+        <DT><A HREF="http://news.yahoo.com/" ADD_DATE="1374957505" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://news.yahoo.com/favicon.ico" >Yahoo! News - Latest News & Headlines</A>
+        <DT><A HREF="http://www.yahoo.com/" ADD_DATE="1374957504" LAST_VISIT="1386666617" LAST_MODIFIED="1389106215" ICON_URI="http://l.yimg.com/rz/l/favicon.ico" >Yahoo!</A>
+    </DL><p>
+    <DT><A HREF="http://www.4chan.org/" ADD_DATE="1375781470" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://s.4cdn.org/image/favicon.ico" >4chan</A>
+    <DT><A HREF="http://arstechnica.com/index.ars" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >Ars Technica</A>
+    <DT><A HREF="http://dictionary.reference.com/" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://static.sfdict.com/dictcloud/favicon.ico" >Dictionary</A>
+    <DT><A HREF="http://www.drudgereport.com/" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >DRUDGE</A>
+    <DT><A HREF="http://www.facebook.com/home.php" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >Facebook</A>
+    <DT><A HREF="https://www.google.com/" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="https://www.google.com/favicon.ico" >Google</A>
+    <DT><A HREF="http://news.ycombinator.com/" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >Hacker News</A>
+    <DT><A HREF="http://www.knpr.org/" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://www.knpr.org/favicon.ico" >Nevada Public Radio</A>
+    <DT><A HREF="http://beacon.nist.gov/home" ADD_DATE="1383959013" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >NIST Randomness Beacon (Prototype Implementation) - NIST</A>
+    <DT><A HREF="http://forum.osdev.org/" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://forum.osdev.org/favicon.ico" >OSDev.org • Index page</A>
+    <DT><A HREF="http://www.osnews.com/" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://www.osnews.com/favicon.ico" >OSNews is Exploring the Future of Computing</A>
+    <DT><A HREF="http://www.pixeljoint.com/forum/" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://www.pixeljoint.com/favicon.ico" >Pixel Joint Forum</A>
+    <DT><A HREF="http://popurls.com/" ADD_DATE="1378004893" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://popurls.com/favicon.ico" >popurls  the genuine news aggregator for the latest web buzz</A>
+    <DT><A HREF="http://www.reddit.com/" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666968" ICON_URI="http://www.redditstatic.com/icon.png" >reddit.com</A>
+    <DT><A HREF="http://slashdot.org/" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://slashdot.org/favicon.ico" >slashdot News for nerds, stuff that matters</A>
+    <DT><A HREF="http://stackoverflow.com/" ADD_DATE="1381508264" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://cdn.sstatic.net/stackoverflow/img/favicon.ico" >Stack Overflow</A>
+    <DT><A HREF="http://www.templeos.org/logs/" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://www.templeos.org/favicon.ico" >TempleOS Index of -logs</A>
+    <DT><A HREF="http://www.templeos.org/Wb/Accts/TS/Wb2/Rants/TAD/TADRants.html" ADD_DATE="1389595518" LAST_VISIT="1389595518" LAST_MODIFIED="1389595518" ICON_URI="http://www.templeos.org/favicon.ico" >Terry Davis' Rants</A>
+    <DT><A HREF="http://www.templeos.org/" ADD_DATE="1375628480" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://www.templeos.org/favicon.ico" >The Temple Operating System</A>
+    <DT><A HREF="https://twitter.com/" ADD_DATE="1378394318" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="https://abs.twimg.com/favicons/favicon.ico" >Twitter</A>
+    <DT><A HREF="http://www.wikipedia.org/" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" ICON_URI="http://bits.wikimedia.org/favicon/wikipedia.ico" >Wikipedia</A>
+    <DT><A HREF="http://smallbusiness.yahoo.com/services/index.php?crumb=eynoh/GoPXd" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386666616" >Yahoo! Small Business</A>
+    <DT><A HREF="http://www.youtube.com/" ADD_DATE="1374957503" LAST_VISIT="1386666616" LAST_MODIFIED="1386677085" ICON_URI="http://s.ytimg.com/yts/img/favicon_32-vflWoMFGx.png" >YouTube - Broadcast Yourself</A>
+</DL><p>

Accts/TS/TAD/Archive/Comm.CPP

@@ -0,0 +1,115 @@
+//Be sure to Adam Include this.
+
+#help_index "Comm"
+
+#define COM1_BASE	0x3F8
+#define COM2_BASE	0x2F8
+#define COM3_BASE	0x3E8
+#define COM4_BASE	0x2E8
+
+#define UART_THR		0
+#define UART_RDR		0
+#define UART_BRDL		0
+#define UART_IER		1
+#define UART_BRDH		1
+#define UART_IIR		2
+#define UART_LCR		3
+#define UART_MCR		4
+#define UART_LSR		5
+#define UART_MSR		6
+
+
+I64 comm_base[5]={0,0x3F8,0x2F8,0x3E8,0x2E8};
+
+CFifoU8 *comm_fifos[5]={NULL,NULL,NULL,NULL,NULL};
+
+interrupt U0 CommInt3Handler()
+{
+  I64 base=comm_base[2];
+  if (comm_fifos[2] && (InU8(base+UART_IIR) & 0xFE)==8)   //RX IRQ
+    FifoU8Ins(comm_fifos[2],InU8(base+UART_RDR));
+
+  base=comm_base[4];
+  if (comm_fifos[4] && (InU8(base+UART_IIR) & 0xFE)==8)   //RX IRQ
+    FifoU8Ins(comm_fifos[4],InU8(base+UART_RDR));
+  OutU8(0x20,0x20);
+}
+
+interrupt U0 CommInt4Handler()
+{
+  I64 base=comm_base[1];
+  if (comm_fifos[1] && (InU8(base+UART_IIR) & 0xFE)==8)   //RX IRQ
+    FifoU8Ins(comm_fifos[1],InU8(base+UART_RDR));
+
+  base=comm_base[3];
+  if (comm_fifos[3] && (InU8(base+UART_IIR) & 0xFE)==8)   //RX IRQ
+    FifoU8Ins(comm_fifos[3],InU8(base+UART_RDR));
+  OutU8(0x20,0x20);
+}
+
+IntEntrySet(0x23,&CommInt3Handler);
+IntEntrySet(0x24,&CommInt4Handler);
+
+public U0 CommInit8n1(I64 port,I64 baud)
+{
+  I64 base=comm_base[port];
+
+  PUSHFD
+  CLI
+  if (comm_fifos[port])
+    FifoU8Del(comm_fifos[port]);
+  comm_fifos[port]=FifoU8New(256);
+  OutU8(base+UART_LCR,0);     //Set for IER
+  OutU8(base+UART_IER,0);     //DIsable all IRQ
+  OutU8(base+UART_LCR,0x80);  //Enable baud rate control
+  OutU8(base+UART_BRDL,(0x180/(baud/300)) & 0xFF); //LSB
+  OutU8(base+UART_BRDL,(0x180/(baud/300)) / 256);  //MSB
+  OutU8(base+UART_LCR,3);     // 8-none-1
+
+  InU8(base+UART_RDR);	//read garbage
+  InU8(base+UART_LSR);
+
+  OutU8(base+UART_MCR,4);
+  OutU8(base+UART_IER,0);     //DIsable all IRQ
+  OutU8(base+UART_MCR,0xA);	  //out2 and rts
+  OutU8(0x21,InU8(0x21) & (0xFF-0x18)); //Enable 8259 IRQ 3 & 4
+  OutU8(base+UART_IER,1);	  //Enable RX IRQ
+  POPFD
+}
+
+public U0 CommBusyPutChar(I64 port,U8 b)
+{
+  I64 base=comm_base[port];
+  while (!(InU8(base+UART_LSR) & 0x20))
+    Yield;
+  OutU8(base+UART_THR,b);
+  while (!(InU8(base+UART_LSR) & 0x20))
+    Yield;
+}
+
+public U0 CommBusyPutS(I64 port,U8 *st)
+{
+  I64 base=comm_base[port];
+  U8 b;
+  while (b=*(st++)) {
+    while (!(InU8(base+UART_LSR) & 0x20))
+      Yield;
+    OutU8(base+UART_THR,b);
+  }
+  while (!(InU8(base+UART_LSR) & 0x20))
+    Yield;
+}
+
+public U0 CommBusyWriteBlk(I64 port,U8 *buf,I64 count)
+{
+  I64 base=comm_base[port];
+  while (count--) {
+    while (!(InU8(base+UART_LSR) & 0x20))
+      Yield;
+    OutU8(base+UART_THR,*(buf++));
+  }
+  while (!(InU8(base+UART_LSR) & 0x20))
+    Yield;
+}
+
+#help_index ""

Accts/TS/TAD/MusicOrgan/abiding.CPP

@@ -18,7 +18,7 @@ U0 DrawIt(CTask *,CDC *dc)
   GrCircle(dc,X,Y,10);
   dc->color=YELLOW;
   for (i=0;i<NUM_BEAMS;i++) {
-    r=125.0*((0.25*tMBeat+beams_r[i])%1.0);
+    r=125.0*((0.25*Beat+beams_r[i])%1.0);
     P2R(&x1,&y1,r     ,beams_é[i]);
     P2R(&x2,&y2,r+10.0,beams_é[i]);
     GrLine(dc,x1+X,y1+Y,x2+X,y2+Y);
@@ -29,7 +29,7 @@ U0 Song()
 {
   CTask *task;
   I64 i;
-  SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
+  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
   Fs->text_attr=LTCYAN<<4+BLACK;
   Fs->draw_it=&DrawIt;
   Fs->task_end_cb=&SndTaskEndCB;
@@ -42,31 +42,31 @@ U0 Song()
   }
   try {
     task=PopUpViewStr(
-    "$LK,"Numbers,6:25","BF:Numbers,6:25"$\n"
+	  "$LK,"Numbers,6:25",A="BF:Numbers,6:25"$\n"
-    "$LK,"Psalms,31:16","BF:Psalms,31:16"$\n"
+	  "$LK,"Psalms,31:16",A="BF:Psalms,31:16"$\n"
-    "$LK,"Psalms,67:1","BF:Psalms,67:1"$\n"
+	  "$LK,"Psalms,67:1",A="BF:Psalms,67:1"$\n"
-    "$LK,"Psalms,80:3","BF:Psalms,80:3"$\n"
+	  "$LK,"Psalms,80:3",A="BF:Psalms,80:3"$\n"
-    "$LK,"Psalms,80:19","BF:Psalms,80:19"$\n"
+	  "$LK,"Psalms,80:19",A="BF:Psalms,80:19"$\n"
-    "$LK,"Psalms,119:135","BF:Psalms,119:135"$\n"
+	  "$LK,"Psalms,119:135",A="BF:Psalms,119:135"$\n"
-    "$LK,"Daniel,9:17","BF:Daniel,9:17"$\n"
+	  "$LK,"Daniel,9:17",A="BF:Daniel,9:17"$\n"
-    );
+	  );
     TaskWait(task);
     SetWinHorz(Fs->win_left,Fs->win_right,task);
     SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
     "$$BG+H,LTCYAN$$$$FD+H,BLACK$$";
     while (!ScanKey) {
-      "$$FG,WHITE$$To God...\n$$FG$$";
+      "$$WHITE$$To God...\n$$FG$$";
       Play("3etCFEsDDDDD2G3D2G3qC2eG3EqEetAAF2qG",
-      "I \0am \0a\0biding \0 \0 \0 \0in \0 \0Your \0 \0presence.\n\0 \0 \0 \0 \0 \0 \0 \0");
+	    "I \0am \0a\0biding \0 \0 \0 \0in \0 \0Your \0 \0presence.\n\0 \0 \0 \0 \0 \0 \0 \0");
       Play("3etCFEsDDDDD2G3D2G3qC2eG3EqEetAAF2qG",
-      "I \0am \0a\0biding \0 \0 \0 \0in \0 \0Your \0 \0presence.\n\0 \0 \0 \0 \0 \0 \0 \0");
+	    "I \0am \0a\0biding \0 \0 \0 \0in \0 \0Your \0 \0presence.\n\0 \0 \0 \0 \0 \0 \0 \0");
       Play("3DBsFGFG2eG3FRDqEGeBE",
-      "What \0a \0joy!\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
+	    "What \0a \0joy!\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
       Play("qDBsFGFG2eG3FRDqEGeBE",
-      "I'm \0so \0coy!\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
+	    "I'm \0so \0coy!\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
     }
-    } catch
+  } catch
-      CatchAll;
+    PutExcept;
   SettingsPop;
 }
 

Accts/TS/TAD/MusicOrgan/abyss.CPP

@@ -0,0 +1,41 @@
+//7 has words
+U0 Song()
+{
+  CTask *task;
+  Fs->task_end_cb=&SndTaskEndCB;
+  MusicSettingsRst;
+  music_tempo= 2.480;
+  music_stacatto_factor= 0.736;
+  try {
+    task=PopUpViewStr(
+	  "There are myths about the River\n"
+	  "Styx separating the land of the\n"
+	  "living from dead.  Jesus' told a story\n"
+	  "about the land of living separate from\n"
+	  "land of dead.  ($LK,"Luke,16:22",A="BF:Luke,16:22"$)  In the Old\n"
+	  "Testament, the River Jordan was a special\n"
+	  "barrier.  ($LK,"Deuteronomy,4:22",A="BF:Deuteronomy,4:22"$)\n"
+	  );
+    TaskWait(task);
+    SetWinHorz(Fs->win_left,Fs->win_right,task);
+    SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
+    while (!ScanKey) {
+      Play("3sBBBBqCq.BeAqBh.A",
+	    "Can't \0 \0 \0 \0get \0there, \0from \0he\0re.\n\0");
+      Play("M2/4");
+      Play("eECqAM4/4");
+      Play("sBBBBqCq.BeAqBh.A",
+	    "Can't \0 \0 \0 \0get \0there, \0from \0he\0re.\n\0");
+      Play("M2/4");
+      Play("eDDqDM4/4");
+      Play("DeEDqGCeF2G3qGsFGFGeDC",
+	    "Oh, \0my \0 \0God, \0some\0thing's... \0 \0 \0ver\0 \0y \0 \0wrong!\n\0 \0");
+      Play("qDeEDqGCeF2G3qGsFGFGeDC",
+	    "Oh, \0my \0 \0God, \0some\0thing's... \0 \0 \0ver\0 \0y \0 \0wrong!\n\0 \0");
+    }
+  } catch
+    PutExcept;
+  Snd(0);
+}
+
+Song;

Accts/TS/TAD/MusicOrgan/advantage.CPP

@@ -7,13 +7,13 @@ U0 Song()
   music_stacatto_factor= 0.902;
   try {
   while (!ScanKey) {
-	Play("2q.GeGqG3sBBCB2q.GeGqG3sBBCB");
+	Play("3eCsAAeCsAAeDABRCqEsBBeEDFE");
-	Play("q.C2eG3CsDC2eGG3qC2G3eCsDC2eGG");
+	Play("CAqCsDDAAeBRCDsCCBBeEAFsEE");
-	Play("3sEAEAeCsCReRsDAe.GsBFFFFeEsAGeCsGDeDG");
+	Play("G2G3G2G3qGeBBBFsD2G3eDsB2G3B2G3eBAsGF2eG");
-	Play("sEAEAeCsCReRsDAe.GsBFFFFeEsAGeCsGDeDG");
+	Play("3sG2G3G2G3qGeBBBFsD2G3eDsB2G3B2G3eBAsGF2eG");
   }
   } catch
-    CatchAll;
+    PutExcept;
   Snd(0);
 }
 

Accts/TS/TAD/MusicOrgan/almighty.CPP

@@ -15,7 +15,7 @@ U0 Song()
 		"Oh \0bo\0y, \0 \0was \0 \0that \0rough.\n\0 \0");
   }
   } catch
-    CatchAll;
+    PutExcept;
   Snd(0);
 }
 

Accts/TS/TAD/MusicOrgan/alone.CPP

@@ -0,0 +1,24 @@
+//7 has words
+U0 Song()
+{
+  Fs->task_end_cb=&SndTaskEndCB;
+  MusicSettingsRst;
+  music_tempo= 2.480;
+  music_stacatto_factor= 0.902;
+  try {
+  while (!ScanKey) {
+	Play("2q.GeGqG3sBBCB2q.GeGqG3sBBCB",
+		"I'm \0a\0lone.\n\0$$RED$$No, \0you're \0 \0not.\n$$FG$$\0I'm \0a\0lone.\n\0$$RED$$No, \0you're \0 \0not.\n\0");
+	Play("q.C2eG3CsDC2eGG3qC2G3eCsDC2eGG",
+		"You \0are \0not \0a\0lone.\n\0 \0 \0Def\0inately, \0not \0a\0lone.\n\0 \0 \0");
+	Play("3sEAEAeCsCReRsDAe.GsBFFFFeEsAGeCsGDeDG",
+		"If \0 \0you \0 \0on\0ly \0 \0 \0 \0 \0knew.\n\0 \0His \0 \0 \0 \0Spir\0it \0 \0 \0is \0 \0with \0you.\n\0");
+	Play("sEAEAeCsCReRsDAe.GsBFFFFeEsAGeCsGDeDG",
+		"If \0 \0you \0 \0on\0ly \0 \0 \0 \0 \0knew.\n\0 \0His \0 \0 \0 \0Spir\0it \0 \0 \0is \0 \0with \0you.\n$$FG$$\0");
+  }
+  } catch
+    PutExcept;
+  Snd(0);
+}
+
+Song;

Accts/TS/TAD/MusicOrgan/appreciate.CPP

@@ -15,7 +15,7 @@ U0 Song()
 		" \0 \0 \0 \0 \0 \0 \0I \0won't \0tell.\n\0 \0 \0 \0 \0 \0 \0");
   }
   } catch
-    CatchAll;
+    PutExcept;
   Snd(0);
 }
 

Accts/TS/TAD/MusicOrgan/awake.CPP

@@ -7,7 +7,7 @@ U0 DrawIt(CTask *,CDC *dc)
 {
   static F64 é=0;
   I64 x1=200,y1=20,x2=x1,y2=y1+R2;
-  F64 tt=tMBeat%16.0,č;
+  F64 tt=Beat%16.0,č;
   é+=1/(tt*tt+1);
   dc->color=BLACK;
   dc->pen_width=4;
@@ -42,32 +42,30 @@ U0 DrawIt(CTask *,CDC *dc)
 U0 Song()
 {
   CTask *task;
-  SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
+  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
   Fs->draw_it=&DrawIt;
   Fs->task_end_cb=&SndTaskEndCB;
   MusicSettingsRst;
   music_tempo= 2.480;
   music_stacatto_factor= 0.902;
   try {
-  task=PopUpViewStr(
+    task=PopUpViewStr("$LK,"Mark,14:37",A="BF:Mark,14:37"$\n");
-    "$LK,"Mark,14:37","BF:Mark,14:37"$\n"
+    TaskWait(task);
-    );
+    SetWinHorz(Fs->win_left,Fs->win_right,task);
-  TaskWait(task);
+    SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
-  SetWinHorz(Fs->win_left,Fs->win_right,task);
+    while (!ScanKey) {
-  SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
+      "$$GREEN$$Jesus talking...$$FG$$\n";
-  while (!ScanKey) {
+      Play("3eBCqB2sG3D2G3DetCGFsCBCBetCGBeBGsBCBC",
-	"$$FG,GREEN$$Jesus talking...$$FG$$\n";
+	    "Stay \0a\0wake.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
-	Play("3eBCqB2sG3D2G3DetCGFsCBCBetCGBeBGsBCBC",
+      Play("eBCqB2sG3D2G3DetCGFsCBCBetCGBeBGsBCBC",
-		"Stay \0a\0wake.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
+	    "Stay \0a\0wake.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
-	Play("eBCqB2sG3D2G3DetCGFsCBCBetCGBeBGsBCBC",
+      Play("qDsDBDBetA2G3GqB2G3sADADqDetGFD",
-		"Stay \0a\0wake.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
+	    " \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0I \0 \0am \0a \0dead \0 \0man.\n\0");
-	Play("qDsDBDBetA2G3GqB2G3sADADqDetGFD",
+      Play("qDsDBDBetA2G3GqB2G3sADADqDetGFD",
-		" \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0I \0 \0am \0a \0dead \0 \0man.\n\0");
+	    " \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0I \0 \0am \0a \0dead \0 \0man.\n\0");
-	Play("qDsDBDBetA2G3GqB2G3sADADqDetGFD",
+    }
-		" \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0I \0 \0am \0a \0dead \0 \0man.\n\0");
-  }
   } catch
-    CatchAll;
+    PutExcept;
   SettingsPop;
 }
 

Accts/TS/TAD/MusicOrgan/battlehymnsolo.CPP

@@ -2,7 +2,7 @@
 
 U0 Song()
 {
-  SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
+  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
   Fs->text_attr=BLACK<<4+WHITE;
   Fs->task_end_cb=&SndTaskEndCB;
   MusicSettingsRst;
@@ -11,10 +11,10 @@ U0 Song()
   try {
     while (!ScanKey) {
       DocClear;
-      "$$BG,BLACK$$$$FG,WHITE$$\n\n\n\n\nWait for the end...";
+      "$$BG,BLACK$$$$WHITE$$\n\n\n\n\nWait for the end...";
       NewLine(5);
       Spaces(17);
-      PutSprite($IB+BP,"<1>",1,"::/TempleOS/Demo/Graphics/SpritePut.CPP.Z,1"$);
+      Sprite($IB,"<1>",BI=1,BP="::/Demo/Graphics/SpritePut.CPP.Z,1"$);
       Play("3e.GsGe.GsFe.EsG4e.CsDe.EsEe.EsDqCe.CsB");
       NewLine;
       Play("e.AsAe.AsBe.CsBe.CsA3e.G4sA3e.GsEqGe.GsG");
@@ -43,7 +43,7 @@ U0 Song()
       NewLine;
     }
   } catch
-    CatchAll;
+    PutExcept;
   DocClear;
   SettingsPop;
 }

Accts/TS/TAD/MusicOrgan/blinded.CPP

@@ -0,0 +1,45 @@
+//7 has words
+
+F64 t0=Beat;
+
+U0 DrawIt(CTask *task,CDC *dc)
+{
+  static I64 i=0;
+  F64 dt=Beat-t0;
+  if (dt>16.0 && i++&1) {
+    dc->color=WHITE;
+    GrRect(dc,0,0,task->pix_width,task->pix_height);
+  }
+}
+
+U0 Song()
+{
+  CTask *task;
+  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
+  Fs->task_end_cb=&SndTaskEndCB;
+  music_tempo=2.5;
+  DocCursor;
+  DocClear;
+  Fs->draw_it=&DrawIt;
+  try {
+    task=PopUpViewStr("$LK,"BF:Acts,9:3"$\n");
+    TaskWait(task);
+    SetWinHorz(Fs->win_left,Fs->win_right,task);
+    SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
+    while (!ScanKey) {
+      t0=Beat;
+      Play("3qEeACA2G3qCEC2G3E",
+	    "Now... \0 \0 \0 \0 \0I \0see \0the \0light.\n\0 \0");
+      Play("EeACA2G3qCEC2G3E",
+	    "Now... \0 \0 \0 \0 \0I \0see \0the \0light.\n\0 \0");
+      Play("GCGBEeDFCAqD",
+	    "It's \0 \0quite \0 \0bright.\n\0 \0 \0 \0 \0 \0");
+      Play("GCGBEeDFCAqD",
+	    "It's \0 \0quite \0 \0bright.\n\0 \0 \0 \0 \0 \0");
+    }
+  } catch
+    PutExcept;
+  SettingsPop;
+}
+
+Song;

Accts/TS/TAD/MusicOrgan/born.CPP

@@ -1,33 +1,33 @@
 //9 has graphics
 
-F64 t0;
+F64 t0=Beat;
 #define HORIZON_Y	50
 #define LEFT_EDGE	200
 
 U0 DrawIt(CTask *task,CDC *dc)
 {
   I64 i;
-  F64 dt=tMBeat-t0,d=Limit(0.1*dt,0,2),d2;
+  F64 dt=Beat-t0,d=Clamp(0.1*dt,0,2),d2;
 
   dc->color=ROPF_PROBABILITY_DITHER+LTCYAN<<16+CYAN;
   for (i=HORIZON_Y;i>=0;i--) {
     d2=ToF64(HORIZON_Y-i)/HORIZON_Y;
-    dc->dither_probability=1<<16*Limit((4.0-d2)/4.0*d*d-0.15,0,1.0);
+    dc->dither_probability_u16=1<<16*Clamp((4.0-d2)/4.0*d*d-0.15,0,1.0);
-    GrLine(dc,LEFT_EDGE,i,task->win_pixel_width-1,i);
+    GrLine(dc,LEFT_EDGE,i,task->pix_width-1,i);
   }
 
-  d=(task->win_pixel_width-LEFT_EDGE)/2+LEFT_EDGE;
+  d=(task->pix_width-LEFT_EDGE)/2+LEFT_EDGE;
   dc->color=YELLOW;
   GrCircle(dc,d,HORIZON_Y+50-dt,40);
   GrFloodFill(dc,d,HORIZON_Y+15-dt,TRUE);
 
   dc->color=GREEN;
-  GrRect(dc,200,HORIZON_Y,task->win_pixel_width-200,task->win_pixel_height-HORIZON_Y);
+  GrRect(dc,200,HORIZON_Y,task->pix_width-200,task->pix_height-HORIZON_Y);
 }
 
 U0 Song()
 {
-  SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
+  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
   Fs->draw_it=&DrawIt;
   Fs->task_end_cb=&SndTaskEndCB;
 
@@ -36,7 +36,7 @@ U0 Song()
   music_stacatto_factor= 0.900;
   try {
     while (!ScanKey) {
-      t0=tMBeat;
+      t0=Beat;
       Play("3qBeB2G3qAeFAsFAFAqC2sG3A2G3ARBRB",
 	  "New \0day \0is \0born.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
       Play("qBeB2G3qAeFAsFAFAqC2sG3A2G3ARBRB",
@@ -47,7 +47,7 @@ U0 Song()
 	  "hitch-\0up \0 \0the \0cart.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
     }
   } catch
-    CatchAll;
+    PutExcept;
   SettingsPop;
 }
 

Accts/TS/TAD/MusicOrgan/childish.CPP

@@ -15,7 +15,7 @@ U0 Song()
 	Play("eBDqF2sG3A2G3AqAAAetDAAsDBDB");
   }
   } catch
-    CatchAll;
+    PutExcept;
   Snd(0);
 }
 

Accts/TS/TAD/MusicOrgan/compassions.CPP

@@ -8,7 +8,7 @@ U0 Song()
   try {
   while (!ScanKey) {
 	Play("3qBAeEEqAeAEDB2qG3F",
-		"$$FG,RED$$You \0need \0help!\n\0 \0 \0 \0Po\0-o\0-o\0r \0dear.\n\0");
+		"$$RED$$You \0need \0help!\n\0 \0 \0 \0Po\0-o\0-o\0r \0dear.\n\0");
 	Play("BAeEEqAeAEDB2qG3F",
 		"You \0need \0help!\n\0 \0 \0 \0Po\0-o\0-o\0r \0dear.\n$$FG$$\0");
 	Play("4eFGqDetFEDeDEetADEC3G4GqD3G",
@@ -17,7 +17,7 @@ U0 Song()
 		"Pat\0ron\0ize?  \0No, \0 \0thank \0you!\n\0 \0Too \0 \0man\0y \0strings \0a\0ttach\0ed.\n\0");
   }
   } catch
-    CatchAll;
+    PutExcept;
   Snd(0);
 }
 

Accts/TS/TAD/MusicOrgan/cosam.CPP

@@ -16,14 +16,14 @@ U0 Song()
 	Play("ABeCCqABAAR",
 		"What \0makes \0You \0 \0 \0think \0You're \0God?\n\0 \0");
 	Play("GDGeGA2G3FqFeDRqB",
-		"$$FG,RED$$Be\0-e-\0cause \0 \0 \0 \0I \0 \0a\0 \0m.\n\0");
+		"$$RED$$Be\0-e-\0cause \0 \0 \0 \0I \0 \0a\0 \0m.\n\0");
 	Play("GDGeGA2G3FqFeDRqB",
 		"Are \0 \0you \0 \0 \0 \0a \0 \0fan?\n$$FG$$\0 \0 \0");
-	"$$FG,GREEN$$(If God talks, how can you be sure it's not Him?\n"
+	"$$GREEN$$(If God talks, how can you be sure it's not Him?\n"
 	"You can't, so harden not your heart.)\n$$FG$$";
   }
   } catch
-    CatchAll;
+    PutExcept;
   Snd(0);
 }
 

Accts/TS/TAD/MusicOrgan/depending.CPP

@@ -0,0 +1,27 @@
+//7 has words
+U0 Song()
+{
+  CTask *task;
+  Fs->task_end_cb=&SndTaskEndCB;
+  music_tempo=2.5;
+  try {
+    task=PopUpViewStr("$LK,"BF:Luke,12:16"$\n");
+    TaskWait(task);
+    SetWinHorz(Fs->win_left,Fs->win_right,task);
+    SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
+    while (!ScanKey) {
+      Play("3etGREqDDBRGCB",
+	    "It \0 \0de\0pends \0 \0on \0 \0the \0wea\0ther.\n\0");
+      Play("etGREqDDBRGCB",
+	    "If \0 \0we \0reach \0 \0the \0 \0end \0ev\0er.\n\0");
+      Play("2sG3E2G3EqGsGBGBqDsFCFCqBRsCBCB",
+	    "Hand \0 \0of \0 \0God, \0 \0just \0 \0might, \0 \0in\0 \0ter\0 \0cedes.\n\0 \0 \0 \0 \0 \0");
+      Play("2G3E2G3EqGsGBGBqDsFCFCqBRsCBCB",
+	    "If \0 \0it's \0 \0not \0 \0deemed \0 \0right, \0 \0won't \0 \0suc\0 \0ceed.\n\0 \0 \0 \0 \0 \0");
+    }
+  } catch
+    PutExcept;
+  Snd(0);
+}
+
+Song;

Accts/TS/TAD/MusicOrgan/despairing.CPP

@@ -17,7 +17,7 @@ U0 Song()
 		"Hold \0 \0on!\n\0 \0It's \0gon\0na \0be \0fine.\n\0 \0");
   }
   } catch
-    CatchAll;
+    PutExcept;
   Snd(0);
 }
 

Accts/TS/TAD/MusicOrgan/determination.CPP

@@ -13,7 +13,7 @@ U0 Song()
     Play("ACeCCsBBBBqEsCCCCqAE");
   }
   } catch
-    CatchAll;
+    PutExcept;
   Snd(0);
 }
 

Accts/TS/TAD/MusicOrgan/disputing.CPP

@@ -14,12 +14,12 @@ U0 Song()
 		" \0 \0 \0 \0I \0hate \0you.\n\0 \0");
 	Play("M6/8");
 	Play("etABGqCsGEGEetGBDqCsCDCD",
-		"$$FG,RED$$Don't \0 \0 \0smile.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
+		"$$RED$$Don't \0 \0 \0smile.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
 	Play("etABGqCsGEGEetGBDqCsCDCD",
 		"Don't \0 \0 \0smile.$$FG$$\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
   }
   } catch
-    CatchAll;
+    PutExcept;
   Snd(0);
 }
 

Accts/TS/TAD/MusicOrgan/dream.CPP

@@ -17,7 +17,7 @@ U0 Song()
 		"Deep \0 \0 \0as \0 \0 \0we \0 \0ought \0to \0know.\n\0 \0 \0 \0 \0 \0 \0 \0");
   }
   } catch
-    CatchAll;
+    PutExcept;
   Snd(0);
 }
 

Accts/TS/TAD/MusicOrgan/efforts.CPP

@@ -13,7 +13,7 @@ U0 Song()
 	Play("3sA2G3A2G3eBCsE2G3E2G3qGsFEFEDBDBeAG2etG3B2G");
   }
   } catch
-    CatchAll;
+    PutExcept;
   Snd(0);
 }
 

Accts/TS/TAD/MusicOrgan/environeth.CPP

@@ -7,7 +7,7 @@ U0 Song()
   music_stacatto_factor= 0.902;
   try {
   while (!ScanKey) {
-	"$$FG,GREEN$$To God...$$FG$$\n";
+	"$$GREEN$$To God...$$FG$$\n";
 	Play("M5/4");
 	Play("3eEqCeEFEDCqBeEqCeEFEDCqB",
 		"Fa\0ther, \0for\0give \0them \0if \0you \0must.\n\0I'd \0like \0to \0see \0them \0turn \0to \0dust.\n\0");
@@ -15,7 +15,7 @@ U0 Song()
 	Play("sGBGBetAF2G3eEFsEGEGqDsBDBDGFGF2etG3GB");
   }
   } catch
-    CatchAll;
+    PutExcept;
   Snd(0);
 }
 

Accts/TS/TAD/MusicOrgan/epicurus.CPP

@@ -0,0 +1,40 @@
+//7 has words
+U0 Song()
+{
+  CTask *task;
+  Fs->task_end_cb=&SndTaskEndCB;
+  MusicSettingsRst;
+  music_tempo= 2.500;
+  music_stacatto_factor= 0.900;
+  try {
+    task=PopUpViewStr(
+	  "$$WW+H,1$$You get what you pray for.  "
+	  "Most people are fools like King Midas.  People have laughable notions of Heaven.  "
+	  "You'd be surprised -- I can't imagine things being much better than Earth "
+	  "because we need a sense of purpose.  "
+	  "Don't ask for stuff, let God pick, but He might get annoyed at that.  "
+	  "God wants us to be happy.  He tries hard.  If you do get what you pray for, you damn "
+	  "well better be happy, lil' sonfabitch!\n\n"
+	  "$LK,"Ecclesiastes,3:13",A="BF:Ecclesiastes,3:13"$\n"
+	  "$LK,"John,16:24",A="BF:John,16:24"$\n"
+	  );
+    TaskWait(task);
+    SetWinHorz(Fs->win_left,Fs->win_right,task);
+    SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
+    DocRecalc(DocPut(task)); //Reformat word-wrap with new window size.
+    while (!ScanKey) {
+      Play("3qBeCDqCAetAACeECsF2G3F2GqG",
+	    "I'm \0on \0a \0mis\0sion \0from \0 \0 \0my \0 \0God.\n\0 \0 \0 \0 \0");
+      Play("3BeCDqCAetAACeECsF2G3F2GqG",
+	    "I'm \0on \0a \0mis\0sion \0from \0 \0 \0my \0 \0God.\n\0 \0 \0 \0 \0");
+      Play("3etEDDDGABG2GeG3E2G3GqF2G3etGCD",
+	    "He \0 \0 \0told \0 \0 \0me \0 \0 \0 \0to \0 \0be \0hap\0py.\n\0 \0 \0 \0");
+      Play("EDDDGABG2GeG3E2G3GqF2G3etGCD",
+	    "He \0 \0 \0said \0 \0 \0to \0 \0 \0 \0make \0 \0it \0snap\0py.\n\0 \0 \0 \0");
+    }
+  } catch
+    PutExcept;
+  Snd(0);
+}
+
+Song;

Accts/TS/TAD/MusicOrgan/exalt.CPP

@@ -3,7 +3,7 @@
 
 U0 DrawIt(CTask *task,CDC *dc)
 {
-  I64 i,cx=0.85*task->win_pixel_width,cy=task->win_pixel_height+10;
+  I64 i,cx=0.85*task->pix_width,cy=task->pix_height+10;
   dc->pen_width=5;
   for (i=2;i<=7;i++) {
     dc->color=gr_rainbow_10[9-i];
@@ -13,7 +13,7 @@ U0 DrawIt(CTask *task,CDC *dc)
 
 U0 Song()
 {
-  SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
+  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
   Fs->text_attr=LTCYAN<<4+BLACK;
   Fs->draw_it=&DrawIt;
   Fs->task_end_cb=&SndTaskEndCB;
@@ -22,7 +22,7 @@ U0 Song()
   try {
     while (!ScanKey) {
       DocClear;
-      "$$BG,LTCYAN$$$$FG,BLACK$$";
+      "$$BG,LTCYAN$$$$BLACK$$";
       Play("3eEDsBABA2qG3etGECFDBECFCBReBE",
 	  "Come \0and \0sing \0 \0a\0 \0long.  \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0\n\0 \0 \0 \0");
       Play("EDsBABA2qG3etGECFDBECFCBReBE",
@@ -33,7 +33,7 @@ U0 Song()
 	  "Break \0in\0to \0song.  \0 \0 \0Strike-\0up \0 \0 \0the \0chor\0us.\n\0 \0");
     }
   } catch
-    CatchAll;
+    PutExcept;
   SettingsPop;
 }
 

Accts/TS/TAD/MusicOrgan/exiled.CPP

@@ -3,7 +3,7 @@
 U0 DrawIt(CTask *,CDC *dc)
 {
   I64 i;
-  F64 dt=tMBeat%8.0,z,w,x1,y1,z1,x2,y2,z2;
+  F64 dt=Beat%8.0,z,w,x1,y1,z1,x2,y2,z2;
   Bool first=TRUE;
   DCAllocDepthBuf(dc);
   dc->flags|=DCF_TRANSFORMATION;
@@ -13,7 +13,7 @@ U0 DrawIt(CTask *,CDC *dc)
   GrRotXEqu(dc->r,0.75*dt);
   GrRotYEqu(dc->r,0.45*dt);
   GrRotZEqu(dc->r,0.50*dt);
-  GrScaleMatEqu(dc->r,0.5);
+  GrScaleEqu(dc->r,0.5);
   for (i=-50;i<40;i+=2) {
     if (i&2)
       dc->color=LTGRAY;
@@ -37,7 +37,7 @@ U0 DrawIt(CTask *,CDC *dc)
 
 U0 Song()
 {
-  SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
+  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
   Fs->text_attr=LTCYAN<<4+BLACK;
   Fs->draw_it=&DrawIt;
   Fs->task_end_cb=&SndTaskEndCB;
@@ -56,7 +56,7 @@ U0 Song()
 	Play("ACFeBCB2GqG3ED");
     }
   } catch
-    CatchAll;
+    PutExcept;
   SettingsPop;
 }
 

Accts/TS/TAD/MusicOrgan/exodus.CPP

@@ -13,7 +13,7 @@ U0 Song()
 	Play("GE2qG3sCDCDe.EsGqCsDCDCe.AsReGE");
   }
   } catch
-    CatchAll;
+    PutExcept;
   Snd(0);
 }
 

Accts/TS/TAD/MusicOrgan/fairness.CPP

@@ -0,0 +1,34 @@
+//7 has words
+U0 Song()
+{
+  CTask *task;
+  Fs->task_end_cb=&SndTaskEndCB;
+  music_tempo=2.5;
+  try {
+    task=PopUpViewStr(
+	  "$LK,"BF:Luke,7:42"$\n"
+	  "\n"
+	  "Prodigal Son\n"
+	  "$LK,"BF:Luke,15:21"$\n"
+	  );
+    TaskWait(task);
+    SetWinHorz(Fs->win_left,Fs->win_right,task);
+    SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
+    "$$WW+H,1$$";
+    while (!ScanKey) {
+      Play("3qGGsEAEAqAsF2G3F2G3qCeEFqD",
+	    "Life, \0life, \0isn't \0 \0 \0 \0fair.  \0Isn't \0 \0 \0 \0fair.\n\0 \0 \0 \0");
+      Play("GGsEAEAqAsF2G3F2G3qCeEFqD",
+	    "Waaa, \0waaa, \0isn't \0 \0 \0 \0fair.  \0Isn't \0 \0 \0 \0fair.\n\0 \0 \0 \0");
+      Play("eFCqEBDBE2eG3EsFEFE",
+	    " \0 \0I \0 \0ne\0ver \0sin.\n\0 \0 \0 \0 \0 \0 \0");
+      Play("eFCqEBDBE2eG3EsFEFE",
+	    " \0 \0I \0 \0ne\0ver \0win.\n\0 \0 \0 \0 \0 \0 \0");
+      "$$GREEN$$(A warning on presumption. 'Who loves more man -- forgiven big debt or little?'  See prodigal son.)$$FG$$\n";
+    }
+  } catch
+    PutExcept;
+  Snd(0);
+}
+
+Song;

Accts/TS/TAD/MusicOrgan/feigned.CPP

@@ -11,14 +11,14 @@ U0 Song()
 		"$$CL$$Sit\0ting \0in \0a \0church\n\0 \0wond\0ering \0to \0my\0self,\n\0 \0");
 	Play("eD2G3BCqDsGGGGeD2G3BCqDsGGGG",
 		"\"Is \0 \0God \0 \0real?\"\n\0 \0 \0 \0 \0\"At \0 \0the \0 \0wheel?\"\n\0 \0 \0 \0 \0");
-	"$$FG,GREEN$$God talking...\n$$FG$$";
+	"$$GREEN$$God talking...\n$$FG$$";
 	Play("qFFFetREAqGsGFGFGEGEqC",
-		"$$FG,RED$$Oh, \0Hell \0yes!\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
+		"$$RED$$Oh, \0Hell \0yes!\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
 	Play("FFFetREAqGsGFGFGEGEqC",
 		"Pass \0the \0test.$$FG$$\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
   }
   } catch
-    CatchAll;
+    PutExcept;
   Snd(0);
 }
 

Accts/TS/TAD/MusicOrgan/fixing.CPP

@@ -13,7 +13,7 @@ U0 Song()
 	Play("sGBGB2etG3EGqFED2G3eBADG");
   }
   } catch
-    CatchAll;
+    PutExcept;
   Snd(0);
 }
 

Accts/TS/TAD/MusicOrgan/flung.CPP

@@ -0,0 +1,22 @@
+//7 has words
+U0 Song()
+{
+  Fs->task_end_cb=&SndTaskEndCB;
+  MusicSettingsRst;
+  music_tempo= 2.480;
+  music_stacatto_factor= 0.714;
+  try {
+  while (!ScanKey) {
+	Play("3sBBBBEBDBeEBqDeBBEDEBqD",
+		" \0 \0 \0 \0Had \0 \0a \0 \0pass\0ing \0thought.\n\0 \0 \0Not \0a \0thought \0I \0ought.\n\0");
+	Play("sFEFEeFEDBqDeEFEBABqD",
+		"Can't \0 \0 \0 \0clear \0my \0head \0of \0thought.\n\0In \0this \0trap \0my \0mind \0is \0caught.\n\0");
+	Play("eDGqEeBAABqFeBDqEA");
+	Play("eDGqEeBAABqFeBDqEA");
+  }
+  } catch
+    PutExcept;
+  Snd(0);
+}
+
+Song;

Accts/TS/TAD/MusicOrgan/freaks.CPP

@@ -17,7 +17,7 @@ U0 Song()
 		"care,\n\0for \0God \0 \0is \0their \0 \0joy!\n\0 \0 \0 \0");
   }
   } catch
-    CatchAll;
+    PutExcept;
   Snd(0);
 }
 

Accts/TS/TAD/MusicOrgan/free.CPP

@@ -0,0 +1,167 @@
+//8 has graphics
+
+class CBubble
+{
+  CBubble *next,*last;
+  F64 x,y,dx,dy,radius,t0;
+} root;
+
+F64 t0,x,y;
+U64 flags;
+
+F64 Windé()
+{
+  F64 t=ã*(Beat-t0);
+  return Arg(Sin(t/8),1.0+Sin(t/4));
+}
+
+U0 DrawIt(CTask *,CDC *dc)
+{
+  CBubble *tempb;
+  F64 é;
+  I64 r,x1,y1,z1,x2,y2,z2;
+
+  if (LBts(&flags,0))
+    return;
+
+  dc->flags|=DCF_TRANSFORMATION;
+  GrRotXEqu(dc->r,ã/4);
+
+  é=Wrap(ã-Windé);
+  GrRotZEqu(dc->r,-ã/2+é/10);
+
+  dc->color=BLUE;
+  dc->x=x;
+  dc->y=y;
+  dc->pen_width=2;
+  GrCircle3(dc,0,0,0,10);
+  GrLine3(dc,-10,0,0,-30,0,0);
+
+  tempb=root.last;
+  if (tempb!=&root) {
+    dc->color=LTBLUE;
+    r=tempb->radius*Min(1.0,0.25+2*(Beat-tempb->t0));
+    for (é=0;é<2*ã;é+=ã/2) {
+      x1=10*Cos(é);y1=10*Sin(é);z1=0;
+      GrTransform(dc,&x1,&y1,&z1);
+
+      x2=r*Cos(é);y2=r*Sin(é);z2=0;
+      GrTransform(dc,&x2,&y2,&z2);
+
+      GrLine(dc,x1,y1,tempb->x-x+x2,tempb->y-y+y2);
+    }
+    GrCircle(dc,tempb->x,tempb->y,r);
+    tempb=tempb->last;
+  }
+  while (tempb!=&root) {
+    dc->color=LTBLUE;
+    GrCircle(dc,tempb->x,tempb->y,tempb->radius);
+    dc->color=LTGRAY;
+    GrCircle(dc,tempb->x+0.65*tempb->radius*Cos(5*ã/8),
+		tempb->y-0.65*tempb->radius*Sin(5*ã/8),1.0+0.2*tempb->radius);
+    tempb=tempb->last;
+  }
+  LBtr(&flags,0);
+}
+
+U0 AnimateTask(I64)
+{ //Preemption is off after Spawn
+  CTask *task=Fs->parent_task;
+  CBubble *tempb,*tempb1;
+  F64 t_last=Beat,dt,tSpawn=0,é;
+
+  while (TRUE) {
+    dt=Beat-t_last;
+    t_last=Beat;
+
+
+    x+=2*Sin(Beat/3)*dt;
+    y+=2*Sin(Beat/2)*dt;
+
+    while (LBts(&flags,0))
+      Yield;
+
+    tSpawn+=dt;
+    while (tSpawn>1.0) {
+      tempb=MAlloc(sizeof(CBubble));
+      tempb->x=x;
+      tempb->y=y;
+      tempb->dx=0;
+      tempb->dy=0;
+      tempb->radius=Rand*6+4;
+      tempb->t0=Beat;
+      QueIns(tempb,root.last);
+      tSpawn-=Rand;
+    }
+
+    é=Windé;
+    tempb=root.next;
+    while (tempb!=&root) {
+      tempb1=tempb->next;
+
+      tempb->dx+=25*dt*(Rand-0.5);
+      tempb->dy+=25*dt*(Rand-0.5);
+      tempb->x += dt*(20*Cos(é)+tempb->dx);
+      tempb->y +=-dt*(20*Sin(é)+tempb->dy);
+
+      if (!(0<=tempb->x<task->pix_width) ||
+	  !(0<=tempb->y<task->pix_height) ) {
+	QueRem(tempb);
+	Free(tempb);
+      }
+
+      tempb=tempb1;
+    }
+
+    LBtr(&flags,0);
+    Sleep(20);
+  }
+}
+
+U0 Init()
+{
+  flags=0;
+  QueInit(&root);
+  t0=Beat;
+  x=360; y=52;
+}
+
+U0 CleanUp()
+{
+  QueDel(&root);
+}
+
+U0 Song()
+{
+  CTask *task;
+  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
+  Preempt(OFF);
+  Init;
+  Fs->animate_task=Spawn(&AnimateTask,NULL,"Animate",,Fs);
+  Fs->draw_it=&DrawIt;
+  Fs->task_end_cb=&SndTaskEndCB;
+  MusicSettingsRst;
+  music_tempo= 2.480;
+  music_stacatto_factor= 0.902;
+  try {
+    task=PopUpViewStr("$LK,"Romans,8:28",A="BF:Romans,8:28"$\n");
+    TaskWait(task);
+    SetWinHorz(Fs->win_left,Fs->win_right,task);
+    SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
+    while (!ScanKey) {
+      Play("3qEEBeBDsBBBBqDsBFBFD2G3D2G",
+	    "Free \0will... \0 \0 \0 \0 \0 \0 \0 \0 \0I \0 \0 \0 \0fail.\n\0 \0 \0 \0");
+      Play("3qEEBeBDsBBBBqDsBFBFD2G3D2G",
+	    "God \0still... \0 \0 \0 \0 \0 \0 \0 \0 \0I \0 \0 \0 \0hail.\n\0 \0 \0 \0");
+      Play("3qD2G3eA2G3qCetECAqBsACACqA",
+	    "All \0things \0work \0for \0good... \0to \0the \0Lord.\n\0 \0 \0 \0 \0 \0 \0");
+      Play("D2G3eA2G3qCetECAqBsACACqA",
+	    "It's \0all \0good... \0 \0 \0as\0 \0sured.\n\0 \0 \0 \0 \0 \0 \0");
+    }
+  } catch
+    PutExcept;
+  SettingsPop;
+  CleanUp;
+}
+
+Song;

Accts/TS/TAD/MusicOrgan/hearsay.CPP

@@ -0,0 +1,24 @@
+//7 has words
+U0 Song()
+{
+  Fs->task_end_cb=&SndTaskEndCB;
+  MusicSettingsRst;
+  music_tempo= 2.480;
+  music_stacatto_factor= 0.902;
+  try {
+  while (!ScanKey) {
+	Play("3qAeCDqEAeCDECDECsCC",
+		"I \0don't \0 \0know.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
+	Play("qAeCDqEAeCDECDECsCC",
+		"Let's \0go \0 \0slow.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
+	Play("eDAGAqDsECECCBCBeAFsDCeGDE",
+		"You \0 \0say \0 \0that, \0God?\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
+	Play("DAGAqDsECECCBCBeAFsDCeGDE",
+		"It \0 \0sounds \0 \0odd.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
+  }
+  } catch
+    PutExcept;
+  Snd(0);
+}
+
+Song;

Accts/TS/TAD/MusicOrgan/honestly.CPP

@@ -13,7 +13,7 @@ U0 Song()
 	Play("3sBDBDA2G3A2G3etAAEsGCGCetFFEqDFeE2G");
   }
   } catch
-    CatchAll;
+    PutExcept;
   Snd(0);
 }
 

Accts/TS/TAD/MusicOrgan/image.CPP

@@ -0,0 +1,32 @@
+//7 has words
+U0 Song()
+{
+  CTask *task;
+  Fs->task_end_cb=&SndTaskEndCB;
+  music_tempo=2.5;
+  try {
+    task=PopUpViewStr(
+	  "Asking God for stuff is like knocking on the door\n"
+	  "of a neighbor in the middle of the night.\n"
+	  "It's annoying!  We're supposed to love God!\n"
+	  "$LK,"BF:Luke,11:5"$\n"
+	  );
+    TaskWait(task);
+    SetWinHorz(Fs->win_left,Fs->win_right,task);
+    SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
+    while (!ScanKey) {
+      Play("3qBBE2GG3FFC",
+	    "We \0are \0in \0the \0image \0of \0God.\n\0 \0");
+      Play("BBE2GG3FFC",
+	    "Some \0people's \0prayer \0is \0ver\0y \0odd.\n\0 \0");
+      Play("eGDqCB2G3eGEqEC2G",
+	    "They \0don't \0love \0Him.\n\0 \0They \0love \0their \0neigh\0bor.\n\0");
+      Play("3eGDqCB2G3eGEqEC2G",
+	    "Pest\0er\0ing \0Him.\n\0 \0Ask\0ing \0for \0fav\0ors.\n\0");
+    }
+  } catch
+    PutExcept;
+  Snd(0);
+}
+
+Song;

Accts/TS/TAD/MusicOrgan/kept.CPP

@@ -0,0 +1,28 @@
+//8 has words
+U0 Song()
+{
+  CTask *task;
+  Fs->task_end_cb=&SndTaskEndCB;
+  try {
+    task=PopUpViewStr("$LK,"BF:Matthew,19:16"$\n");
+    TaskWait(task);
+    SetWinHorz(Fs->win_left,Fs->win_right,task);
+    SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
+    "$$WW+H,1$$";
+    while (!ScanKey) {
+      Play("3eGAetCCCFFDqAeAAFAAFqG",
+	    "I \0 \0have \0 \0 \0kept \0 \0 \0 \0 \0 \0the \0 \0 \0com\0mands.\n\0");
+      Play("eGAetCCCFFDqAeAAFAAFqG",
+	    "I \0 \0have \0 \0 \0kept \0 \0 \0 \0 \0 \0the \0 \0 \0com\0mands.\n\0");
+      Play("EeEGqEeEEqDBetCCGqC",
+	    "What \0 \0 \0else \0 \0 \0must \0I \0do?\n\0 \0 \0 \0");
+      Play("EeEGqEeEEqDBetCCGqC",
+	    "What \0 \0 \0else \0 \0 \0must \0I \0do?\n\0 \0 \0 \0");
+      "$$GREEN$$(Christ said sell all and follow me.)\n$$FG$$";
+    }
+  } catch
+    PutExcept;
+  Snd(0);
+}
+
+Song;

Accts/TS/TAD/MusicOrgan/killed.CPP

@@ -0,0 +1,29 @@
+//7 has words
+U0 Song()
+{
+  Fs->task_end_cb=&SndTaskEndCB;
+  MusicSettingsRst;
+  music_tempo= 2.480;
+  music_stacatto_factor= 0.902;
+  try {
+  while (!ScanKey) {
+	Play("M4/4");
+	Play("3qBsEGeBDe.AsCeA2qF3sBBeACBBsBB",
+		"I \0could \0 \0 \0die.\n\0 \0 \0 \0 \0 \0 \0 \0Could \0I \0kill?\n\0 \0 \0");
+	Play("qBsEGeBDe.AsCeA2qF3sBBeACBBsBB",
+		"I'm \0not \0 \0 \0spry.\n\0 \0 \0 \0 \0 \0 \0 \0I \0best \0chill.\n\0 \0 \0");
+	Play("eDDsGFGFeEBqGM5/4",
+		"If \0 \0God \0 \0 \0 \0 \0 \0ask,\n\0");
+	Play("eBGF4A3e.FsEqAAM4/4",
+		" \0\"$$RED$$Can \0 \0 \0you \0 \0Kill?$$FG$$\"\n\0 \0");
+	Play("eDDsGFGFeEBqGM5/4",
+		"I \0 \0think, \0 \0 \0 \0 \0 \0\"Yeah.\"\n\0");
+	Play("eBGF4A3e.FsEqAA",
+		" \0\"Right \0 \0 \0my \0 \0will.\"\n\0 \0");
+  }
+  } catch
+    PutExcept;
+  Snd(0);
+}
+
+Song;

Accts/TS/TAD/MusicOrgan/lusted.CPP

@@ -7,13 +7,13 @@ U0 Song()
   music_stacatto_factor= 0.902;
   try {
   while (!ScanKey) {
-	Play("3qGsARARCBCBeACACGCGBAsEA");
+	Play("3qCeBGqFD2G3eBsBGe.AsEeAG");
-	Play("qGsARARCBCBeACACGCGBAsEA");
+	Play("qCeBGqFD2G3eBsBGe.AsEeAG");
-	Play("eAsCEqEsDECEqAsDACAeAGFsBDeCB");
+	Play("CCDqBsCRDBDB2eG3FCFqBsCCDD");
-	Play("AsCEqEsDECEqAsDACAeAGFsBDeCB");
+	Play("qCeDqBsCRDBDB2eG3FCFqBsCCDD");
   }
   } catch
-    CatchAll;
+    PutExcept;
   Snd(0);
 }
 

Accts/TS/TAD/MusicOrgan/mary.CPP

@@ -13,7 +13,7 @@ U0 Song()
 	Play("eDAsFDFDqFsFBFB2qG3etBBBqFC");
   }
   } catch
-    CatchAll;
+    PutExcept;
   Snd(0);
 }
  

Accts/TS/TAD/MusicOrgan/mightest.CPP

@@ -2,8 +2,8 @@
 
 U0 DrawIt(CTask *task,CDC *dc)
 {
-  F64 x1,x2,y1,y2,x3,y3,radius,pedals,é,t=tMBeat,
+  F64 x1,x2,y1,y2,x3,y3,radius,pedals,é,t=Beat,
-    cx=335,cy=task->win_pixel_height>>1;
+    cx=335,cy=task->pix_height>>1;
   Bool first=TRUE;
 
   radius=cy*(1.0+Sin(2*ã*t));
@@ -28,7 +28,7 @@ U0 DrawIt(CTask *task,CDC *dc)
 
 U0 Song()
 {
-  SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
+  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
   Fs->draw_it=&DrawIt;
   Fs->task_end_cb=&SndTaskEndCB;
 
@@ -45,7 +45,7 @@ U0 Song()
       "Test \0me \0 \0 \0 \0Lord. \0See \0if \0I'm \0wor\0thy.\n\0");
     }
   } catch
-    CatchAll;
+    PutExcept;
   SettingsPop;
 }
 

Accts/TS/TAD/MusicOrgan/nay.CPP

@@ -16,7 +16,7 @@ U0 Song()
 		"What \0do \0YOU \0 \0 \0know.  \0 \0 \0 \0 \0 \0It's \0 \0kosh\0er!\n\0");
   }
   } catch
-    CatchAll;
+    PutExcept;
   Snd(0);
 }
 

Accts/TS/TAD/MusicOrgan/o.CPP

@@ -13,7 +13,7 @@ U0 Song()
 	Play("3G2G3qEeAsA2G3qAsEAEADEDEqFeA2G");
   }
   } catch
-    CatchAll;
+    PutExcept;
   Snd(0);
 }
 

Accts/TS/TAD/MusicOrgan/permitted.CPP

@@ -13,7 +13,7 @@ U0 Song()
 	Play("qC2G3sGFGFDCDCetE2G3CGFAqDeFC");
   }
   } catch
-    CatchAll;
+    PutExcept;
   Snd(0);
 }
 

Accts/TS/TAD/MusicOrgan/personal.CPP

@@ -15,7 +15,7 @@ U0 Song()
 		" \0 \0 \0That's \0 \0O.\0 \0K. \0 \0 \0 \0 \0 \0It's \0 \0works \0 \0 \0for \0me.\n\0");
   }
   } catch
-    CatchAll;
+    PutExcept;
   Snd(0);
 }
 

Accts/TS/TAD/MusicOrgan/population.CPP

@@ -13,7 +13,7 @@ U0 Song()
 	Play("qGsEAEAqBetDCF2qG3DsGDGDetCRC");
   }
   } catch
-    CatchAll;
+    PutExcept;
   Snd(0);
 }
 

Accts/TS/TAD/MusicOrgan/project.CPP

@@ -0,0 +1,24 @@
+//7 has words
+U0 Song()
+{
+  Fs->task_end_cb=&SndTaskEndCB;
+  MusicSettingsRst;
+  music_tempo= 2.480;
+  music_stacatto_factor= 0.902;
+  try {
+  while (!ScanKey) {
+	Play("3qGsARARCBCBeACACGCGBAsEA",
+		"I'm \0mak\0 \0ing \0 \0some\0 \0thing \0 \0 \0 \0 \0 \0for \0 \0God.\n\0 \0 \0 \0 \0");
+	Play("qGsARARCBCBeACACGCGBAsEA",
+		"I'm \0mak\0 \0ing \0 \0some\0 \0thing \0 \0 \0 \0 \0 \0for \0 \0God.\n\0 \0 \0 \0 \0");
+	Play("eAsCEqEsDECEqAsDACAeAGFsBDeCB",
+		" \0 \0 \0I \0hope \0 \0He \0 \0 \0likes \0 \0it.\n\0 \0 \0 \0 \0 \0 \0 \0 \0");
+	Play("AsCEqEsDECEqAsDACAeAGFsBDeCB",
+		" \0 \0 \0I \0hope \0 \0He \0 \0 \0likes \0 \0it.\n\0 \0 \0 \0 \0 \0 \0 \0 \0");
+  }
+  } catch
+    PutExcept;
+  Snd(0);
+}
+
+Song;

Accts/TS/TAD/MusicOrgan/psalm.CPP

@@ -18,7 +18,7 @@ U0 Song()
 		"This \0 \0 \0I \0 \0 \0 \0pray.\n\0 \0 \0 \0 \0 \0 \0");
   }
   } catch
-    CatchAll;
+    PutExcept;
   Snd(0);
 }
 

Accts/TS/TAD/MusicOrgan/readier.CPP

@@ -0,0 +1,20 @@
+//9 no nothing
+U0 Song()
+{
+  Fs->task_end_cb=&SndTaskEndCB;
+  MusicSettingsRst;
+  music_tempo= 2.646;
+  music_stacatto_factor= 0.989;
+  try {
+  while (!ScanKey) {
+	Play("2q.G3sCCqAeBB2qG3CeAAqB");
+	Play("q.CsCCeCCCCBDDDDDqB");
+	Play("e.AsADCeAetDDDeAsEGeBFsFDFDeEsFACGeC");
+	Play("e.AsADCeAetDDDeAsEGeBFsFDFDeEsFACGeC");
+  }
+  } catch
+    PutExcept;
+  Snd(0);
+}
+
+Song;

Accts/TS/TAD/MusicOrgan/reasoning.CPP

@@ -15,7 +15,7 @@ U0 Song()
 		"Watch \0 \0those \0 \0thoughts.  \0 \0 \0 \0Head \0 \0on \0 \0straight.\n\0 \0 \0 \0 \0");
   }
   } catch
-    CatchAll;
+    PutExcept;
   Snd(0);
 }
 

Accts/TS/TAD/MusicOrgan/reliance.CPP

@@ -0,0 +1,37 @@
+//8 has words
+U0 Song()
+{
+  CTask *task;
+  Fs->task_end_cb=&SndTaskEndCB;
+  music_tempo=2.5;
+  try {
+    task=PopUpViewStr(
+	  "$$WW+H,1$$$LK,"BF:Matthew,6:11"$\n\n"
+	  "I find two things interesting.  Jesus asks for "
+	  "the bare minimum... can't ask for less than daily bread.  "
+	  "Also, He actually demands it.  I find that funny.\n\n"
+	  "$LK,"BF:Matthew,10:31"$\n\n"
+	  "I have a funny story.  I used to shoot birds with a BB-gun.  "
+	  "That passage didn't snd so comforting!!  How many sparrows "
+	  "am I worth?\n"
+	  );
+    TaskWait(task);
+    SetWinHorz(Fs->win_left,Fs->win_right,task);
+    SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
+    DocRecalc(DocPut(task)); //Reformat word-wrap with new window size.
+    while (!ScanKey) {
+      Play("3qGsB2G3B2G3eF2G3sGGGGeRFC2G3qFC",
+	    "Where's \0my \0 \0 \0next \0 \0 \0meal!!\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
+      Play("GsB2G3B2G3eF2G3sGGGGeRFC2G3qFC",
+	    "God, \0we \0 \0 \0had \0 \0a \0deal!!\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
+      Play("B2GsG3A2G3AeCCsCECEqACsGFGF",
+	    "Day \0old \0bread?\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
+      Play("qB2GsG3A2G3AeCCsCECEqACsGFGF",
+	    "'Dai\0ly' \0I \0 \0 \0 \0said.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
+    }
+  } catch
+    PutExcept;
+  Snd(0);
+}
+
+Song;

Accts/TS/TAD/MusicOrgan/reposes.CPP

@@ -17,7 +17,7 @@ U0 Song()
 		"Take \0 \0the \0step,\n\0 \0 \0 \0 \0 \0 \0 \0not \0back.\n\0 \0 \0 \0");
   }
   } catch
-    CatchAll;
+    PutExcept;
   Snd(0);
 }
 

Accts/TS/TAD/MusicOrgan/restless.CPP

@@ -0,0 +1,27 @@
+//9 has words
+U0 Song()
+{
+  CTask *task;
+  Fs->task_end_cb=&SndTaskEndCB;
+  MusicSettingsRst;
+  music_tempo= 1.710;
+  music_stacatto_factor= 0.736;
+  try {
+    task=PopUpViewStr("$LK,"Ecclesiastes,5:12",A="BF:Ecclesiastes,5:12"$\n");
+    TaskWait(task);
+    SetWinHorz(Fs->win_left,Fs->win_right,task);
+    SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
+    while (!ScanKey) {
+      Play("3sDDDACCADDACCAe.DsCCC2G3FD2G3FD2G3CCAe.D",
+	    "I \0 \0 \0 \0got \0 \0 \0paid, \0 \0 \0to\0 \0 \0day.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
+      Play("qD2sG3G2G3GetGDAeF2GqG3etFBAEACECE",
+	    " \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0I \0 \0 \0can't \0 \0 \0get \0 \0to \0");
+      Play("qD2sG3G2G3GetGDAeF2GqG3etFBAEACECE",
+	    "sleep.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
+    }
+  } catch
+    PutExcept;
+  Snd(0);
+}
+
+Song;