;
; $VER: MANIPULATIONS installer 1.0 (25.08.95)
;
; Copyright © 1995 Venus Art
;

;****************************************************************************

(set @default-dest "")

(complete 0)

(welcome)

(message "\nMANIPULATIONS The Demo\n\n"
        "Copyright © 1995 Venus Art\n"
	"All Rights Reserved.\n\n"
        "-----====================-----\n"
        "Code: Noe, B.J.Sebo\n"
        "Music: Voice\n"
        "Gfx: Joseph, C.A.L.F., Juma\n"
        "-----====================-----\n\n\n"
        "This demo is contribution to iNTEL OUTSIDE II"
)

;****************************************************************************

(procedure GetMANDisk
  (set MAN_disk
    (askdir
      (prompt "Select a directory for MANIPULATIONS drawer:")
      (help "\n\n         MANIPULATIONS drawer required about\n"
            "               1.6 Meg free disk space.")
      (default "Demo:")
    )
  )
)

(GetMANDisk)

(until (> (getdiskspace MAN_disk) 1677721)
  (
    (message "\n\n\nRequired about 1.6 Meg free disk space\n")
    (GetMANDisk)
  )
)

(set MAN_drawer (tackon MAN_disk "MANIPULATIONS"))

(makedir MAN_drawer)

(copyfiles
  (source "Manipulations.exe")
  (dest MAN_drawer)
  (infos)
)

(copyfiles
  (source "Manipulations")
  (dest MAN_drawer)
  (infos)
)

(complete 30)

(working "\n\n\n\n\nPlease wait!\n\nCopy and join main file...")

(run (cat "Join >NIL: "
          "\"MANIPULATIONS install disk 1:Manipulations.data1\" "
          "\"MANIPULATIONS install disk 2:Manipulations.data2\" "
          "AS="
          (tackon MAN_drawer "Manipulations.data"))
)

(run "Avail >NIL: FLUSH")
(complete 100)
(exit (cat "MANIPULATIONS The Demo exist in " MAN_drawer " drawer\n\n"
           "To start demo run file Manipulations.exe\n"
           "or click icon (if have more than 2.0 Meg RAM)!\n")
)