cls
print
print "Aphabetize"
print "using a data statement for simplicity"
print "inputs data until the 'last_one' is read"

dim a$(100)

rem input data
a$=" "
n=0
while a1$<>"last_one"
 n=n+1
 read a1$
 a$(n)=a1$
wend
n=n-1

rem sort
m=n
[cleap]
t=m/2
m=int(t)
if m=0 then [printit]
k=n-m
j=1
[dleap]
i=j
[bleap]
l=i+m
if a$(i)<=a$(l) then goto [aleap]
t$=a$(i)
a$(i)=a$(l)
a$(l)=t$
i=i-m
if i>=1 then goto [bleap]
[aleap]
j=j+1
if j>k then goto [cleap]
goto [dleap]
[printit]
print
for i=1 to n
 print a$(i)
next i

rem data
data "Wilson Robert"
data "James Susan"
data "Smith Kent"
data "Mitchell Michael"
data "McGowan Ann"
data "Lee Alexander"
data "Mitchell Mary"
data "Bowers David"
data "Evans Steven"
data "Jameson Carol"
data "North Linda"
data "last_one"

end