home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / MSWBASE4.ZIP / IDEAS / IDEAS92.SBP < prev    next >
Encoding:
Text File  |  1989-09-12  |  1.1 KB  |  51 lines
  1. SBP
  2.   ╜ ideas92
  3.   ╩ f e
  4.   ┬"Please select a text file for input","",13,req%,req$
  5.   íreq% 0 
  6. req$ "" p Æ
  7.   ┤req$ ¢ ñ
  8.  lines% 0:sents% 0:words% 0
  9.  paras% 0:pages% 0:isblank% 0
  10.   ╪ O B("*")
  11.  ñ cln$
  12.  í( .( +(ln$,1)) 27) p wendloop
  13. ln$  F( H(ln$))
  14. lines% lines% 1
  15.  í /(ln$) 0 p
  16.  íisblank% 0 pparas% paras% 1
  17. isblank% 1
  18.  ^
  19. isblank% 0
  20. ptr% 1:old% 1
  21.  ╪ptr% 0
  22. ptr%  ?(old%,ln$,".")
  23.  íptr% old% psents% sents% 1
  24. old% ptr% 1
  25.  ┘
  26. ptr% 1:old% 1
  27.  ╪ptr% 0
  28. ptr%  ?(old%,ln$," ")
  29.  íptr% old% pwords% words% 1
  30. zz% ptr%: ízz% old% 1 pwords% words% 1: ╜ *********
  31. old% ptr% 1
  32.  ┘
  33. words% words% 1
  34.  Æ í
  35. 
  36. endloop: 
  37.   ┘
  38.   å ñ
  39.  pages%  (lines% 60)
  40.   ílines% 60 0 ppages% pages% 1
  41.   ç
  42.   { ╙"Document statistics for file: ";req$ ╓ e
  43.   {
  44.   {"Total Words      :"; (words%,"999999")
  45.   {"Total Sentences  :"; (sents%,"999999")
  46.   {"Total Lines      :"; (lines%,"999999")
  47.   {"Total Paragraphs :"; (paras%,"999999")
  48.   {"Total pages      :"; (pages%,"999999")
  49.   ╩ f │
  50.   Æ
  51.  
  52.