(
   (
   message ("\nInstalacja na twardy dysk programu\nAsystent Pro\n\nSystem operacyjny musi byź wczytany z twardego dysku, dopiero wtedy moūesz wīoūyź do stacji dyskietkė z Asystentem.\n\n")
   )

   (
   set DESTDIR (askdir
                   (prompt  ("Wybierz urzādzenie i katalog, na które chcesz instalowaź program"))
                   (help    ("W tym miejscu naleūy wybraź partycjė (oraz katalog), na którā zainstalowany zostanie Asystent. Program instalacyjny nie tworzy swojego katalogu - program nagrywany jest bezpoōrednio do katalogu okreōlonego w oknie wyboru."))
                   (default ("dh0:"))
                )

   )

   (
   if (= (exists DESTDIR) 0)
      (makedir DESTDIR (infos))
   )

   (
   message ("\n\n\nPotwierdś chėź instalacji programu Asystent Pro na\n\n %s" DESTDIR)
   )

   (set @default-dest DESTDIR)

   (
   set CHOICE
      (askoptions (prompt ("Wybierz czėōci dyskietki dystrybucyjnej, które chcesz zainstalowaź:"))
                  (help   ("W tym miejscu moūesz zrezygnowaź z instalowania pewnych fragmentów dyskietki instalacyjnej. Jeōli np. nie chcesz instalowaź polskich sterowników do drukarki moūesz usunāź marker przy odpowiedniej opcji."))
                  (choices
                          ("program PLFonts      (AsystentPro:c/PLFonts)")
                          ("sterowniki drukarki  (AsystentPro:devs/printers)")
                          ("biblioteki           (AsystentPro:libs)")
                          ("kroje liter          (AsystentPro:fonts)")
                          ("program Asystent Pro (AsystentPro:AsystentPro)")
                          ("zasoby programu      (AsystentPro:AP_res)")
                          ("zasoby Arexxa")
                          ("przykīadowe dane")

                  )
                  (default 255)
      )
   )

   (
   if (bitand CHOICE 1)
      (
      copyfiles (source "AsystentPro:c")
                (dest "SYS:c")
                	(
					choices
						("PLFonts")
					)
                (confirm)
                (prompt ("Program umoūliwiajācy instalacjė polskich znaków w systemie"))
                (help (""))
                (nogauge)
      )
   )

   (
   if (bitand CHOICE 2)
      (
      (if (= (exists ("SYS:devs")) 0)
      (makedir ("SYS:devs")))
      (if (= (exists ("SYS:devs/printers")) 0)
      (makedir ("SYS:devs/printers")))

      (copyfiles (source "AsystentPro:devs/printers")
                (dest "SYS:devs/printers")
                (all)
                (confirm)
                (prompt ("Wybierz sterowniki, które chcesz skopiowaź:"))
                (help ("Moūesz zainstalowaź tylko ten sterownik, który obsīuguje Twojā drukarkė usuwajāc znaczki 'V' z pozostaīych pozycji listy."))
                (nogauge)
      )
      )
   )

   (
   if (bitand CHOICE 4)
      (
         (copylib (source "AsystentPro:libs/info.library")
                  (dest "SYS:libs")
                  (prompt ("Biblioteka info.library"))
                  (confirm)
                  (help (""))
                  (nogauge)
         )

         (copylib (source "AsystentPro:libs/diskfont.library")
                  (dest "SYS:libs")
                  (prompt ("Biblioteka diskfont.library"))
                  (confirm)
                  (help (""))  
                  (nogauge)
         )

         (copylib (source "AsystentPro:libs/icon.library")
                  (dest "SYS:libs")
                  (prompt ("Biblioteka icon.library"))
                  (confirm)
                  (help (""))
                  (nogauge)
         )

         (copylib (source "AsystentPro:libs/reqtools.library")
                  (dest "SYS:libs")
                  (prompt ("Biblioteka reqtools.library"))
                  (confirm)
                  (help (""))
                  (nogauge)
         )

         (copylib (source "AsystentPro:libs/powerpacker.library")
                  (dest "SYS:libs")
                  (prompt ("Biblioteka powerpacker.library"))
                  (confirm)
                  (help (""))
                  (nogauge)
         )

         (copylib (source "AsystentPro:libs/version.library")
                  (dest "SYS:libs")
                  (prompt ("Biblioteka version.library"))
                  (confirm)
                  (help (""))
                  (nogauge)
         )
      )
   )

   (
   if (bitand CHOICE 8)
      (
      copyfiles (source "AsystentPro:fonts")
                (dest "SYS:fonts")
                (all)
                (confirm)
                (prompt ("Wybierz kroje liter, które chcesz skopiowaź:"))
                (help ("Krój Digits (wraz z plikiem Digits.font) jest niezbėdny do uruchomienia programu Straūnik. Krój TopazPL (wraz z plikiem TopazPL.font) jest niezbėdny do uruchomienia programu PLFonts instalujācego polskie znaki w systemie."))
                (nogauge)
      )
   )

   (
   if (bitand CHOICE 16)
      (
      (
      copyfiles (source "AsystentPro:AsystentPro")
                (dest DESTDIR)
                (infos)
      )

      (
      copyfiles (source "AsystentPro:Straūnik")
                (dest DESTDIR)
      )

      (
      copyfiles (source "AsystentPro:StraūnikModule")
                (dest DESTDIR)
      )

      )
   )


   (
   if (bitand CHOICE 32)
      (

      (makedir (tackon DESTDIR "AP_res"))

      (
      copyfiles (source "AsystentPro:AP_res")
                (dest (tackon DESTDIR "AP_res"))
                (all)
                (help (""))
                (nogauge)
      )

      (
      copyfiles (source "AsystentPro:Uwagi")
                (dest DESTDIR)
                (infos)
      )

      (
      copyfiles (source "AsystentPro:Utilities/ppmore")
                (dest "SYS:Utilities")
      )

      )

   )


   (
   if (bitand CHOICE 64)
      (
      (

      (makedir (tackon DESTDIR "rexx"))

      (
      copyfiles (source "AsystentPro:rexx")
                (dest (tackon DESTDIR "rexx"))
                (all)
                (help (""))
                (nogauge)
      )
      )

      (
      copyfiles (source "AsystentPro:OpisAREXXa")
                (dest DESTDIR)
                (infos)
      )
      )

   )


   (
   if (bitand CHOICE 128)
      (

      (makedir (tackon DESTDIR "Przykīady"))

      (
      copyfiles (source "AsystentPro:Przykīady")
                (dest (tackon DESTDIR "Przykīady"))
                (all)
                (help (""))
                (nogauge)
                (infos)
      )
      )

   )


   (
   startup "AsystentPro"
      (prompt "Utworzenie potrzebnych urzādzeļ w systemie")
      (help "")
      (command (cat "Assign AsystentPro: " (tackon DESTDIR "\n")))
   )

   (message ("\nProgram zostaī zainstalowany!\nAby go uruchomiź naleūy zresetowaź komputer i po wczytaniu Workbencha wybraź ikonė Asystenta!\n"))

)