20 lines
491 B
Plaintext
20 lines
491 B
Plaintext
dict% = OPENIN("unixdict.txt")
|
|
IF dict%=0 ERROR 100, "Failed to open dictionary file"
|
|
|
|
max% = 2
|
|
REPEAT
|
|
A$ = GET$#dict%
|
|
IF LENA$ >= max% THEN
|
|
i% = 0
|
|
REPEAT i% += 1
|
|
UNTIL ASCMID$(A$,i%) > ASCMID$(A$,i%+1)
|
|
IF i% = LENA$ THEN
|
|
IF i% > max% max% = i% : list$ = ""
|
|
list$ += A$ + CHR$13 + CHR$10
|
|
ENDIF
|
|
ENDIF
|
|
UNTIL EOF#dict%
|
|
CLOSE #dict%
|
|
PRINT list$
|
|
END
|