<<>> <> <> <> <<>> <> <<>> DIRECTORY Rope USING [ROPE]; Soundex: CEDAR DEFINITIONS ~ BEGIN SoundexCode: TYPE = Rope.ROPE; <<>> <> <<1. Retain the first letter of the name, and drop all occurrences of a, e, h, i, o, u, w, y in other positions.>> <<2. Assign the following numbers to the remaining letters after the first:>> < 1>> < 2>> < 3>> < 4>> < 5>> < 6>> <<3. If two or more letters with the same code were adjacent in the original name (before step 1), omit all but the first.>> <<4. Convert to the form "letter, digit, digit, digit" by adding trailing zeros (if there are less than three digits), or by dropping rightmost digits (if there are more than three).>> NameToCode: PROC [name: Rope.ROPE] RETURNS [SoundexCode]; <> END. <> <> <> <> <<>> <<>>