' SOUNDEX(0.0) Form Term SOUNDEX Numeric Key 26.06.95+24.07.95 ' --------------------------------------------------------------------------- DECLARE FUNCTION SOUNDEX% (Term$) DIM Term$(28) CLS PRINT "SOUNDEX(0.0) Form Term SOUNDEX Numeric Key "; DATE$; PRINT " "; LEFT$(TIME$, 5) PRINT STRING$(62, "-") DATA DATA ---- DATA BfPv DATA CgJkQsXz DATA dT DATA L DATA nM DATA r DATA B-f-P-v DATA C-g-J-k---- DATA -g-J-k-Q--- DATA --J-k-Q-s-- DATA ---k-Q-s-X- DATA ----Q-s-X-z DATA d-T DATA -L- DATA n-M DATA -r- DATA -Bb-Cc-Dd-Ll- DATA -Cc-Dd-Ll-Mm- DATA -Dd-Ll-Mm-Rr- DATA ---B-b-C-c-D-d--- DATA ---C-c-D-d-L-l--- DATA ---D-d-L-l-M-m--- DATA ---L-l-M-m-R-r--- DATA ---M-m-R-r-B-b--- DATA -RrRrRrRrRrRrRrRrRrR- DATA -R-r-R-r-R-r-R-r-R-r- FOR I = 1 TO 28 READ Term$(I) NEXT I PRINT FOR I = 1 TO 17 PRINT "SOUNDEX('"; Term$(I); "') ="; PRINT USING "#####"; SOUNDEX(Term$(I)) NEXT I PRINT PRINT "Hit [Enter] to continue... " WHILE (INKEY$ = "") WEND PRINT FOR I = 18 TO 28 PRINT "SOUNDEX('"; Term$(I); "') ="; PRINT USING "#####"; SOUNDEX(Term$(I)) NEXT I