100 REM* RECURSIVE WORD-WRAP ROUTINE *
110 REM*   PUT STRING IN W$,
120 REM*    LINE WIDTH IN W
130 :
140 IF LEN(W$)>W THEN 160
150 PRINT W$: RETURN
160 P=0: FOR I=W TO 1 STEP-1
170 IF P=0 AND MID$(W$,I,1)=" "THEN P=I
180 NEXT: H$=RIGHT$(W$,LEN(W$)-P)
190 W$=LEFT$(W$,P): GOSUB150
200 W$=H$: GOTO 140