home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
rexx
/
tools
/
rexxtacy
/
spell.cmd
< prev
Wrap
OS/2 REXX Batch file
|
1992-05-27
|
588b
|
22 lines
/* REXX spelling checker */
do while lines("dict.dat")
parse upper value linein("dict.dat") with word
dictionary.word = "*"
end
do while lines()
parse upper linein remainder
do while remainder \== ""
parse var remainder word remainder
len = length(word)-1
parse var word dummy +(len) char
if ((char < "A") && (char > "Z")) then
word = dummy
if dictionary.word \== "*" then
say word
end
end
exit