32 lines
421 B
Text
32 lines
421 B
Text
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
|