home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #6
/
amigamamagazinepolishissue1998.iso
/
nieuûytki
/
amipc
/
amipc_biback_v1.1
/
68020+
/
install_68020+
< prev
next >
Wrap
Text File
|
1996-11-17
|
3KB
|
151 lines
;
; $VER: AmiPC BiBack 68020+ 1.1 (17.11.96) Lejardinier Olivier
;
;***************************************************************************;
;
; Common Texts
;
;
(set #product-infos
(cat "\n"
"AmiPC BiBack v1.1 (15.11.96) SHAREWARE, DEMO VERSION"
"\n\n"
"The Ultimate Multi-OS Backup System"
"\n\n"
"Copyright © 1996 Lejardinier Olivier"
"\n"
"All Rights Reserved"
"\n\n"
))
;***************************************************************************;
;
; English Texts
;
;
(set #bad-amigados-version
(cat "\n"
"Sorry, this program required AmigaDOS v2.0 or above (v37+)."
))
(set #bad-processor-version
(cat "\n"
"Sorry, this program required a 68020 or higher."
))
(set #update-infos
(cat "This script install a 68020 or higher version of the AmiPC BiBack main program."
))
(set #ask-product-path
(cat "\n"
"Where did you have installed 'AmiPC' main program ?"
"\n"
))
(set #no-product
(cat "The selected directory does not contained 'AmiPC' main program !"
))
(set #updating-program
(cat "Please wait, updating program..."
))
;***************************************************************************;
;
; French Texts
;
;
(if (= @language "français")
(
(set #bad-amigados-version
(cat "\n"
"Désolé, l'AmigaDOS 2.0 ou supérieur est nécessaire pour utiliser ce programme"
))
(set #bad-processor-version
(cat "\n"
"Désolé, un processeur 68020 ou supérieur est nécessaire pour utiliser ce programme"
))
(set #update-infos
(cat "Ce script installe une version pour processeur 68020 ou supérieur du programme principal d'AmiPC BiBack"
))
(set #ask-product-path
(cat "\n"
"Où avez-vous installé le programme principal 'AmiPC' ?"
"\n"
))
(set #no-product
(cat "Le répertoire sélectionné ne contient pas le programme principal 'AmiPC' !"
))
(set #updating-program
(cat "Patientez SVP, mise à jour du programme..."
))
))
;***************************************************************************
(complete 0)
(set #amigados-version (/ (getversion) 65536))
(if (< #amigados-version 37)
(abort #bad-amigados-version)
)
(set #cpu-version (database "cpu"))
(if (<= #cpu-version 68010)
(abort #bad-processeur-version)
)
(message
(cat #product-infos
#update-infos
)
)
(set #product-path
(askdir
(prompt #ask-product-path)
(help @askdir-help)
(default (expandpath "/"))
)
)
(complete 33)
(if (exists (tackon #product-path "AmiPC"))
(
(set #main-program-path (tackon #product-path "AmiPC"))
(working #updating-program)
(run ("Copy FROM %s TO %s.68000 QUIET" #main-program-path #main-program-path))
(run ("spatch -o%s -pAmiPC_68020+.pch %s" #main-program-path #main-program-path))
(complete 66)
)
(abort #no-product)
)
(complete 100)
(set @default-dest #product-path)
(exit)