� >G*.!Setty*.!RunImage
� By Ian '92
%� Who needs WindowManager 3.00 !?
:
!Version$="3.10 (26 Apr 1992)"
(:
2��basicerror
<	�init
F��wimperror
P:
Z�ș"Wimp_Poll",0,bk � poll%
dȎ poll% �
n� 1     : �redraw(bk)
x;� 2     : ș"Wimp_OpenWindow",,bk:� !bk=type% � open=-1
�B� 3     : ș"Wimp_CloseWindow",,bk:� !bk=type% � open=0:�grey2
�� 6     : �buttons(bk)
�� 8     : �keys
�� 11    : �grey2
�� 12    : �cream
�� 17,18 : �message(bk)
��
��quit%:ș"Wimp_CloseDown":�
�:
���buttons(b)
�$� bk!12<>menu � bk!12<>info �off
�� bk!12=-2 �
�6� b!8 � 2 � ș "Wimp_CreateMenu",,menu,!b-64,226:�

� b!8 � 4 � �cen(type%)

�

Ȏ bk!12 �

"
� type% :

,6� b!8 � 2 � ș "Wimp_CreateMenu",,menu,!b-64,b!4:�

6� b!8 � 4 � p=1 � p=4

@Ȏ bk!16 �

J� 3 : type+=p:�alterwindow

T� 5 : type-=p:�alterwindow

^P� 9:!bk=type%:ș "Wimp_GetWindowState",,bk:bk!28=-2:ș "Wimp_OpenWindow",,bk

h2� 8:!bk=type%:ș "Wimp_CloseWindow",,bk:�grey2

r^� 7:�off:bk!4=type%:ș "Wimp_GetWindowOutline",,bk+4:!bk=type%:bk!4=1:ș"Wimp_DragBox",,bk

|�

�� menu:

�Ȏ bk!16 �

�\� 0:�off:bk!4=menu:ș "Wimp_GetWindowOutline",,bk+4:!bk=menu:bk!4=1:ș"Wimp_DragBox",,bk

�-� 3:�hi(3,1):� bk!8>0 � �flick(3):quit%=�

��� 4:�hi(1,3):!z=menu:ș"Wimp_GetWindowState",,z:bk!24=z!12-28:bk!28=z!16-50:bk!20=info:bk!32=0:bk!36=-1:ș"Wimp_CreateSubMenu",,info,bk!24,bk!28

�H� 1:�hi(1,3):� bk!8>0 � �flick(1):ș"Wimp_CreateMenu",,info,!bk,bk!4

��

�� info:

�Ȏ bk!16 �

�Z� 0,11:bk!4=info:ș "Wimp_GetWindowOutline",,bk+4:!bk=info:bk!4=1:ș"Wimp_DragBox",,bk

��

��

��
:
3��poke(window,icon,text$):bk!0=window:bk!4=icon
Cș"Wimp_GetIconState",,bk:bk!8=0:bk!12=0:ptr%=bk!28:$ptr%=text$
&ș"Wimp_SetIconState",,bk:�
0:
:
��keys
DH� (!bk=type% � bk!24=13) � type=�("&"+�peek(type%,2)):�alterwindow:�
Nș "Wimp_ProcessKey",bk!24
X�
b:
lݤvar(P%):�m$:m$=""
v"ȕ ?P%>31:m$+=�?P%:P%+=1:�:=m$
�:
�$��basicerror:ș"Hourglass_Smash"
�$�0:�:�12,12);�$;" at line ";�:�
�:
�5��wimperror:�"Pointer 1":ș"Hourglass_Smash":�3,6
�
� �=255 �
�$(bk+4)=�$
�(ș"Wimp_ReportError",bk,1,"Settyper"
��
�?$(bk+4)=�$+" (internal error code "+Þ+") (Cancel to Quit)"
�2ș"Wimp_ReportError",bk,3,"Settyper" � ,button
�$� button<>1 ș"Wimp_CloseDown":�
��
�
:
��message(b)
 
Ȏ b!16 �
*� 0:quit%=�
48� 3:� bk!24=4 �loadack:�gettype � �loadack:�dataload
>&� &400C1:�alterwindow:�getmodeinfo
H@� &400C3:� open �alterwindow:� In case of different icons!!!
R�
\�
f:
pB��loadack:bk!12=bk!8:bk!16=4:ș"Wimp_SendMessage",17,bk,bk!4:�
z:
�3��dataload:Load$="":a%=0:�:Load$+=�(bk?(44+a%))
�*a%+=1:� bk?(44+a%)=0:�settype(Load$):�
�:
���gettype:type=bk!40
�2� type=&1000 � � 255,"Can't be a directory!":�
�5� type=&2000 � � 255,"Can't be an Application!":�
�� type=&3000 � type=0
�1�alterwindow:�1,-15,200,10:�1,-15,163,10,14:�
�:
�ݤtype(type):� T
�� �
�� � � � �:="Undefined"
��T=0�48�4:V%!T=&0D0D0D0D:�
@ș "OS_ReadVarVal","File$Type_"+�s(type),V%,48 � ,n$:� �:=n$
:
ݤpeek(window,icon)
$=bk!0=window:bk!4=icon:ș"Wimp_GetIconState",,bk:=$(bk!28)
.:
85��alterwindow:� type>&FFF � type=&FFF:�7:�mouse:�
B!� type<0 � type=0:�7:�mouse:�
L<S$=�s(type):�poke(type%,2,S$):�poke(type%,6,�type(type))
V�poke(type%,4,"Blanko!")
`;� �peek(type%,2)<>"Undefined" �poke(type%,4,"File_"+S$)
j�
t:
~1��settype(f$):ș 5,"Settype "+f$+" "+�~type:�
�:
�ݤs(file):=�"000"+�~file,3)
�:
���redraw(bk):handle%=!bk
�&ș "Wimp_RedrawWindow",,bk � more%
�ȕ more%
�*!bk=handle%:ș "Wimp_BorderWindow",,bk
�&ș "Wimp_GetRectangle",,bk � more%
��
��
�:
�!��mouse:ȗ X,Y,Z:ȗȓ X,Y,0,0
 �ȗX,Y,Z:�Z=0:�"Pointer 1":�

:
��init:Wara=2000:open=0
I� bk &2000,N% 32,icn% Wara,point% 1024,Wind_Title 60,t%4,V% 100,z 256
(=$t%="TASK":ș"Wimp_Initialise",200,!t%,"SetTyper":quit%=�
2GP%=bk:[OPT0:DCD-1:DCD0:DCD0:DCD68:DCD70:DCD&3002:DCB "!Settyper"+�0
<D]:type=&FFF:nxt%=icn%:ș"Wimp_CreateIcon",,bk � iconbar%:hi%=256
F<Wara-=1:ș"Wimp_OpenTemplate",,"<Settype$Dir>.Templates"
P;info=�lfm("Info"):type%=�lfm("Typer"):menu=�lfm("menu")
ZC� zip 256:!zip=0:zip?12=7:zip?13=2:zip?14=7:zip?15=0:zip!16=200
dHzip!20=256:zip!24=0:zip!28=&80:zip!32=info:zip!36=&17000211:zip!40=0
n@ș"Wimp_CloseTemplate":�poke(info,5,Version$):�getmodeinfo:�
x:
�ݤlfm($Wind_Title)
�Gș"Wimp_LoadTemplate",,bk,nxt%,icn%+Wara,-1,$Wind_Title+�0 � ,,nxt%
�.ș"Wimp_CreateWindow",,bk � handle:=handle
�:
�9��flick(ic)�T=1�4:Ȗ:Ȗ:�lite(ic):Ȗ:Ȗ:�dark(ic):�:�
�:
���lite(ic):�flags(ic,0,7):�
���dark(ic):�flags(ic,7,0):�
�:
�2��flags(ic,f,F):f=f<<28:F=F<<24:!z=menu:z!4=ic
�3ș"Wimp_GetIconState",,z:z!12=&FF<<24:z!8=F � f
�ș"Wimp_SetIconState",,z:�
�:
��hi(on,off):�hi%=on �
+�flags(on,7,0):�flags(off,0,7):hi%=on:�
:
"/��off:hi%=256:�flags(3,0,7):�flags(1,0,7):�
,:
6��cream:�T=7�9
@7!z=type%:z!4=T:ș"Wimp_GetIconState",,z:z!12=&F<<28
J+z!8=12<<28:ș"Wimp_SetIconState",,z:�:�
T:
^��grey2:�T=7�9
h7!z=type%:z!4=T:ș"Wimp_GetIconState",,z:z!12=&F<<28
r*z!8=2<<28:ș"Wimp_SetIconState",,z:�:�
|:
�9��getmodeinfo:bk!0=4:bk!4=5:bk!8=11:bk!12=12:bk!16=-1
�3ș"OS_ReadVduVariables",bk,bk+20:dx%=1<<(bk!20)
�<dy%=1<<(bk!24):XSize=(bk!28+1)*dx%:YSize=(bk!32+1)*dy%:�
�:
���cen(han)
�8!bk=han:ș"Wimp_GetWindowState",,bk:W=(bk!12)-(bk!4)
�6H=(bk!16)-(bk!8):bk!4=(XSize-W)/2:bk!8=(YSize-H)/2
�*bk!12=(bk!4)+W:bk!16=(bk!8)+H:bk!28=-1
�ș"Wimp_OpenWindow",,bk:�
�

00000000  0d 00 0a 1b f4 20 3e 47  2a 2e 21 53 65 74 74 79  |..... >G*.!Setty|
00000010  2a 2e 21 52 75 6e 49 6d  61 67 65 0d 00 0b 10 f4  |*.!RunImage.....|
00000020  20 42 79 20 49 61 6e 20  27 39 32 0d 00 0c 25 f4  | By Ian '92...%.|
00000030  20 57 68 6f 20 6e 65 65  64 73 20 57 69 6e 64 6f  | Who needs Windo|
00000040  77 4d 61 6e 61 67 65 72  20 33 2e 30 30 20 21 3f  |wManager 3.00 !?|
00000050  0d 00 14 05 3a 0d 00 1e  21 56 65 72 73 69 6f 6e  |....:...!Version|
00000060  24 3d 22 33 2e 31 30 20  28 32 36 20 41 70 72 20  |$="3.10 (26 Apr |
00000070  31 39 39 32 29 22 0d 00  28 05 3a 0d 00 32 11 ee  |1992)"..(.:..2..|
00000080  85 f2 62 61 73 69 63 65  72 72 6f 72 0d 00 3c 09  |..basicerror..<.|
00000090  f2 69 6e 69 74 0d 00 46  10 ee 85 f2 77 69 6d 70  |.init..F....wimp|
000000a0  65 72 72 6f 72 0d 00 50  05 3a 0d 00 5a 1f f5 c8  |error..P.:..Z...|
000000b0  99 22 57 69 6d 70 5f 50  6f 6c 6c 22 2c 30 2c 62  |."Wimp_Poll",0,b|
000000c0  6b 20 b8 20 70 6f 6c 6c  25 0d 00 64 0e c8 8e 20  |k . poll%..d... |
000000d0  70 6f 6c 6c 25 20 ca 0d  00 6e 19 c9 20 31 20 20  |poll% ...n.. 1  |
000000e0  20 20 20 3a 20 f2 72 65  64 72 61 77 28 62 6b 29  |   : .redraw(bk)|
000000f0  0d 00 78 3b c9 20 32 20  20 20 20 20 3a 20 c8 99  |..x;. 2     : ..|
00000100  22 57 69 6d 70 5f 4f 70  65 6e 57 69 6e 64 6f 77  |"Wimp_OpenWindow|
00000110  22 2c 2c 62 6b 3a e7 20  21 62 6b 3d 74 79 70 65  |",,bk:. !bk=type|
00000120  25 20 8c 20 6f 70 65 6e  3d 2d 31 0d 00 82 42 c9  |% . open=-1...B.|
00000130  20 33 20 20 20 20 20 3a  20 c8 99 22 57 69 6d 70  | 3     : .."Wimp|
00000140  5f 43 6c 6f 73 65 57 69  6e 64 6f 77 22 2c 2c 62  |_CloseWindow",,b|
00000150  6b 3a e7 20 21 62 6b 3d  74 79 70 65 25 20 8c 20  |k:. !bk=type% . |
00000160  6f 70 65 6e 3d 30 3a f2  67 72 65 79 32 0d 00 8c  |open=0:.grey2...|
00000170  1a c9 20 36 20 20 20 20  20 3a 20 f2 62 75 74 74  |.. 6     : .butt|
00000180  6f 6e 73 28 62 6b 29 0d  00 96 13 c9 20 38 20 20  |ons(bk)..... 8  |
00000190  20 20 20 3a 20 f2 6b 65  79 73 0d 00 a0 14 c9 20  |   : .keys..... |
000001a0  31 31 20 20 20 20 3a 20  f2 67 72 65 79 32 0d 00  |11    : .grey2..|
000001b0  aa 14 c9 20 31 32 20 20  20 20 3a 20 f2 63 72 65  |... 12    : .cre|
000001c0  61 6d 0d 00 b4 1a c9 20  31 37 2c 31 38 20 3a 20  |am..... 17,18 : |
000001d0  f2 6d 65 73 73 61 67 65  28 62 6b 29 0d 00 be 05  |.message(bk)....|
000001e0  cb 0d 00 c8 1f fd 71 75  69 74 25 3a c8 99 22 57  |......quit%:.."W|
000001f0  69 6d 70 5f 43 6c 6f 73  65 44 6f 77 6e 22 3a e0  |imp_CloseDown":.|
00000200  0d 00 d2 05 3a 0d 00 dc  10 dd f2 62 75 74 74 6f  |....:......butto|
00000210  6e 73 28 62 29 0d 00 e6  24 e7 20 62 6b 21 31 32  |ns(b)...$. bk!12|
00000220  3c 3e 6d 65 6e 75 20 80  20 62 6b 21 31 32 3c 3e  |<>menu . bk!12<>|
00000230  69 6e 66 6f 20 f2 6f 66  66 0d 00 f0 10 e7 20 62  |info .off..... b|
00000240  6b 21 31 32 3d 2d 32 20  8c 0d 00 fa 36 e7 20 62  |k!12=-2 ....6. b|
00000250  21 38 20 80 20 32 20 8c  20 c8 99 20 22 57 69 6d  |!8 . 2 . .. "Wim|
00000260  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 6d  |p_CreateMenu",,m|
00000270  65 6e 75 2c 21 62 2d 36  34 2c 32 32 36 3a e1 0d  |enu,!b-64,226:..|
00000280  01 04 1b e7 20 62 21 38  20 80 20 34 20 8c 20 f2  |.... b!8 . 4 . .|
00000290  63 65 6e 28 74 79 70 65  25 29 0d 01 0e 05 cd 0d  |cen(type%)......|
000002a0  01 18 0e c8 8e 20 62 6b  21 31 32 20 ca 0d 01 22  |..... bk!12 ..."|
000002b0  0d c9 20 74 79 70 65 25  20 3a 0d 01 2c 36 e7 20  |.. type% :..,6. |
000002c0  62 21 38 20 80 20 32 20  8c 20 c8 99 20 22 57 69  |b!8 . 2 . .. "Wi|
000002d0  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
000002e0  6d 65 6e 75 2c 21 62 2d  36 34 2c 62 21 34 3a e1  |menu,!b-64,b!4:.|
000002f0  0d 01 36 19 e7 20 62 21  38 20 80 20 34 20 8c 20  |..6.. b!8 . 4 . |
00000300  70 3d 31 20 8b 20 70 3d  34 0d 01 40 0e c8 8e 20  |p=1 . p=4..@... |
00000310  62 6b 21 31 36 20 ca 0d  01 4a 1e c9 20 33 20 3a  |bk!16 ...J.. 3 :|
00000320  20 74 79 70 65 2b 3d 70  3a f2 61 6c 74 65 72 77  | type+=p:.alterw|
00000330  69 6e 64 6f 77 0d 01 54  1e c9 20 35 20 3a 20 74  |indow..T.. 5 : t|
00000340  79 70 65 2d 3d 70 3a f2  61 6c 74 65 72 77 69 6e  |ype-=p:.alterwin|
00000350  64 6f 77 0d 01 5e 50 c9  20 39 3a 21 62 6b 3d 74  |dow..^P. 9:!bk=t|
00000360  79 70 65 25 3a c8 99 20  22 57 69 6d 70 5f 47 65  |ype%:.. "Wimp_Ge|
00000370  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 62  |tWindowState",,b|
00000380  6b 3a 62 6b 21 32 38 3d  2d 32 3a c8 99 20 22 57  |k:bk!28=-2:.. "W|
00000390  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
000003a0  2c 62 6b 0d 01 68 32 c9  20 38 3a 21 62 6b 3d 74  |,bk..h2. 8:!bk=t|
000003b0  79 70 65 25 3a c8 99 20  22 57 69 6d 70 5f 43 6c  |ype%:.. "Wimp_Cl|
000003c0  6f 73 65 57 69 6e 64 6f  77 22 2c 2c 62 6b 3a f2  |oseWindow",,bk:.|
000003d0  67 72 65 79 32 0d 01 72  5e c9 20 37 3a f2 6f 66  |grey2..r^. 7:.of|
000003e0  66 3a 62 6b 21 34 3d 74  79 70 65 25 3a c8 99 20  |f:bk!4=type%:.. |
000003f0  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 4f  |"Wimp_GetWindowO|
00000400  75 74 6c 69 6e 65 22 2c  2c 62 6b 2b 34 3a 21 62  |utline",,bk+4:!b|
00000410  6b 3d 74 79 70 65 25 3a  62 6b 21 34 3d 31 3a c8  |k=type%:bk!4=1:.|
00000420  99 22 57 69 6d 70 5f 44  72 61 67 42 6f 78 22 2c  |."Wimp_DragBox",|
00000430  2c 62 6b 0d 01 7c 05 cb  0d 01 86 0b c9 20 6d 65  |,bk..|....... me|
00000440  6e 75 3a 0d 01 90 0e c8  8e 20 62 6b 21 31 36 20  |nu:...... bk!16 |
00000450  ca 0d 01 9a 5c c9 20 30  3a f2 6f 66 66 3a 62 6b  |....\. 0:.off:bk|
00000460  21 34 3d 6d 65 6e 75 3a  c8 99 20 22 57 69 6d 70  |!4=menu:.. "Wimp|
00000470  5f 47 65 74 57 69 6e 64  6f 77 4f 75 74 6c 69 6e  |_GetWindowOutlin|
00000480  65 22 2c 2c 62 6b 2b 34  3a 21 62 6b 3d 6d 65 6e  |e",,bk+4:!bk=men|
00000490  75 3a 62 6b 21 34 3d 31  3a c8 99 22 57 69 6d 70  |u:bk!4=1:.."Wimp|
000004a0  5f 44 72 61 67 42 6f 78  22 2c 2c 62 6b 0d 01 a4  |_DragBox",,bk...|
000004b0  2d c9 20 33 3a f2 68 69  28 33 2c 31 29 3a e7 20  |-. 3:.hi(3,1):. |
000004c0  62 6b 21 38 3e 30 20 8c  20 f2 66 6c 69 63 6b 28  |bk!8>0 . .flick(|
000004d0  33 29 3a 71 75 69 74 25  3d b9 0d 01 ae 94 c9 20  |3):quit%=...... |
000004e0  34 3a f2 68 69 28 31 2c  33 29 3a 21 7a 3d 6d 65  |4:.hi(1,3):!z=me|
000004f0  6e 75 3a c8 99 22 57 69  6d 70 5f 47 65 74 57 69  |nu:.."Wimp_GetWi|
00000500  6e 64 6f 77 53 74 61 74  65 22 2c 2c 7a 3a 62 6b  |ndowState",,z:bk|
00000510  21 32 34 3d 7a 21 31 32  2d 32 38 3a 62 6b 21 32  |!24=z!12-28:bk!2|
00000520  38 3d 7a 21 31 36 2d 35  30 3a 62 6b 21 32 30 3d  |8=z!16-50:bk!20=|
00000530  69 6e 66 6f 3a 62 6b 21  33 32 3d 30 3a 62 6b 21  |info:bk!32=0:bk!|
00000540  33 36 3d 2d 31 3a c8 99  22 57 69 6d 70 5f 43 72  |36=-1:.."Wimp_Cr|
00000550  65 61 74 65 53 75 62 4d  65 6e 75 22 2c 2c 69 6e  |eateSubMenu",,in|
00000560  66 6f 2c 62 6b 21 32 34  2c 62 6b 21 32 38 0d 01  |fo,bk!24,bk!28..|
00000570  b8 48 c9 20 31 3a f2 68  69 28 31 2c 33 29 3a e7  |.H. 1:.hi(1,3):.|
00000580  20 62 6b 21 38 3e 30 20  8c 20 f2 66 6c 69 63 6b  | bk!8>0 . .flick|
00000590  28 31 29 3a c8 99 22 57  69 6d 70 5f 43 72 65 61  |(1):.."Wimp_Crea|
000005a0  74 65 4d 65 6e 75 22 2c  2c 69 6e 66 6f 2c 21 62  |teMenu",,info,!b|
000005b0  6b 2c 62 6b 21 34 0d 01  c2 05 cb 0d 01 cc 0b c9  |k,bk!4..........|
000005c0  20 69 6e 66 6f 3a 0d 01  d6 0e c8 8e 20 62 6b 21  | info:...... bk!|
000005d0  31 36 20 ca 0d 01 e0 5a  c9 20 30 2c 31 31 3a 62  |16 ....Z. 0,11:b|
000005e0  6b 21 34 3d 69 6e 66 6f  3a c8 99 20 22 57 69 6d  |k!4=info:.. "Wim|
000005f0  70 5f 47 65 74 57 69 6e  64 6f 77 4f 75 74 6c 69  |p_GetWindowOutli|
00000600  6e 65 22 2c 2c 62 6b 2b  34 3a 21 62 6b 3d 69 6e  |ne",,bk+4:!bk=in|
00000610  66 6f 3a 62 6b 21 34 3d  31 3a c8 99 22 57 69 6d  |fo:bk!4=1:.."Wim|
00000620  70 5f 44 72 61 67 42 6f  78 22 2c 2c 62 6b 0d 01  |p_DragBox",,bk..|
00000630  ea 05 cb 0d 01 f4 05 cb  0d 01 fe 05 e1 0d 02 08  |................|
00000640  05 3a 0d 02 12 33 dd f2  70 6f 6b 65 28 77 69 6e  |.:...3..poke(win|
00000650  64 6f 77 2c 69 63 6f 6e  2c 74 65 78 74 24 29 3a  |dow,icon,text$):|
00000660  62 6b 21 30 3d 77 69 6e  64 6f 77 3a 62 6b 21 34  |bk!0=window:bk!4|
00000670  3d 69 63 6f 6e 0d 02 1c  43 c8 99 22 57 69 6d 70  |=icon...C.."Wimp|
00000680  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
00000690  62 6b 3a 62 6b 21 38 3d  30 3a 62 6b 21 31 32 3d  |bk:bk!8=0:bk!12=|
000006a0  30 3a 70 74 72 25 3d 62  6b 21 32 38 3a 24 70 74  |0:ptr%=bk!28:$pt|
000006b0  72 25 3d 74 65 78 74 24  0d 02 26 1f c8 99 22 57  |r%=text$..&..."W|
000006c0  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
000006d0  22 2c 2c 62 6b 3a e1 0d  02 30 05 3a 0d 02 3a 0a  |",,bk:...0.:..:.|
000006e0  dd f2 6b 65 79 73 0d 02  44 48 e7 20 28 21 62 6b  |..keys..DH. (!bk|
000006f0  3d 74 79 70 65 25 20 80  20 62 6b 21 32 34 3d 31  |=type% . bk!24=1|
00000700  33 29 20 8c 20 74 79 70  65 3d a0 28 22 26 22 2b  |3) . type=.("&"+|
00000710  a4 70 65 65 6b 28 74 79  70 65 25 2c 32 29 29 3a  |.peek(type%,2)):|
00000720  f2 61 6c 74 65 72 77 69  6e 64 6f 77 3a e1 0d 02  |.alterwindow:...|
00000730  4e 1e c8 99 20 22 57 69  6d 70 5f 50 72 6f 63 65  |N... "Wimp_Proce|
00000740  73 73 4b 65 79 22 2c 62  6b 21 32 34 0d 02 58 05  |ssKey",bk!24..X.|
00000750  e1 0d 02 62 05 3a 0d 02  6c 17 dd a4 76 61 72 28  |...b.:..l...var(|
00000760  50 25 29 3a ea 6d 24 3a  6d 24 3d 22 22 0d 02 76  |P%):.m$:m$=""..v|
00000770  22 c8 95 20 3f 50 25 3e  33 31 3a 6d 24 2b 3d bd  |".. ?P%>31:m$+=.|
00000780  3f 50 25 3a 50 25 2b 3d  31 3a ce 3a 3d 6d 24 0d  |?P%:P%+=1:.:=m$.|
00000790  02 80 05 3a 0d 02 8a 24  dd f2 62 61 73 69 63 65  |...:...$..basice|
000007a0  72 72 6f 72 3a c8 99 22  48 6f 75 72 67 6c 61 73  |rror:.."Hourglas|
000007b0  73 5f 53 6d 61 73 68 22  0d 02 94 24 eb 30 3a 87  |s_Smash"...$.0:.|
000007c0  3a f1 8a 31 32 2c 31 32  29 3b f6 24 3b 22 20 61  |:..12,12);.$;" a|
000007d0  74 20 6c 69 6e 65 20 22  3b 9e 3a e0 0d 02 9e 05  |t line ";.:.....|
000007e0  3a 0d 02 a8 35 dd f2 77  69 6d 70 65 72 72 6f 72  |:...5..wimperror|
000007f0  3a ff 22 50 6f 69 6e 74  65 72 20 31 22 3a c8 99  |:."Pointer 1":..|
00000800  22 48 6f 75 72 67 6c 61  73 73 5f 53 6d 61 73 68  |"Hourglass_Smash|
00000810  22 3a ef 33 2c 36 0d 02  b2 0d e7 20 9f 3d 32 35  |":.3,6..... .=25|
00000820  35 20 8c 0d 02 bc 0e 24  28 62 6b 2b 34 29 3d f6  |5 .....$(bk+4)=.|
00000830  24 0d 02 c6 28 c8 99 22  57 69 6d 70 5f 52 65 70  |$...(.."Wimp_Rep|
00000840  6f 72 74 45 72 72 6f 72  22 2c 62 6b 2c 31 2c 22  |ortError",bk,1,"|
00000850  53 65 74 74 79 70 65 72  22 0d 02 d0 05 cc 0d 02  |Settyper".......|
00000860  da 3f 24 28 62 6b 2b 34  29 3d f6 24 2b 22 20 28  |.?$(bk+4)=.$+" (|
00000870  69 6e 74 65 72 6e 61 6c  20 65 72 72 6f 72 20 63  |internal error c|
00000880  6f 64 65 20 22 2b c3 9e  2b 22 29 20 28 43 61 6e  |ode "+..+") (Can|
00000890  63 65 6c 20 74 6f 20 51  75 69 74 29 22 0d 02 e4  |cel to Quit)"...|
000008a0  32 c8 99 22 57 69 6d 70  5f 52 65 70 6f 72 74 45  |2.."Wimp_ReportE|
000008b0  72 72 6f 72 22 2c 62 6b  2c 33 2c 22 53 65 74 74  |rror",bk,3,"Sett|
000008c0  79 70 65 72 22 20 b8 20  2c 62 75 74 74 6f 6e 0d  |yper" . ,button.|
000008d0  02 ee 24 e7 20 62 75 74  74 6f 6e 3c 3e 31 20 c8  |..$. button<>1 .|
000008e0  99 22 57 69 6d 70 5f 43  6c 6f 73 65 44 6f 77 6e  |."Wimp_CloseDown|
000008f0  22 3a e0 0d 02 f8 05 cd  0d 03 02 05 e1 0d 03 0c  |":..............|
00000900  05 3a 0d 03 16 10 dd f2  6d 65 73 73 61 67 65 28  |.:......message(|
00000910  62 29 0d 03 20 0d c8 8e  20 62 21 31 36 20 ca 0d  |b).. ... b!16 ..|
00000920  03 2a 0f c9 20 30 3a 71  75 69 74 25 3d b9 0d 03  |.*.. 0:quit%=...|
00000930  34 38 c9 20 33 3a e7 20  62 6b 21 32 34 3d 34 20  |48. 3:. bk!24=4 |
00000940  f2 6c 6f 61 64 61 63 6b  3a f2 67 65 74 74 79 70  |.loadack:.gettyp|
00000950  65 20 8b 20 f2 6c 6f 61  64 61 63 6b 3a f2 64 61  |e . .loadack:.da|
00000960  74 61 6c 6f 61 64 0d 03  3e 26 c9 20 26 34 30 30  |taload..>&. &400|
00000970  43 31 3a f2 61 6c 74 65  72 77 69 6e 64 6f 77 3a  |C1:.alterwindow:|
00000980  f2 67 65 74 6d 6f 64 65  69 6e 66 6f 0d 03 48 40  |.getmodeinfo..H@|
00000990  c9 20 26 34 30 30 43 33  3a e7 20 6f 70 65 6e 20  |. &400C3:. open |
000009a0  f2 61 6c 74 65 72 77 69  6e 64 6f 77 3a f4 20 49  |.alterwindow:. I|
000009b0  6e 20 63 61 73 65 20 6f  66 20 64 69 66 66 65 72  |n case of differ|
000009c0  65 6e 74 20 69 63 6f 6e  73 21 21 21 0d 03 52 05  |ent icons!!!..R.|
000009d0  cb 0d 03 5c 05 e1 0d 03  66 05 3a 0d 03 70 42 dd  |...\....f.:..pB.|
000009e0  f2 6c 6f 61 64 61 63 6b  3a 62 6b 21 31 32 3d 62  |.loadack:bk!12=b|
000009f0  6b 21 38 3a 62 6b 21 31  36 3d 34 3a c8 99 22 57  |k!8:bk!16=4:.."W|
00000a00  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
00000a10  2c 31 37 2c 62 6b 2c 62  6b 21 34 3a e1 0d 03 7a  |,17,bk,bk!4:...z|
00000a20  05 3a 0d 03 84 33 dd f2  64 61 74 61 6c 6f 61 64  |.:...3..dataload|
00000a30  3a 4c 6f 61 64 24 3d 22  22 3a 61 25 3d 30 3a f5  |:Load$="":a%=0:.|
00000a40  3a 4c 6f 61 64 24 2b 3d  bd 28 62 6b 3f 28 34 34  |:Load$+=.(bk?(44|
00000a50  2b 61 25 29 29 0d 03 8e  2a 61 25 2b 3d 31 3a fd  |+a%))...*a%+=1:.|
00000a60  20 62 6b 3f 28 34 34 2b  61 25 29 3d 30 3a f2 73  | bk?(44+a%)=0:.s|
00000a70  65 74 74 79 70 65 28 4c  6f 61 64 24 29 3a e1 0d  |ettype(Load$):..|
00000a80  03 98 05 3a 0d 03 a2 18  dd f2 67 65 74 74 79 70  |...:......gettyp|
00000a90  65 3a 74 79 70 65 3d 62  6b 21 34 30 0d 03 ac 32  |e:type=bk!40...2|
00000aa0  e7 20 74 79 70 65 3d 26  31 30 30 30 20 8c 20 85  |. type=&1000 . .|
00000ab0  20 32 35 35 2c 22 43 61  6e 27 74 20 62 65 20 61  | 255,"Can't be a|
00000ac0  20 64 69 72 65 63 74 6f  72 79 21 22 3a e1 0d 03  | directory!":...|
00000ad0  b6 35 e7 20 74 79 70 65  3d 26 32 30 30 30 20 8c  |.5. type=&2000 .|
00000ae0  20 85 20 32 35 35 2c 22  43 61 6e 27 74 20 62 65  | . 255,"Can't be|
00000af0  20 61 6e 20 41 70 70 6c  69 63 61 74 69 6f 6e 21  | an Application!|
00000b00  22 3a e1 0d 03 c0 19 e7  20 74 79 70 65 3d 26 33  |":...... type=&3|
00000b10  30 30 30 20 8c 20 74 79  70 65 3d 30 0d 03 ca 31  |000 . type=0...1|
00000b20  f2 61 6c 74 65 72 77 69  6e 64 6f 77 3a d4 31 2c  |.alterwindow:.1,|
00000b30  2d 31 35 2c 32 30 30 2c  31 30 3a d4 31 2c 2d 31  |-15,200,10:.1,-1|
00000b40  35 2c 31 36 33 2c 31 30  2c 31 34 3a e1 0d 03 d4  |5,163,10,14:....|
00000b50  05 3a 0d 03 de 14 dd a4  74 79 70 65 28 74 79 70  |.:......type(typ|
00000b60  65 29 3a ea 20 54 0d 03  e8 07 ea 20 85 0d 03 f2  |e):. T..... ....|
00000b70  1a ee 20 85 20 ea 20 f7  20 85 3a 3d 22 55 6e 64  |.. . . . .:="Und|
00000b80  65 66 69 6e 65 64 22 0d  03 fc 1e e3 54 3d 30 b8  |efined".....T=0.|
00000b90  34 38 88 34 3a 56 25 21  54 3d 26 30 44 30 44 30  |48.4:V%!T=&0D0D0|
00000ba0  44 30 44 3a ed 0d 04 06  40 c8 99 20 22 4f 53 5f  |D0D:....@.. "OS_|
00000bb0  52 65 61 64 56 61 72 56  61 6c 22 2c 22 46 69 6c  |ReadVarVal","Fil|
00000bc0  65 24 54 79 70 65 5f 22  2b a4 73 28 74 79 70 65  |e$Type_"+.s(type|
00000bd0  29 2c 56 25 2c 34 38 20  b8 20 2c 6e 24 3a f7 20  |),V%,48 . ,n$:. |
00000be0  85 3a 3d 6e 24 0d 04 10  05 3a 0d 04 1a 17 dd a4  |.:=n$....:......|
00000bf0  70 65 65 6b 28 77 69 6e  64 6f 77 2c 69 63 6f 6e  |peek(window,icon|
00000c00  29 0d 04 24 3d 62 6b 21  30 3d 77 69 6e 64 6f 77  |)..$=bk!0=window|
00000c10  3a 62 6b 21 34 3d 69 63  6f 6e 3a c8 99 22 57 69  |:bk!4=icon:.."Wi|
00000c20  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
00000c30  2c 2c 62 6b 3a 3d 24 28  62 6b 21 32 38 29 0d 04  |,,bk:=$(bk!28)..|
00000c40  2e 05 3a 0d 04 38 35 dd  f2 61 6c 74 65 72 77 69  |..:..85..alterwi|
00000c50  6e 64 6f 77 3a e7 20 74  79 70 65 3e 26 46 46 46  |ndow:. type>&FFF|
00000c60  20 8c 20 74 79 70 65 3d  26 46 46 46 3a ef 37 3a  | . type=&FFF:.7:|
00000c70  f2 6d 6f 75 73 65 3a e1  0d 04 42 21 e7 20 74 79  |.mouse:...B!. ty|
00000c80  70 65 3c 30 20 8c 20 74  79 70 65 3d 30 3a ef 37  |pe<0 . type=0:.7|
00000c90  3a f2 6d 6f 75 73 65 3a  e1 0d 04 4c 3c 53 24 3d  |:.mouse:...L<S$=|
00000ca0  a4 73 28 74 79 70 65 29  3a f2 70 6f 6b 65 28 74  |.s(type):.poke(t|
00000cb0  79 70 65 25 2c 32 2c 53  24 29 3a f2 70 6f 6b 65  |ype%,2,S$):.poke|
00000cc0  28 74 79 70 65 25 2c 36  2c a4 74 79 70 65 28 74  |(type%,6,.type(t|
00000cd0  79 70 65 29 29 0d 04 56  1c f2 70 6f 6b 65 28 74  |ype))..V..poke(t|
00000ce0  79 70 65 25 2c 34 2c 22  42 6c 61 6e 6b 6f 21 22  |ype%,4,"Blanko!"|
00000cf0  29 0d 04 60 3b e7 20 a4  70 65 65 6b 28 74 79 70  |)..`;. .peek(typ|
00000d00  65 25 2c 32 29 3c 3e 22  55 6e 64 65 66 69 6e 65  |e%,2)<>"Undefine|
00000d10  64 22 20 f2 70 6f 6b 65  28 74 79 70 65 25 2c 34  |d" .poke(type%,4|
00000d20  2c 22 46 69 6c 65 5f 22  2b 53 24 29 0d 04 6a 05  |,"File_"+S$)..j.|
00000d30  e1 0d 04 74 05 3a 0d 04  7e 31 dd f2 73 65 74 74  |...t.:..~1..sett|
00000d40  79 70 65 28 66 24 29 3a  c8 99 20 35 2c 22 53 65  |ype(f$):.. 5,"Se|
00000d50  74 74 79 70 65 20 22 2b  66 24 2b 22 20 22 2b c3  |ttype "+f$+" "+.|
00000d60  7e 74 79 70 65 3a e1 0d  04 88 05 3a 0d 04 92 1f  |~type:.....:....|
00000d70  dd a4 73 28 66 69 6c 65  29 3a 3d c2 22 30 30 30  |..s(file):=."000|
00000d80  22 2b c3 7e 66 69 6c 65  2c 33 29 0d 04 9c 05 3a  |"+.~file,3)....:|
00000d90  0d 04 a6 1c dd f2 72 65  64 72 61 77 28 62 6b 29  |......redraw(bk)|
00000da0  3a 68 61 6e 64 6c 65 25  3d 21 62 6b 0d 04 b0 26  |:handle%=!bk...&|
00000db0  c8 99 20 22 57 69 6d 70  5f 52 65 64 72 61 77 57  |.. "Wimp_RedrawW|
00000dc0  69 6e 64 6f 77 22 2c 2c  62 6b 20 b8 20 6d 6f 72  |indow",,bk . mor|
00000dd0  65 25 0d 04 ba 0c c8 95  20 6d 6f 72 65 25 0d 04  |e%...... more%..|
00000de0  c4 2a 21 62 6b 3d 68 61  6e 64 6c 65 25 3a c8 99  |.*!bk=handle%:..|
00000df0  20 22 57 69 6d 70 5f 42  6f 72 64 65 72 57 69 6e  | "Wimp_BorderWin|
00000e00  64 6f 77 22 2c 2c 62 6b  0d 04 ce 26 c8 99 20 22  |dow",,bk...&.. "|
00000e10  57 69 6d 70 5f 47 65 74  52 65 63 74 61 6e 67 6c  |Wimp_GetRectangl|
00000e20  65 22 2c 2c 62 6b 20 b8  20 6d 6f 72 65 25 0d 04  |e",,bk . more%..|
00000e30  d8 05 ce 0d 04 e2 05 e1  0d 04 ec 05 3a 0d 04 f6  |............:...|
00000e40  21 dd f2 6d 6f 75 73 65  3a c8 97 20 58 2c 59 2c  |!..mouse:.. X,Y,|
00000e50  5a 3a c8 97 c8 93 20 58  2c 59 2c 30 2c 30 0d 05  |Z:.... X,Y,0,0..|
00000e60  00 20 f5 c8 97 58 2c 59  2c 5a 3a fd 5a 3d 30 3a  |. ...X,Y,Z:.Z=0:|
00000e70  ff 22 50 6f 69 6e 74 65  72 20 31 22 3a e1 0d 05  |."Pointer 1":...|
00000e80  0a 05 3a 0d 05 14 1b dd  f2 69 6e 69 74 3a 57 61  |..:......init:Wa|
00000e90  72 61 3d 32 30 30 30 3a  6f 70 65 6e 3d 30 0d 05  |ra=2000:open=0..|
00000ea0  1e 49 de 20 62 6b 20 26  32 30 30 30 2c 4e 25 20  |.I. bk &2000,N% |
00000eb0  33 32 2c 69 63 6e 25 20  57 61 72 61 2c 70 6f 69  |32,icn% Wara,poi|
00000ec0  6e 74 25 20 31 30 32 34  2c 57 69 6e 64 5f 54 69  |nt% 1024,Wind_Ti|
00000ed0  74 6c 65 20 36 30 2c 74  25 34 2c 56 25 20 31 30  |tle 60,t%4,V% 10|
00000ee0  30 2c 7a 20 32 35 36 0d  05 28 3d 24 74 25 3d 22  |0,z 256..(=$t%="|
00000ef0  54 41 53 4b 22 3a c8 99  22 57 69 6d 70 5f 49 6e  |TASK":.."Wimp_In|
00000f00  69 74 69 61 6c 69 73 65  22 2c 32 30 30 2c 21 74  |itialise",200,!t|
00000f10  25 2c 22 53 65 74 54 79  70 65 72 22 3a 71 75 69  |%,"SetTyper":qui|
00000f20  74 25 3d a3 0d 05 32 47  50 25 3d 62 6b 3a 5b 4f  |t%=...2GP%=bk:[O|
00000f30  50 54 30 3a 44 43 44 2d  31 3a 44 43 44 30 3a 44  |PT0:DCD-1:DCD0:D|
00000f40  43 44 30 3a 44 43 44 36  38 3a 44 43 44 37 30 3a  |CD0:DCD68:DCD70:|
00000f50  44 43 44 26 33 30 30 32  3a 44 43 42 20 22 21 53  |DCD&3002:DCB "!S|
00000f60  65 74 74 79 70 65 72 22  2b bd 30 0d 05 3c 44 5d  |ettyper"+.0..<D]|
00000f70  3a 74 79 70 65 3d 26 46  46 46 3a 6e 78 74 25 3d  |:type=&FFF:nxt%=|
00000f80  69 63 6e 25 3a c8 99 22  57 69 6d 70 5f 43 72 65  |icn%:.."Wimp_Cre|
00000f90  61 74 65 49 63 6f 6e 22  2c 2c 62 6b 20 b8 20 69  |ateIcon",,bk . i|
00000fa0  63 6f 6e 62 61 72 25 3a  68 69 25 3d 32 35 36 0d  |conbar%:hi%=256.|
00000fb0  05 46 3c 57 61 72 61 2d  3d 31 3a c8 99 22 57 69  |.F<Wara-=1:.."Wi|
00000fc0  6d 70 5f 4f 70 65 6e 54  65 6d 70 6c 61 74 65 22  |mp_OpenTemplate"|
00000fd0  2c 2c 22 3c 53 65 74 74  79 70 65 24 44 69 72 3e  |,,"<Settype$Dir>|
00000fe0  2e 54 65 6d 70 6c 61 74  65 73 22 0d 05 50 3b 69  |.Templates"..P;i|
00000ff0  6e 66 6f 3d a4 6c 66 6d  28 22 49 6e 66 6f 22 29  |nfo=.lfm("Info")|
00001000  3a 74 79 70 65 25 3d a4  6c 66 6d 28 22 54 79 70  |:type%=.lfm("Typ|
00001010  65 72 22 29 3a 6d 65 6e  75 3d a4 6c 66 6d 28 22  |er"):menu=.lfm("|
00001020  6d 65 6e 75 22 29 0d 05  5a 43 de 20 7a 69 70 20  |menu")..ZC. zip |
00001030  32 35 36 3a 21 7a 69 70  3d 30 3a 7a 69 70 3f 31  |256:!zip=0:zip?1|
00001040  32 3d 37 3a 7a 69 70 3f  31 33 3d 32 3a 7a 69 70  |2=7:zip?13=2:zip|
00001050  3f 31 34 3d 37 3a 7a 69  70 3f 31 35 3d 30 3a 7a  |?14=7:zip?15=0:z|
00001060  69 70 21 31 36 3d 32 30  30 0d 05 64 48 7a 69 70  |ip!16=200..dHzip|
00001070  21 32 30 3d 32 35 36 3a  7a 69 70 21 32 34 3d 30  |!20=256:zip!24=0|
00001080  3a 7a 69 70 21 32 38 3d  26 38 30 3a 7a 69 70 21  |:zip!28=&80:zip!|
00001090  33 32 3d 69 6e 66 6f 3a  7a 69 70 21 33 36 3d 26  |32=info:zip!36=&|
000010a0  31 37 30 30 30 32 31 31  3a 7a 69 70 21 34 30 3d  |17000211:zip!40=|
000010b0  30 0d 05 6e 40 c8 99 22  57 69 6d 70 5f 43 6c 6f  |0..n@.."Wimp_Clo|
000010c0  73 65 54 65 6d 70 6c 61  74 65 22 3a f2 70 6f 6b  |seTemplate":.pok|
000010d0  65 28 69 6e 66 6f 2c 35  2c 56 65 72 73 69 6f 6e  |e(info,5,Version|
000010e0  24 29 3a f2 67 65 74 6d  6f 64 65 69 6e 66 6f 3a  |$):.getmodeinfo:|
000010f0  e1 0d 05 78 05 3a 0d 05  82 16 dd a4 6c 66 6d 28  |...x.:......lfm(|
00001100  24 57 69 6e 64 5f 54 69  74 6c 65 29 0d 05 8c 47  |$Wind_Title)...G|
00001110  c8 99 22 57 69 6d 70 5f  4c 6f 61 64 54 65 6d 70  |.."Wimp_LoadTemp|
00001120  6c 61 74 65 22 2c 2c 62  6b 2c 6e 78 74 25 2c 69  |late",,bk,nxt%,i|
00001130  63 6e 25 2b 57 61 72 61  2c 2d 31 2c 24 57 69 6e  |cn%+Wara,-1,$Win|
00001140  64 5f 54 69 74 6c 65 2b  bd 30 20 b8 20 2c 2c 6e  |d_Title+.0 . ,,n|
00001150  78 74 25 0d 05 96 2e c8  99 22 57 69 6d 70 5f 43  |xt%......"Wimp_C|
00001160  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 62 6b  |reateWindow",,bk|
00001170  20 b8 20 68 61 6e 64 6c  65 3a 3d 68 61 6e 64 6c  | . handle:=handl|
00001180  65 0d 05 a0 05 3a 0d 05  aa 39 dd f2 66 6c 69 63  |e....:...9..flic|
00001190  6b 28 69 63 29 e3 54 3d  31 b8 34 3a c8 96 3a c8  |k(ic).T=1.4:..:.|
000011a0  96 3a f2 6c 69 74 65 28  69 63 29 3a c8 96 3a c8  |.:.lite(ic):..:.|
000011b0  96 3a f2 64 61 72 6b 28  69 63 29 3a ed 3a e1 0d  |.:.dark(ic):.:..|
000011c0  05 b4 05 3a 0d 05 be 1f  dd f2 6c 69 74 65 28 69  |...:......lite(i|
000011d0  63 29 3a f2 66 6c 61 67  73 28 69 63 2c 30 2c 37  |c):.flags(ic,0,7|
000011e0  29 3a e1 0d 05 c8 1f dd  f2 64 61 72 6b 28 69 63  |):.......dark(ic|
000011f0  29 3a f2 66 6c 61 67 73  28 69 63 2c 37 2c 30 29  |):.flags(ic,7,0)|
00001200  3a e1 0d 05 d2 05 3a 0d  05 dc 32 dd f2 66 6c 61  |:.....:...2..fla|
00001210  67 73 28 69 63 2c 66 2c  46 29 3a 66 3d 66 3c 3c  |gs(ic,f,F):f=f<<|
00001220  32 38 3a 46 3d 46 3c 3c  32 34 3a 21 7a 3d 6d 65  |28:F=F<<24:!z=me|
00001230  6e 75 3a 7a 21 34 3d 69  63 0d 05 e6 33 c8 99 22  |nu:z!4=ic...3.."|
00001240  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
00001250  65 22 2c 2c 7a 3a 7a 21  31 32 3d 26 46 46 3c 3c  |e",,z:z!12=&FF<<|
00001260  32 34 3a 7a 21 38 3d 46  20 84 20 66 0d 05 f0 1e  |24:z!8=F . f....|
00001270  c8 99 22 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  |.."Wimp_SetIconS|
00001280  74 61 74 65 22 2c 2c 7a  3a e1 0d 05 fa 05 3a 0d  |tate",,z:.....:.|
00001290  06 04 1a dd f2 68 69 28  6f 6e 2c 6f 66 66 29 3a  |.....hi(on,off):|
000012a0  e7 68 69 25 3d 6f 6e 20  e1 0d 06 0e 2b f2 66 6c  |.hi%=on ....+.fl|
000012b0  61 67 73 28 6f 6e 2c 37  2c 30 29 3a f2 66 6c 61  |ags(on,7,0):.fla|
000012c0  67 73 28 6f 66 66 2c 30  2c 37 29 3a 68 69 25 3d  |gs(off,0,7):hi%=|
000012d0  6f 6e 3a e1 0d 06 18 05  3a 0d 06 22 2f dd f2 6f  |on:.....:.."/..o|
000012e0  66 66 3a 68 69 25 3d 32  35 36 3a f2 66 6c 61 67  |ff:hi%=256:.flag|
000012f0  73 28 33 2c 30 2c 37 29  3a f2 66 6c 61 67 73 28  |s(3,0,7):.flags(|
00001300  31 2c 30 2c 37 29 3a e1  0d 06 2c 05 3a 0d 06 36  |1,0,7):...,.:..6|
00001310  12 dd f2 63 72 65 61 6d  3a e3 54 3d 37 b8 39 0d  |...cream:.T=7.9.|
00001320  06 40 37 21 7a 3d 74 79  70 65 25 3a 7a 21 34 3d  |.@7!z=type%:z!4=|
00001330  54 3a c8 99 22 57 69 6d  70 5f 47 65 74 49 63 6f  |T:.."Wimp_GetIco|
00001340  6e 53 74 61 74 65 22 2c  2c 7a 3a 7a 21 31 32 3d  |nState",,z:z!12=|
00001350  26 46 3c 3c 32 38 0d 06  4a 2b 7a 21 38 3d 31 32  |&F<<28..J+z!8=12|
00001360  3c 3c 32 38 3a c8 99 22  57 69 6d 70 5f 53 65 74  |<<28:.."Wimp_Set|
00001370  49 63 6f 6e 53 74 61 74  65 22 2c 2c 7a 3a ed 3a  |IconState",,z:.:|
00001380  e1 0d 06 54 05 3a 0d 06  5e 12 dd f2 67 72 65 79  |...T.:..^...grey|
00001390  32 3a e3 54 3d 37 b8 39  0d 06 68 37 21 7a 3d 74  |2:.T=7.9..h7!z=t|
000013a0  79 70 65 25 3a 7a 21 34  3d 54 3a c8 99 22 57 69  |ype%:z!4=T:.."Wi|
000013b0  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
000013c0  2c 2c 7a 3a 7a 21 31 32  3d 26 46 3c 3c 32 38 0d  |,,z:z!12=&F<<28.|
000013d0  06 72 2a 7a 21 38 3d 32  3c 3c 32 38 3a c8 99 22  |.r*z!8=2<<28:.."|
000013e0  57 69 6d 70 5f 53 65 74  49 63 6f 6e 53 74 61 74  |Wimp_SetIconStat|
000013f0  65 22 2c 2c 7a 3a ed 3a  e1 0d 06 7c 05 3a 0d 06  |e",,z:.:...|.:..|
00001400  86 39 dd f2 67 65 74 6d  6f 64 65 69 6e 66 6f 3a  |.9..getmodeinfo:|
00001410  62 6b 21 30 3d 34 3a 62  6b 21 34 3d 35 3a 62 6b  |bk!0=4:bk!4=5:bk|
00001420  21 38 3d 31 31 3a 62 6b  21 31 32 3d 31 32 3a 62  |!8=11:bk!12=12:b|
00001430  6b 21 31 36 3d 2d 31 0d  06 90 33 c8 99 22 4f 53  |k!16=-1...3.."OS|
00001440  5f 52 65 61 64 56 64 75  56 61 72 69 61 62 6c 65  |_ReadVduVariable|
00001450  73 22 2c 62 6b 2c 62 6b  2b 32 30 3a 64 78 25 3d  |s",bk,bk+20:dx%=|
00001460  31 3c 3c 28 62 6b 21 32  30 29 0d 06 9a 3c 64 79  |1<<(bk!20)...<dy|
00001470  25 3d 31 3c 3c 28 62 6b  21 32 34 29 3a 58 53 69  |%=1<<(bk!24):XSi|
00001480  7a 65 3d 28 62 6b 21 32  38 2b 31 29 2a 64 78 25  |ze=(bk!28+1)*dx%|
00001490  3a 59 53 69 7a 65 3d 28  62 6b 21 33 32 2b 31 29  |:YSize=(bk!32+1)|
000014a0  2a 64 79 25 3a e1 0d 06  a4 05 3a 0d 06 ae 0e dd  |*dy%:.....:.....|
000014b0  f2 63 65 6e 28 68 61 6e  29 0d 06 b8 38 21 62 6b  |.cen(han)...8!bk|
000014c0  3d 68 61 6e 3a c8 99 22  57 69 6d 70 5f 47 65 74  |=han:.."Wimp_Get|
000014d0  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 62 6b  |WindowState",,bk|
000014e0  3a 57 3d 28 62 6b 21 31  32 29 2d 28 62 6b 21 34  |:W=(bk!12)-(bk!4|
000014f0  29 0d 06 c2 36 48 3d 28  62 6b 21 31 36 29 2d 28  |)...6H=(bk!16)-(|
00001500  62 6b 21 38 29 3a 62 6b  21 34 3d 28 58 53 69 7a  |bk!8):bk!4=(XSiz|
00001510  65 2d 57 29 2f 32 3a 62  6b 21 38 3d 28 59 53 69  |e-W)/2:bk!8=(YSi|
00001520  7a 65 2d 48 29 2f 32 0d  06 cc 2a 62 6b 21 31 32  |ze-H)/2...*bk!12|
00001530  3d 28 62 6b 21 34 29 2b  57 3a 62 6b 21 31 36 3d  |=(bk!4)+W:bk!16=|
00001540  28 62 6b 21 38 29 2b 48  3a 62 6b 21 32 38 3d 2d  |(bk!8)+H:bk!28=-|
00001550  31 0d 06 d6 1d c8 99 22  57 69 6d 70 5f 4f 70 65  |1......"Wimp_Ope|
00001560  6e 57 69 6e 64 6f 77 22  2c 2c 62 6b 3a e1 0d ff  |nWindow",,bk:...|
00001570