;
; Garshneblanker Removal Script $VER:Garshneblanker 38.3 (28.6.94)
;

(set oldUserLevel (user 3))
(message
 "\nWelcome to the Garshneblanker 3.3 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 disk is probably where it was originally "
			"installed.")
	  (default @default-loc)
	  )
	 )

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

(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))