&� >$.Odd*.WimpArt.!Three.!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
�
�Message_Quit% =0
�Message_MenuWarn%=&400C0
�
�My_Task$     = "Three"
�My_IconName$ = "!Three"
�%My_Window$   = "Wimp Programming"
�

� Claim resources



� wimp_block% &1000

"� icon_bar_block% 12

,� old_wimp_block% &100

6

@0� Claim a block for the template definitions

J

T)� curbuf% &1000:endbuf%=curbuf%+&1000

^

h� Claim Menu buffers

r

|menulen% =&1000

�� menufree% menulen%

�!menuend% = menufree%+menulen%

�� menulist% &100

�

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

�

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

�

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

�

�2ș "Wimp_OpenTemplate",,"<Obey$Dir>.Templates"

�(infobox%=�dialog_template("infobox")

�(control%=�dialog_template("control")
ș "Wimp_CloseTemplate"

� A$
&$(wimp_block%)=A$
0-icon_bar_menu%=�create_menu(My_IconName$)
:� "Info<infobox%,Quit"
Dibar_menuitems%=2
NMenu_icb_quit%=1
X
b9my_handle%=�create_window(My_Window$,wimp_block% + 4)
l
vmenudialog%=0
�
dialog%=0
�
�dissadr%=&9000
��
�
�(ș"Wimp_Poll",,wimp_block% � action%
�
��dispatch(action%)
�
���
�
�ݤeval(a$)
�Ȏ a$ �
� "infobox%" := infobox%
� "control%" := control%
�
 � 1,"Submenu not found"
*=0
4
>��dispatch(ac%)
H
RȎ ac% �
\� 0
f � 1 :� Redraw window request
p#  �redraw_window(wimp_block%!0)
z� 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
�� 8 :� A Key press
�
  �key
�)� 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
$  �
.� 17,18
8  �receive
B�
L�
V
`*� �create_window(window_title$,block%)
j� wind_flags%
t� title_flags%
~� worka_flags%
�� 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
2,� Handle to appear in front of and flags
<block%!24= -1
Fblock%!28= wind_flags%
P� The colours
Zblock%?32= colTF% :� Here
dblock%?33= colTB%
nblock%?34= colWF%
xblock%?35= colWB%
�block%?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
6block%!72=Z%
@block%!76=-1
Jblock%!80=�(window_title$)
T)� No predefined icons - so put a zero
^block%!84=0
h/ș "Wimp_CreateWindow",,block% � result_is%
r=result_is%
|
�"� �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%
&�
0
:
D� �update_window(handle%)
N
�more%
Xwimp_block%!0 =handle%
Ywimp_block%!4 =0
Zwimp_block%!8 =-2000
[wimp_block%!12=2000
\wimp_block%!16=0
b
l/ș "Wimp_UpdateWindow",,wimp_block% � more%
vȕ more%
�  �application_redraw
�1  ș "Wimp_GetRectangle",,wimp_block% � more%
��
��
�
�� �redraw_window(handle%)
�
�more%
�/ș "Wimp_RedrawWindow",,wimp_block% � more%
�ȕ more%
�  �application_redraw
�1  ș "Wimp_GetRectangle",,wimp_block% � more%
��
��

#� �close_window(handle%,block%)
block%!0=handle%
  ș"Wimp_CloseWindow",,block%
*Ȏ handle% �
4� menudialog%
>  block%!0=handle%
H$  ș "Wimp_DeleteWindow",,block%
R  menudialog% =0
\
� dialog%
f  block%!0=handle%
p$  ș "Wimp_DeleteWindow",,block%
z  dialog% =0
��
�
��
�
�	��end
�wimp_block%!0=my_handle%
�&ș"Wimp_DeleteWindow",,wimp_block%
�,ș"Wimp_CloseDown",taskhandle%,&4B534154
��
�
�&� ================================
��  Application redraw code
�&� ================================
	
	��application_redraw
	�I%,buffer%,len%
	$+workx%= wimp_block%!4  - wimp_block%!20
	.+worky%= wimp_block%!16 - wimp_block%!24
	8I%=0
	B
	L�
	Vȕ I% < &100
	`   � workx%,worky% - 48 -I%*8
	j;  ș "Debugger_Disassemble",I%!dissadr% � ,buffer%,len%
	t!  ș "OS_WriteN",buffer%,len%
	~  I%+=4
	��
	��
	�
	�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%
2wimp_block%!28 = 1
<wimp_block%!32 = �($block%)
F1ș "XWimp_CreateIcon",0,wimp_block% � handle%
P=handle%
Z
d)ݤnewiconbar(spname$,block%,oldhand%)
nwimp_block%!0 = -1
xwimp_block%!4 = oldhand%
�%ș "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$
6menuptr%?12 = colMF%
@menuptr%?13 =  2
Jmenuptr%?14 = colWF%
Tmenuptr%?15 = colWB%
^menuptr%!16 = 196-24
hmenuptr%!20 = 44
rmenuptr%!24 =  0
|menuptr%   += 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%=�"," �
0  block%+=1
:�
D=A$
N
X/� Add the menu item into the data structure
b
l1��menuitem(text$,� menuptr%,menuend%,� maxx%)
v�i%,flg%,L%,Z%,flg%,subptr%
�� text$="" �
�)  menuptr%!(-24)=(menuptr%!(-24))�&80
�  �
��
�� menuptr%+24 > menuend% �
�(  �error(4,text$):� "Menu area full"
��
�flg%=&00
�
�)� Deal with submenus and dialog boxes
�
�i%=�text$,">")
�� i%>0 �

!  subptr%=�eval(�text$,i%+1))

  text$=�text$,i%-1)

�

   i%=�text$,"<")

*  � i%>0 �

4    flg% = flg% � &08

>#    subptr%=�eval(�text$,i%+1))

H    text$=�text$,i%-1)

R  �

\    subptr%=-1

f  �

p�

z

�menuptr%!0=flg%

�menuptr%!4=subptr%

�menuptr%!8=&07000021

�� �(text$)<12 �

�  $(menuptr%+12)=text$

��

�  � Z% �(text$)

�  menuptr%!12=Z%

�  menuptr%!16=-1

�  menuptr%!20=�(text$)

�"  menuptr%!8=menuptr%!8 � &100

��

�� �(text$)>maxx% �
  maxx%=�(text$)
