home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / GED411U.LHA / ged411u / Install < prev    next >
Encoding:
Text File  |  1996-08-24  |  1.7 KB  |  66 lines
  1. ; $VER: 5
  2.  
  3. (delopts "oknodelete" "force" "askuser")
  4. (complete 0)
  5.  
  6. (if (exists "GOLDED:" (NOREQ))
  7.  
  8.     (
  9.         (set vernum (getversion "golded:golded"))
  10.  
  11.         (set ver (/ vernum 65536))
  12.         (set rev (- vernum (* ver 65536)))
  13.  
  14.         (set version (+ (* 10 ver) rev))
  15.  
  16.         (if (< version 41)
  17.  
  18.             (
  19.                 (message "\nSorry, GoldED Release 4.1.0 or better required")
  20.                 (exit (quiet))
  21.             )
  22.         )
  23.  
  24.         (message (cat "\n"
  25.  
  26.             "GoldED 4 ╖ Programmer's Editor                    \n"
  27.             "All Rights Reserved.                              \n"
  28.             "                                                  \n"
  29.             "Upgrades GoldED 4.1.x to GoldED 4.1.1             \n"
  30.             "                                                  \n"
  31.             "GoldED ⌐1995, 1996 Dietmar Eilert                 \n"
  32.             "Reqtools ⌐1991-1995 Nico Franτois                 \n"
  33.             "                                                  \n"
  34.             "GoldED is not freely distributable. Please read   \n"
  35.             "the licence file before you install GoldED;       \n"
  36.             "installing this software means accepting the      \n"
  37.             "licence. Thank you.                               \n"
  38.         ))
  39.  
  40.         (copyfiles
  41.  
  42.             (source  "golded" )
  43.             (dest    "golded:")
  44.             (infos)
  45.             (all)
  46.             (nogauge)
  47.         )
  48.  
  49.         (delete "golded:.info")
  50.  
  51.         (complete 100)
  52.  
  53.         (message "\nInstallation complete.")
  54.     )
  55.  
  56.     (message (cat "\n"
  57.  
  58.         "Please install GoldED before attempting to\n"
  59.         "install this client.                      \n"
  60.     ))
  61. )
  62.  
  63. (exit (quiet))
  64.  
  65. (welcome)
  66.