HP 48GX Indefinite Loops

[DavidM]

I don't see a problem with just using the standard WHILE...REPEAT...END structure for something like this. The following will take a string with embedded linefeeds as input and return a list of the substrings delineated by those linefeeds. I'm sure this could be optimized more, but I just wanted to show a fairly straightforward approach.

Code:

\<<
   DEPTH 1 - \-> d            @ save current depth in d
   \<<
      WHILE                   @ check condition - position of linefeed
         DUP
         10 CHR POS
         DUP
      REPEAT                  @ execute if linefeed found:
         DUP2                 @ make a copy of string & pos
         1 SWAP OVER - SUB    @ SUB everything before the linefeed
         ROT ROT 1 + 1E8 SUB  @ SUB everything after linefeed
      END
      DROP                    @ DROP the 0 indicating no more linefeeds
      DEPTH d - \->LIST       @ result is all found substrings in a list
   \>>
\>>