home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 531.lha / TurboText_Utils / TTX_Crunch / uncrunchpp.ttx < prev   
Encoding:
Text File  |  1991-07-08  |  358 b   |  28 lines
  1. /* uncrunchpp.rexx*/
  2. options results
  3. trace ?r
  4.  
  5. tad=address()
  6. address VALUE tad
  7.  
  8. getfilepath
  9. filepath=result
  10.  
  11.  
  12. open('curfile',filepath,'R')
  13. ppstring=readch('curfile',4)
  14.  
  15.  
  16.  
  17.  
  18. if ppstring ~=='PP20' then exit
  19.  
  20.      address command
  21.      'decrunch' filepath 'ram:'tad'tempfile'
  22.      'setenv' tad filepath
  23.  
  24.  
  25.      address
  26.      openfile QUIET 'ram:'tad'tempfile'
  27. exit
  28.