Initial (manual) import

TempleOSCD/Demo/RevFileDemo/DemoPoemBwd.DD

@@ -0,0 +1,42 @@
+Will lead my steps aright.
+In the long way that I must tread alone,
+Guides through the boundless sky thy certain flight,
+He, who, from zone to zone,
+
+And shall not soon depart.
+Deeply hath sunk the lesson thou hast given,
+Hath swallowed up thy form; yet, on my heart
+Thou'rt gone, the abyss of heaven
+
+Soon o'er thy sheltered nest.
+And scream among thy fellows; reed shall bend
+Soon shalt thou find a summer home, and rest,
+And soon that toil shall end,
+
+Though the dark night is near.
+Yet stoop not, weary, to the welcome land,
+At that far height, the cold thin atmosphere:
+All day thy wings have fann'd
+
+Lone wandering, but not lost.
+The desert and illimitable air,--
+Teaches thy way along that pathless coast,--
+There is a Power whose care
+
+On the chafed ocean side?
+Or where the rocking billows rise and sink
+Of weedy lake, or marge of river wide,
+Seek'st thou the plashy brink
+
+Thy figure floats along.
+As, darkly painted on the crimson sky,
+Might mark thy distant flight to do thee wrong,
+Vainly the fowler's eye
+
+Thy solitary way?
+Far, through their rosy depths, dost thou pursue
+While glow the heavens with the last steps of day,
+Whither, 'midst falling dew,
+
+by William Cullen Bryant
+To a Waterfowl;

TempleOSCD/Demo/RevFileDemo/Rev.HC

@@ -0,0 +1,22 @@
+/*We use the internal routines from the text editor
+to cut and paste lines to rev the order of
+lines in a text file.
+*/
+
+Cd(__DIR__);;
+
+U0 Rev(U8 *in_name,U8 *out_name)
+{
+  CDoc	*doc_in =DocRead(in_name),
+	*doc_out=DocNew(out_name);
+  DocTop(doc_in);
+  while (doc_in->head.next!=doc_in) {
+    EdLineDown(doc_in,SC_CURSOR_DOWN|SCF_SHIFT);
+    EdCutToClipboard(doc_in);
+    DocTop(doc_out);
+    EdPasteClipboard(doc_out);
+  }
+  DocWrite(doc_out);
+}
+
+Rev("DemoPoemBwd.DD.Z","~/DemoPoemFwd.DD.Z");