home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / subset.zip / SUBSET.PRG next >
Text File  |  1986-08-22  |  587b  |  31 lines
  1. procedure subsetr
  2. parameters str1,str2
  3. SET TALK OFF
  4. SET ECHO OFF
  5. part=0
  6.    i=0
  7.    j=0
  8. if len(str1)>len(str2)
  9.    ? str1+[ is bigger than ]+str2+[!]
  10. else
  11.    do while i<len(str1)
  12.       i=i+1
  13.       sb1=substr(str1,i,1)
  14.       do while j<len(str2)
  15.          j=j+1
  16.          sb2=substr(str2,j,1)
  17.          part=iif(sb1=sb2,part+1,part+0)
  18.       enddo             
  19.    enddo
  20.    do case
  21.       case part=len(str2) 
  22.         ? STR1+[ + ]+STR2+[ ARE EQUIVALENT] 
  23.       case part=0
  24.         ? [.F.]
  25.       case part>0.and.part<len(str2)
  26.         ? [.T.]
  27.    endcase
  28. endif
  29. return
  30.  
  31.