home *** CD-ROM | disk | FTP | other *** search
- (if (= @language "deutsch")
- (
- (SET Intro "Wilkommen zum Installer-Script für FreeSpace")
- (SET WBin "Wohin soll das Binary von FreeSpace hinkopiert werden ?")
- (SET Doc "Es existiert eine Anleitung zu FreeSpace. Soll diese kopiert werden ?")
- (SET WDoc "Wohin soll die Anleitung zu FreeSpace hinkopiert werden ?")
- )
- )
- (if (= @language "english")
- (
- (SET Intro "Welcome to the installer-script for FreeSpace")
- (SET WBin "Where do you want me to place the binary of FreeSpace ?")
- (SET Doc "There is a document for FreeSpace. Do you want to copy it ?")
- (SET WDoc "Where do you want to place the document for FreeSpace ?")
- )
- )
-
- (MESSAGE Intro)
-
- (SET BinDir
- (ASKDIR
- (PROMPT WBin)
- (HELP "")
- (DEFAULT "sys:")
- )
- )
-
- (COPYFILES
- (SOURCE ":DiskUtil/Info/FreeSpace/FreeSpace")
- (DEST BinDir)
- (INFOS)
- )
-
- (IF
- (ASKBOOL
- (PROMPT Doc)
- (HELP "")
- )
- (
- (SET DocDir
- (ASKDIR
- (PROMPT WDoc)
- (HELP "")
- (DEFAULT BinDir)
- )
- )
- (COPYFILES
- (SOURCE ":DiskUtil/Info/FreeSpace/FreeSpace.doc")
- (DEST DocDir)
- (INFOS)
- )
- )
- )
-
-