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

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 "Sie benötigen mindestens OS 2.0, um das Programm MultiIndicator zu nutzen.")
 )
)

(set programdir
 (askdir
  (prompt  "Wählen Sie das Verzeichnis aus, in welches dann das Programm MultiIndicator installiert wird.")
  (help    "")
  (default "SYS:")
  (newpath)
 )
)

(set @default-dest programdir)

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

(complete 42)

(if (= usage 0)
 (copyfiles
  (prompt  "Kopiere MultiIndicator-Hilfedatei nach ENVARC:MIndicator/...")
  (source  "/MI_D.help")
  (dest    "ENVARC:MIndicator")
  (newname "MI.help")
 )
 (copyfiles
  (prompt  "Kopiere MultiIndicator-Hilfedatei nach ENVARC:MIndicator/...")
  (source  "//MI_D.help")
  (dest    "ENVARC:MIndicator")
  (newname "MI.help")
 )
)

(if (= usage 0)
 (copyfiles
  (prompt  "Kopiere MultiIndicator-Hilfedatei nach ENV:MIndicator/...")
  (source  "/MI_D.help")
  (dest    "ENV:MIndicator")
  (newname "MI.help")
 )
 (copyfiles
  (prompt  "Kopiere MultiIndicator-Hilfedatei nach ENV:MIndicator/...")
  (source  "//MI_D.help")
  (dest    "ENV:MIndicator")
  (newname "MI.help")
 )
)

(complete 46)

(if (askbool
  (prompt "\n\nSoll das Guide zu MultiIndicator kopiert werden ?")
  (help   "")
 )
 (
  (set guidedir
   (askdir
    (prompt  "Wählen Sie das Verzeichnis aus, in welches dann das MultiIndicatorGuide kopiert wird.")
    (help    "")
    (default "SYS:")
    (newpath)
   )
  )

  (set @default-dest guidedir)

  (if (= usage 0)
   (
    (if (< version 40)
     (copyfiles
      (prompt  "Kopiere Guide zu MultiIndicator...")
      (source  "/Documents/OS2.x+3.0/MIndicator_D.guide")
      (infos)
      (dest guidedir)
      (newname "MIndicator.guide")
     )
     (copyfiles
      (prompt  "Kopiere Guide zu MultiIndicator...")
      (source  "/Documents/OS3.1/MIndicator_D.guide")
      (infos)
      (dest guidedir)
      (newname "MIndicator.guide")
     )
    )
   )
   (copyfiles
    (prompt  "Kopiere Guide zu MultiIndicator...")
    (source  "MIndicator_D.guide")
    (infos)
    (dest guidedir)
    (newname "MIndicator.guide")
   )
  )
 )
)

(set @default-dest programdir)

(complete 72)

(if (askbool
  (prompt "\n\nSoll das Dok zu MultiIndicator kopiert werden ?")
  (help   "")
 )
 (
  (set docdir
   (askdir
    (prompt  "Wählen Sie das Verzeichnis aus, in welches dann das MultiIndicatorDok kopiert wird.")
    (help    "")
    (default "SYS:")
    (newpath)
   )
  )

  (set @default-dest docdir)

  (if (= usage 0)
   (copyfiles
    (prompt  "Kopiere Dok zu MultiIndicator...")
    (source  "/Documents/OS2.x+3.0/MIndicator_D.dok")
    (infos)
    (dest docdir)
    (newname "MIndicator.dok")
   )
   (copyfiles
    (prompt  "Kopiere Dok zu MultiIndicator...")
    (source  "/OS2.x+3.0/MIndicator_D.dok")
    (infos)
    (dest docdir)
    (newname "MIndicator.dok")
   )
  )
 )
)

(set @default-dest programdir)

(complete 95)

(if (exists "Locale:Catalogs/Deutsch")
 (if (askbool
   (prompt "\n\nSoll der deutsche Katalog installiert werden ?")
   (help   "")
  )
  (
   (if (= usage 0)
    (copyfiles
     (prompt "Installiere deutschen Katalog für MultiIndicator...")
     (source "/Catalogs/Deutsch/MI.catalog")
     (dest   "Locale:Catalogs/Deutsch")
    )
    (copyfiles
     (prompt "Installiere deutschen Katalog für MultiIndicator...")
     (source "//Catalogs/Deutsch/MI.catalog")
     (dest   "Locale:Catalogs/Deutsch")
    )
   )
  )
 )
)

(complete 97)

(if (exists "Fonts:")
 (if (askbool
   (prompt "\n\nSoll der MIFont installiert werden ?")
   (help   "")
  )
  (
   (if (= usage 0)
    (copyfiles
     (prompt "Installiere MIFont...")
     (source "/MIFonts/MI.font")
     (dest   "Fonts:")
    )
    (copyfiles
     (prompt "Installiere MIFont...")
     (source "//MIFonts/MI.font")
     (dest   "Fonts:")
    )
   )
   (if (= usage 0)
    (copyfiles
     (prompt "Installiere MIFont...")
     (source "/MIFonts/MI/8")
     (dest   "Fonts:MI")
    )
    (copyfiles
     (prompt "Installiere MIFont...")
     (source "//MIFonts/MI/8")
     (dest   "Fonts:MI")
    )
   )
  )
 )
)

(complete 99)

(exit)