home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Screenblanker / GBLAN.20.LHA / GBlanker / Remove < prev   
Encoding:
Text File  |  1994-10-19  |  1.6 KB  |  53 lines
  1. ;
  2. ; Garshneblanker Removal Script $VER:Garshneblanker 38.4 (18.10.94)
  3. ;
  4.  
  5. (set oldUserLevel (user 3))
  6. (message
  7.  "\nWelcome to the Garshneblanker 3.5 removal script.\n\n"
  8.  "This script will find out where you installed Garshneblanker and where you "
  9.  "installed the Garshneblanker modules. These are the same directories you "
  10.  "specified during the first two phases of installation. It will then remove "
  11.  "Garshneblanker from your system."
  12.  )
  13. (user oldUserLevel)
  14.  
  15. (set @default-loc "SYS:WBStartup")
  16.  
  17. (set @default-loc
  18.      (askdir
  19.       (prompt "Where is Garshneblanker installed?")
  20.       (help "The WBStartup directory on your boot disk is probably where it "
  21.             "was originally installed.")
  22.       (default @default-loc)
  23.       )
  24.      )
  25.  
  26. (delete (tackon @default-loc "Garshneblanker") (optional "force"))
  27. (delete (tackon @default-loc "Garshneblanker.info") (optional "force"))
  28.  
  29. (set @default-loc
  30.      (askdir
  31.       (prompt "Please select the directory that contains the 'Blankers' "
  32.               "directory (so if Garshneblanker was installed in SYS:WBStartup "
  33.               "and the blankers are in SYS:WBStartup/Blankers, then select "
  34.               "the directory SYS:WBStartup)")
  35.       (help "The WBStartup directory on your boot disk is probably where it "
  36.             "was originally installed.")
  37.       (default @default-loc)
  38.       )
  39.      )
  40.  
  41. (run "Delete %s ALL FORCE" (tackon @default-loc "Blankers"))
  42.  
  43. (delete "LIBS:Garshnelib.library" (optional "force"))
  44.  
  45. (user 3)
  46. (message
  47.  "\nThank you for trying out Garshneblanker. I hope that it met all of your "
  48.  "needs. If you have any questions or ideas for the furtherment of the "
  49.  "project, please feel free to e-mail me at:\n\nmbayne@qualcomm.com"
  50.  )
  51.  
  52. (exit (quiet))
  53.