(
   (
   message ("\nInstalacja na twardy dysk pakietu\nFIRMA 5.0\n\nSystem operacyjny musi byź wczytany z twardego dysku, dopiero wtedy moūesz wīoūyź do stacji dyskietkė z FirmaDodatki.\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 AmiSufler. Program instalacyjny nie tworzy swojego katalogu - program nagrywany jest bezpoōrednio do katalogu okreōlonego w oknie wyboru."))
                   (default ("dh0:Firma"))
                )

   )

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

   (complete 2)

   (
   (set SPACE (getdiskspace DESTDIR))

   (
   if( < SPACE 1000000) 
      (message ("\n\nUWAGA! Za maīo miejsca na twardym dysku aby dokonaź peīnej instalacji! Jeōli pomimo wszystko chcesz zainstalowaź Firmė na tė partycjė wybierz tryb Experta przy instalacji i zainstaluj tylko te pliki, które sā niezbėdne!!!"))
   )

   )

   (
   message ("\n\n\nPotwierdś chėź instalacji pakietu FIRMA 5.0 na\n\n %s" DESTDIR)
   )

   (set @default-dest DESTDIR)

   (complete 4)

   (
   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
                          ("pliki z katalogu 'c' (Firma:c)")
                          ("sterowniki drukarki  (Firma:devs/printers)")
                          ("biblioteki           (Firma:libs)")
                          ("kroje liter          (Firma:fonts)")
                          ("program FIRMA 5.0    (Firma:Firma(.info))")
                          ("programy dodatkowe   (FirmaDodatki:*)")

                  )
                  (default 63)
      )
   )

   (complete 8)

   (
   if (bitand CHOICE 1)
      (
      copyfiles (source "Firma:c")
                (dest "SYS:c")
                (all)
                (confirm)
                (prompt ("Wybierz pliki, które chcesz skopiowaź:"))
                (help ("Podejrzewam, ūe wszystkie te programy juū znajdujā siė na twardym dysku Twojej Amigi. Jedynym, którego moūesz nie mieź jest program PLFonts instalujācy polskie znaki w systemie."))
                (nogauge)
      )
   )

   (complete 16)

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

      (copyfiles (source "Firma: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)
      )
      )
   )

   (complete 30)

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

         (complete 33)

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

         (complete 36)

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

   (complete 40)

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

   (complete 46)

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


   (complete 55)

   (
   if (bitand CHOICE 32)
      (copyfiles (source "FirmaDodatki:")
                (dest DESTDIR)
                	(
					choices
						("EWIDENCJA-RYCZAĪT")
						("EWIDENCJA_WYPOSAŪENIA")
						("KSIĖGA_PR")
						("REJESTR_SPRZEDAŪY")
						("REJESTR_ZAKUPU")
					)
                (confirm)
				(infos)
                (prompt ("Wybierz programy, które chcesz zainstalowaź:"))
                (help ("Moūesz zainstalowaź tylko te programy, którymi bėdziesz siė posīugiwaī usuwajāc znaczki 'V' z pozostaīych pozycji listy."))
      )
   )
 
   (
   set DATADIRS
      (askoptions (prompt ("Jakie magazyny chcesz zaīoūyź na twardym dysku?"))
                  (help   ("Program instalujācy zaīoūy odpowiednie katalogi i przypisania do zaznaczonych znakiem 'V' magazynów."))
                  (choices
                          ("Magazyn nr 1 (Dane1)")
                          ("Magazyn nr 2 (Dane2)")
                          ("Magazyn nr 3 (Dane3)")
                          ("Magazyn nr 4 (Dane4)")
                          ("Magazyn nr 5 (Dane5)")
                          ("Magazyn nr 6 (Dane6)")
                          ("Magazyn nr 7 (Dane7)")
                          ("Magazyn nr 8 (Dane8)")
                          ("Magazyn nr 9 (Dane9)")
                  )
                  (default 1)
      )
   )
    
   (if (bitand DATADIRS 1) (makedir (tackon DESTDIR "Dane1")))
   (if (bitand DATADIRS 2) (makedir (tackon DESTDIR "Dane2")))
   (if (bitand DATADIRS 4) (makedir (tackon DESTDIR "Dane3")))
   (if (bitand DATADIRS 8) (makedir (tackon DESTDIR "Dane4")))
   (if (bitand DATADIRS 16) (makedir (tackon DESTDIR "Dane5")))
   (if (bitand DATADIRS 32) (makedir (tackon DESTDIR "Dane6")))
   (if (bitand DATADIRS 64) (makedir (tackon DESTDIR "Dane7")))
   (if (bitand DATADIRS 128) (makedir (tackon DESTDIR "Dane8")))
   (if (bitand DATADIRS 256) (makedir (tackon DESTDIR "Dane9")))

   (
   startup "Firma"
      (prompt "Utworzenie potrzebnych urzādzeļ w systemie")
      (help "")
      (command (cat "Assign Firma: " (tackon DESTDIR "\n")))
      (if (bitand DATADIRS 1) (command (cat "Assign Dane1: " (tackon DESTDIR "Dane1\n"))))
      (if (bitand DATADIRS 2) (command (cat "Assign Dane2: " (tackon DESTDIR "Dane2\n"))))
      (if (bitand DATADIRS 4) (command (cat "Assign Dane3: " (tackon DESTDIR "Dane3\n"))))
      (if (bitand DATADIRS 8) (command (cat "Assign Dane4: " (tackon DESTDIR "Dane4\n"))))
      (if (bitand DATADIRS 16) (command (cat "Assign Dane5: " (tackon DESTDIR "Dane5\n"))))
      (if (bitand DATADIRS 32) (command (cat "Assign Dane6: " (tackon DESTDIR "Dane6\n"))))
      (if (bitand DATADIRS 64) (command (cat "Assign Dane7: " (tackon DESTDIR "Dane7\n"))))
      (if (bitand DATADIRS 128) (command (cat "Assign Dane8: " (tackon DESTDIR "Dane8\n"))))
      (if (bitand DATADIRS 256) (command (cat "Assign Dane9: " (tackon DESTDIR "Dane9\n"))))
   )

   (complete 100)

   (message ("\n\nUWAGA!\n========\nProgram zostaī zainstalowany!\nAby móc go uruchomiź naleūy, po wyjōciu z programu instalacyjnego, zresetowaź komputer i ponownie uruchomiź system z twardego dysku."))

)