; TBCPlus Installation Script
; $VER: 1.00 Version TBCPlus Install
; 24 November 1993
; by Bill Prescott of Great Valley Products, Inc.
;
; Thank Yous go to the Commodore programmer that wrote the
; install 2.1 script, without which the writting of this
; script would have been extremely difficult.  I hope they
; consider duplication the best form of flattery!
;
; I suggest that the TAB size be set to four spaces in your
; text editor.  I used TABs exclusively in place of spaces
; for programming readability and it will look Reeaal ugly
; on a system that defaults to eight!

(complete 0)

(delopts "oknodelete" "force" "askuser")

; English Strings *************************************************

(set default_lang 4)

(set #bad-kick
(cat 	"You must be using Kickstart and Workbench 2.04 or newer "
		"to install and operate the TBCPlus Software."
))

(set #install-Lib
(cat	"\nShall I install amigaguide.library?"
))

(set #install-lib-help
(cat	"This library is required to enable the AmigaGuide "
		"On-Line Help feature to function. \n\nSkip this ONLY "
		"if you have a more recent version already installed."
		"\n\n"
		@copylib-help
))

(set #device-install
(cat    "I will now install the \"gvptbc.device\" for you,\n"
		"if you choose."
))

(set #device-install-help
(cat	"This file MUST be in the Expansion drawer on your "
		"boot hard drive for the TBCPlus software to operate "
		"at all.\n\nIf you choose not to install it now then "
		"you MUST copy it there manually, at a later time, to "
		"enable the software to operate properly."
		"\n\n"
		@copyfiles-help
))

(set #which-disk
(cat 	"On which disk or in which drawer should the TBCPlus "
		"software be installed?  A directory named \"TBCPlus\" "
		"will be made for you."
))

(set #which-disk-help
(cat 	"\nA directory named \"TBCPlus\" will be created in "
		"the location you select, and all of the "
		"software will be installed into that directory."
		"\n\n"
		@askdir-help
))

(set #tbc-maincopy
(cat	"I am ready to copy the basic TBCPlus files to your "
		"hard drive. If you do not wish to do this, un-check "
		"the box in front of the file not to be copied."
))

(set #tbc-maincopy-help
(cat	"Without the basic TBCPlus files your TBCPlus can not "
		"function. I would suggest that you copy the following "
		"files as they are required for any form of operation:"
		"\n\nTBCPlus\nTBCPlus.Guide\n\nThe other "
		"files are optional."
		"\n\n"
		@copyfiles-help
))

(set #wbtbc-install
(cat	"I am ready to install the WBTBCPlus.info file into your "
		"WBStartup drawer. This will run the TBCPlus software "
		"in \"Hide\" mode at each boot time. If you do not "
		"wish to do this, un-check the box below and it will "
		"not be installed."
))

(set #wbtbc-install-help
(cat	"With the WBTBCPlus icon in your System's WBStartup "
		"drawer the system will automatically initialize the "
		"TBCPlus during the boot-up of your system.\n\n If "
		"later you choose not have the TBCPlus started "
		"automatically, simply Drag or use the AmigaDOS "
		"command \"Move\" to remove the WBTBCPlus.info "
		"from the WBStartup drawer. However, I would recommend "
		"that you store the WBTBCPlus.info in the TBCPlus "
		"drawer in the event that you change your mind and "
		"wish to have it started at boot time once again."
		"\n\n"
		@askoptions-help
))

(set #wbtbc-copy
(cat	"This will place a backup copy of the \"WBTBCPlus.info\" "
		"file into the destination that follows in the event that "
		"you chose not to install it into your WBStartup drawer:\n"
))

(set #wbtbc-copy-help
(cat	"This operation will place a copy of the \"WBTBCPlus\" "
		"icon into the \"TBCPlus:WBStartup\" drawer. This will "
		"serve as a backup copy in the event that you decide "
		"later to have the TBCPlus software startup automatically "
		"at boot-up time."
		"\n\n"
		@copyfiles-help
))

(set #settings
(cat	"These Setting files are required for basic operation of "
		"the TBCPlus. Un-check the files that you do not want "
		"copied to the destination drawer."
))

(set #settings-help
(cat	"If these files go uninstalled then the TBCPlus "
		"Must be manually calibrated using a Vector Scope "
		"and Waveform Monitor to gain acceptable results."
		"\n\n"
		@copyfiles-help
))

