� > !RunImage
�   STracker
�   B D Summers
(�   31st May 1990
2
<@%=0
F
Pstrackertype%=&002
Z
d� � �$" at line "�:�
n
x�startup
�
��createwindows
��iconbar
��checkforfile
�
�� �e(�,�)
�
��
�1ș "Wimp_Poll",%1100000110001,result � reason
�Ȏ reason �
�' � 2 : ș "Wimp_OpenWindow",,result
�( � 3 : ș "Wimp_CloseWindow",,result
� � 6 : �mouse

 � 9 : �decodemenu

 � 17,18: �message

 :

"�

,
� exit

6

@�closedown

J

T�

^

h
��startup

rOș "Wimp_Initialise",200,&4B534154,"Sound Tracker" � wimpVersion,taskhandle

|� menu 32+24*4

�� miscws 64

�� result 256

�
exit=�

�whichmenu=0

��helpmessage$="This is the Sound Tracker icon.|MDrop a Sound Tracker module to play it.|MClick SELECT to get info on the module."

�scrap=�

��

�

���closedown

�,ș "Wimp_CloseDown",taskhandle,&4B534154

��

�

�0��reporterror(re_number,re_string$,re_flags)

�miscws!0=re_number
re_sp=miscws+4
$re_sp=re_string$
4ș "Wimp_ReportError",miscws,re_flags,"STracker"
&�
0
:
��iconbar
Dmiscws!0=-1
Nmiscws!4=0
Xmiscws!8=0
bmiscws!12=68
lmiscws!16=68
vmiscws!20=%0011000000011010
�$(miscws+24)="!stracker"
�+ș "Wimp_CreateIcon",,miscws � ibhandle
��
�
���createwindows
�� window 768
�6ș "Wimp_OpenTemplate",,"<STracker$Dir>.Templates"
�Jș "Wimp_LoadTemplate",,window+4,window+512,window+768,-1,"progInfo",0
�.ș "Wimp_CreateWindow",,window+4 � !window
�Jș "Wimp_LoadTemplate",,window+36,window+256,window+508,-1,"copybox",0
�ș "Wimp_CloseTemplate"
��
�
��mouse
Ȏ result!12 �
)  � -2 : � (result!8 � 2)=2 � �ibmenu
 E            � (result!8 � 4)=4 � ș "Wimp_StartTask","PlayStatus"
*	   :
4�
>�
H
R&��menuheader(pointer,width,title$)
\menupointer=pointer
f$menupointer=title$+�(0)
pmenupointer?12=7
zmenupointer?13=2
�menupointer?14=7
�menupointer?15=0
�menupointer!16=width
�menupointer!20=44
�menupointer!24=0
�menupointer+=28
��
�
�'��menuitem(subm,flags,tflags,text$)
�menupointer!0=flags
�menupointer!4=subm
�menupointer!8=tflags
�name=menupointer+12
$name=text$+�(0)
menupointer+=24
�
$
.��ibmenu
8$�menuheader(menu,210,"STracker")
B(�menuitem(!window,0,&7000031,"Info")
L+�menuitem(-1,0,&7000031,"Info on tune")
V+�menuitem(-1,0,&7000031,"Stop playing")
`&�menuitem(-1,1<<7,&7000031,"Quit")
j2ș "Wimp_CreateMenu",,menu,result!0-64,96+4*44
twhichmenu=1
~�
�
���decodemenu
�Ȏ whichmenu �
�  � 1 : Ȏ result!0 �
�.    � 1 : ș "Wimp_StartTask","PlayStatus"
�,    � 2 : ș "Wimp_StartTask","PlayStop"
�    � 3 : exit=�
�     :
�  �
�  � 2 : �dothing(result!0)
�	   :
��
$ș "Wimp_GetPointerInfo",,miscws

'� (miscws!8 � 1)=1 � Ȏ whichmenu �
  � 1 : �ibmenu
  :
(�
2�
<
F
��message
PȎ result!16 �
Z  � 0 : exit=�
d  � 1 : �datasave
n  � 3 : �filedrop
x  � 5 : �filedrop
�  � &502 : �help
�	   :
��
��
�
�
��help
�sendto=result!4
�'length=�((�(helpmessage$)+1)/4+1)*4
�result!0=length+20
�result!4=taskhandle
�result!12=result!8
�result!8=1
�result!16=&503
$(result+20)=helpmessage$
!result?(�(helpmessage$)+21)=0
*ș "Wimp_SendMessage",17,result,sendto
"�
,
6��e(num,numm)
@result!0=numm
Jo�$(result+4)="Error (internal error code "+STR$(num)+") Click OK to continue or Cancel to quit application"
T<$(result+4)="Error (internal error code "+�(num)+") "+�$
^7ș "Wimp_ReportError",result,%011,"STracker" � ,num
h� num = 2 �
r�
|
���filedrop
�"� result!40<>strackertype% � �
�
fd$=""
�fdchar$=""
�X=44
�ȕ X<256 � fdchar$<>�(0)
�fdchar$=�(result!X)
�X+=1
�fd$+=fdchar$
��
��playfile(fd$)
�result!12=result!8
�result!16=4
result!20=-2
result!24=ibhandle
,ș "Wimp_SendMessage",17,result,result!4

� scrap �
/  ș "Wimp_StartTask","Delete <Wimp$Scrap>"

  scrap=�
 �
&�
0
:C� Wimp_StartTask is used to protect the program from any errors
D� which may occur.
N
X��playfile(pf$)
b"ș "Wimp_StartTask","PlayStop"
l&ș "Wimp_StartTask","PlayMod "+pf$
v�
�
���checkforfile
�#ș "OS_GetEnv" � commandstring$
�!I%=�commandstring$," -quit ")
�
� I% �
�  I%+=�" -quit "
�*  ȕ �commandstring$,I%,1)=" ":I%+=1:�
�  �
�(    I%=�commandstring$+" "," ",I%+1)
�*    �I%+=1:��commandstring$,I%,1)<>" "
�%    filename$=�commandstring$,I%)
�3    filename$=�filename$,�filename$+" "," ")-1)
�    � filename$<>"" �
      �playfile(filename$)
	    �
  � filename$=""
 �
*�
4
>��datasave
H � result!40<>strackertype% �
I� �wimpscrap=� �
R.result!0=(�((48+�("<Wimp$Scrap>"))/4)+1)*4
\result!12=result!8
fresult!16=2
gresult!36=-1
p$$(result+44)="<Wimp$Scrap>"+�(0)
z,ș "Wimp_SendMessage",17,result,result!4
{scrap=�
��
�
�ݤwimpscrap
�:ș "XOS_ReadVarVal","Wimp$Scrap",miscws,-1,0,0 � ,,,ws
�� ws=0 �
�7  �reporterror(5,"Wimp$Scrap is not definied",%110)
�  =�
��
�  =�
��
�

00000000  0d 00 0a 11 f4 20 3e 20  21 52 75 6e 49 6d 61 67  |..... > !RunImag|
00000010  65 0d 00 14 10 f4 20 20  20 53 54 72 61 63 6b 65  |e.....   STracke|
00000020  72 0d 00 1e 13 f4 20 20  20 42 20 44 20 53 75 6d  |r.....   B D Sum|
00000030  6d 65 72 73 0d 00 28 15  f4 20 20 20 33 31 73 74  |mers..(..   31st|
00000040  20 4d 61 79 20 31 39 39  30 0d 00 32 04 0d 00 3c  | May 1990..2...<|
00000050  08 40 25 3d 30 0d 00 46  04 0d 00 50 16 73 74 72  |.@%=0..F...P.str|
00000060  61 63 6b 65 72 74 79 70  65 25 3d 26 30 30 32 0d  |ackertype%=&002.|
00000070  00 5a 04 0d 00 64 19 ee  85 20 f1 20 f6 24 22 20  |.Z...d... . .$" |
00000080  61 74 20 6c 69 6e 65 20  22 9e 3a e0 0d 00 6e 04  |at line ".:...n.|
00000090  0d 00 78 0c f2 73 74 61  72 74 75 70 0d 00 82 04  |..x..startup....|
000000a0  0d 00 8c 12 f2 63 72 65  61 74 65 77 69 6e 64 6f  |.....createwindo|
000000b0  77 73 0d 00 96 0c f2 69  63 6f 6e 62 61 72 0d 00  |ws.....iconbar..|
000000c0  a0 11 f2 63 68 65 63 6b  66 6f 72 66 69 6c 65 0d  |...checkforfile.|
000000d0  00 aa 04 0d 00 b4 0e ee  85 20 f2 65 28 9e 2c 9f  |......... .e(.,.|
000000e0  29 0d 00 be 04 0d 00 c8  05 f5 0d 00 d2 31 c8 99  |)............1..|
000000f0  20 22 57 69 6d 70 5f 50  6f 6c 6c 22 2c 25 31 31  | "Wimp_Poll",%11|
00000100  30 30 30 30 30 31 31 30  30 30 31 2c 72 65 73 75  |00000110001,resu|
00000110  6c 74 20 b8 20 72 65 61  73 6f 6e 0d 00 dc 0f c8  |lt . reason.....|
00000120  8e 20 72 65 61 73 6f 6e  20 ca 0d 00 e6 27 20 c9  |. reason ....' .|
00000130  20 32 20 3a 20 c8 99 20  22 57 69 6d 70 5f 4f 70  | 2 : .. "Wimp_Op|
00000140  65 6e 57 69 6e 64 6f 77  22 2c 2c 72 65 73 75 6c  |enWindow",,resul|
00000150  74 0d 00 f0 28 20 c9 20  33 20 3a 20 c8 99 20 22  |t...( . 3 : .. "|
00000160  57 69 6d 70 5f 43 6c 6f  73 65 57 69 6e 64 6f 77  |Wimp_CloseWindow|
00000170  22 2c 2c 72 65 73 75 6c  74 0d 00 fa 11 20 c9 20  |",,result.... . |
00000180  36 20 3a 20 f2 6d 6f 75  73 65 0d 01 04 16 20 c9  |6 : .mouse.... .|
00000190  20 39 20 3a 20 f2 64 65  63 6f 64 65 6d 65 6e 75  | 9 : .decodemenu|
000001a0  0d 01 0e 16 20 c9 20 31  37 2c 31 38 3a 20 f2 6d  |.... . 17,18: .m|
000001b0  65 73 73 61 67 65 0d 01  18 07 20 7f 3a 0d 01 22  |essage.... .:.."|
000001c0  05 cb 0d 01 2c 0a fd 20  65 78 69 74 0d 01 36 04  |....,.. exit..6.|
000001d0  0d 01 40 0e f2 63 6c 6f  73 65 64 6f 77 6e 0d 01  |..@..closedown..|
000001e0  4a 04 0d 01 54 05 e0 0d  01 5e 04 0d 01 68 0d dd  |J...T....^...h..|
000001f0  f2 73 74 61 72 74 75 70  0d 01 72 4f c8 99 20 22  |.startup..rO.. "|
00000200  57 69 6d 70 5f 49 6e 69  74 69 61 6c 69 73 65 22  |Wimp_Initialise"|
00000210  2c 32 30 30 2c 26 34 42  35 33 34 31 35 34 2c 22  |,200,&4B534154,"|
00000220  53 6f 75 6e 64 20 54 72  61 63 6b 65 72 22 20 b8  |Sound Tracker" .|
00000230  20 77 69 6d 70 56 65 72  73 69 6f 6e 2c 74 61 73  | wimpVersion,tas|
00000240  6b 68 61 6e 64 6c 65 0d  01 7c 12 de 20 6d 65 6e  |khandle..|.. men|
00000250  75 20 33 32 2b 32 34 2a  34 0d 01 86 0f de 20 6d  |u 32+24*4..... m|
00000260  69 73 63 77 73 20 36 34  0d 01 90 10 de 20 72 65  |iscws 64..... re|
00000270  73 75 6c 74 20 32 35 36  0d 01 9a 0a 65 78 69 74  |sult 256....exit|
00000280  3d a3 0d 01 a4 0f 77 68  69 63 68 6d 65 6e 75 3d  |=.....whichmenu=|
00000290  30 0d 01 ae 84 68 65 6c  70 6d 65 73 73 61 67 65  |0....helpmessage|
000002a0  24 3d 22 54 68 69 73 20  69 73 20 74 68 65 20 53  |$="This is the S|
000002b0  6f 75 6e 64 20 54 72 61  63 6b 65 72 20 69 63 6f  |ound Tracker ico|
000002c0  6e 2e 7c 4d 44 72 6f 70  20 61 20 53 6f 75 6e 64  |n.|MDrop a Sound|
000002d0  20 54 72 61 63 6b 65 72  20 6d 6f 64 75 6c 65 20  | Tracker module |
000002e0  74 6f 20 70 6c 61 79 20  69 74 2e 7c 4d 43 6c 69  |to play it.|MCli|
000002f0  63 6b 20 53 45 4c 45 43  54 20 74 6f 20 67 65 74  |ck SELECT to get|
00000300  20 69 6e 66 6f 20 6f 6e  20 74 68 65 20 6d 6f 64  | info on the mod|
00000310  75 6c 65 2e 22 0d 01 af  0b 73 63 72 61 70 3d a3  |ule."....scrap=.|
00000320  0d 01 b8 05 e1 0d 01 c2  04 0d 01 cc 0f dd f2 63  |...............c|
00000330  6c 6f 73 65 64 6f 77 6e  0d 01 d6 2c c8 99 20 22  |losedown...,.. "|
00000340  57 69 6d 70 5f 43 6c 6f  73 65 44 6f 77 6e 22 2c  |Wimp_CloseDown",|
00000350  74 61 73 6b 68 61 6e 64  6c 65 2c 26 34 42 35 33  |taskhandle,&4B53|
00000360  34 31 35 34 0d 01 e0 05  e1 0d 01 ea 04 0d 01 f4  |4154............|
00000370  30 dd f2 72 65 70 6f 72  74 65 72 72 6f 72 28 72  |0..reporterror(r|
00000380  65 5f 6e 75 6d 62 65 72  2c 72 65 5f 73 74 72 69  |e_number,re_stri|
00000390  6e 67 24 2c 72 65 5f 66  6c 61 67 73 29 0d 01 fe  |ng$,re_flags)...|
000003a0  16 6d 69 73 63 77 73 21  30 3d 72 65 5f 6e 75 6d  |.miscws!0=re_num|
000003b0  62 65 72 0d 02 08 12 72  65 5f 73 70 3d 6d 69 73  |ber....re_sp=mis|
000003c0  63 77 73 2b 34 0d 02 12  15 24 72 65 5f 73 70 3d  |cws+4....$re_sp=|
000003d0  72 65 5f 73 74 72 69 6e  67 24 0d 02 1c 34 c8 99  |re_string$...4..|
000003e0  20 22 57 69 6d 70 5f 52  65 70 6f 72 74 45 72 72  | "Wimp_ReportErr|
000003f0  6f 72 22 2c 6d 69 73 63  77 73 2c 72 65 5f 66 6c  |or",miscws,re_fl|
00000400  61 67 73 2c 22 53 54 72  61 63 6b 65 72 22 0d 02  |ags,"STracker"..|
00000410  26 05 e1 0d 02 30 04 0d  02 3a 0d dd f2 69 63 6f  |&....0...:...ico|
00000420  6e 62 61 72 0d 02 44 0f  6d 69 73 63 77 73 21 30  |nbar..D.miscws!0|
00000430  3d 2d 31 0d 02 4e 0e 6d  69 73 63 77 73 21 34 3d  |=-1..N.miscws!4=|
00000440  30 0d 02 58 0e 6d 69 73  63 77 73 21 38 3d 30 0d  |0..X.miscws!8=0.|
00000450  02 62 10 6d 69 73 63 77  73 21 31 32 3d 36 38 0d  |.b.miscws!12=68.|
00000460  02 6c 10 6d 69 73 63 77  73 21 31 36 3d 36 38 0d  |.l.miscws!16=68.|
00000470  02 76 1f 6d 69 73 63 77  73 21 32 30 3d 25 30 30  |.v.miscws!20=%00|
00000480  31 31 30 30 30 30 30 30  30 31 31 30 31 30 0d 02  |11000000011010..|
00000490  80 1c 24 28 6d 69 73 63  77 73 2b 32 34 29 3d 22  |..$(miscws+24)="|
000004a0  21 73 74 72 61 63 6b 65  72 22 0d 02 8a 2b c8 99  |!stracker"...+..|
000004b0  20 22 57 69 6d 70 5f 43  72 65 61 74 65 49 63 6f  | "Wimp_CreateIco|
000004c0  6e 22 2c 2c 6d 69 73 63  77 73 20 b8 20 69 62 68  |n",,miscws . ibh|
000004d0  61 6e 64 6c 65 0d 02 94  05 e1 0d 02 9e 04 0d 02  |andle...........|
000004e0  a8 13 dd f2 63 72 65 61  74 65 77 69 6e 64 6f 77  |....createwindow|
000004f0  73 0d 02 b2 10 de 20 77  69 6e 64 6f 77 20 37 36  |s..... window 76|
00000500  38 0d 02 bc 36 c8 99 20  22 57 69 6d 70 5f 4f 70  |8...6.. "Wimp_Op|
00000510  65 6e 54 65 6d 70 6c 61  74 65 22 2c 2c 22 3c 53  |enTemplate",,"<S|
00000520  54 72 61 63 6b 65 72 24  44 69 72 3e 2e 54 65 6d  |Tracker$Dir>.Tem|
00000530  70 6c 61 74 65 73 22 0d  02 c6 4a c8 99 20 22 57  |plates"...J.. "W|
00000540  69 6d 70 5f 4c 6f 61 64  54 65 6d 70 6c 61 74 65  |imp_LoadTemplate|
00000550  22 2c 2c 77 69 6e 64 6f  77 2b 34 2c 77 69 6e 64  |",,window+4,wind|
00000560  6f 77 2b 35 31 32 2c 77  69 6e 64 6f 77 2b 37 36  |ow+512,window+76|
00000570  38 2c 2d 31 2c 22 70 72  6f 67 49 6e 66 6f 22 2c  |8,-1,"progInfo",|
00000580  30 0d 02 d0 2e c8 99 20  22 57 69 6d 70 5f 43 72  |0...... "Wimp_Cr|
00000590  65 61 74 65 57 69 6e 64  6f 77 22 2c 2c 77 69 6e  |eateWindow",,win|
000005a0  64 6f 77 2b 34 20 b8 20  21 77 69 6e 64 6f 77 0d  |dow+4 . !window.|
000005b0  02 da 4a c8 99 20 22 57  69 6d 70 5f 4c 6f 61 64  |..J.. "Wimp_Load|
000005c0  54 65 6d 70 6c 61 74 65  22 2c 2c 77 69 6e 64 6f  |Template",,windo|
000005d0  77 2b 33 36 2c 77 69 6e  64 6f 77 2b 32 35 36 2c  |w+36,window+256,|
000005e0  77 69 6e 64 6f 77 2b 35  30 38 2c 2d 31 2c 22 63  |window+508,-1,"c|
000005f0  6f 70 79 62 6f 78 22 2c  30 0d 02 e4 1b c8 99 20  |opybox",0...... |
00000600  22 57 69 6d 70 5f 43 6c  6f 73 65 54 65 6d 70 6c  |"Wimp_CloseTempl|
00000610  61 74 65 22 0d 02 ee 05  e1 0d 02 f8 04 0d 03 02  |ate"............|
00000620  0b dd f2 6d 6f 75 73 65  0d 03 0c 12 c8 8e 20 72  |...mouse...... r|
00000630  65 73 75 6c 74 21 31 32  20 ca 0d 03 16 29 20 20  |esult!12 ....)  |
00000640  c9 20 2d 32 20 3a 20 e7  20 28 72 65 73 75 6c 74  |. -2 : . (result|
00000650  21 38 20 80 20 32 29 3d  32 20 8c 20 f2 69 62 6d  |!8 . 2)=2 . .ibm|
00000660  65 6e 75 0d 03 20 45 20  20 20 20 20 20 20 20 20  |enu.. E         |
00000670  20 20 20 e7 20 28 72 65  73 75 6c 74 21 38 20 80  |   . (result!8 .|
00000680  20 34 29 3d 34 20 8c 20  c8 99 20 22 57 69 6d 70  | 4)=4 . .. "Wimp|
00000690  5f 53 74 61 72 74 54 61  73 6b 22 2c 22 50 6c 61  |_StartTask","Pla|
000006a0  79 53 74 61 74 75 73 22  0d 03 2a 09 20 20 7f 20  |yStatus"..*.  . |
000006b0  3a 0d 03 34 05 cb 0d 03  3e 05 e1 0d 03 48 04 0d  |:..4....>....H..|
000006c0  03 52 26 dd f2 6d 65 6e  75 68 65 61 64 65 72 28  |.R&..menuheader(|
000006d0  70 6f 69 6e 74 65 72 2c  77 69 64 74 68 2c 74 69  |pointer,width,ti|
000006e0  74 6c 65 24 29 0d 03 5c  17 6d 65 6e 75 70 6f 69  |tle$)..\.menupoi|
000006f0  6e 74 65 72 3d 70 6f 69  6e 74 65 72 0d 03 66 1c  |nter=pointer..f.|
00000700  24 6d 65 6e 75 70 6f 69  6e 74 65 72 3d 74 69 74  |$menupointer=tit|
00000710  6c 65 24 2b bd 28 30 29  0d 03 70 14 6d 65 6e 75  |le$+.(0)..p.menu|
00000720  70 6f 69 6e 74 65 72 3f  31 32 3d 37 0d 03 7a 14  |pointer?12=7..z.|
00000730  6d 65 6e 75 70 6f 69 6e  74 65 72 3f 31 33 3d 32  |menupointer?13=2|
00000740  0d 03 84 14 6d 65 6e 75  70 6f 69 6e 74 65 72 3f  |....menupointer?|
00000750  31 34 3d 37 0d 03 8e 14  6d 65 6e 75 70 6f 69 6e  |14=7....menupoin|
00000760  74 65 72 3f 31 35 3d 30  0d 03 98 18 6d 65 6e 75  |ter?15=0....menu|
00000770  70 6f 69 6e 74 65 72 21  31 36 3d 77 69 64 74 68  |pointer!16=width|
00000780  0d 03 a2 15 6d 65 6e 75  70 6f 69 6e 74 65 72 21  |....menupointer!|
00000790  32 30 3d 34 34 0d 03 ac  14 6d 65 6e 75 70 6f 69  |20=44....menupoi|
000007a0  6e 74 65 72 21 32 34 3d  30 0d 03 b6 13 6d 65 6e  |nter!24=0....men|
000007b0  75 70 6f 69 6e 74 65 72  2b 3d 32 38 0d 03 c0 05  |upointer+=28....|
000007c0  e1 0d 03 ca 04 0d 03 d4  27 dd f2 6d 65 6e 75 69  |........'..menui|
000007d0  74 65 6d 28 73 75 62 6d  2c 66 6c 61 67 73 2c 74  |tem(subm,flags,t|
000007e0  66 6c 61 67 73 2c 74 65  78 74 24 29 0d 03 de 17  |flags,text$)....|
000007f0  6d 65 6e 75 70 6f 69 6e  74 65 72 21 30 3d 66 6c  |menupointer!0=fl|
00000800  61 67 73 0d 03 e8 16 6d  65 6e 75 70 6f 69 6e 74  |ags....menupoint|
00000810  65 72 21 34 3d 73 75 62  6d 0d 03 f2 18 6d 65 6e  |er!4=subm....men|
00000820  75 70 6f 69 6e 74 65 72  21 38 3d 74 66 6c 61 67  |upointer!8=tflag|
00000830  73 0d 03 fc 17 6e 61 6d  65 3d 6d 65 6e 75 70 6f  |s....name=menupo|
00000840  69 6e 74 65 72 2b 31 32  0d 04 06 14 24 6e 61 6d  |inter+12....$nam|
00000850  65 3d 74 65 78 74 24 2b  bd 28 30 29 0d 04 10 13  |e=text$+.(0)....|
00000860  6d 65 6e 75 70 6f 69 6e  74 65 72 2b 3d 32 34 0d  |menupointer+=24.|
00000870  04 1a 05 e1 0d 04 24 04  0d 04 2e 0c dd f2 69 62  |......$.......ib|
00000880  6d 65 6e 75 0d 04 38 24  f2 6d 65 6e 75 68 65 61  |menu..8$.menuhea|
00000890  64 65 72 28 6d 65 6e 75  2c 32 31 30 2c 22 53 54  |der(menu,210,"ST|
000008a0  72 61 63 6b 65 72 22 29  0d 04 42 28 f2 6d 65 6e  |racker")..B(.men|
000008b0  75 69 74 65 6d 28 21 77  69 6e 64 6f 77 2c 30 2c  |uitem(!window,0,|
000008c0  26 37 30 30 30 30 33 31  2c 22 49 6e 66 6f 22 29  |&7000031,"Info")|
000008d0  0d 04 4c 2b f2 6d 65 6e  75 69 74 65 6d 28 2d 31  |..L+.menuitem(-1|
000008e0  2c 30 2c 26 37 30 30 30  30 33 31 2c 22 49 6e 66  |,0,&7000031,"Inf|
000008f0  6f 20 6f 6e 20 74 75 6e  65 22 29 0d 04 56 2b f2  |o on tune")..V+.|
00000900  6d 65 6e 75 69 74 65 6d  28 2d 31 2c 30 2c 26 37  |menuitem(-1,0,&7|
00000910  30 30 30 30 33 31 2c 22  53 74 6f 70 20 70 6c 61  |000031,"Stop pla|
00000920  79 69 6e 67 22 29 0d 04  60 26 f2 6d 65 6e 75 69  |ying")..`&.menui|
00000930  74 65 6d 28 2d 31 2c 31  3c 3c 37 2c 26 37 30 30  |tem(-1,1<<7,&700|
00000940  30 30 33 31 2c 22 51 75  69 74 22 29 0d 04 6a 32  |0031,"Quit")..j2|
00000950  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |.. "Wimp_CreateM|
00000960  65 6e 75 22 2c 2c 6d 65  6e 75 2c 72 65 73 75 6c  |enu",,menu,resul|
00000970  74 21 30 2d 36 34 2c 39  36 2b 34 2a 34 34 0d 04  |t!0-64,96+4*44..|
00000980  74 0f 77 68 69 63 68 6d  65 6e 75 3d 31 0d 04 7e  |t.whichmenu=1..~|
00000990  05 e1 0d 04 88 04 0d 04  92 10 dd f2 64 65 63 6f  |............deco|
000009a0  64 65 6d 65 6e 75 0d 04  9c 12 c8 8e 20 77 68 69  |demenu...... whi|
000009b0  63 68 6d 65 6e 75 20 ca  0d 04 a6 19 20 20 c9 20  |chmenu .....  . |
000009c0  31 20 3a 20 c8 8e 20 72  65 73 75 6c 74 21 30 20  |1 : .. result!0 |
000009d0  ca 0d 04 b0 2e 20 20 20  20 c9 20 31 20 3a 20 c8  |.....    . 1 : .|
000009e0  99 20 22 57 69 6d 70 5f  53 74 61 72 74 54 61 73  |. "Wimp_StartTas|
000009f0  6b 22 2c 22 50 6c 61 79  53 74 61 74 75 73 22 0d  |k","PlayStatus".|
00000a00  04 ba 2c 20 20 20 20 c9  20 32 20 3a 20 c8 99 20  |..,    . 2 : .. |
00000a10  22 57 69 6d 70 5f 53 74  61 72 74 54 61 73 6b 22  |"Wimp_StartTask"|
00000a20  2c 22 50 6c 61 79 53 74  6f 70 22 0d 04 c4 14 20  |,"PlayStop".... |
00000a30  20 20 20 c9 20 33 20 3a  20 65 78 69 74 3d b9 0d  |   . 3 : exit=..|
00000a40  04 ce 0b 20 20 20 20 7f  20 3a 0d 04 d8 07 20 20  |...    . :....  |
00000a50  cb 0d 04 e2 1e 20 20 c9  20 32 20 3a 20 f2 64 6f  |.....  . 2 : .do|
00000a60  74 68 69 6e 67 28 72 65  73 75 6c 74 21 30 29 0d  |thing(result!0).|
00000a70  04 ec 09 20 20 7f 20 3a  0d 04 f6 05 cb 0d 05 00  |...  . :........|
00000a80  24 c8 99 20 22 57 69 6d  70 5f 47 65 74 50 6f 69  |$.. "Wimp_GetPoi|
00000a90  6e 74 65 72 49 6e 66 6f  22 2c 2c 6d 69 73 63 77  |nterInfo",,miscw|
00000aa0  73 0d 05 0a 27 e7 20 28  6d 69 73 63 77 73 21 38  |s...'. (miscws!8|
00000ab0  20 80 20 31 29 3d 31 20  8c 20 c8 8e 20 77 68 69  | . 1)=1 . .. whi|
00000ac0  63 68 6d 65 6e 75 20 ca  0d 05 14 13 20 20 c9 20  |chmenu .....  . |
00000ad0  31 20 3a 20 f2 69 62 6d  65 6e 75 0d 05 1e 08 20  |1 : .ibmenu.... |
00000ae0  20 7f 3a 0d 05 28 05 cb  0d 05 32 05 e1 0d 05 3c  | .:..(....2....<|
00000af0  04 0d 05 46 0d dd f2 6d  65 73 73 61 67 65 0d 05  |...F...message..|
00000b00  50 12 c8 8e 20 72 65 73  75 6c 74 21 31 36 20 ca  |P... result!16 .|
00000b10  0d 05 5a 12 20 20 c9 20  30 20 3a 20 65 78 69 74  |..Z.  . 0 : exit|
00000b20  3d b9 0d 05 64 15 20 20  c9 20 31 20 3a 20 f2 64  |=...d.  . 1 : .d|
00000b30  61 74 61 73 61 76 65 0d  05 6e 15 20 20 c9 20 33  |atasave..n.  . 3|
00000b40  20 3a 20 f2 66 69 6c 65  64 72 6f 70 0d 05 78 15  | : .filedrop..x.|
00000b50  20 20 c9 20 35 20 3a 20  f2 66 69 6c 65 64 72 6f  |  . 5 : .filedro|
00000b60  70 0d 05 82 14 20 20 c9  20 26 35 30 32 20 3a 20  |p....  . &502 : |
00000b70  f2 68 65 6c 70 0d 05 8c  09 20 20 7f 20 3a 0d 05  |.help....  . :..|
00000b80  96 05 cb 0d 05 a0 05 e1  0d 05 aa 04 0d 05 b4 0a  |................|
00000b90  dd f2 68 65 6c 70 0d 05  be 13 73 65 6e 64 74 6f  |..help....sendto|
00000ba0  3d 72 65 73 75 6c 74 21  34 0d 05 c8 27 6c 65 6e  |=result!4...'len|
00000bb0  67 74 68 3d a8 28 28 a9  28 68 65 6c 70 6d 65 73  |gth=.((.(helpmes|
00000bc0  73 61 67 65 24 29 2b 31  29 2f 34 2b 31 29 2a 34  |sage$)+1)/4+1)*4|
00000bd0  0d 05 d2 16 72 65 73 75  6c 74 21 30 3d 6c 65 6e  |....result!0=len|
00000be0  67 74 68 2b 32 30 0d 05  dc 17 72 65 73 75 6c 74  |gth+20....result|
00000bf0  21 34 3d 74 61 73 6b 68  61 6e 64 6c 65 0d 05 e6  |!4=taskhandle...|
00000c00  16 72 65 73 75 6c 74 21  31 32 3d 72 65 73 75 6c  |.result!12=resul|
00000c10  74 21 38 0d 05 f0 0e 72  65 73 75 6c 74 21 38 3d  |t!8....result!8=|
00000c20  31 0d 05 fa 12 72 65 73  75 6c 74 21 31 36 3d 26  |1....result!16=&|
00000c30  35 30 33 0d 06 04 1d 24  28 72 65 73 75 6c 74 2b  |503....$(result+|
00000c40  32 30 29 3d 68 65 6c 70  6d 65 73 73 61 67 65 24  |20)=helpmessage$|
00000c50  0d 06 0e 21 72 65 73 75  6c 74 3f 28 a9 28 68 65  |...!result?(.(he|
00000c60  6c 70 6d 65 73 73 61 67  65 24 29 2b 32 31 29 3d  |lpmessage$)+21)=|
00000c70  30 0d 06 18 2a c8 99 20  22 57 69 6d 70 5f 53 65  |0...*.. "Wimp_Se|
00000c80  6e 64 4d 65 73 73 61 67  65 22 2c 31 37 2c 72 65  |ndMessage",17,re|
00000c90  73 75 6c 74 2c 73 65 6e  64 74 6f 0d 06 22 05 e1  |sult,sendto.."..|
00000ca0  0d 06 2c 04 0d 06 36 11  dd f2 65 28 6e 75 6d 2c  |..,...6...e(num,|
00000cb0  6e 75 6d 6d 29 0d 06 40  11 72 65 73 75 6c 74 21  |numm)..@.result!|
00000cc0  30 3d 6e 75 6d 6d 0d 06  4a 6f f4 24 28 72 65 73  |0=numm..Jo.$(res|
00000cd0  75 6c 74 2b 34 29 3d 22  45 72 72 6f 72 20 28 69  |ult+4)="Error (i|
00000ce0  6e 74 65 72 6e 61 6c 20  65 72 72 6f 72 20 63 6f  |nternal error co|
00000cf0  64 65 20 22 2b 53 54 52  24 28 6e 75 6d 29 2b 22  |de "+STR$(num)+"|
00000d00  29 20 43 6c 69 63 6b 20  4f 4b 20 74 6f 20 63 6f  |) Click OK to co|
00000d10  6e 74 69 6e 75 65 20 6f  72 20 43 61 6e 63 65 6c  |ntinue or Cancel|
00000d20  20 74 6f 20 71 75 69 74  20 61 70 70 6c 69 63 61  | to quit applica|
00000d30  74 69 6f 6e 22 0d 06 54  3c 24 28 72 65 73 75 6c  |tion"..T<$(resul|
00000d40  74 2b 34 29 3d 22 45 72  72 6f 72 20 28 69 6e 74  |t+4)="Error (int|
00000d50  65 72 6e 61 6c 20 65 72  72 6f 72 20 63 6f 64 65  |ernal error code|
00000d60  20 22 2b c3 28 6e 75 6d  29 2b 22 29 20 22 2b f6  | "+.(num)+") "+.|
00000d70  24 0d 06 5e 37 c8 99 20  22 57 69 6d 70 5f 52 65  |$..^7.. "Wimp_Re|
00000d80  70 6f 72 74 45 72 72 6f  72 22 2c 72 65 73 75 6c  |portError",resul|
00000d90  74 2c 25 30 31 31 2c 22  53 54 72 61 63 6b 65 72  |t,%011,"STracker|
00000da0  22 20 b8 20 2c 6e 75 6d  0d 06 68 0f e7 20 6e 75  |" . ,num..h.. nu|
00000db0  6d 20 3d 20 32 20 e0 0d  06 72 05 e1 0d 06 7c 04  |m = 2 ...r....|.|
00000dc0  0d 06 86 0e dd f2 66 69  6c 65 64 72 6f 70 0d 06  |......filedrop..|
00000dd0  90 22 e7 20 72 65 73 75  6c 74 21 34 30 3c 3e 73  |.". result!40<>s|
00000de0  74 72 61 63 6b 65 72 74  79 70 65 25 20 8c 20 e1  |trackertype% . .|
00000df0  0d 06 9a 0a 66 64 24 3d  22 22 0d 06 a4 0e 66 64  |....fd$=""....fd|
00000e00  63 68 61 72 24 3d 22 22  0d 06 ae 08 58 3d 34 34  |char$=""....X=44|
00000e10  0d 06 b8 1c c8 95 20 58  3c 32 35 36 20 80 20 66  |...... X<256 . f|
00000e20  64 63 68 61 72 24 3c 3e  bd 28 30 29 0d 06 c2 17  |dchar$<>.(0)....|
00000e30  66 64 63 68 61 72 24 3d  bd 28 72 65 73 75 6c 74  |fdchar$=.(result|
00000e40  21 58 29 0d 06 cc 08 58  2b 3d 31 0d 06 d6 10 66  |!X)....X+=1....f|
00000e50  64 24 2b 3d 66 64 63 68  61 72 24 0d 06 e0 05 ce  |d$+=fdchar$.....|
00000e60  0d 06 ea 12 f2 70 6c 61  79 66 69 6c 65 28 66 64  |.....playfile(fd|
00000e70  24 29 0d 06 f4 16 72 65  73 75 6c 74 21 31 32 3d  |$)....result!12=|
00000e80  72 65 73 75 6c 74 21 38  0d 06 fe 0f 72 65 73 75  |result!8....resu|
00000e90  6c 74 21 31 36 3d 34 0d  07 08 10 72 65 73 75 6c  |lt!16=4....resul|
00000ea0  74 21 32 30 3d 2d 32 0d  07 12 16 72 65 73 75 6c  |t!20=-2....resul|
00000eb0  74 21 32 34 3d 69 62 68  61 6e 64 6c 65 0d 07 1c  |t!24=ibhandle...|
00000ec0  2c c8 99 20 22 57 69 6d  70 5f 53 65 6e 64 4d 65  |,.. "Wimp_SendMe|
00000ed0  73 73 61 67 65 22 2c 31  37 2c 72 65 73 75 6c 74  |ssage",17,result|
00000ee0  2c 72 65 73 75 6c 74 21  34 0d 07 1d 0d e7 20 73  |,result!4..... s|
00000ef0  63 72 61 70 20 8c 0d 07  1e 2f 20 20 c8 99 20 22  |crap ..../  .. "|
00000f00  57 69 6d 70 5f 53 74 61  72 74 54 61 73 6b 22 2c  |Wimp_StartTask",|
00000f10  22 44 65 6c 65 74 65 20  3c 57 69 6d 70 24 53 63  |"Delete <Wimp$Sc|
00000f20  72 61 70 3e 22 0d 07 1f  0d 20 20 73 63 72 61 70  |rap>"....  scrap|
00000f30  3d a3 0d 07 20 05 cd 0d  07 26 05 e1 0d 07 30 04  |=... ....&....0.|
00000f40  0d 07 3a 43 f4 20 57 69  6d 70 5f 53 74 61 72 74  |..:C. Wimp_Start|
00000f50  54 61 73 6b 20 69 73 20  75 73 65 64 20 74 6f 20  |Task is used to |
00000f60  70 72 6f 74 65 63 74 20  74 68 65 20 70 72 6f 67  |protect the prog|
00000f70  72 61 6d 20 66 72 6f 6d  20 61 6e 79 20 65 72 72  |ram from any err|
00000f80  6f 72 73 0d 07 44 16 f4  20 77 68 69 63 68 20 6d  |ors..D.. which m|
00000f90  61 79 20 6f 63 63 75 72  2e 0d 07 4e 04 0d 07 58  |ay occur...N...X|
00000fa0  13 dd f2 70 6c 61 79 66  69 6c 65 28 70 66 24 29  |...playfile(pf$)|
00000fb0  0d 07 62 22 c8 99 20 22  57 69 6d 70 5f 53 74 61  |..b".. "Wimp_Sta|
00000fc0  72 74 54 61 73 6b 22 2c  22 50 6c 61 79 53 74 6f  |rtTask","PlaySto|
00000fd0  70 22 0d 07 6c 26 c8 99  20 22 57 69 6d 70 5f 53  |p"..l&.. "Wimp_S|
00000fe0  74 61 72 74 54 61 73 6b  22 2c 22 50 6c 61 79 4d  |tartTask","PlayM|
00000ff0  6f 64 20 22 2b 70 66 24  0d 07 76 05 e1 0d 07 80  |od "+pf$..v.....|
00001000  04 0d 07 8a 12 dd f2 63  68 65 63 6b 66 6f 72 66  |.......checkforf|
00001010  69 6c 65 0d 07 94 23 c8  99 20 22 4f 53 5f 47 65  |ile...#.. "OS_Ge|
00001020  74 45 6e 76 22 20 b8 20  63 6f 6d 6d 61 6e 64 73  |tEnv" . commands|
00001030  74 72 69 6e 67 24 0d 07  9e 21 49 25 3d a7 63 6f  |tring$...!I%=.co|
00001040  6d 6d 61 6e 64 73 74 72  69 6e 67 24 2c 22 20 2d  |mmandstring$," -|
00001050  71 75 69 74 20 22 29 0d  07 a8 0a e7 20 49 25 20  |quit ")..... I% |
00001060  8c 0d 07 b2 14 20 20 49  25 2b 3d a9 22 20 2d 71  |.....  I%+=." -q|
00001070  75 69 74 20 22 0d 07 bc  2a 20 20 c8 95 20 c1 63  |uit "...*  .. .c|
00001080  6f 6d 6d 61 6e 64 73 74  72 69 6e 67 24 2c 49 25  |ommandstring$,I%|
00001090  2c 31 29 3d 22 20 22 3a  49 25 2b 3d 31 3a ce 0d  |,1)=" ":I%+=1:..|
000010a0  07 c6 07 20 20 f5 0d 07  d0 28 20 20 20 20 49 25  |...  ....(    I%|
000010b0  3d a7 63 6f 6d 6d 61 6e  64 73 74 72 69 6e 67 24  |=.commandstring$|
000010c0  2b 22 20 22 2c 22 20 22  2c 49 25 2b 31 29 0d 07  |+" "," ",I%+1)..|
000010d0  da 2a 20 20 20 20 f5 49  25 2b 3d 31 3a fd c1 63  |.*    .I%+=1:..c|
000010e0  6f 6d 6d 61 6e 64 73 74  72 69 6e 67 24 2c 49 25  |ommandstring$,I%|
000010f0  2c 31 29 3c 3e 22 20 22  0d 07 e4 25 20 20 20 20  |,1)<>" "...%    |
00001100  66 69 6c 65 6e 61 6d 65  24 3d c1 63 6f 6d 6d 61  |filename$=.comma|
00001110  6e 64 73 74 72 69 6e 67  24 2c 49 25 29 0d 07 ee  |ndstring$,I%)...|
00001120  33 20 20 20 20 66 69 6c  65 6e 61 6d 65 24 3d c0  |3    filename$=.|
00001130  66 69 6c 65 6e 61 6d 65  24 2c a7 66 69 6c 65 6e  |filename$,.filen|
00001140  61 6d 65 24 2b 22 20 22  2c 22 20 22 29 2d 31 29  |ame$+" "," ")-1)|
00001150  0d 07 f8 19 20 20 20 20  e7 20 66 69 6c 65 6e 61  |....    . filena|
00001160  6d 65 24 3c 3e 22 22 20  8c 0d 08 02 1e 20 20 20  |me$<>"" .....   |
00001170  20 20 20 f2 70 6c 61 79  66 69 6c 65 28 66 69 6c  |   .playfile(fil|
00001180  65 6e 61 6d 65 24 29 0d  08 0c 09 20 20 20 20 cd  |ename$)....    .|
00001190  0d 08 16 14 20 20 fd 20  66 69 6c 65 6e 61 6d 65  |....  . filename|
000011a0  24 3d 22 22 0d 08 20 05  cd 0d 08 2a 05 e1 0d 08  |$="".. ....*....|
000011b0  34 04 0d 08 3e 0e dd f2  64 61 74 61 73 61 76 65  |4...>...datasave|
000011c0  0d 08 48 20 e7 20 72 65  73 75 6c 74 21 34 30 3c  |..H . result!40<|
000011d0  3e 73 74 72 61 63 6b 65  72 74 79 70 65 25 20 e1  |>strackertype% .|
000011e0  0d 08 49 14 e7 20 a4 77  69 6d 70 73 63 72 61 70  |..I.. .wimpscrap|
000011f0  3d a3 20 e1 0d 08 52 2e  72 65 73 75 6c 74 21 30  |=. ...R.result!0|
00001200  3d 28 a8 28 28 34 38 2b  a9 28 22 3c 57 69 6d 70  |=(.((48+.("<Wimp|
00001210  24 53 63 72 61 70 3e 22  29 29 2f 34 29 2b 31 29  |$Scrap>"))/4)+1)|
00001220  2a 34 0d 08 5c 16 72 65  73 75 6c 74 21 31 32 3d  |*4..\.result!12=|
00001230  72 65 73 75 6c 74 21 38  0d 08 66 0f 72 65 73 75  |result!8..f.resu|
00001240  6c 74 21 31 36 3d 32 0d  08 67 10 72 65 73 75 6c  |lt!16=2..g.resul|
00001250  74 21 33 36 3d 2d 31 0d  08 70 24 24 28 72 65 73  |t!36=-1..p$$(res|
00001260  75 6c 74 2b 34 34 29 3d  22 3c 57 69 6d 70 24 53  |ult+44)="<Wimp$S|
00001270  63 72 61 70 3e 22 2b bd  28 30 29 0d 08 7a 2c c8  |crap>"+.(0)..z,.|
00001280  99 20 22 57 69 6d 70 5f  53 65 6e 64 4d 65 73 73  |. "Wimp_SendMess|
00001290  61 67 65 22 2c 31 37 2c  72 65 73 75 6c 74 2c 72  |age",17,result,r|
000012a0  65 73 75 6c 74 21 34 0d  08 7b 0b 73 63 72 61 70  |esult!4..{.scrap|
000012b0  3d b9 0d 08 84 05 e1 0d  08 8e 04 0d 08 98 0f dd  |=...............|
000012c0  a4 77 69 6d 70 73 63 72  61 70 0d 08 a2 3a c8 99  |.wimpscrap...:..|
000012d0  20 22 58 4f 53 5f 52 65  61 64 56 61 72 56 61 6c  | "XOS_ReadVarVal|
000012e0  22 2c 22 57 69 6d 70 24  53 63 72 61 70 22 2c 6d  |","Wimp$Scrap",m|
000012f0  69 73 63 77 73 2c 2d 31  2c 30 2c 30 20 b8 20 2c  |iscws,-1,0,0 . ,|
00001300  2c 2c 77 73 0d 08 ac 0c  e7 20 77 73 3d 30 20 8c  |,,ws..... ws=0 .|
00001310  0d 08 b6 37 20 20 f2 72  65 70 6f 72 74 65 72 72  |...7  .reporterr|
00001320  6f 72 28 35 2c 22 57 69  6d 70 24 53 63 72 61 70  |or(5,"Wimp$Scrap|
00001330  20 69 73 20 6e 6f 74 20  64 65 66 69 6e 69 65 64  | is not definied|
00001340  22 2c 25 31 31 30 29 0d  08 c0 08 20 20 3d a3 0d  |",%110)....  =..|
00001350  08 ca 05 cc 0d 08 d4 08  20 20 3d b9 0d 08 de 05  |........  =.....|
00001360  cd 0d ff                                          |...|
00001363