home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Utilities / Disk / AmiPC_BiBack_v1.26_DEMO / Version PC / Install_on_PC_disk < prev    next >
Encoding:
Text File  |  1998-06-24  |  4.0 KB  |  206 lines
  1. ;
  2. ;  $VER: AmiPC BiBack DEMO PC Install 1.26 (30.03.97) Lejardinier Olivier
  3. ;
  4.  
  5. ;***************************************************************************;
  6.  
  7. ;
  8. ; Common Texts
  9. ;
  10. ;
  11.  
  12. (set #product-infos
  13. (cat "\n"
  14.      "AmiPC BiBack DEMO 1.26 (30.03.97)"
  15.      "\n"
  16.      "The Ultimate Multi-OS Backup System"
  17.      "\n"
  18.      "Copyright © 1996-97 Maymat Philippe"
  19.      "\n"
  20.      "All Rights Reserved"
  21.      "\n"
  22. ))
  23.  
  24. ;***************************************************************************;
  25.  
  26. ;
  27. ; English Texts
  28. ;
  29. ;
  30.  
  31. (set #install-infos
  32. (cat "This script install the PC version of AmiPC BiBack DEMO on a PC disk"
  33.      "\n\n"
  34.      "*WARNING* : You must disabled the 'Text filtering & translation' features of 'CrossDOS' "
  35.      "program before installing the PC version on a PC disk. You can simply quit 'CrossDOS'."
  36. ))
  37.  
  38. (set #ask-format-type
  39. (cat "\nSelect format type :\n"
  40. ))
  41.  
  42. (set #format-type-FULL
  43. (cat "FULL : Any kind of disk."
  44. ))
  45.  
  46. (set #format-type-QUICK
  47. (cat "QUICK  : Pre-formated MS-DOS PC disk."
  48. ))
  49.  
  50. (set #insert-disk
  51. (cat "\n"
  52.      "Please insert any disk in drive 'PC0:'"
  53. ))
  54.  
  55. (set #Format-Install
  56. (cat "Format & Install"
  57. ))
  58.  
  59. (set #abort
  60. (cat "Abort"
  61. ))
  62.  
  63. (set #formating-disk
  64. (cat "Please wait, formating disk..."
  65. ))
  66.  
  67. (set #format-error
  68. (cat "An error occured during disk formating..."
  69. ))
  70.  
  71. (set #unarchiving
  72. (cat "Please wait, unarching program to PC disk..."
  73. ))
  74.  
  75. (set #unarchiving-error
  76. (cat "An error occured during program unarchiving to PC disk..."
  77. ))
  78.  
  79. ;***************************************************************************;
  80.  
  81. ;
  82. ; French Texts
  83. ;
  84. ;
  85.  
  86. (if (= @language "français")
  87. (
  88.  (set #install-infos
  89.  (cat "Ce script installe la version PC d'AmiPC BiBack DEMO sur une disquette PC"
  90.       "\n\n"
  91.       "*ATTENTION* : Vous devez désactiver le 'filtrage et conversion de texte' du programme "
  92.       "'CrossDOS' avant d'installer la version PC sur une disquette PC. Le plus simple "
  93.       "est de quitter le programme 'CrossDOS'."
  94.  ))
  95.  
  96.  (set #ask-format-type
  97.  (cat "\nSélectionnez un type de formatage :\n"
  98.  ))
  99.  
  100.  (set #format-type-FULL
  101.  (cat "COMPLET : N'importe quel type de disquette."
  102.  ))
  103.  
  104.  (set #format-type-QUICK
  105.  (cat "RAPIDE  : Disquette PC pré-formatée MS-DOS."
  106.  ))
  107.  
  108.  (set #format-install
  109.  (cat "Formater & Installer"
  110.  ))
  111.  
  112.  (set #abort
  113.  (cat "Abandonner"
  114.  ))
  115.  
  116.  (set #insert-disk
  117.  (cat "\n"
  118.       "Insérez SVP une disquette dans le lecteur 'PC0:'"
  119.  ))
  120.  
  121.  (set #formating-disk
  122.  (cat "Patientez SVP, formatage de la disquette..."
  123.  ))
  124.  
  125.  (set #format-error
  126.  (cat "Une erreur est survenue pendant le formatage de la disquette..."
  127.  ))
  128.  
  129.  (set #unarchiving
  130.  (cat "Patientez SVP, désarchivage du programme sur la disquette PC..."
  131.  ))
  132.  
  133.  (set #unarching-error
  134.  (cat "Une erreur est survenue pendant le désarchivage du programme sur la disquette PC..."
  135.  ))
  136.  
  137. )
  138. )
  139.  
  140. ;***************************************************************************;
  141.  
  142.  (complete 0)
  143.  
  144.  (message
  145.   (cat #product-infos
  146.        "\n"
  147.        #install-infos
  148.   )
  149.  )
  150.  
  151.  (set #format-type (select (askchoice
  152.                             (prompt #ask-format-type)
  153.                             (help @askchoice-help)
  154.                             (choices #format-type-FULL #format-type-QUICK)
  155.                             (default 0)
  156.                            ) "" "QUICK"
  157.                    )
  158.  )
  159.  
  160.  (if (askbool
  161.       (prompt #insert-disk)
  162.       (help #askbool-help)
  163.       (choices #format-install
  164.                #abort
  165.       )
  166.      )
  167.   (
  168.    (working #formating-disk )
  169.    
  170.    (if (run ("SYS:System/Format DRIVE PC0: NAME AmiPC NOICONS %s" #format-type))
  171.     (abort #format-error)
  172.     (
  173.      (complete 33)
  174.  
  175.      (if (copyfiles
  176.           (source "")
  177.           (choices "LhEx" "AMIPC_DEMO.LHA")
  178.           (dest "RAM:")
  179.          )
  180.       (
  181.        (complete 66)
  182.  
  183.        (working #unarchiving)
  184.       
  185.        (set #error (run "RAM:LhEx -fqwPC0: x RAM:AMIPC_DEMO.LHA"))
  186.        
  187.        (delete "RAM:AMIPC_DEMO.LHA")
  188.        (delete "RAM:LhEx")
  189.  
  190.        (if #error
  191.         (abort #unarchiving-error)
  192.         (
  193.          (complete 100)
  194.          (set @default-dest "AmiPC:")
  195.         )
  196.        )
  197.       )
  198.      )
  199.     )
  200.    )
  201.   )
  202.  )
  203.  
  204.  (exit)
  205.  
  206.