29 lines
528 B
Plaintext
29 lines
528 B
Plaintext
n=3
|
|
dim a(n+1) '+1 needed due to bug in LB that checks loop condition
|
|
' until (i=0) or (a(i)<a(i+1))
|
|
'before executing i=i-1 in loop body.
|
|
for i=1 to n: a(i)=i: next
|
|
do
|
|
for i=1 to n: print a(i);: next: print
|
|
i=n
|
|
do
|
|
i=i-1
|
|
loop until (i=0) or (a(i)<a(i+1))
|
|
j=i+1
|
|
k=n
|
|
while j<k
|
|
'swap a(j),a(k)
|
|
tmp=a(j): a(j)=a(k): a(k)=tmp
|
|
j=j+1
|
|
k=k-1
|
|
wend
|
|
if i>0 then
|
|
j=i+1
|
|
while a(j)<a(i)
|
|
j=j+1
|
|
wend
|
|
'swap a(i),a(j)
|
|
tmp=a(j): a(j)=a(i): a(i)=tmp
|
|
end if
|
|
loop until i=0
|