; Remove AlphaSpell 6

(transcript "Removing AlphaSpell 6")
(welcome "This script will remove AlphaSpell 6 from your system.")

(if (exists "AlphaSpell:" (noreq))
    (
        (startup
            (prompt "Removing AlphaSpell: Assign from User-Startup")
            (help @startup-help)
        )
        (set #path (getassign "AlphaSpell"))
        (makeassign "AlphaSpell")
        (run (cat "delete " #path " all quiet"))
        (delete #path ".info")
        (message "The removal of AlphaSpell 6 is finished.")
    )
    (message "AlphaSpell 6 is not even installed.")
)
(exit (quiet))