/* m6069b.tc - lrb - per ceb idea - 9/5,6/2009 - 2/15/2010
/* this only does B's due to tiny-c's inability to handle big files

sixty [ /* not sure why function name s6, e.g., fails ...
 char hi,lo,yellow,white;hi='1';lo='0';yellow='3';white='7'
 char nh20k(16000),m6069(2000)
 char nh20kf(20),nh20kl(150),m6069f(20)
 int i,nh20ks,ix,m6069l,j
 char lf(1);lf(0)=10
 hilo hi;color yellow;pl "m6069b.tc - lrb - 2/15/2010";pl "";pl "";color white
 strcpy(nh20kf,"NH20KB.TXT");strcpy(m6069f,"M6069B.OUT")
 if ((nh20ks=readfile(nh20kf,nh20k,nh20k+16000,1))>0) [
  while (nh20ks) [
   ix=index(nh20k,nh20ks,lf,1)
   for (j=0;j<ix;++j) [nh20kl(j)=nh20k(j)]
   nh20kl(j)=0
   ix=index(nh20kl,j,"M 60-69",7)
   if (ix) [
    strcat(m6069,nh20kl)
    m6069l=m6069l+strlen(nh20kl)
    ps nh20kl
    ]
   nh20ks=nh20ks-(ix+1);nh20k=nh20k+(ix+1)
   ]
/* why does unit need to be 1 to avoid nulls at end of file?
  if (writefile(m6069f,m6069,m6069+m6069l-1,1)>0) [
   pl "Look at the file ";ps m6069f;pl ""
   ]
  ]
 else [
  pl "file not found"
  ]
 hilo lo
 ]