home *** CD-ROM | disk | FTP | other *** search
/ Merciful 3 / Merciful_Release_3.bin / software / f / formula1managerv1.01.dms / formula1managerv1.01.adf / Install-F1 < prev    next >
Text File  |  1996-05-12  |  1KB  |  66 lines
  1. ; F1 Manager 1.0 Installer Script
  2. ; ©1996 Crystal Software
  3.  
  4. (set sourcepath @icon)
  5.  
  6. (set path
  7.     (askdir
  8.         (prompt "Where do you wish to install F1 manager?\nA \"F1_Man\" directory will be created.")
  9.         (help @askdir-help)
  10.         (default "Work:")
  11.     )
  12. )
  13.  
  14. (set devicename
  15.     (substr    path (- (strlen path) 1) 1)
  16. )
  17.  
  18. (set slash "")
  19.  
  20. (if (= devicename ":")
  21.     (set slash "")
  22.     (set slash "/")
  23. )
  24.  
  25. (set path
  26.     (cat path slash "F1_Man")
  27. )
  28. (makedir path
  29.   (prompt "Creating F1_Man directory....")
  30.   (help @makedir-help)  
  31.   (infos)
  32. )
  33. (complete 10)
  34. (copyfiles
  35.         (help @copyfiles-help)
  36.     (fonts)
  37.     (prompt "Copying Fonts....")
  38.     (source "\F1_fonts")
  39.     (dest "fonts:")
  40.     (all)
  41. )
  42. (complete 30)
  43. (copyfiles
  44.     (help @copyfiles-help)
  45.     (prompt "Copying data files....")
  46.     (source "")
  47.     (dest path)
  48.     (all)
  49. )
  50. (complete 90)
  51. (startup "F1MAN" 
  52.     (prompt "An assign needs to be added to your \"S:user-startup\"")
  53.     (help "No help for this function")
  54.     (command "Assign f1_man: " path)
  55. )
  56. (set @default-dest path)
  57. (complete 100)
  58. (exit
  59.     ("Enjoy using F1 Manager !\n")
  60.     (" Please mail any bugs or suggestions to the author at")
  61.     (" hea27584@heo.rhij.nl or write to me at\n")
  62.     (" Crystal Software\n")
  63.     (" Doornenburg 702\n")
  64.     (" 7423 BT  DEVENTER\n")
  65.     (" Holland")
  66. )