home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / dbadvan.zip / FASTWORD.PRG < prev    next >
Text File  |  1987-02-14  |  368b  |  17 lines
  1. STOR F TO W
  2. DO WHIL .NOT.W.AND.CPOINTER<=LEN(TRIM(STRING))
  3. IF$(STRING,CPOINTER,1)<>" "
  4. STORE T TO W
  5. STORE $(STRING,CPOINTER,1) TO NEWSTRING
  6. ENDI
  7. STOR CPOINTER+1TO CPOINTER
  8. ENDD
  9. DO WHIL W.AND.CPOINTER<=LEN(TRIM(STRING))
  10. IF$(STRING,CPOINTER,1)<>" "
  11. STOR NEWSTRING+$(STRING,CPOINTER,1)TO NEWSTRING
  12. STORE CPOINTER+1TO CPOINTER
  13. ELSE
  14. STORE F TO W
  15. ENDI
  16. ENDD
  17.