/* dic.tc - lrb - 1/14/9

pls int l [ /* print l newlines
  while (l) [
    --l;pl ""
    ]
  ]

dic [ /* count and display words in a Toby Speak "dishunary" file
  pl "dic.tc - lrb - 1/14/9"
  pl "count and display wurds in a Toby Speak dishunary file";pls 1
  char exofile(5000)
  int tildes,exobytes
  char file(20);int fl
  while (!fl) [
    pl "dictionary file? ";fl=gs file
    ]
  if ((exobytes=readfile(file,exofile,exofile+5000,1))<0) exit
  tildes=countch(exofile,exofile+exobytes,'~')
  pls 1;pn tildes
  if (tildes==1) ps " wurd was spotted in "
  else ps " wurds were spotted in "
  ps file
  ps " which has";pn exobytes;ps " bytes.";pls 1;sak
  pls 2
  ps exofile
  pls 1
  ]