Q�>SCSI::Fonts.$.!Private.Programs.EFFdemo1.!FontFind.!RunImage On 22 Jun 1993
�f:��e��d
 �:ș"Wimp_Poll",,b%�r%:Ȏr%�
	�1:�g
2�2:ș"Wimp_OpenWindow",,b%
<�3:ș"Wimp_CloseWindow",,b%
F	�6:�h
P	�9:�i
Z	�8:�j
d�:�w%:�d:�
d
xݤe:�c%:!b%=�:d$="":Ȏ!b%�
��(1<<30):c%=2
��(1<<30)+1:c%=1
��(1<<30)+2:c%=3
�:d$=" at "+Þ:c%=1
��:$(b%+4)=d$+�$+�0
�-ș"Wimp_ReportError",b%,c%,e$�,D%:=(D%=1)
�)��d:ș"Wimp_CloseDown",E%,&4B534154:�
�

"���f:e$="FontFinder":k%=202:p%=�:�b:q%=5000:w%=�:ș"Wimp_Initialise",200,&4B534154,e$�,E%:�b% q%,s% q%,f% q%,m% 64:F%=s%+4000:N%=f%+4000:�k:�l:!b%=-1:b%!4=0:b%!8=0:b%!12=68:b%!16=68:b%!20=12290

T�$(b%+24)="!FontFind":ș"Wimp_CreateIcon",,b%�i%:�z% 30000,a$(k%,2),b$(k%),c$(k%):�d$(k%),e$(k%):�("LOAD <FontFind$Dir>.Prices "+�~(z%)):�m:�b:e%=1:�c(e%):�

�

���l:�n:�

�

���n:�+1

�� Info,Info,Quit,*

�A%=�f:�o(A%,0,G%):�

�

�'��o(o%,H%,I%):!(o%+28+H%*24+4)=I%:�

&mݤf:d%=f%:�f$:$(d%)=f$:d%?12=7:d%?13=2:d%?14=7:d%?15=0:d%!20=44:d%!24=0:t%=�(f$)-3:f%+=28:�:�b$:�b$<>"*"�
D$!f%=0:O%=�:f%!4=-1:�b$>t%t%=�b$
X$f%!8=&7000021:$(f%+12)=b$:f%+=24
l�:�b$="*":d%!16=t%*16+32
l#!(f%-24)=!(f%-24)�128:P%=f%:=d%
�n��k:ș"Wimp_OpenTemplate",,"<FontFind$Dir>.Templates":G%=�c("Info"):g%=�c("Main"):ș"Wimp_CloseTemplate":�
�
�]ݤc(a$):�c%:ș"Wimp_LoadTemplate",,b%,s%,F%,-1,a$,0�,,s%:ș"Wimp_CreateWindow",,b%�c%:=c%
���h:Ȏb%!12�
�
�-2:�p

�g%:�q
�:�

 ��p:Ȏb%!8�
*�2:�e(A%,!b%-64,96+2*44)
>A�4:!b%=g%:ș"Wimp_GetWindowState",,b%:ș"Wimp_OpenWindow",,b%
H�:�
H
\��q:Ȏb%!8�
f	�4:�r
z�:�
z
���r:Ȏb%!16�
��20:�e%>1e%-=1:�c(e%)
��21:�e%<k%e%+=1:�c(e%)
��:�
�
�*��j:h%=b%!0:j%=b%!4:u%=b%!24:Ȏ�g(g%)�
�ɹ:�s(h%,j%,u%)
��:�
�
��s(h%,j%,u%):�u%=13�j%=5�
Jc$=�h(g%,5):e%=�i(c$):�e%<>0�c(e%)��(1<<30),"Could Not Find that Font"
$�:�
.
Bb��i:�c%:c%=b%+900:ș"Wimp_GetPointerInfo",,c%:J%=(c%!8�1):ș"Wimp_DecodeMenu",,B%,b%,c%:Ȏ$c%�
V�"Quit":w%=�
j�:�J%=���e(B%,K%,L%)
j�
t
�C��e(o%,x%,y%):B%=o%:K%=x%:L%=y%:ș"Wimp_CreateMenu",,o%,x%,y%:�
�
�J��g:ș"Wimp_RedrawWindow",,b%�C%:ȕC%:ș"Wimp_GetRectangle",,b%�C%:�:�
�
�l��t(h%):�c%:c%=b%+900:!c%=h%:ș"Wimp_GetWindowState",,c%:ș"Wimp_ForceRedraw",-1,c%!4,c%!8,c%!12,c%!16:�
�

