� >!RunImage
� ReadEase main program.
:
(	�init
2:
<ȕ � quit%
F	�poll
P�
Zș "Wimp_CloseDown"
d�
n:
x� �init
�� words(2000)
�� iblock% 32
�word_len=0
�percent_syll=7
�file_loaded=�
�maxws%=&300
�
�*� block% 1000,name% 11,mainind% maxws%
�� mainind2% maxws%
�� wimpicon% 20
�/� imenu% 99,te1% 30,te2% 30,te3% 30,te4% 30
�� font% 256,P% 2048,Q% 2048
�� icontext% 40

quit%=�:app$="ReadEase"

+ș "Wimp_Initialise",200,&4B534154,app$

!� � �error(�$+" at line "+Þ)

"$file%=�"<ReadEase$Dir>.!Sprites"

,size%=�#file%+4:�#file%

6� sparea% size%

@!sparea%=size%:sparea%!4=0

Jsparea%!8=16

Tsparea%!12=16

^;ș "OS_SpriteOp",&10A,sparea%,"<ReadEase$Dir>.!Sprites"

h6ș "Wimp_OpenTemplate",,"<ReadEase$Dir>.Templates"

rHș "Wimp_LoadTemplate",,P%,mainind%,mainind%+maxws%,-1,"indicator",0

|Eș "Wimp_LoadTemplate",,Q%,mainind2%,mainind2%+maxws%,-1,"info",0

�+ș "Wimp_CreateWindow",,P% � indicator%

�&ș "Wimp_CreateWindow",,Q% � info%

�ș "Wimp_CloseTemplate"

��setupmenu(imenu%)

�$wimpicon%="eyecross"

�Cblock%!0=-1:block%!4=0:block%!8=0:block%!12=34*2:block%!16=17*4

�Bblock%!20=&0700311A:block%!24=wimpicon%:block%!28=-1:� sparea%

�block%!32=�("eyecross")

�,ș "Wimp_CreateIcon",,block% � ibhandle%

�B� ibhandle%=FNcreate_icon(-1,0,0,68,68,&3002,"!drawcad",0,0,0)

�+�write_t(info%,4,"1.07 (5th May 1994)")

��

�:
� �poll
%ș "Wimp_Poll",0,block% � reason%
Ȏ reason% �
&$� 2:ș "Wimp_OpenWindow",,block%
0%� 3:ș "Wimp_CloseWindow",,block%
:� 6:�click(block%!12)
D� 9:�menuselect
N� 17,18:�receive
X�
b�
l:
v� �report(err$,flag%)
�name$=app$
�.� flag% � 16 � name$="Message from "+name$
�!block%=255
�$(block%+4)=err$+�0
�9ș "Wimp_ReportError",block%,flag%,name$ � ,errclick%
��
�:
�� �error(a$)
�ș "Hourglass_Smash"
�
*CLOSE
��report(a$,1)
�ș "Wimp_CloseDown"
��
�
:
� �receive
 Ȏ block%!16 �
*� 0:quit%=�
4� 3:�dataload(block%!40)
>�
H�
R:
\� �dataload(type%)
f� type%<>&FFF � �
pș "Hourglass_On"
zpath$=�string(block%+44)
��load_file(path$)
�ș "Hourglass_Off"
�$wimpicon%="eye"
�9block%!0=-2:block%!4=ibhandle%:block%!8=0:block%!12=0
�"ș "Wimp_SetIconState",,block%
��
�:
�� �string(ptr%)
�� a$
�ȕ ?ptr%<>0
�a$+=�(?ptr%):ptr%+=1
��
�=a$
:
� �click(win%)

Ȏ win% �
$ � info%:�info_sel(block%!16)
.� -2:�ibar(block%!8)
8�
B�
L:
V� �info_sel(no)
`.� no=10 � *Filer_Run <ReadEase$Dir>.Manual
j�
t:
~� �ibar(button%)
�Ȏ button% �
�� 1,4:�ibar_click
�(� 2:�showmenu(imenu%,!block%-64,200)
��
��
�:
�� �ibar_click
�5� file_loaded=� � �report("No file loaded!",19):�
�'�write_l(indicator%,2,percent_syll)
�S�write_t(indicator%,3,�(percent_syll)+"% Words containing 3 or more syllables")
�M�write_t(indicator%,4,"Mean number of words per sentence = "+�(word_len))
�_�write_t(indicator%,5,"Reading Ease Quotient = 0.4("+�(word_len)+"+"+�(percent_syll)+")+5")
"RA=0.4*(percent_syll+word_len)

	RA+=5
;�write_t(indicator%,6,"Reading Ease Quotient = "+�(RA))
!block%=indicator%
($ș "Wimp_GetWindowState",,block%
2block%!28=-1
< ș "Wimp_OpenWindow",,block%
F�
P:
Z� �setupmenu(menu%)
d� title$,num%:$menu%=title$
nwidth%=(�(title$)-2)*16
x*menu%!12=&70207:menu%!20=44:menu%!24=0
�ptr%=menu%+28:� i%=1 � num%
�� mflags%,subptr%,item$
� !ptr%=mflags%:ptr%!4=subptr%
�$ptr%!8=&7000021:$(ptr%+12)=item$
�a%=(�(item$)+1)*16
�� a%>width% width%=a%
�ptr%+=24:�
�menu%!16=width%
��
�:
�� �showmenu(menu%,mx%,my%)
�'ș "Wimp_CreateMenu",,menu%,mx%,my%
��
:
� �menuselect
 sel1%=!block%:sel2%=block%!4
"$ș "Wimp_GetPointerInfo",,block%
,button%=block%!8
6Ȏ sel1% �
@� 1:quit%=�
J�
T'� button%=1 � �showmenu(imenu%,0,0)
^�
h:
rG� �create_icon(whan%,ix%,iy%,iw%,ih%,flag%,text$,ptr1%,ptr2%,ptr3%)
|!block%=whan%
�block%!4=ix%
�block%!8=iy%
�block%!12=ix%+iw%
�block%!16=iy%+ih%
�block%!20=flag%
�� ptr1%=0 �
�$(block%+24)=text$
��
�block%!24=ptr1%
�block%!28=ptr2%
�block%!32=ptr3%
��
�+ș "Wimp_CreateIcon",,block% � ihandle%

=ihandle%
:
� �write_l(win%,ic%,plu)
&!block%=win%:block%!4=ic%
0 ș "Wimp_DeleteIcon",,block%
:Aa%=�create_icon(win%,24,-254,6.32*plu,50,&A7000039," ",0,0,0)
D�
N:
X� �write_t(win%,ic%,text$)
b!block%=win%:block%!4=ic%
l"ș "Wimp_GetIconState",,block%
v$(block%!28)=text$
�!block%=win%:block%!4=ic%
�block%!8=0:block%!12=0
�"ș "Wimp_SetIconState",,block%
��
�:
�� �load_file(path$)
�file_loaded=�
�TEMP$=""
�	cnt=0
�
cnt2=0
�TEMP$=""
�
byte_no=0
�	SY3=0
f=�(path$)
tot_size=�#f+4
�
 �
*	T=�#f
4byte_no+=1
>7ș "Hourglass_Percentage",�((byte_no/tot_size)*100)
H#� T>=�("a") � T<=�("z") � T-=32
RTEMP$+=�(T)
\U� T=32 � T=10 � T=13 � T=�(".") � T=�(";") � T=�(":") � T=�("?") � T=�("!") � �#f
fTEMP$=�TEMP$,�(TEMP$)-1)
p#� �syllables(TEMP$)>=3 � SY3+=1
z�
�TEMP$=""
�
cnt+=1
�+� T<>32 � words(cnt2)=cnt:cnt2+=1:cnt=0
�	� �#f
�� #f
�T=0
�� LOOP=0 � cnt2-1
�T+=words(LOOP)
��
�percent_syll=(SY3/T)*100
� percent_syll=�(percent_syll)
�word_len=T/(cnt2-1)
�word_len=�(word_len)
	�ibar_click
	�
	:
	$� �syllables(word$)
	.� Letter$,NextLetter$,Scan
	8�
	B� "Scanning : ";word$
	L�
	VSyllables=0
	`� Scan=1 � �(word$)
	jLetter$=�word$,Scan,1)
	t NextLetter$=�word$,Scan+1,1)
	~Ȏ Letter$ �
	�&� "A","E","I","O","U":Syllables+=1
	�Ȏ NextLetter$ �
	�� "E","O","I":Syllables-=1
	�� "A","U":� Letter$="I" �
	�� Do nothing -----
	��
	�Syllables-=1
	��
	��
	�*� "H":� NextLetter$="M" � Syllables+=1
	��
	�o� NextLetter$="Y" � Letter$<>"A" � Letter$<>"E" � Letter$<>"I" � Letter$<>"O" � Letter$<>"U" � Syllables+=1
