(
   (
   message ("\nInstalacja na twardy dysk pakietu\nFIRMA 5.9\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ā zainstalowana zostanie Firma. 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 1200000) 
      (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.9 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
                          ("program PLFonts      (Firma:c/PLFonts)")
                          ("sterowniki drukarki  (Firma:devs/printers)")
                          ("biblioteki           (Firma:libs)")
                          ("kroje liter          (Firma:fonts)")
                          ("program FIRMA 5.9    (Firma:Firma(.info))")
                          ("programy dodatkowe   (FirmaDodatki:*)")

                  )
                  (default 63)
      )
   )

   (complete 8)

   (
   if (bitand CHOICE 1)
      (
      copyfiles (source "Firma:c")
                (dest "SYS:c")
                	(
					choices
						("PLFonts")
					)
                (confirm)
                (prompt ("Program umoūliwiajācy instalacjė polskich znaków w systemie"))
                (help (""))
                (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 65)

   (
   if (bitand CHOICE 32)
      (copyfiles (source "FirmaDodatki:")
                (dest DESTDIR)
                	(
					choices
						("EWID.RYCZAĪT")
						("WYPOSAŪENIE")
						("KSIĖGA_PR")
						("SPRZEDAŪ-VAT")
						("ZAKUP-VAT")
						("BANK")
						("PRZEBIEG-AUTO")
						("WYDATKI-AUTO")
						("ANALIZA_FIRMY")
					)
                (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."))
      )
   )

   (complete 96)
 
   (
   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")))

   (if (bitand DATADIRS 1) (makedir (tackon DESTDIR "Dane1/KOPIA")))
   (if (bitand DATADIRS 2) (makedir (tackon DESTDIR "Dane2/KOPIA")))
   (if (bitand DATADIRS 4) (makedir (tackon DESTDIR "Dane3/KOPIA")))
   (if (bitand DATADIRS 8) (makedir (tackon DESTDIR "Dane4/KOPIA")))
   (if (bitand DATADIRS 16) (makedir (tackon DESTDIR "Dane5/KOPIA")))
   (if (bitand DATADIRS 32) (makedir (tackon DESTDIR "Dane6/KOPIA")))
   (if (bitand DATADIRS 64) (makedir (tackon DESTDIR "Dane7/KOPIA")))
   (if (bitand DATADIRS 128) (makedir (tackon DESTDIR "Dane8/KOPIA")))
   (if (bitand DATADIRS 256) (makedir (tackon DESTDIR "Dane9/KOPIA")))

   (if (bitand DATADIRS 1) (makedir (tackon DESTDIR "Dane1/ARCHIWUM")))
   (if (bitand DATADIRS 2) (makedir (tackon DESTDIR "Dane2/ARCHIWUM")))
   (if (bitand DATADIRS 4) (makedir (tackon DESTDIR "Dane3/ARCHIWUM")))
   (if (bitand DATADIRS 8) (makedir (tackon DESTDIR "Dane4/ARCHIWUM")))
   (if (bitand DATADIRS 16) (makedir (tackon DESTDIR "Dane5/ARCHIWUM")))
   (if (bitand DATADIRS 32) (makedir (tackon DESTDIR "Dane6/ARCHIWUM")))
   (if (bitand DATADIRS 64) (makedir (tackon DESTDIR "Dane7/ARCHIWUM")))
   (if (bitand DATADIRS 128) (makedir (tackon DESTDIR "Dane8/ARCHIWUM")))
   (if (bitand DATADIRS 256) (makedir (tackon DESTDIR "Dane9/ARCHIWUM")))

   (complete 98)

   (
   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"))))

      (if (bitand DATADIRS 1) (command (cat "Assign KOPIA_Dane1: " (tackon DESTDIR "Dane1/KOPIA\n"))))
      (if (bitand DATADIRS 2) (command (cat "Assign KOPIA_Dane2: " (tackon DESTDIR "Dane2/KOPIA\n"))))
      (if (bitand DATADIRS 4) (command (cat "Assign KOPIA_Dane3: " (tackon DESTDIR "Dane3/KOPIA\n"))))
      (if (bitand DATADIRS 8) (command (cat "Assign KOPIA_Dane4: " (tackon DESTDIR "Dane4/KOPIA\n"))))
      (if (bitand DATADIRS 16) (command (cat "Assign KOPIA_Dane5: " (tackon DESTDIR "Dane5/KOPIA\n"))))
      (if (bitand DATADIRS 32) (command (cat "Assign KOPIA_Dane6: " (tackon DESTDIR "Dane6/KOPIA\n"))))
      (if (bitand DATADIRS 64) (command (cat "Assign KOPIA_Dane7: " (tackon DESTDIR "Dane7/KOPIA\n"))))
      (if (bitand DATADIRS 128) (command (cat "Assign KOPIA_Dane8: " (tackon DESTDIR "Dane8/KOPIA\n"))))
      (if (bitand DATADIRS 256) (command (cat "Assign KOPIA_Dane9: " (tackon DESTDIR "Dane9/KOPIA\n"))))

      (if (bitand DATADIRS 1) (command (cat "Assign ARCHIWUM_Dane1: " (tackon DESTDIR "Dane1/ARCHIWUM\n"))))
      (if (bitand DATADIRS 2) (command (cat "Assign ARCHIWUM_Dane2: " (tackon DESTDIR "Dane2/ARCHIWUM\n"))))
      (if (bitand DATADIRS 4) (command (cat "Assign ARCHIWUM_Dane3: " (tackon DESTDIR "Dane3/ARCHIWUM\n"))))
      (if (bitand DATADIRS 8) (command (cat "Assign ARCHIWUM_Dane4: " (tackon DESTDIR "Dane4/ARCHIWUM\n"))))
      (if (bitand DATADIRS 16) (command (cat "Assign ARCHIWUM_Dane5: " (tackon DESTDIR "Dane5/ARCHIWUM\n"))))
      (if (bitand DATADIRS 32) (command (cat "Assign ARCHIWUM_Dane6: " (tackon DESTDIR "Dane6/ARCHIWUM\n"))))
      (if (bitand DATADIRS 64) (command (cat "Assign ARCHIWUM_Dane7: " (tackon DESTDIR "Dane7/ARCHIWUM\n"))))
      (if (bitand DATADIRS 128) (command (cat "Assign ARCHIWUM_Dane8: " (tackon DESTDIR "Dane8/ARCHIWUM\n"))))
      (if (bitand DATADIRS 256) (command (cat "Assign ARCHIWUM_Dane9: " (tackon DESTDIR "Dane9/ARCHIWUM\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."))

)