Eݤg(a%):!b%=a%:ș"Wimp_GetWindowState",,b%:�(b%!32�1<<16)<>0=��=�

2(ݤh(h%,j%):�u(�b(h%,j%)):=$�b(h%,j%)
Z!��a(h%,j%,a$):$�b(h%,j%)=a$:�
n
�>ݤb(h%,j%):!m%=h%:m%!4=j%:ș"Wimp_GetIconState",,m%:=m%!28
�-��u(a%):�n%:ȕa%?n%>31:n%+=1:�:a%?n%=13:�
�
�Tݤi(c$):�b:v%=0:d%=0:c$=�d(c$):�:d%+=1:�M%=1�2:i$=�d(a$(d%,M%)):�i$,c$)<>0v%=d%
��:�v%>0�d%=k%:�b:=v%
���m:d%=z%:l%=d%:�e%=1�k%:a$(e%,1)=�a(d%,d%):e$(e%)=�a(d%,d%):A$=�a(d%,d%):b$(e%)=�a(d%,d%):c$(e%)=�a(d%,d%):d$(e%)=�a(d%,d%):a$(e%,2)=�a(d%,d%):�:�
h
|z��c(e%):�a(g%,6,a$(e%,1)):�a(g%,7,a$(e%,2)):�a(g%,8,e$(e%)):�a(g%,9,b$(e%)):�a(g%,10,c$(e%)):�a(g%,11,d$(e%)):�t(g%):�
�
�\ݤa(d%,�d%):l%=d%:�:l%+=1:�?l%=44�?l%=13�?l%=10:g$="":�T%=d%�l%-1:g$+=�?T%:�:d%=l%+1:=g$
Cݤd(A$):h$="":�T%=1��(A$):A=�(�A$,T%,1)):�A>31�A<127h$+=�(A�32)
&	�:=h$
D&��b:�p%=��ș"Hourglass_Off":p%=�:�
Nș"Hourglass_On":p%=�:�
�

