Re: Reverse lines in a file?

["Robert Holmgren" holmgren@xxxxxxxx]

** Reply to message from Patricia M Godfrey  on Tue, 29 Jun
2004 21:12:02 -0400

Here's a routine to Reverse Sort any block of text.
It presumes that the block of text is already sorted
in the order (alpha, numeric, whatever) which you wish
to reverse. Rules:

 The Sort Block must be DeFined when you launch the program
 All lines-to-sort must terminate with a carriage return
 A recent U2 must be installed

The routine is "attached", and also XPLeNCODEd below. RUN it.
It will be part of the next U2, as routine "revsort".

XPLeNCODE v2.0
b-gin [UNTITLED]
;*; Reverse Sort DeFined Block R.J.Holmgren 6/30/04[cr|lf];*
;[cr|lf];*; Rules:[cr|lf];*;  Sort Block must be DeFined[cr|
lf];*;  All lines must terminate with a carriage return[cr|l
f];*;  Recent U2 must be installed[cr|lf];*;[cr|lf]{<}IF{<}V
A$DF{>}>0{>}{<}SX01,{<}VA$DT{>}{>}[XP_][DZ_][DE_][CL_]{<}IF{<
}VA$RS{>}{240}"{027}"{>}{<}SX02,{<}VA$DN{>}{>}{<}SX03,{<}VA$D
S{>}{>}{<}SX04,{<}PV03{>}{>}{<}SX05,{<}PV02{>}-{<}PV03{>}{>}[
DB_][XD_]{<}SX06,0{>}{<}LBA{>}[BX_]se [cr|lf][Q2_]{<}IF{<}CP
{>}<={<}PV02{>}{>}{<}SX06,{<}PV06{>}+1{>}{<}IF{<}CP{>}<{<}PV0
2{>}{>}{<}GLA{>}{<}EI{>}{<}IF{<}PV06{>}>0{>}{<}SX07,1{>}{<}SX
50,{<}PV02{>}{>}[JM_]2.ReJuMP[Q2_][CL_]{<}LBB{>}{<}IF{<}PV07{
>}<{<}PV06{>}{>}[DP_]{<}SV08{>}[DN_]{<}SX09,{<}VA|08{>}{>}{<}
SX50,{<}PV03{>}{>}[JM_]2.ReJuMP[Q2_]{<}GT08{>}{<}SX50,{<}PV02
{>}-1{>}[JM_]2.ReJuMP[Q2_]{<}SX03,{<}PV03{>}+{<}PV09{>}{>}{<}
SX07,{<}PV07{>}+1{>}{<}GLB{>}{<}EI{>}{<}SX50,{<}PV04{>}{>}[JM
_]2.ReJuMP[Q2_]{<}SX50,{<}PV01{>}{>}[JM_]2.setDT[Q2_]{<}PRDon
e{>}{<}EX{>}{<}EI{>}{<}EI{>}{<}EI{>}{<}PRSort list does not t
erminate with carriage return - Abort{>}{<}EX{>}{<}EI{>}{<}PR
No DeFined block to Reverse Sort!{>}{<}EX{>}[cr|lf][cr|lf]
-nd
XPLeNCODE

-----------------------------
Robert Holmgren
holmgren@xxxxxxxx
-----------------------------
Attachment:
REVSORT.PM

Description: Binary data