Re: Elegance in XPL sought

["Robert Holmgren" holmgren@xxxxxxxx]

** Reply to message from Harry Binswanger  on Thu, 12 Oct 2006
13:54:18 -0400

This doesn't require eXPanded view, and works around initial embedded formats,
even in NoMarkers view. You don't lose your preexisting DeFine block either.
The only possible flaw is that you're using a 1-byte 13 or a 3-byte soft 
as your end-of-line character (which you aren't -- you're using a normal 2-byte
cr|lf):

XPLeNCODE v2.0
b-gin [UNTITLED]
[BX_]jmp 2[Q2_]{<}IF{<}VA$CY{>}<1{>}{<}SX01,{<}CP{>}{>}{<}CUA
,01{>}[CL_]{<}LBA{>}[cr|lf]{<}EI{>}{<}EX{>}
-nd
XPLeNCODE

 Explication:
BX jmp 2 Q2     Assume leading , so JuMP to position right after it
<1>    This _should_ be row 1 -- IF not, you're still on row 0
 >    Get current  CursorPosition
 CL  CursorLeft once for each  (move to beginning of row 0)
        Issue carriage return
      ENDIF and Quit

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