4� Checks ALT to see if configuration is required
�"ERROR 0 "+�$+�(�):�
�b% 716:q%=�
(6ș"Wimp_Initialise",200,&4B534154,"Saviour config"
2�-3:�config
<ș"Wimp_CloseDown"
F.� Checks whether Saviour is already loaded
P,�loaded:�:��"Run <Saviour$Dir>.Saviour"
Zݤloaded
dsavl%=�
n
tan%=0
xȕ tan%>=0
�=ș "TaskManager_EnumerateTasks",tan%,b%,256 � tan%,entad%
�� entad%>b% �
�tap%=b%
�ȕ tap%<entad%
�handle%=!tap%
�TSK$=""
�Bsp%=0:�:TSK$=TSK$+�(?((tap%!4)+sp%)):sp%+=1:�?((tap%!4)+sp%)=0
�TSK$=TSK$+�13
��TSK$,7)="Saviour" �
�2�TSK$,"config"):�sav%=�:shan%=handle%:savl%=�
��
�tap%+=16
��

�

�


=savl%

":

,��config

67fi%=�"<Saviour$Dir>.Config":�#fi%,T1%,T2%,T3%:�#fi%

@3fi%=�"<Saviour$Dir>.Sprites":sps%=�#fi%+4:�#fi%

J
�sp% sps%

T!sp%=sps%:sp%!8=16

^4ș"OS_SpriteOp",&10A,sp%,"<Saviour$Dir>.Sprites"

hie%=336:UD%=0

r�name% 12,i% ie%,m% 100

|4ș"Wimp_OpenTemplate",,"<Saviour$Dir>.Templates"

�P$name%="Window":ș"Wimp_LoadTemplate",,b%,i%,i%+ie%,-1,name%,0 �,,ni%,,,,ne%

�,b%!64=sp%:ș"Wimp_CreateWindow",,b% � w%

�O$name%="Info":ș"Wimp_LoadTemplate",,b%,ni%,i%+ie%,-1,name%,0 �,,ni%,,,,ne%

�%ș"Wimp_CreateWindow",,b% � info%

�ș"Wimp_CloseTemplate"

��ti(3,T1%):�ti(7,T2%)

�#�T3%:�sel(w%,11):��desel(w%,11)

��$m%="Saviour":m%!12=&70207:m%!16=208:m%!20=44:m%!24=0:m%!28=0:m%!32=info%:m%!36=&7000021:$(m%+40)="Info":m%!52=0:m%!56=-1:m%!60=&7000021:$(m%+64)="Quit saviour":m%!76=&80:m%!80=-1:m%!84=&7000021:$(m%+88)="Quit config"

�>!b%=w%:ș"Wimp_GetWindowState",,b%:ș"Wimp_OpenWindow",,b%

�	��er

�	ȕ�q%

�ș"Wimp_Poll",&1831,b% � r%

