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]T$ THEN 6470 6450 IF S$[T3+1]