TempleOSTS_130707.ISO

TempleOS/Apps/MusicOrgan/Examples/abiding.CPP

@@ -30,6 +30,7 @@ U0 Song()
   CTask *task;
   I64 i;
   SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
+  Fs->text_attr=LTCYAN<<4+BLACK;
   Fs->draw_it=&DrawIt;
   Fs->task_end_cb=&SndTaskEndCB;
   MusicSettingsRst;
@@ -52,16 +53,16 @@ U0 Song()
     TaskWait(task);
     SetWinHorz(Fs->win_left,Fs->win_right,task);
     SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
-    "$$BD+H,LTCYAN$$$$FD+H,BLACK$$";
+    "$$BG+H,LTCYAN$$$$FD+H,BLACK$$";
     while (!ScanKey) {
       "$$FG,WHITE$$To God...\n$$FG$$";
-      Play("W13etCFE!!sDDDDD2G!3D2G!!3qC2eG3EqEetAA!F2qG",
+      Play("3etCFEsDDDDD2G3D2G3qC2eG3EqEetAAF2qG",
       "I \0am \0a\0biding \0 \0 \0 \0in \0 \0Your \0 \0presence.\n\0 \0 \0 \0 \0 \0 \0 \0");
-      Play("3etCFE!!sDDDDD2G!3D2G!!3qC2eG3EqEetAA!F2qG",
+      Play("3etCFEsDDDDD2G3D2G3qC2eG3EqEetAAF2qG",
       "I \0am \0a\0biding \0 \0 \0 \0in \0 \0Your \0 \0presence.\n\0 \0 \0 \0 \0 \0 \0 \0");
-      Play("!3DBsFGF!G2eG!!3FRDqEGeB!E",
+      Play("3DBsFGFG2eG3FRDqEGeBE",
       "What \0a \0joy!\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
-      Play("!qDBsFGF!G2eG!!3FRDqEGeB!E",
+      Play("qDBsFGFG2eG3FRDqEGeBE",
       "I'm \0so \0coy!\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
     }
     } catch

TempleOS/Apps/MusicOrgan/Examples/abyss.CPP

@@ -20,7 +20,7 @@ U0 Song()
   SetWinHorz(Fs->win_left,Fs->win_right,task);
   SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
   while (!ScanKey) {
-	Play("W13sBBBBqCq.BeAqBh.A",
+	Play("3sBBBBqCq.BeAqBh.A",
 		"Can't \0 \0 \0 \0get \0there, \0from \0he\0re.\n\0");
 	Play("M2/4");
 	Play("eECqAM4/4");
@@ -28,9 +28,9 @@ U0 Song()
 		"Can't \0 \0 \0 \0get \0there, \0from \0he\0re.\n\0");
 	Play("M2/4");
 	Play("eDDqDM4/4");
-	Play("DeEDqG!CeF2G3qG!!sFGFG!!eD!C",
+	Play("DeEDqGCeF2G3qGsFGFGeDC",
 		"Oh, \0my \0 \0God, \0some\0thing's... \0 \0 \0ver\0 \0y \0 \0wrong!\n\0 \0");
-	Play("qDeEDqG!CeF2G3qG!!sFGFG!!eD!C",
+	Play("qDeEDqGCeF2G3qGsFGFGeDC",
 		"Oh, \0my \0 \0God, \0some\0thing's... \0 \0 \0ver\0 \0y \0 \0wrong!\n\0 \0");
   }
   } catch

TempleOS/Apps/MusicOrgan/Examples/awake.CPP

@@ -57,13 +57,13 @@ U0 Song()
   SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
   while (!ScanKey) {
 	"$$FG,GREEN$$Jesus talking...$$FG$$\n";
-	Play("W13eBC!qB2sG3D2G3DetC!!GFsCBCB!etCGBeB!!GsBCB!C",
+	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("eBC!qB2sG3D2G3DetC!!GFsCBCB!etCGBeB!!GsBCB!C",
+	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("qD!sD!BD!BetA2G3GqB2G3sAD!ADqD!etGF!D",
+	Play("qDsDBDBetA2G3GqB2G3sADADqDetGFD",
 		" \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0I \0 \0am \0a \0dead \0 \0man.\n\0");
-	Play("qD!sD!BD!BetA2G3GqB2G3sAD!ADqD!etGF!D",
+	Play("qDsDBDBetA2G3GqB2G3sADADqDetGFD",
 		" \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0I \0 \0am \0a \0dead \0 \0man.\n\0");
   }
   } catch

TempleOS/Apps/MusicOrgan/Examples/born.CPP

@@ -37,13 +37,13 @@ U0 Song()
   try {
     while (!ScanKey) {
       t0=tMBeat;
-      Play("3qB!eB2G!3qA!!eF!!AsF!AFA!!qC2sG!3A!2G3ARBRB",
+      Play("3qBeB2G3qAeFAsFAFAqC2sG3A2G3ARBRB",
 	  "New \0day \0is \0born.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
-      Play("qB!eB2G!3qA!!eF!!AsF!AFA!!qC2sG!3A!2G3ARBRB",
+      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("!eDDR!!CqG!2eGR3qE!!etEA!!FqCsDGDG",
+      Play("eDDRCqG2eGR3qEetEAFqCsDGDG",
 	  "cheer-\0up \0 \0the \0heart\n\0 \0 \0 \0 \0 \0 \0 \0 \0as \0 \0you \0");
-      Play("!eDDR!!CqG!2eGR3qE!!etEA!!FqCsDGDG",
+      Play("eDDRCqG2eGR3qEetEAFqCsDGDG",
 	  "hitch-\0up \0 \0the \0cart.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
     }
   } catch

TempleOS/Apps/MusicOrgan/Examples/childish.CPP

@@ -7,7 +7,7 @@ U0 Song()
   music_stacatto_factor= 0.902;
   try {
   while (!ScanKey) {
-	Play("W13qEsCDCDqCDeEGsEBEBeCBsDADA",
+	Play("3qEsCDCDqCDeEGsEBEBeCBsDADA",
 		"Be \0like \0 \0a \0 \0child \0 \0 \0 \0some \0 \0re\0 \0spect.\n\0 \0 \0 \0 \0 \0");
 	Play("qEsCDCDqCDeEGsEBEBeCBsDADA",
 		"Ma\0tur\0 \0i\0 \0ty \0 \0 \0 \0don't \0 \0ne\0 \0glect.\n\0 \0 \0 \0 \0 \0");

TempleOS/Apps/MusicOrgan/Examples/compassions.CPP

@@ -7,13 +7,13 @@ U0 Song()
   music_stacatto_factor= 0.902;
   try {
   while (!ScanKey) {
-	Play("W13qBAeEE!qAeA!EDB!2qG3F",
+	Play("3qBAeEEqAeAEDB2qG3F",
 		"$$FG,RED$$You \0need \0help!\n\0 \0 \0 \0Po\0-o\0-o\0r \0dear.\n\0");
-	Play("BAeEE!qAeA!EDB!2qG3F",
+	Play("BAeEEqAeAEDB2qG3F",
 		"You \0need \0help!\n\0 \0 \0 \0Po\0-o\0-o\0r \0dear.\n$$FG$$\0");
-	Play("!4eFG!!qDetF!E!D!eD!EetADEC3G4GqD3G",
+	Play("4eFGqDetFEDeDEetADEC3G4GqD3G",
 		"Pat\0ron\0ize?  \0No, \0 \0thank \0you!\n\0 \0Too \0 \0man\0y \0strings \0a\0ttach\0ed.\n\0");
-	Play("!4eFG!!qDetF!E!D!eD!EetADEC3G4GqD3G",
+	Play("4eFGqDetFEDeDEetADEC3G4GqD3G",
 		"Pat\0ron\0ize?  \0No, \0 \0thank \0you!\n\0 \0Too \0 \0man\0y \0strings \0a\0ttach\0ed.\n\0");
   }
   } catch

TempleOS/Apps/MusicOrgan/Examples/cosam.CPP

@@ -7,7 +7,7 @@ U0 Song()
   music_stacatto_factor= 0.902;
   try {
   while (!ScanKey) {
-	Play("W13qABeCCqABAAR",
+	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");
@@ -15,9 +15,9 @@ U0 Song()
 		"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("GD!G!!eGA2G3FqF!!eDRqB",
+	Play("GDGeGA2G3FqFeDRqB",
 		"$$FG,RED$$Be\0-e-\0cause \0 \0 \0 \0I \0 \0a\0 \0m.\n\0");
-	Play("GD!G!!eGA2G3FqF!!eDRqB",
+	Play("GDGeGA2G3FqFeDRqB",
 		"Are \0 \0you \0 \0 \0 \0a \0 \0fan?\n$$FG$$\0 \0 \0");
 	"$$FG,GREEN$$(If God talks, how can you be sure it's not Him?\n"
 	"You can't, so harden not your heart.)\n$$FG$$";

TempleOS/Apps/MusicOrgan/Examples/despairing.CPP

@@ -8,12 +8,12 @@ U0 Song()
   try {
   while (!ScanKey) {
 	Play("M9/8");
-	Play("W13hDeFhDeFhDC");
+	Play("3hDeFhDeFhDC");
 	Play("FeDhFeDhFE");
 	Play("M4/4");
-	Play("qD!!2G3AeBF!FE2qG!!3D!!A",
+	Play("qD2G3AeBFFE2qG3DA",
 		"Hold \0 \0on!\n\0 \0It's \0gon\0na \0be \0fine.\n\0 \0");
-	Play("D!!2G3AeBF!FE2qG!!3D!!A",
+	Play("D2G3AeBFFE2qG3DA",
 		"Hold \0 \0on!\n\0 \0It's \0gon\0na \0be \0fine.\n\0 \0");
   }
   } catch

TempleOS/Apps/MusicOrgan/Examples/disputing.CPP

@@ -8,14 +8,14 @@ U0 Song()
   try {
   while (!ScanKey) {
 	Play("M3/4");
-	Play("W13eECqAAeECqAA",
+	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("etAB!GqCsGEGE!!etGBDqCsCD!CD",
+	Play("etABGqCsGEGEetGBDqCsCDCD",
 		"$$FG,RED$$Don't \0 \0 \0smile.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
-	Play("etAB!GqCsGEGE!!etGBDqCsCD!CD",
+	Play("etABGqCsGEGEetGBDqCsCDCD",
 		"Don't \0 \0 \0smile.$$FG$$\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
   }
   } catch

TempleOS/Apps/MusicOrgan/Examples/dream.CPP

@@ -7,13 +7,13 @@ U0 Song()
   music_stacatto_factor= 0.902;
   try {
   while (!ScanKey) {
-	Play("W13qA!!sDGD!!GqAsCA!CAeCBsFDF!D!!etCGAsAD!A!!D",
+	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("qA!!sDGD!!GqAsCA!CAeCBsFDF!D!!etCGAsAD!A!!D",
+	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("!!GF!G!!FE!!BE!BeCB2qG3sFAFAqCEA",
+	Play("GFGFEBEBeCB2qG3sFAFAqCEA",
 		"Hi-\0 \0i-\0gh \0as \0 \0your \0 \0thoughts \0will \0go.\n\0 \0 \0 \0 \0 \0 \0 \0");
-	Play("!!sGF!G!!FE!!BE!BeCB2qG3sFAFAqCEA",
+	Play("sGFGFEBEBeCB2qG3sFAFAqCEA",
 		"Deep \0 \0 \0as \0 \0 \0we \0 \0ought \0to \0know.\n\0 \0 \0 \0 \0 \0 \0 \0");
   }
   } catch

TempleOS/Apps/MusicOrgan/Examples/environeth.CPP

@@ -9,10 +9,10 @@ U0 Song()
   while (!ScanKey) {
 	"$$FG,GREEN$$To God...$$FG$$\n";
 	Play("M5/4");
-	Play("W13eEqCeEFEDCqBeEqCeEFEDCqB",
+	Play("3eEqCeEFEDCqBeEqCeEFEDCqB",
 		"Fa\0ther, \0for\0give \0them \0if \0you \0must.\n\0I'd \0like \0to \0see \0them \0turn \0to \0dust.\n\0");
 	Play("M4/4");
-	Play("sGBGBetAF!2G3eEF!sEGEGqDsB!!D!BDGFGF2etG3GB");
+	Play("sGBGBetAF2G3eEFsEGEGqDsBDBDGFGF2etG3GB");
   }
   } catch
     CatchAll;

TempleOS/Apps/MusicOrgan/Examples/epicurus.CPP

@@ -22,7 +22,7 @@ U0 Song()
   SetWinHorz(Fs->win_left,Fs->win_right,task);
   SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
   while (!ScanKey) {
-	Play("W13qBeCDqCAetAACeECsF2G3F2GqG",
+	Play("3qBeCDqCAetAACeECsF2G3F2GqG",
 		"I'm \0on \0a \0mis\0sion \0from \0 \0 \0my \0 \0God.\n\0 \0 \0 \0 \0");
 	Play("3BeCDqCAetAACeECsF2G3F2GqG",
 		"I'm \0on \0a \0mis\0sion \0from \0 \0 \0my \0 \0God.\n\0 \0 \0 \0 \0");

TempleOS/Apps/MusicOrgan/Examples/exalt.CPP

@@ -14,6 +14,7 @@ U0 DrawIt(CTask *task,CDC *dc)
 U0 Song()
 {
   SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
+  Fs->text_attr=LTCYAN<<4+BLACK;
   Fs->draw_it=&DrawIt;
   Fs->task_end_cb=&SndTaskEndCB;
 

TempleOS/Apps/MusicOrgan/Examples/exiled.CPP

@@ -38,6 +38,7 @@ U0 DrawIt(CTask *,CDC *dc)
 U0 Song()
 {
   SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
+  Fs->text_attr=LTCYAN<<4+BLACK;
   Fs->draw_it=&DrawIt;
   Fs->task_end_cb=&SndTaskEndCB;
   MusicSettingsRst;
@@ -46,13 +47,13 @@ U0 Song()
   try {
     "$$BG+H,LTCYAN$$";
     while (!ScanKey) {
-	Play("W13qE!AA!etF2G3G!qDF!!etFE!D2eG!3G",
+	Play("3qEAAetF2G3GqDFetFED2eG3G",
 		"A\0dam... \0 \0no \0 \0 \0long\0er \0sees \0Your \0face.\n\0 \0 \0");
-	Play("qE!AA!etF2G3G!qDF!!etFE!D2eG!3G",
+	Play("qEAAetF2G3GqDFetFED2eG3G",
 		"Oh! \0 \0 \0What \0 \0a \0wretch\0ed \0bar\0ren \0waste!\n\0 \0 \0");
-	Play("qACFeB!CB2GqG3E!D",
+	Play("qACFeBCB2GqG3ED",
 		" \0 \0 \0 \0 \0 \0 \0 \0Ex\0iled.\n\0");
-	Play("ACFeB!CB2GqG3E!D");
+	Play("ACFeBCB2GqG3ED");
     }
   } catch
     CatchAll;

TempleOS/Apps/MusicOrgan/Examples/feigned.CPP

@@ -7,14 +7,14 @@ U0 Song()
   music_stacatto_factor= 0.857;
   try {
   while (!ScanKey) {
-	Play("W13eEDEFqDDeEDEDqCC",
+	Play("3eEDEFqDDeEDEDqCC",
 		"$$CL$$Sit\0ting \0in \0a \0church\n\0 \0wond\0ering \0to \0my\0self,\n\0 \0");
 	Play("eD2G3BCqDsGGGGeD2G3BCqDsGGGG",
 		"\"Is \0 \0God \0 \0real?\"\n\0 \0 \0 \0 \0\"At \0 \0the \0 \0wheel?\"\n\0 \0 \0 \0 \0");
 	"$$FG,GREEN$$God talking...\n$$FG$$";
-	Play("qF!FFetREA!qG!sG!FG!!F!GEGEqC",
+	Play("qFFFetREAqGsGFGFGEGEqC",
 		"$$FG,RED$$Oh, \0Hell \0yes!\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
-	Play("F!FFetREA!qG!sG!FG!!F!GEGEqC",
+	Play("FFFetREAqGsGFGFGEGEqC",
 		"Pass \0the \0test.$$FG$$\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
   }
   } catch

TempleOS/Apps/MusicOrgan/Examples/fixing.CPP

@@ -7,10 +7,10 @@ U0 Song()
   music_stacatto_factor= 0.758;
   try {
   while (!ScanKey) {
-	Play("W13sDDeBCsAAeB2G3A2F3sCCeDsFFeEsFFEEeDE");
+	Play("3sDDeBCsAAeB2G3A2F3sCCeDsFFeEsFFEEeDE");
 	Play("sDDeBCsAAeB2G3A2F3sCCeDsFFeEsFFEEeDE");
-	Play("sGBGB2etG3EGqF!!ED2G3eBA!DG");
-	Play("sGBGB2etG3EGqF!!ED2G3eBA!DG");
+	Play("sGBGB2etG3EGqFED2G3eBADG");
+	Play("sGBGB2etG3EGqFED2G3eBADG");
   }
   } catch
     CatchAll;

TempleOS/Apps/MusicOrgan/Examples/flung.CPP

@@ -7,10 +7,10 @@ U0 Song()
   music_stacatto_factor= 0.714;
   try {
   while (!ScanKey) {
-	Play("W13sBBBBEBDBeEBqDeBBEDEBqD");
+	Play("3sBBBBEBDBeEBqDeBBEDEBqD");
 	Play("sFEFEeFEDBqDeEFEBABqD");
-	Play("eDGqEeBAABqF!eBD!qE!A");
-	Play("eDGqEeBAABqF!eBD!qE!A");
+	Play("eDGqEeBAABqFeBDqEA");
+	Play("eDGqEeBAABqFeBDqEA");
   }
   } catch
     CatchAll;

TempleOS/Apps/MusicOrgan/Examples/freaks.CPP

@@ -7,13 +7,13 @@ U0 Song()
   music_stacatto_factor= 0.604;
   try {
   while (!ScanKey) {
-	Play("W13sEqAsDeCqAsEqAsDeCqAsDeEqEsE",
+	Play("3sEqAsDeCqAsEqAsDeCqAsDeEqEsE",
 		"Jes\0us \0kind \0of \0freaks,\n\0Jes\0us \0kind \0of \0freaks,\n\0are \0dif\0ferent \0 \0");
-	Play("eDqCsDeCqBsBeBqAetBED!qBeC!B",
+	Play("eDqCsDeCqBsBeBqAetBEDqBeCB",
 		"from \0 \0oth\0er\n\0 \0 \0peo\0ple.\n\0 \0 \0 \0 \0They \0don't \0");
-	Play("2qGeG!3FsCDC!!DqFetB!ACBED!qBeC!B",
+	Play("2qGeG3FsCDCDqFetBACBEDqBeCB",
 		"care,\n\0for \0God \0 \0is \0their \0 \0joy!\n\0 \0 \0 \0 \0 \0 \0 \0They \0don't \0");
-	Play("2qGeG!3FsCDC!!DqFetB!AC",
+	Play("2qGeG3FsCDCDqFetBAC",
 		"care,\n\0for \0God \0 \0is \0their \0 \0joy!\n\0 \0 \0 \0");
   }
   } catch

TempleOS/Apps/MusicOrgan/Examples/free.CPP

@@ -120,7 +120,7 @@ U0 Song()
   SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
   Preempt(OFF);
   Init;
-  Fs->animate_task=Spawn(&AnimateTask,NULL,"Animate",Fs);
+  Fs->animate_task=Spawn(&AnimateTask,NULL,"Animate",,Fs);
   Fs->draw_it=&DrawIt;
   Fs->task_end_cb=&SndTaskEndCB;
   MusicSettingsRst;
@@ -134,13 +134,13 @@ U0 Song()
   SetWinHorz(Fs->win_left,Fs->win_right,task);
   SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
   while (!ScanKey) {
-	Play("W13qEEBeBDsBBB!BqDsBFB!!FD2G3D!2G",
+	Play("3qEEBeBDsBBBBqDsBFBFD2G3D2G",
 		"Free \0will... \0 \0 \0 \0 \0 \0 \0 \0 \0I \0 \0 \0 \0fail.\n\0 \0 \0 \0");
-	Play("3qEEBeBDsBBB!BqDsBFB!!FD2G3D!2G",
+	Play("3qEEBeBDsBBBBqDsBFBFD2G3D2G",
 		"God \0still... \0 \0 \0 \0 \0 \0 \0 \0 \0I \0 \0 \0 \0hail.\n\0 \0 \0 \0");
-	Play("3qD2G3eA2G3qCetEC!AqBsA!!C!ACqA",
+	Play("3qD2G3eA2G3qCetECAqBsACACqA",
 		"All \0things \0work \0for \0good... \0to \0the \0Lord.\n\0 \0 \0 \0 \0 \0 \0");
-	Play("D2G3eA2G3qCetEC!AqBsA!!C!ACqA",
+	Play("D2G3eA2G3qCetECAqBsACACqA",
 		"It's \0all \0good... \0 \0 \0as\0 \0sured.\n\0 \0 \0 \0 \0 \0 \0");
   }
   } catch

TempleOS/Apps/MusicOrgan/Examples/honestly.CPP

@@ -7,10 +7,10 @@ U0 Song()
   music_stacatto_factor= 0.758;
   try {
   while (!ScanKey) {
-	Play("W13qBeABqA2G3AB2hG");
+	Play("3qBeABqA2G3AB2hG");
 	Play("3sCCCCqBsAAAA2qG3sCCCCqE2GR");
-	Play("!!3sBDB!!DA2G!3A2G!!3etAA!EsGCGCetFFEqDFeE2G");
-	Play("!!3sBDB!!DA2G!3A2G!!3etAA!EsGCGCetFFEqDFeE2G");
+	Play("3sBDBDA2G3A2G3etAAEsGCGCetFFEqDFeE2G");
+	Play("3sBDBDA2G3A2G3etAAEsGCGCetFFEqDFeE2G");
   }
   } catch
     CatchAll;

TempleOS/Apps/MusicOrgan/Examples/mary.CPP

@@ -7,10 +7,10 @@ U0 Song()
   music_stacatto_factor= 0.538;
   try {
   while (!ScanKey) {
-	Play("W13qEDCDeEEqEeDDqD");
+	Play("3qEDCDeEEqEeDDqD");
 	Play("EDCDeEEqEeDDqD");
-	Play("eD!!AsFDF!DqFsFBFB2qG3etBB!BqFC");
-	Play("eD!!AsFDF!DqFsFBFB2qG3etBB!BqFC");
+	Play("eDAsFDFDqFsFBFB2qG3etBBBqFC");
+	Play("eDAsFDFDqFsFBFB2qG3etBBBqFC");
   }
   } catch
     CatchAll;

TempleOS/Apps/MusicOrgan/Examples/o.CPP

@@ -7,10 +7,10 @@ U0 Song()
   music_stacatto_factor= 0.902;
   try {
   while (!ScanKey) {
-	Play("W13sC!G!CG!!etA!DD2sG!3G2G3G!F!A!!FADD!!DD!qGsB2G3B2G3qG");
-	Play("sC!G!CG!!etA!DD2sG!3G2G3G!F!A!!FADD!!DD!qGsB2G3B2G3qG");
-	Play("eG!2G3qEeAsA2G3qAsEAEAD!E!!DEqFeA!2G");
-	Play("3G!2G3qEeAsA2G3qAsEAEAD!E!!DEqFeA!2G");
+	Play("3sCGCGetADD2sG3G2G3GFAFADDDDqGsB2G3B2G3qG");
+	Play("sCGCGetADD2sG3G2G3GFAFADDDDqGsB2G3B2G3qG");
+	Play("eG2G3qEeAsA2G3qAsEAEADEDEqFeA2G");
+	Play("3G2G3qEeAsA2G3qAsEAEADEDEqFeA2G");
   }
   } catch
     CatchAll;

TempleOS/Apps/MusicOrgan/Examples/population.CPP

@@ -7,10 +7,10 @@ U0 Song()
   music_stacatto_factor= 0.780;
   try {
   while (!ScanKey) {
-	Play("W13eCDBCA2FFF3C2F3E2F3A2F3sEEeD");
+	Play("3eCDBCA2FFF3C2F3E2F3A2F3sEEeD");
 	Play("F2FFF3qCeF2F3F2FFF3qCeF2F");
-	Play("!3qG!sEAEAqB!etDC!F2qG3D!sGDGDetCRC");
-	Play("!qG!sEAEAqB!etDC!F2qG3D!sGDGDetCRC");
+	Play("3qGsEAEAqBetDCF2qG3DsGDGDetCRC");
+	Play("qGsEAEAqBetDCF2qG3DsGDGDetCRC");
   }
   } catch
     CatchAll;

TempleOS/Apps/MusicOrgan/Examples/psalm.CPP

@@ -8,13 +8,13 @@ U0 Song()
   try {
   while (!ScanKey) {
 	Play("M5/4");
-	Play("W12qGGG3qtCBA2qGGG3qtCetBBqtA",
+	Play("2qGGG3qtCBA2qGGG3qtCetBBqtA",
 		"Hymn's \0not \0long.\n\0 \0 \0 \0Nor \0this \0song.\n\0 \0 \0 \0 \0");
 	Play("qEeCCqDqtCBAM4/4",
 		"For\0 \0 \0give!\n\0 \0 \0 \0");
-	Play("qD!eA!2G3DG2G3DF!FAC!!2qG3eAE",
+	Play("qDeA2G3DG2G3DFFAC2qG3eAE",
 		"That's \0 \0 \0all \0 \0I \0 \0say.\n\0 \0 \0 \0 \0 \0 \0");
-	Play("qD!eA!2G3DG2G3DF!FAC!!2qG3eAE",
+	Play("qDeA2G3DG2G3DFFAC2qG3eAE",
 		"This \0 \0 \0I \0 \0 \0 \0pray.\n\0 \0 \0 \0 \0 \0 \0");
   }
   } catch

TempleOS/Apps/MusicOrgan/Examples/reposes.CPP

@@ -7,13 +7,13 @@ U0 Song()
   music_stacatto_factor= 0.902;
   try {
   while (!ScanKey) {
-	Play("W13eC2G3DDEDqCeEEGFGFqE",
+	Play("3eC2G3DDEDqCeEEGFGFqE",
 		"Sit\0ting \0 \0 \0on \0the \0fence,\n\0is \0 \0 \0 \0no \0de\0fence.\n\0");
 	Play("sFFeGFEFEqDsCCeDCBqBB",
 		"Is \0this \0seat \0 \0 \0tak\0 \0en?\n\0An\0 \0y\0one \0op\0 \0pose?\n\0");
-	Play("etB2GG!3qE!2eG3F!EEetFBA!qFDetF!CC",
+	Play("etB2GG3qE2eG3FEEetFBAqFDetFCC",
 		"Take \0 \0a \0step.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
-	Play("B2GG!3qE!2eG3F!EEetFBA!qFDetF!CC",
+	Play("B2GG3qE2eG3FEEetFBAqFDetFCC",
 		"Take \0 \0the \0step,\n\0 \0 \0 \0 \0 \0 \0 \0not \0back.\n\0 \0 \0 \0");
   }
   } catch

TempleOS/Apps/MusicOrgan/Examples/restless.CPP

@@ -14,11 +14,11 @@ U0 Song()
   SetWinHorz(Fs->win_left,Fs->win_right,task);
   SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
   while (!ScanKey) {
-	Play("W13sDDDACCADDACCAe.DsCCC2G3FD2G3FD2G3CCAe.D",
+	Play("3sDDDACCADDACCAe.DsCCC2G3FD2G3FD2G3CCAe.D",
 		"I \0 \0 \0 \0got \0 \0 \0paid, \0 \0 \0to\0 \0 \0day.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
-	Play("qD2sG3G2G3G!etGDAeF2GqG3etF!BA!!EACE!CE",
+	Play("qD2sG3G2G3GetGDAeF2GqG3etFBAEACECE",
 		" \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0I \0 \0 \0can't \0 \0 \0get \0 \0to \0");
-	Play("qD2sG3G2G3G!etGDAeF2GqG3etF!BA!!EACE!CE",
+	Play("qD2sG3G2G3GetGDAeF2GqG3etFBAEACECE",
 		"sleep.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
   }
   } catch

TempleOS/Apps/MusicOrgan/Examples/rifled.CPP

@@ -8,10 +8,10 @@ U0 Song()
   try {
   while (!ScanKey) {
 	Play("M9/8");
-	Play("W13qAeCBAq.CsAAqAeCBA2q.G3sBC");
+	Play("3qAeCBAq.CsAAqAeCBA2q.G3sBC");
 	Play("qAeDCAhBeFsEEeDq.CM4/4");
-	Play("sAFAFeF!!2GsG3B2G!!3BqGeA!sAAetEGDE2G!3DeGsGG");
-	Play("AFAFeF!!2GsG3B2G!!3BqGeA!sAAetEGDE2G!3DeGsGG");
+	Play("sAFAFeF2GsG3B2G3BqGeAsAAetEGDE2G3DeGsGG");
+	Play("AFAFeF2GsG3B2G3BqGeAsAAetEGDE2G3DeGsGG");
   }
   } catch
     CatchAll;

TempleOS/Apps/MusicOrgan/Examples/risen.CPP

@@ -63,6 +63,7 @@ U0 Song()
 {
   I64 i;
   SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
+  Fs->text_attr=LTCYAN<<4+BLACK;
   Fs->draw_it=&DrawIt;
   Fs->task_end_cb=&SndTaskEndCB;
   MusicSettingsRst;
@@ -73,10 +74,10 @@ U0 Song()
     by[i]=RANGE*RandI16/RANGE;
   }
   try {
-    "$$BG+H,LTCYAN$$$$FD+H,BLACK$$";
+    "$$BG+H,LTCYAN$$";
     while (!ScanKey) {
 	t0=tMBeat;
-	Play("W13eDEqFFetEEFqDeCDDEetCGF");
+	Play("3eDEqFFetEEFqDeCDDEetCGF");
 	Play("eDEqFFetEEFqDeCDDEetCGF");
 	Play("eDCqDEeAAetEEFEDGBDCqF");
 	Play("eDCqDEeAAetEEFEDGBDCqF");

TempleOS/Apps/MusicOrgan/Examples/service.CPP

@@ -18,11 +18,11 @@ U0 Song()
   while (!ScanKey) {
 	"$$FG,GREEN$$Jesus talking...\n$$FG$$";
 	Play("M6/8");
-	Play("W13eAACADAADACAR",
+	Play("3eAACADAADACAR",
 		" \0 \0I \0 \0came \0 \0 \0to \0 \0serve.\n\0 \0 \0");
 	Play("AACADAADACAR",
 		" \0 \0I \0 \0give \0 \0 \0my \0 \0word.\n\0 \0 \0");
-	Play("FG!etFEGA!!B!C!DA!C2qG!3sECEC");
+	Play("FGetFEGABCDAC2qG3sECEC");
   }
   } catch
     CatchAll;

TempleOS/Apps/MusicOrgan/Examples/signifies.CPP

@@ -14,13 +14,13 @@ U0 Song()
   SetWinHorz(Fs->win_left,Fs->win_right,task);
   SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
   while (!ScanKey) {
-	Play("W13hDeDA2qG3hDeD2GqF",
+	Play("3hDeDA2qG3hDeD2GqF",
 		"It \0sig\0ni\0fies\n\0a \0big \0sur\0prise.\n\0");
 	Play("3hDeD2sFG3qAhDeDA2qG",
 		"Why \0 \0im\0pro\0vise?\n\0$$FG,RED$$\"Be\0cause,\"$$FG$$ \0re\0plies.\n\0");
-	Play("3eC!!EsACACeD2G3qA!AFeE2G!3etFCC",
+	Play("3eCEsACACeD2G3qAAFeE2G3etFCC",
 		"If \0 \0you \0 \0 \0 \0love \0your \0god,\n\0 \0don't \0bore \0 \0Him!\n\0 \0 \0");
-	Play("eC!!EsACACeD2G3qA!AFeE2G!3etFCC",
+	Play("eCEsACACeD2G3qAAFeE2G3etFCC",
 		"If \0 \0you \0 \0 \0 \0love \0your \0god,\n\0 \0sur\0prise \0 \0Him!\n\0 \0 \0");
   }
   } catch

TempleOS/Apps/MusicOrgan/Examples/silver.CPP

@@ -8,13 +8,13 @@ U0 Song()
   music_stacatto_factor= 0.902;
   try {
   while (!ScanKey) {
-	Play("W13qF!2GsGG!!GG3GFG!FqAeD!2G!3etDBEsFCFC",
+	Play("3qF2GsGGGG3GFGFqAeD2G3etDBEsFCFC",
 		"Love \0 \0 \0 \0 \0 \0ev\0 \0ery \0 \0sec\0ond.\n\0 \0 \0 \0 \0 \0 \0 \0 \0");
-	Play("qF!2GsGG!!GG3GFG!FqAeD!2G!3etDBEsFCFC",
+	Play("qF2GsGGGG3GFGFqAeD2G3etDBEsFCFC",
 		"World -- \0 \0 \0 \0 \0 \0all \0 \0that \0 \0beck\0ons.\n\0 \0 \0 \0 \0 \0 \0 \0 \0");
-	Play("qBG!!FsEAEAqEFGeF!C",
+	Play("qBGFsEAEAqEFGeFC",
 		" \0Life \0is \0too \0 \0 \0 \0prec\0i\0ous.\n\0 \0 \0");
-	Play("qBG!!FsEAEAqEFGeF!C",
+	Play("qBGFsEAEAqEFGeFC",
 		" \0Can \0be \0 \0 \0 \0 \0worr\0i\0ous.\n\0 \0 \0");
   }
   } catch

TempleOS/Apps/MusicOrgan/Examples/teachings.CPP

@@ -15,13 +15,13 @@ U0 Song()
   SetWinHorz(Fs->win_left,Fs->win_right,task);
   SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
   while (!ScanKey) {
-	Play("W12eG3CD!AqE!!sACACG!EGEqDsAAA!AetCDD",
+	Play("2eG3CDAqEsACACGEGEqDsAAAAetCDD",
 		"Ple\0ase \0te\0ach \0me.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
-	Play("2eG3CD!AqE!!sACACG!EGEqDsAAA!AetCDD",
+	Play("2eG3CDAqEsACACGEGEqDsAAAAetCDD",
 		"Wa\0ter \0thi\0s \0tree.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
-	Play("2qG!G3eEBqAGeFE!!sF!GFG!etD!BD",
+	Play("2qGG3eEBqAGeFEsFGFGetDBD",
 		" \0 \0$$FG,RED$$I \0will \0teach \0thee.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
-	Play("2qG!G3eEBqAGeFE!!sF!GFG!etD!BD",
+	Play("2qGG3eEBqAGeFEsFGFGetDBD",
 		" \0 \0Wat\0er \0that \0tree.$$FG$$\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
   }
   } catch

TempleOS/Apps/MusicOrgan/Examples/thereupon.CPP

@@ -30,6 +30,7 @@ U0 Song()
   I64 i;
   CTask *task;
   SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
+  Fs->text_attr=LTCYAN<<4+BLACK;
   Fs->draw_it=&DrawIt;
   Fs->task_end_cb=&SndTaskEndCB;
   MusicSettingsRst;
@@ -52,17 +53,17 @@ U0 Song()
     TaskWait(task);
     SetWinHorz(Fs->win_left,Fs->win_right,task);
     SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
-    "$$BD+H,LTCYAN$$$$FD+H,BLACK$$";
+    "$$BG+H,LTCYAN$$$$FG+H,BLACK$$";
     while (!ScanKey) {
-      Play("W12qG3eCB2hGqG3eCB2qG3A",
+      Play("2qG3eCB2hGqG3eCB2qG3A",
       "Umm... \0God?\n\0 \0 \0Let \0Your \0 \0 \0 \0");
       Play("CeBA2G3DqEeDCBA2qG3A",
       "face \0shine \0on \0down\n\0on \0us, \0Your \0 \0luck\0y \0 \0peo\0");
-      Play("eBA2h.G3qE!!CAF",
+      Play("eBA2h.G3qECAF",
       " \0ple.\n\0 \0Fath\0e\0r \0a\0");
-      Play("FD!A!eEDqE!!CAF",
+      Play("FDAeEDqECAF",
       "bove,\n\0 \0 \0I \0 \0feel \0 \0 \0Your \0");
-      Play("FD!A!eED",
+      Play("FDAeED",
       "love.\n\0 \0 \0 \0 \0");
     }
     } catch

TempleOS/Apps/MusicOrgan/Examples/thither.CPP

@@ -7,13 +7,13 @@ U0 Song()
   music_stacatto_factor= 0.902;
   try {
   while (!ScanKey) {
-	Play("W13sC#C#D#D#C#C#CCC#C#D#D#C#C#CCEEDDC#C#DDEEDDC#C#DD",
+	Play("3sC#C#D#D#C#C#CCC#C#D#D#C#C#CCEEDDC#C#DDEEDDC#C#DD",
 		"Still \0 \0 \0 \0there.\n\0 \0 \0 \0Still \0 \0 \0 \0there.\n\0 \0 \0 \0Not \0 \0 \0 \0fair.\n\0 \0 \0 \0Not \0 \0 \0 \0fair.\n\0 \0 \0 \0");
 	Play("C#C#D#D#C#C#CCC#C#D#D#C#C#CCEEDDC#C#DDEEDDC#C#DD",
 		"Un\0 \0 \0 \0aware!\n\0 \0 \0 \0Un\0 \0 \0 \0aware!\n\0 \0 \0 \0Every\0 \0 \0 \0where!\n\0 \0 \0 \0Every\0 \0 \0 \0where!\n\0 \0 \0 \0");
-	Play("eB!!DetFGAeF!EBE!etE!FEqCeFEDA",
+	Play("eBDetFGAeFEBEetEFEqCeFEDA",
 		"$$FG,RED$$Running \0 \0 \0a\0way \0 \0 \0 \0 \0 \0from \0the \0Lord \0won't \0 \0work.\n\0 \0");
-	Play("B!!DetFGAeF!EBE!etE!FEqCeFEDA",
+	Play("BDetFGAeFEBEetEFEqCeFEDA",
 		"Running \0 \0 \0a\0way \0 \0 \0 \0 \0 \0from \0the \0Lord \0won't \0 \0work.$$FG$$\n\0 \0");
   }
   } catch

TempleOS/Apps/MusicOrgan/Examples/twins.CPP

@@ -8,7 +8,7 @@ U0 Song()
   try {
   while (!ScanKey) {
 	"$$FG,GREEN$$As I look back on my sinful past...$$FG$$\n";
-	Play("W13qCAABAeAECEqB",
+	Play("3qCAABAeAECEqB",
 		"Who \0was \0that \0per\0son? \0 \0It \0wasn't \0 \0me?\n\0");
 	Play("CAABAeAECEqB",
 		"Who \0was \0that \0per\0son? \0 \0It \0wasn't \0 \0me?\n\0");

TempleOS/Apps/MusicOrgan/Examples/verses.CPP

@@ -16,7 +16,7 @@ U0 PutVerse()
   U8 *ch;
   I64 *start;
 
-  "$$CL$$";
+  DocClear;
   start=GetTimeStamp/16%size;
   if (start>size-LEN) start=size-LEN;
   ch=bible[start+LEN-1];
@@ -38,12 +38,12 @@ U0 Song()
     "$$WW,1$$This shows a random passage based on "
     "the time at the moment this song was run.  "
     "Talk to God as an offering, then run $MA+A-X+PU,"AfterEgypt","Cd(\"::/TempleOS/Apps/AfterEgypt\");;#include \"Run\"\\n"$ if you "
-    "want God to talk some more.  The $LK,"Holy Spirit","FI:::/TempleOS/Apps/HolySpirit/HSNotes.TXT"$ can "
+    "want God to talk some more.  The $LK+PU,"Holy Spirit","FI:::/TempleOS/Apps/HolySpirit/HSNotes.TXT"$ can "
     "puppet you.\n");
   TaskWait(task);
   SetWinHorz(Fs->win_left,Fs->win_right,task);
   SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
-  DocRecalc(DocCur(task)); //Reformat word-wrap with new window size.
+  DocRecalc(DocPut(task)); //Reformat word-wrap with new window size.
   while (!ScanKey) {
 	PutVerse;
 	Play("3qAeABCBqCetABBqCetAAREE2G");

TempleOS/Apps/MusicOrgan/Examples/villa.CPP

@@ -7,12 +7,12 @@ U0 Song()
   music_stacatto_factor= 0.902;
   try {
   while (!ScanKey) {
-	Play("W14etEEEqBetDDqtDqBetCCqtCqBhB");
+	Play("4etEEEqBetDDqtDqBetCCqtCqBhB");
 	Play("etEEEqBetDDqtDqBetCCqtCqBhB");
 	Play("etABCqDetBCCqDetDCBqAhA");
 	Play("etABCqDetBCCqDetDCBqAhA");
-	Play("!qAetC!!AEsG!!CGCetBC3G4ADAqAGetDAD");
-	Play("!qAetC!!AEsG!!CGCetBC3G4ADAqAGetDAD");
+	Play("qAetCAEsGCGCetBC3G4ADAqAGetDAD");
+	Play("qAetCAEsGCGCetBC3G4ADAqAGetDAD");
   }
   } catch
     CatchAll;

TempleOS/Apps/MusicOrgan/Examples/worship.CPP

@@ -7,12 +7,12 @@ U0 Song()
   music_stacatto_factor= 0.902;
   try {
   while (!ScanKey) {
-	Play("W13qEDeCC!etEAAqEetCDCA!!GFqG",
+	Play("3qEDeCCetEAAqEetCDCAGFqG",
 		"I \0don't \0know \0 \0 \0 \0 \0 \0 \0 \0what \0 \0to \0 \0pray.\n\0");
-	Play("EDeCC!etEAAqEetCDCA!!GFqG");
-	Play("eGEetFDAqF!sGF!GF!G!!FG!F!etBGFqGeDE",
+	Play("EDeCCetEAAqEetCDCAGFqG");
+	Play("eGEetFDAqFsGFGFGFGFetBGFqGeDE",
 		"It's \0a \0blah \0 \0 \0day.\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
-	Play("GEetFDAqF!sGF!GF!G!!FG!F!etBGFqGeDE");
+	Play("GEetFDAqFsGFGFGFGFetBGFqGeDE");
   }
   } catch
     CatchAll;

TempleOS/Apps/MusicOrgan/Examples/you.CPP

@@ -8,14 +8,14 @@ U0 Song()
   try {
   while (!ScanKey) {
 	DocClear;
-	Play("W13qDsCCCCeBBCCqDsCCCCeBBCC",
+	Play("3qDsCCCCeBBCCqDsCCCCeBBCC",
 		"I'm \0 \0 \0 \0 \0on \0my \0way.\n\0 \0Got \0a \0 \0 \0 \0bus\0y \0day.\n\0 \0");
 	Play("sBBBBeAAsBA2G3AqAsBBBBeAAsBA2G3AqA",
 		"Woe, \0 \0 \0 \0I \0for\0got \0 \0to \0 \0pray.\n\0What's \0 \0 \0 \0God \0 \0have \0 \0to \0 \0say?\n\0");
 	"$$FG,GREEN$$God talking...\n$$FG$$";
-	Play("AeB2G3GGqE2etG3F!B!eFGqFeEC",
+	Play("AeB2G3GGqE2etG3FBeFGqFeEC",
 		"$$FG,RED$$Oh, \0 \0 \0hi-\0a \0you!\n\0What\0ch\0u \0been \0 \0do\0ing?\n\0 \0");
-	Play("qAeB2G3GGqE2etG3F!B!eFGqFeEC",
+	Play("qAeB2G3GGqE2etG3FBeFGqFeEC",
 		"Oh, \0 \0 \0hi-\0a \0you!\n\0What\0ch\0u \0been \0 \0do\0ing?$$FG$$\n\0 \0");
   }
   } catch