22 lines
868 B
Plaintext
22 lines
868 B
Plaintext
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()
|