home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / disk_20.zip / SOUNDEX2.ZIP / TEST.PRG < prev   
Text File  |  1987-03-21  |  706b  |  31 lines
  1. *:*********************************************************************
  2. *:
  3. *:      Program: TEST.PRG
  4. *:
  5. *:       System: soundex
  6. *:       Author: Larry
  7. *:    Copyright (c) 1986, Larry
  8. *:
  9. *:        Calls: CNVRT_SDX--procedure
  10. *:
  11. *: Documented: 3/21/87       23:41                   SNAP! version 1.73
  12. *:*********************************************************************
  13. SET TALK OFF
  14. SET ECHO OFF
  15. SET STEP OFF
  16. SET HEADING OFF
  17. SET SAFETY OFF
  18.  
  19. SET PROCEDURE TO procsdx.prg
  20.  
  21. names = "X"
  22. ACCEPT "ENTER NAME:" TO names
  23. sdxcode = "    "
  24. DO WHILE names <> "END"
  25.   DO cnvrt_sdx WITH names , sdxcode
  26.   ? sdxcode
  27.   ACCEPT "ENTER NAME:" TO names
  28. ENDDO
  29. CLOSE PROCEDURE
  30. *: EOF: TEST.PRG
  31.