1 DECLARE SUB sort (x1!, x2!)
\r
3 DECLARE SUB di (r1!, r2!, c!)
\r
7 DIM SHARED arr(1 TO siz)
\r
8 DIM SHARED mark(1 TO siz)
\r
9 DIM SHARED bck(1 TO siz)
\r
22 arr(a) = INT(RND * 100)
\r
32 FOR i2 = 1 TO siz - 1
\r
33 IF arr(i2) > arr(i2 + 1) THEN
\r
67 PRINT arr(i), " ", i
\r
70 IF dbg = 1 THEN a$ = INPUT$(1)
\r
78 IF arr(i) > max THEN max = arr(i)
\r
79 IF arr(i) < min THEN min = arr(i)
\r
81 sv = (max + min) / 2
\r
86 IF x1 >= x2 THEN GOTO 3
\r
89 IF arr(x1) > arr(x2) THEN SWAP arr(x1), arr(x2)
\r
99 IF arr(xl1) > sv THEN
\r
101 IF arr(xl2) < sv THEN
\r
102 SWAP arr(xl1), arr(xl2)
\r
108 IF xl1 = xl2 THEN GOTO 4
\r
115 IF xl1 < xl2 THEN GOTO 1
\r
116 'IF arr(xl1) < sv THEN xl1 = xl1 + 1
\r
117 'IF arr(xl1) < sv THEN xl1 = xl1 + 1
\r
126 IF arr(xl1) > sv THEN
\r