;$VER: CD-Creator V1.01 (20.06.96)
;----------------------------------------------------------------------------
; Deutsche Texte

(if (= @language "deutsch")
(
  (set #SelectMainDir	"Wählen Sie das Verzeichnis für den CD-Creator.")
  (set #CopyingMainPrg	"Kopiere die Hauptprogramme...")
  (set #CopyingDriver	"Kopiere die unterstützten Treiber...")

  (set #Driver			"Soll das Assign auf die CD-R Treiber jetzt in die User-Startup eingetragen werden ?")
  (set #DriverHelp		"Damit beim späteren Betrieb die CD-R Treiber problemlos gefunden und benutzt werden können, sollte ein entsprechendes Assign auf die Treiber angelegt werden.")

  (set #WrongWB			"Workbench 3.0 oder höher wird benötigt.")
))


(procedure InstallMainPrg
(
    (set MainDir
	    (askdir
			(prompt  #SelectMainDir )
			(help    @askdir-help )
			(default (tackon @default-dest "CD-Creator"))
    	)
    )
    (if (NOT(exists MainDir))
		(makedir MainDir (infos))
	)

	(makedir (tackon MainDir "Driver"))

	(copyfiles
		(prompt #CopyingMainPrg)
		(help   @copyfiles-help)
		(source (tackon SourceDir "Programme"))
		(dest   MainDir)
		(all)
	)

	(copyfiles
		(prompt #CopyingDriver)
		(help   @copyfiles-help)
		(source (tackon SourceDir "Driver"))
		(dest   (tackon MainDir "Driver"))
		(all)
	)

	(copyfiles
		(prompt #CopyingDriver)
		(help   @copyfiles-help)
		(source (tackon SourceDir "CD-Brenner"))
		(dest   MainDir)
		(infos)
	)
))

;---------------------------------------------------------------------
;---- Initialisierung

(complete 0)

(set SourceDir "CD-Creator:")

(set #WBVersion (/(getversion "libs:version.library") 65536))

(if (< #WBVersion 39)	(abort #WrongWB))

(InstallMainPrg)

(STARTUP "CD-Creator"
	(prompt  #Driver)
	(help    #DriverHelp)
	(command "assign CD-R_Driver: " (tackon MainDir "Driver"))
)

(set @default-dest MainDir)

(complete 100)