Initial (manual) import

TempleOSCD/Demo/Progress.HC

@@ -0,0 +1,80 @@
+/*$LK,"progress1",A="MN:progress1"$-$LK,"progress4",A="MN:progress4"$ are just global vars
+shown on the wallpaper. I use them in debugging a lot.
+
+If you set $LK,"progress1_max",A="MN:progress1_max"$-$LK,"progress4_max",A="MN:progress4_max"$,
+then a progress bar will display.
+
+If you set $LK,"progress1_t0",A="MN:progress1_t0"$-$LK,"progress4_t0",A="MN:progress4_t0"$
+then the elapsed time will display.
+
+If you set $LK,"progress1_tf",A="MN:progress1_tf"$-$LK,"progress4_tf",A="MN:progress4_tf"$
+then the estimated time will display.
+*/
+
+U0 Main1()
+{
+  "\nWith description.\n";
+  PressAKey;
+  progress1_max=200;
+  StrCpy(progress1_desc,"Progress Demo"); //PROGRESS_DESC_LEN is max
+  while (progress1++!=progress1_max)
+    Sleep(20);
+  ProgressBarsRst;
+}
+Main1;
+
+U0 Main2()
+{
+  "\nWith description and elapsed time.\n";
+  PressAKey;
+  progress1_max=200;
+  progress1_t0=tS;
+  StrCpy(progress1_desc,"Progress Demo"); //PROGRESS_DESC_LEN is max
+  while (progress1++!=progress1_max)
+    Sleep(20);
+  ProgressBarsRst;
+}
+Main2;
+
+U0 Main3()
+{
+  "\nWith description, elapsed time and registry total time.\n";
+  PressAKey;
+  progress1_max=200;
+  progress1_t0=tS;
+  RegExe("DemoCompany/ProgressBars");
+  StrCpy(progress1_desc,"Progress Demo"); //PROGRESS_DESC_LEN is max
+  while (progress1++!=progress1_max)
+    Sleep(20);
+  ProgressBarsRst("DemoCompany/ProgressBars");
+}
+Main3;
+
+U0 Main4()
+{
+  "\nNo description.\n";
+  PressAKey;
+  progress1_max=200;
+  while (progress1++!=progress1_max)
+    Sleep(20);
+  ProgressBarsRst;
+}
+Main4;
+
+
+"\nNow, from asm...  It's handy for debugging.\n"
+"Watch the progress on the wallpaper.\n";
+WinBorder(ON);
+PressAKey;
+
+asm {
+_PROGRESS_DEMO::
+	MOV	RCX,12000000
+@@05:	MOV	U64 [&progress1],RCX
+	CALL	&Yield
+	LOOP	@@05
+	MOV	U64 [&progress1],RCX
+	RET
+}
+_extern _PROGRESS_DEMO U0 AsmProgressDemo();
+AsmProgressDemo;