� ><GuessType$Dir>.!RunImage

,� q% &100,q2% &1000, errblk% &100, b% 13
(
2� t 4:$t="TASK"
<+ș "Wimp_Initialise",200,!t,"GuessType"
Fver$="0.25  (5-Oct-90)"
P
fname$=""
Zdont$=""
d	t$=""
n
x0�_LoadTemplates("<GuessType$Dir>.Templates")
��_Menus
�
�_Install
�
�:� � ș "Wimp_ReportError",�_ErrBlk(�,�$),1,"GuessType"
�
��
�" ș "Wimp_Poll",1,q% � action%
� Ȏ action% �
�#  � 2: ș "Wimp_OpenWindow",,q%
�$  � 3: ș "Wimp_CloseWindow",,q%
�  � 6: �_Mouse(q%)
�  � 9: �_DecodeMenu(q%)
�  � 17,18: �_Message(q%)

 �

� �



"� �_Mouse(q%)

,mx%=q%!0

6my%=q%!4

@mb%=q%!8

JȎ q%!12 �

T	 � -2

^  Ȏ mb% �

h   � &02: menuicon%=q%!16

rE    ș "Wimp_CreateMenu",,iconmenu%,mx%-iconmenu%!16/2-24,96+2*44

|  �

� � typewin%

�  Ȏ q%!16 �

�
   � 4

�+    � type%<>-1 � fname$<>"" � t$<>"" �

�$     �("SetType "+fname$+" "+t$)

�	    �

�
   � 5

�"    � fname$<>"" � type%<>-1 �

�     �_GuessTypeGo(fname$)

�	    �

�  �

��

��

� �_DecodeMenu(q%)
Ȏ !q% �
& � 1: ș "Wimp_CloseDown":�
0�
:�
D
N� �_Message(q%)
XȎ q%!16 �
b � 0: ș "Wimp_CloseDown":�
l! � 3: �_File(�_String(q%+44))
v�
��
�
�� �_File(file$)
�7q%!12=q%!8:q%!16=4:ș "Wimp_SendMessage",17,q%,q%!4
�dont$=""
��_GuessTypeGo(file$)
��
�
�� �_GuessTypeGo(file$)
�� type$
�ș "Hourglass_On"
�fname$=file$
�type%=�_GuessType(file$)
)�_IconPutData(q2%,typewin%,2,file$,�)
� type%=-1 �
0 �_IconPutData(q2%,typewin%,3,"<Unknown>",�)
 �
* t$=�~type%
4 t$=�3-�(t$),"0")+t$
>3 type$=�_EnvVarVal("File$Type_"+t$)+" ("+t$+")"
H* �_IconPutData(q2%,typewin%,3,type$,�)
R dont$=dont$+"<"+t$+">"
\�
fș "Hourglass_Off"
pq%!0=typewin%
zș "Wimp_CloseWindow",,q%
�
�_Open
��
�
�� �_Install
�� sx%,sy%,sm%,px%,py%
�sprite$="!GuessType"
�text$="GuessType"
�+� sprite% (�(sprite$)+1),text% �(text$)
�$sprite%="S"+sprite$
�$text%=text$
�4ș "Wimp_SpriteOp",40,,sprite$ � ,,,sx%,sy%,,sm%
�8ș "OS_ReadModeVariable",sm%,4 � ,,px%: sx%=sx%<<px%
�8ș "OS_ReadModeVariable",sm%,5 � ,,py%: sy%=sy%<<py%
+� �(text$)*16>sx% � sx%=(�(text$)-4)*16

!q%=-1
/q%!4=0: q%!8=-64:q%!12=q%!4+sx%:q%!16=2+sy%
$q%!20=&1700210B
.q%!24=text%
8q%!28=sprite%
Bq%!32=�(text$)
L"ș "Wimp_CreateIcon",,q% � !q%
V�
`
j
� �_Menus
t� iconmenu% 28+2*24
~
�$iconmenu%="Guess"
�iconmenu%?12=7
�iconmenu%?13=2
�iconmenu%?14=7
�iconmenu%?15=0
�iconmenu%!16=�"Guess"*16+12
�iconmenu%!20=44
�iconmenu%!24=0
�iconmenu%!(28+0*24+0)=&00
�iconmenu%!(28+0*24+4)=info%
�#iconmenu%!(28+0*24+8)=&07000001
�"$(iconmenu%+28+0*24+12)="Info"
iconmenu%!(28+1*24+0)=&80

iconmenu%!(28+1*24+4)=-1
#iconmenu%!(28+1*24+8)=&07000001
"$(iconmenu%+28+1*24+12)="Quit"
(�
2
<� �_String(a%)
F.� b$:b$="": ȕ ?a%<>0:b$+=�?a%:a%+=1:�:=b$
P
Z� �_ErrBlk(err%,report$)
d5!errblk%=err%:$(errblk%+4)=report$+" at line "+Þ
n!errblk%?(4+�($(errblk%+4)))=0
x=errblk%
�:
�� �_GuessType(name$)
�<� f%,length%,n%,m%,in%,byte1%,byte2%,byte3%,byte4%,word%
�
� str$
�&ș "OS_File",5,name$ � ,,,,length%
�
�� Drawfile ?
�� �dont$,"<AFF>")=0 �
�- � �_FindString(name$,"Draw",0,0) � =&AFF
��
�
�� Maestro Tune ?
�� �dont$,"<AF1>")=0 �
0 � �_FindString(name$,"Maestro",0,0) � =&AF1
�

"� Outline Font ?
,� �dont$,"<FF6>")=0 �
6. � �_FindString(name$,"FONT",0,0)  � =&FF6
@�
J
T� GIF file ?
^� �dont$,"<695>")=0 �
h/ � �_FindString(name$,"GIF87a",0,0) � =&695
r�
|
�� Amiga IFF file ?
�� �dont$,"<693>")=0 �
�- � �_FindString(name$,"FORM",0,0) � =&693
��
�
�� Squeezed absolute code ?
�� �dont$,"<FF8>")=0 �
�6 � �_FindString(name$,�(225)+"rcc",-32,-6) � =&FF8
��
�
�� Sparkfile ?
�� �dont$,"<DDC>")=0 �
� f%=�(name$)
 � �#f%>=2 �
  byte1%=�#f%
  byte2%=�#f%
& �
0	 �#f%
:M � byte1%=&1a � (byte2%=130 � byte2%=131 � byte2%=136 � byte2%=8) � =&DDC
D�
N
X� Template file ?
b� �dont$,"<FEC>")=0 �
l: � �_FindString(name$,�255+�255+�255+�255,0,0) � =&FEC
v�
�
�� RMA Module ?
�� �dont$,"<FFA>")=0 �
� f%=�(name$)
�
 in%=�
� � �#f%>=28 �
�  in%=�
�  � n%=1 � 7
�   byte1%=�#f%
�   byte2%=�#f%
�   byte3%=�#f%
�   byte4%=�#f%
�?   word%=byte1% � (byte2%<<8) � (byte3%<<16) � (byte4%<<24)
&   � word%>=�#f% � word%<0 � in%=�

  � n%
 �
 	 �#f%
* � in% � =&FFA
4�
>
H� Rhapsody score ?
R� �dont$,"<C00>")=0 �
\- � �_FindString(name$,�(255),0,0) � =&C00
f�
p
z
� Basic ?
�� �dont$,"<FFB>")=0 �
�4 � �_FindString(name$,�(&0d)+�(&00),0,0) � =&FFB
��
�
�� RB picture ?
�� �dont$,"<D58>")=0 �
�- � �_FindString(name$,�(&0d),0,0) � =&D58
��
�
�� Armadeus sample ?
�� �dont$,"<D3C>")=0 �
�+ � �_FindString(name$,�(0),0,0) � =&D3C
��
	
	� Soundtracker Module ?
	� �dont$,"<001>")=0 �
	$< � �_FindString(name$,�&1a+�&1a+�&1a+�&1a,-4,-4) � =&001
	.�
	8
	B� ASCII Text ?
	L� �dont$,"<FFF>")=0 �
	V in%=�_Min(length%,100)
	`
 byte2%=0
	j f%=�(name$)
	t � n%=1 � in%
	~  byte1%=�#f%
	�,  � byte1%>=32 � byte1%<=126 � byte2%+=1
	�	 � n%
	�	 �#f%
	�# � byte2%>=(in%/100)*80 � =&FFF
	��
	�
	�=-1
	�:
	�-� �_FindString(file$,string$,start%,end%)
	�� in%,m%,n%,file%,str$
	�	in%=�
	�file%=�(file$)
&� start%<0 � start%=�#file%+start%

 � end%<0 � end%=�#file%+end%
� m%=start% � end%
 � m%>=0 � m%<=�#file%-1 �
