home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaDemoCD1.iso / DEMOS / IO2-VEN1.DMS / in.adf / Install_Manipulations < prev    next >
Encoding:
Text File  |  1992-08-29  |  1.8 KB  |  81 lines
  1. ;
  2. ; $VER: MANIPULATIONS installer 1.0 (25.08.95)
  3. ;
  4. ; Copyright © 1995 Venus Art
  5. ;
  6.  
  7. ;****************************************************************************
  8.  
  9. (set @default-dest "")
  10.  
  11. (complete 0)
  12.  
  13. (welcome)
  14.  
  15. (message "\nMANIPULATIONS The Demo\n\n"
  16.         "Copyright © 1995 Venus Art\n"
  17.     "All Rights Reserved.\n\n"
  18.         "-----====================-----\n"
  19.         "Code: Noe, B.J.Sebo\n"
  20.         "Music: Voice\n"
  21.         "Gfx: Joseph, C.A.L.F., Juma\n"
  22.         "-----====================-----\n\n\n"
  23.         "This demo is contribution to iNTEL OUTSIDE II"
  24. )
  25.  
  26. ;****************************************************************************
  27.  
  28. (procedure GetMANDisk
  29.   (set MAN_disk
  30.     (askdir
  31.       (prompt "Select a directory for MANIPULATIONS drawer:")
  32.       (help "\n\n         MANIPULATIONS drawer required about\n"
  33.             "               1.6 Meg free disk space.")
  34.       (default "Demo:")
  35.     )
  36.   )
  37. )
  38.  
  39. (GetMANDisk)
  40.  
  41. (until (> (getdiskspace MAN_disk) 1677721)
  42.   (
  43.     (message "\n\n\nRequired about 1.6 Meg free disk space\n")
  44.     (GetMANDisk)
  45.   )
  46. )
  47.  
  48. (set MAN_drawer (tackon MAN_disk "MANIPULATIONS"))
  49.  
  50. (makedir MAN_drawer)
  51.  
  52. (copyfiles
  53.   (source "Manipulations.exe")
  54.   (dest MAN_drawer)
  55.   (infos)
  56. )
  57.  
  58. (copyfiles
  59.   (source "Manipulations")
  60.   (dest MAN_drawer)
  61.   (infos)
  62. )
  63.  
  64. (complete 30)
  65.  
  66. (working "\n\n\n\n\nPlease wait!\n\nCopy and join main file...")
  67.  
  68. (run (cat "Join >NIL: "
  69.           "\"MANIPULATIONS install disk 1:Manipulations.data1\" "
  70.           "\"MANIPULATIONS install disk 2:Manipulations.data2\" "
  71.           "AS="
  72.           (tackon MAN_drawer "Manipulations.data"))
  73. )
  74.  
  75. (run "Avail >NIL: FLUSH")
  76. (complete 100)
  77. (exit (cat "MANIPULATIONS The Demo exist in " MAN_drawer " drawer\n\n"
  78.            "To start demo run file Manipulations.exe\n"
  79.            "or click icon (if have more than 2.0 Meg RAM)!\n")
  80. )
  81.