18 lines
383 B
Plaintext
18 lines
383 B
Plaintext
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
|