home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / dbadvan.zip / TESTWORD.PRG < prev    next >
Text File  |  1987-02-14  |  609b  |  29 lines
  1. SET talk OFF
  2. *
  3. * get a string
  4. ACCEPT "Enter a test string" TO string
  5. *
  6. *set up string macros
  7. DO string
  8. *
  9. *move to the first character
  10. &firstchar
  11. *
  12. *if there are any blank characters
  13. IF .not. &empty
  14.   *
  15.   *extract the words
  16.   DO WHILE .not. &endstring
  17.     DO word
  18.     ? newstring
  19.   ENDDO WHILE .not. &endstring 
  20.   *
  21. ENDIF .not. &empty 
  22. *
  23. *clean up
  24. RELEASE string, newstring
  25. SET talk ON
  26. ****************************************************************
  27. ****************************************************************
  28. ****************************************************************
  29.