�

$� �word$,3)="ES " � Syllables-=1
$� �word$,3)="EA " � Syllables+=1
$� �word$,3)="ED " � Syllables-=1
(�
20� "Number of syllables in word : ";Syllables
<=Syllables
F:
P+� ReadEase,2,%10,info%,Info,&80,-1,Quit
�

00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 14 1c f4 20 52 65  61 64 45 61 73 65 20 6d  |..... ReadEase m|
00000020  61 69 6e 20 70 72 6f 67  72 61 6d 2e 0d 00 1e 05  |ain program.....|
00000030  3a 0d 00 28 09 f2 69 6e  69 74 0d 00 32 05 3a 0d  |:..(..init..2.:.|
00000040  00 3c 0e c8 95 20 ac 20  71 75 69 74 25 0d 00 46  |.<... . quit%..F|
00000050  09 f2 70 6f 6c 6c 0d 00  50 05 ce 0d 00 5a 17 c8  |..poll..P....Z..|
00000060  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 44 6f 77  |. "Wimp_CloseDow|
00000070  6e 22 0d 00 64 05 e0 0d  00 6e 05 3a 0d 00 78 0b  |n"..d....n.:..x.|
00000080  dd 20 f2 69 6e 69 74 0d  00 82 11 de 20 77 6f 72  |. .init..... wor|
00000090  64 73 28 32 30 30 30 29  0d 00 8c 10 de 20 69 62  |ds(2000)..... ib|
000000a0  6c 6f 63 6b 25 20 33 32  0d 00 96 0e 77 6f 72 64  |lock% 32....word|
000000b0  5f 6c 65 6e 3d 30 0d 00  a0 12 70 65 72 63 65 6e  |_len=0....percen|
000000c0  74 5f 73 79 6c 6c 3d 37  0d 00 aa 11 66 69 6c 65  |t_syll=7....file|
000000d0  5f 6c 6f 61 64 65 64 3d  a3 0d 00 b4 0f 6d 61 78  |_loaded=.....max|
000000e0  77 73 25 3d 26 33 30 30  0d 00 be 04 0d 00 c8 2a  |ws%=&300.......*|
000000f0  de 20 62 6c 6f 63 6b 25  20 31 30 30 30 2c 6e 61  |. block% 1000,na|
00000100  6d 65 25 20 31 31 2c 6d  61 69 6e 69 6e 64 25 20  |me% 11,mainind% |
00000110  6d 61 78 77 73 25 0d 00  d2 16 de 20 6d 61 69 6e  |maxws%..... main|
00000120  69 6e 64 32 25 20 6d 61  78 77 73 25 0d 00 dc 12  |ind2% maxws%....|
00000130  de 20 77 69 6d 70 69 63  6f 6e 25 20 32 30 0d 00  |. wimpicon% 20..|
00000140  e6 2f de 20 69 6d 65 6e  75 25 20 39 39 2c 74 65  |./. imenu% 99,te|
00000150  31 25 20 33 30 2c 74 65  32 25 20 33 30 2c 74 65  |1% 30,te2% 30,te|
00000160  33 25 20 33 30 2c 74 65  34 25 20 33 30 0d 00 f0  |3% 30,te4% 30...|
00000170  1f de 20 66 6f 6e 74 25  20 32 35 36 2c 50 25 20  |.. font% 256,P% |
00000180  32 30 34 38 2c 51 25 20  32 30 34 38 0d 00 fa 12  |2048,Q% 2048....|
00000190  de 20 69 63 6f 6e 74 65  78 74 25 20 34 30 0d 01  |. icontext% 40..|
000001a0  04 1b 71 75 69 74 25 3d  a3 3a 61 70 70 24 3d 22  |..quit%=.:app$="|
000001b0  52 65 61 64 45 61 73 65  22 0d 01 0e 2b c8 99 20  |ReadEase"...+.. |
000001c0  22 57 69 6d 70 5f 49 6e  69 74 69 61 6c 69 73 65  |"Wimp_Initialise|
000001d0  22 2c 32 30 30 2c 26 34  42 35 33 34 31 35 34 2c  |",200,&4B534154,|
000001e0  61 70 70 24 0d 01 18 21  ee 20 85 20 f2 65 72 72  |app$...!. . .err|
000001f0  6f 72 28 f6 24 2b 22 20  61 74 20 6c 69 6e 65 20  |or(.$+" at line |
00000200  22 2b c3 9e 29 0d 01 22  24 66 69 6c 65 25 3d 8e  |"+..).."$file%=.|
00000210  22 3c 52 65 61 64 45 61  73 65 24 44 69 72 3e 2e  |"<ReadEase$Dir>.|
00000220  21 53 70 72 69 74 65 73  22 0d 01 2c 1b 73 69 7a  |!Sprites"..,.siz|
00000230  65 25 3d a2 23 66 69 6c  65 25 2b 34 3a d9 23 66  |e%=.#file%+4:.#f|
00000240  69 6c 65 25 0d 01 36 13  de 20 73 70 61 72 65 61  |ile%..6.. sparea|
00000250  25 20 73 69 7a 65 25 0d  01 40 1e 21 73 70 61 72  |% size%..@.!spar|
00000260  65 61 25 3d 73 69 7a 65  25 3a 73 70 61 72 65 61  |ea%=size%:sparea|
00000270  25 21 34 3d 30 0d 01 4a  10 73 70 61 72 65 61 25  |%!4=0..J.sparea%|
00000280  21 38 3d 31 36 0d 01 54  11 73 70 61 72 65 61 25  |!8=16..T.sparea%|
00000290  21 31 32 3d 31 36 0d 01  5e 3b c8 99 20 22 4f 53  |!12=16..^;.. "OS|
000002a0  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 30 41 2c  |_SpriteOp",&10A,|
000002b0  73 70 61 72 65 61 25 2c  22 3c 52 65 61 64 45 61  |sparea%,"<ReadEa|
000002c0  73 65 24 44 69 72 3e 2e  21 53 70 72 69 74 65 73  |se$Dir>.!Sprites|
000002d0  22 0d 01 68 36 c8 99 20  22 57 69 6d 70 5f 4f 70  |"..h6.. "Wimp_Op|
000002e0  65 6e 54 65 6d 70 6c 61  74 65 22 2c 2c 22 3c 52  |enTemplate",,"<R|
000002f0  65 61 64 45 61 73 65 24  44 69 72 3e 2e 54 65 6d  |eadEase$Dir>.Tem|
00000300  70 6c 61 74 65 73 22 0d  01 72 48 c8 99 20 22 57  |plates"..rH.. "W|
00000310  69 6d 70 5f 4c 6f 61 64  54 65 6d 70 6c 61 74 65  |imp_LoadTemplate|
00000320  22 2c 2c 50 25 2c 6d 61  69 6e 69 6e 64 25 2c 6d  |",,P%,mainind%,m|
00000330  61 69 6e 69 6e 64 25 2b  6d 61 78 77 73 25 2c 2d  |ainind%+maxws%,-|
00000340  31 2c 22 69 6e 64 69 63  61 74 6f 72 22 2c 30 0d  |1,"indicator",0.|
00000350  01 7c 45 c8 99 20 22 57  69 6d 70 5f 4c 6f 61 64  |.|E.. "Wimp_Load|
00000360  54 65 6d 70 6c 61 74 65  22 2c 2c 51 25 2c 6d 61  |Template",,Q%,ma|
00000370  69 6e 69 6e 64 32 25 2c  6d 61 69 6e 69 6e 64 32  |inind2%,mainind2|
00000380  25 2b 6d 61 78 77 73 25  2c 2d 31 2c 22 69 6e 66  |%+maxws%,-1,"inf|
00000390  6f 22 2c 30 0d 01 86 2b  c8 99 20 22 57 69 6d 70  |o",0...+.. "Wimp|
000003a0  5f 43 72 65 61 74 65 57  69 6e 64 6f 77 22 2c 2c  |_CreateWindow",,|
000003b0  50 25 20 b8 20 69 6e 64  69 63 61 74 6f 72 25 0d  |P% . indicator%.|
000003c0  01 90 26 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |..&.. "Wimp_Crea|
000003d0  74 65 57 69 6e 64 6f 77  22 2c 2c 51 25 20 b8 20  |teWindow",,Q% . |
000003e0  69 6e 66 6f 25 0d 01 9a  1b c8 99 20 22 57 69 6d  |info%...... "Wim|
000003f0  70 5f 43 6c 6f 73 65 54  65 6d 70 6c 61 74 65 22  |p_CloseTemplate"|
00000400  0d 01 a4 16 f2 73 65 74  75 70 6d 65 6e 75 28 69  |.....setupmenu(i|
00000410  6d 65 6e 75 25 29 0d 01  ae 19 24 77 69 6d 70 69  |menu%)....$wimpi|
00000420  63 6f 6e 25 3d 22 65 79  65 63 72 6f 73 73 22 0d  |con%="eyecross".|
00000430  01 b8 43 62 6c 6f 63 6b  25 21 30 3d 2d 31 3a 62  |..Cblock%!0=-1:b|
00000440  6c 6f 63 6b 25 21 34 3d  30 3a 62 6c 6f 63 6b 25  |lock%!4=0:block%|
00000450  21 38 3d 30 3a 62 6c 6f  63 6b 25 21 31 32 3d 33  |!8=0:block%!12=3|
00000460  34 2a 32 3a 62 6c 6f 63  6b 25 21 31 36 3d 31 37  |4*2:block%!16=17|
00000470  2a 34 0d 01 c2 42 62 6c  6f 63 6b 25 21 32 30 3d  |*4...Bblock%!20=|
00000480  26 30 37 30 30 33 31 31  41 3a 62 6c 6f 63 6b 25  |&0700311A:block%|
00000490  21 32 34 3d 77 69 6d 70  69 63 6f 6e 25 3a 62 6c  |!24=wimpicon%:bl|
000004a0  6f 63 6b 25 21 32 38 3d  2d 31 3a f4 20 73 70 61  |ock%!28=-1:. spa|
000004b0  72 65 61 25 0d 01 cc 1b  62 6c 6f 63 6b 25 21 33  |rea%....block%!3|
000004c0  32 3d a9 28 22 65 79 65  63 72 6f 73 73 22 29 0d  |2=.("eyecross").|
000004d0  01 d6 2c c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |..,.. "Wimp_Crea|
000004e0  74 65 49 63 6f 6e 22 2c  2c 62 6c 6f 63 6b 25 20  |teIcon",,block% |
000004f0  b8 20 69 62 68 61 6e 64  6c 65 25 0d 01 e0 42 f4  |. ibhandle%...B.|
00000500  20 69 62 68 61 6e 64 6c  65 25 3d 46 4e 63 72 65  | ibhandle%=FNcre|
00000510  61 74 65 5f 69 63 6f 6e  28 2d 31 2c 30 2c 30 2c  |ate_icon(-1,0,0,|
00000520  36 38 2c 36 38 2c 26 33  30 30 32 2c 22 21 64 72  |68,68,&3002,"!dr|
00000530  61 77 63 61 64 22 2c 30  2c 30 2c 30 29 0d 01 ea  |awcad",0,0,0)...|
00000540  2b f2 77 72 69 74 65 5f  74 28 69 6e 66 6f 25 2c  |+.write_t(info%,|
00000550  34 2c 22 31 2e 30 37 20  28 35 74 68 20 4d 61 79  |4,"1.07 (5th May|
00000560  20 31 39 39 34 29 22 29  0d 01 f4 05 e1 0d 01 fe  | 1994)")........|
00000570  05 3a 0d 02 08 0b dd 20  f2 70 6f 6c 6c 0d 02 12  |.:..... .poll...|
00000580  25 c8 99 20 22 57 69 6d  70 5f 50 6f 6c 6c 22 2c  |%.. "Wimp_Poll",|
00000590  30 2c 62 6c 6f 63 6b 25  20 b8 20 72 65 61 73 6f  |0,block% . reaso|
000005a0  6e 25 0d 02 1c 10 c8 8e  20 72 65 61 73 6f 6e 25  |n%...... reason%|
000005b0  20 ca 0d 02 26 24 c9 20  32 3a c8 99 20 22 57 69  | ...&$. 2:.. "Wi|
000005c0  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
000005d0  62 6c 6f 63 6b 25 0d 02  30 25 c9 20 33 3a c8 99  |block%..0%. 3:..|
000005e0  20 22 57 69 6d 70 5f 43  6c 6f 73 65 57 69 6e 64  | "Wimp_CloseWind|
000005f0  6f 77 22 2c 2c 62 6c 6f  63 6b 25 0d 02 3a 19 c9  |ow",,block%..:..|
00000600  20 36 3a f2 63 6c 69 63  6b 28 62 6c 6f 63 6b 25  | 6:.click(block%|
00000610  21 31 32 29 0d 02 44 13  c9 20 39 3a f2 6d 65 6e  |!12)..D.. 9:.men|
00000620  75 73 65 6c 65 63 74 0d  02 4e 14 c9 20 31 37 2c  |uselect..N.. 17,|
00000630  31 38 3a f2 72 65 63 65  69 76 65 0d 02 58 05 cb  |18:.receive..X..|
00000640  0d 02 62 05 e1 0d 02 6c  05 3a 0d 02 76 19 dd 20  |..b....l.:..v.. |
00000650  f2 72 65 70 6f 72 74 28  65 72 72 24 2c 66 6c 61  |.report(err$,fla|
00000660  67 25 29 0d 02 80 0e 6e  61 6d 65 24 3d 61 70 70  |g%)....name$=app|
00000670  24 0d 02 8a 2e e7 20 66  6c 61 67 25 20 80 20 31  |$..... flag% . 1|
00000680  36 20 8c 20 6e 61 6d 65  24 3d 22 4d 65 73 73 61  |6 . name$="Messa|
00000690  67 65 20 66 72 6f 6d 20  22 2b 6e 61 6d 65 24 0d  |ge from "+name$.|
000006a0  02 94 0f 21 62 6c 6f 63  6b 25 3d 32 35 35 0d 02  |...!block%=255..|
000006b0  9e 17 24 28 62 6c 6f 63  6b 25 2b 34 29 3d 65 72  |..$(block%+4)=er|
000006c0  72 24 2b bd 30 0d 02 a8  39 c8 99 20 22 57 69 6d  |r$+.0...9.. "Wim|
000006d0  70 5f 52 65 70 6f 72 74  45 72 72 6f 72 22 2c 62  |p_ReportError",b|
000006e0  6c 6f 63 6b 25 2c 66 6c  61 67 25 2c 6e 61 6d 65  |lock%,flag%,name|
000006f0  24 20 b8 20 2c 65 72 72  63 6c 69 63 6b 25 0d 02  |$ . ,errclick%..|
00000700  b2 05 e1 0d 02 bc 05 3a  0d 02 c6 10 dd 20 f2 65  |.......:..... .e|
00000710  72 72 6f 72 28 61 24 29  0d 02 d0 18 c8 99 20 22  |rror(a$)...... "|
00000720  48 6f 75 72 67 6c 61 73  73 5f 53 6d 61 73 68 22  |Hourglass_Smash"|
00000730  0d 02 da 0a 2a 43 4c 4f  53 45 0d 02 e4 11 f2 72  |....*CLOSE.....r|
00000740  65 70 6f 72 74 28 61 24  2c 31 29 0d 02 ee 17 c8  |eport(a$,1).....|
00000750  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 44 6f 77  |. "Wimp_CloseDow|
00000760  6e 22 0d 02 f8 05 e0 0d  03 02 05 e1 0d 03 0c 05  |n"..............|
00000770  3a 0d 03 16 0e dd 20 f2  72 65 63 65 69 76 65 0d  |:..... .receive.|
00000780  03 20 12 c8 8e 20 62 6c  6f 63 6b 25 21 31 36 20  |. ... block%!16 |
00000790  ca 0d 03 2a 0f c9 20 30  3a 71 75 69 74 25 3d b9  |...*.. 0:quit%=.|
000007a0  0d 03 34 1c c9 20 33 3a  f2 64 61 74 61 6c 6f 61  |..4.. 3:.dataloa|
000007b0  64 28 62 6c 6f 63 6b 25  21 34 30 29 0d 03 3e 05  |d(block%!40)..>.|
000007c0  cb 0d 03 48 05 e1 0d 03  52 05 3a 0d 03 5c 16 dd  |...H....R.:..\..|
000007d0  20 f2 64 61 74 61 6c 6f  61 64 28 74 79 70 65 25  | .dataload(type%|
000007e0  29 0d 03 66 15 e7 20 74  79 70 65 25 3c 3e 26 46  |)..f.. type%<>&F|
000007f0  46 46 20 8c 20 e1 0d 03  70 15 c8 99 20 22 48 6f  |FF . ...p... "Ho|
00000800  75 72 67 6c 61 73 73 5f  4f 6e 22 0d 03 7a 1c 70  |urglass_On"..z.p|
00000810  61 74 68 24 3d a4 73 74  72 69 6e 67 28 62 6c 6f  |ath$=.string(blo|
00000820  63 6b 25 2b 34 34 29 0d  03 84 15 f2 6c 6f 61 64  |ck%+44).....load|
00000830  5f 66 69 6c 65 28 70 61  74 68 24 29 0d 03 8e 16  |_file(path$)....|
00000840  c8 99 20 22 48 6f 75 72  67 6c 61 73 73 5f 4f 66  |.. "Hourglass_Of|
00000850  66 22 0d 03 98 14 24 77  69 6d 70 69 63 6f 6e 25  |f"....$wimpicon%|
00000860  3d 22 65 79 65 22 0d 03  a2 39 62 6c 6f 63 6b 25  |="eye"...9block%|
00000870  21 30 3d 2d 32 3a 62 6c  6f 63 6b 25 21 34 3d 69  |!0=-2:block%!4=i|
00000880  62 68 61 6e 64 6c 65 25  3a 62 6c 6f 63 6b 25 21  |bhandle%:block%!|
00000890  38 3d 30 3a 62 6c 6f 63  6b 25 21 31 32 3d 30 0d  |8=0:block%!12=0.|
000008a0  03 ac 22 c8 99 20 22 57  69 6d 70 5f 53 65 74 49  |..".. "Wimp_SetI|
000008b0  63 6f 6e 53 74 61 74 65  22 2c 2c 62 6c 6f 63 6b  |conState",,block|
000008c0  25 0d 03 b6 05 e1 0d 03  c0 05 3a 0d 03 ca 13 dd  |%.........:.....|
000008d0  20 a4 73 74 72 69 6e 67  28 70 74 72 25 29 0d 03  | .string(ptr%)..|
000008e0  d4 08 ea 20 61 24 0d 03  de 0f c8 95 20 3f 70 74  |... a$...... ?pt|
000008f0  72 25 3c 3e 30 0d 03 e8  18 61 24 2b 3d bd 28 3f  |r%<>0....a$+=.(?|
00000900  70 74 72 25 29 3a 70 74  72 25 2b 3d 31 0d 03 f2  |ptr%):ptr%+=1...|
00000910  05 ce 0d 03 fc 07 3d 61  24 0d 04 06 05 3a 0d 04  |......=a$....:..|
00000920  10 12 dd 20 f2 63 6c 69  63 6b 28 77 69 6e 25 29  |... .click(win%)|
00000930  0d 04 1a 0d c8 8e 20 77  69 6e 25 20 ca 0d 04 24  |...... win% ...$|
00000940  20 c9 20 69 6e 66 6f 25  3a f2 69 6e 66 6f 5f 73  | . info%:.info_s|
00000950  65 6c 28 62 6c 6f 63 6b  25 21 31 36 29 0d 04 2e  |el(block%!16)...|
00000960  18 c9 20 2d 32 3a f2 69  62 61 72 28 62 6c 6f 63  |.. -2:.ibar(bloc|
00000970  6b 25 21 38 29 0d 04 38  05 cb 0d 04 42 05 e1 0d  |k%!8)..8....B...|
00000980  04 4c 05 3a 0d 04 56 13  dd 20 f2 69 6e 66 6f 5f  |.L.:..V.. .info_|
00000990  73 65 6c 28 6e 6f 29 0d  04 60 2e e7 20 6e 6f 3d  |sel(no)..`.. no=|
000009a0  31 30 20 8c 20 2a 46 69  6c 65 72 5f 52 75 6e 20  |10 . *Filer_Run |
000009b0  3c 52 65 61 64 45 61 73  65 24 44 69 72 3e 2e 4d  |<ReadEase$Dir>.M|
000009c0  61 6e 75 61 6c 0d 04 6a  05 e1 0d 04 74 05 3a 0d  |anual..j....t.:.|
000009d0  04 7e 14 dd 20 f2 69 62  61 72 28 62 75 74 74 6f  |.~.. .ibar(butto|
000009e0  6e 25 29 0d 04 88 10 c8  8e 20 62 75 74 74 6f 6e  |n%)...... button|
000009f0  25 20 ca 0d 04 92 15 c9  20 31 2c 34 3a f2 69 62  |% ...... 1,4:.ib|
00000a00  61 72 5f 63 6c 69 63 6b  0d 04 9c 28 c9 20 32 3a  |ar_click...(. 2:|
00000a10  f2 73 68 6f 77 6d 65 6e  75 28 69 6d 65 6e 75 25  |.showmenu(imenu%|
00000a20  2c 21 62 6c 6f 63 6b 25  2d 36 34 2c 32 30 30 29  |,!block%-64,200)|
00000a30  0d 04 a6 05 cb 0d 04 b0  05 e1 0d 04 ba 05 3a 0d  |..............:.|
00000a40  04 c4 11 dd 20 f2 69 62  61 72 5f 63 6c 69 63 6b  |.... .ibar_click|
00000a50  0d 04 ce 35 e7 20 66 69  6c 65 5f 6c 6f 61 64 65  |...5. file_loade|
00000a60  64 3d a3 20 8c 20 f2 72  65 70 6f 72 74 28 22 4e  |d=. . .report("N|
00000a70  6f 20 66 69 6c 65 20 6c  6f 61 64 65 64 21 22 2c  |o file loaded!",|
00000a80  31 39 29 3a e1 0d 04 d8  27 f2 77 72 69 74 65 5f  |19):....'.write_|
00000a90  6c 28 69 6e 64 69 63 61  74 6f 72 25 2c 32 2c 70  |l(indicator%,2,p|
00000aa0  65 72 63 65 6e 74 5f 73  79 6c 6c 29 0d 04 e2 53  |ercent_syll)...S|
00000ab0  f2 77 72 69 74 65 5f 74  28 69 6e 64 69 63 61 74  |.write_t(indicat|
00000ac0  6f 72 25 2c 33 2c c3 28  70 65 72 63 65 6e 74 5f  |or%,3,.(percent_|
00000ad0  73 79 6c 6c 29 2b 22 25  20 57 6f 72 64 73 20 63  |syll)+"% Words c|
00000ae0  6f 6e 74 61 69 6e 69 6e  67 20 33 20 6f 72 20 6d  |ontaining 3 or m|
00000af0  6f 72 65 20 73 79 6c 6c  61 62 6c 65 73 22 29 0d  |ore syllables").|
00000b00  04 ec 4d f2 77 72 69 74  65 5f 74 28 69 6e 64 69  |..M.write_t(indi|
00000b10  63 61 74 6f 72 25 2c 34  2c 22 4d 65 61 6e 20 6e  |cator%,4,"Mean n|
00000b20  75 6d 62 65 72 20 6f 66  20 77 6f 72 64 73 20 70  |umber of words p|
00000b30  65 72 20 73 65 6e 74 65  6e 63 65 20 3d 20 22 2b  |er sentence = "+|
00000b40  c3 28 77 6f 72 64 5f 6c  65 6e 29 29 0d 04 f6 5f  |.(word_len))..._|
00000b50  f2 77 72 69 74 65 5f 74  28 69 6e 64 69 63 61 74  |.write_t(indicat|
00000b60  6f 72 25 2c 35 2c 22 52  65 61 64 69 6e 67 20 45  |or%,5,"Reading E|
00000b70  61 73 65 20 51 75 6f 74  69 65 6e 74 20 3d 20 30  |ase Quotient = 0|
00000b80  2e 34 28 22 2b c3 28 77  6f 72 64 5f 6c 65 6e 29  |.4("+.(word_len)|
00000b90  2b 22 2b 22 2b c3 28 70  65 72 63 65 6e 74 5f 73  |+"+"+.(percent_s|
00000ba0  79 6c 6c 29 2b 22 29 2b  35 22 29 0d 05 00 22 52  |yll)+")+5")..."R|
00000bb0  41 3d 30 2e 34 2a 28 70  65 72 63 65 6e 74 5f 73  |A=0.4*(percent_s|
00000bc0  79 6c 6c 2b 77 6f 72 64  5f 6c 65 6e 29 0d 05 0a  |yll+word_len)...|
00000bd0  09 52 41 2b 3d 35 0d 05  14 3b f2 77 72 69 74 65  |.RA+=5...;.write|
00000be0  5f 74 28 69 6e 64 69 63  61 74 6f 72 25 2c 36 2c  |_t(indicator%,6,|
00000bf0  22 52 65 61 64 69 6e 67  20 45 61 73 65 20 51 75  |"Reading Ease Qu|
00000c00  6f 74 69 65 6e 74 20 3d  20 22 2b c3 28 52 41 29  |otient = "+.(RA)|
00000c10  29 0d 05 1e 16 21 62 6c  6f 63 6b 25 3d 69 6e 64  |)....!block%=ind|
00000c20  69 63 61 74 6f 72 25 0d  05 28 24 c8 99 20 22 57  |icator%..($.. "W|
00000c30  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 53 74 61  |imp_GetWindowSta|
00000c40  74 65 22 2c 2c 62 6c 6f  63 6b 25 0d 05 32 10 62  |te",,block%..2.b|
00000c50  6c 6f 63 6b 25 21 32 38  3d 2d 31 0d 05 3c 20 c8  |lock%!28=-1..< .|
00000c60  99 20 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |. "Wimp_OpenWind|
00000c70  6f 77 22 2c 2c 62 6c 6f  63 6b 25 0d 05 46 05 e1  |ow",,block%..F..|
00000c80  0d 05 50 05 3a 0d 05 5a  17 dd 20 f2 73 65 74 75  |..P.:..Z.. .setu|
00000c90  70 6d 65 6e 75 28 6d 65  6e 75 25 29 0d 05 64 1f  |pmenu(menu%)..d.|
00000ca0  f3 20 74 69 74 6c 65 24  2c 6e 75 6d 25 3a 24 6d  |. title$,num%:$m|
00000cb0  65 6e 75 25 3d 74 69 74  6c 65 24 0d 05 6e 1b 77  |enu%=title$..n.w|
00000cc0  69 64 74 68 25 3d 28 a9  28 74 69 74 6c 65 24 29  |idth%=(.(title$)|
00000cd0  2d 32 29 2a 31 36 0d 05  78 2a 6d 65 6e 75 25 21  |-2)*16..x*menu%!|
00000ce0  31 32 3d 26 37 30 32 30  37 3a 6d 65 6e 75 25 21  |12=&70207:menu%!|
00000cf0  32 30 3d 34 34 3a 6d 65  6e 75 25 21 32 34 3d 30  |20=44:menu%!24=0|
00000d00  0d 05 82 1f 70 74 72 25  3d 6d 65 6e 75 25 2b 32  |....ptr%=menu%+2|
00000d10  38 3a e3 20 69 25 3d 31  20 b8 20 6e 75 6d 25 0d  |8:. i%=1 . num%.|
00000d20  05 8c 1b f3 20 6d 66 6c  61 67 73 25 2c 73 75 62  |.... mflags%,sub|
00000d30  70 74 72 25 2c 69 74 65  6d 24 0d 05 96 20 21 70  |ptr%,item$... !p|
00000d40  74 72 25 3d 6d 66 6c 61  67 73 25 3a 70 74 72 25  |tr%=mflags%:ptr%|
00000d50  21 34 3d 73 75 62 70 74  72 25 0d 05 a0 24 70 74  |!4=subptr%...$pt|
00000d60  72 25 21 38 3d 26 37 30  30 30 30 32 31 3a 24 28  |r%!8=&7000021:$(|
00000d70  70 74 72 25 2b 31 32 29  3d 69 74 65 6d 24 0d 05  |ptr%+12)=item$..|
00000d80  aa 16 61 25 3d 28 a9 28  69 74 65 6d 24 29 2b 31  |..a%=(.(item$)+1|
00000d90  29 2a 31 36 0d 05 b4 19  e7 20 61 25 3e 77 69 64  |)*16..... a%>wid|
00000da0  74 68 25 20 77 69 64 74  68 25 3d 61 25 0d 05 be  |th% width%=a%...|
00000db0  0e 70 74 72 25 2b 3d 32  34 3a ed 0d 05 c8 13 6d  |.ptr%+=24:.....m|
00000dc0  65 6e 75 25 21 31 36 3d  77 69 64 74 68 25 0d 05  |enu%!16=width%..|
00000dd0  d2 05 e1 0d 05 dc 05 3a  0d 05 e6 1e dd 20 f2 73  |.......:..... .s|
00000de0  68 6f 77 6d 65 6e 75 28  6d 65 6e 75 25 2c 6d 78  |howmenu(menu%,mx|
00000df0  25 2c 6d 79 25 29 0d 05  f0 27 c8 99 20 22 57 69  |%,my%)...'.. "Wi|
00000e00  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
00000e10  6d 65 6e 75 25 2c 6d 78  25 2c 6d 79 25 0d 05 fa  |menu%,mx%,my%...|
00000e20  05 e1 0d 06 04 05 3a 0d  06 0e 11 dd 20 f2 6d 65  |......:..... .me|
00000e30  6e 75 73 65 6c 65 63 74  0d 06 18 20 73 65 6c 31  |nuselect... sel1|
00000e40  25 3d 21 62 6c 6f 63 6b  25 3a 73 65 6c 32 25 3d  |%=!block%:sel2%=|
00000e50  62 6c 6f 63 6b 25 21 34  0d 06 22 24 c8 99 20 22  |block%!4.."$.. "|
00000e60  57 69 6d 70 5f 47 65 74  50 6f 69 6e 74 65 72 49  |Wimp_GetPointerI|
00000e70  6e 66 6f 22 2c 2c 62 6c  6f 63 6b 25 0d 06 2c 14  |nfo",,block%..,.|
00000e80  62 75 74 74 6f 6e 25 3d  62 6c 6f 63 6b 25 21 38  |button%=block%!8|
00000e90  0d 06 36 0e c8 8e 20 73  65 6c 31 25 20 ca 0d 06  |..6... sel1% ...|
00000ea0  40 0f c9 20 31 3a 71 75  69 74 25 3d b9 0d 06 4a  |@.. 1:quit%=...J|
00000eb0  05 cb 0d 06 54 27 e7 20  62 75 74 74 6f 6e 25 3d  |....T'. button%=|
00000ec0  31 20 8c 20 f2 73 68 6f  77 6d 65 6e 75 28 69 6d  |1 . .showmenu(im|
00000ed0  65 6e 75 25 2c 30 2c 30  29 0d 06 5e 05 e1 0d 06  |enu%,0,0)..^....|
00000ee0  68 05 3a 0d 06 72 47 dd  20 a4 63 72 65 61 74 65  |h.:..rG. .create|
00000ef0  5f 69 63 6f 6e 28 77 68  61 6e 25 2c 69 78 25 2c  |_icon(whan%,ix%,|
00000f00  69 79 25 2c 69 77 25 2c  69 68 25 2c 66 6c 61 67  |iy%,iw%,ih%,flag|
00000f10  25 2c 74 65 78 74 24 2c  70 74 72 31 25 2c 70 74  |%,text$,ptr1%,pt|
00000f20  72 32 25 2c 70 74 72 33  25 29 0d 06 7c 11 21 62  |r2%,ptr3%)..|.!b|
00000f30  6c 6f 63 6b 25 3d 77 68  61 6e 25 0d 06 86 10 62  |lock%=whan%....b|
00000f40  6c 6f 63 6b 25 21 34 3d  69 78 25 0d 06 90 10 62  |lock%!4=ix%....b|
00000f50  6c 6f 63 6b 25 21 38 3d  69 79 25 0d 06 9a 15 62  |lock%!8=iy%....b|
00000f60  6c 6f 63 6b 25 21 31 32  3d 69 78 25 2b 69 77 25  |lock%!12=ix%+iw%|
00000f70  0d 06 a4 15 62 6c 6f 63  6b 25 21 31 36 3d 69 79  |....block%!16=iy|
00000f80  25 2b 69 68 25 0d 06 ae  13 62 6c 6f 63 6b 25 21  |%+ih%....block%!|
00000f90  32 30 3d 66 6c 61 67 25  0d 06 b8 0f e7 20 70 74  |20=flag%..... pt|
00000fa0  72 31 25 3d 30 20 8c 0d  06 c2 16 24 28 62 6c 6f  |r1%=0 .....$(blo|
00000fb0  63 6b 25 2b 32 34 29 3d  74 65 78 74 24 0d 06 cc  |ck%+24)=text$...|
00000fc0  05 cc 0d 06 d6 13 62 6c  6f 63 6b 25 21 32 34 3d  |......block%!24=|
00000fd0  70 74 72 31 25 0d 06 e0  13 62 6c 6f 63 6b 25 21  |ptr1%....block%!|
00000fe0  32 38 3d 70 74 72 32 25  0d 06 ea 13 62 6c 6f 63  |28=ptr2%....bloc|
00000ff0  6b 25 21 33 32 3d 70 74  72 33 25 0d 06 f4 05 cd  |k%!32=ptr3%.....|
00001000  0d 06 fe 2b c8 99 20 22  57 69 6d 70 5f 43 72 65  |...+.. "Wimp_Cre|
00001010  61 74 65 49 63 6f 6e 22  2c 2c 62 6c 6f 63 6b 25  |ateIcon",,block%|
00001020  20 b8 20 69 68 61 6e 64  6c 65 25 0d 07 08 0d 3d  | . ihandle%....=|
00001030  69 68 61 6e 64 6c 65 25  0d 07 12 05 3a 0d 07 1c  |ihandle%....:...|
00001040  1c dd 20 f2 77 72 69 74  65 5f 6c 28 77 69 6e 25  |.. .write_l(win%|
00001050  2c 69 63 25 2c 70 6c 75  29 0d 07 26 1d 21 62 6c  |,ic%,plu)..&.!bl|
00001060  6f 63 6b 25 3d 77 69 6e  25 3a 62 6c 6f 63 6b 25  |ock%=win%:block%|
00001070  21 34 3d 69 63 25 0d 07  30 20 c8 99 20 22 57 69  |!4=ic%..0 .. "Wi|
00001080  6d 70 5f 44 65 6c 65 74  65 49 63 6f 6e 22 2c 2c  |mp_DeleteIcon",,|
00001090  62 6c 6f 63 6b 25 0d 07  3a 41 61 25 3d a4 63 72  |block%..:Aa%=.cr|
000010a0  65 61 74 65 5f 69 63 6f  6e 28 77 69 6e 25 2c 32  |eate_icon(win%,2|
000010b0  34 2c 2d 32 35 34 2c 36  2e 33 32 2a 70 6c 75 2c  |4,-254,6.32*plu,|
000010c0  35 30 2c 26 41 37 30 30  30 30 33 39 2c 22 20 22  |50,&A7000039," "|
000010d0  2c 30 2c 30 2c 30 29 0d  07 44 05 e1 0d 07 4e 05  |,0,0,0)..D....N.|
000010e0  3a 0d 07 58 1e dd 20 f2  77 72 69 74 65 5f 74 28  |:..X.. .write_t(|
000010f0  77 69 6e 25 2c 69 63 25  2c 74 65 78 74 24 29 0d  |win%,ic%,text$).|
00001100  07 62 1d 21 62 6c 6f 63  6b 25 3d 77 69 6e 25 3a  |.b.!block%=win%:|
00001110  62 6c 6f 63 6b 25 21 34  3d 69 63 25 0d 07 6c 22  |block%!4=ic%..l"|
00001120  c8 99 20 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |.. "Wimp_GetIcon|
00001130  53 74 61 74 65 22 2c 2c  62 6c 6f 63 6b 25 0d 07  |State",,block%..|
00001140  76 16 24 28 62 6c 6f 63  6b 25 21 32 38 29 3d 74  |v.$(block%!28)=t|
00001150  65 78 74 24 0d 07 80 1d  21 62 6c 6f 63 6b 25 3d  |ext$....!block%=|
00001160  77 69 6e 25 3a 62 6c 6f  63 6b 25 21 34 3d 69 63  |win%:block%!4=ic|
00001170  25 0d 07 8a 1a 62 6c 6f  63 6b 25 21 38 3d 30 3a  |%....block%!8=0:|
00001180  62 6c 6f 63 6b 25 21 31  32 3d 30 0d 07 94 22 c8  |block%!12=0...".|
00001190  99 20 22 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  |. "Wimp_SetIconS|
000011a0  74 61 74 65 22 2c 2c 62  6c 6f 63 6b 25 0d 07 9e  |tate",,block%...|
000011b0  05 e1 0d 07 a8 05 3a 0d  07 b2 17 dd 20 f2 6c 6f  |......:..... .lo|
000011c0  61 64 5f 66 69 6c 65 28  70 61 74 68 24 29 0d 07  |ad_file(path$)..|
000011d0  bc 11 66 69 6c 65 5f 6c  6f 61 64 65 64 3d b9 0d  |..file_loaded=..|
000011e0  07 c6 0c 54 45 4d 50 24  3d 22 22 0d 07 d0 09 63  |...TEMP$=""....c|
000011f0  6e 74 3d 30 0d 07 da 0a  63 6e 74 32 3d 30 0d 07  |nt=0....cnt2=0..|
00001200  e4 0c 54 45 4d 50 24 3d  22 22 0d 07 ee 0d 62 79  |..TEMP$=""....by|
00001210  74 65 5f 6e 6f 3d 30 0d  07 f8 09 53 59 33 3d 30  |te_no=0....SY3=0|
00001220  0d 08 02 0e 66 3d 8e 28  70 61 74 68 24 29 0d 08  |....f=.(path$)..|
00001230  0c 12 74 6f 74 5f 73 69  7a 65 3d a2 23 66 2b 34  |..tot_size=.#f+4|
00001240  0d 08 16 05 f5 0d 08 20  05 f5 0d 08 2a 09 54 3d  |....... ....*.T=|
00001250  9a 23 66 0d 08 34 0e 62  79 74 65 5f 6e 6f 2b 3d  |.#f..4.byte_no+=|
00001260  31 0d 08 3e 37 c8 99 20  22 48 6f 75 72 67 6c 61  |1..>7.. "Hourgla|
00001270  73 73 5f 50 65 72 63 65  6e 74 61 67 65 22 2c a8  |ss_Percentage",.|
00001280  28 28 62 79 74 65 5f 6e  6f 2f 74 6f 74 5f 73 69  |((byte_no/tot_si|
00001290  7a 65 29 2a 31 30 30 29  0d 08 48 23 e7 20 54 3e  |ze)*100)..H#. T>|
000012a0  3d 97 28 22 61 22 29 20  80 20 54 3c 3d 97 28 22  |=.("a") . T<=.("|
000012b0  7a 22 29 20 8c 20 54 2d  3d 33 32 0d 08 52 0f 54  |z") . T-=32..R.T|
000012c0  45 4d 50 24 2b 3d bd 28  54 29 0d 08 5c 55 fd 20  |EMP$+=.(T)..\U. |
000012d0  54 3d 33 32 20 84 20 54  3d 31 30 20 84 20 54 3d  |T=32 . T=10 . T=|
000012e0  31 33 20 84 20 54 3d 97  28 22 2e 22 29 20 84 20  |13 . T=.(".") . |
000012f0  54 3d 97 28 22 3b 22 29  20 84 20 54 3d 97 28 22  |T=.(";") . T=.("|
00001300  3a 22 29 20 84 20 54 3d  97 28 22 3f 22 29 20 84  |:") . T=.("?") .|
00001310  20 54 3d 97 28 22 21 22  29 20 84 20 c5 23 66 0d  | T=.("!") . .#f.|
00001320  08 66 1c 54 45 4d 50 24  3d c0 54 45 4d 50 24 2c  |.f.TEMP$=.TEMP$,|
00001330  a9 28 54 45 4d 50 24 29  2d 31 29 0d 08 70 23 e7  |.(TEMP$)-1)..p#.|
00001340  20 a4 73 79 6c 6c 61 62  6c 65 73 28 54 45 4d 50  | .syllables(TEMP|
00001350  24 29 3e 3d 33 20 8c 20  53 59 33 2b 3d 31 0d 08  |$)>=3 . SY3+=1..|
00001360  7a 05 cd 0d 08 84 0c 54  45 4d 50 24 3d 22 22 0d  |z......TEMP$="".|
00001370  08 8e 0a 63 6e 74 2b 3d  31 0d 08 98 2b e7 20 54  |...cnt+=1...+. T|
00001380  3c 3e 33 32 20 8c 20 77  6f 72 64 73 28 63 6e 74  |<>32 . words(cnt|
00001390  32 29 3d 63 6e 74 3a 63  6e 74 32 2b 3d 31 3a 63  |2)=cnt:cnt2+=1:c|
000013a0  6e 74 3d 30 0d 08 a2 09  fd 20 c5 23 66 0d 08 ac  |nt=0..... .#f...|
000013b0  08 d9 20 23 66 0d 08 b6  07 54 3d 30 0d 08 c0 15  |.. #f....T=0....|
000013c0  e3 20 4c 4f 4f 50 3d 30  20 b8 20 63 6e 74 32 2d  |. LOOP=0 . cnt2-|
000013d0  31 0d 08 ca 12 54 2b 3d  77 6f 72 64 73 28 4c 4f  |1....T+=words(LO|
000013e0  4f 50 29 0d 08 d4 05 ed  0d 08 de 1c 70 65 72 63  |OP).........perc|
000013f0  65 6e 74 5f 73 79 6c 6c  3d 28 53 59 33 2f 54 29  |ent_syll=(SY3/T)|
00001400  2a 31 30 30 0d 08 e8 20  70 65 72 63 65 6e 74 5f  |*100... percent_|
00001410  73 79 6c 6c 3d a8 28 70  65 72 63 65 6e 74 5f 73  |syll=.(percent_s|
00001420  79 6c 6c 29 0d 08 f2 17  77 6f 72 64 5f 6c 65 6e  |yll)....word_len|
00001430  3d 54 2f 28 63 6e 74 32  2d 31 29 0d 08 fc 18 77  |=T/(cnt2-1)....w|
00001440  6f 72 64 5f 6c 65 6e 3d  a8 28 77 6f 72 64 5f 6c  |ord_len=.(word_l|
00001450  65 6e 29 0d 09 06 0f f2  69 62 61 72 5f 63 6c 69  |en).....ibar_cli|
00001460  63 6b 0d 09 10 05 e1 0d  09 1a 05 3a 0d 09 24 17  |ck.........:..$.|
00001470  dd 20 a4 73 79 6c 6c 61  62 6c 65 73 28 77 6f 72  |. .syllables(wor|
00001480  64 24 29 0d 09 2e 1e ea  20 4c 65 74 74 65 72 24  |d$)..... Letter$|
00001490  2c 4e 65 78 74 4c 65 74  74 65 72 24 2c 53 63 61  |,NextLetter$,Sca|
000014a0  6e 0d 09 38 05 f1 0d 09  42 19 f1 20 22 53 63 61  |n..8....B.. "Sca|
000014b0  6e 6e 69 6e 67 20 3a 20  22 3b 77 6f 72 64 24 0d  |nning : ";word$.|
000014c0  09 4c 05 f1 0d 09 56 0f  53 79 6c 6c 61 62 6c 65  |.L....V.Syllable|
000014d0  73 3d 30 0d 09 60 17 e3  20 53 63 61 6e 3d 31 20  |s=0..`.. Scan=1 |
000014e0  b8 20 a9 28 77 6f 72 64  24 29 0d 09 6a 1a 4c 65  |. .(word$)..j.Le|
000014f0  74 74 65 72 24 3d c1 77  6f 72 64 24 2c 53 63 61  |tter$=.word$,Sca|
00001500  6e 2c 31 29 0d 09 74 20  4e 65 78 74 4c 65 74 74  |n,1)..t NextLett|
00001510  65 72 24 3d c1 77 6f 72  64 24 2c 53 63 61 6e 2b  |er$=.word$,Scan+|
00001520  31 2c 31 29 0d 09 7e 10  c8 8e 20 4c 65 74 74 65  |1,1)..~... Lette|
00001530  72 24 20 ca 0d 09 88 26  c9 20 22 41 22 2c 22 45  |r$ ....&. "A","E|
00001540  22 2c 22 49 22 2c 22 4f  22 2c 22 55 22 3a 53 79  |","I","O","U":Sy|
00001550  6c 6c 61 62 6c 65 73 2b  3d 31 0d 09 92 14 c8 8e  |llables+=1......|
00001560  20 4e 65 78 74 4c 65 74  74 65 72 24 20 ca 0d 09  | NextLetter$ ...|
00001570  9c 1e c9 20 22 45 22 2c  22 4f 22 2c 22 49 22 3a  |... "E","O","I":|
00001580  53 79 6c 6c 61 62 6c 65  73 2d 3d 31 0d 09 a6 1d  |Syllables-=1....|
00001590  c9 20 22 41 22 2c 22 55  22 3a e7 20 4c 65 74 74  |. "A","U":. Lett|
000015a0  65 72 24 3d 22 49 22 20  8c 0d 09 b0 16 f4 20 44  |er$="I" ...... D|
000015b0  6f 20 6e 6f 74 68 69 6e  67 20 2d 2d 2d 2d 2d 0d  |o nothing -----.|
000015c0  09 ba 05 cc 0d 09 c4 10  53 79 6c 6c 61 62 6c 65  |........Syllable|
000015d0  73 2d 3d 31 0d 09 ce 05  cd 0d 09 d8 05 cb 0d 09  |s-=1............|
000015e0  e2 2a c9 20 22 48 22 3a  e7 20 4e 65 78 74 4c 65  |.*. "H":. NextLe|
000015f0  74 74 65 72 24 3d 22 4d  22 20 8c 20 53 79 6c 6c  |tter$="M" . Syll|
00001600  61 62 6c 65 73 2b 3d 31  0d 09 ec 05 cb 0d 09 f6  |ables+=1........|
00001610  6f e7 20 4e 65 78 74 4c  65 74 74 65 72 24 3d 22  |o. NextLetter$="|
00001620  59 22 20 80 20 4c 65 74  74 65 72 24 3c 3e 22 41  |Y" . Letter$<>"A|
00001630  22 20 80 20 4c 65 74 74  65 72 24 3c 3e 22 45 22  |" . Letter$<>"E"|
00001640  20 80 20 4c 65 74 74 65  72 24 3c 3e 22 49 22 20  | . Letter$<>"I" |
00001650  80 20 4c 65 74 74 65 72  24 3c 3e 22 4f 22 20 80  |. Letter$<>"O" .|
00001660  20 4c 65 74 74 65 72 24  3c 3e 22 55 22 20 8c 20  | Letter$<>"U" . |
00001670  53 79 6c 6c 61 62 6c 65  73 2b 3d 31 0d 0a 00 05  |Syllables+=1....|
00001680  ed 0d 0a 0a 24 e7 20 c2  77 6f 72 64 24 2c 33 29  |....$. .word$,3)|
00001690  3d 22 45 53 20 22 20 8c  20 53 79 6c 6c 61 62 6c  |="ES " . Syllabl|
000016a0  65 73 2d 3d 31 0d 0a 14  24 e7 20 c2 77 6f 72 64  |es-=1...$. .word|
000016b0  24 2c 33 29 3d 22 45 41  20 22 20 8c 20 53 79 6c  |$,3)="EA " . Syl|
000016c0  6c 61 62 6c 65 73 2b 3d  31 0d 0a 1e 24 e7 20 c2  |lables+=1...$. .|
000016d0  77 6f 72 64 24 2c 33 29  3d 22 45 44 20 22 20 8c  |word$,3)="ED " .|
000016e0  20 53 79 6c 6c 61 62 6c  65 73 2d 3d 31 0d 0a 28  | Syllables-=1..(|
000016f0  05 f1 0d 0a 32 30 f1 20  22 4e 75 6d 62 65 72 20  |....20. "Number |
00001700  6f 66 20 73 79 6c 6c 61  62 6c 65 73 20 69 6e 20  |of syllables in |
00001710  77 6f 72 64 20 3a 20 22  3b 53 79 6c 6c 61 62 6c  |word : ";Syllabl|
00001720  65 73 0d 0a 3c 0e 3d 53  79 6c 6c 61 62 6c 65 73  |es..<.=Syllables|
00001730  0d 0a 46 05 3a 0d 0a 50  2b dc 20 52 65 61 64 45  |..F.:..P+. ReadE|
00001740  61 73 65 2c 32 2c 25 31  30 2c 69 6e 66 6f 25 2c  |ase,2,%10,info%,|
00001750  49 6e 66 6f 2c 26 38 30  2c 2d 31 2c 51 75 69 74  |Info,&80,-1,Quit|
00001760  0d ff                                             |..|
00001762