�>LiteUtils by Nick Kennedy
S� � !b%=�:$(b%+4)=�$+" at line "+Þ+".":ș"Wimp_ReportError",b%,1,"LiteUtils":�
	�init
(:
2�
<	�poll
F� abl% �utils
P
�quit%
Z(ș"Wimp_CloseDown",handle%,&4B534154
d�
n:
x
��init
�Dș"Wimp_Initialise",200,&4B534154,"LiteUtils" � version%,handle%
�5ș"OS_SWINumberFromString",,"OS_SpriteOp" � spop%
�4�b% 256,m% 320,sname% 15,pass% 20,val% 8,pal% 80
�5sm%=m%+180:ti=0:abl%=�:quit%=�:con%=�:bsp$="Lite"
�4ș "XOS_File",5,"<Lite$Dir>.Sprites" � ,,,,slen%
�� spr% slen%+4
�!spr%=slen%+4
�2ș"OS_SpriteOp",&10A,spr%,"<Lite$Dir>.Sprites"
�W!b%=-1:b%!4=0:b%!8=0:b%!12=68:b%!16=72:b%!20=&310A:b%!24=sname%:b%!28=spr%:b%!32=12
�$sname%=bsp$
�#ș"Wimp_CreateIcon",,b% � Icon%
�vers$="1.06":�loadwindow
��loadstate

�

:

��utils

"alt%=-(�-3�con%)

,mem%=�-3��-2��-52

6go%=�-3��-2��-84

@ȗx%,y%,t%

Jc%=�-26-�-122

Td%=�-42-�-58

^f%=-(�-1-1)*-(3*�-2-1)*alt%

hsx%=-sx%*�mem%-x%*mem%

rsy%=-sy%*�mem%-y%*mem%

|x%=-x%*�go%-sx%*go%

�y%=-y%*�go%-sy%*go%

�3� (alt%�(d%<>0�c%<>0))�go% ȗ�x%+c%*f%,y%+d%*f%

�� �-1��-2��-3��-56 �protect

��

�:

�
��poll

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

�7� $sname%="Fading" � �>=ti $sname%=bsp$:�changeicon

�Ȏ r% �

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

�� 6 : �mouseclick

�� 9 : Ȏ !b% �

�� 1 : con%=�con%
C� 2 : �"IconSprites Resources:$.Resources.Wimp.Sprites":�redraw
� 3 : Ȏ b%!4 �
� -1,0 : �protect
&� 1 : pro%=�pro%
0� 2 : �savestate
:�
D� 4 : quit%=�
N�
X:ș"Wimp_GetPointerInfo",,b%:� b%!8 � 1 �mainmenucreate
b� 17,18 : Ȏ b%!16 �
l� 0 : quit%=�
v� 3 : Ȏ �~(b%!40) �
�.� "FF9" : �"IconSprites "+$(b%+44):�redraw
�&� "2000" : ext%=�:� �:� � � ext%=�
�:� ext% �"IconSprites "+�str(b%+44)+".!Sprites":�redraw
�� �
��
�� &502 : �help(b%!32,b%!36)
��
��
��
�:
���mouseclick
�1t%=b%!8:win%=b%!12:icn%=b%!16:x%=b%!0:y%=b%!4
�� win%=-2 �
Ȏ t% �
� 1,4 :
abl%=�abl%
 ,� bsp$="Lite" bsp$="Faded" � bsp$="Lite"
*($sname%="Fading":ti=�+25:�changeicon
4� 2 : �mainmenucreate
>�
H�
R�
\:
f��changeicon
p$!b%=-2:b%!4=Icon%:b%!8=0:b%!12=0
zș"Wimp_SetIconState",,b%
��
�:
���submenucreate
�-$sm%="Password":p%=sm%+28:$val%="AA-Za-z"
��sm%!12=&70207:sm%!16=200:sm%!20=44:sm%!24=0:p%!0=4:p%!4=-1:p%!8=&7000121+(1<<22)*-�pro%:p%!12=pass%:p%!16=val%:p%!20=18:p%+=24
�>p%!0=�pro%:p%!4=-1:p%!8=&7000021:$(p%+12)="Enabled":p%+=24
�2p%!0=&80:p%!4=-1:p%!8=&7000021:$(p%+12)="Save"
��
�:
���mainmenucreate
��submenucreate
�$m%="LiteUtils"
�4m%!12=&70207:m%!16=200:m%!20=44:m%!24=0:p%=m%+28
9p%!0=0:p%!4=inf%:p%!8=&7000021:$(p%+12)="Info":p%+=24
@p%!0=�con%:p%!4=0:p%!8=&7000021:$(p%+12)="Continuous":p%+=24
Vp%!0=0:p%!4=0:p%!8=&7000021 � ((1<<22)*-(version%<300)):$(p%+12)="Defaults":p%+=24
$;p%!0=0:p%!4=sm%:p%!8=&7000021:$(p%+12)="Protect":p%+=24
.8p%!0=&80:p%!4=0:p%!8=&7000021:$(p%+12)="Quit":p%+=24
8)ș"Wimp_CreateMenu",,m%,x%-70,44*5+96
B�
L:
Vݤstr(loc%)
`1�t$:t$="":ȕ?loc%<>0:t$+=�?loc%:loc%+=1:�:=t$
j:
t
��protect
~
� �pro% �
��!b%=0:$(b%+4)="Are you sure? If you click OK and forget the password '"+$pass%+"' then you will lose all your work.":ș"Wimp_ReportError",b%,23,"Request for confirmation from LiteUtils" � ,status%
�� status%=2 �
�ș"OS_Byte",200,3
���:ȗ�:�
�pass$="":poi%=0:�
�g%=�:�g%>96 g%-=32
�"ps%=pass%?poi%:�ps%>96 ps%-=32
�� g%=ps% poi%+=1 � poi%=0
��poi%>=�$pass%
�ș"OS_Byte",200,0
�"ș"Wimp_SetMode",�:ȗ�:�redraw
��
:

��redraw
Oș"OS_ReadModeVariable",-1,4 � ,,xeig:ș"OS_ReadModeVariable",-1,5 � ,,yeig
Oș"OS_ReadModeVariable",-1,11 � ,,xwi:ș"OS_ReadModeVariable",-1,12 � ,,ywi
(-osx=(xwi<<xeig)+xeig:osy=(ywi<<yeig)+yeig
2'ș"Wimp_ForceRedraw",-1,0,0,osx,osy
<�
F:
P��loadwindow
Z$�in% 1024,ind% 256:ein%=ind%+256
d�ș"Wimp_OpenTemplate",,"<Lite$Dir>.Templates":ș"Wimp_LoadTemplate",,in%,ind%,ein%,-1,"Info",0:in%!24=-1:verv%=in%!(88+32*4+20):$verv%=vers$:ș"Wimp_CreateWindow",,in%�inf%:ș"Wimp_CloseTemplate"
n�
x:
���loadstate
�x%=�("<Lite$Dir>.State")
�pro$=�#x%:pro%=�pro$
�$pass%=�#x%
��#x%
��
�:
���savestate
�x%=�("<Lite$Dir>.State")
��#x%,�pro%
��#x%,$pass%
��#x%
��
:
��help(win%,icn%)

Ȏ win% �
"�� -2 : help$="This is the LiteUtils icon, a general utility program.|MClick SELECT to prevent LiteUtils taking keypresses.|MDrag a spritefile or an application here to iconsprite its sprites."
,F� inf% : help$="This window displays information about LiteUtils."
6�
@Nto%=b%!4:!b%=�help$+4-(�help$ � 4)+20:b%!12=b%!8:b%!16=&503:$(b%+20)=help$
J ș"Wimp_SendMessage",17,b%,0
T�
�

00000000  0d 00 0a 1f f4 3e 4c 69  74 65 55 74 69 6c 73 20  |.....>LiteUtils |
00000010  62 79 20 4e 69 63 6b 20  4b 65 6e 6e 65 64 79 0d  |by Nick Kennedy.|
00000020  00 14 53 ee 20 85 20 21  62 25 3d 9f 3a 24 28 62  |..S. . !b%=.:$(b|
00000030  25 2b 34 29 3d f6 24 2b  22 20 61 74 20 6c 69 6e  |%+4)=.$+" at lin|
00000040  65 20 22 2b c3 9e 2b 22  2e 22 3a c8 99 22 57 69  |e "+..+".":.."Wi|
00000050  6d 70 5f 52 65 70 6f 72  74 45 72 72 6f 72 22 2c  |mp_ReportError",|
00000060  62 25 2c 31 2c 22 4c 69  74 65 55 74 69 6c 73 22  |b%,1,"LiteUtils"|
00000070  3a e0 0d 00 1e 09 f2 69  6e 69 74 0d 00 28 05 3a  |:......init..(.:|
00000080  0d 00 32 05 f5 0d 00 3c  09 f2 70 6f 6c 6c 0d 00  |..2....<..poll..|
00000090  46 11 e7 20 61 62 6c 25  20 f2 75 74 69 6c 73 0d  |F.. abl% .utils.|
000000a0  00 50 0a fd 71 75 69 74  25 0d 00 5a 28 c8 99 22  |.P..quit%..Z(.."|
000000b0  57 69 6d 70 5f 43 6c 6f  73 65 44 6f 77 6e 22 2c  |Wimp_CloseDown",|
000000c0  68 61 6e 64 6c 65 25 2c  26 34 42 35 33 34 31 35  |handle%,&4B53415|
000000d0  34 0d 00 64 05 e0 0d 00  6e 05 3a 0d 00 78 0a dd  |4..d....n.:..x..|
000000e0  f2 69 6e 69 74 0d 00 82  44 c8 99 22 57 69 6d 70  |.init...D.."Wimp|
000000f0  5f 49 6e 69 74 69 61 6c  69 73 65 22 2c 32 30 30  |_Initialise",200|
00000100  2c 26 34 42 35 33 34 31  35 34 2c 22 4c 69 74 65  |,&4B534154,"Lite|
00000110  55 74 69 6c 73 22 20 b8  20 76 65 72 73 69 6f 6e  |Utils" . version|
00000120  25 2c 68 61 6e 64 6c 65  25 0d 00 8c 35 c8 99 22  |%,handle%...5.."|
00000130  4f 53 5f 53 57 49 4e 75  6d 62 65 72 46 72 6f 6d  |OS_SWINumberFrom|
00000140  53 74 72 69 6e 67 22 2c  2c 22 4f 53 5f 53 70 72  |String",,"OS_Spr|
00000150  69 74 65 4f 70 22 20 b8  20 73 70 6f 70 25 0d 00  |iteOp" . spop%..|
00000160  96 34 de 62 25 20 32 35  36 2c 6d 25 20 33 32 30  |.4.b% 256,m% 320|
00000170  2c 73 6e 61 6d 65 25 20  31 35 2c 70 61 73 73 25  |,sname% 15,pass%|
00000180  20 32 30 2c 76 61 6c 25  20 38 2c 70 61 6c 25 20  | 20,val% 8,pal% |
00000190  38 30 0d 00 a0 35 73 6d  25 3d 6d 25 2b 31 38 30  |80...5sm%=m%+180|
000001a0  3a 74 69 3d 30 3a 61 62  6c 25 3d b9 3a 71 75 69  |:ti=0:abl%=.:qui|
000001b0  74 25 3d a3 3a 63 6f 6e  25 3d a3 3a 62 73 70 24  |t%=.:con%=.:bsp$|
000001c0  3d 22 4c 69 74 65 22 0d  00 aa 34 c8 99 20 22 58  |="Lite"...4.. "X|
000001d0  4f 53 5f 46 69 6c 65 22  2c 35 2c 22 3c 4c 69 74  |OS_File",5,"<Lit|
000001e0  65 24 44 69 72 3e 2e 53  70 72 69 74 65 73 22 20  |e$Dir>.Sprites" |
000001f0  b8 20 2c 2c 2c 2c 73 6c  65 6e 25 0d 00 b4 12 de  |. ,,,,slen%.....|
00000200  20 73 70 72 25 20 73 6c  65 6e 25 2b 34 0d 00 be  | spr% slen%+4...|
00000210  11 21 73 70 72 25 3d 73  6c 65 6e 25 2b 34 0d 00  |.!spr%=slen%+4..|
00000220  c8 32 c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |.2.."OS_SpriteOp|
00000230  22 2c 26 31 30 41 2c 73  70 72 25 2c 22 3c 4c 69  |",&10A,spr%,"<Li|
00000240  74 65 24 44 69 72 3e 2e  53 70 72 69 74 65 73 22  |te$Dir>.Sprites"|
00000250  0d 00 d2 57 21 62 25 3d  2d 31 3a 62 25 21 34 3d  |...W!b%=-1:b%!4=|
00000260  30 3a 62 25 21 38 3d 30  3a 62 25 21 31 32 3d 36  |0:b%!8=0:b%!12=6|
00000270  38 3a 62 25 21 31 36 3d  37 32 3a 62 25 21 32 30  |8:b%!16=72:b%!20|
00000280  3d 26 33 31 30 41 3a 62  25 21 32 34 3d 73 6e 61  |=&310A:b%!24=sna|
00000290  6d 65 25 3a 62 25 21 32  38 3d 73 70 72 25 3a 62  |me%:b%!28=spr%:b|
000002a0  25 21 33 32 3d 31 32 0d  00 dc 10 24 73 6e 61 6d  |%!32=12....$snam|
000002b0  65 25 3d 62 73 70 24 0d  00 e6 23 c8 99 22 57 69  |e%=bsp$...#.."Wi|
000002c0  6d 70 5f 43 72 65 61 74  65 49 63 6f 6e 22 2c 2c  |mp_CreateIcon",,|
000002d0  62 25 20 b8 20 49 63 6f  6e 25 0d 00 f0 1c 76 65  |b% . Icon%....ve|
000002e0  72 73 24 3d 22 31 2e 30  36 22 3a f2 6c 6f 61 64  |rs$="1.06":.load|
000002f0  77 69 6e 64 6f 77 0d 00  fa 0e f2 6c 6f 61 64 73  |window.....loads|
00000300  74 61 74 65 0d 01 04 05  e1 0d 01 0e 05 3a 0d 01  |tate.........:..|
00000310  18 0b dd f2 75 74 69 6c  73 0d 01 22 14 61 6c 74  |....utils..".alt|
00000320  25 3d 2d 28 a6 2d 33 84  63 6f 6e 25 29 0d 01 2c  |%=-(.-3.con%)..,|
00000330  15 6d 65 6d 25 3d a6 2d  33 80 a6 2d 32 80 a6 2d  |.mem%=.-3..-2..-|
00000340  35 32 0d 01 36 14 67 6f  25 3d a6 2d 33 80 a6 2d  |52..6.go%=.-3..-|
00000350  32 80 a6 2d 38 34 0d 01  40 0e c8 97 78 25 2c 79  |2..-84..@...x%,y|
00000360  25 2c 74 25 0d 01 4a 11  63 25 3d a6 2d 32 36 2d  |%,t%..J.c%=.-26-|
00000370  a6 2d 31 32 32 0d 01 54  10 64 25 3d a6 2d 34 32  |.-122..T.d%=.-42|
00000380  2d a6 2d 35 38 0d 01 5e  1f 66 25 3d 2d 28 a6 2d  |-.-58..^.f%=-(.-|
00000390  31 2d 31 29 2a 2d 28 33  2a a6 2d 32 2d 31 29 2a  |1-1)*-(3*.-2-1)*|
000003a0  61 6c 74 25 0d 01 68 1a  73 78 25 3d 2d 73 78 25  |alt%..h.sx%=-sx%|
000003b0  2a ac 6d 65 6d 25 2d 78  25 2a 6d 65 6d 25 0d 01  |*.mem%-x%*mem%..|
000003c0  72 1a 73 79 25 3d 2d 73  79 25 2a ac 6d 65 6d 25  |r.sy%=-sy%*.mem%|
000003d0  2d 79 25 2a 6d 65 6d 25  0d 01 7c 17 78 25 3d 2d  |-y%*mem%..|.x%=-|
000003e0  78 25 2a ac 67 6f 25 2d  73 78 25 2a 67 6f 25 0d  |x%*.go%-sx%*go%.|
000003f0  01 86 17 79 25 3d 2d 79  25 2a ac 67 6f 25 2d 73  |...y%=-y%*.go%-s|
00000400  79 25 2a 67 6f 25 0d 01  90 33 e7 20 28 61 6c 74  |y%*go%...3. (alt|
00000410  25 80 28 64 25 3c 3e 30  84 63 25 3c 3e 30 29 29  |%.(d%<>0.c%<>0))|
00000420  84 67 6f 25 20 c8 97 b8  78 25 2b 63 25 2a 66 25  |.go% ...x%+c%*f%|
00000430  2c 79 25 2b 64 25 2a 66  25 0d 01 9a 1f e7 20 a6  |,y%+d%*f%..... .|
00000440  2d 31 80 a6 2d 32 80 a6  2d 33 80 a6 2d 35 36 20  |-1..-2..-3..-56 |
00000450  f2 70 72 6f 74 65 63 74  0d 01 a4 05 e1 0d 01 ae  |.protect........|
00000460  05 3a 0d 01 b8 0a dd f2  70 6f 6c 6c 0d 01 c2 19  |.:......poll....|
00000470  c8 99 22 57 69 6d 70 5f  50 6f 6c 6c 22 2c 2c 62  |.."Wimp_Poll",,b|
00000480  25 20 b8 72 25 0d 01 cc  37 e7 20 24 73 6e 61 6d  |% .r%...7. $snam|
00000490  65 25 3d 22 46 61 64 69  6e 67 22 20 80 20 91 3e  |e%="Fading" . .>|
000004a0  3d 74 69 20 24 73 6e 61  6d 65 25 3d 62 73 70 24  |=ti $sname%=bsp$|
000004b0  3a f2 63 68 61 6e 67 65  69 63 6f 6e 0d 01 d6 0b  |:.changeicon....|
000004c0  c8 8e 20 72 25 20 ca 0d  01 e0 21 c9 20 32 20 3a  |.. r% ....!. 2 :|
000004d0  20 c8 99 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  | .."Wimp_OpenWin|
000004e0  64 6f 77 22 2c 2c 62 25  0d 01 ea 15 c9 20 36 20  |dow",,b%..... 6 |
000004f0  3a 20 f2 6d 6f 75 73 65  63 6c 69 63 6b 0d 01 f4  |: .mouseclick...|
00000500  12 c9 20 39 20 3a 20 c8  8e 20 21 62 25 20 ca 0d  |.. 9 : .. !b% ..|
00000510  01 fe 14 c9 20 31 20 3a  20 63 6f 6e 25 3d ac 63  |.... 1 : con%=.c|
00000520  6f 6e 25 0d 02 08 43 c9  20 32 20 3a 20 ff 22 49  |on%...C. 2 : ."I|
00000530  63 6f 6e 53 70 72 69 74  65 73 20 52 65 73 6f 75  |conSprites Resou|
00000540  72 63 65 73 3a 24 2e 52  65 73 6f 75 72 63 65 73  |rces:$.Resources|
00000550  2e 57 69 6d 70 2e 53 70  72 69 74 65 73 22 3a f2  |.Wimp.Sprites":.|
00000560  72 65 64 72 61 77 0d 02  12 13 c9 20 33 20 3a 20  |redraw..... 3 : |
00000570  c8 8e 20 62 25 21 34 20  ca 0d 02 1c 15 c9 20 2d  |.. b%!4 ...... -|
00000580  31 2c 30 20 3a 20 f2 70  72 6f 74 65 63 74 0d 02  |1,0 : .protect..|
00000590  26 14 c9 20 31 20 3a 20  70 72 6f 25 3d ac 70 72  |&.. 1 : pro%=.pr|
000005a0  6f 25 0d 02 30 14 c9 20  32 20 3a 20 f2 73 61 76  |o%..0.. 2 : .sav|
000005b0  65 73 74 61 74 65 0d 02  3a 05 cb 0d 02 44 11 c9  |estate..:....D..|
000005c0  20 34 20 3a 20 71 75 69  74 25 3d b9 0d 02 4e 05  | 4 : quit%=...N.|
000005d0  cb 0d 02 58 3a c8 99 22  57 69 6d 70 5f 47 65 74  |...X:.."Wimp_Get|
000005e0  50 6f 69 6e 74 65 72 49  6e 66 6f 22 2c 2c 62 25  |PointerInfo",,b%|
000005f0  3a e7 20 62 25 21 38 20  80 20 31 20 f2 6d 61 69  |:. b%!8 . 1 .mai|
00000600  6e 6d 65 6e 75 63 72 65  61 74 65 0d 02 62 18 c9  |nmenucreate..b..|
00000610  20 31 37 2c 31 38 20 3a  20 c8 8e 20 62 25 21 31  | 17,18 : .. b%!1|
00000620  36 20 ca 0d 02 6c 11 c9  20 30 20 3a 20 71 75 69  |6 ...l.. 0 : qui|
00000630  74 25 3d b9 0d 02 76 18  c9 20 33 20 3a 20 c8 8e  |t%=...v.. 3 : ..|
00000640  20 c3 7e 28 62 25 21 34  30 29 20 ca 0d 02 80 2e  | .~(b%!40) .....|
00000650  c9 20 22 46 46 39 22 20  3a 20 ff 22 49 63 6f 6e  |. "FF9" : ."Icon|
00000660  53 70 72 69 74 65 73 20  22 2b 24 28 62 25 2b 34  |Sprites "+$(b%+4|
00000670  34 29 3a f2 72 65 64 72  61 77 0d 02 8a 26 c9 20  |4):.redraw...&. |
00000680  22 32 30 30 30 22 20 3a  20 65 78 74 25 3d b9 3a  |"2000" : ext%=.:|
00000690  ea 20 85 3a ee 20 85 20  ea 20 65 78 74 25 3d a3  |. .:. . . ext%=.|
000006a0  0d 02 94 3a e7 20 65 78  74 25 20 ff 22 49 63 6f  |...:. ext% ."Ico|
000006b0  6e 53 70 72 69 74 65 73  20 22 2b a4 73 74 72 28  |nSprites "+.str(|
000006c0  62 25 2b 34 34 29 2b 22  2e 21 53 70 72 69 74 65  |b%+44)+".!Sprite|
000006d0  73 22 3a f2 72 65 64 72  61 77 0d 02 9e 07 f7 20  |s":.redraw..... |
000006e0  85 0d 02 a8 05 cb 0d 02  b2 1f c9 20 26 35 30 32  |........... &502|
000006f0  20 3a 20 f2 68 65 6c 70  28 62 25 21 33 32 2c 62  | : .help(b%!32,b|
00000700  25 21 33 36 29 0d 02 bc  05 cb 0d 02 c6 05 cb 0d  |%!36)...........|
00000710  02 d0 05 e1 0d 02 da 05  3a 0d 02 e4 10 dd f2 6d  |........:......m|
00000720  6f 75 73 65 63 6c 69 63  6b 0d 02 ee 31 74 25 3d  |ouseclick...1t%=|
00000730  62 25 21 38 3a 77 69 6e  25 3d 62 25 21 31 32 3a  |b%!8:win%=b%!12:|
00000740  69 63 6e 25 3d 62 25 21  31 36 3a 78 25 3d 62 25  |icn%=b%!16:x%=b%|
00000750  21 30 3a 79 25 3d 62 25  21 34 0d 02 f8 0f e7 20  |!0:y%=b%!4..... |
00000760  77 69 6e 25 3d 2d 32 20  8c 0d 03 02 0b c8 8e 20  |win%=-2 ....... |
00000770  74 25 20 ca 0d 03 0c 0b  c9 20 31 2c 34 20 3a 0d  |t% ...... 1,4 :.|
00000780  03 16 0e 61 62 6c 25 3d  ac 61 62 6c 25 0d 03 20  |...abl%=.abl%.. |
00000790  2c e7 20 62 73 70 24 3d  22 4c 69 74 65 22 20 62  |,. bsp$="Lite" b|
000007a0  73 70 24 3d 22 46 61 64  65 64 22 20 8b 20 62 73  |sp$="Faded" . bs|
000007b0  70 24 3d 22 4c 69 74 65  22 0d 03 2a 28 24 73 6e  |p$="Lite"..*($sn|
000007c0  61 6d 65 25 3d 22 46 61  64 69 6e 67 22 3a 74 69  |ame%="Fading":ti|
000007d0  3d 91 2b 32 35 3a f2 63  68 61 6e 67 65 69 63 6f  |=.+25:.changeico|
000007e0  6e 0d 03 34 19 c9 20 32  20 3a 20 f2 6d 61 69 6e  |n..4.. 2 : .main|
000007f0  6d 65 6e 75 63 72 65 61  74 65 0d 03 3e 05 cb 0d  |menucreate..>...|
00000800  03 48 05 cd 0d 03 52 05  e1 0d 03 5c 05 3a 0d 03  |.H....R....\.:..|
00000810  66 10 dd f2 63 68 61 6e  67 65 69 63 6f 6e 0d 03  |f...changeicon..|
00000820  70 24 21 62 25 3d 2d 32  3a 62 25 21 34 3d 49 63  |p$!b%=-2:b%!4=Ic|
00000830  6f 6e 25 3a 62 25 21 38  3d 30 3a 62 25 21 31 32  |on%:b%!8=0:b%!12|
00000840  3d 30 0d 03 7a 1d c8 99  22 57 69 6d 70 5f 53 65  |=0..z..."Wimp_Se|
00000850  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 62 25 0d  |tIconState",,b%.|
00000860  03 84 05 e1 0d 03 8e 05  3a 0d 03 98 13 dd f2 73  |........:......s|
00000870  75 62 6d 65 6e 75 63 72  65 61 74 65 0d 03 a2 2d  |ubmenucreate...-|
00000880  24 73 6d 25 3d 22 50 61  73 73 77 6f 72 64 22 3a  |$sm%="Password":|
00000890  70 25 3d 73 6d 25 2b 32  38 3a 24 76 61 6c 25 3d  |p%=sm%+28:$val%=|
000008a0  22 41 41 2d 5a 61 2d 7a  22 0d 03 ac 82 73 6d 25  |"AA-Za-z"....sm%|
000008b0  21 31 32 3d 26 37 30 32  30 37 3a 73 6d 25 21 31  |!12=&70207:sm%!1|
000008c0  36 3d 32 30 30 3a 73 6d  25 21 32 30 3d 34 34 3a  |6=200:sm%!20=44:|
000008d0  73 6d 25 21 32 34 3d 30  3a 70 25 21 30 3d 34 3a  |sm%!24=0:p%!0=4:|
000008e0  70 25 21 34 3d 2d 31 3a  70 25 21 38 3d 26 37 30  |p%!4=-1:p%!8=&70|
000008f0  30 30 31 32 31 2b 28 31  3c 3c 32 32 29 2a 2d ac  |00121+(1<<22)*-.|
00000900  70 72 6f 25 3a 70 25 21  31 32 3d 70 61 73 73 25  |pro%:p%!12=pass%|
00000910  3a 70 25 21 31 36 3d 76  61 6c 25 3a 70 25 21 32  |:p%!16=val%:p%!2|
00000920  30 3d 31 38 3a 70 25 2b  3d 32 34 0d 03 b6 3e 70  |0=18:p%+=24...>p|
00000930  25 21 30 3d 94 70 72 6f  25 3a 70 25 21 34 3d 2d  |%!0=.pro%:p%!4=-|
00000940  31 3a 70 25 21 38 3d 26  37 30 30 30 30 32 31 3a  |1:p%!8=&7000021:|
00000950  24 28 70 25 2b 31 32 29  3d 22 45 6e 61 62 6c 65  |$(p%+12)="Enable|
00000960  64 22 3a 70 25 2b 3d 32  34 0d 03 c0 32 70 25 21  |d":p%+=24...2p%!|
00000970  30 3d 26 38 30 3a 70 25  21 34 3d 2d 31 3a 70 25  |0=&80:p%!4=-1:p%|
00000980  21 38 3d 26 37 30 30 30  30 32 31 3a 24 28 70 25  |!8=&7000021:$(p%|
00000990  2b 31 32 29 3d 22 53 61  76 65 22 0d 03 ca 05 e1  |+12)="Save".....|
000009a0  0d 03 d4 05 3a 0d 03 de  14 dd f2 6d 61 69 6e 6d  |....:......mainm|
000009b0  65 6e 75 63 72 65 61 74  65 0d 03 e8 12 f2 73 75  |enucreate.....su|
000009c0  62 6d 65 6e 75 63 72 65  61 74 65 0d 03 f2 13 24  |bmenucreate....$|
000009d0  6d 25 3d 22 4c 69 74 65  55 74 69 6c 73 22 0d 03  |m%="LiteUtils"..|
000009e0  fc 34 6d 25 21 31 32 3d  26 37 30 32 30 37 3a 6d  |.4m%!12=&70207:m|
000009f0  25 21 31 36 3d 32 30 30  3a 6d 25 21 32 30 3d 34  |%!16=200:m%!20=4|
00000a00  34 3a 6d 25 21 32 34 3d  30 3a 70 25 3d 6d 25 2b  |4:m%!24=0:p%=m%+|
00000a10  32 38 0d 04 06 39 70 25  21 30 3d 30 3a 70 25 21  |28...9p%!0=0:p%!|
00000a20  34 3d 69 6e 66 25 3a 70  25 21 38 3d 26 37 30 30  |4=inf%:p%!8=&700|
00000a30  30 30 32 31 3a 24 28 70  25 2b 31 32 29 3d 22 49  |0021:$(p%+12)="I|
00000a40  6e 66 6f 22 3a 70 25 2b  3d 32 34 0d 04 10 40 70  |nfo":p%+=24...@p|
00000a50  25 21 30 3d 94 63 6f 6e  25 3a 70 25 21 34 3d 30  |%!0=.con%:p%!4=0|
00000a60  3a 70 25 21 38 3d 26 37  30 30 30 30 32 31 3a 24  |:p%!8=&7000021:$|
00000a70  28 70 25 2b 31 32 29 3d  22 43 6f 6e 74 69 6e 75  |(p%+12)="Continu|
00000a80  6f 75 73 22 3a 70 25 2b  3d 32 34 0d 04 1a 56 70  |ous":p%+=24...Vp|
00000a90  25 21 30 3d 30 3a 70 25  21 34 3d 30 3a 70 25 21  |%!0=0:p%!4=0:p%!|
00000aa0  38 3d 26 37 30 30 30 30  32 31 20 84 20 28 28 31  |8=&7000021 . ((1|
00000ab0  3c 3c 32 32 29 2a 2d 28  76 65 72 73 69 6f 6e 25  |<<22)*-(version%|
00000ac0  3c 33 30 30 29 29 3a 24  28 70 25 2b 31 32 29 3d  |<300)):$(p%+12)=|
00000ad0  22 44 65 66 61 75 6c 74  73 22 3a 70 25 2b 3d 32  |"Defaults":p%+=2|
00000ae0  34 0d 04 24 3b 70 25 21  30 3d 30 3a 70 25 21 34  |4..$;p%!0=0:p%!4|
00000af0  3d 73 6d 25 3a 70 25 21  38 3d 26 37 30 30 30 30  |=sm%:p%!8=&70000|
00000b00  32 31 3a 24 28 70 25 2b  31 32 29 3d 22 50 72 6f  |21:$(p%+12)="Pro|
00000b10  74 65 63 74 22 3a 70 25  2b 3d 32 34 0d 04 2e 38  |tect":p%+=24...8|
00000b20  70 25 21 30 3d 26 38 30  3a 70 25 21 34 3d 30 3a  |p%!0=&80:p%!4=0:|
00000b30  70 25 21 38 3d 26 37 30  30 30 30 32 31 3a 24 28  |p%!8=&7000021:$(|
00000b40  70 25 2b 31 32 29 3d 22  51 75 69 74 22 3a 70 25  |p%+12)="Quit":p%|
00000b50  2b 3d 32 34 0d 04 38 29  c8 99 22 57 69 6d 70 5f  |+=24..8).."Wimp_|
00000b60  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 6d 25 2c  |CreateMenu",,m%,|
00000b70  78 25 2d 37 30 2c 34 34  2a 35 2b 39 36 0d 04 42  |x%-70,44*5+96..B|
00000b80  05 e1 0d 04 4c 05 3a 0d  04 56 0f dd a4 73 74 72  |....L.:..V...str|
00000b90  28 6c 6f 63 25 29 0d 04  60 31 ea 74 24 3a 74 24  |(loc%)..`1.t$:t$|
00000ba0  3d 22 22 3a c8 95 3f 6c  6f 63 25 3c 3e 30 3a 74  |="":..?loc%<>0:t|
00000bb0  24 2b 3d bd 3f 6c 6f 63  25 3a 6c 6f 63 25 2b 3d  |$+=.?loc%:loc%+=|
00000bc0  31 3a ce 3a 3d 74 24 0d  04 6a 05 3a 0d 04 74 0d  |1:.:=t$..j.:..t.|
00000bd0  dd f2 70 72 6f 74 65 63  74 0d 04 7e 0d e7 20 ac  |..protect..~.. .|
00000be0  70 72 6f 25 20 e1 0d 04  88 c8 21 62 25 3d 30 3a  |pro% .....!b%=0:|
00000bf0  24 28 62 25 2b 34 29 3d  22 41 72 65 20 79 6f 75  |$(b%+4)="Are you|
00000c00  20 73 75 72 65 3f 20 49  66 20 79 6f 75 20 63 6c  | sure? If you cl|
00000c10  69 63 6b 20 4f 4b 20 61  6e 64 20 66 6f 72 67 65  |ick OK and forge|
00000c20  74 20 74 68 65 20 70 61  73 73 77 6f 72 64 20 27  |t the password '|
00000c30  22 2b 24 70 61 73 73 25  2b 22 27 20 74 68 65 6e  |"+$pass%+"' then|
00000c40  20 79 6f 75 20 77 69 6c  6c 20 6c 6f 73 65 20 61  | you will lose a|
00000c50  6c 6c 20 79 6f 75 72 20  77 6f 72 6b 2e 22 3a c8  |ll your work.":.|
00000c60  99 22 57 69 6d 70 5f 52  65 70 6f 72 74 45 72 72  |."Wimp_ReportErr|
00000c70  6f 72 22 2c 62 25 2c 32  33 2c 22 52 65 71 75 65  |or",b%,23,"Reque|
00000c80  73 74 20 66 6f 72 20 63  6f 6e 66 69 72 6d 61 74  |st for confirmat|
00000c90  69 6f 6e 20 66 72 6f 6d  20 4c 69 74 65 55 74 69  |ion from LiteUti|
00000ca0  6c 73 22 20 b8 20 2c 73  74 61 74 75 73 25 0d 04  |ls" . ,status%..|
00000cb0  92 11 e7 20 73 74 61 74  75 73 25 3d 32 20 e1 0d  |... status%=2 ..|
00000cc0  04 9c 15 c8 99 22 4f 53  5f 42 79 74 65 22 2c 32  |....."OS_Byte",2|
00000cd0  30 30 2c 33 0d 04 a6 0c  eb eb 3a c8 97 87 3a 87  |00,3......:...:.|
00000ce0  0d 04 b0 15 70 61 73 73  24 3d 22 22 3a 70 6f 69  |....pass$="":poi|
00000cf0  25 3d 30 3a f5 0d 04 ba  16 67 25 3d a5 3a e7 67  |%=0:.....g%=.:.g|
00000d00  25 3e 39 36 20 67 25 2d  3d 33 32 0d 04 c4 22 70  |%>96 g%-=32..."p|
00000d10  73 25 3d 70 61 73 73 25  3f 70 6f 69 25 3a e7 70  |s%=pass%?poi%:.p|
00000d20  73 25 3e 39 36 20 70 73  25 2d 3d 33 32 0d 04 ce  |s%>96 ps%-=32...|
00000d30  1d e7 20 67 25 3d 70 73  25 20 70 6f 69 25 2b 3d  |.. g%=ps% poi%+=|
00000d40  31 20 8b 20 70 6f 69 25  3d 30 0d 04 d8 12 fd 70  |1 . poi%=0.....p|
00000d50  6f 69 25 3e 3d a9 24 70  61 73 73 25 0d 04 e2 15  |oi%>=.$pass%....|
00000d60  c8 99 22 4f 53 5f 42 79  74 65 22 2c 32 30 30 2c  |.."OS_Byte",200,|
00000d70  30 0d 04 ec 22 c8 99 22  57 69 6d 70 5f 53 65 74  |0...".."Wimp_Set|
00000d80  4d 6f 64 65 22 2c eb 3a  c8 97 ee 3a f2 72 65 64  |Mode",.:...:.red|
00000d90  72 61 77 0d 04 f6 05 e1  0d 05 00 05 3a 0d 05 0a  |raw.........:...|
00000da0  0c dd f2 72 65 64 72 61  77 0d 05 14 4f c8 99 22  |...redraw...O.."|
00000db0  4f 53 5f 52 65 61 64 4d  6f 64 65 56 61 72 69 61  |OS_ReadModeVaria|
00000dc0  62 6c 65 22 2c 2d 31 2c  34 20 b8 20 2c 2c 78 65  |ble",-1,4 . ,,xe|
00000dd0  69 67 3a c8 99 22 4f 53  5f 52 65 61 64 4d 6f 64  |ig:.."OS_ReadMod|
00000de0  65 56 61 72 69 61 62 6c  65 22 2c 2d 31 2c 35 20  |eVariable",-1,5 |
00000df0  b8 20 2c 2c 79 65 69 67  0d 05 1e 4f c8 99 22 4f  |. ,,yeig...O.."O|
00000e00  53 5f 52 65 61 64 4d 6f  64 65 56 61 72 69 61 62  |S_ReadModeVariab|
00000e10  6c 65 22 2c 2d 31 2c 31  31 20 b8 20 2c 2c 78 77  |le",-1,11 . ,,xw|
00000e20  69 3a c8 99 22 4f 53 5f  52 65 61 64 4d 6f 64 65  |i:.."OS_ReadMode|
00000e30  56 61 72 69 61 62 6c 65  22 2c 2d 31 2c 31 32 20  |Variable",-1,12 |
00000e40  b8 20 2c 2c 79 77 69 0d  05 28 2d 6f 73 78 3d 28  |. ,,ywi..(-osx=(|
00000e50  78 77 69 3c 3c 78 65 69  67 29 2b 78 65 69 67 3a  |xwi<<xeig)+xeig:|
00000e60  6f 73 79 3d 28 79 77 69  3c 3c 79 65 69 67 29 2b  |osy=(ywi<<yeig)+|
00000e70  79 65 69 67 0d 05 32 27  c8 99 22 57 69 6d 70 5f  |yeig..2'.."Wimp_|
00000e80  46 6f 72 63 65 52 65 64  72 61 77 22 2c 2d 31 2c  |ForceRedraw",-1,|
00000e90  30 2c 30 2c 6f 73 78 2c  6f 73 79 0d 05 3c 05 e1  |0,0,osx,osy..<..|
00000ea0  0d 05 46 05 3a 0d 05 50  10 dd f2 6c 6f 61 64 77  |..F.:..P...loadw|
00000eb0  69 6e 64 6f 77 0d 05 5a  24 de 69 6e 25 20 31 30  |indow..Z$.in% 10|
00000ec0  32 34 2c 69 6e 64 25 20  32 35 36 3a 65 69 6e 25  |24,ind% 256:ein%|
00000ed0  3d 69 6e 64 25 2b 32 35  36 0d 05 64 c7 c8 99 22  |=ind%+256..d..."|
00000ee0  57 69 6d 70 5f 4f 70 65  6e 54 65 6d 70 6c 61 74  |Wimp_OpenTemplat|
00000ef0  65 22 2c 2c 22 3c 4c 69  74 65 24 44 69 72 3e 2e  |e",,"<Lite$Dir>.|
00000f00  54 65 6d 70 6c 61 74 65  73 22 3a c8 99 22 57 69  |Templates":.."Wi|
00000f10  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
00000f20  2c 2c 69 6e 25 2c 69 6e  64 25 2c 65 69 6e 25 2c  |,,in%,ind%,ein%,|
00000f30  2d 31 2c 22 49 6e 66 6f  22 2c 30 3a 69 6e 25 21  |-1,"Info",0:in%!|
00000f40  32 34 3d 2d 31 3a 76 65  72 76 25 3d 69 6e 25 21  |24=-1:verv%=in%!|
00000f50  28 38 38 2b 33 32 2a 34  2b 32 30 29 3a 24 76 65  |(88+32*4+20):$ve|
00000f60  72 76 25 3d 76 65 72 73  24 3a c8 99 22 57 69 6d  |rv%=vers$:.."Wim|
00000f70  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
00000f80  2c 69 6e 25 b8 69 6e 66  25 3a c8 99 22 57 69 6d  |,in%.inf%:.."Wim|
00000f90  70 5f 43 6c 6f 73 65 54  65 6d 70 6c 61 74 65 22  |p_CloseTemplate"|
00000fa0  0d 05 6e 05 e1 0d 05 78  05 3a 0d 05 82 0f dd f2  |..n....x.:......|
00000fb0  6c 6f 61 64 73 74 61 74  65 0d 05 8c 1c 78 25 3d  |loadstate....x%=|
00000fc0  8e 28 22 3c 4c 69 74 65  24 44 69 72 3e 2e 53 74  |.("<Lite$Dir>.St|
00000fd0  61 74 65 22 29 0d 05 96  18 70 72 6f 24 3d be 23  |ate")....pro$=.#|
00000fe0  78 25 3a 70 72 6f 25 3d  a0 70 72 6f 24 0d 05 a0  |x%:pro%=.pro$...|
00000ff0  0f 24 70 61 73 73 25 3d  be 23 78 25 0d 05 aa 08  |.$pass%=.#x%....|
00001000  d9 23 78 25 0d 05 b4 05  e1 0d 05 be 05 3a 0d 05  |.#x%.........:..|
00001010  c8 0f dd f2 73 61 76 65  73 74 61 74 65 0d 05 d2  |....savestate...|
00001020  1c 78 25 3d ae 28 22 3c  4c 69 74 65 24 44 69 72  |.x%=.("<Lite$Dir|
00001030  3e 2e 53 74 61 74 65 22  29 0d 05 dc 0e d5 23 78  |>.State").....#x|
00001040  25 2c c3 70 72 6f 25 0d  05 e6 0f d5 23 78 25 2c  |%,.pro%.....#x%,|
00001050  24 70 61 73 73 25 0d 05  f0 08 d9 23 78 25 0d 05  |$pass%.....#x%..|
00001060  fa 05 e1 0d 06 04 05 3a  0d 06 0e 15 dd f2 68 65  |.......:......he|
00001070  6c 70 28 77 69 6e 25 2c  69 63 6e 25 29 0d 06 18  |lp(win%,icn%)...|
00001080  0d c8 8e 20 77 69 6e 25  20 ca 0d 06 22 c4 c9 20  |... win% ...".. |
00001090  2d 32 20 3a 20 68 65 6c  70 24 3d 22 54 68 69 73  |-2 : help$="This|
000010a0  20 69 73 20 74 68 65 20  4c 69 74 65 55 74 69 6c  | is the LiteUtil|
000010b0  73 20 69 63 6f 6e 2c 20  61 20 67 65 6e 65 72 61  |s icon, a genera|
000010c0  6c 20 75 74 69 6c 69 74  79 20 70 72 6f 67 72 61  |l utility progra|
000010d0  6d 2e 7c 4d 43 6c 69 63  6b 20 53 45 4c 45 43 54  |m.|MClick SELECT|
000010e0  20 74 6f 20 70 72 65 76  65 6e 74 20 4c 69 74 65  | to prevent Lite|
000010f0  55 74 69 6c 73 20 74 61  6b 69 6e 67 20 6b 65 79  |Utils taking key|
00001100  70 72 65 73 73 65 73 2e  7c 4d 44 72 61 67 20 61  |presses.|MDrag a|
00001110  20 73 70 72 69 74 65 66  69 6c 65 20 6f 72 20 61  | spritefile or a|
00001120  6e 20 61 70 70 6c 69 63  61 74 69 6f 6e 20 68 65  |n application he|
00001130  72 65 20 74 6f 20 69 63  6f 6e 73 70 72 69 74 65  |re to iconsprite|
00001140  20 69 74 73 20 73 70 72  69 74 65 73 2e 22 0d 06  | its sprites."..|
00001150  2c 46 c9 20 69 6e 66 25  20 3a 20 68 65 6c 70 24  |,F. inf% : help$|
00001160  3d 22 54 68 69 73 20 77  69 6e 64 6f 77 20 64 69  |="This window di|
00001170  73 70 6c 61 79 73 20 69  6e 66 6f 72 6d 61 74 69  |splays informati|
00001180  6f 6e 20 61 62 6f 75 74  20 4c 69 74 65 55 74 69  |on about LiteUti|
00001190  6c 73 2e 22 0d 06 36 05  cb 0d 06 40 4e 74 6f 25  |ls."..6....@Nto%|
000011a0  3d 62 25 21 34 3a 21 62  25 3d a9 68 65 6c 70 24  |=b%!4:!b%=.help$|
000011b0  2b 34 2d 28 a9 68 65 6c  70 24 20 83 20 34 29 2b  |+4-(.help$ . 4)+|
000011c0  32 30 3a 62 25 21 31 32  3d 62 25 21 38 3a 62 25  |20:b%!12=b%!8:b%|
000011d0  21 31 36 3d 26 35 30 33  3a 24 28 62 25 2b 32 30  |!16=&503:$(b%+20|
000011e0  29 3d 68 65 6c 70 24 0d  06 4a 20 c8 99 22 57 69  |)=help$..J .."Wi|
000011f0  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
00001200  31 37 2c 62 25 2c 30 0d  06 54 05 e1 0d ff        |17,b%,0..T....|
0000120e