� >$.WimpArt.!Two.!RunImage

� Manifest constants
(
2colNN%     =255
<colTF%     = 7
FcolMF%     = 7
PcolTB%     = 2
ZcolWF%     = 7
dcolWB%     = 0
ncolSO%     = 3
xcolSI%     = 1
�colTH%     =12
�
�select_button%=4
�menu_button%  =2
�adjust_button%=1
�
�My_Task$     = "Two"
�My_IconName$ = "!Two"
�%My_Window$   = "Wimp Programming"
�
�� Claim resources
�
�� wimp_block% &1000

� icon_bar_block% 12



� Claim Menu buffers

"

,menulen% =&1000

6� menufree% menulen%

@!menuend% = menufree%+menulen%

J� menulist% &100

T

^,� Start the task in the eyes of the wimp

h

r=ș"Wimp_Initialise",200,&4B534154,My_Task$ � ,taskhandle%

|

�9icon_on_bar% = �iconbar(My_IconName$,icon_bar_block%)

�

�� A$

�$(wimp_block%)=A$

�-icon_bar_menu%=�create_menu(My_IconName$)

�� "Info,Quit"

�ibar_menuitems%=2

�Menu_icb_quit%=1

�

�9my_handle%=�create_window(My_Window$,wimp_block% + 4)

�
�

(ș"Wimp_Poll",,wimp_block% � action%
&
0�dispatch(action%)
:
D��
N
X��dispatch(ac%)
b
lȎ ac% �
v� 0
� � 1 :� Redraw window request
�#  �redraw_window(wimp_block%!0)
�� 2 :� Open window request
�-  �open_window(wimp_block%!0,wimp_block%)
�� 3 :� Close window request
�.  �close_window(wimp_block%!0,wimp_block%)
�� 6 :� A Mouse click
�  �mouse
�)� 9 :� A Menu Selection has been made
�
  I%=0
�  �
�#    menulist%!I%=wimp_block%!I%
�
    I%+=4
  � wimp_block%!(I%-4)=-1
+  �decodemenu(G_menuhandle%, menulist%)
  � buttons% � 1 �
     �remenu
*  �
4�
>�
H
R*� �create_window(window_title$,block%)
\� wind_flags%
f� title_flags%
p� worka_flags%
z� Z%,result_is%
�� I%
�
�� Z% &100:$Z%=window_title$
�
�&� === Ok, so lets create a window.
�1� Window has all the trimmings and is movable
�4wind_flags%  = %11111111000000000000000000000010
�4title_flags% = %00000000000000000110000100111101
�*worka_flags% = &0000A000 :� D-C-D type
�'� Visible area and scroll positions
�block%!0 =0
�block%!4 =180
�block%!8 =1238
block%!12=980
block%!16=0
block%!20=0
$,� Handle to appear in front of and flags
.block%!24= -1
8block%!28= wind_flags%
B� The colours
Lblock%?32= colTF% :� Here
Vblock%?33= colTB%
`block%?34= colWF%
jblock%?35= colWB%
tblock%?36= colSO%
~block%?37= colSI%
�block%?38= colTH%
�block%?39= 0
�� The work area extent
�block%!40= 0
�block%!44=-2000
�block%!48= 2000
�block%!52= 0
�� Title and w/a flags
�block%!56=title_flags%
�block%!60=worka_flags%
�$� Sprite area CB is wimp sprites
�block%!64=1
� Minimum sizes

block%!68=100
block%!70=100
 � The title data. indirected
(block%!72=Z%
2block%!76=-1
<block%!80=�(window_title$)
F)� No predefined icons - so put a zero
Pblock%!84=0
Z/ș "Wimp_CreateWindow",,block% � result_is%
d=result_is%
n
x"� �open_window(handle%,block%)
�block%!0=handle%
�ș"Wimp_OpenWindow",,block%
��
�
�5� �open_window_at(handle%,block%,x0%,y0%,x1%,y1%)
�block%!0  =handle%
�block%!4  = x0%
�block%!8  = y0%
�block%!12 = x1%
�block%!16 = y1%
�
�block%!20 = 0
�block%!24 = 0
block%!28 = -1
ș"Wimp_OpenWindow",,block%
�
"
,� �redraw_window(handle%)
6
�more%
@/ș "Wimp_RedrawWindow",,wimp_block% � more%
Jȕ more%
T  �application_redraw
^1  ș "Wimp_GetRectangle",,wimp_block% � more%
h�
r
|�
�
�#� �close_window(handle%,block%)
�block%!0=handle%
� ș"Wimp_CloseWindow",,block%
��
�
�	��end
�wimp_block%!0=my_handle%
�&ș"Wimp_DeleteWindow",,wimp_block%
�,ș"Wimp_CloseDown",taskhandle%,&4B534154
�

&� ================================
&�  Application redraw code
0&� ================================
:
D��application_redraw
N+workx%= wimp_block%!4  - wimp_block%!20
X+worky%= wimp_block%!16 - wimp_block%!24
b� 13
l'ȏ Ȑ workx% + 400,worky% - 400,400
v�
�
�J� ====================================================================
�1�  Add the application's icon to the icon bar
�J� ====================================================================
�
�ݤiconbar(spname$,block%)
�
� handle%
�$block% = spname$
�wimp_block%!0  = -1
�wimp_block%!4  =  0
�wimp_block%!8  =  0
wimp_block%!12 = 80
wimp_block%!16 = 82
wimp_block%!20 = &2182
 wimp_block%!24 = block%
*wimp_block%!28 = 1
4wimp_block%!32 = �($block%)
>1ș "XWimp_CreateIcon",0,wimp_block% � handle%
H=handle%
R
\)ݤnewiconbar(spname$,block%,oldhand%)
fwimp_block%!0 = -1
pwimp_block%!4 = oldhand%
z%ș "Wimp_DeleteIcon",,wimp_block%
�=�iconbar(spname$,block%)
�
�J� ====================================================================
��  Creation of menus
�J� ====================================================================
�
�,ݤmake_menu(title$,� menufree%,menuend%)
�"� mhand%,menuptr%,item$,block%
�� maxx%
�block%=wimp_block%
�
�� menufree%+28 > menuend% �
�)  �error(4,title$):� "Menu area full"
	�
	
	menuptr%=menufree%
	$$menuptr%   = title$
	.menuptr%?12 = colMF%
	8menuptr%?13 =  2
	Bmenuptr%?14 = colWF%
	Lmenuptr%?15 = colWB%
	Vmenuptr%!16 = 196-24
	`menuptr%!20 = 44
	jmenuptr%!24 =  0
	tmenuptr%   += 28
	~maxx%=�(title$)-3
	��
	�  item$=�getitem(block%)
	�.  �menuitem(item$,menuptr%,menuend%,maxx%)
	�� item$=""
	�mhand%    = menufree%
	�mhand%!16 =maxx%*16+12
	�menufree%=menuptr%
	�=mhand%
	�
	�ݤgetitem(� block%)
	��A$
	�!ȕ ?block%<>�"," � ?block%>31
  A$+=�(?block%)

  block%+=1
�
� ?block%=�"," �
(  block%+=1
2�
<=A$
F
P/� Add the menu item into the data structure
Z
d1��menuitem(text$,� menuptr%,menuend%,� maxx%)
n�i%,flg%,L%,Z%,flg%,subptr%
x� text$="" �
�)  menuptr%!(-24)=(menuptr%!(-24))�&80
�  �
��
�� menuptr%+24 > menuend% �
�(  �error(4,text$):� "Menu area full"
��
�flg%=&00
,subptr%=-1
hmenuptr%!0=flg%
rmenuptr%!4=subptr%
|menuptr%!8=&07000021
0� �(text$)<12 �
:  $(menuptr%+12)=text$
D�
E  � Z% �(text$)
X  menuptr%!12=Z%
b  menuptr%!16=-1
l  menuptr%!20=�(text$)
v"  menuptr%!8=menuptr%!8 � &100
��
�� �(text$)>maxx% �
�  maxx%=�(text$)
��
�menuptr%+=24
��
�
���error(e%,A$)
�� e%,A$
��
�
�ݤcreate_menu(title$)
�*=�make_menu(title$,menufree%,menuend%)
�
�K� =====================================================================
��  Poping up Menus etc

K� =====================================================================



��menu(m%,icon%)

 
�x%,y%

*x%=mousex%-68

4y%=mousey%+12

>�menu_at(m%,icon%,x%,y%)

H�

R

\��menu_at(m%,icon%,x%,y%)

f� m%<>-1 �

p  G_menuhandle%=m%

z  G_menuicon%  =icon%

�  �encodemenu(m%,icon%)

�$  ș "Wimp_CreateMenu",,m%,x%,y%

��

��

�

���remenu

�*�encodemenu(G_menuhandle%,G_menuicon%)

�>ș "Wimp_CreateMenu",,G_menuhandle%,mousex%-102,mousey%+12

��

�

���encodemenu(handle%,item%)

��

�
K� =====================================================================
�  Process Mouse Clicks
K� =====================================================================
$
.��mouse
8� handle%,icon%
Bmousex%     = wimp_block%!0
Lmousey%     = wimp_block%!4
Vbuttons%    = wimp_block%!8
` handle%     = wimp_block%!12
j icon%       = wimp_block%!16
tȎ buttons% �
~� select_button%
�  Ȏ handle% �
�
  � -2
�=    �open_window_at(my_handle%,wimp_block%,0,180,600,980)
  �

� menu_button%
  Ȏ handle% �

  � -2
(G    �menu_at(icon_bar_menu%,icon%,mousex%-68,ibar_menuitems%*44+96)
2  �
<�
F�
P
ZK� =====================================================================
d�  Decode menu selections
nK� =====================================================================
x
���decodemenu(hand%,menus%)
�Ȏ hand% �
�� icon_bar_menu%
�  Ȏ menus%!0 �
�  � Menu_icb_quit%
�    �end
�  �
��
��
�

00000000  0d 00 0a 1f f4 20 3e 24  2e 57 69 6d 70 41 72 74  |..... >$.WimpArt|
00000010  2e 21 54 77 6f 2e 21 52  75 6e 49 6d 61 67 65 0d  |.!Two.!RunImage.|
00000020  00 14 04 0d 00 1e 18 f4  20 4d 61 6e 69 66 65 73  |........ Manifes|
00000030  74 20 63 6f 6e 73 74 61  6e 74 73 0d 00 28 04 0d  |t constants..(..|
00000040  00 32 13 63 6f 6c 4e 4e  25 20 20 20 20 20 3d 32  |.2.colNN%     =2|
00000050  35 35 0d 00 3c 12 63 6f  6c 54 46 25 20 20 20 20  |55..<.colTF%    |
00000060  20 3d 20 37 0d 00 46 12  63 6f 6c 4d 46 25 20 20  | = 7..F.colMF%  |
00000070  20 20 20 3d 20 37 0d 00  50 12 63 6f 6c 54 42 25  |   = 7..P.colTB%|
00000080  20 20 20 20 20 3d 20 32  0d 00 5a 12 63 6f 6c 57  |     = 2..Z.colW|
00000090  46 25 20 20 20 20 20 3d  20 37 0d 00 64 12 63 6f  |F%     = 7..d.co|
000000a0  6c 57 42 25 20 20 20 20  20 3d 20 30 0d 00 6e 12  |lWB%     = 0..n.|
000000b0  63 6f 6c 53 4f 25 20 20  20 20 20 3d 20 33 0d 00  |colSO%     = 3..|
000000c0  78 12 63 6f 6c 53 49 25  20 20 20 20 20 3d 20 31  |x.colSI%     = 1|
000000d0  0d 00 82 12 63 6f 6c 54  48 25 20 20 20 20 20 3d  |....colTH%     =|
000000e0  31 32 0d 00 8c 04 0d 00  96 14 73 65 6c 65 63 74  |12........select|
000000f0  5f 62 75 74 74 6f 6e 25  3d 34 0d 00 a0 14 6d 65  |_button%=4....me|
00000100  6e 75 5f 62 75 74 74 6f  6e 25 20 20 3d 32 0d 00  |nu_button%  =2..|
00000110  aa 14 61 64 6a 75 73 74  5f 62 75 74 74 6f 6e 25  |..adjust_button%|
00000120  3d 31 0d 00 b4 04 0d 00  be 18 4d 79 5f 54 61 73  |=1........My_Tas|
00000130  6b 24 20 20 20 20 20 3d  20 22 54 77 6f 22 0d 00  |k$     = "Two"..|
00000140  c8 19 4d 79 5f 49 63 6f  6e 4e 61 6d 65 24 20 3d  |..My_IconName$ =|
00000150  20 22 21 54 77 6f 22 0d  00 d2 25 4d 79 5f 57 69  | "!Two"...%My_Wi|
00000160  6e 64 6f 77 24 20 20 20  3d 20 22 57 69 6d 70 20  |ndow$   = "Wimp |
00000170  50 72 6f 67 72 61 6d 6d  69 6e 67 22 0d 00 dc 04  |Programming"....|
00000180  0d 00 e6 15 f4 20 43 6c  61 69 6d 20 72 65 73 6f  |..... Claim reso|
00000190  75 72 63 65 73 0d 00 f0  04 0d 00 fa 17 de 20 77  |urces......... w|
000001a0  69 6d 70 5f 62 6c 6f 63  6b 25 20 26 31 30 30 30  |imp_block% &1000|
000001b0  0d 01 04 18 de 20 69 63  6f 6e 5f 62 61 72 5f 62  |..... icon_bar_b|
000001c0  6c 6f 63 6b 25 20 31 32  0d 01 0e 04 0d 01 18 18  |lock% 12........|
000001d0  f4 20 43 6c 61 69 6d 20  4d 65 6e 75 20 62 75 66  |. Claim Menu buf|
000001e0  66 65 72 73 0d 01 22 04  0d 01 2c 13 6d 65 6e 75  |fers.."...,.menu|
000001f0  6c 65 6e 25 20 3d 26 31  30 30 30 0d 01 36 18 de  |len% =&1000..6..|
00000200  20 6d 65 6e 75 66 72 65  65 25 20 6d 65 6e 75 6c  | menufree% menul|
00000210  65 6e 25 0d 01 40 21 6d  65 6e 75 65 6e 64 25 20  |en%..@!menuend% |
00000220  3d 20 6d 65 6e 75 66 72  65 65 25 2b 6d 65 6e 75  |= menufree%+menu|
00000230  6c 65 6e 25 0d 01 4a 14  de 20 6d 65 6e 75 6c 69  |len%..J.. menuli|
00000240  73 74 25 20 26 31 30 30  0d 01 54 04 0d 01 5e 2c  |st% &100..T...^,|
00000250  f4 20 53 74 61 72 74 20  74 68 65 20 74 61 73 6b  |. Start the task|
00000260  20 69 6e 20 74 68 65 20  65 79 65 73 20 6f 66 20  | in the eyes of |
00000270  74 68 65 20 77 69 6d 70  0d 01 68 04 0d 01 72 3d  |the wimp..h...r=|
00000280  c8 99 22 57 69 6d 70 5f  49 6e 69 74 69 61 6c 69  |.."Wimp_Initiali|
00000290  73 65 22 2c 32 30 30 2c  26 34 42 35 33 34 31 35  |se",200,&4B53415|
000002a0  34 2c 4d 79 5f 54 61 73  6b 24 20 b8 20 2c 74 61  |4,My_Task$ . ,ta|
000002b0  73 6b 68 61 6e 64 6c 65  25 0d 01 7c 04 0d 01 86  |skhandle%..|....|
000002c0  39 69 63 6f 6e 5f 6f 6e  5f 62 61 72 25 20 3d 20  |9icon_on_bar% = |
000002d0  a4 69 63 6f 6e 62 61 72  28 4d 79 5f 49 63 6f 6e  |.iconbar(My_Icon|
000002e0  4e 61 6d 65 24 2c 69 63  6f 6e 5f 62 61 72 5f 62  |Name$,icon_bar_b|
000002f0  6c 6f 63 6b 25 29 0d 01  90 04 0d 01 9a 08 f3 20  |lock%)......... |
00000300  41 24 0d 01 a4 15 24 28  77 69 6d 70 5f 62 6c 6f  |A$....$(wimp_blo|
00000310  63 6b 25 29 3d 41 24 0d  01 ae 2d 69 63 6f 6e 5f  |ck%)=A$...-icon_|
00000320  62 61 72 5f 6d 65 6e 75  25 3d a4 63 72 65 61 74  |bar_menu%=.creat|
00000330  65 5f 6d 65 6e 75 28 4d  79 5f 49 63 6f 6e 4e 61  |e_menu(My_IconNa|
00000340  6d 65 24 29 0d 01 b8 11  dc 20 22 49 6e 66 6f 2c  |me$)..... "Info,|
00000350  51 75 69 74 22 0d 01 c2  15 69 62 61 72 5f 6d 65  |Quit"....ibar_me|
00000360  6e 75 69 74 65 6d 73 25  3d 32 0d 01 cc 14 4d 65  |nuitems%=2....Me|
00000370  6e 75 5f 69 63 62 5f 71  75 69 74 25 3d 31 0d 01  |nu_icb_quit%=1..|
00000380  d6 04 0d 01 e0 39 6d 79  5f 68 61 6e 64 6c 65 25  |.....9my_handle%|
00000390  3d a4 63 72 65 61 74 65  5f 77 69 6e 64 6f 77 28  |=.create_window(|
000003a0  4d 79 5f 57 69 6e 64 6f  77 24 2c 77 69 6d 70 5f  |My_Window$,wimp_|
000003b0  62 6c 6f 63 6b 25 20 2b  20 34 29 0d 01 ea 04 0d  |block% + 4).....|
000003c0  02 08 05 f5 0d 02 12 04  0d 02 1c 28 c8 99 22 57  |...........(.."W|
000003d0  69 6d 70 5f 50 6f 6c 6c  22 2c 2c 77 69 6d 70 5f  |imp_Poll",,wimp_|
000003e0  62 6c 6f 63 6b 25 20 b8  20 61 63 74 69 6f 6e 25  |block% . action%|
000003f0  0d 02 26 04 0d 02 30 16  f2 64 69 73 70 61 74 63  |..&...0..dispatc|
00000400  68 28 61 63 74 69 6f 6e  25 29 0d 02 3a 04 0d 02  |h(action%)..:...|
00000410  44 06 fd a3 0d 02 4e 04  0d 02 58 13 dd f2 64 69  |D.....N...X...di|
00000420  73 70 61 74 63 68 28 61  63 25 29 0d 02 62 04 0d  |spatch(ac%)..b..|
00000430  02 6c 0c c8 8e 20 61 63  25 20 ca 0d 02 76 07 c9  |.l... ac% ...v..|
00000440  20 30 0d 02 80 20 c9 20  31 20 3a f4 20 52 65 64  | 0... . 1 :. Red|
00000450  72 61 77 20 77 69 6e 64  6f 77 20 72 65 71 75 65  |raw window reque|
00000460  73 74 0d 02 8a 23 20 20  f2 72 65 64 72 61 77 5f  |st...#  .redraw_|
00000470  77 69 6e 64 6f 77 28 77  69 6d 70 5f 62 6c 6f 63  |window(wimp_bloc|
00000480  6b 25 21 30 29 0d 02 94  1e c9 20 32 20 3a f4 20  |k%!0)..... 2 :. |
00000490  4f 70 65 6e 20 77 69 6e  64 6f 77 20 72 65 71 75  |Open window requ|
000004a0  65 73 74 0d 02 9e 2d 20  20 f2 6f 70 65 6e 5f 77  |est...-  .open_w|
000004b0  69 6e 64 6f 77 28 77 69  6d 70 5f 62 6c 6f 63 6b  |indow(wimp_block|
000004c0  25 21 30 2c 77 69 6d 70  5f 62 6c 6f 63 6b 25 29  |%!0,wimp_block%)|
000004d0  0d 02 a8 1f c9 20 33 20  3a f4 20 43 6c 6f 73 65  |..... 3 :. Close|
000004e0  20 77 69 6e 64 6f 77 20  72 65 71 75 65 73 74 0d  | window request.|
000004f0  02 b2 2e 20 20 f2 63 6c  6f 73 65 5f 77 69 6e 64  |...  .close_wind|
00000500  6f 77 28 77 69 6d 70 5f  62 6c 6f 63 6b 25 21 30  |ow(wimp_block%!0|
00000510  2c 77 69 6d 70 5f 62 6c  6f 63 6b 25 29 0d 02 bc  |,wimp_block%)...|
00000520  18 c9 20 36 20 3a f4 20  41 20 4d 6f 75 73 65 20  |.. 6 :. A Mouse |
00000530  63 6c 69 63 6b 0d 02 c6  0c 20 20 f2 6d 6f 75 73  |click....  .mous|
00000540  65 0d 02 d0 29 c9 20 39  20 3a f4 20 41 20 4d 65  |e...). 9 :. A Me|
00000550  6e 75 20 53 65 6c 65 63  74 69 6f 6e 20 68 61 73  |nu Selection has|
00000560  20 62 65 65 6e 20 6d 61  64 65 0d 02 da 0a 20 20  | been made....  |
00000570  49 25 3d 30 0d 02 e4 07  20 20 f5 0d 02 ee 23 20  |I%=0....  ....# |
00000580  20 20 20 6d 65 6e 75 6c  69 73 74 25 21 49 25 3d  |   menulist%!I%=|
00000590  77 69 6d 70 5f 62 6c 6f  63 6b 25 21 49 25 0d 02  |wimp_block%!I%..|
000005a0  f8 0d 20 20 20 20 49 25  2b 3d 34 0d 03 02 1d 20  |..    I%+=4.... |
000005b0  20 fd 20 77 69 6d 70 5f  62 6c 6f 63 6b 25 21 28  | . wimp_block%!(|
000005c0  49 25 2d 34 29 3d 2d 31  0d 03 0c 2b 20 20 f2 64  |I%-4)=-1...+  .d|
000005d0  65 63 6f 64 65 6d 65 6e  75 28 47 5f 6d 65 6e 75  |ecodemenu(G_menu|
000005e0  68 61 6e 64 6c 65 25 2c  20 6d 65 6e 75 6c 69 73  |handle%, menulis|
000005f0  74 25 29 0d 03 16 16 20  20 e7 20 62 75 74 74 6f  |t%)....  . butto|
00000600  6e 73 25 20 80 20 31 20  8c 0d 03 20 0f 20 20 20  |ns% . 1 ... .   |
00000610  20 f2 72 65 6d 65 6e 75  0d 03 2a 07 20 20 cd 0d  | .remenu..*.  ..|
00000620  03 34 05 cb 0d 03 3e 05  e1 0d 03 48 04 0d 03 52  |.4....>....H...R|
00000630  2a dd 20 a4 63 72 65 61  74 65 5f 77 69 6e 64 6f  |*. .create_windo|
00000640  77 28 77 69 6e 64 6f 77  5f 74 69 74 6c 65 24 2c  |w(window_title$,|
00000650  62 6c 6f 63 6b 25 29 0d  03 5c 11 ea 20 77 69 6e  |block%)..\.. win|
00000660  64 5f 66 6c 61 67 73 25  0d 03 66 12 ea 20 74 69  |d_flags%..f.. ti|
00000670  74 6c 65 5f 66 6c 61 67  73 25 0d 03 70 12 ea 20  |tle_flags%..p.. |
00000680  77 6f 72 6b 61 5f 66 6c  61 67 73 25 0d 03 7a 13  |worka_flags%..z.|
00000690  ea 20 5a 25 2c 72 65 73  75 6c 74 5f 69 73 25 0d  |. Z%,result_is%.|
000006a0  03 84 08 ea 20 49 25 0d  03 8e 04 0d 03 98 1f de  |.... I%.........|
000006b0  20 5a 25 20 26 31 30 30  3a 24 5a 25 3d 77 69 6e  | Z% &100:$Z%=win|
000006c0  64 6f 77 5f 74 69 74 6c  65 24 0d 03 a2 04 0d 03  |dow_title$......|
000006d0  ac 26 f4 20 3d 3d 3d 20  4f 6b 2c 20 73 6f 20 6c  |.&. === Ok, so l|
000006e0  65 74 73 20 63 72 65 61  74 65 20 61 20 77 69 6e  |ets create a win|
000006f0  64 6f 77 2e 0d 03 b6 31  f4 20 57 69 6e 64 6f 77  |dow....1. Window|
00000700  20 68 61 73 20 61 6c 6c  20 74 68 65 20 74 72 69  | has all the tri|
00000710  6d 6d 69 6e 67 73 20 61  6e 64 20 69 73 20 6d 6f  |mmings and is mo|
00000720  76 61 62 6c 65 0d 03 c0  34 77 69 6e 64 5f 66 6c  |vable...4wind_fl|
00000730  61 67 73 25 20 20 3d 20  25 31 31 31 31 31 31 31  |ags%  = %1111111|
00000740  31 30 30 30 30 30 30 30  30 30 30 30 30 30 30 30  |1000000000000000|
00000750  30 30 30 30 30 30 30 31  30 0d 03 ca 34 74 69 74  |000000010...4tit|
00000760  6c 65 5f 66 6c 61 67 73  25 20 3d 20 25 30 30 30  |le_flags% = %000|
00000770  30 30 30 30 30 30 30 30  30 30 30 30 30 30 31 31  |0000000000000011|
00000780  30 30 30 30 31 30 30 31  31 31 31 30 31 0d 03 d4  |0000100111101...|
00000790  2a 77 6f 72 6b 61 5f 66  6c 61 67 73 25 20 3d 20  |*worka_flags% = |
000007a0  26 30 30 30 30 41 30 30  30 20 3a f4 20 44 2d 43  |&0000A000 :. D-C|
000007b0  2d 44 20 74 79 70 65 0d  03 de 27 f4 20 56 69 73  |-D type...'. Vis|
000007c0  69 62 6c 65 20 61 72 65  61 20 61 6e 64 20 73 63  |ible area and sc|
000007d0  72 6f 6c 6c 20 70 6f 73  69 74 69 6f 6e 73 0d 03  |roll positions..|
000007e0  e8 0f 62 6c 6f 63 6b 25  21 30 20 3d 30 0d 03 f2  |..block%!0 =0...|
000007f0  11 62 6c 6f 63 6b 25 21  34 20 3d 31 38 30 0d 03  |.block%!4 =180..|
00000800  fc 12 62 6c 6f 63 6b 25  21 38 20 3d 31 32 33 38  |..block%!8 =1238|
00000810  0d 04 06 11 62 6c 6f 63  6b 25 21 31 32 3d 39 38  |....block%!12=98|
00000820  30 0d 04 10 0f 62 6c 6f  63 6b 25 21 31 36 3d 30  |0....block%!16=0|
00000830  0d 04 1a 0f 62 6c 6f 63  6b 25 21 32 30 3d 30 0d  |....block%!20=0.|
00000840  04 24 2c f4 20 48 61 6e  64 6c 65 20 74 6f 20 61  |.$,. Handle to a|
00000850  70 70 65 61 72 20 69 6e  20 66 72 6f 6e 74 20 6f  |ppear in front o|
00000860  66 20 61 6e 64 20 66 6c  61 67 73 0d 04 2e 11 62  |f and flags....b|
00000870  6c 6f 63 6b 25 21 32 34  3d 20 2d 31 0d 04 38 1a  |lock%!24= -1..8.|
00000880  62 6c 6f 63 6b 25 21 32  38 3d 20 77 69 6e 64 5f  |block%!28= wind_|
00000890  66 6c 61 67 73 25 0d 04  42 11 f4 20 54 68 65 20  |flags%..B.. The |
000008a0  63 6f 6c 6f 75 72 73 0d  04 4c 1d 62 6c 6f 63 6b  |colours..L.block|
000008b0  25 3f 33 32 3d 20 63 6f  6c 54 46 25 20 3a f4 20  |%?32= colTF% :. |
000008c0  48 65 72 65 0d 04 56 15  62 6c 6f 63 6b 25 3f 33  |Here..V.block%?3|
000008d0  33 3d 20 63 6f 6c 54 42  25 0d 04 60 15 62 6c 6f  |3= colTB%..`.blo|
000008e0  63 6b 25 3f 33 34 3d 20  63 6f 6c 57 46 25 0d 04  |ck%?34= colWF%..|
000008f0  6a 15 62 6c 6f 63 6b 25  3f 33 35 3d 20 63 6f 6c  |j.block%?35= col|
00000900  57 42 25 0d 04 74 15 62  6c 6f 63 6b 25 3f 33 36  |WB%..t.block%?36|
00000910  3d 20 63 6f 6c 53 4f 25  0d 04 7e 15 62 6c 6f 63  |= colSO%..~.bloc|
00000920  6b 25 3f 33 37 3d 20 63  6f 6c 53 49 25 0d 04 88  |k%?37= colSI%...|
00000930  15 62 6c 6f 63 6b 25 3f  33 38 3d 20 63 6f 6c 54  |.block%?38= colT|
00000940  48 25 0d 04 92 10 62 6c  6f 63 6b 25 3f 33 39 3d  |H%....block%?39=|
00000950  20 30 0d 04 9c 1a f4 20  54 68 65 20 77 6f 72 6b  | 0..... The work|
00000960  20 61 72 65 61 20 65 78  74 65 6e 74 0d 04 a6 10  | area extent....|
00000970  62 6c 6f 63 6b 25 21 34  30 3d 20 30 0d 04 b0 13  |block%!40= 0....|
00000980  62 6c 6f 63 6b 25 21 34  34 3d 2d 32 30 30 30 0d  |block%!44=-2000.|
00000990  04 ba 13 62 6c 6f 63 6b  25 21 34 38 3d 20 32 30  |...block%!48= 20|
000009a0  30 30 0d 04 c4 10 62 6c  6f 63 6b 25 21 35 32 3d  |00....block%!52=|
000009b0  20 30 0d 04 ce 19 f4 20  54 69 74 6c 65 20 61 6e  | 0..... Title an|
000009c0  64 20 77 2f 61 20 66 6c  61 67 73 0d 04 d8 1a 62  |d w/a flags....b|
000009d0  6c 6f 63 6b 25 21 35 36  3d 74 69 74 6c 65 5f 66  |lock%!56=title_f|
000009e0  6c 61 67 73 25 0d 04 e2  1a 62 6c 6f 63 6b 25 21  |lags%....block%!|
000009f0  36 30 3d 77 6f 72 6b 61  5f 66 6c 61 67 73 25 0d  |60=worka_flags%.|
00000a00  04 ec 24 f4 20 53 70 72  69 74 65 20 61 72 65 61  |..$. Sprite area|
00000a10  20 43 42 20 69 73 20 77  69 6d 70 20 73 70 72 69  | CB is wimp spri|
00000a20  74 65 73 0d 04 f6 0f 62  6c 6f 63 6b 25 21 36 34  |tes....block%!64|
00000a30  3d 31 0d 05 00 13 f4 20  4d 69 6e 69 6d 75 6d 20  |=1..... Minimum |
00000a40  73 69 7a 65 73 0d 05 0a  11 62 6c 6f 63 6b 25 21  |sizes....block%!|
00000a50  36 38 3d 31 30 30 0d 05  14 11 62 6c 6f 63 6b 25  |68=100....block%|
00000a60  21 37 30 3d 31 30 30 0d  05 1e 20 f4 20 54 68 65  |!70=100... . The|
00000a70  20 74 69 74 6c 65 20 64  61 74 61 2e 20 69 6e 64  | title data. ind|
00000a80  69 72 65 63 74 65 64 0d  05 28 10 62 6c 6f 63 6b  |irected..(.block|
00000a90  25 21 37 32 3d 5a 25 0d  05 32 10 62 6c 6f 63 6b  |%!72=Z%..2.block|
00000aa0  25 21 37 36 3d 2d 31 0d  05 3c 1e 62 6c 6f 63 6b  |%!76=-1..<.block|
00000ab0  25 21 38 30 3d a9 28 77  69 6e 64 6f 77 5f 74 69  |%!80=.(window_ti|
00000ac0  74 6c 65 24 29 0d 05 46  29 f4 20 4e 6f 20 70 72  |tle$)..F). No pr|
00000ad0  65 64 65 66 69 6e 65 64  20 69 63 6f 6e 73 20 2d  |edefined icons -|
00000ae0  20 73 6f 20 70 75 74 20  61 20 7a 65 72 6f 0d 05  | so put a zero..|
00000af0  50 0f 62 6c 6f 63 6b 25  21 38 34 3d 30 0d 05 5a  |P.block%!84=0..Z|
00000b00  2f c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |/.. "Wimp_Create|
00000b10  57 69 6e 64 6f 77 22 2c  2c 62 6c 6f 63 6b 25 20  |Window",,block% |
00000b20  b8 20 72 65 73 75 6c 74  5f 69 73 25 0d 05 64 0f  |. result_is%..d.|
00000b30  3d 72 65 73 75 6c 74 5f  69 73 25 0d 05 6e 04 0d  |=result_is%..n..|
00000b40  05 78 22 dd 20 f2 6f 70  65 6e 5f 77 69 6e 64 6f  |.x". .open_windo|
00000b50  77 28 68 61 6e 64 6c 65  25 2c 62 6c 6f 63 6b 25  |w(handle%,block%|
00000b60  29 0d 05 82 14 62 6c 6f  63 6b 25 21 30 3d 68 61  |)....block%!0=ha|
00000b70  6e 64 6c 65 25 0d 05 8c  1f c8 99 22 57 69 6d 70  |ndle%......"Wimp|
00000b80  5f 4f 70 65 6e 57 69 6e  64 6f 77 22 2c 2c 62 6c  |_OpenWindow",,bl|
00000b90  6f 63 6b 25 0d 05 96 05  e1 0d 05 a0 04 0d 05 aa  |ock%............|
00000ba0  35 dd 20 f2 6f 70 65 6e  5f 77 69 6e 64 6f 77 5f  |5. .open_window_|
00000bb0  61 74 28 68 61 6e 64 6c  65 25 2c 62 6c 6f 63 6b  |at(handle%,block|
00000bc0  25 2c 78 30 25 2c 79 30  25 2c 78 31 25 2c 79 31  |%,x0%,y0%,x1%,y1|
00000bd0  25 29 0d 05 b4 16 62 6c  6f 63 6b 25 21 30 20 20  |%)....block%!0  |
00000be0  3d 68 61 6e 64 6c 65 25  0d 05 be 13 62 6c 6f 63  |=handle%....bloc|
00000bf0  6b 25 21 34 20 20 3d 20  78 30 25 0d 05 c8 13 62  |k%!4  = x0%....b|
00000c00  6c 6f 63 6b 25 21 38 20  20 3d 20 79 30 25 0d 05  |lock%!8  = y0%..|
00000c10  d2 13 62 6c 6f 63 6b 25  21 31 32 20 3d 20 78 31  |..block%!12 = x1|
00000c20  25 0d 05 dc 13 62 6c 6f  63 6b 25 21 31 36 20 3d  |%....block%!16 =|
00000c30  20 79 31 25 0d 05 e6 04  0d 05 f0 11 62 6c 6f 63  | y1%........bloc|
00000c40  6b 25 21 32 30 20 3d 20  30 0d 05 fa 11 62 6c 6f  |k%!20 = 0....blo|
00000c50  63 6b 25 21 32 34 20 3d  20 30 0d 06 04 12 62 6c  |ck%!24 = 0....bl|
00000c60  6f 63 6b 25 21 32 38 20  3d 20 2d 31 0d 06 0e 1f  |ock%!28 = -1....|
00000c70  c8 99 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |.."Wimp_OpenWind|
00000c80  6f 77 22 2c 2c 62 6c 6f  63 6b 25 0d 06 18 05 e1  |ow",,block%.....|
00000c90  0d 06 22 04 0d 06 2c 1d  dd 20 f2 72 65 64 72 61  |.."...,.. .redra|
00000ca0  77 5f 77 69 6e 64 6f 77  28 68 61 6e 64 6c 65 25  |w_window(handle%|
00000cb0  29 0d 06 36 0a ea 6d 6f  72 65 25 0d 06 40 2f c8  |)..6..more%..@/.|
00000cc0  99 20 22 57 69 6d 70 5f  52 65 64 72 61 77 57 69  |. "Wimp_RedrawWi|
00000cd0  6e 64 6f 77 22 2c 2c 77  69 6d 70 5f 62 6c 6f 63  |ndow",,wimp_bloc|
00000ce0  6b 25 20 b8 20 6d 6f 72  65 25 0d 06 4a 0c c8 95  |k% . more%..J...|
00000cf0  20 6d 6f 72 65 25 0d 06  54 19 20 20 f2 61 70 70  | more%..T.  .app|
00000d00  6c 69 63 61 74 69 6f 6e  5f 72 65 64 72 61 77 0d  |lication_redraw.|
00000d10  06 5e 31 20 20 c8 99 20  22 57 69 6d 70 5f 47 65  |.^1  .. "Wimp_Ge|
00000d20  74 52 65 63 74 61 6e 67  6c 65 22 2c 2c 77 69 6d  |tRectangle",,wim|
00000d30  70 5f 62 6c 6f 63 6b 25  20 b8 20 6d 6f 72 65 25  |p_block% . more%|
00000d40  0d 06 68 05 ce 0d 06 72  04 0d 06 7c 05 e1 0d 06  |..h....r...|....|
00000d50  86 04 0d 06 90 23 dd 20  f2 63 6c 6f 73 65 5f 77  |.....#. .close_w|
00000d60  69 6e 64 6f 77 28 68 61  6e 64 6c 65 25 2c 62 6c  |indow(handle%,bl|
00000d70  6f 63 6b 25 29 0d 06 9a  14 62 6c 6f 63 6b 25 21  |ock%)....block%!|
00000d80  30 3d 68 61 6e 64 6c 65  25 0d 06 a4 20 c8 99 22  |0=handle%... .."|
00000d90  57 69 6d 70 5f 43 6c 6f  73 65 57 69 6e 64 6f 77  |Wimp_CloseWindow|
00000da0  22 2c 2c 62 6c 6f 63 6b  25 0d 06 cc 05 e1 0d 06  |",,block%.......|
00000db0  d6 04 0d 06 e0 09 dd f2  65 6e 64 0d 06 ea 1c 77  |........end....w|
00000dc0  69 6d 70 5f 62 6c 6f 63  6b 25 21 30 3d 6d 79 5f  |imp_block%!0=my_|
00000dd0  68 61 6e 64 6c 65 25 0d  06 f4 26 c8 99 22 57 69  |handle%...&.."Wi|
00000de0  6d 70 5f 44 65 6c 65 74  65 57 69 6e 64 6f 77 22  |mp_DeleteWindow"|
00000df0  2c 2c 77 69 6d 70 5f 62  6c 6f 63 6b 25 0d 06 fe  |,,wimp_block%...|
00000e00  2c c8 99 22 57 69 6d 70  5f 43 6c 6f 73 65 44 6f  |,.."Wimp_CloseDo|
00000e10  77 6e 22 2c 74 61 73 6b  68 61 6e 64 6c 65 25 2c  |wn",taskhandle%,|
00000e20  26 34 42 35 33 34 31 35  34 0d 07 08 05 e1 0d 07  |&4B534154.......|
00000e30  12 04 0d 07 1c 26 f4 20  3d 3d 3d 3d 3d 3d 3d 3d  |.....&. ========|
00000e40  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00000e50  3d 3d 3d 3d 3d 3d 3d 3d  0d 07 26 1e f4 20 20 41  |========..&..  A|
00000e60  70 70 6c 69 63 61 74 69  6f 6e 20 72 65 64 72 61  |pplication redra|
00000e70  77 20 63 6f 64 65 0d 07  30 26 f4 20 3d 3d 3d 3d  |w code..0&. ====|
00000e80  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00000e90  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 0d 07 3a 04  |============..:.|
00000ea0  0d 07 44 18 dd f2 61 70  70 6c 69 63 61 74 69 6f  |..D...applicatio|
00000eb0  6e 5f 72 65 64 72 61 77  0d 07 4e 2b 77 6f 72 6b  |n_redraw..N+work|
00000ec0  78 25 3d 20 77 69 6d 70  5f 62 6c 6f 63 6b 25 21  |x%= wimp_block%!|
00000ed0  34 20 20 2d 20 77 69 6d  70 5f 62 6c 6f 63 6b 25  |4  - wimp_block%|
00000ee0  21 32 30 0d 07 58 2b 77  6f 72 6b 79 25 3d 20 77  |!20..X+worky%= w|
00000ef0  69 6d 70 5f 62 6c 6f 63  6b 25 21 31 36 20 2d 20  |imp_block%!16 - |
00000f00  77 69 6d 70 5f 62 6c 6f  63 6b 25 21 32 34 0d 07  |wimp_block%!24..|
00000f10  62 08 e6 20 31 33 0d 07  6c 27 c8 8f 20 c8 90 20  |b.. 13..l'.. .. |
00000f20  77 6f 72 6b 78 25 20 2b  20 34 30 30 2c 77 6f 72  |workx% + 400,wor|
00000f30  6b 79 25 20 2d 20 34 30  30 2c 34 30 30 0d 07 76  |ky% - 400,400..v|
00000f40  05 e1 0d 07 80 04 0d 07  8a 4a f4 20 3d 3d 3d 3d  |.........J. ====|
00000f50  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00000f90  0d 07 94 31 f4 20 20 41  64 64 20 74 68 65 20 61  |...1.  Add the a|
00000fa0  70 70 6c 69 63 61 74 69  6f 6e 27 73 20 69 63 6f  |pplication's ico|
00000fb0  6e 20 74 6f 20 74 68 65  20 69 63 6f 6e 20 62 61  |n to the icon ba|
00000fc0  72 0d 07 9e 4a f4 20 3d  3d 3d 3d 3d 3d 3d 3d 3d  |r...J. =========|
00000fd0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00001000  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 0d 07 a8 04 0d  |===========.....|
00001010  07 b2 1d dd a4 69 63 6f  6e 62 61 72 28 73 70 6e  |.....iconbar(spn|
00001020  61 6d 65 24 2c 62 6c 6f  63 6b 25 29 0d 07 c6 0d  |ame$,block%)....|
00001030  ea 20 68 61 6e 64 6c 65  25 0d 07 da 15 24 62 6c  |. handle%....$bl|
00001040  6f 63 6b 25 20 3d 20 73  70 6e 61 6d 65 24 0d 07  |ock% = spname$..|
00001050  e4 17 77 69 6d 70 5f 62  6c 6f 63 6b 25 21 30 20  |..wimp_block%!0 |
00001060  20 3d 20 2d 31 0d 07 ee  17 77 69 6d 70 5f 62 6c  | = -1....wimp_bl|
00001070  6f 63 6b 25 21 34 20 20  3d 20 20 30 0d 07 f8 17  |ock%!4  =  0....|
00001080  77 69 6d 70 5f 62 6c 6f  63 6b 25 21 38 20 20 3d  |wimp_block%!8  =|
00001090  20 20 30 0d 08 02 17 77  69 6d 70 5f 62 6c 6f 63  |  0....wimp_bloc|
000010a0  6b 25 21 31 32 20 3d 20  38 30 0d 08 0c 17 77 69  |k%!12 = 80....wi|
000010b0  6d 70 5f 62 6c 6f 63 6b  25 21 31 36 20 3d 20 38  |mp_block%!16 = 8|
000010c0  32 0d 08 16 1a 77 69 6d  70 5f 62 6c 6f 63 6b 25  |2....wimp_block%|
000010d0  21 32 30 20 3d 20 26 32  31 38 32 0d 08 20 1b 77  |!20 = &2182.. .w|
000010e0  69 6d 70 5f 62 6c 6f 63  6b 25 21 32 34 20 3d 20  |imp_block%!24 = |
000010f0  62 6c 6f 63 6b 25 0d 08  2a 16 77 69 6d 70 5f 62  |block%..*.wimp_b|
00001100  6c 6f 63 6b 25 21 32 38  20 3d 20 31 0d 08 34 1f  |lock%!28 = 1..4.|
00001110  77 69 6d 70 5f 62 6c 6f  63 6b 25 21 33 32 20 3d  |wimp_block%!32 =|
00001120  20 a9 28 24 62 6c 6f 63  6b 25 29 0d 08 3e 31 c8  | .($block%)..>1.|
00001130  99 20 22 58 57 69 6d 70  5f 43 72 65 61 74 65 49  |. "XWimp_CreateI|
00001140  63 6f 6e 22 2c 30 2c 77  69 6d 70 5f 62 6c 6f 63  |con",0,wimp_bloc|
00001150  6b 25 20 b8 20 68 61 6e  64 6c 65 25 0d 08 48 0c  |k% . handle%..H.|
00001160  3d 68 61 6e 64 6c 65 25  0d 08 52 04 0d 08 5c 29  |=handle%..R...\)|
00001170  dd a4 6e 65 77 69 63 6f  6e 62 61 72 28 73 70 6e  |..newiconbar(spn|
00001180  61 6d 65 24 2c 62 6c 6f  63 6b 25 2c 6f 6c 64 68  |ame$,block%,oldh|
00001190  61 6e 64 25 29 0d 08 66  16 77 69 6d 70 5f 62 6c  |and%)..f.wimp_bl|
000011a0  6f 63 6b 25 21 30 20 3d  20 2d 31 0d 08 70 1c 77  |ock%!0 = -1..p.w|
000011b0  69 6d 70 5f 62 6c 6f 63  6b 25 21 34 20 3d 20 6f  |imp_block%!4 = o|
000011c0  6c 64 68 61 6e 64 25 0d  08 7a 25 c8 99 20 22 57  |ldhand%..z%.. "W|
000011d0  69 6d 70 5f 44 65 6c 65  74 65 49 63 6f 6e 22 2c  |imp_DeleteIcon",|
000011e0  2c 77 69 6d 70 5f 62 6c  6f 63 6b 25 0d 08 84 1d  |,wimp_block%....|
000011f0  3d a4 69 63 6f 6e 62 61  72 28 73 70 6e 61 6d 65  |=.iconbar(spname|
00001200  24 2c 62 6c 6f 63 6b 25  29 0d 08 8e 04 0d 08 98  |$,block%).......|
00001210  4a f4 20 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |J. =============|
00001220  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00001250  3d 3d 3d 3d 3d 3d 3d 0d  08 a2 18 f4 20 20 43 72  |=======.....  Cr|
00001260  65 61 74 69 6f 6e 20 6f  66 20 6d 65 6e 75 73 0d  |eation of menus.|
00001270  08 ac 4a f4 20 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |..J. ===========|
00001280  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
000012b0  3d 3d 3d 3d 3d 3d 3d 3d  3d 0d 08 b6 04 0d 08 c0  |=========.......|
000012c0  2c dd a4 6d 61 6b 65 5f  6d 65 6e 75 28 74 69 74  |,..make_menu(tit|
000012d0  6c 65 24 2c f8 20 6d 65  6e 75 66 72 65 65 25 2c  |le$,. menufree%,|
000012e0  6d 65 6e 75 65 6e 64 25  29 0d 08 ca 22 ea 20 6d  |menuend%)...". m|
000012f0  68 61 6e 64 25 2c 6d 65  6e 75 70 74 72 25 2c 69  |hand%,menuptr%,i|
00001300  74 65 6d 24 2c 62 6c 6f  63 6b 25 0d 08 d4 0b ea  |tem$,block%.....|
00001310  20 6d 61 78 78 25 0d 08  de 16 62 6c 6f 63 6b 25  | maxx%....block%|
00001320  3d 77 69 6d 70 5f 62 6c  6f 63 6b 25 0d 08 e8 04  |=wimp_block%....|
00001330  0d 08 f2 1f e7 20 6d 65  6e 75 66 72 65 65 25 2b  |..... menufree%+|
00001340  32 38 20 3e 20 6d 65 6e  75 65 6e 64 25 20 8c 0d  |28 > menuend% ..|
00001350  08 fc 29 20 20 f2 65 72  72 6f 72 28 34 2c 74 69  |..)  .error(4,ti|
00001360  74 6c 65 24 29 3a f4 20  22 4d 65 6e 75 20 61 72  |tle$):. "Menu ar|
00001370  65 61 20 66 75 6c 6c 22  0d 09 06 05 cd 0d 09 10  |ea full"........|
00001380  04 0d 09 1a 16 6d 65 6e  75 70 74 72 25 3d 6d 65  |.....menuptr%=me|
00001390  6e 75 66 72 65 65 25 0d  09 24 18 24 6d 65 6e 75  |nufree%..$.$menu|
000013a0  70 74 72 25 20 20 20 3d  20 74 69 74 6c 65 24 0d  |ptr%   = title$.|
000013b0  09 2e 18 6d 65 6e 75 70  74 72 25 3f 31 32 20 3d  |...menuptr%?12 =|
000013c0  20 63 6f 6c 4d 46 25 0d  09 38 14 6d 65 6e 75 70  | colMF%..8.menup|
000013d0  74 72 25 3f 31 33 20 3d  20 20 32 0d 09 42 18 6d  |tr%?13 =  2..B.m|
000013e0  65 6e 75 70 74 72 25 3f  31 34 20 3d 20 63 6f 6c  |enuptr%?14 = col|
000013f0  57 46 25 0d 09 4c 18 6d  65 6e 75 70 74 72 25 3f  |WF%..L.menuptr%?|
00001400  31 35 20 3d 20 63 6f 6c  57 42 25 0d 09 56 18 6d  |15 = colWB%..V.m|
00001410  65 6e 75 70 74 72 25 21  31 36 20 3d 20 31 39 36  |enuptr%!16 = 196|
00001420  2d 32 34 0d 09 60 14 6d  65 6e 75 70 74 72 25 21  |-24..`.menuptr%!|
00001430  32 30 20 3d 20 34 34 0d  09 6a 14 6d 65 6e 75 70  |20 = 44..j.menup|
00001440  74 72 25 21 32 34 20 3d  20 20 30 0d 09 74 14 6d  |tr%!24 =  0..t.m|
00001450  65 6e 75 70 74 72 25 20  20 20 2b 3d 20 32 38 0d  |enuptr%   += 28.|
00001460  09 7e 15 6d 61 78 78 25  3d a9 28 74 69 74 6c 65  |.~.maxx%=.(title|
00001470  24 29 2d 33 0d 09 88 05  f5 0d 09 92 1c 20 20 69  |$)-3.........  i|
00001480  74 65 6d 24 3d a4 67 65  74 69 74 65 6d 28 62 6c  |tem$=.getitem(bl|
00001490  6f 63 6b 25 29 0d 09 9c  2e 20 20 f2 6d 65 6e 75  |ock%)....  .menu|
000014a0  69 74 65 6d 28 69 74 65  6d 24 2c 6d 65 6e 75 70  |item(item$,menup|
000014b0  74 72 25 2c 6d 65 6e 75  65 6e 64 25 2c 6d 61 78  |tr%,menuend%,max|
000014c0  78 25 29 0d 09 a6 0e fd  20 69 74 65 6d 24 3d 22  |x%)..... item$="|
000014d0  22 0d 09 b0 19 6d 68 61  6e 64 25 20 20 20 20 3d  |"....mhand%    =|
000014e0  20 6d 65 6e 75 66 72 65  65 25 0d 09 ba 1a 6d 68  | menufree%....mh|
000014f0  61 6e 64 25 21 31 36 20  3d 6d 61 78 78 25 2a 31  |and%!16 =maxx%*1|
00001500  36 2b 31 32 0d 09 c4 16  6d 65 6e 75 66 72 65 65  |6+12....menufree|
00001510  25 3d 6d 65 6e 75 70 74  72 25 0d 09 ce 0b 3d 6d  |%=menuptr%....=m|
00001520  68 61 6e 64 25 0d 09 d8  04 0d 09 e2 17 dd a4 67  |hand%..........g|
00001530  65 74 69 74 65 6d 28 f8  20 62 6c 6f 63 6b 25 29  |etitem(. block%)|
00001540  0d 09 ec 07 ea 41 24 0d  09 f6 21 c8 95 20 3f 62  |.....A$...!.. ?b|
00001550  6c 6f 63 6b 25 3c 3e 97  22 2c 22 20 80 20 3f 62  |lock%<>."," . ?b|
00001560  6c 6f 63 6b 25 3e 33 31  0d 0a 00 14 20 20 41 24  |lock%>31....  A$|
00001570  2b 3d bd 28 3f 62 6c 6f  63 6b 25 29 0d 0a 0a 0f  |+=.(?block%)....|
00001580  20 20 62 6c 6f 63 6b 25  2b 3d 31 0d 0a 14 05 ce  |  block%+=1.....|
00001590  0d 0a 1e 14 e7 20 3f 62  6c 6f 63 6b 25 3d 97 22  |..... ?block%=."|
000015a0  2c 22 20 8c 0d 0a 28 0f  20 20 62 6c 6f 63 6b 25  |," ...(.  block%|
000015b0  2b 3d 31 0d 0a 32 05 cd  0d 0a 3c 07 3d 41 24 0d  |+=1..2....<.=A$.|
000015c0  0a 46 04 0d 0a 50 2f f4  20 41 64 64 20 74 68 65  |.F...P/. Add the|
000015d0  20 6d 65 6e 75 20 69 74  65 6d 20 69 6e 74 6f 20  | menu item into |
000015e0  74 68 65 20 64 61 74 61  20 73 74 72 75 63 74 75  |the data structu|
000015f0  72 65 0d 0a 5a 04 0d 0a  64 31 dd f2 6d 65 6e 75  |re..Z...d1..menu|
00001600  69 74 65 6d 28 74 65 78  74 24 2c f8 20 6d 65 6e  |item(text$,. men|
00001610  75 70 74 72 25 2c 6d 65  6e 75 65 6e 64 25 2c f8  |uptr%,menuend%,.|
00001620  20 6d 61 78 78 25 29 0d  0a 6e 1f ea 69 25 2c 66  | maxx%)..n..i%,f|
00001630  6c 67 25 2c 4c 25 2c 5a  25 2c 66 6c 67 25 2c 73  |lg%,L%,Z%,flg%,s|
00001640  75 62 70 74 72 25 0d 0a  78 10 e7 20 74 65 78 74  |ubptr%..x.. text|
00001650  24 3d 22 22 20 8c 0d 0a  82 29 20 20 6d 65 6e 75  |$="" ....)  menu|
00001660  70 74 72 25 21 28 2d 32  34 29 3d 28 6d 65 6e 75  |ptr%!(-24)=(menu|
00001670  70 74 72 25 21 28 2d 32  34 29 29 84 26 38 30 0d  |ptr%!(-24)).&80.|
00001680  0a 8c 07 20 20 e1 0d 0a  96 05 cd 0d 0a a0 1e e7  |...  ...........|
00001690  20 6d 65 6e 75 70 74 72  25 2b 32 34 20 3e 20 6d  | menuptr%+24 > m|
000016a0  65 6e 75 65 6e 64 25 20  8c 0d 0a aa 28 20 20 f2  |enuend% ....(  .|
000016b0  65 72 72 6f 72 28 34 2c  74 65 78 74 24 29 3a f4  |error(4,text$):.|
000016c0  20 22 4d 65 6e 75 20 61  72 65 61 20 66 75 6c 6c  | "Menu area full|
000016d0  22 0d 0a b4 05 cd 0d 0a  e6 0c 66 6c 67 25 3d 26  |".........flg%=&|
000016e0  30 30 0d 0b 2c 0e 73 75  62 70 74 72 25 3d 2d 31  |00..,.subptr%=-1|
000016f0  0d 0b 68 13 6d 65 6e 75  70 74 72 25 21 30 3d 66  |..h.menuptr%!0=f|
00001700  6c 67 25 0d 0b 72 16 6d  65 6e 75 70 74 72 25 21  |lg%..r.menuptr%!|
00001710  34 3d 73 75 62 70 74 72  25 0d 0b 7c 18 6d 65 6e  |4=subptr%..|.men|
00001720  75 70 74 72 25 21 38 3d  26 30 37 30 30 30 30 32  |uptr%!8=&0700002|
00001730  31 0d 0c 30 13 e7 20 a9  28 74 65 78 74 24 29 3c  |1..0.. .(text$)<|
00001740  31 32 20 8c 0d 0c 3a 1a  20 20 24 28 6d 65 6e 75  |12 ...:.  $(menu|
00001750  70 74 72 25 2b 31 32 29  3d 74 65 78 74 24 0d 0c  |ptr%+12)=text$..|
00001760  44 05 cc 0d 0c 45 13 20  20 de 20 5a 25 20 a9 28  |D....E.  . Z% .(|
00001770  74 65 78 74 24 29 0d 0c  58 14 20 20 6d 65 6e 75  |text$)..X.  menu|
00001780  70 74 72 25 21 31 32 3d  5a 25 0d 0c 62 14 20 20  |ptr%!12=Z%..b.  |
00001790  6d 65 6e 75 70 74 72 25  21 31 36 3d 2d 31 0d 0c  |menuptr%!16=-1..|
000017a0  6c 1a 20 20 6d 65 6e 75  70 74 72 25 21 32 30 3d  |l.  menuptr%!20=|
000017b0  a9 28 74 65 78 74 24 29  0d 0c 76 22 20 20 6d 65  |.(text$)..v"  me|
000017c0  6e 75 70 74 72 25 21 38  3d 6d 65 6e 75 70 74 72  |nuptr%!8=menuptr|
000017d0  25 21 38 20 84 20 26 31  30 30 0d 0c 80 05 cd 0d  |%!8 . &100......|
000017e0  0c 94 16 e7 20 a9 28 74  65 78 74 24 29 3e 6d 61  |.... .(text$)>ma|
000017f0  78 78 25 20 8c 0d 0c 9e  14 20 20 6d 61 78 78 25  |xx% .....  maxx%|
00001800  3d a9 28 74 65 78 74 24  29 0d 0c a8 05 cd 0d 0c  |=.(text$).......|
00001810  b2 10 6d 65 6e 75 70 74  72 25 2b 3d 32 34 0d 0c  |..menuptr%+=24..|
00001820  bc 05 e1 0d 0c c0 04 0d  0c c1 12 dd f2 65 72 72  |.............err|
00001830  6f 72 28 65 25 2c 41 24  29 0d 0c c2 0b 85 20 65  |or(e%,A$)..... e|
00001840  25 2c 41 24 0d 0c c3 05  e1 0d 0c c6 04 0d 0c d0  |%,A$............|
00001850  19 dd a4 63 72 65 61 74  65 5f 6d 65 6e 75 28 74  |...create_menu(t|
00001860  69 74 6c 65 24 29 0d 0c  da 2a 3d a4 6d 61 6b 65  |itle$)...*=.make|
00001870  5f 6d 65 6e 75 28 74 69  74 6c 65 24 2c 6d 65 6e  |_menu(title$,men|
00001880  75 66 72 65 65 25 2c 6d  65 6e 75 65 6e 64 25 29  |ufree%,menuend%)|
00001890  0d 0c e4 04 0d 0c ee 4b  f4 20 3d 3d 3d 3d 3d 3d  |.......K. ======|
000018a0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
000018d0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 0d  |===============.|
000018e0  0c f8 1a f4 20 20 50 6f  70 69 6e 67 20 75 70 20  |....  Poping up |
000018f0  4d 65 6e 75 73 20 65 74  63 0d 0d 02 4b f4 20 3d  |Menus etc...K. =|
00001900  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00001940  3d 3d 3d 3d 0d 0d 0c 04  0d 0d 16 14 dd f2 6d 65  |====..........me|
00001950  6e 75 28 6d 25 2c 69 63  6f 6e 25 29 0d 0d 20 0a  |nu(m%,icon%).. .|
00001960  ea 78 25 2c 79 25 0d 0d  2a 11 78 25 3d 6d 6f 75  |.x%,y%..*.x%=mou|
00001970  73 65 78 25 2d 36 38 0d  0d 34 11 79 25 3d 6d 6f  |sex%-68..4.y%=mo|
00001980  75 73 65 79 25 2b 31 32  0d 0d 3e 1c f2 6d 65 6e  |usey%+12..>..men|
00001990  75 5f 61 74 28 6d 25 2c  69 63 6f 6e 25 2c 78 25  |u_at(m%,icon%,x%|
000019a0  2c 79 25 29 0d 0d 48 05  e1 0d 0d 52 04 0d 0d 5c  |,y%)..H....R...\|
000019b0  1d dd f2 6d 65 6e 75 5f  61 74 28 6d 25 2c 69 63  |...menu_at(m%,ic|
000019c0  6f 6e 25 2c 78 25 2c 79  25 29 0d 0d 66 0e e7 20  |on%,x%,y%)..f.. |
000019d0  6d 25 3c 3e 2d 31 20 8c  0d 0d 70 16 20 20 47 5f  |m%<>-1 ...p.  G_|
000019e0  6d 65 6e 75 68 61 6e 64  6c 65 25 3d 6d 25 0d 0d  |menuhandle%=m%..|
000019f0  7a 19 20 20 47 5f 6d 65  6e 75 69 63 6f 6e 25 20  |z.  G_menuicon% |
00001a00  20 3d 69 63 6f 6e 25 0d  0d 84 1b 20 20 f2 65 6e  | =icon%....  .en|
00001a10  63 6f 64 65 6d 65 6e 75  28 6d 25 2c 69 63 6f 6e  |codemenu(m%,icon|
00001a20  25 29 0d 0d 8e 24 20 20  c8 99 20 22 57 69 6d 70  |%)...$  .. "Wimp|
00001a30  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 6d 25  |_CreateMenu",,m%|
00001a40  2c 78 25 2c 79 25 0d 0d  98 05 cd 0d 0d a2 05 e1  |,x%,y%..........|
00001a50  0d 0d ac 04 0d 0d b6 0c  dd f2 72 65 6d 65 6e 75  |..........remenu|
00001a60  0d 0d c0 2a f2 65 6e 63  6f 64 65 6d 65 6e 75 28  |...*.encodemenu(|
00001a70  47 5f 6d 65 6e 75 68 61  6e 64 6c 65 25 2c 47 5f  |G_menuhandle%,G_|
00001a80  6d 65 6e 75 69 63 6f 6e  25 29 0d 0d ca 3e c8 99  |menuicon%)...>..|
00001a90  20 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  | "Wimp_CreateMen|
00001aa0  75 22 2c 2c 47 5f 6d 65  6e 75 68 61 6e 64 6c 65  |u",,G_menuhandle|
00001ab0  25 2c 6d 6f 75 73 65 78  25 2d 31 30 32 2c 6d 6f  |%,mousex%-102,mo|
00001ac0  75 73 65 79 25 2b 31 32  0d 0d d4 05 e1 0d 0d de  |usey%+12........|
00001ad0  04 0d 0d e8 1f dd f2 65  6e 63 6f 64 65 6d 65 6e  |.......encodemen|
00001ae0  75 28 68 61 6e 64 6c 65  25 2c 69 74 65 6d 25 29  |u(handle%,item%)|
00001af0  0d 0d f2 05 e1 0d 0d fc  04 0d 0e 06 4b f4 20 3d  |............K. =|
00001b00  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00001b40  3d 3d 3d 3d 0d 0e 10 1b  f4 20 20 50 72 6f 63 65  |====.....  Proce|
00001b50  73 73 20 4d 6f 75 73 65  20 43 6c 69 63 6b 73 0d  |ss Mouse Clicks.|
00001b60  0e 1a 4b f4 20 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |..K. ===========|
00001b70  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00001ba0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 0d 0e 24 04 0d 0e  |==========..$...|
00001bb0  2e 0b dd f2 6d 6f 75 73  65 0d 0e 38 13 ea 20 68  |....mouse..8.. h|
00001bc0  61 6e 64 6c 65 25 2c 69  63 6f 6e 25 0d 0e 42 1f  |andle%,icon%..B.|
00001bd0  6d 6f 75 73 65 78 25 20  20 20 20 20 3d 20 77 69  |mousex%     = wi|
00001be0  6d 70 5f 62 6c 6f 63 6b  25 21 30 0d 0e 4c 1f 6d  |mp_block%!0..L.m|
00001bf0  6f 75 73 65 79 25 20 20  20 20 20 3d 20 77 69 6d  |ousey%     = wim|
00001c00  70 5f 62 6c 6f 63 6b 25  21 34 0d 0e 56 1f 62 75  |p_block%!4..V.bu|
00001c10  74 74 6f 6e 73 25 20 20  20 20 3d 20 77 69 6d 70  |ttons%    = wimp|
00001c20  5f 62 6c 6f 63 6b 25 21  38 0d 0e 60 20 68 61 6e  |_block%!8..` han|
00001c30  64 6c 65 25 20 20 20 20  20 3d 20 77 69 6d 70 5f  |dle%     = wimp_|
00001c40  62 6c 6f 63 6b 25 21 31  32 0d 0e 6a 20 69 63 6f  |block%!12..j ico|
00001c50  6e 25 20 20 20 20 20 20  20 3d 20 77 69 6d 70 5f  |n%       = wimp_|
00001c60  62 6c 6f 63 6b 25 21 31  36 0d 0e 74 11 c8 8e 20  |block%!16..t... |
00001c70  62 75 74 74 6f 6e 73 25  20 ca 0d 0e 7e 14 c9 20  |buttons% ...~.. |
00001c80  73 65 6c 65 63 74 5f 62  75 74 74 6f 6e 25 0d 0e  |select_button%..|
00001c90  88 12 20 20 c8 8e 20 68  61 6e 64 6c 65 25 20 ca  |..  .. handle% .|
00001ca0  0d 0e 92 0a 20 20 c9 20  2d 32 0d 0e f6 3d 20 20  |....  . -2...=  |
00001cb0  20 20 f2 6f 70 65 6e 5f  77 69 6e 64 6f 77 5f 61  |  .open_window_a|
00001cc0  74 28 6d 79 5f 68 61 6e  64 6c 65 25 2c 77 69 6d  |t(my_handle%,wim|
00001cd0  70 5f 62 6c 6f 63 6b 25  2c 30 2c 31 38 30 2c 36  |p_block%,0,180,6|
00001ce0  30 30 2c 39 38 30 29 0d  0f 00 07 20 20 cb 0d 0f  |00,980)....  ...|
00001cf0  0a 12 c9 20 6d 65 6e 75  5f 62 75 74 74 6f 6e 25  |... menu_button%|
00001d00  0d 0f 14 12 20 20 c8 8e  20 68 61 6e 64 6c 65 25  |....  .. handle%|
00001d10  20 ca 0d 0f 1e 0a 20 20  c9 20 2d 32 0d 0f 28 47  | .....  . -2..(G|
00001d20  20 20 20 20 f2 6d 65 6e  75 5f 61 74 28 69 63 6f  |    .menu_at(ico|
00001d30  6e 5f 62 61 72 5f 6d 65  6e 75 25 2c 69 63 6f 6e  |n_bar_menu%,icon|
00001d40  25 2c 6d 6f 75 73 65 78  25 2d 36 38 2c 69 62 61  |%,mousex%-68,iba|
00001d50  72 5f 6d 65 6e 75 69 74  65 6d 73 25 2a 34 34 2b  |r_menuitems%*44+|
00001d60  39 36 29 0d 0f 32 07 20  20 cb 0d 0f 3c 05 cb 0d  |96)..2.  ...<...|
00001d70  0f 46 05 e1 0d 0f 50 04  0d 0f 5a 4b f4 20 3d 3d  |.F....P...ZK. ==|
00001d80  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00001dc0  3d 3d 3d 0d 0f 64 1d f4  20 20 44 65 63 6f 64 65  |===..d..  Decode|
00001dd0  20 6d 65 6e 75 20 73 65  6c 65 63 74 69 6f 6e 73  | menu selections|
00001de0  0d 0f 6e 4b f4 20 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |..nK. ==========|
00001df0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00001e20  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 0d 0f 78 04 0d  |===========..x..|
00001e30  0f 82 1e dd f2 64 65 63  6f 64 65 6d 65 6e 75 28  |.....decodemenu(|
00001e40  68 61 6e 64 25 2c 6d 65  6e 75 73 25 29 0d 0f 8c  |hand%,menus%)...|
00001e50  0e c8 8e 20 68 61 6e 64  25 20 ca 0d 0f 96 14 c9  |... hand% ......|
00001e60  20 69 63 6f 6e 5f 62 61  72 5f 6d 65 6e 75 25 0d  | icon_bar_menu%.|
00001e70  0f a0 13 20 20 c8 8e 20  6d 65 6e 75 73 25 21 30  |...  .. menus%!0|
00001e80  20 ca 0d 0f aa 16 20 20  c9 20 4d 65 6e 75 5f 69  | .....  . Menu_i|
00001e90  63 62 5f 71 75 69 74 25  0d 0f b4 0c 20 20 20 20  |cb_quit%....    |
00001ea0  f2 65 6e 64 0d 0f be 07  20 20 cb 0d 0f c8 05 cb  |.end....  ......|
00001eb0  0d 0f d2 05 e1 0d ff                              |.......|
00001eb7