TempleOSCDV3.11.ISO

Apps/AfterEgypt/AfterEgypt.CPP

@@ -160,8 +160,8 @@ U0 TMsg(CDC *dc,U8 *msg)
 U0 Trailer()
 {
   CDC *dc=DCAlias;
-  WinMax;
   WinBorder;
+  WinMax;
   Cd(Fs->parent_task->cur_dir);
   Type("AESplash.TXT");
   Sleep(500);
@@ -180,12 +180,11 @@ U0 AfterEgypt()
 {
   SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
   Fs->song_task=Spawn(&SongTask,NULL,"Song",,Fs);
+  AutoComplete;
   WinBorder;
-  AutoComplete;
-  DocClear;
   WinMax;
+  DocClear;
   PopUp("Trailer;",Fs);
-  AutoComplete;
   try //Catch <CTRL-ALT-c>.
     while (TakeTurn);
   catch

Apps/AfterEgypt/HorebC.CPP

@@ -1,5 +1,5 @@
 U0 AnimateTask(I64)
-{//Preemption is off after Spawn
+{
   I64 i;
   F64 t;
   Obj *tempo;
@@ -101,10 +101,8 @@ U0 Horeb()
     Fs->win_inhibit=WIG_TASK_DFT-WIF_SELF_FOCUS
 	  -WIF_SELF_GRAB_SCROLL-WIF_FOCUS_TASK_MENU;
     AutoComplete;
-    WinMax;
     WinBorder;
-    Preempt;
-
+    WinMax;
     DocClear;
     "$$BG,LTCYAN$$%h6c",'\n';
     "$$BG,YELLOW$$%h30c",'\n';

Apps/Budget/BgtMain.CPP

@@ -165,9 +165,9 @@ U0 Budget()
   BgtDataRead;
   CBgtTemplatesExpand;
   SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
-  WinMax;
-  WinBorder;
   AutoComplete;
+  WinBorder;
+  WinMax;
   MenuPush(
 	"File {"
 	"  Abort(,CH_SHIFT_ESC);"

Apps/KeepAway/KeepAway.CPP

@@ -626,12 +626,13 @@ U0 KeepAway()
 	"Right-Click to jump.\n");
   SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
   Fs->text_attr=BLACK+YELLOW<<4;
-  WinMax;
+  AutoComplete;
   WinBorder;
-  Preempt;
+  WinMax;
+  DocCursor;
+  DocClear;
 
   Fs->win_inhibit|=WIG_DBL_CLICK;
-  AutoComplete;
 
   MenuPush(
 	"File {"
@@ -646,8 +647,6 @@ U0 KeepAway()
 	);
 
   Init;
-  DocCursor;
-  DocClear;
   Fs->draw_it=&DrawIt;
   Fs->animate_task=Spawn(&AnimateTask,Fs,"Animate",,Fs);
 

Apps/Logic/Logic.CPP

@@ -567,9 +567,9 @@ U0 DigitalLogic()
   input3_table	  =NULL;
 
   SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
-  WinMax;
   AutoComplete;
   WinBorder(ON);
+  WinMax;
   DocClear;
   GetGates;
   try {

Apps/Psalmody/Examples/abiding.CPP

@@ -1,74 +0,0 @@
-//9 has graphics
-#define X	330
-#define Y	15
-
-#define NUM_BEAMS	256
-
-F64 beams_r[NUM_BEAMS],beams_é[NUM_BEAMS];
-
-U0 DrawIt(CTask *,CDC *dc)
-{
-  I64 i;
-  F64 r,x1,y1,x2,y2;
-  dc->color=YELLOW;
-  GrCircle(dc,X,Y,10);
-  GrFloodFill(dc,X,Y,10);
-  dc->color=BROWN;
-  GrCircle(dc,X,Y,10);
-  dc->color=YELLOW;
-  for (i=0;i<NUM_BEAMS;i++) {
-    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);
-  }
-}
-
-U0 Song()
-{
-  CTask *task;
-  I64 i;
-  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
-  Fs->text_attr=LTCYAN<<4+BLACK;
-  Fs->draw_it=&DrawIt;
-  Fs->task_end_cb=&SndTaskEndCB;
-  MusicSettingsRst;
-  music.tempo= 2.480;
-  music.stacatto_factor= 0.902;
-  for (i=0;i<NUM_BEAMS;i++) {
-    beams_r[i]=Rand;
-    beams_é[i]=2*ã*Rand;
-  }
-  try {
-    task=PopUpViewPrint(
-	  "$LK,"Numbers,6:25",A="BF:Numbers,6:25"$\n"
-	  "$LK,"Psalms,31:16",A="BF:Psalms,31:16"$\n"
-	  "$LK,"Psalms,67:1",A="BF:Psalms,67:1"$\n"
-	  "$LK,"Psalms,80:3",A="BF:Psalms,80:3"$\n"
-	  "$LK,"Psalms,80:19",A="BF:Psalms,80:19"$\n"
-	  "$LK,"Psalms,119:135",A="BF:Psalms,119:135"$\n"
-	  "$LK,"Daniel,9:17",A="BF:Daniel,9:17"$\n"
-	  );
-    TaskWait(task);
-    WinHorz(Fs->win_left,Fs->win_right,task);
-    WinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
-    "$$BG+H,LTCYAN$$$$FD+H,BLACK$$";
-    while (!ScanKey) {
-      "$$WHITE$$To God...\n$$FG$$";
-      Play("3etCFEsDDDDD2G3D2G3qC2eG3EqEetAAF2qG",
-	    "I \0am \0a\0biding \0 \0 \0 \0in \0 \0Your \0 \0"
-	    "presence.\n\0 \0 \0 \0 \0 \0 \0 \0");
-      Play("3etCFEsDDDDD2G3D2G3qC2eG3EqEetAAF2qG",
-	    "I \0am \0a\0biding \0 \0 \0 \0in \0 \0Your \0 \0"
-	    "presence.\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");
-      Play("qDBsFGFG2eG3FRDqEGeBE",
-	    "I'm \0so \0coy!\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
-    }
-  } catch
-    PutExcept;
-  SettingsPop;
-}
-
-Song;

Apps/Psalmody/Examples/abyss.CPP

@@ -1,76 +0,0 @@
-//7 has graphics
-
-F64 t0=Beat;
-
-U0 DrawIt(CTask *task,CDC *dc)
-{
-  I64 i,j,w=task->pix_width,h=task->pix_height;
-  F64 dt=Beat-t0,num;
-
-  num=MinI64(Exp(0.9*dt),3000);
-  dc->color=LTGRAY;
-  for (i=0;i<num;i++) {
-    j=RandU32;
-    GrPlot(dc,j.u16[0]%w,j.u16[1]%h);
-  }
-
-  num=MinI64(Exp(0.6*dt),6000);
-  dc->color=DKGRAY;
-  for (i=0;i<num;i++) {
-    j=RandU32;
-    GrPlot(dc,j.u16[0]%w,j.u16[1]%h);
-  }
-
-  num=MinI64(Exp(0.3*dt),9000);
-  dc->color=BLACK;
-  for (i=0;i<num;i++) {
-    j=RandU32;
-    GrPlot(dc,j.u16[0]%w,j.u16[1]%h);
-  }
-}
-
-U0 Song()
-{
-  CTask *task;
-  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.736;
-  try {
-    task=PopUpViewPrint(
-	  "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);
-    WinHorz(Fs->win_left,Fs->win_right,task);
-    WinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
-    while (!ScanKey) {
-      t0=Beat;
-      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 \0"
-	    "ver\0 \0y \0 \0wrong!\n\0 \0");
-      Play("qDeEDqGCeF2G3qGsFGFGeDC",
-	    "Oh, \0my \0 \0God, \0some\0thing's... \0 \0 \0"
-	    "ver\0 \0y \0 \0wrong!\n\0 \0");
-    }
-  } catch
-    PutExcept;
-  SettingsPop;
-}
-
-Song;

Apps/Psalmody/Examples/advantage.CPP

@@ -1,20 +0,0 @@
-//7 no nothing
-U0 Song()
-{
-  Fs->task_end_cb=&SndTaskEndCB;
-  MusicSettingsRst;
-  music.tempo= 2.480;
-  music.stacatto_factor= 0.902;
-  try {
-    while (!ScanKey) {
-      Play("3eCsAAeCsAAeDABRCqEsBBeEDFE");
-      Play("CAqCsDDAAeBRCDsCCBBeEAFsEE");
-      Play("G2G3G2G3qGeBBBFsD2G3eDsB2G3B2G3eBAsGF2eG");
-      Play("3sG2G3G2G3qGeBBBFsD2G3eDsB2G3B2G3eBAsGF2eG");
-    }
-  } catch
-    PutExcept;
-  Snd(0);
-}
-
-Song;

Apps/Psalmody/Examples/almighty.CPP

@@ -1,23 +0,0 @@
-//7 has words
-U0 Song()
-{
-  Fs->task_end_cb=&SndTaskEndCB;
-  MusicSettingsRst;
-  music.tempo=2.5;
-  try {
-    while (!ScanKey) {
-      Play("2qG3etC2GG3qARR2etG3FBqEeFE",
-	    "All \0righ\0 \0 \0ty.\n\0 \0 \0 \0 \0 \0 \0 \0 \0");
-      Play("2qG3etC2GG3qARR2etG3FBqEeFE",
-	    "All \0migh\0 \0 \0ty.\n\0 \0 \0 \0 \0 \0 \0 \0 \0");
-      Play("qFFEEeEBqFCB",
-	    "Al\0read\0y, \0 \0I've \0 \0seen \0en\0ough.\n\0");
-      Play("FFEEeEBqFCB",
-	    "Oh \0bo\0y, \0 \0was \0 \0that \0rough.\n\0 \0");
-    }
-  } catch
-    PutExcept;
-  Snd(0);
-}
-
-Song;

Apps/Psalmody/Examples/alone.CPP

@@ -1,28 +0,0 @@
-//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$$\0"
-	    "I'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, \0"
-	    "not \0a\0lone.\n\0 \0 \0");
-      Play("3sEAEAeCsCReRsDAe.GsBFFFFeEsAGeCsGDeDG",
-	    "If \0 \0you \0 \0on\0ly \0 \0 \0 \0 \0knew.\n\0 \0"
-	    "His \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 \0"
-	    "His \0 \0 \0 \0Spir\0it \0 \0 \0is \0 \0with \0you.\n$$FG$$\0");
-    }
-  } catch
-    PutExcept;
-  Snd(0);
-}
-
-Song;

Apps/Psalmody/Examples/appreciate.CPP

@@ -1,27 +0,0 @@
-//7 has words
-U0 Song()
-{
-  Fs->task_end_cb=&SndTaskEndCB;
-  MusicSettingsRst;
-  music.tempo=2.5;
-  try {
-    while (!ScanKey) {
-      Play("3etDGDqGeCGetAE2G3eEFsGBGBqEG",
-	    "Thanks, \0 \0 \0God!  \0 \0 \0"
-	    "You \0 \0are \0might\0y \0 \0good \0 \0to \0me.\n\0 \0");
-      Play("etDGDqGeCGetAE2G3eEFsGBGBqEG",
-	    "Thanks, \0 \0 \0God!  \0 \0 \0"
-	    "You \0 \0are \0might\0y \0 \0good \0 \0to \0me.\n\0 \0");
-      Play("EsBGBGeEC2G3AqF2G3sC2G3C2GqG",
-	    " \0 \0 \0 \0 \0 \0 \0"
-	    "I \0won't \0tell.\n\0 \0 \0 \0 \0 \0 \0");
-      Play("3EsBGBGeEC2G3AqF2G3sC2G3C2GqG",
-	    " \0 \0 \0 \0 \0 \0 \0"
-	    "I \0won't \0tell.\n\0 \0 \0 \0 \0 \0 \0");
-    }
-  } catch
-    PutExcept;
-  Snd(0);
-}
-
-Song;

Apps/Psalmody/Examples/awake.CPP

@@ -1,74 +0,0 @@
-//8 has graphics
-#define R1	13
-#define R2	21
-
-U0 DrawIt(CTask *,CDC *dc)
-{
-  static F64 é=0;
-  I64 x1=200,y1=20,x2=x1,y2=y1+R2;
-  F64 tt=Beat%16.0,č;
-  é+=1/(tt*tt+1);
-  dc->color=BLACK;
-  dc->pen_width=4;
-  GrCircle3(dc,x2,y2,0,R2+10);
-  for (č=é;č<é+2*ă;č+=ă/3) {
-    dc->color=BLACK;
-    dc->pen_width=2;
-    GrCircle3(dc,x2+R2*Cos(č),y2-R2*Sin(č),0,8);
-    dc->color=WHITE;
-    dc->pen_width=2;
-    GrCircle3(dc,x2+(R2+15)*Cos(č+ă/6),y2-(R2+15)*Sin(č+ă/6),0,3);
-  }
-  dc->color=BROWN;
-  GrFloodFill(dc,x2+R2*Cos(č),y2-R2*Sin(č));
-  dc->color=DKGRAY;
-  GrFloodFill(dc,x2,y2);
-  dc->pen_width=6;
-  dc->color=RED;
-  GrCircle3(dc,x1,y1,0,R1-6);
-  dc->color=DKGRAY;
-  GrCircle3(dc,x1,y1,0,R1-2);
-  dc->color=LTGRAY;
-  GrRect(dc,x1-2,y1-R2-1,4,10);
-  GrCircle3(dc,x1,y1,0,R1);
-  dc->color=RED;
-  GrFloodFill(dc,x1,y1,TRUE);
-  dc->color=BLACK;
-  GrFloodFill(dc,x1,y1);
-}
-
-U0 Song()
-{
-  CTask *task;
-  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=PopUpViewPrint("$LK,"Mark,14:37",A="BF:Mark,14:37"$\n");
-    TaskWait(task);
-    WinHorz(Fs->win_left,Fs->win_right,task);
-    WinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
-    while (!ScanKey) {
-      "$$GREEN$$Jesus talking...$$FG$$\n";
-      Play("3eBCqB2sG3D2G3DetCGFsCBCBetCGBeBGsBCBC",
-	    "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",
-	    "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("qDsDBDBetA2G3GqB2G3sADADqDetGFD",
-	    " \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0"
-	    "I \0 \0am \0a \0dead \0 \0man.\n\0");
-      Play("qDsDBDBetA2G3GqB2G3sADADqDetGFD",
-	    " \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0"
-	    "I \0 \0am \0a \0dead \0 \0man.\n\0");
-    }
-  } catch
-    PutExcept;
-  SettingsPop;
-}
-
-Song;

