home *** CD-ROM | disk | FTP | other *** search
- ; $VER: Notator-X Install system files onto a system disk. 15th Feb. '94
-
- (user 2)
-
- (message "\nThis program will copy the necessary Notator-X system files "
- "from the program disk on to the disk you booted the system with. "
- "This will then allow Notator-X to work when the system was booted "
- "using a different disk. Eg: A copy of the Workbench.\n\n"
- "NOTE: 50K of free disk space must be available on the system disk."
- )
-
- ; 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 "Notator-X")
- )
-
- (complete 50)
-
- ; Copy the Desert Software Library
- (copyfiles
- (source (tackon "Notator-X:" "libs"))
- (dest (tackon "SYS:" "libs"))
- (choices "desertsoftware.library")
- )
-
- (complete 70)
-
- ; Copy the Desert Software Fonts
- (copyfiles
- (source (tackon "Notator-X:" "fonts"))
- (dest (tackon "SYS:" "fonts"))
- (choices "DesertSoftware")
- (fonts)
- )
-
- (complete 90)
-
- ; Copy the Notator-X Times Roman font
- (copyfiles
- (source (tackon "Notator-X:" "fonts"))
- (dest (tackon "SYS:" "fonts"))
- (choices "NX_TimesRoman")
- (fonts)
- )
-
-
- (complete 100)
-
- (exit)
-