(set #mode-install
(cat	"\nNext I will install the optional setting files. "
		"Please select which video format or formats that you "
		"would prefer for me to pre-select for you.\n"
))

(set #mode-install-help
(cat	"This selection will allow me to pre-select which of the "
		"optional setting files I will be suggesting for you to "
		"install to your system."
))

(set #none
(cat	"If these Setting files are not installed then you "
		"will only have the capability to output \"Near "
		"Broadcast\" quality using the Default Setting "
		"files."
))

(set #ntsc-settings
(cat	"These NTSC Setting files will enable you to gain "
		"NTSC \"Broadcast\" results at the click of a button."
))

(set #ntscyc-settings
(cat	"These NTSC Y/C Setting files will enable you to gain "
		"NTSC Y/C \"Broadcast\" results at the click of a button."
))

(set #ntsc-settings-help
(cat	"If these Setting files are not installed then you "
		"will only have the capability to output \"Near "
		"Broadcast\" quality using the Default Setting "
		"files."
		"\n\n"
		@askoptions-help
))

(set #pal-settings
(cat	"These PAL Setting files will enable you to gain "
		"PAL \"Broadcast\" results at the click of a button."
))

(set #palyc-settings
(cat	"These PAL Y/C Setting files will enable you to gain "
		"PAL Y/C \"Broadcast\" results at the click of a button."
))

(set #pal-settings-help
(cat	"If these Setting files are not installed then you "
		"will only have the capability to output \"Near "
		"Broadcast\" quality using the Default Setting "
		"files."
		"\n\n"
		@askoptions-help
))

(set #mod-ok
(cat	"\n\nClick \"Proceed\" to modify your startup so that "
		"The following is added to your Assign List:\n\n "
		"Assign TBCPlus: "
))

(set #mod-ok-help
(cat	"This is extremely important, if TBCPlus: is not in the "
		"Assign list then the software will not be able to find "
		"certain files that are necessary to it's function."
		"\n\nNote that Installer will update any previously "
		"existing reference, as long as Installer created it."
		"\nThe line to add is:\n\nAssign TBCPlus: "
))

(set #arexx-install
(cat	"I am ready to copy the ARexx scripts that have been "
		"selected below. If you do not wish this to happen at "
		"this time, un-check the boxes in front of the files "
		"not to be copied."
))

(set #arexx-install-help
(cat	"These script files are useful examples of how to control "
		"the TBCPlus with ARexx. It is not critical that these "
		"files be installed. They serve as an example of "
		"how to execute various commands from within the ARexx "
		"scripting environment."
		"\n\n"
		@askoptions-help
))

(set #ask-TBCPlus_Extras
(cat	"\nPlease insert the disk labeled \"TBCPlus Extras\" in "
		"any floppy drive."
))

(set #ask-TBCPlus_Extras-help
(cat	@askdisk-help
))

(set #opt-arexx-install
(cat	"I am ready to copy the optional ARexx script that has "
		"been selected below. If you do not wish this to happen "
		"at this time, un-check the boxes in front of the files "
		"not to be copied."
))

(set #opt-arexx-install-help
(cat	"This script file is another useful example of how to "
		"control the TBCPlus with ARexx. It is not critical that "
		"this file be installed. It serves as an example of "
		"how to execute various commands from within the ARexx "
		"scripting environment."
		"\n\n"
		@askoptions-help
))

(set #pic-install
(cat	"I am ready to copy the optional Pictures that have "
		"been selected below. If you do not wish this to happen "
		"at this time, un-check the boxes in front of the files "
		"not to be copied."
))

(set #pic-install-help
(cat	"This picture is a useful example of the type of imagery "
		"that can be created and displayed using the TBCPlus. It "
		"is not critical that this file be installed."
		"\n\n"
		@askoptions-help
))

(set #ifx-install
(cat	"\n\nWould you like to install the ImageFX Modules onto "
		"your system?"
))

(set #ifx-install-help
(cat	"This will install the Render and Scanner Modules for "
		"use with Great Valley Products' ImageFX software.\n\n"
		"These modules will give you the capability to Render "
		"directly to the TBCPlus and Capture directly from the "
		"TBCPlus from within the ImageFX environment."
))

(set #ifx-render-copy
(cat	"I am pleased to announce that you already have ImageFX "
		"installed on your system! :) I can copy the ImageFX Render "
		"Module, that has been selected below, directly to your "
		"current ImageFX installation."
))

