home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / CDRom / IDEFIX97.LHA / IDE-fix / c / UnInstall < prev   
Encoding:
Text File  |  1997-03-05  |  1.9 KB  |  99 lines
  1. ;$VER: IDEfix UnInstall 48.1 (24.02.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. (makeassign "CacheCDFSInst" (safe))
  62. (makeassign "CacheCDFS" (safe))
  63.  
  64. (complete 90 )
  65.  
  66.     (if (exists "S:Startup-Sequence.std")
  67.         (
  68.         ( protect "S:Startup-Sequence.std" "-e +rwsd" )
  69.         (if (exists "S:Startup-Sequence")
  70.             (
  71.             ( protect "S:Startup-Sequence" "-e +rwsd" )
  72.             (delete "S:Startup-Sequence")
  73.             )
  74.         )
  75.         (rename "S:Startup-Sequence.std" "S:Startup-Sequence")
  76.         )
  77.     )
  78.  
  79.     (if (exists "C:KeyCheck")
  80.         (
  81.         (user 2)
  82.         (delete "C:KeyCheck" 
  83.             (help "Select \"Proceed\", if you want C:KeyCheck to be deleted.")
  84.             (prompt "\n\nDelete C:KeyCheck ?")
  85.             (confirm)
  86.         )
  87.         )
  88.     )
  89.  
  90. (user 2)
  91. (complete 100 )
  92. (message "\nWARNING:\n\n"
  93.             "Don't forget to remove any manually inserted \"LoadIDE\" "
  94.          "or \"IDEfix\" statements from your startup-sequence!" )
  95.  
  96. (message "\n\nIDE-fix '97 uninstalled!" )
  97.  
  98. (exit (quiet ))
  99.