home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / DATABASE / SUBSET.ZIP / TEST.PRG < prev   
Encoding:
Text File  |  1986-08-22  |  385 b   |  16 lines
  1. set proc to subset.prg
  2. clear
  3. ? [Enter, when prompted, two strings for comparison (<CR> to quit): ]
  4.  strg1=' '
  5. do while .t.
  6.  strg1=' '
  7.  strg2=' '
  8.  accept [Enter the first string, which you suspect as the substring-> ] to strg1
  9.   if len(strg1)=0
  10.    exit
  11.   endif
  12.  accept [Now enter the second string for the test-> ] to strg2
  13.  do subsetr with strg1,strg2
  14. enddo
  15. set proc to
  16.