home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 1: Amiga
/
FrozenFish-Apr94.iso
/
bbs
/
alib
/
d8xx
/
d862
/
phonelist.lha
/
PhoneList
/
install-pl
next >
Wrap
Text File
|
1993-04-14
|
1KB
|
60 lines
(complete 0)
(set @default-dest "" )
(set version (/ (getversion) 65536))
(set version2 36)
; install
(set dest2 (askdir (prompt "Choose destination dir/drive to install :")
(default @default-dest)
(help "\n\n 'PHONELIST' will be copied to dir/drive\n"
" of your choice !\n"
)
)
)
(message "\n\n'PHONELIST' will be installed in "
dest2 )
(set error (trap 4
(copyfiles (source "phonelist:pl") (dest dest2) )
(complete 20 )
(copyfiles (source "phonelist:pl.info") (dest dest2) )
(complete 40 )
))
(if (> error 0)
(
( message ("\n\nDos Error %ld " @ioerr));
(abort("Cannot continue !"))
))
(set error (trap 4
(set dest1 (tackon dest2 "libs"))
( makedir ( dest1 ) (safe))
( copyfiles (source "phonelist:libs/intuisupport.library")
( dest dest1 ) )
( complete 100 )
))
(if (> error 0)
(
( message ("\n\nDos Error %ld " @ioerr));
(abort("Cannot continue !"))
))
( message ("\n\nPlease be shure to have\n\n '%s'\n\n" dest2 )
"added to your current path and your\n 'startup-sequence'\n"
"contains a command like\n\n"
("'setenv PL_FILES %s'\n\n" dest2 )
"before you start !"
)