;
;  $VER: AmiPC BiBack PC Install 1.0 (12.11.96)
;

;***************************************************************************;

;
; English Texts
;
;

(set #install-infos
(cat "\n"
     "This script install the PC version of AmiPC BiBack on a PC disk"
))

(set #insert-disk
(cat "\n"
     "Please insert any disk in drive 'PC0:'"
))

(set #no-disk
(cat "Error : No disk has been inserted in drive 'PC0:' !!"
))

(set #formating-disk
(cat "Please wait, formating disk..."
))

(set #unarchiving
(cat "Please wait, unarching program to PC disk..."
))

;***************************************************************************;

;
; French Texts
;
;

(if (= @language "français")
(
 (set #install-infos
 (cat "\n"
      "Ce script installe la version PC d'AmiPC BiBack sur une disquette PC"
 ))

 (set #insert-disk
 (cat "\n"
      "Insérez SVP une disquette dans le lecteur 'PC0:'"
 ))

 (set #no-disk
 (cat "Erreur : Aucun disque n'a été insérer dans le lecteur 'PC0:' !!"
 ))

 (set #formating-disk
 (cat "Patientez SVP, formatage du disque..."
 ))

 (set #unarching
 (cat "Patientez SVP, désarchivage du programme sur le disque PC..."
 ))

))

;***************************************************************************;

 (complete 0)
 
 (message #install-infos)
 
 (if (askbool
      (prompt #insert-disk)
      (help "")
      (choices "Format & Install"
               "Abort"
      )
     )
 (
  (if (exists "PC0:")
  (
   (working #formating-disk )
 
   (run "SYS:System/Format DRIVE PC0: NAME AmiPC NOICONS")
  
   (working #unarchiving)
  
   (run "LhEx -fqwPC0: x AMIPC.LHA")
 
   (set @default-dest "AmiPC:")
  )
  (abort #no-disk)
  )
 ))
 
 (exit)