(set #ifx-render-copy-help
(cat	@copyfiles-help
))

(set #ifx-scanner-copy
(cat	"I am ready to copy the ImageFX Scanner Module, that has "
		"been selected below, to your existing ImageFX "
		"installation."
))

(set #ifx-scanner-copy-help
(cat	@copyfiles-help
))

(set #ifxmod-dir
(cat	"I am sorry to announce that you do not have ImageFX "
		"installed in this system. :( However, I will now create "
		"a drawer to hold the Modules until you purchase and "
		"install a copy of ImageFX."
))

(set #ifxmod-dir-help
(cat	@makedir-help
))

(set #not-ifx-render-copy
(cat	"I am ready to copy the ImageFX Render Module that has "
		"been selected to the path indicated below."
))

(set #not-ifx-scanner-copy
(cat	"I am ready to copy the ImageFX Scanner Module that has "
		"been selected below."
))

(set #bind-choice
(cat	"\nWould you like for me to issue the \"Binddrivers\" "
		"command so that you can start working with the TBCPlus "
		"software directly?\n"
))

(set #bind-choice-help
(cat	"If you choose for me not to issue the \"Binddrivers\" "
		"command at this time I would suggest that you either "
		"Re-Boot your system or issue the \"Binddrivers\" "
		"command yourself before you operate the TBCPlus "
		"Software or Hardware."
		"\n\n"
		@askchoice-help
))

(set #bind-issued
(cat	"\n\n\nThe \"Binddrivers\" command has been issued!"
))

(set #exit-text
(cat	"\nPlease Re-Boot your computer or issue the DOS command "
		"\"Binddrivers\" to enable the new libraries and software "
		"that I have installed.\n\n\nDon't forget to Mail your "
		"Warranty Registration Card!"
))

(set #altexit-text
(cat	"\n\n\nDon't forget to Mail your "
		"Warranty Registration Card!"
))

; German Strings **************************************************

(if (= @language "deutsch")
(
(set default_lang 2)
	





))

; Now to get on with the show!!!! *********************************

; Variables *******************************************************

(set tbcdsk "TBCPlus_Install:")
(set tbcext "TBCPlus_Extras:")
(set videomode 1) 	; Reset this to one of the following
					; depending on your video standard:
					;
					; 0 - NTSC Y/C
					; 1 - NTSC
					; 2 - PAL Y/C
					; 3 - PAL
					; 4 - ALL
					; 5 - None

; make sure we are running under a 2.04 or newer ROM **************

