41 lines
583 B
Plaintext
41 lines
583 B
Plaintext
SUB SWAP(vb1, vb2)
|
|
LET temp = vb1
|
|
LET vb1 = vb2
|
|
LET vb2 = temp
|
|
END SUB
|
|
|
|
LET n = 4
|
|
DIM a(4)
|
|
DIM c(4)
|
|
|
|
FOR i = 1 TO n
|
|
LET a(i) = i
|
|
NEXT i
|
|
PRINT
|
|
|
|
DO
|
|
FOR i = 1 TO n
|
|
PRINT a(i);
|
|
NEXT i
|
|
PRINT
|
|
LET i = n
|
|
DO
|
|
LET i = i - 1
|
|
LOOP UNTIL (i = 0) OR (a(i) < a(i + 1))
|
|
LET j = i + 1
|
|
LET k = n
|
|
DO WHILE j < k
|
|
CALL SWAP (a(j), a(k))
|
|
LET j = j + 1
|
|
LET k = k - 1
|
|
LOOP
|
|
IF i > 0 THEN
|
|
LET j = i + 1
|
|
DO WHILE a(j) < a(i)
|
|
LET j = j + 1
|
|
LOOP
|
|
CALL SWAP (a(i), a(j))
|
|
END IF
|
|
LOOP UNTIL i = 0
|
|
END
|