#include pps/lrblib.tc
#include pps/library.tc

// dic.tc - lrb - 1/14/9 1/28/20

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

main [ // count and display words in a Toby Speak "dishunary" file
 pl "dic.tc - lrb - 1/28/20"
 pl "count and display wurds in a Toby Speak dishunary file";pls 1
 char exofile(40000)
 int tildes,exobytes
 char file(20);int fl
 while (fl==0) [
  pl "dictionary file? ";fl=gs file
  ]
 if ((exobytes=readfile(file,exofile,40000))<0) abort
 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
 ]