� >DynMenuLib
� Dynamic menu handling
:� This REQUIRES the HeapLibrary so you must LIBRARY it
( � Version 1.03 (06 Aug 1997)
2�
<:
F)� Initialise the dynamic menu handler
P��init_dynmenu
Z.dynm_start=0:� start of dynamic menu chain
d%dynm_top=0:� topmost menu pointer
n4dynm_menu=0:� The menu we are currently defining
x1dynm_stack=0:� Stack of menus we are defining
�4dynm_flags=0:� b0 = we made the title indirected
��
�:
�� Create a dynamic menu
���dynmenu_menu(title$)
�5�dynmenu_destroy:� Destroy the current menu chain
��dynmenu_submenu(title$)
��
�:
�&� Destroy the current dynamic menu
���dynmenu_destroy
�� next%
�ȕ dynm_start<>0

< next%=!dynm_start:�release(dynm_start):dynm_start=next%

�

ȕ dynm_stack<>0

"< next%=!dynm_stack:�release(dynm_stack):dynm_stack=next%

,�

69dynm_top=0:dynm_menu=0:� No top menu, no current menu

@�

J:

T!� Create a submenu definition

^��dynmenu_submenu(title$)

h� last%

r%last%=�claim(8):!last%=dynm_stack

|Alast%!4=dynm_menu:dynm_stack=last%:� Link the stack, set menu

�1dynm_menu=�claim(-36)+8:� For the menu header

�$dynm_menu!-4=28:� No entries yet

�� �(title$)>11 �

�$ !dynm_menu=�dynm_strdup(title$)

�+ dynm_menu!4=�dynm_strdup("Ssmall_fff")

� dynm_menu!8=�(title$)+1

�3 dynm_flags=dynm_flags � 1:� Mark as indirected

��

� $dynm_menu=title$

�9 dynm_flags=dynm_flags � � 1:� Mark as not indirected

��

�dynm_menu!12=&70207

�0dynm_menu!16=�(title$)*16+16:� Width of menu
>dynm_menu!20=&2C:dynm_menu!24=0:� Height, and gap of menus
�
:
&ݤdynmenu_end
0� thismenu%,last%
:� dynm_menu!-4=28 �
D( dynm_menu=�extend(dynm_menu-8,24)+8
N  dynm_menu!28=0:� item flags
X" dynm_menu!32=-1:� No sub-menu
b) dynm_menu!36=&7400021:� Shaded entry
l& $(dynm_menu+40)="None":� No entry
v# dynm_menu!-4=(dynm_menu!-4)+24
�V � (dynm_flags � 1)=1 �dynm_menu!28=dynm_menu!28 � 256:dynm_flags=dynm_flags � � 1
��
�Edynm_menu!((dynm_menu!-4)-24)=dynm_menu!((dynm_menu!-4)-24) � 128
�Adynm_menu!-8=dynm_start:� Link ourselves to the release chain
�5dynm_start=dynm_menu-8:� And place us at the head
�.thismenu%=dynm_menu:dynm_menu=dynm_stack!4
�*last%=!dynm_stack:�release(dynm_stack)
�2dynm_stack=last%:� last%=0 �dynm_top=thismenu%
�=thismenu%
�:
�ݤdynm_strdup(item$)
�2� mem%:mem%=�claim(�(item$)+5):$(mem%+4)=item$
�$!mem%=dynm_start:dynm_start=mem%
=mem%+4
:
� Add an item to the menu
 � b0 = ticked
