23 lines
468 B
Plaintext
23 lines
468 B
Plaintext
for i = 1 to 10
|
|
read string$
|
|
j = 1
|
|
r$ = ""
|
|
while word$(string$,j) <> ""
|
|
r$ = word$(string$,j) + " " + r$
|
|
j = j + 1
|
|
WEND
|
|
print r$
|
|
next
|
|
end
|
|
|
|
data "---------- Ice and Fire ------------"
|
|
data ""
|
|
data "fire, in end will world the say Some"
|
|
data "ice. in say Some"
|
|
data "desire of tasted I've what From"
|
|
data "fire. favor who those with hold I"
|
|
data ""
|
|
data "... elided paragraph last ..."
|
|
data ""
|
|
data "Frost Robert -----------------------"
|