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

  1. ***********
  2. * ATNEXT.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 ATNEXT WITH <character>, <string>, <occurrence> 
  7. * RETURN: <expN> position of <occurence> of <character> in <string>.
  8. * NOTE  : Zero if not found.
  9. ***********
  10. PARAMETERS par1, par2, par3
  11. CALL Trpass  WITH par1
  12. CALL Trpass  WITH par2
  13. CALL Trpass  WITH par3
  14. CALL Trexe   WITH "ATNEXT"
  15. IF fox
  16.    RETURN (tr_retn)
  17. ENDIF
  18. * eof atnext * 
  19.