Routine: ESPSOUN

Information

ESPSOUN ;DALISC/CKA - BETTER SOUNDEX ;1/92

Source file <ESPSOUN.m>

Name	Comments	DBIA/ICR reference
SOUN(X)	;DFW/MRL - BETTER SOUNDEX ;1/92
1
2
CONV	;Convert word to numerics (first four sounds)
DOUB	;Double Vowels
C	;Change sound to another
S	;Change 'Starts with' sound to another
E	;Change 'Ends with' sound to another
SH	;;TEOU;TIOU;TOU;TIOU;TU;TYOU;SHU;SHI;CHU;CHO;XIOU;XOU;XU;XIU;CIOU;COU;CU;CO;SIOU;CEOU;CE;XEOU;XE;SEOU;SHOU;CHOU;CHE;CHI;SU;TIO
VOWEL	;
END	;
START	;
CHNG	;
END1	;
CHNG1	;