;
; Garshneblanker Removal Script $VER:Garshneblanker 38.1 (25.3.94)
;

(set oldUserLevel (user 3))
(message
 "\nWelcome to the Garshneblanker 3.0 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\nbaynemd@nextwork.rose-hulman.edu"
 )

(exit (quiet))