Apps/Psalmody/Examples/battlehymnsolo.CPP

@@ -1,49 +0,0 @@
-//7 has graphics
-U0 Song()
-{
-  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
-  Fs->text_attr=BLACK<<4+WHITE;
-  Fs->task_end_cb=&SndTaskEndCB;
-  MusicSettingsRst;
-  music.tempo= 2.480;
-  music.stacatto_factor= 0.9;
-  try {
-    while (!ScanKey) {
-      DocClear;
-      "$$BG,BLACK$$$$WHITE$$\n\n\n\n\nWait for the end...";
-      "\n\n\n\n\n%17c",CH_SPACE;
-      Sprite($IB,"<1>",BI=1,BP="::/Demo/Graphics/SpritePut.CPP.Z,1"$);
-      Play("3e.GsGe.GsFe.EsG4e.CsDe.EsEe.EsDqCe.CsB");
-      '\n';
-      Play("e.AsAe.AsBe.CsBe.CsA3e.G4sA3e.GsEqGe.GsG");
-      '\n';
-      Play("e.GsGe.GsFe.EsG4e.CsDe.EsEe.EsDqCC");
-      '\n';
-      Play("DDCBh.CqR");
-      '\n';
-      Play("3(Ge.G");
-      '\n';
-      Play("sFe.EsG4e.CsDhEq.CeR");
-      '\n';
-      Play("q(Ae.A");
-      '\n';
-      Play("sBe.CsBe.CsA3hGq.EeR");
-      '\n';
-      Play("q(Ge.G");
-      '\n';
-      Play("sFe.EsG4e.CsDhEqCC");
-      '\n';
-      Play("DDCBh.CqR");
-      '\n';
-      Play("etEEGqCsDCDCFCFCqAetCDBBD3G4FCF");
-      '\n';
-      Play("EEGqCsDCDCFCFCqAetCDBBD3G4FCF");
-      '\n';
-    }
-  } catch
-    PutExcept;
-  DocClear;
-  SettingsPop;
-}
-
-Song;

