� >!RunImage

�
(;� Version 0.20B  Created 9/10/89  Last updated 24/10/90
2�
< � Written by Mark Brinicombe
F<� Altered 26/7/90 by Dag H. Myrdal to incorporate status
GH� Altered 24/10/90 by DHM to incorporate filetype cb6 and playstereo
P�
Z(� Copyright (C) 1989 Mark Brinicombe
d
nț "<Player$Dir>.Library"
x
�0� workspace &200,iconspace &200,buffer% &100
�
�version$ = "0.10"
�
�*� wimpworkspace% &300,wimpmessage &100
�
�,ș "Wimp_ReadSysInfo",0 � numberoftasks%
�
�task$ = "Player"
�taskid% = �initialisetask
�
*FX 229,0
�
�� � � �error <> 0 � �dZB



� numberoftasks% < 1 � � 1,task$+" must be run from within the desktop enviroment. Use *desktop to enter the desktop first"



"� menuworkspace &500

,menupointer = menuworkspace

6"menuend = menuworkspace + &400

@� commname% &16

J

T4ș "Wimp_OpenTemplate",,"<Player$Dir>.Templates"

^

hinfoiconsize% = &100

r

|� infoicons% infoiconsize%

�

�`ș "Wimp_LoadTemplate",,wimpworkspace%,infoicons%,infoicons%+infoiconsize%,-1,"playerinfo",0

�8ș "Wimp_CreateWindow",,wimpworkspace% � infowindow%

�ș "Wimp_CloseTemplate"

�

�iconbarmenu = �createmenu

�X  � 1,Player,7,2,7,0,144,44,0,&000,^Info,infowindow%,Quiet,WStereo,Status,Stop,*Quit

�

�quiticonselected = �

�

�&file% = �("<Player$Dir>.!Sprites")

�length% = (� #file%) + 16

�� #file%

� wimpsprites length%

&wimpsprites!&0 = length%
0wimpsprites!&4 = 0
:
D%ș "OS_SpriteOp",&109,wimpsprites
N=ș "OS_SpriteOp",&10a,wimpsprites,"<Player$Dir>.!Sprites"
X
b\playericon = �createindirectedsprite(-1,0,0,68,68,&3102,wimpsprites,iconspace,"!player")
l
voptionsflag = %00000000
�WStereoFlag = �
��toggleflags
�
�$� � � �error = 2 � �trB � � �dZB
�
��
�
�pollwimp
�� quiticonselected
�
�ș "Wimp_CloseDown"
��
�
�
� �pollwimp
)ș "Wimp_Poll",0,wimpmessage � action

 Ȏ action �
*'  � 3 : �closewindow(wimpmessage!0)
4   � 6 : �mousebuttonspressed
>  � 9 : �menuselect
H  � 17,18 : �receivemessage
R�
\
f�
p
z
�� �mousebuttonspressed
�!windowhandle = wimpmessage!12
�iconhandle = wimpmessage!16
� mousebuttons = wimpmessage!8
�
�Ȏ mousebuttons �
�  � 2 :
�    Ȏ windowhandle �
�      � -2 :
�        ȗ x%,y%,dummy
�,        �openmenu(iconbarmenu,x%-64,360)
�
        �
�	    �
  �
�
�
$
.
8� �menuselect
B� adjustflag%,menu$,item
L9ș "Wimp_DecodeMenu",,currentmenu,wimpmessage,buffer%
V,ș "Wimp_GetPointerInfo",,wimpworkspace%
`"adjustflag% = wimpworkspace%!8
j
tmenu$ = $buffer%
~
�+� menu$ = "Quit" � quiticonselected = �
�$� menu$ = "Stop" � �("Playstop")
�� menu$ = "WStereo" �
�   WStereoFlag=�(WStereoFlag)
�7  � WStereoFlag � �"PlayStereo 1" � �"PlayStereo 0"
�  �toggleflags
��
�� menu$ = "Status" �
�  $(commname%)="PlayStatus"
�'  ș "Wimp_CommandWindow",commname%
�  �("PLAYSTATUS")
�  ș "Wimp_CommandWindow",0
�

� menu$ = "Quiet" �
$  optionsflag = optionsflag � %1
?  � (optionsflag � %1) = 0 � �("Audio on") � �("Audio off")
(  �toggleflags
2�
<
FC� (adjustflag% � 1) <> 0 � �openmenu(currentmenu,menux%,menuy%)
P
Z�
d
n
x� �toggleflags
�� flags
�
�� Quiet
�!flags = iconbarmenu!(28+1*24)
�[� (optionsflag � %00000001) = 0 � flags = flags � &FFFFFFFE � flags = flags � &00000001
�!iconbarmenu!(28+1*24) = flags
�
� WStereo
�!flags = iconbarmenu!(28+2*24)
�I� WStereoFlag � flags = flags � &00000001 � flags = flags � &FFFFFFFE
�!iconbarmenu!(28+2*24) = flags
��
�
�
� �receivemessage
Ȏ wimpmessage!16 �
   � 0 : quiticonselected = �
"
  � 3:
,    Ȏ wimpmessage!40 �
6      � &FFF : �playfile
@      � &001 : �playfile
A      � &CB6 : �playfile
J	    
T@      � 1,"Player can only play Sound Tracker (&CB6) files."
^	    �
h  � &502 :
r$    wimpmessage!12=wimpmessage!8
|    wimpmessage!16=&503
�    � help%=q%+20
�;    � wimpmessage!36=playericon � wimpmessage!32 = -2 �
��      $(wimpmessage+20) = "This is the Player icon.|MDrag a Sound Tracker file onto the player icon to play it.|MClick MENU for options.|M" + �(0) + �(13)
�	    �
�6    !wimpmessage = (�($(wimpmessage+20))+24) � � 3
�:    ș "Wimp_SendMessage",17,wimpmessage,wimpmessage!4
��
��
�
�
�� �playfile
�� 7
�text$ = ""
loop% = wimpmessage + 44
ȕ ?loop% <> 0
  text$ += �(?loop%)
&  loop% += 1
0�
:�("Playmod "+text$)
D�
N
�

00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 14 04 0d 00 1e 05  f4 0d 00 28 3b f4 20 56  |...........(;. V|
00000020  65 72 73 69 6f 6e 20 30  2e 32 30 42 20 20 43 72  |ersion 0.20B  Cr|
00000030  65 61 74 65 64 20 39 2f  31 30 2f 38 39 20 20 4c  |eated 9/10/89  L|
00000040  61 73 74 20 75 70 64 61  74 65 64 20 32 34 2f 31  |ast updated 24/1|
00000050  30 2f 39 30 0d 00 32 05  f4 0d 00 3c 20 f4 20 57  |0/90..2....< . W|
00000060  72 69 74 74 65 6e 20 62  79 20 4d 61 72 6b 20 42  |ritten by Mark B|
00000070  72 69 6e 69 63 6f 6d 62  65 0d 00 46 3c f4 20 41  |rinicombe..F<. A|
00000080  6c 74 65 72 65 64 20 32  36 2f 37 2f 39 30 20 62  |ltered 26/7/90 b|
00000090  79 20 44 61 67 20 48 2e  20 4d 79 72 64 61 6c 20  |y Dag H. Myrdal |
000000a0  74 6f 20 69 6e 63 6f 72  70 6f 72 61 74 65 20 73  |to incorporate s|
000000b0  74 61 74 75 73 0d 00 47  48 f4 20 41 6c 74 65 72  |tatus..GH. Alter|
000000c0  65 64 20 32 34 2f 31 30  2f 39 30 20 62 79 20 44  |ed 24/10/90 by D|
000000d0  48 4d 20 74 6f 20 69 6e  63 6f 72 70 6f 72 61 74  |HM to incorporat|
000000e0  65 20 66 69 6c 65 74 79  70 65 20 63 62 36 20 61  |e filetype cb6 a|
000000f0  6e 64 20 70 6c 61 79 73  74 65 72 65 6f 0d 00 50  |nd playstereo..P|
00000100  05 f4 0d 00 5a 28 f4 20  43 6f 70 79 72 69 67 68  |....Z(. Copyrigh|
00000110  74 20 28 43 29 20 31 39  38 39 20 4d 61 72 6b 20  |t (C) 1989 Mark |
00000120  42 72 69 6e 69 63 6f 6d  62 65 0d 00 64 04 0d 00  |Brinicombe..d...|
00000130  6e 1d c8 9b 20 22 3c 50  6c 61 79 65 72 24 44 69  |n... "<Player$Di|
00000140  72 3e 2e 4c 69 62 72 61  72 79 22 0d 00 78 04 0d  |r>.Library"..x..|
00000150  00 82 30 de 20 77 6f 72  6b 73 70 61 63 65 20 26  |..0. workspace &|
00000160  32 30 30 2c 69 63 6f 6e  73 70 61 63 65 20 26 32  |200,iconspace &2|
00000170  30 30 2c 62 75 66 66 65  72 25 20 26 31 30 30 0d  |00,buffer% &100.|
00000180  00 8c 04 0d 00 96 15 76  65 72 73 69 6f 6e 24 20  |.......version$ |
00000190  3d 20 22 30 2e 31 30 22  0d 00 a0 04 0d 00 aa 2a  |= "0.10".......*|
000001a0  de 20 77 69 6d 70 77 6f  72 6b 73 70 61 63 65 25  |. wimpworkspace%|
000001b0  20 26 33 30 30 2c 77 69  6d 70 6d 65 73 73 61 67  | &300,wimpmessag|
000001c0  65 20 26 31 30 30 0d 00  b4 04 0d 00 be 2c c8 99  |e &100.......,..|
000001d0  20 22 57 69 6d 70 5f 52  65 61 64 53 79 73 49 6e  | "Wimp_ReadSysIn|
000001e0  66 6f 22 2c 30 20 b8 20  6e 75 6d 62 65 72 6f 66  |fo",0 . numberof|
000001f0  74 61 73 6b 73 25 0d 00  c8 04 0d 00 d2 14 74 61  |tasks%........ta|
00000200  73 6b 24 20 3d 20 22 50  6c 61 79 65 72 22 0d 00  |sk$ = "Player"..|
00000210  dc 1d 74 61 73 6b 69 64  25 20 3d 20 a4 69 6e 69  |..taskid% = .ini|
00000220  74 69 61 6c 69 73 65 74  61 73 6b 0d 00 e6 0d 2a  |tialisetask....*|
00000230  46 58 20 32 32 39 2c 30  0d 00 f0 04 0d 00 fa 1c  |FX 229,0........|
00000240  ee 20 85 20 e7 20 a4 65  72 72 6f 72 20 3c 3e 20  |. . . .error <> |
00000250  30 20 e5 20 8d 64 5a 42  0d 01 04 04 0d 01 0e 7f  |0 . .dZB........|
00000260  e7 20 6e 75 6d 62 65 72  6f 66 74 61 73 6b 73 25  |. numberoftasks%|
00000270  20 3c 20 31 20 8c 20 85  20 31 2c 74 61 73 6b 24  | < 1 . . 1,task$|
00000280  2b 22 20 6d 75 73 74 20  62 65 20 72 75 6e 20 66  |+" must be run f|
00000290  72 6f 6d 20 77 69 74 68  69 6e 20 74 68 65 20 64  |rom within the d|
000002a0  65 73 6b 74 6f 70 20 65  6e 76 69 72 6f 6d 65 6e  |esktop enviromen|
000002b0  74 2e 20 55 73 65 20 2a  64 65 73 6b 74 6f 70 20  |t. Use *desktop |
000002c0  74 6f 20 65 6e 74 65 72  20 74 68 65 20 64 65 73  |to enter the des|
000002d0  6b 74 6f 70 20 66 69 72  73 74 22 0d 01 18 04 0d  |ktop first".....|
000002e0  01 22 18 de 20 6d 65 6e  75 77 6f 72 6b 73 70 61  |.".. menuworkspa|
000002f0  63 65 20 26 35 30 30 0d  01 2c 1f 6d 65 6e 75 70  |ce &500..,.menup|
00000300  6f 69 6e 74 65 72 20 3d  20 6d 65 6e 75 77 6f 72  |ointer = menuwor|
00000310  6b 73 70 61 63 65 0d 01  36 22 6d 65 6e 75 65 6e  |kspace..6"menuen|
00000320  64 20 3d 20 6d 65 6e 75  77 6f 72 6b 73 70 61 63  |d = menuworkspac|
00000330  65 20 2b 20 26 34 30 30  0d 01 40 13 de 20 63 6f  |e + &400..@.. co|
00000340  6d 6d 6e 61 6d 65 25 20  26 31 36 0d 01 4a 04 0d  |mmname% &16..J..|
00000350  01 54 34 c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |.T4.. "Wimp_Open|
00000360  54 65 6d 70 6c 61 74 65  22 2c 2c 22 3c 50 6c 61  |Template",,"<Pla|
00000370  79 65 72 24 44 69 72 3e  2e 54 65 6d 70 6c 61 74  |yer$Dir>.Templat|
00000380  65 73 22 0d 01 5e 04 0d  01 68 18 69 6e 66 6f 69  |es"..^...h.infoi|
00000390  63 6f 6e 73 69 7a 65 25  20 3d 20 26 31 30 30 0d  |consize% = &100.|
000003a0  01 72 04 0d 01 7c 1e de  20 69 6e 66 6f 69 63 6f  |.r...|.. infoico|
000003b0  6e 73 25 20 69 6e 66 6f  69 63 6f 6e 73 69 7a 65  |ns% infoiconsize|
000003c0  25 0d 01 86 04 0d 01 90  60 c8 99 20 22 57 69 6d  |%.......`.. "Wim|
000003d0  70 5f 4c 6f 61 64 54 65  6d 70 6c 61 74 65 22 2c  |p_LoadTemplate",|
000003e0  2c 77 69 6d 70 77 6f 72  6b 73 70 61 63 65 25 2c  |,wimpworkspace%,|
000003f0  69 6e 66 6f 69 63 6f 6e  73 25 2c 69 6e 66 6f 69  |infoicons%,infoi|
00000400  63 6f 6e 73 25 2b 69 6e  66 6f 69 63 6f 6e 73 69  |cons%+infoiconsi|
00000410  7a 65 25 2c 2d 31 2c 22  70 6c 61 79 65 72 69 6e  |ze%,-1,"playerin|
00000420  66 6f 22 2c 30 0d 01 9a  38 c8 99 20 22 57 69 6d  |fo",0...8.. "Wim|
00000430  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
00000440  2c 77 69 6d 70 77 6f 72  6b 73 70 61 63 65 25 20  |,wimpworkspace% |
00000450  b8 20 69 6e 66 6f 77 69  6e 64 6f 77 25 0d 01 a4  |. infowindow%...|
00000460  1b c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 54  |... "Wimp_CloseT|
00000470  65 6d 70 6c 61 74 65 22  0d 01 ae 04 0d 01 b8 1d  |emplate"........|
00000480  69 63 6f 6e 62 61 72 6d  65 6e 75 20 3d 20 a4 63  |iconbarmenu = .c|
00000490  72 65 61 74 65 6d 65 6e  75 0d 01 c2 58 20 20 dc  |reatemenu...X  .|
000004a0  20 31 2c 50 6c 61 79 65  72 2c 37 2c 32 2c 37 2c  | 1,Player,7,2,7,|
000004b0  30 2c 31 34 34 2c 34 34  2c 30 2c 26 30 30 30 2c  |0,144,44,0,&000,|
000004c0  5e 49 6e 66 6f 2c 69 6e  66 6f 77 69 6e 64 6f 77  |^Info,infowindow|
000004d0  25 2c 51 75 69 65 74 2c  57 53 74 65 72 65 6f 2c  |%,Quiet,WStereo,|
000004e0  53 74 61 74 75 73 2c 53  74 6f 70 2c 2a 51 75 69  |Status,Stop,*Qui|
000004f0  74 0d 01 cc 04 0d 01 d6  18 71 75 69 74 69 63 6f  |t........quitico|
00000500  6e 73 65 6c 65 63 74 65  64 20 3d 20 a3 0d 01 e0  |nselected = ....|
00000510  04 0d 01 ea 26 66 69 6c  65 25 20 3d 20 8e 28 22  |....&file% = .("|
00000520  3c 50 6c 61 79 65 72 24  44 69 72 3e 2e 21 53 70  |<Player$Dir>.!Sp|
00000530  72 69 74 65 73 22 29 0d  01 f4 1d 6c 65 6e 67 74  |rites")....lengt|
00000540  68 25 20 3d 20 28 a2 20  23 66 69 6c 65 25 29 20  |h% = (. #file%) |
00000550  2b 20 31 36 0d 01 fe 0c  d9 20 23 66 69 6c 65 25  |+ 16..... #file%|
00000560  0d 02 08 04 0d 02 12 19  de 20 77 69 6d 70 73 70  |......... wimpsp|
00000570  72 69 74 65 73 20 6c 65  6e 67 74 68 25 0d 02 1c  |rites length%...|
00000580  04 0d 02 26 1c 77 69 6d  70 73 70 72 69 74 65 73  |...&.wimpsprites|
00000590  21 26 30 20 3d 20 6c 65  6e 67 74 68 25 0d 02 30  |!&0 = length%..0|
000005a0  16 77 69 6d 70 73 70 72  69 74 65 73 21 26 34 20  |.wimpsprites!&4 |
000005b0  3d 20 30 0d 02 3a 04 0d  02 44 25 c8 99 20 22 4f  |= 0..:...D%.. "O|
000005c0  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 30 39  |S_SpriteOp",&109|
000005d0  2c 77 69 6d 70 73 70 72  69 74 65 73 0d 02 4e 3d  |,wimpsprites..N=|
000005e0  c8 99 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |.. "OS_SpriteOp"|
000005f0  2c 26 31 30 61 2c 77 69  6d 70 73 70 72 69 74 65  |,&10a,wimpsprite|
00000600  73 2c 22 3c 50 6c 61 79  65 72 24 44 69 72 3e 2e  |s,"<Player$Dir>.|
00000610  21 53 70 72 69 74 65 73  22 0d 02 58 04 0d 02 62  |!Sprites"..X...b|
00000620  5c 70 6c 61 79 65 72 69  63 6f 6e 20 3d 20 a4 63  |\playericon = .c|
00000630  72 65 61 74 65 69 6e 64  69 72 65 63 74 65 64 73  |reateindirecteds|
00000640  70 72 69 74 65 28 2d 31  2c 30 2c 30 2c 36 38 2c  |prite(-1,0,0,68,|
00000650  36 38 2c 26 33 31 30 32  2c 77 69 6d 70 73 70 72  |68,&3102,wimpspr|
00000660  69 74 65 73 2c 69 63 6f  6e 73 70 61 63 65 2c 22  |ites,iconspace,"|
00000670  21 70 6c 61 79 65 72 22  29 0d 02 6c 04 0d 02 76  |!player")..l...v|
00000680  1b 6f 70 74 69 6f 6e 73  66 6c 61 67 20 3d 20 25  |.optionsflag = %|
00000690  30 30 30 30 30 30 30 30  0d 02 80 13 57 53 74 65  |00000000....WSte|
000006a0  72 65 6f 46 6c 61 67 20  3d 20 a3 0d 02 8a 10 f2  |reoFlag = ......|
000006b0  74 6f 67 67 6c 65 66 6c  61 67 73 0d 02 94 04 0d  |toggleflags.....|
000006c0  02 9e 24 ee 20 85 20 e7  20 a4 65 72 72 6f 72 20  |..$. . . .error |
000006d0  3d 20 32 20 e5 20 8d 74  72 42 20 8b 20 e5 20 8d  |= 2 . .trB . . .|
000006e0  64 5a 42 0d 02 a8 04 0d  02 b2 05 f5 0d 02 bc 0d  |dZB.............|
000006f0  f2 70 6f 6c 6c 77 69 6d  70 0d 02 c6 16 fd 20 71  |.pollwimp..... q|
00000700  75 69 74 69 63 6f 6e 73  65 6c 65 63 74 65 64 0d  |uiticonselected.|
00000710  02 d0 04 0d 02 da 17 c8  99 20 22 57 69 6d 70 5f  |......... "Wimp_|
00000720  43 6c 6f 73 65 44 6f 77  6e 22 0d 02 e4 05 e0 0d  |CloseDown"......|
00000730  02 ee 04 0d 02 f8 04 0d  03 02 0f dd 20 f2 70 6f  |............ .po|
00000740  6c 6c 77 69 6d 70 0d 03  0c 29 c8 99 20 22 57 69  |llwimp...).. "Wi|
00000750  6d 70 5f 50 6f 6c 6c 22  2c 30 2c 77 69 6d 70 6d  |mp_Poll",0,wimpm|
00000760  65 73 73 61 67 65 20 b8  20 61 63 74 69 6f 6e 0d  |essage . action.|
00000770  03 16 04 0d 03 20 0f c8  8e 20 61 63 74 69 6f 6e  |..... ... action|
00000780  20 ca 0d 03 2a 27 20 20  c9 20 33 20 3a 20 f2 63  | ...*'  . 3 : .c|
00000790  6c 6f 73 65 77 69 6e 64  6f 77 28 77 69 6d 70 6d  |losewindow(wimpm|
000007a0  65 73 73 61 67 65 21 30  29 0d 03 34 20 20 20 c9  |essage!0)..4   .|
000007b0  20 36 20 3a 20 f2 6d 6f  75 73 65 62 75 74 74 6f  | 6 : .mousebutto|
000007c0  6e 73 70 72 65 73 73 65  64 0d 03 3e 17 20 20 c9  |nspressed..>.  .|
000007d0  20 39 20 3a 20 f2 6d 65  6e 75 73 65 6c 65 63 74  | 9 : .menuselect|
000007e0  0d 03 48 1f 20 20 c9 20  31 37 2c 31 38 20 3a 20  |..H.  . 17,18 : |
000007f0  f2 72 65 63 65 69 76 65  6d 65 73 73 61 67 65 0d  |.receivemessage.|
00000800  03 52 05 cb 0d 03 5c 04  0d 03 66 05 e1 0d 03 70  |.R....\...f....p|
00000810  04 0d 03 7a 04 0d 03 84  1a dd 20 f2 6d 6f 75 73  |...z...... .mous|
00000820  65 62 75 74 74 6f 6e 73  70 72 65 73 73 65 64 0d  |ebuttonspressed.|
00000830  03 8e 21 77 69 6e 64 6f  77 68 61 6e 64 6c 65 20  |..!windowhandle |
00000840  3d 20 77 69 6d 70 6d 65  73 73 61 67 65 21 31 32  |= wimpmessage!12|
00000850  0d 03 98 1f 69 63 6f 6e  68 61 6e 64 6c 65 20 3d  |....iconhandle =|
00000860  20 77 69 6d 70 6d 65 73  73 61 67 65 21 31 36 0d  | wimpmessage!16.|
00000870  03 a2 20 6d 6f 75 73 65  62 75 74 74 6f 6e 73 20  |.. mousebuttons |
00000880  3d 20 77 69 6d 70 6d 65  73 73 61 67 65 21 38 0d  |= wimpmessage!8.|
00000890  03 ac 04 0d 03 b6 15 c8  8e 20 6d 6f 75 73 65 62  |......... mouseb|
000008a0  75 74 74 6f 6e 73 20 ca  0d 03 c0 0b 20 20 c9 20  |uttons .....  . |
000008b0  32 20 3a 0d 03 ca 19 20  20 20 20 c8 8e 20 77 69  |2 :....    .. wi|
000008c0  6e 64 6f 77 68 61 6e 64  6c 65 20 ca 0d 03 d4 10  |ndowhandle .....|
000008d0  20 20 20 20 20 20 c9 20  2d 32 20 3a 0d 03 de 1a  |      . -2 :....|
000008e0  20 20 20 20 20 20 20 20  c8 97 20 78 25 2c 79 25  |        .. x%,y%|
000008f0  2c 64 75 6d 6d 79 0d 03  e8 2c 20 20 20 20 20 20  |,dummy...,      |
00000900  20 20 f2 6f 70 65 6e 6d  65 6e 75 28 69 63 6f 6e  |  .openmenu(icon|
00000910  62 61 72 6d 65 6e 75 2c  78 25 2d 36 34 2c 33 36  |barmenu,x%-64,36|
00000920  30 29 0d 03 f2 0d 20 20  20 20 20 20 20 20 e1 0d  |0)....        ..|
00000930  03 fc 09 20 20 20 20 cb  0d 04 06 07 20 20 cb 0d  |...    .....  ..|
00000940  04 10 05 cb 0d 04 1a 05  e1 0d 04 24 04 0d 04 2e  |...........$....|
00000950  04 0d 04 38 11 dd 20 f2  6d 65 6e 75 73 65 6c 65  |...8.. .menusele|
00000960  63 74 0d 04 42 1c ea 20  61 64 6a 75 73 74 66 6c  |ct..B.. adjustfl|
00000970  61 67 25 2c 6d 65 6e 75  24 2c 69 74 65 6d 0d 04  |ag%,menu$,item..|
00000980  4c 39 c8 99 20 22 57 69  6d 70 5f 44 65 63 6f 64  |L9.. "Wimp_Decod|
00000990  65 4d 65 6e 75 22 2c 2c  63 75 72 72 65 6e 74 6d  |eMenu",,currentm|
000009a0  65 6e 75 2c 77 69 6d 70  6d 65 73 73 61 67 65 2c  |enu,wimpmessage,|
000009b0  62 75 66 66 65 72 25 0d  04 56 2c c8 99 20 22 57  |buffer%..V,.. "W|
000009c0  69 6d 70 5f 47 65 74 50  6f 69 6e 74 65 72 49 6e  |imp_GetPointerIn|
000009d0  66 6f 22 2c 2c 77 69 6d  70 77 6f 72 6b 73 70 61  |fo",,wimpworkspa|
000009e0  63 65 25 0d 04 60 22 61  64 6a 75 73 74 66 6c 61  |ce%..`"adjustfla|
000009f0  67 25 20 3d 20 77 69 6d  70 77 6f 72 6b 73 70 61  |g% = wimpworkspa|
00000a00  63 65 25 21 38 0d 04 6a  04 0d 04 74 14 6d 65 6e  |ce%!8..j...t.men|
00000a10  75 24 20 3d 20 24 62 75  66 66 65 72 25 0d 04 7e  |u$ = $buffer%..~|
00000a20  04 0d 04 88 2b e7 20 6d  65 6e 75 24 20 3d 20 22  |....+. menu$ = "|
00000a30  51 75 69 74 22 20 8c 20  71 75 69 74 69 63 6f 6e  |Quit" . quiticon|
00000a40  73 65 6c 65 63 74 65 64  20 3d 20 b9 0d 04 92 24  |selected = ....$|
00000a50  e7 20 6d 65 6e 75 24 20  3d 20 22 53 74 6f 70 22  |. menu$ = "Stop"|
00000a60  20 8c 20 ff 28 22 50 6c  61 79 73 74 6f 70 22 29  | . .("Playstop")|
00000a70  0d 04 9c 19 e7 20 6d 65  6e 75 24 20 3d 20 22 57  |..... menu$ = "W|
00000a80  53 74 65 72 65 6f 22 20  8c 0d 04 a6 20 20 20 57  |Stereo" ....   W|
00000a90  53 74 65 72 65 6f 46 6c  61 67 3d ac 28 57 53 74  |StereoFlag=.(WSt|
00000aa0  65 72 65 6f 46 6c 61 67  29 0d 04 b0 37 20 20 e7  |ereoFlag)...7  .|
00000ab0  20 57 53 74 65 72 65 6f  46 6c 61 67 20 8c 20 ff  | WStereoFlag . .|
00000ac0  22 50 6c 61 79 53 74 65  72 65 6f 20 31 22 20 8b  |"PlayStereo 1" .|
00000ad0  20 ff 22 50 6c 61 79 53  74 65 72 65 6f 20 30 22  | ."PlayStereo 0"|
00000ae0  0d 04 ba 12 20 20 f2 74  6f 67 67 6c 65 66 6c 61  |....  .togglefla|
00000af0  67 73 0d 04 c4 05 cd 0d  04 ce 18 e7 20 6d 65 6e  |gs.......... men|
00000b00  75 24 20 3d 20 22 53 74  61 74 75 73 22 20 8c 0d  |u$ = "Status" ..|
00000b10  04 d8 1f 20 20 24 28 63  6f 6d 6d 6e 61 6d 65 25  |...  $(commname%|
00000b20  29 3d 22 50 6c 61 79 53  74 61 74 75 73 22 0d 04  |)="PlayStatus"..|
00000b30  e2 27 20 20 c8 99 20 22  57 69 6d 70 5f 43 6f 6d  |.'  .. "Wimp_Com|
00000b40  6d 61 6e 64 57 69 6e 64  6f 77 22 2c 63 6f 6d 6d  |mandWindow",comm|
00000b50  6e 61 6d 65 25 0d 04 ec  15 20 20 ff 28 22 50 4c  |name%....  .("PL|
00000b60  41 59 53 54 41 54 55 53  22 29 0d 04 f6 1f 20 20  |AYSTATUS")....  |
00000b70  c8 99 20 22 57 69 6d 70  5f 43 6f 6d 6d 61 6e 64  |.. "Wimp_Command|
00000b80  57 69 6e 64 6f 77 22 2c  30 0d 05 00 05 cd 0d 05  |Window",0.......|
00000b90  0a 17 e7 20 6d 65 6e 75  24 20 3d 20 22 51 75 69  |... menu$ = "Qui|
00000ba0  65 74 22 20 8c 0d 05 14  24 20 20 6f 70 74 69 6f  |et" ....$  optio|
00000bb0  6e 73 66 6c 61 67 20 3d  20 6f 70 74 69 6f 6e 73  |nsflag = options|
00000bc0  66 6c 61 67 20 82 20 25  31 0d 05 1e 3f 20 20 e7  |flag . %1...?  .|
00000bd0  20 28 6f 70 74 69 6f 6e  73 66 6c 61 67 20 80 20  | (optionsflag . |
00000be0  25 31 29 20 3d 20 30 20  8c 20 ff 28 22 41 75 64  |%1) = 0 . .("Aud|
00000bf0  69 6f 20 6f 6e 22 29 20  8b 20 ff 28 22 41 75 64  |io on") . .("Aud|
00000c00  69 6f 20 6f 66 66 22 29  0d 05 28 12 20 20 f2 74  |io off")..(.  .t|
00000c10  6f 67 67 6c 65 66 6c 61  67 73 0d 05 32 05 cd 0d  |oggleflags..2...|
00000c20  05 3c 04 0d 05 46 43 e7  20 28 61 64 6a 75 73 74  |.<...FC. (adjust|
00000c30  66 6c 61 67 25 20 80 20  31 29 20 3c 3e 20 30 20  |flag% . 1) <> 0 |
00000c40  8c 20 f2 6f 70 65 6e 6d  65 6e 75 28 63 75 72 72  |. .openmenu(curr|
00000c50  65 6e 74 6d 65 6e 75 2c  6d 65 6e 75 78 25 2c 6d  |entmenu,menux%,m|
00000c60  65 6e 75 79 25 29 0d 05  50 04 0d 05 5a 05 e1 0d  |enuy%)..P...Z...|
00000c70  05 64 04 0d 05 6e 04 0d  05 78 12 dd 20 f2 74 6f  |.d...n...x.. .to|
00000c80  67 67 6c 65 66 6c 61 67  73 0d 05 82 0b ea 20 66  |ggleflags..... f|
00000c90  6c 61 67 73 0d 05 8c 04  0d 05 96 0b f4 20 51 75  |lags......... Qu|
00000ca0  69 65 74 0d 05 a0 21 66  6c 61 67 73 20 3d 20 69  |iet...!flags = i|
00000cb0  63 6f 6e 62 61 72 6d 65  6e 75 21 28 32 38 2b 31  |conbarmenu!(28+1|
00000cc0  2a 32 34 29 0d 05 aa 5b  e7 20 28 6f 70 74 69 6f  |*24)...[. (optio|
00000cd0  6e 73 66 6c 61 67 20 80  20 25 30 30 30 30 30 30  |nsflag . %000000|
00000ce0  30 31 29 20 3d 20 30 20  8c 20 66 6c 61 67 73 20  |01) = 0 . flags |
00000cf0  3d 20 66 6c 61 67 73 20  80 20 26 46 46 46 46 46  |= flags . &FFFFF|
00000d00  46 46 45 20 8b 20 66 6c  61 67 73 20 3d 20 66 6c  |FFE . flags = fl|
00000d10  61 67 73 20 84 20 26 30  30 30 30 30 30 30 31 0d  |ags . &00000001.|
00000d20  05 b4 21 69 63 6f 6e 62  61 72 6d 65 6e 75 21 28  |..!iconbarmenu!(|
00000d30  32 38 2b 31 2a 32 34 29  20 3d 20 66 6c 61 67 73  |28+1*24) = flags|
00000d40  0d 05 be 0d f4 20 57 53  74 65 72 65 6f 0d 05 c8  |..... WStereo...|
00000d50  21 66 6c 61 67 73 20 3d  20 69 63 6f 6e 62 61 72  |!flags = iconbar|
00000d60  6d 65 6e 75 21 28 32 38  2b 32 2a 32 34 29 0d 05  |menu!(28+2*24)..|
00000d70  d2 49 e7 20 57 53 74 65  72 65 6f 46 6c 61 67 20  |.I. WStereoFlag |
00000d80  8c 20 66 6c 61 67 73 20  3d 20 66 6c 61 67 73 20  |. flags = flags |
00000d90  84 20 26 30 30 30 30 30  30 30 31 20 8b 20 66 6c  |. &00000001 . fl|
00000da0  61 67 73 20 3d 20 66 6c  61 67 73 20 80 20 26 46  |ags = flags . &F|
00000db0  46 46 46 46 46 46 45 0d  05 dc 21 69 63 6f 6e 62  |FFFFFFE...!iconb|
00000dc0  61 72 6d 65 6e 75 21 28  32 38 2b 32 2a 32 34 29  |armenu!(28+2*24)|
00000dd0  20 3d 20 66 6c 61 67 73  0d 05 e6 05 e1 0d 05 f0  | = flags........|
00000de0  04 0d 05 fa 04 0d 06 04  15 dd 20 f2 72 65 63 65  |.......... .rece|
00000df0  69 76 65 6d 65 73 73 61  67 65 0d 06 0e 17 c8 8e  |ivemessage......|
00000e00  20 77 69 6d 70 6d 65 73  73 61 67 65 21 31 36 20  | wimpmessage!16 |
00000e10  ca 0d 06 18 20 20 20 c9  20 30 20 3a 20 71 75 69  |....   . 0 : qui|
00000e20  74 69 63 6f 6e 73 65 6c  65 63 74 65 64 20 3d 20  |ticonselected = |
00000e30  b9 0d 06 22 0a 20 20 c9  20 33 3a 0d 06 2c 1b 20  |...".  . 3:..,. |
00000e40  20 20 20 c8 8e 20 77 69  6d 70 6d 65 73 73 61 67  |   .. wimpmessag|
00000e50  65 21 34 30 20 ca 0d 06  36 1c 20 20 20 20 20 20  |e!40 ...6.      |
00000e60  c9 20 26 46 46 46 20 3a  20 f2 70 6c 61 79 66 69  |. &FFF : .playfi|
00000e70  6c 65 0d 06 40 1c 20 20  20 20 20 20 c9 20 26 30  |le..@.      . &0|
00000e80  30 31 20 3a 20 f2 70 6c  61 79 66 69 6c 65 0d 06  |01 : .playfile..|
00000e90  41 1c 20 20 20 20 20 20  c9 20 26 43 42 36 20 3a  |A.      . &CB6 :|
00000ea0  20 f2 70 6c 61 79 66 69  6c 65 0d 06 4a 09 20 20  | .playfile..J.  |
00000eb0  20 20 7f 0d 06 54 40 20  20 20 20 20 20 85 20 31  |  ...T@      . 1|
00000ec0  2c 22 50 6c 61 79 65 72  20 63 61 6e 20 6f 6e 6c  |,"Player can onl|
00000ed0  79 20 70 6c 61 79 20 53  6f 75 6e 64 20 54 72 61  |y play Sound Tra|
00000ee0  63 6b 65 72 20 28 26 43  42 36 29 20 66 69 6c 65  |cker (&CB6) file|
00000ef0  73 2e 22 0d 06 5e 09 20  20 20 20 cb 0d 06 68 0e  |s."..^.    ...h.|
00000f00  20 20 c9 20 26 35 30 32  20 3a 0d 06 72 24 20 20  |  . &502 :..r$  |
00000f10  20 20 77 69 6d 70 6d 65  73 73 61 67 65 21 31 32  |  wimpmessage!12|
00000f20  3d 77 69 6d 70 6d 65 73  73 61 67 65 21 38 0d 06  |=wimpmessage!8..|
00000f30  7c 1b 20 20 20 20 77 69  6d 70 6d 65 73 73 61 67  ||.    wimpmessag|
00000f40  65 21 31 36 3d 26 35 30  33 0d 06 86 15 20 20 20  |e!16=&503....   |
00000f50  20 f4 20 68 65 6c 70 25  3d 71 25 2b 32 30 0d 06  | . help%=q%+20..|
00000f60  90 3b 20 20 20 20 e7 20  77 69 6d 70 6d 65 73 73  |.;    . wimpmess|
00000f70  61 67 65 21 33 36 3d 70  6c 61 79 65 72 69 63 6f  |age!36=playerico|
00000f80  6e 20 80 20 77 69 6d 70  6d 65 73 73 61 67 65 21  |n . wimpmessage!|
00000f90  33 32 20 3d 20 2d 32 20  8c 0d 06 9a 9e 20 20 20  |32 = -2 .....   |
00000fa0  20 20 20 24 28 77 69 6d  70 6d 65 73 73 61 67 65  |   $(wimpmessage|
00000fb0  2b 32 30 29 20 3d 20 22  54 68 69 73 20 69 73 20  |+20) = "This is |
00000fc0  74 68 65 20 50 6c 61 79  65 72 20 69 63 6f 6e 2e  |the Player icon.|
00000fd0  7c 4d 44 72 61 67 20 61  20 53 6f 75 6e 64 20 54  ||MDrag a Sound T|
00000fe0  72 61 63 6b 65 72 20 66  69 6c 65 20 6f 6e 74 6f  |racker file onto|
00000ff0  20 74 68 65 20 70 6c 61  79 65 72 20 69 63 6f 6e  | the player icon|
00001000  20 74 6f 20 70 6c 61 79  20 69 74 2e 7c 4d 43 6c  | to play it.|MCl|
00001010  69 63 6b 20 4d 45 4e 55  20 66 6f 72 20 6f 70 74  |ick MENU for opt|
00001020  69 6f 6e 73 2e 7c 4d 22  20 2b 20 bd 28 30 29 20  |ions.|M" + .(0) |
00001030  2b 20 bd 28 31 33 29 0d  06 a4 09 20 20 20 20 cd  |+ .(13)....    .|
00001040  0d 06 ae 36 20 20 20 20  21 77 69 6d 70 6d 65 73  |...6    !wimpmes|
00001050  73 61 67 65 20 3d 20 28  a9 28 24 28 77 69 6d 70  |sage = (.($(wimp|
00001060  6d 65 73 73 61 67 65 2b  32 30 29 29 2b 32 34 29  |message+20))+24)|
00001070  20 80 20 ac 20 33 0d 06  b8 3a 20 20 20 20 c8 99  | . . 3...:    ..|
00001080  20 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  | "Wimp_SendMessa|
00001090  67 65 22 2c 31 37 2c 77  69 6d 70 6d 65 73 73 61  |ge",17,wimpmessa|
000010a0  67 65 2c 77 69 6d 70 6d  65 73 73 61 67 65 21 34  |ge,wimpmessage!4|
000010b0  0d 06 c2 05 cb 0d 06 cc  05 e1 0d 06 d6 04 0d 06  |................|
000010c0  e0 04 0d 06 ea 0f dd 20  f2 70 6c 61 79 66 69 6c  |....... .playfil|
000010d0  65 0d 06 f4 07 ef 20 37  0d 06 fe 0e 74 65 78 74  |e..... 7....text|
000010e0  24 20 3d 20 22 22 0d 07  08 1c 6c 6f 6f 70 25 20  |$ = ""....loop% |
000010f0  3d 20 77 69 6d 70 6d 65  73 73 61 67 65 20 2b 20  |= wimpmessage + |
00001100  34 34 0d 07 12 12 c8 95  20 3f 6c 6f 6f 70 25 20  |44...... ?loop% |
00001110  3c 3e 20 30 0d 07 1c 18  20 20 74 65 78 74 24 20  |<> 0....  text$ |
00001120  2b 3d 20 bd 28 3f 6c 6f  6f 70 25 29 0d 07 26 10  |+= .(?loop%)..&.|
00001130  20 20 6c 6f 6f 70 25 20  2b 3d 20 31 0d 07 30 05  |  loop% += 1..0.|
00001140  ce 0d 07 3a 17 ff 28 22  50 6c 61 79 6d 6f 64 20  |...:..("Playmod |
00001150  22 2b 74 65 78 74 24 29  0d 07 44 05 e1 0d 07 4e  |"+text$)..D....N|
00001160  04 0d ff                                          |...|
00001163