home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / trl14db.zip / TRLPRG.EXE / WPSTRIP.PRG < prev    next >
Text File  |  1990-10-22  |  696b  |  30 lines
  1. ***********
  2. * WPSTRIP.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 WPSTRIP WITH <expC>, <spaces par tab>/<null> 
  7. * RETURN: <expC> with CR,LF and tab characters replaced by spaces.
  8. * NOTE  : <null> defaults to 1.
  9. ***********
  10. PARAMETERS par1, par2 
  11. CALL Trpass WITH par1
  12. * Optional second parameter
  13. IF TYPE("par2") = "C"
  14.    IF [] = par2
  15.       par2 = 1
  16.       CALL Trpass WITH par2
  17.    ENDIF
  18. ELSE
  19.    CALL Trpass  WITH par2
  20. ENDIF
  21. CALL Trexe   WITH "WPSTRIP"
  22. CALL Trexe   WITH "TRRETCLEN"
  23. IF fox
  24.    PRIVATE tr_temp
  25.    tr_temp = SUBSTR(tr_retc,1,tr_retn)
  26.    RETURN (tr_temp)
  27. ENDIF
  28. * eof wpstrip *
  29.  
  30.