Apps/Psalmody/Examples/blinded.CPP

@@ -1,45 +0,0 @@
-//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;
-  MusicSettingsRst;
-  music.tempo=2.5;
-  DocCursor;
-  DocClear;
-  Fs->draw_it=&DrawIt;
-  try {
-    task=PopUpViewPrint("$LK,"BF:Acts,9:3"$\n");
-    TaskWait(task);
-    WinHorz(Fs->win_left,Fs->win_right,task);
-    WinVert(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;

Apps/Psalmody/Examples/born.CPP

@@ -1,57 +0,0 @@
-//9 has graphics
-F64 t0=Beat;
-#define HORIZON_Y	50
-#define LEFT_EDGE	200
-
-U0 DrawIt(CTask *task,CDC *dc)
-{
-  I64 i;
-  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_u16=1<<16*Clamp((4.0-d2)/4.0*d*d-0.15,0,1.0);
-    GrLine(dc,LEFT_EDGE,i,task->pix_width-1,i);
-  }
-
-  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->pix_width-200,task->pix_height-HORIZON_Y);
-}
-
-U0 Song()
-{
-  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
-  Fs->draw_it=&DrawIt;
-  Fs->task_end_cb=&SndTaskEndCB;
-
-  MusicSettingsRst;
-  music.tempo= 2.500;
-  music.stacatto_factor= 0.900;
-  try {
-    while (!ScanKey) {
-      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",
-	    "Though \0it's \0the \0mourn',\n\0 \0 \0 \0 \0"
-	    " \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
-      Play("eDDRCqG2eGR3qEetEAFqCsDGDG",
-	    "cheer-\0up \0 \0the \0heart\n\0 \0 \0 \0 \0 \0"
-	    " \0 \0 \0as \0 \0you \0");
-      Play("eDDRCqG2eGR3qEetEAFqCsDGDG",
-	    "hitch-\0up \0 \0the \0cart.\n\0 \0 \0 \0 \0 \0"
-	    " \0 \0 \0 \0 \0 \0");
-    }
-  } catch
-    PutExcept;
-  SettingsPop;
-}
-
-Song;

