home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
subset.zip
/
TEST.PRG
< prev
Wrap
Text File
|
1986-08-22
|
385b
|
16 lines
set proc to subset.prg
clear
? [Enter, when prompted, two strings for comparison (<CR> to quit): ]
strg1=' '
do while .t.
strg1=' '
strg2=' '
accept [Enter the first string, which you suspect as the substring-> ] to strg1
if len(strg1)=0
exit
endif
accept [Now enter the second string for the test-> ] to strg2
do subsetr with strg1,strg2
enddo
set proc to