home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 531.lha / TurboText_Utils / TTX_Crunch / recrunchpp.ttx < prev    next >
Encoding:
Text File  |  1991-07-08  |  513 b   |  29 lines
  1. /*recrunchpp.ttx*/
  2. /*trace ?r*/
  3.  
  4. OPTIONS RESULTS
  5.  
  6. ttxadd=address()
  7.  
  8.  
  9. envname = 'env:'||ttxadd  /*get file's original name and path*/
  10.  
  11. open('envfile',envname,R)
  12.  
  13. destpath = readln('envfile')
  14. destpath = '22'x||destpath||'22'x /*for filenames with spaces*/
  15.  
  16. getfilepath
  17.  
  18. filepath = RESULT
  19. filepath = '22'x||filepath||'22'x /*for filenames with spaces*/
  20.  
  21. /*just in case we made some changes to
  22. the temp file, but didn't save them*/
  23.  
  24. savefileas filepath
  25.  
  26.  
  27. address command
  28. 'crunch' filepath destpath 'EFFICIENCY 5'
  29. exit