bibble.ob7

MODULE BubbleTest;

CONST n = 40000;

	PROCEDURE DoIt*;
	VAR
		arr : ARRAY n OF INTEGER;
		time : INTEGER;
		i, j, tmp : INTEGER;
	BEGIN
		
		FOR i:=0 TO n-1 DO
			arr[i] := n-i;
		END;
		
		FOR i:=0 TO n-1 DO
			FOR j:=0 TO n-2-i DO
				tmp := arr[j];
				IF arr[j] > arr[j+1] THEN
					arr[j] := arr[j+1];
					arr[j+1] := tmp;
				END;
			END;
		END;
	END DoIt;

BEGIN
	DoIt();
END BubbleTest.