> FogIndex  Version B1.0a ! By David Jupe, Jun90 Beebug (: dsentence_count=0 n tJG x *K.0RUN|M 7 *. initialise   readchar #channel word #channel report  : readchar  Read nex char from text 8value=#channel:value>96 value<126:value=value-32 char$=value %printable=(value>&20 value<&7F) Ksentence=((".",char$) (letter_status word$="")) (";!?",char$))) $*word=(value=&20 value=&A value=&D) .,punctuation="()'[]{}"",:-.;!?",char$)>0 8.control=((value<&21 (value=2 word))) BYletter=((value>&40 value<&5B) (value>&60 value<&7B)): letter letter_status= L9printable (letter punctuation) word_status= Vprintable addchar `Y sentence word:sentence value=2 word:skip word control value>&7E word j t: ~ addchar  Add char to word word$=word$+char$ "char_status="AEIOUY",char$)>0 Cchar_status vowel_status= syllable_count=syllable_count+1 2char_status vowel_status= vowel_status=  :  skip  Skip wordwise controls  value=#channel ##channel value=7 value=&D   :  word  Analyse a word (word$="" reset: 2print_word$=word$ <char$=word$,1) FC"()'[]{}"",:-.!?;",char$) word$>1 word$=word$,word$-1) P#letter_status word_status= Zword$>1:suffix$=word$,2):left$=suffix$,1):right$=suffix$,1):left$="E" (right$="D" right$="S"):syllable_count=syllable_count-1 dpword$>1 word$,1)="E":end$=word$,2):left$=word$,1):"AEIOUY",left$)=0:syllable_count=syllable_count-1 nflen=word$:len>2 right3$=word$,3):right3$="IED" right3$="IES":syllable_count=syllable_count+1 xQlen>3 right4$=word$,4):right1$=right4$,1):right1$="S":right3$=right4$,3) Vlen>2:right3$,2)="LE" "AEIOUY",right3$,1)):syllable_count=syllable_count+1 1word$>1 syllable_count<1:syllable_count=1 Cword_status syllable_count>2:big_word_count=big_word_count+1 3word_status word$>0:word_count=word_count+1 &(line+(print_word$))>39 :line=0 1print_word$>0:line=(line+1+print_word$)40 1syllable_count>2 129 print_word$>0 135 print_word$;  reset  : sentence  End of sentence reached #'131"(";word_count;" words)"' 1word_count>0:sentence_count=sentence_count+1 0total_word_count=total_word_count+word_count "word_count=0 ,12 "(Too high)" "(Moderate)"' l;total_word_count<100 129;136"Word count too small"' v :  Errors 3 =222 "File not found"''"Pressf0to rerun"'  =17:report % <>222 <>17::" at line ";  #0: