home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 28 / amigaformatcd28.iso / -readerstuff- / richard_burke / scripts / unlzxer < prev   
Encoding:
Text File  |  1998-05-02  |  1.1 KB  |  57 lines
  1. Resident >NIL: C:RequestFile PURE
  2. Resident >NIL: C:RequestChoice PURE
  3.  
  4. ; $VER: UnLZXer v1.0 (8.2.97) Richard Burke
  5.  
  6. lab beg
  7. if EXISTS ENV:File
  8.         delete >NIL: ENV:File
  9. endif
  10.  
  11. if EXISTS ENV:Mr
  12.         delete >NIL: ENV:Mr
  13. endif
  14.  
  15. if EXISTS ENV:Drawer
  16.         delete >NIL: ENV:Drawer
  17. endif
  18.  
  19. if EXISTS ENV:unlzx
  20.         delete >NIL: ENV:unlzx
  21. endif
  22.  
  23. which unlzx all >ENV:unlzx
  24. if WARN
  25.         Requestchoice "UnLZX Error Message" "Can't find 'UnLZX' tool! *nSee docs for details!" "Quit"
  26.         quit
  27. endif
  28.  
  29. Requestfile >ENV:File TITLE "Choose the file to decrunch" POSITIVE Decrunch PATTERN #?.lzx
  30. if WARN
  31.         delete >NIL: ENV:File
  32.         quit
  33. endif
  34.  
  35. lab Drw
  36. Requestfile >ENV:Drawer TITLE "Choose the drawer to decrunch to" DRAWERSONLY POSITIVE Decrunch
  37. if WARN
  38.         delete >NIL: ENV:Drawer
  39.         quit
  40. endif
  41.  
  42. lab ex
  43. $unlzx x -x $File $Drawer
  44.  
  45. lab MrFls
  46. Requestchoice >ENV:Mr "More files to decrunch?" "Do you want to decrunch more LZX files?" "Yes" "No"
  47. if $Mr EQ "0"
  48.         skip end
  49. else
  50.         skip back beg
  51. endif
  52.  
  53. lab end
  54. echo ""
  55. echo "                  *e[1;32m  Thank you for using"
  56. echo "                         *e[1;4;43m UnLZXer"
  57. quit