How to create this gw basic program?

Question

Ok i want to know how to make a sentence appear word by word in GW BASIC.For example if the sentence is I Am Boy then how to make it appear as so "I" comes first printed then "A" ,then "m" , then B and so on....simply like in typing Plz help me And it will be appreciated if you post a working programme codingg

Answer 1

5 inputstr$=" The quick brown fox jumped over the lazy dogs !!!"

10 iStrLength = Len(inputStr$)

15 ? "THe length of the input string is " + str$(iStrLength)

20 iIndex=1

25 while iIndex < iStrLength

30 iDelimPos = instr$(iIndex,inputstr$," ")

32 if delimPos=0 then goto 50

35 ' debug statement

40 iIndex = iDelimPos+1

45 wend

50 lastStr$ = mid$(inputStr$,iIndex)

55 if len(lastSTr$)>0 then print lastStr$

60 end