10 DIMA$(40):INPUT"ENTER A STRING";A$:GOSUB1000
20 W$="":INPUT "WHICH WORD (_ FOR ANOTHER STRING)";W$:W=VAL(W$)
25 IFW$="_"THENRUN
30 PRINTA$(W):GOTO20
1000 S$=CHR$(0):FORI=1TOLEN(A$)
1010 IFMID$(A$,I,1)=" "ORMID$(A$,I,1)="[160]"THENS$=S$+CHR$(I)
1020 NEXT:S$=S$+CHR$(LEN(A$)+1)
1025 FORW=1TOLEN(S$)-1
1030 A$(W)=MID$(A$,ASC(MID$(S$,W,1))+1,ASC(MID$(S$,W+1,1))-ASC(MID$(S$,W,1))-1)
1040 NEXT:RETURN