(if (= @language "deutsch")
    (
        (SET Intro  "Wilkommen zum Installer-Script für AmiPOP")
        (SET PLace  "Wohin soll das AmiPOP-Paket hinkopiert werden ?")
    )
)
(if (= @language "english")
    (
        (SET Intro  "Welcome to the installer-script for AmiPOP")
        (SET Place  "Where do you want to place the AmiPOP-package. A drawer, called AmiPOP will ce created")
    )
)

(MESSAGE Intro)

(SET PackDir
    (ASKDIR
        (PROMPT Place)
        (HELP   "")
        (DEFAULT "sys:")
    )
)

(SET XDest (tackon PackDir "AmiPOP"))

(RUN (CAT "makdir \""XDest"\""))

(COPYFILES
    (SOURCE ":Comm/AmiPOP/")
    (DEST   XDest)
    (ALL)
    (INFOS)
)