home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / dbadv.zip / WORD.PRG < prev    next >
Text File  |  1986-02-25  |  852b  |  32 lines
  1. *look for the next non-blank character
  2. STORE f TO inword
  3. DO WHILE .not. inword .AND. .not. &endstring
  4.   *
  5.   IF .not. &isblank
  6.     * a non-blank character has been found, so start newstring
  7.     STORE t TO inword
  8.     &startstr
  9.   ENDIF .not. &isblank 
  10.   *
  11.   &nextchar
  12. ENDDO WHILE .not. inword .AND. .not. &endstring
  13. *
  14. * add the restore of the characters to newstring
  15. DO WHILE inword .AND. .not. &endstring
  16.   *
  17.   IF .not. &isblank
  18.     &addchar
  19.     &nextchar
  20.     *stop when a blank character is reached
  21.   ELSE
  22.     STORE f TO inword
  23.   ENDIF .not. &isblank 
  24.   *
  25. ENDDO WHILE inword .AND. .not. &endstring 
  26. *
  27. *clean up
  28. RELEASE inword
  29. ****************************************************************
  30. ****************************************************************
  31. ****************************************************************
  32.