(
   (
   message ("\nInstalacja na twardy dysk programu\nAmiLab wer. 2.0\n\nSystem operacyjny musi byê wczytany z twardego dysku, dopiero wtedy moûesz wîoûyê do stacji dyskietkë z programem.\n\n")
   )

   (
   set DESTDIR (askdir
                   (prompt  ("Wybierz urzâdzenie i katalog, w którym zostanie utworzony katalog AmiLab"))
                   (help    ("W tym miejscu naleûy wybraê partycjë, na którâ zainstalowany zostanie katalog z programem."))
                   (default ("dh0:"))
                )

   )

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

   (
   (set SPACE (getdiskspace DESTDIR))

   (
   if( < SPACE 600000) 
      (message ("\n\nUWAGA! Za maîo miejsca na twardym dysku aby dokonaê instalacji!"))
   )

   )

   (
   message ("\n\n\nPotwierdú chëê instalacji programu AmiLab na\n\n %s" DESTDIR)
   )

   (set @default-dest DESTDIR)

   (makedir (tackon DESTDIR "AmiLab") (infos))

   (
   copyfiles (source "AMILAB2:AmiLab")
             (dest (tackon DESTDIR "AmiLab"))
             (all)
             (prompt ("Kopiujë program oraz dane na dysk twardy"))
             (help (""))
   )

   (
   copyfiles (source "AMILAB2:fonts")
             (dest "SYS:fonts")
             (all)
             (prompt ("Kopiujë kroje liter programu AmiLab"))
             (help (""))
   )

   (
   copylib (source "AMILAB2:libs/reqtools.library")
                  (dest "SYS:libs")
                  (prompt ("Kopiujë bibliotekë reqtools"))
                  (confirm)
                  (help (""))  
                  (nogauge)
   )


   (
   copyfiles (source "AMILAB1:cir2")
             (dest (tackon DESTDIR "AmiLab"))
             (all)
             (prompt ("Kopiujë przykîadowe ukîady na dysk twardy"))
             (help (""))
   )

   (message ("Program zostaî zainstalowany!"))

)