procedure sortab;
var f : boolean;
t,d,x : word;
begin
f:=false;
for x:=1 to max-1 do
if a[x]>a[x+1] then
begin
if f=false then d:=x;
f:=true;
t:=a[x];
a[x]:=a[x+1];
a[x+1]:=t;
if x>1 then dec (x,2) else x:=0;
end
else
if f=true then
begin
x:=d;
f:=false;
end;
end;

procedure sortnew;
var l,r,t,s : word;
begin
l:=1;
r:=max;
while l+1<r-1 Do
begin
for t:=l+1 to r do
If a>a[t] then
begin
s:=a;
a:=a[t];
a[t]:=s;
end;
inc (l);
for t:=r-1 downto l do
if a[r]<a[t] then
begin
s:=a[r];
a[r]:=a[t];
a[t]:=s;
end;
dec (r);
end;
end;

const NUM=100
dim integer a(NUM)
dim t,r,x

randomize timer
for t=1 to NUM
a(t)=int(1000*RND())
print a(t);", ";
next
print:print



' ==================================
for r=2 to NUM
t=r
do while t>1 and a(t-1)>a(t)
x=a(t-1)
a(t-1)=a(t)
a(t)=x
t=t-1
loop
next
' ==================================



for t=1 to NUM
print a(t);", ";
next
print:print

NUM=100
dim a(NUM)

randomize timer
for t=1 to NUM
a(t)=int(1000*RND())
print a(t);", ";
next
print:print

' =======Actual Sort Routine=======
For i = 1 to NUM - 1
For j = i + 1 TO NUM
IF a(i) > a(j) Then
t = a(i)
a(i) = a(j)
a(j) = t
EndIf
Next j
Next i
' ==================================

for t=1 to NUM
print a(t);", ";
next
print:print

Const NUM=100
Dim integer a(NUM+1)
Dim integer x(1010)
Dim t

Randomize Timer
For t=1 To NUM
a(t)=Int(1000*Rnd())
x(a(t))=a(t) 'variable x(num) is given the value num
Print a(t),
Next t
Print:Print

' ==================================
Do
y=y+1
If x(y) > 0 Then Print x(y),
Loop Until y=1000
' ==================================

x(a(t))=a(t)