home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
dbadvan.zip
/
TESTWORD.PRG
< prev
next >
Wrap
Text File
|
1987-02-14
|
609b
|
29 lines
SET talk OFF
*
* get a string
ACCEPT "Enter a test string" TO string
*
*set up string macros
DO string
*
*move to the first character
&firstchar
*
*if there are any blank characters
IF .not. &empty
*
*extract the words
DO WHILE .not. &endstring
DO word
? newstring
ENDDO WHILE .not. &endstring
*
ENDIF .not. &empty
*
*clean up
RELEASE string, newstring
SET talk ON
****************************************************************
****************************************************************
****************************************************************