�     >!RunImage (Analyst)
� By  Chris Allen
� (c) AU May 1994
(:
2!Version$="1.0 (21st Nov '93)"
<
F active%=0:length%=0:cumul%=0
P�� wp% 8000, wind% 800, sprite% 13000, menu% 400, info% 800, in% 800, skill% 800, skll% 800, gre% 800, greetin% 800, add% 800, addwrd% 800, grph% 800, graph% 800, help% 500, wordl%(15), perc(15)
Zsprite%!0=13000
dsprite%!8=16
n!ș "OS_SpriteOp",&109,sprite%
x:ș "OS_SpriteOp",&10A,sprite%,"<Analyst$Dir>.!Sprites"
�-ș &400C0,200,&4B534154,"Analyst" � ,han%
�(ș &400D9,,"<Analyst$Dir>.Templates"
�wp%!64=sprite%
�5ș &400DB,,greetin%,gre%,gre%+800,-1,"Greeting",0
�#ș &400C1,,greetin% � greethan%
�&�seticon(greethan%,4,"v"+Version$)
�Swp%!0=greethan%:ș"Wimp_GetWindowState",,wp%:wp%!28=-1:ș"Wimp_OpenWindow",,wp%
���err(�,�$)
��
�ș &400C7,,wp% � r%
�Ȏ r% �
�� 0 : Ȏ active% �
�#  � 0 : active%=1:�continueload

  � 2 : �load2

  � 3 : �load3

  �

"]� 1 : � wp%!0=graphan% �redraw � � wp%!0=skillhan% �redraw2 � ș "Wimp_RedrawWindow",,wp%

,� 2 : ș &400C5,,wp%

6� 3 : ș &400C6,,wp%

@� 6 : �click

J$� 8 : ș"Wimp_ProcessKey",wp%!24

T� 9 : �menuselect

^� 17,18 : Ȏ wp%!16 �

h  � 0 : ș &400DD,han%

r  � 3 : �load1

|  � &502 : �help

��

��

�� �

�

���continueload

�/ș &400DB,,wp%,wind%,wind%+800,-1,"Words",0

�ș &400C1,,wp% � wordshan%

�,ș &400DB,,info%,in%,in%+800,-1,"info",0

�ș &400C1,,info% � inhan%

�2ș &400DB,,skill%,skll%,skll%+800,-1,"Skill",0

�!ș &400C1,,skill% � skillhan%

�2ș &400DB,,graph%,grph%,grph%+800,-1,"Graph",0

� ș &400C1,,graph% � graphan%

ș &400DA
�iconbar

a$=�(300)
&�seticon(inhan%,4,Version$)
0-wp%!0=greethan%:ș"Wimp_CloseWindow",,wp%
:�
D
N��toggleicon(wp%!0,wp%!4)
Xwp%!8=&200000:wp%!12=0
bș "Wimp_SetIconState",,wp%
l�
v
�
��redraw2
�)ș "Wimp_RedrawWindow",,wp% � redraw%
�x=wp%!4-wp%!20
��5
�ȕ redraw%
�y=wp%!16-wp%!24-5
�� x+10,y-100
�1� "Poor   Average     Excellent   Impossible"
�� x+10,y-64,x+610,y-64
�� x+10,y-64,x+10,y-74
�� x+170,y-64,x+170,y-74
�� x+380,y-64,x+380,y-74
�� x+610,y-64,x+610,y-74
1� x+10+40*average%,y-15,x+10+40*average%,y-63
.� x+10+40*average%,y-63,x+40*average%,y-53
1� x+10+40*average%,y-63,x+20+40*average%,y-53
 )ș "Wimp_GetRectangle",,wp% � redraw%
*�
4�
>
H��redraw
R)ș "Wimp_RedrawWindow",,wp% � redraw%
\x=wp%!4-wp%!20
f�5
pȕ redraw%
zy=wp%!16-wp%!24-5
�� x+36,y-36
�� "100"
�� x+36,y-108
�� " 90"
�� x+36,y-180
�� " 80"
�� x+36,y-252
�� " 70"
�� x+36,y-324
�� " 60"
�� x+36,y-396
�� " 50"
�� x+36,y-468
� " 40"
� x+36,y-540
� " 30"
$� x+36,y-612
.� " 20"
8� x+36,y-684
B� " 10"
L� x+36,y-756
V� "  0"
`� x+100,y-36,x+100,y-756
j
� x,y-300
t
� " %"
~� x+100,y-756,x+850,y-756
�
� x,y-792
�=� "        1  2  3  4  5  6  7  8  9  10 11 12 13 14 15+"
�
� x,y-828
�*� "                       Word length"
�� a%=1 � 15
��5
�height%=(perc(a%)/2)*14
�� cumul% �
�
height%=0
�� b%=1 � a%
�height%+=(perc(b%)/2)*14
�� b%
�

+ȓȐ x+112+((a%-1)*48),y-756,48,height%
�7
)ȓ x+112+((a%-1)*48),y-756,48,height%
(� a%
2)ș "Wimp_GetRectangle",,wp% � redraw%
<�
F�
P
Z��load1
dfilename$=$(wp%+44)
nW� wp%!40<>&FFF � wp%!40<>&AF8 �err(1,"I can only accept ASCII text or 1stWord+."):�
xfiltype%=wp%!40
�$�seticon(wordshan%,76,filename$)
�<� filtype%=&AF8 �seticon(wordshan%,85,"&AF8 (1stWord+)")
�8� filtype%=&FFF �seticon(wordshan%,85,"&FFF (Text)")
�wp%!12=wp%!8:wp%!16=4
�&ș "Wimp_SendMessage",17,wp%,wp%!4
�-wp%!0=wordshan%:ș"Wimp_CloseWindow",,wp%
�,wp%!0=graphan%:ș"Wimp_CloseWindow",,wp%
�-wp%!0=skillhan%:ș"Wimp_CloseWindow",,wp%
�'active%=2:�seticonbar("processing")
�0ș "Wimp_GetPointerInfo",,wp%:x=wp%!0:oldx=x
��
�
���load2
(ș "OS_File",13,filename$ � ,,,,len%
I� len%=0 �err(1,"File is empty."):active%=1:�seticonbar("!analyst"):�
� len%>length% � file% len%
"length%=len%
,%ș "OS_File",12,filename$,file%,0
6%�seticon(wordshan%,86,�(length%))
@� a%=1 � 15
Jwordl%(a%)=0
T� a%
^�process
h�
r
|��load3
��seticonbar("!analyst")
�
active%=4
�Swp%!0=wordshan%:ș"Wimp_GetWindowState",,wp%:wp%!28=-1:ș"Wimp_OpenWindow",,wp%
�Rwp%!0=graphan%:ș"Wimp_GetWindowState",,wp%:wp%!28=-1:ș"Wimp_OpenWindow",,wp%
�Swp%!0=skillhan%:ș"Wimp_GetWindowState",,wp%:wp%!28=-1:ș"Wimp_OpenWindow",,wp%
�average%=0
�� a%=1 � 15
�average%+=wordl%(a%)*a%
�� a%
�average%=average%/words%
�&�seticon(wordshan%,67,�(average%))
�� a%=1 � 15
�$perc(a%)=(wordl%(a%)/words%)*100
b%=perc(a%)
'�seticon(wordshan%,a%+41,�(b%)+"%")
� a%
&$�seticon(wordshan%,61,�(words%))
0� a%=1 � 15
:+�seticon(wordshan%,a%+26,�(wordl%(a%)))
D�
N�
X
b��seticonbar(spritename$)
lwp%!0=-1:wp%!4=ichan%
vș "Wimp_GetIconState",,wp%
�ș "Wimp_DeleteIcon",,wp%
�*wp%!4=wp%!8:wp%!8=wp%!12:wp%!12=wp%!16
�5wp%!16=wp%!20:wp%!20=wp%!24:$(wp%+24)=spritename$
�&ș "Wimp_CreateIcon",,wp% � ichan%
��
�
���err(wp%!0,$(wp%+4))
�E=0
�
Ȏ � �
�m� 11: $(wp%+4)="File too large/You have used me too many times. I will have to quit. Then reload me.":E=1
�� 19: �
��
�)ș "Wimp_ReportError",wp%,1,"Analyst"
� E=1 ș &400DD,han%
�

 
��help
*
help%=wp%
4help%!12=wp%!8
>help%!16=&503
HȎ help%!32 �
Rl� -2:t$="This is the Analyst icon.|MDrag a file (ASCII/1stWord+) to the icon to analyse it":Ȏ active% �
\>  � 4:t$+=", or click on the icon to see the information."
f  :t$+="."
p�
z<� wordshan%:t$="This is the words information window.|M"
�`  � help%!36>26 � help%!36<42 t$+="The number of "+�(help%!36-26)+" letter words there are."
�x  � help%!36>41 � help%!36<57 t$+="The percentage of "+�(help%!36-41)+" letter words there are (to the nearest 1%)."
�Ȏ help%!36 �
�+  � 61:t$+="The total number of words."
�&  � 62:t$+="The total percentage."
�*  � 67:t$+="Your average word length."
�*  � 76:t$+="The filename of the file."
�*  � 85:t$+="The filetype of the file."
�3  � 86:t$+="The length (in bytes) of the file."
��
�D� inhan% : t$="Oooh, I wonder what this could be?":Ȏ help%!36 �
�  � 9,10:t$+="|MC'est moi!"
��
	-� greethan% : t$="!Analyst is loading..."
	~� graphan% : t$="This is the graph window.|MIt shows a bar graph of the word length against the percentage.|M":Ȏ cumul% �
	N  � 0 : t$+="You can change the graph into a cumulative one via the menu."
	$W  � 1 : t$+="You can change the graph back into a non-cumulative one via the menu."
	.�
	8i� skillhan% : t$="This is the skill window.|MIt plots a rough estimate of your language skill level."
	B�
	Lt$+=�(0)
	V1$(help%+20)=t$:help%!0=(((20+�(t$)+1)�4)*4)+4
	`"ș "Wimp_SendMessage",17,help%
	j�
	t
	~
��iconbar
	�wp%!0=-1:wp%!4=0:wp%!8=0
	�$wp%!12=70:wp%!16=75:wp%!20=&300A
	�$(wp%+24)="!analyst"
	�&ș "Wimp_CreateIcon",,wp% � ichan%
	��
	�
	���menuselect
	�quit%=0
	�a%=wp%!0:b%=wp%!4
	�!ș "Wimp_GetPointerInfo",,wp%
	�but%=wp%!8
	�wp%!0=a%:wp%!4=b%
� icon%=2 �

Ȏ wp%!0 �
2  � 1 : cumul%=1-cumul%:wp%!0=graphan%:�redraw
"  � 2 : ș &400DD,han%:quit%=1
(�
2�
<� icon%=0 � icon%=1 �
FȎ wp%!0 �
P[� 1 : wp%!0=wordshan%:ș "Wimp_GetWindowState",,wp%:wp%!28=-1:ș "Wimp_OpenWindow",,wp%
ZZ� 2 : wp%!0=graphan%:ș "Wimp_GetWindowState",,wp%:wp%!28=-1:ș "Wimp_OpenWindow",,wp%
d[� 3 : wp%!0=skillhan%:ș "Wimp_GetWindowState",,wp%:wp%!28=-1:ș "Wimp_OpenWindow",,wp%
n � 4 : ș &400DD,han%:quit%=1
x�
��
�:� but%=1 � quit%=0 wp%!0=mousx%:wp%!4=mousy%:�makemenu
��
�
� ��seticon(wp%!0,wp%!4,text$)
�ș &400CE,,wp%
�$wp%!28=text$
�wp%!8=0:wp%!12=0
�ș &400CD,,wp%
��
�
���click
�.� wp%!8=2 � wp%!12=wordshan% s=0:�makemenu
'� wp%!12=-2 � wp%!8=2 s=1:�makemenu
-� wp%!8=2 � wp%!12=graphan% s=2:�makemenu
&� wp%!8=4 � wp%!12=-2 Ȏ active% �
"�� 4 : wp%!0=wordshan%:ș"Wimp_GetWindowState",,wp%:wp%!28=-1:ș"Wimp_OpenWindow",,wp%:wp%!0=graphan%:ș"Wimp_GetWindowState",,wp%:wp%!28=-1:ș"Wimp_OpenWindow",,wp%:wp%!0=skillhan%:ș"Wimp_GetWindowState",,wp%:wp%!28=-1:ș"Wimp_OpenWindow",,wp%
,; : �err(1,"Drag a file to my icon for me to analyse.")
6�
@�
J
T��makemenu
^$menu%="Analyst"
hmenu%?12=7
rmenu%?13=2
|menu%?14=7
�menu%?15=0
�menu%!16=200
�menu%!20=44
�menu%!24=0
�menu%!28=2
�menu%!32=inhan%
�menu%!36=&07000021
�$(menu%+40)="Info"
�� s=2 �
�*$menu%="Graph":menu%!16=175:menu%!28=0
�&� cumul%=1 menu%!52=1 � menu%!52=0
�;menu%!56=-1:menu%!60=&07000021:$(menu%+64)="Cumulative"
�Bmenu%!76=&80:menu%!80=-1:menu%!84=&07000021:$(menu%+88)="Quit"
�
� s<>2 �
menu%!52=0
&menu%!56=-1
07� active%=4 menu%!60=&07000021 � menu%!60=&07400021
:$(menu%+64)="Details..."
Dmenu%!76=0
Nmenu%!80=-1
X7� active%=4 menu%!84=&07000021 � menu%!84=&07400021
b$(menu%+88)="Graph..."
lmenu%!100=2
vmenu%!104=-1
�9� active%=4 menu%!108=&07000021 � menu%!108=&07400021
�$(menu%+112)="Skill..."
�menu%!124=&80
�menu%!128=-1
�menu%!132=&07000021
�$(menu%+136)="Quit"
��
�mousx%=wp%!0:mousy%=wp%!4
�icon%=s
�4� s=0 ș "Wimp_CreateMenu",,menu%,wp%!0-70,wp%!4
�2� s=1 ș "Wimp_CreateMenu",,menu%,wp%!0-68,364
�4� s=2 ș "Wimp_CreateMenu",,menu%,wp%!0-70,wp%!4
��




��process

ș "Hourglass_On"

 percent=100/length%

*
ptr%=0

4words%=0

>percent=100/length%

H� filtype%=&AF8 �search

R�

\f=0

fword$=""

p'� file%?ptr%>47 � file%?ptr%<58 f=1

z'� file%?ptr%>64 � file%?ptr%<91 f=1

�(� file%?ptr%>96 � file%?ptr%<123 f=1

�)� file%?ptr%>191 � file%?ptr%<215 f=1

�)� file%?ptr%>215 � file%?ptr%<247 f=1

�� file%?ptr%>247 f=1

�
ȕ f=1

�word$+=�(file%?ptr%)

�f=0

�ptr%+=1

�'� file%?ptr%>47 � file%?ptr%<58 f=1

�'� file%?ptr%>64 � file%?ptr%<91 f=1

�(� file%?ptr%>96 � file%?ptr%<123 f=1

�)� file%?ptr%>191 � file%?ptr%<215 f=1

�)� file%?ptr%>215 � file%?ptr%<247 f=1
� file%?ptr%>247 f=1
� ptr%>length% f=0
�
$%� word$<>"" �wordlength(�(word$))
.*ș "Hourglass_Percentage",ptr%*percent
8ptr%+=1
B� ptr%>length%
Lș "Hourglass_Off"
V
active%=3
`J� words%=0 �err(1,"No words found."):�seticonbar("!analyst"):active%=1
j�
t
~��search
�6ȕ file%?ptr%<58 � file%?ptr%>126 � file%?ptr%<160
�ptr%+=1
��
�Q� file%?(ptr%+1)<58 � file%?(ptr%+1)>126 � file%?(ptr%+1)<160 ptr%+=1:�search
��
�
���wordlength(a%)
�
words%+=1
�� a%<16 wordl%(a%)+=1
�� a%>15 wordl%(15)+=1
��
�

