; OLDTIMER Harddisk-Installation

(set name
	(askdir
		(prompt "Bitte wählen Sie das Verzeichnis, in dem das OLDTIMER-Verzeichnis angelegt werden soll.")
		(help "Nix.")
                (default "SYS:")
	)
)

(if (< (getdiskspace name) 12000000) 
        (abort  "Auf diesem Laufwerk ist nicht genug Platz!! "
                "Es werden mindestens 12MB freier Festplattenspeicher "
                "benötigt, um die Installation durchführen zu können!")
)

(set sstr (substr name (- (strlen name) 1) 1))

(if (or (= sstr "/") (= sstr ":")) (set dname (cat name "Oldtimer")) (set dname (cat name "/Oldtimer")))

(copyfiles (source "Oldtimer1:Oldtimer.inf") 
           (dest name) 
           (newname "Oldtimer.info")
)

(copyfiles (source "Oldtimer1:LHEx") (dest "ram:"))

(makedir dname
        (prompt "OLDTIMER wird nun in das Verzeichnis \""
        dname"\" installiert.")
	(help "Nix.")
        (confirm)
)

(set oname (cat "ram:lhex -w=" dname))

(run (cat oname " x Oldtimer1:Oldtimer1.lha"))
(run (cat oname " x Oldtimer2:Oldtimer2.lha"))
(run (cat oname " x Oldtimer3:Oldtimer3.lha"))
(run (cat oname " x Oldtimer4:Oldtimer4.lha"))
(run (cat oname " x Oldtimer5:Oldtimer5.lha"))
(run (cat oname " x Oldtimer6:Oldtimer6.lha"))
(run (cat oname " x Oldtimer7:Oldtimer7.lha"))
(run (cat oname " x Oldtimer8:Oldtimer8.lha"))

(delete "ram:lhex")