Re: U2 noot loaded

["Robert Holmgren" holmgren@xxxxxxxx]

The previously-posted version of REVSORT was not formatted for U2; it was
formatted simply to be RUN as a standalone, disk-based program. Therefore,
adding it to U2 as-is (or as-was) would noot work. Following is the same code,
formatted for inclusion in (addition to) U2. Automated ADD2U2 procedure:

Select the XPLENCODeD code below, and Paste into empty Xy4 window
Put cursor at beginning of code
Command DECODE
DeFine the resulting decoded program frame
Command ADD2U2[/BF]

------------------------------------------

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5revsort}} Reverse Sort DeFined Block RJH LastRev.7/5/04[
cr|lf]{002};*; Rules:[cr|lf];*; Sort Block must be DeFined[cr
|lf];*; All lines-to-sort terminate with a true (0Dx+0Ax|13d+
10d) carriage return[cr|lf];*;[cr|lf]{<}IF{<}VA$DF{>}>0{>}{<}
SX01,{<}VA$DT{>}{>}[DZ_][WG_][DE_]{<}SX02,{<}VA$DN{>}{>}{<}SX
03,{<}VA$DS{>}{>}[BX_]es 1[Q2_][BX_]ci/s [wC] [wC][Q2_]{<}IF
@NOT({<}ER{>}){>}{<}SX04,{<}VA$WC{>}{>}[XD_][DF_][CL_][DF_]{<
}SV05{>}[XD_]{<}IF{<}IS05{>}=="[cr|lf]"{>}{<}SX05,{<}PV03{>}{
>}{<}SX06,{<}PV02{>}-{<}PV03{>}{>}{<}SX50,{<}PV03{>}{>}[JM_]2
{046}ReJuMP[Q2_]{<}IF{<}PV03{>}>0{>}[DF_][CL_][DF_]{<}SV07{>}[CR_
]{<}IF"[cr|lf]"{238}{<}IS07{>}<>0{>}{<}PRSort list not preced
ed by carriage return - sort anyway? y|N{>}{<}SX07,{<}RC{>}{>
}{<}IF@UPR({<}IS07{>})<>"Y"{>}[XD_]{<}SV07,No sort{>}{<}LBA{>
}{<}SX50,{<}PV01{>}{>}[JM_]2.setDT[Q2_]{<}SX07,{<}IS07{>}+" -
 Abort"{>}{<}PR@07{>}{<}EX{>}{<}EI{>}{<}EI{>}[XD_]{<}EI{>}{<}
SX07,1{>}{<}SX50,{<}PV02{>}{>}[JM_]2.ReJuMP[Q2_][CL_]{<}LBB{>
}{<}IF{<}PV07{>}<{<}PV04{>}{>}[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,{<
}PV05{>}{>}[JM_]2.ReJuMP[Q2_]{<}SX50,{<}PV01{>}{>}[JM_]2.setD
T[Q2_]{<}PRDone{>}{<}EX{>}{<}EI{>}{<}SV07,Sort list does not{032}
terminate with carriage return{>}{<}GLA{>}{<}EI{>}{<}SV07,No{032}
lines to sort{>}{<}GLA{>}{<}EI{>}{<}PRNo DeFined block to Rev
erse Sort!{>}{002}[cr|lf][cr|lf]
-nd
XPLeNCODE

-----------------------------
Robert Holmgren
holmgren@xxxxxxxx
-----------------------------