home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / MOUSEDIR.ZIP / UNZIP.KEX < prev   
Text File  |  1992-03-17  |  354b  |  15 lines
  1. /* UNZIPs file to see what's there */
  2. arg file
  3. 'PRESERVE'
  4. 'SET MSGLINE ON 1 23 OVERLAY'
  5. 'SET MSGMODE ON'
  6. 'MSG UNZIPping' file'.  Please wait. . .'
  7. 'REFRESH'
  8. 'DOSQUIET PKUNZIP -v' file '> UNZIPPED.TXT'
  9. do until lines('UNZIPPED.TXT') = 0
  10.    'MSG' linein('UNZIPPED.TXT')
  11. end
  12. call lineout 'UNZIPPED.TXT'
  13. 'DOSQUIET ERASE UNZIPPED.TXT'
  14. 'RESTORE'
  15.