19.for: reads Spufford data on 274 cities from Cty3Stat.xls -> txt files, checks the dates in the successive 25 year periods for 14 time periods 1175-1500, and creates 14 time period files, 1-14, each set up for sea (entailment) analysis. Integer P(14,19),t(14),ibeg(44),iend(44),const(6),sum(14,19) Character*33 ALF close(2) Open (2,file='xxx') ! successive for 14 x 19 columns (each 274 cities) Open (1,file='tim1-10.txt') ! input first 10 commodities Open (17,file='tim11-19.txt') ! input last 9 Open (18,file='sums') ! output Open (19,file='series') ! output

sea2net.for: user opens T6 (saved output) from entailment (SEA.exe) analysis of binary data, as below (eq and en are added by the program) c 8 <-> 16 eq c 15 -> 23 -> 22 -> 21 -> 20 en c 24 -> 23 en c 5 -> 21 en c 3 -> -25 en finds and copies the x -> y segment at a selected level of exceptions, and copies to the OUT file - this becomes the INPUT file to convert to a pajek diagram in timent.net, with the mutual entailments or equivalencies in SYM Open (3,file='out') ! input Open (4,file='timent.net') ! output Open (5,file='sym') ! output

S2N.for: this is the second part of sea2net.for should the latter fail to execute