TempleOSCDV3.11.ISO

Adam/God/GodBible.CPP

@@ -269,3 +269,18 @@ public U0 BibleVerse(CDoc *doc_out=NULL,U8 *verse,I64 lines)
     Free(st2);
   }
 }
+
+U0 BibleView()
+{
+  U8 buf[STR_LEN];
+  I64 book=PopUpPickDefineSub("ST_BIBLE_BOOKS");
+  if (book>=0) {
+    StrPrint(buf,"BF:%Z,1:1",book,"ST_BIBLE_BOOKS");
+    Ed(buf);
+  }
+}
+U0 CtrlAltB(I64)
+{
+  PopUp("BibleView;");
+}
+CtrlAltCBSet('B',&CtrlAltB,"Cmd /Bible");

Adam/God/GodDoodle.CPP

@@ -101,9 +101,9 @@ public U8 *GodDoodleSprite(U8 *hex=NULL)
   if (god.doodle_dc) return NULL;
   god.doodle_done=FALSE;
   SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
-  WinMax;
-  WinBorder;
   AutoComplete;
+  WinBorder;
+  WinMax;
 
   PopUpOk("The $LK+PU,"Holy Spirit",A="FI:::/Adam/God/HSNotes.TXT"$ can puppet you.\n\n"
 	"Press $$GREEN$$<SPACE>$$FG$$ until it finishes.");

Adam/God/GodExt.CPP

@@ -18,7 +18,7 @@ god.doodle_fifo	=FifoU8New(2048*8);
 god.fifo	=FifoU8New(2048*8);
 
 extern U0 GodBitsIns(I64 num_bits,I64 n);
-extern U0 GodWord();
+extern U0 GodDoodle(U8 *hex=NULL);
 extern U0 GodPassage(I64 num_lines=20);
 extern U0 GodSong();
-extern U0 GodDoodle(U8 *hex=NULL);
+extern U0 GodWord();

Adam/God/HSNotes.TXT

@@ -153,6 +153,7 @@ You like to hangout in courts?Hospitals?$FG,4$"Prisons"$FG$
 Best way for Bill Gates to save lives?	$FG,4$Earthquake prediction$FG$
 Stem cells?			$FG,4$Lower hanging fruit exists (2007)$FG$
 Eleventh commandment?		$FG,4$Thou shall not litter.(Maybe, glory of Creation)$FG$
+Twelfth commandment?		$FG,4$Don't slaughter unarmed men in war.$FG$
 Before Katrina			$FG,4$Floods do justice. Black bead elder (tree book)$FG$
 After Katrina			$FG,4$Suffering Simplifies Life$FG$
 What field are You most better?	$FG,4$Economics$FG$

Adam/God/MakeGod.CPP

@@ -1,6 +1,9 @@
+Cd(__DIR__);;
+
 #help_index "God"
 #help_file "::/Doc/God"
 #include "GodBible"
 #include "HolySpirit"
 #include "GodSong"
 #include "GodDoodle"
+Cd("..");;