TempleOSCD_140715.ISO

Apps/AfterEgypt/Horeb3.CPP

@@ -1,5 +1,5 @@
 U0 AnimateTask(I64)
-{ //Preemption is off after Spawn
+{//Preemption is off after Spawn
   I64 i;
   F64 t;
   Obj *tempo;
@@ -86,7 +86,7 @@ U0 Horeb()
   "Play {"
   "  Restart(,'\n');"
   "  Fwd(,,SC_CURSOR_UP);"
-  "  Backward(,,SC_CURSOR_DOWN);"
+  "  Bwd(,,SC_CURSOR_DOWN);"
   "  Left(,,SC_CURSOR_LEFT);"
   "  Right(,,SC_CURSOR_RIGHT);"
       "}"
@@ -94,15 +94,15 @@ U0 Horeb()
   SettingsPush(Fs,TSF_SAME_SONG); //See $LK,"SettingsPush",A="MN:SettingsPush"$
   try {
     Fs->text_attr=YELLOW<<4+BLUE;
-    Fs->win_inhibit=WIG_TASK_DFT-WIF_FOCUS-WIF_GRAB_SCROLL-WIF_MENU;
+    Fs->win_inhibit=WIG_TASK_DFT-WIF_SELF_FOCUS-WIF_SELF_GRAB_SCROLL-WIF_FOCUS_TASK_MENU;
     WordStat;
     WinMax;
     WinBorder;
     Preempt(OFF);
 
     DocClear;
-    "$$BG,LTCYAN$$"; NewLine(6);
-    "$$BG,YELLOW$$"; NewLine(30);
+    "$$BG,LTCYAN$$%h6c",'\n';
+    "$$BG,YELLOW$$%h30c",'\n';
     BibleVerse(,"Exodus,3:1",21);
     Init;
     Fs->animate_task=Spawn(&AnimateTask,NULL,"Animate",,Fs);