home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 28 / amigaformatcd28.iso / -readerstuff- / richard_burke / scripts / dsqview < prev    next >
Text File  |  1998-05-02  |  478b  |  18 lines
  1. Resident > NIL: C:RequestChoice PURE
  2. Resident > NIL: C:RequestFile PURE
  3. Resident > NIL: C:List PURE
  4.  
  5. ; $VER: DSQView 1.0 (25.07.97) Richard Burke
  6.  
  7. RequestFile >env:file TITLE "Choose DSQ file ..." ACCEPTPATTERN #?.dsq
  8. echo $file >env:filenq
  9. rename $filenq $filenq.lzx
  10. lzx -m x $filenq.lzx Files.dsq T:
  11. if EXISTS T:Files.dsq
  12.     ppmore T:Files.dsq
  13.     delete >nil: T:Files.dsq
  14. else
  15.     RequestChoice "! Error !" "No filelist in DSQ archive..." "Okay"
  16. endif
  17. rename $filenq.lzx $filenq
  18. quit