'� >WimpLib - Wimp Library Functions
� by Mark Moxon
:
(;� �wimperror(block%,errno%,err$,task_name$,ok%,cancel%)
2� flag%,response%
<!block%=errno%
F$(block%+4)=err$+�(0)
Pflag%=ok%+(cancel%<<1)
Z>ș "Wimp_ReportError",block%,flag%,task_name$ � ,response%
d=response%
n:
x� �icon_bar(block%,name$)
�8=�create_icon(block%,-1,0,0,68,68,&3002,0,0,0,name$)
�:
�Z� �create_icon(block%,whandle%,x%,y%,width%,height%,flags%,icon1%,icon2%,icon3%,name$)
�
� handle%
�!block%  =whandle%
�block%!4 =x%
�block%!8 =y%
�block%!12=x%+width%
�block%!16=y%+height%
�block%!20=flags%
�� name$="" �
�block%!24=icon1%
�block%!28=icon2%

block%!32=icon3%

�

$(block%+24)=name$

"�

,*ș "Wimp_CreateIcon",,block% � handle%

6=handle%

@:

J0� �create_menu(menu%,� width%,� end%,title$)

Twidth%=�(title$)

^$menu%=title$

hmenu%?12=7

rmenu%?13=2

|menu%?14=7

�menu%?15=0

�menu%!16=(width%+1)*16

�menu%!20=44

�menu%!24=0

�end%=menu%+28

��

�:

�Q� �menu_item(menu%,� width%,� end%,text$,tick%,dot%,write%,mess%,last%,link%)

�B!end% =(tick%+(dot%<<1)+(write%<<2)+(mess%<<3)+(last%<<7))�255

�end%!4=link%

�end%!8=&07003021

�$(end%+12)=text$

�end%+=24
'� �(text$)>width% � width%=�(text$)
menu%!16=(width%+1)*16
�
&:
0)� �display_bar_menu(menu%,length%,x%)
:5ș "Wimp_CreateMenu",,menu%,x%-64,96+(length%*44)
D�
N:
X� �leaf(file$)
b� pos%,temp%
ltemp%=0
v�
�pos%=temp%+1
�temp%=�file$,".",pos%)
�
� temp%=0
�=�file$,pos%)
�:
�� �zero_string(point%)
�
� string$
�string$=""
�ȕ ?point%
� string$+=�?point%
� point%+=1
��
�=string$
:
,� �start_dragsave(block%,savebox%,ispr%)

� ox%,oy%
 !block%=savebox%
