Improved version:
To repeat with/for (loopvar - nonexisting text variable) running/-- through/in words in/of (t - text) with index (i - nonexisting number variable) begin -- end loop: (-
{-my:0} = {t}-->0;
@push {-my:0};
{-my:1} = TEXT_TY_Temporarily_Transmute({-by-reference:t});
@push {-my:1};
for ( {-my:1} = BlkValueLBCapacity({-by-reference:t}) - 1 : {-my:1} >= 0 : {-my:1}-- ) if (BlkValueRead({-by-reference:t}, {-my:1})) { {-my:1}++; break; }
BlkValueSetLBCapacity({-by-reference:loopvar}, {-my:1}+1);
TEXT_TY_Transmute({-by-reference:loopvar});
for ({-my:0} = 0, {-my:2} = BlkValueRead({-by-reference:t}, 0), {-my:3} = 0, {i} = 1 : ({-my:0} <= {-my:1}) : {-my:2} = BlkValueRead({-by-reference:t}, ++{-my:0}))
if ({-my:2} && ({-my:2} ~= 10 or 32)) { BlkValueWrite({-by-reference:loopvar}, {-my:3}++ , {-my:2}); }
else for ( : {-my:3} : {-my:3} = 0, textWipe({-by-reference:loopvar}), {i}++ ) {-block}
-)
To repeat with/for (loopvar - nonexisting text variable) running/-- through/in words in/of (t - text) begin -- end loop: (-
{-my:0} = {t}-->0;
@push {-my:0};
{-my:1} = TEXT_TY_Temporarily_Transmute({-by-reference:t});
@push {-my:1};
for ( {-my:1} = BlkValueLBCapacity({-by-reference:t}) - 1 : {-my:1} >= 0 : {-my:1}-- ) if (BlkValueRead({-by-reference:t}, {-my:1})) { {-my:1}++; break; }
BlkValueSetLBCapacity({-by-reference:loopvar}, {-my:1}+1);
TEXT_TY_Transmute({-by-reference:loopvar});
for ({-my:0} = 0, {-my:2} = BlkValueRead({-by-reference:t}, 0), {-my:3} = 0 : ({-my:0} <= {-my:1}) : {-my:2} = BlkValueRead({-by-reference:t}, ++{-my:0}))
if ({-my:2} && ({-my:2} ~= 10 or 32)) { BlkValueWrite({-by-reference:loopvar}, {-my:3}++ , {-my:2}); }
else for ( : {-my:3} : {-my:3} = 0, textWipe({-by-reference:loopvar})) {-block}
-)