home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / REXXTACY.ZIP / SPELL.CMD < prev   
OS/2 REXX Batch file  |  1992-05-27  |  588b  |  22 lines
  1. /* REXX spelling checker */
  2.  
  3. do while lines("dict.dat")
  4.         parse upper value linein("dict.dat") with word
  5.         dictionary.word = "*"
  6. end
  7.  
  8. do while lines()
  9.         parse upper linein remainder
  10.         do while remainder \== ""
  11.                 parse var remainder word remainder
  12.                 len = length(word)-1
  13.                 parse var word dummy +(len) char
  14.                 if ((char < "A") && (char > "Z")) then
  15.                         word = dummy 
  16.                 if dictionary.word \== "*" then
  17.                         say word
  18.         end
  19. end
  20.  
  21. exit
  22.