home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / trl14db.zip / TRLPRG.EXE / CHRFOUND.PRG < prev    next >
Text File  |  1990-10-22  |  480b  |  19 lines

  1. ***********
  2. * CHRFOUND.PRG
  3. * by Tom Rettig and Leonard Zerman
  4. * Placed in the Public Domain by Tom Rettig Associates, 10/22/1990.
  5. *
  6. * SYNTAX: DO CHRFOUND WITH <string1>, <string2> 
  7. * RETURN: <expL> true if each character in <string1> also 
  8. *         occurs in <string2> in any order. otherwise false 
  9. ***********
  10. PARAMETERS par1, par2 
  11. CALL Trpass  WITH par1
  12. CALL Trpass  WITH par2
  13. CALL Trexe   WITH "CHRFOUND"
  14. IF fox
  15.    RETURN (tr_retl)
  16. ENDIF
  17. * eof chrfound *
  18.  
  19.