00000000  0d 00 01 51 f4 3e 53 43  53 49 3a 3a 46 6f 6e 74  |...Q.>SCSI::Font|
00000010  73 2e 24 2e 21 50 72 69  76 61 74 65 2e 50 72 6f  |s.$.!Private.Pro|
00000020  67 72 61 6d 73 2e 45 46  46 64 65 6d 6f 31 2e 21  |grams.EFFdemo1.!|
00000030  46 6f 6e 74 46 69 6e 64  2e 21 52 75 6e 49 6d 61  |FontFind.!RunIma|
00000040  67 65 20 4f 6e 20 32 32  20 4a 75 6e 20 31 39 39  |ge On 22 Jun 199|
00000050  33 0d 00 02 0f f2 66 3a  ee 85 e7 a4 65 8c f2 64  |3.....f:....e..d|
00000060  0d 00 14 20 f5 3a c8 99  22 57 69 6d 70 5f 50 6f  |... .:.."Wimp_Po|
00000070  6c 6c 22 2c 2c 62 25 b8  72 25 3a c8 8e 72 25 ca  |ll",,b%.r%:..r%.|
00000080  0d 00 1e 09 c9 31 3a f2  67 0d 00 32 1e c9 32 3a  |.....1:.g..2..2:|
00000090  c8 99 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |.."Wimp_OpenWind|
000000a0  6f 77 22 2c 2c 62 25 0d  00 3c 1f c9 33 3a c8 99  |ow",,b%..<..3:..|
000000b0  22 57 69 6d 70 5f 43 6c  6f 73 65 57 69 6e 64 6f  |"Wimp_CloseWindo|
000000c0  77 22 2c 2c 62 25 0d 00  46 09 c9 36 3a f2 68 0d  |w",,b%..F..6:.h.|
000000d0  00 50 09 c9 39 3a f2 69  0d 00 5a 09 c9 38 3a f2  |.P..9:.i..Z..8:.|
000000e0  6a 0d 00 64 0e cb 3a fd  77 25 3a f2 64 3a e0 0d  |j..d..:.w%:.d:..|
000000f0  00 64 04 0d 00 78 1e dd  a4 65 3a ea 63 25 3a 21  |.d...x...e:.c%:!|
00000100  62 25 3d 9f 3a 64 24 3d  22 22 3a c8 8e 21 62 25  |b%=.:d$="":..!b%|
00000110  ca 0d 00 82 11 c9 28 31  3c 3c 33 30 29 3a 63 25  |......(1<<30):c%|
00000120  3d 32 0d 00 96 13 c9 28  31 3c 3c 33 30 29 2b 31  |=2.....(1<<30)+1|
00000130  3a 63 25 3d 31 0d 00 a0  13 c9 28 31 3c 3c 33 30  |:c%=1.....(1<<30|
00000140  29 2b 32 3a 63 25 3d 33  0d 00 aa 17 7f 3a 64 24  |)+2:c%=3.....:d$|
00000150  3d 22 20 61 74 20 22 2b  c3 9e 3a 63 25 3d 31 0d  |=" at "+..:c%=1.|
00000160  00 b4 16 cb 3a 24 28 62  25 2b 34 29 3d 64 24 2b  |....:$(b%+4)=d$+|
00000170  f6 24 2b bd 30 0d 00 b4  2d c8 99 22 57 69 6d 70  |.$+.0...-.."Wimp|
00000180  5f 52 65 70 6f 72 74 45  72 72 6f 72 22 2c 62 25  |_ReportError",b%|
00000190  2c 63 25 2c 65 24 b8 2c  44 25 3a 3d 28 44 25 3d  |,c%,e$.,D%:=(D%=|
000001a0  31 29 0d 00 dc 29 dd f2  64 3a c8 99 22 57 69 6d  |1)...)..d:.."Wim|
000001b0  70 5f 43 6c 6f 73 65 44  6f 77 6e 22 2c 45 25 2c  |p_CloseDown",E%,|
000001c0  26 34 42 35 33 34 31 35  34 3a e1 0d 00 f0 04 0d  |&4B534154:......|
000001d0  01 22 c4 dd f2 66 3a 65  24 3d 22 46 6f 6e 74 46  |."...f:e$="FontF|
000001e0  69 6e 64 65 72 22 3a 6b  25 3d 32 30 32 3a 70 25  |inder":k%=202:p%|
000001f0  3d a3 3a f2 62 3a 71 25  3d 35 30 30 30 3a 77 25  |=.:.b:q%=5000:w%|
00000200  3d a3 3a c8 99 22 57 69  6d 70 5f 49 6e 69 74 69  |=.:.."Wimp_Initi|
00000210  61 6c 69 73 65 22 2c 32  30 30 2c 26 34 42 35 33  |alise",200,&4B53|
00000220  34 31 35 34 2c 65 24 b8  2c 45 25 3a de 62 25 20  |4154,e$.,E%:.b% |
00000230  71 25 2c 73 25 20 71 25  2c 66 25 20 71 25 2c 6d  |q%,s% q%,f% q%,m|
00000240  25 20 36 34 3a 46 25 3d  73 25 2b 34 30 30 30 3a  |% 64:F%=s%+4000:|
00000250  4e 25 3d 66 25 2b 34 30  30 30 3a f2 6b 3a f2 6c  |N%=f%+4000:.k:.l|
00000260  3a 21 62 25 3d 2d 31 3a  62 25 21 34 3d 30 3a 62  |:!b%=-1:b%!4=0:b|
00000270  25 21 38 3d 30 3a 62 25  21 31 32 3d 36 38 3a 62  |%!8=0:b%!12=68:b|
00000280  25 21 31 36 3d 36 38 3a  62 25 21 32 30 3d 31 32  |%!16=68:b%!20=12|
00000290  32 39 30 0d 01 54 9f 24  28 62 25 2b 32 34 29 3d  |290..T.$(b%+24)=|
000002a0  22 21 46 6f 6e 74 46 69  6e 64 22 3a c8 99 22 57  |"!FontFind":.."W|
000002b0  69 6d 70 5f 43 72 65 61  74 65 49 63 6f 6e 22 2c  |imp_CreateIcon",|
000002c0  2c 62 25 b8 69 25 3a de  7a 25 20 33 30 30 30 30  |,b%.i%:.z% 30000|
000002d0  2c 61 24 28 6b 25 2c 32  29 2c 62 24 28 6b 25 29  |,a$(k%,2),b$(k%)|
000002e0  2c 63 24 28 6b 25 29 3a  de 64 24 28 6b 25 29 2c  |,c$(k%):.d$(k%),|
000002f0  65 24 28 6b 25 29 3a ff  28 22 4c 4f 41 44 20 3c  |e$(k%):.("LOAD <|
00000300  46 6f 6e 74 46 69 6e 64  24 44 69 72 3e 2e 50 72  |FontFind$Dir>.Pr|
00000310  69 63 65 73 20 22 2b c3  7e 28 7a 25 29 29 3a f2  |ices "+.~(z%)):.|
00000320  6d 3a f2 62 3a 65 25 3d  31 3a f2 63 28 65 25 29  |m:.b:e%=1:.c(e%)|
00000330  3a e1 0d 01 86 04 0d 01  9a 0c dd f2 6c 3a f2 6e  |:...........l:.n|
00000340  3a e1 0d 01 ae 04 0d 01  c2 0b dd f2 6e 3a f7 2b  |:...........n:.+|
00000350  31 0d 01 cc 16 dc 20 49  6e 66 6f 2c 49 6e 66 6f  |1..... Info,Info|
00000360  2c 51 75 69 74 2c 2a 0d  01 d6 17 41 25 3d a4 66  |,Quit,*....A%=.f|
00000370  3a f2 6f 28 41 25 2c 30  2c 47 25 29 3a e1 0d 01  |:.o(A%,0,G%):...|
00000380  ea 04 0d 01 fe 27 dd f2  6f 28 6f 25 2c 48 25 2c  |.....'..o(o%,H%,|
00000390  49 25 29 3a 21 28 6f 25  2b 32 38 2b 48 25 2a 32  |I%):!(o%+28+H%*2|
000003a0  34 2b 34 29 3d 49 25 3a  e1 0d 02 12 04 0d 02 26  |4+4)=I%:.......&|
000003b0  6d dd a4 66 3a 64 25 3d  66 25 3a f3 66 24 3a 24  |m..f:d%=f%:.f$:$|
000003c0  28 64 25 29 3d 66 24 3a  64 25 3f 31 32 3d 37 3a  |(d%)=f$:d%?12=7:|
000003d0  64 25 3f 31 33 3d 32 3a  64 25 3f 31 34 3d 37 3a  |d%?13=2:d%?14=7:|
000003e0  64 25 3f 31 35 3d 30 3a  64 25 21 32 30 3d 34 34  |d%?15=0:d%!20=44|
000003f0  3a 64 25 21 32 34 3d 30  3a 74 25 3d a9 28 66 24  |:d%!24=0:t%=.(f$|
00000400  29 2d 33 3a 66 25 2b 3d  32 38 3a f5 3a f3 62 24  |)-3:f%+=28:.:.b$|
00000410  3a e7 62 24 3c 3e 22 2a  22 8c 0d 02 44 24 21 66  |:.b$<>"*"...D$!f|
00000420  25 3d 30 3a 4f 25 3d a3  3a 66 25 21 34 3d 2d 31  |%=0:O%=.:f%!4=-1|
00000430  3a e7 a9 62 24 3e 74 25  74 25 3d a9 62 24 0d 02  |:..b$>t%t%=.b$..|
00000440  58 24 66 25 21 38 3d 26  37 30 30 30 30 32 31 3a  |X$f%!8=&7000021:|
00000450  24 28 66 25 2b 31 32 29  3d 62 24 3a 66 25 2b 3d  |$(f%+12)=b$:f%+=|
00000460  32 34 0d 02 6c 1c cd 3a  fd 62 24 3d 22 2a 22 3a  |24..l..:.b$="*":|
00000470  64 25 21 31 36 3d 74 25  2a 31 36 2b 33 32 0d 02  |d%!16=t%*16+32..|
00000480  6c 23 21 28 66 25 2d 32  34 29 3d 21 28 66 25 2d  |l#!(f%-24)=!(f%-|
00000490  32 34 29 84 31 32 38 3a  50 25 3d 66 25 3a 3d 64  |24).128:P%=f%:=d|
000004a0  25 0d 02 8a 6e dd f2 6b  3a c8 99 22 57 69 6d 70  |%...n..k:.."Wimp|
000004b0  5f 4f 70 65 6e 54 65 6d  70 6c 61 74 65 22 2c 2c  |_OpenTemplate",,|
000004c0  22 3c 46 6f 6e 74 46 69  6e 64 24 44 69 72 3e 2e  |"<FontFind$Dir>.|
000004d0  54 65 6d 70 6c 61 74 65  73 22 3a 47 25 3d a4 63  |Templates":G%=.c|
000004e0  28 22 49 6e 66 6f 22 29  3a 67 25 3d a4 63 28 22  |("Info"):g%=.c("|
000004f0  4d 61 69 6e 22 29 3a c8  99 22 57 69 6d 70 5f 43  |Main"):.."Wimp_C|
00000500  6c 6f 73 65 54 65 6d 70  6c 61 74 65 22 3a e1 0d  |loseTemplate":..|
00000510  02 a8 04 0d 02 bc 5d dd  a4 63 28 61 24 29 3a ea  |......]..c(a$):.|
00000520  63 25 3a c8 99 22 57 69  6d 70 5f 4c 6f 61 64 54  |c%:.."Wimp_LoadT|
00000530  65 6d 70 6c 61 74 65 22  2c 2c 62 25 2c 73 25 2c  |emplate",,b%,s%,|
00000540  46 25 2c 2d 31 2c 61 24  2c 30 b8 2c 2c 73 25 3a  |F%,-1,a$,0.,,s%:|
00000550  c8 99 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |.."Wimp_CreateWi|
00000560  6e 64 6f 77 22 2c 2c 62  25 b8 63 25 3a 3d 63 25  |ndow",,b%.c%:=c%|
00000570  0d 02 e4 10 dd f2 68 3a  c8 8e 62 25 21 31 32 ca  |......h:..b%!12.|
00000580  0d 02 ee 0a c9 2d 32 3a  f2 70 0d 03 02 0a c9 67  |.....-2:.p.....g|
00000590  25 3a f2 71 0d 03 0c 07  cb 3a e1 0d 03 0c 04 0d  |%:.q.....:......|
000005a0  03 20 0f dd f2 70 3a c8  8e 62 25 21 38 ca 0d 03  |. ...p:..b%!8...|
000005b0  2a 1c c9 32 3a f2 65 28  41 25 2c 21 62 25 2d 36  |*..2:.e(A%,!b%-6|
000005c0  34 2c 39 36 2b 32 2a 34  34 29 0d 03 3e 41 c9 34  |4,96+2*44)..>A.4|
000005d0  3a 21 62 25 3d 67 25 3a  c8 99 22 57 69 6d 70 5f  |:!b%=g%:.."Wimp_|
000005e0  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
000005f0  2c 62 25 3a c8 99 22 57  69 6d 70 5f 4f 70 65 6e  |,b%:.."Wimp_Open|
00000600  57 69 6e 64 6f 77 22 2c  2c 62 25 0d 03 48 07 cb  |Window",,b%..H..|
00000610  3a e1 0d 03 48 04 0d 03  5c 0f dd f2 71 3a c8 8e  |:...H...\...q:..|
00000620  62 25 21 38 ca 0d 03 66  09 c9 34 3a f2 72 0d 03  |b%!8...f..4:.r..|
00000630  7a 07 cb 3a e1 0d 03 7a  04 0d 03 8e 10 dd f2 72  |z..:...z.......r|
00000640  3a c8 8e 62 25 21 31 36  ca 0d 03 98 19 c9 32 30  |:..b%!16......20|
00000650  3a e7 65 25 3e 31 65 25  2d 3d 31 3a f2 63 28 65  |:.e%>1e%-=1:.c(e|
00000660  25 29 0d 03 a2 1a c9 32  31 3a e7 65 25 3c 6b 25  |%).....21:.e%<k%|
00000670  65 25 2b 3d 31 3a f2 63  28 65 25 29 0d 03 ac 07  |e%+=1:.c(e%)....|
00000680  cb 3a e1 0d 03 b6 04 0d  03 ca 2a dd f2 6a 3a 68  |.:........*..j:h|
00000690  25 3d 62 25 21 30 3a 6a  25 3d 62 25 21 34 3a 75  |%=b%!0:j%=b%!4:u|
000006a0  25 3d 62 25 21 32 34 3a  c8 8e a4 67 28 67 25 29  |%=b%!24:...g(g%)|
000006b0  ca 0d 03 de 13 c9 b9 3a  f2 73 28 68 25 2c 6a 25  |.......:.s(h%,j%|
000006c0  2c 75 25 29 0d 03 f2 07  cb 3a e1 0d 03 f2 04 0d  |,u%).....:......|
000006d0  04 06 1e dd f2 73 28 68  25 2c 6a 25 2c 75 25 29  |.....s(h%,j%,u%)|
000006e0  3a e7 75 25 3d 31 33 80  6a 25 3d 35 8c 0d 04 10  |:.u%=13.j%=5....|
000006f0  4a 63 24 3d a4 68 28 67  25 2c 35 29 3a 65 25 3d  |Jc$=.h(g%,5):e%=|
00000700  a4 69 28 63 24 29 3a e7  65 25 3c 3e 30 f2 63 28  |.i(c$):.e%<>0.c(|
00000710  65 25 29 8b 85 28 31 3c  3c 33 30 29 2c 22 43 6f  |e%)..(1<<30),"Co|
00000720  75 6c 64 20 4e 6f 74 20  46 69 6e 64 20 74 68 61  |uld Not Find tha|
00000730  74 20 46 6f 6e 74 22 0d  04 24 07 cd 3a e1 0d 04  |t Font"..$..:...|
00000740  2e 04 0d 04 42 62 dd f2  69 3a ea 63 25 3a 63 25  |....Bb..i:.c%:c%|
00000750  3d 62 25 2b 39 30 30 3a  c8 99 22 57 69 6d 70 5f  |=b%+900:.."Wimp_|
00000760  47 65 74 50 6f 69 6e 74  65 72 49 6e 66 6f 22 2c  |GetPointerInfo",|
00000770  2c 63 25 3a 4a 25 3d 28  63 25 21 38 80 31 29 3a  |,c%:J%=(c%!8.1):|
00000780  c8 99 22 57 69 6d 70 5f  44 65 63 6f 64 65 4d 65  |.."Wimp_DecodeMe|
00000790  6e 75 22 2c 2c 42 25 2c  62 25 2c 63 25 3a c8 8e  |nu",,B%,b%,c%:..|
000007a0  24 63 25 ca 0d 04 56 10  c9 22 51 75 69 74 22 3a  |$c%...V.."Quit":|
000007b0  77 25 3d b9 0d 04 6a 18  cb 3a e7 4a 25 3d b9 8c  |w%=...j..:.J%=..|
000007c0  f2 65 28 42 25 2c 4b 25  2c 4c 25 29 0d 04 6a 05  |.e(B%,K%,L%)..j.|
000007d0  e1 0d 04 74 04 0d 04 88  43 dd f2 65 28 6f 25 2c  |...t....C..e(o%,|
000007e0  78 25 2c 79 25 29 3a 42  25 3d 6f 25 3a 4b 25 3d  |x%,y%):B%=o%:K%=|
000007f0  78 25 3a 4c 25 3d 79 25  3a c8 99 22 57 69 6d 70  |x%:L%=y%:.."Wimp|
00000800  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 6f 25  |_CreateMenu",,o%|
00000810  2c 78 25 2c 79 25 3a e1  0d 04 9c 04 0d 04 b0 4a  |,x%,y%:........J|
00000820  dd f2 67 3a c8 99 22 57  69 6d 70 5f 52 65 64 72  |..g:.."Wimp_Redr|
00000830  61 77 57 69 6e 64 6f 77  22 2c 2c 62 25 b8 43 25  |awWindow",,b%.C%|
00000840  3a c8 95 43 25 3a c8 99  22 57 69 6d 70 5f 47 65  |:..C%:.."Wimp_Ge|
00000850  74 52 65 63 74 61 6e 67  6c 65 22 2c 2c 62 25 b8  |tRectangle",,b%.|
00000860  43 25 3a ce 3a e1 0d 04  ce 04 0d 04 e2 6c dd f2  |C%:.:........l..|
00000870  74 28 68 25 29 3a ea 63  25 3a 63 25 3d 62 25 2b  |t(h%):.c%:c%=b%+|
00000880  39 30 30 3a 21 63 25 3d  68 25 3a c8 99 22 57 69  |900:!c%=h%:.."Wi|
00000890  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
000008a0  65 22 2c 2c 63 25 3a c8  99 22 57 69 6d 70 5f 46  |e",,c%:.."Wimp_F|
000008b0  6f 72 63 65 52 65 64 72  61 77 22 2c 2d 31 2c 63  |orceRedraw",-1,c|
000008c0  25 21 34 2c 63 25 21 38  2c 63 25 21 31 32 2c 63  |%!4,c%!8,c%!12,c|
000008d0  25 21 31 36 3a e1 0d 04  f6 04 0d 05 0a 45 dd a4  |%!16:........E..|
000008e0  67 28 61 25 29 3a 21 62  25 3d 61 25 3a c8 99 22  |g(a%):!b%=a%:.."|
000008f0  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
00000900  61 74 65 22 2c 2c 62 25  3a e7 28 62 25 21 33 32  |ate",,b%:.(b%!32|
00000910  80 31 3c 3c 31 36 29 3c  3e 30 3d b9 8b 3d a3 0d  |.1<<16)<>0=..=..|
00000920  05 1e 04 0d 05 32 28 dd  a4 68 28 68 25 2c 6a 25  |.....2(..h(h%,j%|
00000930  29 3a f2 75 28 a4 62 28  68 25 2c 6a 25 29 29 3a  |):.u(.b(h%,j%)):|
00000940  3d 24 a4 62 28 68 25 2c  6a 25 29 0d 05 5a 21 dd  |=$.b(h%,j%)..Z!.|
00000950  f2 61 28 68 25 2c 6a 25  2c 61 24 29 3a 24 a4 62  |.a(h%,j%,a$):$.b|
00000960  28 68 25 2c 6a 25 29 3d  61 24 3a e1 0d 05 6e 04  |(h%,j%)=a$:...n.|
00000970  0d 05 82 3e dd a4 62 28  68 25 2c 6a 25 29 3a 21  |...>..b(h%,j%):!|
00000980  6d 25 3d 68 25 3a 6d 25  21 34 3d 6a 25 3a c8 99  |m%=h%:m%!4=j%:..|
00000990  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
000009a0  74 65 22 2c 2c 6d 25 3a  3d 6d 25 21 32 38 0d 05  |te",,m%:=m%!28..|
000009b0  aa 2d dd f2 75 28 61 25  29 3a ea 6e 25 3a c8 95  |.-..u(a%):.n%:..|
000009c0  61 25 3f 6e 25 3e 33 31  3a 6e 25 2b 3d 31 3a ce  |a%?n%>31:n%+=1:.|
000009d0  3a 61 25 3f 6e 25 3d 31  33 3a e1 0d 05 b4 04 0d  |:a%?n%=13:......|
000009e0  05 c8 54 dd a4 69 28 63  24 29 3a f2 62 3a 76 25  |..T..i(c$):.b:v%|
000009f0  3d 30 3a 64 25 3d 30 3a  63 24 3d a4 64 28 63 24  |=0:d%=0:c$=.d(c$|
00000a00  29 3a f5 3a 64 25 2b 3d  31 3a e3 4d 25 3d 31 b8  |):.:d%+=1:.M%=1.|
00000a10  32 3a 69 24 3d a4 64 28  61 24 28 64 25 2c 4d 25  |2:i$=.d(a$(d%,M%|
00000a20  29 29 3a e7 a7 69 24 2c  63 24 29 3c 3e 30 76 25  |)):..i$,c$)<>0v%|
00000a30  3d 64 25 0d 05 e6 18 ed  3a fd 76 25 3e 30 84 64  |=d%.....:.v%>0.d|
00000a40  25 3d 6b 25 3a f2 62 3a  3d 76 25 0d 06 0e 97 dd  |%=k%:.b:=v%.....|
00000a50  f2 6d 3a 64 25 3d 7a 25  3a 6c 25 3d 64 25 3a e3  |.m:d%=z%:l%=d%:.|
00000a60  65 25 3d 31 b8 6b 25 3a  61 24 28 65 25 2c 31 29  |e%=1.k%:a$(e%,1)|
00000a70  3d a4 61 28 64 25 2c 64  25 29 3a 65 24 28 65 25  |=.a(d%,d%):e$(e%|
00000a80  29 3d a4 61 28 64 25 2c  64 25 29 3a 41 24 3d a4  |)=.a(d%,d%):A$=.|
00000a90  61 28 64 25 2c 64 25 29  3a 62 24 28 65 25 29 3d  |a(d%,d%):b$(e%)=|
00000aa0  a4 61 28 64 25 2c 64 25  29 3a 63 24 28 65 25 29  |.a(d%,d%):c$(e%)|
00000ab0  3d a4 61 28 64 25 2c 64  25 29 3a 64 24 28 65 25  |=.a(d%,d%):d$(e%|
00000ac0  29 3d a4 61 28 64 25 2c  64 25 29 3a 61 24 28 65  |)=.a(d%,d%):a$(e|
00000ad0  25 2c 32 29 3d a4 61 28  64 25 2c 64 25 29 3a ed  |%,2)=.a(d%,d%):.|
00000ae0  3a e1 0d 06 68 04 0d 06  7c 7a dd f2 63 28 65 25  |:...h...|z..c(e%|
00000af0  29 3a f2 61 28 67 25 2c  36 2c 61 24 28 65 25 2c  |):.a(g%,6,a$(e%,|
00000b00  31 29 29 3a f2 61 28 67  25 2c 37 2c 61 24 28 65  |1)):.a(g%,7,a$(e|
00000b10  25 2c 32 29 29 3a f2 61  28 67 25 2c 38 2c 65 24  |%,2)):.a(g%,8,e$|
00000b20  28 65 25 29 29 3a f2 61  28 67 25 2c 39 2c 62 24  |(e%)):.a(g%,9,b$|
00000b30  28 65 25 29 29 3a f2 61  28 67 25 2c 31 30 2c 63  |(e%)):.a(g%,10,c|
00000b40  24 28 65 25 29 29 3a f2  61 28 67 25 2c 31 31 2c  |$(e%)):.a(g%,11,|
00000b50  64 24 28 65 25 29 29 3a  f2 74 28 67 25 29 3a e1  |d$(e%)):.t(g%):.|
00000b60  0d 06 cc 04 0d 06 e0 5c  dd a4 61 28 64 25 2c f8  |.......\..a(d%,.|
00000b70  64 25 29 3a 6c 25 3d 64  25 3a f5 3a 6c 25 2b 3d  |d%):l%=d%:.:l%+=|
00000b80  31 3a fd 3f 6c 25 3d 34  34 84 3f 6c 25 3d 31 33  |1:.?l%=44.?l%=13|
00000b90  84 3f 6c 25 3d 31 30 3a  67 24 3d 22 22 3a e3 54  |.?l%=10:g$="":.T|
00000ba0  25 3d 64 25 b8 6c 25 2d  31 3a 67 24 2b 3d bd 3f  |%=d%.l%-1:g$+=.?|
00000bb0  54 25 3a ed 3a 64 25 3d  6c 25 2b 31 3a 3d 67 24  |T%:.:d%=l%+1:=g$|
00000bc0  0d 07 12 43 dd a4 64 28  41 24 29 3a 68 24 3d 22  |...C..d(A$):h$="|
00000bd0  22 3a e3 54 25 3d 31 b8  a9 28 41 24 29 3a 41 3d  |":.T%=1..(A$):A=|
00000be0  97 28 c1 41 24 2c 54 25  2c 31 29 29 3a e7 41 3e  |.(.A$,T%,1)):.A>|
00000bf0  33 31 80 41 3c 31 32 37  68 24 2b 3d bd 28 41 84  |31.A<127h$+=.(A.|
00000c00  33 32 29 0d 07 26 09 ed  3a 3d 68 24 0d 07 44 26  |32)..&..:=h$..D&|
00000c10  dd f2 62 3a e7 70 25 3d  b9 8c c8 99 22 48 6f 75  |..b:.p%=...."Hou|
00000c20  72 67 6c 61 73 73 5f 4f  66 66 22 3a 70 25 3d a3  |rglass_Off":p%=.|
00000c30  3a e1 0d 07 4e 1b c8 99  22 48 6f 75 72 67 6c 61  |:...N..."Hourgla|
00000c40  73 73 5f 4f 6e 22 3a 70  25 3d b9 3a e1 0d ff     |ss_On":p%=.:...|
00000c4f