/* count.tc - lrb - 11/19/08

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"";ps f
]

count [
  char s(14),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
]