�     >!RunImage (!Stats)
� by  Nick Kennnedy
� (c) AU July 1994
(:
2	�init
<�� � !b%=�:$(b%+4)=�$+" at line"+Þ+".":ș"Wimp_ReportError",b%,3,"Startup" � ,but%:� but%=2 ș"Wimp_CloseDown",handle%,&4B534154:�
F:
P�
Z	�poll
d
�quit%
n(ș"Wimp_CloseDown",handle%,&4B534154
x�
�:
�
��init
�@ș"Wimp_Initialise",200,&4B534154,"Stats" � version%,handle%
�nval%=4096
�k�b% 256,cwi% 2048,men% 256,ind% 320,ind2% 400,ike%(10),val(nval%):ein%=ind%+320:ein2%=ind2%+400:quit%=�
�1ș"Wimp_OpenTemplate",,"<Obey$Dir>.Templates"
�5ș"Wimp_LoadTemplate",,cwi%,ind%,ein%,-1,"Info",0
�'ș"Wimp_CreateWindow",,cwi% � info%
�7ș"Wimp_LoadTemplate",,cwi%,ind2%,ein2%,-1,"Main",0
�9�i%=0�10:ike%(i%)=cwi%!(88+32*i%+20):$(ike%(i%))="":�
�'ș"Wimp_CreateWindow",,cwi% � main%
�ș"Wimp_CloseTemplate"
�H!b%=-1:b%!4=0:b%!8=0:b%!12=68:b%!16=72:b%!20=&300A:$(b%+24)="!stats"

"ș"Wimp_CreateIcon",,b% � bar%

�openwindow

�

":

,
��poll

6ș"Wimp_Poll",,b% � r%

@Ȏ r% �

J!� 2 : ș"Wimp_OpenWindow",,b%

T"� 3 : ș"Wimp_CloseWindow",,b%

^� 6 : �mouse

h� 9 : Ȏ crm% �

r  � 0 : Ȏ !b% �

|    � 1 : �openwindow

�    � 2 : quit%=�

�  �

�  � 1 : quit%=(!b%=1)

��

�� 17,18 : Ȏ b%!16 �

�             � 0 : quit%=�

�             � 3 : �load

�             �

��

��

�:

���mouse

�2x%=!b%:y%=b%!4:but%=b%!8:win%=b%!12:icn%=b%!16

Ȏ but% �
� 2 : Ȏ win% �
         � -2 : �barmenu
&          � main% : �mainmenu
0�
:� 4 : � win%=-2 �openwindow
D�
N�
X:
b
��barmenu
l
crm%=0
v$men%="Stats"
�>men%!12=&70207:men%!16=200:men%!20=44:men%!24=0:p%=men%+28
�:p%!0=0:p%!4=info%:p%!8=&7000021:$(p%+12)="Info":p%+=24
�=p%!0=0:p%!4=0:p%!8=&7000021:$(p%+12)="Open window":p%+=24
�8p%!0=&80:p%!4=0:p%!8=&7000021:$(p%+12)="Quit":p%+=24
�+ș"Wimp_CreateMenu",,men%,x%-70,44*3+96
��
�:
���mainmenu
�
crm%=1
�$men%="Stats"
�>men%!12=&70207:men%!16=200:men%!20=44:men%!24=0:p%=men%+28
�:p%!0=0:p%!4=info%:p%!8=&7000021:$(p%+12)="Info":p%+=24
�8p%!0=&80:p%!4=0:p%!8=&7000021:$(p%+12)="Quit":p%+=24
)ș"Wimp_CreateMenu",,men%,x%-70,y%+32
�
:
 ��openwindow
*)!b%=main%:ș"Wimp_GetWindowState",,b%
4ș"Wimp_OpenWindow",,b%
>�
H:
R
��load
\!� b%!40<>&FFF � b%!40<>&FFD �
f&file$=�string(b%+44):fhl%=�(file$)
pcou%=0:flg%=�
z�
�str$=�#fhl%
�� �str$,";")=0 str$+=";1"
�!fre%=�(�str$,(1+�str$,";"))))
��i%=1�fre%
�.num$=�str$,(�str$,";")-1)):val(cou%)=�num$
�cou%+=1
�j� cou%>nval% !b%=0:$(b%+4)="Too many numbers in file":ș"Wimp_ReportError",b%,1,"Stats":i%=fre%:flg%=�
��
���#fhl% � flg%
�
�#fhl%
�
num%=cou%
�e� num%=1 !b%=0:$(b%+4)="Only one number in file":ș"Wimp_ReportError",b%,1,"Stats":i%=num%:flg%=�
�� flg% �
ș"Hourglass_On"
	�sort
