� > !RunImage
� by Iain McLaren
� 21/05/90
(�
2(� q% &200,icon% 128,returnblock% 256
<7� bk 100,icontextbuff 12,iconvalidbuff 12,info% 500
F� warn% 500,blk% 10,up% 20
P5ș "Wimp_Initialise",200,&4B534154,"New Icon Bar"
Z3ș "Wimp_OpenTemplate",,"<NewBar$Dir>.Template"
d<ș "Wimp_LoadTemplate",,q%,info%,info%+&3000,-1,"info",0
n&ș "Wimp_CreateWindow",,q% � info%
x<ș "Wimp_LoadTemplate",,q%,warn%,warn%+&1000,-1,"warn",0
�&ș "Wimp_CreateWindow",,q% � warn%
�ș "Wimp_CloseTemplate"
�iconbar=�icon_iconbar
��initcolours
��initmenus
��
�
�-   ș"Wimp_Poll",,q% � poll%,returnblock%
�   Ȏ poll% �
�
�       � 1 : �redraw
�       � 2 : �open
�       � 3 : �close

       � 4 : �close

%       � 6 : �click(returnblock%)

"       � 9 : junk=�menuselectw

"       � 17,18

,       Ȏq%!16 �

6               �0:�end

@               �

J       �

T	   ��

^

h�

r

|

�
� �end

�ș"Wimp_CloseDown"

��

��

�

�

�� �click(click%)

�mousex%=click%!0

�button%=click%!8

�whand%=click%!12

�iconno=click%!16

�

�Ȏ whand% �
   � -2
8      � button%=2 �clickw(click%,click%!16) � �start
   � warn%
&      Ȏ iconno �
0           � 0:�close:�quit
:           � 1:�close
D      �
N   �
X�
b
lݤiconstate(icno%)
v!q%=window%
�q%!4=icno%
�ș"Wimp_GetIconState",,q%
�
=q%!28
�
�� �icon_iconbar
�
 � handle
� bk!0=-1
�
 bk!4=-16
�
 bk!8=-16
�
 bk!12=64
�
 bk!16=88
�* bk!20=%010000000000000010000100111011
� $icontextbuff=""
 $iconvalidbuff="S!NewBar"
 bk!24=icontextbuff
 bk!28=iconvalidbuff
  bk!32=6
*& ș "Wimp_CreateIcon",,bk � handle
4=handle
>
H� �clickw(buttons%,icon%)
R
�menuw
\�
f
p� �menuw
zjunk=�createmenu(0,wmenu$)
�claimmenu$="w"
��
�
�� �menuselectw
�
Ȏ q%!0 �
�  � 1:�end
��
�claimmenu$=""
�=0
�
�� �initcolours
�white=0:black=7
��

� �initmenus
� textlength,text$
$maxtextlength=40
.textlength=maxtextlength
8� mtext maxtextlength
B
$mtext=""
L&menublocksize=28+10*24:noofmenus=1
V'� menublock noofmenus*menublocksize
`submenu$="Info|Info"
j*wmenu$="Icon Bar|'submenu$'Info|Quit|"
t-textmenu$="Object text|*mtext,textlength"
~�
�
�� �createmenu(level%,data$)
�J� newtext$,header$,ptr%,shade%,tick%,dotted%,fgcol%,submenu%,writable%
�1� level%=0 � mb=menublock � mb+=menublocksize
�!header$=�data$,�data$,"|")-1)
�data$=�data$,�data$,"|")+1)
�$mb=�header$,11)
�mb?12=7:mb?13=2
�mb?14=7:mb?15=0
�$mb!16=100+32:mb!20=32+8:mb!24=10
�� �data$,1)<>"|" data$+="|"
�ptr%=mb+28
�

*shade%=0:tick%=0:dotted%=0:writable%=0
fgcol%=black:submenu%=-1
5� �data$,1)="<" � shade%=&400000: data$=�data$,2)
(-� �data$,1)=">" � tick%=1:data$=�data$,2)
2/� �data$,1)=":" � dotted%=2:data$=�data$,2)
<1� �data$,1)="*" � writable%=4:data$=�data$,2)
F?� �data$,1)="#" � fgcol%=�("&"+�data$,2,1)):data$=�data$,3)
P� �data$,1)="'" �
Zdata$=�data$,2)
d%newtext$=�(�data$,�data$,"'")-1))
ndata$=�data$,�data$,"'")+1)
xsubmenu%=info%
��
�� writable% �
�i%=�data$,",")
�ptr%!12=�(�data$,i%-1))
�data$=�data$,i%+1)
�-ptr%!16=-1:ptr%!20=�(�data$,�data$,"|")))
�"mb!16=�max(mb!16,4+16*ptr%!20)
��
�)$(ptr%+12)=��data$,�data$,"|")-1),11)
��
�data$=�data$,�data$,"|")+1)
�;ptr%!0=tick% � dotted% � writable% � (&80 � (data$=""))
�ptr%!4=submenu%
Cptr%!8=shade% � writable%<<6 � &010021 � white<<28 � fgcol%<<24
ptr%+=24
� data$=""
"@� level%=0 � ș "Wimp_CreateMenu",0,menublock,mousex%-50,200
,=mb
6
@
��quit
A*Key 1 *DeskTop|M
J!up%=20
Tup%!12=0
^up%!16=0
h!ș"Wimp_SendMessage",17,up%,0
rș&400DD
|*FX138,0,129
��
�
�� �start
�
� B% &100
�
!B%=warn%
�7ș"Wimp_GetWindowState",,B%:ș"Wimp_OpenWindow",,B%
��
�
�� �close
�!blk%=warn%
�ș"Wimp_CloseWindow",,blk%
��
�

� �redraw
"ș"Wimp_RedrawWindow",,q% � F%
	ȕ F%
&%   ș"Wimp_GetRectangle",,q% � F%
0   �
:�
D
N� �open
X ș"Wimp_OpenWindow",,q% � F%
b�
�

00000000  0d 00 0a 11 f4 20 3e 20  21 52 75 6e 49 6d 61 67  |..... > !RunImag|
00000010  65 0d 00 14 15 f4 20 62  79 20 49 61 69 6e 20 4d  |e..... by Iain M|
00000020  63 4c 61 72 65 6e 0d 00  1e 0e f4 20 32 31 2f 30  |cLaren..... 21/0|
00000030  35 2f 39 30 0d 00 28 05  f4 0d 00 32 28 de 20 71  |5/90..(....2(. q|
00000040  25 20 26 32 30 30 2c 69  63 6f 6e 25 20 31 32 38  |% &200,icon% 128|
00000050  2c 72 65 74 75 72 6e 62  6c 6f 63 6b 25 20 32 35  |,returnblock% 25|
00000060  36 0d 00 3c 37 de 20 62  6b 20 31 30 30 2c 69 63  |6..<7. bk 100,ic|
00000070  6f 6e 74 65 78 74 62 75  66 66 20 31 32 2c 69 63  |ontextbuff 12,ic|
00000080  6f 6e 76 61 6c 69 64 62  75 66 66 20 31 32 2c 69  |onvalidbuff 12,i|
00000090  6e 66 6f 25 20 35 30 30  0d 00 46 1e de 20 77 61  |nfo% 500..F.. wa|
000000a0  72 6e 25 20 35 30 30 2c  62 6c 6b 25 20 31 30 2c  |rn% 500,blk% 10,|
000000b0  75 70 25 20 32 30 0d 00  50 35 c8 99 20 22 57 69  |up% 20..P5.. "Wi|
000000c0  6d 70 5f 49 6e 69 74 69  61 6c 69 73 65 22 2c 32  |mp_Initialise",2|
000000d0  30 30 2c 26 34 42 35 33  34 31 35 34 2c 22 4e 65  |00,&4B534154,"Ne|
000000e0  77 20 49 63 6f 6e 20 42  61 72 22 0d 00 5a 33 c8  |w Icon Bar"..Z3.|
000000f0  99 20 22 57 69 6d 70 5f  4f 70 65 6e 54 65 6d 70  |. "Wimp_OpenTemp|
00000100  6c 61 74 65 22 2c 2c 22  3c 4e 65 77 42 61 72 24  |late",,"<NewBar$|
00000110  44 69 72 3e 2e 54 65 6d  70 6c 61 74 65 22 0d 00  |Dir>.Template"..|
00000120  64 3c c8 99 20 22 57 69  6d 70 5f 4c 6f 61 64 54  |d<.. "Wimp_LoadT|
00000130  65 6d 70 6c 61 74 65 22  2c 2c 71 25 2c 69 6e 66  |emplate",,q%,inf|
00000140  6f 25 2c 69 6e 66 6f 25  2b 26 33 30 30 30 2c 2d  |o%,info%+&3000,-|
00000150  31 2c 22 69 6e 66 6f 22  2c 30 0d 00 6e 26 c8 99  |1,"info",0..n&..|
00000160  20 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  | "Wimp_CreateWin|
00000170  64 6f 77 22 2c 2c 71 25  20 b8 20 69 6e 66 6f 25  |dow",,q% . info%|
00000180  0d 00 78 3c c8 99 20 22  57 69 6d 70 5f 4c 6f 61  |..x<.. "Wimp_Loa|
00000190  64 54 65 6d 70 6c 61 74  65 22 2c 2c 71 25 2c 77  |dTemplate",,q%,w|
000001a0  61 72 6e 25 2c 77 61 72  6e 25 2b 26 31 30 30 30  |arn%,warn%+&1000|
000001b0  2c 2d 31 2c 22 77 61 72  6e 22 2c 30 0d 00 82 26  |,-1,"warn",0...&|
000001c0  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |.. "Wimp_CreateW|
000001d0  69 6e 64 6f 77 22 2c 2c  71 25 20 b8 20 77 61 72  |indow",,q% . war|
000001e0  6e 25 0d 00 8c 1b c8 99  20 22 57 69 6d 70 5f 43  |n%...... "Wimp_C|
000001f0  6c 6f 73 65 54 65 6d 70  6c 61 74 65 22 0d 00 96  |loseTemplate"...|
00000200  19 69 63 6f 6e 62 61 72  3d a4 69 63 6f 6e 5f 69  |.iconbar=.icon_i|
00000210  63 6f 6e 62 61 72 0d 00  a0 10 f2 69 6e 69 74 63  |conbar.....initc|
00000220  6f 6c 6f 75 72 73 0d 00  aa 0e f2 69 6e 69 74 6d  |olours.....initm|
00000230  65 6e 75 73 0d 00 b4 05  f5 0d 00 be 04 0d 00 c8  |enus............|
00000240  2d 20 20 20 c8 99 22 57  69 6d 70 5f 50 6f 6c 6c  |-   .."Wimp_Poll|
00000250  22 2c 2c 71 25 20 b8 20  70 6f 6c 6c 25 2c 72 65  |",,q% . poll%,re|
00000260  74 75 72 6e 62 6c 6f 63  6b 25 0d 00 d2 11 20 20  |turnblock%....  |
00000270  20 c8 8e 20 70 6f 6c 6c  25 20 ca 0d 00 dc 04 0d  | .. poll% ......|
00000280  00 e6 18 20 20 20 20 20  20 20 c9 20 31 20 3a 20  |...       . 1 : |
00000290  f2 72 65 64 72 61 77 0d  00 f0 16 20 20 20 20 20  |.redraw....     |
000002a0  20 20 c9 20 32 20 3a 20  f2 6f 70 65 6e 0d 00 fa  |  . 2 : .open...|
000002b0  17 20 20 20 20 20 20 20  c9 20 33 20 3a 20 f2 63  |.       . 3 : .c|
000002c0  6c 6f 73 65 0d 01 04 17  20 20 20 20 20 20 20 c9  |lose....       .|
000002d0  20 34 20 3a 20 f2 63 6c  6f 73 65 0d 01 0e 25 20  | 4 : .close...% |
000002e0  20 20 20 20 20 20 c9 20  36 20 3a 20 f2 63 6c 69  |      . 6 : .cli|
000002f0  63 6b 28 72 65 74 75 72  6e 62 6c 6f 63 6b 25 29  |ck(returnblock%)|
00000300  0d 01 18 22 20 20 20 20  20 20 20 c9 20 39 20 3a  |..."       . 9 :|
00000310  20 6a 75 6e 6b 3d a4 6d  65 6e 75 73 65 6c 65 63  | junk=.menuselec|
00000320  74 77 0d 01 22 12 20 20  20 20 20 20 20 c9 20 31  |tw..".       . 1|
00000330  37 2c 31 38 0d 01 2c 14  20 20 20 20 20 20 20 c8  |7,18..,.       .|
00000340  8e 71 25 21 31 36 20 ca  0d 01 36 1a 20 20 20 20  |.q%!16 ...6.    |
00000350  20 20 20 20 20 20 20 20  20 20 20 c9 30 3a f2 65  |           .0:.e|
00000360  6e 64 0d 01 40 14 20 20  20 20 20 20 20 20 20 20  |nd..@.          |
00000370  20 20 20 20 20 cb 0d 01  4a 0c 20 20 20 20 20 20  |     ...J.      |
00000380  20 cb 0d 01 54 09 20 20  20 fd a3 0d 01 5e 04 0d  | ...T.   ....^..|
00000390  01 68 05 e0 0d 01 72 04  0d 01 7c 04 0d 01 86 0a  |.h....r...|.....|
000003a0  dd 20 f2 65 6e 64 0d 01  90 16 c8 99 22 57 69 6d  |. .end......"Wim|
000003b0  70 5f 43 6c 6f 73 65 44  6f 77 6e 22 0d 01 9a 05  |p_CloseDown"....|
000003c0  e0 0d 01 a4 05 e1 0d 01  ae 04 0d 01 b8 04 0d 01  |................|
000003d0  c2 14 dd 20 f2 63 6c 69  63 6b 28 63 6c 69 63 6b  |... .click(click|
000003e0  25 29 0d 01 cc 14 6d 6f  75 73 65 78 25 3d 63 6c  |%)....mousex%=cl|
000003f0  69 63 6b 25 21 30 0d 01  d6 14 62 75 74 74 6f 6e  |ick%!0....button|
00000400  25 3d 63 6c 69 63 6b 25  21 38 0d 01 e0 14 77 68  |%=click%!8....wh|
00000410  61 6e 64 25 3d 63 6c 69  63 6b 25 21 31 32 0d 01  |and%=click%!12..|
00000420  ea 14 69 63 6f 6e 6e 6f  3d 63 6c 69 63 6b 25 21  |..iconno=click%!|
00000430  31 36 0d 01 f4 04 0d 01  fe 0f c8 8e 20 77 68 61  |16.......... wha|
00000440  6e 64 25 20 ca 0d 02 08  0b 20 20 20 c9 20 2d 32  |nd% .....   . -2|
00000450  0d 02 12 38 20 20 20 20  20 20 e7 20 62 75 74 74  |...8      . butt|
00000460  6f 6e 25 3d 32 20 f2 63  6c 69 63 6b 77 28 63 6c  |on%=2 .clickw(cl|
00000470  69 63 6b 25 2c 63 6c 69  63 6b 25 21 31 36 29 20  |ick%,click%!16) |
00000480  8b 20 f2 73 74 61 72 74  0d 02 1c 0e 20 20 20 c9  |. .start....   .|
00000490  20 77 61 72 6e 25 0d 02  26 15 20 20 20 20 20 20  | warn%..&.      |
000004a0  c8 8e 20 69 63 6f 6e 6e  6f 20 ca 0d 02 30 1f 20  |.. iconno ...0. |
000004b0  20 20 20 20 20 20 20 20  20 20 c9 20 30 3a f2 63  |          . 0:.c|
000004c0  6c 6f 73 65 3a f2 71 75  69 74 0d 02 3a 19 20 20  |lose:.quit..:.  |
000004d0  20 20 20 20 20 20 20 20  20 c9 20 31 3a f2 63 6c  |         . 1:.cl|
000004e0  6f 73 65 0d 02 44 0b 20  20 20 20 20 20 cb 0d 02  |ose..D.      ...|
000004f0  4e 08 20 20 20 cb 0d 02  58 05 e1 0d 02 62 04 0d  |N.   ...X....b..|
00000500  02 6c 16 dd a4 69 63 6f  6e 73 74 61 74 65 28 69  |.l...iconstate(i|
00000510  63 6e 6f 25 29 0d 02 76  0f 21 71 25 3d 77 69 6e  |cno%)..v.!q%=win|
00000520  64 6f 77 25 0d 02 80 0e  71 25 21 34 3d 69 63 6e  |dow%....q%!4=icn|
00000530  6f 25 0d 02 8a 1d c8 99  22 57 69 6d 70 5f 47 65  |o%......"Wimp_Ge|
00000540  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 71 25 0d  |tIconState",,q%.|
00000550  02 94 0a 3d 71 25 21 32  38 0d 02 9e 04 0d 02 a8  |...=q%!28.......|
00000560  13 dd 20 a4 69 63 6f 6e  5f 69 63 6f 6e 62 61 72  |.. .icon_iconbar|
00000570  0d 02 b2 0d 20 ea 20 68  61 6e 64 6c 65 0d 02 bc  |.... . handle...|
00000580  0c 20 62 6b 21 30 3d 2d  31 0d 02 c6 0d 20 62 6b  |. bk!0=-1.... bk|
00000590  21 34 3d 2d 31 36 0d 02  d0 0d 20 62 6b 21 38 3d  |!4=-16.... bk!8=|
000005a0  2d 31 36 0d 02 da 0d 20  62 6b 21 31 32 3d 36 34  |-16.... bk!12=64|
000005b0  0d 02 e4 0d 20 62 6b 21  31 36 3d 38 38 0d 02 ee  |.... bk!16=88...|
000005c0  2a 20 62 6b 21 32 30 3d  25 30 31 30 30 30 30 30  |* bk!20=%0100000|
000005d0  30 30 30 30 30 30 30 30  30 31 30 30 30 30 31 30  |0000000001000010|
000005e0  30 31 31 31 30 31 31 0d  02 f8 15 20 24 69 63 6f  |0111011.... $ico|
000005f0  6e 74 65 78 74 62 75 66  66 3d 22 22 0d 03 02 1e  |ntextbuff=""....|
00000600  20 24 69 63 6f 6e 76 61  6c 69 64 62 75 66 66 3d  | $iconvalidbuff=|
00000610  22 53 21 4e 65 77 42 61  72 22 0d 03 0c 17 20 62  |"S!NewBar".... b|
00000620  6b 21 32 34 3d 69 63 6f  6e 74 65 78 74 62 75 66  |k!24=icontextbuf|
00000630  66 0d 03 16 18 20 62 6b  21 32 38 3d 69 63 6f 6e  |f.... bk!28=icon|
00000640  76 61 6c 69 64 62 75 66  66 0d 03 20 0c 20 62 6b  |validbuff.. . bk|
00000650  21 33 32 3d 36 0d 03 2a  26 20 c8 99 20 22 57 69  |!32=6..*& .. "Wi|
00000660  6d 70 5f 43 72 65 61 74  65 49 63 6f 6e 22 2c 2c  |mp_CreateIcon",,|
00000670  62 6b 20 b8 20 68 61 6e  64 6c 65 0d 03 34 0b 3d  |bk . handle..4.=|
00000680  68 61 6e 64 6c 65 0d 03  3e 04 0d 03 48 1d dd 20  |handle..>...H.. |
00000690  f2 63 6c 69 63 6b 77 28  62 75 74 74 6f 6e 73 25  |.clickw(buttons%|
000006a0  2c 69 63 6f 6e 25 29 0d  03 52 0a f2 6d 65 6e 75  |,icon%)..R..menu|
000006b0  77 0d 03 5c 05 e1 0d 03  66 04 0d 03 70 0c dd 20  |w..\....f...p.. |
000006c0  f2 6d 65 6e 75 77 0d 03  7a 1e 6a 75 6e 6b 3d a4  |.menuw..z.junk=.|
000006d0  63 72 65 61 74 65 6d 65  6e 75 28 30 2c 77 6d 65  |createmenu(0,wme|
000006e0  6e 75 24 29 0d 03 84 12  63 6c 61 69 6d 6d 65 6e  |nu$)....claimmen|
000006f0  75 24 3d 22 77 22 0d 03  8e 05 e1 0d 03 98 04 0d  |u$="w"..........|
00000700  03 a2 12 dd 20 a4 6d 65  6e 75 73 65 6c 65 63 74  |.... .menuselect|
00000710  77 0d 03 ac 0d c8 8e 20  71 25 21 30 20 ca 0d 03  |w...... q%!0 ...|
00000720  b6 0e 20 20 c9 20 31 3a  f2 65 6e 64 0d 03 c0 05  |..  . 1:.end....|
00000730  cb 0d 03 ca 11 63 6c 61  69 6d 6d 65 6e 75 24 3d  |.....claimmenu$=|
00000740  22 22 0d 03 d4 06 3d 30  0d 03 de 04 0d 03 e8 12  |""....=0........|
00000750  dd 20 f2 69 6e 69 74 63  6f 6c 6f 75 72 73 0d 03  |. .initcolours..|
00000760  f2 13 77 68 69 74 65 3d  30 3a 62 6c 61 63 6b 3d  |..white=0:black=|
00000770  37 0d 03 fc 05 e1 0d 04  06 04 0d 04 10 10 dd 20  |7.............. |
00000780  f2 69 6e 69 74 6d 65 6e  75 73 0d 04 1a 16 ea 20  |.initmenus..... |
00000790  74 65 78 74 6c 65 6e 67  74 68 2c 74 65 78 74 24  |textlength,text$|
000007a0  0d 04 24 14 6d 61 78 74  65 78 74 6c 65 6e 67 74  |..$.maxtextlengt|
000007b0  68 3d 34 30 0d 04 2e 1c  74 65 78 74 6c 65 6e 67  |h=40....textleng|
000007c0  74 68 3d 6d 61 78 74 65  78 74 6c 65 6e 67 74 68  |th=maxtextlength|
000007d0  0d 04 38 19 de 20 6d 74  65 78 74 20 6d 61 78 74  |..8.. mtext maxt|
000007e0  65 78 74 6c 65 6e 67 74  68 0d 04 42 0d 24 6d 74  |extlength..B.$mt|
000007f0  65 78 74 3d 22 22 0d 04  4c 26 6d 65 6e 75 62 6c  |ext=""..L&menubl|
00000800  6f 63 6b 73 69 7a 65 3d  32 38 2b 31 30 2a 32 34  |ocksize=28+10*24|
00000810  3a 6e 6f 6f 66 6d 65 6e  75 73 3d 31 0d 04 56 27  |:noofmenus=1..V'|
00000820  de 20 6d 65 6e 75 62 6c  6f 63 6b 20 6e 6f 6f 66  |. menublock noof|
00000830  6d 65 6e 75 73 2a 6d 65  6e 75 62 6c 6f 63 6b 73  |menus*menublocks|
00000840  69 7a 65 0d 04 60 18 73  75 62 6d 65 6e 75 24 3d  |ize..`.submenu$=|
00000850  22 49 6e 66 6f 7c 49 6e  66 6f 22 0d 04 6a 2a 77  |"Info|Info"..j*w|
00000860  6d 65 6e 75 24 3d 22 49  63 6f 6e 20 42 61 72 7c  |menu$="Icon Bar||
00000870  27 73 75 62 6d 65 6e 75  24 27 49 6e 66 6f 7c 51  |'submenu$'Info|Q|
00000880  75 69 74 7c 22 0d 04 74  2d 74 65 78 74 6d 65 6e  |uit|"..t-textmen|
00000890  75 24 3d 22 4f 62 6a 65  63 74 20 74 65 78 74 7c  |u$="Object text||
000008a0  2a 6d 74 65 78 74 2c 74  65 78 74 6c 65 6e 67 74  |*mtext,textlengt|
000008b0  68 22 0d 04 7e 05 e1 0d  04 88 04 0d 04 92 1f dd  |h"..~...........|
000008c0  20 a4 63 72 65 61 74 65  6d 65 6e 75 28 6c 65 76  | .createmenu(lev|
000008d0  65 6c 25 2c 64 61 74 61  24 29 0d 04 9c 4a ea 20  |el%,data$)...J. |
000008e0  6e 65 77 74 65 78 74 24  2c 68 65 61 64 65 72 24  |newtext$,header$|
000008f0  2c 70 74 72 25 2c 73 68  61 64 65 25 2c 74 69 63  |,ptr%,shade%,tic|
00000900  6b 25 2c 64 6f 74 74 65  64 25 2c 66 67 63 6f 6c  |k%,dotted%,fgcol|
00000910  25 2c 73 75 62 6d 65 6e  75 25 2c 77 72 69 74 61  |%,submenu%,writa|
00000920  62 6c 65 25 0d 04 a6 31  e7 20 6c 65 76 65 6c 25  |ble%...1. level%|
00000930  3d 30 20 8c 20 6d 62 3d  6d 65 6e 75 62 6c 6f 63  |=0 . mb=menubloc|
00000940  6b 20 8b 20 6d 62 2b 3d  6d 65 6e 75 62 6c 6f 63  |k . mb+=menubloc|
00000950  6b 73 69 7a 65 0d 04 b0  21 68 65 61 64 65 72 24  |ksize...!header$|
00000960  3d c0 64 61 74 61 24 2c  a7 64 61 74 61 24 2c 22  |=.data$,.data$,"|
00000970  7c 22 29 2d 31 29 0d 04  ba 1f 64 61 74 61 24 3d  ||")-1)....data$=|
00000980  c1 64 61 74 61 24 2c a7  64 61 74 61 24 2c 22 7c  |.data$,.data$,"||
00000990  22 29 2b 31 29 0d 04 c4  14 24 6d 62 3d c0 68 65  |")+1)....$mb=.he|
000009a0  61 64 65 72 24 2c 31 31  29 0d 04 ce 13 6d 62 3f  |ader$,11)....mb?|
000009b0  31 32 3d 37 3a 6d 62 3f  31 33 3d 32 0d 04 d8 13  |12=7:mb?13=2....|
000009c0  6d 62 3f 31 34 3d 37 3a  6d 62 3f 31 35 3d 30 0d  |mb?14=7:mb?15=0.|
000009d0  04 e2 24 6d 62 21 31 36  3d 31 30 30 2b 33 32 3a  |..$mb!16=100+32:|
000009e0  6d 62 21 32 30 3d 33 32  2b 38 3a 6d 62 21 32 34  |mb!20=32+8:mb!24|
000009f0  3d 31 30 0d 04 ec 1f e7  20 c2 64 61 74 61 24 2c  |=10..... .data$,|
00000a00  31 29 3c 3e 22 7c 22 20  64 61 74 61 24 2b 3d 22  |1)<>"|" data$+="|
00000a10  7c 22 0d 04 f6 0e 70 74  72 25 3d 6d 62 2b 32 38  ||"....ptr%=mb+28|
00000a20  0d 05 00 05 f5 0d 05 0a  2a 73 68 61 64 65 25 3d  |........*shade%=|
00000a30  30 3a 74 69 63 6b 25 3d  30 3a 64 6f 74 74 65 64  |0:tick%=0:dotted|
00000a40  25 3d 30 3a 77 72 69 74  61 62 6c 65 25 3d 30 0d  |%=0:writable%=0.|
00000a50  05 14 1c 66 67 63 6f 6c  25 3d 62 6c 61 63 6b 3a  |...fgcol%=black:|
00000a60  73 75 62 6d 65 6e 75 25  3d 2d 31 0d 05 1e 35 e7  |submenu%=-1...5.|
00000a70  20 c0 64 61 74 61 24 2c  31 29 3d 22 3c 22 20 8c  | .data$,1)="<" .|
00000a80  20 73 68 61 64 65 25 3d  26 34 30 30 30 30 30 3a  | shade%=&400000:|
00000a90  20 64 61 74 61 24 3d c1  64 61 74 61 24 2c 32 29  | data$=.data$,2)|
00000aa0  0d 05 28 2d e7 20 c0 64  61 74 61 24 2c 31 29 3d  |..(-. .data$,1)=|
00000ab0  22 3e 22 20 8c 20 74 69  63 6b 25 3d 31 3a 64 61  |">" . tick%=1:da|
00000ac0  74 61 24 3d c1 64 61 74  61 24 2c 32 29 0d 05 32  |ta$=.data$,2)..2|
00000ad0  2f e7 20 c0 64 61 74 61  24 2c 31 29 3d 22 3a 22  |/. .data$,1)=":"|
00000ae0  20 8c 20 64 6f 74 74 65  64 25 3d 32 3a 64 61 74  | . dotted%=2:dat|
00000af0  61 24 3d c1 64 61 74 61  24 2c 32 29 0d 05 3c 31  |a$=.data$,2)..<1|
00000b00  e7 20 c0 64 61 74 61 24  2c 31 29 3d 22 2a 22 20  |. .data$,1)="*" |
00000b10  8c 20 77 72 69 74 61 62  6c 65 25 3d 34 3a 64 61  |. writable%=4:da|
00000b20  74 61 24 3d c1 64 61 74  61 24 2c 32 29 0d 05 46  |ta$=.data$,2)..F|
00000b30  3f e7 20 c0 64 61 74 61  24 2c 31 29 3d 22 23 22  |?. .data$,1)="#"|
00000b40  20 8c 20 66 67 63 6f 6c  25 3d a0 28 22 26 22 2b  | . fgcol%=.("&"+|
00000b50  c1 64 61 74 61 24 2c 32  2c 31 29 29 3a 64 61 74  |.data$,2,1)):dat|
00000b60  61 24 3d c1 64 61 74 61  24 2c 33 29 0d 05 50 15  |a$=.data$,3)..P.|
00000b70  e7 20 c0 64 61 74 61 24  2c 31 29 3d 22 27 22 20  |. .data$,1)="'" |
00000b80  8c 0d 05 5a 13 64 61 74  61 24 3d c1 64 61 74 61  |...Z.data$=.data|
00000b90  24 2c 32 29 0d 05 64 25  6e 65 77 74 65 78 74 24  |$,2)..d%newtext$|
00000ba0  3d a0 28 c0 64 61 74 61  24 2c a7 64 61 74 61 24  |=.(.data$,.data$|
00000bb0  2c 22 27 22 29 2d 31 29  29 0d 05 6e 1f 64 61 74  |,"'")-1))..n.dat|
00000bc0  61 24 3d c1 64 61 74 61  24 2c a7 64 61 74 61 24  |a$=.data$,.data$|
00000bd0  2c 22 27 22 29 2b 31 29  0d 05 78 12 73 75 62 6d  |,"'")+1)..x.subm|
00000be0  65 6e 75 25 3d 69 6e 66  6f 25 0d 05 82 05 cd 0d  |enu%=info%......|
00000bf0  05 8c 11 e7 20 77 72 69  74 61 62 6c 65 25 20 8c  |.... writable% .|
00000c00  0d 05 96 12 69 25 3d a7  64 61 74 61 24 2c 22 2c  |....i%=.data$,",|
00000c10  22 29 0d 05 a0 1b 70 74  72 25 21 31 32 3d a0 28  |")....ptr%!12=.(|
00000c20  c0 64 61 74 61 24 2c 69  25 2d 31 29 29 0d 05 aa  |.data$,i%-1))...|
00000c30  16 64 61 74 61 24 3d c1  64 61 74 61 24 2c 69 25  |.data$=.data$,i%|
00000c40  2b 31 29 0d 05 b4 2d 70  74 72 25 21 31 36 3d 2d  |+1)...-ptr%!16=-|
00000c50  31 3a 70 74 72 25 21 32  30 3d a0 28 c0 64 61 74  |1:ptr%!20=.(.dat|
00000c60  61 24 2c a7 64 61 74 61  24 2c 22 7c 22 29 29 29  |a$,.data$,"|")))|
00000c70  0d 05 be 22 6d 62 21 31  36 3d a4 6d 61 78 28 6d  |..."mb!16=.max(m|
00000c80  62 21 31 36 2c 34 2b 31  36 2a 70 74 72 25 21 32  |b!16,4+16*ptr%!2|
00000c90  30 29 0d 05 c8 05 cc 0d  05 d2 29 24 28 70 74 72  |0)........)$(ptr|
00000ca0  25 2b 31 32 29 3d c0 c0  64 61 74 61 24 2c a7 64  |%+12)=..data$,.d|
00000cb0  61 74 61 24 2c 22 7c 22  29 2d 31 29 2c 31 31 29  |ata$,"|")-1),11)|
00000cc0  0d 05 dc 05 cd 0d 05 e6  1f 64 61 74 61 24 3d c1  |.........data$=.|
00000cd0  64 61 74 61 24 2c a7 64  61 74 61 24 2c 22 7c 22  |data$,.data$,"|"|
00000ce0  29 2b 31 29 0d 05 f0 3b  70 74 72 25 21 30 3d 74  |)+1)...;ptr%!0=t|
00000cf0  69 63 6b 25 20 84 20 64  6f 74 74 65 64 25 20 84  |ick% . dotted% .|
00000d00  20 77 72 69 74 61 62 6c  65 25 20 84 20 28 26 38  | writable% . (&8|
00000d10  30 20 80 20 28 64 61 74  61 24 3d 22 22 29 29 0d  |0 . (data$="")).|
00000d20  05 fa 13 70 74 72 25 21  34 3d 73 75 62 6d 65 6e  |...ptr%!4=submen|
00000d30  75 25 0d 06 04 43 70 74  72 25 21 38 3d 73 68 61  |u%...Cptr%!8=sha|
00000d40  64 65 25 20 84 20 77 72  69 74 61 62 6c 65 25 3c  |de% . writable%<|
00000d50  3c 36 20 84 20 26 30 31  30 30 32 31 20 84 20 77  |<6 . &010021 . w|
00000d60  68 69 74 65 3c 3c 32 38  20 84 20 66 67 63 6f 6c  |hite<<28 . fgcol|
00000d70  25 3c 3c 32 34 0d 06 0e  0c 70 74 72 25 2b 3d 32  |%<<24....ptr%+=2|
00000d80  34 0d 06 18 0e fd 20 64  61 74 61 24 3d 22 22 0d  |4..... data$="".|
00000d90  06 22 40 e7 20 6c 65 76  65 6c 25 3d 30 20 8c 20  |."@. level%=0 . |
00000da0  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |.. "Wimp_CreateM|
00000db0  65 6e 75 22 2c 30 2c 6d  65 6e 75 62 6c 6f 63 6b  |enu",0,menublock|
00000dc0  2c 6d 6f 75 73 65 78 25  2d 35 30 2c 32 30 30 0d  |,mousex%-50,200.|
00000dd0  06 2c 07 3d 6d 62 0d 06  36 04 0d 06 40 0a dd f2  |.,.=mb..6...@...|
00000de0  71 75 69 74 0d 06 41 15  2a 4b 65 79 20 31 20 2a  |quit..A.*Key 1 *|
00000df0  44 65 73 6b 54 6f 70 7c  4d 0d 06 4a 0b 21 75 70  |DeskTop|M..J.!up|
00000e00  25 3d 32 30 0d 06 54 0c  75 70 25 21 31 32 3d 30  |%=20..T.up%!12=0|
00000e10  0d 06 5e 0c 75 70 25 21  31 36 3d 30 0d 06 68 21  |..^.up%!16=0..h!|
00000e20  c8 99 22 57 69 6d 70 5f  53 65 6e 64 4d 65 73 73  |.."Wimp_SendMess|
00000e30  61 67 65 22 2c 31 37 2c  75 70 25 2c 30 0d 06 72  |age",17,up%,0..r|
00000e40  0c c8 99 26 34 30 30 44  44 0d 06 7c 10 2a 46 58  |...&400DD..|.*FX|
00000e50  31 33 38 2c 30 2c 31 32  39 0d 06 86 05 e1 0d 06  |138,0,129.......|
00000e60  90 04 0d 06 9a 0c dd 20  f2 73 74 61 72 74 0d 06  |....... .start..|
00000e70  a4 0d de 20 42 25 20 26  31 30 30 0d 06 ae 0d 21  |... B% &100....!|
00000e80  42 25 3d 77 61 72 6e 25  0d 06 b8 37 c8 99 22 57  |B%=warn%...7.."W|
00000e90  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 53 74 61  |imp_GetWindowSta|
00000ea0  74 65 22 2c 2c 42 25 3a  c8 99 22 57 69 6d 70 5f  |te",,B%:.."Wimp_|
00000eb0  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 42 25 0d  |OpenWindow",,B%.|
00000ec0  06 c2 05 e1 0d 06 cc 04  0d 06 d6 0c dd 20 f2 63  |............. .c|
00000ed0  6c 6f 73 65 0d 06 e0 0f  21 62 6c 6b 25 3d 77 61  |lose....!blk%=wa|
00000ee0  72 6e 25 0d 06 ea 1e c8  99 22 57 69 6d 70 5f 43  |rn%......"Wimp_C|
00000ef0  6c 6f 73 65 57 69 6e 64  6f 77 22 2c 2c 62 6c 6b  |loseWindow",,blk|
00000f00  25 0d 06 f4 05 e1 0d 06  fe 04 0d 07 08 0d dd 20  |%.............. |
00000f10  f2 72 65 64 72 61 77 0d  07 12 22 c8 99 22 57 69  |.redraw...".."Wi|
00000f20  6d 70 5f 52 65 64 72 61  77 57 69 6e 64 6f 77 22  |mp_RedrawWindow"|
00000f30  2c 2c 71 25 20 b8 20 46  25 0d 07 1c 09 c8 95 20  |,,q% . F%...... |
00000f40  46 25 0d 07 26 25 20 20  20 c8 99 22 57 69 6d 70  |F%..&%   .."Wimp|
00000f50  5f 47 65 74 52 65 63 74  61 6e 67 6c 65 22 2c 2c  |_GetRectangle",,|
00000f60  71 25 20 b8 20 46 25 0d  07 30 08 20 20 20 ce 0d  |q% . F%..0.   ..|
00000f70  07 3a 05 e1 0d 07 44 04  0d 07 4e 0b dd 20 f2 6f  |.:....D...N.. .o|
00000f80  70 65 6e 0d 07 58 20 c8  99 22 57 69 6d 70 5f 4f  |pen..X .."Wimp_O|
00000f90  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 71 25 20 b8  |penWindow",,q% .|
00000fa0  20 46 25 0d 07 62 05 e1  0d ff                    | F%..b....|
00000faa