home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / CDRom / i-iso124.lha / Install-MasterISO < prev    next >
Encoding:
Text File  |  1996-10-07  |  2.1 KB  |  89 lines
  1. ;$VER: MasterISO Install 1.0 (23.8.94) 
  2. ;Copyright ©1994 Asimware Innovations
  3.  
  4. (onerror (makeassign "MasterISOInst") )
  5.  
  6. (set #wbversion (getversion "libs:version.library"))
  7. (set #wbversion (/ #wbversion 65536) )
  8.  
  9. (set @default-dest "SYS:MasterISO")
  10.  
  11. (complete 0)
  12.  
  13. (if (< #wbversion 39)
  14.     (abort "\n\nAmigaDOS 3.0 or higher is required for MasterISO. "
  15.              "\n\nAn upgrade will be needed for your Amiga."
  16.              "\n\nYou are currently running version " #wbversion ".")
  17. )
  18.  
  19.  
  20. (if (< (getdiskspace "SYS:") 92160)
  21.     (abort "\n\nApproximately 90K of disk space is needed on your SYS: volume."
  22.              "\n\nYou only have " (/ (getdiskspace "SYS:") 1024)    "K free.\n\n"
  23.              "Delete or transfer some files from the SYS: volume and try again." )
  24. )
  25.  
  26. (askdisk
  27.     (prompt "Please insert the disk labeled \"MasterISO\".")
  28.     (help    "The MasterISO program will be copied "
  29.             "from this disk into your system.")
  30.     (dest  "MasterISO")
  31.     (newname "MasterISOInst")
  32. )
  33.  
  34.  
  35.  
  36. (set #MasterISODir
  37.     (askdir
  38.         (prompt "Specify the directory in which the MasterISO program will be placed:" )
  39.         (help "MasterISO will be placed in the directory specified.")
  40.         (default @default-dest)
  41.         (newpath)
  42.     )
  43. )
  44.  
  45. (if (not (exists #MasterISODir (noreq)))
  46.     (makedir #MasterISODir
  47.         (prompt "Creating the MasterISO directory...")
  48.         (help "This will create the specified directory for the program.")
  49.         (infos)
  50.         )
  51. )
  52. (makeassign "MasterISO_Dest" #MasterISODir)
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59. (set #instMasterISO
  60.     (askbool
  61.         (prompt "\n\nShould MasterISO be installed?")
  62.         (help "\n\nThis will copy over the MasterISO program "
  63.                 "to the " #MasterISODir " directory\n\nIf you do not "
  64.                 "wish the MasterISO program to be transferred to your system, "
  65.                 "skip this step.\n" )
  66.         (default 1)
  67.     )
  68. )
  69.  
  70. (if #instMasterISO 
  71.     ((protect "MasterISO_Dest:MasterISO" "rwed" )
  72.     (protect "MasterISO_Dest:MasterISO.info" "rwed" )
  73.     (copyfiles
  74.         (prompt "\n\nCopying the MasterISO program to the "
  75.                   #MasterISODir " directory.\n" )
  76.         (source "MasterISOInst:MasterISO")
  77.         (dest "MasterISO_Dest:")
  78.         (infos)
  79.         (help "\n\nThis will copy over the MasterISO program"
  80.                 "to your"  #MasterISODir " directory.\n" )
  81.         (confirm)
  82.     )
  83. ))
  84.  
  85.  
  86.  
  87. (makeassign "MasterISOInst")
  88. (makeassign "MasterISO_Dest")
  89.