;HDPP UnInstaller

(complete 0)
(message "Welcome to the HDPP UnInstall program\n\n"
         "This program is automatic and the only input required from you "
         "is the place where HDPP is currently installed.\n"
         "The program will then delete that directory, and delete the "
         "Prefs program from SYS:Prefs. Finally, it will remove the "
         "LoadWB script that was installed and replace it with the "
         "original LoadWB command which came with your Workbench disks.\n\n"
         "HDPP is ©1998 Joker Developments Limited.")

(set #destdir
 (askdir
  (prompt "Select the directory which contains the HDPP executable.")
  (help @askdir-help)
  (default "")  
 )
)
(delete "C:LoadWB"
 (prompt "Deleting LoadWB script from C:")
 (help "Deletes the LoadWB script so that the original command can be "
       "re-copied into the C: directory.")
)
(rename "C:IO.DEV" "C:LoadWB"
 (prompt "Re-installing the ORIGINAL LoadWB command..")
 (help "Without this command, the computer would not boot properly!")
)
(delete "SYS:Prefs/HDPP_Prefs"
 (prompt "Removing HDPP_Prefs from SYS:Prefs")
 (help "This deletes the Prefs program from the preferences directory!")
 (infos)
)
(set @default-dest #destdir)
(delete #destdir
 (prompt "Deleting files from"#destdir".")
 (help "This just deletes the HDPP directory altogether!")
 (all)
)
(complete 100)