home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / trl14db.zip / TRLPRG.EXE / CHRSWAP.PRG < prev    next >
Text File  |  1990-10-22  |  613b  |  23 lines
  1. ***********
  2. * CHRSWAP.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 CHRSWAP WITH <string>, <char1>, <char2>/<null> 
  7. * RETURN: <expC> string with all occurrences of <char1> replaced. 
  8. * NOTE  : <null> ::= [] Deletes all occurrences of <char1>.
  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 "CHRSWAP"
  15. CALL Trexe   WITH "TRRETCLEN"
  16. IF fox
  17.    PRIVATE tr_temp
  18.    tr_temp = SUBSTR(tr_retc,1,tr_retn)
  19.    RETURN (tr_temp)
  20. ENDIF
  21. * eof chrswap *
  22.  
  23.