(if (< (/ (getversion) 65536) 37)
(
    (abort #bad-kick)
))

; Say hi! *********************************************************

(welcome)

; Install the AmigaGuide.Library **********************************

(copylib 	(prompt #install-lib)
         	(help #install-lib-help)
         	(source (tackon tbcdsk "libs/amigaguide.library"))
         	(dest "libs:")
         	(confirm)
)

; Copy gvptbc.device to sys:expansion *****************************

(copyfiles	(prompt #device-install)
			(help #device-install-help)
			(source (tackon tbcdsk "expansion"))
			(dest "sys:expansion")
			(confirm)
			(choices "gvptbc.device")
			(infos)
)				

(complete 20)

; Get destination and install TBCPlus software ********************

(set destdir	(askdir	(prompt #which-disk)
						(help #which-disk-help)
						(newpath)
						(default @default-dest)
))

(set maindest	(tackon destdir "TBCPlus"))

(if (NOT (exists maindest))
	(
		(makedir maindest 	(prompt (cat "Creating" maindest))
							(infos)
							(help @makedir-help)
		)
	)
)

(set @default-dest maindest)

(copyfiles	(prompt #tbc-maincopy)
			(help #tbc-maincopy-help)
			(source (tackon tbcdsk "TBCPlus"))
			(dest @default-dest)
			(choices 	"Command_Shell"
						"TBCPlus"
						"TBCPlus.guide"
						"TBCPlus.prefs"
			)
			(confirm)
			(infos)
)

(complete 35)

; Copy the WBTBCPlus icon to the WBStartup drawer *****************

(set quest	(askoptions	(prompt #wbtbc-install)
						(help #wbtbc-install-help)
						(choices "WBTBCPlus.info"
						)
						(default -1)
			)
)
(set n 0)
(set wbtbcpat "(%")
	(while 	(set stuff 	(select n	"WBTBCPlus.info#?"
									""
						)
			)
		(
			(if (IN quest n)
				(
					(set wbtbcpat (cat wbtbcpat "|" stuff))
				)
			)
			(set n (+ n 1))
		)
	)
	(copyfiles	(source (tackon tbcdsk "WBStartup"))
				(dest "sys:WBStartup")
				(pattern (cat wbtbcpat ")")
	)
)

(set wbtbcdest (tackon @default-dest "WBStartup"))

(copyfiles	(prompt (cat #wbtbc-copy wbtbcdest))
			(help #wbtbc-copy-help)
			(source (tackon tbcdsk "WBStartup"))
			(dest (tackon @default-dest "WBStartup"))
			(all)
			(confirm)
)

(complete 50)

; Copy required Settings files ************************************

(copyfiles	(prompt #settings)
			(help #settings-help)
			(source (tackon tbcdsk "TBCPlus/Settings"))
			(dest (tackon @default-dest "Settings"))
			(choices 	"Default_TBC1.ctl"
						"Default_TBC2.ctl"
						"Default_TBC3.ctl"
						"Default_TBC4.ctl"
						"Default_TBC5.ctl"
						"Factory_TBC.ctl"
			)
			(confirm)
)

; Select either NTSC settings or PAL settings accordingly *********

(set modeinst	(askchoice	(prompt #mode-install)
							(help #mode-install-help)
							(choices	"NTSC Y/C"
										"NTSC"
										"PAL Y/C"
										"PAL"
										"ALL"
										"None"
							)
							(default videomode)
				)
)

(if (= modeinst 0)
	(
		(set choicentscyc -1)
		(set choicentsc 0)
		(set choicepalyc 0)
		(set choicepal 0)
	)
)
(if (= modeinst 1)
	(
		(set choicentscyc 0)
		(set choicentsc -1)
		(set choicepalyc 0)
		(set choicepal 0)
	)
)
(if (= modeinst 2)
	(
		(set choicentscyc 0)
		(set choicentsc 0)
		(set choicepalyc -1)
		(set choicepal 0)
	)
)
(if (= modeinst 3)
	(
		(set choicentscyc 0)
		(set choicentsc 0)
		(set choicepalyc 0)
		(set choicepal -1)
	)
)
(if (= modeinst 4)
	(
		(set choicentscyc -1)
		(set choicentsc -1)
		(set choicepalyc -1)
		(set choicepal -1)
	)
)
(if (= modeinst 5)
	(
		(set choicentscyc 0)
		(set choicentsc 0)
		(set choicepalyc 0)
		(set choicepal 0)
		(message #none)
		
	)
)

; Ask which Opt NTSC Y/C files to install *************************

(set question 	(askoptions (prompt #ntscyc-settings)
							(help #ntsc-settings-help)
							(choices	"NTSCYC_BBISetup.ctl"
										"NTSCYC_DCFMSetup.ctl"
										"NTSCYC_KEYBBISetup.ctl"
										"NTSCYC_Setup.ctl"
							)
							(default choicentscyc)
				)
)
(set n 0)
(set ntscsettingpat "(%")
	(while	(set stuff 	(select n 	"NTSCYC_BBISetup.ctl#?"
									"NTSCYC_DCFMSetup.ctl#?"
									"NTSCYC_KEYBBISetup.ctl#?"
									"NTSCYC_Setup.ctl#?"
									""
						)
			)
		(
			(if (IN question n)
				(
					(set ntscsettingpat (cat ntscsettingpat "|" stuff))
				)
			)
			(set n (+ n 1))
		)
	)
	(copyfiles 	(source (tackon tbcdsk "TBCPlus/Settings"))
				(dest (tackon @default-dest "Settings"))
				(pattern (cat ntscsettingpat ")")
				(infos)
	)
)

(complete 70)

; Ask which Opt NTSC Setting files to install *********************

(set question 	(askoptions (prompt #ntsc-settings)
							(help #ntsc-settings-help)
							(choices	"NTSC_BBISetup.ctl"
										"NTSC_DCFMSetup.ctl"
										"NTSC_KEYBBISetup.ctl"
										"NTSC_Setup.ctl"
							)
							(default choicentsc)
				)
)
(set n 0)
(set ntscsettingpat "(%")
	(while 	(set stuff 	(select n 	"NTSC_BBISetup.ctl#?"
									"NTSC_DCFMSetup.ctl#?"
									"NTSC_KEYBBISetup.ctl#?"
									"NTSC_Setup.ctl#?"
									""
						)
			)
		(
			(if (IN question n)
				(
					(set ntscsettingpat (cat ntscsettingpat "|" stuff))
				)
			)
			(set n (+ n 1))
		)
	)
	(copyfiles 	(source (tackon tbcdsk "TBCPlus/Settings"))
				(dest (tackon @default-dest "Settings"))
				(pattern (cat ntscsettingpat ")")
				(infos)
	)
)

; Ask which Opt PAL Y/C Setting files to install ******************

(set question 	(askoptions	(prompt #palyc-settings)
							(help #pal-settings-help)
							(choices	"PALYC_BBISetup.ctl"
										"PALYC_DCFMSetup.ctl"
										"PALYC_KEYBBISetup.ctl"
										"PALYC_Setup.ctl"
							)
							(default choicepalyc)
				)
)
(set n 0)
(set palsettingpat "(%")
	(while 	(set stuff 	(select n	"PALYC_BBISetup.ctl#?"
									"PALYC_DCFMSetup.ctl#?"
									"PALYC_KEYBBISetup.ctl#?"
									"PALYC_Setup.ctl#?"
									""
						)
			)
		(
			(if (IN question n)
				(
					(set palsettingpat (cat palsettingpat "|" stuff))
				)
			)
			(set n (+ n 1))
		)
	)
	(copyfiles	(source (tackon tbcdsk "TBCPlus/Settings"))
				(dest (tackon @default-dest "Settings"))
				(pattern (cat palsettingpat ")")
				(infos)
	)
)

; Ask which Opt PAL Setting files to install **********************

(set question	(askoptions	(prompt #pal-settings)
							(help #pal-settings-help)
							(choices	"PAL_BBISetup.ctl"
										"PAL_DCFMSetup.ctl"
										"PAL_KEYBBISetup.ctl"
										"PAL_Setup.ctl"
							)
							(default choicepal)
				)
)
(set n 0)
(set palsettingpat "(%")
	(while	(set stuff	(select n	"PAL_BBISetup.ctl#?"
									"PAL_DCFMSetup.ctl#?"
									"PAL_KEYBBISetup.ctl#?"
									"PAL_Setup.ctl#?"
									""
						)
			)
		(
			(if (IN question n)
				(
					(set palsettingpat (cat palsettingpat "|" stuff))
				)
			)
			(set n (+ n 1))
		)
	)
	(copyfiles	(source (tackon tbcdsk "TBCPlus/Settings"))
				(dest (tackon @default-dest "Settings"))
				(pattern (cat palsettingpat ")")
				(infos)
	)
)

; Add TBCPlus: assign to the User-startup *************************

(set assigndest maindest)

(startup "TBCPlus"
			(prompt (cat #mod-ok assigndest))
			(help (cat #mod-ok-help assigndest))
			(command "Assign TBCPlus: "assigndest)
)

(if (< @pretend 1)
	(makeassign "TBCPlus" assigndest)
)

; Install ARexx Scripts if wanted *********************************

(set rexxdir (tackon @default-dest "Rexx"))
(set quest1	(askoptions	(prompt #arexx-install)
						(help #arexx-install-help)
						(choices	"Command_Shell.tbc"
									"CycleDefault.tbc"
									"FadeInOut.tbc"
									"Freeze.tbc"
									"Live.tbc"
									"LoadTBCLogo.tbc"
									"SelectCVBS1.tbc"
									"SelectCVBS2.tbc"
									"SelectYC.tbc"
									"Switcher.tbc"
						)
						(default -1)
			)
)
(set n 0)
(set arexxpat "(%")
	(while	(set stuff 	(select n 	"Command_Shell.tbc#?"
									"CycleDefault.tbc#?"
									"FadeInOut.tbc#?"
									"Freeze.tbc#?"
									"Live.tbc#?"
									"LoadTBCLogo.tbc#?"
									"SelectCVBS1.tbc#?"
									"SelectCVBS2.tbc#?"
									"SelectYC.tbc#?"
									"Switcher.tbc#?"
									""
						)
			)
		(
			(if (IN quest1 n)
				(
					(set arexxpat (cat arexxpat "|" stuff))
				)
			)
			(set n (+ n 1))
		)
	)
	(copyfiles	(source (tackon tbcdsk "TBCPlus/Rexx"))
				(dest rexxdir)
				(pattern (cat arexxpat ")")
	)
)

(complete 85)

; Ask for the TBCPlus_Extras Disk *********************************

(askdisk	(prompt #ask-TBCPlus_Extras)
			(help #ask-TBCPlus_Extras-help)
			(dest "TBCPlus_Extras")
)

; Ask if Optional ARexx scripts are wanted ************************

;(set quest2	(askoptions	(prompt #opt-arexx-install)
;						(help #opt-arexx-install-help)
;						(choices	"ArexxTest.tbc"
;									"ArexxTest.ReadMe"
;						)
;						(default -1)
;			)
;)
;(set n 0)
;(set arexxpat1 "(%")
;	(while	(set stuff 	(select n	"ArexxTest.tbc#?"
;									"ArexxTest.ReadMe#?"
;									""
;						)
;			)
;		(
;			(if (IN quest2 n)
;				(
;					(set arexxpat1 (cat arexxpat1 "|" stuff))
;				)
;			)
;			(set n (+ n 1))
;		)
;	)
;	(copyfiles 	(source (tackon tbcext "Rexx"))
;				(dest rexxdir)
;				(pattern (cat arexxpat1 ")")
;	)
;)

; Ask if Optional Picture files are wanted ************************

(set quest3	(askoptions	(prompt #pic-install)
						(help #pic-install-help)
						(choices 	"NTSC_LineSweep.jpg"
									"NTSC_SMPTEbars.jpg"
									"TBCPlus_Logo.jpg"
						)
						(default -1)
			)
)
(set n 0)
(set picpat "(%")
	(while	(set stuff	(select n	"NTSC_LineSweep.jpg#?"
									"NTSC_SMPTEbars.jpg#?"
									"TBCPlus_Logo.jpg#?"
									""
						)
			)
		(
			(if (IN quest3 n)
				(
					(set picpat (cat picpat "|" stuff))
				)
			)
			(set n (+ n 1))
		)
	)
	(copyfiles	(source (tackon tbcext "Pictures"))
				(dest (tackon @default-dest "Pictures"))
				(pattern (cat picpat ")")
				(infos)
	)
)

; Ask if I should install ImageFX stuff ***************************

(set ifxinstall (askbool	(prompt #ifx-install)
							(help #ifx-install-help)
							(default 1)
				)
)

(if ifxinstall
	(
		(if (getassign "ImageFX")
			(
				(set ifxdir (expandpath "ImageFX:"))
				(copyfiles 	(prompt #ifx-render-copy)
							(help #ifx-render-copy-help)
							(source (tackon tbcext "IFXModules/Render"))
							(dest (tackon ifxdir "Modules/Render"))
							(all)
							(confirm)
				)
				(copyfiles 	(prompt #ifx-scanner-copy)
							(help #ifx-scanner-copy-help)
							(source (tackon tbcext "IFXModules/Scanner"))
							(dest (tackon ifxdir "Modules/Scanner"))
							(all)
							(confirm)
				)
			)
			(
				(makedir 	(tackon maindest "IFXModules")
							(prompt	#ifxmod-dir)
							(help #ifxmod-dir-help)
							(confirm)
				)
				(set ifxdest (tackon maindest "IFXModules"))
				(copyfiles	(prompt #not-ifx-render-copy)
							(help #ifx-render-copy-help)
							(source (tackon tbcext "IFXModules/Render"))
							(dest (tackon ifxdest "Render"))
							(all)
							(confirm)
				)
				(copyfiles	(prompt #not-ifx-scanner-copy)
							(help #ifx-scanner-copy-help)
							(source (tackon tbcext "IFXModules/Scanner"))
							(dest (tackon ifxdest "Scanner"))
							(all)
							(confirm)
				)
			)
		) 
	)
)

; Ask if I should execute the Binddrivers Command *****************

(set binder	(askchoice	(prompt #bind-choice)
						(help #bind-choice-help)
						(choices "Yes" "No")
						(default 0)
			)
)

(complete 100)

(if binder
	(
		(exit #exit-text)
	)
	(
		(run "C:Binddrivers")
		(message #bind-issued)
	)
)

; Exit time *******************************************************

(exit #altexit-text)