;; -*- lisp -*-
;; Garshneblanker Removal Script $VER:Garshneblanker 38.4 (18.10.94)
;;

(set oldUserLevel (user 3))
(message
 "\nWelcome to the Garshneblanker removal script.\n\n"
 "This script will find out where you installed Garshneblanker and where you "
 "installed the Garshneblanker modules. These are the same directories you "
 "specified during the first two phases of installation. It will then remove "
 "Garshneblanker from your system."
 )
(user oldUserLevel)

(set @default-loc "SYS:WBStartup")

(set @default-loc
	 (askdir
	  (prompt "Where is Garshneblanker installed?")
	  (help "The WBStartup directory on your boot disk is probably where it "
			"was originally installed.")
	  (default @default-loc)
	  )
	 )

(delete (tackon @default-loc "Garshneblanker") (optional "force"))
(delete (tackon @default-loc "Garshneblanker.info") (optional "force"))

(set @default-loc
	 (askdir
	  (prompt "Please select the directory that contains the 'Blankers' "
			  "directory (so if Garshneblanker was installed in SYS:WBStartup "
			  "and the blankers are in SYS:WBStartup/Blankers, then select "
			  "the directory SYS:WBStartup)")
	  (help "The WBStartup directory on your boot volume is probably where it "
			"was originally installed.")
	  (default @default-loc)
	  )
	 )

(run "Delete %s ALL FORCE" (tackon @default-loc "Blankers"))

(delete "LIBS:Garshnelib.library" (optional "force"))
(delete "ENV:BLANKER" (optional "force"))
(delete "ENVARC:BLANKER" (optional "force"))
(delete "ENV:GBLANKER.win" (optional "force"))
(delete "ENVARC:GBLANKER.win" (optional "force"))

(user 3)
(message
 "\nThank you for trying out Garshneblanker. I hope that it met all of your "
 "needs. If you have any questions or ideas for the furtherment of the "
 "project, please feel free to e-mail me at:\n\nmbayne@qualcomm.com"
 )

(exit (quiet))