home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 18 REXX
/
18-REXX.zip
/
REXXTACY.ZIP
/
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