*$ș "Wimp_GetWindowState",,block%
4ox%=block%!4-block%!20
>oy%=block%!16-block%!24
Hblock%!4=ispr%
R"ș "Wimp_GetIconState",,block%
\!block%=savebox%:block%!4=5
fblock%!8=ox%+block%!8
pblock%!12=oy%+block%!12
zblock%!16=ox%+block%!16
�block%!20=oy%+block%!20
�block%!24=0:block%!28=0
�block%!32=&7FFFFFFF
�block%!36=&7FFFFFFF
�ș "Wimp_DragBox",,block%
��
�:
�@� �end_dragsave(block%,savebox%,ifname%,filetype%,filesize%)
�� file$
�%!block%=savebox%:block%!4=ifname%
�"ș "Wimp_GetIconState",,block%
�file$=$(block%!28)
�$ș "Wimp_GetPointerInfo",,block%
block%!20=block%!12
block%!24=block%!16
block%!28=block%!0
$block%!32=block%!4
.block%!36=filesize%
8block%!0=64:block%!12=0
B#block%!16=1:block%!40=filetype%
L$(block%+44)=�leaf(file$)
V7ș "Wimp_SendMessage",17,block%,block%!20,block%!24
`�
j:
t� �message_datasave(block%)
~� ok%,file$
�!file$=�zero_string(block%+44)
�"� block%!36>-1 � ok%=� � ok%=�
�block%!12=block%!8
�!block%=256:block%!16=3
�7ș "Wimp_SendMessage",18,block%,block%!20,block%!24
�� ok% � =file$ � =""
�

00000000  0d 00 0a 27 f4 20 3e 57  69 6d 70 4c 69 62 20 2d  |...'. >WimpLib -|
00000010  20 57 69 6d 70 20 4c 69  62 72 61 72 79 20 46 75  | Wimp Library Fu|
00000020  6e 63 74 69 6f 6e 73 0d  00 14 13 f4 20 62 79 20  |nctions..... by |
00000030  4d 61 72 6b 20 4d 6f 78  6f 6e 0d 00 1e 05 3a 0d  |Mark Moxon....:.|
00000040  00 28 3b dd 20 a4 77 69  6d 70 65 72 72 6f 72 28  |.(;. .wimperror(|
00000050  62 6c 6f 63 6b 25 2c 65  72 72 6e 6f 25 2c 65 72  |block%,errno%,er|
00000060  72 24 2c 74 61 73 6b 5f  6e 61 6d 65 24 2c 6f 6b  |r$,task_name$,ok|
00000070  25 2c 63 61 6e 63 65 6c  25 29 0d 00 32 15 ea 20  |%,cancel%)..2.. |
00000080  66 6c 61 67 25 2c 72 65  73 70 6f 6e 73 65 25 0d  |flag%,response%.|
00000090  00 3c 12 21 62 6c 6f 63  6b 25 3d 65 72 72 6e 6f  |.<.!block%=errno|
000000a0  25 0d 00 46 19 24 28 62  6c 6f 63 6b 25 2b 34 29  |%..F.$(block%+4)|
000000b0  3d 65 72 72 24 2b bd 28  30 29 0d 00 50 1a 66 6c  |=err$+.(0)..P.fl|
000000c0  61 67 25 3d 6f 6b 25 2b  28 63 61 6e 63 65 6c 25  |ag%=ok%+(cancel%|
000000d0  3c 3c 31 29 0d 00 5a 3e  c8 99 20 22 57 69 6d 70  |<<1)..Z>.. "Wimp|
000000e0  5f 52 65 70 6f 72 74 45  72 72 6f 72 22 2c 62 6c  |_ReportError",bl|
000000f0  6f 63 6b 25 2c 66 6c 61  67 25 2c 74 61 73 6b 5f  |ock%,flag%,task_|
00000100  6e 61 6d 65 24 20 b8 20  2c 72 65 73 70 6f 6e 73  |name$ . ,respons|
00000110  65 25 0d 00 64 0e 3d 72  65 73 70 6f 6e 73 65 25  |e%..d.=response%|
00000120  0d 00 6e 05 3a 0d 00 78  1d dd 20 a4 69 63 6f 6e  |..n.:..x.. .icon|
00000130  5f 62 61 72 28 62 6c 6f  63 6b 25 2c 6e 61 6d 65  |_bar(block%,name|
00000140  24 29 0d 00 82 38 3d a4  63 72 65 61 74 65 5f 69  |$)...8=.create_i|
00000150  63 6f 6e 28 62 6c 6f 63  6b 25 2c 2d 31 2c 30 2c  |con(block%,-1,0,|
00000160  30 2c 36 38 2c 36 38 2c  26 33 30 30 32 2c 30 2c  |0,68,68,&3002,0,|
00000170  30 2c 30 2c 6e 61 6d 65  24 29 0d 00 8c 05 3a 0d  |0,0,name$)....:.|
00000180  00 96 5a dd 20 a4 63 72  65 61 74 65 5f 69 63 6f  |..Z. .create_ico|
00000190  6e 28 62 6c 6f 63 6b 25  2c 77 68 61 6e 64 6c 65  |n(block%,whandle|
000001a0  25 2c 78 25 2c 79 25 2c  77 69 64 74 68 25 2c 68  |%,x%,y%,width%,h|
000001b0  65 69 67 68 74 25 2c 66  6c 61 67 73 25 2c 69 63  |eight%,flags%,ic|
000001c0  6f 6e 31 25 2c 69 63 6f  6e 32 25 2c 69 63 6f 6e  |on1%,icon2%,icon|
000001d0  33 25 2c 6e 61 6d 65 24  29 0d 00 a0 0d ea 20 68  |3%,name$)..... h|
000001e0  61 6e 64 6c 65 25 0d 00  aa 16 21 62 6c 6f 63 6b  |andle%....!block|
000001f0  25 20 20 3d 77 68 61 6e  64 6c 65 25 0d 00 b4 10  |%  =whandle%....|
00000200  62 6c 6f 63 6b 25 21 34  20 3d 78 25 0d 00 be 10  |block%!4 =x%....|
00000210  62 6c 6f 63 6b 25 21 38  20 3d 79 25 0d 00 c8 17  |block%!8 =y%....|
00000220  62 6c 6f 63 6b 25 21 31  32 3d 78 25 2b 77 69 64  |block%!12=x%+wid|
00000230  74 68 25 0d 00 d2 18 62  6c 6f 63 6b 25 21 31 36  |th%....block%!16|
00000240  3d 79 25 2b 68 65 69 67  68 74 25 0d 00 dc 14 62  |=y%+height%....b|
00000250  6c 6f 63 6b 25 21 32 30  3d 66 6c 61 67 73 25 0d  |lock%!20=flags%.|
00000260  00 e6 10 e7 20 6e 61 6d  65 24 3d 22 22 20 8c 0d  |.... name$="" ..|
00000270  00 f0 14 62 6c 6f 63 6b  25 21 32 34 3d 69 63 6f  |...block%!24=ico|
00000280  6e 31 25 0d 00 fa 14 62  6c 6f 63 6b 25 21 32 38  |n1%....block%!28|
00000290  3d 69 63 6f 6e 32 25 0d  01 04 14 62 6c 6f 63 6b  |=icon2%....block|
000002a0  25 21 33 32 3d 69 63 6f  6e 33 25 0d 01 0e 05 cc  |%!32=icon3%.....|
000002b0  0d 01 18 16 24 28 62 6c  6f 63 6b 25 2b 32 34 29  |....$(block%+24)|
000002c0  3d 6e 61 6d 65 24 0d 01  22 05 cd 0d 01 2c 2a c8  |=name$.."....,*.|
000002d0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 49 63  |. "Wimp_CreateIc|
000002e0  6f 6e 22 2c 2c 62 6c 6f  63 6b 25 20 b8 20 68 61  |on",,block% . ha|
000002f0  6e 64 6c 65 25 0d 01 36  0c 3d 68 61 6e 64 6c 65  |ndle%..6.=handle|
00000300  25 0d 01 40 05 3a 0d 01  4a 30 dd 20 f2 63 72 65  |%..@.:..J0. .cre|
00000310  61 74 65 5f 6d 65 6e 75  28 6d 65 6e 75 25 2c f8  |ate_menu(menu%,.|
00000320  20 77 69 64 74 68 25 2c  f8 20 65 6e 64 25 2c 74  | width%,. end%,t|
00000330  69 74 6c 65 24 29 0d 01  54 14 77 69 64 74 68 25  |itle$)..T.width%|
00000340  3d a9 28 74 69 74 6c 65  24 29 0d 01 5e 11 24 6d  |=.(title$)..^.$m|
00000350  65 6e 75 25 3d 74 69 74  6c 65 24 0d 01 68 0e 6d  |enu%=title$..h.m|
00000360  65 6e 75 25 3f 31 32 3d  37 0d 01 72 0e 6d 65 6e  |enu%?12=7..r.men|
00000370  75 25 3f 31 33 3d 32 0d  01 7c 0e 6d 65 6e 75 25  |u%?13=2..|.menu%|
00000380  3f 31 34 3d 37 0d 01 86  0e 6d 65 6e 75 25 3f 31  |?14=7....menu%?1|
00000390  35 3d 30 0d 01 90 1a 6d  65 6e 75 25 21 31 36 3d  |5=0....menu%!16=|
000003a0  28 77 69 64 74 68 25 2b  31 29 2a 31 36 0d 01 9a  |(width%+1)*16...|
000003b0  0f 6d 65 6e 75 25 21 32  30 3d 34 34 0d 01 a4 0e  |.menu%!20=44....|
000003c0  6d 65 6e 75 25 21 32 34  3d 30 0d 01 ae 11 65 6e  |menu%!24=0....en|
000003d0  64 25 3d 6d 65 6e 75 25  2b 32 38 0d 01 b8 05 e1  |d%=menu%+28.....|
000003e0  0d 01 c2 05 3a 0d 01 cc  51 dd 20 f2 6d 65 6e 75  |....:...Q. .menu|
000003f0  5f 69 74 65 6d 28 6d 65  6e 75 25 2c f8 20 77 69  |_item(menu%,. wi|
00000400  64 74 68 25 2c f8 20 65  6e 64 25 2c 74 65 78 74  |dth%,. end%,text|
00000410  24 2c 74 69 63 6b 25 2c  64 6f 74 25 2c 77 72 69  |$,tick%,dot%,wri|
00000420  74 65 25 2c 6d 65 73 73  25 2c 6c 61 73 74 25 2c  |te%,mess%,last%,|
00000430  6c 69 6e 6b 25 29 0d 01  d6 42 21 65 6e 64 25 20  |link%)...B!end% |
00000440  3d 28 74 69 63 6b 25 2b  28 64 6f 74 25 3c 3c 31  |=(tick%+(dot%<<1|
00000450  29 2b 28 77 72 69 74 65  25 3c 3c 32 29 2b 28 6d  |)+(write%<<2)+(m|
00000460  65 73 73 25 3c 3c 33 29  2b 28 6c 61 73 74 25 3c  |ess%<<3)+(last%<|
00000470  3c 37 29 29 80 32 35 35  0d 01 e0 10 65 6e 64 25  |<7)).255....end%|
00000480  21 34 3d 6c 69 6e 6b 25  0d 01 ea 14 65 6e 64 25  |!4=link%....end%|
00000490  21 38 3d 26 30 37 30 30  33 30 32 31 0d 01 f4 14  |!8=&07003021....|
000004a0  24 28 65 6e 64 25 2b 31  32 29 3d 74 65 78 74 24  |$(end%+12)=text$|
000004b0  0d 01 fe 0c 65 6e 64 25  2b 3d 32 34 0d 02 08 27  |....end%+=24...'|
000004c0  e7 20 a9 28 74 65 78 74  24 29 3e 77 69 64 74 68  |. .(text$)>width|
000004d0  25 20 8c 20 77 69 64 74  68 25 3d a9 28 74 65 78  |% . width%=.(tex|
000004e0  74 24 29 0d 02 12 1a 6d  65 6e 75 25 21 31 36 3d  |t$)....menu%!16=|
000004f0  28 77 69 64 74 68 25 2b  31 29 2a 31 36 0d 02 1c  |(width%+1)*16...|
00000500  05 e1 0d 02 26 05 3a 0d  02 30 29 dd 20 f2 64 69  |....&.:..0). .di|
00000510  73 70 6c 61 79 5f 62 61  72 5f 6d 65 6e 75 28 6d  |splay_bar_menu(m|
00000520  65 6e 75 25 2c 6c 65 6e  67 74 68 25 2c 78 25 29  |enu%,length%,x%)|
00000530  0d 02 3a 35 c8 99 20 22  57 69 6d 70 5f 43 72 65  |..:5.. "Wimp_Cre|
00000540  61 74 65 4d 65 6e 75 22  2c 2c 6d 65 6e 75 25 2c  |ateMenu",,menu%,|
00000550  78 25 2d 36 34 2c 39 36  2b 28 6c 65 6e 67 74 68  |x%-64,96+(length|
00000560  25 2a 34 34 29 0d 02 44  05 e1 0d 02 4e 05 3a 0d  |%*44)..D....N.:.|
00000570  02 58 12 dd 20 a4 6c 65  61 66 28 66 69 6c 65 24  |.X.. .leaf(file$|
00000580  29 0d 02 62 10 ea 20 70  6f 73 25 2c 74 65 6d 70  |)..b.. pos%,temp|
00000590  25 0d 02 6c 0b 74 65 6d  70 25 3d 30 0d 02 76 05  |%..l.temp%=0..v.|
000005a0  f5 0d 02 80 10 70 6f 73  25 3d 74 65 6d 70 25 2b  |.....pos%=temp%+|
000005b0  31 0d 02 8a 1a 74 65 6d  70 25 3d a7 66 69 6c 65  |1....temp%=.file|
000005c0  24 2c 22 2e 22 2c 70 6f  73 25 29 0d 02 94 0d fd  |$,".",pos%).....|
000005d0  20 74 65 6d 70 25 3d 30  0d 02 9e 11 3d c1 66 69  | temp%=0....=.fi|
000005e0  6c 65 24 2c 70 6f 73 25  29 0d 02 a8 05 3a 0d 02  |le$,pos%)....:..|
000005f0  b2 1a dd 20 a4 7a 65 72  6f 5f 73 74 72 69 6e 67  |... .zero_string|
00000600  28 70 6f 69 6e 74 25 29  0d 02 bc 0d ea 20 73 74  |(point%)..... st|
00000610  72 69 6e 67 24 0d 02 c6  0e 73 74 72 69 6e 67 24  |ring$....string$|
00000620  3d 22 22 0d 02 d0 0e c8  95 20 3f 70 6f 69 6e 74  |=""...... ?point|
00000630  25 0d 02 da 16 20 73 74  72 69 6e 67 24 2b 3d bd  |%.... string$+=.|
00000640  3f 70 6f 69 6e 74 25 0d  02 e4 0e 20 70 6f 69 6e  |?point%.... poin|
00000650  74 25 2b 3d 31 0d 02 ee  05 ce 0d 02 f8 0c 3d 73  |t%+=1.........=s|
00000660  74 72 69 6e 67 24 0d 03  02 05 3a 0d 03 0c 2c dd  |tring$....:...,.|
00000670  20 f2 73 74 61 72 74 5f  64 72 61 67 73 61 76 65  | .start_dragsave|
00000680  28 62 6c 6f 63 6b 25 2c  73 61 76 65 62 6f 78 25  |(block%,savebox%|
00000690  2c 69 73 70 72 25 29 0d  03 16 0d ea 20 6f 78 25  |,ispr%)..... ox%|
000006a0  2c 6f 79 25 0d 03 20 14  21 62 6c 6f 63 6b 25 3d  |,oy%.. .!block%=|
000006b0  73 61 76 65 62 6f 78 25  0d 03 2a 24 c8 99 20 22  |savebox%..*$.. "|
000006c0  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
000006d0  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 0d 03 34 1a  |ate",,block%..4.|
000006e0  6f 78 25 3d 62 6c 6f 63  6b 25 21 34 2d 62 6c 6f  |ox%=block%!4-blo|
000006f0  63 6b 25 21 32 30 0d 03  3e 1b 6f 79 25 3d 62 6c  |ck%!20..>.oy%=bl|
00000700  6f 63 6b 25 21 31 36 2d  62 6c 6f 63 6b 25 21 32  |ock%!16-block%!2|
00000710  34 0d 03 48 12 62 6c 6f  63 6b 25 21 34 3d 69 73  |4..H.block%!4=is|
00000720  70 72 25 0d 03 52 22 c8  99 20 22 57 69 6d 70 5f  |pr%..R".. "Wimp_|
00000730  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 62  |GetIconState",,b|
00000740  6c 6f 63 6b 25 0d 03 5c  1f 21 62 6c 6f 63 6b 25  |lock%..\.!block%|
00000750  3d 73 61 76 65 62 6f 78  25 3a 62 6c 6f 63 6b 25  |=savebox%:block%|
00000760  21 34 3d 35 0d 03 66 19  62 6c 6f 63 6b 25 21 38  |!4=5..f.block%!8|
00000770  3d 6f 78 25 2b 62 6c 6f  63 6b 25 21 38 0d 03 70  |=ox%+block%!8..p|
00000780  1b 62 6c 6f 63 6b 25 21  31 32 3d 6f 79 25 2b 62  |.block%!12=oy%+b|
00000790  6c 6f 63 6b 25 21 31 32  0d 03 7a 1b 62 6c 6f 63  |lock%!12..z.bloc|
000007a0  6b 25 21 31 36 3d 6f 78  25 2b 62 6c 6f 63 6b 25  |k%!16=ox%+block%|
000007b0  21 31 36 0d 03 84 1b 62  6c 6f 63 6b 25 21 32 30  |!16....block%!20|
000007c0  3d 6f 79 25 2b 62 6c 6f  63 6b 25 21 32 30 0d 03  |=oy%+block%!20..|
000007d0  8e 1b 62 6c 6f 63 6b 25  21 32 34 3d 30 3a 62 6c  |..block%!24=0:bl|
000007e0  6f 63 6b 25 21 32 38 3d  30 0d 03 98 17 62 6c 6f  |ock%!28=0....blo|
000007f0  63 6b 25 21 33 32 3d 26  37 46 46 46 46 46 46 46  |ck%!32=&7FFFFFFF|
00000800  0d 03 a2 17 62 6c 6f 63  6b 25 21 33 36 3d 26 37  |....block%!36=&7|
00000810  46 46 46 46 46 46 46 0d  03 ac 1d c8 99 20 22 57  |FFFFFFF...... "W|
00000820  69 6d 70 5f 44 72 61 67  42 6f 78 22 2c 2c 62 6c  |imp_DragBox",,bl|
00000830  6f 63 6b 25 0d 03 b6 05  e1 0d 03 c0 05 3a 0d 03  |ock%.........:..|
00000840  ca 40 dd 20 f2 65 6e 64  5f 64 72 61 67 73 61 76  |.@. .end_dragsav|
00000850  65 28 62 6c 6f 63 6b 25  2c 73 61 76 65 62 6f 78  |e(block%,savebox|
00000860  25 2c 69 66 6e 61 6d 65  25 2c 66 69 6c 65 74 79  |%,ifname%,filety|
00000870  70 65 25 2c 66 69 6c 65  73 69 7a 65 25 29 0d 03  |pe%,filesize%)..|
00000880  d4 0b ea 20 66 69 6c 65  24 0d 03 de 25 21 62 6c  |... file$...%!bl|
00000890  6f 63 6b 25 3d 73 61 76  65 62 6f 78 25 3a 62 6c  |ock%=savebox%:bl|
000008a0  6f 63 6b 25 21 34 3d 69  66 6e 61 6d 65 25 0d 03  |ock%!4=ifname%..|
000008b0  e8 22 c8 99 20 22 57 69  6d 70 5f 47 65 74 49 63  |.".. "Wimp_GetIc|
000008c0  6f 6e 53 74 61 74 65 22  2c 2c 62 6c 6f 63 6b 25  |onState",,block%|
000008d0  0d 03 f2 16 66 69 6c 65  24 3d 24 28 62 6c 6f 63  |....file$=$(bloc|
000008e0  6b 25 21 32 38 29 0d 03  fc 24 c8 99 20 22 57 69  |k%!28)...$.. "Wi|
000008f0  6d 70 5f 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |mp_GetPointerInf|
00000900  6f 22 2c 2c 62 6c 6f 63  6b 25 0d 04 06 17 62 6c  |o",,block%....bl|
00000910  6f 63 6b 25 21 32 30 3d  62 6c 6f 63 6b 25 21 31  |ock%!20=block%!1|
00000920  32 0d 04 10 17 62 6c 6f  63 6b 25 21 32 34 3d 62  |2....block%!24=b|
00000930  6c 6f 63 6b 25 21 31 36  0d 04 1a 16 62 6c 6f 63  |lock%!16....bloc|
00000940  6b 25 21 32 38 3d 62 6c  6f 63 6b 25 21 30 0d 04  |k%!28=block%!0..|
00000950  24 16 62 6c 6f 63 6b 25  21 33 32 3d 62 6c 6f 63  |$.block%!32=bloc|
00000960  6b 25 21 34 0d 04 2e 17  62 6c 6f 63 6b 25 21 33  |k%!4....block%!3|
00000970  36 3d 66 69 6c 65 73 69  7a 65 25 0d 04 38 1b 62  |6=filesize%..8.b|
00000980  6c 6f 63 6b 25 21 30 3d  36 34 3a 62 6c 6f 63 6b  |lock%!0=64:block|
00000990  25 21 31 32 3d 30 0d 04  42 23 62 6c 6f 63 6b 25  |%!12=0..B#block%|
000009a0  21 31 36 3d 31 3a 62 6c  6f 63 6b 25 21 34 30 3d  |!16=1:block%!40=|
000009b0  66 69 6c 65 74 79 70 65  25 0d 04 4c 1d 24 28 62  |filetype%..L.$(b|
000009c0  6c 6f 63 6b 25 2b 34 34  29 3d a4 6c 65 61 66 28  |lock%+44)=.leaf(|
000009d0  66 69 6c 65 24 29 0d 04  56 37 c8 99 20 22 57 69  |file$)..V7.. "Wi|
000009e0  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
000009f0  31 37 2c 62 6c 6f 63 6b  25 2c 62 6c 6f 63 6b 25  |17,block%,block%|
00000a00  21 32 30 2c 62 6c 6f 63  6b 25 21 32 34 0d 04 60  |!20,block%!24..`|
00000a10  05 e1 0d 04 6a 05 3a 0d  04 74 1f dd 20 a4 6d 65  |....j.:..t.. .me|
00000a20  73 73 61 67 65 5f 64 61  74 61 73 61 76 65 28 62  |ssage_datasave(b|
00000a30  6c 6f 63 6b 25 29 0d 04  7e 0f ea 20 6f 6b 25 2c  |lock%)..~.. ok%,|
00000a40  66 69 6c 65 24 0d 04 88  21 66 69 6c 65 24 3d a4  |file$...!file$=.|
00000a50  7a 65 72 6f 5f 73 74 72  69 6e 67 28 62 6c 6f 63  |zero_string(bloc|
00000a60  6b 25 2b 34 34 29 0d 04  92 22 e7 20 62 6c 6f 63  |k%+44)...". bloc|
00000a70  6b 25 21 33 36 3e 2d 31  20 8c 20 6f 6b 25 3d b9  |k%!36>-1 . ok%=.|
00000a80  20 8b 20 6f 6b 25 3d a3  0d 04 9c 16 62 6c 6f 63  | . ok%=.....bloc|
00000a90  6b 25 21 31 32 3d 62 6c  6f 63 6b 25 21 38 0d 04  |k%!12=block%!8..|
00000aa0  a6 1b 21 62 6c 6f 63 6b  25 3d 32 35 36 3a 62 6c  |..!block%=256:bl|
00000ab0  6f 63 6b 25 21 31 36 3d  33 0d 04 b0 37 c8 99 20  |ock%!16=3...7.. |
00000ac0  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
00000ad0  65 22 2c 31 38 2c 62 6c  6f 63 6b 25 2c 62 6c 6f  |e",18,block%,blo|
00000ae0  63 6b 25 21 32 30 2c 62  6c 6f 63 6b 25 21 32 34  |ck%!20,block%!24|
00000af0  0d 04 ba 18 e7 20 6f 6b  25 20 8c 20 3d 66 69 6c  |..... ok% . =fil|
00000b00  65 24 20 8b 20 3d 22 22  0d ff                    |e$ . =""..|
00000b0a