�
Ȏr% �
�2:ș"Wimp_OpenWindow",,b%
$�3:ș"Wimp_CloseWindow",,b%:q%=�
�6:�cl(b%!8,b%!16)
&�9:�ms(!b%)
0
�17,18:�r
:�
D�
Nș"Wimp_CloseDown"
X�
b��r
l�b%!16=0:q%=�
v�
�Q��er:!b%=�:$(b%+4)=�$+�(�)+�(0):ș "Wimp_ReportError",b%,1,"Saviour config":�
�>��ti(icon%,T%):!b%=w%:b%!4=icon%:ș"Wimp_GetIconState",,b%
�(�T%>60:T%=T%/60:TT$=�(T%)+" minutes"
��T%=60:TT$="1 minute"
��T%=0:TT$="Off"
��$(b%!28)=TT$:�
�9$(b%!28)=TT$: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%:�
���cl(but%,icon%)
�&�but%=2:�openmenu(!b%-64,b%!4,�):�
�1�(icon%=4�but%=4)�(icon%=5�but%=1):T1%=T1%-60
1�(icon%=5�but%=4)�(icon%=4�but%=1):T1%=T1%+60
�T1%<60:T1%=60
�T1%>1800:T1%=1800
 �ti(3,T1%)
*8�(icon%=8�but%=4)�(icon%=9�but%=1):T2%=T2%-60:UD%=-1
47�(icon%=9�but%=4)�(icon%=8�but%=1):T2%=T2%+60:UD%=1
>�T2%<0:T2%=0
H�T2%>3600:T2%=3600
R6�T2%<(T1%+60)�(icon%=4�icon%=5)�T2%>0:T2%=(T1%+60)
\�T2%<(T1%+60)�UD%=-1:T2%=0
f$�T2%<(T1%+60)�UD%=1:T2%=(T1%+60)
p�ti(7,T2%)
z�icon%=12:�save
�	UD%=0
��
�Uݤseld(win%,icon%):!b%=win%:b%!4=icon%:ș"Wimp_GetIconState",,b%:=(b%!24)�(1<<21)
�
��save
��seld(w%,11):T3%=�:�T3%=�
�7fi%=�"<Saviour$Dir>.Config":�#fi%,T1%,T2%,T3%:�#fi%
�=�loaded:!b%=256:b%!16=0:ș"Wimp_SendMessage",17,b%,shan%
�#�"Filer_Run <Saviour$Dir>.!Run"
�q%=�
��
���ms(msel%)
�	gy%=�
�*ș"Wimp_GetPointerInfo",,b%:butn%=b%!8
O�msel%=1:LA%=�loaded:!b%=256:b%!16=0:ș"Wimp_SendMessage",17,b%,shan%:gy%=�
�msel%=2:q%=�
�butn%=1:�openmenu(0,0,gy%)
$�
.��openmenu(mx%,my%,gy%)
8+�loaded:m%!60=&7000021:�m%!60=&7400021
B�gy%=�:m%!60=&7400021
L#ș"Wimp_CreateMenu",,m%,mx%,my%
V�
�

00000000  0d 00 0a 34 f4 20 43 68  65 63 6b 73 20 41 4c 54  |...4. Checks ALT|
00000010  20 74 6f 20 73 65 65 20  69 66 20 63 6f 6e 66 69  | to see if confi|
00000020  67 75 72 61 74 69 6f 6e  20 69 73 20 72 65 71 75  |guration is requ|
00000030  69 72 65 64 0d 00 14 1b  ee 85 ff 22 45 52 52 4f  |ired......."ERRO|
00000040  52 20 30 20 22 2b f6 24  2b c3 28 9e 29 3a e0 0d  |R 0 "+.$+.(.):..|
00000050  00 1e 10 de 62 25 20 37  31 36 3a 71 25 3d a3 0d  |....b% 716:q%=..|
00000060  00 28 36 c8 99 22 57 69  6d 70 5f 49 6e 69 74 69  |.(6.."Wimp_Initi|
00000070  61 6c 69 73 65 22 2c 32  30 30 2c 26 34 42 35 33  |alise",200,&4B53|
00000080  34 31 35 34 2c 22 53 61  76 69 6f 75 72 20 63 6f  |4154,"Saviour co|
00000090  6e 66 69 67 22 0d 00 32  10 e7 a6 2d 33 3a f2 63  |nfig"..2...-3:.c|
000000a0  6f 6e 66 69 67 0d 00 3c  16 c8 99 22 57 69 6d 70  |onfig..<..."Wimp|
000000b0  5f 43 6c 6f 73 65 44 6f  77 6e 22 0d 00 46 2e f4  |_CloseDown"..F..|
000000c0  20 43 68 65 63 6b 73 20  77 68 65 74 68 65 72 20  | Checks whether |
000000d0  53 61 76 69 6f 75 72 20  69 73 20 61 6c 72 65 61  |Saviour is alrea|
000000e0  64 79 20 6c 6f 61 64 65  64 0d 00 50 2c e7 a4 6c  |dy loaded..P,..l|
000000f0  6f 61 64 65 64 3a e0 3a  8b ff 22 52 75 6e 20 3c  |oaded:.:.."Run <|
00000100  53 61 76 69 6f 75 72 24  44 69 72 3e 2e 53 61 76  |Saviour$Dir>.Sav|
00000110  69 6f 75 72 22 0d 00 5a  0c dd a4 6c 6f 61 64 65  |iour"..Z...loade|
00000120  64 0d 00 64 0b 73 61 76  6c 25 3d a3 0d 00 6e 0a  |d..d.savl%=...n.|
00000130  74 61 6e 25 3d 30 0d 00  78 0e c8 95 20 74 61 6e  |tan%=0..x... tan|
00000140  25 3e 3d 30 0d 00 82 3d  c8 99 20 22 54 61 73 6b  |%>=0...=.. "Task|
00000150  4d 61 6e 61 67 65 72 5f  45 6e 75 6d 65 72 61 74  |Manager_Enumerat|
00000160  65 54 61 73 6b 73 22 2c  74 61 6e 25 2c 62 25 2c  |eTasks",tan%,b%,|
00000170  32 35 36 20 b8 20 74 61  6e 25 2c 65 6e 74 61 64  |256 . tan%,entad|
00000180  25 0d 00 8c 11 e7 20 65  6e 74 61 64 25 3e 62 25  |%..... entad%>b%|
00000190  20 8c 0d 00 96 0b 74 61  70 25 3d 62 25 0d 00 a0  | .....tap%=b%...|
000001a0  12 c8 95 20 74 61 70 25  3c 65 6e 74 61 64 25 0d  |... tap%<entad%.|
000001b0  00 aa 11 68 61 6e 64 6c  65 25 3d 21 74 61 70 25  |...handle%=!tap%|
000001c0  0d 00 b4 0b 54 53 4b 24  3d 22 22 0d 00 be 42 73  |....TSK$=""...Bs|
000001d0  70 25 3d 30 3a f5 3a 54  53 4b 24 3d 54 53 4b 24  |p%=0:.:TSK$=TSK$|
000001e0  2b bd 28 3f 28 28 74 61  70 25 21 34 29 2b 73 70  |+.(?((tap%!4)+sp|
000001f0  25 29 29 3a 73 70 25 2b  3d 31 3a fd 3f 28 28 74  |%)):sp%+=1:.?((t|
00000200  61 70 25 21 34 29 2b 73  70 25 29 3d 30 0d 00 c8  |ap%!4)+sp%)=0...|
00000210  11 54 53 4b 24 3d 54 53  4b 24 2b bd 31 33 0d 00  |.TSK$=TSK$+.13..|
00000220  d2 19 e7 c0 54 53 4b 24  2c 37 29 3d 22 53 61 76  |....TSK$,7)="Sav|
00000230  69 6f 75 72 22 20 8c 0d  00 dc 32 e7 a7 54 53 4b  |iour" ....2..TSK|
00000240  24 2c 22 63 6f 6e 66 69  67 22 29 3a 8b 73 61 76  |$,"config"):.sav|
00000250  25 3d b9 3a 73 68 61 6e  25 3d 68 61 6e 64 6c 65  |%=.:shan%=handle|
00000260  25 3a 73 61 76 6c 25 3d  b9 0d 00 e6 05 cd 0d 00  |%:savl%=........|
00000270  f0 0c 74 61 70 25 2b 3d  31 36 0d 00 fa 05 ce 0d  |..tap%+=16......|
00000280  01 04 05 cd 0d 01 0e 05  ce 0d 01 18 0a 3d 73 61  |.............=sa|
00000290  76 6c 25 0d 01 22 05 3a  0d 01 2c 0c dd f2 63 6f  |vl%..".:..,...co|
000002a0  6e 66 69 67 0d 01 36 37  66 69 25 3d 8e 22 3c 53  |nfig..67fi%=."<S|
000002b0  61 76 69 6f 75 72 24 44  69 72 3e 2e 43 6f 6e 66  |aviour$Dir>.Conf|
000002c0  69 67 22 3a e8 23 66 69  25 2c 54 31 25 2c 54 32  |ig":.#fi%,T1%,T2|
000002d0  25 2c 54 33 25 3a d9 23  66 69 25 0d 01 40 33 66  |%,T3%:.#fi%..@3f|
000002e0  69 25 3d 8e 22 3c 53 61  76 69 6f 75 72 24 44 69  |i%=."<Saviour$Di|
000002f0  72 3e 2e 53 70 72 69 74  65 73 22 3a 73 70 73 25  |r>.Sprites":sps%|
00000300  3d a2 23 66 69 25 2b 34  3a d9 23 66 69 25 0d 01  |=.#fi%+4:.#fi%..|
00000310  4a 0d de 73 70 25 20 73  70 73 25 0d 01 54 16 21  |J..sp% sps%..T.!|
00000320  73 70 25 3d 73 70 73 25  3a 73 70 25 21 38 3d 31  |sp%=sps%:sp%!8=1|
00000330  36 0d 01 5e 34 c8 99 22  4f 53 5f 53 70 72 69 74  |6..^4.."OS_Sprit|
00000340  65 4f 70 22 2c 26 31 30  41 2c 73 70 25 2c 22 3c  |eOp",&10A,sp%,"<|
00000350  53 61 76 69 6f 75 72 24  44 69 72 3e 2e 53 70 72  |Saviour$Dir>.Spr|
00000360  69 74 65 73 22 0d 01 68  11 69 65 25 3d 33 33 36  |ites"..h.ie%=336|
00000370  3a 55 44 25 3d 30 0d 01  72 1b de 6e 61 6d 65 25  |:UD%=0..r..name%|
00000380  20 31 32 2c 69 25 20 69  65 25 2c 6d 25 20 31 30  | 12,i% ie%,m% 10|
00000390  30 0d 01 7c 34 c8 99 22  57 69 6d 70 5f 4f 70 65  |0..|4.."Wimp_Ope|
000003a0  6e 54 65 6d 70 6c 61 74  65 22 2c 2c 22 3c 53 61  |nTemplate",,"<Sa|
000003b0  76 69 6f 75 72 24 44 69  72 3e 2e 54 65 6d 70 6c  |viour$Dir>.Templ|
000003c0  61 74 65 73 22 0d 01 86  50 24 6e 61 6d 65 25 3d  |ates"...P$name%=|
000003d0  22 57 69 6e 64 6f 77 22  3a c8 99 22 57 69 6d 70  |"Window":.."Wimp|
000003e0  5f 4c 6f 61 64 54 65 6d  70 6c 61 74 65 22 2c 2c  |_LoadTemplate",,|
000003f0  62 25 2c 69 25 2c 69 25  2b 69 65 25 2c 2d 31 2c  |b%,i%,i%+ie%,-1,|
00000400  6e 61 6d 65 25 2c 30 20  b8 2c 2c 6e 69 25 2c 2c  |name%,0 .,,ni%,,|
00000410  2c 2c 6e 65 25 0d 01 90  2c 62 25 21 36 34 3d 73  |,,ne%...,b%!64=s|
00000420  70 25 3a c8 99 22 57 69  6d 70 5f 43 72 65 61 74  |p%:.."Wimp_Creat|
00000430  65 57 69 6e 64 6f 77 22  2c 2c 62 25 20 b8 20 77  |eWindow",,b% . w|
00000440  25 0d 01 9a 4f 24 6e 61  6d 65 25 3d 22 49 6e 66  |%...O$name%="Inf|
00000450  6f 22 3a c8 99 22 57 69  6d 70 5f 4c 6f 61 64 54  |o":.."Wimp_LoadT|
00000460  65 6d 70 6c 61 74 65 22  2c 2c 62 25 2c 6e 69 25  |emplate",,b%,ni%|
00000470  2c 69 25 2b 69 65 25 2c  2d 31 2c 6e 61 6d 65 25  |,i%+ie%,-1,name%|
00000480  2c 30 20 b8 2c 2c 6e 69  25 2c 2c 2c 2c 6e 65 25  |,0 .,,ni%,,,,ne%|
00000490  0d 01 a4 25 c8 99 22 57  69 6d 70 5f 43 72 65 61  |...%.."Wimp_Crea|
000004a0  74 65 57 69 6e 64 6f 77  22 2c 2c 62 25 20 b8 20  |teWindow",,b% . |
000004b0  69 6e 66 6f 25 0d 01 ae  1a c8 99 22 57 69 6d 70  |info%......"Wimp|
000004c0  5f 43 6c 6f 73 65 54 65  6d 70 6c 61 74 65 22 0d  |_CloseTemplate".|
000004d0  01 b8 19 f2 74 69 28 33  2c 54 31 25 29 3a f2 74  |....ti(3,T1%):.t|
000004e0  69 28 37 2c 54 32 25 29  0d 01 c2 23 e7 54 33 25  |i(7,T2%)...#.T3%|
000004f0  3a f2 73 65 6c 28 77 25  2c 31 31 29 3a 8b f2 64  |:.sel(w%,11):..d|
00000500  65 73 65 6c 28 77 25 2c  31 31 29 0d 01 cc dd 24  |esel(w%,11)....$|
00000510  6d 25 3d 22 53 61 76 69  6f 75 72 22 3a 6d 25 21  |m%="Saviour":m%!|
00000520  31 32 3d 26 37 30 32 30  37 3a 6d 25 21 31 36 3d  |12=&70207:m%!16=|
00000530  32 30 38 3a 6d 25 21 32  30 3d 34 34 3a 6d 25 21  |208:m%!20=44:m%!|
00000540  32 34 3d 30 3a 6d 25 21  32 38 3d 30 3a 6d 25 21  |24=0:m%!28=0:m%!|
00000550  33 32 3d 69 6e 66 6f 25  3a 6d 25 21 33 36 3d 26  |32=info%:m%!36=&|
00000560  37 30 30 30 30 32 31 3a  24 28 6d 25 2b 34 30 29  |7000021:$(m%+40)|
00000570  3d 22 49 6e 66 6f 22 3a  6d 25 21 35 32 3d 30 3a  |="Info":m%!52=0:|
00000580  6d 25 21 35 36 3d 2d 31  3a 6d 25 21 36 30 3d 26  |m%!56=-1:m%!60=&|
00000590  37 30 30 30 30 32 31 3a  24 28 6d 25 2b 36 34 29  |7000021:$(m%+64)|
000005a0  3d 22 51 75 69 74 20 73  61 76 69 6f 75 72 22 3a  |="Quit saviour":|
000005b0  6d 25 21 37 36 3d 26 38  30 3a 6d 25 21 38 30 3d  |m%!76=&80:m%!80=|
000005c0  2d 31 3a 6d 25 21 38 34  3d 26 37 30 30 30 30 32  |-1:m%!84=&700002|
000005d0  31 3a 24 28 6d 25 2b 38  38 29 3d 22 51 75 69 74  |1:$(m%+88)="Quit|
000005e0  20 63 6f 6e 66 69 67 22  0d 01 d6 3e 21 62 25 3d  | config"...>!b%=|
000005f0  77 25 3a c8 99 22 57 69  6d 70 5f 47 65 74 57 69  |w%:.."Wimp_GetWi|
00000600  6e 64 6f 77 53 74 61 74  65 22 2c 2c 62 25 3a c8  |ndowState",,b%:.|
00000610  99 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  |."Wimp_OpenWindo|
00000620  77 22 2c 2c 62 25 0d 01  e0 09 ee 85 f2 65 72 0d  |w",,b%.......er.|
00000630  01 ea 09 c8 95 ac 71 25  0d 01 f4 1f c8 99 22 57  |......q%......"W|
00000640  69 6d 70 5f 50 6f 6c 6c  22 2c 26 31 38 33 31 2c  |imp_Poll",&1831,|
00000650  62 25 20 b8 20 72 25 0d  01 fe 0a c8 8e 72 25 20  |b% . r%......r% |
00000660  ca 0d 02 08 1e c9 32 3a  c8 99 22 57 69 6d 70 5f  |......2:.."Wimp_|
00000670  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 62 25 0d  |OpenWindow",,b%.|
00000680  02 12 24 c9 33 3a c8 99  22 57 69 6d 70 5f 43 6c  |..$.3:.."Wimp_Cl|
00000690  6f 73 65 57 69 6e 64 6f  77 22 2c 2c 62 25 3a 71  |oseWindow",,b%:q|
000006a0  25 3d b9 0d 02 1c 16 c9  36 3a f2 63 6c 28 62 25  |%=......6:.cl(b%|
000006b0  21 38 2c 62 25 21 31 36  29 0d 02 26 0f c9 39 3a  |!8,b%!16)..&..9:|
000006c0  f2 6d 73 28 21 62 25 29  0d 02 30 0d c9 31 37 2c  |.ms(!b%)..0..17,|
000006d0  31 38 3a f2 72 0d 02 3a  05 cb 0d 02 44 05 ce 0d  |18:.r..:....D...|
000006e0  02 4e 16 c8 99 22 57 69  6d 70 5f 43 6c 6f 73 65  |.N..."Wimp_Close|
000006f0  44 6f 77 6e 22 0d 02 58  05 e0 0d 02 62 07 dd f2  |Down"..X....b...|
00000700  72 0d 02 6c 11 e7 62 25  21 31 36 3d 30 3a 71 25  |r..l..b%!16=0:q%|
00000710  3d b9 0d 02 76 05 e1 0d  02 80 51 dd f2 65 72 3a  |=...v.....Q..er:|
00000720  21 62 25 3d 9f 3a 24 28  62 25 2b 34 29 3d f6 24  |!b%=.:$(b%+4)=.$|
00000730  2b c3 28 9e 29 2b bd 28  30 29 3a c8 99 20 22 57  |+.(.)+.(0):.. "W|
00000740  69 6d 70 5f 52 65 70 6f  72 74 45 72 72 6f 72 22  |imp_ReportError"|
00000750  2c 62 25 2c 31 2c 22 53  61 76 69 6f 75 72 20 63  |,b%,1,"Saviour c|
00000760  6f 6e 66 69 67 22 3a e0  0d 02 8a 3e dd f2 74 69  |onfig":....>..ti|
00000770  28 69 63 6f 6e 25 2c 54  25 29 3a 21 62 25 3d 77  |(icon%,T%):!b%=w|
00000780  25 3a 62 25 21 34 3d 69  63 6f 6e 25 3a c8 99 22  |%:b%!4=icon%:.."|
00000790  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
000007a0  65 22 2c 2c 62 25 0d 02  94 28 e7 54 25 3e 36 30  |e",,b%...(.T%>60|
000007b0  3a 54 25 3d 54 25 2f 36  30 3a 54 54 24 3d c3 28  |:T%=T%/60:TT$=.(|
000007c0  54 25 29 2b 22 20 6d 69  6e 75 74 65 73 22 0d 02  |T%)+" minutes"..|
000007d0  9e 19 e7 54 25 3d 36 30  3a 54 54 24 3d 22 31 20  |...T%=60:TT$="1 |
000007e0  6d 69 6e 75 74 65 22 0d  02 a8 13 e7 54 25 3d 30  |minute".....T%=0|
000007f0  3a 54 54 24 3d 22 4f 66  66 22 0d 02 b2 13 e7 24  |:TT$="Off".....$|
00000800  28 62 25 21 32 38 29 3d  54 54 24 3a e1 0d 02 bc  |(b%!28)=TT$:....|
00000810  39 24 28 62 25 21 32 38  29 3d 54 54 24 3a 62 25  |9$(b%!28)=TT$:b%|
00000820  21 38 3d 30 3a 62 25 21  31 32 3d 30 3a c8 99 22  |!8=0:b%!12=0:.."|
00000830  57 69 6d 70 5f 53 65 74  49 63 6f 6e 53 74 61 74  |Wimp_SetIconStat|
00000840  65 22 2c 2c 62 25 0d 02  c6 05 e1 0d 02 d0 5c dd  |e",,b%........\.|
00000850  f2 73 65 6c 28 77 69 6e  25 2c 69 63 6f 6e 25 29  |.sel(win%,icon%)|
00000860  3a 21 62 25 3d 77 69 6e  25 3a 62 25 21 34 3d 69  |:!b%=win%:b%!4=i|
00000870  63 6f 6e 25 3a 62 25 21  38 3d 31 3c 3c 32 31 3a  |con%:b%!8=1<<21:|
00000880  62 25 21 31 32 3d 31 3c  3c 32 31 3a c8 99 22 57  |b%!12=1<<21:.."W|
00000890  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
000008a0  22 2c 2c 62 25 3a e1 0d  02 da 5a dd f2 64 65 73  |",,b%:....Z..des|
000008b0  65 6c 28 77 69 6e 25 2c  69 63 6f 6e 25 29 3a 21  |el(win%,icon%):!|
000008c0  62 25 3d 77 69 6e 25 3a  62 25 21 34 3d 69 63 6f  |b%=win%:b%!4=ico|
000008d0  6e 25 3a 62 25 21 38 3d  30 3a 62 25 21 31 32 3d  |n%:b%!8=0:b%!12=|
000008e0  31 3c 3c 32 31 3a c8 99  22 57 69 6d 70 5f 53 65  |1<<21:.."Wimp_Se|
000008f0  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 62 25 3a  |tIconState",,b%:|
00000900  e1 0d 02 e4 14 dd f2 63  6c 28 62 75 74 25 2c 69  |.......cl(but%,i|
00000910  63 6f 6e 25 29 0d 02 ee  26 e7 62 75 74 25 3d 32  |con%)...&.but%=2|
00000920  3a f2 6f 70 65 6e 6d 65  6e 75 28 21 62 25 2d 36  |:.openmenu(!b%-6|
00000930  34 2c 62 25 21 34 2c a3  29 3a e1 0d 02 f8 31 e7  |4,b%!4,.):....1.|
00000940  28 69 63 6f 6e 25 3d 34  80 62 75 74 25 3d 34 29  |(icon%=4.but%=4)|
00000950  84 28 69 63 6f 6e 25 3d  35 80 62 75 74 25 3d 31  |.(icon%=5.but%=1|
00000960  29 3a 54 31 25 3d 54 31  25 2d 36 30 0d 03 02 31  |):T1%=T1%-60...1|
00000970  e7 28 69 63 6f 6e 25 3d  35 80 62 75 74 25 3d 34  |.(icon%=5.but%=4|
00000980  29 84 28 69 63 6f 6e 25  3d 34 80 62 75 74 25 3d  |).(icon%=4.but%=|
00000990  31 29 3a 54 31 25 3d 54  31 25 2b 36 30 0d 03 0c  |1):T1%=T1%+60...|
000009a0  12 e7 54 31 25 3c 36 30  3a 54 31 25 3d 36 30 0d  |..T1%<60:T1%=60.|
000009b0  03 16 16 e7 54 31 25 3e  31 38 30 30 3a 54 31 25  |....T1%>1800:T1%|
000009c0  3d 31 38 30 30 0d 03 20  0e f2 74 69 28 33 2c 54  |=1800.. ..ti(3,T|
000009d0  31 25 29 0d 03 2a 38 e7  28 69 63 6f 6e 25 3d 38  |1%)..*8.(icon%=8|
000009e0  80 62 75 74 25 3d 34 29  84 28 69 63 6f 6e 25 3d  |.but%=4).(icon%=|
000009f0  39 80 62 75 74 25 3d 31  29 3a 54 32 25 3d 54 32  |9.but%=1):T2%=T2|
00000a00  25 2d 36 30 3a 55 44 25  3d 2d 31 0d 03 34 37 e7  |%-60:UD%=-1..47.|
00000a10  28 69 63 6f 6e 25 3d 39  80 62 75 74 25 3d 34 29  |(icon%=9.but%=4)|
00000a20  84 28 69 63 6f 6e 25 3d  38 80 62 75 74 25 3d 31  |.(icon%=8.but%=1|
00000a30  29 3a 54 32 25 3d 54 32  25 2b 36 30 3a 55 44 25  |):T2%=T2%+60:UD%|
00000a40  3d 31 0d 03 3e 10 e7 54  32 25 3c 30 3a 54 32 25  |=1..>..T2%<0:T2%|
00000a50  3d 30 0d 03 48 16 e7 54  32 25 3e 33 36 30 30 3a  |=0..H..T2%>3600:|
00000a60  54 32 25 3d 33 36 30 30  0d 03 52 36 e7 54 32 25  |T2%=3600..R6.T2%|
00000a70  3c 28 54 31 25 2b 36 30  29 80 28 69 63 6f 6e 25  |<(T1%+60).(icon%|
00000a80  3d 34 84 69 63 6f 6e 25  3d 35 29 80 54 32 25 3e  |=4.icon%=5).T2%>|
00000a90  30 3a 54 32 25 3d 28 54  31 25 2b 36 30 29 0d 03  |0:T2%=(T1%+60)..|
00000aa0  5c 1e e7 54 32 25 3c 28  54 31 25 2b 36 30 29 80  |\..T2%<(T1%+60).|
00000ab0  55 44 25 3d 2d 31 3a 54  32 25 3d 30 0d 03 66 24  |UD%=-1:T2%=0..f$|
00000ac0  e7 54 32 25 3c 28 54 31  25 2b 36 30 29 80 55 44  |.T2%<(T1%+60).UD|
00000ad0  25 3d 31 3a 54 32 25 3d  28 54 31 25 2b 36 30 29  |%=1:T2%=(T1%+60)|
00000ae0  0d 03 70 0e f2 74 69 28  37 2c 54 32 25 29 0d 03  |..p..ti(7,T2%)..|
00000af0  7a 13 e7 69 63 6f 6e 25  3d 31 32 3a f2 73 61 76  |z..icon%=12:.sav|
00000b00  65 0d 03 84 09 55 44 25  3d 30 0d 03 8e 05 e1 0d  |e....UD%=0......|
00000b10  03 98 55 dd a4 73 65 6c  64 28 77 69 6e 25 2c 69  |..U..seld(win%,i|
00000b20  63 6f 6e 25 29 3a 21 62  25 3d 77 69 6e 25 3a 62  |con%):!b%=win%:b|
00000b30  25 21 34 3d 69 63 6f 6e  25 3a c8 99 22 57 69 6d  |%!4=icon%:.."Wim|
00000b40  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
00000b50  2c 62 25 3a 3d 28 62 25  21 32 34 29 80 28 31 3c  |,b%:=(b%!24).(1<|
00000b60  3c 32 31 29 0d 03 a2 0a  dd f2 73 61 76 65 0d 03  |<21)......save..|
00000b70  ac 1e e7 a4 73 65 6c 64  28 77 25 2c 31 31 29 3a  |....seld(w%,11):|
00000b80  54 33 25 3d b9 3a 8b 54  33 25 3d a3 0d 03 b6 37  |T3%=.:.T3%=....7|
00000b90  66 69 25 3d ae 22 3c 53  61 76 69 6f 75 72 24 44  |fi%=."<Saviour$D|
00000ba0  69 72 3e 2e 43 6f 6e 66  69 67 22 3a f1 23 66 69  |ir>.Config":.#fi|
00000bb0  25 2c 54 31 25 2c 54 32  25 2c 54 33 25 3a d9 23  |%,T1%,T2%,T3%:.#|
00000bc0  66 69 25 0d 03 c0 3d e7  a4 6c 6f 61 64 65 64 3a  |fi%...=..loaded:|
00000bd0  21 62 25 3d 32 35 36 3a  62 25 21 31 36 3d 30 3a  |!b%=256:b%!16=0:|
00000be0  c8 99 22 57 69 6d 70 5f  53 65 6e 64 4d 65 73 73  |.."Wimp_SendMess|
00000bf0  61 67 65 22 2c 31 37 2c  62 25 2c 73 68 61 6e 25  |age",17,b%,shan%|
00000c00  0d 03 ca 23 ff 22 46 69  6c 65 72 5f 52 75 6e 20  |...#."Filer_Run |
00000c10  3c 53 61 76 69 6f 75 72  24 44 69 72 3e 2e 21 52  |<Saviour$Dir>.!R|
00000c20  75 6e 22 0d 03 d4 08 71  25 3d b9 0d 03 de 05 e1  |un"....q%=......|
00000c30  0d 03 e8 0f dd f2 6d 73  28 6d 73 65 6c 25 29 0d  |......ms(msel%).|
00000c40  03 f2 09 67 79 25 3d a3  0d 03 fc 2a c8 99 22 57  |...gy%=....*.."W|
00000c50  69 6d 70 5f 47 65 74 50  6f 69 6e 74 65 72 49 6e  |imp_GetPointerIn|
00000c60  66 6f 22 2c 2c 62 25 3a  62 75 74 6e 25 3d 62 25  |fo",,b%:butn%=b%|
00000c70  21 38 0d 04 06 4f e7 6d  73 65 6c 25 3d 31 3a 4c  |!8...O.msel%=1:L|
00000c80  41 25 3d a4 6c 6f 61 64  65 64 3a 21 62 25 3d 32  |A%=.loaded:!b%=2|
00000c90  35 36 3a 62 25 21 31 36  3d 30 3a c8 99 22 57 69  |56:b%!16=0:.."Wi|
00000ca0  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
00000cb0  31 37 2c 62 25 2c 73 68  61 6e 25 3a 67 79 25 3d  |17,b%,shan%:gy%=|
00000cc0  b9 0d 04 10 11 e7 6d 73  65 6c 25 3d 32 3a 71 25  |......msel%=2:q%|
00000cd0  3d b9 0d 04 1a 1f e7 62  75 74 6e 25 3d 31 3a f2  |=......butn%=1:.|
00000ce0  6f 70 65 6e 6d 65 6e 75  28 30 2c 30 2c 67 79 25  |openmenu(0,0,gy%|
00000cf0  29 0d 04 24 05 e1 0d 04  2e 1b dd f2 6f 70 65 6e  |)..$........open|
00000d00  6d 65 6e 75 28 6d 78 25  2c 6d 79 25 2c 67 79 25  |menu(mx%,my%,gy%|
00000d10  29 0d 04 38 2b e7 a4 6c  6f 61 64 65 64 3a 6d 25  |)..8+..loaded:m%|
00000d20  21 36 30 3d 26 37 30 30  30 30 32 31 3a 8b 6d 25  |!60=&7000021:.m%|
00000d30  21 36 30 3d 26 37 34 30  30 30 32 31 0d 04 42 19  |!60=&7400021..B.|
00000d40  e7 67 79 25 3d b9 3a 6d  25 21 36 30 3d 26 37 34  |.gy%=.:m%!60=&74|
00000d50  30 30 30 32 31 0d 04 4c  23 c8 99 22 57 69 6d 70  |00021..L#.."Wimp|
00000d60  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 6d 25  |_CreateMenu",,m%|
00000d70  2c 6d 78 25 2c 6d 79 25  0d 04 56 05 e1 0d ff     |,mx%,my%..V....|
00000d7f