Y方向複製

図形をY方向へ複製します。

procedure yCopy;{y方向複製コマンド}
	var
		dy: real;
	begin
		dy := DistDialog('Y方向の移動距離（複製）','0');
		Duplicate (0,dy);
	end;
run ( yCopy );