�
menuptr%+=24
$�
.
8��error(e%,A$)
B� e%,A$
L�
V
`ݤcreate_menu(title$)
j*=�make_menu(title$,menufree%,menuend%)
t
~K� =====================================================================
��  Poping up Menus etc
�K� =====================================================================
�
���menu(m%,icon%)
�
�x%,y%
�x%=mousex%-68
�y%=mousey%+12
��menu_at(m%,icon%,x%,y%)
��
�
���menu_at(m%,icon%,x%,y%)
�� m%<>-1 �
  G_menuhandle%=m%

  G_menuicon%  =icon%
  �encodemenu(m%,icon%)
$  ș "Wimp_CreateMenu",,m%,x%,y%
(�
2�
<
F��remenu
P*�encodemenu(G_menuhandle%,G_menuicon%)
Z>ș "Wimp_CreateMenu",,G_menuhandle%,mousex%-102,mousey%+12
d�
n
x��encodemenu(handle%,item%)
��
�
�K� =====================================================================
��  Process Mouse Clicks
�K� =====================================================================
�
�	��key
��handle%,icon%,key%
�handle% = wimp_block%!0
�icon%   = wimp_block%!4
�key%    = wimp_block%!24
�
�Ȏ handle% �

� dialog%
  Ȏ key% �

  � 13
"    �geti(handle%,icon%)
@!    dissadr%=� ( $(idata% ) )
J"    �update_window(my_handle%)
T  �
^�
h
r�
|
�K� =====================================================================
��  Process Mouse Clicks
�K� =====================================================================
�
���mouse
�� handle%,icon%
�mousex%     = wimp_block%!0
�mousey%     = wimp_block%!4
�buttons%    = wimp_block%!8
� handle%     = wimp_block%!12
� icon%       = wimp_block%!16
�Ȏ buttons% �
�� select_button%
  Ȏ handle% �

  � -2
=    �open_window_at(my_handle%,wimp_block%,0,180,600,980)
&  � my_handle%
08    �dialog_at(control%,wimp_block%,400,400,800,600)
:  �
D� menu_button%
N  Ȏ handle% �
X
  � -2
bG    �menu_at(icon_bar_menu%,icon%,mousex%-68,ibar_menuitems%*44+96)
l  �
v�
��
�
�K� =====================================================================
��  Decode menu selections
�K� =====================================================================
�
���decodemenu(hand%,menus%)
�Ȏ hand% �
�� icon_bar_menu%
�  Ȏ menus%!0 �
�  � Menu_icb_quit%
�    �end
�  �
�
�

 K� =====================================================================
*�  Creation of dialog boxes
4K� =====================================================================
>
H2��dialog_at(addr%,wimp_block%,x0%,y0%,x1%,y1%)
R� dialog%<>0 �
\  wimp_block%!0=dialog%
f)  ș "Wimp_DeleteWindow",,wimp_block%
p  dialog%=0
z�
�*ș"Wimp_CreateWindow",,addr% � dialog%
�8�open_window_at(dialog%,wimp_block%,x0%,y0%,x1%,y1%)
��
�
�ݤdialog_template(a$)
�� address%
�<address%=�make_dialog(a$,wimp_block%,endbuf%,-1,curbuf%)
�
=address%
�
�?ݤmake_dialog(a$,wimp_block%,endbuf%,fontcounts%,� curbuf%)
�� I%,address%,R6%,size%,b%
�� b% �(a$)+12
�
$b%=a$
Oș "Wimp_LoadTemplate",,wimp_block%,curbuf%,endbuf%,0,b% � ,,curbuf%,,,,R6%

� R6%=0 �
  � 1,"Dialogue not found"
$�
.%size%=(wimp_block%!84)*32 +84+4+4
8� address% size%
B� I%=0 � size%-4 �4
L   I%!address%=I%!wimp_block%
V�
`
=address%
j
t
��receive
~3� my_ref%, filename$, filetype%,fromhand%,icon%
�� I%
�
�(filename$ = �string0(wimp_block%+44)
�filetype% = wimp_block%!40
�fromhand% = wimp_block%!20
�icon%     = wimp_block%!24
�
�� remember this set of data
�$� for the acknowledgements later
�
�� I%=0 � !wimp_block%-1 �4
�'  old_wimp_block%!I%=wimp_block%!I%
�


my_ref% = wimp_block%!8

((� OK, let's see what the message is!
2
<Ȏ wimp_block%!16 �
F� Message_Quit%
P
  �end
Z� Message_MenuWarn%
d
n'  � delete the previous window now!
x
�  � menudialog% <>0 �
�"     wimp_block%!0=menudialog%
�,     ș "Wimp_DeleteWindow",,wimp_block%
�     menudialog%=0
�  �
�
�%  menudialadr%=old_wimp_block%!20
�
�:  � Do the encoding of the status of the newly opening
�+  � menu/dialog box (if required) here!
�
�8  ș "Wimp_CreateWindow",,menudialadr% � menudialog%
�
0  � And make the wimp put it up as a submenu
P  ș "Wimp_CreateSubMenu",,menudialog%,old_wimp_block%!24,old_wimp_block%!28
�
"
,�
6
@ݤstring0(s%)
J� I%,n$
TI%=0:n$=�200," "):n$=""
^ȕ s%?I%>31 � I%<254
h  n$+=�(s%?I%)
r  I%+=1
|�
�=n$
�
���geti(h%,i%)
�� h%=0 � �
�wimp_block%!0=h%
�wimp_block%!4=i%
�'ș "Wimp_GetIconState",,wimp_block%
�ix0%    = wimp_block%!8
�iy0%    = wimp_block%!12
�ix1%    = wimp_block%!16
�iy1%    = wimp_block%!20
�iflags% = wimp_block%!24
�idata%  = wimp_block%+28
�
�

00000000  0d 00 0a 26 f4 20 3e 24  2e 4f 64 64 2a 2e 57 69  |...&. >$.Odd*.Wi|
00000010  6d 70 41 72 74 2e 21 54  68 72 65 65 2e 21 52 75  |mpArt.!Three.!Ru|
00000020  6e 49 6d 61 67 65 0d 00  14 04 0d 00 1e 18 f4 20  |nImage......... |
00000030  4d 61 6e 69 66 65 73 74  20 63 6f 6e 73 74 61 6e  |Manifest constan|
00000040  74 73 0d 00 28 04 0d 00  32 13 63 6f 6c 4e 4e 25  |ts..(...2.colNN%|
00000050  20 20 20 20 20 3d 32 35  35 0d 00 3c 12 63 6f 6c  |     =255..<.col|
00000060  54 46 25 20 20 20 20 20  3d 20 37 0d 00 46 12 63  |TF%     = 7..F.c|
00000070  6f 6c 4d 46 25 20 20 20  20 20 3d 20 37 0d 00 50  |olMF%     = 7..P|
00000080  12 63 6f 6c 54 42 25 20  20 20 20 20 3d 20 32 0d  |.colTB%     = 2.|
00000090  00 5a 12 63 6f 6c 57 46  25 20 20 20 20 20 3d 20  |.Z.colWF%     = |
000000a0  37 0d 00 64 12 63 6f 6c  57 42 25 20 20 20 20 20  |7..d.colWB%     |
000000b0  3d 20 30 0d 00 6e 12 63  6f 6c 53 4f 25 20 20 20  |= 0..n.colSO%   |
000000c0  20 20 3d 20 33 0d 00 78  12 63 6f 6c 53 49 25 20  |  = 3..x.colSI% |
000000d0  20 20 20 20 3d 20 31 0d  00 82 12 63 6f 6c 54 48  |    = 1....colTH|
000000e0  25 20 20 20 20 20 3d 31  32 0d 00 8c 04 0d 00 96  |%     =12.......|
000000f0  14 73 65 6c 65 63 74 5f  62 75 74 74 6f 6e 25 3d  |.select_button%=|
00000100  34 0d 00 a0 14 6d 65 6e  75 5f 62 75 74 74 6f 6e  |4....menu_button|
00000110  25 20 20 3d 32 0d 00 aa  14 61 64 6a 75 73 74 5f  |%  =2....adjust_|
00000120  62 75 74 74 6f 6e 25 3d  31 0d 00 b4 04 0d 00 be  |button%=1.......|
00000130  14 4d 65 73 73 61 67 65  5f 51 75 69 74 25 20 3d  |.Message_Quit% =|
00000140  30 0d 00 c8 1c 4d 65 73  73 61 67 65 5f 4d 65 6e  |0....Message_Men|
00000150  75 57 61 72 6e 25 3d 26  34 30 30 43 30 0d 00 d2  |uWarn%=&400C0...|
00000160  04 0d 00 dc 1a 4d 79 5f  54 61 73 6b 24 20 20 20  |.....My_Task$   |
00000170  20 20 3d 20 22 54 68 72  65 65 22 0d 00 e6 1b 4d  |  = "Three"....M|
00000180  79 5f 49 63 6f 6e 4e 61  6d 65 24 20 3d 20 22 21  |y_IconName$ = "!|
00000190  54 68 72 65 65 22 0d 00  f0 25 4d 79 5f 57 69 6e  |Three"...%My_Win|
000001a0  64 6f 77 24 20 20 20 3d  20 22 57 69 6d 70 20 50  |dow$   = "Wimp P|
000001b0  72 6f 67 72 61 6d 6d 69  6e 67 22 0d 00 fa 04 0d  |rogramming".....|
000001c0  01 04 15 f4 20 43 6c 61  69 6d 20 72 65 73 6f 75  |.... Claim resou|
000001d0  72 63 65 73 0d 01 0e 04  0d 01 18 17 de 20 77 69  |rces......... wi|
000001e0  6d 70 5f 62 6c 6f 63 6b  25 20 26 31 30 30 30 0d  |mp_block% &1000.|
000001f0  01 22 18 de 20 69 63 6f  6e 5f 62 61 72 5f 62 6c  |.".. icon_bar_bl|
00000200  6f 63 6b 25 20 31 32 0d  01 2c 1a de 20 6f 6c 64  |ock% 12..,.. old|
00000210  5f 77 69 6d 70 5f 62 6c  6f 63 6b 25 20 26 31 30  |_wimp_block% &10|
00000220  30 0d 01 36 04 0d 01 40  30 f4 20 43 6c 61 69 6d  |0..6...@0. Claim|
00000230  20 61 20 62 6c 6f 63 6b  20 66 6f 72 20 74 68 65  | a block for the|
00000240  20 74 65 6d 70 6c 61 74  65 20 64 65 66 69 6e 69  | template defini|
00000250  74 69 6f 6e 73 0d 01 4a  04 0d 01 54 29 de 20 63  |tions..J...T). c|
00000260  75 72 62 75 66 25 20 26  31 30 30 30 3a 65 6e 64  |urbuf% &1000:end|
00000270  62 75 66 25 3d 63 75 72  62 75 66 25 2b 26 31 30  |buf%=curbuf%+&10|
00000280  30 30 0d 01 5e 04 0d 01  68 18 f4 20 43 6c 61 69  |00..^...h.. Clai|
00000290  6d 20 4d 65 6e 75 20 62  75 66 66 65 72 73 0d 01  |m Menu buffers..|
000002a0  72 04 0d 01 7c 13 6d 65  6e 75 6c 65 6e 25 20 3d  |r...|.menulen% =|
000002b0  26 31 30 30 30 0d 01 86  18 de 20 6d 65 6e 75 66  |&1000..... menuf|
000002c0  72 65 65 25 20 6d 65 6e  75 6c 65 6e 25 0d 01 90  |ree% menulen%...|
000002d0  21 6d 65 6e 75 65 6e 64  25 20 3d 20 6d 65 6e 75  |!menuend% = menu|
000002e0  66 72 65 65 25 2b 6d 65  6e 75 6c 65 6e 25 0d 01  |free%+menulen%..|
000002f0  9a 14 de 20 6d 65 6e 75  6c 69 73 74 25 20 26 31  |... menulist% &1|
00000300  30 30 0d 01 a4 04 0d 01  ae 2c f4 20 53 74 61 72  |00.......,. Star|
00000310  74 20 74 68 65 20 74 61  73 6b 20 69 6e 20 74 68  |t the task in th|
00000320  65 20 65 79 65 73 20 6f  66 20 74 68 65 20 77 69  |e eyes of the wi|
00000330  6d 70 0d 01 b8 04 0d 01  c2 3d c8 99 22 57 69 6d  |mp.......=.."Wim|
00000340  70 5f 49 6e 69 74 69 61  6c 69 73 65 22 2c 32 30  |p_Initialise",20|
00000350  30 2c 26 34 42 35 33 34  31 35 34 2c 4d 79 5f 54  |0,&4B534154,My_T|
00000360  61 73 6b 24 20 b8 20 2c  74 61 73 6b 68 61 6e 64  |ask$ . ,taskhand|
00000370  6c 65 25 0d 01 cc 04 0d  01 d6 39 69 63 6f 6e 5f  |le%.......9icon_|
00000380  6f 6e 5f 62 61 72 25 20  3d 20 a4 69 63 6f 6e 62  |on_bar% = .iconb|
00000390  61 72 28 4d 79 5f 49 63  6f 6e 4e 61 6d 65 24 2c  |ar(My_IconName$,|
000003a0  69 63 6f 6e 5f 62 61 72  5f 62 6c 6f 63 6b 25 29  |icon_bar_block%)|
000003b0  0d 01 e0 04 0d 01 ea 32  c8 99 20 22 57 69 6d 70  |.......2.. "Wimp|
000003c0  5f 4f 70 65 6e 54 65 6d  70 6c 61 74 65 22 2c 2c  |_OpenTemplate",,|
000003d0  22 3c 4f 62 65 79 24 44  69 72 3e 2e 54 65 6d 70  |"<Obey$Dir>.Temp|
000003e0  6c 61 74 65 73 22 0d 01  f4 28 69 6e 66 6f 62 6f  |lates"...(infobo|
000003f0  78 25 3d a4 64 69 61 6c  6f 67 5f 74 65 6d 70 6c  |x%=.dialog_templ|
00000400  61 74 65 28 22 69 6e 66  6f 62 6f 78 22 29 0d 01  |ate("infobox")..|
00000410  fe 28 63 6f 6e 74 72 6f  6c 25 3d a4 64 69 61 6c  |.(control%=.dial|
00000420  6f 67 5f 74 65 6d 70 6c  61 74 65 28 22 63 6f 6e  |og_template("con|
00000430  74 72 6f 6c 22 29 0d 02  08 1b c8 99 20 22 57 69  |trol")...... "Wi|
00000440  6d 70 5f 43 6c 6f 73 65  54 65 6d 70 6c 61 74 65  |mp_CloseTemplate|
00000450  22 0d 02 12 04 0d 02 1c  08 f3 20 41 24 0d 02 26  |"......... A$..&|
00000460  15 24 28 77 69 6d 70 5f  62 6c 6f 63 6b 25 29 3d  |.$(wimp_block%)=|
00000470  41 24 0d 02 30 2d 69 63  6f 6e 5f 62 61 72 5f 6d  |A$..0-icon_bar_m|
00000480  65 6e 75 25 3d a4 63 72  65 61 74 65 5f 6d 65 6e  |enu%=.create_men|
00000490  75 28 4d 79 5f 49 63 6f  6e 4e 61 6d 65 24 29 0d  |u(My_IconName$).|
000004a0  02 3a 1a dc 20 22 49 6e  66 6f 3c 69 6e 66 6f 62  |.:.. "Info<infob|
000004b0  6f 78 25 2c 51 75 69 74  22 0d 02 44 15 69 62 61  |ox%,Quit"..D.iba|
000004c0  72 5f 6d 65 6e 75 69 74  65 6d 73 25 3d 32 0d 02  |r_menuitems%=2..|
000004d0  4e 14 4d 65 6e 75 5f 69  63 62 5f 71 75 69 74 25  |N.Menu_icb_quit%|
000004e0  3d 31 0d 02 58 04 0d 02  62 39 6d 79 5f 68 61 6e  |=1..X...b9my_han|
000004f0  64 6c 65 25 3d a4 63 72  65 61 74 65 5f 77 69 6e  |dle%=.create_win|
00000500  64 6f 77 28 4d 79 5f 57  69 6e 64 6f 77 24 2c 77  |dow(My_Window$,w|
00000510  69 6d 70 5f 62 6c 6f 63  6b 25 20 2b 20 34 29 0d  |imp_block% + 4).|
00000520  02 6c 04 0d 02 76 11 6d  65 6e 75 64 69 61 6c 6f  |.l...v.menudialo|
00000530  67 25 3d 30 0d 02 80 0d  64 69 61 6c 6f 67 25 3d  |g%=0....dialog%=|
00000540  30 0d 02 8a 04 0d 02 94  12 64 69 73 73 61 64 72  |0........dissadr|
00000550  25 3d 26 39 30 30 30 0d  02 9e 05 f5 0d 02 a8 04  |%=&9000.........|
00000560  0d 02 b2 28 c8 99 22 57  69 6d 70 5f 50 6f 6c 6c  |...(.."Wimp_Poll|
00000570  22 2c 2c 77 69 6d 70 5f  62 6c 6f 63 6b 25 20 b8  |",,wimp_block% .|
00000580  20 61 63 74 69 6f 6e 25  0d 02 bc 04 0d 02 c6 16  | action%........|
00000590  f2 64 69 73 70 61 74 63  68 28 61 63 74 69 6f 6e  |.dispatch(action|
000005a0  25 29 0d 02 d0 04 0d 02  da 06 fd a3 0d 02 e4 04  |%)..............|
000005b0  0d 02 ee 0e dd a4 65 76  61 6c 28 61 24 29 0d 02  |......eval(a$)..|
000005c0  f8 0b c8 8e 20 61 24 20  ca 0d 03 02 1c c9 20 22  |.... a$ ...... "|
000005d0  69 6e 66 6f 62 6f 78 25  22 20 3a 3d 20 69 6e 66  |infobox%" := inf|
000005e0  6f 62 6f 78 25 0d 03 0c  1c c9 20 22 63 6f 6e 74  |obox%..... "cont|
000005f0  72 6f 6c 25 22 20 3a 3d  20 63 6f 6e 74 72 6f 6c  |rol%" := control|
00000600  25 0d 03 16 05 cb 0d 03  20 1b 85 20 31 2c 22 53  |%....... .. 1,"S|
00000610  75 62 6d 65 6e 75 20 6e  6f 74 20 66 6f 75 6e 64  |ubmenu not found|
00000620  22 0d 03 2a 06 3d 30 0d  03 34 04 0d 03 3e 13 dd  |"..*.=0..4...>..|
00000630  f2 64 69 73 70 61 74 63  68 28 61 63 25 29 0d 03  |.dispatch(ac%)..|
00000640  48 04 0d 03 52 0c c8 8e  20 61 63 25 20 ca 0d 03  |H...R... ac% ...|
00000650  5c 07 c9 20 30 0d 03 66  20 c9 20 31 20 3a f4 20  |\.. 0..f . 1 :. |
00000660  52 65 64 72 61 77 20 77  69 6e 64 6f 77 20 72 65  |Redraw window re|
00000670  71 75 65 73 74 0d 03 70  23 20 20 f2 72 65 64 72  |quest..p#  .redr|
00000680  61 77 5f 77 69 6e 64 6f  77 28 77 69 6d 70 5f 62  |aw_window(wimp_b|
00000690  6c 6f 63 6b 25 21 30 29  0d 03 7a 1e c9 20 32 20  |lock%!0)..z.. 2 |
000006a0  3a f4 20 4f 70 65 6e 20  77 69 6e 64 6f 77 20 72  |:. Open window r|
000006b0  65 71 75 65 73 74 0d 03  84 2d 20 20 f2 6f 70 65  |equest...-  .ope|
000006c0  6e 5f 77 69 6e 64 6f 77  28 77 69 6d 70 5f 62 6c  |n_window(wimp_bl|
000006d0  6f 63 6b 25 21 30 2c 77  69 6d 70 5f 62 6c 6f 63  |ock%!0,wimp_bloc|
000006e0  6b 25 29 0d 03 8e 1f c9  20 33 20 3a f4 20 43 6c  |k%)..... 3 :. Cl|
000006f0  6f 73 65 20 77 69 6e 64  6f 77 20 72 65 71 75 65  |ose window reque|
00000700  73 74 0d 03 98 2e 20 20  f2 63 6c 6f 73 65 5f 77  |st....  .close_w|
00000710  69 6e 64 6f 77 28 77 69  6d 70 5f 62 6c 6f 63 6b  |indow(wimp_block|
00000720  25 21 30 2c 77 69 6d 70  5f 62 6c 6f 63 6b 25 29  |%!0,wimp_block%)|
00000730  0d 03 a2 18 c9 20 36 20  3a f4 20 41 20 4d 6f 75  |..... 6 :. A Mou|
00000740  73 65 20 63 6c 69 63 6b  0d 03 ac 0c 20 20 f2 6d  |se click....  .m|
00000750  6f 75 73 65 0d 03 b6 16  c9 20 38 20 3a f4 20 41  |ouse..... 8 :. A|
00000760  20 4b 65 79 20 70 72 65  73 73 0d 03 c0 0a 20 20  | Key press....  |
00000770  f2 6b 65 79 0d 03 ca 29  c9 20 39 20 3a f4 20 41  |.key...). 9 :. A|
00000780  20 4d 65 6e 75 20 53 65  6c 65 63 74 69 6f 6e 20  | Menu Selection |
00000790  68 61 73 20 62 65 65 6e  20 6d 61 64 65 0d 03 d4  |has been made...|
000007a0  0a 20 20 49 25 3d 30 0d  03 de 07 20 20 f5 0d 03  |.  I%=0....  ...|
000007b0  e8 23 20 20 20 20 6d 65  6e 75 6c 69 73 74 25 21  |.#    menulist%!|
000007c0  49 25 3d 77 69 6d 70 5f  62 6c 6f 63 6b 25 21 49  |I%=wimp_block%!I|
000007d0  25 0d 03 f2 0d 20 20 20  20 49 25 2b 3d 34 0d 03  |%....    I%+=4..|
000007e0  fc 1d 20 20 fd 20 77 69  6d 70 5f 62 6c 6f 63 6b  |..  . wimp_block|
000007f0  25 21 28 49 25 2d 34 29  3d 2d 31 0d 04 06 2b 20  |%!(I%-4)=-1...+ |
00000800  20 f2 64 65 63 6f 64 65  6d 65 6e 75 28 47 5f 6d  | .decodemenu(G_m|
00000810  65 6e 75 68 61 6e 64 6c  65 25 2c 20 6d 65 6e 75  |enuhandle%, menu|
00000820  6c 69 73 74 25 29 0d 04  10 16 20 20 e7 20 62 75  |list%)....  . bu|
00000830  74 74 6f 6e 73 25 20 80  20 31 20 8c 0d 04 1a 0f  |ttons% . 1 .....|
00000840  20 20 20 20 f2 72 65 6d  65 6e 75 0d 04 24 07 20  |    .remenu..$. |
00000850  20 cd 0d 04 2e 0b c9 20  31 37 2c 31 38 0d 04 38  | ...... 17,18..8|
00000860  0e 20 20 f2 72 65 63 65  69 76 65 0d 04 42 05 cb  |.  .receive..B..|
00000870  0d 04 4c 05 e1 0d 04 56  04 0d 04 60 2a dd 20 a4  |..L....V...`*. .|
00000880  63 72 65 61 74 65 5f 77  69 6e 64 6f 77 28 77 69  |create_window(wi|
00000890  6e 64 6f 77 5f 74 69 74  6c 65 24 2c 62 6c 6f 63  |ndow_title$,bloc|
000008a0  6b 25 29 0d 04 6a 11 ea  20 77 69 6e 64 5f 66 6c  |k%)..j.. wind_fl|
000008b0  61 67 73 25 0d 04 74 12  ea 20 74 69 74 6c 65 5f  |ags%..t.. title_|
000008c0  66 6c 61 67 73 25 0d 04  7e 12 ea 20 77 6f 72 6b  |flags%..~.. work|
000008d0  61 5f 66 6c 61 67 73 25  0d 04 88 13 ea 20 5a 25  |a_flags%..... Z%|
000008e0  2c 72 65 73 75 6c 74 5f  69 73 25 0d 04 92 08 ea  |,result_is%.....|
000008f0  20 49 25 0d 04 9c 04 0d  04 a6 1f de 20 5a 25 20  | I%......... Z% |
00000900  26 31 30 30 3a 24 5a 25  3d 77 69 6e 64 6f 77 5f  |&100:$Z%=window_|
00000910  74 69 74 6c 65 24 0d 04  b0 04 0d 04 ba 26 f4 20  |title$.......&. |
00000920  3d 3d 3d 20 4f 6b 2c 20  73 6f 20 6c 65 74 73 20  |=== Ok, so lets |
00000930  63 72 65 61 74 65 20 61  20 77 69 6e 64 6f 77 2e  |create a window.|
00000940  0d 04 c4 31 f4 20 57 69  6e 64 6f 77 20 68 61 73  |...1. Window has|
00000950  20 61 6c 6c 20 74 68 65  20 74 72 69 6d 6d 69 6e  | all the trimmin|
00000960  67 73 20 61 6e 64 20 69  73 20 6d 6f 76 61 62 6c  |gs and is movabl|
00000970  65 0d 04 ce 34 77 69 6e  64 5f 66 6c 61 67 73 25  |e...4wind_flags%|
00000980  20 20 3d 20 25 31 31 31  31 31 31 31 31 30 30 30  |  = %11111111000|
00000990  30 30 30 30 30 30 30 30  30 30 30 30 30 30 30 30  |0000000000000000|
000009a0  30 30 30 31 30 0d 04 d8  34 74 69 74 6c 65 5f 66  |00010...4title_f|
000009b0  6c 61 67 73 25 20 3d 20  25 30 30 30 30 30 30 30  |lags% = %0000000|
000009c0  30 30 30 30 30 30 30 30  30 30 31 31 30 30 30 30  |0000000000110000|
000009d0  31 30 30 31 31 31 31 30  31 0d 04 e2 2a 77 6f 72  |100111101...*wor|
000009e0  6b 61 5f 66 6c 61 67 73  25 20 3d 20 26 30 30 30  |ka_flags% = &000|
000009f0  30 41 30 30 30 20 3a f4  20 44 2d 43 2d 44 20 74  |0A000 :. D-C-D t|
00000a00  79 70 65 0d 04 ec 27 f4  20 56 69 73 69 62 6c 65  |ype...'. Visible|
00000a10  20 61 72 65 61 20 61 6e  64 20 73 63 72 6f 6c 6c  | area and scroll|
00000a20  20 70 6f 73 69 74 69 6f  6e 73 0d 04 f6 0f 62 6c  | positions....bl|
00000a30  6f 63 6b 25 21 30 20 3d  30 0d 05 00 11 62 6c 6f  |ock%!0 =0....blo|
00000a40  63 6b 25 21 34 20 3d 31  38 30 0d 05 0a 12 62 6c  |ck%!4 =180....bl|
00000a50  6f 63 6b 25 21 38 20 3d  31 32 33 38 0d 05 14 11  |ock%!8 =1238....|
00000a60  62 6c 6f 63 6b 25 21 31  32 3d 39 38 30 0d 05 1e  |block%!12=980...|
00000a70  0f 62 6c 6f 63 6b 25 21  31 36 3d 30 0d 05 28 0f  |.block%!16=0..(.|
00000a80  62 6c 6f 63 6b 25 21 32  30 3d 30 0d 05 32 2c f4  |block%!20=0..2,.|
00000a90  20 48 61 6e 64 6c 65 20  74 6f 20 61 70 70 65 61  | Handle to appea|
00000aa0  72 20 69 6e 20 66 72 6f  6e 74 20 6f 66 20 61 6e  |r in front of an|
00000ab0  64 20 66 6c 61 67 73 0d  05 3c 11 62 6c 6f 63 6b  |d flags..<.block|
00000ac0  25 21 32 34 3d 20 2d 31  0d 05 46 1a 62 6c 6f 63  |%!24= -1..F.bloc|
00000ad0  6b 25 21 32 38 3d 20 77  69 6e 64 5f 66 6c 61 67  |k%!28= wind_flag|
00000ae0  73 25 0d 05 50 11 f4 20  54 68 65 20 63 6f 6c 6f  |s%..P.. The colo|
00000af0  75 72 73 0d 05 5a 1d 62  6c 6f 63 6b 25 3f 33 32  |urs..Z.block%?32|
00000b00  3d 20 63 6f 6c 54 46 25  20 3a f4 20 48 65 72 65  |= colTF% :. Here|
00000b10  0d 05 64 15 62 6c 6f 63  6b 25 3f 33 33 3d 20 63  |..d.block%?33= c|
00000b20  6f 6c 54 42 25 0d 05 6e  15 62 6c 6f 63 6b 25 3f  |olTB%..n.block%?|
00000b30  33 34 3d 20 63 6f 6c 57  46 25 0d 05 78 15 62 6c  |34= colWF%..x.bl|
00000b40  6f 63 6b 25 3f 33 35 3d  20 63 6f 6c 57 42 25 0d  |ock%?35= colWB%.|
00000b50  05 82 15 62 6c 6f 63 6b  25 3f 33 36 3d 20 63 6f  |...block%?36= co|
00000b60  6c 53 4f 25 0d 05 8c 15  62 6c 6f 63 6b 25 3f 33  |lSO%....block%?3|
00000b70  37 3d 20 63 6f 6c 53 49  25 0d 05 96 15 62 6c 6f  |7= colSI%....blo|
00000b80  63 6b 25 3f 33 38 3d 20  63 6f 6c 54 48 25 0d 05  |ck%?38= colTH%..|
00000b90  a0 10 62 6c 6f 63 6b 25  3f 33 39 3d 20 30 0d 05  |..block%?39= 0..|
00000ba0  aa 1a f4 20 54 68 65 20  77 6f 72 6b 20 61 72 65  |... The work are|
00000bb0  61 20 65 78 74 65 6e 74  0d 05 b4 10 62 6c 6f 63  |a extent....bloc|
00000bc0  6b 25 21 34 30 3d 20 30  0d 05 be 13 62 6c 6f 63  |k%!40= 0....bloc|
00000bd0  6b 25 21 34 34 3d 2d 32  30 30 30 0d 05 c8 13 62  |k%!44=-2000....b|
00000be0  6c 6f 63 6b 25 21 34 38  3d 20 32 30 30 30 0d 05  |lock%!48= 2000..|
00000bf0  d2 10 62 6c 6f 63 6b 25  21 35 32 3d 20 30 0d 05  |..block%!52= 0..|
00000c00  dc 19 f4 20 54 69 74 6c  65 20 61 6e 64 20 77 2f  |... Title and w/|
00000c10  61 20 66 6c 61 67 73 0d  05 e6 1a 62 6c 6f 63 6b  |a flags....block|
00000c20  25 21 35 36 3d 74 69 74  6c 65 5f 66 6c 61 67 73  |%!56=title_flags|
00000c30  25 0d 05 f0 1a 62 6c 6f  63 6b 25 21 36 30 3d 77  |%....block%!60=w|
00000c40  6f 72 6b 61 5f 66 6c 61  67 73 25 0d 05 fa 24 f4  |orka_flags%...$.|
00000c50  20 53 70 72 69 74 65 20  61 72 65 61 20 43 42 20  | Sprite area CB |
00000c60  69 73 20 77 69 6d 70 20  73 70 72 69 74 65 73 0d  |is wimp sprites.|
00000c70  06 04 0f 62 6c 6f 63 6b  25 21 36 34 3d 31 0d 06  |...block%!64=1..|
00000c80  0e 13 f4 20 4d 69 6e 69  6d 75 6d 20 73 69 7a 65  |... Minimum size|
00000c90  73 0d 06 18 11 62 6c 6f  63 6b 25 21 36 38 3d 31  |s....block%!68=1|
00000ca0  30 30 0d 06 22 11 62 6c  6f 63 6b 25 21 37 30 3d  |00..".block%!70=|
00000cb0  31 30 30 0d 06 2c 20 f4  20 54 68 65 20 74 69 74  |100.., . The tit|
00000cc0  6c 65 20 64 61 74 61 2e  20 69 6e 64 69 72 65 63  |le data. indirec|
00000cd0  74 65 64 0d 06 36 10 62  6c 6f 63 6b 25 21 37 32  |ted..6.block%!72|
00000ce0  3d 5a 25 0d 06 40 10 62  6c 6f 63 6b 25 21 37 36  |=Z%..@.block%!76|
00000cf0  3d 2d 31 0d 06 4a 1e 62  6c 6f 63 6b 25 21 38 30  |=-1..J.block%!80|
00000d00  3d a9 28 77 69 6e 64 6f  77 5f 74 69 74 6c 65 24  |=.(window_title$|
00000d10  29 0d 06 54 29 f4 20 4e  6f 20 70 72 65 64 65 66  |)..T). No predef|
00000d20  69 6e 65 64 20 69 63 6f  6e 73 20 2d 20 73 6f 20  |ined icons - so |
00000d30  70 75 74 20 61 20 7a 65  72 6f 0d 06 5e 0f 62 6c  |put a zero..^.bl|
00000d40  6f 63 6b 25 21 38 34 3d  30 0d 06 68 2f c8 99 20  |ock%!84=0..h/.. |
00000d50  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
00000d60  6f 77 22 2c 2c 62 6c 6f  63 6b 25 20 b8 20 72 65  |ow",,block% . re|
00000d70  73 75 6c 74 5f 69 73 25  0d 06 72 0f 3d 72 65 73  |sult_is%..r.=res|
00000d80  75 6c 74 5f 69 73 25 0d  06 7c 04 0d 06 86 22 dd  |ult_is%..|....".|
00000d90  20 f2 6f 70 65 6e 5f 77  69 6e 64 6f 77 28 68 61  | .open_window(ha|
00000da0  6e 64 6c 65 25 2c 62 6c  6f 63 6b 25 29 0d 06 90  |ndle%,block%)...|
00000db0  14 62 6c 6f 63 6b 25 21  30 3d 68 61 6e 64 6c 65  |.block%!0=handle|
00000dc0  25 0d 06 9a 1f c8 99 22  57 69 6d 70 5f 4f 70 65  |%......"Wimp_Ope|
00000dd0  6e 57 69 6e 64 6f 77 22  2c 2c 62 6c 6f 63 6b 25  |nWindow",,block%|
00000de0  0d 06 a4 05 e1 0d 06 ae  04 0d 06 b8 35 dd 20 f2  |............5. .|
00000df0  6f 70 65 6e 5f 77 69 6e  64 6f 77 5f 61 74 28 68  |open_window_at(h|
00000e00  61 6e 64 6c 65 25 2c 62  6c 6f 63 6b 25 2c 78 30  |andle%,block%,x0|
00000e10  25 2c 79 30 25 2c 78 31  25 2c 79 31 25 29 0d 06  |%,y0%,x1%,y1%)..|
00000e20  c2 16 62 6c 6f 63 6b 25  21 30 20 20 3d 68 61 6e  |..block%!0  =han|
00000e30  64 6c 65 25 0d 06 cc 13  62 6c 6f 63 6b 25 21 34  |dle%....block%!4|
00000e40  20 20 3d 20 78 30 25 0d  06 d6 13 62 6c 6f 63 6b  |  = x0%....block|
00000e50  25 21 38 20 20 3d 20 79  30 25 0d 06 e0 13 62 6c  |%!8  = y0%....bl|
00000e60  6f 63 6b 25 21 31 32 20  3d 20 78 31 25 0d 06 ea  |ock%!12 = x1%...|
00000e70  13 62 6c 6f 63 6b 25 21  31 36 20 3d 20 79 31 25  |.block%!16 = y1%|
00000e80  0d 06 f4 04 0d 06 fe 11  62 6c 6f 63 6b 25 21 32  |........block%!2|
00000e90  30 20 3d 20 30 0d 07 08  11 62 6c 6f 63 6b 25 21  |0 = 0....block%!|
00000ea0  32 34 20 3d 20 30 0d 07  12 12 62 6c 6f 63 6b 25  |24 = 0....block%|
00000eb0  21 32 38 20 3d 20 2d 31  0d 07 1c 1f c8 99 22 57  |!28 = -1......"W|
00000ec0  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
00000ed0  2c 62 6c 6f 63 6b 25 0d  07 26 05 e1 0d 07 30 04  |,block%..&....0.|
00000ee0  0d 07 3a 04 0d 07 44 1d  dd 20 f2 75 70 64 61 74  |..:...D.. .updat|
00000ef0  65 5f 77 69 6e 64 6f 77  28 68 61 6e 64 6c 65 25  |e_window(handle%|
00000f00  29 0d 07 4e 0a ea 6d 6f  72 65 25 0d 07 58 1a 77  |)..N..more%..X.w|
00000f10  69 6d 70 5f 62 6c 6f 63  6b 25 21 30 20 3d 68 61  |imp_block%!0 =ha|
00000f20  6e 64 6c 65 25 0d 07 59  14 77 69 6d 70 5f 62 6c  |ndle%..Y.wimp_bl|
00000f30  6f 63 6b 25 21 34 20 3d  30 0d 07 5a 18 77 69 6d  |ock%!4 =0..Z.wim|
00000f40  70 5f 62 6c 6f 63 6b 25  21 38 20 3d 2d 32 30 30  |p_block%!8 =-200|
00000f50  30 0d 07 5b 17 77 69 6d  70 5f 62 6c 6f 63 6b 25  |0..[.wimp_block%|
00000f60  21 31 32 3d 32 30 30 30  0d 07 5c 14 77 69 6d 70  |!12=2000..\.wimp|
00000f70  5f 62 6c 6f 63 6b 25 21  31 36 3d 30 0d 07 62 04  |_block%!16=0..b.|
00000f80  0d 07 6c 2f c8 99 20 22  57 69 6d 70 5f 55 70 64  |..l/.. "Wimp_Upd|
00000f90  61 74 65 57 69 6e 64 6f  77 22 2c 2c 77 69 6d 70  |ateWindow",,wimp|
00000fa0  5f 62 6c 6f 63 6b 25 20  b8 20 6d 6f 72 65 25 0d  |_block% . more%.|
00000fb0  07 76 0c c8 95 20 6d 6f  72 65 25 0d 07 80 19 20  |.v... more%.... |
00000fc0  20 f2 61 70 70 6c 69 63  61 74 69 6f 6e 5f 72 65  | .application_re|
00000fd0  64 72 61 77 0d 07 8a 31  20 20 c8 99 20 22 57 69  |draw...1  .. "Wi|
00000fe0  6d 70 5f 47 65 74 52 65  63 74 61 6e 67 6c 65 22  |mp_GetRectangle"|
00000ff0  2c 2c 77 69 6d 70 5f 62  6c 6f 63 6b 25 20 b8 20  |,,wimp_block% . |
00001000  6d 6f 72 65 25 0d 07 94  05 ce 0d 07 9e 05 e1 0d  |more%...........|
00001010  07 a8 04 0d 07 b2 1d dd  20 f2 72 65 64 72 61 77  |........ .redraw|
00001020  5f 77 69 6e 64 6f 77 28  68 61 6e 64 6c 65 25 29  |_window(handle%)|
00001030  0d 07 bc 0a ea 6d 6f 72  65 25 0d 07 c6 2f c8 99  |.....more%.../..|
00001040  20 22 57 69 6d 70 5f 52  65 64 72 61 77 57 69 6e  | "Wimp_RedrawWin|
00001050  64 6f 77 22 2c 2c 77 69  6d 70 5f 62 6c 6f 63 6b  |dow",,wimp_block|
00001060  25 20 b8 20 6d 6f 72 65  25 0d 07 d0 0c c8 95 20  |% . more%...... |
00001070  6d 6f 72 65 25 0d 07 da  19 20 20 f2 61 70 70 6c  |more%....  .appl|
00001080  69 63 61 74 69 6f 6e 5f  72 65 64 72 61 77 0d 07  |ication_redraw..|
00001090  e4 31 20 20 c8 99 20 22  57 69 6d 70 5f 47 65 74  |.1  .. "Wimp_Get|
000010a0  52 65 63 74 61 6e 67 6c  65 22 2c 2c 77 69 6d 70  |Rectangle",,wimp|
000010b0  5f 62 6c 6f 63 6b 25 20  b8 20 6d 6f 72 65 25 0d  |_block% . more%.|
000010c0  07 ee 05 ce 0d 07 f8 05  e1 0d 08 02 04 0d 08 0c  |................|
000010d0  23 dd 20 f2 63 6c 6f 73  65 5f 77 69 6e 64 6f 77  |#. .close_window|
000010e0  28 68 61 6e 64 6c 65 25  2c 62 6c 6f 63 6b 25 29  |(handle%,block%)|
000010f0  0d 08 16 14 62 6c 6f 63  6b 25 21 30 3d 68 61 6e  |....block%!0=han|
00001100  64 6c 65 25 0d 08 20 20  c8 99 22 57 69 6d 70 5f  |dle%..  .."Wimp_|
00001110  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 62 6c  |CloseWindow",,bl|
00001120  6f 63 6b 25 0d 08 2a 10  c8 8e 20 68 61 6e 64 6c  |ock%..*... handl|
00001130  65 25 20 ca 0d 08 34 11  c9 20 6d 65 6e 75 64 69  |e% ...4.. menudi|
00001140  61 6c 6f 67 25 0d 08 3e  16 20 20 62 6c 6f 63 6b  |alog%..>.  block|
00001150  25 21 30 3d 68 61 6e 64  6c 65 25 0d 08 48 24 20  |%!0=handle%..H$ |
00001160  20 c8 99 20 22 57 69 6d  70 5f 44 65 6c 65 74 65  | .. "Wimp_Delete|
00001170  57 69 6e 64 6f 77 22 2c  2c 62 6c 6f 63 6b 25 0d  |Window",,block%.|
00001180  08 52 14 20 20 6d 65 6e  75 64 69 61 6c 6f 67 25  |.R.  menudialog%|
00001190  20 3d 30 0d 08 5c 0d c9  20 64 69 61 6c 6f 67 25  | =0..\.. dialog%|
000011a0  0d 08 66 16 20 20 62 6c  6f 63 6b 25 21 30 3d 68  |..f.  block%!0=h|
000011b0  61 6e 64 6c 65 25 0d 08  70 24 20 20 c8 99 20 22  |andle%..p$  .. "|
000011c0  57 69 6d 70 5f 44 65 6c  65 74 65 57 69 6e 64 6f  |Wimp_DeleteWindo|
000011d0  77 22 2c 2c 62 6c 6f 63  6b 25 0d 08 7a 10 20 20  |w",,block%..z.  |
000011e0  64 69 61 6c 6f 67 25 20  3d 30 0d 08 84 05 cb 0d  |dialog% =0......|
000011f0  08 8e 04 0d 08 98 05 e1  0d 08 a2 04 0d 08 ac 09  |................|
00001200  dd f2 65 6e 64 0d 08 b6  1c 77 69 6d 70 5f 62 6c  |..end....wimp_bl|
00001210  6f 63 6b 25 21 30 3d 6d  79 5f 68 61 6e 64 6c 65  |ock%!0=my_handle|
00001220  25 0d 08 c0 26 c8 99 22  57 69 6d 70 5f 44 65 6c  |%...&.."Wimp_Del|
00001230  65 74 65 57 69 6e 64 6f  77 22 2c 2c 77 69 6d 70  |eteWindow",,wimp|
00001240  5f 62 6c 6f 63 6b 25 0d  08 ca 2c c8 99 22 57 69  |_block%...,.."Wi|
00001250  6d 70 5f 43 6c 6f 73 65  44 6f 77 6e 22 2c 74 61  |mp_CloseDown",ta|
00001260  73 6b 68 61 6e 64 6c 65  25 2c 26 34 42 35 33 34  |skhandle%,&4B534|
00001270  31 35 34 0d 08 d4 05 e1  0d 08 de 04 0d 08 e8 26  |154............&|
00001280  f4 20 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |. ==============|
00001290  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
000012a0  3d 3d 0d 08 f2 1e f4 20  20 41 70 70 6c 69 63 61  |==.....  Applica|
000012b0  74 69 6f 6e 20 72 65 64  72 61 77 20 63 6f 64 65  |tion redraw code|
000012c0  0d 08 fc 26 f4 20 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |...&. ==========|
000012d0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
000012e0  3d 3d 3d 3d 3d 3d 0d 09  06 04 0d 09 10 18 dd f2  |======..........|
000012f0  61 70 70 6c 69 63 61 74  69 6f 6e 5f 72 65 64 72  |application_redr|
00001300  61 77 0d 09 1a 14 ea 49  25 2c 62 75 66 66 65 72  |aw.....I%,buffer|
00001310  25 2c 6c 65 6e 25 0d 09  24 2b 77 6f 72 6b 78 25  |%,len%..$+workx%|
00001320  3d 20 77 69 6d 70 5f 62  6c 6f 63 6b 25 21 34 20  |= wimp_block%!4 |
00001330  20 2d 20 77 69 6d 70 5f  62 6c 6f 63 6b 25 21 32  | - wimp_block%!2|
00001340  30 0d 09 2e 2b 77 6f 72  6b 79 25 3d 20 77 69 6d  |0...+worky%= wim|
00001350  70 5f 62 6c 6f 63 6b 25  21 31 36 20 2d 20 77 69  |p_block%!16 - wi|
00001360  6d 70 5f 62 6c 6f 63 6b  25 21 32 34 0d 09 38 08  |mp_block%!24..8.|
00001370  49 25 3d 30 0d 09 42 04  0d 09 4c 05 da 0d 09 56  |I%=0..B...L....V|
00001380  10 c8 95 20 49 25 20 3c  20 26 31 30 30 0d 09 60  |... I% < &100..`|
00001390  20 20 20 ec 20 77 6f 72  6b 78 25 2c 77 6f 72 6b  |   . workx%,work|
000013a0  79 25 20 2d 20 34 38 20  2d 49 25 2a 38 0d 09 6a  |y% - 48 -I%*8..j|
000013b0  3b 20 20 c8 99 20 22 44  65 62 75 67 67 65 72 5f  |;  .. "Debugger_|
000013c0  44 69 73 61 73 73 65 6d  62 6c 65 22 2c 49 25 21  |Disassemble",I%!|
000013d0  64 69 73 73 61 64 72 25  20 b8 20 2c 62 75 66 66  |dissadr% . ,buff|
000013e0  65 72 25 2c 6c 65 6e 25  0d 09 74 21 20 20 c8 99  |er%,len%..t!  ..|
000013f0  20 22 4f 53 5f 57 72 69  74 65 4e 22 2c 62 75 66  | "OS_WriteN",buf|
00001400  66 65 72 25 2c 6c 65 6e  25 0d 09 7e 0b 20 20 49  |fer%,len%..~.  I|
00001410  25 2b 3d 34 0d 09 88 05  ce 0d 09 92 05 e1 0d 09  |%+=4............|
00001420  9c 04 0d 09 a6 4a f4 20  3d 3d 3d 3d 3d 3d 3d 3d  |.....J. ========|
00001430  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00001460  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 0d 09 b0 31  |============...1|
00001470  f4 20 20 41 64 64 20 74  68 65 20 61 70 70 6c 69  |.  Add the appli|
00001480  63 61 74 69 6f 6e 27 73  20 69 63 6f 6e 20 74 6f  |cation's icon to|
00001490  20 74 68 65 20 69 63 6f  6e 20 62 61 72 0d 09 ba  | the icon bar...|
000014a0  4a f4 20 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |J. =============|
000014b0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
000014e0  3d 3d 3d 3d 3d 3d 3d 0d  09 c4 04 0d 09 ce 1d dd  |=======.........|
000014f0  a4 69 63 6f 6e 62 61 72  28 73 70 6e 61 6d 65 24  |.iconbar(spname$|
00001500  2c 62 6c 6f 63 6b 25 29  0d 09 d8 0d ea 20 68 61  |,block%)..... ha|
00001510  6e 64 6c 65 25 0d 09 e2  15 24 62 6c 6f 63 6b 25  |ndle%....$block%|
00001520  20 3d 20 73 70 6e 61 6d  65 24 0d 09 ec 17 77 69  | = spname$....wi|
00001530  6d 70 5f 62 6c 6f 63 6b  25 21 30 20 20 3d 20 2d  |mp_block%!0  = -|
00001540  31 0d 09 f6 17 77 69 6d  70 5f 62 6c 6f 63 6b 25  |1....wimp_block%|
00001550  21 34 20 20 3d 20 20 30  0d 0a 00 17 77 69 6d 70  |!4  =  0....wimp|
00001560  5f 62 6c 6f 63 6b 25 21  38 20 20 3d 20 20 30 0d  |_block%!8  =  0.|
00001570  0a 0a 17 77 69 6d 70 5f  62 6c 6f 63 6b 25 21 31  |...wimp_block%!1|
00001580  32 20 3d 20 38 30 0d 0a  14 17 77 69 6d 70 5f 62  |2 = 80....wimp_b|
00001590  6c 6f 63 6b 25 21 31 36  20 3d 20 38 32 0d 0a 1e  |lock%!16 = 82...|
000015a0  1a 77 69 6d 70 5f 62 6c  6f 63 6b 25 21 32 30 20  |.wimp_block%!20 |
000015b0  3d 20 26 32 31 38 32 0d  0a 28 1b 77 69 6d 70 5f  |= &2182..(.wimp_|
000015c0  62 6c 6f 63 6b 25 21 32  34 20 3d 20 62 6c 6f 63  |block%!24 = bloc|
000015d0  6b 25 0d 0a 32 16 77 69  6d 70 5f 62 6c 6f 63 6b  |k%..2.wimp_block|
000015e0  25 21 32 38 20 3d 20 31  0d 0a 3c 1f 77 69 6d 70  |%!28 = 1..<.wimp|
000015f0  5f 62 6c 6f 63 6b 25 21  33 32 20 3d 20 a9 28 24  |_block%!32 = .($|
00001600  62 6c 6f 63 6b 25 29 0d  0a 46 31 c8 99 20 22 58  |block%)..F1.. "X|
00001610  57 69 6d 70 5f 43 72 65  61 74 65 49 63 6f 6e 22  |Wimp_CreateIcon"|
00001620  2c 30 2c 77 69 6d 70 5f  62 6c 6f 63 6b 25 20 b8  |,0,wimp_block% .|
00001630  20 68 61 6e 64 6c 65 25  0d 0a 50 0c 3d 68 61 6e  | handle%..P.=han|
00001640  64 6c 65 25 0d 0a 5a 04  0d 0a 64 29 dd a4 6e 65  |dle%..Z...d)..ne|
00001650  77 69 63 6f 6e 62 61 72  28 73 70 6e 61 6d 65 24  |wiconbar(spname$|
00001660  2c 62 6c 6f 63 6b 25 2c  6f 6c 64 68 61 6e 64 25  |,block%,oldhand%|
00001670  29 0d 0a 6e 16 77 69 6d  70 5f 62 6c 6f 63 6b 25  |)..n.wimp_block%|
00001680  21 30 20 3d 20 2d 31 0d  0a 78 1c 77 69 6d 70 5f  |!0 = -1..x.wimp_|
00001690  62 6c 6f 63 6b 25 21 34  20 3d 20 6f 6c 64 68 61  |block%!4 = oldha|
000016a0  6e 64 25 0d 0a 82 25 c8  99 20 22 57 69 6d 70 5f  |nd%...%.. "Wimp_|
000016b0  44 65 6c 65 74 65 49 63  6f 6e 22 2c 2c 77 69 6d  |DeleteIcon",,wim|
000016c0  70 5f 62 6c 6f 63 6b 25  0d 0a 8c 1d 3d a4 69 63  |p_block%....=.ic|
000016d0  6f 6e 62 61 72 28 73 70  6e 61 6d 65 24 2c 62 6c  |onbar(spname$,bl|
000016e0  6f 63 6b 25 29 0d 0a 96  04 0d 0a a0 4a f4 20 3d  |ock%).......J. =|
000016f0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00001730  3d 3d 3d 0d 0a aa 18 f4  20 20 43 72 65 61 74 69  |===.....  Creati|
00001740  6f 6e 20 6f 66 20 6d 65  6e 75 73 0d 0a b4 4a f4  |on of menus...J.|
00001750  20 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  | ===============|
00001760  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00001790  3d 3d 3d 3d 3d 0d 0a be  04 0d 0a c8 2c dd a4 6d  |=====.......,..m|
000017a0  61 6b 65 5f 6d 65 6e 75  28 74 69 74 6c 65 24 2c  |ake_menu(title$,|
000017b0  f8 20 6d 65 6e 75 66 72  65 65 25 2c 6d 65 6e 75  |. menufree%,menu|
000017c0  65 6e 64 25 29 0d 0a d2  22 ea 20 6d 68 61 6e 64  |end%)...". mhand|
000017d0  25 2c 6d 65 6e 75 70 74  72 25 2c 69 74 65 6d 24  |%,menuptr%,item$|
000017e0  2c 62 6c 6f 63 6b 25 0d  0a dc 0b ea 20 6d 61 78  |,block%..... max|
000017f0  78 25 0d 0a e6 16 62 6c  6f 63 6b 25 3d 77 69 6d  |x%....block%=wim|
00001800  70 5f 62 6c 6f 63 6b 25  0d 0a f0 04 0d 0a fa 1f  |p_block%........|
00001810  e7 20 6d 65 6e 75 66 72  65 65 25 2b 32 38 20 3e  |. menufree%+28 >|
00001820  20 6d 65 6e 75 65 6e 64  25 20 8c 0d 0b 04 29 20  | menuend% ....) |
00001830  20 f2 65 72 72 6f 72 28  34 2c 74 69 74 6c 65 24  | .error(4,title$|
00001840  29 3a f4 20 22 4d 65 6e  75 20 61 72 65 61 20 66  |):. "Menu area f|
00001850  75 6c 6c 22 0d 0b 0e 05  cd 0d 0b 18 04 0d 0b 22  |ull"..........."|
00001860  16 6d 65 6e 75 70 74 72  25 3d 6d 65 6e 75 66 72  |.menuptr%=menufr|
00001870  65 65 25 0d 0b 2c 18 24  6d 65 6e 75 70 74 72 25  |ee%..,.$menuptr%|
00001880  20 20 20 3d 20 74 69 74  6c 65 24 0d 0b 36 18 6d  |   = title$..6.m|
00001890  65 6e 75 70 74 72 25 3f  31 32 20 3d 20 63 6f 6c  |enuptr%?12 = col|
000018a0  4d 46 25 0d 0b 40 14 6d  65 6e 75 70 74 72 25 3f  |MF%..@.menuptr%?|
000018b0  31 33 20 3d 20 20 32 0d  0b 4a 18 6d 65 6e 75 70  |13 =  2..J.menup|
000018c0  74 72 25 3f 31 34 20 3d  20 63 6f 6c 57 46 25 0d  |tr%?14 = colWF%.|
000018d0  0b 54 18 6d 65 6e 75 70  74 72 25 3f 31 35 20 3d  |.T.menuptr%?15 =|
000018e0  20 63 6f 6c 57 42 25 0d  0b 5e 18 6d 65 6e 75 70  | colWB%..^.menup|
000018f0  74 72 25 21 31 36 20 3d  20 31 39 36 2d 32 34 0d  |tr%!16 = 196-24.|
00001900  0b 68 14 6d 65 6e 75 70  74 72 25 21 32 30 20 3d  |.h.menuptr%!20 =|
00001910  20 34 34 0d 0b 72 14 6d  65 6e 75 70 74 72 25 21  | 44..r.menuptr%!|
00001920  32 34 20 3d 20 20 30 0d  0b 7c 14 6d 65 6e 75 70  |24 =  0..|.menup|
00001930  74 72 25 20 20 20 2b 3d  20 32 38 0d 0b 86 15 6d  |tr%   += 28....m|
00001940  61 78 78 25 3d a9 28 74  69 74 6c 65 24 29 2d 33  |axx%=.(title$)-3|
00001950  0d 0b 90 05 f5 0d 0b 9a  1c 20 20 69 74 65 6d 24  |.........  item$|
00001960  3d a4 67 65 74 69 74 65  6d 28 62 6c 6f 63 6b 25  |=.getitem(block%|
00001970  29 0d 0b a4 2e 20 20 f2  6d 65 6e 75 69 74 65 6d  |)....  .menuitem|
00001980  28 69 74 65 6d 24 2c 6d  65 6e 75 70 74 72 25 2c  |(item$,menuptr%,|
00001990  6d 65 6e 75 65 6e 64 25  2c 6d 61 78 78 25 29 0d  |menuend%,maxx%).|
000019a0  0b ae 0e fd 20 69 74 65  6d 24 3d 22 22 0d 0b b8  |.... item$=""...|
000019b0  19 6d 68 61 6e 64 25 20  20 20 20 3d 20 6d 65 6e  |.mhand%    = men|
000019c0  75 66 72 65 65 25 0d 0b  c2 1a 6d 68 61 6e 64 25  |ufree%....mhand%|
000019d0  21 31 36 20 3d 6d 61 78  78 25 2a 31 36 2b 31 32  |!16 =maxx%*16+12|
000019e0  0d 0b cc 16 6d 65 6e 75  66 72 65 65 25 3d 6d 65  |....menufree%=me|
000019f0  6e 75 70 74 72 25 0d 0b  d6 0b 3d 6d 68 61 6e 64  |nuptr%....=mhand|
00001a00  25 0d 0b e0 04 0d 0b ea  17 dd a4 67 65 74 69 74  |%..........getit|
00001a10  65 6d 28 f8 20 62 6c 6f  63 6b 25 29 0d 0b f4 07  |em(. block%)....|
00001a20  ea 41 24 0d 0b fe 21 c8  95 20 3f 62 6c 6f 63 6b  |.A$...!.. ?block|
00001a30  25 3c 3e 97 22 2c 22 20  80 20 3f 62 6c 6f 63 6b  |%<>."," . ?block|
00001a40  25 3e 33 31 0d 0c 08 14  20 20 41 24 2b 3d bd 28  |%>31....  A$+=.(|
00001a50  3f 62 6c 6f 63 6b 25 29  0d 0c 12 0f 20 20 62 6c  |?block%)....  bl|
00001a60  6f 63 6b 25 2b 3d 31 0d  0c 1c 05 ce 0d 0c 26 14  |ock%+=1.......&.|
00001a70  e7 20 3f 62 6c 6f 63 6b  25 3d 97 22 2c 22 20 8c  |. ?block%=."," .|
00001a80  0d 0c 30 0f 20 20 62 6c  6f 63 6b 25 2b 3d 31 0d  |..0.  block%+=1.|
00001a90  0c 3a 05 cd 0d 0c 44 07  3d 41 24 0d 0c 4e 04 0d  |.:....D.=A$..N..|
00001aa0  0c 58 2f f4 20 41 64 64  20 74 68 65 20 6d 65 6e  |.X/. Add the men|
00001ab0  75 20 69 74 65 6d 20 69  6e 74 6f 20 74 68 65 20  |u item into the |
00001ac0  64 61 74 61 20 73 74 72  75 63 74 75 72 65 0d 0c  |data structure..|
00001ad0  62 04 0d 0c 6c 31 dd f2  6d 65 6e 75 69 74 65 6d  |b...l1..menuitem|
00001ae0  28 74 65 78 74 24 2c f8  20 6d 65 6e 75 70 74 72  |(text$,. menuptr|
00001af0  25 2c 6d 65 6e 75 65 6e  64 25 2c f8 20 6d 61 78  |%,menuend%,. max|
00001b00  78 25 29 0d 0c 76 1f ea  69 25 2c 66 6c 67 25 2c  |x%)..v..i%,flg%,|
00001b10  4c 25 2c 5a 25 2c 66 6c  67 25 2c 73 75 62 70 74  |L%,Z%,flg%,subpt|
00001b20  72 25 0d 0c 80 10 e7 20  74 65 78 74 24 3d 22 22  |r%..... text$=""|
00001b30  20 8c 0d 0c 8a 29 20 20  6d 65 6e 75 70 74 72 25  | ....)  menuptr%|
00001b40  21 28 2d 32 34 29 3d 28  6d 65 6e 75 70 74 72 25  |!(-24)=(menuptr%|
00001b50  21 28 2d 32 34 29 29 84  26 38 30 0d 0c 94 07 20  |!(-24)).&80.... |
00001b60  20 e1 0d 0c 9e 05 cd 0d  0c a8 1e e7 20 6d 65 6e  | ........... men|
00001b70  75 70 74 72 25 2b 32 34  20 3e 20 6d 65 6e 75 65  |uptr%+24 > menue|
00001b80  6e 64 25 20 8c 0d 0c b2  28 20 20 f2 65 72 72 6f  |nd% ....(  .erro|
00001b90  72 28 34 2c 74 65 78 74  24 29 3a f4 20 22 4d 65  |r(4,text$):. "Me|
00001ba0  6e 75 20 61 72 65 61 20  66 75 6c 6c 22 0d 0c bc  |nu area full"...|
00001bb0  05 cd 0d 0c c6 0c 66 6c  67 25 3d 26 30 30 0d 0c  |......flg%=&00..|
00001bc0  d0 04 0d 0c da 29 f4 20  44 65 61 6c 20 77 69 74  |.....). Deal wit|
00001bd0  68 20 73 75 62 6d 65 6e  75 73 20 61 6e 64 20 64  |h submenus and d|
00001be0  69 61 6c 6f 67 20 62 6f  78 65 73 0d 0c e4 04 0d  |ialog boxes.....|
00001bf0  0c ee 12 69 25 3d a7 74  65 78 74 24 2c 22 3e 22  |...i%=.text$,">"|
00001c00  29 0d 0c f8 0c e7 20 69  25 3e 30 20 8c 0d 0d 02  |)..... i%>0 ....|
00001c10  21 20 20 73 75 62 70 74  72 25 3d a4 65 76 61 6c  |!  subptr%=.eval|
00001c20  28 c1 74 65 78 74 24 2c  69 25 2b 31 29 29 0d 0d  |(.text$,i%+1))..|
00001c30  0c 18 20 20 74 65 78 74  24 3d c0 74 65 78 74 24  |..  text$=.text$|
00001c40  2c 69 25 2d 31 29 0d 0d  16 05 cc 0d 0d 20 14 20  |,i%-1)....... . |
00001c50  20 69 25 3d a7 74 65 78  74 24 2c 22 3c 22 29 0d  | i%=.text$,"<").|
00001c60  0d 2a 0e 20 20 e7 20 69  25 3e 30 20 8c 0d 0d 34  |.*.  . i%>0 ...4|
00001c70  19 20 20 20 20 66 6c 67  25 20 3d 20 66 6c 67 25  |.    flg% = flg%|
00001c80  20 84 20 26 30 38 0d 0d  3e 23 20 20 20 20 73 75  | . &08..>#    su|
00001c90  62 70 74 72 25 3d a4 65  76 61 6c 28 c1 74 65 78  |bptr%=.eval(.tex|
00001ca0  74 24 2c 69 25 2b 31 29  29 0d 0d 48 1a 20 20 20  |t$,i%+1))..H.   |
00001cb0  20 74 65 78 74 24 3d c0  74 65 78 74 24 2c 69 25  | text$=.text$,i%|
00001cc0  2d 31 29 0d 0d 52 07 20  20 cc 0d 0d 5c 12 20 20  |-1)..R.  ...\.  |
00001cd0  20 20 73 75 62 70 74 72  25 3d 2d 31 0d 0d 66 07  |  subptr%=-1..f.|
00001ce0  20 20 cd 0d 0d 70 05 cd  0d 0d 7a 04 0d 0d 84 13  |  ...p....z.....|
00001cf0  6d 65 6e 75 70 74 72 25  21 30 3d 66 6c 67 25 0d  |menuptr%!0=flg%.|
00001d00  0d 8e 16 6d 65 6e 75 70  74 72 25 21 34 3d 73 75  |...menuptr%!4=su|
00001d10  62 70 74 72 25 0d 0d 98  18 6d 65 6e 75 70 74 72  |bptr%....menuptr|
00001d20  25 21 38 3d 26 30 37 30  30 30 30 32 31 0d 0d a2  |%!8=&07000021...|
00001d30  13 e7 20 a9 28 74 65 78  74 24 29 3c 31 32 20 8c  |.. .(text$)<12 .|
00001d40  0d 0d ac 1a 20 20 24 28  6d 65 6e 75 70 74 72 25  |....  $(menuptr%|
00001d50  2b 31 32 29 3d 74 65 78  74 24 0d 0d b6 05 cc 0d  |+12)=text$......|
00001d60  0d c0 13 20 20 de 20 5a  25 20 a9 28 74 65 78 74  |...  . Z% .(text|
00001d70  24 29 0d 0d ca 14 20 20  6d 65 6e 75 70 74 72 25  |$)....  menuptr%|
00001d80  21 31 32 3d 5a 25 0d 0d  d4 14 20 20 6d 65 6e 75  |!12=Z%....  menu|
00001d90  70 74 72 25 21 31 36 3d  2d 31 0d 0d de 1a 20 20  |ptr%!16=-1....  |
00001da0  6d 65 6e 75 70 74 72 25  21 32 30 3d a9 28 74 65  |menuptr%!20=.(te|
00001db0  78 74 24 29 0d 0d e8 22  20 20 6d 65 6e 75 70 74  |xt$)..."  menupt|
00001dc0  72 25 21 38 3d 6d 65 6e  75 70 74 72 25 21 38 20  |r%!8=menuptr%!8 |
00001dd0  84 20 26 31 30 30 0d 0d  f2 05 cd 0d 0d fc 16 e7  |. &100..........|
00001de0  20 a9 28 74 65 78 74 24  29 3e 6d 61 78 78 25 20  | .(text$)>maxx% |
00001df0  8c 0d 0e 06 14 20 20 6d  61 78 78 25 3d a9 28 74  |.....  maxx%=.(t|
00001e00  65 78 74 24 29 0d 0e 10  05 cd 0d 0e 1a 10 6d 65  |ext$).........me|
00001e10  6e 75 70 74 72 25 2b 3d  32 34 0d 0e 24 05 e1 0d  |nuptr%+=24..$...|
00001e20  0e 2e 04 0d 0e 38 12 dd  f2 65 72 72 6f 72 28 65  |.....8...error(e|
00001e30  25 2c 41 24 29 0d 0e 42  0b 85 20 65 25 2c 41 24  |%,A$)..B.. e%,A$|
00001e40  0d 0e 4c 05 e1 0d 0e 56  04 0d 0e 60 19 dd a4 63  |..L....V...`...c|
00001e50  72 65 61 74 65 5f 6d 65  6e 75 28 74 69 74 6c 65  |reate_menu(title|
00001e60  24 29 0d 0e 6a 2a 3d a4  6d 61 6b 65 5f 6d 65 6e  |$)..j*=.make_men|
00001e70  75 28 74 69 74 6c 65 24  2c 6d 65 6e 75 66 72 65  |u(title$,menufre|
00001e80  65 25 2c 6d 65 6e 75 65  6e 64 25 29 0d 0e 74 04  |e%,menuend%)..t.|
00001e90  0d 0e 7e 4b f4 20 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |..~K. ==========|
00001ea0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00001ed0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 0d 0e 88 1a f4  |===========.....|
00001ee0  20 20 50 6f 70 69 6e 67  20 75 70 20 4d 65 6e 75  |  Poping up Menu|
00001ef0  73 20 65 74 63 0d 0e 92  4b f4 20 3d 3d 3d 3d 3d  |s etc...K. =====|
00001f00  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00001f40  0d 0e 9c 04 0d 0e a6 14  dd f2 6d 65 6e 75 28 6d  |..........menu(m|
00001f50  25 2c 69 63 6f 6e 25 29  0d 0e b0 0a ea 78 25 2c  |%,icon%).....x%,|
00001f60  79 25 0d 0e ba 11 78 25  3d 6d 6f 75 73 65 78 25  |y%....x%=mousex%|
00001f70  2d 36 38 0d 0e c4 11 79  25 3d 6d 6f 75 73 65 79  |-68....y%=mousey|
00001f80  25 2b 31 32 0d 0e ce 1c  f2 6d 65 6e 75 5f 61 74  |%+12.....menu_at|
00001f90  28 6d 25 2c 69 63 6f 6e  25 2c 78 25 2c 79 25 29  |(m%,icon%,x%,y%)|
00001fa0  0d 0e d8 05 e1 0d 0e e2  04 0d 0e ec 1d dd f2 6d  |...............m|
00001fb0  65 6e 75 5f 61 74 28 6d  25 2c 69 63 6f 6e 25 2c  |enu_at(m%,icon%,|
00001fc0  78 25 2c 79 25 29 0d 0e  f6 0e e7 20 6d 25 3c 3e  |x%,y%)..... m%<>|
00001fd0  2d 31 20 8c 0d 0f 00 16  20 20 47 5f 6d 65 6e 75  |-1 .....  G_menu|
00001fe0  68 61 6e 64 6c 65 25 3d  6d 25 0d 0f 0a 19 20 20  |handle%=m%....  |
00001ff0  47 5f 6d 65 6e 75 69 63  6f 6e 25 20 20 3d 69 63  |G_menuicon%  =ic|
00002000  6f 6e 25 0d 0f 14 1b 20  20 f2 65 6e 63 6f 64 65  |on%....  .encode|
00002010  6d 65 6e 75 28 6d 25 2c  69 63 6f 6e 25 29 0d 0f  |menu(m%,icon%)..|
00002020  1e 24 20 20 c8 99 20 22  57 69 6d 70 5f 43 72 65  |.$  .. "Wimp_Cre|
00002030  61 74 65 4d 65 6e 75 22  2c 2c 6d 25 2c 78 25 2c  |ateMenu",,m%,x%,|
00002040  79 25 0d 0f 28 05 cd 0d  0f 32 05 e1 0d 0f 3c 04  |y%..(....2....<.|
00002050  0d 0f 46 0c dd f2 72 65  6d 65 6e 75 0d 0f 50 2a  |..F...remenu..P*|
00002060  f2 65 6e 63 6f 64 65 6d  65 6e 75 28 47 5f 6d 65  |.encodemenu(G_me|
00002070  6e 75 68 61 6e 64 6c 65  25 2c 47 5f 6d 65 6e 75  |nuhandle%,G_menu|
00002080  69 63 6f 6e 25 29 0d 0f  5a 3e c8 99 20 22 57 69  |icon%)..Z>.. "Wi|
00002090  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
000020a0  47 5f 6d 65 6e 75 68 61  6e 64 6c 65 25 2c 6d 6f  |G_menuhandle%,mo|
000020b0  75 73 65 78 25 2d 31 30  32 2c 6d 6f 75 73 65 79  |usex%-102,mousey|
000020c0  25 2b 31 32 0d 0f 64 05  e1 0d 0f 6e 04 0d 0f 78  |%+12..d....n...x|
000020d0  1f dd f2 65 6e 63 6f 64  65 6d 65 6e 75 28 68 61  |...encodemenu(ha|
000020e0  6e 64 6c 65 25 2c 69 74  65 6d 25 29 0d 0f 82 05  |ndle%,item%)....|
000020f0  e1 0d 0f 8c 04 0d 0f 96  4b f4 20 3d 3d 3d 3d 3d  |........K. =====|
00002100  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00002140  0d 0f a0 1b f4 20 20 50  72 6f 63 65 73 73 20 4d  |.....  Process M|
00002150  6f 75 73 65 20 43 6c 69  63 6b 73 0d 0f aa 4b f4  |ouse Clicks...K.|
00002160  20 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  | ===============|
00002170  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
000021a0  3d 3d 3d 3d 3d 3d 0d 0f  b4 04 0d 0f be 09 dd f2  |======..........|
000021b0  6b 65 79 0d 0f c8 17 ea  68 61 6e 64 6c 65 25 2c  |key.....handle%,|
000021c0  69 63 6f 6e 25 2c 6b 65  79 25 0d 0f d2 1b 68 61  |icon%,key%....ha|
000021d0  6e 64 6c 65 25 20 3d 20  77 69 6d 70 5f 62 6c 6f  |ndle% = wimp_blo|
000021e0  63 6b 25 21 30 0d 0f dc  1b 69 63 6f 6e 25 20 20  |ck%!0....icon%  |
000021f0  20 3d 20 77 69 6d 70 5f  62 6c 6f 63 6b 25 21 34  | = wimp_block%!4|
00002200  0d 0f e6 1c 6b 65 79 25  20 20 20 20 3d 20 77 69  |....key%    = wi|
00002210  6d 70 5f 62 6c 6f 63 6b  25 21 32 34 0d 0f f0 04  |mp_block%!24....|
00002220  0d 0f fa 10 c8 8e 20 68  61 6e 64 6c 65 25 20 ca  |...... handle% .|
00002230  0d 10 04 0d c9 20 64 69  61 6c 6f 67 25 0d 10 0e  |..... dialog%...|
00002240  0f 20 20 c8 8e 20 6b 65  79 25 20 ca 0d 10 18 0a  |.  .. key% .....|
00002250  20 20 c9 20 31 33 0d 10  22 1c 20 20 20 20 f2 67  |  . 13..".    .g|
00002260  65 74 69 28 68 61 6e 64  6c 65 25 2c 69 63 6f 6e  |eti(handle%,icon|
00002270  25 29 0d 10 40 21 20 20  20 20 64 69 73 73 61 64  |%)..@!    dissad|
00002280  72 25 3d a0 20 28 20 24  28 69 64 61 74 61 25 20  |r%=. ( $(idata% |
00002290  29 20 29 0d 10 4a 22 20  20 20 20 f2 75 70 64 61  |) )..J"    .upda|
000022a0  74 65 5f 77 69 6e 64 6f  77 28 6d 79 5f 68 61 6e  |te_window(my_han|
000022b0  64 6c 65 25 29 0d 10 54  07 20 20 cb 0d 10 5e 05  |dle%)..T.  ...^.|
000022c0  cb 0d 10 68 04 0d 10 72  05 e1 0d 10 7c 04 0d 10  |...h...r....|...|
000022d0  86 4b f4 20 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |.K. ============|
000022e0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00002310  3d 3d 3d 3d 3d 3d 3d 3d  3d 0d 10 90 1b f4 20 20  |=========.....  |
00002320  50 72 6f 63 65 73 73 20  4d 6f 75 73 65 20 43 6c  |Process Mouse Cl|
00002330  69 63 6b 73 0d 10 9a 4b  f4 20 3d 3d 3d 3d 3d 3d  |icks...K. ======|
00002340  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00002370  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 0d  |===============.|
00002380  10 a4 04 0d 10 ae 0b dd  f2 6d 6f 75 73 65 0d 10  |.........mouse..|
00002390  b8 13 ea 20 68 61 6e 64  6c 65 25 2c 69 63 6f 6e  |... handle%,icon|
000023a0  25 0d 10 c2 1f 6d 6f 75  73 65 78 25 20 20 20 20  |%....mousex%    |
000023b0  20 3d 20 77 69 6d 70 5f  62 6c 6f 63 6b 25 21 30  | = wimp_block%!0|
000023c0  0d 10 cc 1f 6d 6f 75 73  65 79 25 20 20 20 20 20  |....mousey%     |
000023d0  3d 20 77 69 6d 70 5f 62  6c 6f 63 6b 25 21 34 0d  |= wimp_block%!4.|
000023e0  10 d6 1f 62 75 74 74 6f  6e 73 25 20 20 20 20 3d  |...buttons%    =|
000023f0  20 77 69 6d 70 5f 62 6c  6f 63 6b 25 21 38 0d 10  | wimp_block%!8..|
00002400  e0 20 68 61 6e 64 6c 65  25 20 20 20 20 20 3d 20  |. handle%     = |
00002410  77 69 6d 70 5f 62 6c 6f  63 6b 25 21 31 32 0d 10  |wimp_block%!12..|
00002420  ea 20 69 63 6f 6e 25 20  20 20 20 20 20 20 3d 20  |. icon%       = |
00002430  77 69 6d 70 5f 62 6c 6f  63 6b 25 21 31 36 0d 10  |wimp_block%!16..|
00002440  f4 11 c8 8e 20 62 75 74  74 6f 6e 73 25 20 ca 0d  |.... buttons% ..|
00002450  10 fe 14 c9 20 73 65 6c  65 63 74 5f 62 75 74 74  |.... select_butt|
00002460  6f 6e 25 0d 11 08 12 20  20 c8 8e 20 68 61 6e 64  |on%....  .. hand|
00002470  6c 65 25 20 ca 0d 11 12  0a 20 20 c9 20 2d 32 0d  |le% .....  . -2.|
00002480  11 1c 3d 20 20 20 20 f2  6f 70 65 6e 5f 77 69 6e  |..=    .open_win|
00002490  64 6f 77 5f 61 74 28 6d  79 5f 68 61 6e 64 6c 65  |dow_at(my_handle|
000024a0  25 2c 77 69 6d 70 5f 62  6c 6f 63 6b 25 2c 30 2c  |%,wimp_block%,0,|
000024b0  31 38 30 2c 36 30 30 2c  39 38 30 29 0d 11 26 12  |180,600,980)..&.|
000024c0  20 20 c9 20 6d 79 5f 68  61 6e 64 6c 65 25 0d 11  |  . my_handle%..|
000024d0  30 38 20 20 20 20 f2 64  69 61 6c 6f 67 5f 61 74  |08    .dialog_at|
000024e0  28 63 6f 6e 74 72 6f 6c  25 2c 77 69 6d 70 5f 62  |(control%,wimp_b|
000024f0  6c 6f 63 6b 25 2c 34 30  30 2c 34 30 30 2c 38 30  |lock%,400,400,80|
00002500  30 2c 36 30 30 29 0d 11  3a 07 20 20 cb 0d 11 44  |0,600)..:.  ...D|
00002510  12 c9 20 6d 65 6e 75 5f  62 75 74 74 6f 6e 25 0d  |.. menu_button%.|
00002520  11 4e 12 20 20 c8 8e 20  68 61 6e 64 6c 65 25 20  |.N.  .. handle% |
00002530  ca 0d 11 58 0a 20 20 c9  20 2d 32 0d 11 62 47 20  |...X.  . -2..bG |
00002540  20 20 20 f2 6d 65 6e 75  5f 61 74 28 69 63 6f 6e  |   .menu_at(icon|
00002550  5f 62 61 72 5f 6d 65 6e  75 25 2c 69 63 6f 6e 25  |_bar_menu%,icon%|
00002560  2c 6d 6f 75 73 65 78 25  2d 36 38 2c 69 62 61 72  |,mousex%-68,ibar|
00002570  5f 6d 65 6e 75 69 74 65  6d 73 25 2a 34 34 2b 39  |_menuitems%*44+9|
00002580  36 29 0d 11 6c 07 20 20  cb 0d 11 76 05 cb 0d 11  |6)..l.  ...v....|
00002590  80 05 e1 0d 11 8a 04 0d  11 94 4b f4 20 3d 3d 3d  |..........K. ===|
000025a0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
000025e0  3d 3d 0d 11 9e 1d f4 20  20 44 65 63 6f 64 65 20  |==.....  Decode |
000025f0  6d 65 6e 75 20 73 65 6c  65 63 74 69 6f 6e 73 0d  |menu selections.|
00002600  11 a8 4b f4 20 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |..K. ===========|
00002610  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00002640  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 0d 11 b2 04 0d 11  |==========......|
00002650  bc 1e dd f2 64 65 63 6f  64 65 6d 65 6e 75 28 68  |....decodemenu(h|
00002660  61 6e 64 25 2c 6d 65 6e  75 73 25 29 0d 11 c6 0e  |and%,menus%)....|
00002670  c8 8e 20 68 61 6e 64 25  20 ca 0d 11 d0 14 c9 20  |.. hand% ...... |
00002680  69 63 6f 6e 5f 62 61 72  5f 6d 65 6e 75 25 0d 11  |icon_bar_menu%..|
00002690  da 13 20 20 c8 8e 20 6d  65 6e 75 73 25 21 30 20  |..  .. menus%!0 |
000026a0  ca 0d 11 e4 16 20 20 c9  20 4d 65 6e 75 5f 69 63  |.....  . Menu_ic|
000026b0  62 5f 71 75 69 74 25 0d  11 ee 0c 20 20 20 20 f2  |b_quit%....    .|
000026c0  65 6e 64 0d 11 f8 07 20  20 cb 0d 12 02 05 cb 0d  |end....  .......|
000026d0  12 0c 05 e1 0d 12 16 04  0d 12 20 4b f4 20 3d 3d  |.......... K. ==|
000026e0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00002720  3d 3d 3d 0d 12 2a 1f f4  20 20 43 72 65 61 74 69  |===..*..  Creati|
00002730  6f 6e 20 6f 66 20 64 69  61 6c 6f 67 20 62 6f 78  |on of dialog box|
00002740  65 73 0d 12 34 4b f4 20  3d 3d 3d 3d 3d 3d 3d 3d  |es..4K. ========|
00002750  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00002780  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 0d 12 3e  |=============..>|
00002790  04 0d 12 48 32 dd f2 64  69 61 6c 6f 67 5f 61 74  |...H2..dialog_at|
000027a0  28 61 64 64 72 25 2c 77  69 6d 70 5f 62 6c 6f 63  |(addr%,wimp_bloc|
000027b0  6b 25 2c 78 30 25 2c 79  30 25 2c 78 31 25 2c 79  |k%,x0%,y0%,x1%,y|
000027c0  31 25 29 0d 12 52 12 e7  20 64 69 61 6c 6f 67 25  |1%)..R.. dialog%|
000027d0  3c 3e 30 20 8c 0d 12 5c  1b 20 20 77 69 6d 70 5f  |<>0 ...\.  wimp_|
000027e0  62 6c 6f 63 6b 25 21 30  3d 64 69 61 6c 6f 67 25  |block%!0=dialog%|
000027f0  0d 12 66 29 20 20 c8 99  20 22 57 69 6d 70 5f 44  |..f)  .. "Wimp_D|
00002800  65 6c 65 74 65 57 69 6e  64 6f 77 22 2c 2c 77 69  |eleteWindow",,wi|
00002810  6d 70 5f 62 6c 6f 63 6b  25 0d 12 70 0f 20 20 64  |mp_block%..p.  d|
00002820  69 61 6c 6f 67 25 3d 30  0d 12 7a 05 cd 0d 12 84  |ialog%=0..z.....|
00002830  2a c8 99 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |*.."Wimp_CreateW|
00002840  69 6e 64 6f 77 22 2c 2c  61 64 64 72 25 20 b8 20  |indow",,addr% . |
00002850  64 69 61 6c 6f 67 25 0d  12 8e 38 f2 6f 70 65 6e  |dialog%...8.open|
00002860  5f 77 69 6e 64 6f 77 5f  61 74 28 64 69 61 6c 6f  |_window_at(dialo|
00002870  67 25 2c 77 69 6d 70 5f  62 6c 6f 63 6b 25 2c 78  |g%,wimp_block%,x|
00002880  30 25 2c 79 30 25 2c 78  31 25 2c 79 31 25 29 0d  |0%,y0%,x1%,y1%).|
00002890  12 98 05 e1 0d 12 a2 04  0d 12 ac 19 dd a4 64 69  |..............di|
000028a0  61 6c 6f 67 5f 74 65 6d  70 6c 61 74 65 28 61 24  |alog_template(a$|
000028b0  29 0d 12 b6 0e ea 20 61  64 64 72 65 73 73 25 0d  |)..... address%.|
000028c0  12 c0 3c 61 64 64 72 65  73 73 25 3d a4 6d 61 6b  |..<address%=.mak|
000028d0  65 5f 64 69 61 6c 6f 67  28 61 24 2c 77 69 6d 70  |e_dialog(a$,wimp|
000028e0  5f 62 6c 6f 63 6b 25 2c  65 6e 64 62 75 66 25 2c  |_block%,endbuf%,|
000028f0  2d 31 2c 63 75 72 62 75  66 25 29 0d 12 ca 0d 3d  |-1,curbuf%)....=|
00002900  61 64 64 72 65 73 73 25  0d 12 d4 04 0d 12 de 3f  |address%.......?|
00002910  dd a4 6d 61 6b 65 5f 64  69 61 6c 6f 67 28 61 24  |..make_dialog(a$|
00002920  2c 77 69 6d 70 5f 62 6c  6f 63 6b 25 2c 65 6e 64  |,wimp_block%,end|
00002930  62 75 66 25 2c 66 6f 6e  74 63 6f 75 6e 74 73 25  |buf%,fontcounts%|
00002940  2c f8 20 63 75 72 62 75  66 25 29 0d 12 e8 1e ea  |,. curbuf%).....|
00002950  20 49 25 2c 61 64 64 72  65 73 73 25 2c 52 36 25  | I%,address%,R6%|
00002960  2c 73 69 7a 65 25 2c 62  25 0d 12 f2 11 de 20 62  |,size%,b%..... b|
00002970  25 20 a9 28 61 24 29 2b  31 32 0d 12 fc 0a 24 62  |% .(a$)+12....$b|
00002980  25 3d 61 24 0d 13 06 4f  c8 99 20 22 57 69 6d 70  |%=a$...O.. "Wimp|
00002990  5f 4c 6f 61 64 54 65 6d  70 6c 61 74 65 22 2c 2c  |_LoadTemplate",,|
000029a0  77 69 6d 70 5f 62 6c 6f  63 6b 25 2c 63 75 72 62  |wimp_block%,curb|
000029b0  75 66 25 2c 65 6e 64 62  75 66 25 2c 30 2c 62 25  |uf%,endbuf%,0,b%|
000029c0  20 b8 20 2c 2c 63 75 72  62 75 66 25 2c 2c 2c 2c  | . ,,curbuf%,,,,|
000029d0  52 36 25 0d 13 10 0d e7  20 52 36 25 3d 30 20 8c  |R6%..... R6%=0 .|
000029e0  0d 13 1a 1e 20 20 85 20  31 2c 22 44 69 61 6c 6f  |....  . 1,"Dialo|
000029f0  67 75 65 20 6e 6f 74 20  66 6f 75 6e 64 22 0d 13  |gue not found"..|
00002a00  24 05 cd 0d 13 2e 25 73  69 7a 65 25 3d 28 77 69  |$.....%size%=(wi|
00002a10  6d 70 5f 62 6c 6f 63 6b  25 21 38 34 29 2a 33 32  |mp_block%!84)*32|
00002a20  20 2b 38 34 2b 34 2b 34  0d 13 38 14 de 20 61 64  | +84+4+4..8.. ad|
00002a30  64 72 65 73 73 25 20 73  69 7a 65 25 0d 13 42 17  |dress% size%..B.|
00002a40  e3 20 49 25 3d 30 20 b8  20 73 69 7a 65 25 2d 34  |. I%=0 . size%-4|
00002a50  20 88 34 0d 13 4c 20 20  20 49 25 21 61 64 64 72  | .4..L   I%!addr|
00002a60  65 73 73 25 3d 49 25 21  77 69 6d 70 5f 62 6c 6f  |ess%=I%!wimp_blo|
00002a70  63 6b 25 0d 13 56 05 ed  0d 13 60 0d 3d 61 64 64  |ck%..V....`.=add|
00002a80  72 65 73 73 25 0d 13 6a  04 0d 13 74 0d dd f2 72  |ress%..j...t...r|
00002a90  65 63 65 69 76 65 0d 13  7e 33 ea 20 6d 79 5f 72  |eceive..~3. my_r|
00002aa0  65 66 25 2c 20 66 69 6c  65 6e 61 6d 65 24 2c 20  |ef%, filename$, |
00002ab0  66 69 6c 65 74 79 70 65  25 2c 66 72 6f 6d 68 61  |filetype%,fromha|
00002ac0  6e 64 25 2c 69 63 6f 6e  25 0d 13 88 08 ea 20 49  |nd%,icon%..... I|
00002ad0  25 0d 13 92 04 0d 13 9c  28 66 69 6c 65 6e 61 6d  |%.......(filenam|
00002ae0  65 24 20 3d 20 a4 73 74  72 69 6e 67 30 28 77 69  |e$ = .string0(wi|
00002af0  6d 70 5f 62 6c 6f 63 6b  25 2b 34 34 29 0d 13 a6  |mp_block%+44)...|
00002b00  1e 66 69 6c 65 74 79 70  65 25 20 3d 20 77 69 6d  |.filetype% = wim|
00002b10  70 5f 62 6c 6f 63 6b 25  21 34 30 0d 13 b0 1e 66  |p_block%!40....f|
00002b20  72 6f 6d 68 61 6e 64 25  20 3d 20 77 69 6d 70 5f  |romhand% = wimp_|
00002b30  62 6c 6f 63 6b 25 21 32  30 0d 13 ba 1e 69 63 6f  |block%!20....ico|
00002b40  6e 25 20 20 20 20 20 3d  20 77 69 6d 70 5f 62 6c  |n%     = wimp_bl|
00002b50  6f 63 6b 25 21 32 34 0d  13 c4 04 0d 13 ce 1f f4  |ock%!24.........|
00002b60  20 72 65 6d 65 6d 62 65  72 20 74 68 69 73 20 73  | remember this s|
00002b70  65 74 20 6f 66 20 64 61  74 61 0d 13 d8 24 f4 20  |et of data...$. |
00002b80  66 6f 72 20 74 68 65 20  61 63 6b 6e 6f 77 6c 65  |for the acknowle|
00002b90  64 67 65 6d 65 6e 74 73  20 6c 61 74 65 72 0d 13  |dgements later..|
00002ba0  e2 04 0d 13 ec 1e e3 20  49 25 3d 30 20 b8 20 21  |....... I%=0 . !|
00002bb0  77 69 6d 70 5f 62 6c 6f  63 6b 25 2d 31 20 88 34  |wimp_block%-1 .4|
00002bc0  0d 13 f6 27 20 20 6f 6c  64 5f 77 69 6d 70 5f 62  |...'  old_wimp_b|
00002bd0  6c 6f 63 6b 25 21 49 25  3d 77 69 6d 70 5f 62 6c  |lock%!I%=wimp_bl|
00002be0  6f 63 6b 25 21 49 25 0d  14 00 05 ed 0d 14 0a 04  |ock%!I%.........|
00002bf0  0d 14 14 1b 6d 79 5f 72  65 66 25 20 3d 20 77 69  |....my_ref% = wi|
00002c00  6d 70 5f 62 6c 6f 63 6b  25 21 38 0d 14 1e 04 0d  |mp_block%!8.....|
00002c10  14 28 28 f4 20 4f 4b 2c  20 6c 65 74 27 73 20 73  |.((. OK, let's s|
00002c20  65 65 20 77 68 61 74 20  74 68 65 20 6d 65 73 73  |ee what the mess|
00002c30  61 67 65 20 69 73 21 0d  14 32 04 0d 14 3c 17 c8  |age is!..2...<..|
00002c40  8e 20 77 69 6d 70 5f 62  6c 6f 63 6b 25 21 31 36  |. wimp_block%!16|
00002c50  20 ca 0d 14 46 13 c9 20  4d 65 73 73 61 67 65 5f  | ...F.. Message_|
00002c60  51 75 69 74 25 0d 14 50  0a 20 20 f2 65 6e 64 0d  |Quit%..P.  .end.|
00002c70  14 5a 17 c9 20 4d 65 73  73 61 67 65 5f 4d 65 6e  |.Z.. Message_Men|
00002c80  75 57 61 72 6e 25 0d 14  64 04 0d 14 6e 27 20 20  |uWarn%..d...n'  |
00002c90  f4 20 64 65 6c 65 74 65  20 74 68 65 20 70 72 65  |. delete the pre|
00002ca0  76 69 6f 75 73 20 77 69  6e 64 6f 77 20 6e 6f 77  |vious window now|
00002cb0  21 0d 14 78 04 0d 14 82  19 20 20 e7 20 6d 65 6e  |!..x.....  . men|
00002cc0  75 64 69 61 6c 6f 67 25  20 3c 3e 30 20 8c 0d 14  |udialog% <>0 ...|
00002cd0  8c 22 20 20 20 20 20 77  69 6d 70 5f 62 6c 6f 63  |."     wimp_bloc|
00002ce0  6b 25 21 30 3d 6d 65 6e  75 64 69 61 6c 6f 67 25  |k%!0=menudialog%|
00002cf0  0d 14 96 2c 20 20 20 20  20 c8 99 20 22 57 69 6d  |...,     .. "Wim|
00002d00  70 5f 44 65 6c 65 74 65  57 69 6e 64 6f 77 22 2c  |p_DeleteWindow",|
00002d10  2c 77 69 6d 70 5f 62 6c  6f 63 6b 25 0d 14 a0 16  |,wimp_block%....|
00002d20  20 20 20 20 20 6d 65 6e  75 64 69 61 6c 6f 67 25  |     menudialog%|
00002d30  3d 30 0d 14 aa 07 20 20  cd 0d 14 b4 04 0d 14 be  |=0....  ........|
00002d40  25 20 20 6d 65 6e 75 64  69 61 6c 61 64 72 25 3d  |%  menudialadr%=|
00002d50  6f 6c 64 5f 77 69 6d 70  5f 62 6c 6f 63 6b 25 21  |old_wimp_block%!|
00002d60  32 30 0d 14 c8 04 0d 14  d2 3a 20 20 f4 20 44 6f  |20.......:  . Do|
00002d70  20 74 68 65 20 65 6e 63  6f 64 69 6e 67 20 6f 66  | the encoding of|
00002d80  20 74 68 65 20 73 74 61  74 75 73 20 6f 66 20 74  | the status of t|
00002d90  68 65 20 6e 65 77 6c 79  20 6f 70 65 6e 69 6e 67  |he newly opening|
00002da0  0d 14 dc 2b 20 20 f4 20  6d 65 6e 75 2f 64 69 61  |...+  . menu/dia|
00002db0  6c 6f 67 20 62 6f 78 20  28 69 66 20 72 65 71 75  |log box (if requ|
00002dc0  69 72 65 64 29 20 68 65  72 65 21 0d 14 e6 04 0d  |ired) here!.....|
00002dd0  14 f0 38 20 20 c8 99 20  22 57 69 6d 70 5f 43 72  |..8  .. "Wimp_Cr|
00002de0  65 61 74 65 57 69 6e 64  6f 77 22 2c 2c 6d 65 6e  |eateWindow",,men|
00002df0  75 64 69 61 6c 61 64 72  25 20 b8 20 6d 65 6e 75  |udialadr% . menu|
00002e00  64 69 61 6c 6f 67 25 0d  14 fa 04 0d 15 04 30 20  |dialog%.......0 |
00002e10  20 f4 20 41 6e 64 20 6d  61 6b 65 20 74 68 65 20  | . And make the |
00002e20  77 69 6d 70 20 70 75 74  20 69 74 20 75 70 20 61  |wimp put it up a|
00002e30  73 20 61 20 73 75 62 6d  65 6e 75 0d 15 0e 50 20  |s a submenu...P |
00002e40  20 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  | .. "Wimp_Create|
00002e50  53 75 62 4d 65 6e 75 22  2c 2c 6d 65 6e 75 64 69  |SubMenu",,menudi|
00002e60  61 6c 6f 67 25 2c 6f 6c  64 5f 77 69 6d 70 5f 62  |alog%,old_wimp_b|
00002e70  6c 6f 63 6b 25 21 32 34  2c 6f 6c 64 5f 77 69 6d  |lock%!24,old_wim|
00002e80  70 5f 62 6c 6f 63 6b 25  21 32 38 0d 15 18 05 cb  |p_block%!28.....|
00002e90  0d 15 22 04 0d 15 2c 05  e1 0d 15 36 04 0d 15 40  |.."...,....6...@|
00002ea0  11 dd a4 73 74 72 69 6e  67 30 28 73 25 29 0d 15  |...string0(s%)..|
00002eb0  4a 0b ea 20 49 25 2c 6e  24 0d 15 54 1b 49 25 3d  |J.. I%,n$..T.I%=|
00002ec0  30 3a 6e 24 3d c4 32 30  30 2c 22 20 22 29 3a 6e  |0:n$=.200," "):n|
00002ed0  24 3d 22 22 0d 15 5e 18  c8 95 20 73 25 3f 49 25  |$=""..^... s%?I%|
00002ee0  3e 33 31 20 80 20 49 25  3c 32 35 34 0d 15 68 12  |>31 . I%<254..h.|
00002ef0  20 20 6e 24 2b 3d bd 28  73 25 3f 49 25 29 0d 15  |  n$+=.(s%?I%)..|
00002f00  72 0b 20 20 49 25 2b 3d  31 0d 15 7c 05 ce 0d 15  |r.  I%+=1..|....|
00002f10  86 07 3d 6e 24 0d 15 90  04 0d 15 9a 11 dd f2 67  |..=n$..........g|
00002f20  65 74 69 28 68 25 2c 69  25 29 0d 15 a4 0e e7 20  |eti(h%,i%)..... |
00002f30  68 25 3d 30 20 8c 20 e1  0d 15 ae 14 77 69 6d 70  |h%=0 . .....wimp|
00002f40  5f 62 6c 6f 63 6b 25 21  30 3d 68 25 0d 15 b8 14  |_block%!0=h%....|
00002f50  77 69 6d 70 5f 62 6c 6f  63 6b 25 21 34 3d 69 25  |wimp_block%!4=i%|
00002f60  0d 15 c2 27 c8 99 20 22  57 69 6d 70 5f 47 65 74  |...'.. "Wimp_Get|
00002f70  49 63 6f 6e 53 74 61 74  65 22 2c 2c 77 69 6d 70  |IconState",,wimp|
00002f80  5f 62 6c 6f 63 6b 25 0d  15 cc 1b 69 78 30 25 20  |_block%....ix0% |
00002f90  20 20 20 3d 20 77 69 6d  70 5f 62 6c 6f 63 6b 25  |   = wimp_block%|
00002fa0  21 38 0d 15 d6 1c 69 79  30 25 20 20 20 20 3d 20  |!8....iy0%    = |
00002fb0  77 69 6d 70 5f 62 6c 6f  63 6b 25 21 31 32 0d 15  |wimp_block%!12..|
00002fc0  e0 1c 69 78 31 25 20 20  20 20 3d 20 77 69 6d 70  |..ix1%    = wimp|
00002fd0  5f 62 6c 6f 63 6b 25 21  31 36 0d 15 ea 1c 69 79  |_block%!16....iy|
00002fe0  31 25 20 20 20 20 3d 20  77 69 6d 70 5f 62 6c 6f  |1%    = wimp_blo|
00002ff0  63 6b 25 21 32 30 0d 15  f4 1c 69 66 6c 61 67 73  |ck%!20....iflags|
00003000  25 20 3d 20 77 69 6d 70  5f 62 6c 6f 63 6b 25 21  |% = wimp_block%!|
00003010  32 34 0d 15 fe 1c 69 64  61 74 61 25 20 20 3d 20  |24....idata%  = |
00003020  77 69 6d 70 5f 62 6c 6f  63 6b 25 2b 32 38 0d 16  |wimp_block%+28..|
00003030  08 05 e1 0d ff 0d                                 |......|
00003036