�"ERROR "+�$+�(�):�
+�b% 1597,i% 1205,name% 12,m% 76,bu% 128
q%=�:sel%=�
(2FI%=�"<SwiConv$Dir>.Sprites":sz%=�#FI%+4:�#FI%
2�sp% sz%
<!sp%=sz%:sp%!8=16
F4ș"OS_SpriteOp",&10A,sp%,"<SwiConv$Dir>.Sprites"
P=ș"Wimp_Initialise",200,&4B534154,"SWI converter" � ,tsk%
Z4ș"Wimp_OpenTemplate",,"<SwiConv$Dir>.Templates"
dq$name%="Info":ș"Wimp_LoadTemplate",,b%,i%,i%+1205,-1,name%,0 �,,ni%,,,,ne%:ș"Wimp_CreateWindow",,b% � info%
n}$name%="Window":ș"Wimp_LoadTemplate",,b%,ni%,i%+1205,-1,name%,ne% �,,ni%,,,,ne%:b%!64=sp%:ș"Wimp_CreateWindow",,b% � w%
x�$name%="Convert":ș"Wimp_LoadTemplate",,b%,ni%,i%+1205,-1,name%,ne% �,,ni%,,,,ne%:b%!64=sp%:b%!176=1:b%!304=1:ș"Wimp_CreateWindow",,b% � con%
�ș"Wimp_CloseTemplate"
�
�ibar:�cm
�*�tj(w%,1,""):�tj(w%,3,""):�tj(w%,4,"")
�	��er
�	ȕ�q%
�ș"Wimp_Poll",&1831,b%�r%
�	Ȏr%�
��2:ș"Wimp_OpenWindow",,b%
��3:ș"Wimp_CloseWindow",,b%
��6:�cl(b%!12,b%!16,b%!8)
��7:�drop
��8:�key(!b%,b%!4,b%!24)
�
�9:�ms

�17,18:�rm

�

�

"%ș"Wimp_CloseDown",tsk%,&4B534154

,�

6��rm

@
Ȏb%!16 �

J�0:q%=�

T�2:�readpath

^�3:�con

h�&625D1:Ȏb%!20 �

r�4:q%=�

|�

��

��

���er:�report(�$):�

�q��report(rs$):!b%=0:$(b%+4)=rs$+�(0):ș"Wimp_ReportError",b%,1,"SWI converter":�desel(w%,5):�desel(con%,20):�

���caret(win%,icon%):�LA%

�LLA%=�(�read(win%,icon%)):ș"Wimp_SetCaretPosition",win%,icon%,,,-1,LA%:�

�Nݤread(win%,icon%):!b%=win%:b%!4=icon%:ș"Wimp_GetIconState",,b%:=$(b%!28)

̒��tj(win%,icon%,TX$):!b%=win%:b%!4=icon%:ș"Wimp_GetIconState",,b%:$(b%!28)=TX$:!b%=win%:b%!4=icon%:b%!8=0:b%!12=0:ș"Wimp_SetIconState",,b%:�

�\��sel(win%,icon%):!b%=win%:b%!4=icon%:b%!8=1<<21:b%!12=1<<21:ș"Wimp_SetIconState",,b%:�

�Z��desel(win%,icon%):!b%=win%:b%!4=icon%:b%!8=0:b%!12=1<<21:ș"Wimp_SetIconState",,b%:�

���cm

��flg%,smp%,mif%,md$,ptr%

�8$m%="SwiConv":m%!12=&70207:m%!16=80:m%!20=44:m%!24=0
(�+1:ptr%=m%+28:�:�flg%,smp%,mif%,md$
5!ptr%=flg%:ptr%!4=smp%:ptr%!8=mif%:$(ptr%+12)=md$
�0,info%,&7000021,Info
&�&80,-1,&7000021,Quit
0ptr%+=24
:�flg% � 128
D�
N��cl(win%,icon%,but%)
XȎwin%�
b�w%
l
�but%=2 �
v'ș"Wimp_CreateMenu",,m%,!b%-64,b%!4
��
�
Ȏicon% �
�6�5:ș"Wimp_GetCaretPosition",,b%:�!b%=w%:�do(b%!4)
��6,7:�arrow(icon%,but%)
��
��
�	�con%
�Ȏbut% �
�*�2:ș"Wimp_CreateMenu",,m%,!b%-64,b%!4
�
�
Ȏicon% �
��6:�but%�64:�drag
�)�19:!b%=con%:ș"Wimp_CloseWindow",,b%
9�20:�docon:�done%=�:!b%=con%:ș"Wimp_CloseWindow",,b%
�
�
 ?�-2:�but%=2:ș"Wimp_CreateMenu",,m%,!b%-64,184:��openwindow
