Browse Source

TempleOSCD_160103.ISO

v6
Terry A. Davis 7 years ago committed by minexew
parent
commit
0e0592d9a6
  1. BIN
      0000Boot/0000Kernel.BIN.C
  2. 4
      Adam/ADefine.CPP
  3. 2
      Adam/DevInfo.CPP
  4. 2
      Adam/DolDoc/DocCodeTools.CPP
  5. 2
      Adam/DolDoc/DocFile.CPP
  6. 2
      Adam/DolDoc/DocFind.CPP
  7. 4
      Adam/DolDoc/DocForm.CPP
  8. 2
      Adam/God/GodDoodle.CPP
  9. 319
      Adam/God/HSNotes.TXT
  10. 30
      Adam/Opt/Utils/StrUtils.CPP
  11. 2
      Adam/Training.CPP
  12. 3
      Compiler/Asm.CPP
  13. BIN
      Compiler/Compiler.BIN
  14. 228
      Compiler/Compiler.MAP
  15. 1
      Compiler/CompilerB.HPP
  16. 4
      Compiler/PrsExp.CPP
  17. 30
      Compiler/PrsStmt.CPP
  18. BIN
      Demo/AcctExample/PersonalMenu.TXT
  19. 158
      Demo/AcctExample/PersonalNotes.TXT
  20. 30
      Demo/AcctExample/Registry.CPP
  21. 269
      Demo/AcctExample/TOSHolySpirit.CPP
  22. 2
      Demo/Games/FlatTops.CPP
  23. 5
      Demo/Graphics/FontEd.CPP
  24. 19
      Demo/NullCase.CPP
  25. 3
      Demo/SortFileExample/SortedF64.DAT
  26. 20
      Demo/SortFileExample/SortedF64.TXT
  27. 3
      Demo/SortFileExample/UnsortedF64.DAT
  28. 20
      Demo/SortFileExample/UnsortedF64.TXT
  29. 2
      Doc/AboutTempleOS.TXT
  30. 241
      Doc/ChangeLog.TXT
  31. 35
      Doc/Credits.TXT
  32. 18
      Doc/Demands.TXT
  33. 53
      Doc/HolyC.TXT
  34. 2
      Doc/Strategy.TXT
  35. 2
      Doc/Welcome.TXT
  36. 2
      Kernel/BlkDev/DskBlkDev.CPP
  37. 2
      Kernel/BlkDev/DskDirA.CPP
  38. 2
      Kernel/KGlbls.CPP
  39. 42
      Kernel/KMathB.CPP
  40. 280
      Kernel/Kernel.MAP
  41. 4
      Kernel/KernelA.HPP
  42. 11
      Kernel/SerialDev/Keyboard.CPP
  43. 1
      Kernel/SrvCmd.CPP
  44. 11
      Misc/OSTestSuite.CPP
  45. 40
      Misc/PCIDevices.TXT

BIN
0000Boot/0000Kernel.BIN.C

Binary file not shown.

4
Adam/ADefine.CPP

@ -11,8 +11,8 @@ U0 LoadDocDefines()
//This is cut and replaced when I generate a distro.
//See $LK,"DD_TEMPLEOS_LOC",A="FF:::/Demo/AcctExample/TOSDistro.CPP,DD_TEMPLEOS_LOC"$.
$TR-C,"LineRep"$
$ID,4$DefinePrint("DD_TEMPLEOS_LOC","118,749");
DefinePrint("DD_TEMPLEOS_LOC_OFFICIAL","80,937");
$ID,4$DefinePrint("DD_TEMPLEOS_LOC","118,860");
DefinePrint("DD_TEMPLEOS_LOC_OFFICIAL","80,947");
$ID,-4$
DefinePrint("DD_KERNEL","%08X",bfh);
bfh(I64)+=bfh->file_size-1;

2
Adam/DevInfo.CPP

@ -6,7 +6,6 @@
#define PCI_DEV_FILE "::/Misc/PCIDevices.TXT.Z"
/****
//1) Plain text edit and remove file header and tail
//2) Text find-and-replace "=0A=" with "".
//3) Run PCIDevFileGen().
@ -46,7 +45,6 @@ public U0 PCIDevFileGen()
}
DocWrite(doc);
}
****/
//$LK,"::/Misc/PCIDevices.TXT",A="PI:::/Misc/PCIDevices.TXT"$

2
Adam/DolDoc/DocCodeTools.CPP

