; UnInstall MirrorManager from disk

(set TotalStepsN	0)		;Total #of steps needed to perform an operation
(set CurrentStep	0)		;The currently performed operation step number
(set AddToStepN		1)		;CurrentStep will be increased by this value


;***
(procedure stepWorkingMeter
;  TotalStepsN
;  AddToStepN
;  CurrentStep

	(set CurrentStep (+ CurrentStep AddToStepN))
        (complete (/ (* CurrentStep 100) TotalStepsN))
)


;***
(procedure removeARexxScripts
;  ARexxScriptsPath
;  ARexxScriptsN

	(set TotalSteps ARexxScriptsN)
	(set AddToStepN 1)
	(set CurrentStep 0)

        (stepWorkingMeter)
)


(abort "The UnInstall script is under development...\n0% complete.")
(welcome "Welcome to the MirrorManager UNstallation!")