10 DEFINT I,O
20 DEFSTR W,F
30 F="UNIXDICT.TXT"
40 OPEN "I",1,F
50 INPUT #1,W
60 GOSUB 200: IF O THEN IF LEN(W)>L THEN L=LEN(W)
70 IF EOF(1) THEN CLOSE 1 ELSE 50
80 OPEN "I",1,F
90 INPUT #1,W
100 IF LEN(W)<>L THEN 90
110 GOSUB 200: IF O THEN PRINT W,
120 IF EOF(1) THEN END ELSE 90
200 O=-1
210 FOR I=2 TO LEN(W)
220 IF MID$(W,I-1,1)>MID$(W,I,1) THEN O=0: RETURN
230 NEXT
240 RETURN