(procedure install13libs
  (
    (copylib (prompt "Copying reqtools.library")
	     (help @copylib-help)
	     (source "libs13/reqtools.library")
	     (dest "LIBS:")
	     (optional oknodelete askuser)
    )
    (copylib (prompt "Copying gadtools.library")
	     (help @copylib-help)
	     (source "libs13/gadtools.library")
	     (dest "LIBS:")
	     (optional oknodelete askuser)
    )
  )
)

(procedure install2libs
  (
    (copylib (prompt "Copying reqtools.library")
	     (help @copylib-help)
	     (source "libs/reqtools.library")
	     (dest "LIBS:")
	     (optional oknodelete askuser)
    )
  )
)

(procedure installdocs
  (
    (set result (askchoice (prompt "Which document do you want to install?")
			   (help @askchoice-help)
			   (choices "Text file" "AmigaGuide file")
			   (default 1)))
    (if (= result 0)
      (copylib	(prompt "Copying text version of documentation")
		(help @copylib-help)
		(source "Chooser.doc")
		(dest docs-dest)
		(infos)
		(optional nofail askuser)
      )
      (copylib	(prompt "Copying AmigaGuide version of documentation")
		(help @copylib-help)
		(source "Chooser.guide")
		(dest docs-dest)
		(infos)
		(optional nofail askuser)
      )
    )
  )
)

(set kickver (/ (getversion "exec.library" (resident)) 65536))

(if (>= kickver 36)
  (install2libs)
  (install13libs)
)

(set @default-dest (askdir (prompt "Choose directory to put Chooser in")
			   (help @askdir-help)
			   (default "SYS:Utilities")
))

(copylib (prompt "Copying Chooser program")
	 (help @copylib-help)
	 (source "Chooser")
	 (dest @default-dest)
	 (infos)
	 (optional oknodelete askuser)
)

(if (askbool (prompt "Do you want to install Choosers documentation?")
	     (help @askbool-help)
	     (default 1))
  (
    (set docs-dest (askdir (prompt "Where do you want to put Choosers documentation?")
			   (help @askdir-help)
			   (default @default-dest)))
    (installdocs)
  )
)