home *** CD-ROM | disk | FTP | other *** search
/ The AGA Experience 2 / agavol2.iso / software / diskmags / theword / theword#8 / hd_install.s < prev    next >
Text File  |  1978-03-13  |  3KB  |  98 lines
  1. Resident C:Assign
  2. Resident C:Copy
  3. Failat 21
  4.  
  5. Echo "*n             -------------------------------"
  6. Echo "              `The Word' issue 8 HD Install "
  7. Echo "             -------------------------------*n"
  8.  
  9. Ask "Proceed with Install (y/n)?"
  10.  
  11. If NOT WARN
  12.     Echo "Bye Bye dude..."
  13.     EndCLI >Nil:
  14. Endif
  15. Echo "Installing `The Word' to your Harddrive..."
  16. Echo "This script will create it's own drawer called `Word8'"
  17. Ask  "Press >Return< to set destination for `Word' drawer."
  18.  
  19. ;---------------------------------------------- Get Location for drawer.
  20. Echo >Env:Word.temp0 "Assign WORD: " NOLINE
  21. RequestFile >>Env:Word.temp0 DRAWER "SYS:" TITLE "Word Drawer Destination..." DRAWERSONLY
  22. Execute >Nil: Env:Word.temp0
  23. Delete >Nil: Env:Word.temp0
  24.  
  25. ;---------------------------------------------- Create drawer & icon.
  26. MakeDir WORD:Word8
  27. If Exists SYS:Prefs/Env-Archive/Sys/def_drawer.info
  28.     Copy SYS:Prefs/Env-Archive/Sys/def_drawer.info WORD:Word8.info
  29. Else
  30.     Copy NFA-TW8a:Files_1.info WORD:Word8.info
  31. Endif
  32.  
  33. ;---------------------------------------------- Copy files to WORD:
  34. Echo "*nCopying main file..."
  35. Copy >Nil: NFA-TW8a:TW8.exe#? WORD:Word8/
  36. Echo "Copying Articles from Disk 1..."
  37. Copy NFA-TW8a:Files_1#? ALL WORD:Word8/ QUIET
  38.  
  39. ;---------------------------------------------- Copy Fonts if necessary
  40. Echo "Checking Fonts..."
  41.  
  42. If Exists FONTS:WindsorDemi/60
  43.     Echo "  WindsorDemi font already found..."
  44. Else
  45.     Makedir FONTS:WindsorDemi
  46.     Copy >Nil: NFA-TW8a:Fonts/WindsorDemi#? FONTS: ALL
  47.     Echo "  Added WindsorDemi 60 font..."
  48. Endif
  49.  
  50. If Exists FONTS:Coop/24
  51.     Echo "  Coop font already found..."
  52. Else
  53.     Makedir FONTS:Coop
  54.     Copy >Nil: NFA-TW8a:Fonts/Coop#? FONTS: ALL
  55.     Echo "  Added Coop 24 font..."
  56. Endif
  57.  
  58. ;---------------------------------------------- Files from Disk 2
  59. Assign >Nil: NFA-TW8b: EXISTS
  60. If WARN
  61.     Echo "Insert disk 2 in any drive..."
  62. Endif
  63. ;------------------ Wait for disk
  64. lab DISK2
  65. Assign >Nil: NFA-TW8b: EXISTS
  66. If WARN
  67.     Skip DISK2 BACK
  68. Endif
  69.  
  70. Echo "Copying Articles from Disk 2..."
  71. Copy NFA-TW8b:Files_2#? ALL WORD:Word8/ QUIET
  72.  
  73. ;---------------------------------------------- Decrunch main file?
  74. If Exists C:XLD
  75.     Echo "You appear to have XLD in your C: directory, do you"
  76.     Ask  "want to try and decrunch the main file (y/n)?"
  77.     If WARN
  78.         Echo "Starting XLD..."
  79.         C:XLD WORD:Word8/TW8.exe
  80.     Endif
  81. Else
  82.     If Exists C:DLD
  83.         Echo "You appear to have DLD in your C: directory, do you"
  84.         Ask  "want to try and decrunch the main file (y/n)?"
  85.         If WARN
  86.             Echo "Starting DLD..."
  87.             C:DLD WORD:Word8/TW8.exe
  88.         Endif
  89.     Else
  90.         Echo "No Decrunchers Found..."
  91.     Endif
  92. Endif
  93.  
  94. Assign WORD: DISMOUNT
  95. Resident Assign REMOVE
  96. Resident Copy REMOVE
  97. Echo "Installation Complete!"
  98.