;****************************************************************************;
;                                                                            ;
;$VER: TCP/IP-Master © 1996 THE DARK FRONTIER - Softwareentwiclung (17.01.96);
;                                                                            ;
; Email: frontier@starbase.inka.de      or IRC at: #AmigaGER                 ;
;                                                                            ;
;****************************************************************************;

(procedure :askdestination
    (set #destination
        (askdir
            (prompt "Wo soll der TCP/IP-Master installiert werden?\n"
                    "Eine Schublade wird vom Installer erzeugt!")
            (help   @askdir-help)
            (default "AmiTCP:")
        )
    )
)

; -------------------------------------
; main()
; -------------------------------------

(complete 0)

(message "Willkommen zur Inbstallation des TCP/IP-Masters\n\n © 1996 THE DARK FRONTIER - Softwareentwicklung")

(:askdestination)

(makedir (tackon #destination "TCP-IP-Master"))

(complete 25)

(copyfiles
    (source "TCP-IP-Master")
    (dest (tackon #destination "TCP-IP-Master"))
    (infos)
)

(complete 45)

(copyfiles
    (source "/TCP-IP-Master.info")
    (dest #destination)
)

(complete 65)

(copyfiles
    (source "locale/catalogs/deutsch/tcpip-master.catalog")
    (dest   "sys:locale/catalogs/deutsch")
)

(complete 75)

(copyfiles
    (source "TCP-IP-Master_D.guide")
    (dest (tackon #destination "TCP-IP-Master"))
    (infos)
)

(complete 100)
(message "Die Installation des TCP/IP-Masters ist nun\n\n abgeschlossen, sie finden das Programm in\n\n" #destination)

(exit (quiet))