;MS-DOS® For AmigaDOS®,   Copyright ©1994  Dave Lomax
;This Installer for $VER 2.3 (29.10.94)

(complete 0)

(set @DESTINATION
	(askdir
		(prompt "Where would you like MSDOS® For AmigaDOS® Installed?")
      		(help @askdir-help)
      		(default "HD0:WBSTARTUP")
	)
)

(set @DEST ("%s%s" @DESTINATION "/MSDOS"))

(complete 5)

(makedir @DEST
	(prompt "\n\n\n\nCreating directory MSDOS")
	(help "\n\n\nI'm making a directory to bung all\n\n"
	      "of the MS-DOS® commands in.  If you move it,\n\n"
	      "you MUST change the User-Startup accordingly")
	(infos)
	(confirm)
)

(complete 10)

(copyfiles
	(prompt "\n\n\n\n"
                "Installing MS-DOS® Commands...\n\n"
                "This will copy across all the MS-DOS commands\n")
	(help @copyfiles-help)
	(source "DOS6")
	(dest @DEST)
	(all)
	(infos)
)

(complete 60)

(set @DESTHELP
        (askdir
                (prompt "Where would you like the Help-Guide Installed?")
                (help @askdir-help)
                (default "HELP:")
        )
)

(copyfiles
	(prompt "Copying MSDOS.Guide\n")
	(help "This will copy the MSDOS.Guide file to\n"
	      "where you have just selected\n")
	(source "MSDOS.Guide")
	(dest @DESTHELP)
	(infos)
	(confirm)
)

(complete 65)

(copyfiles
        (prompt "Copying Guide viewer\n")
        (help "This will copy PPGuide, to view the Guide\n")
        (source "PPGuide")
        (dest @DESTHELP)
	(confirm)
)

(complete 70)

(copylib
	(prompt "\n\n\n\nInstalling Help.Library")
	(help @copylib-help)
	(source "LIBS/HELP.Library")
	(dest "LIBS:")
	(confirm)
)

(complete 80)

(startup "[MSDOS® For AmigaDOS®     ©1994 Dave Lomax]"
	(prompt "\n\n\n\nAdding a line to\n\nS:User-Startup")
	(help "This will add a line to your\n\n"
	      "S:User-Startup file\n\n"
	      "which makes an ASSIGN to its path.\n")
	(command (cat "Assign Dos6: " @DEST))
	(command "\nPath Dos6: ADD\n")
)

(complete 85)

(execute "Add_To_Shell_Startup"
	(help "This will ADD a line\n\n"
	      "to your Shell-Startup\n\n"
	      "activating MSDOS®")
	(prompt "\n\n\n\nAdding a line to your\n\n"
		"S:Shell-Startup")
	(confirm)
)

(complete 90)

(working)

(complete 100)

(message "\n\n\n\nInstallation complete\n\n"
         "You MUST Re-boot to make it\n"
         "effective")

(exit)