1000  COM R1,R2,R3,R4,R$[72],N
1010  REM *** COFTAB - PROGRAM COFTA9 - 06/06/73
1012  REM *** HANDLES DATA INPUT AND DATA APPENDING.
1013  REM *** TRANSFERS CONTROL TO COFTA1.
2000  FILES VARBLE,WORK1,WORK2
3000  FILES F1,F2,F3,F4,F5,F6,F7,F8,F9,F10
5000  DIM A$[72]
5010  C=0
5020  A1=255
5030  F=4
5040  GOTO N OF 5050,5210
5050  IF  END #F THEN 5140
5060  PRINT #F,1
5070  ENTER A1,A2,A$
5075  IF A2=-256 THEN 5070
5080  C=C+1
5090  PRINT #F;A$
5100  IF A$[1,3]#"EOT" THEN 5070
5110  PRINT #F; END 
5120  PRINT '10'10C-1;"DATA RECORDS STORED"'10'10
5130  CHAIN "COFTA1"
5140  F=F+1
5150  IF F>16 THEN 5190
5160  IF  END #F THEN 5140
5170  PRINT #F;A$
5180  GOTO 5070
5190  PRINT "*****NOT ENOUGH FILE SPACE FOR DATA"
5200  GOTO 5130
5210  REM ***** APPEND PROCESSOR
5220  IF  END #F THEN 5370
5230  PRINT #2,1; END 
5240  READ #F,1
5250  READ #F;A$
5260  IF A$[1,3]="EOT" THEN 5290
5270  PRINT #2;A$
5280  GOTO 5250
5290  PRINT #2; END 
5300  IF  END #F THEN 5140
5310  IF  END #2 THEN 5070
5320  READ #2,1
5330  PRINT #F,1
5340  READ #2;A$
5350  PRINT #F;A$
5360  GOTO 5340
5370  F=F+1
5380  GOTO 5210
5390  END 
