; Installer script for RamSnap © 1997 by Nick Ryan

(set @default-dest "SYS:Utilities/RamSnap/")

(welcome)

(askdir
   (prompt  "Select where you want to Install RamSnap. A Directory 'RamSnap' will be created there")
   (help    @askdir-help)
   (default @default-dest)
)

(makedir @default-dest
   (infos)
)

(copyfiles
   (prompt  "Copying RamSnap")
   (help    @copyfiles-help)
   (source  "RamSnap")
   (dest    @default-dest)
)

(copyfiles
   (prompt  "Copying RamSnap.Guide")
   (help    @copyfiles-help)
   (source  "RamSnap.Guide")
   (dest    @default-dest)
   (confirm)
)

(copyfiles
   (prompt  "Copying RamSnap.Guide.info")
   (help    @copyfiles-help)
   (source  "RamSnap.Guide.info")
   (dest    @default-dest)
   (confirm)
)

(set #RSName
   (cat
     "run >NIL: "
     (tackon @default-dest "RamSnap")
   )
)

(startup "RamSnap"
   (prompt  "Inserting the RamSnap Command into the User-Startup Sequence")
   (help    @startup-help)
   (confirm)
   (command #RSNAME)
)

(set #RSResult
   (run #RSName
      (prompt  "Would you like to start RamSnap now?")
      (help    @run-help)
      (confirm)
   )
)