home *** CD-ROM | disk | FTP | other *** search
- ; Installation script for Notator-X 1.07
- ; $VER: Install-Notator-X (18th July 1993)
-
-
- ; some 'constants'
-
- (set app_volume_name_1 "Notator-X")
- (set app_volume_name_2 "NX_Utilities")
- (set app_volume_1 "Notator-X:")
- (set app_volume_2 "NX_Utilities:")
- (set orig_user_level @user-level)
-
- (user orig_user_level)
-
- ; tell average/expert user what we'll be doing
-
- (message
- "\nYour copy of Notator-X will be installed in a new drawer named "
- "\"Notator-X\". You will be asked where on your hard drive "
- "(or other storage device) you want this drawer created. In addition, "
- "some fonts and libraries will be installed into your system area."
- )
-
- ; ask user where to put the drawer
-
- (set app_locate
- (askdir
- (prompt "Please indicate where you want the Notator-X Drawer "
- "to be located.")
- (help @askdir-help)
- (default @default-dest)
- )
- )
-
- ; make the main drawer
-
- (set app_locate (tackon app_locate "Notator-X"))
-
- (makedir app_locate (infos))
-
- (set @default-dest app_locate)
-
- ; Copy any scores
- (copyfiles
- (source app_volume_2)
- (dest app_locate)
- (choices "Scores" "File_Format.doc" "Read_ME!.doc")
- (infos)
- )
-
- (complete 5)
-
- ; Ask the user to insert the Notator-X Program Disk
- (askdisk
- (prompt "Please insert the disk labeled \"Notator-X Program Disk\".")
- (help @askdisk-help)
- (dest app_volume_name_1)
- )
-
- ; Copy the Desert Software Library
- (copyfiles
- (source (tackon app_volume_1 "libs"))
- (dest "LIBS:")
- (choices "desertsoftware.library")
- )
-
- (complete 8)
-
- ; Copy the Fonts
- (copyfiles
- (source (tackon app_volume_1 "fonts"))
- (dest "FONTS:")
- (choices "DesertSoftware" "NX_TimesRoman")
- (fonts)
- )
-
- (complete 20)
-
- ; Copy all of the Notator-X Files
-
- (copyfiles
- (source app_volume_1)
- (dest app_locate)
- (choices "Notator-X")
- (infos)
- )
-
- (complete 60)
-
- (copyfiles
- (source app_volume_1)
- (dest app_locate)
- (choices "File_Formats")
- (infos)
- )
-
- (complete 80)
-
- (copyfiles
- (source app_volume_1)
- (dest app_locate)
- (choices "Notator-X_Data")
- (infos)
- )
-
- (complete 90)
-
- (copyfiles
- (source app_volume_1)
- (dest app_locate)
- (choices "NX_Modules")
- (infos)
- )
-
- (complete 100)
-
- (exit)
-