home *** CD-ROM | disk | FTP | other *** search
- ; $VER: Installation 1.0 (13.10.93)
-
- FailAt 21
-
- Echo "*E[4mKingCON v1.0 installation-script. Copyright © 1993 David Larsson*E[0m"
- Echo ""
-
-
- ; We shouldn't install an earlier or identical version of KingCON-handler
- ; without asking first.
- Version >NIL: L:KingCON-handler VERSION 1 REVISION 0
- IF NOT WARN
- Echo "You are trying to install an older or identical version of KingCON-handler."
- Ask "Do you still want to continue (Y/N)?"
-
- IF NOT WARN ; User aborts!
- Echo ""
- Echo "Installation aborted."
- SKIP End
- ENDIF
- Echo ""
- ENDIF
-
- CPU >NIL: CHECK 68020 ; This checks for the presence of
- ; a faster processor and copies
- ; the appropriate file
- ; Note that KingCON-handler.020
- ; is renamed!!
- IF WARN
- Echo "Copying 68000-version of *E[1mKingCON-handler to L:*E[0m..." NOLINE
- Copy Handler/KingCON-handler L: CLONE
- ELSE
- Echo "Copying 68020-version of *E[1mKingCON-handler to L:*E[0m..." NOLINE
- Copy Handler/KingCON-handler.020 L:KingCON-handler CLONE ; Renamed!
- ENDIF
-
- Echo "Done"
-
-
- Echo "Copying *E[1mKingCON-mountlist to DEVS:*E[0m..." NOLINE
- Copy Handler/KingCON-mountlist DEVS: CLONE
- Echo "Done"
-
- ; Remove the previous version of KCON:
- ; (OK, it IS a bit unnecessary to do this, since this is the first release
- ; and nobody should have an older version mounted at this stage.
- ; But you can never be too sure...)
- Assign KCON: DISMOUNT
- Assign KRAW: DISMOUNT
-
- Echo "Mounting *E[1mKCON:*E[0m and *E[1mKRAW:*E[0m..." NOLINE
- Mount KCON: from DEVS:KingCON-mountlist
- Mount KRAW: from DEVS:KingCON-mountlist
- Echo "Done"
- Echo ""
- Echo "The script has mounted KCON: and KRAW: for you. For a more permanent"
- Echo "installation, you would probably like them to be mounted automatically"
- Echo "every time you start your Amiga. In that case, the startup-sequence"
- Echo "must be modified, by adding these lines to s:user-startup"
- Echo " Mount KCON: from DEVS:KingCON-mountlist"
- Echo " Mount KRAW: from DEVS:KingCON-mountlist"
- Echo ""
-
- ; We should never add any Mount-commands to the user-startup if
- ; it is already done. This checks for the presence of the commands.
- ; (Well, if we find the word "DEVS:KingCON-mountlist", we can be pretty
- ; sure that KCON: or CON: are mounted in that script.)
- Search >NIL: FROM s:user-startup SEARCH DEVS:KingCON-mountlist
-
- IF WARN ; No commands were found
- Ask "Do you want these Mount-commands to be added to s:user-startup (Y/N)?"
-
- IF WARN ; Yes!
- Echo ""
- Echo "Adding to *E[1ms:user-startup*E[0m..." NOLINE
- Echo "" >>s:user-startup
- Echo "; This mounts KCON and KRAW" >>s:user-startup
- Echo "Mount KCON: from DEVS:KingCON-mountlist" >>s:user-startup
- Echo "Mount KRAW: from DEVS:KingCON-mountlist" >>s:user-startup
- Echo "Done"
- ENDIF
- ENDIF
-
- Echo ""
- Echo "To replace old CON and RAW, edit DEVS:KingCON-mountlist and"
- Echo "replace KCON: and KRAW: with CON: and RAW: in that file."
- Echo "Then add the following lines to S:user-startup BEFORE the Mount-"
- Echo "commands: (Of course, KCON and KRAW are replaced there, too.)"
- Echo " Assign CON: DISMOUNT"
- Echo " Assign RAW: DISMOUNT"
-
-
- Echo ""
- Echo "Installation has completed. If no errors occured, you should now be"
- Echo "able to access a device called 'KCON:' (and one called 'KRAW:')."
-
- LAB End
-
- Echo ""
- Echo " *E[0 p*E[3mClose the window or wait forever!*E[0m" NOLINE
-