1000  COM R1,R2,R3,R4,R$[72],N,C[30,4],A$[72],O[72]
1001  COM F[5,60]
1010  REM *** COFTAB - PROGRAM COFTA3 - 06/06/73
1012  REM *** COMPUTES FREQUENCY COUNTS.
1013  REM *** TRANSFERS CONTROL TO COFTA4.
2000  FILES VARBLE,WORK1,WORK2
3000  FILES F1,F2,F3,F4,F5,F6,F7,F8,F9,F10
5000  DIM T$[72],B$[72],S$[72],N$[72],U$[72],E$[1]
5010  DIM C$[72]
5020  DIM D$[20]
5040  MAT O=CON
5050  MAT F=ZER
5060  D$=",;)(=NX   0123456789"
5080  F=3
5090  A1=INT(72/N)
5100  F=F+1
5110  READ #F,1
5120  IF  END #F THEN 5100
5130  READ #F;A$
5140  READ #3,1
5150  IF A$[1,3]="EOT" THEN 5400
5160  FOR I=1 TO N
5170  IF O[I]=0 THEN 5380
5180  O1=1+INT((C[I,2]-C[I,1]+1)/2)
5190  O1=O1*A1*64
5200  T2=C[I,3]
5210  T1=A1*I-A1+1
5220  READ #2,T1
5230  T$=A$[C[I,1],C[I,2]]
5240  S1=1
5250  IF C[I,4] >= 0 THEN 5280
5260  GOSUB 6390
5270  IF S1=0 THEN 5380
5280  FOR J=1 TO T2
5290  READ #2;B$
5300  IF T$=B$ THEN 5370
5310  NEXT J
5320  IF C[I,3]<O1 THEN 5350
5330  O[I]=0
5340  GOTO 5380
5350  C[I,3]=C[I,3]+1
5360  PRINT #2;T$
5370  F[I,J]=F[I,J]+1
5380  NEXT I
5390  GOTO 5130
5400  CHAIN "COFTA4"
6390  REM ***** ROUTINE FOR DETERMINING CONSTRAINTS
6400  T3=C[I,2]-C[I,1]+1
6410  READ #3;C1
6420  FOR K=1 TO C1
6430  READ #3;S$
6440  IF S$[1,T3]>T$ THEN 6470
6450  IF S$[T3+1]<T$ THEN 6470
6460  GOTO 6500
6470  NEXT K
6480  S1=0
6490  RETURN 
6500  S1=1
6510  FOR K=K+1 TO C1
6520  READ #3;S$
6530  NEXT K
6540  RETURN 
9999  END 
