SUBROUTINE REMOVE.WORD(WORD,SOUNDEX)
      SOUNDEX = ICONV(WORD,'S')
      READ DICTIONARY.REC FROM DICTIONARY.FILE, SOUNDEX ELSE RETURN
      LOCATE WORD IN DICTIONARY.REC<1,1> SETTING VALUE ELSE VALUE = 0
      IF VALUE EQ 0 THEN RETURN
      DICTIONARY.REC = DELETE(DICTIONARY.REC,1,VALUE,0)
      WRITE DICTIONARY.REC TO DICTIONARY.FILE, SOUNDEX
      RETURN
   END