home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 3 / Developers_Source_Vol_03_1996.iso / parad / dec94 / bt_fig01.gif next >
Graphics Interchange Format  |  1995-09-26  |  9KB  |  634x476  |  4-bit (5 colors)
Labels: text | electronics | screenshot | display | software | computer icon | web page | number | operating system
OCR: 0 SORT.LSL :: #Library1 :: arraySortX* method arraySortx(var a AyAny) var tempA Any Type swappedL Logical si SmallInt endVar swappedL = True while swappedL ; While any elements of the array are out of order. swappedL = False ; Check each element of the array except the last. for si from 1 to a.size() - 1 ; If the value of the element is greater than the value ; in the next element, swap them. if a[si] > a[si + 1] then tempA = a[si] a[si] = a[si + 1] a[si + 1] = tempA swappedL = True endIf endFor endWhile endmethod Edit Line: 16 Col: 35