home *** CD-ROM | disk | FTP | other *** search
- .k drive
- if "<drive>" eq ""
- echo "Type EXECUTE HDINSTALL [drive] e.g. EXECUTE HDINSTALL dh0:"
- quit
- endif
- copy protext-program-disc:c/ask ram:
- endif
- echo "Protext v4 - Installing on Hard Disc <drive>"
- if exists <drive>protext
- ram:ask "Protext is already installed. Do you want to update files (y/n)? "
- if not warn
- quit
- endif
- echo "Updating Protext files ..."
- copy >nil: protext-program-disc:#? <drive>protext
- copy >nil: protext-program-disc:drawericon/protext.info <drive>
- echo "Please insert disc 2 (dictionary/utilities) in any drive ..."
- copy >nil: protext-dict-util-disc:#? <drive>protext
- echo "All Protext files updated."
- delete ram:ask
- cd <drive>protext
- else
- makedir <drive>protext
- echo "Copying Protext files to <drive>protext"
- copy >nil: protext-program-disc:#? <drive>protext
- copy >nil: protext-program-disc:drawericon/protext.info <drive>
- echo "Please insert disc 2 (dictionary/utilities) in any drive ..."
- copy >nil: protext-dict-util-disc:#? <drive>protext
- if warn
- echo "Error occurred during installation."
- delete ram:ask
- quit
- else
- echo "All Protext files and icons copied onto hard disc."
- endif
- ram:ask "Press a key to continue with configuration ..."
- delete ram:ask
- cd <drive>protext
- config
- endif
-