(  �#file%=m%
2
  str$=""
<  � n%=1 � �(string$)
F%   � � �#file% � str$+=�(�#file%)
P
  � n%
Z  � str$=string$ � in%=�
d �
n� m%
x�#file%
�=in%
�:
�� �_Min(a,b)
�� a<b � =a � =b
�:
�� �_LoadTemplates(templ$)
�� indirect%,iptr%,iend%
�� indirect% &1100
�%iptr%=indirect%:iend%=iptr%+&1000
��_OpenTemplate(templ$)
�"�_LoadTemplate("progInfo",q2%)
�'ș "Wimp_CreateWindow",,q2% � info%
�!�_LoadTemplate("typewin",q2%)
*ș "Wimp_CreateWindow",,q2% � typewin%
�_CloseTemplate
%�_IconPutData(q2%,info%,4,ver$,0)
"�
,:
6� �_OpenTemplate(file$)
@!ș "Wimp_OpenTemplate",,file$
J�
T:
^� �_LoadTemplate(name$,b)
h� type%,pos%,x%
rKș "Wimp_LoadTemplate",,b,iptr%,iend%,-1,name$,0 � type%,,iptr%,,,,pos%
|�
�:
�� �_CloseTemplate
�ș "Wimp_CloseTemplate"
��
�:
�� �_Open
�q%!0=typewin%
� ș "Wimp_GetWindowState",,q%
�ș "Wimp_OpenWindow",,q%
��
�:
�7� �_IconPutData(q2%,whandle%,ihandle%,data$,redraw)
�q2%!0=whandle%
q2%!4=ihandle%
ș "Wimp_GetIconState",,q2%
$(q2%!28)=data$
&� redraw �
0=ș "Wimp_ForceRedraw",whandle%,q2%!8,q2%!12,q2%!16,q2%!20
:�
D�
N:
X*� �_IconGetData(q2%,whandle%,ihandle%)
bq2%!0=whandle%
lq2%!4=ihandle%
vș "Wimp_GetIconState",,q2%
�=$(q2%!28)
�:
�1� �_IconSetRadio(q2%,whandle%,ihandle%,stat%)
�� eor%,clear%
�q2%!0=whandle%
�q2%!4=ihandle%
�
� stat% �
� eor%=2^21
� clear%=2^21
��
� eor%=0
� clear%=2^21
��

q2%!8=eor%

q2%!12=clear%

ș "Wimp_SetIconState",,q2%

 ș "Wimp_GetIconState",,q2%

*=ș "Wimp_ForceRedraw",whandle%,q2%!8,q2%!12,q2%!16,q2%!20

4�

>:

H+� �_IconGetRadio(q2%,whandle%,ihandle%)

Rq2%!0=whandle%

\q2%!4=ihandle%

fș "Wimp_GetIconState",,q2%

p=(q2%!24) � (2^21)

z:

�� �_FileType(a$)

�� ftype%

� ș "OS_File",5,a$ � ,,ftype%

�=(ftype%>>8) � &FFF

�:

�� �_EnvVarVal(s$)

�
� nob%

�
� � � =""

�/ș "OS_ReadVarVal",s$,q2%,&100,0,0 � ,,nob%

�q2%?nob%=13

�	=$q2%

�:

�� �_CloseDown
ș "Wimp_CloseDown"
�
�
$
�

00000000  0d 00 0a 20 f4 20 3e 3c  47 75 65 73 73 54 79 70  |... . ><GuessTyp|
00000010  65 24 44 69 72 3e 2e 21  52 75 6e 49 6d 61 67 65  |e$Dir>.!RunImage|
00000020  0d 00 14 04 0d 00 1e 2c  de 20 71 25 20 26 31 30  |.......,. q% &10|
00000030  30 2c 71 32 25 20 26 31  30 30 30 2c 20 65 72 72  |0,q2% &1000, err|
00000040  62 6c 6b 25 20 26 31 30  30 2c 20 62 25 20 31 33  |blk% &100, b% 13|
00000050  0d 00 28 04 0d 00 32 13  de 20 74 20 34 3a 24 74  |..(...2.. t 4:$t|
00000060  3d 22 54 41 53 4b 22 0d  00 3c 2b c8 99 20 22 57  |="TASK"..<+.. "W|
00000070  69 6d 70 5f 49 6e 69 74  69 61 6c 69 73 65 22 2c  |imp_Initialise",|
00000080  32 30 30 2c 21 74 2c 22  47 75 65 73 73 54 79 70  |200,!t,"GuessTyp|
00000090  65 22 0d 00 46 1b 76 65  72 24 3d 22 30 2e 32 35  |e"..F.ver$="0.25|
000000a0  20 20 28 35 2d 4f 63 74  2d 39 30 29 22 0d 00 50  |  (5-Oct-90)"..P|
000000b0  0d 66 6e 61 6d 65 24 3d  22 22 0d 00 5a 0c 64 6f  |.fname$=""..Z.do|
000000c0  6e 74 24 3d 22 22 0d 00  64 09 74 24 3d 22 22 0d  |nt$=""..d.t$="".|
000000d0  00 6e 04 0d 00 78 30 f2  5f 4c 6f 61 64 54 65 6d  |.n...x0._LoadTem|
000000e0  70 6c 61 74 65 73 28 22  3c 47 75 65 73 73 54 79  |plates("<GuessTy|
000000f0  70 65 24 44 69 72 3e 2e  54 65 6d 70 6c 61 74 65  |pe$Dir>.Template|
00000100  73 22 29 0d 00 82 0b f2  5f 4d 65 6e 75 73 0d 00  |s")....._Menus..|
00000110  8c 0d f2 5f 49 6e 73 74  61 6c 6c 0d 00 96 04 0d  |..._Install.....|
00000120  00 a0 3a ee 20 85 20 c8  99 20 22 57 69 6d 70 5f  |..:. . .. "Wimp_|
00000130  52 65 70 6f 72 74 45 72  72 6f 72 22 2c a4 5f 45  |ReportError",._E|
00000140  72 72 42 6c 6b 28 9f 2c  f6 24 29 2c 31 2c 22 47  |rrBlk(.,.$),1,"G|
00000150  75 65 73 73 54 79 70 65  22 0d 00 aa 04 0d 00 b4  |uessType".......|
00000160  05 f5 0d 00 be 22 20 c8  99 20 22 57 69 6d 70 5f  |....." .. "Wimp_|
00000170  50 6f 6c 6c 22 2c 31 2c  71 25 20 b8 20 61 63 74  |Poll",1,q% . act|
00000180  69 6f 6e 25 0d 00 c8 11  20 c8 8e 20 61 63 74 69  |ion%.... .. acti|
00000190  6f 6e 25 20 ca 0d 00 d2  23 20 20 c9 20 32 3a 20  |on% ....#  . 2: |
000001a0  c8 99 20 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |.. "Wimp_OpenWin|
000001b0  64 6f 77 22 2c 2c 71 25  0d 00 dc 24 20 20 c9 20  |dow",,q%...$  . |
000001c0  33 3a 20 c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |3: .. "Wimp_Clos|
000001d0  65 57 69 6e 64 6f 77 22  2c 2c 71 25 0d 00 e6 16  |eWindow",,q%....|
000001e0  20 20 c9 20 36 3a 20 f2  5f 4d 6f 75 73 65 28 71  |  . 6: ._Mouse(q|
000001f0  25 29 0d 00 f0 1b 20 20  c9 20 39 3a 20 f2 5f 44  |%)....  . 9: ._D|
00000200  65 63 6f 64 65 4d 65 6e  75 28 71 25 29 0d 00 fa  |ecodeMenu(q%)...|
00000210  1c 20 20 c9 20 31 37 2c  31 38 3a 20 f2 5f 4d 65  |.  . 17,18: ._Me|
00000220  73 73 61 67 65 28 71 25  29 0d 01 04 06 20 cb 0d  |ssage(q%).... ..|
00000230  01 0e 07 fd 20 a3 0d 01  18 04 0d 01 22 11 dd 20  |.... .......".. |
00000240  f2 5f 4d 6f 75 73 65 28  71 25 29 0d 01 2c 0c 6d  |._Mouse(q%)..,.m|
00000250  78 25 3d 71 25 21 30 0d  01 36 0c 6d 79 25 3d 71  |x%=q%!0..6.my%=q|
00000260  25 21 34 0d 01 40 0c 6d  62 25 3d 71 25 21 38 0d  |%!4..@.mb%=q%!8.|
00000270  01 4a 0e c8 8e 20 71 25  21 31 32 20 ca 0d 01 54  |.J... q%!12 ...T|
00000280  09 20 c9 20 2d 32 0d 01  5e 0e 20 20 c8 8e 20 6d  |. . -2..^.  .. m|
00000290  62 25 20 ca 0d 01 68 1d  20 20 20 c9 20 26 30 32  |b% ...h.   . &02|
000002a0  3a 20 6d 65 6e 75 69 63  6f 6e 25 3d 71 25 21 31  |: menuicon%=q%!1|
000002b0  36 0d 01 72 45 20 20 20  20 c8 99 20 22 57 69 6d  |6..rE    .. "Wim|
000002c0  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 69  |p_CreateMenu",,i|
000002d0  63 6f 6e 6d 65 6e 75 25  2c 6d 78 25 2d 69 63 6f  |conmenu%,mx%-ico|
000002e0  6e 6d 65 6e 75 25 21 31  36 2f 32 2d 32 34 2c 39  |nmenu%!16/2-24,9|
000002f0  36 2b 32 2a 34 34 0d 01  7c 07 20 20 cb 0d 01 86  |6+2*44..|.  ....|
00000300  0f 20 c9 20 74 79 70 65  77 69 6e 25 0d 01 90 10  |. . typewin%....|
00000310  20 20 c8 8e 20 71 25 21  31 36 20 ca 0d 01 9a 0a  |  .. q%!16 .....|
00000320  20 20 20 c9 20 34 0d 01  a4 2b 20 20 20 20 e7 20  |   . 4...+    . |
00000330  74 79 70 65 25 3c 3e 2d  31 20 80 20 66 6e 61 6d  |type%<>-1 . fnam|
00000340  65 24 3c 3e 22 22 20 80  20 74 24 3c 3e 22 22 20  |e$<>"" . t$<>"" |
00000350  8c 0d 01 ae 24 20 20 20  20 20 ff 28 22 53 65 74  |....$     .("Set|
00000360  54 79 70 65 20 22 2b 66  6e 61 6d 65 24 2b 22 20  |Type "+fname$+" |
00000370  22 2b 74 24 29 0d 01 b8  09 20 20 20 20 cd 0d 01  |"+t$)....    ...|
00000380  c2 0a 20 20 20 c9 20 35  0d 01 cc 22 20 20 20 20  |..   . 5..."    |
00000390  e7 20 66 6e 61 6d 65 24  3c 3e 22 22 20 80 20 74  |. fname$<>"" . t|
000003a0  79 70 65 25 3c 3e 2d 31  20 8c 0d 01 d6 1e 20 20  |ype%<>-1 .....  |
000003b0  20 20 20 f2 5f 47 75 65  73 73 54 79 70 65 47 6f  |   ._GuessTypeGo|
000003c0  28 66 6e 61 6d 65 24 29  0d 01 e0 09 20 20 20 20  |(fname$)....    |
000003d0  cd 0d 01 ea 07 20 20 cb  0d 01 f4 05 cb 0d 01 fe  |.....  .........|
000003e0  05 e1 0d 02 08 04 0d 02  12 16 dd 20 f2 5f 44 65  |........... ._De|
000003f0  63 6f 64 65 4d 65 6e 75  28 71 25 29 0d 02 1c 0c  |codeMenu(q%)....|
00000400  c8 8e 20 21 71 25 20 ca  0d 02 26 1f 20 c9 20 31  |.. !q% ...&. . 1|
00000410  3a 20 c8 99 20 22 57 69  6d 70 5f 43 6c 6f 73 65  |: .. "Wimp_Close|
00000420  44 6f 77 6e 22 3a e0 0d  02 30 05 cb 0d 02 3a 05  |Down":...0....:.|
00000430  e1 0d 02 44 04 0d 02 4e  13 dd 20 f2 5f 4d 65 73  |...D...N.. ._Mes|
00000440  73 61 67 65 28 71 25 29  0d 02 58 0e c8 8e 20 71  |sage(q%)..X... q|
00000450  25 21 31 36 20 ca 0d 02  62 1f 20 c9 20 30 3a 20  |%!16 ...b. . 0: |
00000460  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 44 6f  |.. "Wimp_CloseDo|
00000470  77 6e 22 3a e0 0d 02 6c  21 20 c9 20 33 3a 20 f2  |wn":...l! . 3: .|
00000480  5f 46 69 6c 65 28 a4 5f  53 74 72 69 6e 67 28 71  |_File(._String(q|
00000490  25 2b 34 34 29 29 0d 02  76 05 cb 0d 02 80 05 e1  |%+44))..v.......|
000004a0  0d 02 8a 04 0d 02 94 13  dd 20 f2 5f 46 69 6c 65  |......... ._File|
000004b0  28 66 69 6c 65 24 29 0d  02 9e 37 71 25 21 31 32  |(file$)...7q%!12|
000004c0  3d 71 25 21 38 3a 71 25  21 31 36 3d 34 3a c8 99  |=q%!8:q%!16=4:..|
000004d0  20 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  | "Wimp_SendMessa|
000004e0  67 65 22 2c 31 37 2c 71  25 2c 71 25 21 34 0d 02  |ge",17,q%,q%!4..|
000004f0  a8 0c 64 6f 6e 74 24 3d  22 22 0d 02 b2 18 f2 5f  |..dont$=""....._|
00000500  47 75 65 73 73 54 79 70  65 47 6f 28 66 69 6c 65  |GuessTypeGo(file|
00000510  24 29 0d 02 bc 05 e1 0d  02 c6 04 0d 02 d0 1a dd  |$)..............|
00000520  20 f2 5f 47 75 65 73 73  54 79 70 65 47 6f 28 66  | ._GuessTypeGo(f|
00000530  69 6c 65 24 29 0d 02 da  0b ea 20 74 79 70 65 24  |ile$)..... type$|
00000540  0d 02 e4 15 c8 99 20 22  48 6f 75 72 67 6c 61 73  |...... "Hourglas|
00000550  73 5f 4f 6e 22 0d 02 ee  10 66 6e 61 6d 65 24 3d  |s_On"....fname$=|
00000560  66 69 6c 65 24 0d 02 f8  1c 74 79 70 65 25 3d a4  |file$....type%=.|
00000570  5f 47 75 65 73 73 54 79  70 65 28 66 69 6c 65 24  |_GuessType(file$|
00000580  29 0d 03 02 29 f2 5f 49  63 6f 6e 50 75 74 44 61  |)...)._IconPutDa|
00000590  74 61 28 71 32 25 2c 74  79 70 65 77 69 6e 25 2c  |ta(q2%,typewin%,|
000005a0  32 2c 66 69 6c 65 24 2c  a3 29 0d 03 0c 10 e7 20  |2,file$,.)..... |
000005b0  74 79 70 65 25 3d 2d 31  20 8c 0d 03 16 30 20 f2  |type%=-1 ....0 .|
000005c0  5f 49 63 6f 6e 50 75 74  44 61 74 61 28 71 32 25  |_IconPutData(q2%|
000005d0  2c 74 79 70 65 77 69 6e  25 2c 33 2c 22 3c 55 6e  |,typewin%,3,"<Un|
000005e0  6b 6e 6f 77 6e 3e 22 2c  a3 29 0d 03 20 05 cc 0d  |known>",.).. ...|
000005f0  03 2a 0f 20 74 24 3d c3  7e 74 79 70 65 25 0d 03  |.*. t$=.~type%..|
00000600  34 18 20 74 24 3d c4 33  2d a9 28 74 24 29 2c 22  |4. t$=.3-.(t$),"|
00000610  30 22 29 2b 74 24 0d 03  3e 33 20 74 79 70 65 24  |0")+t$..>3 type$|
00000620  3d a4 5f 45 6e 76 56 61  72 56 61 6c 28 22 46 69  |=._EnvVarVal("Fi|
00000630  6c 65 24 54 79 70 65 5f  22 2b 74 24 29 2b 22 20  |le$Type_"+t$)+" |
00000640  28 22 2b 74 24 2b 22 29  22 0d 03 48 2a 20 f2 5f  |("+t$+")"..H* ._|
00000650  49 63 6f 6e 50 75 74 44  61 74 61 28 71 32 25 2c  |IconPutData(q2%,|
00000660  74 79 70 65 77 69 6e 25  2c 33 2c 74 79 70 65 24  |typewin%,3,type$|
00000670  2c a3 29 0d 03 52 1b 20  64 6f 6e 74 24 3d 64 6f  |,.)..R. dont$=do|
00000680  6e 74 24 2b 22 3c 22 2b  74 24 2b 22 3e 22 0d 03  |nt$+"<"+t$+">"..|
00000690  5c 05 cd 0d 03 66 16 c8  99 20 22 48 6f 75 72 67  |\....f... "Hourg|
000006a0  6c 61 73 73 5f 4f 66 66  22 0d 03 70 11 71 25 21  |lass_Off"..p.q%!|
000006b0  30 3d 74 79 70 65 77 69  6e 25 0d 03 7a 1d c8 99  |0=typewin%..z...|
000006c0  20 22 57 69 6d 70 5f 43  6c 6f 73 65 57 69 6e 64  | "Wimp_CloseWind|
000006d0  6f 77 22 2c 2c 71 25 0d  03 84 0a f2 5f 4f 70 65  |ow",,q%....._Ope|
000006e0  6e 0d 03 8e 05 e1 0d 03  98 04 0d 03 a2 0f dd 20  |n.............. |
000006f0  f2 5f 49 6e 73 74 61 6c  6c 0d 03 ac 19 ea 20 73  |._Install..... s|
00000700  78 25 2c 73 79 25 2c 73  6d 25 2c 70 78 25 2c 70  |x%,sy%,sm%,px%,p|
00000710  79 25 0d 03 b6 18 73 70  72 69 74 65 24 3d 22 21  |y%....sprite$="!|
00000720  47 75 65 73 73 54 79 70  65 22 0d 03 c0 15 74 65  |GuessType"....te|
00000730  78 74 24 3d 22 47 75 65  73 73 54 79 70 65 22 0d  |xt$="GuessType".|
00000740  03 ca 2b de 20 73 70 72  69 74 65 25 20 28 a9 28  |..+. sprite% (.(|
00000750  73 70 72 69 74 65 24 29  2b 31 29 2c 74 65 78 74  |sprite$)+1),text|
00000760  25 20 a9 28 74 65 78 74  24 29 0d 03 d4 18 24 73  |% .(text$)....$s|
00000770  70 72 69 74 65 25 3d 22  53 22 2b 73 70 72 69 74  |prite%="S"+sprit|
00000780  65 24 0d 03 de 10 24 74  65 78 74 25 3d 74 65 78  |e$....$text%=tex|
00000790  74 24 0d 03 e8 34 c8 99  20 22 57 69 6d 70 5f 53  |t$...4.. "Wimp_S|
000007a0  70 72 69 74 65 4f 70 22  2c 34 30 2c 2c 73 70 72  |priteOp",40,,spr|
000007b0  69 74 65 24 20 b8 20 2c  2c 2c 73 78 25 2c 73 79  |ite$ . ,,,sx%,sy|
000007c0  25 2c 2c 73 6d 25 0d 03  f2 38 c8 99 20 22 4f 53  |%,,sm%...8.. "OS|
000007d0  5f 52 65 61 64 4d 6f 64  65 56 61 72 69 61 62 6c  |_ReadModeVariabl|
000007e0  65 22 2c 73 6d 25 2c 34  20 b8 20 2c 2c 70 78 25  |e",sm%,4 . ,,px%|
000007f0  3a 20 73 78 25 3d 73 78  25 3c 3c 70 78 25 0d 03  |: sx%=sx%<<px%..|
00000800  fc 38 c8 99 20 22 4f 53  5f 52 65 61 64 4d 6f 64  |.8.. "OS_ReadMod|
00000810  65 56 61 72 69 61 62 6c  65 22 2c 73 6d 25 2c 35  |eVariable",sm%,5|
00000820  20 b8 20 2c 2c 70 79 25  3a 20 73 79 25 3d 73 79  | . ,,py%: sy%=sy|
00000830  25 3c 3c 70 79 25 0d 04  06 2b e7 20 a9 28 74 65  |%<<py%...+. .(te|
00000840  78 74 24 29 2a 31 36 3e  73 78 25 20 8c 20 73 78  |xt$)*16>sx% . sx|
00000850  25 3d 28 a9 28 74 65 78  74 24 29 2d 34 29 2a 31  |%=(.(text$)-4)*1|
00000860  36 0d 04 10 0a 21 71 25  3d 2d 31 0d 04 1a 2f 71  |6....!q%=-1.../q|
00000870  25 21 34 3d 30 3a 20 71  25 21 38 3d 2d 36 34 3a  |%!4=0: q%!8=-64:|
00000880  71 25 21 31 32 3d 71 25  21 34 2b 73 78 25 3a 71  |q%!12=q%!4+sx%:q|
00000890  25 21 31 36 3d 32 2b 73  79 25 0d 04 24 13 71 25  |%!16=2+sy%..$.q%|
000008a0  21 32 30 3d 26 31 37 30  30 32 31 30 42 0d 04 2e  |!20=&1700210B...|
000008b0  0f 71 25 21 32 34 3d 74  65 78 74 25 0d 04 38 11  |.q%!24=text%..8.|
000008c0  71 25 21 32 38 3d 73 70  72 69 74 65 25 0d 04 42  |q%!28=sprite%..B|
000008d0  12 71 25 21 33 32 3d a9  28 74 65 78 74 24 29 0d  |.q%!32=.(text$).|
000008e0  04 4c 22 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |.L".. "Wimp_Crea|
000008f0  74 65 49 63 6f 6e 22 2c  2c 71 25 20 b8 20 21 71  |teIcon",,q% . !q|
00000900  25 0d 04 56 05 e1 0d 04  60 04 0d 04 6a 0d dd 20  |%..V....`...j.. |
00000910  f2 5f 4d 65 6e 75 73 0d  04 74 17 de 20 69 63 6f  |._Menus..t.. ico|
00000920  6e 6d 65 6e 75 25 20 32  38 2b 32 2a 32 34 0d 04  |nmenu% 28+2*24..|
00000930  7e 04 0d 04 88 16 24 69  63 6f 6e 6d 65 6e 75 25  |~.....$iconmenu%|
00000940  3d 22 47 75 65 73 73 22  0d 04 92 12 69 63 6f 6e  |="Guess"....icon|
00000950  6d 65 6e 75 25 3f 31 32  3d 37 0d 04 9c 12 69 63  |menu%?12=7....ic|
00000960  6f 6e 6d 65 6e 75 25 3f  31 33 3d 32 0d 04 a6 12  |onmenu%?13=2....|
00000970  69 63 6f 6e 6d 65 6e 75  25 3f 31 34 3d 37 0d 04  |iconmenu%?14=7..|
00000980  b0 12 69 63 6f 6e 6d 65  6e 75 25 3f 31 35 3d 30  |..iconmenu%?15=0|
00000990  0d 04 ba 1f 69 63 6f 6e  6d 65 6e 75 25 21 31 36  |....iconmenu%!16|
000009a0  3d a9 22 47 75 65 73 73  22 2a 31 36 2b 31 32 0d  |=."Guess"*16+12.|
000009b0  04 c4 13 69 63 6f 6e 6d  65 6e 75 25 21 32 30 3d  |...iconmenu%!20=|
000009c0  34 34 0d 04 ce 12 69 63  6f 6e 6d 65 6e 75 25 21  |44....iconmenu%!|
000009d0  32 34 3d 30 0d 04 d8 1d  69 63 6f 6e 6d 65 6e 75  |24=0....iconmenu|
000009e0  25 21 28 32 38 2b 30 2a  32 34 2b 30 29 3d 26 30  |%!(28+0*24+0)=&0|
000009f0  30 0d 04 e2 1f 69 63 6f  6e 6d 65 6e 75 25 21 28  |0....iconmenu%!(|
00000a00  32 38 2b 30 2a 32 34 2b  34 29 3d 69 6e 66 6f 25  |28+0*24+4)=info%|
00000a10  0d 04 ec 23 69 63 6f 6e  6d 65 6e 75 25 21 28 32  |...#iconmenu%!(2|
00000a20  38 2b 30 2a 32 34 2b 38  29 3d 26 30 37 30 30 30  |8+0*24+8)=&07000|
00000a30  30 30 31 0d 04 f6 22 24  28 69 63 6f 6e 6d 65 6e  |001..."$(iconmen|
00000a40  75 25 2b 32 38 2b 30 2a  32 34 2b 31 32 29 3d 22  |u%+28+0*24+12)="|
00000a50  49 6e 66 6f 22 0d 05 00  1d 69 63 6f 6e 6d 65 6e  |Info"....iconmen|
00000a60  75 25 21 28 32 38 2b 31  2a 32 34 2b 30 29 3d 26  |u%!(28+1*24+0)=&|
00000a70  38 30 0d 05 0a 1c 69 63  6f 6e 6d 65 6e 75 25 21  |80....iconmenu%!|
00000a80  28 32 38 2b 31 2a 32 34  2b 34 29 3d 2d 31 0d 05  |(28+1*24+4)=-1..|
00000a90  14 23 69 63 6f 6e 6d 65  6e 75 25 21 28 32 38 2b  |.#iconmenu%!(28+|
00000aa0  31 2a 32 34 2b 38 29 3d  26 30 37 30 30 30 30 30  |1*24+8)=&0700000|
00000ab0  31 0d 05 1e 22 24 28 69  63 6f 6e 6d 65 6e 75 25  |1..."$(iconmenu%|
00000ac0  2b 32 38 2b 31 2a 32 34  2b 31 32 29 3d 22 51 75  |+28+1*24+12)="Qu|
00000ad0  69 74 22 0d 05 28 05 e1  0d 05 32 04 0d 05 3c 12  |it"..(....2...<.|
00000ae0  dd 20 a4 5f 53 74 72 69  6e 67 28 61 25 29 0d 05  |. ._String(a%)..|
00000af0  46 2e ea 20 62 24 3a 62  24 3d 22 22 3a 20 c8 95  |F.. b$:b$="": ..|
00000b00  20 3f 61 25 3c 3e 30 3a  62 24 2b 3d bd 3f 61 25  | ?a%<>0:b$+=.?a%|
00000b10  3a 61 25 2b 3d 31 3a ce  3a 3d 62 24 0d 05 50 04  |:a%+=1:.:=b$..P.|
00000b20  0d 05 5a 1c dd 20 a4 5f  45 72 72 42 6c 6b 28 65  |..Z.. ._ErrBlk(e|
00000b30  72 72 25 2c 72 65 70 6f  72 74 24 29 0d 05 64 35  |rr%,report$)..d5|
00000b40  21 65 72 72 62 6c 6b 25  3d 65 72 72 25 3a 24 28  |!errblk%=err%:$(|
00000b50  65 72 72 62 6c 6b 25 2b  34 29 3d 72 65 70 6f 72  |errblk%+4)=repor|
00000b60  74 24 2b 22 20 61 74 20  6c 69 6e 65 20 22 2b c3  |t$+" at line "+.|
00000b70  9e 0d 05 6e 21 65 72 72  62 6c 6b 25 3f 28 34 2b  |...n!errblk%?(4+|
00000b80  a9 28 24 28 65 72 72 62  6c 6b 25 2b 34 29 29 29  |.($(errblk%+4)))|
00000b90  3d 30 0d 05 78 0c 3d 65  72 72 62 6c 6b 25 0d 05  |=0..x.=errblk%..|
00000ba0  82 05 3a 0d 05 8c 18 dd  20 a4 5f 47 75 65 73 73  |..:..... ._Guess|
00000bb0  54 79 70 65 28 6e 61 6d  65 24 29 0d 05 96 3c ea  |Type(name$)...<.|
00000bc0  20 66 25 2c 6c 65 6e 67  74 68 25 2c 6e 25 2c 6d  | f%,length%,n%,m|
00000bd0  25 2c 69 6e 25 2c 62 79  74 65 31 25 2c 62 79 74  |%,in%,byte1%,byt|
00000be0  65 32 25 2c 62 79 74 65  33 25 2c 62 79 74 65 34  |e2%,byte3%,byte4|
00000bf0  25 2c 77 6f 72 64 25 0d  05 a0 0a ea 20 73 74 72  |%,word%..... str|
00000c00  24 0d 05 aa 26 c8 99 20  22 4f 53 5f 46 69 6c 65  |$...&.. "OS_File|
00000c10  22 2c 35 2c 6e 61 6d 65  24 20 b8 20 2c 2c 2c 2c  |",5,name$ . ,,,,|
00000c20  6c 65 6e 67 74 68 25 0d  05 b4 04 0d 05 be 10 f4  |length%.........|
00000c30  20 44 72 61 77 66 69 6c  65 20 3f 0d 05 c8 19 e7  | Drawfile ?.....|
00000c40  20 a7 64 6f 6e 74 24 2c  22 3c 41 46 46 3e 22 29  | .dont$,"<AFF>")|
00000c50  3d 30 20 8c 0d 05 d2 2d  20 e7 20 a4 5f 46 69 6e  |=0 ....- . ._Fin|
00000c60  64 53 74 72 69 6e 67 28  6e 61 6d 65 24 2c 22 44  |dString(name$,"D|
00000c70  72 61 77 22 2c 30 2c 30  29 20 8c 20 3d 26 41 46  |raw",0,0) . =&AF|
00000c80  46 0d 05 dc 05 cd 0d 05  e6 04 0d 05 f0 14 f4 20  |F.............. |
00000c90  4d 61 65 73 74 72 6f 20  54 75 6e 65 20 3f 0d 05  |Maestro Tune ?..|
00000ca0  fa 19 e7 20 a7 64 6f 6e  74 24 2c 22 3c 41 46 31  |... .dont$,"<AF1|
00000cb0  3e 22 29 3d 30 20 8c 0d  06 04 30 20 e7 20 a4 5f  |>")=0 ....0 . ._|
00000cc0  46 69 6e 64 53 74 72 69  6e 67 28 6e 61 6d 65 24  |FindString(name$|
00000cd0  2c 22 4d 61 65 73 74 72  6f 22 2c 30 2c 30 29 20  |,"Maestro",0,0) |
00000ce0  8c 20 3d 26 41 46 31 0d  06 0e 05 cd 0d 06 18 04  |. =&AF1.........|
00000cf0  0d 06 22 14 f4 20 4f 75  74 6c 69 6e 65 20 46 6f  |..".. Outline Fo|
00000d00  6e 74 20 3f 0d 06 2c 19  e7 20 a7 64 6f 6e 74 24  |nt ?..,.. .dont$|
00000d10  2c 22 3c 46 46 36 3e 22  29 3d 30 20 8c 0d 06 36  |,"<FF6>")=0 ...6|
00000d20  2e 20 e7 20 a4 5f 46 69  6e 64 53 74 72 69 6e 67  |. . ._FindString|
00000d30  28 6e 61 6d 65 24 2c 22  46 4f 4e 54 22 2c 30 2c  |(name$,"FONT",0,|
00000d40  30 29 20 20 8c 20 3d 26  46 46 36 0d 06 40 05 cd  |0)  . =&FF6..@..|
00000d50  0d 06 4a 04 0d 06 54 10  f4 20 47 49 46 20 66 69  |..J...T.. GIF fi|
00000d60  6c 65 20 3f 0d 06 5e 19  e7 20 a7 64 6f 6e 74 24  |le ?..^.. .dont$|
00000d70  2c 22 3c 36 39 35 3e 22  29 3d 30 20 8c 0d 06 68  |,"<695>")=0 ...h|
00000d80  2f 20 e7 20 a4 5f 46 69  6e 64 53 74 72 69 6e 67  |/ . ._FindString|
00000d90  28 6e 61 6d 65 24 2c 22  47 49 46 38 37 61 22 2c  |(name$,"GIF87a",|
00000da0  30 2c 30 29 20 8c 20 3d  26 36 39 35 0d 06 72 05  |0,0) . =&695..r.|
00000db0  cd 0d 06 7c 04 0d 06 86  16 f4 20 41 6d 69 67 61  |...|...... Amiga|
00000dc0  20 49 46 46 20 66 69 6c  65 20 3f 0d 06 90 19 e7  | IFF file ?.....|
00000dd0  20 a7 64 6f 6e 74 24 2c  22 3c 36 39 33 3e 22 29  | .dont$,"<693>")|
00000de0  3d 30 20 8c 0d 06 9a 2d  20 e7 20 a4 5f 46 69 6e  |=0 ....- . ._Fin|
00000df0  64 53 74 72 69 6e 67 28  6e 61 6d 65 24 2c 22 46  |dString(name$,"F|
00000e00  4f 52 4d 22 2c 30 2c 30  29 20 8c 20 3d 26 36 39  |ORM",0,0) . =&69|
00000e10  33 0d 06 a4 05 cd 0d 06  ae 04 0d 06 b8 1e f4 20  |3.............. |
00000e20  53 71 75 65 65 7a 65 64  20 61 62 73 6f 6c 75 74  |Squeezed absolut|
00000e30  65 20 63 6f 64 65 20 3f  0d 06 c2 19 e7 20 a7 64  |e code ?..... .d|
00000e40  6f 6e 74 24 2c 22 3c 46  46 38 3e 22 29 3d 30 20  |ont$,"<FF8>")=0 |
00000e50  8c 0d 06 cc 36 20 e7 20  a4 5f 46 69 6e 64 53 74  |....6 . ._FindSt|
00000e60  72 69 6e 67 28 6e 61 6d  65 24 2c bd 28 32 32 35  |ring(name$,.(225|
00000e70  29 2b 22 72 63 63 22 2c  2d 33 32 2c 2d 36 29 20  |)+"rcc",-32,-6) |
00000e80  8c 20 3d 26 46 46 38 0d  06 d6 05 cd 0d 06 e0 04  |. =&FF8.........|
00000e90  0d 06 ea 11 f4 20 53 70  61 72 6b 66 69 6c 65 20  |..... Sparkfile |
00000ea0  3f 0d 06 f4 19 e7 20 a7  64 6f 6e 74 24 2c 22 3c  |?..... .dont$,"<|
00000eb0  44 44 43 3e 22 29 3d 30  20 8c 0d 06 fe 10 20 66  |DDC>")=0 ..... f|
00000ec0  25 3d 8e 28 6e 61 6d 65  24 29 0d 07 08 10 20 e7  |%=.(name$).... .|
00000ed0  20 a2 23 66 25 3e 3d 32  20 8c 0d 07 12 11 20 20  | .#f%>=2 .....  |
00000ee0  62 79 74 65 31 25 3d 9a  23 66 25 0d 07 1c 11 20  |byte1%=.#f%.... |
00000ef0  20 62 79 74 65 32 25 3d  9a 23 66 25 0d 07 26 06  | byte2%=.#f%..&.|
00000f00  20 cd 0d 07 30 09 20 d9  23 66 25 0d 07 3a 4d 20  | ...0. .#f%..:M |
00000f10  e7 20 62 79 74 65 31 25  3d 26 31 61 20 80 20 28  |. byte1%=&1a . (|
00000f20  62 79 74 65 32 25 3d 31  33 30 20 84 20 62 79 74  |byte2%=130 . byt|
00000f30  65 32 25 3d 31 33 31 20  84 20 62 79 74 65 32 25  |e2%=131 . byte2%|
00000f40  3d 31 33 36 20 84 20 62  79 74 65 32 25 3d 38 29  |=136 . byte2%=8)|
00000f50  20 8c 20 3d 26 44 44 43  0d 07 44 05 cd 0d 07 4e  | . =&DDC..D....N|
00000f60  04 0d 07 58 15 f4 20 54  65 6d 70 6c 61 74 65 20  |...X.. Template |
00000f70  66 69 6c 65 20 3f 0d 07  62 19 e7 20 a7 64 6f 6e  |file ?..b.. .don|
00000f80  74 24 2c 22 3c 46 45 43  3e 22 29 3d 30 20 8c 0d  |t$,"<FEC>")=0 ..|
00000f90  07 6c 3a 20 e7 20 a4 5f  46 69 6e 64 53 74 72 69  |.l: . ._FindStri|
00000fa0  6e 67 28 6e 61 6d 65 24  2c bd 32 35 35 2b bd 32  |ng(name$,.255+.2|
00000fb0  35 35 2b bd 32 35 35 2b  bd 32 35 35 2c 30 2c 30  |55+.255+.255,0,0|
00000fc0  29 20 8c 20 3d 26 46 45  43 0d 07 76 05 cd 0d 07  |) . =&FEC..v....|
00000fd0  80 04 0d 07 8a 12 f4 20  52 4d 41 20 4d 6f 64 75  |....... RMA Modu|
00000fe0  6c 65 20 3f 0d 07 94 19  e7 20 a7 64 6f 6e 74 24  |le ?..... .dont$|
00000ff0  2c 22 3c 46 46 41 3e 22  29 3d 30 20 8c 0d 07 9e  |,"<FFA>")=0 ....|
00001000  10 20 66 25 3d 8e 28 6e  61 6d 65 24 29 0d 07 a8  |. f%=.(name$)...|
00001010  0a 20 69 6e 25 3d a3 0d  07 b2 11 20 e7 20 a2 23  |. in%=..... . .#|
00001020  66 25 3e 3d 32 38 20 8c  0d 07 bc 0b 20 20 69 6e  |f%>=28 .....  in|
00001030  25 3d b9 0d 07 c6 10 20  20 e3 20 6e 25 3d 31 20  |%=.....  . n%=1 |
00001040  b8 20 37 0d 07 d0 12 20  20 20 62 79 74 65 31 25  |. 7....   byte1%|
00001050  3d 9a 23 66 25 0d 07 da  12 20 20 20 62 79 74 65  |=.#f%....   byte|
00001060  32 25 3d 9a 23 66 25 0d  07 e4 12 20 20 20 62 79  |2%=.#f%....   by|
00001070  74 65 33 25 3d 9a 23 66  25 0d 07 ee 12 20 20 20  |te3%=.#f%....   |
00001080  62 79 74 65 34 25 3d 9a  23 66 25 0d 07 f8 3f 20  |byte4%=.#f%...? |
00001090  20 20 77 6f 72 64 25 3d  62 79 74 65 31 25 20 84  |  word%=byte1% .|
000010a0  20 28 62 79 74 65 32 25  3c 3c 38 29 20 84 20 28  | (byte2%<<8) . (|
000010b0  62 79 74 65 33 25 3c 3c  31 36 29 20 84 20 28 62  |byte3%<<16) . (b|
000010c0  79 74 65 34 25 3c 3c 32  34 29 0d 08 02 26 20 20  |yte4%<<24)...&  |
000010d0  20 e7 20 77 6f 72 64 25  3e 3d a2 23 66 25 20 84  | . word%>=.#f% .|
000010e0  20 77 6f 72 64 25 3c 30  20 8c 20 69 6e 25 3d a3  | word%<0 . in%=.|
000010f0  0d 08 0c 0a 20 20 ed 20  6e 25 0d 08 16 06 20 cd  |....  . n%.... .|
00001100  0d 08 20 09 20 d9 23 66  25 0d 08 2a 12 20 e7 20  |.. . .#f%..*. . |
00001110  69 6e 25 20 8c 20 3d 26  46 46 41 0d 08 34 05 cd  |in% . =&FFA..4..|
00001120  0d 08 3e 04 0d 08 48 16  f4 20 52 68 61 70 73 6f  |..>...H.. Rhapso|
00001130  64 79 20 73 63 6f 72 65  20 3f 0d 08 52 19 e7 20  |dy score ?..R.. |
00001140  a7 64 6f 6e 74 24 2c 22  3c 43 30 30 3e 22 29 3d  |.dont$,"<C00>")=|
00001150  30 20 8c 0d 08 5c 2d 20  e7 20 a4 5f 46 69 6e 64  |0 ...\- . ._Find|
00001160  53 74 72 69 6e 67 28 6e  61 6d 65 24 2c bd 28 32  |String(name$,.(2|
00001170  35 35 29 2c 30 2c 30 29  20 8c 20 3d 26 43 30 30  |55),0,0) . =&C00|
00001180  0d 08 66 05 cd 0d 08 70  04 0d 08 7a 0d f4 20 42  |..f....p...z.. B|
00001190  61 73 69 63 20 3f 0d 08  84 19 e7 20 a7 64 6f 6e  |asic ?..... .don|
000011a0  74 24 2c 22 3c 46 46 42  3e 22 29 3d 30 20 8c 0d  |t$,"<FFB>")=0 ..|
000011b0  08 8e 34 20 e7 20 a4 5f  46 69 6e 64 53 74 72 69  |..4 . ._FindStri|
000011c0  6e 67 28 6e 61 6d 65 24  2c bd 28 26 30 64 29 2b  |ng(name$,.(&0d)+|
000011d0  bd 28 26 30 30 29 2c 30  2c 30 29 20 8c 20 3d 26  |.(&00),0,0) . =&|
000011e0  46 46 42 0d 08 98 05 cd  0d 08 a2 04 0d 08 ac 12  |FFB.............|
000011f0  f4 20 52 42 20 70 69 63  74 75 72 65 20 3f 0d 08  |. RB picture ?..|
00001200  b6 19 e7 20 a7 64 6f 6e  74 24 2c 22 3c 44 35 38  |... .dont$,"<D58|
00001210  3e 22 29 3d 30 20 8c 0d  08 c0 2d 20 e7 20 a4 5f  |>")=0 ....- . ._|
00001220  46 69 6e 64 53 74 72 69  6e 67 28 6e 61 6d 65 24  |FindString(name$|
00001230  2c bd 28 26 30 64 29 2c  30 2c 30 29 20 8c 20 3d  |,.(&0d),0,0) . =|
00001240  26 44 35 38 0d 08 ca 05  cd 0d 08 d4 04 0d 08 de  |&D58............|
00001250  17 f4 20 41 72 6d 61 64  65 75 73 20 73 61 6d 70  |.. Armadeus samp|
00001260  6c 65 20 3f 0d 08 e8 19  e7 20 a7 64 6f 6e 74 24  |le ?..... .dont$|
00001270  2c 22 3c 44 33 43 3e 22  29 3d 30 20 8c 0d 08 f2  |,"<D3C>")=0 ....|
00001280  2b 20 e7 20 a4 5f 46 69  6e 64 53 74 72 69 6e 67  |+ . ._FindString|
00001290  28 6e 61 6d 65 24 2c bd  28 30 29 2c 30 2c 30 29  |(name$,.(0),0,0)|
000012a0  20 8c 20 3d 26 44 33 43  0d 08 fc 05 cd 0d 09 06  | . =&D3C........|
000012b0  04 0d 09 10 1b f4 20 53  6f 75 6e 64 74 72 61 63  |...... Soundtrac|
000012c0  6b 65 72 20 4d 6f 64 75  6c 65 20 3f 0d 09 1a 19  |ker Module ?....|
000012d0  e7 20 a7 64 6f 6e 74 24  2c 22 3c 30 30 31 3e 22  |. .dont$,"<001>"|
000012e0  29 3d 30 20 8c 0d 09 24  3c 20 e7 20 a4 5f 46 69  |)=0 ...$< . ._Fi|
000012f0  6e 64 53 74 72 69 6e 67  28 6e 61 6d 65 24 2c bd  |ndString(name$,.|
00001300  26 31 61 2b bd 26 31 61  2b bd 26 31 61 2b bd 26  |&1a+.&1a+.&1a+.&|
00001310  31 61 2c 2d 34 2c 2d 34  29 20 8c 20 3d 26 30 30  |1a,-4,-4) . =&00|
00001320  31 0d 09 2e 05 cd 0d 09  38 04 0d 09 42 12 f4 20  |1.......8...B.. |
00001330  41 53 43 49 49 20 54 65  78 74 20 3f 0d 09 4c 19  |ASCII Text ?..L.|
00001340  e7 20 a7 64 6f 6e 74 24  2c 22 3c 46 46 46 3e 22  |. .dont$,"<FFF>"|
00001350  29 3d 30 20 8c 0d 09 56  1b 20 69 6e 25 3d a4 5f  |)=0 ...V. in%=._|
00001360  4d 69 6e 28 6c 65 6e 67  74 68 25 2c 31 30 30 29  |Min(length%,100)|
00001370  0d 09 60 0d 20 62 79 74  65 32 25 3d 30 0d 09 6a  |..`. byte2%=0..j|
00001380  10 20 66 25 3d 8e 28 6e  61 6d 65 24 29 0d 09 74  |. f%=.(name$)..t|
00001390  11 20 e3 20 6e 25 3d 31  20 b8 20 69 6e 25 0d 09  |. . n%=1 . in%..|
000013a0  7e 11 20 20 62 79 74 65  31 25 3d 9a 23 66 25 0d  |~.  byte1%=.#f%.|
000013b0  09 88 2c 20 20 e7 20 62  79 74 65 31 25 3e 3d 33  |..,  . byte1%>=3|
000013c0  32 20 80 20 62 79 74 65  31 25 3c 3d 31 32 36 20  |2 . byte1%<=126 |
000013d0  8c 20 62 79 74 65 32 25  2b 3d 31 0d 09 92 09 20  |. byte2%+=1.... |
000013e0  ed 20 6e 25 0d 09 9c 09  20 d9 23 66 25 0d 09 a6  |. n%.... .#f%...|
000013f0  23 20 e7 20 62 79 74 65  32 25 3e 3d 28 69 6e 25  |# . byte2%>=(in%|
00001400  2f 31 30 30 29 2a 38 30  20 8c 20 3d 26 46 46 46  |/100)*80 . =&FFF|
00001410  0d 09 b0 05 cd 0d 09 ba  04 0d 09 c4 07 3d 2d 31  |.............=-1|
00001420  0d 09 ce 05 3a 0d 09 d8  2d dd 20 a4 5f 46 69 6e  |....:...-. ._Fin|
00001430  64 53 74 72 69 6e 67 28  66 69 6c 65 24 2c 73 74  |dString(file$,st|
00001440  72 69 6e 67 24 2c 73 74  61 72 74 25 2c 65 6e 64  |ring$,start%,end|
00001450  25 29 0d 09 e2 1a ea 20  69 6e 25 2c 6d 25 2c 6e  |%)..... in%,m%,n|
00001460  25 2c 66 69 6c 65 25 2c  73 74 72 24 0d 09 ec 09  |%,file%,str$....|
00001470  69 6e 25 3d a3 0d 09 f6  12 66 69 6c 65 25 3d 8e  |in%=.....file%=.|
00001480  28 66 69 6c 65 24 29 0d  0a 00 26 e7 20 73 74 61  |(file$)...&. sta|
00001490  72 74 25 3c 30 20 8c 20  73 74 61 72 74 25 3d a2  |rt%<0 . start%=.|
000014a0  23 66 69 6c 65 25 2b 73  74 61 72 74 25 0d 0a 0a  |#file%+start%...|
000014b0  20 e7 20 65 6e 64 25 3c  30 20 8c 20 65 6e 64 25  | . end%<0 . end%|
000014c0  3d a2 23 66 69 6c 65 25  2b 65 6e 64 25 0d 0a 14  |=.#file%+end%...|
000014d0  16 e3 20 6d 25 3d 73 74  61 72 74 25 20 b8 20 65  |.. m%=start% . e|
000014e0  6e 64 25 0d 0a 1e 1e 20  e7 20 6d 25 3e 3d 30 20  |nd%.... . m%>=0 |
000014f0  80 20 6d 25 3c 3d a2 23  66 69 6c 65 25 2d 31 20  |. m%<=.#file%-1 |
00001500  8c 0d 0a 28 10 20 20 cf  23 66 69 6c 65 25 3d 6d  |...(.  .#file%=m|
00001510  25 0d 0a 32 0d 20 20 73  74 72 24 3d 22 22 0d 0a  |%..2.  str$=""..|
00001520  3c 19 20 20 e3 20 6e 25  3d 31 20 b8 20 a9 28 73  |<.  . n%=1 . .(s|
00001530  74 72 69 6e 67 24 29 0d  0a 46 25 20 20 20 e7 20  |tring$)..F%   . |
00001540  ac 20 c5 23 66 69 6c 65  25 20 8c 20 73 74 72 24  |. .#file% . str$|
00001550  2b 3d bd 28 9a 23 66 69  6c 65 25 29 0d 0a 50 0a  |+=.(.#file%)..P.|
00001560  20 20 ed 20 6e 25 0d 0a  5a 1c 20 20 e7 20 73 74  |  . n%..Z.  . st|
00001570  72 24 3d 73 74 72 69 6e  67 24 20 8c 20 69 6e 25  |r$=string$ . in%|
00001580  3d b9 0d 0a 64 06 20 cd  0d 0a 6e 08 ed 20 6d 25  |=...d. ...n.. m%|
00001590  0d 0a 78 0b d9 23 66 69  6c 65 25 0d 0a 82 08 3d  |..x..#file%....=|
000015a0  69 6e 25 0d 0a 8c 05 3a  0d 0a 96 10 dd 20 a4 5f  |in%....:..... ._|
000015b0  4d 69 6e 28 61 2c 62 29  0d 0a a0 13 e7 20 61 3c  |Min(a,b)..... a<|
000015c0  62 20 8c 20 3d 61 20 8b  20 3d 62 0d 0a aa 05 3a  |b . =a . =b....:|
000015d0  0d 0a b4 1d dd 20 f2 5f  4c 6f 61 64 54 65 6d 70  |..... ._LoadTemp|
000015e0  6c 61 74 65 73 28 74 65  6d 70 6c 24 29 0d 0a be  |lates(templ$)...|
000015f0  1b ea 20 69 6e 64 69 72  65 63 74 25 2c 69 70 74  |.. indirect%,ipt|
00001600  72 25 2c 69 65 6e 64 25  0d 0a c8 15 de 20 69 6e  |r%,iend%..... in|
00001610  64 69 72 65 63 74 25 20  26 31 31 30 30 0d 0a d2  |direct% &1100...|
00001620  25 69 70 74 72 25 3d 69  6e 64 69 72 65 63 74 25  |%iptr%=indirect%|
00001630  3a 69 65 6e 64 25 3d 69  70 74 72 25 2b 26 31 30  |:iend%=iptr%+&10|
00001640  30 30 0d 0a dc 1a f2 5f  4f 70 65 6e 54 65 6d 70  |00....._OpenTemp|
00001650  6c 61 74 65 28 74 65 6d  70 6c 24 29 0d 0a e6 22  |late(templ$)..."|
00001660  f2 5f 4c 6f 61 64 54 65  6d 70 6c 61 74 65 28 22  |._LoadTemplate("|
00001670  70 72 6f 67 49 6e 66 6f  22 2c 71 32 25 29 0d 0a  |progInfo",q2%)..|
00001680  f0 27 c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |.'.. "Wimp_Creat|
00001690  65 57 69 6e 64 6f 77 22  2c 2c 71 32 25 20 b8 20  |eWindow",,q2% . |
000016a0  69 6e 66 6f 25 0d 0a fa  21 f2 5f 4c 6f 61 64 54  |info%...!._LoadT|
000016b0  65 6d 70 6c 61 74 65 28  22 74 79 70 65 77 69 6e  |emplate("typewin|
000016c0  22 2c 71 32 25 29 0d 0b  04 2a c8 99 20 22 57 69  |",q2%)...*.. "Wi|
000016d0  6d 70 5f 43 72 65 61 74  65 57 69 6e 64 6f 77 22  |mp_CreateWindow"|
000016e0  2c 2c 71 32 25 20 b8 20  74 79 70 65 77 69 6e 25  |,,q2% . typewin%|
000016f0  0d 0b 0e 13 f2 5f 43 6c  6f 73 65 54 65 6d 70 6c  |....._CloseTempl|
00001700  61 74 65 0d 0b 18 25 f2  5f 49 63 6f 6e 50 75 74  |ate...%._IconPut|
00001710  44 61 74 61 28 71 32 25  2c 69 6e 66 6f 25 2c 34  |Data(q2%,info%,4|
00001720  2c 76 65 72 24 2c 30 29  0d 0b 22 05 e1 0d 0b 2c  |,ver$,0).."....,|
00001730  05 3a 0d 0b 36 1b dd 20  f2 5f 4f 70 65 6e 54 65  |.:..6.. ._OpenTe|
00001740  6d 70 6c 61 74 65 28 66  69 6c 65 24 29 0d 0b 40  |mplate(file$)..@|
00001750  21 c8 99 20 22 57 69 6d  70 5f 4f 70 65 6e 54 65  |!.. "Wimp_OpenTe|
00001760  6d 70 6c 61 74 65 22 2c  2c 66 69 6c 65 24 0d 0b  |mplate",,file$..|
00001770  4a 05 e1 0d 0b 54 05 3a  0d 0b 5e 1d dd 20 f2 5f  |J....T.:..^.. ._|
00001780  4c 6f 61 64 54 65 6d 70  6c 61 74 65 28 6e 61 6d  |LoadTemplate(nam|
00001790  65 24 2c 62 29 0d 0b 68  13 ea 20 74 79 70 65 25  |e$,b)..h.. type%|
000017a0  2c 70 6f 73 25 2c 78 25  0d 0b 72 4b c8 99 20 22  |,pos%,x%..rK.. "|
000017b0  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
000017c0  65 22 2c 2c 62 2c 69 70  74 72 25 2c 69 65 6e 64  |e",,b,iptr%,iend|
000017d0  25 2c 2d 31 2c 6e 61 6d  65 24 2c 30 20 b8 20 74  |%,-1,name$,0 . t|
000017e0  79 70 65 25 2c 2c 69 70  74 72 25 2c 2c 2c 2c 70  |ype%,,iptr%,,,,p|
000017f0  6f 73 25 0d 0b 7c 05 e1  0d 0b 86 05 3a 0d 0b 90  |os%..|......:...|
00001800  15 dd 20 f2 5f 43 6c 6f  73 65 54 65 6d 70 6c 61  |.. ._CloseTempla|
00001810  74 65 0d 0b 9a 1b c8 99  20 22 57 69 6d 70 5f 43  |te...... "Wimp_C|
00001820  6c 6f 73 65 54 65 6d 70  6c 61 74 65 22 0d 0b a4  |loseTemplate"...|
00001830  05 e1 0d 0b ae 05 3a 0d  0b b8 0c dd 20 f2 5f 4f  |......:..... ._O|
00001840  70 65 6e 0d 0b c2 11 71  25 21 30 3d 74 79 70 65  |pen....q%!0=type|
00001850  77 69 6e 25 0d 0b cc 20  c8 99 20 22 57 69 6d 70  |win%... .. "Wimp|
00001860  5f 47 65 74 57 69 6e 64  6f 77 53 74 61 74 65 22  |_GetWindowState"|
00001870  2c 2c 71 25 0d 0b d6 1c  c8 99 20 22 57 69 6d 70  |,,q%...... "Wimp|
00001880  5f 4f 70 65 6e 57 69 6e  64 6f 77 22 2c 2c 71 25  |_OpenWindow",,q%|
00001890  0d 0b e0 05 e1 0d 0b ea  05 3a 0d 0b f4 37 dd 20  |.........:...7. |
000018a0  f2 5f 49 63 6f 6e 50 75  74 44 61 74 61 28 71 32  |._IconPutData(q2|
000018b0  25 2c 77 68 61 6e 64 6c  65 25 2c 69 68 61 6e 64  |%,whandle%,ihand|
000018c0  6c 65 25 2c 64 61 74 61  24 2c 72 65 64 72 61 77  |le%,data$,redraw|
000018d0  29 0d 0b fe 12 71 32 25  21 30 3d 77 68 61 6e 64  |)....q2%!0=whand|
000018e0  6c 65 25 0d 0c 08 12 71  32 25 21 34 3d 69 68 61  |le%....q2%!4=iha|
000018f0  6e 64 6c 65 25 0d 0c 12  1f c8 99 20 22 57 69 6d  |ndle%...... "Wim|
00001900  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
00001910  2c 71 32 25 0d 0c 1c 13  24 28 71 32 25 21 32 38  |,q2%....$(q2%!28|
00001920  29 3d 64 61 74 61 24 0d  0c 26 0e e7 20 72 65 64  |)=data$..&.. red|
00001930  72 61 77 20 8c 0d 0c 30  3d c8 99 20 22 57 69 6d  |raw ...0=.. "Wim|
00001940  70 5f 46 6f 72 63 65 52  65 64 72 61 77 22 2c 77  |p_ForceRedraw",w|
00001950  68 61 6e 64 6c 65 25 2c  71 32 25 21 38 2c 71 32  |handle%,q2%!8,q2|
00001960  25 21 31 32 2c 71 32 25  21 31 36 2c 71 32 25 21  |%!12,q2%!16,q2%!|
00001970  32 30 0d 0c 3a 05 cd 0d  0c 44 05 e1 0d 0c 4e 05  |20..:....D....N.|
00001980  3a 0d 0c 58 2a dd 20 a4  5f 49 63 6f 6e 47 65 74  |:..X*. ._IconGet|
00001990  44 61 74 61 28 71 32 25  2c 77 68 61 6e 64 6c 65  |Data(q2%,whandle|
000019a0  25 2c 69 68 61 6e 64 6c  65 25 29 0d 0c 62 12 71  |%,ihandle%)..b.q|
000019b0  32 25 21 30 3d 77 68 61  6e 64 6c 65 25 0d 0c 6c  |2%!0=whandle%..l|
000019c0  12 71 32 25 21 34 3d 69  68 61 6e 64 6c 65 25 0d  |.q2%!4=ihandle%.|
000019d0  0c 76 1f c8 99 20 22 57  69 6d 70 5f 47 65 74 49  |.v... "Wimp_GetI|
000019e0  63 6f 6e 53 74 61 74 65  22 2c 2c 71 32 25 0d 0c  |conState",,q2%..|
000019f0  80 0e 3d 24 28 71 32 25  21 32 38 29 0d 0c 8a 05  |..=$(q2%!28)....|
00001a00  3a 0d 0c 94 31 dd 20 f2  5f 49 63 6f 6e 53 65 74  |:...1. ._IconSet|
00001a10  52 61 64 69 6f 28 71 32  25 2c 77 68 61 6e 64 6c  |Radio(q2%,whandl|
00001a20  65 25 2c 69 68 61 6e 64  6c 65 25 2c 73 74 61 74  |e%,ihandle%,stat|
00001a30  25 29 0d 0c 9e 11 ea 20  65 6f 72 25 2c 63 6c 65  |%)..... eor%,cle|
00001a40  61 72 25 0d 0c a8 12 71  32 25 21 30 3d 77 68 61  |ar%....q2%!0=wha|
00001a50  6e 64 6c 65 25 0d 0c b2  12 71 32 25 21 34 3d 69  |ndle%....q2%!4=i|
00001a60  68 61 6e 64 6c 65 25 0d  0c bc 0d e7 20 73 74 61  |handle%..... sta|
00001a70  74 25 20 8c 0d 0c c6 0e  20 65 6f 72 25 3d 32 5e  |t% ..... eor%=2^|
00001a80  32 31 0d 0c d0 10 20 63  6c 65 61 72 25 3d 32 5e  |21.... clear%=2^|
00001a90  32 31 0d 0c da 05 cc 0d  0c e4 0b 20 65 6f 72 25  |21......... eor%|
00001aa0  3d 30 0d 0c ee 10 20 63  6c 65 61 72 25 3d 32 5e  |=0.... clear%=2^|
00001ab0  32 31 0d 0c f8 05 cd 0d  0d 02 0e 71 32 25 21 38  |21.........q2%!8|
00001ac0  3d 65 6f 72 25 0d 0d 0c  11 71 32 25 21 31 32 3d  |=eor%....q2%!12=|
00001ad0  63 6c 65 61 72 25 0d 0d  16 1f c8 99 20 22 57 69  |clear%...... "Wi|
00001ae0  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
00001af0  2c 2c 71 32 25 0d 0d 20  1f c8 99 20 22 57 69 6d  |,,q2%.. ... "Wim|
00001b00  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
00001b10  2c 71 32 25 0d 0d 2a 3d  c8 99 20 22 57 69 6d 70  |,q2%..*=.. "Wimp|
00001b20  5f 46 6f 72 63 65 52 65  64 72 61 77 22 2c 77 68  |_ForceRedraw",wh|
00001b30  61 6e 64 6c 65 25 2c 71  32 25 21 38 2c 71 32 25  |andle%,q2%!8,q2%|
00001b40  21 31 32 2c 71 32 25 21  31 36 2c 71 32 25 21 32  |!12,q2%!16,q2%!2|
00001b50  30 0d 0d 34 05 e1 0d 0d  3e 05 3a 0d 0d 48 2b dd  |0..4....>.:..H+.|
00001b60  20 a4 5f 49 63 6f 6e 47  65 74 52 61 64 69 6f 28  | ._IconGetRadio(|
00001b70  71 32 25 2c 77 68 61 6e  64 6c 65 25 2c 69 68 61  |q2%,whandle%,iha|
00001b80  6e 64 6c 65 25 29 0d 0d  52 12 71 32 25 21 30 3d  |ndle%)..R.q2%!0=|
00001b90  77 68 61 6e 64 6c 65 25  0d 0d 5c 12 71 32 25 21  |whandle%..\.q2%!|
00001ba0  34 3d 69 68 61 6e 64 6c  65 25 0d 0d 66 1f c8 99  |4=ihandle%..f...|
00001bb0  20 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  | "Wimp_GetIconSt|
00001bc0  61 74 65 22 2c 2c 71 32  25 0d 0d 70 16 3d 28 71  |ate",,q2%..p.=(q|
00001bd0  32 25 21 32 34 29 20 80  20 28 32 5e 32 31 29 0d  |2%!24) . (2^21).|
00001be0  0d 7a 05 3a 0d 0d 84 14  dd 20 a4 5f 46 69 6c 65  |.z.:..... ._File|
00001bf0  54 79 70 65 28 61 24 29  0d 0d 8e 0c ea 20 66 74  |Type(a$)..... ft|
00001c00  79 70 65 25 0d 0d 98 20  c8 99 20 22 4f 53 5f 46  |ype%... .. "OS_F|
00001c10  69 6c 65 22 2c 35 2c 61  24 20 b8 20 2c 2c 66 74  |ile",5,a$ . ,,ft|
00001c20  79 70 65 25 0d 0d a2 17  3d 28 66 74 79 70 65 25  |ype%....=(ftype%|
00001c30  3e 3e 38 29 20 80 20 26  46 46 46 0d 0d ac 05 3a  |>>8) . &FFF....:|
00001c40  0d 0d b6 15 dd 20 a4 5f  45 6e 76 56 61 72 56 61  |..... ._EnvVarVa|
00001c50  6c 28 73 24 29 0d 0d c0  0a ea 20 6e 6f 62 25 0d  |l(s$)..... nob%.|
00001c60  0d ca 0d ee 20 85 20 ea  20 3d 22 22 0d 0d d4 2f  |.... . . ="".../|
00001c70  c8 99 20 22 4f 53 5f 52  65 61 64 56 61 72 56 61  |.. "OS_ReadVarVa|
00001c80  6c 22 2c 73 24 2c 71 32  25 2c 26 31 30 30 2c 30  |l",s$,q2%,&100,0|
00001c90  2c 30 20 b8 20 2c 2c 6e  6f 62 25 0d 0d de 0f 71  |,0 . ,,nob%....q|
00001ca0  32 25 3f 6e 6f 62 25 3d  31 33 0d 0d e8 09 3d 24  |2%?nob%=13....=$|
00001cb0  71 32 25 0d 0d f2 05 3a  0d 0d fc 11 dd 20 f2 5f  |q2%....:..... ._|
00001cc0  43 6c 6f 73 65 44 6f 77  6e 0d 0e 06 17 c8 99 20  |CloseDown...... |
00001cd0  22 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 22  |"Wimp_CloseDown"|
00001ce0  0d 0e 10 05 e0 0d 0e 1a  05 e1 0d 0e 24 04 0d ff  |............$...|
00001cf0