Sorting algorithms/Bubble sort: Difference between revisions

=={{header|Craft Basic}}==

<syntaxhighlight lang="basic">define sort = 0, index = 0, size = 10

define temp1 = 0, temp2 = 0

dim list[size]

let index = 0

do

let list[index] = int: (rnd) * 100

let index = index + 1

loop index < size

do

let sort = 0

let index = 0

do

let temp1 = index + 1

if list[index] > list[temp1] then

let temp2 = list[index]

let list[index] = list[temp1]

let list[temp1] = temp2

let sort = 1

endif

let index = index + 1

loop index < size - 1

wait

loop sort = 1

let index = 0

do

print index ," : ", list[index]

let index = index + 1

loop index < size</syntaxhighlight>