HP 48GX Indefinite Loops

[Thomas Klemm]

(03-29-2022 12:30 PM)DavidM Wrote:  I'm sure this could be optimized more (…)

Mostly copied but using local variables str and pos:

Code:

\<<
   { } SWAP
   WHILE                      @ check condition - position of linefeed
      DUP
      10 CHR POS
      DUP
   REPEAT \-> str pos         @ execute if linefeed found:
      \<<
         str 1 pos 1 - SUB +  @ SUB everything before the linefeed
         str pos 1 + 1E8 SUB  @ SUB everything after linefeed
      \>>
   END
   DROP                       @ DROP the 0 indicating no more linefeeds
   +
\>>

I try to avoid modifying local variables using STO.