((set name
    ( askdir
      (prompt ( cat "Where do you want to install My Friend"
                "DarkRoom (2,2MB) ?\n(A new directory named \"KSS-SLIDE\""
                " will be created)."
        ))
      (help @askdir-help)
      (disk)
       (default "SYS:")
     )
))
(set name (tackon  name "KSS-SLIDE" ))
(message ( cat "I'm going to copy the slide in \n"
                 name
                "\n Okay ? "
))

(makedir name
    (help @makedir-help)
    (infos)
)
(complete 1)
(copyfiles
    (prompt "Copying files from disk 1")
    (source "KSS-SLIDE-1:")
    (pattern "#?")
    (files)
    (infos)
    (dest name)
    (help @copyfiles-help)
)
(complete 33)
(copyfiles
    (prompt "Copying file from disk 2")
    (source "KSS-SLIDE-2:KSSDATA2")
    (dest name)
    (help @copyfiles-help)
)
(complete 66)
(copyfiles
    (prompt "Copying file from disk 3")
    (source "KSS-SLIDE-3:KSSDATA3")
    (dest name)
    (help @copyfiles-help)
)
(complete 99)
(copylib
    (   prompt "Copying CrM.library V4 to LIBS: .")
    (   source "KSS-SLIDE-1:libs/CrM.library")
    (   dest   "LIBS:")
   (help @copylib-help)
    (confirm)
)
(delete Effacer
)
(set Effacer (tackon name  "installsl#?" ))
(delete Effacer)
(textfile
        (dest (tackon name "Slide !"))
        (append (cat
                (cat "assign KSS-SLIDE-1: " name)
                (cat "\nassign KSS-SLIDE-2: " name)
                (cat "\nassign KSS-SLIDE-3: " name)
                "\ncd KSS-SLIDE-1:"
                "\nKSS-SLIDE"
                "\nassign KSS-SLIDE-1: REMOVE"
                "\nassign KSS-SLIDE-2: REMOVE"
                "\nassign KSS-SLIDE-3: REMOVE"
                ))
)
(protect (tackon name "slide !")
        "+s +r +e +w +d"
)
(rename (tackon name "Slide !.inf") (tackon name "slide !.info"))
(complete 100)
(exit
    " Bye. See you next slide !!!"
    "\n\n "
   "(Remove the slide-disks from diskdrive before launching the show.)"
)
