; $VER: STFax-Patch 1.0 (12.7.97)

(if (= (exists "STFax:" (noreq)) 0)
   (abort "STFax 2.87 not installed!")
)

(complete 20)

(execute "Rename STFax:STFax TO STFax:STFax.old")

(complete 30)

(execute "Patcher STFax:STFax.old STFax:STFax STFax.patch"
  (prompt "Applying the patch")
)

(complete 90)

(delete "STFax:STFax.old"
  (help @delete-help)
  (prompt "Delete the old version?")
  (confirm)
)

(complete 100)

(exit "Done. Enjoy it! :-)")