/* count.tc - lrb - 1/14/9, 1/21/9, 1/29/10
/* rdump.tc must be loaded for this to work

countf char c(0),file(0) [
  char f(10000),rc;int cs,bytes
  if ((bytes=readfile(file,f,f+10000,1))<0) exit
  if ((c(1)!=0)*(c(0)=='^')) rc=c(1)-'@'
  else rc=c(0) 
  cs=countch(f,f+bytes-1,rc);pl "";pn cs;putchar ' '
  if (rc<' ') [
    putchar '^';rc=rc+'@'
    ]
  putchar rc
  if (cs==1) ps " was"
  else ps "'s were"
  ps " spotted in ";ps file;ps " which has";pn bytes;ps " bytes."
  pl "";pl "Any key ... ";MC 2;pl "";pl "";rdump file
  ]

count [
  char s(31),c(2),lb,rb;lb=91;rb=93
  pl "file? ";gs s
  ps "char? examples: ^M c @ "
  putchar '"';ps " { ^ ^^ ^@ ) ( , "
  putchar lb;putchar ' ';putchar rb;putchar ' '
  gs c;countf c,s
  ]