(complete 0)

(set dir
	(askdir
		(prompt "Wohin soll FastLine installiert werden ?")
		(help "Wählen Sie das Verzeichnis oder Device aus, wo das Mailboxverzeichnis hin kopiert werden soll. Beispiel : DH0:, DH1: oder SYS: usw... Dort wird dann ein Verzeichnis 'FASTLINE' eingerichtet, indem die Daten kopiert werden. Dieses Verzeichnis muss vor dem Start von FastLine mit 'ASSIGN FAST: FASTLINE' assigned werden.")
		(default "DH0:")
	)
)
(set modem
	(askchoice
		(prompt "Welches Modem benutzen Sie oder welchem kommt diesen am naechsten ?")
		(choices "DISCO 2400 C" "DUAL 14.4" "DUAL 16.8" "HST 9.6" "ZYXEL")
		(help "Waehlen Sie das Modem aus, welchem Sie besitzen. Sollte ihr Modem nicht dabei stehen, dann suchen sie sich das Modem aus, was ihrem am naechsten kommt. Siehe Anleitung : MODEM-EDITOR !")
	)
)
(set tel
	(askchoice
		(prompt "In welcher Stadt wohnen Sie (Vorwahl-Berechnung) ?")
		(choices "ESSEN" "BOCHUM" "MUELHEIM" "MOENCHENGLADBACH" "DUISBURG")
		(help "Waehlen Sie die Stadt aus, in der Sie wohnen. Sollte ihre Stadt nicht dabei sein, dann muessen Sie sich selbst eine TELEFONDATEI anlegen (naehere Infos dazu entnehmen Sie bitte aus der Anleitung).")
	)
)

(set pfad (tackon dir "FASTLINE"))
(makedir pfad)
(run ("assign FASTLINE: %s" pfad))

(working "Kopiere Ansi-Texte...")
(copyfiles (source "FL:FASTLINE/ANSI") (dest ("FASTLINE:ANSI")) (all))
(complete 10)
(working "Kopiere Normale-Texte...")
(copyfiles (source "FL:FASTLINE/TEXTE") (dest ("FASTLINE:TEXTE")) (all))
(complete 20)
(working "Kopiere Batchdateien...")
(copyfiles (source "FL:FASTLINE/BATCH") (dest ("FASTLINE:BATCH")) (all))
(complete 30)
(working "Kopiere Scriptdateien...")
(copyfiles (source "FL:FASTLINE/SCRIPT") (dest ("FASTLINE:SCRIPT")) (all))
(complete 40)
(working "Kopiere PM-Daten...")
(copyfiles (source "FL:FASTLINE/PM") (dest ("FASTLINE:PM")) (all))
(complete 50)
(working "Kopiere externe Programme...")
(copyfiles (source "FL:FASTLINE/EXTERN") (dest ("FASTLINE:EXTERN")) (all))
(complete 60)
(working "Kopiere Brett-Daten...")
(copyfiles (source "FL:FASTLINE/BRETTER") (dest ("FASTLINE:BRETTER")) (all))
(complete 70)
(working "Kopiere Statistik...")
(copyfiles (source "FL:FASTLINE/STATISTIKEN") (dest ("FASTLINE:STATISTIKEN")) (all))
(complete 80)
(working "Kopiere uebrige Dateien...")
(copyfiles (source "FL:FASTLINE/BEFEHLSDATEI") (dest ("FASTLINE:")))
(copyfiles (source "FL:FASTLINE/BRETTDATEI") (dest ("FASTLINE:")))
(copyfiles (source "FL:FASTLINE/EXTERNDATEI") (dest ("FASTLINE:")))
(copyfiles (source "FL:FASTLINE/FASTLINE") (dest ("FASTLINE:")))
(copyfiles (source "FL:FASTLINE/FASTLINE.KEY") (dest ("FASTLINE:")))
(copyfiles (source "FL:FASTLINE/BOXSETUP") (dest ("FASTLINE:")))
(copyfiles (source "FL:FASTLINE/FEIERTAGE") (dest ("FASTLINE:")))
(copyfiles (source "FL:FASTLINE/NETDATEI") (dest ("FASTLINE:")))
(copyfiles (source "FL:FASTLINE/SUMPROTO") (dest ("FASTLINE:")))
(copyfiles (source "FL:FASTLINE/USERDATEI") (dest ("FASTLINE:")))
(copyfiles (source "FL:FASTLINE/ZUGANGSDATEI") (dest ("FASTLINE:")))

(if (= modem 0) ((copyfiles (source "FL:SETUPS/MODEMSETUP-DISCO2400C") (dest "FASTLINE:") (newname "MODEMSETUP"))))
(if (= modem 1) ((copyfiles (source "FL:SETUPS/MODEMSETUP-DUAL144") (dest "FASTLINE:") (newname "MODEMSETUP"))))
(if (= modem 2) ((copyfiles (source "FL:SETUPS/MODEMSETUP-DUAL168") (dest "FASTLINE:") (newname "MODEMSETUP"))))
(if (= modem 3) ((copyfiles (source "FL:SETUPS/MODEMSETUP-HST96") (dest "FASTLINE:") (newname "MODEMSETUP"))))
(if (= modem 4) ((copyfiles (source "FL:SETUPS/MODEMSETUP-ZYXEL") (dest "FASTLINE:") (newname "MODEMSETUP"))))

(if (= tel 0) ((copyfiles (source "FL:SETUPS/TELEFONDATEI-ESSEN") (dest "FASTLINE:") (newname "TELEFONDATEI"))))
(if (= tel 1) ((copyfiles (source "FL:SETUPS/TELEFONDATEI-BOCHUM") (dest "FASTLINE:") (newname "TELEFONDATEI"))))
(if (= tel 2) ((copyfiles (source "FL:SETUPS/TELEFONDATEI-MUELHEIM") (dest "FASTLINE:") (newname "TELEFONDATEI"))))
(if (= tel 3) ((copyfiles (source "FL:SETUPS/TELEFONDATEI-MOENCHENGLADBACH") (dest "FASTLINE:") (newname "TELEFONDATEI"))))
(if (= tel 4) ((copyfiles (source "FL:SETUPS/TELEFONDATEI-DUISBURG") (dest "FASTLINE:") (newname "TELEFONDATEI"))))

(complete 90)

(working "Lege Verzeichnisse an...")
(makedir (tackon pfad "UPLOAD"))
(makedir (tackon pfad "STATISTIKEN"))
(makedir (tackon pfad "CAPTURE"))

(complete 100)