;
;                       PSB Installation Script
;                                 by
;                          Andrea Rafreider
;

(message "\n\nPSB is copyright Steve P.R. Peruzzi 1996\n"
         "\n"
         "Installation script written by Andrea Rafreider\n")

(set @default-dest
        (askdir
                (prompt "\nChoose the directory where you "
                        "want to install PSB.\n"
                        "A drawer named \"PSB\" will be created "
                        "in the directory you choose.\n")
                (help   "Here you can specify where you want "
                        "to install PSB.\n"
                        "A drawer named \"PSB\" will be created "
                        "in the directory you choose.\n")
                (default "WORK:")
        )
)

(makedir (tackon @default-dest "PSB"))

(set @default-dest (tackon @default-dest "PSB"))

(copylib
        (source (tackon (pathonly @icon) "PSB"))
        (dest @default-dest)
        (infos)
        
)
(copyfiles
        (source (tackon (pathonly @icon) "PSB.guide"))
        (dest @default-dest)
        (infos)
)
(copyfiles
        (source (tackon (pathonly @icon) "PSB.readme"))
        (dest @default-dest)
        (infos)
)

(makedir (tackon @default-dest "data"))

(message "\nPSB installation completed!\n")
