func isordered w$ .
   for c$ in strchars w$
      if strcode c$ < prev
         return 0
      .
      prev = strcode c$
   .
   return 1
.
repeat
   w$ = input
   until w$ = ""
   if len w$ >= max and isordered w$ = 1
      max = len w$
      words$[] &= w$
   .
.
for w$ in words$[]
   if len w$ = max
      write w$ & " "
   .
.
#
# the content of unixdict.txt
input_data
10th
abacus
abbot
abbott
accent
floppy
flora