!sum=�sum("val(x)"):mean=�mean
$$(ike%(0))=�mean
.$(ike%(1))=ämode
8$(ike%(2))=äquartile(2)
B$(ike%(3))=äquartile(1)
L$(ike%(4))=äquartile(3)
V$(ike%(5))=�sum
` $(ike%(6))=äsum("val(x)^2")
j$$(ike%(7))=�(val(num%-1)-val(0))
t+$(ike%(8))=�(�quartile(3)-�quartile(1))
~/$(ike%(9))=ö(�sum("(val(x)-mean)^2")/num%)
�$(ike%(10))=�num%
� �i%=0�10:�change(main%,i%):�
�ș"Hourglass_Smash"
��openwindow
��
�:
�ݤmean:=sum/num%
�6ݤsum(exp$):�tot,x:�x=0�num%-1:tot+=�(exp$):�:=tot
�:
�aݤquartile(q%):�pos:pos=num%/2+0.5:� q%<>2 pos=�(pos-0.5)/2+0.5:� q%=3 pos=pos*3-1+(num% � 2)
�Ipos=pos-1:� (2*pos)� 2=0 � =val(pos) � =(val(pos-0.5)+val(pos+0.5))/2
�:
0ݤmode:�mod,pos%,cnm,com%,mcm%:pos%=0:mcm%=0

�cnm=val(pos%):com%=0
3�:pos%+=1:com%+=1:�val(pos%)<>cnm � pos%=num%-1
!� com%>mcm% mcm%=com%:mod=cnm
(�pos%=cou%-1:=mod
2:
<
��sort
F�i%=num%-2�0 � -1
P�j%=i% � num%-2
Z+� val(j%+1)<val(j%) Ȕval(j%),val(j%+1)
d�
n�
x�
�:
���change(win%,icn%)
�?!b%=win%:b%!4=icn%:b%!8=0:b%!12=0:ș"Wimp_SetIconState",,b%
��
�:
�fݤstring(adr%):�str$,poi%:str$="":poi%=0:ȕadr%?poi%<>0 � poi%<60:str$+=�adr%?poi%:poi%+=1:�:=str$
�

00000000  0d 00 0a 1d f4 20 20 20  20 20 3e 21 52 75 6e 49  |.....     >!RunI|
00000010  6d 61 67 65 20 28 21 53  74 61 74 73 29 0d 00 14  |mage (!Stats)...|
00000020  17 f4 20 62 79 20 20 4e  69 63 6b 20 4b 65 6e 6e  |.. by  Nick Kenn|
00000030  6e 65 64 79 0d 00 1e 16  f4 20 28 63 29 20 41 55  |nedy..... (c) AU|
00000040  20 4a 75 6c 79 20 31 39  39 34 0d 00 28 05 3a 0d  | July 1994..(.:.|
00000050  00 32 09 f2 69 6e 69 74  0d 00 3c 86 ee 20 85 20  |.2..init..<.. . |
00000060  21 62 25 3d 9f 3a 24 28  62 25 2b 34 29 3d f6 24  |!b%=.:$(b%+4)=.$|
00000070  2b 22 20 61 74 20 6c 69  6e 65 22 2b c3 9e 2b 22  |+" at line"+..+"|
00000080  2e 22 3a c8 99 22 57 69  6d 70 5f 52 65 70 6f 72  |.":.."Wimp_Repor|
00000090  74 45 72 72 6f 72 22 2c  62 25 2c 33 2c 22 53 74  |tError",b%,3,"St|
000000a0  61 72 74 75 70 22 20 b8  20 2c 62 75 74 25 3a e7  |artup" . ,but%:.|
000000b0  20 62 75 74 25 3d 32 20  c8 99 22 57 69 6d 70 5f  | but%=2 .."Wimp_|
000000c0  43 6c 6f 73 65 44 6f 77  6e 22 2c 68 61 6e 64 6c  |CloseDown",handl|
000000d0  65 25 2c 26 34 42 35 33  34 31 35 34 3a e0 0d 00  |e%,&4B534154:...|
000000e0  46 05 3a 0d 00 50 05 f5  0d 00 5a 09 f2 70 6f 6c  |F.:..P....Z..pol|
000000f0  6c 0d 00 64 0a fd 71 75  69 74 25 0d 00 6e 28 c8  |l..d..quit%..n(.|
00000100  99 22 57 69 6d 70 5f 43  6c 6f 73 65 44 6f 77 6e  |."Wimp_CloseDown|
00000110  22 2c 68 61 6e 64 6c 65  25 2c 26 34 42 35 33 34  |",handle%,&4B534|
00000120  31 35 34 0d 00 78 05 e0  0d 00 82 05 3a 0d 00 8c  |154..x......:...|
00000130  0a dd f2 69 6e 69 74 0d  00 96 40 c8 99 22 57 69  |...init...@.."Wi|
00000140  6d 70 5f 49 6e 69 74 69  61 6c 69 73 65 22 2c 32  |mp_Initialise",2|
00000150  30 30 2c 26 34 42 35 33  34 31 35 34 2c 22 53 74  |00,&4B534154,"St|
00000160  61 74 73 22 20 b8 20 76  65 72 73 69 6f 6e 25 2c  |ats" . version%,|
00000170  68 61 6e 64 6c 65 25 0d  00 a0 0e 6e 76 61 6c 25  |handle%....nval%|
00000180  3d 34 30 39 36 0d 00 aa  6b de 62 25 20 32 35 36  |=4096...k.b% 256|
00000190  2c 63 77 69 25 20 32 30  34 38 2c 6d 65 6e 25 20  |,cwi% 2048,men% |
000001a0  32 35 36 2c 69 6e 64 25  20 33 32 30 2c 69 6e 64  |256,ind% 320,ind|
000001b0  32 25 20 34 30 30 2c 69  6b 65 25 28 31 30 29 2c  |2% 400,ike%(10),|
000001c0  76 61 6c 28 6e 76 61 6c  25 29 3a 65 69 6e 25 3d  |val(nval%):ein%=|
000001d0  69 6e 64 25 2b 33 32 30  3a 65 69 6e 32 25 3d 69  |ind%+320:ein2%=i|
000001e0  6e 64 32 25 2b 34 30 30  3a 71 75 69 74 25 3d a3  |nd2%+400:quit%=.|
000001f0  0d 00 b4 31 c8 99 22 57  69 6d 70 5f 4f 70 65 6e  |...1.."Wimp_Open|
00000200  54 65 6d 70 6c 61 74 65  22 2c 2c 22 3c 4f 62 65  |Template",,"<Obe|
00000210  79 24 44 69 72 3e 2e 54  65 6d 70 6c 61 74 65 73  |y$Dir>.Templates|
00000220  22 0d 00 be 35 c8 99 22  57 69 6d 70 5f 4c 6f 61  |"...5.."Wimp_Loa|
00000230  64 54 65 6d 70 6c 61 74  65 22 2c 2c 63 77 69 25  |dTemplate",,cwi%|
00000240  2c 69 6e 64 25 2c 65 69  6e 25 2c 2d 31 2c 22 49  |,ind%,ein%,-1,"I|
00000250  6e 66 6f 22 2c 30 0d 00  c8 27 c8 99 22 57 69 6d  |nfo",0...'.."Wim|
00000260  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
00000270  2c 63 77 69 25 20 b8 20  69 6e 66 6f 25 0d 00 d2  |,cwi% . info%...|
00000280  37 c8 99 22 57 69 6d 70  5f 4c 6f 61 64 54 65 6d  |7.."Wimp_LoadTem|
00000290  70 6c 61 74 65 22 2c 2c  63 77 69 25 2c 69 6e 64  |plate",,cwi%,ind|
000002a0  32 25 2c 65 69 6e 32 25  2c 2d 31 2c 22 4d 61 69  |2%,ein2%,-1,"Mai|
000002b0  6e 22 2c 30 0d 00 dc 39  e3 69 25 3d 30 b8 31 30  |n",0...9.i%=0.10|
000002c0  3a 69 6b 65 25 28 69 25  29 3d 63 77 69 25 21 28  |:ike%(i%)=cwi%!(|
000002d0  38 38 2b 33 32 2a 69 25  2b 32 30 29 3a 24 28 69  |88+32*i%+20):$(i|
000002e0  6b 65 25 28 69 25 29 29  3d 22 22 3a ed 0d 00 e6  |ke%(i%))="":....|
000002f0  27 c8 99 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |'.."Wimp_CreateW|
00000300  69 6e 64 6f 77 22 2c 2c  63 77 69 25 20 b8 20 6d  |indow",,cwi% . m|
00000310  61 69 6e 25 0d 00 f0 1a  c8 99 22 57 69 6d 70 5f  |ain%......"Wimp_|
00000320  43 6c 6f 73 65 54 65 6d  70 6c 61 74 65 22 0d 00  |CloseTemplate"..|
00000330  fa 48 21 62 25 3d 2d 31  3a 62 25 21 34 3d 30 3a  |.H!b%=-1:b%!4=0:|
00000340  62 25 21 38 3d 30 3a 62  25 21 31 32 3d 36 38 3a  |b%!8=0:b%!12=68:|
00000350  62 25 21 31 36 3d 37 32  3a 62 25 21 32 30 3d 26  |b%!16=72:b%!20=&|
00000360  33 30 30 41 3a 24 28 62  25 2b 32 34 29 3d 22 21  |300A:$(b%+24)="!|
00000370  73 74 61 74 73 22 0d 01  04 22 c8 99 22 57 69 6d  |stats"...".."Wim|
00000380  70 5f 43 72 65 61 74 65  49 63 6f 6e 22 2c 2c 62  |p_CreateIcon",,b|
00000390  25 20 b8 20 62 61 72 25  0d 01 0e 0f f2 6f 70 65  |% . bar%.....ope|
000003a0  6e 77 69 6e 64 6f 77 0d  01 18 05 e1 0d 01 22 05  |nwindow.......".|
000003b0  3a 0d 01 2c 0a dd f2 70  6f 6c 6c 0d 01 36 1a c8  |:..,...poll..6..|
000003c0  99 22 57 69 6d 70 5f 50  6f 6c 6c 22 2c 2c 62 25  |."Wimp_Poll",,b%|
000003d0  20 b8 20 72 25 0d 01 40  0b c8 8e 20 72 25 20 ca  | . r%..@... r% .|
000003e0  0d 01 4a 21 c9 20 32 20  3a 20 c8 99 22 57 69 6d  |..J!. 2 : .."Wim|
000003f0  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 62  |p_OpenWindow",,b|
00000400  25 0d 01 54 22 c9 20 33  20 3a 20 c8 99 22 57 69  |%..T". 3 : .."Wi|
00000410  6d 70 5f 43 6c 6f 73 65  57 69 6e 64 6f 77 22 2c  |mp_CloseWindow",|
00000420  2c 62 25 0d 01 5e 10 c9  20 36 20 3a 20 f2 6d 6f  |,b%..^.. 6 : .mo|
00000430  75 73 65 0d 01 68 13 c9  20 39 20 3a 20 c8 8e 20  |use..h.. 9 : .. |
00000440  63 72 6d 25 20 ca 0d 01  72 14 20 20 c9 20 30 20  |crm% ...r.  . 0 |
00000450  3a 20 c8 8e 20 21 62 25  20 ca 0d 01 7c 19 20 20  |: .. !b% ...|.  |
00000460  20 20 c9 20 31 20 3a 20  f2 6f 70 65 6e 77 69 6e  |  . 1 : .openwin|
00000470  64 6f 77 0d 01 86 15 20  20 20 20 c9 20 32 20 3a  |dow....    . 2 :|
00000480  20 71 75 69 74 25 3d b9  0d 01 90 07 20 20 cb 0d  | quit%=.....  ..|
00000490  01 9a 19 20 20 c9 20 31  20 3a 20 71 75 69 74 25  |...  . 1 : quit%|
000004a0  3d 28 21 62 25 3d 31 29  0d 01 a4 05 cb 0d 01 ae  |=(!b%=1)........|
000004b0  18 c9 20 31 37 2c 31 38  20 3a 20 c8 8e 20 62 25  |.. 17,18 : .. b%|
000004c0  21 31 36 20 ca 0d 01 b8  1e 20 20 20 20 20 20 20  |!16 .....       |
000004d0  20 20 20 20 20 20 c9 20  30 20 3a 20 71 75 69 74  |      . 0 : quit|
000004e0  25 3d b9 0d 01 c2 1c 20  20 20 20 20 20 20 20 20  |%=.....         |
000004f0  20 20 20 20 c9 20 33 20  3a 20 f2 6c 6f 61 64 0d  |    . 3 : .load.|
00000500  01 cc 12 20 20 20 20 20  20 20 20 20 20 20 20 20  |...             |
00000510  cb 0d 01 d6 05 cb 0d 01  e0 05 e1 0d 01 ea 05 3a  |...............:|
00000520  0d 01 f4 0b dd f2 6d 6f  75 73 65 0d 01 fe 32 78  |......mouse...2x|
00000530  25 3d 21 62 25 3a 79 25  3d 62 25 21 34 3a 62 75  |%=!b%:y%=b%!4:bu|
00000540  74 25 3d 62 25 21 38 3a  77 69 6e 25 3d 62 25 21  |t%=b%!8:win%=b%!|
00000550  31 32 3a 69 63 6e 25 3d  62 25 21 31 36 0d 02 08  |12:icn%=b%!16...|
00000560  0d c8 8e 20 62 75 74 25  20 ca 0d 02 12 13 c9 20  |... but% ...... |
00000570  32 20 3a 20 c8 8e 20 77  69 6e 25 20 ca 0d 02 1c  |2 : .. win% ....|
00000580  1c 20 20 20 20 20 20 20  20 20 c9 20 2d 32 20 3a  |.         . -2 :|
00000590  20 f2 62 61 72 6d 65 6e  75 0d 02 26 20 20 20 20  | .barmenu..&    |
000005a0  20 20 20 20 20 20 c9 20  6d 61 69 6e 25 20 3a 20  |      . main% : |
000005b0  f2 6d 61 69 6e 6d 65 6e  75 0d 02 30 05 cb 0d 02  |.mainmenu..0....|
000005c0  3a 1f c9 20 34 20 3a 20  e7 20 77 69 6e 25 3d 2d  |:.. 4 : . win%=-|
000005d0  32 20 f2 6f 70 65 6e 77  69 6e 64 6f 77 0d 02 44  |2 .openwindow..D|
000005e0  05 cb 0d 02 4e 05 e1 0d  02 58 05 3a 0d 02 62 0d  |....N....X.:..b.|
000005f0  dd f2 62 61 72 6d 65 6e  75 0d 02 6c 0a 63 72 6d  |..barmenu..l.crm|
00000600  25 3d 30 0d 02 76 11 24  6d 65 6e 25 3d 22 53 74  |%=0..v.$men%="St|
00000610  61 74 73 22 0d 02 80 3e  6d 65 6e 25 21 31 32 3d  |ats"...>men%!12=|
00000620  26 37 30 32 30 37 3a 6d  65 6e 25 21 31 36 3d 32  |&70207:men%!16=2|
00000630  30 30 3a 6d 65 6e 25 21  32 30 3d 34 34 3a 6d 65  |00:men%!20=44:me|
00000640  6e 25 21 32 34 3d 30 3a  70 25 3d 6d 65 6e 25 2b  |n%!24=0:p%=men%+|
00000650  32 38 0d 02 8a 3a 70 25  21 30 3d 30 3a 70 25 21  |28...:p%!0=0:p%!|
00000660  34 3d 69 6e 66 6f 25 3a  70 25 21 38 3d 26 37 30  |4=info%:p%!8=&70|
00000670  30 30 30 32 31 3a 24 28  70 25 2b 31 32 29 3d 22  |00021:$(p%+12)="|
00000680  49 6e 66 6f 22 3a 70 25  2b 3d 32 34 0d 02 94 3d  |Info":p%+=24...=|
00000690  70 25 21 30 3d 30 3a 70  25 21 34 3d 30 3a 70 25  |p%!0=0:p%!4=0:p%|
000006a0  21 38 3d 26 37 30 30 30  30 32 31 3a 24 28 70 25  |!8=&7000021:$(p%|
000006b0  2b 31 32 29 3d 22 4f 70  65 6e 20 77 69 6e 64 6f  |+12)="Open windo|
000006c0  77 22 3a 70 25 2b 3d 32  34 0d 02 9e 38 70 25 21  |w":p%+=24...8p%!|
000006d0  30 3d 26 38 30 3a 70 25  21 34 3d 30 3a 70 25 21  |0=&80:p%!4=0:p%!|
000006e0  38 3d 26 37 30 30 30 30  32 31 3a 24 28 70 25 2b  |8=&7000021:$(p%+|
000006f0  31 32 29 3d 22 51 75 69  74 22 3a 70 25 2b 3d 32  |12)="Quit":p%+=2|
00000700  34 0d 02 a8 2b c8 99 22  57 69 6d 70 5f 43 72 65  |4...+.."Wimp_Cre|
00000710  61 74 65 4d 65 6e 75 22  2c 2c 6d 65 6e 25 2c 78  |ateMenu",,men%,x|
00000720  25 2d 37 30 2c 34 34 2a  33 2b 39 36 0d 02 b2 05  |%-70,44*3+96....|
00000730  e1 0d 02 bc 05 3a 0d 02  c6 0e dd f2 6d 61 69 6e  |.....:......main|
00000740  6d 65 6e 75 0d 02 d0 0a  63 72 6d 25 3d 31 0d 02  |menu....crm%=1..|
00000750  da 11 24 6d 65 6e 25 3d  22 53 74 61 74 73 22 0d  |..$men%="Stats".|
00000760  02 e4 3e 6d 65 6e 25 21  31 32 3d 26 37 30 32 30  |..>men%!12=&7020|
00000770  37 3a 6d 65 6e 25 21 31  36 3d 32 30 30 3a 6d 65  |7:men%!16=200:me|
00000780  6e 25 21 32 30 3d 34 34  3a 6d 65 6e 25 21 32 34  |n%!20=44:men%!24|
00000790  3d 30 3a 70 25 3d 6d 65  6e 25 2b 32 38 0d 02 ee  |=0:p%=men%+28...|
000007a0  3a 70 25 21 30 3d 30 3a  70 25 21 34 3d 69 6e 66  |:p%!0=0:p%!4=inf|
000007b0  6f 25 3a 70 25 21 38 3d  26 37 30 30 30 30 32 31  |o%:p%!8=&7000021|
000007c0  3a 24 28 70 25 2b 31 32  29 3d 22 49 6e 66 6f 22  |:$(p%+12)="Info"|
000007d0  3a 70 25 2b 3d 32 34 0d  02 f8 38 70 25 21 30 3d  |:p%+=24...8p%!0=|
000007e0  26 38 30 3a 70 25 21 34  3d 30 3a 70 25 21 38 3d  |&80:p%!4=0:p%!8=|
000007f0  26 37 30 30 30 30 32 31  3a 24 28 70 25 2b 31 32  |&7000021:$(p%+12|
00000800  29 3d 22 51 75 69 74 22  3a 70 25 2b 3d 32 34 0d  |)="Quit":p%+=24.|
00000810  03 02 29 c8 99 22 57 69  6d 70 5f 43 72 65 61 74  |..).."Wimp_Creat|
00000820  65 4d 65 6e 75 22 2c 2c  6d 65 6e 25 2c 78 25 2d  |eMenu",,men%,x%-|
00000830  37 30 2c 79 25 2b 33 32  0d 03 0c 05 e1 0d 03 16  |70,y%+32........|
00000840  05 3a 0d 03 20 10 dd f2  6f 70 65 6e 77 69 6e 64  |.:.. ...openwind|
00000850  6f 77 0d 03 2a 29 21 62  25 3d 6d 61 69 6e 25 3a  |ow..*)!b%=main%:|
00000860  c8 99 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |.."Wimp_GetWindo|
00000870  77 53 74 61 74 65 22 2c  2c 62 25 0d 03 34 1b c8  |wState",,b%..4..|
00000880  99 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  |."Wimp_OpenWindo|
00000890  77 22 2c 2c 62 25 0d 03  3e 05 e1 0d 03 48 05 3a  |w",,b%..>....H.:|
000008a0  0d 03 52 0a dd f2 6c 6f  61 64 0d 03 5c 21 e7 20  |..R...load..\!. |
000008b0  62 25 21 34 30 3c 3e 26  46 46 46 20 80 20 62 25  |b%!40<>&FFF . b%|
000008c0  21 34 30 3c 3e 26 46 46  44 20 e1 0d 03 66 26 66  |!40<>&FFD ...f&f|
000008d0  69 6c 65 24 3d a4 73 74  72 69 6e 67 28 62 25 2b  |ile$=.string(b%+|
000008e0  34 34 29 3a 66 68 6c 25  3d 8e 28 66 69 6c 65 24  |44):fhl%=.(file$|
000008f0  29 0d 03 70 11 63 6f 75  25 3d 30 3a 66 6c 67 25  |)..p.cou%=0:flg%|
00000900  3d a3 0d 03 7a 05 f5 0d  03 84 0f 73 74 72 24 3d  |=...z......str$=|
00000910  be 23 66 68 6c 25 0d 03  8e 1d e7 20 a7 73 74 72  |.#fhl%..... .str|
00000920  24 2c 22 3b 22 29 3d 30  20 73 74 72 24 2b 3d 22  |$,";")=0 str$+="|
00000930  3b 31 22 0d 03 98 21 66  72 65 25 3d bb 28 c1 73  |;1"...!fre%=.(.s|
00000940  74 72 24 2c 28 31 2b a7  73 74 72 24 2c 22 3b 22  |tr$,(1+.str$,";"|
00000950  29 29 29 29 0d 03 a2 0e  e3 69 25 3d 31 b8 66 72  |)))).....i%=1.fr|
00000960  65 25 0d 03 ac 2e 6e 75  6d 24 3d c0 73 74 72 24  |e%....num$=.str$|
00000970  2c 28 a7 73 74 72 24 2c  22 3b 22 29 2d 31 29 29  |,(.str$,";")-1))|
00000980  3a 76 61 6c 28 63 6f 75  25 29 3d bb 6e 75 6d 24  |:val(cou%)=.num$|
00000990  0d 03 b6 0b 63 6f 75 25  2b 3d 31 0d 03 c0 6a e7  |....cou%+=1...j.|
000009a0  20 63 6f 75 25 3e 6e 76  61 6c 25 20 21 62 25 3d  | cou%>nval% !b%=|
000009b0  30 3a 24 28 62 25 2b 34  29 3d 22 54 6f 6f 20 6d  |0:$(b%+4)="Too m|
000009c0  61 6e 79 20 6e 75 6d 62  65 72 73 20 69 6e 20 66  |any numbers in f|
000009d0  69 6c 65 22 3a c8 99 22  57 69 6d 70 5f 52 65 70  |ile":.."Wimp_Rep|
000009e0  6f 72 74 45 72 72 6f 72  22 2c 62 25 2c 31 2c 22  |ortError",b%,1,"|
000009f0  53 74 61 74 73 22 3a 69  25 3d 66 72 65 25 3a 66  |Stats":i%=fre%:f|
00000a00  6c 67 25 3d b9 0d 03 ca  05 ed 0d 03 d4 12 fd c5  |lg%=............|
00000a10  23 66 68 6c 25 20 84 20  66 6c 67 25 0d 03 de 0a  |#fhl% . flg%....|
00000a20  d9 23 66 68 6c 25 0d 03  e8 0d 6e 75 6d 25 3d 63  |.#fhl%....num%=c|
00000a30  6f 75 25 0d 03 f2 65 e7  20 6e 75 6d 25 3d 31 20  |ou%...e. num%=1 |
00000a40  21 62 25 3d 30 3a 24 28  62 25 2b 34 29 3d 22 4f  |!b%=0:$(b%+4)="O|
00000a50  6e 6c 79 20 6f 6e 65 20  6e 75 6d 62 65 72 20 69  |nly one number i|
00000a60  6e 20 66 69 6c 65 22 3a  c8 99 22 57 69 6d 70 5f  |n file":.."Wimp_|
00000a70  52 65 70 6f 72 74 45 72  72 6f 72 22 2c 62 25 2c  |ReportError",b%,|
00000a80  31 2c 22 53 74 61 74 73  22 3a 69 25 3d 6e 75 6d  |1,"Stats":i%=num|
00000a90  25 3a 66 6c 67 25 3d b9  0d 03 fc 0c e7 20 66 6c  |%:flg%=...... fl|
00000aa0  67 25 20 e1 0d 04 06 14  c8 99 22 48 6f 75 72 67  |g% ......."Hourg|
00000ab0  6c 61 73 73 5f 4f 6e 22  0d 04 10 09 f2 73 6f 72  |lass_On".....sor|
00000ac0  74 0d 04 1a 21 73 75 6d  3d a4 73 75 6d 28 22 76  |t...!sum=.sum("v|
00000ad0  61 6c 28 78 29 22 29 3a  6d 65 61 6e 3d a4 6d 65  |al(x)"):mean=.me|
00000ae0  61 6e 0d 04 24 14 24 28  69 6b 65 25 28 30 29 29  |an..$.$(ike%(0))|
00000af0  3d c3 6d 65 61 6e 0d 04  2e 15 24 28 69 6b 65 25  |=.mean....$(ike%|
00000b00  28 31 29 29 3d c3 a4 6d  6f 64 65 0d 04 38 1c 24  |(1))=..mode..8.$|
00000b10  28 69 6b 65 25 28 32 29  29 3d c3 a4 71 75 61 72  |(ike%(2))=..quar|
00000b20  74 69 6c 65 28 32 29 0d  04 42 1c 24 28 69 6b 65  |tile(2)..B.$(ike|
00000b30  25 28 33 29 29 3d c3 a4  71 75 61 72 74 69 6c 65  |%(3))=..quartile|
00000b40  28 31 29 0d 04 4c 1c 24  28 69 6b 65 25 28 34 29  |(1)..L.$(ike%(4)|
00000b50  29 3d c3 a4 71 75 61 72  74 69 6c 65 28 33 29 0d  |)=..quartile(3).|
00000b60  04 56 13 24 28 69 6b 65  25 28 35 29 29 3d c3 73  |.V.$(ike%(5))=.s|
00000b70  75 6d 0d 04 60 20 24 28  69 6b 65 25 28 36 29 29  |um..` $(ike%(6))|
00000b80  3d c3 a4 73 75 6d 28 22  76 61 6c 28 78 29 5e 32  |=..sum("val(x)^2|
00000b90  22 29 0d 04 6a 24 24 28  69 6b 65 25 28 37 29 29  |")..j$$(ike%(7))|
00000ba0  3d c3 28 76 61 6c 28 6e  75 6d 25 2d 31 29 2d 76  |=.(val(num%-1)-v|
00000bb0  61 6c 28 30 29 29 0d 04  74 2b 24 28 69 6b 65 25  |al(0))..t+$(ike%|
00000bc0  28 38 29 29 3d c3 28 a4  71 75 61 72 74 69 6c 65  |(8))=.(.quartile|
00000bd0  28 33 29 2d a4 71 75 61  72 74 69 6c 65 28 31 29  |(3)-.quartile(1)|
00000be0  29 0d 04 7e 2f 24 28 69  6b 65 25 28 39 29 29 3d  |)..~/$(ike%(9))=|
00000bf0  c3 b6 28 a4 73 75 6d 28  22 28 76 61 6c 28 78 29  |..(.sum("(val(x)|
00000c00  2d 6d 65 61 6e 29 5e 32  22 29 2f 6e 75 6d 25 29  |-mean)^2")/num%)|
00000c10  0d 04 88 15 24 28 69 6b  65 25 28 31 30 29 29 3d  |....$(ike%(10))=|
00000c20  c3 6e 75 6d 25 0d 04 92  20 e3 69 25 3d 30 b8 31  |.num%... .i%=0.1|
00000c30  30 3a f2 63 68 61 6e 67  65 28 6d 61 69 6e 25 2c  |0:.change(main%,|
00000c40  69 25 29 3a ed 0d 04 9c  17 c8 99 22 48 6f 75 72  |i%):......."Hour|
00000c50  67 6c 61 73 73 5f 53 6d  61 73 68 22 0d 04 a6 0f  |glass_Smash"....|
00000c60  f2 6f 70 65 6e 77 69 6e  64 6f 77 0d 04 b0 05 e1  |.openwindow.....|
00000c70  0d 04 ba 05 3a 0d 04 c4  14 dd a4 6d 65 61 6e 3a  |....:......mean:|
00000c80  3d 73 75 6d 2f 6e 75 6d  25 0d 04 ce 36 dd a4 73  |=sum/num%...6..s|
00000c90  75 6d 28 65 78 70 24 29  3a ea 74 6f 74 2c 78 3a  |um(exp$):.tot,x:|
00000ca0  e3 78 3d 30 b8 6e 75 6d  25 2d 31 3a 74 6f 74 2b  |.x=0.num%-1:tot+|
00000cb0  3d a0 28 65 78 70 24 29  3a ed 3a 3d 74 6f 74 0d  |=.(exp$):.:=tot.|
00000cc0  04 d8 05 3a 0d 04 e2 61  dd a4 71 75 61 72 74 69  |...:...a..quarti|
00000cd0  6c 65 28 71 25 29 3a ea  70 6f 73 3a 70 6f 73 3d  |le(q%):.pos:pos=|
00000ce0  6e 75 6d 25 2f 32 2b 30  2e 35 3a e7 20 71 25 3c  |num%/2+0.5:. q%<|
00000cf0  3e 32 20 70 6f 73 3d a8  28 70 6f 73 2d 30 2e 35  |>2 pos=.(pos-0.5|
00000d00  29 2f 32 2b 30 2e 35 3a  e7 20 71 25 3d 33 20 70  |)/2+0.5:. q%=3 p|
00000d10  6f 73 3d 70 6f 73 2a 33  2d 31 2b 28 6e 75 6d 25  |os=pos*3-1+(num%|
00000d20  20 83 20 32 29 0d 04 ec  49 70 6f 73 3d 70 6f 73  | . 2)...Ipos=pos|
00000d30  2d 31 3a e7 20 28 32 2a  70 6f 73 29 83 20 32 3d  |-1:. (2*pos). 2=|
00000d40  30 20 8c 20 3d 76 61 6c  28 70 6f 73 29 20 8b 20  |0 . =val(pos) . |
00000d50  3d 28 76 61 6c 28 70 6f  73 2d 30 2e 35 29 2b 76  |=(val(pos-0.5)+v|
00000d60  61 6c 28 70 6f 73 2b 30  2e 35 29 29 2f 32 0d 04  |al(pos+0.5))/2..|
00000d70  f6 05 3a 0d 05 00 30 dd  a4 6d 6f 64 65 3a ea 6d  |..:...0..mode:.m|
00000d80  6f 64 2c 70 6f 73 25 2c  63 6e 6d 2c 63 6f 6d 25  |od,pos%,cnm,com%|
00000d90  2c 6d 63 6d 25 3a 70 6f  73 25 3d 30 3a 6d 63 6d  |,mcm%:pos%=0:mcm|
00000da0  25 3d 30 0d 05 0a 19 f5  63 6e 6d 3d 76 61 6c 28  |%=0.....cnm=val(|
00000db0  70 6f 73 25 29 3a 63 6f  6d 25 3d 30 0d 05 14 33  |pos%):com%=0...3|
00000dc0  f5 3a 70 6f 73 25 2b 3d  31 3a 63 6f 6d 25 2b 3d  |.:pos%+=1:com%+=|
00000dd0  31 3a fd 76 61 6c 28 70  6f 73 25 29 3c 3e 63 6e  |1:.val(pos%)<>cn|
00000de0  6d 20 84 20 70 6f 73 25  3d 6e 75 6d 25 2d 31 0d  |m . pos%=num%-1.|
00000df0  05 1e 21 e7 20 63 6f 6d  25 3e 6d 63 6d 25 20 6d  |..!. com%>mcm% m|
00000e00  63 6d 25 3d 63 6f 6d 25  3a 6d 6f 64 3d 63 6e 6d  |cm%=com%:mod=cnm|
00000e10  0d 05 28 15 fd 70 6f 73  25 3d 63 6f 75 25 2d 31  |..(..pos%=cou%-1|
00000e20  3a 3d 6d 6f 64 0d 05 32  05 3a 0d 05 3c 0a dd f2  |:=mod..2.:..<...|
00000e30  73 6f 72 74 0d 05 46 15  e3 69 25 3d 6e 75 6d 25  |sort..F..i%=num%|
00000e40  2d 32 b8 30 20 88 20 2d  31 0d 05 50 13 e3 6a 25  |-2.0 . -1..P..j%|
00000e50  3d 69 25 20 b8 20 6e 75  6d 25 2d 32 0d 05 5a 2b  |=i% . num%-2..Z+|
00000e60  e7 20 76 61 6c 28 6a 25  2b 31 29 3c 76 61 6c 28  |. val(j%+1)<val(|
00000e70  6a 25 29 20 c8 94 76 61  6c 28 6a 25 29 2c 76 61  |j%) ..val(j%),va|
00000e80  6c 28 6a 25 2b 31 29 0d  05 64 05 ed 0d 05 6e 05  |l(j%+1)..d....n.|
00000e90  ed 0d 05 78 05 e1 0d 05  82 05 3a 0d 05 8c 17 dd  |...x......:.....|
00000ea0  f2 63 68 61 6e 67 65 28  77 69 6e 25 2c 69 63 6e  |.change(win%,icn|
00000eb0  25 29 0d 05 96 3f 21 62  25 3d 77 69 6e 25 3a 62  |%)...?!b%=win%:b|
00000ec0  25 21 34 3d 69 63 6e 25  3a 62 25 21 38 3d 30 3a  |%!4=icn%:b%!8=0:|
00000ed0  62 25 21 31 32 3d 30 3a  c8 99 22 57 69 6d 70 5f  |b%!12=0:.."Wimp_|
00000ee0  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 62  |SetIconState",,b|
00000ef0  25 0d 05 a0 05 e1 0d 05  aa 05 3a 0d 05 b4 66 dd  |%.........:...f.|
00000f00  a4 73 74 72 69 6e 67 28  61 64 72 25 29 3a ea 73  |.string(adr%):.s|
00000f10  74 72 24 2c 70 6f 69 25  3a 73 74 72 24 3d 22 22  |tr$,poi%:str$=""|
00000f20  3a 70 6f 69 25 3d 30 3a  c8 95 61 64 72 25 3f 70  |:poi%=0:..adr%?p|
00000f30  6f 69 25 3c 3e 30 20 80  20 70 6f 69 25 3c 36 30  |oi%<>0 . poi%<60|
00000f40  3a 73 74 72 24 2b 3d bd  61 64 72 25 3f 70 6f 69  |:str$+=.adr%?poi|
00000f50  25 3a 70 6f 69 25 2b 3d  31 3a ce 3a 3d 73 74 72  |%:poi%+=1:.:=str|
00000f60  24 0d ff                                          |$..|
00000f63