broken

DEF DELETE A[],I%
	IF !I% THEN
		'commands don't return anything
		'so, A[0] is destroyed
		RETURN SHIFT(A)
	ELSEIF I%==LEN(A)-1 THEN
		RETURN POP(A)
	ELSE
		COPY A,I%,A,I%+1,LEN(A)-I%
		RETURN POP(A)
	ENDIF
END