CMNT	 	Input: É ¥ target/ramp/incr/É
CMNT	 	Output:  É ¥ output/É
PRIM	Stack/Xover	É ¥ incr/target/ramp/incr/É
PRIM	Stack/Xover	É ¥ ramp/incr/target/old value/incr/É
PRIM	Stack/Xover	É ¥ target/ramp/incr/target/ramp/incr/É
PRIM	Value/Subtract	É ¥ ramp-target/incr/target/ramp/incr/É
PRIM	Value/Absolute	É ¥ Æx/incr/target/ramp/incr/É
PRIM	Value/Subtract	É ¥ incr-Æx/target/ramp/incr/É
PRIM	Value/Test negative	É ¥ rslt/incr-Æx/target/ramp/incr/É
PRIM	Stack/Xdrop	É ¥ rslt/target/ramp/incr/É
BRFL	 	branch if delta less than incr.
	PRIM	Stack/Xdrop	É ¥ target/incr/É
	PRIM	Stack/Xdrop	É ¥ target/É
BRTR
PRIM	Value/Compare	É ¥ rslt/ramp/incr/É
BRFL	 	branch if target >= current value
	PRIM	Value/Add	É ¥ output/É
BRTR
PRIM	Value/Difference	É ¥ output/É