home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
dbadvan.zip
/
WORD.PRG
< prev
next >
Wrap
Text File
|
1987-02-14
|
852b
|
32 lines
*look for the next non-blank character
STORE f TO inword
DO WHILE .not. inword .AND. .not. &endstring
*
IF .not. &isblank
* a non-blank character has been found, so start newstring
STORE t TO inword
&startstr
ENDIF .not. &isblank
*
&nextchar
ENDDO WHILE .not. inword .AND. .not. &endstring
*
* add the restore of the characters to newstring
DO WHILE inword .AND. .not. &endstring
*
IF .not. &isblank
&addchar
&nextchar
*stop when a blank character is reached
ELSE
STORE f TO inword
ENDIF .not. &isblank
*
ENDDO WHILE inword .AND. .not. &endstring
*
*clean up
RELEASE inword
****************************************************************
****************************************************************
****************************************************************