;*; Reverse Sort DeFined Block  R.J.Holmgren 6/30/04
;*;
;*; Rules:
;*;   Sort Block must be DeFined
;*;   All lines must terminate with a carriage return
;*;   Recent U2 must be installed
;*;
®IF®VA$DF¯>0¯®SX01,®VA$DT¯¯ÿ­ÿ‚Gÿ‚—ÿ€[®IF®VA$RS¯ð""¯®SX02,®VA$DN¯¯®SX03,®VA$DS¯¯®SX04,®PV03¯¯®SX05,®PV02¯-®PV03¯¯ÿ‚•ÿ®SX06,0¯®LBA¯ÿ‚«se  
ÿ‚®IF®CP¯<=®PV02¯¯®SX06,®PV06¯+1¯®IF®CP¯<®PV02¯¯®GLA¯®EI¯®IF®PV06¯>0¯®SX07,1¯®SX50,®PV02¯¯ÿ‚£2.ReJuMPÿ‚ÿ€[®LBB¯®IF®PV07¯<®PV06¯¯ÿ€q®SV08¯ÿ‚é®SX09,®VA|08¯¯®SX50,®PV03¯¯ÿ‚£2.ReJuMPÿ‚®GT08¯®SX50,®PV02¯-1¯ÿ‚£2.ReJuMPÿ‚®SX03,®PV03¯+®PV09¯¯®SX07,®PV07¯+1¯®GLB¯®EI¯®SX50,®PV04¯¯ÿ‚£2.ReJuMPÿ‚®SX50,®PV01¯¯ÿ‚£2.setDTÿ‚®PRDone¯®EX¯®EI¯®EI¯®EI¯®PRSort list does not terminate with carriage return - Abort¯®EX¯®EI¯®PRNo DeFined block to Reverse Sort!¯®EX¯