*� b1 = dotted
4� b2 = writable
>� b3 = message when over
H� b4 = greyed out
R'��dynmenu_add(item$,sprite$,flags%)
\� item%
f:dynm_menu=�extend(dynm_menu-8,24)+8:item%=dynm_menu!-4
p.dynm_menu!(item%)=flags% � 15:� item flags
z(dynm_menu!(item%+4)=-1:� No sub-menu
�/dynm_menu!(item%+8)=&7000121:� Shaded entry
�I� (flags% � 16)=16 �dynm_menu!(item%+8)=dynm_menu!(item%+8) � (1<<22)
�7dynm_menu!(item%+12)=�dynm_strdup(item$):� the text
�#dynm_menu!(item%+20)=�(item$)+1
�� sprite$<>"" �
�3 dynm_menu!(item%+16)=�dynm_strdup("S"+sprite$)
�2 dynm_menu!(item%+8)=dynm_menu!(item%+8) � &32
��
� dynm_menu!(item%+16)=0
��
�$� �(item$)+1>(dynm_menu!16)/16 �
�7 dynm_menu!16=�(item$)*16+16:� Extend width of menu
��
"dynm_menu!-4=(dynm_menu!-4)+24
U� (dynm_flags � 1)=1 �dynm_menu!28=dynm_menu!28 � 256:dynm_flags=dynm_flags � � 1
�
$:
.(� Attach a menu/window to this entry
8��dynmenu_attach(submenu%)
B*dynm_menu!((dynm_menu!-4)-20)=submenu%
L�
V:
`"��dynmenu_lastflags(bic%,eor%)
j%� item%:item%=((dynm_menu!-4)-24)
t� dynm_menu!-4=28 ��
~F� (bic% � 16) �dynm_menu!(item%+8)=dynm_menu!(item%+8) � � (1<<22)
�D� (eor% � 16) �dynm_menu!(item%+8)=dynm_menu!(item%+8) � (1<<22)
�!bic%=bic% � 15:eor%=eor% � 15
�5dynm_menu!item%=(dynm_menu!item% � � bic%) � eor%
��
�:
�6� Preserve the current state for later restoration
�ݤdynmenu_preserve
� � handle%:handle%=�claim(16)
�)!handle%=dynm_menu:handle%!4=dynm_top
�.handle%!8=dynm_stack:handle%!12=dynm_start
�4dynm_start=0:dynm_top=0:dynm_menu=0:dynm_stack=0
�=handle%
:

$� Restore the state of the menus
��dynmenu_restore(handle%)
� handle%<>0 �
(* dynm_menu=!handle%:dynm_top=handle%!4
2/ dynm_stack=handle%!8:dynm_start=handle%!12
< �release(handle%)
F�
P�
�

00000000  0d 00 0a 11 f4 20 3e 44  79 6e 4d 65 6e 75 4c 69  |..... >DynMenuLi|
00000010  62 0d 00 14 1b f4 20 44  79 6e 61 6d 69 63 20 6d  |b..... Dynamic m|
00000020  65 6e 75 20 68 61 6e 64  6c 69 6e 67 0d 00 1e 3a  |enu handling...:|
00000030  f4 20 54 68 69 73 20 52  45 51 55 49 52 45 53 20  |. This REQUIRES |
00000040  74 68 65 20 48 65 61 70  4c 69 62 72 61 72 79 20  |the HeapLibrary |
00000050  73 6f 20 79 6f 75 20 6d  75 73 74 20 4c 49 42 52  |so you must LIBR|
00000060  41 52 59 20 69 74 0d 00  28 20 f4 20 56 65 72 73  |ARY it..( . Vers|
00000070  69 6f 6e 20 31 2e 30 33  20 28 30 36 20 41 75 67  |ion 1.03 (06 Aug|
00000080  20 31 39 39 37 29 0d 00  32 05 e0 0d 00 3c 05 3a  | 1997)..2....<.:|
00000090  0d 00 46 29 f4 20 49 6e  69 74 69 61 6c 69 73 65  |..F). Initialise|
000000a0  20 74 68 65 20 64 79 6e  61 6d 69 63 20 6d 65 6e  | the dynamic men|
000000b0  75 20 68 61 6e 64 6c 65  72 0d 00 50 12 dd f2 69  |u handler..P...i|
000000c0  6e 69 74 5f 64 79 6e 6d  65 6e 75 0d 00 5a 2e 64  |nit_dynmenu..Z.d|
000000d0  79 6e 6d 5f 73 74 61 72  74 3d 30 3a f4 20 73 74  |ynm_start=0:. st|
000000e0  61 72 74 20 6f 66 20 64  79 6e 61 6d 69 63 20 6d  |art of dynamic m|
000000f0  65 6e 75 20 63 68 61 69  6e 0d 00 64 25 64 79 6e  |enu chain..d%dyn|
00000100  6d 5f 74 6f 70 3d 30 3a  f4 20 74 6f 70 6d 6f 73  |m_top=0:. topmos|
00000110  74 20 6d 65 6e 75 20 70  6f 69 6e 74 65 72 0d 00  |t menu pointer..|
00000120  6e 34 64 79 6e 6d 5f 6d  65 6e 75 3d 30 3a f4 20  |n4dynm_menu=0:. |
00000130  54 68 65 20 6d 65 6e 75  20 77 65 20 61 72 65 20  |The menu we are |
00000140  63 75 72 72 65 6e 74 6c  79 20 64 65 66 69 6e 69  |currently defini|
00000150  6e 67 0d 00 78 31 64 79  6e 6d 5f 73 74 61 63 6b  |ng..x1dynm_stack|
00000160  3d 30 3a f4 20 53 74 61  63 6b 20 6f 66 20 6d 65  |=0:. Stack of me|
00000170  6e 75 73 20 77 65 20 61  72 65 20 64 65 66 69 6e  |nus we are defin|
00000180  69 6e 67 0d 00 82 34 64  79 6e 6d 5f 66 6c 61 67  |ing...4dynm_flag|
00000190  73 3d 30 3a f4 20 62 30  20 3d 20 77 65 20 6d 61  |s=0:. b0 = we ma|
000001a0  64 65 20 74 68 65 20 74  69 74 6c 65 20 69 6e 64  |de the title ind|
000001b0  69 72 65 63 74 65 64 0d  00 8c 05 e1 0d 00 96 05  |irected.........|
000001c0  3a 0d 00 a0 1b f4 20 43  72 65 61 74 65 20 61 20  |:..... Create a |
000001d0  64 79 6e 61 6d 69 63 20  6d 65 6e 75 0d 00 aa 1a  |dynamic menu....|
000001e0  dd f2 64 79 6e 6d 65 6e  75 5f 6d 65 6e 75 28 74  |..dynmenu_menu(t|
000001f0  69 74 6c 65 24 29 0d 00  b4 35 f2 64 79 6e 6d 65  |itle$)...5.dynme|
00000200  6e 75 5f 64 65 73 74 72  6f 79 3a f4 20 44 65 73  |nu_destroy:. Des|
00000210  74 72 6f 79 20 74 68 65  20 63 75 72 72 65 6e 74  |troy the current|
00000220  20 6d 65 6e 75 20 63 68  61 69 6e 0d 00 be 1c f2  | menu chain.....|
00000230  64 79 6e 6d 65 6e 75 5f  73 75 62 6d 65 6e 75 28  |dynmenu_submenu(|
00000240  74 69 74 6c 65 24 29 0d  00 c8 05 e1 0d 00 d2 05  |title$).........|
00000250  3a 0d 00 dc 26 f4 20 44  65 73 74 72 6f 79 20 74  |:...&. Destroy t|
00000260  68 65 20 63 75 72 72 65  6e 74 20 64 79 6e 61 6d  |he current dynam|
00000270  69 63 20 6d 65 6e 75 0d  00 e6 15 dd f2 64 79 6e  |ic menu......dyn|
00000280  6d 65 6e 75 5f 64 65 73  74 72 6f 79 0d 00 f0 0b  |menu_destroy....|
00000290  ea 20 6e 65 78 74 25 0d  00 fa 14 c8 95 20 64 79  |. next%...... dy|
000002a0  6e 6d 5f 73 74 61 72 74  3c 3e 30 0d 01 04 3c 20  |nm_start<>0...< |
000002b0  6e 65 78 74 25 3d 21 64  79 6e 6d 5f 73 74 61 72  |next%=!dynm_star|
000002c0  74 3a f2 72 65 6c 65 61  73 65 28 64 79 6e 6d 5f  |t:.release(dynm_|
000002d0  73 74 61 72 74 29 3a 64  79 6e 6d 5f 73 74 61 72  |start):dynm_star|
000002e0  74 3d 6e 65 78 74 25 0d  01 0e 05 ce 0d 01 18 14  |t=next%.........|
000002f0  c8 95 20 64 79 6e 6d 5f  73 74 61 63 6b 3c 3e 30  |.. dynm_stack<>0|
00000300  0d 01 22 3c 20 6e 65 78  74 25 3d 21 64 79 6e 6d  |.."< next%=!dynm|
00000310  5f 73 74 61 63 6b 3a f2  72 65 6c 65 61 73 65 28  |_stack:.release(|
00000320  64 79 6e 6d 5f 73 74 61  63 6b 29 3a 64 79 6e 6d  |dynm_stack):dynm|
00000330  5f 73 74 61 63 6b 3d 6e  65 78 74 25 0d 01 2c 05  |_stack=next%..,.|
00000340  ce 0d 01 36 39 64 79 6e  6d 5f 74 6f 70 3d 30 3a  |...69dynm_top=0:|
00000350  64 79 6e 6d 5f 6d 65 6e  75 3d 30 3a f4 20 4e 6f  |dynm_menu=0:. No|
00000360  20 74 6f 70 20 6d 65 6e  75 2c 20 6e 6f 20 63 75  | top menu, no cu|
00000370  72 72 65 6e 74 20 6d 65  6e 75 0d 01 40 05 e1 0d  |rrent menu..@...|
00000380  01 4a 05 3a 0d 01 54 21  f4 20 43 72 65 61 74 65  |.J.:..T!. Create|
00000390  20 61 20 73 75 62 6d 65  6e 75 20 64 65 66 69 6e  | a submenu defin|
000003a0  69 74 69 6f 6e 0d 01 5e  1d dd f2 64 79 6e 6d 65  |ition..^...dynme|
000003b0  6e 75 5f 73 75 62 6d 65  6e 75 28 74 69 74 6c 65  |nu_submenu(title|
000003c0  24 29 0d 01 68 0b ea 20  6c 61 73 74 25 0d 01 72  |$)..h.. last%..r|
000003d0  25 6c 61 73 74 25 3d a4  63 6c 61 69 6d 28 38 29  |%last%=.claim(8)|
000003e0  3a 21 6c 61 73 74 25 3d  64 79 6e 6d 5f 73 74 61  |:!last%=dynm_sta|
000003f0  63 6b 0d 01 7c 41 6c 61  73 74 25 21 34 3d 64 79  |ck..|Alast%!4=dy|
00000400  6e 6d 5f 6d 65 6e 75 3a  64 79 6e 6d 5f 73 74 61  |nm_menu:dynm_sta|
00000410  63 6b 3d 6c 61 73 74 25  3a f4 20 4c 69 6e 6b 20  |ck=last%:. Link |
00000420  74 68 65 20 73 74 61 63  6b 2c 20 73 65 74 20 6d  |the stack, set m|
00000430  65 6e 75 0d 01 86 31 64  79 6e 6d 5f 6d 65 6e 75  |enu...1dynm_menu|
00000440  3d a4 63 6c 61 69 6d 28  2d 33 36 29 2b 38 3a f4  |=.claim(-36)+8:.|
00000450  20 46 6f 72 20 74 68 65  20 6d 65 6e 75 20 68 65  | For the menu he|
00000460  61 64 65 72 0d 01 90 24  64 79 6e 6d 5f 6d 65 6e  |ader...$dynm_men|
00000470  75 21 2d 34 3d 32 38 3a  f4 20 4e 6f 20 65 6e 74  |u!-4=28:. No ent|
00000480  72 69 65 73 20 79 65 74  0d 01 9a 14 e7 20 a9 28  |ries yet..... .(|
00000490  74 69 74 6c 65 24 29 3e  31 31 20 8c 0d 01 a4 24  |title$)>11 ....$|
000004a0  20 21 64 79 6e 6d 5f 6d  65 6e 75 3d a4 64 79 6e  | !dynm_menu=.dyn|
000004b0  6d 5f 73 74 72 64 75 70  28 74 69 74 6c 65 24 29  |m_strdup(title$)|
000004c0  0d 01 ae 2b 20 64 79 6e  6d 5f 6d 65 6e 75 21 34  |...+ dynm_menu!4|
000004d0  3d a4 64 79 6e 6d 5f 73  74 72 64 75 70 28 22 53  |=.dynm_strdup("S|
000004e0  73 6d 61 6c 6c 5f 66 66  66 22 29 0d 01 b8 1c 20  |small_fff").... |
000004f0  64 79 6e 6d 5f 6d 65 6e  75 21 38 3d a9 28 74 69  |dynm_menu!8=.(ti|
00000500  74 6c 65 24 29 2b 31 0d  01 c2 33 20 64 79 6e 6d  |tle$)+1...3 dynm|
00000510  5f 66 6c 61 67 73 3d 64  79 6e 6d 5f 66 6c 61 67  |_flags=dynm_flag|
00000520  73 20 84 20 31 3a f4 20  4d 61 72 6b 20 61 73 20  |s . 1:. Mark as |
00000530  69 6e 64 69 72 65 63 74  65 64 0d 01 cc 05 cc 0d  |indirected......|
00000540  01 d6 16 20 24 64 79 6e  6d 5f 6d 65 6e 75 3d 74  |... $dynm_menu=t|
00000550  69 74 6c 65 24 0d 01 e0  39 20 64 79 6e 6d 5f 66  |itle$...9 dynm_f|
00000560  6c 61 67 73 3d 64 79 6e  6d 5f 66 6c 61 67 73 20  |lags=dynm_flags |
00000570  80 20 ac 20 31 3a f4 20  4d 61 72 6b 20 61 73 20  |. . 1:. Mark as |
00000580  6e 6f 74 20 69 6e 64 69  72 65 63 74 65 64 0d 01  |not indirected..|
00000590  ea 05 cd 0d 01 f4 17 64  79 6e 6d 5f 6d 65 6e 75  |.......dynm_menu|
000005a0  21 31 32 3d 26 37 30 32  30 37 0d 01 fe 30 64 79  |!12=&70207...0dy|
000005b0  6e 6d 5f 6d 65 6e 75 21  31 36 3d a9 28 74 69 74  |nm_menu!16=.(tit|
000005c0  6c 65 24 29 2a 31 36 2b  31 36 3a f4 20 57 69 64  |le$)*16+16:. Wid|
000005d0  74 68 20 6f 66 20 6d 65  6e 75 0d 02 08 3e 64 79  |th of menu...>dy|
000005e0  6e 6d 5f 6d 65 6e 75 21  32 30 3d 26 32 43 3a 64  |nm_menu!20=&2C:d|
000005f0  79 6e 6d 5f 6d 65 6e 75  21 32 34 3d 30 3a f4 20  |ynm_menu!24=0:. |
00000600  48 65 69 67 68 74 2c 20  61 6e 64 20 67 61 70 20  |Height, and gap |
00000610  6f 66 20 6d 65 6e 75 73  0d 02 12 05 e1 0d 02 1c  |of menus........|
00000620  05 3a 0d 02 26 11 dd a4  64 79 6e 6d 65 6e 75 5f  |.:..&...dynmenu_|
00000630  65 6e 64 0d 02 30 15 ea  20 74 68 69 73 6d 65 6e  |end..0.. thismen|
00000640  75 25 2c 6c 61 73 74 25  0d 02 3a 17 e7 20 64 79  |u%,last%..:.. dy|
00000650  6e 6d 5f 6d 65 6e 75 21  2d 34 3d 32 38 20 8c 0d  |nm_menu!-4=28 ..|
00000660  02 44 28 20 64 79 6e 6d  5f 6d 65 6e 75 3d a4 65  |.D( dynm_menu=.e|
00000670  78 74 65 6e 64 28 64 79  6e 6d 5f 6d 65 6e 75 2d  |xtend(dynm_menu-|
00000680  38 2c 32 34 29 2b 38 0d  02 4e 20 20 64 79 6e 6d  |8,24)+8..N  dynm|
00000690  5f 6d 65 6e 75 21 32 38  3d 30 3a f4 20 69 74 65  |_menu!28=0:. ite|
000006a0  6d 20 66 6c 61 67 73 0d  02 58 22 20 64 79 6e 6d  |m flags..X" dynm|
000006b0  5f 6d 65 6e 75 21 33 32  3d 2d 31 3a f4 20 4e 6f  |_menu!32=-1:. No|
000006c0  20 73 75 62 2d 6d 65 6e  75 0d 02 62 29 20 64 79  | sub-menu..b) dy|
000006d0  6e 6d 5f 6d 65 6e 75 21  33 36 3d 26 37 34 30 30  |nm_menu!36=&7400|
000006e0  30 32 31 3a f4 20 53 68  61 64 65 64 20 65 6e 74  |021:. Shaded ent|
000006f0  72 79 0d 02 6c 26 20 24  28 64 79 6e 6d 5f 6d 65  |ry..l& $(dynm_me|
00000700  6e 75 2b 34 30 29 3d 22  4e 6f 6e 65 22 3a f4 20  |nu+40)="None":. |
00000710  4e 6f 20 65 6e 74 72 79  0d 02 76 23 20 64 79 6e  |No entry..v# dyn|
00000720  6d 5f 6d 65 6e 75 21 2d  34 3d 28 64 79 6e 6d 5f  |m_menu!-4=(dynm_|
00000730  6d 65 6e 75 21 2d 34 29  2b 32 34 0d 02 80 56 20  |menu!-4)+24...V |
00000740  e7 20 28 64 79 6e 6d 5f  66 6c 61 67 73 20 80 20  |. (dynm_flags . |
00000750  31 29 3d 31 20 8c 64 79  6e 6d 5f 6d 65 6e 75 21  |1)=1 .dynm_menu!|
00000760  32 38 3d 64 79 6e 6d 5f  6d 65 6e 75 21 32 38 20  |28=dynm_menu!28 |
00000770  84 20 32 35 36 3a 64 79  6e 6d 5f 66 6c 61 67 73  |. 256:dynm_flags|
00000780  3d 64 79 6e 6d 5f 66 6c  61 67 73 20 80 20 ac 20  |=dynm_flags . . |
00000790  31 0d 02 8a 05 cd 0d 02  94 45 64 79 6e 6d 5f 6d  |1........Edynm_m|
000007a0  65 6e 75 21 28 28 64 79  6e 6d 5f 6d 65 6e 75 21  |enu!((dynm_menu!|
000007b0  2d 34 29 2d 32 34 29 3d  64 79 6e 6d 5f 6d 65 6e  |-4)-24)=dynm_men|
000007c0  75 21 28 28 64 79 6e 6d  5f 6d 65 6e 75 21 2d 34  |u!((dynm_menu!-4|
000007d0  29 2d 32 34 29 20 84 20  31 32 38 0d 02 9e 41 64  |)-24) . 128...Ad|
000007e0  79 6e 6d 5f 6d 65 6e 75  21 2d 38 3d 64 79 6e 6d  |ynm_menu!-8=dynm|
000007f0  5f 73 74 61 72 74 3a f4  20 4c 69 6e 6b 20 6f 75  |_start:. Link ou|
00000800  72 73 65 6c 76 65 73 20  74 6f 20 74 68 65 20 72  |rselves to the r|
00000810  65 6c 65 61 73 65 20 63  68 61 69 6e 0d 02 a8 35  |elease chain...5|
00000820  64 79 6e 6d 5f 73 74 61  72 74 3d 64 79 6e 6d 5f  |dynm_start=dynm_|
00000830  6d 65 6e 75 2d 38 3a f4  20 41 6e 64 20 70 6c 61  |menu-8:. And pla|
00000840  63 65 20 75 73 20 61 74  20 74 68 65 20 68 65 61  |ce us at the hea|
00000850  64 0d 02 b2 2e 74 68 69  73 6d 65 6e 75 25 3d 64  |d....thismenu%=d|
00000860  79 6e 6d 5f 6d 65 6e 75  3a 64 79 6e 6d 5f 6d 65  |ynm_menu:dynm_me|
00000870  6e 75 3d 64 79 6e 6d 5f  73 74 61 63 6b 21 34 0d  |nu=dynm_stack!4.|
00000880  02 bc 2a 6c 61 73 74 25  3d 21 64 79 6e 6d 5f 73  |..*last%=!dynm_s|
00000890  74 61 63 6b 3a f2 72 65  6c 65 61 73 65 28 64 79  |tack:.release(dy|
000008a0  6e 6d 5f 73 74 61 63 6b  29 0d 02 c6 32 64 79 6e  |nm_stack)...2dyn|
000008b0  6d 5f 73 74 61 63 6b 3d  6c 61 73 74 25 3a e7 20  |m_stack=last%:. |
000008c0  6c 61 73 74 25 3d 30 20  8c 64 79 6e 6d 5f 74 6f  |last%=0 .dynm_to|
000008d0  70 3d 74 68 69 73 6d 65  6e 75 25 0d 02 d0 0e 3d  |p=thismenu%....=|
000008e0  74 68 69 73 6d 65 6e 75  25 0d 02 da 05 3a 0d 02  |thismenu%....:..|
000008f0  e4 18 dd a4 64 79 6e 6d  5f 73 74 72 64 75 70 28  |....dynm_strdup(|
00000900  69 74 65 6d 24 29 0d 02  ee 32 ea 20 6d 65 6d 25  |item$)...2. mem%|
00000910  3a 6d 65 6d 25 3d a4 63  6c 61 69 6d 28 a9 28 69  |:mem%=.claim(.(i|
00000920  74 65 6d 24 29 2b 35 29  3a 24 28 6d 65 6d 25 2b  |tem$)+5):$(mem%+|
00000930  34 29 3d 69 74 65 6d 24  0d 02 f8 24 21 6d 65 6d  |4)=item$...$!mem|
00000940  25 3d 64 79 6e 6d 5f 73  74 61 72 74 3a 64 79 6e  |%=dynm_start:dyn|
00000950  6d 5f 73 74 61 72 74 3d  6d 65 6d 25 0d 03 02 0b  |m_start=mem%....|
00000960  3d 6d 65 6d 25 2b 34 0d  03 0c 05 3a 0d 03 16 1d  |=mem%+4....:....|
00000970  f4 20 41 64 64 20 61 6e  20 69 74 65 6d 20 74 6f  |. Add an item to|
00000980  20 74 68 65 20 6d 65 6e  75 0d 03 20 11 f4 20 62  | the menu.. .. b|
00000990  30 20 3d 20 74 69 63 6b  65 64 0d 03 2a 11 f4 20  |0 = ticked..*.. |
000009a0  62 31 20 3d 20 64 6f 74  74 65 64 0d 03 34 13 f4  |b1 = dotted..4..|
000009b0  20 62 32 20 3d 20 77 72  69 74 61 62 6c 65 0d 03  | b2 = writable..|
000009c0  3e 1c f4 20 62 33 20 3d  20 6d 65 73 73 61 67 65  |>.. b3 = message|
000009d0  20 77 68 65 6e 20 6f 76  65 72 0d 03 48 15 f4 20  | when over..H.. |
000009e0  62 34 20 3d 20 67 72 65  79 65 64 20 6f 75 74 0d  |b4 = greyed out.|
000009f0  03 52 27 dd f2 64 79 6e  6d 65 6e 75 5f 61 64 64  |.R'..dynmenu_add|
00000a00  28 69 74 65 6d 24 2c 73  70 72 69 74 65 24 2c 66  |(item$,sprite$,f|
00000a10  6c 61 67 73 25 29 0d 03  5c 0b ea 20 69 74 65 6d  |lags%)..\.. item|
00000a20  25 0d 03 66 3a 64 79 6e  6d 5f 6d 65 6e 75 3d a4  |%..f:dynm_menu=.|
00000a30  65 78 74 65 6e 64 28 64  79 6e 6d 5f 6d 65 6e 75  |extend(dynm_menu|
00000a40  2d 38 2c 32 34 29 2b 38  3a 69 74 65 6d 25 3d 64  |-8,24)+8:item%=d|
00000a50  79 6e 6d 5f 6d 65 6e 75  21 2d 34 0d 03 70 2e 64  |ynm_menu!-4..p.d|
00000a60  79 6e 6d 5f 6d 65 6e 75  21 28 69 74 65 6d 25 29  |ynm_menu!(item%)|
00000a70  3d 66 6c 61 67 73 25 20  80 20 31 35 3a f4 20 69  |=flags% . 15:. i|
00000a80  74 65 6d 20 66 6c 61 67  73 0d 03 7a 28 64 79 6e  |tem flags..z(dyn|
00000a90  6d 5f 6d 65 6e 75 21 28  69 74 65 6d 25 2b 34 29  |m_menu!(item%+4)|
00000aa0  3d 2d 31 3a f4 20 4e 6f  20 73 75 62 2d 6d 65 6e  |=-1:. No sub-men|
00000ab0  75 0d 03 84 2f 64 79 6e  6d 5f 6d 65 6e 75 21 28  |u.../dynm_menu!(|
00000ac0  69 74 65 6d 25 2b 38 29  3d 26 37 30 30 30 31 32  |item%+8)=&700012|
00000ad0  31 3a f4 20 53 68 61 64  65 64 20 65 6e 74 72 79  |1:. Shaded entry|
00000ae0  0d 03 8e 49 e7 20 28 66  6c 61 67 73 25 20 80 20  |...I. (flags% . |
00000af0  31 36 29 3d 31 36 20 8c  64 79 6e 6d 5f 6d 65 6e  |16)=16 .dynm_men|
00000b00  75 21 28 69 74 65 6d 25  2b 38 29 3d 64 79 6e 6d  |u!(item%+8)=dynm|
00000b10  5f 6d 65 6e 75 21 28 69  74 65 6d 25 2b 38 29 20  |_menu!(item%+8) |
00000b20  84 20 28 31 3c 3c 32 32  29 0d 03 98 37 64 79 6e  |. (1<<22)...7dyn|
00000b30  6d 5f 6d 65 6e 75 21 28  69 74 65 6d 25 2b 31 32  |m_menu!(item%+12|
00000b40  29 3d a4 64 79 6e 6d 5f  73 74 72 64 75 70 28 69  |)=.dynm_strdup(i|
00000b50  74 65 6d 24 29 3a f4 20  74 68 65 20 74 65 78 74  |tem$):. the text|
00000b60  0d 03 a2 23 64 79 6e 6d  5f 6d 65 6e 75 21 28 69  |...#dynm_menu!(i|
00000b70  74 65 6d 25 2b 32 30 29  3d a9 28 69 74 65 6d 24  |tem%+20)=.(item$|
00000b80  29 2b 31 0d 03 ac 13 e7  20 73 70 72 69 74 65 24  |)+1..... sprite$|
00000b90  3c 3e 22 22 20 8c 0d 03  b6 33 20 64 79 6e 6d 5f  |<>"" ....3 dynm_|
00000ba0  6d 65 6e 75 21 28 69 74  65 6d 25 2b 31 36 29 3d  |menu!(item%+16)=|
00000bb0  a4 64 79 6e 6d 5f 73 74  72 64 75 70 28 22 53 22  |.dynm_strdup("S"|
00000bc0  2b 73 70 72 69 74 65 24  29 0d 03 c0 32 20 64 79  |+sprite$)...2 dy|
00000bd0  6e 6d 5f 6d 65 6e 75 21  28 69 74 65 6d 25 2b 38  |nm_menu!(item%+8|
00000be0  29 3d 64 79 6e 6d 5f 6d  65 6e 75 21 28 69 74 65  |)=dynm_menu!(ite|
00000bf0  6d 25 2b 38 29 20 84 20  26 33 32 0d 03 ca 05 cc  |m%+8) . &32.....|
00000c00  0d 03 d4 1b 20 64 79 6e  6d 5f 6d 65 6e 75 21 28  |.... dynm_menu!(|
00000c10  69 74 65 6d 25 2b 31 36  29 3d 30 0d 03 de 05 cd  |item%+16)=0.....|
00000c20  0d 03 e8 24 e7 20 a9 28  69 74 65 6d 24 29 2b 31  |...$. .(item$)+1|
00000c30  3e 28 64 79 6e 6d 5f 6d  65 6e 75 21 31 36 29 2f  |>(dynm_menu!16)/|
00000c40  31 36 20 8c 0d 03 f2 37  20 64 79 6e 6d 5f 6d 65  |16 ....7 dynm_me|
00000c50  6e 75 21 31 36 3d a9 28  69 74 65 6d 24 29 2a 31  |nu!16=.(item$)*1|
00000c60  36 2b 31 36 3a f4 20 45  78 74 65 6e 64 20 77 69  |6+16:. Extend wi|
00000c70  64 74 68 20 6f 66 20 6d  65 6e 75 0d 03 fc 05 cd  |dth of menu.....|
00000c80  0d 04 06 22 64 79 6e 6d  5f 6d 65 6e 75 21 2d 34  |..."dynm_menu!-4|
00000c90  3d 28 64 79 6e 6d 5f 6d  65 6e 75 21 2d 34 29 2b  |=(dynm_menu!-4)+|
00000ca0  32 34 0d 04 10 55 e7 20  28 64 79 6e 6d 5f 66 6c  |24...U. (dynm_fl|
00000cb0  61 67 73 20 80 20 31 29  3d 31 20 8c 64 79 6e 6d  |ags . 1)=1 .dynm|
00000cc0  5f 6d 65 6e 75 21 32 38  3d 64 79 6e 6d 5f 6d 65  |_menu!28=dynm_me|
00000cd0  6e 75 21 32 38 20 84 20  32 35 36 3a 64 79 6e 6d  |nu!28 . 256:dynm|
00000ce0  5f 66 6c 61 67 73 3d 64  79 6e 6d 5f 66 6c 61 67  |_flags=dynm_flag|
00000cf0  73 20 80 20 ac 20 31 0d  04 1a 05 e1 0d 04 24 05  |s . . 1.......$.|
00000d00  3a 0d 04 2e 28 f4 20 41  74 74 61 63 68 20 61 20  |:...(. Attach a |
00000d10  6d 65 6e 75 2f 77 69 6e  64 6f 77 20 74 6f 20 74  |menu/window to t|
00000d20  68 69 73 20 65 6e 74 72  79 0d 04 38 1e dd f2 64  |his entry..8...d|
00000d30  79 6e 6d 65 6e 75 5f 61  74 74 61 63 68 28 73 75  |ynmenu_attach(su|
00000d40  62 6d 65 6e 75 25 29 0d  04 42 2a 64 79 6e 6d 5f  |bmenu%)..B*dynm_|
00000d50  6d 65 6e 75 21 28 28 64  79 6e 6d 5f 6d 65 6e 75  |menu!((dynm_menu|
00000d60  21 2d 34 29 2d 32 30 29  3d 73 75 62 6d 65 6e 75  |!-4)-20)=submenu|
00000d70  25 0d 04 4c 05 e1 0d 04  56 05 3a 0d 04 60 22 dd  |%..L....V.:..`".|
00000d80  f2 64 79 6e 6d 65 6e 75  5f 6c 61 73 74 66 6c 61  |.dynmenu_lastfla|
00000d90  67 73 28 62 69 63 25 2c  65 6f 72 25 29 0d 04 6a  |gs(bic%,eor%)..j|
00000da0  25 ea 20 69 74 65 6d 25  3a 69 74 65 6d 25 3d 28  |%. item%:item%=(|
00000db0  28 64 79 6e 6d 5f 6d 65  6e 75 21 2d 34 29 2d 32  |(dynm_menu!-4)-2|
00000dc0  34 29 0d 04 74 18 e7 20  64 79 6e 6d 5f 6d 65 6e  |4)..t.. dynm_men|
00000dd0  75 21 2d 34 3d 32 38 20  8c e1 0d 04 7e 46 e7 20  |u!-4=28 ....~F. |
00000de0  28 62 69 63 25 20 80 20  31 36 29 20 8c 64 79 6e  |(bic% . 16) .dyn|
00000df0  6d 5f 6d 65 6e 75 21 28  69 74 65 6d 25 2b 38 29  |m_menu!(item%+8)|
00000e00  3d 64 79 6e 6d 5f 6d 65  6e 75 21 28 69 74 65 6d  |=dynm_menu!(item|
00000e10  25 2b 38 29 20 80 20 ac  20 28 31 3c 3c 32 32 29  |%+8) . . (1<<22)|
00000e20  0d 04 88 44 e7 20 28 65  6f 72 25 20 80 20 31 36  |...D. (eor% . 16|
00000e30  29 20 8c 64 79 6e 6d 5f  6d 65 6e 75 21 28 69 74  |) .dynm_menu!(it|
00000e40  65 6d 25 2b 38 29 3d 64  79 6e 6d 5f 6d 65 6e 75  |em%+8)=dynm_menu|
00000e50  21 28 69 74 65 6d 25 2b  38 29 20 82 20 28 31 3c  |!(item%+8) . (1<|
00000e60  3c 32 32 29 0d 04 92 21  62 69 63 25 3d 62 69 63  |<22)...!bic%=bic|
00000e70  25 20 80 20 31 35 3a 65  6f 72 25 3d 65 6f 72 25  |% . 15:eor%=eor%|
00000e80  20 80 20 31 35 0d 04 9c  35 64 79 6e 6d 5f 6d 65  | . 15...5dynm_me|
00000e90  6e 75 21 69 74 65 6d 25  3d 28 64 79 6e 6d 5f 6d  |nu!item%=(dynm_m|
00000ea0  65 6e 75 21 69 74 65 6d  25 20 80 20 ac 20 62 69  |enu!item% . . bi|
00000eb0  63 25 29 20 82 20 65 6f  72 25 0d 04 a6 05 e1 0d  |c%) . eor%......|
00000ec0  04 b0 05 3a 0d 04 ba 36  f4 20 50 72 65 73 65 72  |...:...6. Preser|
00000ed0  76 65 20 74 68 65 20 63  75 72 72 65 6e 74 20 73  |ve the current s|
00000ee0  74 61 74 65 20 66 6f 72  20 6c 61 74 65 72 20 72  |tate for later r|
00000ef0  65 73 74 6f 72 61 74 69  6f 6e 0d 04 c4 16 dd a4  |estoration......|
00000f00  64 79 6e 6d 65 6e 75 5f  70 72 65 73 65 72 76 65  |dynmenu_preserve|
00000f10  0d 04 ce 20 ea 20 68 61  6e 64 6c 65 25 3a 68 61  |... . handle%:ha|
00000f20  6e 64 6c 65 25 3d a4 63  6c 61 69 6d 28 31 36 29  |ndle%=.claim(16)|
00000f30  0d 04 d8 29 21 68 61 6e  64 6c 65 25 3d 64 79 6e  |...)!handle%=dyn|
00000f40  6d 5f 6d 65 6e 75 3a 68  61 6e 64 6c 65 25 21 34  |m_menu:handle%!4|
00000f50  3d 64 79 6e 6d 5f 74 6f  70 0d 04 e2 2e 68 61 6e  |=dynm_top....han|
00000f60  64 6c 65 25 21 38 3d 64  79 6e 6d 5f 73 74 61 63  |dle%!8=dynm_stac|
00000f70  6b 3a 68 61 6e 64 6c 65  25 21 31 32 3d 64 79 6e  |k:handle%!12=dyn|
00000f80  6d 5f 73 74 61 72 74 0d  04 ec 34 64 79 6e 6d 5f  |m_start...4dynm_|
00000f90  73 74 61 72 74 3d 30 3a  64 79 6e 6d 5f 74 6f 70  |start=0:dynm_top|
00000fa0  3d 30 3a 64 79 6e 6d 5f  6d 65 6e 75 3d 30 3a 64  |=0:dynm_menu=0:d|
00000fb0  79 6e 6d 5f 73 74 61 63  6b 3d 30 0d 04 f6 0c 3d  |ynm_stack=0....=|
00000fc0  68 61 6e 64 6c 65 25 0d  05 00 05 3a 0d 05 0a 24  |handle%....:...$|
00000fd0  f4 20 52 65 73 74 6f 72  65 20 74 68 65 20 73 74  |. Restore the st|
00000fe0  61 74 65 20 6f 66 20 74  68 65 20 6d 65 6e 75 73  |ate of the menus|
00000ff0  0d 05 14 1e dd f2 64 79  6e 6d 65 6e 75 5f 72 65  |......dynmenu_re|
00001000  73 74 6f 72 65 28 68 61  6e 64 6c 65 25 29 0d 05  |store(handle%)..|
00001010  1e 12 e7 20 68 61 6e 64  6c 65 25 3c 3e 30 20 8c  |... handle%<>0 .|
00001020  0d 05 28 2a 20 64 79 6e  6d 5f 6d 65 6e 75 3d 21  |..(* dynm_menu=!|
00001030  68 61 6e 64 6c 65 25 3a  64 79 6e 6d 5f 74 6f 70  |handle%:dynm_top|
00001040  3d 68 61 6e 64 6c 65 25  21 34 0d 05 32 2f 20 64  |=handle%!4..2/ d|
00001050  79 6e 6d 5f 73 74 61 63  6b 3d 68 61 6e 64 6c 65  |ynm_stack=handle|
00001060  25 21 38 3a 64 79 6e 6d  5f 73 74 61 72 74 3d 68  |%!8:dynm_start=h|
00001070  61 6e 64 6c 65 25 21 31  32 0d 05 3c 16 20 f2 72  |andle%!12..<. .r|
00001080  65 6c 65 61 73 65 28 68  61 6e 64 6c 65 25 29 0d  |elease(handle%).|
00001090  05 46 05 cd 0d 05 50 05  e1 0d ff                 |.F....P....|
0000109b