>L.
   10 REM **************
   20 REM PROCget_word
   30 REM By Tim Surtell
   40 REM **************
   50 REM Downloaded from Tim's Amstrad NC Users' Site
   60 REM http://www.ncus.org.uk
   70 REM Routine to get one word from a sentance at a time.
   80 REM Input is 'sent$', making sure 'start' is 1.  Output is 'word$'
   90 REM When 'word$' is 'EMPTY' the search is complete.
  100 REM ***Written By Timothy Surtell***
  110 DEF PROCGET
  120 finish=-1
  130 REPEAT
  140   finish=finish+1
  150 UNTIL MID$(sent$,start+finish,1)<>" " OR start+finish>LEN(sent$)
  160 IF start+finish>LEN(sent$) word$="EMPTY":ENDPROC
  170 start=(start+finish):finish=-1
  180 REPEAT
  190   finish=finish+1
  200 UNTIL MID$(sent$,start+finish,1)=" " OR start+finish>LEN(sent$)
  210 IF start+finish>LEN(sent$)+1 word$="EMPTY":ENDPROC
  220 word$=MID$(sent$,start,finish)
  230 start=start+finish
  240 ENDPROC
>*SPOOL