home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 1 / Mecomp-CD.iso / amiga / tools / cd / ide-fix / c / uninstall < prev    next >
Text File  |  1997-06-09  |  2KB  |  104 lines
  1. ;$VER: IDEfix UnInstall 48.2 (13.05.97)
  2. ;Copyright ©1993-1997 Elaborate Bytes, Oliver Kastl
  3.  
  4. (onerror
  5.     (makeassign "CacheCDFSInst" (safe))
  6.     (makeassign "CacheCDFS" (safe))
  7. )
  8.  
  9. (complete 0)
  10.  
  11. (makeassign "CacheCDFSInst" "" ( safe) )
  12.  
  13. (set #theirlevel @user-level )
  14.  
  15. (user 2)
  16.  
  17. (message "\nWelcome to the IDE-fix 97 uninstallation program!" )
  18.  
  19. (message "\n\nWARNING!!!!!\n\n"
  20.          "Click PROCEED only, if you wish to REMOVE IDE-fix '97 from your computer!" )
  21.  
  22.  
  23. (user #theirlevel)
  24.  
  25. (makeassign "CacheCDFS" "" (safe))
  26.  
  27. (set @default-dest "CacheCDFS:")
  28.  
  29. (working "\nRestoring old installation ..." )
  30.     
  31. (complete 10 )
  32.  
  33. (if ( run "BackupIDEfixInstall CacheCDFS:Backup" )
  34.     (
  35.     (abort)
  36.     )
  37. )
  38.  
  39. (complete 60 )
  40.  
  41. (working "\nDeleting current installation ..." )
  42.  
  43. (if ( run "delete <NIL: >NIL: CacheCDFS:#? all" )
  44.     (
  45.     (abort)
  46.     )
  47. )
  48.  
  49. (complete 80 )
  50.  
  51. (startup "CacheCDFS"
  52.     (prompt "\n\nRemoving IDEfix User Startup from the user-startup")
  53.     (help "\n\nRemoving IDEfix User Startup from the user-startup")
  54. )
  55.  
  56. (startup "MountLS120"
  57.     (prompt "\n\nRemoving MountLS120 from the user-startup")
  58.     (help "\n\nRemoving MountLS120 from the user-startup")
  59. )
  60.  
  61. (startup "ActivateCrossIDEfix"
  62.     (prompt "\n\nRemoving ActivateCrossIDEfix from the user-startup")
  63.     (help "\n\nRemoving ActivateCrossIDEfix from the user-startup")
  64. )
  65.  
  66. (makeassign "CacheCDFSInst" (safe))
  67. (makeassign "CacheCDFS" (safe))
  68.  
  69. (complete 90 )
  70.  
  71.     (if (exists "S:Startup-Sequence.std")
  72.         (
  73.         ( protect "S:Startup-Sequence.std" "-e +rwsd" )
  74.         (if (exists "S:Startup-Sequence")
  75.             (
  76.             ( protect "S:Startup-Sequence" "-e +rwsd" )
  77.             (delete "S:Startup-Sequence")
  78.             )
  79.         )
  80.         (rename "S:Startup-Sequence.std" "S:Startup-Sequence")
  81.         )
  82.     )
  83.  
  84.     (if (exists "C:KeyCheck")
  85.         (
  86.         (user 2)
  87.         (delete "C:KeyCheck" 
  88.             (help "Select \"Proceed\", if you want C:KeyCheck to be deleted.")
  89.             (prompt "\n\nDelete C:KeyCheck ?")
  90.             (confirm)
  91.         )
  92.         )
  93.     )
  94.  
  95. (user 2)
  96. (complete 100 )
  97. (message "\nWARNING:\n\n"
  98.             "Don't forget to remove any manually inserted \"LoadIDE\" "
  99.          "or \"IDEfix\" statements from your startup-sequence!" )
  100.  
  101. (message "\n\nIDE-fix '97 uninstalled!" )
  102.  
  103. (exit (quiet ))
  104.