� ><SpeakCTRL$Dir>.!RunImage
0� SpeakCTRL version 1.00 14th September 1991
� by Dave Thomas 1991
(:
2C� window% 640,icon% 480,block% 256,menu% 240,errblk% 64,task% 4
<iconbar%=-2
F$task%="TASK"
P?ș "Wimp_Initialise",200,!task%,"Speaker Control" � ,taskh%
Z	�init
d
� �error
n:
x�
�$ș "Wimp_Poll",,block% � reason%
�Ȏ reason% �
�� 1:�redraw
�$� 2:ș "Wimp_OpenWindow",,block%
�#� 3:� block%!0=info% menu%!28=0
�(       ș "Wimp_CloseWindow",,block%
�� 6:�mouse
�� 8:�key
�� 9:�handlemenu
�� 17,18:�message
��
�� �
�:

� �mouse

Ȏ block%!12 �

� iconbar%:

"Ȏ block%!16 �

,� iconhand%:

6Ȏ block%!8 �

@� 4:

J!block%=controller%

T$ș "Wimp_GetWindowState",,block%

^block%!28=-1

h ș "Wimp_OpenWindow",,block%

r� 2:�menu(0)

|�

��

�� controller%:

�Ȏ block%!8 �

�� 2:

��menu(1)

��

�Ȏ block%!16 �

�� 2:

�Ȏ block%!8 �

�� 4,1:� "Speaker On"

��

�� 3:

�Ȏ block%!8 �
� 4,1:� "Speaker Off"
�
�
&�
0�
::
D� �menu(type%)
Nmousex%=block%!0
Xmousey%=block%!4
bȎ type% �
l� 0:
v9ș "Wimp_CreateMenu",,menu%,mousex%-menu%!16/2-24,184
�� 1:
�=ș "Wimp_CreateMenu",,menu%,mousex%-menu%!16/2-24,mousey%
��
��
�:
�� �handlemenu
�Ȏ block%!0 �
�� 0:!block%=info%
�+       ș "Wimp_GetWindowState",,block%
�       block%!28=-1
�'       ș "Wimp_OpenWindow",,block%
�       menu%!28=1
�� 1:ș "Wimp_CloseDown":�
�
�
:
 
� �redraw
**ș "Wimp_RedrawWindow",,block% � more%
4ȕ more%
>"ș "Wimp_BorderWindow",,block%
H*ș "Wimp_GetRectangle",,block% � more%
R�
\�
f:
p� �message
zȎ block%!16 �
�� 0:
�        ș "Wimp_CloseDown":�
��
��
�:
�� �error
�4!errblk%=�:$(errblk%+4)=�$+" at line "+�(�)+�(0)
�@ș "Wimp_ReportError",errblk%,3,"Speaker Control" � errbuts%
�&� errbuts%=2 ș "Wimp_CloseDown":�
��
�:
�� �init
�!block%=-1
block%!4=0
block%!8=0
block%!12=68
$block%!16=68
.block%!20=&3002
8$(block%+24)="!SpeakCTRL"
B,ș "Wimp_CreateIcon",,block% � iconhand%
L'� ---------------------------------
V7ș "Wimp_OpenTemplate",,"<SpeakCTRL$Dir>.Templates"
`Dș "Wimp_LoadTemplate",,window%,icon%,icon%+228,-1,"prog_info",0
j+ș "Wimp_CreateWindow",,window% � info%
tFș "Wimp_LoadTemplate",,window%,icon%+232,icon%+480,-1,"control",0
~1ș "Wimp_CreateWindow",,window% � controller%
�ș "Wimp_CloseTemplate"
�'� ---------------------------------
�,�("Load <SpeakCTRL$Dir>.Menus "+�~menu%)
�menu%!32=info%
��
�

00000000  0d 00 0a 20 f4 20 3e 3c  53 70 65 61 6b 43 54 52  |... . ><SpeakCTR|
00000010  4c 24 44 69 72 3e 2e 21  52 75 6e 49 6d 61 67 65  |L$Dir>.!RunImage|
00000020  0d 00 14 30 f4 20 53 70  65 61 6b 43 54 52 4c 20  |...0. SpeakCTRL |
00000030  76 65 72 73 69 6f 6e 20  31 2e 30 30 20 31 34 74  |version 1.00 14t|
00000040  68 20 53 65 70 74 65 6d  62 65 72 20 31 39 39 31  |h September 1991|
00000050  0d 00 1e 19 f4 20 62 79  20 44 61 76 65 20 54 68  |..... by Dave Th|
00000060  6f 6d 61 73 20 31 39 39  31 0d 00 28 05 3a 0d 00  |omas 1991..(.:..|
00000070  32 43 de 20 77 69 6e 64  6f 77 25 20 36 34 30 2c  |2C. window% 640,|
00000080  69 63 6f 6e 25 20 34 38  30 2c 62 6c 6f 63 6b 25  |icon% 480,block%|
00000090  20 32 35 36 2c 6d 65 6e  75 25 20 32 34 30 2c 65  | 256,menu% 240,e|
000000a0  72 72 62 6c 6b 25 20 36  34 2c 74 61 73 6b 25 20  |rrblk% 64,task% |
000000b0  34 0d 00 3c 0f 69 63 6f  6e 62 61 72 25 3d 2d 32  |4..<.iconbar%=-2|
000000c0  0d 00 46 11 24 74 61 73  6b 25 3d 22 54 41 53 4b  |..F.$task%="TASK|
000000d0  22 0d 00 50 3f c8 99 20  22 57 69 6d 70 5f 49 6e  |"..P?.. "Wimp_In|
000000e0  69 74 69 61 6c 69 73 65  22 2c 32 30 30 2c 21 74  |itialise",200,!t|
000000f0  61 73 6b 25 2c 22 53 70  65 61 6b 65 72 20 43 6f  |ask%,"Speaker Co|
00000100  6e 74 72 6f 6c 22 20 b8  20 2c 74 61 73 6b 68 25  |ntrol" . ,taskh%|
00000110  0d 00 5a 09 f2 69 6e 69  74 0d 00 64 0d ee 85 20  |..Z..init..d... |
00000120  f2 65 72 72 6f 72 0d 00  6e 05 3a 0d 00 78 05 f5  |.error..n.:..x..|
00000130  0d 00 82 24 c8 99 20 22  57 69 6d 70 5f 50 6f 6c  |...$.. "Wimp_Pol|
00000140  6c 22 2c 2c 62 6c 6f 63  6b 25 20 b8 20 72 65 61  |l",,block% . rea|
00000150  73 6f 6e 25 0d 00 8c 10  c8 8e 20 72 65 61 73 6f  |son%...... reaso|
00000160  6e 25 20 ca 0d 00 96 0f  c9 20 31 3a f2 72 65 64  |n% ...... 1:.red|
00000170  72 61 77 0d 00 a0 24 c9  20 32 3a c8 99 20 22 57  |raw...$. 2:.. "W|
00000180  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
00000190  2c 62 6c 6f 63 6b 25 0d  00 aa 23 c9 20 33 3a e7  |,block%...#. 3:.|
000001a0  20 62 6c 6f 63 6b 25 21  30 3d 69 6e 66 6f 25 20  | block%!0=info% |
000001b0  6d 65 6e 75 25 21 32 38  3d 30 0d 00 b4 28 20 20  |menu%!28=0...(  |
000001c0  20 20 20 20 20 c8 99 20  22 57 69 6d 70 5f 43 6c  |     .. "Wimp_Cl|
000001d0  6f 73 65 57 69 6e 64 6f  77 22 2c 2c 62 6c 6f 63  |oseWindow",,bloc|
000001e0  6b 25 0d 00 be 0e c9 20  36 3a f2 6d 6f 75 73 65  |k%..... 6:.mouse|
000001f0  0d 00 c8 0c c9 20 38 3a  f2 6b 65 79 0d 00 d2 13  |..... 8:.key....|
00000200  c9 20 39 3a f2 68 61 6e  64 6c 65 6d 65 6e 75 0d  |. 9:.handlemenu.|
00000210  00 dc 14 c9 20 31 37 2c  31 38 3a f2 6d 65 73 73  |.... 17,18:.mess|
00000220  61 67 65 0d 00 e6 05 cb  0d 00 f0 07 fd 20 a3 0d  |age.......... ..|
00000230  00 fa 05 3a 0d 01 04 0c  dd 20 f2 6d 6f 75 73 65  |...:..... .mouse|
00000240  0d 01 0e 12 c8 8e 20 62  6c 6f 63 6b 25 21 31 32  |...... block%!12|
00000250  20 ca 0d 01 18 0f c9 20  69 63 6f 6e 62 61 72 25  | ...... iconbar%|
00000260  3a 0d 01 22 12 c8 8e 20  62 6c 6f 63 6b 25 21 31  |:.."... block%!1|
00000270  36 20 ca 0d 01 2c 10 c9  20 69 63 6f 6e 68 61 6e  |6 ...,.. iconhan|
00000280  64 25 3a 0d 01 36 11 c8  8e 20 62 6c 6f 63 6b 25  |d%:..6... block%|
00000290  21 38 20 ca 0d 01 40 08  c9 20 34 3a 0d 01 4a 17  |!8 ...@.. 4:..J.|
000002a0  21 62 6c 6f 63 6b 25 3d  63 6f 6e 74 72 6f 6c 6c  |!block%=controll|
000002b0  65 72 25 0d 01 54 24 c8  99 20 22 57 69 6d 70 5f  |er%..T$.. "Wimp_|
000002c0  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
000002d0  2c 62 6c 6f 63 6b 25 0d  01 5e 10 62 6c 6f 63 6b  |,block%..^.block|
000002e0  25 21 32 38 3d 2d 31 0d  01 68 20 c8 99 20 22 57  |%!28=-1..h .. "W|
000002f0  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
00000300  2c 62 6c 6f 63 6b 25 0d  01 72 10 c9 20 32 3a f2  |,block%..r.. 2:.|
00000310  6d 65 6e 75 28 30 29 0d  01 7c 05 cb 0d 01 86 05  |menu(0)..|......|
00000320  cb 0d 01 90 12 c9 20 63  6f 6e 74 72 6f 6c 6c 65  |...... controlle|
00000330  72 25 3a 0d 01 9a 11 c8  8e 20 62 6c 6f 63 6b 25  |r%:...... block%|
00000340  21 38 20 ca 0d 01 a4 08  c9 20 32 3a 0d 01 ae 0c  |!8 ...... 2:....|
00000350  f2 6d 65 6e 75 28 31 29  0d 01 b8 05 cb 0d 01 c2  |.menu(1)........|
00000360  12 c8 8e 20 62 6c 6f 63  6b 25 21 31 36 20 ca 0d  |... block%!16 ..|
00000370  01 cc 08 c9 20 32 3a 0d  01 d6 11 c8 8e 20 62 6c  |.... 2:...... bl|
00000380  6f 63 6b 25 21 38 20 ca  0d 01 e0 18 c9 20 34 2c  |ock%!8 ...... 4,|
00000390  31 3a ff 20 22 53 70 65  61 6b 65 72 20 4f 6e 22  |1:. "Speaker On"|
000003a0  0d 01 ea 05 cb 0d 01 f4  08 c9 20 33 3a 0d 01 fe  |.......... 3:...|
000003b0  11 c8 8e 20 62 6c 6f 63  6b 25 21 38 20 ca 0d 02  |... block%!8 ...|
000003c0  08 19 c9 20 34 2c 31 3a  ff 20 22 53 70 65 61 6b  |... 4,1:. "Speak|
000003d0  65 72 20 4f 66 66 22 0d  02 12 05 cb 0d 02 1c 05  |er Off".........|
000003e0  cb 0d 02 26 05 cb 0d 02  30 05 e1 0d 02 3a 05 3a  |...&....0....:.:|
000003f0  0d 02 44 12 dd 20 f2 6d  65 6e 75 28 74 79 70 65  |..D.. .menu(type|
00000400  25 29 0d 02 4e 14 6d 6f  75 73 65 78 25 3d 62 6c  |%)..N.mousex%=bl|
00000410  6f 63 6b 25 21 30 0d 02  58 14 6d 6f 75 73 65 79  |ock%!0..X.mousey|
00000420  25 3d 62 6c 6f 63 6b 25  21 34 0d 02 62 0e c8 8e  |%=block%!4..b...|
00000430  20 74 79 70 65 25 20 ca  0d 02 6c 08 c9 20 30 3a  | type% ...l.. 0:|
00000440  0d 02 76 39 c8 99 20 22  57 69 6d 70 5f 43 72 65  |..v9.. "Wimp_Cre|
00000450  61 74 65 4d 65 6e 75 22  2c 2c 6d 65 6e 75 25 2c  |ateMenu",,menu%,|
00000460  6d 6f 75 73 65 78 25 2d  6d 65 6e 75 25 21 31 36  |mousex%-menu%!16|
00000470  2f 32 2d 32 34 2c 31 38  34 0d 02 80 08 c9 20 31  |/2-24,184..... 1|
00000480  3a 0d 02 8a 3d c8 99 20  22 57 69 6d 70 5f 43 72  |:...=.. "Wimp_Cr|
00000490  65 61 74 65 4d 65 6e 75  22 2c 2c 6d 65 6e 75 25  |eateMenu",,menu%|
000004a0  2c 6d 6f 75 73 65 78 25  2d 6d 65 6e 75 25 21 31  |,mousex%-menu%!1|
000004b0  36 2f 32 2d 32 34 2c 6d  6f 75 73 65 79 25 0d 02  |6/2-24,mousey%..|
000004c0  94 05 cb 0d 02 9e 05 e1  0d 02 a8 05 3a 0d 02 b2  |............:...|
000004d0  11 dd 20 f2 68 61 6e 64  6c 65 6d 65 6e 75 0d 02  |.. .handlemenu..|
000004e0  bc 11 c8 8e 20 62 6c 6f  63 6b 25 21 30 20 ca 0d  |.... block%!0 ..|
000004f0  02 c6 15 c9 20 30 3a 21  62 6c 6f 63 6b 25 3d 69  |.... 0:!block%=i|
00000500  6e 66 6f 25 0d 02 d0 2b  20 20 20 20 20 20 20 c8  |nfo%...+       .|
00000510  99 20 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |. "Wimp_GetWindo|
00000520  77 53 74 61 74 65 22 2c  2c 62 6c 6f 63 6b 25 0d  |wState",,block%.|
00000530  02 da 17 20 20 20 20 20  20 20 62 6c 6f 63 6b 25  |...       block%|
00000540  21 32 38 3d 2d 31 0d 02  e4 27 20 20 20 20 20 20  |!28=-1...'      |
00000550  20 c8 99 20 22 57 69 6d  70 5f 4f 70 65 6e 57 69  | .. "Wimp_OpenWi|
00000560  6e 64 6f 77 22 2c 2c 62  6c 6f 63 6b 25 0d 02 ee  |ndow",,block%...|
00000570  15 20 20 20 20 20 20 20  6d 65 6e 75 25 21 32 38  |.       menu%!28|
00000580  3d 31 0d 02 f8 1d c9 20  31 3a c8 99 20 22 57 69  |=1..... 1:.. "Wi|
00000590  6d 70 5f 43 6c 6f 73 65  44 6f 77 6e 22 3a e0 0d  |mp_CloseDown":..|
000005a0  03 02 05 cb 0d 03 0c 05  e1 0d 03 16 05 3a 0d 03  |.............:..|
000005b0  20 0d dd 20 f2 72 65 64  72 61 77 0d 03 2a 2a c8  | .. .redraw..**.|
000005c0  99 20 22 57 69 6d 70 5f  52 65 64 72 61 77 57 69  |. "Wimp_RedrawWi|
000005d0  6e 64 6f 77 22 2c 2c 62  6c 6f 63 6b 25 20 b8 20  |ndow",,block% . |
000005e0  6d 6f 72 65 25 0d 03 34  0c c8 95 20 6d 6f 72 65  |more%..4... more|
000005f0  25 0d 03 3e 22 c8 99 20  22 57 69 6d 70 5f 42 6f  |%..>".. "Wimp_Bo|
00000600  72 64 65 72 57 69 6e 64  6f 77 22 2c 2c 62 6c 6f  |rderWindow",,blo|
00000610  63 6b 25 0d 03 48 2a c8  99 20 22 57 69 6d 70 5f  |ck%..H*.. "Wimp_|
00000620  47 65 74 52 65 63 74 61  6e 67 6c 65 22 2c 2c 62  |GetRectangle",,b|
00000630  6c 6f 63 6b 25 20 b8 20  6d 6f 72 65 25 0d 03 52  |lock% . more%..R|
00000640  05 ce 0d 03 5c 05 e1 0d  03 66 05 3a 0d 03 70 0e  |....\....f.:..p.|
00000650  dd 20 f2 6d 65 73 73 61  67 65 0d 03 7a 12 c8 8e  |. .message..z...|
00000660  20 62 6c 6f 63 6b 25 21  31 36 20 ca 0d 03 84 08  | block%!16 .....|
00000670  c9 20 30 3a 0d 03 8e 20  20 20 20 20 20 20 20 c8  |. 0:...        .|
00000680  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 44 6f 77  |. "Wimp_CloseDow|
00000690  6e 22 3a e0 0d 03 98 05  cb 0d 03 a2 05 e1 0d 03  |n":.............|
000006a0  ac 05 3a 0d 03 b6 0c dd  20 f2 65 72 72 6f 72 0d  |..:..... .error.|
000006b0  03 c0 34 21 65 72 72 62  6c 6b 25 3d 9f 3a 24 28  |..4!errblk%=.:$(|
000006c0  65 72 72 62 6c 6b 25 2b  34 29 3d f6 24 2b 22 20  |errblk%+4)=.$+" |
000006d0  61 74 20 6c 69 6e 65 20  22 2b c3 28 9e 29 2b bd  |at line "+.(.)+.|
000006e0  28 30 29 0d 03 ca 40 c8  99 20 22 57 69 6d 70 5f  |(0)...@.. "Wimp_|
000006f0  52 65 70 6f 72 74 45 72  72 6f 72 22 2c 65 72 72  |ReportError",err|
00000700  62 6c 6b 25 2c 33 2c 22  53 70 65 61 6b 65 72 20  |blk%,3,"Speaker |
00000710  43 6f 6e 74 72 6f 6c 22  20 b8 20 65 72 72 62 75  |Control" . errbu|
00000720  74 73 25 0d 03 d4 26 e7  20 65 72 72 62 75 74 73  |ts%...&. errbuts|
00000730  25 3d 32 20 c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |%=2 .. "Wimp_Clo|
00000740  73 65 44 6f 77 6e 22 3a  e0 0d 03 de 05 e1 0d 03  |seDown":........|
00000750  e8 05 3a 0d 03 f2 0b dd  20 f2 69 6e 69 74 0d 03  |..:..... .init..|
00000760  fc 0e 21 62 6c 6f 63 6b  25 3d 2d 31 0d 04 06 0e  |..!block%=-1....|
00000770  62 6c 6f 63 6b 25 21 34  3d 30 0d 04 10 0e 62 6c  |block%!4=0....bl|
00000780  6f 63 6b 25 21 38 3d 30  0d 04 1a 10 62 6c 6f 63  |ock%!8=0....bloc|
00000790  6b 25 21 31 32 3d 36 38  0d 04 24 10 62 6c 6f 63  |k%!12=68..$.bloc|
000007a0  6b 25 21 31 36 3d 36 38  0d 04 2e 13 62 6c 6f 63  |k%!16=68....bloc|
000007b0  6b 25 21 32 30 3d 26 33  30 30 32 0d 04 38 1d 24  |k%!20=&3002..8.$|
000007c0  28 62 6c 6f 63 6b 25 2b  32 34 29 3d 22 21 53 70  |(block%+24)="!Sp|
000007d0  65 61 6b 43 54 52 4c 22  0d 04 42 2c c8 99 20 22  |eakCTRL"..B,.. "|
000007e0  57 69 6d 70 5f 43 72 65  61 74 65 49 63 6f 6e 22  |Wimp_CreateIcon"|
000007f0  2c 2c 62 6c 6f 63 6b 25  20 b8 20 69 63 6f 6e 68  |,,block% . iconh|
00000800  61 6e 64 25 0d 04 4c 27  f4 20 2d 2d 2d 2d 2d 2d  |and%..L'. ------|
00000810  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000820  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 04 56 37 c8  |-----------..V7.|
00000830  99 20 22 57 69 6d 70 5f  4f 70 65 6e 54 65 6d 70  |. "Wimp_OpenTemp|
00000840  6c 61 74 65 22 2c 2c 22  3c 53 70 65 61 6b 43 54  |late",,"<SpeakCT|
00000850  52 4c 24 44 69 72 3e 2e  54 65 6d 70 6c 61 74 65  |RL$Dir>.Template|
00000860  73 22 0d 04 60 44 c8 99  20 22 57 69 6d 70 5f 4c  |s"..`D.. "Wimp_L|
00000870  6f 61 64 54 65 6d 70 6c  61 74 65 22 2c 2c 77 69  |oadTemplate",,wi|
00000880  6e 64 6f 77 25 2c 69 63  6f 6e 25 2c 69 63 6f 6e  |ndow%,icon%,icon|
00000890  25 2b 32 32 38 2c 2d 31  2c 22 70 72 6f 67 5f 69  |%+228,-1,"prog_i|
000008a0  6e 66 6f 22 2c 30 0d 04  6a 2b c8 99 20 22 57 69  |nfo",0..j+.. "Wi|
000008b0  6d 70 5f 43 72 65 61 74  65 57 69 6e 64 6f 77 22  |mp_CreateWindow"|
000008c0  2c 2c 77 69 6e 64 6f 77  25 20 b8 20 69 6e 66 6f  |,,window% . info|
000008d0  25 0d 04 74 46 c8 99 20  22 57 69 6d 70 5f 4c 6f  |%..tF.. "Wimp_Lo|
000008e0  61 64 54 65 6d 70 6c 61  74 65 22 2c 2c 77 69 6e  |adTemplate",,win|
000008f0  64 6f 77 25 2c 69 63 6f  6e 25 2b 32 33 32 2c 69  |dow%,icon%+232,i|
00000900  63 6f 6e 25 2b 34 38 30  2c 2d 31 2c 22 63 6f 6e  |con%+480,-1,"con|
00000910  74 72 6f 6c 22 2c 30 0d  04 7e 31 c8 99 20 22 57  |trol",0..~1.. "W|
00000920  69 6d 70 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |imp_CreateWindow|
00000930  22 2c 2c 77 69 6e 64 6f  77 25 20 b8 20 63 6f 6e  |",,window% . con|
00000940  74 72 6f 6c 6c 65 72 25  0d 04 88 1b c8 99 20 22  |troller%...... "|
00000950  57 69 6d 70 5f 43 6c 6f  73 65 54 65 6d 70 6c 61  |Wimp_CloseTempla|
00000960  74 65 22 0d 04 92 27 f4  20 2d 2d 2d 2d 2d 2d 2d  |te"...'. -------|
00000970  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000980  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 04 9c 2c ff 28  |----------...,.(|
00000990  22 4c 6f 61 64 20 3c 53  70 65 61 6b 43 54 52 4c  |"Load <SpeakCTRL|
000009a0  24 44 69 72 3e 2e 4d 65  6e 75 73 20 22 2b c3 7e  |$Dir>.Menus "+.~|
000009b0  6d 65 6e 75 25 29 0d 04  a6 12 6d 65 6e 75 25 21  |menu%)....menu%!|
000009c0  33 32 3d 69 6e 66 6f 25  0d 04 b0 05 e1 0d ff     |32=info%.......|
000009cf