(user 2)
(set MainPath		"BBS:")
(set SourcePath		"AmBoS")

(set destpath
	(askdir
		(prompt "Wo soll das AmBoS-Verzeichnis erzeugt werden ?")
		(help "In das von Ihnen gewhlte Verzeichnis wird das AmBoS-Demo kopiert. Es wird ein Icon fr das Verzeichnis erzeugt")
		(default "work:")
	)
)

(set @default-dest
	(tackon destpath "AmBoS")
)

(set result
	(makedir @default-dest
		(prompt "Erzeuge AmBoS-Verzeichnis...")
		(safe)
	)
)

(set result
	(copyfiles
		(prompt "Kopiere AmBoS-Files...")
		(help "Es werden nun die AmBoS-File kopiert")
		(source SourcePath)
		(dest @default-dest)
		(all)
		(infos)
		(optional fail)
		(safe)
	)
)

(set result
	(copyfiles
		(prompt "Kopiere AmBoS-Files...")
		(help "Es werden nun die AmBoS-File kopiert")
		(source "AmBoS.info")
		(dest destpath)
		(safe)
	)
)

(set result
	(copylib
		(prompt "Kopiere Libraries...")
		(help "Es werden nun die AmBoS-Libraries kopiert")
		(source "libs")
		(dest "libs:")
		(optional fail)
		(safe)
	)
)

(set result
	(copyfiles
		(prompt "Kopiere Fonts...")
		(help "Es werden nun die AmBoS-Fonts kopiert")
		(source "fonts")
		(dest "fonts:")
		(all)
		(infos)
		(optional fail)
		(safe)
	)
)

(set result
	(copyfiles
		(prompt "Kopiere Catalogs...")
		(help "Es werden nun die AmBoS-Catalogs kopiert")
		(source "Locale")
		(dest "Locale:")
		(all)
		(infos)
		(optional fail)
		(safe)
	)
)

(set forstartup ("assign bbs: \"%s\"" @default-dest))

(set result
	(startup "AmBoS-Hauptprogramm"
		(prompt "Es wird das BBS-Assign in Ihre User-Startup eingefgt")
		(help "Das Assign wird von AmBoS bentigt, um die ntigen Datenfiles zu finden")
		(command forstartup)
	)
)
(makeassign "bbs" @default-dest)

(set result
	(askbool
		(default 1)
		(prompt "AmBoS macht von allen Datenfiles ein Backup. Dazu mu allerdings das Assign 'backup:' eingerichtet sein. Soll dieses Assign in Ihre User-Startup einfgt werden ?")
		(help "Dieses Assign bentigt AmBoS um Backups von den Systemdaten zu machen")
		(choices "Ja" "Nein")
	)
)

(if result
	(
		(set destpath
			(askdir
				(prompt "Wo soll das Backup-Verzeichnis erzeugt werden ?")
				(help "In das von Ihnen gewhlte Verzeichnis werden die backups der Systemdaten gemacht. Es sollte ein Verzeichnis auf einer Partition ungleich der BBS-Partition gewhlte werden.")
				(default "data:")
			)
		)
		(set backuppath
			(tackon destpath "Backup")
		)
		(set result
			(makedir backuppath
				(prompt "Erzeuge backup-Verzeichnis...")
				(infos)
				(safe)
			)
		)
		(set backupassign ("assign backup: \"%s\"" backuppath))
		(set result
			(startup "AmBoS-Backupverzeichnis"
				(prompt "Es wird das Backup-Assign in Ihre User-Startup eingefgt")
				(help "Das Assign wird von AmBoS bentigt, um backups von den Datenfiles zu machen.")
				(command backupassign)
			)
		)
		(makeassign "backup" backuppath)
	)
)
