home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The AGA Experience 2
/
agavol2.iso
/
software
/
demos
/
a-c
/
corona
/
demoinstall
< prev
next >
Wrap
Text File
|
1995-12-26
|
1KB
|
73 lines
; Define some global variables
(set Disk1 "DISK1:") ; Installation referenced by Disk1 and Disk2
(set Disk2 "DISK2:")
(set Disk3 "DISK3:")
(set ask-install-nodir "(Select directory.(doesn't create directory)\n" )
(message "\nThis is a installation script for 'Corona' "
"and it will Install the 'Corona' demo to "
"wherever you want it to be installed. (HD!) "
"\n\n'Corona requires a minimum of 2mb CHIP and "
"fast. "
)
; set the path where2install the Demo...
(set DestPath
(askdir
(prompt "\nPlease select where you want the 'Corona'"
"to be installed "
ask-install-nodir
)
(help "'Corona' consists of several files that are "
"required to run the demo, these files must always "
"be in the same drawer as the mainprogram.\n\n "
)
(default "HD0:")
)
)
(copyfiles
(source (tackon Disk1 ""))
(dest DestPath)
(pattern "#?")
(files)
(optional "nofail" "askuser")
)
(message "\nINSERT DISK 2 (DISK2:) "
)
(copyfiles
(source (tackon Disk2 ""))
(dest DestPath)
(pattern "#?")
(files)
(optional "nofail" "askuser")
)
(message "\nINSERT DISK 3 (DISK3:) "
)
(copyfiles
(source (tackon Disk3 ""))
(dest DestPath)
(pattern "#?")
(files)
(optional "nofail" "askuser")
)
(message "\n'Corona' should be run from shell/CLI and "
"from the directory it was installed to..."
)