Message #1651

[SMcNeill]

An easy solution to this one:

Code:

DIM sentence AS STRING, word AS STRING
PRINT "Give me a sentence: ";
INPUT sentence
sentence = sentence + " "
DO
    wordpos = INSTR(sentence, " ")
    word = LEFT$(sentence, wordpos - 1)
    sentence = RIGHT$(sentence, LEN(sentence) - wordpos)
    PRINT word
LOOP UNTIL wordpos = 0