; $VER: SWOS Ed Install-Script v1.0 (20.01.96) by Piotr Bieniek


; przedstaw sië uûytkownikowi
(message "SWOS Ed © 1996 Piotr Bieniek\n\n\n"
         "This script will install this utility "
         "on your hard disk drive.")
(welcome)

; spytaj uûytkownika o miejsce instalacji
(set default-dest
     (tackon (askdir (prompt "Where would you like to install SWOS Ed?\n"
                             "A drawer called 'SWOSEd' will be created there.")
                     (help @askdir-help)
                     (default @default-dest)
             )
     "SWOSEd"
     )
)
(set @default-dest default-dest)

; stworzenie potrzebnych katalogów
(makedir @default-dest
         (infos)
)

(complete 20)

; skopiuj odpowiednie pliki
(copyfiles (source "SWOSEd")
           (dest @default-dest)
           (infos)
)
(copyfiles (source "SWOSEd.guide")
           (dest @default-dest)
           (infos)
)
(complete 100)