17 lines
554 B
Text
17 lines
554 B
Text
10 DEFINT A-Z
|
|
20 OPEN "I",1,"UNIXDICT.TXT": GOTO 60
|
|
30 LINE INPUT #1,W$
|
|
40 IF INSTR(W$,"ie") THEN IF INSTR(W$,"cie") THEN CI=CI+1 ELSE XI=XI+1
|
|
50 IF INSTR(W$,"ei") THEN IF INSTR(W$,"cei") THEN CE=CE+1 ELSE XE=XE+1
|
|
60 IF NOT EOF(1) GOTO 30 ELSE CLOSE #1
|
|
70 PRINT "CIE:";CI
|
|
80 PRINT "xIE:";XI
|
|
90 PRINT "CEI:";CE
|
|
100 PRINT "xEI:";XE
|
|
110 PRINT
|
|
120 PRINT "I before E when not preceded by C: ";
|
|
130 IF 2*XI <= CI THEN PRINT "not ";
|
|
140 PRINT "plausible."
|
|
150 PRINT "E before I when preceded by C: ";
|
|
160 IF 2*CE <= XE THEN PRINT "not ";
|
|
170 PRINT "plausible."
|