n <- Maxindex - 1 
REPEAT 
NoMoreSwaps <- TRUE 
FOR j <- 1 TO n 
IF MyList [j] > MyList [j + l] 
THEN 
ENDIF 
END FOR 
n <- n - 1 
Temp .... MyList[j) 
MyList[j] <- MyList[j + 1] 
MyList[j + 1] .... Temp 
NoMoreSwaps <- FALSE 
UNTIL NoMoreSwaps TRUE