home *** CD-ROM | disk | FTP | other *** search
- .K ""
- echo "This script will unpack the following lharc archives:"
- echo ""
- echo " Gods.lzh => GodsDemo:"
- echo ""
-
- ask "Do you have a blank disk ready?"
- if not WARN
- echo "Try again when you do ..."
- echo "All Done. Click close gadget to get rid of window."
- endcli
- endif
-
- ask "Is floppy drive df1: free?"
- if not WARN
- echo "You will need to do the unpacking yourself."
- echo "All Done. Click close gadget to get rid of window."
- endcli
- endif
-
- echo "Formatting and unpacking disk."
-
- sys:system/format drive df1: name GodsDemo noicons
- :c/lharc -x -a -m x Gods.lzh GodsDemo:
-
- echo "All Done. Click close gadget to get rid of window."
- endcli
-