� > <Speaker$Dir>.!RunImage


� q% 2500
($q%="TASK"
2;ș "Wimp_Initialise",200,!q%,"Speaker Control" � ,task%
<"ș "Wimp_ClaimInterface",task%
Fș "Hourglass_On"
P:
Z%� text$(50),setting(50),flags(50)
d%� submenu(50),ref(50),menupos(20)
n� menu% 512
x� indirect% &2000
�� msgblk% 256
�%iptr%=indirect%:iend%=iptr%+&2000
�� �merd
�oldtime$=�$
�:
�5ș "Wimp_OpenTemplate",,"<Speaker$Dir>.Templates"
�Bș "Wimp_LoadTemplate",,q%,indirect%,indirect%+199,-1,"main",0
�&ș "Wimp_CreateWindow",,q% � main%
�Fș "Wimp_LoadTemplate",,q%,indirect%+200,indirect%+399,-1,"info",0
�&ș "Wimp_CreateWindow",,q% � info%
�ș "Wimp_CloseTemplate"
�
��openwindow(main%,�,-1)

ș "Hourglass_Off"

�

  �action(�poll(0))

"� �

,:

6��closedown

@$q%="TASK"

J"ș "Wimp_CloseDown",task%,q%!0

T�

^�

h:

r<��clickwindow(mousex%,mousey%,button%,handle%,icon%,ob%)

|Ȏ handle% �

�(  � main% :�clickmain(button%,icon%)

��

��

�:

���menu_sicon

�no=0:ȗ x,y,b

�=�define_menu_text("Info",no,0,0,0,0,&10021,info%,0):no+=1

�:�define_menu_text("Quit",no,0,0,0,0,&10021,0,-1):no+=1

�&�create_menu("Speaker",no,100,x,y)

�menu_nr%=0          

�claimmenu$="sicon"

��

�:
��clickmain(button%,icon%)

Ȏ � �
!� (button% � 2)=2 � icon%<>-1
&  �menu_sicon
'?� (button% � 4)=4 � icon%<>-1 � (button% � 1)=1 � icon%<>-1
(Ȏ icon% �
)#  � 1 :�slabicon:� "Speaker On"
*$  � 3 :�slabicon:� "Speaker Off"
0�
1�
:�
D:
N��action(evnt%)
XȎ evnt% �
b  � 0:�do_nothing
l  � 1:�redrawwindow(q%!0)
v  � 2:�openwindow(q%!0,�,0)
�  � 3:�closewindow(q%!0)
�7  � 6:�clickwindow(!q%,q%!4,q%!8,q%!12,q%!16,q%!20)
�3  � 9:� claimmenu$<>"" � �whichmenu(claimmenu$)
�  � 17,18:�receive(q%)
��
��
�:
���receive(q%)
�Ȏ q%!16 �
�� 0 :�closedown
��
��
�:

��merd
� "Error "+�$+" : "+�(�):�
�
 
*&��openwindow(handle%,full%,front%)
4q%!0=handle%
>-� � full% � ș "Wimp_GetWindowState",0,q%
H� front% � q%!28=-1
Rș "Wimp_OpenWindow",0,q%
\�
f
pݤpoll(mask%)
z ș "Wimp_Poll",mask%,q% � a%
�=a%
�
�2��define_menu_text(text$,n,w,t,d,s,flags,sm,l)
�text$(n)=text$
�setting(n)=0
�8� w � setting(n)=setting(n) � &04:flags=flags � &100
�%� t � setting(n)=setting(n) � &01
�%� d � setting(n)=setting(n) � &02
�%� l � setting(n)=setting(n) � &80
�� s � flags=flags � &400000
�flags(n)=flags
�submenu(n)=sm
��

&��create_menu(title$,n,width%,x,y)

mb%=menu%
$menus=0:q=0
.�
8!  menupos(menus)=mb%:menus+=1
B  $mb%=title$
L  mb%?12=7
V  mb%?13=2
`  mb%?14=7
j  mb%?15=0
t  mb%!16=width%
~'  mb%!20=40 :� height of menu items
�A  mb%!24=0  :� vertical gap between items (also top & bottom)
�  itemptr=mb%+28
�  �
�    itemptr!0=setting(q)
�    ref(q)=itemptr+4
�*    itemptr!8=flags(q) � 0<<28 � 7<<24
�    � (flags(q) � &100)=0 �
�       $(itemptr+12)=text$(q)
�	    �
�      pos=�text$(q),"(")
�(      itemptr!12=�(�text$(q),pos-1))
�      itemptr!16=-1
2      itemptr!20=�(�text$(q),�(text$(q))-pos))

	    �
    itemptr+=24:q+=1
  � (setting(q-1) � &80)>0
(  mb%=itemptr
2#  � q<>n � title$=text$(q):q+=1
<	� q=n
F
P� q=0 � n-1
Z)  � submenu(q)>0 � submenu(q)<menus �
d#    !ref(q)=menupos(submenu(q))
n  �
xH    !ref(q)=submenu(q):� was -1 i.e. submenu disallowed! This change
�>                      :� allows a window handle to be used
�  �
�� q
�#ș "Wimp_CreateMenu",,menu%,x,y
��
�
���opentemplatefile(file$)
�!ș "Wimp_OpenTemplate",,file$
��
�
���do_nothing
�
:
"��redrawwindow(handle%)
,� void%
6q%!0=handle%
@'ș "Wimp_RedrawWindow",0,q% � more%
J�lwaorigin(q%+4,x0%,y0%)
Tȕ more%
^  �newvals
h  Ȏ handle% �
r  �
|   ș "Wimp_BorderWindow",,q%
�)  ș "Wimp_GetRectangle",0,q% � more%
��
��
�
���closewindow(handle%)
� � handle%=main% � �closedown
�� �oktoclosew(handle%) �
�  q%!0=handle%
�   ș "Wimp_CloseWindow",0,q%
��
��
�
���whichmenu(menu$)
�� void%
Ȏ menu$ �
(  � "sicon" :void%=�menuselect_sicon
�
&�
0
:
��newvals
Dgtx=q%!36:gty=q%!40
Nwbx=q%!4:wby=q%!8
Xwtx=q%!12:wty=q%!16
bxsc=q%!20:ysc=q%!24
l!hp=wtx-wbx:vp=wty-wby:ebx=xsc
v!etx=xsc+hp:ety=ysc:eby=ysc-vp
��
�
�ݤoktoclosew(handle%)
�� shutting%
�shutting%=�
�=shutting%
�
�ݤmenuselect_sicon
�� level0
�level0=q%!0
�Ȏ level0 �
�"  � 0 :�openwindow(info%,�,-1)
�  � 1 :�closedown
�
=0

 ��lwaorigin(b,� x%,� y%)
*x%=b!0-b!16:y%=b!12-b!20
4�
>
"��slabicon
,ș "Wimp_BorderIcon",,q%
6
q%!8=0
@ș "Wimp_BorderIcon",,q%
J�
T
�

00000000  0d 00 0a 1f f4 20 3e 20  3c 53 70 65 61 6b 65 72  |..... > <Speaker|
00000010  24 44 69 72 3e 2e 21 52  75 6e 49 6d 61 67 65 0d  |$Dir>.!RunImage.|
00000020  00 14 04 0d 00 1e 0d de  20 71 25 20 32 35 30 30  |........ q% 2500|
00000030  0d 00 28 0e 24 71 25 3d  22 54 41 53 4b 22 0d 00  |..(.$q%="TASK"..|
00000040  32 3b c8 99 20 22 57 69  6d 70 5f 49 6e 69 74 69  |2;.. "Wimp_Initi|
00000050  61 6c 69 73 65 22 2c 32  30 30 2c 21 71 25 2c 22  |alise",200,!q%,"|
00000060  53 70 65 61 6b 65 72 20  43 6f 6e 74 72 6f 6c 22  |Speaker Control"|
00000070  20 b8 20 2c 74 61 73 6b  25 0d 00 3c 22 c8 99 20  | . ,task%..<".. |
00000080  22 57 69 6d 70 5f 43 6c  61 69 6d 49 6e 74 65 72  |"Wimp_ClaimInter|
00000090  66 61 63 65 22 2c 74 61  73 6b 25 0d 00 46 15 c8  |face",task%..F..|
000000a0  99 20 22 48 6f 75 72 67  6c 61 73 73 5f 4f 6e 22  |. "Hourglass_On"|
000000b0  0d 00 50 05 3a 0d 00 5a  25 de 20 74 65 78 74 24  |..P.:..Z%. text$|
000000c0  28 35 30 29 2c 73 65 74  74 69 6e 67 28 35 30 29  |(50),setting(50)|
000000d0  2c 66 6c 61 67 73 28 35  30 29 0d 00 64 25 de 20  |,flags(50)..d%. |
000000e0  73 75 62 6d 65 6e 75 28  35 30 29 2c 72 65 66 28  |submenu(50),ref(|
000000f0  35 30 29 2c 6d 65 6e 75  70 6f 73 28 32 30 29 0d  |50),menupos(20).|
00000100  00 6e 0f de 20 6d 65 6e  75 25 20 35 31 32 0d 00  |.n.. menu% 512..|
00000110  78 15 de 20 69 6e 64 69  72 65 63 74 25 20 26 32  |x.. indirect% &2|
00000120  30 30 30 0d 00 82 11 de  20 6d 73 67 62 6c 6b 25  |000..... msgblk%|
00000130  20 32 35 36 0d 00 8c 25  69 70 74 72 25 3d 69 6e  | 256...%iptr%=in|
00000140  64 69 72 65 63 74 25 3a  69 65 6e 64 25 3d 69 70  |direct%:iend%=ip|
00000150  74 72 25 2b 26 32 30 30  30 0d 00 96 0c ee 85 20  |tr%+&2000...... |
00000160  f2 6d 65 72 64 0d 00 a0  0f 6f 6c 64 74 69 6d 65  |.merd....oldtime|
00000170  24 3d 91 24 0d 00 aa 05  3a 0d 00 b4 35 c8 99 20  |$=.$....:...5.. |
00000180  22 57 69 6d 70 5f 4f 70  65 6e 54 65 6d 70 6c 61  |"Wimp_OpenTempla|
00000190  74 65 22 2c 2c 22 3c 53  70 65 61 6b 65 72 24 44  |te",,"<Speaker$D|
000001a0  69 72 3e 2e 54 65 6d 70  6c 61 74 65 73 22 0d 00  |ir>.Templates"..|
000001b0  be 42 c8 99 20 22 57 69  6d 70 5f 4c 6f 61 64 54  |.B.. "Wimp_LoadT|
000001c0  65 6d 70 6c 61 74 65 22  2c 2c 71 25 2c 69 6e 64  |emplate",,q%,ind|
000001d0  69 72 65 63 74 25 2c 69  6e 64 69 72 65 63 74 25  |irect%,indirect%|
000001e0  2b 31 39 39 2c 2d 31 2c  22 6d 61 69 6e 22 2c 30  |+199,-1,"main",0|
000001f0  0d 00 c8 26 c8 99 20 22  57 69 6d 70 5f 43 72 65  |...&.. "Wimp_Cre|
00000200  61 74 65 57 69 6e 64 6f  77 22 2c 2c 71 25 20 b8  |ateWindow",,q% .|
00000210  20 6d 61 69 6e 25 0d 00  d2 46 c8 99 20 22 57 69  | main%...F.. "Wi|
00000220  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
00000230  2c 2c 71 25 2c 69 6e 64  69 72 65 63 74 25 2b 32  |,,q%,indirect%+2|
00000240  30 30 2c 69 6e 64 69 72  65 63 74 25 2b 33 39 39  |00,indirect%+399|
00000250  2c 2d 31 2c 22 69 6e 66  6f 22 2c 30 0d 00 dc 26  |,-1,"info",0...&|
00000260  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |.. "Wimp_CreateW|
00000270  69 6e 64 6f 77 22 2c 2c  71 25 20 b8 20 69 6e 66  |indow",,q% . inf|
00000280  6f 25 0d 00 e6 1b c8 99  20 22 57 69 6d 70 5f 43  |o%...... "Wimp_C|
00000290  6c 6f 73 65 54 65 6d 70  6c 61 74 65 22 0d 00 f0  |loseTemplate"...|
000002a0  04 0d 00 fa 1b f2 6f 70  65 6e 77 69 6e 64 6f 77  |......openwindow|
000002b0  28 6d 61 69 6e 25 2c a3  2c 2d 31 29 0d 01 04 16  |(main%,.,-1)....|
000002c0  c8 99 20 22 48 6f 75 72  67 6c 61 73 73 5f 4f 66  |.. "Hourglass_Of|
000002d0  66 22 0d 01 0e 05 f5 0d  01 18 17 20 20 f2 61 63  |f".........  .ac|
000002e0  74 69 6f 6e 28 a4 70 6f  6c 6c 28 30 29 29 0d 01  |tion(.poll(0))..|
000002f0  22 07 fd 20 a3 0d 01 2c  05 3a 0d 01 36 0f dd f2  |".. ...,.:..6...|
00000300  63 6c 6f 73 65 64 6f 77  6e 0d 01 40 0e 24 71 25  |closedown..@.$q%|
00000310  3d 22 54 41 53 4b 22 0d  01 4a 22 c8 99 20 22 57  |="TASK"..J".. "W|
00000320  69 6d 70 5f 43 6c 6f 73  65 44 6f 77 6e 22 2c 74  |imp_CloseDown",t|
00000330  61 73 6b 25 2c 71 25 21  30 0d 01 54 05 e0 0d 01  |ask%,q%!0..T....|
00000340  5e 05 e1 0d 01 68 05 3a  0d 01 72 3c dd f2 63 6c  |^....h.:..r<..cl|
00000350  69 63 6b 77 69 6e 64 6f  77 28 6d 6f 75 73 65 78  |ickwindow(mousex|
00000360  25 2c 6d 6f 75 73 65 79  25 2c 62 75 74 74 6f 6e  |%,mousey%,button|
00000370  25 2c 68 61 6e 64 6c 65  25 2c 69 63 6f 6e 25 2c  |%,handle%,icon%,|
00000380  6f 62 25 29 0d 01 7c 10  c8 8e 20 68 61 6e 64 6c  |ob%)..|... handl|
00000390  65 25 20 ca 0d 01 86 28  20 20 c9 20 6d 61 69 6e  |e% ....(  . main|
000003a0  25 20 3a f2 63 6c 69 63  6b 6d 61 69 6e 28 62 75  |% :.clickmain(bu|
000003b0  74 74 6f 6e 25 2c 69 63  6f 6e 25 29 0d 01 90 05  |tton%,icon%)....|
000003c0  cb 0d 01 9a 05 e1 0d 01  a4 05 3a 0d 01 ae 10 dd  |..........:.....|
000003d0  f2 6d 65 6e 75 5f 73 69  63 6f 6e 0d 01 b8 11 6e  |.menu_sicon....n|
000003e0  6f 3d 30 3a c8 97 20 78  2c 79 2c 62 0d 01 c2 3d  |o=0:.. x,y,b...=|
000003f0  f2 64 65 66 69 6e 65 5f  6d 65 6e 75 5f 74 65 78  |.define_menu_tex|
00000400  74 28 22 49 6e 66 6f 22  2c 6e 6f 2c 30 2c 30 2c  |t("Info",no,0,0,|
00000410  30 2c 30 2c 26 31 30 30  32 31 2c 69 6e 66 6f 25  |0,0,&10021,info%|
00000420  2c 30 29 3a 6e 6f 2b 3d  31 0d 01 cc 3a f2 64 65  |,0):no+=1...:.de|
00000430  66 69 6e 65 5f 6d 65 6e  75 5f 74 65 78 74 28 22  |fine_menu_text("|
00000440  51 75 69 74 22 2c 6e 6f  2c 30 2c 30 2c 30 2c 30  |Quit",no,0,0,0,0|
00000450  2c 26 31 30 30 32 31 2c  30 2c 2d 31 29 3a 6e 6f  |,&10021,0,-1):no|
00000460  2b 3d 31 0d 01 d6 26 f2  63 72 65 61 74 65 5f 6d  |+=1...&.create_m|
00000470  65 6e 75 28 22 53 70 65  61 6b 65 72 22 2c 6e 6f  |enu("Speaker",no|
00000480  2c 31 30 30 2c 78 2c 79  29 0d 01 e0 18 6d 65 6e  |,100,x,y)....men|
00000490  75 5f 6e 72 25 3d 30 20  20 20 20 20 20 20 20 20  |u_nr%=0         |
000004a0  20 0d 01 ea 16 63 6c 61  69 6d 6d 65 6e 75 24 3d  | ....claimmenu$=|
000004b0  22 73 69 63 6f 6e 22 0d  01 f4 05 e1 0d 01 fe 05  |"sicon".........|
000004c0  3a 0d 02 08 1e dd f2 63  6c 69 63 6b 6d 61 69 6e  |:......clickmain|
000004d0  28 62 75 74 74 6f 6e 25  2c 69 63 6f 6e 25 29 0d  |(button%,icon%).|
000004e0  02 12 0a c8 8e 20 b9 20  ca 0d 02 1c 21 c9 20 28  |..... . ....!. (|
000004f0  62 75 74 74 6f 6e 25 20  80 20 32 29 3d 32 20 80  |button% . 2)=2 .|
00000500  20 69 63 6f 6e 25 3c 3e  2d 31 0d 02 26 11 20 20  | icon%<>-1..&.  |
00000510  f2 6d 65 6e 75 5f 73 69  63 6f 6e 0d 02 27 3f c9  |.menu_sicon..'?.|
00000520  20 28 62 75 74 74 6f 6e  25 20 80 20 34 29 3d 34  | (button% . 4)=4|
00000530  20 80 20 69 63 6f 6e 25  3c 3e 2d 31 20 84 20 28  | . icon%<>-1 . (|
00000540  62 75 74 74 6f 6e 25 20  80 20 31 29 3d 31 20 80  |button% . 1)=1 .|
00000550  20 69 63 6f 6e 25 3c 3e  2d 31 0d 02 28 0e c8 8e  | icon%<>-1..(...|
00000560  20 69 63 6f 6e 25 20 ca  0d 02 29 23 20 20 c9 20  | icon% ...)#  . |
00000570  31 20 3a f2 73 6c 61 62  69 63 6f 6e 3a ff 20 22  |1 :.slabicon:. "|
00000580  53 70 65 61 6b 65 72 20  4f 6e 22 0d 02 2a 24 20  |Speaker On"..*$ |
00000590  20 c9 20 33 20 3a f2 73  6c 61 62 69 63 6f 6e 3a  | . 3 :.slabicon:|
000005a0  ff 20 22 53 70 65 61 6b  65 72 20 4f 66 66 22 0d  |. "Speaker Off".|
000005b0  02 30 05 cb 0d 02 31 05  cb 0d 02 3a 05 e1 0d 02  |.0....1....:....|
000005c0  44 05 3a 0d 02 4e 13 dd  f2 61 63 74 69 6f 6e 28  |D.:..N...action(|
000005d0  65 76 6e 74 25 29 0d 02  58 0e c8 8e 20 65 76 6e  |evnt%)..X... evn|
000005e0  74 25 20 ca 0d 02 62 15  20 20 c9 20 30 3a f2 64  |t% ...b.  . 0:.d|
000005f0  6f 5f 6e 6f 74 68 69 6e  67 0d 02 6c 1d 20 20 c9  |o_nothing..l.  .|
00000600  20 31 3a f2 72 65 64 72  61 77 77 69 6e 64 6f 77  | 1:.redrawwindow|
00000610  28 71 25 21 30 29 0d 02  76 1f 20 20 c9 20 32 3a  |(q%!0)..v.  . 2:|
00000620  f2 6f 70 65 6e 77 69 6e  64 6f 77 28 71 25 21 30  |.openwindow(q%!0|
00000630  2c b9 2c 30 29 0d 02 80  1c 20 20 c9 20 33 3a f2  |,.,0)....  . 3:.|
00000640  63 6c 6f 73 65 77 69 6e  64 6f 77 28 71 25 21 30  |closewindow(q%!0|
00000650  29 0d 02 8a 37 20 20 c9  20 36 3a f2 63 6c 69 63  |)...7  . 6:.clic|
00000660  6b 77 69 6e 64 6f 77 28  21 71 25 2c 71 25 21 34  |kwindow(!q%,q%!4|
00000670  2c 71 25 21 38 2c 71 25  21 31 32 2c 71 25 21 31  |,q%!8,q%!12,q%!1|
00000680  36 2c 71 25 21 32 30 29  0d 02 94 33 20 20 c9 20  |6,q%!20)...3  . |
00000690  39 3a e7 20 63 6c 61 69  6d 6d 65 6e 75 24 3c 3e  |9:. claimmenu$<>|
000006a0  22 22 20 8c 20 f2 77 68  69 63 68 6d 65 6e 75 28  |"" . .whichmenu(|
000006b0  63 6c 61 69 6d 6d 65 6e  75 24 29 0d 02 9e 1a 20  |claimmenu$).... |
000006c0  20 c9 20 31 37 2c 31 38  3a f2 72 65 63 65 69 76  | . 17,18:.receiv|
000006d0  65 28 71 25 29 0d 02 a8  05 cb 0d 02 b2 05 e1 0d  |e(q%)...........|
000006e0  02 bc 05 3a 0d 02 c6 11  dd f2 72 65 63 65 69 76  |...:......receiv|
000006f0  65 28 71 25 29 0d 02 d0  0e c8 8e 20 71 25 21 31  |e(q%)...... q%!1|
00000700  36 20 ca 0d 02 da 13 c9  20 30 20 3a f2 63 6c 6f  |6 ...... 0 :.clo|
00000710  73 65 64 6f 77 6e 0d 02  e4 05 cb 0d 02 ee 05 e1  |sedown..........|
00000720  0d 02 f8 05 3a 0d 03 02  0a dd f2 6d 65 72 64 0d  |....:......merd.|
00000730  03 0c 1e ff 20 22 45 72  72 6f 72 20 22 2b f6 24  |.... "Error "+.$|
00000740  2b 22 20 3a 20 22 2b c3  28 9e 29 3a e1 0d 03 16  |+" : "+.(.):....|
00000750  05 e1 0d 03 20 04 0d 03  2a 26 dd f2 6f 70 65 6e  |.... ...*&..open|
00000760  77 69 6e 64 6f 77 28 68  61 6e 64 6c 65 25 2c 66  |window(handle%,f|
00000770  75 6c 6c 25 2c 66 72 6f  6e 74 25 29 0d 03 34 10  |ull%,front%)..4.|
00000780  71 25 21 30 3d 68 61 6e  64 6c 65 25 0d 03 3e 2d  |q%!0=handle%..>-|
00000790  e7 20 ac 20 66 75 6c 6c  25 20 8c 20 c8 99 20 22  |. . full% . .. "|
000007a0  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
000007b0  61 74 65 22 2c 30 2c 71  25 0d 03 48 17 e7 20 66  |ate",0,q%..H.. f|
000007c0  72 6f 6e 74 25 20 8c 20  71 25 21 32 38 3d 2d 31  |ront% . q%!28=-1|
000007d0  0d 03 52 1d c8 99 20 22  57 69 6d 70 5f 4f 70 65  |..R... "Wimp_Ope|
000007e0  6e 57 69 6e 64 6f 77 22  2c 30 2c 71 25 0d 03 5c  |nWindow",0,q%..\|
000007f0  05 e1 0d 03 66 04 0d 03  70 11 dd a4 70 6f 6c 6c  |....f...p...poll|
00000800  28 6d 61 73 6b 25 29 0d  03 7a 20 c8 99 20 22 57  |(mask%)..z .. "W|
00000810  69 6d 70 5f 50 6f 6c 6c  22 2c 6d 61 73 6b 25 2c  |imp_Poll",mask%,|
00000820  71 25 20 b8 20 61 25 0d  03 84 07 3d 61 25 0d 03  |q% . a%....=a%..|
00000830  8e 04 0d 03 98 32 dd f2  64 65 66 69 6e 65 5f 6d  |.....2..define_m|
00000840  65 6e 75 5f 74 65 78 74  28 74 65 78 74 24 2c 6e  |enu_text(text$,n|
00000850  2c 77 2c 74 2c 64 2c 73  2c 66 6c 61 67 73 2c 73  |,w,t,d,s,flags,s|
00000860  6d 2c 6c 29 0d 03 a2 12  74 65 78 74 24 28 6e 29  |m,l)....text$(n)|
00000870  3d 74 65 78 74 24 0d 03  ac 10 73 65 74 74 69 6e  |=text$....settin|
00000880  67 28 6e 29 3d 30 0d 03  b6 38 e7 20 77 20 8c 20  |g(n)=0...8. w . |
00000890  73 65 74 74 69 6e 67 28  6e 29 3d 73 65 74 74 69  |setting(n)=setti|
000008a0  6e 67 28 6e 29 20 84 20  26 30 34 3a 66 6c 61 67  |ng(n) . &04:flag|
000008b0  73 3d 66 6c 61 67 73 20  84 20 26 31 30 30 0d 03  |s=flags . &100..|
000008c0  c0 25 e7 20 74 20 8c 20  73 65 74 74 69 6e 67 28  |.%. t . setting(|
000008d0  6e 29 3d 73 65 74 74 69  6e 67 28 6e 29 20 84 20  |n)=setting(n) . |
000008e0  26 30 31 0d 03 ca 25 e7  20 64 20 8c 20 73 65 74  |&01...%. d . set|
000008f0  74 69 6e 67 28 6e 29 3d  73 65 74 74 69 6e 67 28  |ting(n)=setting(|
00000900  6e 29 20 84 20 26 30 32  0d 03 d4 25 e7 20 6c 20  |n) . &02...%. l |
00000910  8c 20 73 65 74 74 69 6e  67 28 6e 29 3d 73 65 74  |. setting(n)=set|
00000920  74 69 6e 67 28 6e 29 20  84 20 26 38 30 0d 03 de  |ting(n) . &80...|
00000930  1f e7 20 73 20 8c 20 66  6c 61 67 73 3d 66 6c 61  |.. s . flags=fla|
00000940  67 73 20 84 20 26 34 30  30 30 30 30 0d 03 e8 12  |gs . &400000....|
00000950  66 6c 61 67 73 28 6e 29  3d 66 6c 61 67 73 0d 03  |flags(n)=flags..|
00000960  f2 11 73 75 62 6d 65 6e  75 28 6e 29 3d 73 6d 0d  |..submenu(n)=sm.|
00000970  03 fc 05 e1 0d 04 06 04  0d 04 10 26 dd f2 63 72  |...........&..cr|
00000980  65 61 74 65 5f 6d 65 6e  75 28 74 69 74 6c 65 24  |eate_menu(title$|
00000990  2c 6e 2c 77 69 64 74 68  25 2c 78 2c 79 29 0d 04  |,n,width%,x,y)..|
000009a0  1a 0d 6d 62 25 3d 6d 65  6e 75 25 0d 04 24 0f 6d  |..mb%=menu%..$.m|
000009b0  65 6e 75 73 3d 30 3a 71  3d 30 0d 04 2e 05 f5 0d  |enus=0:q=0......|
000009c0  04 38 21 20 20 6d 65 6e  75 70 6f 73 28 6d 65 6e  |.8!  menupos(men|
000009d0  75 73 29 3d 6d 62 25 3a  6d 65 6e 75 73 2b 3d 31  |us)=mb%:menus+=1|
000009e0  0d 04 42 11 20 20 24 6d  62 25 3d 74 69 74 6c 65  |..B.  $mb%=title|
000009f0  24 0d 04 4c 0e 20 20 6d  62 25 3f 31 32 3d 37 0d  |$..L.  mb%?12=7.|
00000a00  04 56 0e 20 20 6d 62 25  3f 31 33 3d 32 0d 04 60  |.V.  mb%?13=2..`|
00000a10  0e 20 20 6d 62 25 3f 31  34 3d 37 0d 04 6a 0e 20  |.  mb%?14=7..j. |
00000a20  20 6d 62 25 3f 31 35 3d  30 0d 04 74 13 20 20 6d  | mb%?15=0..t.  m|
00000a30  62 25 21 31 36 3d 77 69  64 74 68 25 0d 04 7e 27  |b%!16=width%..~'|
00000a40  20 20 6d 62 25 21 32 30  3d 34 30 20 3a f4 20 68  |  mb%!20=40 :. h|
00000a50  65 69 67 68 74 20 6f 66  20 6d 65 6e 75 20 69 74  |eight of menu it|
00000a60  65 6d 73 0d 04 88 41 20  20 6d 62 25 21 32 34 3d  |ems...A  mb%!24=|
00000a70  30 20 20 3a f4 20 76 65  72 74 69 63 61 6c 20 67  |0  :. vertical g|
00000a80  61 70 20 62 65 74 77 65  65 6e 20 69 74 65 6d 73  |ap between items|
00000a90  20 28 61 6c 73 6f 20 74  6f 70 20 26 20 62 6f 74  | (also top & bot|
00000aa0  74 6f 6d 29 0d 04 92 14  20 20 69 74 65 6d 70 74  |tom)....  itempt|
00000ab0  72 3d 6d 62 25 2b 32 38  0d 04 9c 07 20 20 f5 0d  |r=mb%+28....  ..|
00000ac0  04 a6 1c 20 20 20 20 69  74 65 6d 70 74 72 21 30  |...    itemptr!0|
00000ad0  3d 73 65 74 74 69 6e 67  28 71 29 0d 04 b0 18 20  |=setting(q).... |
00000ae0  20 20 20 72 65 66 28 71  29 3d 69 74 65 6d 70 74  |   ref(q)=itempt|
00000af0  72 2b 34 0d 04 ba 2a 20  20 20 20 69 74 65 6d 70  |r+4...*    itemp|
00000b00  74 72 21 38 3d 66 6c 61  67 73 28 71 29 20 84 20  |tr!8=flags(q) . |
00000b10  30 3c 3c 32 38 20 84 20  37 3c 3c 32 34 0d 04 c4  |0<<28 . 7<<24...|
00000b20  1f 20 20 20 20 e7 20 28  66 6c 61 67 73 28 71 29  |.    . (flags(q)|
00000b30  20 80 20 26 31 30 30 29  3d 30 20 8c 0d 04 ce 20  | . &100)=0 .... |
00000b40  20 20 20 20 20 20 24 28  69 74 65 6d 70 74 72 2b  |      $(itemptr+|
00000b50  31 32 29 3d 74 65 78 74  24 28 71 29 0d 04 d8 09  |12)=text$(q)....|
00000b60  20 20 20 20 cc 0d 04 e2  1c 20 20 20 20 20 20 70  |    .....      p|
00000b70  6f 73 3d a7 74 65 78 74  24 28 71 29 2c 22 28 22  |os=.text$(q),"("|
00000b80  29 0d 04 ec 28 20 20 20  20 20 20 69 74 65 6d 70  |)...(      itemp|
00000b90  74 72 21 31 32 3d a0 28  c0 74 65 78 74 24 28 71  |tr!12=.(.text$(q|
00000ba0  29 2c 70 6f 73 2d 31 29  29 0d 04 f6 17 20 20 20  |),pos-1))....   |
00000bb0  20 20 20 69 74 65 6d 70  74 72 21 31 36 3d 2d 31  |   itemptr!16=-1|
00000bc0  0d 05 00 32 20 20 20 20  20 20 69 74 65 6d 70 74  |...2      itempt|
00000bd0  72 21 32 30 3d a0 28 c2  74 65 78 74 24 28 71 29  |r!20=.(.text$(q)|
00000be0  2c a9 28 74 65 78 74 24  28 71 29 29 2d 70 6f 73  |,.(text$(q))-pos|
00000bf0  29 29 0d 05 0a 09 20 20  20 20 cd 0d 05 14 18 20  |))....    ..... |
00000c00  20 20 20 69 74 65 6d 70  74 72 2b 3d 32 34 3a 71  |   itemptr+=24:q|
00000c10  2b 3d 31 0d 05 1e 1e 20  20 fd 20 28 73 65 74 74  |+=1....  . (sett|
00000c20  69 6e 67 28 71 2d 31 29  20 80 20 26 38 30 29 3e  |ing(q-1) . &80)>|
00000c30  30 0d 05 28 11 20 20 6d  62 25 3d 69 74 65 6d 70  |0..(.  mb%=itemp|
00000c40  74 72 0d 05 32 23 20 20  e7 20 71 3c 3e 6e 20 8c  |tr..2#  . q<>n .|
00000c50  20 74 69 74 6c 65 24 3d  74 65 78 74 24 28 71 29  | title$=text$(q)|
00000c60  3a 71 2b 3d 31 0d 05 3c  09 fd 20 71 3d 6e 0d 05  |:q+=1..<.. q=n..|
00000c70  46 04 0d 05 50 0f e3 20  71 3d 30 20 b8 20 6e 2d  |F...P.. q=0 . n-|
00000c80  31 0d 05 5a 29 20 20 e7  20 73 75 62 6d 65 6e 75  |1..Z)  . submenu|
00000c90  28 71 29 3e 30 20 80 20  73 75 62 6d 65 6e 75 28  |(q)>0 . submenu(|
00000ca0  71 29 3c 6d 65 6e 75 73  20 8c 0d 05 64 23 20 20  |q)<menus ...d#  |
00000cb0  20 20 21 72 65 66 28 71  29 3d 6d 65 6e 75 70 6f  |  !ref(q)=menupo|
00000cc0  73 28 73 75 62 6d 65 6e  75 28 71 29 29 0d 05 6e  |s(submenu(q))..n|
00000cd0  07 20 20 cc 0d 05 78 48  20 20 20 20 21 72 65 66  |.  ...xH    !ref|
00000ce0  28 71 29 3d 73 75 62 6d  65 6e 75 28 71 29 3a f4  |(q)=submenu(q):.|
00000cf0  20 77 61 73 20 2d 31 20  69 2e 65 2e 20 73 75 62  | was -1 i.e. sub|
00000d00  6d 65 6e 75 20 64 69 73  61 6c 6c 6f 77 65 64 21  |menu disallowed!|
00000d10  20 54 68 69 73 20 63 68  61 6e 67 65 0d 05 82 3e  | This change...>|
00000d20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000d30  20 20 20 20 20 20 3a f4  20 61 6c 6c 6f 77 73 20  |      :. allows |
00000d40  61 20 77 69 6e 64 6f 77  20 68 61 6e 64 6c 65 20  |a window handle |
00000d50  74 6f 20 62 65 20 75 73  65 64 0d 05 8c 07 20 20  |to be used....  |
00000d60  cd 0d 05 96 07 ed 20 71  0d 05 a0 23 c8 99 20 22  |...... q...#.. "|
00000d70  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
00000d80  2c 2c 6d 65 6e 75 25 2c  78 2c 79 0d 05 aa 05 e1  |,,menu%,x,y.....|
00000d90  0d 05 b4 04 0d 05 be 1d  dd f2 6f 70 65 6e 74 65  |..........opente|
00000da0  6d 70 6c 61 74 65 66 69  6c 65 28 66 69 6c 65 24  |mplatefile(file$|
00000db0  29 0d 05 c8 21 c8 99 20  22 57 69 6d 70 5f 4f 70  |)...!.. "Wimp_Op|
00000dc0  65 6e 54 65 6d 70 6c 61  74 65 22 2c 2c 66 69 6c  |enTemplate",,fil|
00000dd0  65 24 0d 05 d2 05 e1 0d  05 dc 04 0d 05 e6 10 dd  |e$..............|
00000de0  f2 64 6f 5f 6e 6f 74 68  69 6e 67 0d 06 0e 05 e1  |.do_nothing.....|
00000df0  0d 06 18 05 3a 0d 06 22  1b dd f2 72 65 64 72 61  |....:.."...redra|
00000e00  77 77 69 6e 64 6f 77 28  68 61 6e 64 6c 65 25 29  |wwindow(handle%)|
00000e10  0d 06 2c 0b ea 20 76 6f  69 64 25 0d 06 36 10 71  |..,.. void%..6.q|
00000e20  25 21 30 3d 68 61 6e 64  6c 65 25 0d 06 40 27 c8  |%!0=handle%..@'.|
00000e30  99 20 22 57 69 6d 70 5f  52 65 64 72 61 77 57 69  |. "Wimp_RedrawWi|
00000e40  6e 64 6f 77 22 2c 30 2c  71 25 20 b8 20 6d 6f 72  |ndow",0,q% . mor|
00000e50  65 25 0d 06 4a 1c f2 6c  77 61 6f 72 69 67 69 6e  |e%..J..lwaorigin|
00000e60  28 71 25 2b 34 2c 78 30  25 2c 79 30 25 29 0d 06  |(q%+4,x0%,y0%)..|
00000e70  54 0c c8 95 20 6d 6f 72  65 25 0d 06 5e 0e 20 20  |T... more%..^.  |
00000e80  f2 6e 65 77 76 61 6c 73  0d 06 68 12 20 20 c8 8e  |.newvals..h.  ..|
00000e90  20 68 61 6e 64 6c 65 25  20 ca 0d 06 72 07 20 20  | handle% ...r.  |
00000ea0  cb 0d 06 7c 20 20 20 c8  99 20 22 57 69 6d 70 5f  |...|   .. "Wimp_|
00000eb0  42 6f 72 64 65 72 57 69  6e 64 6f 77 22 2c 2c 71  |BorderWindow",,q|
00000ec0  25 0d 06 86 29 20 20 c8  99 20 22 57 69 6d 70 5f  |%...)  .. "Wimp_|
00000ed0  47 65 74 52 65 63 74 61  6e 67 6c 65 22 2c 30 2c  |GetRectangle",0,|
00000ee0  71 25 20 b8 20 6d 6f 72  65 25 0d 06 90 05 ce 0d  |q% . more%......|
00000ef0  06 9a 05 e1 0d 06 a4 04  0d 06 ae 1a dd f2 63 6c  |..............cl|
00000f00  6f 73 65 77 69 6e 64 6f  77 28 68 61 6e 64 6c 65  |osewindow(handle|
00000f10  25 29 0d 06 b0 20 e7 20  68 61 6e 64 6c 65 25 3d  |%)... . handle%=|
00000f20  6d 61 69 6e 25 20 8c 20  f2 63 6c 6f 73 65 64 6f  |main% . .closedo|
00000f30  77 6e 0d 06 b8 1c e7 20  a4 6f 6b 74 6f 63 6c 6f  |wn..... .oktoclo|
00000f40  73 65 77 28 68 61 6e 64  6c 65 25 29 20 8c 0d 06  |sew(handle%) ...|
00000f50  c2 12 20 20 71 25 21 30  3d 68 61 6e 64 6c 65 25  |..  q%!0=handle%|
00000f60  0d 06 cc 20 20 20 c8 99  20 22 57 69 6d 70 5f 43  |...   .. "Wimp_C|
00000f70  6c 6f 73 65 57 69 6e 64  6f 77 22 2c 30 2c 71 25  |loseWindow",0,q%|
00000f80  0d 06 d6 05 cd 0d 06 e0  05 e1 0d 06 ea 04 0d 06  |................|
00000f90  f4 16 dd f2 77 68 69 63  68 6d 65 6e 75 28 6d 65  |....whichmenu(me|
00000fa0  6e 75 24 29 0d 06 fe 0b  ea 20 76 6f 69 64 25 0d  |nu$)..... void%.|
00000fb0  07 08 0e c8 8e 20 6d 65  6e 75 24 20 ca 0d 07 12  |..... menu$ ....|
00000fc0  28 20 20 c9 20 22 73 69  63 6f 6e 22 20 3a 76 6f  |(  . "sicon" :vo|
00000fd0  69 64 25 3d a4 6d 65 6e  75 73 65 6c 65 63 74 5f  |id%=.menuselect_|
00000fe0  73 69 63 6f 6e 0d 07 1c  05 cb 0d 07 26 05 e1 0d  |sicon.......&...|
00000ff0  07 30 04 0d 07 3a 0d dd  f2 6e 65 77 76 61 6c 73  |.0...:...newvals|
00001000  0d 07 44 17 67 74 78 3d  71 25 21 33 36 3a 67 74  |..D.gtx=q%!36:gt|
00001010  79 3d 71 25 21 34 30 0d  07 4e 15 77 62 78 3d 71  |y=q%!40..N.wbx=q|
00001020  25 21 34 3a 77 62 79 3d  71 25 21 38 0d 07 58 17  |%!4:wby=q%!8..X.|
00001030  77 74 78 3d 71 25 21 31  32 3a 77 74 79 3d 71 25  |wtx=q%!12:wty=q%|
00001040  21 31 36 0d 07 62 17 78  73 63 3d 71 25 21 32 30  |!16..b.xsc=q%!20|
00001050  3a 79 73 63 3d 71 25 21  32 34 0d 07 6c 21 68 70  |:ysc=q%!24..l!hp|
00001060  3d 77 74 78 2d 77 62 78  3a 76 70 3d 77 74 79 2d  |=wtx-wbx:vp=wty-|
00001070  77 62 79 3a 65 62 78 3d  78 73 63 0d 07 76 21 65  |wby:ebx=xsc..v!e|
00001080  74 78 3d 78 73 63 2b 68  70 3a 65 74 79 3d 79 73  |tx=xsc+hp:ety=ys|
00001090  63 3a 65 62 79 3d 79 73  63 2d 76 70 0d 07 80 05  |c:eby=ysc-vp....|
000010a0  e1 0d 07 8a 04 0d 07 94  19 dd a4 6f 6b 74 6f 63  |...........oktoc|
000010b0  6c 6f 73 65 77 28 68 61  6e 64 6c 65 25 29 0d 07  |losew(handle%)..|
000010c0  9e 0f ea 20 73 68 75 74  74 69 6e 67 25 0d 07 a8  |... shutting%...|
000010d0  0f 73 68 75 74 74 69 6e  67 25 3d b9 0d 07 b2 0e  |.shutting%=.....|
000010e0  3d 73 68 75 74 74 69 6e  67 25 0d 07 bc 04 0d 07  |=shutting%......|
000010f0  c6 16 dd a4 6d 65 6e 75  73 65 6c 65 63 74 5f 73  |....menuselect_s|
00001100  69 63 6f 6e 0d 07 d0 0c  ea 20 6c 65 76 65 6c 30  |icon..... level0|
00001110  0d 07 da 0f 6c 65 76 65  6c 30 3d 71 25 21 30 0d  |....level0=q%!0.|
00001120  07 e4 0f c8 8e 20 6c 65  76 65 6c 30 20 ca 0d 07  |..... level0 ...|
00001130  ee 22 20 20 c9 20 30 20  3a f2 6f 70 65 6e 77 69  |."  . 0 :.openwi|
00001140  6e 64 6f 77 28 69 6e 66  6f 25 2c a3 2c 2d 31 29  |ndow(info%,.,-1)|
00001150  0d 07 f8 15 20 20 c9 20  31 20 3a f2 63 6c 6f 73  |....  . 1 :.clos|
00001160  65 64 6f 77 6e 0d 08 02  05 cb 0d 08 0c 06 3d 30  |edown.........=0|
00001170  0d 08 16 04 0d 08 20 1c  dd f2 6c 77 61 6f 72 69  |...... ...lwaori|
00001180  67 69 6e 28 62 2c f8 20  78 25 2c f8 20 79 25 29  |gin(b,. x%,. y%)|
00001190  0d 08 2a 1c 78 25 3d 62  21 30 2d 62 21 31 36 3a  |..*.x%=b!0-b!16:|
000011a0  79 25 3d 62 21 31 32 2d  62 21 32 30 0d 08 34 05  |y%=b!12-b!20..4.|
000011b0  e1 0d 08 3e 04 0d 10 22  0e dd f2 73 6c 61 62 69  |...>..."...slabi|
000011c0  63 6f 6e 0d 10 2c 1c c8  99 20 22 57 69 6d 70 5f  |con..,... "Wimp_|
000011d0  42 6f 72 64 65 72 49 63  6f 6e 22 2c 2c 71 25 0d  |BorderIcon",,q%.|
000011e0  10 36 0a 71 25 21 38 3d  30 0d 10 40 1c c8 99 20  |.6.q%!8=0..@... |
000011f0  22 57 69 6d 70 5f 42 6f  72 64 65 72 49 63 6f 6e  |"Wimp_BorderIcon|
00001200  22 2c 2c 71 25 0d 10 4a  05 e1 0d 10 54 04 0d ff  |",,q%..J....T...|
00001210