/*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); ClipCut(doc_in); DocTop(doc_out); ClipPaste(doc_out); } DocWrite(doc_out); } Rev("DemoPoemBwd.DD.Z","~/DemoPoemFwd.DD.Z");