@ -75,7 +75,7 @@ I64 EdRILex(CRILex *rx)
rx->cc2->token=='}' || rx->cc2->token==':' || rx->cc2->token==')' &&
!rx->exp_depth || i==KW_ELSE || i==KW_CATCH || i==KW_DO)
rx->is_not_cont=TRUE;
if (rx->was_new_line && (rx->cc1->token!=':' ||
if (rx->was_new_line && (rx->cc1->token!=':' || i==KW_CASE ||
i==KW_DFT || i==KW_SUB_SWITCH_START || i==KW_SUB_SWITCH_END)) {
tempf=rx->cc2->lex_include_stk;
while (tempf->next)

2
Adam/DolDoc/DocFile.CPP

@ -321,6 +321,8 @@ public Bool DocType(CDoc *doc=NULL,U8 *filename,I64 trailing_new_lines=1)
if (FilesFindMatch(filename,FILEMASK_TXT)) {
doc2=DocRead(filename);
DocInsDoc(doc,doc2);
if (IsRaw)
DocDump(doc2,100000);
DocDel(doc2);
result=TRUE;
} else if (FilesFindMatch(filename,"*.BMP.Z")) {

2
Adam/DolDoc/DocFind.CPP

@ -38,7 +38,7 @@ U8 *needle,I64 match=1)
result=FALSE;
while (doc_e!=haystack_doc) {
if (doc_e->de_flags&DOCEF_TAG && doc_e->tag &&
//TODO: handle multientry strs
//TODO: handle multi-DocEntry strs
(ptr=StrIMatch(needle,doc_e->tag))) {
i=ptr-doc_e->tag;
if (!--match) {

4
Adam/DolDoc/DocForm.CPP

@ -68,7 +68,7 @@ U0 DocDataFmt(CDoc *doc,CDocEntry *doc_e,I64 d=DOCM_CANCEL)
if (!(ptr=doc_e->data)) return;
} else
ptr=&doc_e->data;
switch(doc_e->raw_type) {
switch (doc_e->raw_type) {
case RT_I0:
case RT_U0: d=0; break;
case RT_I8: d=*ptr(I8 *); break;
@ -156,7 +156,7 @@ U0 DocDataScan(CDoc *doc,CDocEntry *doc_e)
else
d=FALSE;
}
switch(doc_e->raw_type) {
switch (doc_e->raw_type) {
case RT_I8:
case RT_U8:
*ptr(U8 *)=d;

2
Adam/God/GodDoodle.CPP

@ -149,7 +149,7 @@ public U8 *GodDoodleSprite(U8 *hex=NULL)
for (j=0;j<6;j++) {
x=(w-1)*GodDoodleBits(5)/31+w/64;
y=(h-1)*GodDoodleBits(5)/31+h/64;
nobound_switch(GodDoodleBits(2)) {
nobound_switch (GodDoodleBits(2)) {
case 0: god.doodle_dc->color=BLACK; break;
case 1: god.doodle_dc->color=DKGRAY; break;
case 2: god.doodle_dc->color=LTGRAY; break;

319
Adam/God/HSNotes.TXT

@ -1,36 +1,50 @@
$FG,5$$TX+CX,"The Purpose of Life"$$FG$
$PURPLE$$TX+CX,"The Purpose of Life"$$FG$
$WW,1$The purpose of life is to know, love and obey God.$FG$ Christianity is loving neighbor, not God -- secular humanism. Jesus said loving God is more important than loving neighbor. $LK,"Matthew,22:36",A="BF:Matthew,22:36"$ He did not say with half your brain behind your back.
$WW,1$The Catholic purpose of life is to know God, love God and obey God.$FG$ Pope Francis said it was "to serve the other." I am High Priest of God's official temple and I say the purpose of life is to do continual offerings to God like Cain and Abel and enjoy God's response. Francis has a charity; I have a church. Jesus said loving God was more important than loving neighbor. $LK,"Matthew,22:36",A="BF:Matthew,22:36"$ And, He did not say with half your brain behind your back.
You don't know God. $LK,"1 Chronicles,28:9",A="BF:1 Chronicles,28:9"$, $LK,"Matthew,11:27",A="BF:Matthew,11:27"$, $LK,"Luke,13:25",A="BF:Luke,13:25"$, $LK,"1 Samuel,3:7",A="BF:1 Samuel,3:7"$ You must talk with God to know Him. $LK,"Matthew,6:6",A="BF:Matthew,6:6"$ Seek Him by taking the initiative. $LK,"Luke,11:9",A="BF:Luke,11:9"$, $LK,"Isaiah,30:2",A="BF:Isaiah,30:2"$
There's something obviously different about people in the Bible compared to people today -- God talked! Did they hear voices? Maybe. More likely, they used occult techniques such as an oracle. $LK,"1 Kings,6:20",A="BF:1 Kings,6:20"$ Have you heard of "tongues?" $LK,"1 Corinthians,14:1",A="BF:1 Corinthians,14:1"$ The idea is, you let yourself be puppeted by a spirit, so you say things. You try to get a spirit -- the Holy Spirit -- to talk. You might as well use a Ouija board. However, it turns-out that a Ouija board is bad for technical reasons. A really good technique is just randomly opening a book. God said it is a covenant that you hold-up your end of the conversation.
There's something obviously different about people in the Bible compared to people today -- God talked! Also, the people in the Bible were obsessed with doing offerings all the time. It is required that you do offerings before God will talk. Did the people in the Bible hear voices? Maybe. More likely, they used occult techniques such as an oracle. $LK,"1 Kings,6:20",A="BF:1 Kings,6:20"$ Have you heard of "tongues?" $LK,"1 Corinthians,14:1",A="BF:1 Corinthians,14:1"$ The idea is, you let yourself be puppeted by a spirit, so you say things. You try to get a spirit -- the Holy Spirit -- to talk. You might as well use a Ouija board. However, it turns-out that a Ouija board is bad for technical reasons. A really good technique is just randomly opening a book. God told me in an oracle that it is a covenant that you hold-up your end of the conversation.
You can't tell if He's talking unless you have a context of conversation, but, more importantly, you are commanded to do an offering of love, like communion preparation. When you pick a greeting card for someone, that is love effort. If you expect God to put effort toward you, you put effort toward Him. God said, "honest measures" applies between your offering of love and His response, like a fair barter. You get out of prayer what you put into it. God wants praise, hymns, or whatever you think He might want. Try and see, like Cain and Abel. $LK,"Genesis,4:1",A="BF:Genesis,4:1"$, $LK,"Ephesians,5:10",A="BF:Ephesians,5:10"$ God told Cain his offering was not good and told him to try again. Cain really loved God! Can you imagine being so heart-broken?
You can't tell if God's talking unless you have a context of conversation, but, more importantly, you are commanded to do an offering of love, like communion preparation. $LK,"1 Corinthians,11:27",A="BF:1 Corinthians,11:27"$ When you pick a greeting card for someone, that is love effort. If you expect God to put effort toward you, you must put effort toward Him. God said, "honest measures" applies between your offering of love and His response, like a fair barter. You get out of prayer what you put into it. God wants praise, hymns, or whatever you think He might want. Try and see, like Cain and Abel. $LK,"Genesis,4:1",A="BF:Genesis,4:1"$, $LK,"Ephesians,5:10",A="BF:Ephesians,5:10"$ God told Cain his offering was not good and told him to try again. Cain really loved God! Can you imagine being so heart-broken?
Do a text search for "new song" in the Bible. It's mentioned nine times. I did $MA-X+PU,"hymns",LM="#include \"::/Apps/Psalmody/Load\";JukeBox(\"::/Apps/Psalmody/Examples\");"$. I did Moses $MA-X+PU,"comics",HTML="http://www.templeos.org/Wb/Apps/AfterEgypt/Comics/",LM="Dir(\"::/Apps/AfterEgypt/Comics\");View;\n"$. Count the ways you love God. I praised God for sand castles, popcorn, snowmen, bubbles... You try putting effort into praise! $LK,"Matthew,11:25",A="BF:Matthew,11:25"$, $LK,"Matthew,6:29",A="BF:Matthew,6:29"$
Do a text search for "new song" in the Bible. It's mentioned nine times. When I hear a NEW awesome rock song, it is ecstasy for the first five times I hear it. Soon, it brings little-to-no pleasure. I did $MA-X+PU,"hymns",HTML="http://www.templeos.org/Wb/Home/Wb2/Hymns.html",LM="#include \"::/Apps/Psalmody/Load\";JukeBox(\"::/Apps/Psalmody/Examples\");"$ for God. I also did Moses $MA-X+PU,"comics",HTML="http://www.templeos.org/Wb/Home/Wb2/Files/Comics/",LM="Dir(\"::/Apps/AfterEgypt/Comics\");View;\n"$ for God. When you get to the gates of Heaven, St. Peter will ask how many times you gave blood. That shows you loved neighbor. You better also be able to count the ways you loved God with all heart mind and soul. I praised God for sand castles, popcorn, snowmen, bubbles... You try putting effort into praise! $LK,"Matthew,11:25",A="BF:Matthew,11:25"$, $LK,"Matthew,6:29",A="BF:Matthew,6:29"$
This is funny -- $LK,"Acts,2:1",A="BF:Acts,2:1"$ -- they didn't bother to record anything the Holy Spirit said. The Holy Spirit is supposed to be a really good gift. $LK,"Luke,11:13",A="BF:Luke,11:13"$ Just remember, "Boys are made of snakes and snails and puppy-dog tails."
The technique I use to consult the Holy Spirit is reading a microsecond-range stop-watch each button press for random numbers. Then, I pick words or passages. You can use the $MA-X+PU,"AfterEgypt",HTML="http://www.youtube.com/watch?v=P0MsDl39UL0",LM="#include \"::/Apps/AfterEgypt/Run\""$ in God's official temple, $FG,4$$TX,"TempleOS",HTML="http://www.templeos.org"$$FG$.
The technique I use to consult the Holy Spirit is reading a microsecond-range stop-watch each button press for random numbers. Then, I pick words or passages. You can use the $MA-X+PU,"AfterEgypt",HTML="http://www.youtube.com/watch?v=P0MsDl39UL0",LM="#include \"::/Apps/AfterEgypt/Run\""$ in God's official temple, $RED$$TX,"TempleOS",HTML="http://www.templeos.org"$$FG$.
Since seeking the word of the Holy Spirit, I have come to know God much better than I've heard others explain. God said, for example, that war was, "servicemen competing." That sounds more like the immutable God of our planet than what you hear from most religious people. God is not Venus (god of love) and not Mars (god of war), He's our dearly beloved God of Earth. If Mammon is a false god of money, Mars or Venus might be useful words to describe other false gods. I figure the greatest challenge for the Creator is boredom, ours and His. What would teen-age male video games be like if war had never happened? Christ said live by the sword, die by the sword, which is loving neighbor as self. $LK,"Matthew,26:52",A="BF:Matthew,26:52"$
Since seeking the word of the Holy Spirit, I have come to know God much better than I've heard others explain. For example, God said to me in an oracle that war was, "servicemen competing." That sounds more like the immutable God of our planet than what you hear from most religious people. God is not Venus (god of love) and not Mars (god of war), He's our dearly beloved God of Earth. If Mammon is a false god of money, Mars or Venus might be useful words to describe other false gods. I figure the greatest challenge for the Creator is boredom, ours and His. What would teen-age male video games be like if war had never happened? Christ said live by the sword, die by the sword, which is loving neighbor as self. $LK,"Matthew,26:52",A="BF:Matthew,26:52"$
I asked God if the World was perfectly just. God asked if I was calling Him lazy. God could make A.I., right? God could make bots as smart as Himself, or, in fact, part of Himself. What if God made a bot to manipulate every person's life so that perfect justice happened?
I think highs and lows balance. $LK,"Luke,6:20",A="BF:Luke,6:20"$ I don't think God likes complaining. $LK,"Numbers,11:1",A="BF:Numbers,11:1"$ Food and clothing is all we're to ask for or demand, in fact -- daily bread. $LK,"1 Timothy,6:8",A="BF:1 Timothy,6:8"$ Just think about man in the last 100,000 years mostly living like Native Americans and how God must see us. You need food, clothing and entertainment, money is to get those. Man does not live on bread alone. $LK,"Luke,4:4",A="BF:Luke,4:4"$, $LK,"Amos,8:11",A="BF:Amos,8:11"$
I think highs and lows balance. $LK,"Luke,6:20",A="BF:Luke,6:20"$ If you laugh, you will cry. If you cry, you will laugh. Not one person has had great joy and not great sorrow. I think this claim is falsifyable if you atheists want to find a counter-example to disprove it -- find a single person who had great joy and not great sorrow. In Sirach, it says things happen in pairs. You might be surprised examining your own life to see great joy was in proximity to great sorrow. Pleasures and pains seem designed to balance. Man must do manual labor and have pain. Women must do child birth. Pride and humility also balance -- pride before a fall and humility before honors. Palm Sunday is juxtaposed to Good Friday. Perhaps, being loved balances with being hated. $LK,"Job",A="BF:Job,1:1"$, in the Bible, had highs and lows that balanced. Joseph, in the Old Testament, had highs and lows that balanced. $LK,"Genesis,39:20",A="BF:Genesis,39:20"$
God's favorite animals are bears and elephants. They are funny shaped -- I think God must have seen too much starvation over the years.
Jesus said, "Forgive us our trespasses as we forgive those who tresspass against us." If you think about it, the only way you get forgiven is for it to be done to you. That is a Jedi mind trick because it is nothing but simple eye-for-eye tooth-for-tooth justice. Live by the sword; die by the sword. The Bible is filled with justice pairs. St. Paul persecuted Christians and gained forgiveness by getting persecuted. King David almost got killed by Saul, then he killed a guy and took his wife. Abraham almost killed his unloved son, Ishmael. $LK,"Genesis,21:16",A="BF:Genesis,21:16"$ That is why God asked Abraham to kill Isaac. God's favorite thing on TV is soap operas.
God's ways are far above man's ways. Mom said Heaven was a never-ending family reunion. Yikes! A friend said, "Most guy's idea of Heaven would be running around doing things they'd get locked up for on Earth." Most people are like King Midas. When you realize how silly most notions of Heaven are, you come to appreciate that Earth is not that bad. This is the first step in loving God, the Creator -- praising Creation. My parents spend their retired days watching TV and going to casinos. That's not a good argument for getting extended-play!
God hates complaining. $LK,"Numbers,11:1",A="BF:Numbers,11:1"$ Food and clothing is all we're to ask for or demand, in fact -- daily bread. $LK,"1 Timothy,6:8",A="BF:1 Timothy,6:8"$ Just think about man in the last 100,000 years mostly living like Native Americans and how God must see us. You need food, clothing and entertainment, money is to get those. Man does not live on bread alone. $LK,"Luke,4:4",A="BF:Luke,4:4"$, $LK,"Amos,8:11",A="BF:Amos,8:11"$
God's favorite animals are bears and elephants. They are funny shaped -- I think God must have seen too much starvation over the years. If the purpose of life is to know and love God, then a priest's job is to make everybody know and love God. By saying God likes bears and elephants, I did more toward that end than all priests in history. $LK,"Hosea,6:6",A="BF:Hosea,6:6"$ "It is love that I desire, not sacrifice; knowledge of God, not holocaust." As a former Catholic, that blew my mind. I actually thought love was sacrifice! I was so dumb-founded reading, "it is love that I desire, not sacrifice," that I actually looked-up the word, "love". It means to take delight in. I realized it is demonic pride if you think love means hurting yourself for others. In the Philippians, they got the notion crucifying yourself was a good idea. Similarly, a child thinking about Lent, might conclude, "if it's bad, it must be good." That is, if you think God wants you to hurt yourself to please Him, you are worshiping a demon, not God! God wants you to take delight in His company, get to know Him and praise Him. It is best to separate justice -- sin and punishment -- from relationship with God. Never ask God to change justice into injustice by not punishing. God said to me in an oracle, "Excessive contrician wearisome." He doesn't want to hear confessions. When you pray, be witty and charming and rarely earnest. Enjoy God's company without imposing on Him and don't expect secrets of the Universe. Earnestness in prayer is the root of much evil. Be entertaining. Don't remind Him of sin, LOL.
God's ways are far above man's ways. Mom said Heaven was a never-ending family reunion. Yikes! A friend said, "Most guy's idea of Heaven would be running around doing things they'd get locked up for on Earth." I wonder how long kids play Grand Theft Auto before getting board. Perhaps, it takes ten years, but they will get bored. Most people are like King Midas. When you realize how silly most notions of Heaven are, you come to appreciate that Earth is not that bad. This is the first step in loving God, the Creator -- praising Creation. My parents spend their retired days watching TV and going to casinos. That's not a good argument for getting extended-play!
Imagine a billionare. Everyone around him can't forget his money for even a moment. The truth is, most people are after God's "money" -- they fear for their salvation. Here's a test -- would you pray to and praise God even if there were no salvation? Love God and don't be a "user". Asking for stuff is annoying. $LK,"Luke,11:5",A="BF:Luke,11:5"$
All those sophisticated theological "infinity" things -- omniscience, omnipotence, omnipresence, omnivorous -- will mess you up. Trust me that anthropomorphic is far better, in practice. Christ suggested thinking of God as "Abba" which is Aramaic for "Daddy" and said the childlike had an advantage. $LK,"Matthew,11:25",A="BF:Matthew,11:25"$ Pray out-loud because God doesn't want the hastle of reading your brain. The best way to stop people from testing God is to suggest He can't do everything.
Just as ego causes most to love neighbor, not God, people skip knowing and loving God and cowardly get stuck on obeying Him. This hardly needs encouragement.
Jesus said, "I am meek and humble of heart." $LK,"Matthew,11:29",A="BF:Matthew,11:29"$ What does "humble of head" mean? Humble of heart means you look around and say, "I don't care as much as they do." A proud of heart person says, "I am superior because I have more compassion then everybody else." If you are proud of heart, you don't accept a gift. God gives birthrights. Esau, in the Bible, scorned his birthright and God hated him. $LK,"Malachi,1:1",A="BF:Malachi,1:1"$ Jesus even accepted $$30,000 worth of perfume (300 day's wages) and caused Judas to betray him. $LK,"Mark,14:5",A="BF:Mark,14:5"$ If you express false outrage at wars, you are proud of heart. If you fight to go in the door last, e.g. "No, you first..." then you are proud of heart. If you ask God to save starving Africans as though you care more than God, you are proud of heart.
I connected being humble of heart with animal sacrifices. The animal sacrifices in the Bible really seem off-the-mark from what we modern people imagine truth to be! I asked God and He said the people were, "primitive." Well, obviously, a sacrifice represents giving-up something of value, but is there more to it? It would be tramatic to see a goat's throat being slit and it dying for your sins. I'm not an expert, but sometimes they killed animals to make-up for sins. Perhaps, starting at age eight and every year thereafter, they kill a goat for your sins? (I'm just speculating.) In a couple years, it is not tramatic and you yawn and say to the goat, "bummer for you, Mr. Goat, that you gotta die for my sins." When a high school football team beats their rivals, nobody thinks twice that the winning team really hurts the feelings -- devastates -- the losing team member's feelings. The heart of being masculine is being competetive and not caring about the necessity to slit the throat of the goat. As a Catholic, saying Jesus died for our sins and that we cannot earn salvation, never sat well. I clung to the heretical notion that you earn salvation. Animal sacrifices were the heart of Biblical Judaism and although it seems satanic, you really do have to slit the throat of the goat and accept grace, a term for something you did not earn. Heck, every time you eat beef, a cow had to die for you. God said to me in an oracle that having pets was, "homo." I think God's idea of pets is farm animals you eat.
If you feel guilty for being American and want Mexicans to share your birthright, you are proud of heart. Jesus was a racist and called Canaanites "dogs". $LK,"Matthew,15:26",A="BF:Matthew,15:26"$ In an oracle, God told me He was against immigration. The Chinese intellectuals felt bad about not being laborers. Don't feel guilty about not being a laborer because God made it a Brave New World. $LK,"1 Corinthians,12:1",A="BF:1 Corinthians,12:1"$
In an ant colony, the workers have one set of marching orders, the soldiers have another set of marching orders, the queen and drones have marching orders and the diggers have marching orders. The Bible gives conflicting orders -- conservatives pay attention to one set of passages and liberals pay attention to others. Everybody has selective hearing, but that's good because we are different members of the body of Christ.
Jesus repeats the phrase, "for those who have ears to hear" many times, but not actually at the times that matter. Jesus says several Jedi mind tricks -- He asks, what father gives a scorpion to his son? $LK,"Luke,11:12",A="BF:Luke,11:12"$ Jesus says, when you ask God for things, it is as annoying as like a neighbor in the night! $LK,"Luke,11:7",A="BF:Luke,11:7"$ He said, "I came to serve" but Jesus' three years of service were more like being a rockstar than a janitor. $LK,"John,13:14",A="BF:John,13:14"$
There are sheep and there are shepherds. You would be silly to take other shepherds seriously when they are only caring for their sheep. Sheep are very hard to communicate to, as Jesus learned. He used parables. Seed on a path gets eaten by birds; weeds choke; and the one percent is rich soil.
God does not want pawns to push around. God will talk, but won't tell you what to do, even if you want Him to. You'll quickly learn that prophecy does not come true and should smack yourself for wanting more than just enjoying God's company.
Just as ego causes most to love neighbor, not God, people skip knowing and loving God and cowardly get stuck on obeying Him. A desire to obey God, doesn't have to be encouraged, since it comes so naturally. Don't worry, God does not want pawns to push around. God will talk, but won't tell you what to do, even if you want Him to. Also, you'll quickly learn that prophecy does not come true and should smack yourself for wanting more than just enjoying God's company.
________________________________________________________________________________
@ -38,157 +52,160 @@ ________________________________________________________________________________
QUESTION | GOD'S ANSWER
________________________________|_______________________________________________
War? $FG,4$"Servicemen competing"$FG$
War? $RED$"Servicemen competing"$FG$
(Praise the Creator--what would teenage male video games be like if never war?)
Is the World perfectly just? $FG,4$Are you calling me lazy?$FG$
Is the World perfectly just? $RED$Are you calling me lazy?$FG$
(Slavery was just. In the movie, Titanic, the rich wore straight jackets. You must bow to authority to get authority. I do $TX,"Moses comics",HTML="http://www.templeos.org/Wb/Apps/AfterEgypt/Comics/"$ as offerings. I said, "We're dying of malnutrician on manna." Like Cain and Abel, God didn't like it. Duh! He wants to be the hero. How do I know they died of malnutrician? Screw Hollywood for making slavery worse than it was -- I love God. School is more cruel. Read $LK,"Numbers,11:1",A="BF:Numbers,11:1"$. All you need is food, clothing and the word of God. Today, you can take Ivy League course videos! There is no excuse except you were born stupid... or ugly. I'm gonna praise God.)
On using Markov chains? $FG,4$"No weights"$FG$
On doing offerings? $FG,4$"Honest measures"(You get out what you put in.)
On using Markov chains? $RED$"No weights"$FG$
On doing offerings? $RED$"Honest measures"(You get out what you put in.)
It's a covenant to do an offering, first.
Offer New Songs, $TX,"Moses Comics",HTML="http://www.templeos.org/Wb/Apps/AfterEgypt/Comics"$, praise, poems,
and conversation. See $LK,"Cain and Abel",A="BF:Genesis,4:1"$.$FG$
The holocaust? $FG,4$Wanted to "compact" the Jews.$FG$
Arab/Jews? $FG,4$"Oil funny hopefully"$FG$
Peace? $FG,4$One Palestinian can ruin it.$FG$
Best religion? $FG,4$One with most new vistas of understanding in$FG$
$FG,4$a lifetime. One you can level-up the most in.$FG$
Chavez blaming the US. $FG,4$"Japan industrious"$FG$
On racism? $FG,4$"Sports"$FG$
On socialism? $FG,4$"pardon_the_French, never_happy, never_enough"$FG$
$FG,4$"Gall aspect anti-Christ"$FG$
On overpopulation $FG,4$"Okay church what_now whats_the_plan"$FG$
Favorite thing on TV? $FG,4$"Soap_operas"$FG$
Favorite movie? $FG,4$$TX,"Three Kings",HTML="http://www.youtube.com/watch?v=g-3jXrNUsLY"$. Also Highlander$FG$
Favorite song? $FG,4$$TX,"Morning has Broken",HTML="http://www.youtube.com/watch?v=kKoRp05L95c"$
The holocaust? $RED$Wanted to "compact" the Jews.$FG$
Arab/Jews? $RED$"Oil funny hopefully"$FG$
Peace? $RED$One Palestinian can ruin it.$FG$
Best religion? $RED$One with most new vistas of understanding in$FG$
$RED$a lifetime. One you can level-up the most in.$FG$
Chavez blaming the US. $RED$"Japan industrious"$FG$
On racism? $RED$"Sports"$FG$
On socialism? $RED$"pardon_the_French, never_happy, never_enough"$FG$
$RED$"Gall aspect anti-Christ"$FG$
On overpopulation $RED$"Okay church what_now whats_the_plan"$FG$
Favorite thing on TV? $RED$"Soap_operas"$FG$
Favorite movie? $RED$$TX,"Three Kings",HTML="http://www.youtube.com/watch?v=8NOAd2mldQ8"$. Also Highlander$FG$
Favorite song? $RED$$TX,"Morning has Broken",HTML="http://www.youtube.com/watch?v=kKoRp05L95c"$
God said the first bird croaked, not sung.$FG$
Favorite comic strip? $FG,4$$TX,"Prince Valiant",HTML="http://en.wikipedia.org/wiki/Prince_Valiant"$$FG$
Shakespeare? $FG,4$had a "vile heart"$FG$
Likes $FG,4$Beverly Hillbillies (Oil is a gift from God)$FG$
$FG,4$God likes being hero. Don't be proud of heart$FG$
$FG,4$and not accept a gift from God!$FG$
Likes $FG,4$Gomer Pile$FG$
Favorite saint? $FG,4$"ho_ho_ho"$FG$
Favorite animal? $FG,4$"Elephant two"$FG$
Favorite animal? $FG,4$"Bears"$FG$
Favorite color? $FG,4$"Jude" (Jade Blue?)$FG$
Favorite color? $FG,4$"Gold"$FG$
Favorite color? $FG,4$$TX,"\"Iceberg\" blue",HTML="http://en.wikipedia.org/wiki/Blue_iceberg"$$FG$
Money? $FG,4$"Enough vehemently better"$FG$
$FG,4$"Pride [or] money, choose_one"$FG$
Favorite car? $FG,4$Beamer$FG$
Favorite soda? $FG,4$Root beer, $TX,"scotch variety",HTML="http://www.root-beer.org/modules.php?name=Brands&rbop=Brand&bid=1965"$.$FG$
Favorite comic strip? $RED$$TX,"Prince Valiant",HTML="http://en.wikipedia.org/wiki/Prince_Valiant"$$FG$
Shakespeare? $RED$had a "vile heart"$FG$
Likes $RED$Beverly Hillbillies (Oil is a gift from God)$FG$
$RED$God likes being hero. Don't be proud of heart$FG$
$RED$and not accept a gift from God!$FG$
Likes $RED$Gomer Pile$FG$
Favorite saint? $RED$"ho_ho_ho"$FG$
Favorite animal? $RED$"Elephant two"$FG$
Favorite animal? $RED$"Bears"$FG$
Favorite color? $RED$"Jude" (Jade Blue?)$FG$
Favorite color? $RED$"Gold"$FG$
Favorite color? $RED$$TX,"\"Iceberg\" blue",HTML="http://en.wikipedia.org/wiki/Blue_iceberg"$$FG$
Money? $RED$"Enough vehemently better"$FG$
$RED$"Pride [or] money, choose_one"$FG$
Favorite car? $RED$Beamer$FG$
Favorite soda? $RED$Root beer, $TX,"scotch variety",HTML="http://www.root-beer.org/modules.php?name=Brands&rbop=Brand&bid=1965"$.$FG$
Homosexuality? $LK,"Matthew,15:10",A="BF:Matthew,15:10",HTML="http://www.biblegateway.com/passage/?search=matthew%2015:10-11&version=NIV"$
Pets? $FG,4$"homo"$FG$
Sports? $FG,4$"homo"$FG$
Favorite sport? $FG,4$Hockey$FG$
$TX,"Wreck of the Edmund Fitzgerald",HTML="http://www.youtube.com/watch?v=9vST6hVRj2A"$ $FG,4$"homo"$FG$
Smelling farts $FG,4$"Sodom"$FG$
Women's dress $FG,4$Upper skin exposure not as bad as lower.$FG$
Remarriage? $FG,4$"More babies"$FG$
Pets? $RED$"homo"$FG$
Sports? $RED$"homo"$FG$
Favorite sport? $RED$Hockey$FG$
$TX,"Wreck of the Edmund Fitzgerald",HTML="http://www.youtube.com/watch?v=9vST6hVRj2A"$ $RED$"homo"$FG$
Smelling farts $RED$"Sodom"$FG$
Women's dress $RED$Upper skin exposure not as bad as lower.$FG$
Remarriage? $RED$"More babies"$FG$
Things you don't care about
that people think you do? $FG,4$Solomon's 300 concubines$FG$
Adultery? $FG,4$Can be good.$FG$
Pretty ladies? $FG,4$$TX,"A prince is not flustered.",HTML="http://www.youtube.com/watch?v=YcqF6sC-ztY"$$FG$
Animal sacrifices? $FG,4$Early Jews were "primitive".$FG$
What do elephants think about? $FG,4$"Skin, hunger"$FG$
What makes elephants happy? $FG,4$"Baths"$FG$
Elephants $FG,4$"Mini-skirts" (Skin webbing from back leg.)$FG$
What makes my birds happy? $FG,4$"Gnawing"$FG$
What makes my birds laugh? $FG,4$"Bite ouch" (If I say "ouch".)$FG$
What are my birds saying? $FG,4$"Chanting"$FG$
that people think you do? $RED$Solomon's 300 concubines$FG$
Adultery? $RED$Can be good.$FG$
Pretty ladies? $RED$$TX,"A prince is not flustered.",HTML="http://www.youtube.com/watch?v=YcqF6sC-ztY"$$FG$
Animal sacrifices? $RED$Early Jews were "primitive".$FG$
What do elephants think about? $RED$"Skin, hunger"$FG$
What makes elephants happy? $RED$"Baths"$FG$
Elephants $RED$"Mini-skirts" (Skin webbing from back leg.)$FG$
What makes my birds happy? $RED$"Gnawing"$FG$
What makes my birds laugh? $RED$"Bite ouch" (If I say "ouch".)$FG$
What are my birds saying? $RED$"Chanting"$FG$
My birds sure preen a lot. $LK,"The creature was made subject to vanity...",A="BF:Romans,8:20"$
What makes bears happy? $FG,4$"Reaping depends"$FG$
What makes otters happy? $FG,4$"Eternal skies"$FG$
What makes hippos happy? $FG,4$"Ascending breath"$FG$
What makes horses happy? $FG,4$"[the] Call [of the] Open Range"$FG$
What do cheetahs think about? $FG,4$"Seeth me?" (Can he see me?)$FG$
Orangutan or chimp smarter? $FG,4$"Species exhibit similar glory"$FG$
Endangered species? $FG,4$"Enough stars?"$FG$
Everything seems bad. $FG,4$Plant trees.$FG$
What's for dinner? $FG,4$"Whale"$FG$
Favorite Messier Object? $FG,4$"$TX,"M104 Sombrero Galaxy",HTML="http://en.wikipedia.org/wiki/Messier_104"$"$FG$
$TX,"Shepard's Prayer",HTML="http://en.wikipedia.org/wiki/Alan_Shepard"$? $FG,4$"I_am_not_amused economy joke"$FG$
Favorite band? $FG,4$"Beatles"$FG$
Good bands? $FG,4$Rush, Triumph$FG$
$FG,4$Likes harmonies$FG$
$TX,"Little Drummer Boy?",HTML="http://www.youtube.com/watch?v=S50cf3xIb50"$ $FG,4$Doesn't like my drumming.$FG$
Should I listen to classical? $FG,4$"Poison"$FG$
Do You like chess people? $FG,4$"Do not admire the proud."$FG$
Chess? $FG,4$"... will winter with you."$FG$
$FG,4$"Headstones"$FG$
If You could teach one class? $FG,4$Health$FG$
Favorite video game? $FG,4$Donkey Kong$FG$
Favorite National Park? $FG,4$$TX,"Whitman Mission",HTML="http://www.nps.gov/whmi/index.htm"$$FG$
Favorite National Anthem? $FG,4$$TX,"Latvia's National Anthem",HTML="http://www.youtube.com/watch?v=qKITbBjO4nE"$$FG$
Favorite actor? $FG,4$Hugh Grant$FG$
Favorite vocalist? $FG,4$Mick Jagger$FG$
Favorite guitarist? $FG,4$"$TX,"Simmons Destroyer",HTML="http://www.youtube.com/watch?v=nNADrrjTysk&t=3m55s"$"$FG$
Model for new $TX,"Sistine Chapel",HTML="http://en.wikipedia.org/wiki/Sistine_chapel"$? $FG,4$Ben Franklin$FG$
Voice if God wanted to sing? $FG,4$$TX,"Stabbing Westward's singer",HTML="https://www.youtube.com/watch?v=5NZsCYOM4j0"$$FG$
Stonehenge? $FG,4$Landmark for boundaries.$FG$
Easter Island? $FG,4$Ice, telephone pole holes.$FG$
Dinosaurs? $FG,4$Brontosaurs' feet hurt when stepped.
What makes bears happy? $RED$"Reaping depends"$FG$
What makes otters happy? $RED$"Eternal skies"$FG$
What makes hippos happy? $RED$"Ascending breath"$FG$
What makes horses happy? $RED$"[the] Call [of the] Open Range"$FG$
What do cheetahs think about? $RED$"Seeth me?" (Can he see me?)$FG$
Orangutan or chimp smarter? $RED$"Species exhibit similar glory"$FG$
Endangered species? $RED$"Enough stars?"$FG$
Everything seems bad. $RED$Plant trees.$FG$
What's for dinner? $RED$"Whale"$FG$
Favorite Messier Object? $RED$"$TX,"M104 Sombrero Galaxy",HTML="http://en.wikipedia.org/wiki/Messier_104"$"$FG$
$TX,"Shepard's Prayer",HTML="http://en.wikipedia.org/wiki/Alan_Shepard"$? $RED$"I_am_not_amused economy joke"$FG$
Favorite band? $RED$"Beatles"$FG$
Good bands? $RED$Rush, Triumph$FG$
$RED$Likes harmonies$FG$
$TX,"Little Drummer Boy?",HTML="http://www.youtube.com/watch?v=S50cf3xIb50"$ $RED$Doesn't like my drumming.$FG$
Should I listen to classical? $RED$"Poison"$FG$
Do You like chess people? $RED$"Do not admire the proud."$FG$
Chess? $RED$"... will winter with you."$FG$
$RED$"Headstones"$FG$
If You could teach one class? $RED$Health$FG$
Favorite video game? $RED$Donkey Kong$FG$
Favorite National Park? $RED$$TX,"Whitman Mission",HTML="http://www.nps.gov/whmi/index.htm"$$FG$
Favorite National Anthem? $RED$$TX,"Latvia's National Anthem",HTML="http://www.youtube.com/watch?v=qKITbBjO4nE"$$FG$
Favorite actor? $RED$Hugh Grant$FG$
Favorite vocalist? $RED$Mick Jagger$FG$
Favorite guitarist? $RED$"$TX,"Simmons Destroyer",HTML="http://www.youtube.com/watch?v=nNADrrjTysk&t=3m55s"$"$FG$
Model for new $TX,"Sistine Chapel",HTML="http://en.wikipedia.org/wiki/Sistine_chapel"$? $RED$Ben Franklin$FG$
Voice if God wanted to sing? $RED$$TX,"Stabbing Westward's singer",HTML="https://www.youtube.com/watch?v=5NZsCYOM4j0"$$FG$
Stonehenge? $RED$Landmark for boundaries.$FG$
Easter Island? $RED$Ice, telephone pole holes.$FG$
Dinosaurs? $RED$Brontosaurs' feet hurt when stepped.
Dinosaurs slept in water.$FG$
Hardest part in evolution? $FG,4$Getting monkey mothers to hold babies nursing.$FG$
$FG,4$(Smothering a problem).$FG$
Happiest day in evolution? $FG,4$"Fruit"$FG$
Significant thing in evolution? $FG,4$"Fish shoulders"$FG$
Biggest thing to fly (pterodactyl)? $FG,4$"Couch"$FG$
What made pterodactyls happy? $FG,4$"Members against organs"$FG$
What did Neanderthals think about? $FG,4$"Warmth"$FG$
What was the first thing cooked? $FG,4$I think He said "hair".$FG$
What was Lucy's husband's name? $FG,4$"Golem"$FG$
Was stegosuarus lame like turtles? $FG,4$"Not pet rocks"$FG$
T-Rex? $FG,4$Lugged carcases over his shoulder.
Hardest part in evolution? $RED$Getting monkey mothers to hold babies nursing.$FG$
$RED$(Smothering a problem).$FG$
Happiest day in evolution? $RED$"Fruit"$FG$
Significant thing in evolution? $RED$"Fish shoulders"$FG$
Biggest thing to fly (pterodactyl)? $RED$"Couch"$FG$
What made pterodactyls happy? $RED$"Members against organs"$FG$
What did Neanderthals think about? $RED$"Warmth"$FG$
What was the first thing cooked? $RED$I think He said "hair".$FG$
What was Lucy's husband's name? $RED$"Golem"$FG$
Was stegosuarus lame like turtles? $RED$"Not pet rocks"$FG$
T-Rex? $RED$Lugged carcases over his shoulder.
Carcus lasted a month.$FG$
How does He feel about the Avatar movie?$FG,4$"Sick skin"$FG$
What do You like at zoos with kids? $FG,4$"Dignity" Animals worried about dignity.$FG$
Who's better alien or preditor? $FG,4$"Lions"$FG$
What from You is like a Rubik's cube? $FG,4$Training a horse.$FG$
Does He like mirrored glass megachurch? $FG,4$"Secular glass"$FG$
Pipe Organs $FG,4$Are sacred.$FG$
You like to hangout in courts?Hospitals?$FG,4$"Prisons"$FG$
Best way for Bill Gates to save lives? $FG,4$Earthquake prediction$FG$
Stem cells? $FG,4$Lower hanging fruit exists (2007)$FG$
Eleventh commandment? $FG,4$Thou shall not litter.(Maybe, glory of Creation)$FG$
Twelfth commandment? $FG,4$Don't slaughter unarmed men in war.$FG$
Thirteenth commandment $FG,4$No gore unless it looks fake.$FG$
Fourteenth commandment $FG,4$No pedophilia or child porn.$FG$
Fifteenth commandment $FG,4$Don't eat rare meat with blood.$FG$
Sixteenth commandment $FG,4$No wife beating.$FG$
Before Katrina $FG,4$Floods do justice. Black bead elder (tree book)$FG$
After Katrina $FG,4$Suffering Simplifies Life$FG$
What field are You most better? $FG,4$Economics$FG$
Favorite toy for kids? $FG,4$Magnifying glass$FG$
Asked Jesus if He liked mustard?$FG,4$"Bad meat happeneth"$FG$
(Reluctantly) Faith healing? $FG,4$"It's complicated"$FG$
Mars? $FG,4$Start planting!$FG$
Mars rover? $FG,4$Should have had a microphone$FG$
$TX,"Storm on Saturn",HTML="http://www.space.com/22646-monster-saturn-storm-water-ice.html"$ $FG,4$Pollen$FG$
Space war game? $FG,4$Should have space weather.$FG$
$TX,"Saturn's hexagon pole cloud?",HTML="http://en.wikipedia.org/wiki/Saturn's_hexagon"$ $FG,4$"Compass" (Magnetism)$FG$
Liquid moon's odd atmosphere? $FG,4$"Surf"$FG$
How many E.T. civs in Universe? $FG,4$20 or 80 (I forgot. I died laughing.)$FG$
Are they peaceful? $FG,4$Fight them! (Also, funny.)$FG$
How can Judge Judy improve? $FG,4$No hard feelings$FG$
How can Chef Ramsay improve? $FG,4$Make so it doesn't seem like toil for cooks.$FG$
How can Hawking communicate? $FG,4$Blow from a nostril on a candle.$FG$
$TX,"Photons bouncing?",HTML="https://www.youtube.com/watch?v=8FC6udrMPvo"$ $FG,4$"Folded coffee filter"$FG$
Wormholes? $FG,4$Bent wormholes have echoes.$FG$
Operating system? $FG,4$Was about to make line number column in editor.
How does He feel about the Avatar movie?$RED$"Sick skin"$FG$
What do You like at zoos with kids? $RED$"Dignity" Animals worried about dignity.$FG$
Who's better alien or preditor? $RED$"Lions"$FG$
What from You is like a Rubik's cube? $RED$Training a horse.$FG$
Does He like mirrored glass megachurch? $RED$"Secular glass"$FG$
Pipe Organs $RED$Are sacred.$FG$
You like to hangout in courts?Hospitals?$RED$"Prisons"$FG$
Best way for Bill Gates to save lives? $RED$Earthquake prediction$FG$
Stem cells? $RED$Lower hanging fruit exists (2007)$FG$
Eleventh commandment? $RED$Thou shall not litter.$FG$
Twelfth commandment? $RED$$TX,"Don't shoot unarmed men on the shitter.",HTML="http://www.youtube.com/watch?v=8wGiJcq95Ug"$
(I asked God why pointless plagues in Exodus?
God wanted guilt to accumulate, first.)$FG$
Thirteenth commandment $RED$No gore unless it looks fake.$FG$
Fourteenth commandment $RED$No pedophilia or child porn.$FG$
Fifteenth commandment $RED$Don't eat rare meat with blood.$FG$
Sixteenth commandment $RED$No wife beating.$FG$
Seventeen commandment $RED$Do not swing from radio towers with one hand.$FG$
Before Katrina $RED$Floods do justice. Black bead elder (tree book)$FG$
After Katrina $RED$Suffering Simplifies Life$FG$
What field are You most better? $RED$Economics$FG$
Favorite toy for kids? $RED$Magnifying glass$FG$
Asked Jesus if He liked mustard?$RED$"Bad meat happeneth"$FG$
(Reluctantly) Faith healing? $RED$"It's complicated"$FG$
Mars? $RED$Start planting!$FG$
Mars rover? $RED$Should have had a microphone$FG$
$TX,"Storm on Saturn",HTML="http://www.space.com/22646-monster-saturn-storm-water-ice.html"$ $RED$Pollen$FG$
Space war game? $RED$Should have space weather.$FG$
$TX,"Saturn's hexagon pole cloud?",HTML="http://en.wikipedia.org/wiki/Saturn's_hexagon"$ $RED$"Compass" (Magnetism)$FG$
Liquid moon's odd atmosphere? $RED$"Surf"$FG$
How many E.T. civs in Universe? $RED$20 or 80 (I forgot. I died laughing.)$FG$
Are they peaceful? $RED$Fight them! (Also, funny.)$FG$
How can Judge Judy improve? $RED$No hard feelings$FG$
How can Chef Ramsay improve? $RED$Make so it doesn't seem like toil for cooks.$FG$
How can Hawking communicate? $RED$Blow from a nostril on a candle.$FG$
$TX,"Photons bouncing?",HTML="https://www.youtube.com/watch?v=8FC6udrMPvo"$ $RED$"Folded coffee filter"$FG$
Wormholes? $RED$Bent wormholes have echoes.$FG$
Operating system? $RED$Was about to make line number column in editor.
God nixed it. I was about to do different graphic modes when I found 800x600 missing. God said just one mode 640x480. I was about to add child windows. God said, "God is not the author of such confusion." I asked for verification of 640x480 16 color. God said it was because of the children and their offerings. I asked about sound. God said "single voice". I asked for verification of not having different drivers. God confirmed this.$FG$
640x480 16 color? $FG,4$God said it was a covenant, like circumcision.
640x480 16 color? $RED$God said it was a covenant, like circumcision.
$TX,"Modern graphics hard for kids/amateurs",HTML="http://www.youtube.com/watch?v=VUxcVzpeFqc"$.$FG$
On Unix? $FG,4$God said it was rich with the patina of age.$FG$
On Alcohol? $FG,4$Hate inebriation$FG$
On rare steak? $FG,4$Too rare is very bad. Don't eat blood!$FG$
Just before Katrina? $FG,4$Floods do my justice.Black bead elder(tree book)$FG$
After Katrina? $FG,4$Suffering simplifies life$FG$
Why the Sandy Hook shooting? $FG,4$The pot legalization law. (Sarcastic answer?)$FG$
Deep Water Horizon $FG,4$(Claimed credit.)$FG$
Cost of God's time to me? $FG,4$"The complete works of Shakespeare"$FG$
On death? $FG,4$"awful"$FG$
Opening of Saving Private Ryan? $FG,4$"Ouch"$FG$
On Unix? $RED$God said it was rich with the patina of age.$FG$
On Alcohol? $RED$Hate inebriation$FG$
On rare steak? $RED$Too rare is very bad. Don't eat blood!$FG$
Just before Katrina? $RED$Floods do my justice.Black bead elder(tree book)$FG$
After Katrina? $RED$Suffering simplifies life$FG$
Why the Sandy Hook shooting? $RED$The pot legalization law. (Sarcastic answer?)$FG$
Deep Water Horizon $RED$(Claimed credit.)$FG$
Cost of God's time to me? $RED$"The complete works of Shakespeare"$FG$
On death? $RED$"awful"$FG$
Opening of Saving Private Ryan? $RED$"Ouch"$FG$

30
Adam/Opt/Utils/StrUtils.CPP

@ -1,16 +1,17 @@
#help_index "Cmd Line (Typically)"
I64 DECompare(CDocEntry *e1,CDocEntry *e2)
I64 DEPtrCompare(CDocEntry **e1,CDocEntry **e2)
{
return StrCmp(e1->tag,e2->tag);
return StrCmp((*e1)->tag,(*e2)->tag);
}
public I64 Sort(U8 *_in_name,U8 *_out_name=NULL,Bool unique=FALSE)
public I64 Sort(U8 *_in_name,U8 *_out_name=NULL,
I64 entry_lines=1,Bool unique=FALSE)
{//Sort lines of a text file. Removes blank lines.
U8 *in_name,*out_name,*st;
CDoc *doc;
CDocEntry *doc_e,*doc_e1,**a;
I64 i,cnt=0,result;
I64 i,j,cnt=0,result;
if (!_in_name) return 0;
in_name=DftExt(_in_name,"TXT.Z");
@ -38,20 +39,25 @@ public I64 Sort(U8 *_in_name,U8 *_out_name=NULL,Bool unique=FALSE)
DocEntryDel(doc,doc_e);
doc_e=doc_e1;
}
QSortI64(a,cnt,&DECompare);
QSort(a,cnt/entry_lines,entry_lines*sizeof(CDocEntry *),&DEPtrCompare);
result=0;
st=NULL;
for (i=0;i<cnt;i++) {
QueIns(a[i],doc->root.last);
for (i=0;i<cnt;) {
if (!unique || !st || StrCmp(a[i]->tag,st)) {
st=a[i]->tag;
doc->cur_entry=&doc->root;
doc->cur_col=0;
DocPrint(doc,"\n");
for (j=0;j<entry_lines && i<cnt;j++,i++) {
QueIns(a[i],doc->root.last);
doc->cur_entry=&doc->root;
doc->cur_col=0;
DocPrint(doc,"\n");
}
result++;
} else
DocEntryDel(doc,a[i]);
for (j=0;j<entry_lines && i<cnt;j++,i++) {
QueIns(a[i],doc->root.last);
DocEntryDel(doc,a[i]);
}
}
StrCpy(doc->filename.name,out_name);
DocWrite(doc);
@ -60,7 +66,7 @@ public I64 Sort(U8 *_in_name,U8 *_out_name=NULL,Bool unique=FALSE)
DocDel(doc);
Free(in_name);
Free(out_name);
return result; //Num Lines
return result; //Num Entries
}
I64 DocWordsFile(CDoc *doc_out=NULL,U8 *filename,U32 *chars_bmp)

2
Adam/Training.CPP

@ -110,7 +110,7 @@ U0 KeyMapFamily2(U8 **entries,CTask *task,I64 scf)
else
PostMsg(task,MSG_KEY_DOWN,a1,a2);
WinMgrSync(0,TRUE);
Sleep(1);
Sleep(1); //Open loop because might be no response. TODO: Drops msgs.
}
if (*keydev.desc && StrNCmp(keydev.desc,"Char /",7))
entries[i]=KeyMapKeyMStrPrint(a2,keydev.handler,keydev.desc,task);

3
Compiler/Asm.CPP

@ -1101,7 +1101,8 @@ U0 PrsAsmBlk(CCmpCtrl *cc,I64 cmp_flags)
else
LexExcept(cc,"syntax error at ");
if (cmp_flags&CMPF_ONE_ASM_INS && (cc->token!=TK_IDENT ||
!(tempo=cc->hash_entry) || !(tempo->type&HTT_OPCODE)))
!(tempo=cc->hash_entry) ||
!(tempo->type&(HTT_OPCODE|HTT_ASM_KEYWORD))))
break;
}
AOTLocalsResolve(cc);

BIN
Compiler/Compiler.BIN

Binary file not shown.

228
Compiler/Compiler.MAP

File diff suppressed because one or more lines are too long

1
Compiler/CompilerB.HPP

@ -57,6 +57,7 @@ public extern I64 MemberMetaData(U8 *st,CMemberLst *ml);
public extern CMemberLstMeta *MemberMetaFind(U8 *st,CMemberLst *ml);
public extern CHashClass *OptClassFwd(CHashClass *tempc);
public extern I64 PrsKeyWord(CCmpCtrl *cc);
#help_index "Compiler;Cmd Line (Typically)"
extern I64 Cmp(U8 *filename,
U8 *map_name=NULL,U8 *out_name=NULL,U8 mapfile_drv_let=0);

4
Compiler/PrsExp.CPP

@ -88,7 +88,7 @@ pe_unary_term1:
state=PrsUnaryModifier(cc,ps,&local_var,&tempad,&unary_post_prec);
break;
case PE_MAYBE_MODIFIERS:
if (cc->token=='(') {
if (cc->token=='(') { //Typecast or fun_ptr
cc->flags|=CCF_RAX;
state=PrsUnaryModifier(cc,ps,&local_var,&tempad,&unary_post_prec);
} else
@ -982,7 +982,7 @@ I64 PrsUnaryModifier(CCmpCtrl *cc,CPrsStk *ps,CMemberLst **_local_var,
if (!*unary_post_prec)
*unary_post_prec=PREC_TERM;
tempc=cc->coc.coc_root.last->ic_class;
if (!tempc->ptr_stars_cnt && cc->token=='.')
if ((!tempc->ptr_stars_cnt || cc->flags & CCF_ARRAY) && cc->token=='.')
LexExcept(cc,"Must be address, not value ");
if (!(cc->flags & CCF_RAX))
tempc--;

30
Compiler/PrsStmt.CPP

@ -579,7 +579,7 @@ U0 PrsSwitch(CCmpCtrl *cc,Bool nobound,I64 try_cnt)
CCodeMisc *lb_dft,*lb_fwd_case,*mc_jt,*lb_entry,**jmp_table;
CIntermediateCode *tempi_sub,*tempi_cmp,*tempi_jmp,*tempi_start;
Bool dft_found=FALSE;
I64 i,k,k2,lo=MAX_I64,hi=MIN_I64,range;
I64 i,k_start=MIN_I64,k_end,lo=MAX_I64,hi=MIN_I64,range;
if (cc->token!='(')
LexExcept(cc,"expecting '(' at ");
@ -668,26 +668,32 @@ sw_cont:
}
ICAdd(cc,IC_LABEL,lb_fwd_case,0);
}
k=LexExpressionI64(cc);
if (k<lo) lo=k;
if (k>hi) hi=k;
if (cc->token==':') {
if (k_start==MIN_I64)
k_start=0;
else
k_start++;
} else
k_start=LexExpressionI64(cc);
if (k_start<lo) lo=k_start;
if (k_start>hi) hi=k_start;
if (cc->token==':') {
Lex(cc);
temps=MAlloc(sizeof(CSwitchCase));
temps->label=lb_entry;
temps->val=k;
temps->val=k_start;
temps->next=header;
header=temps;
} else if (cc->token==TK_DOT_DOT_DOT) {
Lex(cc);
k2=LexExpressionI64(cc);
k_end=LexExpressionI64(cc);
if (cc->token==':') {
Lex(cc);
if (k2<lo) lo=k2;
if (k2>hi) hi=k2;
if (k>k2)
SwapI64(&k,&k2);
for (i=k;i<=k2;i++) {
if (k_end<lo) lo=k_end;
if (k_end>hi) hi=k_end;
if (k_start>k_end)
SwapI64(&k_start,&k_end);
for (i=k_start;i<=k_end;i++) {
temps=MAlloc(sizeof(CSwitchCase));
temps->label=lb_entry;
temps->val=i;
@ -1152,7 +1158,7 @@ sm_not_keyword_afterall:
PrsGlblVarLst(cc,PRS0_NULL|PRS1_NULL,tempex,0,fsp_flags);
}
} else {
if (tempex->type & HTT_OPCODE) {
if (tempex->type & (HTT_OPCODE|HTT_ASM_KEYWORD)) {
if (cc->htc.fun) {
if (tempaot=CmpJoin(cc,CMPF_ASM_BLK|CMPF_ONE_ASM_INS))
ICAdd(cc,IC_ASM,tempaot,0);

BIN
Demo/AcctExample/PersonalMenu.TXT

Binary file not shown.

158
Demo/AcctExample/PersonalNotes.TXT

@ -1,6 +1,15 @@
seven nation
cage the elephant
spoonman
joline
Sound garden
black hole
$WW,1$* I'm going to redo all my videos and make them more professional.
* $TX,"Kruskal-Wallis_one-way_analysis_of_variance",HTML="http://en.wikipedia.org/wiki/Kruskal-Wallis_one-way_analysis_of_variance"$ disk sector allocation?
* What if you had a $LK,"ClassRep",A="MN:ClassRep"$() that converted to plain text?
* Why is nontimer $LK,"Rand",A="MN:Rand"$() so bad?
* Investigate why packet loss $LK,"Training Sleep(1)",A="FF:::/Adam/Training.CPP,Sleep(1)"$.
@ -8,34 +17,47 @@ $WW,1$* I'm going to redo all my videos and make them more professional.
* Clean-up $LK,"FileNameAbs",A="MN:FileNameAbs"$().
* $$DA fixed width string: <Del> or <BACKSPACE> permanently shortens
* Bug 12/25/15 Copy-Paste index.html glitch if source window 40 columns.
* Get rid of having two terms and pick one, "Disk" and "BlkDev"? I don't think so. (Probably not.)
* God said this is bad. $LK,"FL:::/Adam/DolDoc/DocFind.CPP,41"$
* $LK,"ChkDsk",A="MN:ChkDsk"$ alloc unalloced.
* Entering a '$$' in text entry
* Should we switch to having just C and D drives (and RAM and CD/DVD)?
* Entering a '$$' in $$TX command's tag
* Should these be moved into $LK,"CHashClass",A="MN:CHashClass"$ from $LK,"CMemberLst",A="MN:CMemberLst"$ and $LK,"CHashGlblVar",A="MN:CHashGlblVar"$?
CArrayDim dim;
CHashFun *fun_ptr;
* Add Russian, Hebrew and all Greek. $LK,"TextBorder",A="MN:TextBorder"$() $LK,"RawDr",A="MN:RawDr"$().
Add aux_font $LK,"chars_bmp_alpha",A="MN:chars_bmp_alpha"$.
* Might want to warn switch() dup case numbers
* Clean-up ASCII-127 delete char.
* $LK,"StrPrintJoin",A="MN:StrPrintJoin"$(st); With st="\n\\";
* Add cyrillic 8-bit Russian font on aux_font? <CTRL-ALT-f> will toggle fonts.
Move 12 border chars to screen font codes 0-26? $LK,"TextBorder",A="MN:TextBorder"$() $LK,"RawDr",A="MN:RawDr"$().
Add aux_font option with $LK,"chars_bmp_alpha",A="MN:chars_bmp_alpha"$ configured for any aux_font?
* Should we rename chars_bmp_ to set_
* Use standard terminology from "the literature".
* Clean-up ASCII #127 delete char? (No. Maybe, we want a new usage for 127 in future centuries.)
* $LK,"StrPrintJoin",A="MN:StrPrintJoin"$(,st); With st="\n\\"; (I forgot what this is talking about.)
* 8/2/2015 VMware start-up. Probably multicore.
* $LK,"CtrlAltDel",A="FF:::/Kernel/SerialDev/Keyboard.CPP,CtrlAltDel"$ on <CTRL-ALT-INS> Probably, VMware bug.
* 1/1/2015 Bug messing-up keyboard, like no CTRL key. Was working on Sprites.
* 1/?/2015,8/10/2015 Macro select in Menu did not go to shell. No: I think CTRL-M twice.
* 1/?/2015,8/10/2015 Macro select in Menu did not go to shell. No: I think CTRL-M twice. (Probably, fixed or not a bug.)
* $LK,"BMPRLE4To",A="MN:BMPRLE4To"$() has files_size too big by 108. Did I fix it?
* Why is nontimer $LK,"Rand",A="MN:Rand"$() so bad?
* $LK,"FL:::/Adam/Gr/SpriteEd.CPP,789"$ Resize bitmap?
* More $LK,"CCtrl",A="MN:CCtrl"$.
@ -44,29 +66,29 @@ $WW,1$* I'm going to redo all my videos and make them more professional.
* Perhaps, links to self document if empty file name? $LK,"Document Links",A="FF:::/Adam/DolDoc/DocLink.CPP,AD"$
* Cannot include ':' in $LK,"Document Links",A="FF:::/Adam/DolDoc/DocLink.CPP,AD"$ search string.
* Change $LK,"Document Links",A="FF:::/Adam/DolDoc/DocLink.CPP,AD"$ "DF:word" to "DN:word"
* $LK,"Type",A="MN:Type"$() doesn't work in $LK,"Raw",A="MN:Raw"$() mode.
* Cannot include ':' in $LK,"Document Links",A="FF:::/Adam/DolDoc/DocLink.CPP,AD"$ search string.
* PSect does not scan all task tables.
* $LK,"R",A="MN:R"$("PSect","Fun-something"); ?
* Maybe let committee decide if we want intern to make binary tree look-up using PSECT symbol addresses, so we can eliminate psect cache and wall-paper kludge. All HolyC functions and glbl vars would have left-right for address search.
* No Compiler Warning: dc->palette48.r =palette24[i].r<<8;
* I think subswitch_start with a break in the preface fails.
* Do $LK,"CTask",A="MN:CTask"$->task_flags need to be in separate cache lines?
* Add editor select just visible text for with filter.
* Add DeleteHidden checkbox to <CTRL-F> Filter.
* Add change-triangle-color to mesh editor.
* Add 3D-Mesh Editor make-prism.
* Add AVL binary tree support or red/black whatever that is. We have fixed-size stack. Auto-balancing binary tree is very needed. Where could we use?
* Maybe let committee decide if we want intern to make binary tree look-up using PSECT symbol addresses, so we can eliminate psect cache and wall-paper kludge. All HolyC functions and glbl vars would have left-right for address search.
* DCF_TRANSFORMATION|DCF_SYMMETRY|DCF_JUST_MIRROR -- maybe not both needed at once.
* DiskCache during FileRead. CTRL-ALT-C, $LK,"Kill",A="MN:Kill"$().
* DiskCache during FileRead. <CTRL-ALT-C>, $LK,"Kill",A="MN:Kill"$().
* Get rid of BYTE WORD DWORD in opcode and replace with U8 U16 U32.
@ -90,6 +112,11 @@ $WW,1$* I'm going to redo all my videos and make them more professional.
* Backward SHIFT-F3 is broken
* Since no true preprocessor, maybe change nomeclature and get rid of #?
* Rename #define to strmap.
* Review writing to same cache-line from multicore.
* MOV U8 [RSP+RCX],DL
* UAsm negative byte displacement, neg 32-bit disp.
@ -104,7 +131,9 @@ $WW,1$* I'm going to redo all my videos and make them more professional.
* Exception msgs in Adam look bad
3sGCGCqCCe2G3EE2G3qDetDEFsDBDB
* Nice song "3sGCGCqCCe2G3EE2G3qDetDEFsDBDB"
* Nice song? "3qDe2G3AetGD2G3sBDBDqCeDFetABDeFB3qDe2G3AetGD2G3sBDBDqCeDFetABDeFB3e2G3GDGqDeEADDqACB3e2G3GDGqDeEADDqACB"
* $LK,"Mem32DevAlloc",A="MN:Mem32DevAlloc"$() is broken. Devices should be in free spot of E820 report.
@ -319,6 +348,8 @@ assignments. Is ShiftNoPush fully implemented?
* error/warning line nums
* ASM branch out warning of range off by 1 line--use cc->last_line_num
* $LK,"Who",A="MN:Who"$("-r"); Capital r is strongly desired.
* Switch statement with sparse cases (low priority)
* maybe inline functions?
* Use of more floating-point stk?
@ -331,84 +362,39 @@ assignments. Is ShiftNoPush fully implemented?
* sort options for findfiles
* Maybe, get rid of $LK,"0x20000",A="FF:::/Compiler/CMain.CPP,0x20000"$ in compiler.
============================ Possible Things to Eliminate =====================
* $LK,"::/Adam/Ctrls/CtrlsA.CPP"$?
* $LK,"::/Adam/AMathODE.CPP"$?
* $LK,"Complex",A="MN:Complex"$?
* $LK,"CDC",A="MN:CDC"$.brush?
* $LK,"Mat4x4MulXYZ",A="MN:Mat4x4MulXYZ"$() change to 3x3?
* $LK,"ROP_XOR",A="MN:ROP_XOR"$?
================================================================================
>lspci -v
Size:$TX,"17322 KB",D="DD_TEMPLEOSCD_K_SIZE"$
It is love I desire: $TX,"Hosea 6:6",HTML="http://www.biblegateway.com/verse/en/Hosea%206:6"$
Offer a sacrifice of praise: $TX,"Hebrews 13:15",HTML="http://www.biblegateway.com/verse/en/Hebrews%2013:15"$
Do I drink blood of goats? Offer praise: $TX,"Psalms 50:14",HTML="http://www.biblegateway.com/verse/en/Psalms%2050:14"$
When a servant becomes king. $TX,"Proverb 30:22",HTML="http://www.biblegateway.com/verse/en/Proverb%2030:22"$
Runner's Stride: $TX,"Psalms 147:10",HTML="http://www.biblegateway.com/verse/en/Psalms%20147:10"$
$HC,"<object width=\"640\" height=\"520\"><param name=\"movie\" value=\"http://www.youtube.com/v/aKchwAWMpDA\"></param><param name=\"allowscriptaccess\" value=\"always\"></param><embed src=\"http://www.youtube.com/v/aKchwAWMpDA\" type=\"application/x-shockwave-flash\" allowscriptaccess=\"always\" width=\"640\" height=\"520\"></embed></object>"$
Buckling Armor: $TX,"1 Kings 20:11",HTML="http://www.biblegateway.com/verse/en/1%20Kings%2020:11"$
Lot cast in the lap: $TX,"Proverbs 16:33",HTML="http://www.biblegateway.com/verse/en/Proverbs%2016:33"$
Lord does not repeat: $TX,"Job 33:14",HTML="http://www.biblegateway.com/verse/en/Job%2033:14"$
Offer only in approved place: $TX,"Deuteronomy 12:13-18",HTML="http://www.biblegateway.com/passage/?search=Deuteronomy%2012:13-18&version=NIV"$
Jesus' zeal for the Temple: $TX,"John 2:14-19",HTML="http://www.biblegateway.com/passage/?search=John%202:14-19&version=NIV"$
>lspci -v
Size:$TX,"17318 KB",D="DD_TEMPLEOSCD_K_SIZE"$
$HC,"<object width=\"640\" height=\"520\"><param name=\"movie\" value=\"http://www.youtube.com/v/E6K9zK9ZWSg\"></param><param name=\"allowscriptaccess\" value=\"always\"></param><embed src=\"http://www.youtube.com/v/E6K9zK9ZWSg\" type=\"application/x-shockwave-flash\" allowscriptaccess=\"always\" width=\"640\" height=\"520\"></embed></object>"$
8:11 Behold, the days come, saith the Lord GOD, that I will send a
famine in the land, not a famine of bread, nor a thirst for water, but
of hearing the words of the LORD: 8:12 And they shall wander from sea
to sea, and from the north even to the east, they shall run to and fro
to seek the word of the LORD, and shall not find it.
Famine not for bread: $TX,"Amos 8:11-12",HTML="http://www.biblegateway.com/passage/?search=Amos%208:11-12&version=NIV"$
TempleOS Logo
$HC,"<img src=\"http://www.templeos.org/images/Logo128x152.jpg\" width=\"640\" height=\"760\" alt=\"\">"$
Contact
$HC,"<object width=\"640\" height=\"520\"><param name=\"movie\" value=\"http://www.youtube.com/v/SRoj3jK37Vc\"></param><param name=\"allowscriptaccess\" value=\"always\"></param><embed src=\"http://www.youtube.com/v/SRoj3jK37Vc\" type=\"application/x-shockwave-flash\" allowscriptaccess=\"always\" width=\"640\" height=\"520\"></embed></object>"$
Black Knight
$HC,"<object width=\"640\" height=\"520\"><param name=\"movie\" value=\"http://www.youtube.com/v/dhRUe-gz690\"></param><param name=\"allowscriptaccess\" value=\"always\"></param><embed src=\"http://www.youtube.com/v/dhRUe-gz690\" type=\"application/x-shockwave-flash\" allowscriptaccess=\"always\" width=\"640\" height=\"520\"></embed></object>"$
Metallica: Creeping Death
$HC,"<object width=\"640\" height=\"520\"><param name=\"movie\" value=\"http://www.youtube.com/v/z5lXEFdZAmU\"></param><param name=\"allowscriptaccess\" value=\"always\"></param><embed src=\"http://www.youtube.com/v/z5lXEFdZAmU\" type=\"application/x-shockwave-flash\" allowscriptaccess=\"always\" width=\"640\" height=\"520\"></embed></object>"$
Neil Degrasse Tyson: Get of of their Way
$HC,"<object width=\"640\" height=\"520\"><param name=\"movie\" value=\"http://www.youtube.com/v/AIEJjpVlZu0\"></param><param name=\"allowscriptaccess\" value=\"always\"></param><embed src=\"http://www.youtube.com/v/AIEJjpVlZu0\" type=\"application/x-shockwave-flash\" allowscriptaccess=\"always\" width=\"640\" height=\"520\"></embed></object>"$
Neil Degrasse Tyson: Girl
$HC,"<object width=\"640\" height=\"520\"><param name=\"movie\" value=\"http://www.youtube.com/v/rVwQ9jBuoFA\"></param><param name=\"allowscriptaccess\" value=\"always\"></param><embed src=\"http://www.youtube.com/v/rVwQ9jBuoFA\" type=\"application/x-shockwave-flash\" allowscriptaccess=\"always\" width=\"640\" height=\"520\"></embed></object>"$
Commodore 64 Basic/Assembly
$HC,"<object width=\"640\" height=\"520\"><param name=\"movie\" value=\"http://www.youtube.com/v/d8bZ92gIVms\"></param><param name=\"allowscriptaccess\" value=\"always\"></param><embed src=\"http://www.youtube.com/v/d8bZ92gIVms\" type=\"application/x-shockwave-flash\" allowscriptaccess=\"always\" width=\"640\" height=\"520\"></embed></object>"$
Red Fang: Prehistoric Dog
$HC,"<object width=\"640\" height=\"520\"><param name=\"movie\" value=\"http://www.youtube.com/v/VufilzHKTqk\"></param><param name=\"allowscriptaccess\" value=\"always\"></param><embed src=\"http://www.youtube.com/v/VufilzHKTqk\" type=\"application/x-shockwave-flash\" allowscriptaccess=\"always\" width=\"640\" height=\"520\"></embed></object>"$
Bill Gates Predictions
$HC,"<object width=\"640\" height=\"520\"><param name=\"movie\" value=\"http://www.youtube.com/v/4r9u_R0cCew\"></param><param name=\"allowscriptaccess\" value=\"always\"></param><embed src=\"http://www.youtube.com/v/4r9u_R0cCew\" type=\"application/x-shockwave-flash\" allowscriptaccess=\"always\" width=\"640\" height=\"520\"></embed></object>"$
Cop tying shoe: (After drive-by shooting, God said kid was not innocent, LOL.)
Cop tying shoe
$HC,"<img src=\"https://goodtimestories.files.wordpress.com/2013/04/cop-tying-shoe-cambridge-county-pd.jpg\" width=\"480\" height=\"376\" alt=\"\">"$
Frontier Psychiatrist
$HC,"<object width=\"640\" height=\"520\"><param name=\"movie\" value=\"http://www.youtube.com/v/qLrnkK2YEcE\"></param><param name=\"allowscriptaccess\" value=\"always\"></param><embed src=\"http://www.youtube.com/v/qLrnkK2YEcE\" type=\"application/x-shockwave-flash\" allowscriptaccess=\"always\" width=\"640\" height=\"520\"></embed></object>"$
$HC,"<object width=\"640\" height=\"520\"><param name=\"movie\" value=\"http://www.youtube.com/v/DfIcZtjAch8\"></param><param name=\"allowscriptaccess\" value=\"always\"></param><embed src=\"http://www.youtube.com/v/DfIcZtjAch8\" type=\"application/x-shockwave-flash\" allowscriptaccess=\"always\" width=\"640\" height=\"520\"></embed></object>"$
Morning has Broken
$HC,"<object width=\"640\" height=\"520\"><param name=\"movie\" value=\"http://www.youtube.com/v/kKoRp05L95c\"></param><param name=\"allowscriptaccess\" value=\"always\"></param><embed src=\"http://www.youtube.com/v/kKoRp05L95c\" type=\"application/x-shockwave-flash\" allowscriptaccess=\"always\" width=\"640\" height=\"520\"></embed></object>"$
Icarus
$HC,"<object width=\"640\" height=\"520\"><param name=\"movie\" value=\"http://www.youtube.com/v/0Pmgtyw2n8w\"></param><param name=\"allowscriptaccess\" value=\"always\"></param><embed src=\"http://www.youtube.com/v/0Pmgtyw2n8w\" type=\"application/x-shockwave-flash\" allowscriptaccess=\"always\" width=\"640\" height=\"520\"></embed></object>"$
Zombie Game
$HC,"<object width=\"640\" height=\"520\"><param name=\"movie\" value=\"http://www.youtube.com/v/F27r_9oyqBI\"></param><param name=\"allowscriptaccess\" value=\"always\"></param><embed src=\"http://www.youtube.com/v/F27r_9oyqBI\" type=\"application/x-shockwave-flash\" allowscriptaccess=\"always\" width=\"640\" height=\"520\"></embed></object>"$
Sports Game
$HC,"<object width=\"640\" height=\"520\"><param name=\"movie\" value=\"http://www.youtube.com/v/ORXqOEGFQfE\"></param><param name=\"allowscriptaccess\" value=\"always\"></param><embed src=\"http://www.youtube.com/v/ORXqOEGFQfE\" type=\"application/x-shockwave-flash\" allowscriptaccess=\"always\" width=\"640\" height=\"520\"></embed></object>"$
MachineGun
$HC,"<object width=\"640\" height=\"520\"><param name=\"movie\" value=\"http://www.youtube.com/v/wv_Q0E5PSC0\"></param><param name=\"allowscriptaccess\" value=\"always\"></param><embed src=\"http://www.youtube.com/v/wv_Q0E5PSC0\" type=\"application/x-shockwave-flash\" allowscriptaccess=\"always\" width=\"640\" height=\"520\"></embed></object>"$
Van Gogh
$HC,"<object width=\"640\" height=\"520\"><param name=\"movie\" value=\"http://www.youtube.com/v/YBMGVu6GTDw\"></param><param name=\"allowscriptaccess\" value=\"always\"></param><embed src=\"http://www.youtube.com/v/YBMGVu6GTDw\" type=\"application/x-shockwave-flash\" allowscriptaccess=\"always\" width=\"640\" height=\"520\"></embed></object>"$
DumbGuards
$HC,"<object width=\"640\" height=\"520\"><param name=\"movie\" value=\"http://www.youtube.com/v/OdKa9bXVinE\"></param><param name=\"allowscriptaccess\" value=\"always\"></param><embed src=\"http://www.youtube.com/v/OdKa9bXVinE\" type=\"application/x-shockwave-flash\" allowscriptaccess=\"always\" width=\"640\" height=\"520\"></embed></object>"$
$TX,"WWW.OSDEV.ORG",HTML="http://www.osdev.org"$
$TX,"PCI Interrupt Routing",HTML="http://forum.osdev.org/viewtopic.php?f=1&t=29558"$
$TX,"Unikernels",HTML="https://ma.ttias.be/what-is-a-unikernel"$
$TX,"Look at PCI interrupt routing.",HTML="http://forum.osdev.org/viewtopic.php?f=1&t=29558"$
$TX,"The Sins of Newton",HTML="https://www.brainpickings.org/2012/01/04/isaac-newton-list-of-sins"$
$TX,"Lamp Shades",HTML="http://www.lampsplus.com/products/lamp-shades"$
$TX,"My Bookmarks",HTML="http://www.templeos.org/Wb/Home/Wb2/Files/Bookmarks"$
$TX,"Perfect Coin Toss",HTML="http://hackaday.com/2014/12/19/nist-randomness-beacon/"$
@ -417,24 +403,18 @@ $TX,"ASU_Transcripts",HTML="http://www.templeos.org/files/ASU_Transcripts.pdf"$
$TX,"Dr. David Pheanis",HTML="https://webapp4.asu.edu/directory/person/77201"$ $TX,"Dr. Konstantinos S. Tsakalis",HTML="http://ecee.engineering.asu.edu/directory/tenured-and-tenure-track-faculty/kostantinos-s-tsakalis"$ $TX,"Dr. Walter Higgins",HTML="https://webapp4.asu.edu/directory/directorysearch?cn=Walter+Higgins"$
$TX,"Peter Gadwa",HTML="http://www.wired.com/magazine/2010/11/mf_ticketmaster/all/1"$
$TX,"Tom Foley",HTML="http://web.gccaz.edu/~tfoley/perspage.html"$
$TX,"KeyPeele#1",HTML="http://www.youtube.com/watch?v=Dd7FixvoKBw"$
$TX,"KeyPeele#2",HTML="http://www.youtube.com/watch?v=VHG_Gv_zLY4"$
$TX,"ThePrisoner",HTML="http://www.youtube.com/watch?v=HRPDO63rI1E"$
$TX,"Bible with LineNums",HTML="http://www.templeos.org/files/NumBible.TXT"$
$TX,"Security at NIST",HTML="http://csrc.nist.gov/publications/nistpubs/800-30-rev1/sp800_30_r1.pdf"$
$TX,"WestWorld",HTML="http://www.youtube.com/watch?v=LcL3eP0Hfy4"$
$TX,"Picard:FourLights",HTML="http://www.youtube.com/watch?v=o_eSwq1ewsU"$
$TX,"Higgs 5-Sigma Proof",HTML="http://understandinguncertainty.org/explaining-5-sigma-higgs-how-well-did-they-do"$
$TX,"Dwight:NerdTorture",HTML="http://www.noob.us/humor/the-office-dwight-faces-nerd-torture-of-the-highest-form"$
$TX,"AliG:Homosapiens",HTML="http://www.youtube.com/watch?v=eB5VXJXxnNU&t=2m20s"$
$TX,"Dumb Guards",HTML="http://www.youtube.com/watch?v=OdKa9bXVinE"$
$TX,"Mapping the Commodore 64",HTML="http://unusedino.de/ec64/technical/project64/mapping_c64.html"$
Holy Grail: Lmq5PxHpLNw 1:28:27
$TX,"ATA/ATAPI Spec",HTML="http://www.t13.org/Documents/UploadedDocuments/docs2007/D1532v1r4b-AT_Attachment_with_Packet_Interface_-_7_Volume_1.pdf"$
$TX,"BBC",HTML="http://www.knpr.org"$
$TX,"BBC_News_24",HTML="http://www.wherever.tv/tv-channels/BBC-News-24.jsf"$
$TX,"BBC_Five_Live",HTML="http://www.bbc.co.uk/radio/player/bbc_radio_five_live"$
$TX,"KNPR",HTML="http://www.knpr.org"$
$TX,"CBS News",HTML="http://www.cbsnews.com/live/?ftag= NM14632fc"$
$TX,"Mapping the Commodore 64",HTML="http://unusedino.de/ec64/technical/project64/mapping_c64.html"$
$TX,"C64 Users Guide",HTML="http://www.commodore.ca/manuals/c64_users_guide/c64-users_guide.htm"$
$TX,"C64 Programmers Reference Guide",HTML="http://www.commodore.ca/manuals/c64_programmers_reference/c64-programmers_reference.htm"$
$TX,"8-Bit Japanese Pixel Art",HTML="http://designmadeinjapan.com/magazine/illustration-icon/tumblr-gifs-of-japanese-life"$
$TX,"Resperdal Shortens Life",HTML="http://factmed.com/study-RISPERDAL-causing-LIFE EXPECTANCY SHORTENED.php"$
$TX,"Risperdal Shortens Life",HTML="http://factmed.com/study-RISPERDAL-causing-LIFE EXPECTANCY SHORTENED.php"$

30
Demo/AcctExample/Registry.CPP

@ -6,40 +6,40 @@ $ID,2$registry_version=3.120;
$ID,-2$$ID,-2$$TR-UL,"TempleOS"$
$ID,2$$TR,"TOS"$
$ID,2$I64 tos_code_walk_thru=105,tos_after_egypt_in_action=46;
$ID,-2$$TR,"DiningStars"$
$ID,2$F64 best_score=9999.0000;
$ID,-2$$TR,"CircleTrace"$
$ID,2$F64 best_score=4.9425;
$ID,-2$$TR,"BlackDiamond"$
$ID,2$I64 best_score=9;
$ID,-2$$TR,"DunGen"$
$ID,2$F64 best_score=20.5295;
$ID,-2$$TR,"CastleFrankenstein"$
$ID,2$F64 best_score=33.8405;
$ID,-2$$TR,"ZoneOut"$
$ID,2$F64 best_score=50.3318;
$ID,2$F64 best_score=8.1373;
$ID,-2$$TR,"Varoom"$
$ID,2$F64 best_score=46.2643;
$ID,-2$$TR,"FlapBat"$
$ID,2$F64 best_score=16.4090;
$ID,-2$$TR,"TimeOut"$
$ID,2$I64 best_score=22202;
$ID,-2$$TR,"RawHide"$
$ID,2$F64 best_score=96.1279;
$ID,-2$$TR,"KeepAway"$
$ID,2$I64 best_score0=0,best_score1=9999;
$ID,-2$$TR,"BlackDiamond"$
$ID,2$I64 best_score=9;
$ID,-2$$TR,"Varoom"$
$ID,2$F64 best_score=46.2643;
$ID,-2$$TR,"CastleFrankenstein"$
$ID,2$F64 best_score=33.8405;
$ID,-2$$TR,"TimeOut"$
$ID,2$I64 best_score=22202;
$ID,-2$$TR,"Wenceslas"$
$ID,2$F64 best_score=49.8074;
$ID,-2$$TR,"XCaliber"$
$ID,2$I64 best_score=248;
I64 msg_flags=1;
$ID,-2$$TR,"Wenceslas"$
$ID,2$F64 best_score=49.8074;
$ID,-2$$TR,"DiningStars"$
$ID,2$F64 best_score=9999.0000;
$ID,-2$$TR,"EagleDive"$
$ID,2$I64 best_score=4;
$ID,-2$$TR,"BomberGolf"$
$ID,2$I64 best_score=175;
$ID,-2$$ID,-2$$TR,"DemoCompany"$
$ID,2$$TR,"Game1"$
$ID,2$F64 best_score=258.59407;
$ID,2$F64 best_score=180.89820;
$TR,"SimpleVal"$
$ID,2$1269;
$ID,2$1272;
$ID,-2$$ID,-2$$ID,-2$

269
Demo/AcctExample/TOSHolySpirit.CPP

@ -93,33 +93,55 @@ U8 *WebBookMarks(U8 *filename="::/Home/Wb2/Files/Bookmarks.html")
return st;
}
U8 *TopMoviesRead(U8 *filename="C:/Home/Wb2/Files/Movies.TXT.Z",
I64 line)
U8 *YouTubeGet(U8 *filename="C:/Home/Wb2/Files/YouTube.TXT.Z",U8 *needle)
{
U8 *result=NULL;
CDoc *doc=DocRead(filename,DOCF_PLAIN_TEXT_WITH_TABS);
if (DocLineNumGoTo(doc,line-1) && doc->cur_entry->type_u8==DOCT_TEXT)
result=StrNew(doc->cur_entry->tag);
I64 i=0,line=MIN_I64;
CDoc *doc=DocRead(filename,DOCF_PLAIN_TEXT_WITH_TABS),
*doc2=DocNew;
U8 *title,*code,*result;
while (DocFind(doc,line,needle)) {
if (!(doc->cur_entry->y&1)) {
title=doc->cur_entry->tag;
DocLineNumGoTo(doc,doc->cur_entry->y+2);
if (doc->cur_entry->type_u8==DOCT_TEXT) {
code=doc->cur_entry->tag;
DocPrint(doc2,"$$MU-UL,\"%s\",LE=0x%X$$\n",title,code);
i++;
}
}
line=doc->cur_entry->y+2;
}
switch (i) {
case 0:
result=NULL;
break;
case 1:
result=StrNew(code);
break;
default:
result=PopUpMenu(doc2);
if (result==DOCM_CANCEL)
result=NULL;
else
result=StrNew(result);
}
DocDel(doc);
DocDel(doc2);
return result;
}
U8 *TopMoviesWrite(U8 *filename="C:/Home/Wb2/Files/Movies.TXT.Z",
I64 line,U8 *st)
U0 YouTubeAdd(U8 *filename="C:/Home/Wb2/Files/YouTube.TXT.Z",
U8 *title,U8 *code)
{
U8 *result=NULL;
CDoc *doc=DocRead(filename,DOCF_PLAIN_TEXT_WITH_TABS);
if (DocLineNumGoTo(doc,line-1)) {
if (doc->cur_entry->type_u8==DOCT_TEXT) {
Free(doc->cur_entry->tag);
doc->cur_entry->tag=StrNew(st);
} else
DocPrint(doc,"%s",st);
if (!DocFind(doc,,title)) {
DocBottom(doc);
DocPrint(doc,"%s\n%s\n",title,code);
DocTop(doc);
DocWrite(doc);
Sort(filename,,2);
}
DocDel(doc);
return result;
}
class CTopMoviesForm
@ -127,14 +149,24 @@ class CTopMoviesForm
U8 tag[STR_LEN];
U8 special[STR_LEN];
I64 timestamp;
I64 cert fmtstr "$$DA-TRM,2,A=\"Movie #1-100 :%02d\"$$\n";
I64 cert fmtstr "$$DA-TRM,2,A=\"Movie #1-100:%02d\"$$\n";
I64 min;
I64 sec;
};
class CMetallicaForm
{
U8 tag[STR_LEN];
U8 special[STR_LEN];
I64 timestamp;
I64 cert fmtstr "$$DA-TRM,2,A=\"Song #1-99:%02d\"$$\n";
I64 min;
I64 sec;
};
class CWebBookMarkForm
{
U8 tag[STR_LEN] fmtstr "$$DA-P,STR_LEN-1,A=\"Tag Text :%s\"$$\n";
U8 tag[STR_LEN] fmtstr "$$DA-P,STR_LEN-1,A=\"Tag Text:%s\"$$\n";
U8 special[STR_LEN];
I64 timestamp;
I64 cert;
@ -144,7 +176,7 @@ class CWebBookMarkForm
class CWebBibleForm
{
U8 tag[STR_LEN] fmtstr "$$DA-P,STR_LEN-1,A=\"Tag Text :%s\"$$\n";
U8 tag[STR_LEN] fmtstr "$$DA-P,STR_LEN-1,A=\"Tag Text:%s\"$$\n";
U8 special[STR_LEN] fmtstr "$$DA-P,STR_LEN-1,A=\"Bible Passage:%s\"$$\n";
I64 timestamp;
I64 cert;
@ -154,7 +186,7 @@ class CWebBibleForm
class CYouTubeForm
{
U8 tag[STR_LEN];
U8 tag[STR_LEN] fmtstr "$$DA-P,STR_LEN-1,A=\"Title:%s\"$$\n";
U8 special[STR_LEN] fmtstr "$$DA-P-TRM,11,A=\"SerialNum:%11s\"$$\n";
I64 timestamp;
I64 cert;
@ -162,16 +194,6 @@ class CYouTubeForm
I64 sec fmtstr "$$DA,32,A=\"Seconds :%d\"$$\n";
};
class CTopMoviesYouTubeForm
{
U8 tag[STR_LEN] fmtstr "$$DA-P,STR_LEN-1,A=\"Movie :%s\"$$\n";
U8 special[STR_LEN] fmtstr "$$DA-P,STR_LEN-1,A=\"SerialNum:%s\"$$\n";
I64 timestamp;
I64 cert;
I64 min fmtstr "$$DA,32,A=\"Minutes :%d\"$$\n";
I64 sec fmtstr "$$DA,32,A=\"Seconds :%d\"$$\n";
};
class CImgurForm
{
U8 tag[STR_LEN];
@ -244,6 +266,70 @@ class CRandHexBeacon8Form
I64 sec;
};
U8 *RandVideoRead(U8 *filename,I64 line)
{
U8 *result=NULL;
CDoc *doc=DocRead(filename,DOCF_PLAIN_TEXT_WITH_TABS);
if (DocLineNumGoTo(doc,line-1) && doc->cur_entry->type_u8==DOCT_TEXT)
result=StrNew(doc->cur_entry->tag);
DocDel(doc);
return result;
}
U8 *RandVideoWrite(U8 *filename,I64 line,U8 *st)
{
U8 *result=NULL;
CDoc *doc=DocRead(filename,DOCF_PLAIN_TEXT_WITH_TABS);
if (DocLineNumGoTo(doc,line-1)) {
if (doc->cur_entry->type_u8==DOCT_TEXT) {
Free(doc->cur_entry->tag);
doc->cur_entry->tag=StrNew(st);
} else
DocPrint(doc,"%s",st);
DocTop(doc);
DocWrite(doc);
}
DocDel(doc);
return result;
}
U0 RandVideo(U8 *title,U8 *webpage,CTopMoviesForm *url,U8 *filename)
{
U8 *st;
if (st=RandVideoRead(filename,url->cert*2)) {
StrCpy(url->tag,st);
Free(st);
if (!(st=RandVideoRead(filename,url->cert*2+1))||!*st) {
Free(st);
if (DocForm(url(CYouTubeForm *)) && *url->special) {
if (url->min || url->sec)
st=MStrPrint("%s&hl=enUS&start=%d",
url->special,url->min*60+url->sec);
else
st=StrNew(url->special);
RandVideoWrite(filename,url->cert*2+1,st);
} else
st=NULL;
}
"God's response:\n"
"$$TX,\"%s\",HTML=\"%s\"$$\n"
"#%s\n",title,webpage,url->tag;
if (st) {
"$$HC,\"<object width=\\\"640\\\" height=\\\"520\\\">"
"<param name=\\\"movie\\\" "
"value=\\\"http://www.youtube.com/v/%s\\\"></param><param "
"name=\\\"allowscriptaccess\\\" "
"value=\\\"always\\\"></param><embed "
"src=\\\"http://www.youtube.com/v/%s\\\" "
"type=\\\"application/x-shockwave-flash\\\" "
"allowscriptaccess=\\\"always\\\" "
"width=\\\"640\\\" height=\\\"520\\\">"
"</embed></object>\"$$\n",st,st;
Free(st);
}
}
}
U8 *URLPercentSpaces(U8 *src)
{
U8 buf[1024],*dst=buf;
@ -397,9 +483,9 @@ U0 InsMyURL()
switch (PopUpPickLst("NISTBeacon5Bible\0NISTBeacon8Passage\0"
"BibleGatewaySearch\0BibleGatewayVerse\0"
"YouTube\0Imgur\0Wikipedia\0RandomNumbers.info\0Random.org\0PassWord\0"
"VirtualNotary\0Nist\0HotBits\0GenerateData\0WebBookMark\0"
"Roulette\0Movie\0")) {
case 0:
"VirtualNotary\0ANU_NIST\0HotBits\0GenerateData\0WebBookMark\0"
"Roulette\0Movie\0Metallica\0")) {
case:
if (DocForm(url(CRandHexBeacon5Form *))) {
"$$TX,\"Guidelines for Talking with God.\","
"HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\n";
@ -409,8 +495,10 @@ U0 InsMyURL()
MyBibleLines(url->special,20,16,TRUE,TRUE);
}
break;
case 1:
case:
if (DocForm(url(CRandHexBeacon8Form *))) {
if (FileFind("::/Home/Wb2/Files/NISTPick.TXT.Z"))
Type("::/Home/Wb2/Files/NISTPick.TXT.Z");
"$$TX,\"Guidelines for Talking with God.\","
"HTML=\"http://www.templeos.org/Wb/Adam/God/HSNotes.html\"$$\n";
tag=MStrPrint("https:/beacon.nist.gov/rest/record/%d",url->timestamp);
@ -420,7 +508,7 @@ U0 InsMyURL()
Str2I64(url->special,16),TRUE);
}
break;
case 2:
case:
if (DocForm(url(CWebBibleForm *))) {
tag=url->special;
st2=URLPercentSpaces(url->special);
@ -433,7 +521,7 @@ U0 InsMyURL()
Free(st);
}
break;
case 3:
case:
if (DocForm(url(CWebBibleForm *))) {
tag=url->special;
st2=URLPercentSpaces(url->special);
@ -446,33 +534,42 @@ U0 InsMyURL()
Free(st);
}
break;
case 4:
case:
if (DocForm(url(CYouTubeForm *))) {
if (url->min || url->sec)
st=MStrPrint("%s&hl=enUS&start=%d",url->special,url->min*60+url->sec);
if (*url->special==CH_SPACE)
st2=YouTubeGet(,url->tag);
else
st=StrNew(url->special);
"$$HC,\"<object width=\\\"640\\\" "
"height=\\\"520\\\"><param name=\\\"movie\\\" "
"value=\\\"http://www.youtube.com/v/%s\\\"></param><param "
"name=\\\"allowscriptaccess\\\" "
"value=\\\"always\\\"></param><embed "
"src=\\\"http://www.youtube.com/v/%s\\\" "
"type=\\\"application/x-shockwave-flash\\\" "
"allowscriptaccess=\\\"always\\\" "
"width=\\\"640\\\" height=\\\"520\\\">"
"</embed></object>\"$$\n",st,st;
Free(st);
st2=StrNew(url->special);
if (st2 && *st2!=CH_SPACE) {
if (url->min || url->sec)
st=MStrPrint("%s&hl=enUS&start=%d",st2,url->min*60+url-