*�
4�
>��ms
Hms%=!b%
Rș"Wimp_GetPointerInfo",,b%
\
but%=b%!8
f
Ȏms%�
p�1:q%=�
z�
�'�but%=1:ș"Wimp_CreateMenu",,m%,0,0
��
���key(win%,icon%,key%)
�f�win%=con%�key%=13:�sel(con%,20):�docon:�desel(con%,20):�done%=�:!b%=con%:ș"Wimp_CloseWindow",,b%
�(�win%<>w%:ș"Wimp_ProcessKey",key%:�
�Ȏkey%�
��13:sel%=�:�do(icon%)
��&18E:�icon%=1:�caret(w%,3)
��icon%=3:�caret(w%,4)
��icon%=4:�caret(w%,1)
��&18F:�icon%=1:�caret(w%,4)
��icon%=3:�caret(w%,1)
��icon%=4:�caret(w%,3)
:ș"Wimp_ProcessKey",key%
�
�
$��do(icon%):�sw%,sn%
.�sel%:�sel(w%,5)
8Ȏicon%�
B/�1:sn%=�(�read(w%,1)):�tj(w%,3,"&"+�~(sn%))
LT�3:�read(w%,3),1)<>"&"��(�read(w%,3))<7:�tj(w%,3,"&"+�read(w%,3)):�caret(w%,3)
V'sn%=�(�read(w%,3)):�tj(w%,1,�(sn%))
`S�4:ș"OS_SWINumberFromString",,si% � sw%:�tj(w%,1,�(sw%)):�tj(w%,3,"&"+�~(sw%))
j�
ti�icon%=1�icon%=3:sn%=�(�read(w%,1)):ș"OS_SWINumberToString",sn%,bu%,127:$bu%=�sg(bu%):�tj(w%,4,$bu%)
~�sel%:�desel(w%,5):sel%=�
��
�4ݤsg(pr%):�a$:ȕ?pr%<>0:a$+=�(?pr%):pr%+=1:�:=a$
���openwf(win%,x%,y%)
��xmin%,ymin%,xmax%,ymax%
��!b%=win%:ș"Wimp_GetWindowInfo",,b%:xmin%=b%!4:ymin%=b%!8:xmax%=b%!12:ymax%=b%!16:ș"Wimp_GetWindowState",,b%:b%!4=x%:b%!8=y%:b%!12=x%+xmax%-xmin%:b%!16=y%+ymax%-ymin%:b%!28=-1:ș"Wimp_OpenWindow",,b%
��
�ݤleaf(st$)
��LA%
�-�st$="":�report("Incorrect leafname"):=""
�1LA%=�(st$):�:LA%=LA%-1:��st$,LA%,1)="."�LA%=0
�=�st$,�(st$)-LA%)
�Dݤseld(win%,icon%):!b%=win%:b%!4=icon%:ș"Wimp_GetIconState",,b%
�(b%!24)�(1<<21):=�:�=�

��con:�LA%,ty%
 ty%=b%!40:source$=�sg(b%+44)
>ș"XOS_ReadVarVal","Wimp$ScrapDir",b%,256,0,3 � ,,len%;fg%
(W�fg%�1:�report("A scrap directory must be set before a program can be processed"):�
2�ty%<>&FFB:�
<2�tj(con%,3,source$):�tj(con%,7,�leaf(source$))
F`�sel(con%,10):�sel(con%,17):�desel(con%,16):�desel(con%,18):�LA%=11�13:�desel(con%,LA%):�LA%
Pr!b%=con%:ș"Wimp_GetWindowState",,b%:�(b%!32)�(1<<16):�openwf(con%,352,224):�b%!28=-1:ș"Wimp_OpenWindow",,b%
Z�
d��drag:�ox%,oy%
n�!b%=con%:ș"Wimp_GetWindowState",,b%:ox%=b%!4-b%!20:oy%=b%!16-b%!24:b%!4=6:ș"Wimp_GetIconState",,b%:b%!4=5:b%!8=ox%+b%!8+4:b%!12=oy%+b%!12:b%!16=ox%+b%!16-6:b%!20=oy%+b%!20+4:b%!24=0:b%!28=0:b%!32=&7FFFFFFF:b%!36=&7FFFFFFF:ș"Wimp_DragBox",,b%
x�
�,��drop:�leaf$:leaf$=�leaf(�read(con%,7))
��ș"Wimp_GetPointerInfo",,b%:b%!20=b%!12:b%!24=b%!16:b%!28=!b%:b%!32=b%!4:b%!36=0:!b%=256:b%!12=0:b%!16=1:b%!40=&FFB:$(b%+44)=leaf$:ș"Wimp_SendMessage",18,b%,b%!20,b%!24
��
�'��readpath:�tj(con%,7,�sg(b%+44)):�
���docon:�dest$,it%,ot%,LA%
�dest$=�read(con%,7)
�l�dest$,"."):��report("To set the destination pathname, drag the icon to a directory display"):done%=�:�
�)�LA%=10�13:�seld(con%,LA%):it%=LA%-9
��LA%
�*�LA%=16�18:�seld(con%,LA%):ot%=LA%-15
��LA%
�%�"Set SwiConv$InputFile "+source$
�$�"Set SwiConv$OutputFile "+dest$
$�"Set SwiConv$InputType "+�(it%)
%�"Set SwiConv$OutputType "+�(ot%)
(�"Filer_Run <SwiConv$Dir>.ConvertEx"
"done%=�
,�
6
��ibar
@J!b%=-1:b%!4=0:b%!8=0:b%!12=70:b%!16=68:b%!20=&3002:$(b%+24)="!swiconv"
J"ș"Wimp_CreateIcon",,b% � ibh%
T�
^T��openwindow:!b%=w%:ș"Wimp_GetWindowState",,b%:b%!28=-1:ș"Wimp_OpenWindow",,b%
hT�(b%!32)�(1<<16):�caret(w%,1):!b%=w%:b%!4=4:ș"Wimp_GetIconState",,b%:si%=b%!28
r�
|��arrow(icon%,but%):�v%
�icon%=(icon%*2)-13
��but%=1:but%=-1:�but%=1
�v%=�(�read(w%,1))
�$v%+=(icon%*but%):�tj(w%,1,�(v%))
�@�do(1):ș"Wimp_GetCaretPosition",,b%:�!b%=w%:�caret(w%,b%!4)
��
�

00000000  0d 00 0a 19 ee 85 ff 22  45 52 52 4f 52 20 22 2b  |......."ERROR "+|
00000010  f6 24 2b c3 28 9e 29 3a  e0 0d 00 14 2b de 62 25  |.$+.(.):....+.b%|
00000020  20 31 35 39 37 2c 69 25  20 31 32 30 35 2c 6e 61  | 1597,i% 1205,na|
00000030  6d 65 25 20 31 32 2c 6d  25 20 37 36 2c 62 75 25  |me% 12,m% 76,bu%|
00000040  20 31 32 38 0d 00 1e 0f  71 25 3d a3 3a 73 65 6c  | 128....q%=.:sel|
00000050  25 3d a3 0d 00 28 32 46  49 25 3d 8e 22 3c 53 77  |%=...(2FI%=."<Sw|
00000060  69 43 6f 6e 76 24 44 69  72 3e 2e 53 70 72 69 74  |iConv$Dir>.Sprit|
00000070  65 73 22 3a 73 7a 25 3d  a2 23 46 49 25 2b 34 3a  |es":sz%=.#FI%+4:|
00000080  d9 23 46 49 25 0d 00 32  0c de 73 70 25 20 73 7a  |.#FI%..2..sp% sz|
00000090  25 0d 00 3c 15 21 73 70  25 3d 73 7a 25 3a 73 70  |%..<.!sp%=sz%:sp|
000000a0  25 21 38 3d 31 36 0d 00  46 34 c8 99 22 4f 53 5f  |%!8=16..F4.."OS_|
000000b0  53 70 72 69 74 65 4f 70  22 2c 26 31 30 41 2c 73  |SpriteOp",&10A,s|
000000c0  70 25 2c 22 3c 53 77 69  43 6f 6e 76 24 44 69 72  |p%,"<SwiConv$Dir|
000000d0  3e 2e 53 70 72 69 74 65  73 22 0d 00 50 3d c8 99  |>.Sprites"..P=..|
000000e0  22 57 69 6d 70 5f 49 6e  69 74 69 61 6c 69 73 65  |"Wimp_Initialise|
000000f0  22 2c 32 30 30 2c 26 34  42 35 33 34 31 35 34 2c  |",200,&4B534154,|
00000100  22 53 57 49 20 63 6f 6e  76 65 72 74 65 72 22 20  |"SWI converter" |
00000110  b8 20 2c 74 73 6b 25 0d  00 5a 34 c8 99 22 57 69  |. ,tsk%..Z4.."Wi|
00000120  6d 70 5f 4f 70 65 6e 54  65 6d 70 6c 61 74 65 22  |mp_OpenTemplate"|
00000130  2c 2c 22 3c 53 77 69 43  6f 6e 76 24 44 69 72 3e  |,,"<SwiConv$Dir>|
00000140  2e 54 65 6d 70 6c 61 74  65 73 22 0d 00 64 71 24  |.Templates"..dq$|
00000150  6e 61 6d 65 25 3d 22 49  6e 66 6f 22 3a c8 99 22  |name%="Info":.."|
00000160  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
00000170  65 22 2c 2c 62 25 2c 69  25 2c 69 25 2b 31 32 30  |e",,b%,i%,i%+120|
00000180  35 2c 2d 31 2c 6e 61 6d  65 25 2c 30 20 b8 2c 2c  |5,-1,name%,0 .,,|
00000190  6e 69 25 2c 2c 2c 2c 6e  65 25 3a c8 99 22 57 69  |ni%,,,,ne%:.."Wi|
000001a0  6d 70 5f 43 72 65 61 74  65 57 69 6e 64 6f 77 22  |mp_CreateWindow"|
000001b0  2c 2c 62 25 20 b8 20 69  6e 66 6f 25 0d 00 6e 7d  |,,b% . info%..n}|
000001c0  24 6e 61 6d 65 25 3d 22  57 69 6e 64 6f 77 22 3a  |$name%="Window":|
000001d0  c8 99 22 57 69 6d 70 5f  4c 6f 61 64 54 65 6d 70  |.."Wimp_LoadTemp|
000001e0  6c 61 74 65 22 2c 2c 62  25 2c 6e 69 25 2c 69 25  |late",,b%,ni%,i%|
000001f0  2b 31 32 30 35 2c 2d 31  2c 6e 61 6d 65 25 2c 6e  |+1205,-1,name%,n|
00000200  65 25 20 b8 2c 2c 6e 69  25 2c 2c 2c 2c 6e 65 25  |e% .,,ni%,,,,ne%|
00000210  3a 62 25 21 36 34 3d 73  70 25 3a c8 99 22 57 69  |:b%!64=sp%:.."Wi|
00000220  6d 70 5f 43 72 65 61 74  65 57 69 6e 64 6f 77 22  |mp_CreateWindow"|
00000230  2c 2c 62 25 20 b8 20 77  25 0d 00 78 92 24 6e 61  |,,b% . w%..x.$na|
00000240  6d 65 25 3d 22 43 6f 6e  76 65 72 74 22 3a c8 99  |me%="Convert":..|
00000250  22 57 69 6d 70 5f 4c 6f  61 64 54 65 6d 70 6c 61  |"Wimp_LoadTempla|
00000260  74 65 22 2c 2c 62 25 2c  6e 69 25 2c 69 25 2b 31  |te",,b%,ni%,i%+1|
00000270  32 30 35 2c 2d 31 2c 6e  61 6d 65 25 2c 6e 65 25  |205,-1,name%,ne%|
00000280  20 b8 2c 2c 6e 69 25 2c  2c 2c 2c 6e 65 25 3a 62  | .,,ni%,,,,ne%:b|
00000290  25 21 36 34 3d 73 70 25  3a 62 25 21 31 37 36 3d  |%!64=sp%:b%!176=|
000002a0  31 3a 62 25 21 33 30 34  3d 31 3a c8 99 22 57 69  |1:b%!304=1:.."Wi|
000002b0  6d 70 5f 43 72 65 61 74  65 57 69 6e 64 6f 77 22  |mp_CreateWindow"|
000002c0  2c 2c 62 25 20 b8 20 63  6f 6e 25 0d 00 82 1a c8  |,,b% . con%.....|
000002d0  99 22 57 69 6d 70 5f 43  6c 6f 73 65 54 65 6d 70  |."Wimp_CloseTemp|
000002e0  6c 61 74 65 22 0d 00 8c  0d f2 69 62 61 72 3a f2  |late".....ibar:.|
000002f0  63 6d 0d 00 96 2a f2 74  6a 28 77 25 2c 31 2c 22  |cm...*.tj(w%,1,"|
00000300  22 29 3a f2 74 6a 28 77  25 2c 33 2c 22 22 29 3a  |"):.tj(w%,3,""):|
00000310  f2 74 6a 28 77 25 2c 34  2c 22 22 29 0d 00 a0 09  |.tj(w%,4,"")....|
00000320  ee 85 f2 65 72 0d 00 aa  09 c8 95 ac 71 25 0d 00  |...er.......q%..|
00000330  b4 1d c8 99 22 57 69 6d  70 5f 50 6f 6c 6c 22 2c  |...."Wimp_Poll",|
00000340  26 31 38 33 31 2c 62 25  b8 72 25 0d 00 be 09 c8  |&1831,b%.r%.....|
00000350  8e 72 25 ca 0d 00 c8 1e  c9 32 3a c8 99 22 57 69  |.r%......2:.."Wi|
00000360  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
00000370  62 25 0d 00 d2 1f c9 33  3a c8 99 22 57 69 6d 70  |b%.....3:.."Wimp|
00000380  5f 43 6c 6f 73 65 57 69  6e 64 6f 77 22 2c 2c 62  |_CloseWindow",,b|
00000390  25 0d 00 dc 1c c9 36 3a  f2 63 6c 28 62 25 21 31  |%.....6:.cl(b%!1|
000003a0  32 2c 62 25 21 31 36 2c  62 25 21 38 29 0d 00 e6  |2,b%!16,b%!8)...|
000003b0  0c c9 37 3a f2 64 72 6f  70 0d 00 f0 1b c9 38 3a  |..7:.drop.....8:|
000003c0  f2 6b 65 79 28 21 62 25  2c 62 25 21 34 2c 62 25  |.key(!b%,b%!4,b%|
000003d0  21 32 34 29 0d 00 fa 0a  c9 39 3a f2 6d 73 0d 01  |!24).....9:.ms..|
000003e0  04 0e c9 31 37 2c 31 38  3a f2 72 6d 0d 01 0e 05  |...17,18:.rm....|
000003f0  cb 0d 01 18 05 ce 0d 01  22 25 c8 99 22 57 69 6d  |........"%.."Wim|
00000400  70 5f 43 6c 6f 73 65 44  6f 77 6e 22 2c 74 73 6b  |p_CloseDown",tsk|
00000410  25 2c 26 34 42 35 33 34  31 35 34 0d 01 2c 05 e0  |%,&4B534154..,..|
00000420  0d 01 36 08 dd f2 72 6d  0d 01 40 0d c8 8e 62 25  |..6...rm..@...b%|
00000430  21 31 36 20 ca 0d 01 4a  0b c9 30 3a 71 25 3d b9  |!16 ...J..0:q%=.|
00000440  0d 01 54 10 c9 32 3a f2  72 65 61 64 70 61 74 68  |..T..2:.readpath|
00000450  0d 01 5e 0b c9 33 3a f2  63 6f 6e 0d 01 68 15 c9  |..^..3:.con..h..|
00000460  26 36 32 35 44 31 3a c8  8e 62 25 21 32 30 20 ca  |&625D1:..b%!20 .|
00000470  0d 01 72 0b c9 34 3a 71  25 3d b9 0d 01 7c 05 cb  |..r..4:q%=...|..|
00000480  0d 01 86 05 cb 0d 01 90  05 e1 0d 01 9a 16 dd f2  |................|
00000490  65 72 3a f2 72 65 70 6f  72 74 28 f6 24 29 3a e1  |er:.report(.$):.|
000004a0  0d 01 a4 71 dd f2 72 65  70 6f 72 74 28 72 73 24  |...q..report(rs$|
000004b0  29 3a 21 62 25 3d 30 3a  24 28 62 25 2b 34 29 3d  |):!b%=0:$(b%+4)=|
000004c0  72 73 24 2b bd 28 30 29  3a c8 99 22 57 69 6d 70  |rs$+.(0):.."Wimp|
000004d0  5f 52 65 70 6f 72 74 45  72 72 6f 72 22 2c 62 25  |_ReportError",b%|
000004e0  2c 31 2c 22 53 57 49 20  63 6f 6e 76 65 72 74 65  |,1,"SWI converte|
000004f0  72 22 3a f2 64 65 73 65  6c 28 77 25 2c 35 29 3a  |r":.desel(w%,5):|
00000500  f2 64 65 73 65 6c 28 63  6f 6e 25 2c 32 30 29 3a  |.desel(con%,20):|
00000510  e1 0d 01 ae 1c dd f2 63  61 72 65 74 28 77 69 6e  |.......caret(win|
00000520  25 2c 69 63 6f 6e 25 29  3a ea 4c 41 25 0d 01 b8  |%,icon%):.LA%...|
00000530  4c 4c 41 25 3d a9 28 a4  72 65 61 64 28 77 69 6e  |LLA%=.(.read(win|
00000540  25 2c 69 63 6f 6e 25 29  29 3a c8 99 22 57 69 6d  |%,icon%)):.."Wim|
00000550  70 5f 53 65 74 43 61 72  65 74 50 6f 73 69 74 69  |p_SetCaretPositi|
00000560  6f 6e 22 2c 77 69 6e 25  2c 69 63 6f 6e 25 2c 2c  |on",win%,icon%,,|
00000570  2c 2d 31 2c 4c 41 25 3a  e1 0d 01 c2 4e dd a4 72  |,-1,LA%:....N..r|
00000580  65 61 64 28 77 69 6e 25  2c 69 63 6f 6e 25 29 3a  |ead(win%,icon%):|
00000590  21 62 25 3d 77 69 6e 25  3a 62 25 21 34 3d 69 63  |!b%=win%:b%!4=ic|
000005a0  6f 6e 25 3a c8 99 22 57  69 6d 70 5f 47 65 74 49  |on%:.."Wimp_GetI|
000005b0  63 6f 6e 53 74 61 74 65  22 2c 2c 62 25 3a 3d 24  |conState",,b%:=$|
000005c0  28 62 25 21 32 38 29 0d  01 cc 92 dd f2 74 6a 28  |(b%!28)......tj(|
000005d0  77 69 6e 25 2c 69 63 6f  6e 25 2c 54 58 24 29 3a  |win%,icon%,TX$):|
000005e0  21 62 25 3d 77 69 6e 25  3a 62 25 21 34 3d 69 63  |!b%=win%:b%!4=ic|
000005f0  6f 6e 25 3a c8 99 22 57  69 6d 70 5f 47 65 74 49  |on%:.."Wimp_GetI|
00000600  63 6f 6e 53 74 61 74 65  22 2c 2c 62 25 3a 24 28  |conState",,b%:$(|
00000610  62 25 21 32 38 29 3d 54  58 24 3a 21 62 25 3d 77  |b%!28)=TX$:!b%=w|
00000620  69 6e 25 3a 62 25 21 34  3d 69 63 6f 6e 25 3a 62  |in%:b%!4=icon%:b|
00000630  25 21 38 3d 30 3a 62 25  21 31 32 3d 30 3a c8 99  |%!8=0:b%!12=0:..|
00000640  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
00000650  74 65 22 2c 2c 62 25 3a  e1 0d 01 d6 5c dd f2 73  |te",,b%:....\..s|
00000660  65 6c 28 77 69 6e 25 2c  69 63 6f 6e 25 29 3a 21  |el(win%,icon%):!|
00000670  62 25 3d 77 69 6e 25 3a  62 25 21 34 3d 69 63 6f  |b%=win%:b%!4=ico|
00000680  6e 25 3a 62 25 21 38 3d  31 3c 3c 32 31 3a 62 25  |n%:b%!8=1<<21:b%|
00000690  21 31 32 3d 31 3c 3c 32  31 3a c8 99 22 57 69 6d  |!12=1<<21:.."Wim|
000006a0  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
000006b0  2c 62 25 3a e1 0d 01 e0  5a dd f2 64 65 73 65 6c  |,b%:....Z..desel|
000006c0  28 77 69 6e 25 2c 69 63  6f 6e 25 29 3a 21 62 25  |(win%,icon%):!b%|
000006d0  3d 77 69 6e 25 3a 62 25  21 34 3d 69 63 6f 6e 25  |=win%:b%!4=icon%|
000006e0  3a 62 25 21 38 3d 30 3a  62 25 21 31 32 3d 31 3c  |:b%!8=0:b%!12=1<|
000006f0  3c 32 31 3a c8 99 22 57  69 6d 70 5f 53 65 74 49  |<21:.."Wimp_SetI|
00000700  63 6f 6e 53 74 61 74 65  22 2c 2c 62 25 3a e1 0d  |conState",,b%:..|
00000710  01 ea 08 dd f2 63 6d 0d  01 f4 1c ea 66 6c 67 25  |.....cm.....flg%|
00000720  2c 73 6d 70 25 2c 6d 69  66 25 2c 6d 64 24 2c 70  |,smp%,mif%,md$,p|
00000730  74 72 25 0d 01 fe 38 24  6d 25 3d 22 53 77 69 43  |tr%...8$m%="SwiC|
00000740  6f 6e 76 22 3a 6d 25 21  31 32 3d 26 37 30 32 30  |onv":m%!12=&7020|
00000750  37 3a 6d 25 21 31 36 3d  38 30 3a 6d 25 21 32 30  |7:m%!16=80:m%!20|
00000760  3d 34 34 3a 6d 25 21 32  34 3d 30 0d 02 08 28 f7  |=44:m%!24=0...(.|
00000770  2b 31 3a 70 74 72 25 3d  6d 25 2b 32 38 3a f5 3a  |+1:ptr%=m%+28:.:|
00000780  f3 66 6c 67 25 2c 73 6d  70 25 2c 6d 69 66 25 2c  |.flg%,smp%,mif%,|
00000790  6d 64 24 0d 02 12 35 21  70 74 72 25 3d 66 6c 67  |md$...5!ptr%=flg|
000007a0  25 3a 70 74 72 25 21 34  3d 73 6d 70 25 3a 70 74  |%:ptr%!4=smp%:pt|
000007b0  72 25 21 38 3d 6d 69 66  25 3a 24 28 70 74 72 25  |r%!8=mif%:$(ptr%|
000007c0  2b 31 32 29 3d 6d 64 24  0d 02 1c 1a dc 30 2c 69  |+12)=md$.....0,i|
000007d0  6e 66 6f 25 2c 26 37 30  30 30 30 32 31 2c 49 6e  |nfo%,&7000021,In|
000007e0  66 6f 0d 02 26 19 dc 26  38 30 2c 2d 31 2c 26 37  |fo..&..&80,-1,&7|
000007f0  30 30 30 30 32 31 2c 51  75 69 74 0d 02 30 0c 70  |000021,Quit..0.p|
00000800  74 72 25 2b 3d 32 34 0d  02 3a 0f fd 66 6c 67 25  |tr%+=24..:..flg%|
00000810  20 80 20 31 32 38 0d 02  44 05 e1 0d 02 4e 19 dd  | . 128..D....N..|
00000820  f2 63 6c 28 77 69 6e 25  2c 69 63 6f 6e 25 2c 62  |.cl(win%,icon%,b|
00000830  75 74 25 29 0d 02 58 0b  c8 8e 77 69 6e 25 ca 0d  |ut%)..X...win%..|
00000840  02 62 07 c9 77 25 0d 02  6c 0d e7 62 75 74 25 3d  |.b..w%..l..but%=|
00000850  32 20 8c 0d 02 76 27 c8  99 22 57 69 6d 70 5f 43  |2 ...v'.."Wimp_C|
00000860  72 65 61 74 65 4d 65 6e  75 22 2c 2c 6d 25 2c 21  |reateMenu",,m%,!|
00000870  62 25 2d 36 34 2c 62 25  21 34 0d 02 80 05 cc 0d  |b%-64,b%!4......|
00000880  02 8a 0d c8 8e 69 63 6f  6e 25 20 ca 0d 02 94 36  |.....icon% ....6|
00000890  c9 35 3a c8 99 22 57 69  6d 70 5f 47 65 74 43 61  |.5:.."Wimp_GetCa|
000008a0  72 65 74 50 6f 73 69 74  69 6f 6e 22 2c 2c 62 25  |retPosition",,b%|
000008b0  3a e7 21 62 25 3d 77 25  3a f2 64 6f 28 62 25 21  |:.!b%=w%:.do(b%!|
000008c0  34 29 0d 02 9e 1b c9 36  2c 37 3a f2 61 72 72 6f  |4).....6,7:.arro|
000008d0  77 28 69 63 6f 6e 25 2c  62 75 74 25 29 0d 02 a8  |w(icon%,but%)...|
000008e0  05 cb 0d 02 b2 05 cd 0d  02 bc 09 c9 63 6f 6e 25  |............con%|
000008f0  0d 02 c6 0c c8 8e 62 75  74 25 20 ca 0d 02 d0 2a  |......but% ....*|
00000900  c9 32 3a c8 99 22 57 69  6d 70 5f 43 72 65 61 74  |.2:.."Wimp_Creat|
00000910  65 4d 65 6e 75 22 2c 2c  6d 25 2c 21 62 25 2d 36  |eMenu",,m%,!b%-6|
00000920  34 2c 62 25 21 34 0d 02  da 05 7f 0d 02 e4 0d c8  |4,b%!4..........|
00000930  8e 69 63 6f 6e 25 20 ca  0d 02 ee 15 c9 36 3a e7  |.icon% ......6:.|
00000940  62 75 74 25 80 36 34 3a  f2 64 72 61 67 0d 02 f8  |but%.64:.drag...|
00000950  29 c9 31 39 3a 21 62 25  3d 63 6f 6e 25 3a c8 99  |).19:!b%=con%:..|
00000960  22 57 69 6d 70 5f 43 6c  6f 73 65 57 69 6e 64 6f  |"Wimp_CloseWindo|
00000970  77 22 2c 2c 62 25 0d 03  02 39 c9 32 30 3a f2 64  |w",,b%...9.20:.d|
00000980  6f 63 6f 6e 3a e7 64 6f  6e 65 25 3d b9 3a 21 62  |ocon:.done%=.:!b|
00000990  25 3d 63 6f 6e 25 3a c8  99 22 57 69 6d 70 5f 43  |%=con%:.."Wimp_C|
000009a0  6c 6f 73 65 57 69 6e 64  6f 77 22 2c 2c 62 25 0d  |loseWindow",,b%.|
000009b0  03 0c 05 cb 0d 03 16 05  cb 0d 03 20 3f c9 2d 32  |........... ?.-2|
000009c0  3a e7 62 75 74 25 3d 32  3a c8 99 22 57 69 6d 70  |:.but%=2:.."Wimp|
000009d0  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 6d 25  |_CreateMenu",,m%|
000009e0  2c 21 62 25 2d 36 34 2c  31 38 34 3a 8b f2 6f 70  |,!b%-64,184:..op|
000009f0  65 6e 77 69 6e 64 6f 77  0d 03 2a 05 cb 0d 03 34  |enwindow..*....4|
00000a00  05 e1 0d 03 3e 08 dd f2  6d 73 0d 03 48 0b 6d 73  |....>...ms..H.ms|
00000a10  25 3d 21 62 25 0d 03 52  1f c8 99 22 57 69 6d 70  |%=!b%..R..."Wimp|
00000a20  5f 47 65 74 50 6f 69 6e  74 65 72 49 6e 66 6f 22  |_GetPointerInfo"|
00000a30  2c 2c 62 25 0d 03 5c 0d  62 75 74 25 3d 62 25 21  |,,b%..\.but%=b%!|
00000a40  38 0d 03 66 0a c8 8e 6d  73 25 ca 0d 03 70 0b c9  |8..f...ms%...p..|
00000a50  31 3a 71 25 3d b9 0d 03  7a 05 cb 0d 03 84 27 e7  |1:q%=...z.....'.|
00000a60  62 75 74 25 3d 31 3a c8  99 22 57 69 6d 70 5f 43  |but%=1:.."Wimp_C|
00000a70  72 65 61 74 65 4d 65 6e  75 22 2c 2c 6d 25 2c 30  |reateMenu",,m%,0|
00000a80  2c 30 0d 03 8e 05 e1 0d  03 98 1a dd f2 6b 65 79  |,0...........key|
00000a90  28 77 69 6e 25 2c 69 63  6f 6e 25 2c 6b 65 79 25  |(win%,icon%,key%|
00000aa0  29 0d 03 a2 66 e7 77 69  6e 25 3d 63 6f 6e 25 80  |)...f.win%=con%.|
00000ab0  6b 65 79 25 3d 31 33 3a  f2 73 65 6c 28 63 6f 6e  |key%=13:.sel(con|
00000ac0  25 2c 32 30 29 3a f2 64  6f 63 6f 6e 3a f2 64 65  |%,20):.docon:.de|
00000ad0  73 65 6c 28 63 6f 6e 25  2c 32 30 29 3a e7 64 6f  |sel(con%,20):.do|
00000ae0  6e 65 25 3d b9 3a 21 62  25 3d 63 6f 6e 25 3a c8  |ne%=.:!b%=con%:.|
00000af0  99 22 57 69 6d 70 5f 43  6c 6f 73 65 57 69 6e 64  |."Wimp_CloseWind|
00000b00  6f 77 22 2c 2c 62 25 0d  03 ac 28 e7 77 69 6e 25  |ow",,b%...(.win%|
00000b10  3c 3e 77 25 3a c8 99 22  57 69 6d 70 5f 50 72 6f  |<>w%:.."Wimp_Pro|
00000b20  63 65 73 73 4b 65 79 22  2c 6b 65 79 25 3a e1 0d  |cessKey",key%:..|
00000b30  03 b6 0b c8 8e 6b 65 79  25 ca 0d 03 c0 19 c9 31  |.....key%......1|
00000b40  33 3a 73 65 6c 25 3d b9  3a f2 64 6f 28 69 63 6f  |3:sel%=.:.do(ico|
00000b50  6e 25 29 0d 03 ca 1f c9  26 31 38 45 3a e7 69 63  |n%).....&18E:.ic|
00000b60  6f 6e 25 3d 31 3a f2 63  61 72 65 74 28 77 25 2c  |on%=1:.caret(w%,|
00000b70  33 29 0d 03 d4 19 e7 69  63 6f 6e 25 3d 33 3a f2  |3).....icon%=3:.|
00000b80  63 61 72 65 74 28 77 25  2c 34 29 0d 03 de 19 e7  |caret(w%,4).....|
00000b90  69 63 6f 6e 25 3d 34 3a  f2 63 61 72 65 74 28 77  |icon%=4:.caret(w|
00000ba0  25 2c 31 29 0d 03 e8 1f  c9 26 31 38 46 3a e7 69  |%,1).....&18F:.i|
00000bb0  63 6f 6e 25 3d 31 3a f2  63 61 72 65 74 28 77 25  |con%=1:.caret(w%|
00000bc0  2c 34 29 0d 03 f2 19 e7  69 63 6f 6e 25 3d 33 3a  |,4).....icon%=3:|
00000bd0  f2 63 61 72 65 74 28 77  25 2c 31 29 0d 03 fc 19  |.caret(w%,1)....|
00000be0  e7 69 63 6f 6e 25 3d 34  3a f2 63 61 72 65 74 28  |.icon%=4:.caret(|
00000bf0  77 25 2c 33 29 0d 04 06  1e 7f 3a c8 99 22 57 69  |w%,3).....:.."Wi|
00000c00  6d 70 5f 50 72 6f 63 65  73 73 4b 65 79 22 2c 6b  |mp_ProcessKey",k|
00000c10  65 79 25 0d 04 10 05 cb  0d 04 1a 05 e1 0d 04 24  |ey%............$|
00000c20  18 dd f2 64 6f 28 69 63  6f 6e 25 29 3a ea 73 77  |...do(icon%):.sw|
00000c30  25 2c 73 6e 25 0d 04 2e  14 e7 73 65 6c 25 3a f2  |%,sn%.....sel%:.|
00000c40  73 65 6c 28 77 25 2c 35  29 0d 04 38 0c c8 8e 69  |sel(w%,5)..8...i|
00000c50  63 6f 6e 25 ca 0d 04 42  2f c9 31 3a 73 6e 25 3d  |con%...B/.1:sn%=|
00000c60  bb 28 a4 72 65 61 64 28  77 25 2c 31 29 29 3a f2  |.(.read(w%,1)):.|
00000c70  74 6a 28 77 25 2c 33 2c  22 26 22 2b c3 7e 28 73  |tj(w%,3,"&"+.~(s|
00000c80  6e 25 29 29 0d 04 4c 54  c9 33 3a e7 c0 a4 72 65  |n%))..LT.3:...re|
00000c90  61 64 28 77 25 2c 33 29  2c 31 29 3c 3e 22 26 22  |ad(w%,3),1)<>"&"|
00000ca0  80 a9 28 a4 72 65 61 64  28 77 25 2c 33 29 29 3c  |..(.read(w%,3))<|
00000cb0  37 3a f2 74 6a 28 77 25  2c 33 2c 22 26 22 2b a4  |7:.tj(w%,3,"&"+.|
00000cc0  72 65 61 64 28 77 25 2c  33 29 29 3a f2 63 61 72  |read(w%,3)):.car|
00000cd0  65 74 28 77 25 2c 33 29  0d 04 56 27 73 6e 25 3d  |et(w%,3)..V'sn%=|
00000ce0  a0 28 a4 72 65 61 64 28  77 25 2c 33 29 29 3a f2  |.(.read(w%,3)):.|
00000cf0  74 6a 28 77 25 2c 31 2c  c3 28 73 6e 25 29 29 0d  |tj(w%,1,.(sn%)).|
00000d00  04 60 53 c9 34 3a c8 99  22 4f 53 5f 53 57 49 4e  |.`S.4:.."OS_SWIN|
00000d10  75 6d 62 65 72 46 72 6f  6d 53 74 72 69 6e 67 22  |umberFromString"|
00000d20  2c 2c 73 69 25 20 b8 20  73 77 25 3a f2 74 6a 28  |,,si% . sw%:.tj(|
00000d30  77 25 2c 31 2c c3 28 73  77 25 29 29 3a f2 74 6a  |w%,1,.(sw%)):.tj|
00000d40  28 77 25 2c 33 2c 22 26  22 2b c3 7e 28 73 77 25  |(w%,3,"&"+.~(sw%|
00000d50  29 29 0d 04 6a 05 cb 0d  04 74 69 e7 69 63 6f 6e  |))..j....ti.icon|
00000d60  25 3d 31 84 69 63 6f 6e  25 3d 33 3a 73 6e 25 3d  |%=1.icon%=3:sn%=|
00000d70  bb 28 a4 72 65 61 64 28  77 25 2c 31 29 29 3a c8  |.(.read(w%,1)):.|
00000d80  99 22 4f 53 5f 53 57 49  4e 75 6d 62 65 72 54 6f  |."OS_SWINumberTo|
00000d90  53 74 72 69 6e 67 22 2c  73 6e 25 2c 62 75 25 2c  |String",sn%,bu%,|
00000da0  31 32 37 3a 24 62 75 25  3d a4 73 67 28 62 75 25  |127:$bu%=.sg(bu%|
00000db0  29 3a f2 74 6a 28 77 25  2c 34 2c 24 62 75 25 29  |):.tj(w%,4,$bu%)|
00000dc0  0d 04 7e 1d e7 73 65 6c  25 3a f2 64 65 73 65 6c  |..~..sel%:.desel|
00000dd0  28 77 25 2c 35 29 3a 73  65 6c 25 3d a3 0d 04 88  |(w%,5):sel%=....|
00000de0  05 e1 0d 04 92 34 dd a4  73 67 28 70 72 25 29 3a  |.....4..sg(pr%):|
00000df0  ea 61 24 3a c8 95 3f 70  72 25 3c 3e 30 3a 61 24  |.a$:..?pr%<>0:a$|
00000e00  2b 3d bd 28 3f 70 72 25  29 3a 70 72 25 2b 3d 31  |+=.(?pr%):pr%+=1|
00000e10  3a ce 3a 3d 61 24 0d 04  9c 18 dd f2 6f 70 65 6e  |:.:=a$......open|
00000e20  77 66 28 77 69 6e 25 2c  78 25 2c 79 25 29 0d 04  |wf(win%,x%,y%)..|
00000e30  a6 1c ea 78 6d 69 6e 25  2c 79 6d 69 6e 25 2c 78  |...xmin%,ymin%,x|
00000e40  6d 61 78 25 2c 79 6d 61  78 25 0d 04 b0 cc 21 62  |max%,ymax%....!b|
00000e50  25 3d 77 69 6e 25 3a c8  99 22 57 69 6d 70 5f 47  |%=win%:.."Wimp_G|
00000e60  65 74 57 69 6e 64 6f 77  49 6e 66 6f 22 2c 2c 62  |etWindowInfo",,b|
00000e70  25 3a 78 6d 69 6e 25 3d  62 25 21 34 3a 79 6d 69  |%:xmin%=b%!4:ymi|
00000e80  6e 25 3d 62 25 21 38 3a  78 6d 61 78 25 3d 62 25  |n%=b%!8:xmax%=b%|
00000e90  21 31 32 3a 79 6d 61 78  25 3d 62 25 21 31 36 3a  |!12:ymax%=b%!16:|
00000ea0  c8 99 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |.."Wimp_GetWindo|
00000eb0  77 53 74 61 74 65 22 2c  2c 62 25 3a 62 25 21 34  |wState",,b%:b%!4|
00000ec0  3d 78 25 3a 62 25 21 38  3d 79 25 3a 62 25 21 31  |=x%:b%!8=y%:b%!1|
00000ed0  32 3d 78 25 2b 78 6d 61  78 25 2d 78 6d 69 6e 25  |2=x%+xmax%-xmin%|
00000ee0  3a 62 25 21 31 36 3d 79  25 2b 79 6d 61 78 25 2d  |:b%!16=y%+ymax%-|
00000ef0  79 6d 69 6e 25 3a 62 25  21 32 38 3d 2d 31 3a c8  |ymin%:b%!28=-1:.|
00000f00  99 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  |."Wimp_OpenWindo|
00000f10  77 22 2c 2c 62 25 0d 04  ba 05 e1 0d 04 c4 0f dd  |w",,b%..........|
00000f20  a4 6c 65 61 66 28 73 74  24 29 0d 04 ce 08 ea 4c  |.leaf(st$).....L|
00000f30  41 25 0d 04 d8 2d e7 73  74 24 3d 22 22 3a f2 72  |A%...-.st$="":.r|
00000f40  65 70 6f 72 74 28 22 49  6e 63 6f 72 72 65 63 74  |eport("Incorrect|
00000f50  20 6c 65 61 66 6e 61 6d  65 22 29 3a 3d 22 22 0d  | leafname"):="".|
00000f60  04 e2 31 4c 41 25 3d a9  28 73 74 24 29 3a f5 3a  |..1LA%=.(st$):.:|
00000f70  4c 41 25 3d 4c 41 25 2d  31 3a fd c1 73 74 24 2c  |LA%=LA%-1:..st$,|
00000f80  4c 41 25 2c 31 29 3d 22  2e 22 84 4c 41 25 3d 30  |LA%,1)=".".LA%=0|
00000f90  0d 04 ec 15 3d c2 73 74  24 2c a9 28 73 74 24 29  |....=.st$,.(st$)|
00000fa0  2d 4c 41 25 29 0d 04 f6  44 dd a4 73 65 6c 64 28  |-LA%)...D..seld(|
00000fb0  77 69 6e 25 2c 69 63 6f  6e 25 29 3a 21 62 25 3d  |win%,icon%):!b%=|
00000fc0  77 69 6e 25 3a 62 25 21  34 3d 69 63 6f 6e 25 3a  |win%:b%!4=icon%:|
00000fd0  c8 99 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |.."Wimp_GetIconS|
00000fe0  74 61 74 65 22 2c 2c 62  25 0d 05 00 1b e7 28 62  |tate",,b%.....(b|
00000ff0  25 21 32 34 29 80 28 31  3c 3c 32 31 29 3a 3d b9  |%!24).(1<<21):=.|
00001000  3a 8b 3d a3 0d 05 0a 12  dd f2 63 6f 6e 3a ea 4c  |:.=.......con:.L|
00001010  41 25 2c 74 79 25 0d 05  14 20 74 79 25 3d 62 25  |A%,ty%... ty%=b%|
00001020  21 34 30 3a 73 6f 75 72  63 65 24 3d a4 73 67 28  |!40:source$=.sg(|
00001030  62 25 2b 34 34 29 0d 05  1e 3e c8 99 22 58 4f 53  |b%+44)...>.."XOS|
00001040  5f 52 65 61 64 56 61 72  56 61 6c 22 2c 22 57 69  |_ReadVarVal","Wi|
00001050  6d 70 24 53 63 72 61 70  44 69 72 22 2c 62 25 2c  |mp$ScrapDir",b%,|
00001060  32 35 36 2c 30 2c 33 20  b8 20 2c 2c 6c 65 6e 25  |256,0,3 . ,,len%|
00001070  3b 66 67 25 0d 05 28 57  e7 66 67 25 80 31 3a f2  |;fg%..(W.fg%.1:.|
00001080  72 65 70 6f 72 74 28 22  41 20 73 63 72 61 70 20  |report("A scrap |
00001090  64 69 72 65 63 74 6f 72  79 20 6d 75 73 74 20 62  |directory must b|
000010a0  65 20 73 65 74 20 62 65  66 6f 72 65 20 61 20 70  |e set before a p|
000010b0  72 6f 67 72 61 6d 20 63  61 6e 20 62 65 20 70 72  |rogram can be pr|
000010c0  6f 63 65 73 73 65 64 22  29 3a e1 0d 05 32 10 e7  |ocessed"):...2..|
000010d0  74 79 25 3c 3e 26 46 46  42 3a e1 0d 05 3c 32 f2  |ty%<>&FFB:...<2.|
000010e0  74 6a 28 63 6f 6e 25 2c  33 2c 73 6f 75 72 63 65  |tj(con%,3,source|
000010f0  24 29 3a f2 74 6a 28 63  6f 6e 25 2c 37 2c a4 6c  |$):.tj(con%,7,.l|
00001100  65 61 66 28 73 6f 75 72  63 65 24 29 29 0d 05 46  |eaf(source$))..F|
00001110  60 f2 73 65 6c 28 63 6f  6e 25 2c 31 30 29 3a f2  |`.sel(con%,10):.|
00001120  73 65 6c 28 63 6f 6e 25  2c 31 37 29 3a f2 64 65  |sel(con%,17):.de|
00001130  73 65 6c 28 63 6f 6e 25  2c 31 36 29 3a f2 64 65  |sel(con%,16):.de|
00001140  73 65 6c 28 63 6f 6e 25  2c 31 38 29 3a e3 4c 41  |sel(con%,18):.LA|
00001150  25 3d 31 31 b8 31 33 3a  f2 64 65 73 65 6c 28 63  |%=11.13:.desel(c|
00001160  6f 6e 25 2c 4c 41 25 29  3a ed 4c 41 25 0d 05 50  |on%,LA%):.LA%..P|
00001170  72 21 62 25 3d 63 6f 6e  25 3a c8 99 22 57 69 6d  |r!b%=con%:.."Wim|
00001180  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
00001190  22 2c 2c 62 25 3a e7 ac  28 62 25 21 33 32 29 80  |",,b%:..(b%!32).|
000011a0  28 31 3c 3c 31 36 29 3a  f2 6f 70 65 6e 77 66 28  |(1<<16):.openwf(|
000011b0  63 6f 6e 25 2c 33 35 32  2c 32 32 34 29 3a 8b 62  |con%,352,224):.b|
000011c0  25 21 32 38 3d 2d 31 3a  c8 99 22 57 69 6d 70 5f  |%!28=-1:.."Wimp_|
000011d0  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 62 25 0d  |OpenWindow",,b%.|
000011e0  05 5a 05 e1 0d 05 64 13  dd f2 64 72 61 67 3a ea  |.Z....d...drag:.|
000011f0  6f 78 25 2c 6f 79 25 0d  05 6e f8 21 62 25 3d 63  |ox%,oy%..n.!b%=c|
00001200  6f 6e 25 3a c8 99 22 57  69 6d 70 5f 47 65 74 57  |on%:.."Wimp_GetW|
00001210  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 62 25 3a  |indowState",,b%:|
00001220  6f 78 25 3d 62 25 21 34  2d 62 25 21 32 30 3a 6f  |ox%=b%!4-b%!20:o|
00001230  79 25 3d 62 25 21 31 36  2d 62 25 21 32 34 3a 62  |y%=b%!16-b%!24:b|
00001240  25 21 34 3d 36 3a c8 99  22 57 69 6d 70 5f 47 65  |%!4=6:.."Wimp_Ge|
00001250  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 62 25 3a  |tIconState",,b%:|
00001260  62 25 21 34 3d 35 3a 62  25 21 38 3d 6f 78 25 2b  |b%!4=5:b%!8=ox%+|
00001270  62 25 21 38 2b 34 3a 62  25 21 31 32 3d 6f 79 25  |b%!8+4:b%!12=oy%|
00001280  2b 62 25 21 31 32 3a 62  25 21 31 36 3d 6f 78 25  |+b%!12:b%!16=ox%|
00001290  2b 62 25 21 31 36 2d 36  3a 62 25 21 32 30 3d 6f  |+b%!16-6:b%!20=o|
000012a0  79 25 2b 62 25 21 32 30  2b 34 3a 62 25 21 32 34  |y%+b%!20+4:b%!24|
000012b0  3d 30 3a 62 25 21 32 38  3d 30 3a 62 25 21 33 32  |=0:b%!28=0:b%!32|
000012c0  3d 26 37 46 46 46 46 46  46 46 3a 62 25 21 33 36  |=&7FFFFFFF:b%!36|
000012d0  3d 26 37 46 46 46 46 46  46 46 3a c8 99 22 57 69  |=&7FFFFFFF:.."Wi|
000012e0  6d 70 5f 44 72 61 67 42  6f 78 22 2c 2c 62 25 0d  |mp_DragBox",,b%.|
000012f0  05 78 05 e1 0d 05 82 2c  dd f2 64 72 6f 70 3a ea  |.x.....,..drop:.|
00001300  6c 65 61 66 24 3a 6c 65  61 66 24 3d a4 6c 65 61  |leaf$:leaf$=.lea|
00001310  66 28 a4 72 65 61 64 28  63 6f 6e 25 2c 37 29 29  |f(.read(con%,7))|
00001320  0d 05 8c ad c8 99 22 57  69 6d 70 5f 47 65 74 50  |......"Wimp_GetP|
00001330  6f 69 6e 74 65 72 49 6e  66 6f 22 2c 2c 62 25 3a  |ointerInfo",,b%:|
00001340  62 25 21 32 30 3d 62 25  21 31 32 3a 62 25 21 32  |b%!20=b%!12:b%!2|
00001350  34 3d 62 25 21 31 36 3a  62 25 21 32 38 3d 21 62  |4=b%!16:b%!28=!b|
00001360  25 3a 62 25 21 33 32 3d  62 25 21 34 3a 62 25 21  |%:b%!32=b%!4:b%!|
00001370  33 36 3d 30 3a 21 62 25  3d 32 35 36 3a 62 25 21  |36=0:!b%=256:b%!|
00001380  31 32 3d 30 3a 62 25 21  31 36 3d 31 3a 62 25 21  |12=0:b%!16=1:b%!|
00001390  34 30 3d 26 46 46 42 3a  24 28 62 25 2b 34 34 29  |40=&FFB:$(b%+44)|
000013a0  3d 6c 65 61 66 24 3a c8  99 22 57 69 6d 70 5f 53  |=leaf$:.."Wimp_S|
000013b0  65 6e 64 4d 65 73 73 61  67 65 22 2c 31 38 2c 62  |endMessage",18,b|
000013c0  25 2c 62 25 21 32 30 2c  62 25 21 32 34 0d 05 96  |%,b%!20,b%!24...|
000013d0  05 e1 0d 05 a0 27 dd f2  72 65 61 64 70 61 74 68  |.....'..readpath|
000013e0  3a f2 74 6a 28 63 6f 6e  25 2c 37 2c a4 73 67 28  |:.tj(con%,7,.sg(|
000013f0  62 25 2b 34 34 29 29 3a  e1 0d 05 aa 1e dd f2 64  |b%+44)):.......d|
00001400  6f 63 6f 6e 3a ea 64 65  73 74 24 2c 69 74 25 2c  |ocon:.dest$,it%,|
00001410  6f 74 25 2c 4c 41 25 0d  05 b4 17 64 65 73 74 24  |ot%,LA%....dest$|
00001420  3d a4 72 65 61 64 28 63  6f 6e 25 2c 37 29 0d 05  |=.read(con%,7)..|
00001430  be 6c e7 a7 64 65 73 74  24 2c 22 2e 22 29 3a 8b  |.l..dest$,"."):.|
00001440  f2 72 65 70 6f 72 74 28  22 54 6f 20 73 65 74 20  |.report("To set |
00001450  74 68 65 20 64 65 73 74  69 6e 61 74 69 6f 6e 20  |the destination |
00001460  70 61 74 68 6e 61 6d 65  2c 20 64 72 61 67 20 74  |pathname, drag t|
00001470  68 65 20 69 63 6f 6e 20  74 6f 20 61 20 64 69 72  |he icon to a dir|
00001480  65 63 74 6f 72 79 20 64  69 73 70 6c 61 79 22 29  |ectory display")|
00001490  3a 64 6f 6e 65 25 3d a3  3a e1 0d 05 c8 29 e3 4c  |:done%=.:....).L|
000014a0  41 25 3d 31 30 b8 31 33  3a e7 a4 73 65 6c 64 28  |A%=10.13:..seld(|
000014b0  63 6f 6e 25 2c 4c 41 25  29 3a 69 74 25 3d 4c 41  |con%,LA%):it%=LA|
000014c0  25 2d 39 0d 05 d2 08 ed  4c 41 25 0d 05 dc 2a e3  |%-9.....LA%...*.|
000014d0  4c 41 25 3d 31 36 b8 31  38 3a e7 a4 73 65 6c 64  |LA%=16.18:..seld|
000014e0  28 63 6f 6e 25 2c 4c 41  25 29 3a 6f 74 25 3d 4c  |(con%,LA%):ot%=L|
000014f0  41 25 2d 31 35 0d 05 e6  08 ed 4c 41 25 0d 05 f0  |A%-15.....LA%...|
00001500  25 ff 22 53 65 74 20 53  77 69 43 6f 6e 76 24 49  |%."Set SwiConv$I|
00001510  6e 70 75 74 46 69 6c 65  20 22 2b 73 6f 75 72 63  |nputFile "+sourc|
00001520  65 24 0d 05 fa 24 ff 22  53 65 74 20 53 77 69 43  |e$...$."Set SwiC|
00001530  6f 6e 76 24 4f 75 74 70  75 74 46 69 6c 65 20 22  |onv$OutputFile "|
00001540  2b 64 65 73 74 24 0d 06  04 24 ff 22 53 65 74 20  |+dest$...$."Set |
00001550  53 77 69 43 6f 6e 76 24  49 6e 70 75 74 54 79 70  |SwiConv$InputTyp|
00001560  65 20 22 2b c3 28 69 74  25 29 0d 06 0e 25 ff 22  |e "+.(it%)...%."|
00001570  53 65 74 20 53 77 69 43  6f 6e 76 24 4f 75 74 70  |Set SwiConv$Outp|
00001580  75 74 54 79 70 65 20 22  2b c3 28 6f 74 25 29 0d  |utType "+.(ot%).|
00001590  06 18 28 ff 22 46 69 6c  65 72 5f 52 75 6e 20 3c  |..(."Filer_Run <|
000015a0  53 77 69 43 6f 6e 76 24  44 69 72 3e 2e 43 6f 6e  |SwiConv$Dir>.Con|
000015b0  76 65 72 74 45 78 22 0d  06 22 0b 64 6f 6e 65 25  |vertEx"..".done%|
000015c0  3d b9 0d 06 2c 05 e1 0d  06 36 0a dd f2 69 62 61  |=...,....6...iba|
000015d0  72 0d 06 40 4a 21 62 25  3d 2d 31 3a 62 25 21 34  |r..@J!b%=-1:b%!4|
000015e0  3d 30 3a 62 25 21 38 3d  30 3a 62 25 21 31 32 3d  |=0:b%!8=0:b%!12=|
000015f0  37 30 3a 62 25 21 31 36  3d 36 38 3a 62 25 21 32  |70:b%!16=68:b%!2|
00001600  30 3d 26 33 30 30 32 3a  24 28 62 25 2b 32 34 29  |0=&3002:$(b%+24)|
00001610  3d 22 21 73 77 69 63 6f  6e 76 22 0d 06 4a 22 c8  |="!swiconv"..J".|
00001620  99 22 57 69 6d 70 5f 43  72 65 61 74 65 49 63 6f  |."Wimp_CreateIco|
00001630  6e 22 2c 2c 62 25 20 b8  20 69 62 68 25 0d 06 54  |n",,b% . ibh%..T|
00001640  05 e1 0d 06 5e 54 dd f2  6f 70 65 6e 77 69 6e 64  |....^T..openwind|
00001650  6f 77 3a 21 62 25 3d 77  25 3a c8 99 22 57 69 6d  |ow:!b%=w%:.."Wim|
00001660  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
00001670  22 2c 2c 62 25 3a 62 25  21 32 38 3d 2d 31 3a c8  |",,b%:b%!28=-1:.|
00001680  99 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  |."Wimp_OpenWindo|
00001690  77 22 2c 2c 62 25 0d 06  68 54 e7 ac 28 62 25 21  |w",,b%..hT..(b%!|
000016a0  33 32 29 80 28 31 3c 3c  31 36 29 3a f2 63 61 72  |32).(1<<16):.car|
000016b0  65 74 28 77 25 2c 31 29  3a 21 62 25 3d 77 25 3a  |et(w%,1):!b%=w%:|
000016c0  62 25 21 34 3d 34 3a c8  99 22 57 69 6d 70 5f 47  |b%!4=4:.."Wimp_G|
000016d0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 62 25  |etIconState",,b%|
000016e0  3a 73 69 25 3d 62 25 21  32 38 0d 06 72 05 e1 0d  |:si%=b%!28..r...|
000016f0  06 7c 1b dd f2 61 72 72  6f 77 28 69 63 6f 6e 25  |.|...arrow(icon%|
00001700  2c 62 75 74 25 29 3a ea  76 25 0d 06 86 16 69 63  |,but%):.v%....ic|
00001710  6f 6e 25 3d 28 69 63 6f  6e 25 2a 32 29 2d 31 33  |on%=(icon%*2)-13|
00001720  0d 06 90 1b e7 62 75 74  25 3d 31 3a 62 75 74 25  |.....but%=1:but%|
00001730  3d 2d 31 3a 8b 62 75 74  25 3d 31 0d 06 9a 15 76  |=-1:.but%=1....v|
00001740  25 3d bb 28 a4 72 65 61  64 28 77 25 2c 31 29 29  |%=.(.read(w%,1))|
00001750  0d 06 a4 24 76 25 2b 3d  28 69 63 6f 6e 25 2a 62  |...$v%+=(icon%*b|
00001760  75 74 25 29 3a f2 74 6a  28 77 25 2c 31 2c c3 28  |ut%):.tj(w%,1,.(|
00001770  76 25 29 29 0d 06 ae 40  f2 64 6f 28 31 29 3a c8  |v%))...@.do(1):.|
00001780  99 22 57 69 6d 70 5f 47  65 74 43 61 72 65 74 50  |."Wimp_GetCaretP|
00001790  6f 73 69 74 69 6f 6e 22  2c 2c 62 25 3a e7 21 62  |osition",,b%:.!b|
000017a0  25 3d 77 25 3a f2 63 61  72 65 74 28 77 25 2c 62  |%=w%:.caret(w%,b|
000017b0  25 21 34 29 0d 06 b8 05  e1 0d ff                 |%!4).......|
000017bb