17 lines
428 B
Plaintext
17 lines
428 B
Plaintext
10 DEFINT A-Z
|
|
20 DATA "ndeokgelw","unixdict.txt"
|
|
30 READ WH$, F$
|
|
40 OPEN "I",1,F$
|
|
50 IF EOF(1) THEN CLOSE 1: END
|
|
60 C$ = WH$
|
|
70 LINE INPUT #1, W$
|
|
80 FOR I=1 TO LEN(W$)
|
|
90 FOR J=1 TO LEN(C$)
|
|
100 IF MID$(W$,I,1)=MID$(C$,J,1) THEN MID$(C$,J,1)="@": GOTO 120
|
|
110 NEXT J: GOTO 50
|
|
120 NEXT I
|
|
130 IF MID$(C$,(LEN(C$)+1)/2,1)<>"@" GOTO 50
|
|
140 C=0: FOR I=1 TO LEN(C$): C=C-(MID$(C$,I,1)="@"): NEXT
|
|
150 IF C>=3 THEN PRINT W$,
|
|
160 GOTO 50
|