a$ =    "---------- Ice and Fire ------------" +#CRLF$+
        "                                    " +#CRLF$+
        "fire, in end will world the say Some" +#CRLF$+
        "ice. in say Some                    " +#CRLF$+
        "desire of tasted I've what From     " +#CRLF$+
        "fire. favor who those with hold I   " +#CRLF$+
        "                                    " +#CRLF$+
        "... elided paragraph last ...       " +#CRLF$+
        "                                    " +#CRLF$+
        "Frost Robert -----------------------" +#CRLF$
a$ =    "Hey you, Bub!                       " +#CRLF$+#CRLF$+ a$

OpenConsole()
For p1=1 To CountString(a$,#CRLF$)
  b$=StringField(a$,p1,#CRLF$) : c$=""
  For p2=1 To CountString(b$,Chr(32))+1
    c$=StringField(b$,p2,Chr(32))+Space(1)+c$
  Next
  PrintN(LSet(b$,36,Chr(32))+" ---> "+Trim(c$))
Next
Input()