home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
disk_20.zip
/
SOUNDEX2.ZIP
/
TEST.PRG
< prev
Wrap
Text File
|
1987-03-21
|
706b
|
31 lines
*:*********************************************************************
*:
*: Program: TEST.PRG
*:
*: System: soundex
*: Author: Larry
*: Copyright (c) 1986, Larry
*:
*: Calls: CNVRT_SDX--procedure
*:
*: Documented: 3/21/87 23:41 SNAP! version 1.73
*:*********************************************************************
SET TALK OFF
SET ECHO OFF
SET STEP OFF
SET HEADING OFF
SET SAFETY OFF
SET PROCEDURE TO procsdx.prg
names = "X"
ACCEPT "ENTER NAME:" TO names
sdxcode = " "
DO WHILE names <> "END"
DO cnvrt_sdx WITH names , sdxcode
? sdxcode
ACCEPT "ENTER NAME:" TO names
ENDDO
CLOSE PROCEDURE
*: EOF: TEST.PRG