World of A1200/World_Of_A1200.iso/programs/text/multiindicator/install/installmi_f

Text File | 1995-02-27 | 4KB | 224 lines

(complete 0)

(set versionnumber (getversion "exec.library" (resident)))
(set version (/ versionnumber 65536))

(set usage (exists "MIndicator_GB.guide" (noreq)))

(if (< version 37)
 (
  (abort "You need at least OS 2.0 to use MultiIndicator.")
 )
)

(set programdir
 (askdir
  (prompt  "Select the directory you want to install the program MultiIndicator.")
  (help    "")
  (default "SYS:")
  (newpath)
 )
)

(set @default-dest programdir)

(if (= usage 0)
 (copyfiles
  (prompt "Copying MultiIndicator-mainprogram...")
  (source "/MI")
  (infos)
  (dest programdir)
 )
 (copyfiles
  (prompt "Copying MultiIndicator-mainprogram...")
  (source "//MI")
  (infos)
  (dest programdir)
 )
)

(complete 42)

(if (= usage 0)
 (copyfiles
  (prompt  "Copying help to ENVARC:MIndicator/...")
  (source  "/MI_GB.help")
  (dest    "ENVARC:MIndicator")
  (newname "MI.help")
 )
 (copyfiles
  (prompt  "Copying help to ENVARC:MIndicator/...")
  (source  "//MI_GB.help")
  (dest    "ENVARC:MIndicator")
  (newname "MI.help")
 )
)

(if (= usage 0)
 (copyfiles
  (prompt  "Copying help to ENV:MIndicator/...")
  (source  "/MI_GB.help")
  (dest    "ENV:MIndicator")
  (newname "MI.help")
 )
 (copyfiles
  (prompt  "Copying help to ENV:MIndicator/...")
  (source  "//MI_GB.help")
  (dest    "ENV:MIndicator")
  (newname "MI.help")
 )
)

(complete 46)

(if (askbool
  (prompt "\n\nDo you want to copy the MultiIndicatorGuide ?")
  (help   "")
 )
 (
  (set guidedir
   (askdir
    (prompt  "Select the directory you want to copy the guide for MultiIndicator.")
    (help    "")
    (default "SYS:")
    (newpath)
   )
  )

  (set @default-dest guidedir)

  (if (= usage 0)
   (
    (if (< version 40)
     (copyfiles
      (prompt  "Copying MultiIndicatorGuide...")
      (source  "/Documents/OS2.x+3.0/MIndicator_GB.guide")
      (infos)
      (dest guidedir)
      (newname "MIndicator.guide")
     )
     (copyfiles
      (prompt  "Copying MultiIndicatorGuide...")
      (source  "/Documents/OS3.1/MIndicator_GB.guide")
      (infos)
      (dest guidedir)
      (newname "MIndicator.guide")
     )
    )
   )
   (copyfiles
    (prompt  "Copying MultiIndicatorGuide...")
    (source  "MIndicator_GB.guide")
    (infos)
    (dest guidedir)
    (newname "MIndicator.guide")
   )
  )
 )
)

(set @default-dest programdir)

(complete 72)

(if (askbool
  (prompt "\n\nDo you want to copy the MultiIndicatorDoc ?")
  (help   "")
 )
 (
  (set docdir
   (askdir
    (prompt  "Select the directory you want to copy the doc for MultiIndicator.")
    (help    "")
    (default "SYS:")
    (newpath)
   )
  )

  (set @default-dest docdir)

  (if (= usage 0)
   (copyfiles
    (prompt  "Copying MultiIndicatorDoc...")
    (source  "/Documents/OS2.x+3.0/MIndicator_GB.doc")
    (infos)
    (dest docdir)
    (newname "MIndicator.doc")
   )
   (copyfiles
    (prompt  "Copying MultiIndicatorDoc...")
    (source  "/OS2.x+3.0/MIndicator_GB.doc")
    (infos)
    (dest docdir)
    (newname "MIndicator.doc")
   )
  )
 )
)

(set @default-dest programdir)

(complete 95)

(if (exists "Locale:Catalogs/Français")
 (if (askbool
   (prompt "\n\nDo you want to install the french catalog ?")
   (help   "")
  )
  (
   (if (= usage 0)
    (copyfiles
     (prompt "Copying french catalog...")
     (source "/Catalogs/Français/MI.catalog")
     (dest   "Locale:Catalogs/Français")
    )
    (copyfiles
     (prompt "Copying french catalog...")
     (source "//Catalogs/Français/MI.catalog")
     (dest   "Locale:Catalogs/Français")
    )
   )
  )
 )
)

(complete 97)

(if (exists "Fonts:")
 (if (askbool
   (prompt "\n\nDo you want to install the MIFont ?")
   (help   "")
  )
  (
   (if (= usage 0)
    (copyfiles
     (prompt "Copying MIFont...")
     (source "/MIFonts/MI.font")
     (dest   "Fonts:")
    )
    (copyfiles
     (prompt "Copying MIFont...")
     (source "//MIFonts/MI.font")
     (dest   "Fonts:")
    )
   )
   (if (= usage 0)
    (copyfiles
     (prompt "Copying MIFont...")
     (source "/MIFonts/MI/8")
     (dest   "Fonts:MI")
    )
    (copyfiles
     (prompt "Copying MIFont...")
     (source "//MIFonts/MI/8")
     (dest   "Fonts:MI")
    )
   )
  )
 )
)

(complete 99)

(exit)