Apps/Psalmody/Examples/childish.CPP

@@ -1,4 +1,4 @@
-//8 has words
+//9 has words
 U0 Song()
 {
   Fs->task_end_cb=&SndTaskEndCB;

Apps/Psalmody/Examples/compassions.CPP

@@ -1,28 +0,0 @@
-//8 has words
-U0 Song()
-{
-  Fs->task_end_cb=&SndTaskEndCB;
-  MusicSettingsRst;
-  music.tempo= 2.480;
-  music.stacatto_factor= 0.902;
-  try {
-    while (!ScanKey) {
-      Play("3qBAeEEqAeAEDB2qG3F",
-	    "$$RED$$You \0need \0help!\n\0 \0 \0 \0"
-	    "Po\0-o\0-o\0r \0dear.\n\0");
-      Play("BAeEEqAeAEDB2qG3F",
-	    "You \0need \0help!\n\0 \0 \0 \0"
-	    "Po\0-o\0-o\0r \0dear.\n$$FG$$\0");
-      Play("4eFGqDetFEDeDEetADEC3G4GqD3G",
-	    "Pat\0ron\0ize?  \0No, \0 \0thank \0you!\n\0 \0"
-	    "Too \0 \0man\0y \0strings \0a\0ttach\0ed.\n\0");
-      Play("4eFGqDetFEDeDEetADEC3G4GqD3G",
-	    "Pat\0ron\0ize?  \0No, \0 \0thank \0you!\n\0 \0"
-	    "Too \0 \0man\0y \0strings \0a\0ttach\0ed.\n\0");
-    }
-  } catch
-    PutExcept;
-  Snd(0);
-}
-
-Song;

Apps/Psalmody/Examples/cosam.CPP

@@ -1,30 +0,0 @@
-//8 has words
-U0 Song()
-{
-  Fs->task_end_cb=&SndTaskEndCB;
-  MusicSettingsRst;
-  music.tempo= 3.966;
-  music.stacatto_factor= 0.902;
-  try {
-    while (!ScanKey) {
-      Play("3qABeCCqABAAR",
-	    "What \0makes \0You \0 \0 \0think \0You're \0God?\n\0 \0");
-      Play("ABeCCqABAAR",
-	    "What \0makes \0You \0 \0 \0think \0You're \0God?\n\0 \0");
-      Play("DeCCCCqCDCCR",
-	    "Do \0You \0 \0think \0 \0 \0I'll \0app\0laud?\n\0 \0");
-      Play("ABeCCqABAAR",
-	    "What \0makes \0You \0 \0 \0think \0You're \0God?\n\0 \0");
-      Play("GDGeGA2G3FqFeDRqB",
-	    "$$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");
-      "$$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
-    PutExcept;
-  Snd(0);
-}
-
-Song;

Apps/Psalmody/Examples/depending.CPP

@@ -1,30 +0,0 @@
-//7 has words
-U0 Song()
-{
-  CTask *task;
-  Fs->task_end_cb=&SndTaskEndCB;
-  MusicSettingsRst;
-  music.tempo=2.5;
-  try {
-    task=PopUpViewPrint("$LK,"BF:Luke,12:16"$\n");
-    TaskWait(task);
-    WinHorz(Fs->win_left,Fs->win_right,task);
-    WinVert(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 \0"
-	    "in\0 \0ter\0 \0cedes.\n\0 \0 \0 \0 \0 \0");
-      Play("2G3E2G3EqGsGBGBqDsFCFCqBRsCBCB",
-	    "If \0 \0it's \0 \0not \0 \0deemed \0 \0right, \0 \0"
-	    "won't \0 \0suc\0 \0ceed.\n\0 \0 \0 \0 \0 \0");
-    }
-  } catch
-    PutExcept;
-  Snd(0);
-}
-
-Song;

Apps/Psalmody/Examples/despairing.CPP

@@ -1,24 +0,0 @@
-//8 has words
-U0 Song()
-{
-  Fs->task_end_cb=&SndTaskEndCB;
-  MusicSettingsRst;
-  music.tempo= 2.480;
-  music.stacatto_factor= 0.902;
-  try {
-    while (!ScanKey) {
-      Play("M9/8");
-      Play("3hDeFhDeFhDC");
-      Play("FeDhFeDhFE");
-      Play("M4/4");
-      Play("qD2G3AeBFFE2qG3DA",
-	    "Hold \0 \0on!\n\0 \0It's \0gon\0na \0be \0fine.\n\0 \0");
-      Play("D2G3AeBFFE2qG3DA",
-	    "Hold \0 \0on!\n\0 \0It's \0gon\0na \0be \0fine.\n\0 \0");
-    }
-  } catch
-    PutExcept;
-  Snd(0);
-}
-
-Song;

Apps/Psalmody/Examples/determination.CPP

@@ -1,23 +0,0 @@
-//7 has words
-U0 Song()
-{
-  Fs->task_end_cb=&SndTaskEndCB;
-  MusicSettingsRst;
-  music.tempo=2.5;
-  try {
-    while (!ScanKey) {
-      Play("3sEAEAeFFsA2G3A2G3FGFGqCCBA",
-	    "All \0 \0 \0 \0hell \0 \0breaks \0 \0 \0 \0"
-	    "loose.\n\0 \0 \0 \0I \0will \0get \0through.\n\0");
-      Play("sEAEAeFFsA2G3A2G3FGFGqCCBA",
-	    "All \0 \0 \0 \0hell \0 \0breaks \0 \0 \0 \0"
-	    "loose.\n\0 \0 \0 \0I \0will \0get \0through.\n\0");
-      Play("ACeCCsBBBBqEsCCCCqAE");
-      Play("ACeCCsBBBBqEsCCCCqAE");
-    }
-  } catch
-    PutExcept;
-  Snd(0);
-}
-
-Song;

Apps/Psalmody/Examples/disputing.CPP

@@ -1,28 +0,0 @@
-//7 has words
-U0 Song()
-{
-  Fs->task_end_cb=&SndTaskEndCB;
-  MusicSettingsRst;
-  music.tempo= 2.480;
-  music.stacatto_factor= 0.902;
-  try {
-    while (!ScanKey) {
-      Play("M3/4");
-      Play("3eECqAAeECqAA",
-	    "I \0hate \0you.\n\0 \0I \0hate \0you.\n\0 \0");
-      Play("eDCqAAeECqAR",
-	    " \0 \0 \0 \0I \0hate \0you.\n\0 \0");
-      Play("M6/8");
-      Play("etABGqCsGEGEetGBDqCsCDCD",
-	    "$$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
-    PutExcept;
-  Snd(0);
-}
-
-Song;

Apps/Psalmody/Examples/downfall.CPP

@@ -1,22 +0,0 @@
-//7 has words
-U0 Song()
-{
-  Fs->task_end_cb=&SndTaskEndCB;
-  MusicSettingsRst;
-  music.tempo=2.5;
-  try {
-    while (TRUE) {
-      Play("et2G32G3Gq2G3qCq2G3sFAFAq2G3etGDAqA",
-	    "Don't \0 \0need \0 \0help.  \0 \0Got \0 \0it \0 \0all \0"
-	    "figured \0 \0 \0out.\n\0");
-      Play("et2G32G3Gq2G3qCq2G3sFAFAq2G3etGDAqA",
-	    "Don't \0 \0need \0 \0help.  \0 \0Got \0 \0it \0 \0all \0"
-	    "figured \0 \0 \0out.\n\0");
-      Play("etCCCq2G3qDeDFetCF2G3qBeGFsAGAG");
-      Play("etCCCq2G3qDeDFetCF2G3qBeGFsAGAG");
-    }
-  } catch
-    PutExcept;
-}
-
-Song;

Apps/Psalmody/Examples/dream.CPP

@@ -1,65 +0,0 @@
-//8 has graphics
-
-#define	NUM		10
-#define RAD_PROP	60
-#define RAD_PRISM	8
-I32 rainbow_10[NUM]={
-RED,LTRED,BROWN,YELLOW,GREEN,LTGREEN,BLUE,LTBLUE,PURPLE,LTPURPLE};
-
-#define	X 320
-#define Y 35
-
-F64 t0=Beat;
-U0 DrawIt(CTask *,CDC *dc)
-{
-  I64 i;
-  F64 dt=16*Sin(ã*(Beat-t0)/8),é;
-  dc->color=WHITE;
-  é=ã*dt+0.5;
-  GrLine(dc,X+RAD_PRISM*Cos(é)	    ,Y+RAD_PRISM*Sin(é),
-	X+RAD_PRISM*Cos(é+2*ã/3),Y+RAD_PRISM*Sin(é+2*ã/3));
-  GrLine(dc,X+RAD_PRISM*Cos(é+2*ã/3),Y+RAD_PRISM*Sin(é+2*ã/3),
-	X+RAD_PRISM*Cos(é+4*ã/3),Y+RAD_PRISM*Sin(é+4*ã/3));
-  GrLine(dc,X+RAD_PRISM*Cos(é+4*ã/3),Y+RAD_PRISM*Sin(é+4*ã/3),
-	X+RAD_PRISM*Cos(é),Y+RAD_PRISM*Sin(é));
-  for (i=0;i<NUM;i++) {
-    é=ã/8*ToF64(i)/NUM*(3+2*Sin(ã*dt/8))/3+ã*dt;
-    dc->color=WHITE;
-    GrLine(dc,X,Y,X-RAD_PROP*Cos(é),Y-RAD_PROP*Sin(é));
-    dc->color=rainbow_10[i];
-    GrLine(dc,X,Y,X+RAD_PROP*Cos(é),Y+RAD_PROP*Sin(é));
-  }
-}
-
-U0 Song()
-{
-  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
-  Fs->text_attr=BLACK<<4+WHITE;
-  Fs->draw_it=&DrawIt;
-  Fs->task_end_cb=&SndTaskEndCB;
-  MusicSettingsRst;
-  music.tempo= 2.480;
-  music.stacatto_factor= 0.902;
-  try {
-    "$$BG+H,BLACK$$$$FD+H,WHITE$$";
-    while (!ScanKey) {
-      t0=Beat;
-      Play("3qAsDGDGqAsCACAeCBsFDFDetCGAsADAD",
-	    " \0I\0mag\0 \0ine.\n\0 \0 \0 \0 \0 \0 \0 \0"
-	    " \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
-      Play("qAsDGDGqAsCACAeCBsFDFDetCGAsADAD",
-	    " \0 \0Fa\0 \0thom.\n\0 \0 \0 \0 \0 \0 \0 \0"
-	    " \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
-      Play("GFGFEBEBeCB2qG3sFAFAqCEA",
-	    "Hi-\0 \0i-\0gh \0as \0 \0your \0 \0thoughts \0"
-	    "will \0go.\n\0 \0 \0 \0 \0 \0 \0 \0");
-      Play("sGFGFEBEBeCB2qG3sFAFAqCEA",
-	    "Deep \0 \0 \0as \0 \0 \0we \0 \0ought \0to \0"
-	    "know.\n\0 \0 \0 \0 \0 \0 \0 \0");
-    }
-  } catch
-    PutExcept;
-  SettingsPop;
-}
-
-Song;

Apps/Psalmody/Examples/efforts.CPP

@@ -1,23 +0,0 @@
-//7 has words
-U0 Song()
-{
-  Fs->task_end_cb=&SndTaskEndCB;
-  MusicSettingsRst;
-  music.tempo=2.5;
-  try {
-    while (!ScanKey) {
-      Play("2qG3sDADAeF2G3etFDCBA2G3qAetGFC2eG3E",
-	    " \0Let's \0 \0try.  \0 \0 \0 \0O\0oh\0 \0h.  \0"
-	    " \0 \0 \0Didn't \0 \0 \0work.\n\0 \0");
-      Play("2qG3sDADAeF2G3etFDCBA2G3qAetGFC2eG3E",
-	    " \0Let's \0 \0try.  \0 \0 \0 \0O\0oh\0 \0h.  \0"
-	    " \0 \0 \0Didn't \0 \0 \0work.\n\0 \0");
-      Play("sA2G3A2G3eBCsE2G3E2G3qGsFEFEDBDBeAG2etG3B2G");
-      Play("3sA2G3A2G3eBCsE2G3E2G3qGsFEFEDBDBeAG2etG3B2G");
-    }
-  } catch
-    PutExcept;
-  Snd(0);
-}
-
-Song;