00000000  0d 00 0a 1e f4 20 20 20  20 20 3e 21 52 75 6e 49  |.....     >!RunI|
00000010  6d 61 67 65 20 28 41 6e  61 6c 79 73 74 29 0d 00  |mage (Analyst)..|
00000020  14 15 f4 20 42 79 20 20  43 68 72 69 73 20 41 6c  |... By  Chris Al|
00000030  6c 65 6e 0d 00 1e 15 f4  20 28 63 29 20 41 55 20  |len..... (c) AU |
00000040  4d 61 79 20 31 39 39 34  0d 00 28 05 3a 0d 00 32  |May 1994..(.:..2|
00000050  21 56 65 72 73 69 6f 6e  24 3d 22 31 2e 30 20 28  |!Version$="1.0 (|
00000060  32 31 73 74 20 4e 6f 76  20 27 39 33 29 22 0d 00  |21st Nov '93)"..|
00000070  3c 04 0d 00 46 20 61 63  74 69 76 65 25 3d 30 3a  |<...F active%=0:|
00000080  6c 65 6e 67 74 68 25 3d  30 3a 63 75 6d 75 6c 25  |length%=0:cumul%|
00000090  3d 30 0d 00 50 c5 de 20  77 70 25 20 38 30 30 30  |=0..P.. wp% 8000|
000000a0  2c 20 77 69 6e 64 25 20  38 30 30 2c 20 73 70 72  |, wind% 800, spr|
000000b0  69 74 65 25 20 31 33 30  30 30 2c 20 6d 65 6e 75  |ite% 13000, menu|
000000c0  25 20 34 30 30 2c 20 69  6e 66 6f 25 20 38 30 30  |% 400, info% 800|
000000d0  2c 20 69 6e 25 20 38 30  30 2c 20 73 6b 69 6c 6c  |, in% 800, skill|
000000e0  25 20 38 30 30 2c 20 73  6b 6c 6c 25 20 38 30 30  |% 800, skll% 800|
000000f0  2c 20 67 72 65 25 20 38  30 30 2c 20 67 72 65 65  |, gre% 800, gree|
00000100  74 69 6e 25 20 38 30 30  2c 20 61 64 64 25 20 38  |tin% 800, add% 8|
00000110  30 30 2c 20 61 64 64 77  72 64 25 20 38 30 30 2c  |00, addwrd% 800,|
00000120  20 67 72 70 68 25 20 38  30 30 2c 20 67 72 61 70  | grph% 800, grap|
00000130  68 25 20 38 30 30 2c 20  68 65 6c 70 25 20 35 30  |h% 800, help% 50|
00000140  30 2c 20 77 6f 72 64 6c  25 28 31 35 29 2c 20 70  |0, wordl%(15), p|
00000150  65 72 63 28 31 35 29 0d  00 5a 13 73 70 72 69 74  |erc(15)..Z.sprit|
00000160  65 25 21 30 3d 31 33 30  30 30 0d 00 64 10 73 70  |e%!0=13000..d.sp|
00000170  72 69 74 65 25 21 38 3d  31 36 0d 00 6e 21 c8 99  |rite%!8=16..n!..|
00000180  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  | "OS_SpriteOp",&|
00000190  31 30 39 2c 73 70 72 69  74 65 25 0d 00 78 3a c8  |109,sprite%..x:.|
000001a0  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
000001b0  26 31 30 41 2c 73 70 72  69 74 65 25 2c 22 3c 41  |&10A,sprite%,"<A|
000001c0  6e 61 6c 79 73 74 24 44  69 72 3e 2e 21 53 70 72  |nalyst$Dir>.!Spr|
000001d0  69 74 65 73 22 0d 00 82  2d c8 99 20 26 34 30 30  |ites"...-.. &400|
000001e0  43 30 2c 32 30 30 2c 26  34 42 35 33 34 31 35 34  |C0,200,&4B534154|
000001f0  2c 22 41 6e 61 6c 79 73  74 22 20 b8 20 2c 68 61  |,"Analyst" . ,ha|
00000200  6e 25 0d 00 8c 28 c8 99  20 26 34 30 30 44 39 2c  |n%...(.. &400D9,|
00000210  2c 22 3c 41 6e 61 6c 79  73 74 24 44 69 72 3e 2e  |,"<Analyst$Dir>.|
00000220  54 65 6d 70 6c 61 74 65  73 22 0d 00 96 12 77 70  |Templates"....wp|
00000230  25 21 36 34 3d 73 70 72  69 74 65 25 0d 00 a0 35  |%!64=sprite%...5|
00000240  c8 99 20 26 34 30 30 44  42 2c 2c 67 72 65 65 74  |.. &400DB,,greet|
00000250  69 6e 25 2c 67 72 65 25  2c 67 72 65 25 2b 38 30  |in%,gre%,gre%+80|
00000260  30 2c 2d 31 2c 22 47 72  65 65 74 69 6e 67 22 2c  |0,-1,"Greeting",|
00000270  30 0d 00 aa 23 c8 99 20  26 34 30 30 43 31 2c 2c  |0...#.. &400C1,,|
00000280  67 72 65 65 74 69 6e 25  20 b8 20 67 72 65 65 74  |greetin% . greet|
00000290  68 61 6e 25 0d 00 b4 26  f2 73 65 74 69 63 6f 6e  |han%...&.seticon|
000002a0  28 67 72 65 65 74 68 61  6e 25 2c 34 2c 22 76 22  |(greethan%,4,"v"|
000002b0  2b 56 65 72 73 69 6f 6e  24 29 0d 00 be 53 77 70  |+Version$)...Swp|
000002c0  25 21 30 3d 67 72 65 65  74 68 61 6e 25 3a c8 99  |%!0=greethan%:..|
000002d0  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
000002e0  74 61 74 65 22 2c 2c 77  70 25 3a 77 70 25 21 32  |tate",,wp%:wp%!2|
000002f0  38 3d 2d 31 3a c8 99 22  57 69 6d 70 5f 4f 70 65  |8=-1:.."Wimp_Ope|
00000300  6e 57 69 6e 64 6f 77 22  2c 2c 77 70 25 0d 00 c8  |nWindow",,wp%...|
00000310  10 ee 85 f2 65 72 72 28  9f 2c f6 24 29 0d 00 d2  |....err(.,.$)...|
00000320  05 f5 0d 00 dc 17 c8 99  20 26 34 30 30 43 37 2c  |........ &400C7,|
00000330  2c 77 70 25 20 b8 20 72  25 0d 00 e6 0b c8 8e 20  |,wp% . r%...... |
00000340  72 25 20 ca 0d 00 f0 16  c9 20 30 20 3a 20 c8 8e  |r% ...... 0 : ..|
00000350  20 61 63 74 69 76 65 25  20 ca 0d 00 fa 23 20 20  | active% ....#  |
00000360  c9 20 30 20 3a 20 61 63  74 69 76 65 25 3d 31 3a  |. 0 : active%=1:|
00000370  f2 63 6f 6e 74 69 6e 75  65 6c 6f 61 64 0d 01 04  |.continueload...|
00000380  12 20 20 c9 20 32 20 3a  20 f2 6c 6f 61 64 32 0d  |.  . 2 : .load2.|
00000390  01 0e 12 20 20 c9 20 33  20 3a 20 f2 6c 6f 61 64  |...  . 3 : .load|
000003a0  33 0d 01 18 07 20 20 cb  0d 01 22 5d c9 20 31 20  |3....  ..."]. 1 |
000003b0  3a 20 e7 20 77 70 25 21  30 3d 67 72 61 70 68 61  |: . wp%!0=grapha|
000003c0  6e 25 20 f2 72 65 64 72  61 77 20 8b 20 e7 20 77  |n% .redraw . . w|
000003d0  70 25 21 30 3d 73 6b 69  6c 6c 68 61 6e 25 20 f2  |p%!0=skillhan% .|
000003e0  72 65 64 72 61 77 32 20  8b 20 c8 99 20 22 57 69  |redraw2 . .. "Wi|
000003f0  6d 70 5f 52 65 64 72 61  77 57 69 6e 64 6f 77 22  |mp_RedrawWindow"|
00000400  2c 2c 77 70 25 0d 01 2c  18 c9 20 32 20 3a 20 c8  |,,wp%..,.. 2 : .|
00000410  99 20 26 34 30 30 43 35  2c 2c 77 70 25 0d 01 36  |. &400C5,,wp%..6|
00000420  18 c9 20 33 20 3a 20 c8  99 20 26 34 30 30 43 36  |.. 3 : .. &400C6|
00000430  2c 2c 77 70 25 0d 01 40  10 c9 20 36 20 3a 20 f2  |,,wp%..@.. 6 : .|
00000440  63 6c 69 63 6b 0d 01 4a  24 c9 20 38 20 3a 20 c8  |click..J$. 8 : .|
00000450  99 22 57 69 6d 70 5f 50  72 6f 63 65 73 73 4b 65  |."Wimp_ProcessKe|
00000460  79 22 2c 77 70 25 21 32  34 0d 01 54 15 c9 20 39  |y",wp%!24..T.. 9|
00000470  20 3a 20 f2 6d 65 6e 75  73 65 6c 65 63 74 0d 01  | : .menuselect..|
00000480  5e 19 c9 20 31 37 2c 31  38 20 3a 20 c8 8e 20 77  |^.. 17,18 : .. w|
00000490  70 25 21 31 36 20 ca 0d  01 68 1a 20 20 c9 20 30  |p%!16 ...h.  . 0|
000004a0  20 3a 20 c8 99 20 26 34  30 30 44 44 2c 68 61 6e  | : .. &400DD,han|
000004b0  25 0d 01 72 12 20 20 c9  20 33 20 3a 20 f2 6c 6f  |%..r.  . 3 : .lo|
000004c0  61 64 31 0d 01 7c 14 20  20 c9 20 26 35 30 32 20  |ad1..|.  . &502 |
000004d0  3a 20 f2 68 65 6c 70 0d  01 86 05 cb 0d 01 90 05  |: .help.........|
000004e0  cb 0d 01 9a 07 fd 20 a3  0d 01 a4 04 0d 01 ae 12  |...... .........|
000004f0  dd f2 63 6f 6e 74 69 6e  75 65 6c 6f 61 64 0d 01  |..continueload..|
00000500  b8 2f c8 99 20 26 34 30  30 44 42 2c 2c 77 70 25  |./.. &400DB,,wp%|
00000510  2c 77 69 6e 64 25 2c 77  69 6e 64 25 2b 38 30 30  |,wind%,wind%+800|
00000520  2c 2d 31 2c 22 57 6f 72  64 73 22 2c 30 0d 01 c2  |,-1,"Words",0...|
00000530  1e c8 99 20 26 34 30 30  43 31 2c 2c 77 70 25 20  |... &400C1,,wp% |
00000540  b8 20 77 6f 72 64 73 68  61 6e 25 0d 01 cc 2c c8  |. wordshan%...,.|
00000550  99 20 26 34 30 30 44 42  2c 2c 69 6e 66 6f 25 2c  |. &400DB,,info%,|
00000560  69 6e 25 2c 69 6e 25 2b  38 30 30 2c 2d 31 2c 22  |in%,in%+800,-1,"|
00000570  69 6e 66 6f 22 2c 30 0d  01 d6 1d c8 99 20 26 34  |info",0...... &4|
00000580  30 30 43 31 2c 2c 69 6e  66 6f 25 20 b8 20 69 6e  |00C1,,info% . in|
00000590  68 61 6e 25 0d 01 e0 32  c8 99 20 26 34 30 30 44  |han%...2.. &400D|
000005a0  42 2c 2c 73 6b 69 6c 6c  25 2c 73 6b 6c 6c 25 2c  |B,,skill%,skll%,|
000005b0  73 6b 6c 6c 25 2b 38 30  30 2c 2d 31 2c 22 53 6b  |skll%+800,-1,"Sk|
000005c0  69 6c 6c 22 2c 30 0d 01  ea 21 c8 99 20 26 34 30  |ill",0...!.. &40|
000005d0  30 43 31 2c 2c 73 6b 69  6c 6c 25 20 b8 20 73 6b  |0C1,,skill% . sk|
000005e0  69 6c 6c 68 61 6e 25 0d  01 f4 32 c8 99 20 26 34  |illhan%...2.. &4|
000005f0  30 30 44 42 2c 2c 67 72  61 70 68 25 2c 67 72 70  |00DB,,graph%,grp|
00000600  68 25 2c 67 72 70 68 25  2b 38 30 30 2c 2d 31 2c  |h%,grph%+800,-1,|
00000610  22 47 72 61 70 68 22 2c  30 0d 01 fe 20 c8 99 20  |"Graph",0... .. |
00000620  26 34 30 30 43 31 2c 2c  67 72 61 70 68 25 20 b8  |&400C1,,graph% .|
00000630  20 67 72 61 70 68 61 6e  25 0d 02 08 0d c8 99 20  | graphan%...... |
00000640  26 34 30 30 44 41 0d 02  12 0c f2 69 63 6f 6e 62  |&400DA.....iconb|
00000650  61 72 0d 02 1c 0d 61 24  3d bf 28 33 30 30 29 0d  |ar....a$=.(300).|
00000660  02 26 1f f2 73 65 74 69  63 6f 6e 28 69 6e 68 61  |.&..seticon(inha|
00000670  6e 25 2c 34 2c 56 65 72  73 69 6f 6e 24 29 0d 02  |n%,4,Version$)..|
00000680  30 2d 77 70 25 21 30 3d  67 72 65 65 74 68 61 6e  |0-wp%!0=greethan|
00000690  25 3a c8 99 22 57 69 6d  70 5f 43 6c 6f 73 65 57  |%:.."Wimp_CloseW|
000006a0  69 6e 64 6f 77 22 2c 2c  77 70 25 0d 02 3a 05 e1  |indow",,wp%..:..|
000006b0  0d 02 44 04 0d 02 4e 1d  dd f2 74 6f 67 67 6c 65  |..D...N...toggle|
000006c0  69 63 6f 6e 28 77 70 25  21 30 2c 77 70 25 21 34  |icon(wp%!0,wp%!4|
000006d0  29 0d 02 58 1a 77 70 25  21 38 3d 26 32 30 30 30  |)..X.wp%!8=&2000|
000006e0  30 30 3a 77 70 25 21 31  32 3d 30 0d 02 62 1f c8  |00:wp%!12=0..b..|
000006f0  99 20 22 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  |. "Wimp_SetIconS|
00000700  74 61 74 65 22 2c 2c 77  70 25 0d 02 6c 05 e1 0d  |tate",,wp%..l...|
00000710  02 76 04 0d 02 80 0d dd  f2 72 65 64 72 61 77 32  |.v.......redraw2|
00000720  0d 02 8a 29 c8 99 20 22  57 69 6d 70 5f 52 65 64  |...).. "Wimp_Red|
00000730  72 61 77 57 69 6e 64 6f  77 22 2c 2c 77 70 25 20  |rawWindow",,wp% |
00000740  b8 20 72 65 64 72 61 77  25 0d 02 94 12 78 3d 77  |. redraw%....x=w|
00000750  70 25 21 34 2d 77 70 25  21 32 30 0d 02 9e 06 ef  |p%!4-wp%!20.....|
00000760  35 0d 02 a8 0e c8 95 20  72 65 64 72 61 77 25 0d  |5...... redraw%.|
00000770  02 b2 15 79 3d 77 70 25  21 31 36 2d 77 70 25 21  |...y=wp%!16-wp%!|
00000780  32 34 2d 35 0d 02 bc 10  ec 20 78 2b 31 30 2c 79  |24-5..... x+10,y|
00000790  2d 31 30 30 0d 02 c6 31  f1 20 22 50 6f 6f 72 20  |-100...1. "Poor |
000007a0  20 20 41 76 65 72 61 67  65 20 20 20 20 20 45 78  |  Average     Ex|
000007b0  63 65 6c 6c 65 6e 74 20  20 20 49 6d 70 6f 73 73  |cellent   Imposs|
000007c0  69 62 6c 65 22 0d 02 d0  1a 86 20 78 2b 31 30 2c  |ible"..... x+10,|
000007d0  79 2d 36 34 2c 78 2b 36  31 30 2c 79 2d 36 34 0d  |y-64,x+610,y-64.|
000007e0  02 da 19 86 20 78 2b 31  30 2c 79 2d 36 34 2c 78  |.... x+10,y-64,x|
000007f0  2b 31 30 2c 79 2d 37 34  0d 02 e4 1b 86 20 78 2b  |+10,y-74..... x+|
00000800  31 37 30 2c 79 2d 36 34  2c 78 2b 31 37 30 2c 79  |170,y-64,x+170,y|
00000810  2d 37 34 0d 02 ee 1b 86  20 78 2b 33 38 30 2c 79  |-74..... x+380,y|
00000820  2d 36 34 2c 78 2b 33 38  30 2c 79 2d 37 34 0d 02  |-64,x+380,y-74..|
00000830  f8 1b 86 20 78 2b 36 31  30 2c 79 2d 36 34 2c 78  |... x+610,y-64,x|
00000840  2b 36 31 30 2c 79 2d 37  34 0d 03 02 31 86 20 78  |+610,y-74...1. x|
00000850  2b 31 30 2b 34 30 2a 61  76 65 72 61 67 65 25 2c  |+10+40*average%,|
00000860  79 2d 31 35 2c 78 2b 31  30 2b 34 30 2a 61 76 65  |y-15,x+10+40*ave|
00000870  72 61 67 65 25 2c 79 2d  36 33 0d 03 0c 2e 86 20  |rage%,y-63..... |
00000880  78 2b 31 30 2b 34 30 2a  61 76 65 72 61 67 65 25  |x+10+40*average%|
00000890  2c 79 2d 36 33 2c 78 2b  34 30 2a 61 76 65 72 61  |,y-63,x+40*avera|
000008a0  67 65 25 2c 79 2d 35 33  0d 03 16 31 86 20 78 2b  |ge%,y-53...1. x+|
000008b0  31 30 2b 34 30 2a 61 76  65 72 61 67 65 25 2c 79  |10+40*average%,y|
000008c0  2d 36 33 2c 78 2b 32 30  2b 34 30 2a 61 76 65 72  |-63,x+20+40*aver|
000008d0  61 67 65 25 2c 79 2d 35  33 0d 03 20 29 c8 99 20  |age%,y-53.. ).. |
000008e0  22 57 69 6d 70 5f 47 65  74 52 65 63 74 61 6e 67  |"Wimp_GetRectang|
000008f0  6c 65 22 2c 2c 77 70 25  20 b8 20 72 65 64 72 61  |le",,wp% . redra|
00000900  77 25 0d 03 2a 05 ce 0d  03 34 05 e1 0d 03 3e 04  |w%..*....4....>.|
00000910  0d 03 48 0c dd f2 72 65  64 72 61 77 0d 03 52 29  |..H...redraw..R)|
00000920  c8 99 20 22 57 69 6d 70  5f 52 65 64 72 61 77 57  |.. "Wimp_RedrawW|
00000930  69 6e 64 6f 77 22 2c 2c  77 70 25 20 b8 20 72 65  |indow",,wp% . re|
00000940  64 72 61 77 25 0d 03 5c  12 78 3d 77 70 25 21 34  |draw%..\.x=wp%!4|
00000950  2d 77 70 25 21 32 30 0d  03 66 06 ef 35 0d 03 70  |-wp%!20..f..5..p|
00000960  0e c8 95 20 72 65 64 72  61 77 25 0d 03 7a 15 79  |... redraw%..z.y|
00000970  3d 77 70 25 21 31 36 2d  77 70 25 21 32 34 2d 35  |=wp%!16-wp%!24-5|
00000980  0d 03 84 0f ec 20 78 2b  33 36 2c 79 2d 33 36 0d  |..... x+36,y-36.|
00000990  03 8e 0b f1 20 22 31 30  30 22 0d 03 98 10 ec 20  |.... "100"..... |
000009a0  78 2b 33 36 2c 79 2d 31  30 38 0d 03 a2 0b f1 20  |x+36,y-108..... |
000009b0  22 20 39 30 22 0d 03 ac  10 ec 20 78 2b 33 36 2c  |" 90"..... x+36,|
000009c0  79 2d 31 38 30 0d 03 b6  0b f1 20 22 20 38 30 22  |y-180..... " 80"|
000009d0  0d 03 c0 10 ec 20 78 2b  33 36 2c 79 2d 32 35 32  |..... x+36,y-252|
000009e0  0d 03 ca 0b f1 20 22 20  37 30 22 0d 03 d4 10 ec  |..... " 70".....|
000009f0  20 78 2b 33 36 2c 79 2d  33 32 34 0d 03 de 0b f1  | x+36,y-324.....|
00000a00  20 22 20 36 30 22 0d 03  e8 10 ec 20 78 2b 33 36  | " 60"..... x+36|
00000a10  2c 79 2d 33 39 36 0d 03  f2 0b f1 20 22 20 35 30  |,y-396..... " 50|
00000a20  22 0d 03 fc 10 ec 20 78  2b 33 36 2c 79 2d 34 36  |"..... x+36,y-46|
00000a30  38 0d 04 06 0b f1 20 22  20 34 30 22 0d 04 10 10  |8..... " 40"....|
00000a40  ec 20 78 2b 33 36 2c 79  2d 35 34 30 0d 04 1a 0b  |. x+36,y-540....|
00000a50  f1 20 22 20 33 30 22 0d  04 24 10 ec 20 78 2b 33  |. " 30"..$.. x+3|
00000a60  36 2c 79 2d 36 31 32 0d  04 2e 0b f1 20 22 20 32  |6,y-612..... " 2|
00000a70  30 22 0d 04 38 10 ec 20  78 2b 33 36 2c 79 2d 36  |0"..8.. x+36,y-6|
00000a80  38 34 0d 04 42 0b f1 20  22 20 31 30 22 0d 04 4c  |84..B.. " 10"..L|
00000a90  10 ec 20 78 2b 33 36 2c  79 2d 37 35 36 0d 04 56  |.. x+36,y-756..V|
00000aa0  0b f1 20 22 20 20 30 22  0d 04 60 1c 86 20 78 2b  |.. "  0"..`.. x+|
00000ab0  31 30 30 2c 79 2d 33 36  2c 78 2b 31 30 30 2c 79  |100,y-36,x+100,y|
00000ac0  2d 37 35 36 0d 04 6a 0d  ec 20 78 2c 79 2d 33 30  |-756..j.. x,y-30|
00000ad0  30 0d 04 74 0a f1 20 22  20 25 22 0d 04 7e 1d 86  |0..t.. " %"..~..|
00000ae0  20 78 2b 31 30 30 2c 79  2d 37 35 36 2c 78 2b 38  | x+100,y-756,x+8|
00000af0  35 30 2c 79 2d 37 35 36  0d 04 88 0d ec 20 78 2c  |50,y-756..... x,|
00000b00  79 2d 37 39 32 0d 04 92  3d f1 20 22 20 20 20 20  |y-792...=. "    |
00000b10  20 20 20 20 31 20 20 32  20 20 33 20 20 34 20 20  |    1  2  3  4  |
00000b20  35 20 20 36 20 20 37 20  20 38 20 20 39 20 20 31  |5  6  7  8  9  1|
00000b30  30 20 31 31 20 31 32 20  31 33 20 31 34 20 31 35  |0 11 12 13 14 15|
00000b40  2b 22 0d 04 9c 0d ec 20  78 2c 79 2d 38 32 38 0d  |+"..... x,y-828.|
00000b50  04 a6 2a f1 20 22 20 20  20 20 20 20 20 20 20 20  |..*. "          |
00000b60  20 20 20 20 20 20 20 20  20 20 20 20 20 57 6f 72  |             Wor|
00000b70  64 20 6c 65 6e 67 74 68  22 0d 04 b0 0f e3 20 61  |d length"..... a|
00000b80  25 3d 31 20 b8 20 31 35  0d 04 ba 06 e6 35 0d 04  |%=1 . 15.....5..|
00000b90  c4 1b 68 65 69 67 68 74  25 3d 28 70 65 72 63 28  |..height%=(perc(|
00000ba0  61 25 29 2f 32 29 2a 31  34 0d 04 ce 0e e7 20 63  |a%)/2)*14..... c|
00000bb0  75 6d 75 6c 25 20 8c 0d  04 d8 0d 68 65 69 67 68  |umul% .....heigh|
00000bc0  74 25 3d 30 0d 04 e2 0f  e3 20 62 25 3d 31 20 b8  |t%=0..... b%=1 .|
00000bd0  20 61 25 0d 04 ec 1c 68  65 69 67 68 74 25 2b 3d  | a%....height%+=|
00000be0  28 70 65 72 63 28 62 25  29 2f 32 29 2a 31 34 0d  |(perc(b%)/2)*14.|
00000bf0  04 f6 08 ed 20 62 25 0d  05 00 05 cd 0d 05 0a 2b  |.... b%........+|
00000c00  c8 93 c8 90 20 78 2b 31  31 32 2b 28 28 61 25 2d  |.... x+112+((a%-|
00000c10  31 29 2a 34 38 29 2c 79  2d 37 35 36 2c 34 38 2c  |1)*48),y-756,48,|
00000c20  68 65 69 67 68 74 25 0d  05 14 06 e6 37 0d 05 1e  |height%.....7...|
00000c30  29 c8 93 20 78 2b 31 31  32 2b 28 28 61 25 2d 31  |).. x+112+((a%-1|
00000c40  29 2a 34 38 29 2c 79 2d  37 35 36 2c 34 38 2c 68  |)*48),y-756,48,h|
00000c50  65 69 67 68 74 25 0d 05  28 08 ed 20 61 25 0d 05  |eight%..(.. a%..|
00000c60  32 29 c8 99 20 22 57 69  6d 70 5f 47 65 74 52 65  |2).. "Wimp_GetRe|
00000c70  63 74 61 6e 67 6c 65 22  2c 2c 77 70 25 20 b8 20  |ctangle",,wp% . |
00000c80  72 65 64 72 61 77 25 0d  05 3c 05 ce 0d 05 46 05  |redraw%..<....F.|
00000c90  e1 0d 05 50 04 0d 05 5a  0b dd f2 6c 6f 61 64 31  |...P...Z...load1|
00000ca0  0d 05 64 17 66 69 6c 65  6e 61 6d 65 24 3d 24 28  |..d.filename$=$(|
00000cb0  77 70 25 2b 34 34 29 0d  05 6e 57 e7 20 77 70 25  |wp%+44)..nW. wp%|
00000cc0  21 34 30 3c 3e 26 46 46  46 20 80 20 77 70 25 21  |!40<>&FFF . wp%!|
00000cd0  34 30 3c 3e 26 41 46 38  20 f2 65 72 72 28 31 2c  |40<>&AF8 .err(1,|
00000ce0  22 49 20 63 61 6e 20 6f  6e 6c 79 20 61 63 63 65  |"I can only acce|
00000cf0  70 74 20 41 53 43 49 49  20 74 65 78 74 20 6f 72  |pt ASCII text or|
00000d00  20 31 73 74 57 6f 72 64  2b 2e 22 29 3a e1 0d 05  | 1stWord+."):...|
00000d10  78 13 66 69 6c 74 79 70  65 25 3d 77 70 25 21 34  |x.filtype%=wp%!4|
00000d20  30 0d 05 82 24 f2 73 65  74 69 63 6f 6e 28 77 6f  |0...$.seticon(wo|
00000d30  72 64 73 68 61 6e 25 2c  37 36 2c 66 69 6c 65 6e  |rdshan%,76,filen|
00000d40  61 6d 65 24 29 0d 05 8c  3c e7 20 66 69 6c 74 79  |ame$)...<. filty|
00000d50  70 65 25 3d 26 41 46 38  20 f2 73 65 74 69 63 6f  |pe%=&AF8 .setico|
00000d60  6e 28 77 6f 72 64 73 68  61 6e 25 2c 38 35 2c 22  |n(wordshan%,85,"|
00000d70  26 41 46 38 20 28 31 73  74 57 6f 72 64 2b 29 22  |&AF8 (1stWord+)"|
00000d80  29 0d 05 96 38 e7 20 66  69 6c 74 79 70 65 25 3d  |)...8. filtype%=|
00000d90  26 46 46 46 20 f2 73 65  74 69 63 6f 6e 28 77 6f  |&FFF .seticon(wo|
00000da0  72 64 73 68 61 6e 25 2c  38 35 2c 22 26 46 46 46  |rdshan%,85,"&FFF|
00000db0  20 28 54 65 78 74 29 22  29 0d 05 a0 19 77 70 25  | (Text)")....wp%|
00000dc0  21 31 32 3d 77 70 25 21  38 3a 77 70 25 21 31 36  |!12=wp%!8:wp%!16|
00000dd0  3d 34 0d 05 aa 26 c8 99  20 22 57 69 6d 70 5f 53  |=4...&.. "Wimp_S|
00000de0  65 6e 64 4d 65 73 73 61  67 65 22 2c 31 37 2c 77  |endMessage",17,w|
00000df0  70 25 2c 77 70 25 21 34  0d 05 b4 2d 77 70 25 21  |p%,wp%!4...-wp%!|
00000e00  30 3d 77 6f 72 64 73 68  61 6e 25 3a c8 99 22 57  |0=wordshan%:.."W|
00000e10  69 6d 70 5f 43 6c 6f 73  65 57 69 6e 64 6f 77 22  |imp_CloseWindow"|
00000e20  2c 2c 77 70 25 0d 05 be  2c 77 70 25 21 30 3d 67  |,,wp%...,wp%!0=g|
00000e30  72 61 70 68 61 6e 25 3a  c8 99 22 57 69 6d 70 5f  |raphan%:.."Wimp_|
00000e40  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 77 70  |CloseWindow",,wp|
00000e50  25 0d 05 c8 2d 77 70 25  21 30 3d 73 6b 69 6c 6c  |%...-wp%!0=skill|
00000e60  68 61 6e 25 3a c8 99 22  57 69 6d 70 5f 43 6c 6f  |han%:.."Wimp_Clo|
00000e70  73 65 57 69 6e 64 6f 77  22 2c 2c 77 70 25 0d 05  |seWindow",,wp%..|
00000e80  d2 27 61 63 74 69 76 65  25 3d 32 3a f2 73 65 74  |.'active%=2:.set|
00000e90  69 63 6f 6e 62 61 72 28  22 70 72 6f 63 65 73 73  |iconbar("process|
00000ea0  69 6e 67 22 29 0d 05 dc  30 c8 99 20 22 57 69 6d  |ing")...0.. "Wim|
00000eb0  70 5f 47 65 74 50 6f 69  6e 74 65 72 49 6e 66 6f  |p_GetPointerInfo|
00000ec0  22 2c 2c 77 70 25 3a 78  3d 77 70 25 21 30 3a 6f  |",,wp%:x=wp%!0:o|
00000ed0  6c 64 78 3d 78 0d 05 e6  05 e1 0d 05 f0 04 0d 05  |ldx=x...........|
00000ee0  fa 0b dd f2 6c 6f 61 64  32 0d 06 04 28 c8 99 20  |....load2...(.. |
00000ef0  22 4f 53 5f 46 69 6c 65  22 2c 31 33 2c 66 69 6c  |"OS_File",13,fil|
00000f00  65 6e 61 6d 65 24 20 b8  20 2c 2c 2c 2c 6c 65 6e  |ename$ . ,,,,len|
00000f10  25 0d 06 0e 49 e7 20 6c  65 6e 25 3d 30 20 f2 65  |%...I. len%=0 .e|
00000f20  72 72 28 31 2c 22 46 69  6c 65 20 69 73 20 65 6d  |rr(1,"File is em|
00000f30  70 74 79 2e 22 29 3a 61  63 74 69 76 65 25 3d 31  |pty."):active%=1|
00000f40  3a f2 73 65 74 69 63 6f  6e 62 61 72 28 22 21 61  |:.seticonbar("!a|
00000f50  6e 61 6c 79 73 74 22 29  3a e1 0d 06 18 1f e7 20  |nalyst"):...... |
00000f60  6c 65 6e 25 3e 6c 65 6e  67 74 68 25 20 de 20 66  |len%>length% . f|
00000f70  69 6c 65 25 20 6c 65 6e  25 0d 06 22 10 6c 65 6e  |ile% len%..".len|
00000f80  67 74 68 25 3d 6c 65 6e  25 0d 06 2c 25 c8 99 20  |gth%=len%..,%.. |
00000f90  22 4f 53 5f 46 69 6c 65  22 2c 31 32 2c 66 69 6c  |"OS_File",12,fil|
00000fa0  65 6e 61 6d 65 24 2c 66  69 6c 65 25 2c 30 0d 06  |ename$,file%,0..|
00000fb0  36 25 f2 73 65 74 69 63  6f 6e 28 77 6f 72 64 73  |6%.seticon(words|
00000fc0  68 61 6e 25 2c 38 36 2c  c3 28 6c 65 6e 67 74 68  |han%,86,.(length|
00000fd0  25 29 29 0d 06 40 0f e3  20 61 25 3d 31 20 b8 20  |%))..@.. a%=1 . |
00000fe0  31 35 0d 06 4a 10 77 6f  72 64 6c 25 28 61 25 29  |15..J.wordl%(a%)|
00000ff0  3d 30 0d 06 54 08 ed 20  61 25 0d 06 5e 0c f2 70  |=0..T.. a%..^..p|
00001000  72 6f 63 65 73 73 0d 06  68 05 e1 0d 06 72 04 0d  |rocess..h....r..|
00001010  06 7c 0b dd f2 6c 6f 61  64 33 0d 06 86 1b f2 73  |.|...load3.....s|
00001020  65 74 69 63 6f 6e 62 61  72 28 22 21 61 6e 61 6c  |eticonbar("!anal|
00001030  79 73 74 22 29 0d 06 90  0d 61 63 74 69 76 65 25  |yst")....active%|
00001040  3d 34 0d 06 9a 53 77 70  25 21 30 3d 77 6f 72 64  |=4...Swp%!0=word|
00001050  73 68 61 6e 25 3a c8 99  22 57 69 6d 70 5f 47 65  |shan%:.."Wimp_Ge|
00001060  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 77  |tWindowState",,w|
00001070  70 25 3a 77 70 25 21 32  38 3d 2d 31 3a c8 99 22  |p%:wp%!28=-1:.."|
00001080  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
00001090  2c 2c 77 70 25 0d 06 a4  52 77 70 25 21 30 3d 67  |,,wp%...Rwp%!0=g|
000010a0  72 61 70 68 61 6e 25 3a  c8 99 22 57 69 6d 70 5f  |raphan%:.."Wimp_|
000010b0  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
000010c0  2c 77 70 25 3a 77 70 25  21 32 38 3d 2d 31 3a c8  |,wp%:wp%!28=-1:.|
000010d0  99 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  |."Wimp_OpenWindo|
000010e0  77 22 2c 2c 77 70 25 0d  06 ae 53 77 70 25 21 30  |w",,wp%...Swp%!0|
000010f0  3d 73 6b 69 6c 6c 68 61  6e 25 3a c8 99 22 57 69  |=skillhan%:.."Wi|
00001100  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00001110  65 22 2c 2c 77 70 25 3a  77 70 25 21 32 38 3d 2d  |e",,wp%:wp%!28=-|
00001120  31 3a c8 99 22 57 69 6d  70 5f 4f 70 65 6e 57 69  |1:.."Wimp_OpenWi|
00001130  6e 64 6f 77 22 2c 2c 77  70 25 0d 06 b8 0e 61 76  |ndow",,wp%....av|
00001140  65 72 61 67 65 25 3d 30  0d 06 c2 0f e3 20 61 25  |erage%=0..... a%|
00001150  3d 31 20 b8 20 31 35 0d  06 cc 1b 61 76 65 72 61  |=1 . 15....avera|
00001160  67 65 25 2b 3d 77 6f 72  64 6c 25 28 61 25 29 2a  |ge%+=wordl%(a%)*|
00001170  61 25 0d 06 d6 08 ed 20  61 25 0d 06 e0 1c 61 76  |a%..... a%....av|
00001180  65 72 61 67 65 25 3d 61  76 65 72 61 67 65 25 2f  |erage%=average%/|
00001190  77 6f 72 64 73 25 0d 06  ea 26 f2 73 65 74 69 63  |words%...&.setic|
000011a0  6f 6e 28 77 6f 72 64 73  68 61 6e 25 2c 36 37 2c  |on(wordshan%,67,|
000011b0  c3 28 61 76 65 72 61 67  65 25 29 29 0d 06 f4 0f  |.(average%))....|
000011c0  e3 20 61 25 3d 31 20 b8  20 31 35 0d 06 fe 24 70  |. a%=1 . 15...$p|
000011d0  65 72 63 28 61 25 29 3d  28 77 6f 72 64 6c 25 28  |erc(a%)=(wordl%(|
000011e0  61 25 29 2f 77 6f 72 64  73 25 29 2a 31 30 30 0d  |a%)/words%)*100.|
000011f0  07 08 0f 62 25 3d 70 65  72 63 28 61 25 29 0d 07  |...b%=perc(a%)..|
00001200  12 27 f2 73 65 74 69 63  6f 6e 28 77 6f 72 64 73  |.'.seticon(words|
00001210  68 61 6e 25 2c 61 25 2b  34 31 2c c3 28 62 25 29  |han%,a%+41,.(b%)|
00001220  2b 22 25 22 29 0d 07 1c  08 ed 20 61 25 0d 07 26  |+"%")..... a%..&|
00001230  24 f2 73 65 74 69 63 6f  6e 28 77 6f 72 64 73 68  |$.seticon(wordsh|
00001240  61 6e 25 2c 36 31 2c c3  28 77 6f 72 64 73 25 29  |an%,61,.(words%)|
00001250  29 0d 07 30 0f e3 20 61  25 3d 31 20 b8 20 31 35  |)..0.. a%=1 . 15|
00001260  0d 07 3a 2b f2 73 65 74  69 63 6f 6e 28 77 6f 72  |..:+.seticon(wor|
00001270  64 73 68 61 6e 25 2c 61  25 2b 32 36 2c c3 28 77  |dshan%,a%+26,.(w|
00001280  6f 72 64 6c 25 28 61 25  29 29 29 0d 07 44 05 ed  |ordl%(a%)))..D..|
00001290  0d 07 4e 05 e1 0d 07 58  04 0d 07 62 1d dd f2 73  |..N....X...b...s|
000012a0  65 74 69 63 6f 6e 62 61  72 28 73 70 72 69 74 65  |eticonbar(sprite|
000012b0  6e 61 6d 65 24 29 0d 07  6c 19 77 70 25 21 30 3d  |name$)..l.wp%!0=|
000012c0  2d 31 3a 77 70 25 21 34  3d 69 63 68 61 6e 25 0d  |-1:wp%!4=ichan%.|
000012d0  07 76 1f c8 99 20 22 57  69 6d 70 5f 47 65 74 49  |.v... "Wimp_GetI|
000012e0  63 6f 6e 53 74 61 74 65  22 2c 2c 77 70 25 0d 07  |conState",,wp%..|
000012f0  80 1d c8 99 20 22 57 69  6d 70 5f 44 65 6c 65 74  |.... "Wimp_Delet|
00001300  65 49 63 6f 6e 22 2c 2c  77 70 25 0d 07 8a 2a 77  |eIcon",,wp%...*w|
00001310  70 25 21 34 3d 77 70 25  21 38 3a 77 70 25 21 38  |p%!4=wp%!8:wp%!8|
00001320  3d 77 70 25 21 31 32 3a  77 70 25 21 31 32 3d 77  |=wp%!12:wp%!12=w|
00001330  70 25 21 31 36 0d 07 94  35 77 70 25 21 31 36 3d  |p%!16...5wp%!16=|
00001340  77 70 25 21 32 30 3a 77  70 25 21 32 30 3d 77 70  |wp%!20:wp%!20=wp|
00001350  25 21 32 34 3a 24 28 77  70 25 2b 32 34 29 3d 73  |%!24:$(wp%+24)=s|
00001360  70 72 69 74 65 6e 61 6d  65 24 0d 07 9e 26 c8 99  |pritename$...&..|
00001370  20 22 57 69 6d 70 5f 43  72 65 61 74 65 49 63 6f  | "Wimp_CreateIco|
00001380  6e 22 2c 2c 77 70 25 20  b8 20 69 63 68 61 6e 25  |n",,wp% . ichan%|
00001390  0d 07 a8 05 e1 0d 07 b2  04 0d 07 bc 19 dd f2 65  |...............e|
000013a0  72 72 28 77 70 25 21 30  2c 24 28 77 70 25 2b 34  |rr(wp%!0,$(wp%+4|
000013b0  29 29 0d 07 c6 07 45 3d  30 0d 07 d0 0a c8 8e 20  |))....E=0...... |
000013c0  9f 20 ca 0d 07 da 6d c9  20 31 31 3a 20 24 28 77  |. ....m. 11: $(w|
000013d0  70 25 2b 34 29 3d 22 46  69 6c 65 20 74 6f 6f 20  |p%+4)="File too |
000013e0  6c 61 72 67 65 2f 59 6f  75 20 68 61 76 65 20 75  |large/You have u|
000013f0  73 65 64 20 6d 65 20 74  6f 6f 20 6d 61 6e 79 20  |sed me too many |
00001400  74 69 6d 65 73 2e 20 49  20 77 69 6c 6c 20 68 61  |times. I will ha|
00001410  76 65 20 74 6f 20 71 75  69 74 2e 20 54 68 65 6e  |ve to quit. Then|
00001420  20 72 65 6c 6f 61 64 20  6d 65 2e 22 3a 45 3d 31  | reload me.":E=1|
00001430  0d 07 e4 0b c9 20 31 39  3a 20 e1 0d 07 ee 05 cb  |..... 19: ......|
00001440  0d 07 f8 29 c8 99 20 22  57 69 6d 70 5f 52 65 70  |...).. "Wimp_Rep|
00001450  6f 72 74 45 72 72 6f 72  22 2c 77 70 25 2c 31 2c  |ortError",wp%,1,|
00001460  22 41 6e 61 6c 79 73 74  22 0d 08 02 18 e7 20 45  |"Analyst"..... E|
00001470  3d 31 20 c8 99 20 26 34  30 30 44 44 2c 68 61 6e  |=1 .. &400DD,han|
00001480  25 0d 08 0c 05 e1 0d 08  16 04 0d 08 20 0a dd f2  |%........... ...|
00001490  68 65 6c 70 0d 08 2a 0d  68 65 6c 70 25 3d 77 70  |help..*.help%=wp|
000014a0  25 0d 08 34 12 68 65 6c  70 25 21 31 32 3d 77 70  |%..4.help%!12=wp|
000014b0  25 21 38 0d 08 3e 11 68  65 6c 70 25 21 31 36 3d  |%!8..>.help%!16=|
000014c0  26 35 30 33 0d 08 48 11  c8 8e 20 68 65 6c 70 25  |&503..H... help%|
000014d0  21 33 32 20 ca 0d 08 52  6c c9 20 2d 32 3a 74 24  |!32 ...Rl. -2:t$|
000014e0  3d 22 54 68 69 73 20 69  73 20 74 68 65 20 41 6e  |="This is the An|
000014f0  61 6c 79 73 74 20 69 63  6f 6e 2e 7c 4d 44 72 61  |alyst icon.|MDra|
00001500  67 20 61 20 66 69 6c 65  20 28 41 53 43 49 49 2f  |g a file (ASCII/|
00001510  31 73 74 57 6f 72 64 2b  29 20 74 6f 20 74 68 65  |1stWord+) to the|
00001520  20 69 63 6f 6e 20 74 6f  20 61 6e 61 6c 79 73 65  | icon to analyse|
00001530  20 69 74 22 3a c8 8e 20  61 63 74 69 76 65 25 20  | it":.. active% |
00001540  ca 0d 08 5c 3e 20 20 c9  20 34 3a 74 24 2b 3d 22  |...\>  . 4:t$+="|
00001550  2c 20 6f 72 20 63 6c 69  63 6b 20 6f 6e 20 74 68  |, or click on th|
00001560  65 20 69 63 6f 6e 20 74  6f 20 73 65 65 20 74 68  |e icon to see th|
00001570  65 20 69 6e 66 6f 72 6d  61 74 69 6f 6e 2e 22 0d  |e information.".|
00001580  08 66 0f 20 20 7f 3a 74  24 2b 3d 22 2e 22 0d 08  |.f.  .:t$+="."..|
00001590  70 05 cb 0d 08 7a 3c c9  20 77 6f 72 64 73 68 61  |p....z<. wordsha|
000015a0  6e 25 3a 74 24 3d 22 54  68 69 73 20 69 73 20 74  |n%:t$="This is t|
000015b0  68 65 20 77 6f 72 64 73  20 69 6e 66 6f 72 6d 61  |he words informa|
000015c0  74 69 6f 6e 20 77 69 6e  64 6f 77 2e 7c 4d 22 0d  |tion window.|M".|
000015d0  08 84 60 20 20 e7 20 68  65 6c 70 25 21 33 36 3e  |..`  . help%!36>|
000015e0  32 36 20 80 20 68 65 6c  70 25 21 33 36 3c 34 32  |26 . help%!36<42|
000015f0  20 74 24 2b 3d 22 54 68  65 20 6e 75 6d 62 65 72  | t$+="The number|
00001600  20 6f 66 20 22 2b c3 28  68 65 6c 70 25 21 33 36  | of "+.(help%!36|
00001610  2d 32 36 29 2b 22 20 6c  65 74 74 65 72 20 77 6f  |-26)+" letter wo|
00001620  72 64 73 20 74 68 65 72  65 20 61 72 65 2e 22 0d  |rds there are.".|
00001630  08 8e 78 20 20 e7 20 68  65 6c 70 25 21 33 36 3e  |..x  . help%!36>|
00001640  34 31 20 80 20 68 65 6c  70 25 21 33 36 3c 35 37  |41 . help%!36<57|
00001650  20 74 24 2b 3d 22 54 68  65 20 70 65 72 63 65 6e  | t$+="The percen|
00001660  74 61 67 65 20 6f 66 20  22 2b c3 28 68 65 6c 70  |tage of "+.(help|
00001670  25 21 33 36 2d 34 31 29  2b 22 20 6c 65 74 74 65  |%!36-41)+" lette|
00001680  72 20 77 6f 72 64 73 20  74 68 65 72 65 20 61 72  |r words there ar|
00001690  65 20 28 74 6f 20 74 68  65 20 6e 65 61 72 65 73  |e (to the neares|
000016a0  74 20 31 25 29 2e 22 0d  08 98 11 c8 8e 20 68 65  |t 1%)."...... he|
000016b0  6c 70 25 21 33 36 20 ca  0d 08 a2 2b 20 20 c9 20  |lp%!36 ....+  . |
000016c0  36 31 3a 74 24 2b 3d 22  54 68 65 20 74 6f 74 61  |61:t$+="The tota|
000016d0  6c 20 6e 75 6d 62 65 72  20 6f 66 20 77 6f 72 64  |l number of word|
000016e0  73 2e 22 0d 08 ac 26 20  20 c9 20 36 32 3a 74 24  |s."...&  . 62:t$|
000016f0  2b 3d 22 54 68 65 20 74  6f 74 61 6c 20 70 65 72  |+="The total per|
00001700  63 65 6e 74 61 67 65 2e  22 0d 08 b6 2a 20 20 c9  |centage."...*  .|
00001710  20 36 37 3a 74 24 2b 3d  22 59 6f 75 72 20 61 76  | 67:t$+="Your av|
00001720  65 72 61 67 65 20 77 6f  72 64 20 6c 65 6e 67 74  |erage word lengt|
00001730  68 2e 22 0d 08 c0 2a 20  20 c9 20 37 36 3a 74 24  |h."...*  . 76:t$|
00001740  2b 3d 22 54 68 65 20 66  69 6c 65 6e 61 6d 65 20  |+="The filename |
00001750  6f 66 20 74 68 65 20 66  69 6c 65 2e 22 0d 08 ca  |of the file."...|
00001760  2a 20 20 c9 20 38 35 3a  74 24 2b 3d 22 54 68 65  |*  . 85:t$+="The|
00001770  20 66 69 6c 65 74 79 70  65 20 6f 66 20 74 68 65  | filetype of the|
00001780  20 66 69 6c 65 2e 22 0d  08 d4 33 20 20 c9 20 38  | file."...3  . 8|
00001790  36 3a 74 24 2b 3d 22 54  68 65 20 6c 65 6e 67 74  |6:t$+="The lengt|
000017a0  68 20 28 69 6e 20 62 79  74 65 73 29 20 6f 66 20  |h (in bytes) of |
000017b0  74 68 65 20 66 69 6c 65  2e 22 0d 08 de 05 cb 0d  |the file."......|
000017c0  08 e8 44 c9 20 69 6e 68  61 6e 25 20 3a 20 74 24  |..D. inhan% : t$|
000017d0  3d 22 4f 6f 6f 68 2c 20  49 20 77 6f 6e 64 65 72  |="Oooh, I wonder|
000017e0  20 77 68 61 74 20 74 68  69 73 20 63 6f 75 6c 64  | what this could|
000017f0  20 62 65 3f 22 3a c8 8e  20 68 65 6c 70 25 21 33  | be?":.. help%!3|
00001800  36 20 ca 0d 08 f2 1f 20  20 c9 20 39 2c 31 30 3a  |6 .....  . 9,10:|
00001810  74 24 2b 3d 22 7c 4d 43  27 65 73 74 20 6d 6f 69  |t$+="|MC'est moi|
00001820  21 22 0d 08 fc 05 cb 0d  09 06 2d c9 20 67 72 65  |!"........-. gre|
00001830  65 74 68 61 6e 25 20 3a  20 74 24 3d 22 21 41 6e  |ethan% : t$="!An|
00001840  61 6c 79 73 74 20 69 73  20 6c 6f 61 64 69 6e 67  |alyst is loading|
00001850  2e 2e 2e 22 0d 09 10 7e  c9 20 67 72 61 70 68 61  |..."...~. grapha|
00001860  6e 25 20 3a 20 74 24 3d  22 54 68 69 73 20 69 73  |n% : t$="This is|
00001870  20 74 68 65 20 67 72 61  70 68 20 77 69 6e 64 6f  | the graph windo|
00001880  77 2e 7c 4d 49 74 20 73  68 6f 77 73 20 61 20 62  |w.|MIt shows a b|
00001890  61 72 20 67 72 61 70 68  20 6f 66 20 74 68 65 20  |ar graph of the |
000018a0  77 6f 72 64 20 6c 65 6e  67 74 68 20 61 67 61 69  |word length agai|
000018b0  6e 73 74 20 74 68 65 20  70 65 72 63 65 6e 74 61  |nst the percenta|
000018c0  67 65 2e 7c 4d 22 3a c8  8e 20 63 75 6d 75 6c 25  |ge.|M":.. cumul%|
000018d0  20 ca 0d 09 1a 4e 20 20  c9 20 30 20 3a 20 74 24  | ....N  . 0 : t$|
000018e0  2b 3d 22 59 6f 75 20 63  61 6e 20 63 68 61 6e 67  |+="You can chang|
000018f0  65 20 74 68 65 20 67 72  61 70 68 20 69 6e 74 6f  |e the graph into|
00001900  20 61 20 63 75 6d 75 6c  61 74 69 76 65 20 6f 6e  | a cumulative on|
00001910  65 20 76 69 61 20 74 68  65 20 6d 65 6e 75 2e 22  |e via the menu."|
00001920  0d 09 24 57 20 20 c9 20  31 20 3a 20 74 24 2b 3d  |..$W  . 1 : t$+=|
00001930  22 59 6f 75 20 63 61 6e  20 63 68 61 6e 67 65 20  |"You can change |
00001940  74 68 65 20 67 72 61 70  68 20 62 61 63 6b 20 69  |the graph back i|
00001950  6e 74 6f 20 61 20 6e 6f  6e 2d 63 75 6d 75 6c 61  |nto a non-cumula|
00001960  74 69 76 65 20 6f 6e 65  20 76 69 61 20 74 68 65  |tive one via the|
00001970  20 6d 65 6e 75 2e 22 0d  09 2e 05 cb 0d 09 38 69  | menu.".......8i|
00001980  c9 20 73 6b 69 6c 6c 68  61 6e 25 20 3a 20 74 24  |. skillhan% : t$|
00001990  3d 22 54 68 69 73 20 69  73 20 74 68 65 20 73 6b  |="This is the sk|
000019a0  69 6c 6c 20 77 69 6e 64  6f 77 2e 7c 4d 49 74 20  |ill window.|MIt |
000019b0  70 6c 6f 74 73 20 61 20  72 6f 75 67 68 20 65 73  |plots a rough es|
000019c0  74 69 6d 61 74 65 20 6f  66 20 79 6f 75 72 20 6c  |timate of your l|
000019d0  61 6e 67 75 61 67 65 20  73 6b 69 6c 6c 20 6c 65  |anguage skill le|
000019e0  76 65 6c 2e 22 0d 09 42  05 cb 0d 09 4c 0c 74 24  |vel."..B....L.t$|
000019f0  2b 3d bd 28 30 29 0d 09  56 31 24 28 68 65 6c 70  |+=.(0)..V1$(help|
00001a00  25 2b 32 30 29 3d 74 24  3a 68 65 6c 70 25 21 30  |%+20)=t$:help%!0|
00001a10  3d 28 28 28 32 30 2b a9  28 74 24 29 2b 31 29 81  |=(((20+.(t$)+1).|
00001a20  34 29 2a 34 29 2b 34 0d  09 60 22 c8 99 20 22 57  |4)*4)+4..`".. "W|
00001a30  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
00001a40  2c 31 37 2c 68 65 6c 70  25 0d 09 6a 05 e1 0d 09  |,17,help%..j....|
00001a50  74 04 0d 09 7e 0d dd f2  69 63 6f 6e 62 61 72 0d  |t...~...iconbar.|
00001a60  09 88 1c 77 70 25 21 30  3d 2d 31 3a 77 70 25 21  |...wp%!0=-1:wp%!|
00001a70  34 3d 30 3a 77 70 25 21  38 3d 30 0d 09 92 24 77  |4=0:wp%!8=0...$w|
00001a80  70 25 21 31 32 3d 37 30  3a 77 70 25 21 31 36 3d  |p%!12=70:wp%!16=|
00001a90  37 35 3a 77 70 25 21 32  30 3d 26 33 30 30 41 0d  |75:wp%!20=&300A.|
00001aa0  09 9c 18 24 28 77 70 25  2b 32 34 29 3d 22 21 61  |...$(wp%+24)="!a|
00001ab0  6e 61 6c 79 73 74 22 0d  09 a6 26 c8 99 20 22 57  |nalyst"...&.. "W|
00001ac0  69 6d 70 5f 43 72 65 61  74 65 49 63 6f 6e 22 2c  |imp_CreateIcon",|
00001ad0  2c 77 70 25 20 b8 20 69  63 68 61 6e 25 0d 09 b0  |,wp% . ichan%...|
00001ae0  05 e1 0d 09 ba 04 0d 09  c4 10 dd f2 6d 65 6e 75  |............menu|
00001af0  73 65 6c 65 63 74 0d 09  ce 0b 71 75 69 74 25 3d  |select....quit%=|
00001b00  30 0d 09 d8 15 61 25 3d  77 70 25 21 30 3a 62 25  |0....a%=wp%!0:b%|
00001b10  3d 77 70 25 21 34 0d 09  e2 21 c8 99 20 22 57 69  |=wp%!4...!.. "Wi|
00001b20  6d 70 5f 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |mp_GetPointerInf|
00001b30  6f 22 2c 2c 77 70 25 0d  09 ec 0e 62 75 74 25 3d  |o",,wp%....but%=|
00001b40  77 70 25 21 38 0d 09 f6  15 77 70 25 21 30 3d 61  |wp%!8....wp%!0=a|
00001b50  25 3a 77 70 25 21 34 3d  62 25 0d 0a 00 0f e7 20  |%:wp%!4=b%..... |
00001b60  69 63 6f 6e 25 3d 32 20  8c 0d 0a 0a 0e c8 8e 20  |icon%=2 ....... |
00001b70  77 70 25 21 30 20 ca 0d  0a 14 32 20 20 c9 20 31  |wp%!0 ....2  . 1|
00001b80  20 3a 20 63 75 6d 75 6c  25 3d 31 2d 63 75 6d 75  | : cumul%=1-cumu|
00001b90  6c 25 3a 77 70 25 21 30  3d 67 72 61 70 68 61 6e  |l%:wp%!0=graphan|
00001ba0  25 3a f2 72 65 64 72 61  77 0d 0a 1e 22 20 20 c9  |%:.redraw..."  .|
00001bb0  20 32 20 3a 20 c8 99 20  26 34 30 30 44 44 2c 68  | 2 : .. &400DD,h|
00001bc0  61 6e 25 3a 71 75 69 74  25 3d 31 0d 0a 28 05 cb  |an%:quit%=1..(..|
00001bd0  0d 0a 32 05 cd 0d 0a 3c  19 e7 20 69 63 6f 6e 25  |..2....<.. icon%|
00001be0  3d 30 20 84 20 69 63 6f  6e 25 3d 31 20 8c 0d 0a  |=0 . icon%=1 ...|
00001bf0  46 0e c8 8e 20 77 70 25  21 30 20 ca 0d 0a 50 5b  |F... wp%!0 ...P[|
00001c00  c9 20 31 20 3a 20 77 70  25 21 30 3d 77 6f 72 64  |. 1 : wp%!0=word|
00001c10  73 68 61 6e 25 3a c8 99  20 22 57 69 6d 70 5f 47  |shan%:.. "Wimp_G|
00001c20  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
00001c30  77 70 25 3a 77 70 25 21  32 38 3d 2d 31 3a c8 99  |wp%:wp%!28=-1:..|
00001c40  20 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  | "Wimp_OpenWindo|
00001c50  77 22 2c 2c 77 70 25 0d  0a 5a 5a c9 20 32 20 3a  |w",,wp%..ZZ. 2 :|
00001c60  20 77 70 25 21 30 3d 67  72 61 70 68 61 6e 25 3a  | wp%!0=graphan%:|
00001c70  c8 99 20 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |.. "Wimp_GetWind|
00001c80  6f 77 53 74 61 74 65 22  2c 2c 77 70 25 3a 77 70  |owState",,wp%:wp|
00001c90  25 21 32 38 3d 2d 31 3a  c8 99 20 22 57 69 6d 70  |%!28=-1:.. "Wimp|
00001ca0  5f 4f 70 65 6e 57 69 6e  64 6f 77 22 2c 2c 77 70  |_OpenWindow",,wp|
00001cb0  25 0d 0a 64 5b c9 20 33  20 3a 20 77 70 25 21 30  |%..d[. 3 : wp%!0|
00001cc0  3d 73 6b 69 6c 6c 68 61  6e 25 3a c8 99 20 22 57  |=skillhan%:.. "W|
00001cd0  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 53 74 61  |imp_GetWindowSta|
00001ce0  74 65 22 2c 2c 77 70 25  3a 77 70 25 21 32 38 3d  |te",,wp%:wp%!28=|
00001cf0  2d 31 3a c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |-1:.. "Wimp_Open|
00001d00  57 69 6e 64 6f 77 22 2c  2c 77 70 25 0d 0a 6e 20  |Window",,wp%..n |
00001d10  c9 20 34 20 3a 20 c8 99  20 26 34 30 30 44 44 2c  |. 4 : .. &400DD,|
00001d20  68 61 6e 25 3a 71 75 69  74 25 3d 31 0d 0a 78 05  |han%:quit%=1..x.|
00001d30  cb 0d 0a 82 05 cd 0d 0a  8c 3a e7 20 62 75 74 25  |.........:. but%|
00001d40  3d 31 20 80 20 71 75 69  74 25 3d 30 20 77 70 25  |=1 . quit%=0 wp%|
00001d50  21 30 3d 6d 6f 75 73 78  25 3a 77 70 25 21 34 3d  |!0=mousx%:wp%!4=|
00001d60  6d 6f 75 73 79 25 3a f2  6d 61 6b 65 6d 65 6e 75  |mousy%:.makemenu|
00001d70  0d 0a 96 05 e1 0d 0a a0  04 0d 0a aa 20 dd f2 73  |............ ..s|
00001d80  65 74 69 63 6f 6e 28 77  70 25 21 30 2c 77 70 25  |eticon(wp%!0,wp%|
00001d90  21 34 2c 74 65 78 74 24  29 0d 0a b4 12 c8 99 20  |!4,text$)...... |
00001da0  26 34 30 30 43 45 2c 2c  77 70 25 0d 0a be 11 24  |&400CE,,wp%....$|
00001db0  77 70 25 21 32 38 3d 74  65 78 74 24 0d 0a c8 14  |wp%!28=text$....|
00001dc0  77 70 25 21 38 3d 30 3a  77 70 25 21 31 32 3d 30  |wp%!8=0:wp%!12=0|
00001dd0  0d 0a d2 12 c8 99 20 26  34 30 30 43 44 2c 2c 77  |...... &400CD,,w|
00001de0  70 25 0d 0a dc 05 e1 0d  0a e6 04 0d 0a f0 0b dd  |p%..............|
00001df0  f2 63 6c 69 63 6b 0d 0a  fa 2e e7 20 77 70 25 21  |.click..... wp%!|
00001e00  38 3d 32 20 80 20 77 70  25 21 31 32 3d 77 6f 72  |8=2 . wp%!12=wor|
00001e10  64 73 68 61 6e 25 20 73  3d 30 3a f2 6d 61 6b 65  |dshan% s=0:.make|
00001e20  6d 65 6e 75 0d 0b 04 27  e7 20 77 70 25 21 31 32  |menu...'. wp%!12|
00001e30  3d 2d 32 20 80 20 77 70  25 21 38 3d 32 20 73 3d  |=-2 . wp%!8=2 s=|
00001e40  31 3a f2 6d 61 6b 65 6d  65 6e 75 0d 0b 0e 2d e7  |1:.makemenu...-.|
00001e50  20 77 70 25 21 38 3d 32  20 80 20 77 70 25 21 31  | wp%!8=2 . wp%!1|
00001e60  32 3d 67 72 61 70 68 61  6e 25 20 73 3d 32 3a f2  |2=graphan% s=2:.|
00001e70  6d 61 6b 65 6d 65 6e 75  0d 0b 18 26 e7 20 77 70  |makemenu...&. wp|
00001e80  25 21 38 3d 34 20 80 20  77 70 25 21 31 32 3d 2d  |%!8=4 . wp%!12=-|
00001e90  32 20 c8 8e 20 61 63 74  69 76 65 25 20 ca 0d 0b  |2 .. active% ...|
00001ea0  22 f8 c9 20 34 20 3a 20  77 70 25 21 30 3d 77 6f  |".. 4 : wp%!0=wo|
00001eb0  72 64 73 68 61 6e 25 3a  c8 99 22 57 69 6d 70 5f  |rdshan%:.."Wimp_|
00001ec0  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
00001ed0  2c 77 70 25 3a 77 70 25  21 32 38 3d 2d 31 3a c8  |,wp%:wp%!28=-1:.|
00001ee0  99 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  |."Wimp_OpenWindo|
00001ef0  77 22 2c 2c 77 70 25 3a  77 70 25 21 30 3d 67 72  |w",,wp%:wp%!0=gr|
00001f00  61 70 68 61 6e 25 3a c8  99 22 57 69 6d 70 5f 47  |aphan%:.."Wimp_G|
00001f10  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
00001f20  77 70 25 3a 77 70 25 21  32 38 3d 2d 31 3a c8 99  |wp%:wp%!28=-1:..|
00001f30  22 57 69 6d 70 5f 4f 70  65 6e 57 69 6e 64 6f 77  |"Wimp_OpenWindow|
00001f40  22 2c 2c 77 70 25 3a 77  70 25 21 30 3d 73 6b 69  |",,wp%:wp%!0=ski|
00001f50  6c 6c 68 61 6e 25 3a c8  99 22 57 69 6d 70 5f 47  |llhan%:.."Wimp_G|
00001f60  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
00001f70  77 70 25 3a 77 70 25 21  32 38 3d 2d 31 3a c8 99  |wp%:wp%!28=-1:..|
00001f80  22 57 69 6d 70 5f 4f 70  65 6e 57 69 6e 64 6f 77  |"Wimp_OpenWindow|
00001f90  22 2c 2c 77 70 25 0d 0b  2c 3b 7f 20 3a 20 f2 65  |",,wp%..,;. : .e|
00001fa0  72 72 28 31 2c 22 44 72  61 67 20 61 20 66 69 6c  |rr(1,"Drag a fil|
00001fb0  65 20 74 6f 20 6d 79 20  69 63 6f 6e 20 66 6f 72  |e to my icon for|
00001fc0  20 6d 65 20 74 6f 20 61  6e 61 6c 79 73 65 2e 22  | me to analyse."|
00001fd0  29 0d 0b 36 05 cb 0d 0b  40 05 e1 0d 0b 4a 04 0d  |)..6....@....J..|
00001fe0  0b 54 0e dd f2 6d 61 6b  65 6d 65 6e 75 0d 0b 5e  |.T...makemenu..^|
00001ff0  14 24 6d 65 6e 75 25 3d  22 41 6e 61 6c 79 73 74  |.$menu%="Analyst|
00002000  22 0d 0b 68 0e 6d 65 6e  75 25 3f 31 32 3d 37 0d  |"..h.menu%?12=7.|
00002010  0b 72 0e 6d 65 6e 75 25  3f 31 33 3d 32 0d 0b 7c  |.r.menu%?13=2..||
00002020  0e 6d 65 6e 75 25 3f 31  34 3d 37 0d 0b 86 0e 6d  |.menu%?14=7....m|
00002030  65 6e 75 25 3f 31 35 3d  30 0d 0b 90 10 6d 65 6e  |enu%?15=0....men|
00002040  75 25 21 31 36 3d 32 30  30 0d 0b 9a 0f 6d 65 6e  |u%!16=200....men|
00002050  75 25 21 32 30 3d 34 34  0d 0b a4 0e 6d 65 6e 75  |u%!20=44....menu|
00002060  25 21 32 34 3d 30 0d 0b  ae 0e 6d 65 6e 75 25 21  |%!24=0....menu%!|
00002070  32 38 3d 32 0d 0b b8 13  6d 65 6e 75 25 21 33 32  |28=2....menu%!32|
00002080  3d 69 6e 68 61 6e 25 0d  0b c2 16 6d 65 6e 75 25  |=inhan%....menu%|
00002090  21 33 36 3d 26 30 37 30  30 30 30 32 31 0d 0b cc  |!36=&07000021...|
000020a0  16 24 28 6d 65 6e 75 25  2b 34 30 29 3d 22 49 6e  |.$(menu%+40)="In|
000020b0  66 6f 22 0d 0b d6 0b e7  20 73 3d 32 20 8c 0d 0b  |fo"..... s=2 ...|
000020c0  e0 2a 24 6d 65 6e 75 25  3d 22 47 72 61 70 68 22  |.*$menu%="Graph"|
000020d0  3a 6d 65 6e 75 25 21 31  36 3d 31 37 35 3a 6d 65  |:menu%!16=175:me|
000020e0  6e 75 25 21 32 38 3d 30  0d 0b ea 26 e7 20 63 75  |nu%!28=0...&. cu|
000020f0  6d 75 6c 25 3d 31 20 6d  65 6e 75 25 21 35 32 3d  |mul%=1 menu%!52=|
00002100  31 20 8b 20 6d 65 6e 75  25 21 35 32 3d 30 0d 0b  |1 . menu%!52=0..|
00002110  f4 3b 6d 65 6e 75 25 21  35 36 3d 2d 31 3a 6d 65  |.;menu%!56=-1:me|
00002120  6e 75 25 21 36 30 3d 26  30 37 30 30 30 30 32 31  |nu%!60=&07000021|
00002130  3a 24 28 6d 65 6e 75 25  2b 36 34 29 3d 22 43 75  |:$(menu%+64)="Cu|
00002140  6d 75 6c 61 74 69 76 65  22 0d 0b fe 42 6d 65 6e  |mulative"...Bmen|
00002150  75 25 21 37 36 3d 26 38  30 3a 6d 65 6e 75 25 21  |u%!76=&80:menu%!|
00002160  38 30 3d 2d 31 3a 6d 65  6e 75 25 21 38 34 3d 26  |80=-1:menu%!84=&|
00002170  30 37 30 30 30 30 32 31  3a 24 28 6d 65 6e 75 25  |07000021:$(menu%|
00002180  2b 38 38 29 3d 22 51 75  69 74 22 0d 0c 08 05 cd  |+88)="Quit".....|
00002190  0d 0c 12 0c e7 20 73 3c  3e 32 20 8c 0d 0c 1c 0e  |..... s<>2 .....|
000021a0  6d 65 6e 75 25 21 35 32  3d 30 0d 0c 26 0f 6d 65  |menu%!52=0..&.me|
000021b0  6e 75 25 21 35 36 3d 2d  31 0d 0c 30 37 e7 20 61  |nu%!56=-1..07. a|
000021c0  63 74 69 76 65 25 3d 34  20 6d 65 6e 75 25 21 36  |ctive%=4 menu%!6|
000021d0  30 3d 26 30 37 30 30 30  30 32 31 20 8b 20 6d 65  |0=&07000021 . me|
000021e0  6e 75 25 21 36 30 3d 26  30 37 34 30 30 30 32 31  |nu%!60=&07400021|
000021f0  0d 0c 3a 1c 24 28 6d 65  6e 75 25 2b 36 34 29 3d  |..:.$(menu%+64)=|
00002200  22 44 65 74 61 69 6c 73  2e 2e 2e 22 0d 0c 44 0e  |"Details..."..D.|
00002210  6d 65 6e 75 25 21 37 36  3d 30 0d 0c 4e 0f 6d 65  |menu%!76=0..N.me|
00002220  6e 75 25 21 38 30 3d 2d  31 0d 0c 58 37 e7 20 61  |nu%!80=-1..X7. a|
00002230  63 74 69 76 65 25 3d 34  20 6d 65 6e 75 25 21 38  |ctive%=4 menu%!8|
00002240  34 3d 26 30 37 30 30 30  30 32 31 20 8b 20 6d 65  |4=&07000021 . me|
00002250  6e 75 25 21 38 34 3d 26  30 37 34 30 30 30 32 31  |nu%!84=&07400021|
00002260  0d 0c 62 1a 24 28 6d 65  6e 75 25 2b 38 38 29 3d  |..b.$(menu%+88)=|
00002270  22 47 72 61 70 68 2e 2e  2e 22 0d 0c 6c 0f 6d 65  |"Graph..."..l.me|
00002280  6e 75 25 21 31 30 30 3d  32 0d 0c 76 10 6d 65 6e  |nu%!100=2..v.men|
00002290  75 25 21 31 30 34 3d 2d  31 0d 0c 80 39 e7 20 61  |u%!104=-1...9. a|
000022a0  63 74 69 76 65 25 3d 34  20 6d 65 6e 75 25 21 31  |ctive%=4 menu%!1|
000022b0  30 38 3d 26 30 37 30 30  30 30 32 31 20 8b 20 6d  |08=&07000021 . m|
000022c0  65 6e 75 25 21 31 30 38  3d 26 30 37 34 30 30 30  |enu%!108=&074000|
000022d0  32 31 0d 0c 8a 1b 24 28  6d 65 6e 75 25 2b 31 31  |21....$(menu%+11|
000022e0  32 29 3d 22 53 6b 69 6c  6c 2e 2e 2e 22 0d 0c 94  |2)="Skill..."...|
000022f0  11 6d 65 6e 75 25 21 31  32 34 3d 26 38 30 0d 0c  |.menu%!124=&80..|
00002300  9e 10 6d 65 6e 75 25 21  31 32 38 3d 2d 31 0d 0c  |..menu%!128=-1..|
00002310  a8 17 6d 65 6e 75 25 21  31 33 32 3d 26 30 37 30  |..menu%!132=&070|
00002320  30 30 30 32 31 0d 0c b2  17 24 28 6d 65 6e 75 25  |00021....$(menu%|
00002330  2b 31 33 36 29 3d 22 51  75 69 74 22 0d 0c bc 05  |+136)="Quit"....|
00002340  cd 0d 0c c6 1d 6d 6f 75  73 78 25 3d 77 70 25 21  |.....mousx%=wp%!|
00002350  30 3a 6d 6f 75 73 79 25  3d 77 70 25 21 34 0d 0c  |0:mousy%=wp%!4..|
00002360  d0 0b 69 63 6f 6e 25 3d  73 0d 0c da 34 e7 20 73  |..icon%=s...4. s|
00002370  3d 30 20 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |=0 .. "Wimp_Crea|
00002380  74 65 4d 65 6e 75 22 2c  2c 6d 65 6e 75 25 2c 77  |teMenu",,menu%,w|
00002390  70 25 21 30 2d 37 30 2c  77 70 25 21 34 0d 0c e4  |p%!0-70,wp%!4...|
000023a0  32 e7 20 73 3d 31 20 c8  99 20 22 57 69 6d 70 5f  |2. s=1 .. "Wimp_|
000023b0  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 6d 65 6e  |CreateMenu",,men|
000023c0  75 25 2c 77 70 25 21 30  2d 36 38 2c 33 36 34 0d  |u%,wp%!0-68,364.|
000023d0  0c ee 34 e7 20 73 3d 32  20 c8 99 20 22 57 69 6d  |..4. s=2 .. "Wim|
000023e0  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 6d  |p_CreateMenu",,m|
000023f0  65 6e 75 25 2c 77 70 25  21 30 2d 37 30 2c 77 70  |enu%,wp%!0-70,wp|
00002400  25 21 34 0d 0c f8 05 e1  0d 0d 02 04 0d 0d 0c 0d  |%!4.............|
00002410  dd f2 70 72 6f 63 65 73  73 0d 0d 16 15 c8 99 20  |..process...... |
00002420  22 48 6f 75 72 67 6c 61  73 73 5f 4f 6e 22 0d 0d  |"Hourglass_On"..|
00002430  20 17 70 65 72 63 65 6e  74 3d 31 30 30 2f 6c 65  | .percent=100/le|
00002440  6e 67 74 68 25 0d 0d 2a  0a 70 74 72 25 3d 30 0d  |ngth%..*.ptr%=0.|
00002450  0d 34 0c 77 6f 72 64 73  25 3d 30 0d 0d 3e 17 70  |.4.words%=0..>.p|
00002460  65 72 63 65 6e 74 3d 31  30 30 2f 6c 65 6e 67 74  |ercent=100/lengt|
00002470  68 25 0d 0d 48 1b e7 20  66 69 6c 74 79 70 65 25  |h%..H.. filtype%|
00002480  3d 26 41 46 38 20 f2 73  65 61 72 63 68 0d 0d 52  |=&AF8 .search..R|
00002490  05 f5 0d 0d 5c 07 66 3d  30 0d 0d 66 0c 77 6f 72  |....\.f=0..f.wor|
000024a0  64 24 3d 22 22 0d 0d 70  27 e7 20 66 69 6c 65 25  |d$=""..p'. file%|
000024b0  3f 70 74 72 25 3e 34 37  20 80 20 66 69 6c 65 25  |?ptr%>47 . file%|
000024c0  3f 70 74 72 25 3c 35 38  20 66 3d 31 0d 0d 7a 27  |?ptr%<58 f=1..z'|
000024d0  e7 20 66 69 6c 65 25 3f  70 74 72 25 3e 36 34 20  |. file%?ptr%>64 |
000024e0  80 20 66 69 6c 65 25 3f  70 74 72 25 3c 39 31 20  |. file%?ptr%<91 |
000024f0  66 3d 31 0d 0d 84 28 e7  20 66 69 6c 65 25 3f 70  |f=1...(. file%?p|
00002500  74 72 25 3e 39 36 20 80  20 66 69 6c 65 25 3f 70  |tr%>96 . file%?p|
00002510  74 72 25 3c 31 32 33 20  66 3d 31 0d 0d 8e 29 e7  |tr%<123 f=1...).|
00002520  20 66 69 6c 65 25 3f 70  74 72 25 3e 31 39 31 20  | file%?ptr%>191 |
00002530  80 20 66 69 6c 65 25 3f  70 74 72 25 3c 32 31 35  |. file%?ptr%<215|
00002540  20 66 3d 31 0d 0d 98 29  e7 20 66 69 6c 65 25 3f  | f=1...). file%?|
00002550  70 74 72 25 3e 32 31 35  20 80 20 66 69 6c 65 25  |ptr%>215 . file%|
00002560  3f 70 74 72 25 3c 32 34  37 20 66 3d 31 0d 0d a2  |?ptr%<247 f=1...|
00002570  18 e7 20 66 69 6c 65 25  3f 70 74 72 25 3e 32 34  |.. file%?ptr%>24|
00002580  37 20 66 3d 31 0d 0d ac  0a c8 95 20 66 3d 31 0d  |7 f=1...... f=1.|
00002590  0d b6 18 77 6f 72 64 24  2b 3d bd 28 66 69 6c 65  |...word$+=.(file|
000025a0  25 3f 70 74 72 25 29 0d  0d c0 07 66 3d 30 0d 0d  |%?ptr%)....f=0..|
000025b0  ca 0b 70 74 72 25 2b 3d  31 0d 0d d4 27 e7 20 66  |..ptr%+=1...'. f|
000025c0  69 6c 65 25 3f 70 74 72  25 3e 34 37 20 80 20 66  |ile%?ptr%>47 . f|
000025d0  69 6c 65 25 3f 70 74 72  25 3c 35 38 20 66 3d 31  |ile%?ptr%<58 f=1|
000025e0  0d 0d de 27 e7 20 66 69  6c 65 25 3f 70 74 72 25  |...'. file%?ptr%|
000025f0  3e 36 34 20 80 20 66 69  6c 65 25 3f 70 74 72 25  |>64 . file%?ptr%|
00002600  3c 39 31 20 66 3d 31 0d  0d e8 28 e7 20 66 69 6c  |<91 f=1...(. fil|
00002610  65 25 3f 70 74 72 25 3e  39 36 20 80 20 66 69 6c  |e%?ptr%>96 . fil|
00002620  65 25 3f 70 74 72 25 3c  31 32 33 20 66 3d 31 0d  |e%?ptr%<123 f=1.|
00002630  0d f2 29 e7 20 66 69 6c  65 25 3f 70 74 72 25 3e  |..). file%?ptr%>|
00002640  31 39 31 20 80 20 66 69  6c 65 25 3f 70 74 72 25  |191 . file%?ptr%|
00002650  3c 32 31 35 20 66 3d 31  0d 0d fc 29 e7 20 66 69  |<215 f=1...). fi|
00002660  6c 65 25 3f 70 74 72 25  3e 32 31 35 20 80 20 66  |le%?ptr%>215 . f|
00002670  69 6c 65 25 3f 70 74 72  25 3c 32 34 37 20 66 3d  |ile%?ptr%<247 f=|
00002680  31 0d 0e 06 18 e7 20 66  69 6c 65 25 3f 70 74 72  |1..... file%?ptr|
00002690  25 3e 32 34 37 20 66 3d  31 0d 0e 10 16 e7 20 70  |%>247 f=1..... p|
000026a0  74 72 25 3e 6c 65 6e 67  74 68 25 20 66 3d 30 0d  |tr%>length% f=0.|
000026b0  0e 1a 05 ce 0d 0e 24 25  e7 20 77 6f 72 64 24 3c  |......$%. word$<|
000026c0  3e 22 22 20 f2 77 6f 72  64 6c 65 6e 67 74 68 28  |>"" .wordlength(|
000026d0  a9 28 77 6f 72 64 24 29  29 0d 0e 2e 2a c8 99 20  |.(word$))...*.. |
000026e0  22 48 6f 75 72 67 6c 61  73 73 5f 50 65 72 63 65  |"Hourglass_Perce|
000026f0  6e 74 61 67 65 22 2c 70  74 72 25 2a 70 65 72 63  |ntage",ptr%*perc|
00002700  65 6e 74 0d 0e 38 0b 70  74 72 25 2b 3d 31 0d 0e  |ent..8.ptr%+=1..|
00002710  42 12 fd 20 70 74 72 25  3e 6c 65 6e 67 74 68 25  |B.. ptr%>length%|
00002720  0d 0e 4c 16 c8 99 20 22  48 6f 75 72 67 6c 61 73  |..L... "Hourglas|
00002730  73 5f 4f 66 66 22 0d 0e  56 0d 61 63 74 69 76 65  |s_Off"..V.active|
00002740  25 3d 33 0d 0e 60 4a e7  20 77 6f 72 64 73 25 3d  |%=3..`J. words%=|
00002750  30 20 f2 65 72 72 28 31  2c 22 4e 6f 20 77 6f 72  |0 .err(1,"No wor|
00002760  64 73 20 66 6f 75 6e 64  2e 22 29 3a f2 73 65 74  |ds found."):.set|
00002770  69 63 6f 6e 62 61 72 28  22 21 61 6e 61 6c 79 73  |iconbar("!analys|
00002780  74 22 29 3a 61 63 74 69  76 65 25 3d 31 0d 0e 6a  |t"):active%=1..j|
00002790  05 e1 0d 0e 74 04 0d 0e  7e 0c dd f2 73 65 61 72  |....t...~...sear|
000027a0  63 68 0d 0e 88 36 c8 95  20 66 69 6c 65 25 3f 70  |ch...6.. file%?p|
000027b0  74 72 25 3c 35 38 20 84  20 66 69 6c 65 25 3f 70  |tr%<58 . file%?p|
000027c0  74 72 25 3e 31 32 36 20  80 20 66 69 6c 65 25 3f  |tr%>126 . file%?|
000027d0  70 74 72 25 3c 31 36 30  0d 0e 92 0b 70 74 72 25  |ptr%<160....ptr%|
000027e0  2b 3d 31 0d 0e 9c 05 ce  0d 0e a6 51 e7 20 66 69  |+=1........Q. fi|
000027f0  6c 65 25 3f 28 70 74 72  25 2b 31 29 3c 35 38 20  |le%?(ptr%+1)<58 |
00002800  84 20 66 69 6c 65 25 3f  28 70 74 72 25 2b 31 29  |. file%?(ptr%+1)|
00002810  3e 31 32 36 20 80 20 66  69 6c 65 25 3f 28 70 74  |>126 . file%?(pt|
00002820  72 25 2b 31 29 3c 31 36  30 20 70 74 72 25 2b 3d  |r%+1)<160 ptr%+=|
00002830  31 3a f2 73 65 61 72 63  68 0d 0e b0 05 e1 0d 0e  |1:.search.......|
00002840  ba 04 0d 0e c4 14 dd f2  77 6f 72 64 6c 65 6e 67  |........wordleng|
00002850  74 68 28 61 25 29 0d 0e  ce 0d 77 6f 72 64 73 25  |th(a%)....words%|
00002860  2b 3d 31 0d 0e d8 19 e7  20 61 25 3c 31 36 20 77  |+=1..... a%<16 w|
00002870  6f 72 64 6c 25 28 61 25  29 2b 3d 31 0d 0e e2 19  |ordl%(a%)+=1....|
00002880  e7 20 61 25 3e 31 35 20  77 6f 72 64 6c 25 28 31  |. a%>15 wordl%(1|
00002890  35 29 2b 3d 31 0d 0e ec  05 e1 0d ff              |5)+=1.......|
0000289c