� > !Current
� (C) E.Spier
A� Inspired by a rather worring amount of free HD space (12k)!
(:
2ș "Hourglass_On"
<:
Fsample_root$="sample:"
P:
Zprog_title$="STmodmake"
d!prog_date$="1.00 (30-Jun-90)"
napp_path$="<STmodmake$Dir>"
x:
�moduletype%=&002
�songtype%  =&AF1
�splitter%  =�
�sample_save$="$."
�leftmargin%=8:topmargin%=16
�x_spacing%=16:y_spacing%=44
�:
�indirlen%=700
�E� taskid% 4,q% 1000,menubuf% 200,indir% indirlen%:$taskid%="TASK"
�Dș "Wimp_Initialise",200,!taskid%,prog_title$ � version%,taskid%
�:
�� � �#0:�errorbox(�):�
�:

Q� "RMEnsure TrackerModule 0 Error 0 Soundtracker player module not installed"

:

)ș "Wimp_SlotSize",-1,-1 � startslot%

"currentslot%=startslot%

,:

6�system_vars

@�prog_init

J:

T� � �errorbox(�):�

^:

h
dragbox=�

r� currentlyplaying% 15

|"$currentlyplaying%="No Module"

�<icbar%=�iconbar("!STmodmake",sprites%,currentlyplaying%)

�:

�/icbarmenu$=">Info.info%,Stop,Splitter,Quit"

�:

�ș "Hourglass_Off"

�� � �errorbox(�)

�:

�ș "Wimp_DragBox",,-1

��

�ș "Wimp_Poll",1,q% � poll%

�Ȏ poll% �

�	� 0 :

�� 1 :�redraw_service(q%)
B� 2 :�open_window(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24,q%!28)
� 3 :�close_window(!q%)
� !q%=save% �
&$ș "Wimp_SlotSize",startslot%,-1
0currentslot%=startslot%
:�
D	� 4 :
N	� 5 :
X5� 6 :�checkmouse(!q%,q%!4,q%!8,q%!12,q%!16,q%!20)
b� 7 :�dragbox(q%)
l	� 8 :
v� 9 :�menuselect(q%)
�� 17,18:�receive(q%)
��
�� �
��
�:
�� �receive(q%)
�Ȏ q%!16 �
�� &00000 : �finish
�� 1      : �datasave(q%)
�� 2      : �datasaveack(q%)
�"� 3,5    : �dataload(q%,q%!16)
�� 4      : �dataloadack(q%)
�t� &00502: � q%!32=-2 � �send_help(q%,"This is the STmodmaker icon.|MClick here to open the module list window.")
5� &400C1 : !q%=4:q%!4=5:q%!8=11:q%!12=12:q%!16=-1
%ș "OS_ReadVduVariables",q%,q%+20
7max_x_scr%=q%!28+1<<q%!20:max_y_scr%=q%!32+1<<q%!24
 �
*�
4:
>-� �checkmouse(x%,y%,b%,whand%,ihand%,ob%)
H� item%
Rk� whand%=-2 � b%=2 � �domenu(1,menubuf%,icbarmenu$,prog_title$,x%-64,96+40*�countitems(icbarmenu$,","))
\.� whand%=-2 � b%<>2 � �front(directories%)
f"� whand%=directories% � b%=2 �
pq%!0=directories%
z ș "Wimp_GetWindowState",,q%
�AStartX%=q%!4+leftmargin%-q%!20:StartY%=q%!16-topmargin%-q%!24
�*menusample%=-((y%-StartY%)/y_spacing%)
�$� menusample%<noofdirectories% �
�N�domenu(2,menubuf%,"Delete","'"+�leaf(dirname$(menusample%))+"'",x%-64,y%)
��
�/�domenu(2,menubuf%,"<Delete","''",x%-64,y%)
��
��
�C� whand%=save% � ihand%=2 � b%<>2 � �setupdragbox(save%,ihand%)
�'� whand%=save% � ihand%=1 � b%<>2 �
�$� $filename%=�leaf($filename%) �
�=�warning("To save, drag the icon to a directory viewer.")
��
<� "Save "+$filename%+" "+�~moduleptr%+" "+�~endofmodule%
-� "SetType "+$filename%+" "+�~(savetype%)
�close_window(save%)
$�
.�
8'� whand%=save% � ihand%=3 � b%<>2 �
B� "PlayStop"
L:� "Save <Wimp$Scrap> "+�~moduleptr%+" "+�~endofmodule%
V� "PlayMod <Wimp$Scrap>"
`� "Delete <Wimp$Scrap>"
j�close_window(save%)
t$ș "Wimp_SlotSize",startslot%,-1
~currentslot%=startslot%
�$currentlyplaying%=�10," ")
�Aq%!0=-1:q%!4=icbar%:q%!8=0:q%!12=0:ș "Wimp_SetIconState",,q%
�'$currentlyplaying%=�leaf(pathname$)
�Aq%!0=-1:q%!4=icbar%:q%!8=0:q%!12=0:ș "Wimp_SetIconState",,q%
��
��
�:
�� �menuselect(menus%)
�� a,a$,level1$
�=ș "Wimp_DecodeMenu",,(menubuf%+4),menus%,�200," ")�,,,a$
�� a$="" � �
�level1$=�par(a$,".",a)
Ȏ menubuf%!0 �

� 1
 � level1$="Quit" � �finish:�
$� level1$="Stop" � � splitter% �
(� "PlayStop"
2$currentlyplaying%=�10," ")
<Aq%!0=-1:q%!4=icbar%:q%!8=0:q%!12=0:ș "Wimp_SetIconState",,q%
F"$currentlyplaying%="No Module"
PAq%!0=-1:q%!4=icbar%:q%!8=0:q%!12=0:ș "Wimp_SetIconState",,q%
Z�
d� level1$="Splitter" �
nsplitter%=�splitter%
x1icbarmenu$=�toggletick(icbarmenu$,"Splitter")
�� splitter% �
�� "PlayStop"
�$currentlyplaying%=�10," ")
�Aq%!0=-1:q%!4=icbar%:q%!8=0:q%!12=0:ș "Wimp_SetIconState",,q%
�!$currentlyplaying%="Splitter"
�Aq%!0=-1:q%!4=icbar%:q%!8=0:q%!12=0:ș "Wimp_SetIconState",,q%
��close_window(save%)
�$ș "Wimp_SlotSize",startslot%,-1
�currentslot%=startslot%
��
�$currentlyplaying%=�10," ")
�Aq%!0=-1:q%!4=icbar%:q%!8=0:q%!12=0:ș "Wimp_SetIconState",,q%
�"$currentlyplaying%="No Module"
Aq%!0=-1:q%!4=icbar%:q%!8=0:q%!12=0:ș "Wimp_SetIconState",,q%
�
�
"� 2
,7� level1$="Delete" � �deletesamplepath(menusample%)
6�
@�getpointer
JY� (b% � 1)=1 � menubuf%!0=1 � �domenu(menubuf%!0,menubuf%,icbarmenu$,prog_title$,0,0)
T�
^:
h� �prog_init
r� handle%,len%
|:
�@handle%=� (app_path$+".Sprites"):len%=�#handle%+16:�#handle%
�� sprites% len%
� !sprites%=len%:sprites%!8=12
�"ș "OS_SpriteOp",&109,sprites%
�7ș "OS_SpriteOp",&10A,sprites%,app_path$+".Sprites"
�:
�2ș "Wimp_OpenTemplate",,app_path$+".Templates"
�temp%=indir%
�indirend%=indir%+indirlen%
�Dș "Wimp_LoadTemplate",,q%,temp%,indirend%,-1,"info",0 � ,,temp%
�q%!64=sprites%
�&ș "Wimp_CreateWindow",,q% � info%
�#q%!0=info%:q%!4=4:ș &400CE,,q%
$(!(q%+28))=prog_date$
:
filename%=temp%
&Dș "Wimp_LoadTemplate",,q%,temp%,indirend%,-1,"save",0 � ,,temp%
0q%!64=1
:&ș "Wimp_CreateWindow",,q% � save%
D:
NKș "Wimp_LoadTemplate",,q%,temp%,indirend%,-1,"directories",0 � ,,temp%
Xq%!64=1
bminextent%=q%!80+4
ldirwidth%=minextent%
vq%!68=10
�-ș "Wimp_CreateWindow",,q% � directories%
�:
�ș "Wimp_CloseTemplate"
�:
�myref%=-1:dragbox%=-1
��readdirectories
��
�:
�� �system_vars
�wbcol =&1:tbcol =&2
�sco   =&3:sci   =&D
�tbcol2=&C:mbcol =&0
�wfcol =&7:tfcol =&7
�
:
4� �domenu(handle%,menuptr%,menu$,menutitle$,x,y)
 � dummy%,next%
*next%=menuptr%+4
4menuptr%!0=handle%
>'dummy%=�c_m(next%,menu$,menutitle$)
H$ș "Wimp_CreateMenu",,dummy%,x,y
R�
\:
f%� �c_m(menuptr%,menu$,menutitle$)
p� i%,call%,item$,w,l
zcall%=menuptr%
�w=�menutitle$
�
next%+=52
�� i%=0��menu$
�"� �menu$,i%,1)="," � next%+=24
��
�i%=0
�menuptr%!20=40
�$menuptr%=menutitle$
�Gmenuptr%?12=tfcol:menuptr%?13=2:menuptr%?14=wfcol:menuptr%?15=mbcol
�menuptr%!24=0
�menuptr%+=28
��
�item$=�par(menu$,",",i%)
	(menuptr%=�menuitem(menuptr%,item$,l)
	w=�max(l,w)
	� item$=""
	$call%!16=16*w+12
	.#menuptr%!-24=(menuptr%!-24)�&80
	8
=call%
	B:
	L� �menuitem(ptr%,text$,� l)
	V� text$="" =ptr%
	`� a,t$,text
	j
text=�
	ta=0
	~!ptr%=0
	�ptr%!8=&07000021
	�
ptr%!4=-1
	�2� �text$,1)=":"!ptr%=!ptr% � 2:text$=�text$,2)
	�7� �text$,1)="<"ptr%!8=ptr%!8 � 2^22:text$=�text$,2)
	�6� �text$,1)="@"!ptr%=!menuptr% � 1:text$=�text$,2)
	�� �text$,1)="`" �
	�text$=�text$,2)
	�ptr%!8=&07000121
	�!ptr%=!ptr% � 4
	�t$=�par(text$,".",a)
	�ptr%!12=�(t$)
	�t$=�par(text$,".",a)
ptr%!16=�(t$)

t$=�par(text$,".",a)
ptr%!20=�(t$)

text=�
(text$=""
2�
<� �text$,1)=">" �
Ftext$=�text$,2)
Pt$=�par(text$,".",a)
Zptr%!4=�(�par(text$,".",a))
dtext$=t$
n�
x� �text$,1)="~" �
�text$=�text$,2)
�t$=�par(text$,".",a)
�Pptr%!4=�("FNc_m(next%,"+�par(text$,".",a)+","+�34+�par(text$,".",a)+�34+")")
�text$=t$
��
�� text � $(ptr%+12)=text$
�l=�text$
�=ptr%+24
�:
�� �par(a$,s$,� i%)
�	� i1%
�i1%=i%+1:i%=�a$+s$,s$,i1%)
�=�a$,i1%,i%-i1%)
:
� �countitems(src$,tgt$)
� a,count:count=0:a=0
")ȕ �par(src$,tgt$,a) <> "":count+=1:�
,
=count
6:
@� �tick(m$,n$)
J� a
T� �m$,n$)=0 � =m$
^
a=�m$,n$)
h� �m$,a-1,1) = "@" � =m$
r=�m$,a-1)+"@"+�m$,a)
|:
�� �untick(m$,n$)
�� a
�� �m$,n$)=0 � =m$
�
a=�m$,n$)
�� �m$,a-1,1) <> "@" � =m$
�=�m$,a-2)+�m$,a)
�:
�� �toggletick(m$,n$)
�
� a,a$
�� �m$,n$)=0 � =m$
�
a=�m$,n$)
�� �m$,a-1,1) = "@" �
�a$ = �m$,a-2)+�m$,a)
�
a$ = �m$,a-1)+"@"+�m$,a)
�
&=a$
0:
:� �onlytick(m$,n$)
D
� a,b$
Na=0
Xb$=�par(m$,",",a)
b
ȕ b$<>""
l� �b$,1)="@" � b$=�b$,2)
vm$=�untick(m$,b$)
�b$=�par(m$,",",a)
��
�=�tick(m$,n$)
�:
�� �front(handle%)
��handle%=-1��
��getw(handle%)
�6�open_window(handle%,x0%,y0%,x1%,y1%,scx%,scy%,-1)
��
�:
�>� �open_window(handle%,x0%,y0%,x1%,y1%,scx%,scy%,bhandle%)
��handle%=-1��
�q%!0=handle%:q%!28=bhandle%

)q%!4=x0%:q%!8=y0%:q%!12=x1%:q%!16=y1%

q%!20=scx%:q%!24=scy%

ș "Wimp_OpenWindow",,q%

 �

*:

4� �close_window(handle%)

>!q%=handle%

Hș "Wimp_CloseWindow",,q%

R�

\:

f� �getw(handle%)

p+!q%=handle%:ș "Wimp_GetWindowInfo",,q%

zx0%=q%!4:y0%=q%!8:x1%=q%!12

�#y1%=q%!16:scx%=q%!20:scy%=q%!24

�bx%=x0%-scx%:by%=y1%-scy%

�bhandle%=q%!28:flags%=q%!32

��

�:

�� �getpointer

� ș "Wimp_GetPointerInfo",,q%

�Hmousex%=!q%:mousey%=q%!4:b%=q%!8:handle%=q%!12:icon%=q%!16:ob%=q%!20

��

�:

�� �errorbox(quit%)

�
� result%

�.ș "Wimp_DragBox",,-1:ș "Hourglass_Smash"
$ș "Wimp_SlotSize",startslot%,-1
currentslot%=startslot%
s!q%=�:$(q%+4)="***** Diagnostic Report ***** "+�$+" ("+Þ+")"+" Ok to continue, Cancel to kill "+prog_title$+�0
$!� quit% � quit%=2 � quit% = 3
.<ș "Wimp_ReportError",q%,quit%,prog_title$+�0 � ,result%
8� result%=2 � �finish
B�
L:
V
� �finish
`� "PlayStop"
jș "Wimp_CloseDown":�
t�
~:
�)� �iconbar(spname$,spritearea%,text%)
�	� ic%
�
!q%=-1
�� text%=-1 �
�#q%!4=0:q%!8=0:q%!12=63:q%!16=68
�q%!20=&2102
�� q%!24 (�spname$+1)
�7$(q%!24)=spname$:q%!28=spritearea%:q%!32=�spname$+1
�"ș "Wimp_CreateIcon",,q% � ic%
��
�&q%!4=0:q%!8=-16:q%!12=164:q%!16=60
�q%!20=&1701210B
� q%!28 (�spname$+2)

5q%!24=text%:$(q%!28)="s"+spname$:q%!32=� ($text%)
"ș "Wimp_CreateIcon",,q% � ic%
�
(=ic%
2:
<� �redraw_service(q%)
F
� flag
P$ș"Wimp_RedrawWindow",,q% � flag
Zȕ flag
d�redraw(q%)
n$ș"Wimp_GetRectangle",,q% � flag
x�
��
�:
�� �redraw(q%)
�� loop%
�Ȏ !q% �
�� directories%
�� noofdirectories%<>0 �
�AStartX%=q%!4+leftmargin%-q%!20:StartY%=q%!16-topmargin%-q%!24
� � loop%=0 � noofdirectories%
� CY%=StartY%-loop%*y_spacing%
�)� IF CY%<q%!40+31 AND CY%>=q%!32 THEN
�#� StartX%,CY%:� dirname$(loop%)
��
�
! � 0,"Unknown Window Handle"
�
"�
,:
6$� �mouserectangle(x%,y%,x1%,y1%)
@ȗ ȓ x%,y%,x1%-x%,y1%-y%
J�
T:
^� �selecticon(w%,i%)
h*q%!0=w%:q%!4=i%:q%!8=1<<21:q%!12=1<<21
rș "Wimp_SetIconState",0,q%
|�
�:
�� �deselecticon(w%,i%)
�&q%!0=w%:q%!4=i%:q%!8=0:q%!12=1<<21
�ș "Wimp_SetIconState",0,q%
��
�:
�� �flash_icon(w%,i%)
�� t
�� ("fx21,0")
�Dq%!0=w%:q%!4=i%:q%!8=1<<21:q%!12=1<<21:ș"Wimp_SetIconState",,q%
�t=�:� � �>(t+10)
�@q%!0=w%:q%!4=i%:q%!8=0:q%!12=1<<21:ș"Wimp_SetIconState",,q%
��
:
� �max(a,b):� a>b = a � =b
� �min(a,b):� a<b = a � =b
&:
0� �send_help(a$)
:!(q%+00)=(�a$+25) � �3
Dq%!12=q%!8
N!(q%+16)=&503
X$(q%+20)=a$
b?(q%+20+�a$+1)=0
l$ș "Wimp_SendMessage",17,q%,q%!4
v�
�:
�#� �help_text(buf%,endbuf%,numb)
�� next%,a$,loop%
�ȕ next% <= endbuf% � a$=""
�next%=buf%+2
��
�next%+=1
�2� ?next% = 10 � ?next% = 13 � next% >= endbuf%
�3� numb=�(�?buf%+�?(buf%+1)) � next% < endbuf% �
�� loop%=buf%+2 � next%-1
�a$=a$+�(?loop%)
��
��
buf%=next%+1
�
=a$
 :
*� �query(query$,title$)
4� result
>q%!0=0:$(q%+4)=query$$+�0
H3ș "Wimp_ReportError",q%,19,title$+�0 � ,result
R� result = 1 � = �
\= �
f:
p� �leaf(path$)
z.ȕ �path$,"."):path$=�path$,�path$,".")+1)
��
�
=path$
�:
�� �path(path$)
�.ȕ �path$,1) <> "." path$=�path$,�path$-1)
��
�=�path$,�path$-1)
�:
�� �memtostr(ptr,ml)
�� f$,max:max=ptr+ml
�&ȕ ?ptr � ptr<max f$+=�?ptr:ptr+=1
��
�=f$
:
� �param(t$,s$,d$)
� l%,a%
$$l%=�s$,t$) � �s$,�uppercase(t$))
.
� l%<>0 �
8l%=�s$," ",l%)
Bȕ �s$,l%,1)=" ":l%+=1:�
L� �s$," ",l%)=0 � s$+=" "
V=�s$,l%,�s$," ",l%)-l%)
`�
j=d$
t:
~� �commandtail
�� i,numspaces,command
�ș "OS_GetEnv" � command
�i=0
�ȕ command?i<>0
�i+=1
��
�command?i=13
�numspaces=0
�i=0
�ȕ numspaces<3
�"� command?i=&20 � numspaces+=1
�i+=1
�

=$(command+i)
:
� �filestype(f$)
(� type%,obj%
2#ș "OS_File",5,f$ � obj%,,type%
<� obj%=2 � =-2
F5� obj%=1 � type%=(type% � &FFF00) >> 8 � type%=-1
P
=type%
Z:
d� �pad(a$,spaces)
n=�a$+�spaces," "),spaces)
x:
�� �strip(a$)
�ȕ �a$,1)=" " � �a$,1)=�0
�a$=�a$,� a$ - 1 )
��
�ȕ �a$,1)=" "
�a$=�a$,� a$ - 1 )
��
�=a$
�:
�� �filter(a$,low%,high%)
�� count%,b$
�� count%=1 � � a$
�6� � �a$,count%,1)>=low% � � �a$,count%,1)<=high% �
b$+=�a$,count%,1)
�
�
"=b$
,:
6� �uppercase(text$)
@� loop%,str$,a$
J� loop%=1��text$
Ta$=�text$,loop%,1)
^)� a$>="a" � a$<="z" � a$=�(�a$ � &DF)
hstr$+=a$
r�
|	=str$
�:
�� �setupdragbox(w%,i%)
�
� wex,wey
�jq%!0=w%:ș "Wimp_GetWindowState",,q%:wex=q%!4-q%!20:wey=q%!16-q%!24:q%!4=i%:ș "Wimp_GetIconState",,q%
�_!q%=w%:q%!4=5:q%!8=q%!8+wex:q%!12=q%!12+wey:q%!16=q%!16+wex:q%!20=q%!20+wey:q%!24=0:q%!28=0
�9q%!32=&7FFFFFFF:q%!36=&7FFFFFFF:ș "Wimp_DragBox",,q%
�dragbox%=�
��
�:
�� �filesprite(type)
�� type$,flags
�� type=-1 � ="file_xxx"
�!type$="file_"+�"00"+�~type,3)
*ș "XWimp_SpriteOp",24,,type$ � ;flags
$� (flags � 1) � type$="file_xxx"

=type$
&:
0� �smallfilesprite(type)
:� type$,flags
D� type=-1 � ="small_xxx"
Nsmall%=�
X"type$="small_"+�"00"+�~type,3)
b*ș "XWimp_SpriteOp",24,,type$ � ;flags
l� (flags � 1) �
v!type$="file_"+�"00"+�~type,3)
�*ș "XWimp_SpriteOp",24,,type$ � ;flags
�0� (flags � 1) � type$="small_xxx" � small%=�
��
�
=type$
�:
�� �strtoicon(w%,� i%,a$)
�5q%!0=w%:q%!4=i%:ș &400CE,,q%:� Wimp_GetIconState
�$q%!0=w%:ș "Wimp_DeleteIcon",,q%
�$(q%+28)=a$
�-q%!4=w%:ș "Wimp_CreateIcon",,(q%+4) � i%
�!q%!0=w%:q%!4=i%:ș &400CE,,q%
�;q%!4=w%:ș "Wimp_ForceRedraw",w%,q%!8,q%!12,q%!16,q%!20
��
:
� �dataload(q%,call%)
&� ptr%,len%,type%,handle%,loop%,a$
  � q%!12 = 0 � q%!12=myref% �
*"pathname$=�memtostr(q%+44,250)
4type%=�filestype(pathname$)
>Ȏ type% �
H� songtype%
R� � splitter% �
\?q%!0=20:q%!12=q%!8:q%!16=4:ș "Wimp_SendMessage",17,q%,q%!4
fș "Hourglass_On"
p�loadmodule(pathname$)
zș "Hourglass_Off"
��
�� moduletype%
�?q%!0=20:q%!12=q%!8:q%!16=4:ș "Wimp_SendMessage",17,q%,q%!4
�� splitter% �
��splitmodule(pathname$)
��
�� "PlayStop"
�� "PlayMod "+pathname$
�$currentlyplaying%=�10," ")
�Aq%!0=-1:q%!4=icbar%:q%!8=0:q%!12=0:ș "Wimp_SetIconState",,q%
�'$currentlyplaying%=�leaf(pathname$)
�Aq%!0=-1:q%!4=icbar%:q%!8=0:q%!12=0:ș "Wimp_SetIconState",,q%
��
� -2
� call%=3 �
� q%!20 = directories% �
$�� noofdirectories%=maxdirectories% � �warning("To add extra directories, due to internal data structures, please quit this application and then reload and retry."):�
.?q%!0=20:q%!12=q%!8:q%!16=4:ș "Wimp_SendMessage",17,q%,q%!4
8(dirname$(noofdirectories%)=pathname$
Bnoofdirectories%+=1
L%handle%=�(app_path$+".samppaths")
V�#handle%,noofdirectories%
`� noofdirectories%>1 �
j1� loop%=1 � noofdirectories%-1:�#handle%,a$:�
t�
~�#handle%,pathname$
�)dirwidth%=�max(dirwidth%,� pathname$)
�
�#handle%
�q%!0=0:q%!12=0
�>q%!8=dirwidth%*16+16:q%!4=-(noofdirectories%*y_spacing%+8)
�'ș "Wimp_SetExtent",directories%,q%
�[ș "Wimp_ForceRedraw",directories%,0,-(noofdirectories%*y_spacing%+8),dirwidth%*16+16,0
��
��
��
��
��
�:
� �noack(q%)

� q%!8 = myref% �
5$(q%+4)="Hmm. Why does no one acknowledge me?"+�0
*ș "Wimp_ReportError",q%,1,prog_title$
(
myref%=-1
2�
<�
F:
P� �dataloadack(q%)
Z� q%!12=myref% �
d
myref%=-1
nleafname$=""
x�
��
�:
�� �datasave(q%)
�� q%!4=taskid% � �
�� q%!40<>songtype% � �
�)leafname$=�leaf(�memtostr(q%+44,100))
�q%!0=60
�q%!12=q%!8
�q%!16=2
�q%!36=-1
�<ș "XOS_ReadVarVal","Wimp$Scrap",q%+100,10,0,0 � ,,temp%
�� temp% <> 0 �
�$(q%+44)="<Wimp$Scrap>"
$ș "Wimp_SendMessage",18,q%,q%!4
myref%=q%!8
�
"(�warning("<Wimp$Scrap> not defined")
,�
6�
@:
J� �loadmodule(file$)
TC� handle%,size%,new%,samplei,tracks%,loop1%,loop2%,samplestore%
^� file$="" � �
hUhandle%=� file$:� handle%=0 � �#handle%:�warning("Can't find file '"+file$+"'"):�
r!tunesize%=�#handle%:�#handle%
|<ș "Wimp_SlotSize",(startslot%+tunesize%+1024),-1 � new%
�#� (new%-startslot%)<tunesize% �
�&ș "Wimp_SlotSize",currentslot%,-1
�:�warning("Not enough memory available to load module")
��
��
�currentslot%=new%
�moduleptr%=�+256
�:
�samplei=moduleptr%+&14
�%samplestore%=moduleptr%+tunesize%
�:
�%�("LOAD "+file$+" "+�~moduleptr%)
�:
sampsize%=0
� loop1%=0 � 14
 sampleo=samplei+(loop1%*&1E)
&name$="":loop2%=0
0�
:<� (sampleo?loop2%)<>0 name$+=�(sampleo?loop2%):loop2%+=1
D#�(sampleo?loop2%)=0 � loop2%=10
N+� name$="bassdrum1" � name$="bassdrum3"
X� name$<>"" �
b0sampsize%+=2*((sampleo?22)*256+(sampleo?23))
l�
v�
�:
�Fș "Wimp_SlotSize",(startslot%+tunesize%+sampsize%+1024),-1 � new%
�-� (new%-startslot%)<tunesize%+sampsize% �
�&ș "Wimp_SlotSize",currentslot%,-1
�:�warning("Not enough memory available to load module")
��
��
�currentslot%=new%
�:
�� loop1%=0 � 14
� sampleo=samplei+(loop1%*&1E)
�name$="":loop2%=0
��
<� (sampleo?loop2%)<>0 name$+=�(sampleo?loop2%):loop2%+=1
#�(sampleo?loop2%)=0 � loop2%=20
name$=�name$,�name$,":")+1)
 name$=�filter(name$,48,126)
*name$=�name$,10)
4)� name$="bassdrum1" name$="bassdrum3"
>� name$<>"" �
Hnotload%=�:count%=0
R)ȕ notload% � count%<noofdirectories%
\)handle%=�(dirname$(count%)+"."+name$)
f� handle%=0 �
p
�#handle%
z�
�
�#handle%
�>�("LOAD "+dirname$(count%)+"."+name$+" "+�~(samplestore%))
�3samplestore%+=2*((sampleo?22)*256+(sampleo?23))
�notload%=�
��
�
count%+=1
��
�v� notload%=� � �warning("Can't find file '"+name$+"'"):ș "Wimp_SlotSize",startslot%,-1:currentslot%=startslot%:� 
��
��
�:
�?(samplestore%+1)=0
�endofmodule%=samplestore%+1
$filename%=�leaf(file$)
#q%!0=save%:q%!4=2:ș &400CE,,q%
savetype%=moduletype%
$#$(q%+28)=�filesprite(savetype%)
.'ș "Wimp_DeleteIcon",,q%:q%!4=save%
8+ș "Wimp_CreateIcon",,(q%+4):� TO icon%
B?q%!0=save%:q%!4=0:q%!8=0:q%!12=0:ș "Wimp_SetIconState",,q%
L�front(save%)
V9ș "Wimp_SetCaretPosition",save%,0,0,0,-1,�$filename%
`�
j:
t� �warning(a$)
~!q%=�:$(q%+4)=a$+�0
�*ș "Wimp_ReportError",q%,1,prog_title$
��
�:
�� �dragbox(q%)
�� dragbox%=� �
�dragbox%=�
��getpointer
�q%!0=60
�q%!12=0
�q%!16=1
�q%!20=handle%
�q%!24=icon%
q%!28=mousex%

q%!32=mousey%
q%!36=2000
q%!40=savetype%
(#$(q%+44)=�leaf($filename%)+�(0)
2-ș "Wimp_SendMessage",17,q%,handle%,icon%
<myref%=q%!8
F�
P�
Z:
d� �datasaveack(q%)
n� q%!12=myref% �
xF� "Save "+�memtostr(q%+44,100)+" "+�~moduleptr%+" "+�~endofmodule%
�7� "SetType "+�memtostr(q%+44,100)+" "+�~(savetype%)
��close_window(save%)
�q%!12=q%!8
�q%!0=60
�q%!16=3
�-ș "Wimp_SendMessage",18,q%,handle%,icon%
�myref%=q%!8
�$ș "Wimp_SlotSize",startslot%,-1
�currentslot%=startslot%
��
��
�:
�� �splitmodule(file$)

� handle%
� file$="" � �
Uhandle%=� file$:� handle%=0 � �#handle%:�warning("Can't find file '"+file$+"'"):�
"tlen%=�#handle%:�#handle%
,8ș "Wimp_SlotSize",(startslot%+tlen%+1024),-1 � new%
6� (new%-startslot%)<tlen% �
@&ș "Wimp_SlotSize",currentslot%,-1
J:�warning("Not enough memory available to load module")
T�
^�
hcurrentslot%=new%
rmoduleptr%=�+256
|:
�%�("LOAD "+file$+" "+�~moduleptr%)
�track$="":loop1%=0
��
�E� (moduleptr%?loop1%)<>0 � track$+=�(moduleptr%?loop1%):loop1%+=1
��(moduleptr%?loop1%)=0
��;track$;")"
�:
�:� Find length of tune data by looking through patterns
�high%=0
�� A%=0 � 127
�=� moduleptr%?(&1D8+A%)>high% � high%=moduleptr%?(&1D8+A%)
��
�high%+=1
 :
 samplei=moduleptr%+&14
 'spoint=moduleptr%+&258+(high%*1024)
 &tuneend%=spoint
 0samples=moduleptr%
 ::
 D� loop%=0 � 14
 Nsampleo=samplei+(loop%*&1E)
 Xname$="":loop1%=0
 b�
 l<� (sampleo?loop1%)<>0 name$+=�(sampleo?loop1%):loop1%+=1
 v#�(sampleo?loop1%)=0 � loop1%=20
 �� name$<>"" �
 �name$=�name$,�name$,":")+1)
 �name$=�filter(name$,48,126)
 � � name$="" � name$="no-name"
 �*len%=2*((sampleo?22)*256+(sampleo?23))
 �D� "Save "+dirname$(0)+"."+�name$,10)+" "+�~(spoint)+" + "+�~len%
 �spoint+=len%
 ��
 ��
 �endofmodule%=tuneend%
 �$filename%=�leaf(file$)
 �#q%!0=save%:q%!4=2:ș &400CE,,q%
 �savetype%=songtype%
!#$(q%+28)=�filesprite(savetype%)
!'ș "Wimp_DeleteIcon",,q%:q%!4=save%
!+ș "Wimp_CreateIcon",,(q%+4):� TO icon%
! ?q%!0=save%:q%!4=0:q%!8=0:q%!12=0:ș "Wimp_SetIconState",,q%
!*�front(save%)
!49ș "Wimp_SetCaretPosition",save%,0,0,0,-1,�$filename%
!>�
!H:
!R� �readdirectories
!\� handle%,count%
!fcount%=0
!p%handle%=�(app_path$+".samppaths")
!z� handle%=0 �
!�
�#handle%
!�%handle%=�(app_path$+".samppaths")
!��#handle%,0
!�noofdirectories%=0
!�maxdirectories%=10
!�� dirname$(maxdirectories%)
!�dirname$(0)="$"
!��
!��#handle%,noofdirectories%
!�'maxdirectories%=noofdirectories%+10
!�#� dirname$(noofdirectories%+10)
!�� noofdirectories%<>0 �
!�$� loop%=0 � (noofdirectories%-1)
"�#handle%,dirname$(loop%)
"/dirwidth%=�max(� dirname$(loop%),dirwidth%)
"�
"$�
".�
"8
�#handle%
"Bq%!0=0:q%!12=0
"L>q%!8=dirwidth%*16+16:q%!4=-(noofdirectories%*y_spacing%+8)
"V'ș "Wimp_SetExtent",directories%,q%
"`�
"j:
"t� �deletesamplepath(numb%)
"~� handle%,count%
"�dirwidth%=minextent%
"�%handle%=�(app_path$+".samppaths")
"�"�#handle%,(noofdirectories%-1)
"�� numb%>0 �
"�� count%=0 � (numb%-1)
"�0dirwidth%=�max(dirwidth%,� dirname$(count%))
"��#handle%,dirname$(count%)
"��
"��
"� � numb% < noofdirectories% �
"�)� count%=(numb%+1) � noofdirectories%
"��#handle%,dirname$(count%)
#0dirwidth%=�max(dirwidth%,� dirname$(count%))
#
'dirname$(count%-1)=dirname$(count%)
#�
#�
#(
�#handle%
#2noofdirectories%-=1
#<�getw(directories%)
#F�close_window(directories%)
#Pq%!0=0:q%!12=0
#Z>q%!8=dirwidth%*16+16:q%!4=-(noofdirectories%*y_spacing%+8)
#d'ș "Wimp_SetExtent",directories%,q%
#nA�open_window(directories%,x0%,y0%,x1%,y1%,scx%,scy%,bhandle%)
#x�
�

00000000  0d 00 0a 10 f4 20 3e 20  21 43 75 72 72 65 6e 74  |..... > !Current|
00000010  0d 00 14 11 f4 20 28 43  29 20 45 2e 53 70 69 65  |..... (C) E.Spie|
00000020  72 0d 00 1e 41 f4 20 49  6e 73 70 69 72 65 64 20  |r...A. Inspired |
00000030  62 79 20 61 20 72 61 74  68 65 72 20 77 6f 72 72  |by a rather worr|
00000040  69 6e 67 20 61 6d 6f 75  6e 74 20 6f 66 20 66 72  |ing amount of fr|
00000050  65 65 20 48 44 20 73 70  61 63 65 20 28 31 32 6b  |ee HD space (12k|
00000060  29 21 0d 00 28 05 3a 0d  00 32 15 c8 99 20 22 48  |)!..(.:..2... "H|
00000070  6f 75 72 67 6c 61 73 73  5f 4f 6e 22 0d 00 3c 05  |ourglass_On"..<.|
00000080  3a 0d 00 46 1a 73 61 6d  70 6c 65 5f 72 6f 6f 74  |:..F.sample_root|
00000090  24 3d 22 73 61 6d 70 6c  65 3a 22 0d 00 50 05 3a  |$="sample:"..P.:|
000000a0  0d 00 5a 1b 70 72 6f 67  5f 74 69 74 6c 65 24 3d  |..Z.prog_title$=|
000000b0  22 53 54 6d 6f 64 6d 61  6b 65 22 0d 00 64 21 70  |"STmodmake"..d!p|
000000c0  72 6f 67 5f 64 61 74 65  24 3d 22 31 2e 30 30 20  |rog_date$="1.00 |
000000d0  28 33 30 2d 4a 75 6e 2d  39 30 29 22 0d 00 6e 1f  |(30-Jun-90)"..n.|
000000e0  61 70 70 5f 70 61 74 68  24 3d 22 3c 53 54 6d 6f  |app_path$="<STmo|
000000f0  64 6d 61 6b 65 24 44 69  72 3e 22 0d 00 78 05 3a  |dmake$Dir>"..x.:|
00000100  0d 00 82 14 6d 6f 64 75  6c 65 74 79 70 65 25 3d  |....moduletype%=|
00000110  26 30 30 32 0d 00 8c 14  73 6f 6e 67 74 79 70 65  |&002....songtype|
00000120  25 20 20 3d 26 41 46 31  0d 00 96 11 73 70 6c 69  |%  =&AF1....spli|
00000130  74 74 65 72 25 20 20 3d  a3 0d 00 a0 15 73 61 6d  |tter%  =.....sam|
00000140  70 6c 65 5f 73 61 76 65  24 3d 22 24 2e 22 0d 00  |ple_save$="$."..|
00000150  aa 1f 6c 65 66 74 6d 61  72 67 69 6e 25 3d 38 3a  |..leftmargin%=8:|
00000160  74 6f 70 6d 61 72 67 69  6e 25 3d 31 36 0d 00 b4  |topmargin%=16...|
00000170  1f 78 5f 73 70 61 63 69  6e 67 25 3d 31 36 3a 79  |.x_spacing%=16:y|
00000180  5f 73 70 61 63 69 6e 67  25 3d 34 34 0d 00 be 05  |_spacing%=44....|
00000190  3a 0d 00 c8 11 69 6e 64  69 72 6c 65 6e 25 3d 37  |:....indirlen%=7|
000001a0  30 30 0d 00 d2 45 de 20  74 61 73 6b 69 64 25 20  |00...E. taskid% |
000001b0  34 2c 71 25 20 31 30 30  30 2c 6d 65 6e 75 62 75  |4,q% 1000,menubu|
000001c0  66 25 20 32 30 30 2c 69  6e 64 69 72 25 20 69 6e  |f% 200,indir% in|
000001d0  64 69 72 6c 65 6e 25 3a  24 74 61 73 6b 69 64 25  |dirlen%:$taskid%|
000001e0  3d 22 54 41 53 4b 22 0d  00 dc 44 c8 99 20 22 57  |="TASK"...D.. "W|
000001f0  69 6d 70 5f 49 6e 69 74  69 61 6c 69 73 65 22 2c  |imp_Initialise",|
00000200  32 30 30 2c 21 74 61 73  6b 69 64 25 2c 70 72 6f  |200,!taskid%,pro|
00000210  67 5f 74 69 74 6c 65 24  20 b8 20 76 65 72 73 69  |g_title$ . versi|
00000220  6f 6e 25 2c 74 61 73 6b  69 64 25 0d 00 e6 05 3a  |on%,taskid%....:|
00000230  0d 00 f0 1a ee 20 85 20  d9 23 30 3a f2 65 72 72  |..... . .#0:.err|
00000240  6f 72 62 6f 78 28 b9 29  3a e0 0d 00 fa 05 3a 0d  |orbox(.):.....:.|
00000250  01 04 51 ff 20 22 52 4d  45 6e 73 75 72 65 20 54  |..Q. "RMEnsure T|
00000260  72 61 63 6b 65 72 4d 6f  64 75 6c 65 20 30 20 45  |rackerModule 0 E|
00000270  72 72 6f 72 20 30 20 53  6f 75 6e 64 74 72 61 63  |rror 0 Soundtrac|
00000280  6b 65 72 20 70 6c 61 79  65 72 20 6d 6f 64 75 6c  |ker player modul|
00000290  65 20 6e 6f 74 20 69 6e  73 74 61 6c 6c 65 64 22  |e not installed"|
000002a0  0d 01 0e 05 3a 0d 01 18  29 c8 99 20 22 57 69 6d  |....:...).. "Wim|
000002b0  70 5f 53 6c 6f 74 53 69  7a 65 22 2c 2d 31 2c 2d  |p_SlotSize",-1,-|
000002c0  31 20 b8 20 73 74 61 72  74 73 6c 6f 74 25 0d 01  |1 . startslot%..|
000002d0  22 1b 63 75 72 72 65 6e  74 73 6c 6f 74 25 3d 73  |".currentslot%=s|
000002e0  74 61 72 74 73 6c 6f 74  25 0d 01 2c 05 3a 0d 01  |tartslot%..,.:..|
000002f0  36 10 f2 73 79 73 74 65  6d 5f 76 61 72 73 0d 01  |6..system_vars..|
00000300  40 0e f2 70 72 6f 67 5f  69 6e 69 74 0d 01 4a 05  |@..prog_init..J.|
00000310  3a 0d 01 54 16 ee 20 85  20 f2 65 72 72 6f 72 62  |:..T.. . .errorb|
00000320  6f 78 28 b9 29 3a e0 0d  01 5e 05 3a 0d 01 68 0d  |ox(.):...^.:..h.|
00000330  64 72 61 67 62 6f 78 3d  a3 0d 01 72 1a de 20 63  |dragbox=...r.. c|
00000340  75 72 72 65 6e 74 6c 79  70 6c 61 79 69 6e 67 25  |urrentlyplaying%|
00000350  20 31 35 0d 01 7c 22 24  63 75 72 72 65 6e 74 6c  | 15..|"$currentl|
00000360  79 70 6c 61 79 69 6e 67  25 3d 22 4e 6f 20 4d 6f  |yplaying%="No Mo|
00000370  64 75 6c 65 22 0d 01 86  3c 69 63 62 61 72 25 3d  |dule"...<icbar%=|
00000380  a4 69 63 6f 6e 62 61 72  28 22 21 53 54 6d 6f 64  |.iconbar("!STmod|
00000390  6d 61 6b 65 22 2c 73 70  72 69 74 65 73 25 2c 63  |make",sprites%,c|
000003a0  75 72 72 65 6e 74 6c 79  70 6c 61 79 69 6e 67 25  |urrentlyplaying%|
000003b0  29 0d 01 90 05 3a 0d 01  9a 2f 69 63 62 61 72 6d  |)....:.../icbarm|
000003c0  65 6e 75 24 3d 22 3e 49  6e 66 6f 2e 69 6e 66 6f  |enu$=">Info.info|
000003d0  25 2c 53 74 6f 70 2c 53  70 6c 69 74 74 65 72 2c  |%,Stop,Splitter,|
000003e0  51 75 69 74 22 0d 01 a4  05 3a 0d 01 ae 16 c8 99  |Quit"....:......|
000003f0  20 22 48 6f 75 72 67 6c  61 73 73 5f 4f 66 66 22  | "Hourglass_Off"|
00000400  0d 01 b8 14 ee 20 85 20  f2 65 72 72 6f 72 62 6f  |..... . .errorbo|
00000410  78 28 a3 29 0d 01 c2 05  3a 0d 01 cc 19 c8 99 20  |x(.)....:...... |
00000420  22 57 69 6d 70 5f 44 72  61 67 42 6f 78 22 2c 2c  |"Wimp_DragBox",,|
00000430  2d 31 0d 01 d6 05 f5 0d  01 e0 1f c8 99 20 22 57  |-1........... "W|
00000440  69 6d 70 5f 50 6f 6c 6c  22 2c 31 2c 71 25 20 b8  |imp_Poll",1,q% .|
00000450  20 70 6f 6c 6c 25 0d 01  ea 0e c8 8e 20 70 6f 6c  | poll%...... pol|
00000460  6c 25 20 ca 0d 01 f4 09  c9 20 30 20 3a 0d 01 fe  |l% ...... 0 :...|
00000470  1c c9 20 31 20 3a f2 72  65 64 72 61 77 5f 73 65  |.. 1 :.redraw_se|
00000480  72 76 69 63 65 28 71 25  29 0d 02 08 42 c9 20 32  |rvice(q%)...B. 2|
00000490  20 3a f2 6f 70 65 6e 5f  77 69 6e 64 6f 77 28 21  | :.open_window(!|
000004a0  71 25 2c 71 25 21 34 2c  71 25 21 38 2c 71 25 21  |q%,q%!4,q%!8,q%!|
000004b0  31 32 2c 71 25 21 31 36  2c 71 25 21 32 30 2c 71  |12,q%!16,q%!20,q|
000004c0  25 21 32 34 2c 71 25 21  32 38 29 0d 02 12 1b c9  |%!24,q%!28).....|
000004d0  20 33 20 3a f2 63 6c 6f  73 65 5f 77 69 6e 64 6f  | 3 :.close_windo|
000004e0  77 28 21 71 25 29 0d 02  1c 11 e7 20 21 71 25 3d  |w(!q%)..... !q%=|
000004f0  73 61 76 65 25 20 8c 0d  02 26 24 c8 99 20 22 57  |save% ...&$.. "W|
00000500  69 6d 70 5f 53 6c 6f 74  53 69 7a 65 22 2c 73 74  |imp_SlotSize",st|
00000510  61 72 74 73 6c 6f 74 25  2c 2d 31 0d 02 30 1b 63  |artslot%,-1..0.c|
00000520  75 72 72 65 6e 74 73 6c  6f 74 25 3d 73 74 61 72  |urrentslot%=star|
00000530  74 73 6c 6f 74 25 0d 02  3a 05 cd 0d 02 44 09 c9  |tslot%..:....D..|
00000540  20 34 20 3a 0d 02 4e 09  c9 20 35 20 3a 0d 02 58  | 4 :..N.. 5 :..X|
00000550  35 c9 20 36 20 3a f2 63  68 65 63 6b 6d 6f 75 73  |5. 6 :.checkmous|
00000560  65 28 21 71 25 2c 71 25  21 34 2c 71 25 21 38 2c  |e(!q%,q%!4,q%!8,|
00000570  71 25 21 31 32 2c 71 25  21 31 36 2c 71 25 21 32  |q%!12,q%!16,q%!2|
00000580  30 29 0d 02 62 15 c9 20  37 20 3a f2 64 72 61 67  |0)..b.. 7 :.drag|
00000590  62 6f 78 28 71 25 29 0d  02 6c 09 c9 20 38 20 3a  |box(q%)..l.. 8 :|
000005a0  0d 02 76 18 c9 20 39 20  3a f2 6d 65 6e 75 73 65  |..v.. 9 :.menuse|
000005b0  6c 65 63 74 28 71 25 29  0d 02 80 18 c9 20 31 37  |lect(q%)..... 17|
000005c0  2c 31 38 3a f2 72 65 63  65 69 76 65 28 71 25 29  |,18:.receive(q%)|
000005d0  0d 02 8a 05 cb 0d 02 94  07 fd 20 a3 0d 02 9e 05  |.......... .....|
000005e0  e0 0d 02 a8 05 3a 0d 02  b2 12 dd 20 f2 72 65 63  |.....:..... .rec|
000005f0  65 69 76 65 28 71 25 29  0d 02 bc 0e c8 8e 20 71  |eive(q%)...... q|
00000600  25 21 31 36 20 ca 0d 02  c6 16 c9 20 26 30 30 30  |%!16 ...... &000|
00000610  30 30 20 3a 20 f2 66 69  6e 69 73 68 0d 02 d0 1c  |00 : .finish....|
00000620  c9 20 31 20 20 20 20 20  20 3a 20 f2 64 61 74 61  |. 1      : .data|
00000630  73 61 76 65 28 71 25 29  0d 02 da 1f c9 20 32 20  |save(q%)..... 2 |
00000640  20 20 20 20 20 3a 20 f2  64 61 74 61 73 61 76 65  |     : .datasave|
00000650  61 63 6b 28 71 25 29 0d  02 e4 22 c9 20 33 2c 35  |ack(q%)...". 3,5|
00000660  20 20 20 20 3a 20 f2 64  61 74 61 6c 6f 61 64 28  |    : .dataload(|
00000670  71 25 2c 71 25 21 31 36  29 0d 02 ee 1f c9 20 34  |q%,q%!16)..... 4|
00000680  20 20 20 20 20 20 3a 20  f2 64 61 74 61 6c 6f 61  |      : .dataloa|
00000690  64 61 63 6b 28 71 25 29  0d 02 f8 74 c9 20 26 30  |dack(q%)...t. &0|
000006a0  30 35 30 32 3a 20 e7 20  71 25 21 33 32 3d 2d 32  |0502: . q%!32=-2|
000006b0  20 8c 20 f2 73 65 6e 64  5f 68 65 6c 70 28 71 25  | . .send_help(q%|
000006c0  2c 22 54 68 69 73 20 69  73 20 74 68 65 20 53 54  |,"This is the ST|
000006d0  6d 6f 64 6d 61 6b 65 72  20 69 63 6f 6e 2e 7c 4d  |modmaker icon.|M|
000006e0  43 6c 69 63 6b 20 68 65  72 65 20 74 6f 20 6f 70  |Click here to op|
000006f0  65 6e 20 74 68 65 20 6d  6f 64 75 6c 65 20 6c 69  |en the module li|
00000700  73 74 20 77 69 6e 64 6f  77 2e 22 29 0d 03 02 35  |st window.")...5|
00000710  c9 20 26 34 30 30 43 31  20 3a 20 21 71 25 3d 34  |. &400C1 : !q%=4|
00000720  3a 71 25 21 34 3d 35 3a  71 25 21 38 3d 31 31 3a  |:q%!4=5:q%!8=11:|
00000730  71 25 21 31 32 3d 31 32  3a 71 25 21 31 36 3d 2d  |q%!12=12:q%!16=-|
00000740  31 0d 03 0c 25 c8 99 20  22 4f 53 5f 52 65 61 64  |1...%.. "OS_Read|
00000750  56 64 75 56 61 72 69 61  62 6c 65 73 22 2c 71 25  |VduVariables",q%|
00000760  2c 71 25 2b 32 30 0d 03  16 37 6d 61 78 5f 78 5f  |,q%+20...7max_x_|
00000770  73 63 72 25 3d 71 25 21  32 38 2b 31 3c 3c 71 25  |scr%=q%!28+1<<q%|
00000780  21 32 30 3a 6d 61 78 5f  79 5f 73 63 72 25 3d 71  |!20:max_y_scr%=q|
00000790  25 21 33 32 2b 31 3c 3c  71 25 21 32 34 0d 03 20  |%!32+1<<q%!24.. |
000007a0  05 cb 0d 03 2a 05 e1 0d  03 34 05 3a 0d 03 3e 2d  |....*....4.:..>-|
000007b0  dd 20 f2 63 68 65 63 6b  6d 6f 75 73 65 28 78 25  |. .checkmouse(x%|
000007c0  2c 79 25 2c 62 25 2c 77  68 61 6e 64 25 2c 69 68  |,y%,b%,whand%,ih|
000007d0  61 6e 64 25 2c 6f 62 25  29 0d 03 48 0b ea 20 69  |and%,ob%)..H.. i|
000007e0  74 65 6d 25 0d 03 52 6b  e7 20 77 68 61 6e 64 25  |tem%..Rk. whand%|
000007f0  3d 2d 32 20 80 20 62 25  3d 32 20 8c 20 f2 64 6f  |=-2 . b%=2 . .do|
00000800  6d 65 6e 75 28 31 2c 6d  65 6e 75 62 75 66 25 2c  |menu(1,menubuf%,|
00000810  69 63 62 61 72 6d 65 6e  75 24 2c 70 72 6f 67 5f  |icbarmenu$,prog_|
00000820  74 69 74 6c 65 24 2c 78  25 2d 36 34 2c 39 36 2b  |title$,x%-64,96+|
00000830  34 30 2a a4 63 6f 75 6e  74 69 74 65 6d 73 28 69  |40*.countitems(i|
00000840  63 62 61 72 6d 65 6e 75  24 2c 22 2c 22 29 29 0d  |cbarmenu$,",")).|
00000850  03 5c 2e e7 20 77 68 61  6e 64 25 3d 2d 32 20 80  |.\.. whand%=-2 .|
00000860  20 62 25 3c 3e 32 20 8c  20 f2 66 72 6f 6e 74 28  | b%<>2 . .front(|
00000870  64 69 72 65 63 74 6f 72  69 65 73 25 29 0d 03 66  |directories%)..f|
00000880  22 e7 20 77 68 61 6e 64  25 3d 64 69 72 65 63 74  |". whand%=direct|
00000890  6f 72 69 65 73 25 20 80  20 62 25 3d 32 20 8c 0d  |ories% . b%=2 ..|
000008a0  03 70 15 71 25 21 30 3d  64 69 72 65 63 74 6f 72  |.p.q%!0=director|
000008b0  69 65 73 25 0d 03 7a 20  c8 99 20 22 57 69 6d 70  |ies%..z .. "Wimp|
000008c0  5f 47 65 74 57 69 6e 64  6f 77 53 74 61 74 65 22  |_GetWindowState"|
000008d0  2c 2c 71 25 0d 03 84 41  53 74 61 72 74 58 25 3d  |,,q%...AStartX%=|
000008e0  71 25 21 34 2b 6c 65 66  74 6d 61 72 67 69 6e 25  |q%!4+leftmargin%|
000008f0  2d 71 25 21 32 30 3a 53  74 61 72 74 59 25 3d 71  |-q%!20:StartY%=q|
00000900  25 21 31 36 2d 74 6f 70  6d 61 72 67 69 6e 25 2d  |%!16-topmargin%-|
00000910  71 25 21 32 34 0d 03 8e  2a 6d 65 6e 75 73 61 6d  |q%!24...*menusam|
00000920  70 6c 65 25 3d 2d 28 28  79 25 2d 53 74 61 72 74  |ple%=-((y%-Start|
00000930  59 25 29 2f 79 5f 73 70  61 63 69 6e 67 25 29 0d  |Y%)/y_spacing%).|
00000940  03 98 24 e7 20 6d 65 6e  75 73 61 6d 70 6c 65 25  |..$. menusample%|
00000950  3c 6e 6f 6f 66 64 69 72  65 63 74 6f 72 69 65 73  |<noofdirectories|
00000960  25 20 8c 0d 03 a2 4e f2  64 6f 6d 65 6e 75 28 32  |% ....N.domenu(2|
00000970  2c 6d 65 6e 75 62 75 66  25 2c 22 44 65 6c 65 74  |,menubuf%,"Delet|
00000980  65 22 2c 22 27 22 2b a4  6c 65 61 66 28 64 69 72  |e","'"+.leaf(dir|
00000990  6e 61 6d 65 24 28 6d 65  6e 75 73 61 6d 70 6c 65  |name$(menusample|
000009a0  25 29 29 2b 22 27 22 2c  78 25 2d 36 34 2c 79 25  |%))+"'",x%-64,y%|
000009b0  29 0d 03 ac 05 cc 0d 03  b6 2f f2 64 6f 6d 65 6e  |)......../.domen|
000009c0  75 28 32 2c 6d 65 6e 75  62 75 66 25 2c 22 3c 44  |u(2,menubuf%,"<D|
000009d0  65 6c 65 74 65 22 2c 22  27 27 22 2c 78 25 2d 36  |elete","''",x%-6|
000009e0  34 2c 79 25 29 0d 03 c0  05 cd 0d 03 ca 05 cd 0d  |4,y%)...........|
000009f0  03 d4 43 e7 20 77 68 61  6e 64 25 3d 73 61 76 65  |..C. whand%=save|
00000a00  25 20 80 20 69 68 61 6e  64 25 3d 32 20 80 20 62  |% . ihand%=2 . b|
00000a10  25 3c 3e 32 20 8c 20 f2  73 65 74 75 70 64 72 61  |%<>2 . .setupdra|
00000a20  67 62 6f 78 28 73 61 76  65 25 2c 69 68 61 6e 64  |gbox(save%,ihand|
00000a30  25 29 0d 03 de 27 e7 20  77 68 61 6e 64 25 3d 73  |%)...'. whand%=s|
00000a40  61 76 65 25 20 80 20 69  68 61 6e 64 25 3d 31 20  |ave% . ihand%=1 |
00000a50  80 20 62 25 3c 3e 32 20  8c 0d 03 e8 24 e7 20 24  |. b%<>2 ....$. $|
00000a60  66 69 6c 65 6e 61 6d 65  25 3d a4 6c 65 61 66 28  |filename%=.leaf(|
00000a70  24 66 69 6c 65 6e 61 6d  65 25 29 20 8c 0d 03 f2  |$filename%) ....|
00000a80  3d f2 77 61 72 6e 69 6e  67 28 22 54 6f 20 73 61  |=.warning("To sa|
00000a90  76 65 2c 20 64 72 61 67  20 74 68 65 20 69 63 6f  |ve, drag the ico|
00000aa0  6e 20 74 6f 20 61 20 64  69 72 65 63 74 6f 72 79  |n to a directory|
00000ab0  20 76 69 65 77 65 72 2e  22 29 0d 03 fc 05 cc 0d  | viewer.")......|
00000ac0  04 06 3c ff 20 22 53 61  76 65 20 22 2b 24 66 69  |..<. "Save "+$fi|
00000ad0  6c 65 6e 61 6d 65 25 2b  22 20 22 2b c3 7e 6d 6f  |lename%+" "+.~mo|
00000ae0  64 75 6c 65 70 74 72 25  2b 22 20 22 2b c3 7e 65  |duleptr%+" "+.~e|
00000af0  6e 64 6f 66 6d 6f 64 75  6c 65 25 0d 04 10 2d ff  |ndofmodule%...-.|
00000b00  20 22 53 65 74 54 79 70  65 20 22 2b 24 66 69 6c  | "SetType "+$fil|
00000b10  65 6e 61 6d 65 25 2b 22  20 22 2b c3 7e 28 73 61  |ename%+" "+.~(sa|
00000b20  76 65 74 79 70 65 25 29  0d 04 1a 18 f2 63 6c 6f  |vetype%).....clo|
00000b30  73 65 5f 77 69 6e 64 6f  77 28 73 61 76 65 25 29  |se_window(save%)|
00000b40  0d 04 24 05 cd 0d 04 2e  05 cd 0d 04 38 27 e7 20  |..$.........8'. |
00000b50  77 68 61 6e 64 25 3d 73  61 76 65 25 20 80 20 69  |whand%=save% . i|
00000b60  68 61 6e 64 25 3d 33 20  80 20 62 25 3c 3e 32 20  |hand%=3 . b%<>2 |
00000b70  8c 0d 04 42 10 ff 20 22  50 6c 61 79 53 74 6f 70  |...B.. "PlayStop|
00000b80  22 0d 04 4c 3a ff 20 22  53 61 76 65 20 3c 57 69  |"..L:. "Save <Wi|
00000b90  6d 70 24 53 63 72 61 70  3e 20 22 2b c3 7e 6d 6f  |mp$Scrap> "+.~mo|
00000ba0  64 75 6c 65 70 74 72 25  2b 22 20 22 2b c3 7e 65  |duleptr%+" "+.~e|
00000bb0  6e 64 6f 66 6d 6f 64 75  6c 65 25 0d 04 56 1c ff  |ndofmodule%..V..|
00000bc0  20 22 50 6c 61 79 4d 6f  64 20 3c 57 69 6d 70 24  | "PlayMod <Wimp$|
00000bd0  53 63 72 61 70 3e 22 0d  04 60 1b ff 20 22 44 65  |Scrap>"..`.. "De|
00000be0  6c 65 74 65 20 3c 57 69  6d 70 24 53 63 72 61 70  |lete <Wimp$Scrap|
00000bf0  3e 22 0d 04 6a 18 f2 63  6c 6f 73 65 5f 77 69 6e  |>"..j..close_win|
00000c00  64 6f 77 28 73 61 76 65  25 29 0d 04 74 24 c8 99  |dow(save%)..t$..|
00000c10  20 22 57 69 6d 70 5f 53  6c 6f 74 53 69 7a 65 22  | "Wimp_SlotSize"|
00000c20  2c 73 74 61 72 74 73 6c  6f 74 25 2c 2d 31 0d 04  |,startslot%,-1..|
00000c30  7e 1b 63 75 72 72 65 6e  74 73 6c 6f 74 25 3d 73  |~.currentslot%=s|
00000c40  74 61 72 74 73 6c 6f 74  25 0d 04 88 1f 24 63 75  |tartslot%....$cu|
00000c50  72 72 65 6e 74 6c 79 70  6c 61 79 69 6e 67 25 3d  |rrentlyplaying%=|
00000c60  c4 31 30 2c 22 20 22 29  0d 04 92 41 71 25 21 30  |.10," ")...Aq%!0|
00000c70  3d 2d 31 3a 71 25 21 34  3d 69 63 62 61 72 25 3a  |=-1:q%!4=icbar%:|
00000c80  71 25 21 38 3d 30 3a 71  25 21 31 32 3d 30 3a c8  |q%!8=0:q%!12=0:.|
00000c90  99 20 22 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  |. "Wimp_SetIconS|
00000ca0  74 61 74 65 22 2c 2c 71  25 0d 04 9c 27 24 63 75  |tate",,q%...'$cu|
00000cb0  72 72 65 6e 74 6c 79 70  6c 61 79 69 6e 67 25 3d  |rrentlyplaying%=|
00000cc0  a4 6c 65 61 66 28 70 61  74 68 6e 61 6d 65 24 29  |.leaf(pathname$)|
00000cd0  0d 04 a6 41 71 25 21 30  3d 2d 31 3a 71 25 21 34  |...Aq%!0=-1:q%!4|
00000ce0  3d 69 63 62 61 72 25 3a  71 25 21 38 3d 30 3a 71  |=icbar%:q%!8=0:q|
00000cf0  25 21 31 32 3d 30 3a c8  99 20 22 57 69 6d 70 5f  |%!12=0:.. "Wimp_|
00000d00  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 71  |SetIconState",,q|
00000d10  25 0d 04 b0 05 cd 0d 04  ba 05 e1 0d 04 c4 05 3a  |%..............:|
00000d20  0d 04 ce 19 dd 20 f2 6d  65 6e 75 73 65 6c 65 63  |..... .menuselec|
00000d30  74 28 6d 65 6e 75 73 25  29 0d 04 d8 12 ea 20 61  |t(menus%)..... a|
00000d40  2c 61 24 2c 6c 65 76 65  6c 31 24 0d 04 e2 3d c8  |,a$,level1$...=.|
00000d50  99 20 22 57 69 6d 70 5f  44 65 63 6f 64 65 4d 65  |. "Wimp_DecodeMe|
00000d60  6e 75 22 2c 2c 28 6d 65  6e 75 62 75 66 25 2b 34  |nu",,(menubuf%+4|
00000d70  29 2c 6d 65 6e 75 73 25  2c c4 32 30 30 2c 22 20  |),menus%,.200," |
00000d80  22 29 b8 2c 2c 2c 61 24  0d 04 ec 0f e7 20 61 24  |").,,,a$..... a$|
00000d90  3d 22 22 20 8c 20 e1 0d  04 f6 1a 6c 65 76 65 6c  |="" . .....level|
00000da0  31 24 3d a4 70 61 72 28  61 24 2c 22 2e 22 2c 61  |1$=.par(a$,".",a|
00000db0  29 0d 05 00 13 c8 8e 20  6d 65 6e 75 62 75 66 25  |)...... menubuf%|
00000dc0  21 30 20 ca 0d 05 0a 07  c9 20 31 0d 05 14 20 e7  |!0 ...... 1... .|
00000dd0  20 6c 65 76 65 6c 31 24  3d 22 51 75 69 74 22 20  | level1$="Quit" |
00000de0  8c 20 f2 66 69 6e 69 73  68 3a e0 0d 05 1e 24 e7  |. .finish:....$.|
00000df0  20 6c 65 76 65 6c 31 24  3d 22 53 74 6f 70 22 20  | level1$="Stop" |
00000e00  80 20 ac 20 73 70 6c 69  74 74 65 72 25 20 8c 0d  |. . splitter% ..|
00000e10  05 28 10 ff 20 22 50 6c  61 79 53 74 6f 70 22 0d  |.(.. "PlayStop".|
00000e20  05 32 1f 24 63 75 72 72  65 6e 74 6c 79 70 6c 61  |.2.$currentlypla|
00000e30  79 69 6e 67 25 3d c4 31  30 2c 22 20 22 29 0d 05  |ying%=.10," ")..|
00000e40  3c 41 71 25 21 30 3d 2d  31 3a 71 25 21 34 3d 69  |<Aq%!0=-1:q%!4=i|
00000e50  63 62 61 72 25 3a 71 25  21 38 3d 30 3a 71 25 21  |cbar%:q%!8=0:q%!|
00000e60  31 32 3d 30 3a c8 99 20  22 57 69 6d 70 5f 53 65  |12=0:.. "Wimp_Se|
00000e70  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 71 25 0d  |tIconState",,q%.|
00000e80  05 46 22 24 63 75 72 72  65 6e 74 6c 79 70 6c 61  |.F"$currentlypla|
00000e90  79 69 6e 67 25 3d 22 4e  6f 20 4d 6f 64 75 6c 65  |ying%="No Module|
00000ea0  22 0d 05 50 41 71 25 21  30 3d 2d 31 3a 71 25 21  |"..PAq%!0=-1:q%!|
00000eb0  34 3d 69 63 62 61 72 25  3a 71 25 21 38 3d 30 3a  |4=icbar%:q%!8=0:|
00000ec0  71 25 21 31 32 3d 30 3a  c8 99 20 22 57 69 6d 70  |q%!12=0:.. "Wimp|
00000ed0  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00000ee0  71 25 0d 05 5a 05 cd 0d  05 64 1a e7 20 6c 65 76  |q%..Z....d.. lev|
00000ef0  65 6c 31 24 3d 22 53 70  6c 69 74 74 65 72 22 20  |el1$="Splitter" |
00000f00  8c 0d 05 6e 18 73 70 6c  69 74 74 65 72 25 3d ac  |...n.splitter%=.|
00000f10  73 70 6c 69 74 74 65 72  25 0d 05 78 31 69 63 62  |splitter%..x1icb|
00000f20  61 72 6d 65 6e 75 24 3d  a4 74 6f 67 67 6c 65 74  |armenu$=.togglet|
00000f30  69 63 6b 28 69 63 62 61  72 6d 65 6e 75 24 2c 22  |ick(icbarmenu$,"|
00000f40  53 70 6c 69 74 74 65 72  22 29 0d 05 82 11 e7 20  |Splitter")..... |
00000f50  73 70 6c 69 74 74 65 72  25 20 8c 0d 05 8c 10 ff  |splitter% ......|
00000f60  20 22 50 6c 61 79 53 74  6f 70 22 0d 05 96 1f 24  | "PlayStop"....$|
00000f70  63 75 72 72 65 6e 74 6c  79 70 6c 61 79 69 6e 67  |currentlyplaying|
00000f80  25 3d c4 31 30 2c 22 20  22 29 0d 05 a0 41 71 25  |%=.10," ")...Aq%|
00000f90  21 30 3d 2d 31 3a 71 25  21 34 3d 69 63 62 61 72  |!0=-1:q%!4=icbar|
00000fa0  25 3a 71 25 21 38 3d 30  3a 71 25 21 31 32 3d 30  |%:q%!8=0:q%!12=0|
00000fb0  3a c8 99 20 22 57 69 6d  70 5f 53 65 74 49 63 6f  |:.. "Wimp_SetIco|
00000fc0  6e 53 74 61 74 65 22 2c  2c 71 25 0d 05 aa 21 24  |nState",,q%...!$|
00000fd0  63 75 72 72 65 6e 74 6c  79 70 6c 61 79 69 6e 67  |currentlyplaying|
00000fe0  25 3d 22 53 70 6c 69 74  74 65 72 22 0d 05 b4 41  |%="Splitter"...A|
00000ff0  71 25 21 30 3d 2d 31 3a  71 25 21 34 3d 69 63 62  |q%!0=-1:q%!4=icb|
00001000  61 72 25 3a 71 25 21 38  3d 30 3a 71 25 21 31 32  |ar%:q%!8=0:q%!12|
00001010  3d 30 3a c8 99 20 22 57  69 6d 70 5f 53 65 74 49  |=0:.. "Wimp_SetI|
00001020  63 6f 6e 53 74 61 74 65  22 2c 2c 71 25 0d 05 be  |conState",,q%...|
00001030  18 f2 63 6c 6f 73 65 5f  77 69 6e 64 6f 77 28 73  |..close_window(s|
00001040  61 76 65 25 29 0d 05 c8  24 c8 99 20 22 57 69 6d  |ave%)...$.. "Wim|
00001050  70 5f 53 6c 6f 74 53 69  7a 65 22 2c 73 74 61 72  |p_SlotSize",star|
00001060  74 73 6c 6f 74 25 2c 2d  31 0d 05 d2 1b 63 75 72  |tslot%,-1....cur|
00001070  72 65 6e 74 73 6c 6f 74  25 3d 73 74 61 72 74 73  |rentslot%=starts|
00001080  6c 6f 74 25 0d 05 dc 05  cc 0d 05 e6 1f 24 63 75  |lot%.........$cu|
00001090  72 72 65 6e 74 6c 79 70  6c 61 79 69 6e 67 25 3d  |rrentlyplaying%=|
000010a0  c4 31 30 2c 22 20 22 29  0d 05 f0 41 71 25 21 30  |.10," ")...Aq%!0|
000010b0  3d 2d 31 3a 71 25 21 34  3d 69 63 62 61 72 25 3a  |=-1:q%!4=icbar%:|
000010c0  71 25 21 38 3d 30 3a 71  25 21 31 32 3d 30 3a c8  |q%!8=0:q%!12=0:.|
000010d0  99 20 22 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  |. "Wimp_SetIconS|
000010e0  74 61 74 65 22 2c 2c 71  25 0d 05 fa 22 24 63 75  |tate",,q%..."$cu|
000010f0  72 72 65 6e 74 6c 79 70  6c 61 79 69 6e 67 25 3d  |rrentlyplaying%=|
00001100  22 4e 6f 20 4d 6f 64 75  6c 65 22 0d 06 04 41 71  |"No Module"...Aq|
00001110  25 21 30 3d 2d 31 3a 71  25 21 34 3d 69 63 62 61  |%!0=-1:q%!4=icba|
00001120  72 25 3a 71 25 21 38 3d  30 3a 71 25 21 31 32 3d  |r%:q%!8=0:q%!12=|
00001130  30 3a c8 99 20 22 57 69  6d 70 5f 53 65 74 49 63  |0:.. "Wimp_SetIc|
00001140  6f 6e 53 74 61 74 65 22  2c 2c 71 25 0d 06 0e 05  |onState",,q%....|
00001150  cd 0d 06 18 05 cd 0d 06  22 07 c9 20 32 0d 06 2c  |........".. 2..,|
00001160  37 e7 20 6c 65 76 65 6c  31 24 3d 22 44 65 6c 65  |7. level1$="Dele|
00001170  74 65 22 20 8c 20 f2 64  65 6c 65 74 65 73 61 6d  |te" . .deletesam|
00001180  70 6c 65 70 61 74 68 28  6d 65 6e 75 73 61 6d 70  |plepath(menusamp|
00001190  6c 65 25 29 0d 06 36 05  cb 0d 06 40 0f f2 67 65  |le%)..6....@..ge|
000011a0  74 70 6f 69 6e 74 65 72  0d 06 4a 59 e7 20 28 62  |tpointer..JY. (b|
000011b0  25 20 80 20 31 29 3d 31  20 80 20 6d 65 6e 75 62  |% . 1)=1 . menub|
000011c0  75 66 25 21 30 3d 31 20  8c 20 f2 64 6f 6d 65 6e  |uf%!0=1 . .domen|
000011d0  75 28 6d 65 6e 75 62 75  66 25 21 30 2c 6d 65 6e  |u(menubuf%!0,men|
000011e0  75 62 75 66 25 2c 69 63  62 61 72 6d 65 6e 75 24  |ubuf%,icbarmenu$|
000011f0  2c 70 72 6f 67 5f 74 69  74 6c 65 24 2c 30 2c 30  |,prog_title$,0,0|
00001200  29 0d 06 54 05 e1 0d 06  5e 05 3a 0d 06 68 10 dd  |)..T....^.:..h..|
00001210  20 f2 70 72 6f 67 5f 69  6e 69 74 0d 06 72 12 ea  | .prog_init..r..|
00001220  20 68 61 6e 64 6c 65 25  2c 6c 65 6e 25 0d 06 7c  | handle%,len%..||
00001230  05 3a 0d 06 86 40 68 61  6e 64 6c 65 25 3d 8e 20  |.:...@handle%=. |
00001240  28 61 70 70 5f 70 61 74  68 24 2b 22 2e 53 70 72  |(app_path$+".Spr|
00001250  69 74 65 73 22 29 3a 6c  65 6e 25 3d a2 23 68 61  |ites"):len%=.#ha|
00001260  6e 64 6c 65 25 2b 31 36  3a d9 23 68 61 6e 64 6c  |ndle%+16:.#handl|
00001270  65 25 0d 06 90 13 de 20  73 70 72 69 74 65 73 25  |e%..... sprites%|
00001280  20 6c 65 6e 25 0d 06 9a  20 21 73 70 72 69 74 65  | len%... !sprite|
00001290  73 25 3d 6c 65 6e 25 3a  73 70 72 69 74 65 73 25  |s%=len%:sprites%|
000012a0  21 38 3d 31 32 0d 06 a4  22 c8 99 20 22 4f 53 5f  |!8=12...".. "OS_|
000012b0  53 70 72 69 74 65 4f 70  22 2c 26 31 30 39 2c 73  |SpriteOp",&109,s|
000012c0  70 72 69 74 65 73 25 0d  06 ae 37 c8 99 20 22 4f  |prites%...7.. "O|
000012d0  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 30 41  |S_SpriteOp",&10A|
000012e0  2c 73 70 72 69 74 65 73  25 2c 61 70 70 5f 70 61  |,sprites%,app_pa|
000012f0  74 68 24 2b 22 2e 53 70  72 69 74 65 73 22 0d 06  |th$+".Sprites"..|
00001300  b8 05 3a 0d 06 c2 32 c8  99 20 22 57 69 6d 70 5f  |..:...2.. "Wimp_|
00001310  4f 70 65 6e 54 65 6d 70  6c 61 74 65 22 2c 2c 61  |OpenTemplate",,a|
00001320  70 70 5f 70 61 74 68 24  2b 22 2e 54 65 6d 70 6c  |pp_path$+".Templ|
00001330  61 74 65 73 22 0d 06 cc  10 74 65 6d 70 25 3d 69  |ates"....temp%=i|
00001340  6e 64 69 72 25 0d 06 d6  1e 69 6e 64 69 72 65 6e  |ndir%....indiren|
00001350  64 25 3d 69 6e 64 69 72  25 2b 69 6e 64 69 72 6c  |d%=indir%+indirl|
00001360  65 6e 25 0d 06 e0 44 c8  99 20 22 57 69 6d 70 5f  |en%...D.. "Wimp_|
00001370  4c 6f 61 64 54 65 6d 70  6c 61 74 65 22 2c 2c 71  |LoadTemplate",,q|
00001380  25 2c 74 65 6d 70 25 2c  69 6e 64 69 72 65 6e 64  |%,temp%,indirend|
00001390  25 2c 2d 31 2c 22 69 6e  66 6f 22 2c 30 20 b8 20  |%,-1,"info",0 . |
000013a0  2c 2c 74 65 6d 70 25 0d  06 ea 12 71 25 21 36 34  |,,temp%....q%!64|
000013b0  3d 73 70 72 69 74 65 73  25 0d 06 f4 26 c8 99 20  |=sprites%...&.. |
000013c0  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
000013d0  6f 77 22 2c 2c 71 25 20  b8 20 69 6e 66 6f 25 0d  |ow",,q% . info%.|
000013e0  06 fe 23 71 25 21 30 3d  69 6e 66 6f 25 3a 71 25  |..#q%!0=info%:q%|
000013f0  21 34 3d 34 3a c8 99 20  26 34 30 30 43 45 2c 2c  |!4=4:.. &400CE,,|
00001400  71 25 0d 07 08 1a 24 28  21 28 71 25 2b 32 38 29  |q%....$(!(q%+28)|
00001410  29 3d 70 72 6f 67 5f 64  61 74 65 24 0d 07 12 05  |)=prog_date$....|
00001420  3a 0d 07 1c 13 66 69 6c  65 6e 61 6d 65 25 3d 74  |:....filename%=t|
00001430  65 6d 70 25 0d 07 26 44  c8 99 20 22 57 69 6d 70  |emp%..&D.. "Wimp|
00001440  5f 4c 6f 61 64 54 65 6d  70 6c 61 74 65 22 2c 2c  |_LoadTemplate",,|
00001450  71 25 2c 74 65 6d 70 25  2c 69 6e 64 69 72 65 6e  |q%,temp%,indiren|
00001460  64 25 2c 2d 31 2c 22 73  61 76 65 22 2c 30 20 b8  |d%,-1,"save",0 .|
00001470  20 2c 2c 74 65 6d 70 25  0d 07 30 0b 71 25 21 36  | ,,temp%..0.q%!6|
00001480  34 3d 31 0d 07 3a 26 c8  99 20 22 57 69 6d 70 5f  |4=1..:&.. "Wimp_|
00001490  43 72 65 61 74 65 57 69  6e 64 6f 77 22 2c 2c 71  |CreateWindow",,q|
000014a0  25 20 b8 20 73 61 76 65  25 0d 07 44 05 3a 0d 07  |% . save%..D.:..|
000014b0  4e 4b c8 99 20 22 57 69  6d 70 5f 4c 6f 61 64 54  |NK.. "Wimp_LoadT|
000014c0  65 6d 70 6c 61 74 65 22  2c 2c 71 25 2c 74 65 6d  |emplate",,q%,tem|
000014d0  70 25 2c 69 6e 64 69 72  65 6e 64 25 2c 2d 31 2c  |p%,indirend%,-1,|
000014e0  22 64 69 72 65 63 74 6f  72 69 65 73 22 2c 30 20  |"directories",0 |
000014f0  b8 20 2c 2c 74 65 6d 70  25 0d 07 58 0b 71 25 21  |. ,,temp%..X.q%!|
00001500  36 34 3d 31 0d 07 62 16  6d 69 6e 65 78 74 65 6e  |64=1..b.minexten|
00001510  74 25 3d 71 25 21 38 30  2b 34 0d 07 6c 18 64 69  |t%=q%!80+4..l.di|
00001520  72 77 69 64 74 68 25 3d  6d 69 6e 65 78 74 65 6e  |rwidth%=minexten|
00001530  74 25 0d 07 76 0c 71 25  21 36 38 3d 31 30 0d 07  |t%..v.q%!68=10..|
00001540  80 2d c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |.-.. "Wimp_Creat|
00001550  65 57 69 6e 64 6f 77 22  2c 2c 71 25 20 b8 20 64  |eWindow",,q% . d|
00001560  69 72 65 63 74 6f 72 69  65 73 25 0d 07 8a 05 3a  |irectories%....:|
00001570  0d 07 94 1b c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |...... "Wimp_Clo|
00001580  73 65 54 65 6d 70 6c 61  74 65 22 0d 07 9e 05 3a  |seTemplate"....:|
00001590  0d 07 a8 19 6d 79 72 65  66 25 3d 2d 31 3a 64 72  |....myref%=-1:dr|
000015a0  61 67 62 6f 78 25 3d 2d  31 0d 07 b2 14 f2 72 65  |agbox%=-1.....re|
000015b0  61 64 64 69 72 65 63 74  6f 72 69 65 73 0d 07 bc  |addirectories...|
000015c0  05 e1 0d 07 c6 05 3a 0d  07 d0 12 dd 20 f2 73 79  |......:..... .sy|
000015d0  73 74 65 6d 5f 76 61 72  73 0d 07 da 17 77 62 63  |stem_vars....wbc|
000015e0  6f 6c 20 3d 26 31 3a 74  62 63 6f 6c 20 3d 26 32  |ol =&1:tbcol =&2|
000015f0  0d 07 e4 17 73 63 6f 20  20 20 3d 26 33 3a 73 63  |....sco   =&3:sc|
00001600  69 20 20 20 3d 26 44 0d  07 ee 17 74 62 63 6f 6c  |i   =&D....tbcol|
00001610  32 3d 26 43 3a 6d 62 63  6f 6c 20 3d 26 30 0d 07  |2=&C:mbcol =&0..|
00001620  f8 17 77 66 63 6f 6c 20  3d 26 37 3a 74 66 63 6f  |..wfcol =&7:tfco|
00001630  6c 20 3d 26 37 0d 08 02  05 e1 0d 08 0c 05 3a 0d  |l =&7.........:.|
00001640  08 16 34 dd 20 f2 64 6f  6d 65 6e 75 28 68 61 6e  |..4. .domenu(han|
00001650  64 6c 65 25 2c 6d 65 6e  75 70 74 72 25 2c 6d 65  |dle%,menuptr%,me|
00001660  6e 75 24 2c 6d 65 6e 75  74 69 74 6c 65 24 2c 78  |nu$,menutitle$,x|
00001670  2c 79 29 0d 08 20 12 ea  20 64 75 6d 6d 79 25 2c  |,y).. .. dummy%,|
00001680  6e 65 78 74 25 0d 08 2a  14 6e 65 78 74 25 3d 6d  |next%..*.next%=m|
00001690  65 6e 75 70 74 72 25 2b  34 0d 08 34 16 6d 65 6e  |enuptr%+4..4.men|
000016a0  75 70 74 72 25 21 30 3d  68 61 6e 64 6c 65 25 0d  |uptr%!0=handle%.|
000016b0  08 3e 27 64 75 6d 6d 79  25 3d a4 63 5f 6d 28 6e  |.>'dummy%=.c_m(n|
000016c0  65 78 74 25 2c 6d 65 6e  75 24 2c 6d 65 6e 75 74  |ext%,menu$,menut|
000016d0  69 74 6c 65 24 29 0d 08  48 24 c8 99 20 22 57 69  |itle$)..H$.. "Wi|
000016e0  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
000016f0  64 75 6d 6d 79 25 2c 78  2c 79 0d 08 52 05 e1 0d  |dummy%,x,y..R...|
00001700  08 5c 05 3a 0d 08 66 25  dd 20 a4 63 5f 6d 28 6d  |.\.:..f%. .c_m(m|
00001710  65 6e 75 70 74 72 25 2c  6d 65 6e 75 24 2c 6d 65  |enuptr%,menu$,me|
00001720  6e 75 74 69 74 6c 65 24  29 0d 08 70 18 ea 20 69  |nutitle$)..p.. i|
00001730  25 2c 63 61 6c 6c 25 2c  69 74 65 6d 24 2c 77 2c  |%,call%,item$,w,|
00001740  6c 0d 08 7a 12 63 61 6c  6c 25 3d 6d 65 6e 75 70  |l..z.call%=menup|
00001750  74 72 25 0d 08 84 11 77  3d a9 6d 65 6e 75 74 69  |tr%....w=.menuti|
00001760  74 6c 65 24 0d 08 8e 0d  6e 65 78 74 25 2b 3d 35  |tle$....next%+=5|
00001770  32 0d 08 98 11 e3 20 69  25 3d 30 b8 a9 6d 65 6e  |2..... i%=0..men|
00001780  75 24 0d 08 a2 22 e7 20  c1 6d 65 6e 75 24 2c 69  |u$...". .menu$,i|
00001790  25 2c 31 29 3d 22 2c 22  20 8c 20 6e 65 78 74 25  |%,1)="," . next%|
000017a0  2b 3d 32 34 0d 08 ac 05  ed 0d 08 b6 08 69 25 3d  |+=24.........i%=|
000017b0  30 0d 08 c0 12 6d 65 6e  75 70 74 72 25 21 32 30  |0....menuptr%!20|
000017c0  3d 34 30 0d 08 ca 18 24  6d 65 6e 75 70 74 72 25  |=40....$menuptr%|
000017d0  3d 6d 65 6e 75 74 69 74  6c 65 24 0d 08 d4 47 6d  |=menutitle$...Gm|
000017e0  65 6e 75 70 74 72 25 3f  31 32 3d 74 66 63 6f 6c  |enuptr%?12=tfcol|
000017f0  3a 6d 65 6e 75 70 74 72  25 3f 31 33 3d 32 3a 6d  |:menuptr%?13=2:m|
00001800  65 6e 75 70 74 72 25 3f  31 34 3d 77 66 63 6f 6c  |enuptr%?14=wfcol|
00001810  3a 6d 65 6e 75 70 74 72  25 3f 31 35 3d 6d 62 63  |:menuptr%?15=mbc|
00001820  6f 6c 0d 08 de 11 6d 65  6e 75 70 74 72 25 21 32  |ol....menuptr%!2|
00001830  34 3d 30 0d 08 e8 10 6d  65 6e 75 70 74 72 25 2b  |4=0....menuptr%+|
00001840  3d 32 38 0d 08 f2 05 f5  0d 08 fc 1c 69 74 65 6d  |=28.........item|
00001850  24 3d a4 70 61 72 28 6d  65 6e 75 24 2c 22 2c 22  |$=.par(menu$,","|
00001860  2c 69 25 29 0d 09 06 28  6d 65 6e 75 70 74 72 25  |,i%)...(menuptr%|
00001870  3d a4 6d 65 6e 75 69 74  65 6d 28 6d 65 6e 75 70  |=.menuitem(menup|
00001880  74 72 25 2c 69 74 65 6d  24 2c 6c 29 0d 09 10 0f  |tr%,item$,l)....|
00001890  77 3d a4 6d 61 78 28 6c  2c 77 29 0d 09 1a 0e fd  |w=.max(l,w).....|
000018a0  20 69 74 65 6d 24 3d 22  22 0d 09 24 14 63 61 6c  | item$=""..$.cal|
000018b0  6c 25 21 31 36 3d 31 36  2a 77 2b 31 32 0d 09 2e  |l%!16=16*w+12...|
000018c0  23 6d 65 6e 75 70 74 72  25 21 2d 32 34 3d 28 6d  |#menuptr%!-24=(m|
000018d0  65 6e 75 70 74 72 25 21  2d 32 34 29 84 26 38 30  |enuptr%!-24).&80|
000018e0  0d 09 38 0a 3d 63 61 6c  6c 25 0d 09 42 05 3a 0d  |..8.=call%..B.:.|
000018f0  09 4c 1f dd 20 a4 6d 65  6e 75 69 74 65 6d 28 70  |.L.. .menuitem(p|
00001900  74 72 25 2c 74 65 78 74  24 2c f8 20 6c 29 0d 09  |tr%,text$,. l)..|
00001910  56 14 e7 20 74 65 78 74  24 3d 22 22 20 3d 70 74  |V.. text$="" =pt|
00001920  72 25 0d 09 60 0f ea 20  61 2c 74 24 2c 74 65 78  |r%..`.. a,t$,tex|
00001930  74 0d 09 6a 0a 74 65 78  74 3d b9 0d 09 74 07 61  |t..j.text=...t.a|
00001940  3d 30 0d 09 7e 0b 21 70  74 72 25 3d 30 0d 09 88  |=0..~.!ptr%=0...|
00001950  14 70 74 72 25 21 38 3d  26 30 37 30 30 30 30 32  |.ptr%!8=&0700002|
00001960  31 0d 09 92 0d 70 74 72  25 21 34 3d 2d 31 0d 09  |1....ptr%!4=-1..|
00001970  9c 32 e7 20 c0 74 65 78  74 24 2c 31 29 3d 22 3a  |.2. .text$,1)=":|
00001980  22 21 70 74 72 25 3d 21  70 74 72 25 20 84 20 32  |"!ptr%=!ptr% . 2|
00001990  3a 74 65 78 74 24 3d c1  74 65 78 74 24 2c 32 29  |:text$=.text$,2)|
000019a0  0d 09 a6 37 e7 20 c0 74  65 78 74 24 2c 31 29 3d  |...7. .text$,1)=|
000019b0  22 3c 22 70 74 72 25 21  38 3d 70 74 72 25 21 38  |"<"ptr%!8=ptr%!8|
000019c0  20 84 20 32 5e 32 32 3a  74 65 78 74 24 3d c1 74  | . 2^22:text$=.t|
000019d0  65 78 74 24 2c 32 29 0d  09 b0 36 e7 20 c0 74 65  |ext$,2)...6. .te|
000019e0  78 74 24 2c 31 29 3d 22  40 22 21 70 74 72 25 3d  |xt$,1)="@"!ptr%=|
000019f0  21 6d 65 6e 75 70 74 72  25 20 84 20 31 3a 74 65  |!menuptr% . 1:te|
00001a00  78 74 24 3d c1 74 65 78  74 24 2c 32 29 0d 09 ba  |xt$=.text$,2)...|
00001a10  15 e7 20 c0 74 65 78 74  24 2c 31 29 3d 22 60 22  |.. .text$,1)="`"|
00001a20  20 8c 0d 09 c4 13 74 65  78 74 24 3d c1 74 65 78  | .....text$=.tex|
00001a30  74 24 2c 32 29 0d 09 ce  14 70 74 72 25 21 38 3d  |t$,2)....ptr%!8=|
00001a40  26 30 37 30 30 30 31 32  31 0d 09 d8 13 21 70 74  |&07000121....!pt|
00001a50  72 25 3d 21 70 74 72 25  20 84 20 34 0d 09 e2 18  |r%=!ptr% . 4....|
00001a60  74 24 3d a4 70 61 72 28  74 65 78 74 24 2c 22 2e  |t$=.par(text$,".|
00001a70  22 2c 61 29 0d 09 ec 11  70 74 72 25 21 31 32 3d  |",a)....ptr%!12=|
00001a80  a0 28 74 24 29 0d 09 f6  18 74 24 3d a4 70 61 72  |.(t$)....t$=.par|
00001a90  28 74 65 78 74 24 2c 22  2e 22 2c 61 29 0d 0a 00  |(text$,".",a)...|
00001aa0  11 70 74 72 25 21 31 36  3d a0 28 74 24 29 0d 0a  |.ptr%!16=.(t$)..|
00001ab0  0a 18 74 24 3d a4 70 61  72 28 74 65 78 74 24 2c  |..t$=.par(text$,|
00001ac0  22 2e 22 2c 61 29 0d 0a  14 11 70 74 72 25 21 32  |".",a)....ptr%!2|
00001ad0  30 3d a0 28 74 24 29 0d  0a 1e 0a 74 65 78 74 3d  |0=.(t$)....text=|
00001ae0  a3 0d 0a 28 0c 74 65 78  74 24 3d 22 22 0d 0a 32  |...(.text$=""..2|
00001af0  05 cd 0d 0a 3c 15 e7 20  c0 74 65 78 74 24 2c 31  |....<.. .text$,1|
00001b00  29 3d 22 3e 22 20 8c 0d  0a 46 13 74 65 78 74 24  |)=">" ...F.text$|
00001b10  3d c1 74 65 78 74 24 2c  32 29 0d 0a 50 18 74 24  |=.text$,2)..P.t$|
00001b20  3d a4 70 61 72 28 74 65  78 74 24 2c 22 2e 22 2c  |=.par(text$,".",|
00001b30  61 29 0d 0a 5a 1f 70 74  72 25 21 34 3d a0 28 a4  |a)..Z.ptr%!4=.(.|
00001b40  70 61 72 28 74 65 78 74  24 2c 22 2e 22 2c 61 29  |par(text$,".",a)|
00001b50  29 0d 0a 64 0c 74 65 78  74 24 3d 74 24 0d 0a 6e  |)..d.text$=t$..n|
00001b60  05 cd 0d 0a 78 15 e7 20  c0 74 65 78 74 24 2c 31  |....x.. .text$,1|
00001b70  29 3d 22 7e 22 20 8c 0d  0a 82 13 74 65 78 74 24  |)="~" .....text$|
00001b80  3d c1 74 65 78 74 24 2c  32 29 0d 0a 8c 18 74 24  |=.text$,2)....t$|
00001b90  3d a4 70 61 72 28 74 65  78 74 24 2c 22 2e 22 2c  |=.par(text$,".",|
00001ba0  61 29 0d 0a 96 50 70 74  72 25 21 34 3d a0 28 22  |a)...Pptr%!4=.("|
00001bb0  46 4e 63 5f 6d 28 6e 65  78 74 25 2c 22 2b a4 70  |FNc_m(next%,"+.p|
00001bc0  61 72 28 74 65 78 74 24  2c 22 2e 22 2c 61 29 2b  |ar(text$,".",a)+|
00001bd0  22 2c 22 2b bd 33 34 2b  a4 70 61 72 28 74 65 78  |","+.34+.par(tex|
00001be0  74 24 2c 22 2e 22 2c 61  29 2b bd 33 34 2b 22 29  |t$,".",a)+.34+")|
00001bf0  22 29 0d 0a a0 0c 74 65  78 74 24 3d 74 24 0d 0a  |")....text$=t$..|
00001c00  aa 05 cd 0d 0a b4 1d e7  20 74 65 78 74 20 8c 20  |........ text . |
00001c10  24 28 70 74 72 25 2b 31  32 29 3d 74 65 78 74 24  |$(ptr%+12)=text$|
00001c20  0d 0a be 0c 6c 3d a9 74  65 78 74 24 0d 0a c8 0c  |....l=.text$....|
00001c30  3d 70 74 72 25 2b 32 34  0d 0a d2 05 3a 0d 0a dc  |=ptr%+24....:...|
00001c40  16 dd 20 a4 70 61 72 28  61 24 2c 73 24 2c f8 20  |.. .par(a$,s$,. |
00001c50  69 25 29 0d 0a e6 09 ea  20 69 31 25 0d 0a f0 1e  |i%)..... i1%....|
00001c60  69 31 25 3d 69 25 2b 31  3a 69 25 3d a7 61 24 2b  |i1%=i%+1:i%=.a$+|
00001c70  73 24 2c 73 24 2c 69 31  25 29 0d 0a fa 14 3d c1  |s$,s$,i1%)....=.|
00001c80  61 24 2c 69 31 25 2c 69  25 2d 69 31 25 29 0d 0b  |a$,i1%,i%-i1%)..|
00001c90  04 05 3a 0d 0b 0e 1c dd  20 a4 63 6f 75 6e 74 69  |..:..... .counti|
00001ca0  74 65 6d 73 28 73 72 63  24 2c 74 67 74 24 29 0d  |tems(src$,tgt$).|
00001cb0  0b 18 19 ea 20 61 2c 63  6f 75 6e 74 3a 63 6f 75  |.... a,count:cou|
00001cc0  6e 74 3d 30 3a 61 3d 30  0d 0b 22 29 c8 95 20 a4  |nt=0:a=0..").. .|
00001cd0  70 61 72 28 73 72 63 24  2c 74 67 74 24 2c 61 29  |par(src$,tgt$,a)|
00001ce0  20 3c 3e 20 22 22 3a 63  6f 75 6e 74 2b 3d 31 3a  | <> "":count+=1:|
00001cf0  ce 0d 0b 2c 0a 3d 63 6f  75 6e 74 0d 0b 36 05 3a  |...,.=count..6.:|
00001d00  0d 0b 40 12 dd 20 a4 74  69 63 6b 28 6d 24 2c 6e  |..@.. .tick(m$,n|
00001d10  24 29 0d 0b 4a 07 ea 20  61 0d 0b 54 15 e7 20 a7  |$)..J.. a..T.. .|
00001d20  6d 24 2c 6e 24 29 3d 30  20 8c 20 3d 6d 24 0d 0b  |m$,n$)=0 . =m$..|
00001d30  5e 0d 61 3d a7 6d 24 2c  6e 24 29 0d 0b 68 1c e7  |^.a=.m$,n$)..h..|
00001d40  20 c1 6d 24 2c 61 2d 31  2c 31 29 20 3d 20 22 40  | .m$,a-1,1) = "@|
00001d50  22 20 8c 20 3d 6d 24 0d  0b 72 18 3d c0 6d 24 2c  |" . =m$..r.=.m$,|
00001d60  61 2d 31 29 2b 22 40 22  2b c1 6d 24 2c 61 29 0d  |a-1)+"@"+.m$,a).|
00001d70  0b 7c 05 3a 0d 0b 86 14  dd 20 a4 75 6e 74 69 63  |.|.:..... .untic|
00001d80  6b 28 6d 24 2c 6e 24 29  0d 0b 90 07 ea 20 61 0d  |k(m$,n$)..... a.|
00001d90  0b 9a 15 e7 20 a7 6d 24  2c 6e 24 29 3d 30 20 8c  |.... .m$,n$)=0 .|
00001da0  20 3d 6d 24 0d 0b a4 0d  61 3d a7 6d 24 2c 6e 24  | =m$....a=.m$,n$|
00001db0  29 0d 0b ae 1d e7 20 c1  6d 24 2c 61 2d 31 2c 31  |)..... .m$,a-1,1|
00001dc0  29 20 3c 3e 20 22 40 22  20 8c 20 3d 6d 24 0d 0b  |) <> "@" . =m$..|
00001dd0  b8 14 3d c0 6d 24 2c 61  2d 32 29 2b c1 6d 24 2c  |..=.m$,a-2)+.m$,|
00001de0  61 29 0d 0b c2 05 3a 0d  0b cc 18 dd 20 a4 74 6f  |a)....:..... .to|
00001df0  67 67 6c 65 74 69 63 6b  28 6d 24 2c 6e 24 29 0d  |ggletick(m$,n$).|
00001e00  0b d6 0a ea 20 61 2c 61  24 0d 0b e0 15 e7 20 a7  |.... a,a$..... .|
00001e10  6d 24 2c 6e 24 29 3d 30  20 8c 20 3d 6d 24 0d 0b  |m$,n$)=0 . =m$..|
00001e20  ea 0d 61 3d a7 6d 24 2c  6e 24 29 0d 0b f4 18 e7  |..a=.m$,n$).....|
00001e30  20 c1 6d 24 2c 61 2d 31  2c 31 29 20 3d 20 22 40  | .m$,a-1,1) = "@|
00001e40  22 20 8c 0d 0b fe 18 61  24 20 3d 20 c0 6d 24 2c  |" .....a$ = .m$,|
00001e50  61 2d 32 29 2b c1 6d 24  2c 61 29 0d 0c 08 05 cc  |a-2)+.m$,a).....|
00001e60  0d 0c 12 1c 61 24 20 3d  20 c0 6d 24 2c 61 2d 31  |....a$ = .m$,a-1|
00001e70  29 2b 22 40 22 2b c1 6d  24 2c 61 29 0d 0c 1c 05  |)+"@"+.m$,a)....|
00001e80  cd 0d 0c 26 07 3d 61 24  0d 0c 30 05 3a 0d 0c 3a  |...&.=a$..0.:..:|
00001e90  16 dd 20 a4 6f 6e 6c 79  74 69 63 6b 28 6d 24 2c  |.. .onlytick(m$,|
00001ea0  6e 24 29 0d 0c 44 0a ea  20 61 2c 62 24 0d 0c 4e  |n$)..D.. a,b$..N|
00001eb0  07 61 3d 30 0d 0c 58 15  62 24 3d a4 70 61 72 28  |.a=0..X.b$=.par(|
00001ec0  6d 24 2c 22 2c 22 2c 61  29 0d 0c 62 0d c8 95 20  |m$,",",a)..b... |
00001ed0  62 24 3c 3e 22 22 0d 0c  6c 1c e7 20 c0 62 24 2c  |b$<>""..l.. .b$,|
00001ee0  31 29 3d 22 40 22 20 8c  20 62 24 3d c1 62 24 2c  |1)="@" . b$=.b$,|
00001ef0  32 29 0d 0c 76 15 6d 24  3d a4 75 6e 74 69 63 6b  |2)..v.m$=.untick|
00001f00  28 6d 24 2c 62 24 29 0d  0c 80 15 62 24 3d a4 70  |(m$,b$)....b$=.p|
00001f10  61 72 28 6d 24 2c 22 2c  22 2c 61 29 0d 0c 8a 05  |ar(m$,",",a)....|
00001f20  ce 0d 0c 94 11 3d a4 74  69 63 6b 28 6d 24 2c 6e  |.....=.tick(m$,n|
00001f30  24 29 0d 0c 9e 05 3a 0d  0c a8 15 dd 20 f2 66 72  |$)....:..... .fr|
00001f40  6f 6e 74 28 68 61 6e 64  6c 65 25 29 0d 0c b2 11  |ont(handle%)....|
00001f50  e7 68 61 6e 64 6c 65 25  3d 2d 31 8c e1 0d 0c bc  |.handle%=-1.....|
00001f60  12 f2 67 65 74 77 28 68  61 6e 64 6c 65 25 29 0d  |..getw(handle%).|
00001f70  0c c6 36 f2 6f 70 65 6e  5f 77 69 6e 64 6f 77 28  |..6.open_window(|
00001f80  68 61 6e 64 6c 65 25 2c  78 30 25 2c 79 30 25 2c  |handle%,x0%,y0%,|
00001f90  78 31 25 2c 79 31 25 2c  73 63 78 25 2c 73 63 79  |x1%,y1%,scx%,scy|
00001fa0  25 2c 2d 31 29 0d 0c d0  05 e1 0d 0c da 05 3a 0d  |%,-1).........:.|
00001fb0  0c e4 3e dd 20 f2 6f 70  65 6e 5f 77 69 6e 64 6f  |..>. .open_windo|
00001fc0  77 28 68 61 6e 64 6c 65  25 2c 78 30 25 2c 79 30  |w(handle%,x0%,y0|
00001fd0  25 2c 78 31 25 2c 79 31  25 2c 73 63 78 25 2c 73  |%,x1%,y1%,scx%,s|
00001fe0  63 79 25 2c 62 68 61 6e  64 6c 65 25 29 0d 0c ee  |cy%,bhandle%)...|
00001ff0  11 e7 68 61 6e 64 6c 65  25 3d 2d 31 8c e1 0d 0c  |..handle%=-1....|
00002000  f8 1f 71 25 21 30 3d 68  61 6e 64 6c 65 25 3a 71  |..q%!0=handle%:q|
00002010  25 21 32 38 3d 62 68 61  6e 64 6c 65 25 0d 0d 02  |%!28=bhandle%...|
00002020  29 71 25 21 34 3d 78 30  25 3a 71 25 21 38 3d 79  |)q%!4=x0%:q%!8=y|
00002030  30 25 3a 71 25 21 31 32  3d 78 31 25 3a 71 25 21  |0%:q%!12=x1%:q%!|
00002040  31 36 3d 79 31 25 0d 0d  0c 19 71 25 21 32 30 3d  |16=y1%....q%!20=|
00002050  73 63 78 25 3a 71 25 21  32 34 3d 73 63 79 25 0d  |scx%:q%!24=scy%.|
00002060  0d 16 1c c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |..... "Wimp_Open|
00002070  57 69 6e 64 6f 77 22 2c  2c 71 25 0d 0d 20 05 e1  |Window",,q%.. ..|
00002080  0d 0d 2a 05 3a 0d 0d 34  1c dd 20 f2 63 6c 6f 73  |..*.:..4.. .clos|
00002090  65 5f 77 69 6e 64 6f 77  28 68 61 6e 64 6c 65 25  |e_window(handle%|
000020a0  29 0d 0d 3e 0f 21 71 25  3d 68 61 6e 64 6c 65 25  |)..>.!q%=handle%|
000020b0  0d 0d 48 1d c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |..H... "Wimp_Clo|
000020c0  73 65 57 69 6e 64 6f 77  22 2c 2c 71 25 0d 0d 52  |seWindow",,q%..R|
000020d0  05 e1 0d 0d 5c 05 3a 0d  0d 66 14 dd 20 f2 67 65  |....\.:..f.. .ge|
000020e0  74 77 28 68 61 6e 64 6c  65 25 29 0d 0d 70 2b 21  |tw(handle%)..p+!|
000020f0  71 25 3d 68 61 6e 64 6c  65 25 3a c8 99 20 22 57  |q%=handle%:.. "W|
00002100  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 49 6e 66  |imp_GetWindowInf|
00002110  6f 22 2c 2c 71 25 0d 0d  7a 1f 78 30 25 3d 71 25  |o",,q%..z.x0%=q%|
00002120  21 34 3a 79 30 25 3d 71  25 21 38 3a 78 31 25 3d  |!4:y0%=q%!8:x1%=|
00002130  71 25 21 31 32 0d 0d 84  23 79 31 25 3d 71 25 21  |q%!12...#y1%=q%!|
00002140  31 36 3a 73 63 78 25 3d  71 25 21 32 30 3a 73 63  |16:scx%=q%!20:sc|
00002150  79 25 3d 71 25 21 32 34  0d 0d 8e 1d 62 78 25 3d  |y%=q%!24....bx%=|
00002160  78 30 25 2d 73 63 78 25  3a 62 79 25 3d 79 31 25  |x0%-scx%:by%=y1%|
00002170  2d 73 63 79 25 0d 0d 98  1f 62 68 61 6e 64 6c 65  |-scy%....bhandle|
00002180  25 3d 71 25 21 32 38 3a  66 6c 61 67 73 25 3d 71  |%=q%!28:flags%=q|
00002190  25 21 33 32 0d 0d a2 05  e1 0d 0d ac 05 3a 0d 0d  |%!32.........:..|
000021a0  b6 11 dd 20 f2 67 65 74  70 6f 69 6e 74 65 72 0d  |... .getpointer.|
000021b0  0d c0 20 c8 99 20 22 57  69 6d 70 5f 47 65 74 50  |.. .. "Wimp_GetP|
000021c0  6f 69 6e 74 65 72 49 6e  66 6f 22 2c 2c 71 25 0d  |ointerInfo",,q%.|
000021d0  0d ca 48 6d 6f 75 73 65  78 25 3d 21 71 25 3a 6d  |..Hmousex%=!q%:m|
000021e0  6f 75 73 65 79 25 3d 71  25 21 34 3a 62 25 3d 71  |ousey%=q%!4:b%=q|
000021f0  25 21 38 3a 68 61 6e 64  6c 65 25 3d 71 25 21 31  |%!8:handle%=q%!1|
00002200  32 3a 69 63 6f 6e 25 3d  71 25 21 31 36 3a 6f 62  |2:icon%=q%!16:ob|
00002210  25 3d 71 25 21 32 30 0d  0d d4 05 e1 0d 0d de 05  |%=q%!20.........|
00002220  3a 0d 0d e8 16 dd 20 f2  65 72 72 6f 72 62 6f 78  |:..... .errorbox|
00002230  28 71 75 69 74 25 29 0d  0d f2 0d ea 20 72 65 73  |(quit%)..... res|
00002240  75 6c 74 25 0d 0d fc 2e  c8 99 20 22 57 69 6d 70  |ult%...... "Wimp|
00002250  5f 44 72 61 67 42 6f 78  22 2c 2c 2d 31 3a c8 99  |_DragBox",,-1:..|
00002260  20 22 48 6f 75 72 67 6c  61 73 73 5f 53 6d 61 73  | "Hourglass_Smas|
00002270  68 22 0d 0e 06 24 c8 99  20 22 57 69 6d 70 5f 53  |h"...$.. "Wimp_S|
00002280  6c 6f 74 53 69 7a 65 22  2c 73 74 61 72 74 73 6c  |lotSize",startsl|
00002290  6f 74 25 2c 2d 31 0d 0e  10 1b 63 75 72 72 65 6e  |ot%,-1....curren|
000022a0  74 73 6c 6f 74 25 3d 73  74 61 72 74 73 6c 6f 74  |tslot%=startslot|
000022b0  25 0d 0e 1a 73 21 71 25  3d 9f 3a 24 28 71 25 2b  |%...s!q%=.:$(q%+|
000022c0  34 29 3d 22 2a 2a 2a 2a  2a 20 44 69 61 67 6e 6f  |4)="***** Diagno|
000022d0  73 74 69 63 20 52 65 70  6f 72 74 20 2a 2a 2a 2a  |stic Report ****|
000022e0  2a 20 22 2b f6 24 2b 22  20 28 22 2b c3 9e 2b 22  |* "+.$+" ("+..+"|
000022f0  29 22 2b 22 20 4f 6b 20  74 6f 20 63 6f 6e 74 69  |)"+" Ok to conti|
00002300  6e 75 65 2c 20 43 61 6e  63 65 6c 20 74 6f 20 6b  |nue, Cancel to k|
00002310  69 6c 6c 20 22 2b 70 72  6f 67 5f 74 69 74 6c 65  |ill "+prog_title|
00002320  24 2b bd 30 0d 0e 24 21  e7 20 71 75 69 74 25 20  |$+.0..$!. quit% |
00002330  8c 20 71 75 69 74 25 3d  32 20 8b 20 71 75 69 74  |. quit%=2 . quit|
00002340  25 20 3d 20 33 0d 0e 2e  3c c8 99 20 22 57 69 6d  |% = 3...<.. "Wim|
00002350  70 5f 52 65 70 6f 72 74  45 72 72 6f 72 22 2c 71  |p_ReportError",q|
00002360  25 2c 71 75 69 74 25 2c  70 72 6f 67 5f 74 69 74  |%,quit%,prog_tit|
00002370  6c 65 24 2b bd 30 20 b8  20 2c 72 65 73 75 6c 74  |le$+.0 . ,result|
00002380  25 0d 0e 38 19 e7 20 72  65 73 75 6c 74 25 3d 32  |%..8.. result%=2|
00002390  20 8c 20 f2 66 69 6e 69  73 68 0d 0e 42 05 e1 0d  | . .finish..B...|
000023a0  0e 4c 05 3a 0d 0e 56 0d  dd 20 f2 66 69 6e 69 73  |.L.:..V.. .finis|
000023b0  68 0d 0e 60 10 ff 20 22  50 6c 61 79 53 74 6f 70  |h..`.. "PlayStop|
000023c0  22 0d 0e 6a 19 c8 99 20  22 57 69 6d 70 5f 43 6c  |"..j... "Wimp_Cl|
000023d0  6f 73 65 44 6f 77 6e 22  3a e0 0d 0e 74 05 e1 0d  |oseDown":...t...|
000023e0  0e 7e 05 3a 0d 0e 88 29  dd 20 a4 69 63 6f 6e 62  |.~.:...). .iconb|
000023f0  61 72 28 73 70 6e 61 6d  65 24 2c 73 70 72 69 74  |ar(spname$,sprit|
00002400  65 61 72 65 61 25 2c 74  65 78 74 25 29 0d 0e 92  |earea%,text%)...|
00002410  09 ea 20 69 63 25 0d 0e  9c 0a 21 71 25 3d 2d 31  |.. ic%....!q%=-1|
00002420  0d 0e a6 10 e7 20 74 65  78 74 25 3d 2d 31 20 8c  |..... text%=-1 .|
00002430  0d 0e b0 23 71 25 21 34  3d 30 3a 71 25 21 38 3d  |...#q%!4=0:q%!8=|
00002440  30 3a 71 25 21 31 32 3d  36 33 3a 71 25 21 31 36  |0:q%!12=63:q%!16|
00002450  3d 36 38 0d 0e ba 0f 71  25 21 32 30 3d 26 32 31  |=68....q%!20=&21|
00002460  30 32 0d 0e c4 18 de 20  71 25 21 32 34 20 28 a9  |02..... q%!24 (.|
00002470  73 70 6e 61 6d 65 24 2b  31 29 0d 0e ce 37 24 28  |spname$+1)...7$(|
00002480  71 25 21 32 34 29 3d 73  70 6e 61 6d 65 24 3a 71  |q%!24)=spname$:q|
00002490  25 21 32 38 3d 73 70 72  69 74 65 61 72 65 61 25  |%!28=spritearea%|
000024a0  3a 71 25 21 33 32 3d a9  73 70 6e 61 6d 65 24 2b  |:q%!32=.spname$+|
000024b0  31 0d 0e d8 22 c8 99 20  22 57 69 6d 70 5f 43 72  |1...".. "Wimp_Cr|
000024c0  65 61 74 65 49 63 6f 6e  22 2c 2c 71 25 20 b8 20  |eateIcon",,q% . |
000024d0  69 63 25 0d 0e e2 05 cc  0d 0e ec 26 71 25 21 34  |ic%........&q%!4|
000024e0  3d 30 3a 71 25 21 38 3d  2d 31 36 3a 71 25 21 31  |=0:q%!8=-16:q%!1|
000024f0  32 3d 31 36 34 3a 71 25  21 31 36 3d 36 30 0d 0e  |2=164:q%!16=60..|
00002500  f6 13 71 25 21 32 30 3d  26 31 37 30 31 32 31 30  |..q%!20=&1701210|
00002510  42 0d 0f 00 18 de 20 71  25 21 32 38 20 28 a9 73  |B..... q%!28 (.s|
00002520  70 6e 61 6d 65 24 2b 32  29 0d 0f 0a 35 71 25 21  |pname$+2)...5q%!|
00002530  32 34 3d 74 65 78 74 25  3a 24 28 71 25 21 32 38  |24=text%:$(q%!28|
00002540  29 3d 22 73 22 2b 73 70  6e 61 6d 65 24 3a 71 25  |)="s"+spname$:q%|
00002550  21 33 32 3d a9 20 28 24  74 65 78 74 25 29 0d 0f  |!32=. ($text%)..|
00002560  14 22 c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |.".. "Wimp_Creat|
00002570  65 49 63 6f 6e 22 2c 2c  71 25 20 b8 20 69 63 25  |eIcon",,q% . ic%|
00002580  0d 0f 1e 05 cd 0d 0f 28  08 3d 69 63 25 0d 0f 32  |.......(.=ic%..2|
00002590  05 3a 0d 0f 3c 19 dd 20  f2 72 65 64 72 61 77 5f  |.:..<.. .redraw_|
000025a0  73 65 72 76 69 63 65 28  71 25 29 0d 0f 46 0a ea  |service(q%)..F..|
000025b0  20 66 6c 61 67 0d 0f 50  24 c8 99 22 57 69 6d 70  | flag..P$.."Wimp|
000025c0  5f 52 65 64 72 61 77 57  69 6e 64 6f 77 22 2c 2c  |_RedrawWindow",,|
000025d0  71 25 20 b8 20 66 6c 61  67 0d 0f 5a 0b c8 95 20  |q% . flag..Z... |
000025e0  66 6c 61 67 0d 0f 64 0f  f2 72 65 64 72 61 77 28  |flag..d..redraw(|
000025f0  71 25 29 0d 0f 6e 24 c8  99 22 57 69 6d 70 5f 47  |q%)..n$.."Wimp_G|
00002600  65 74 52 65 63 74 61 6e  67 6c 65 22 2c 2c 71 25  |etRectangle",,q%|
00002610  20 b8 20 66 6c 61 67 0d  0f 78 05 ce 0d 0f 82 05  | . flag..x......|
00002620  e1 0d 0f 8c 05 3a 0d 0f  96 11 dd 20 f2 72 65 64  |.....:..... .red|
00002630  72 61 77 28 71 25 29 0d  0f a0 0b ea 20 6c 6f 6f  |raw(q%)..... loo|
00002640  70 25 0d 0f aa 0c c8 8e  20 21 71 25 20 ca 0d 0f  |p%...... !q% ...|
00002650  b4 12 c9 20 64 69 72 65  63 74 6f 72 69 65 73 25  |... directories%|
00002660  0d 0f be 1b e7 20 6e 6f  6f 66 64 69 72 65 63 74  |..... noofdirect|
00002670  6f 72 69 65 73 25 3c 3e  30 20 8c 0d 0f c8 41 53  |ories%<>0 ....AS|
00002680  74 61 72 74 58 25 3d 71  25 21 34 2b 6c 65 66 74  |tartX%=q%!4+left|
00002690  6d 61 72 67 69 6e 25 2d  71 25 21 32 30 3a 53 74  |margin%-q%!20:St|
000026a0  61 72 74 59 25 3d 71 25  21 31 36 2d 74 6f 70 6d  |artY%=q%!16-topm|
000026b0  61 72 67 69 6e 25 2d 71  25 21 32 34 0d 0f d2 20  |argin%-q%!24... |
000026c0  e3 20 6c 6f 6f 70 25 3d  30 20 b8 20 6e 6f 6f 66  |. loop%=0 . noof|
000026d0  64 69 72 65 63 74 6f 72  69 65 73 25 0d 0f dc 20  |directories%... |
000026e0  43 59 25 3d 53 74 61 72  74 59 25 2d 6c 6f 6f 70  |CY%=StartY%-loop|
000026f0  25 2a 79 5f 73 70 61 63  69 6e 67 25 0d 0f e6 29  |%*y_spacing%...)|
00002700  f4 20 49 46 20 43 59 25  3c 71 25 21 34 30 2b 33  |. IF CY%<q%!40+3|
00002710  31 20 41 4e 44 20 43 59  25 3e 3d 71 25 21 33 32  |1 AND CY%>=q%!32|
00002720  20 54 48 45 4e 0d 0f f0  23 ec 20 53 74 61 72 74  | THEN...#. Start|
00002730  58 25 2c 43 59 25 3a f1  20 64 69 72 6e 61 6d 65  |X%,CY%:. dirname|
00002740  24 28 6c 6f 6f 70 25 29  0d 0f fa 05 ed 0d 10 04  |$(loop%)........|
00002750  05 cd 0d 10 0e 21 7f 20  85 20 30 2c 22 55 6e 6b  |.....!. . 0,"Unk|
00002760  6e 6f 77 6e 20 57 69 6e  64 6f 77 20 48 61 6e 64  |nown Window Hand|
00002770  6c 65 22 0d 10 18 05 cb  0d 10 22 05 e1 0d 10 2c  |le"......."....,|
00002780  05 3a 0d 10 36 24 dd 20  f2 6d 6f 75 73 65 72 65  |.:..6$. .mousere|
00002790  63 74 61 6e 67 6c 65 28  78 25 2c 79 25 2c 78 31  |ctangle(x%,y%,x1|
000027a0  25 2c 79 31 25 29 0d 10  40 1d c8 97 20 c8 93 20  |%,y1%)..@... .. |
000027b0  78 25 2c 79 25 2c 78 31  25 2d 78 25 2c 79 31 25  |x%,y%,x1%-x%,y1%|
000027c0  2d 79 25 0d 10 4a 05 e1  0d 10 54 05 3a 0d 10 5e  |-y%..J....T.:..^|
000027d0  18 dd 20 f2 73 65 6c 65  63 74 69 63 6f 6e 28 77  |.. .selecticon(w|
000027e0  25 2c 69 25 29 0d 10 68  2a 71 25 21 30 3d 77 25  |%,i%)..h*q%!0=w%|
000027f0  3a 71 25 21 34 3d 69 25  3a 71 25 21 38 3d 31 3c  |:q%!4=i%:q%!8=1<|
00002800  3c 32 31 3a 71 25 21 31  32 3d 31 3c 3c 32 31 0d  |<21:q%!12=1<<21.|
00002810  10 72 1f c8 99 20 22 57  69 6d 70 5f 53 65 74 49  |.r... "Wimp_SetI|
00002820  63 6f 6e 53 74 61 74 65  22 2c 30 2c 71 25 0d 10  |conState",0,q%..|
00002830  7c 05 e1 0d 10 86 05 3a  0d 10 90 1a dd 20 f2 64  ||......:..... .d|
00002840  65 73 65 6c 65 63 74 69  63 6f 6e 28 77 25 2c 69  |eselecticon(w%,i|
00002850  25 29 0d 10 9a 26 71 25  21 30 3d 77 25 3a 71 25  |%)...&q%!0=w%:q%|
00002860  21 34 3d 69 25 3a 71 25  21 38 3d 30 3a 71 25 21  |!4=i%:q%!8=0:q%!|
00002870  31 32 3d 31 3c 3c 32 31  0d 10 a4 1f c8 99 20 22  |12=1<<21...... "|
00002880  57 69 6d 70 5f 53 65 74  49 63 6f 6e 53 74 61 74  |Wimp_SetIconStat|
00002890  65 22 2c 30 2c 71 25 0d  10 ae 05 e1 0d 10 b8 05  |e",0,q%.........|
000028a0  3a 0d 10 c2 18 dd 20 f2  66 6c 61 73 68 5f 69 63  |:..... .flash_ic|
000028b0  6f 6e 28 77 25 2c 69 25  29 0d 10 cc 07 ea 20 74  |on(w%,i%)..... t|
000028c0  0d 10 d6 10 ff 20 28 22  66 78 32 31 2c 30 22 29  |..... ("fx21,0")|
000028d0  0d 10 e0 44 71 25 21 30  3d 77 25 3a 71 25 21 34  |...Dq%!0=w%:q%!4|
000028e0  3d 69 25 3a 71 25 21 38  3d 31 3c 3c 32 31 3a 71  |=i%:q%!8=1<<21:q|
000028f0  25 21 31 32 3d 31 3c 3c  32 31 3a c8 99 22 57 69  |%!12=1<<21:.."Wi|
00002900  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
00002910  2c 2c 71 25 0d 10 ea 14  74 3d 91 3a f5 20 fd 20  |,,q%....t=.:. . |
00002920  91 3e 28 74 2b 31 30 29  0d 10 f4 40 71 25 21 30  |.>(t+10)...@q%!0|
00002930  3d 77 25 3a 71 25 21 34  3d 69 25 3a 71 25 21 38  |=w%:q%!4=i%:q%!8|
00002940  3d 30 3a 71 25 21 31 32  3d 31 3c 3c 32 31 3a c8  |=0:q%!12=1<<21:.|
00002950  99 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  |."Wimp_SetIconSt|
00002960  61 74 65 22 2c 2c 71 25  0d 10 fe 05 e1 0d 11 08  |ate",,q%........|
00002970  05 3a 0d 11 12 1e dd 20  a4 6d 61 78 28 61 2c 62  |.:..... .max(a,b|
00002980  29 3a e7 20 61 3e 62 20  3d 20 61 20 8b 20 3d 62  |):. a>b = a . =b|
00002990  0d 11 1c 1e dd 20 a4 6d  69 6e 28 61 2c 62 29 3a  |..... .min(a,b):|
000029a0  e7 20 61 3c 62 20 3d 20  61 20 8b 20 3d 62 0d 11  |. a<b = a . =b..|
000029b0  26 05 3a 0d 11 30 14 dd  20 f2 73 65 6e 64 5f 68  |&.:..0.. .send_h|
000029c0  65 6c 70 28 61 24 29 0d  11 3a 1a 21 28 71 25 2b  |elp(a$)..:.!(q%+|
000029d0  30 30 29 3d 28 a9 61 24  2b 32 35 29 20 80 20 ac  |00)=(.a$+25) . .|
000029e0  33 0d 11 44 0e 71 25 21  31 32 3d 71 25 21 38 0d  |3..D.q%!12=q%!8.|
000029f0  11 4e 11 21 28 71 25 2b  31 36 29 3d 26 35 30 33  |.N.!(q%+16)=&503|
00002a00  0d 11 58 0f 24 28 71 25  2b 32 30 29 3d 61 24 0d  |..X.$(q%+20)=a$.|
00002a10  11 62 14 3f 28 71 25 2b  32 30 2b a9 61 24 2b 31  |.b.?(q%+20+.a$+1|
00002a20  29 3d 30 0d 11 6c 24 c8  99 20 22 57 69 6d 70 5f  |)=0..l$.. "Wimp_|
00002a30  53 65 6e 64 4d 65 73 73  61 67 65 22 2c 31 37 2c  |SendMessage",17,|
00002a40  71 25 2c 71 25 21 34 0d  11 76 05 e1 0d 11 80 05  |q%,q%!4..v......|
00002a50  3a 0d 11 8a 23 dd 20 a4  68 65 6c 70 5f 74 65 78  |:...#. .help_tex|
00002a60  74 28 62 75 66 25 2c 65  6e 64 62 75 66 25 2c 6e  |t(buf%,endbuf%,n|
00002a70  75 6d 62 29 0d 11 94 14  ea 20 6e 65 78 74 25 2c  |umb)..... next%,|
00002a80  61 24 2c 6c 6f 6f 70 25  0d 11 9e 1f c8 95 20 6e  |a$,loop%...... n|
00002a90  65 78 74 25 20 3c 3d 20  65 6e 64 62 75 66 25 20  |ext% <= endbuf% |
00002aa0  80 20 61 24 3d 22 22 0d  11 a8 10 6e 65 78 74 25  |. a$=""....next%|
00002ab0  3d 62 75 66 25 2b 32 0d  11 b2 05 f5 0d 11 bc 0c  |=buf%+2.........|
00002ac0  6e 65 78 74 25 2b 3d 31  0d 11 c6 32 fd 20 3f 6e  |next%+=1...2. ?n|
00002ad0  65 78 74 25 20 3d 20 31  30 20 84 20 3f 6e 65 78  |ext% = 10 . ?nex|
00002ae0  74 25 20 3d 20 31 33 20  84 20 6e 65 78 74 25 20  |t% = 13 . next% |
00002af0  3e 3d 20 65 6e 64 62 75  66 25 0d 11 d0 33 e7 20  |>= endbuf%...3. |
00002b00  6e 75 6d 62 3d bb 28 bd  3f 62 75 66 25 2b bd 3f  |numb=.(.?buf%+.?|
00002b10  28 62 75 66 25 2b 31 29  29 20 80 20 6e 65 78 74  |(buf%+1)) . next|
00002b20  25 20 3c 20 65 6e 64 62  75 66 25 20 8c 0d 11 da  |% < endbuf% ....|
00002b30  1c e3 20 6c 6f 6f 70 25  3d 62 75 66 25 2b 32 20  |.. loop%=buf%+2 |
00002b40  b8 20 6e 65 78 74 25 2d  31 0d 11 e4 13 61 24 3d  |. next%-1....a$=|
00002b50  61 24 2b bd 28 3f 6c 6f  6f 70 25 29 0d 11 ee 05  |a$+.(?loop%)....|
00002b60  ed 0d 11 f8 05 cd 0d 12  02 10 62 75 66 25 3d 6e  |..........buf%=n|
00002b70  65 78 74 25 2b 31 0d 12  0c 05 ce 0d 12 16 07 3d  |ext%+1.........=|
00002b80  61 24 0d 12 20 05 3a 0d  12 2a 1b dd 20 a4 71 75  |a$.. .:..*.. .qu|
00002b90  65 72 79 28 71 75 65 72  79 24 2c 74 69 74 6c 65  |ery(query$,title|
00002ba0  24 29 0d 12 34 0c ea 20  72 65 73 75 6c 74 0d 12  |$)..4.. result..|
00002bb0  3e 1d 71 25 21 30 3d 30  3a 24 28 71 25 2b 34 29  |>.q%!0=0:$(q%+4)|
00002bc0  3d 71 75 65 72 79 24 24  2b bd 30 0d 12 48 33 c8  |=query$$+.0..H3.|
00002bd0  99 20 22 57 69 6d 70 5f  52 65 70 6f 72 74 45 72  |. "Wimp_ReportEr|
00002be0  72 6f 72 22 2c 71 25 2c  31 39 2c 74 69 74 6c 65  |ror",q%,19,title|
00002bf0  24 2b bd 30 20 b8 20 2c  72 65 73 75 6c 74 0d 12  |$+.0 . ,result..|
00002c00  52 16 e7 20 72 65 73 75  6c 74 20 3d 20 31 20 8c  |R.. result = 1 .|
00002c10  20 3d 20 b9 0d 12 5c 07  3d 20 a3 0d 12 66 05 3a  | = ...\.= ...f.:|
00002c20  0d 12 70 12 dd 20 a4 6c  65 61 66 28 70 61 74 68  |..p.. .leaf(path|
00002c30  24 29 0d 12 7a 2e c8 95  20 a7 70 61 74 68 24 2c  |$)..z... .path$,|
00002c40  22 2e 22 29 3a 70 61 74  68 24 3d c1 70 61 74 68  |"."):path$=.path|
00002c50  24 2c a7 70 61 74 68 24  2c 22 2e 22 29 2b 31 29  |$,.path$,".")+1)|
00002c60  0d 12 84 05 ce 0d 12 8e  0a 3d 70 61 74 68 24 0d  |.........=path$.|
00002c70  12 98 05 3a 0d 12 a2 12  dd 20 a4 70 61 74 68 28  |...:..... .path(|
00002c80  70 61 74 68 24 29 0d 12  ac 2e c8 95 20 c2 70 61  |path$)...... .pa|
00002c90  74 68 24 2c 31 29 20 3c  3e 20 22 2e 22 20 70 61  |th$,1) <> "." pa|
00002ca0  74 68 24 3d c0 70 61 74  68 24 2c a9 70 61 74 68  |th$=.path$,.path|
00002cb0  24 2d 31 29 0d 12 b6 05  ce 0d 12 c0 15 3d c0 70  |$-1).........=.p|
00002cc0  61 74 68 24 2c a9 70 61  74 68 24 2d 31 29 0d 12  |ath$,.path$-1)..|
00002cd0  ca 05 3a 0d 12 d4 17 dd  20 a4 6d 65 6d 74 6f 73  |..:..... .memtos|
00002ce0  74 72 28 70 74 72 2c 6d  6c 29 0d 12 de 17 ea 20  |tr(ptr,ml)..... |
00002cf0  66 24 2c 6d 61 78 3a 6d  61 78 3d 70 74 72 2b 6d  |f$,max:max=ptr+m|
00002d00  6c 0d 12 e8 26 c8 95 20  3f 70 74 72 20 80 20 70  |l...&.. ?ptr . p|
00002d10  74 72 3c 6d 61 78 20 66  24 2b 3d bd 3f 70 74 72  |tr<max f$+=.?ptr|
00002d20  3a 70 74 72 2b 3d 31 0d  12 f2 05 ce 0d 12 fc 07  |:ptr+=1.........|
00002d30  3d 66 24 0d 13 06 05 3a  0d 13 10 16 dd 20 a4 70  |=f$....:..... .p|
00002d40  61 72 61 6d 28 74 24 2c  73 24 2c 64 24 29 0d 13  |aram(t$,s$,d$)..|
00002d50  1a 0b ea 20 6c 25 2c 61  25 0d 13 24 24 6c 25 3d  |... l%,a%..$$l%=|
00002d60  a7 73 24 2c 74 24 29 20  84 20 a7 73 24 2c a4 75  |.s$,t$) . .s$,.u|
00002d70  70 70 65 72 63 61 73 65  28 74 24 29 29 0d 13 2e  |ppercase(t$))...|
00002d80  0d e7 20 6c 25 3c 3e 30  20 8c 0d 13 38 12 6c 25  |.. l%<>0 ...8.l%|
00002d90  3d a7 73 24 2c 22 20 22  2c 6c 25 29 0d 13 42 1c  |=.s$," ",l%)..B.|
00002da0  c8 95 20 c1 73 24 2c 6c  25 2c 31 29 3d 22 20 22  |.. .s$,l%,1)=" "|
00002db0  3a 6c 25 2b 3d 31 3a ce  0d 13 4c 1d e7 20 a7 73  |:l%+=1:...L.. .s|
00002dc0  24 2c 22 20 22 2c 6c 25  29 3d 30 20 8c 20 73 24  |$," ",l%)=0 . s$|
00002dd0  2b 3d 22 20 22 0d 13 56  1b 3d c1 73 24 2c 6c 25  |+=" "..V.=.s$,l%|
00002de0  2c a7 73 24 2c 22 20 22  2c 6c 25 29 2d 6c 25 29  |,.s$," ",l%)-l%)|
00002df0  0d 13 60 05 cd 0d 13 6a  07 3d 64 24 0d 13 74 05  |..`....j.=d$..t.|
00002e00  3a 0d 13 7e 12 dd 20 a4  63 6f 6d 6d 61 6e 64 74  |:..~.. .commandt|
00002e10  61 69 6c 0d 13 88 19 ea  20 69 2c 6e 75 6d 73 70  |ail..... i,numsp|
00002e20  61 63 65 73 2c 63 6f 6d  6d 61 6e 64 0d 13 92 1c  |aces,command....|
00002e30  c8 99 20 22 4f 53 5f 47  65 74 45 6e 76 22 20 b8  |.. "OS_GetEnv" .|
00002e40  20 63 6f 6d 6d 61 6e 64  0d 13 9c 07 69 3d 30 0d  | command....i=0.|
00002e50  13 a6 13 c8 95 20 63 6f  6d 6d 61 6e 64 3f 69 3c  |..... command?i<|
00002e60  3e 30 0d 13 b0 08 69 2b  3d 31 0d 13 ba 05 ce 0d  |>0....i+=1......|
00002e70  13 c4 10 63 6f 6d 6d 61  6e 64 3f 69 3d 31 33 0d  |...command?i=13.|
00002e80  13 ce 0f 6e 75 6d 73 70  61 63 65 73 3d 30 0d 13  |...numspaces=0..|
00002e90  d8 07 69 3d 30 0d 13 e2  12 c8 95 20 6e 75 6d 73  |..i=0...... nums|
00002ea0  70 61 63 65 73 3c 33 0d  13 ec 22 e7 20 63 6f 6d  |paces<3...". com|
00002eb0  6d 61 6e 64 3f 69 3d 26  32 30 20 8c 20 6e 75 6d  |mand?i=&20 . num|
00002ec0  73 70 61 63 65 73 2b 3d  31 0d 13 f6 08 69 2b 3d  |spaces+=1....i+=|
00002ed0  31 0d 14 00 05 ce 0d 14  0a 11 3d 24 28 63 6f 6d  |1.........=$(com|
00002ee0  6d 61 6e 64 2b 69 29 0d  14 14 05 3a 0d 14 1e 14  |mand+i)....:....|
00002ef0  dd 20 a4 66 69 6c 65 73  74 79 70 65 28 66 24 29  |. .filestype(f$)|
00002f00  0d 14 28 10 ea 20 74 79  70 65 25 2c 6f 62 6a 25  |..(.. type%,obj%|
00002f10  0d 14 32 23 c8 99 20 22  4f 53 5f 46 69 6c 65 22  |..2#.. "OS_File"|
00002f20  2c 35 2c 66 24 20 b8 20  6f 62 6a 25 2c 2c 74 79  |,5,f$ . obj%,,ty|
00002f30  70 65 25 0d 14 3c 12 e7  20 6f 62 6a 25 3d 32 20  |pe%..<.. obj%=2 |
00002f40  8c 20 3d 2d 32 0d 14 46  35 e7 20 6f 62 6a 25 3d  |. =-2..F5. obj%=|
00002f50  31 20 8c 20 74 79 70 65  25 3d 28 74 79 70 65 25  |1 . type%=(type%|
00002f60  20 80 20 26 46 46 46 30  30 29 20 3e 3e 20 38 20  | . &FFF00) >> 8 |
00002f70  8b 20 74 79 70 65 25 3d  2d 31 0d 14 50 0a 3d 74  |. type%=-1..P.=t|
00002f80  79 70 65 25 0d 14 5a 05  3a 0d 14 64 15 dd 20 a4  |ype%..Z.:..d.. .|
00002f90  70 61 64 28 61 24 2c 73  70 61 63 65 73 29 0d 14  |pad(a$,spaces)..|
00002fa0  6e 1d 3d c0 61 24 2b c4  73 70 61 63 65 73 2c 22  |n.=.a$+.spaces,"|
00002fb0  20 22 29 2c 73 70 61 63  65 73 29 0d 14 78 05 3a  | "),spaces)..x.:|
00002fc0  0d 14 82 10 dd 20 a4 73  74 72 69 70 28 61 24 29  |..... .strip(a$)|
00002fd0  0d 14 8c 1d c8 95 20 c2  61 24 2c 31 29 3d 22 20  |...... .a$,1)=" |
00002fe0  22 20 84 20 c2 61 24 2c  31 29 3d bd 30 0d 14 96  |" . .a$,1)=.0...|
00002ff0  15 61 24 3d c0 61 24 2c  a9 20 61 24 20 2d 20 31  |.a$=.a$,. a$ - 1|
00003000  20 29 0d 14 a0 05 ce 0d  14 aa 11 c8 95 20 c0 61  | )........... .a|
00003010  24 2c 31 29 3d 22 20 22  0d 14 b4 15 61 24 3d c2  |$,1)=" "....a$=.|
00003020  61 24 2c a9 20 61 24 20  2d 20 31 20 29 0d 14 be  |a$,. a$ - 1 )...|
00003030  05 ce 0d 14 c8 07 3d 61  24 0d 14 d2 05 3a 0d 14  |......=a$....:..|
00003040  dc 1c dd 20 a4 66 69 6c  74 65 72 28 61 24 2c 6c  |... .filter(a$,l|
00003050  6f 77 25 2c 68 69 67 68  25 29 0d 14 e6 0f ea 20  |ow%,high%)..... |
00003060  63 6f 75 6e 74 25 2c 62  24 0d 14 f0 15 e3 20 63  |count%,b$..... c|
00003070  6f 75 6e 74 25 3d 31 20  b8 20 a9 20 61 24 0d 14  |ount%=1 . . a$..|
00003080  fa 36 e7 20 97 20 c1 61  24 2c 63 6f 75 6e 74 25  |.6. . .a$,count%|
00003090  2c 31 29 3e 3d 6c 6f 77  25 20 80 20 97 20 c1 61  |,1)>=low% . . .a|
000030a0  24 2c 63 6f 75 6e 74 25  2c 31 29 3c 3d 68 69 67  |$,count%,1)<=hig|
000030b0  68 25 20 8c 0d 15 04 15  62 24 2b 3d c1 61 24 2c  |h% .....b$+=.a$,|
000030c0  63 6f 75 6e 74 25 2c 31  29 0d 15 0e 05 cd 0d 15  |count%,1).......|
000030d0  18 05 ed 0d 15 22 07 3d  62 24 0d 15 2c 05 3a 0d  |.....".=b$..,.:.|
000030e0  15 36 17 dd 20 a4 75 70  70 65 72 63 61 73 65 28  |.6.. .uppercase(|
000030f0  74 65 78 74 24 29 0d 15  40 13 ea 20 6c 6f 6f 70  |text$)..@.. loop|
00003100  25 2c 73 74 72 24 2c 61  24 0d 15 4a 14 e3 20 6c  |%,str$,a$..J.. l|
00003110  6f 6f 70 25 3d 31 b8 a9  74 65 78 74 24 0d 15 54  |oop%=1..text$..T|
00003120  16 61 24 3d c1 74 65 78  74 24 2c 6c 6f 6f 70 25  |.a$=.text$,loop%|
00003130  2c 31 29 0d 15 5e 29 e7  20 61 24 3e 3d 22 61 22  |,1)..^). a$>="a"|
00003140  20 80 20 61 24 3c 3d 22  7a 22 20 8c 20 61 24 3d  | . a$<="z" . a$=|
00003150  bd 28 97 61 24 20 80 20  26 44 46 29 0d 15 68 0c  |.(.a$ . &DF)..h.|
00003160  73 74 72 24 2b 3d 61 24  0d 15 72 05 ed 0d 15 7c  |str$+=a$..r....||
00003170  09 3d 73 74 72 24 0d 15  86 05 3a 0d 15 90 1a dd  |.=str$....:.....|
00003180  20 f2 73 65 74 75 70 64  72 61 67 62 6f 78 28 77  | .setupdragbox(w|
00003190  25 2c 69 25 29 0d 15 9a  0d ea 20 77 65 78 2c 77  |%,i%)..... wex,w|
000031a0  65 79 0d 15 a4 6a 71 25  21 30 3d 77 25 3a c8 99  |ey...jq%!0=w%:..|
000031b0  20 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  | "Wimp_GetWindow|
000031c0  53 74 61 74 65 22 2c 2c  71 25 3a 77 65 78 3d 71  |State",,q%:wex=q|
000031d0  25 21 34 2d 71 25 21 32  30 3a 77 65 79 3d 71 25  |%!4-q%!20:wey=q%|
000031e0  21 31 36 2d 71 25 21 32  34 3a 71 25 21 34 3d 69  |!16-q%!24:q%!4=i|
000031f0  25 3a c8 99 20 22 57 69  6d 70 5f 47 65 74 49 63  |%:.. "Wimp_GetIc|
00003200  6f 6e 53 74 61 74 65 22  2c 2c 71 25 0d 15 ae 5f  |onState",,q%..._|
00003210  21 71 25 3d 77 25 3a 71  25 21 34 3d 35 3a 71 25  |!q%=w%:q%!4=5:q%|
00003220  21 38 3d 71 25 21 38 2b  77 65 78 3a 71 25 21 31  |!8=q%!8+wex:q%!1|
00003230  32 3d 71 25 21 31 32 2b  77 65 79 3a 71 25 21 31  |2=q%!12+wey:q%!1|
00003240  36 3d 71 25 21 31 36 2b  77 65 78 3a 71 25 21 32  |6=q%!16+wex:q%!2|
00003250  30 3d 71 25 21 32 30 2b  77 65 79 3a 71 25 21 32  |0=q%!20+wey:q%!2|
00003260  34 3d 30 3a 71 25 21 32  38 3d 30 0d 15 b8 39 71  |4=0:q%!28=0...9q|
00003270  25 21 33 32 3d 26 37 46  46 46 46 46 46 46 3a 71  |%!32=&7FFFFFFF:q|
00003280  25 21 33 36 3d 26 37 46  46 46 46 46 46 46 3a c8  |%!36=&7FFFFFFF:.|
00003290  99 20 22 57 69 6d 70 5f  44 72 61 67 42 6f 78 22  |. "Wimp_DragBox"|
000032a0  2c 2c 71 25 0d 15 c2 0e  64 72 61 67 62 6f 78 25  |,,q%....dragbox%|
000032b0  3d b9 0d 15 cc 05 e1 0d  15 d6 05 3a 0d 15 e0 17  |=..........:....|
000032c0  dd 20 a4 66 69 6c 65 73  70 72 69 74 65 28 74 79  |. .filesprite(ty|
000032d0  70 65 29 0d 15 ea 11 ea  20 74 79 70 65 24 2c 66  |pe)..... type$,f|
000032e0  6c 61 67 73 0d 15 f4 1b  e7 20 74 79 70 65 3d 2d  |lags..... type=-|
000032f0  31 20 8c 20 3d 22 66 69  6c 65 5f 78 78 78 22 0d  |1 . ="file_xxx".|
00003300  15 fe 21 74 79 70 65 24  3d 22 66 69 6c 65 5f 22  |..!type$="file_"|
00003310  2b c2 22 30 30 22 2b c3  7e 74 79 70 65 2c 33 29  |+."00"+.~type,3)|
00003320  0d 16 08 2a c8 99 20 22  58 57 69 6d 70 5f 53 70  |...*.. "XWimp_Sp|
00003330  72 69 74 65 4f 70 22 2c  32 34 2c 2c 74 79 70 65  |riteOp",24,,type|
00003340  24 20 b8 20 3b 66 6c 61  67 73 0d 16 12 24 e7 20  |$ . ;flags...$. |
00003350  28 66 6c 61 67 73 20 80  20 31 29 20 8c 20 74 79  |(flags . 1) . ty|
00003360  70 65 24 3d 22 66 69 6c  65 5f 78 78 78 22 0d 16  |pe$="file_xxx"..|
00003370  1c 0a 3d 74 79 70 65 24  0d 16 26 05 3a 0d 16 30  |..=type$..&.:..0|
00003380  1c dd 20 a4 73 6d 61 6c  6c 66 69 6c 65 73 70 72  |.. .smallfilespr|
00003390  69 74 65 28 74 79 70 65  29 0d 16 3a 11 ea 20 74  |ite(type)..:.. t|
000033a0  79 70 65 24 2c 66 6c 61  67 73 0d 16 44 1c e7 20  |ype$,flags..D.. |
000033b0  74 79 70 65 3d 2d 31 20  8c 20 3d 22 73 6d 61 6c  |type=-1 . ="smal|
000033c0  6c 5f 78 78 78 22 0d 16  4e 0c 73 6d 61 6c 6c 25  |l_xxx"..N.small%|
000033d0  3d a3 0d 16 58 22 74 79  70 65 24 3d 22 73 6d 61  |=...X"type$="sma|
000033e0  6c 6c 5f 22 2b c2 22 30  30 22 2b c3 7e 74 79 70  |ll_"+."00"+.~typ|
000033f0  65 2c 33 29 0d 16 62 2a  c8 99 20 22 58 57 69 6d  |e,3)..b*.. "XWim|
00003400  70 5f 53 70 72 69 74 65  4f 70 22 2c 32 34 2c 2c  |p_SpriteOp",24,,|
00003410  74 79 70 65 24 20 b8 20  3b 66 6c 61 67 73 0d 16  |type$ . ;flags..|
00003420  6c 13 e7 20 28 66 6c 61  67 73 20 80 20 31 29 20  |l.. (flags . 1) |
00003430  8c 0d 16 76 21 74 79 70  65 24 3d 22 66 69 6c 65  |...v!type$="file|
00003440  5f 22 2b c2 22 30 30 22  2b c3 7e 74 79 70 65 2c  |_"+."00"+.~type,|
00003450  33 29 0d 16 80 2a c8 99  20 22 58 57 69 6d 70 5f  |3)...*.. "XWimp_|
00003460  53 70 72 69 74 65 4f 70  22 2c 32 34 2c 2c 74 79  |SpriteOp",24,,ty|
00003470  70 65 24 20 b8 20 3b 66  6c 61 67 73 0d 16 8a 30  |pe$ . ;flags...0|
00003480  e7 20 28 66 6c 61 67 73  20 80 20 31 29 20 8c 20  |. (flags . 1) . |
00003490  74 79 70 65 24 3d 22 73  6d 61 6c 6c 5f 78 78 78  |type$="small_xxx|
000034a0  22 20 8b 20 73 6d 61 6c  6c 25 3d b9 0d 16 94 05  |" . small%=.....|
000034b0  cd 0d 16 9e 0a 3d 74 79  70 65 24 0d 16 a8 05 3a  |.....=type$....:|
000034c0  0d 16 b2 1c dd 20 f2 73  74 72 74 6f 69 63 6f 6e  |..... .strtoicon|
000034d0  28 77 25 2c f8 20 69 25  2c 61 24 29 0d 16 bc 35  |(w%,. i%,a$)...5|
000034e0  71 25 21 30 3d 77 25 3a  71 25 21 34 3d 69 25 3a  |q%!0=w%:q%!4=i%:|
000034f0  c8 99 20 26 34 30 30 43  45 2c 2c 71 25 3a f4 20  |.. &400CE,,q%:. |
00003500  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
00003510  65 0d 16 c6 24 71 25 21  30 3d 77 25 3a c8 99 20  |e...$q%!0=w%:.. |
00003520  22 57 69 6d 70 5f 44 65  6c 65 74 65 49 63 6f 6e  |"Wimp_DeleteIcon|
00003530  22 2c 2c 71 25 0d 16 d0  0f 24 28 71 25 2b 32 38  |",,q%....$(q%+28|
00003540  29 3d 61 24 0d 16 da 2d  71 25 21 34 3d 77 25 3a  |)=a$...-q%!4=w%:|
00003550  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 49  |.. "Wimp_CreateI|
00003560  63 6f 6e 22 2c 2c 28 71  25 2b 34 29 20 b8 20 69  |con",,(q%+4) . i|
00003570  25 0d 16 e4 21 71 25 21  30 3d 77 25 3a 71 25 21  |%...!q%!0=w%:q%!|
00003580  34 3d 69 25 3a c8 99 20  26 34 30 30 43 45 2c 2c  |4=i%:.. &400CE,,|
00003590  71 25 0d 16 ee 3b 71 25  21 34 3d 77 25 3a c8 99  |q%...;q%!4=w%:..|
000035a0  20 22 57 69 6d 70 5f 46  6f 72 63 65 52 65 64 72  | "Wimp_ForceRedr|
000035b0  61 77 22 2c 77 25 2c 71  25 21 38 2c 71 25 21 31  |aw",w%,q%!8,q%!1|
000035c0  32 2c 71 25 21 31 36 2c  71 25 21 32 30 0d 16 f8  |2,q%!16,q%!20...|
000035d0  05 e1 0d 17 02 05 3a 0d  17 0c 19 dd 20 f2 64 61  |......:..... .da|
000035e0  74 61 6c 6f 61 64 28 71  25 2c 63 61 6c 6c 25 29  |taload(q%,call%)|
000035f0  0d 17 16 26 ea 20 70 74  72 25 2c 6c 65 6e 25 2c  |...&. ptr%,len%,|
00003600  74 79 70 65 25 2c 68 61  6e 64 6c 65 25 2c 6c 6f  |type%,handle%,lo|
00003610  6f 70 25 2c 61 24 0d 17  20 20 e7 20 71 25 21 31  |op%,a$..  . q%!1|
00003620  32 20 3d 20 30 20 84 20  71 25 21 31 32 3d 6d 79  |2 = 0 . q%!12=my|
00003630  72 65 66 25 20 8c 0d 17  2a 22 70 61 74 68 6e 61  |ref% ...*"pathna|
00003640  6d 65 24 3d a4 6d 65 6d  74 6f 73 74 72 28 71 25  |me$=.memtostr(q%|
00003650  2b 34 34 2c 32 35 30 29  0d 17 34 1f 74 79 70 65  |+44,250)..4.type|
00003660  25 3d a4 66 69 6c 65 73  74 79 70 65 28 70 61 74  |%=.filestype(pat|
00003670  68 6e 61 6d 65 24 29 0d  17 3e 0e c8 8e 20 74 79  |hname$)..>... ty|
00003680  70 65 25 20 ca 0d 17 48  0f c9 20 73 6f 6e 67 74  |pe% ...H.. songt|
00003690  79 70 65 25 0d 17 52 13  e7 20 ac 20 73 70 6c 69  |ype%..R.. . spli|
000036a0  74 74 65 72 25 20 8c 0d  17 5c 3f 71 25 21 30 3d  |tter% ...\?q%!0=|
000036b0  32 30 3a 71 25 21 31 32  3d 71 25 21 38 3a 71 25  |20:q%!12=q%!8:q%|
000036c0  21 31 36 3d 34 3a c8 99  20 22 57 69 6d 70 5f 53  |!16=4:.. "Wimp_S|
000036d0  65 6e 64 4d 65 73 73 61  67 65 22 2c 31 37 2c 71  |endMessage",17,q|
000036e0  25 2c 71 25 21 34 0d 17  66 15 c8 99 20 22 48 6f  |%,q%!4..f... "Ho|
000036f0  75 72 67 6c 61 73 73 5f  4f 6e 22 0d 17 70 1a f2  |urglass_On"..p..|
00003700  6c 6f 61 64 6d 6f 64 75  6c 65 28 70 61 74 68 6e  |loadmodule(pathn|
00003710  61 6d 65 24 29 0d 17 7a  16 c8 99 20 22 48 6f 75  |ame$)..z... "Hou|
00003720  72 67 6c 61 73 73 5f 4f  66 66 22 0d 17 84 05 cd  |rglass_Off".....|
00003730  0d 17 8e 11 c9 20 6d 6f  64 75 6c 65 74 79 70 65  |..... moduletype|
00003740  25 0d 17 98 3f 71 25 21  30 3d 32 30 3a 71 25 21  |%...?q%!0=20:q%!|
00003750  31 32 3d 71 25 21 38 3a  71 25 21 31 36 3d 34 3a  |12=q%!8:q%!16=4:|
00003760  c8 99 20 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |.. "Wimp_SendMes|
00003770  73 61 67 65 22 2c 31 37  2c 71 25 2c 71 25 21 34  |sage",17,q%,q%!4|
00003780  0d 17 a2 11 e7 20 73 70  6c 69 74 74 65 72 25 20  |..... splitter% |
00003790  8c 0d 17 ac 1b f2 73 70  6c 69 74 6d 6f 64 75 6c  |......splitmodul|
000037a0  65 28 70 61 74 68 6e 61  6d 65 24 29 0d 17 b6 05  |e(pathname$)....|
000037b0  cc 0d 17 c0 10 ff 20 22  50 6c 61 79 53 74 6f 70  |...... "PlayStop|
000037c0  22 0d 17 ca 1a ff 20 22  50 6c 61 79 4d 6f 64 20  |"..... "PlayMod |
000037d0  22 2b 70 61 74 68 6e 61  6d 65 24 0d 17 d4 1f 24  |"+pathname$....$|
000037e0  63 75 72 72 65 6e 74 6c  79 70 6c 61 79 69 6e 67  |currentlyplaying|
000037f0  25 3d c4 31 30 2c 22 20  22 29 0d 17 de 41 71 25  |%=.10," ")...Aq%|
00003800  21 30 3d 2d 31 3a 71 25  21 34 3d 69 63 62 61 72  |!0=-1:q%!4=icbar|
00003810  25 3a 71 25 21 38 3d 30  3a 71 25 21 31 32 3d 30  |%:q%!8=0:q%!12=0|
00003820  3a c8 99 20 22 57 69 6d  70 5f 53 65 74 49 63 6f  |:.. "Wimp_SetIco|
00003830  6e 53 74 61 74 65 22 2c  2c 71 25 0d 17 e8 27 24  |nState",,q%...'$|
00003840  63 75 72 72 65 6e 74 6c  79 70 6c 61 79 69 6e 67  |currentlyplaying|
00003850  25 3d a4 6c 65 61 66 28  70 61 74 68 6e 61 6d 65  |%=.leaf(pathname|
00003860  24 29 0d 17 f2 41 71 25  21 30 3d 2d 31 3a 71 25  |$)...Aq%!0=-1:q%|
00003870  21 34 3d 69 63 62 61 72  25 3a 71 25 21 38 3d 30  |!4=icbar%:q%!8=0|
00003880  3a 71 25 21 31 32 3d 30  3a c8 99 20 22 57 69 6d  |:q%!12=0:.. "Wim|
00003890  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
000038a0  2c 71 25 0d 17 fc 05 cd  0d 18 06 08 c9 20 2d 32  |,q%.......... -2|
000038b0  0d 18 10 0f e7 20 63 61  6c 6c 25 3d 33 20 8c 0d  |..... call%=3 ..|
000038c0  18 1a 1c e7 20 71 25 21  32 30 20 3d 20 64 69 72  |.... q%!20 = dir|
000038d0  65 63 74 6f 72 69 65 73  25 20 8c 0d 18 24 a9 e7  |ectories% ...$..|
000038e0  20 6e 6f 6f 66 64 69 72  65 63 74 6f 72 69 65 73  | noofdirectories|
000038f0  25 3d 6d 61 78 64 69 72  65 63 74 6f 72 69 65 73  |%=maxdirectories|
00003900  25 20 8c 20 f2 77 61 72  6e 69 6e 67 28 22 54 6f  |% . .warning("To|
00003910  20 61 64 64 20 65 78 74  72 61 20 64 69 72 65 63  | add extra direc|
00003920  74 6f 72 69 65 73 2c 20  64 75 65 20 74 6f 20 69  |tories, due to i|
00003930  6e 74 65 72 6e 61 6c 20  64 61 74 61 20 73 74 72  |nternal data str|
00003940  75 63 74 75 72 65 73 2c  20 70 6c 65 61 73 65 20  |uctures, please |
00003950  71 75 69 74 20 74 68 69  73 20 61 70 70 6c 69 63  |quit this applic|
00003960  61 74 69 6f 6e 20 61 6e  64 20 74 68 65 6e 20 72  |ation and then r|
00003970  65 6c 6f 61 64 20 61 6e  64 20 72 65 74 72 79 2e  |eload and retry.|
00003980  22 29 3a e1 0d 18 2e 3f  71 25 21 30 3d 32 30 3a  |"):....?q%!0=20:|
00003990  71 25 21 31 32 3d 71 25  21 38 3a 71 25 21 31 36  |q%!12=q%!8:q%!16|
000039a0  3d 34 3a c8 99 20 22 57  69 6d 70 5f 53 65 6e 64  |=4:.. "Wimp_Send|
000039b0  4d 65 73 73 61 67 65 22  2c 31 37 2c 71 25 2c 71  |Message",17,q%,q|
000039c0  25 21 34 0d 18 38 28 64  69 72 6e 61 6d 65 24 28  |%!4..8(dirname$(|
000039d0  6e 6f 6f 66 64 69 72 65  63 74 6f 72 69 65 73 25  |noofdirectories%|
000039e0  29 3d 70 61 74 68 6e 61  6d 65 24 0d 18 42 17 6e  |)=pathname$..B.n|
000039f0  6f 6f 66 64 69 72 65 63  74 6f 72 69 65 73 25 2b  |oofdirectories%+|
00003a00  3d 31 0d 18 4c 25 68 61  6e 64 6c 65 25 3d ad 28  |=1..L%handle%=.(|
00003a10  61 70 70 5f 70 61 74 68  24 2b 22 2e 73 61 6d 70  |app_path$+".samp|
00003a20  70 61 74 68 73 22 29 0d  18 56 1e f1 23 68 61 6e  |paths")..V..#han|
00003a30  64 6c 65 25 2c 6e 6f 6f  66 64 69 72 65 63 74 6f  |dle%,noofdirecto|
00003a40  72 69 65 73 25 0d 18 60  1a e7 20 6e 6f 6f 66 64  |ries%..`.. noofd|
00003a50  69 72 65 63 74 6f 72 69  65 73 25 3e 31 20 8c 0d  |irectories%>1 ..|
00003a60  18 6a 31 e3 20 6c 6f 6f  70 25 3d 31 20 b8 20 6e  |.j1. loop%=1 . n|
00003a70  6f 6f 66 64 69 72 65 63  74 6f 72 69 65 73 25 2d  |oofdirectories%-|
00003a80  31 3a e8 23 68 61 6e 64  6c 65 25 2c 61 24 3a ed  |1:.#handle%,a$:.|
00003a90  0d 18 74 05 cd 0d 18 7e  17 f1 23 68 61 6e 64 6c  |..t....~..#handl|
00003aa0  65 25 2c 70 61 74 68 6e  61 6d 65 24 0d 18 88 29  |e%,pathname$...)|
00003ab0  64 69 72 77 69 64 74 68  25 3d a4 6d 61 78 28 64  |dirwidth%=.max(d|
00003ac0  69 72 77 69 64 74 68 25  2c a9 20 70 61 74 68 6e  |irwidth%,. pathn|
00003ad0  61 6d 65 24 29 0d 18 92  0d d9 23 68 61 6e 64 6c  |ame$).....#handl|
00003ae0  65 25 0d 18 9c 12 71 25  21 30 3d 30 3a 71 25 21  |e%....q%!0=0:q%!|
00003af0  31 32 3d 30 0d 18 a6 3e  71 25 21 38 3d 64 69 72  |12=0...>q%!8=dir|
00003b00  77 69 64 74 68 25 2a 31  36 2b 31 36 3a 71 25 21  |width%*16+16:q%!|
00003b10  34 3d 2d 28 6e 6f 6f 66  64 69 72 65 63 74 6f 72  |4=-(noofdirector|
00003b20  69 65 73 25 2a 79 5f 73  70 61 63 69 6e 67 25 2b  |ies%*y_spacing%+|
00003b30  38 29 0d 18 b0 27 c8 99  20 22 57 69 6d 70 5f 53  |8)...'.. "Wimp_S|
00003b40  65 74 45 78 74 65 6e 74  22 2c 64 69 72 65 63 74  |etExtent",direct|
00003b50  6f 72 69 65 73 25 2c 71  25 0d 18 ba 5b c8 99 20  |ories%,q%...[.. |
00003b60  22 57 69 6d 70 5f 46 6f  72 63 65 52 65 64 72 61  |"Wimp_ForceRedra|
00003b70  77 22 2c 64 69 72 65 63  74 6f 72 69 65 73 25 2c  |w",directories%,|
00003b80  30 2c 2d 28 6e 6f 6f 66  64 69 72 65 63 74 6f 72  |0,-(noofdirector|
00003b90  69 65 73 25 2a 79 5f 73  70 61 63 69 6e 67 25 2b  |ies%*y_spacing%+|
00003ba0  38 29 2c 64 69 72 77 69  64 74 68 25 2a 31 36 2b  |8),dirwidth%*16+|
00003bb0  31 36 2c 30 0d 18 c4 05  cd 0d 18 ce 05 cd 0d 18  |16,0............|
00003bc0  d8 05 cb 0d 18 e2 05 cd  0d 18 ec 05 e1 0d 18 f6  |................|
00003bd0  05 3a 0d 19 00 10 dd 20  f2 6e 6f 61 63 6b 28 71  |.:..... .noack(q|
00003be0  25 29 0d 19 0a 15 e7 20  71 25 21 38 20 3d 20 6d  |%)..... q%!8 = m|
00003bf0  79 72 65 66 25 20 8c 0d  19 14 35 24 28 71 25 2b  |yref% ....5$(q%+|
00003c00  34 29 3d 22 48 6d 6d 2e  20 57 68 79 20 64 6f 65  |4)="Hmm. Why doe|
00003c10  73 20 6e 6f 20 6f 6e 65  20 61 63 6b 6e 6f 77 6c  |s no one acknowl|
00003c20  65 64 67 65 20 6d 65 3f  22 2b bd 30 0d 19 1e 2a  |edge me?"+.0...*|
00003c30  c8 99 20 22 57 69 6d 70  5f 52 65 70 6f 72 74 45  |.. "Wimp_ReportE|
00003c40  72 72 6f 72 22 2c 71 25  2c 31 2c 70 72 6f 67 5f  |rror",q%,1,prog_|
00003c50  74 69 74 6c 65 24 0d 19  28 0d 6d 79 72 65 66 25  |title$..(.myref%|
00003c60  3d 2d 31 0d 19 32 05 cd  0d 19 3c 05 e1 0d 19 46  |=-1..2....<....F|
00003c70  05 3a 0d 19 50 16 dd 20  f2 64 61 74 61 6c 6f 61  |.:..P.. .dataloa|
00003c80  64 61 63 6b 28 71 25 29  0d 19 5a 14 e7 20 71 25  |dack(q%)..Z.. q%|
00003c90  21 31 32 3d 6d 79 72 65  66 25 20 8c 0d 19 64 0d  |!12=myref% ...d.|
00003ca0  6d 79 72 65 66 25 3d 2d  31 0d 19 6e 10 6c 65 61  |myref%=-1..n.lea|
00003cb0  66 6e 61 6d 65 24 3d 22  22 0d 19 78 05 cd 0d 19  |fname$=""..x....|
00003cc0  82 05 e1 0d 19 8c 05 3a  0d 19 96 13 dd 20 f2 64  |.......:..... .d|
00003cd0  61 74 61 73 61 76 65 28  71 25 29 0d 19 a0 16 e7  |atasave(q%).....|
00003ce0  20 71 25 21 34 3d 74 61  73 6b 69 64 25 20 8c 20  | q%!4=taskid% . |
00003cf0  e1 0d 19 aa 1a e7 20 71  25 21 34 30 3c 3e 73 6f  |...... q%!40<>so|
00003d00  6e 67 74 79 70 65 25 20  8c 20 e1 0d 19 b4 29 6c  |ngtype% . ....)l|
00003d10  65 61 66 6e 61 6d 65 24  3d a4 6c 65 61 66 28 a4  |eafname$=.leaf(.|
00003d20  6d 65 6d 74 6f 73 74 72  28 71 25 2b 34 34 2c 31  |memtostr(q%+44,1|
00003d30  30 30 29 29 0d 19 be 0b  71 25 21 30 3d 36 30 0d  |00))....q%!0=60.|
00003d40  19 c8 0e 71 25 21 31 32  3d 71 25 21 38 0d 19 d2  |...q%!12=q%!8...|
00003d50  0b 71 25 21 31 36 3d 32  0d 19 dc 0c 71 25 21 33  |.q%!16=2....q%!3|
00003d60  36 3d 2d 31 0d 19 e6 3c  c8 99 20 22 58 4f 53 5f  |6=-1...<.. "XOS_|
00003d70  52 65 61 64 56 61 72 56  61 6c 22 2c 22 57 69 6d  |ReadVarVal","Wim|
00003d80  70 24 53 63 72 61 70 22  2c 71 25 2b 31 30 30 2c  |p$Scrap",q%+100,|
00003d90  31 30 2c 30 2c 30 20 b8  20 2c 2c 74 65 6d 70 25  |10,0,0 . ,,temp%|
00003da0  0d 19 f0 12 e7 20 74 65  6d 70 25 20 3c 3e 20 30  |..... temp% <> 0|
00003db0  20 8c 0d 19 fa 1b 24 28  71 25 2b 34 34 29 3d 22  | .....$(q%+44)="|
00003dc0  3c 57 69 6d 70 24 53 63  72 61 70 3e 22 0d 1a 04  |<Wimp$Scrap>"...|
00003dd0  24 c8 99 20 22 57 69 6d  70 5f 53 65 6e 64 4d 65  |$.. "Wimp_SendMe|
00003de0  73 73 61 67 65 22 2c 31  38 2c 71 25 2c 71 25 21  |ssage",18,q%,q%!|
00003df0  34 0d 1a 0e 0f 6d 79 72  65 66 25 3d 71 25 21 38  |4....myref%=q%!8|
00003e00  0d 1a 18 05 cc 0d 1a 22  28 f2 77 61 72 6e 69 6e  |......."(.warnin|
00003e10  67 28 22 3c 57 69 6d 70  24 53 63 72 61 70 3e 20  |g("<Wimp$Scrap> |
00003e20  6e 6f 74 20 64 65 66 69  6e 65 64 22 29 0d 1a 2c  |not defined")..,|
00003e30  05 cd 0d 1a 36 05 e1 0d  1a 40 05 3a 0d 1a 4a 18  |....6....@.:..J.|
00003e40  dd 20 f2 6c 6f 61 64 6d  6f 64 75 6c 65 28 66 69  |. .loadmodule(fi|
00003e50  6c 65 24 29 0d 1a 54 43  ea 20 68 61 6e 64 6c 65  |le$)..TC. handle|
00003e60  25 2c 73 69 7a 65 25 2c  6e 65 77 25 2c 73 61 6d  |%,size%,new%,sam|
00003e70  70 6c 65 69 2c 74 72 61  63 6b 73 25 2c 6c 6f 6f  |plei,tracks%,loo|
00003e80  70 31 25 2c 6c 6f 6f 70  32 25 2c 73 61 6d 70 6c  |p1%,loop2%,sampl|
00003e90  65 73 74 6f 72 65 25 0d  1a 5e 12 e7 20 66 69 6c  |estore%..^.. fil|
00003ea0  65 24 3d 22 22 20 8c 20  e1 0d 1a 68 55 68 61 6e  |e$="" . ...hUhan|
00003eb0  64 6c 65 25 3d ad 20 66  69 6c 65 24 3a e7 20 68  |dle%=. file$:. h|
00003ec0  61 6e 64 6c 65 25 3d 30  20 8c 20 d9 23 68 61 6e  |andle%=0 . .#han|
00003ed0  64 6c 65 25 3a f2 77 61  72 6e 69 6e 67 28 22 43  |dle%:.warning("C|
00003ee0  61 6e 27 74 20 66 69 6e  64 20 66 69 6c 65 20 27  |an't find file '|
00003ef0  22 2b 66 69 6c 65 24 2b  22 27 22 29 3a e1 0d 1a  |"+file$+"'"):...|
00003f00  72 21 74 75 6e 65 73 69  7a 65 25 3d a2 23 68 61  |r!tunesize%=.#ha|
00003f10  6e 64 6c 65 25 3a d9 23  68 61 6e 64 6c 65 25 0d  |ndle%:.#handle%.|
00003f20  1a 7c 3c c8 99 20 22 57  69 6d 70 5f 53 6c 6f 74  |.|<.. "Wimp_Slot|
00003f30  53 69 7a 65 22 2c 28 73  74 61 72 74 73 6c 6f 74  |Size",(startslot|
00003f40  25 2b 74 75 6e 65 73 69  7a 65 25 2b 31 30 32 34  |%+tunesize%+1024|
00003f50  29 2c 2d 31 20 b8 20 6e  65 77 25 0d 1a 86 23 e7  |),-1 . new%...#.|
00003f60  20 28 6e 65 77 25 2d 73  74 61 72 74 73 6c 6f 74  | (new%-startslot|
00003f70  25 29 3c 74 75 6e 65 73  69 7a 65 25 20 8c 0d 1a  |%)<tunesize% ...|
00003f80  90 26 c8 99 20 22 57 69  6d 70 5f 53 6c 6f 74 53  |.&.. "Wimp_SlotS|
00003f90  69 7a 65 22 2c 63 75 72  72 65 6e 74 73 6c 6f 74  |ize",currentslot|
00003fa0  25 2c 2d 31 0d 1a 9a 3a  f2 77 61 72 6e 69 6e 67  |%,-1...:.warning|
00003fb0  28 22 4e 6f 74 20 65 6e  6f 75 67 68 20 6d 65 6d  |("Not enough mem|
00003fc0  6f 72 79 20 61 76 61 69  6c 61 62 6c 65 20 74 6f  |ory available to|
00003fd0  20 6c 6f 61 64 20 6d 6f  64 75 6c 65 22 29 0d 1a  | load module")..|
00003fe0  a4 05 e1 0d 1a ae 05 cd  0d 1a b8 15 63 75 72 72  |............curr|
00003ff0  65 6e 74 73 6c 6f 74 25  3d 6e 65 77 25 0d 1a c2  |entslot%=new%...|
00004000  14 6d 6f 64 75 6c 65 70  74 72 25 3d 93 2b 32 35  |.moduleptr%=.+25|
00004010  36 0d 1a cc 05 3a 0d 1a  d6 1a 73 61 6d 70 6c 65  |6....:....sample|
00004020  69 3d 6d 6f 64 75 6c 65  70 74 72 25 2b 26 31 34  |i=moduleptr%+&14|
00004030  0d 1a e0 25 73 61 6d 70  6c 65 73 74 6f 72 65 25  |...%samplestore%|
00004040  3d 6d 6f 64 75 6c 65 70  74 72 25 2b 74 75 6e 65  |=moduleptr%+tune|
00004050  73 69 7a 65 25 0d 1a ea  05 3a 0d 1a f4 25 ff 28  |size%....:...%.(|
00004060  22 4c 4f 41 44 20 22 2b  66 69 6c 65 24 2b 22 20  |"LOAD "+file$+" |
00004070  22 2b c3 7e 6d 6f 64 75  6c 65 70 74 72 25 29 0d  |"+.~moduleptr%).|
00004080  1a fe 05 3a 0d 1b 08 0f  73 61 6d 70 73 69 7a 65  |...:....sampsize|
00004090  25 3d 30 0d 1b 12 13 e3  20 6c 6f 6f 70 31 25 3d  |%=0..... loop1%=|
000040a0  30 20 b8 20 31 34 0d 1b  1c 20 73 61 6d 70 6c 65  |0 . 14... sample|
000040b0  6f 3d 73 61 6d 70 6c 65  69 2b 28 6c 6f 6f 70 31  |o=samplei+(loop1|
000040c0  25 2a 26 31 45 29 0d 1b  26 15 6e 61 6d 65 24 3d  |%*&1E)..&.name$=|
000040d0  22 22 3a 6c 6f 6f 70 32  25 3d 30 0d 1b 30 05 f5  |"":loop2%=0..0..|
000040e0  0d 1b 3a 3c e7 20 28 73  61 6d 70 6c 65 6f 3f 6c  |..:<. (sampleo?l|
000040f0  6f 6f 70 32 25 29 3c 3e  30 20 6e 61 6d 65 24 2b  |oop2%)<>0 name$+|
00004100  3d bd 28 73 61 6d 70 6c  65 6f 3f 6c 6f 6f 70 32  |=.(sampleo?loop2|
00004110  25 29 3a 6c 6f 6f 70 32  25 2b 3d 31 0d 1b 44 23  |%):loop2%+=1..D#|
00004120  fd 28 73 61 6d 70 6c 65  6f 3f 6c 6f 6f 70 32 25  |.(sampleo?loop2%|
00004130  29 3d 30 20 84 20 6c 6f  6f 70 32 25 3d 31 30 0d  |)=0 . loop2%=10.|
00004140  1b 4e 2b e7 20 6e 61 6d  65 24 3d 22 62 61 73 73  |.N+. name$="bass|
00004150  64 72 75 6d 31 22 20 8c  20 6e 61 6d 65 24 3d 22  |drum1" . name$="|
00004160  62 61 73 73 64 72 75 6d  33 22 0d 1b 58 11 e7 20  |bassdrum3"..X.. |
00004170  6e 61 6d 65 24 3c 3e 22  22 20 8c 0d 1b 62 30 73  |name$<>"" ...b0s|
00004180  61 6d 70 73 69 7a 65 25  2b 3d 32 2a 28 28 73 61  |ampsize%+=2*((sa|
00004190  6d 70 6c 65 6f 3f 32 32  29 2a 32 35 36 2b 28 73  |mpleo?22)*256+(s|
000041a0  61 6d 70 6c 65 6f 3f 32  33 29 29 0d 1b 6c 05 cd  |ampleo?23))..l..|
000041b0  0d 1b 76 05 ed 0d 1b 80  05 3a 0d 1b 8a 46 c8 99  |..v......:...F..|
000041c0  20 22 57 69 6d 70 5f 53  6c 6f 74 53 69 7a 65 22  | "Wimp_SlotSize"|
000041d0  2c 28 73 74 61 72 74 73  6c 6f 74 25 2b 74 75 6e  |,(startslot%+tun|
000041e0  65 73 69 7a 65 25 2b 73  61 6d 70 73 69 7a 65 25  |esize%+sampsize%|
000041f0  2b 31 30 32 34 29 2c 2d  31 20 b8 20 6e 65 77 25  |+1024),-1 . new%|
00004200  0d 1b 94 2d e7 20 28 6e  65 77 25 2d 73 74 61 72  |...-. (new%-star|
00004210  74 73 6c 6f 74 25 29 3c  74 75 6e 65 73 69 7a 65  |tslot%)<tunesize|
00004220  25 2b 73 61 6d 70 73 69  7a 65 25 20 8c 0d 1b 9e  |%+sampsize% ....|
00004230  26 c8 99 20 22 57 69 6d  70 5f 53 6c 6f 74 53 69  |&.. "Wimp_SlotSi|
00004240  7a 65 22 2c 63 75 72 72  65 6e 74 73 6c 6f 74 25  |ze",currentslot%|
00004250  2c 2d 31 0d 1b a8 3a f2  77 61 72 6e 69 6e 67 28  |,-1...:.warning(|
00004260  22 4e 6f 74 20 65 6e 6f  75 67 68 20 6d 65 6d 6f  |"Not enough memo|
00004270  72 79 20 61 76 61 69 6c  61 62 6c 65 20 74 6f 20  |ry available to |
00004280  6c 6f 61 64 20 6d 6f 64  75 6c 65 22 29 0d 1b b2  |load module")...|
00004290  05 e1 0d 1b bc 05 cd 0d  1b c6 15 63 75 72 72 65  |...........curre|
000042a0  6e 74 73 6c 6f 74 25 3d  6e 65 77 25 0d 1b d0 05  |ntslot%=new%....|
000042b0  3a 0d 1b da 13 e3 20 6c  6f 6f 70 31 25 3d 30 20  |:..... loop1%=0 |
000042c0  b8 20 31 34 0d 1b e4 20  73 61 6d 70 6c 65 6f 3d  |. 14... sampleo=|
000042d0  73 61 6d 70 6c 65 69 2b  28 6c 6f 6f 70 31 25 2a  |samplei+(loop1%*|
000042e0  26 31 45 29 0d 1b ee 15  6e 61 6d 65 24 3d 22 22  |&1E)....name$=""|
000042f0  3a 6c 6f 6f 70 32 25 3d  30 0d 1b f8 05 f5 0d 1c  |:loop2%=0.......|
00004300  02 3c e7 20 28 73 61 6d  70 6c 65 6f 3f 6c 6f 6f  |.<. (sampleo?loo|
00004310  70 32 25 29 3c 3e 30 20  6e 61 6d 65 24 2b 3d bd  |p2%)<>0 name$+=.|
00004320  28 73 61 6d 70 6c 65 6f  3f 6c 6f 6f 70 32 25 29  |(sampleo?loop2%)|
00004330  3a 6c 6f 6f 70 32 25 2b  3d 31 0d 1c 0c 23 fd 28  |:loop2%+=1...#.(|
00004340  73 61 6d 70 6c 65 6f 3f  6c 6f 6f 70 32 25 29 3d  |sampleo?loop2%)=|
00004350  30 20 84 20 6c 6f 6f 70  32 25 3d 32 30 0d 1c 16  |0 . loop2%=20...|
00004360  1f 6e 61 6d 65 24 3d c1  6e 61 6d 65 24 2c a7 6e  |.name$=.name$,.n|
00004370  61 6d 65 24 2c 22 3a 22  29 2b 31 29 0d 1c 20 1f  |ame$,":")+1).. .|
00004380  6e 61 6d 65 24 3d a4 66  69 6c 74 65 72 28 6e 61  |name$=.filter(na|
00004390  6d 65 24 2c 34 38 2c 31  32 36 29 0d 1c 2a 14 6e  |me$,48,126)..*.n|
000043a0  61 6d 65 24 3d c0 6e 61  6d 65 24 2c 31 30 29 0d  |ame$=.name$,10).|
000043b0  1c 34 29 e7 20 6e 61 6d  65 24 3d 22 62 61 73 73  |.4). name$="bass|
000043c0  64 72 75 6d 31 22 20 6e  61 6d 65 24 3d 22 62 61  |drum1" name$="ba|
000043d0  73 73 64 72 75 6d 33 22  0d 1c 3e 11 e7 20 6e 61  |ssdrum3"..>.. na|
000043e0  6d 65 24 3c 3e 22 22 20  8c 0d 1c 48 17 6e 6f 74  |me$<>"" ...H.not|
000043f0  6c 6f 61 64 25 3d b9 3a  63 6f 75 6e 74 25 3d 30  |load%=.:count%=0|
00004400  0d 1c 52 29 c8 95 20 6e  6f 74 6c 6f 61 64 25 20  |..R).. notload% |
00004410  80 20 63 6f 75 6e 74 25  3c 6e 6f 6f 66 64 69 72  |. count%<noofdir|
00004420  65 63 74 6f 72 69 65 73  25 0d 1c 5c 29 68 61 6e  |ectories%..\)han|
00004430  64 6c 65 25 3d ad 28 64  69 72 6e 61 6d 65 24 28  |dle%=.(dirname$(|
00004440  63 6f 75 6e 74 25 29 2b  22 2e 22 2b 6e 61 6d 65  |count%)+"."+name|
00004450  24 29 0d 1c 66 11 e7 20  68 61 6e 64 6c 65 25 3d  |$)..f.. handle%=|
00004460  30 20 8c 0d 1c 70 0d d9  23 68 61 6e 64 6c 65 25  |0 ...p..#handle%|
00004470  0d 1c 7a 05 cc 0d 1c 84  0d d9 23 68 61 6e 64 6c  |..z.......#handl|
00004480  65 25 0d 1c 8e 3e ff 28  22 4c 4f 41 44 20 22 2b  |e%...>.("LOAD "+|
00004490  64 69 72 6e 61 6d 65 24  28 63 6f 75 6e 74 25 29  |dirname$(count%)|
000044a0  2b 22 2e 22 2b 6e 61 6d  65 24 2b 22 20 22 2b c3  |+"."+name$+" "+.|
000044b0  7e 28 73 61 6d 70 6c 65  73 74 6f 72 65 25 29 29  |~(samplestore%))|
000044c0  0d 1c 98 33 73 61 6d 70  6c 65 73 74 6f 72 65 25  |...3samplestore%|
000044d0  2b 3d 32 2a 28 28 73 61  6d 70 6c 65 6f 3f 32 32  |+=2*((sampleo?22|
000044e0  29 2a 32 35 36 2b 28 73  61 6d 70 6c 65 6f 3f 32  |)*256+(sampleo?2|
000044f0  33 29 29 0d 1c a2 0e 6e  6f 74 6c 6f 61 64 25 3d  |3))....notload%=|
00004500  a3 0d 1c ac 05 cd 0d 1c  b6 0d 63 6f 75 6e 74 25  |..........count%|
00004510  2b 3d 31 0d 1c c0 05 ce  0d 1c ca 76 e7 20 6e 6f  |+=1........v. no|
00004520  74 6c 6f 61 64 25 3d b9  20 8c 20 f2 77 61 72 6e  |tload%=. . .warn|
00004530  69 6e 67 28 22 43 61 6e  27 74 20 66 69 6e 64 20  |ing("Can't find |
00004540  66 69 6c 65 20 27 22 2b  6e 61 6d 65 24 2b 22 27  |file '"+name$+"'|
00004550  22 29 3a c8 99 20 22 57  69 6d 70 5f 53 6c 6f 74  |"):.. "Wimp_Slot|
00004560  53 69 7a 65 22 2c 73 74  61 72 74 73 6c 6f 74 25  |Size",startslot%|
00004570  2c 2d 31 3a 63 75 72 72  65 6e 74 73 6c 6f 74 25  |,-1:currentslot%|
00004580  3d 73 74 61 72 74 73 6c  6f 74 25 3a e1 20 0d 1c  |=startslot%:. ..|
00004590  d4 05 cd 0d 1c de 05 ed  0d 1c e8 05 3a 0d 1c f2  |............:...|
000045a0  17 3f 28 73 61 6d 70 6c  65 73 74 6f 72 65 25 2b  |.?(samplestore%+|
000045b0  31 29 3d 30 0d 1c fc 1f  65 6e 64 6f 66 6d 6f 64  |1)=0....endofmod|
000045c0  75 6c 65 25 3d 73 61 6d  70 6c 65 73 74 6f 72 65  |ule%=samplestore|
000045d0  25 2b 31 0d 1d 06 1b 24  66 69 6c 65 6e 61 6d 65  |%+1....$filename|
000045e0  25 3d a4 6c 65 61 66 28  66 69 6c 65 24 29 0d 1d  |%=.leaf(file$)..|
000045f0  10 23 71 25 21 30 3d 73  61 76 65 25 3a 71 25 21  |.#q%!0=save%:q%!|
00004600  34 3d 32 3a c8 99 20 26  34 30 30 43 45 2c 2c 71  |4=2:.. &400CE,,q|
00004610  25 0d 1d 1a 19 73 61 76  65 74 79 70 65 25 3d 6d  |%....savetype%=m|
00004620  6f 64 75 6c 65 74 79 70  65 25 0d 1d 24 23 24 28  |oduletype%..$#$(|
00004630  71 25 2b 32 38 29 3d a4  66 69 6c 65 73 70 72 69  |q%+28)=.filespri|
00004640  74 65 28 73 61 76 65 74  79 70 65 25 29 0d 1d 2e  |te(savetype%)...|
00004650  27 c8 99 20 22 57 69 6d  70 5f 44 65 6c 65 74 65  |'.. "Wimp_Delete|
00004660  49 63 6f 6e 22 2c 2c 71  25 3a 71 25 21 34 3d 73  |Icon",,q%:q%!4=s|
00004670  61 76 65 25 0d 1d 38 2b  c8 99 20 22 57 69 6d 70  |ave%..8+.. "Wimp|
00004680  5f 43 72 65 61 74 65 49  63 6f 6e 22 2c 2c 28 71  |_CreateIcon",,(q|
00004690  25 2b 34 29 3a f4 20 54  4f 20 69 63 6f 6e 25 0d  |%+4):. TO icon%.|
000046a0  1d 42 3f 71 25 21 30 3d  73 61 76 65 25 3a 71 25  |.B?q%!0=save%:q%|
000046b0  21 34 3d 30 3a 71 25 21  38 3d 30 3a 71 25 21 31  |!4=0:q%!8=0:q%!1|
000046c0  32 3d 30 3a c8 99 20 22  57 69 6d 70 5f 53 65 74  |2=0:.. "Wimp_Set|
000046d0  49 63 6f 6e 53 74 61 74  65 22 2c 2c 71 25 0d 1d  |IconState",,q%..|
000046e0  4c 11 f2 66 72 6f 6e 74  28 73 61 76 65 25 29 0d  |L..front(save%).|
000046f0  1d 56 39 c8 99 20 22 57  69 6d 70 5f 53 65 74 43  |.V9.. "Wimp_SetC|
00004700  61 72 65 74 50 6f 73 69  74 69 6f 6e 22 2c 73 61  |aretPosition",sa|
00004710  76 65 25 2c 30 2c 30 2c  30 2c 2d 31 2c a9 24 66  |ve%,0,0,0,-1,.$f|
00004720  69 6c 65 6e 61 6d 65 25  0d 1d 60 05 e1 0d 1d 6a  |ilename%..`....j|
00004730  05 3a 0d 1d 74 12 dd 20  f2 77 61 72 6e 69 6e 67  |.:..t.. .warning|
00004740  28 61 24 29 0d 1d 7e 17  21 71 25 3d 9f 3a 24 28  |(a$)..~.!q%=.:$(|
00004750  71 25 2b 34 29 3d 61 24  2b bd 30 0d 1d 88 2a c8  |q%+4)=a$+.0...*.|
00004760  99 20 22 57 69 6d 70 5f  52 65 70 6f 72 74 45 72  |. "Wimp_ReportEr|
00004770  72 6f 72 22 2c 71 25 2c  31 2c 70 72 6f 67 5f 74  |ror",q%,1,prog_t|
00004780  69 74 6c 65 24 0d 1d 92  05 e1 0d 1d 9c 05 3a 0d  |itle$.........:.|
00004790  1d a6 12 dd 20 f2 64 72  61 67 62 6f 78 28 71 25  |.... .dragbox(q%|
000047a0  29 0d 1d b0 12 e7 20 64  72 61 67 62 6f 78 25 3d  |)..... dragbox%=|
000047b0  b9 20 8c 0d 1d ba 0e 64  72 61 67 62 6f 78 25 3d  |. .....dragbox%=|
000047c0  a3 0d 1d c4 0f f2 67 65  74 70 6f 69 6e 74 65 72  |......getpointer|
000047d0  0d 1d ce 0b 71 25 21 30  3d 36 30 0d 1d d8 0b 71  |....q%!0=60....q|
000047e0  25 21 31 32 3d 30 0d 1d  e2 0b 71 25 21 31 36 3d  |%!12=0....q%!16=|
000047f0  31 0d 1d ec 11 71 25 21  32 30 3d 68 61 6e 64 6c  |1....q%!20=handl|
00004800  65 25 0d 1d f6 0f 71 25  21 32 34 3d 69 63 6f 6e  |e%....q%!24=icon|
00004810  25 0d 1e 00 11 71 25 21  32 38 3d 6d 6f 75 73 65  |%....q%!28=mouse|
00004820  78 25 0d 1e 0a 11 71 25  21 33 32 3d 6d 6f 75 73  |x%....q%!32=mous|
00004830  65 79 25 0d 1e 14 0e 71  25 21 33 36 3d 32 30 30  |ey%....q%!36=200|
00004840  30 0d 1e 1e 13 71 25 21  34 30 3d 73 61 76 65 74  |0....q%!40=savet|
00004850  79 70 65 25 0d 1e 28 23  24 28 71 25 2b 34 34 29  |ype%..(#$(q%+44)|
00004860  3d a4 6c 65 61 66 28 24  66 69 6c 65 6e 61 6d 65  |=.leaf($filename|
00004870  25 29 2b bd 28 30 29 0d  1e 32 2d c8 99 20 22 57  |%)+.(0)..2-.. "W|
00004880  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
00004890  2c 31 37 2c 71 25 2c 68  61 6e 64 6c 65 25 2c 69  |,17,q%,handle%,i|
000048a0  63 6f 6e 25 0d 1e 3c 0f  6d 79 72 65 66 25 3d 71  |con%..<.myref%=q|
000048b0  25 21 38 0d 1e 46 05 cd  0d 1e 50 05 e1 0d 1e 5a  |%!8..F....P....Z|
000048c0  05 3a 0d 1e 64 16 dd 20  f2 64 61 74 61 73 61 76  |.:..d.. .datasav|
000048d0  65 61 63 6b 28 71 25 29  0d 1e 6e 14 e7 20 71 25  |eack(q%)..n.. q%|
000048e0  21 31 32 3d 6d 79 72 65  66 25 20 8c 0d 1e 78 46  |!12=myref% ...xF|
000048f0  ff 20 22 53 61 76 65 20  22 2b a4 6d 65 6d 74 6f  |. "Save "+.memto|
00004900  73 74 72 28 71 25 2b 34  34 2c 31 30 30 29 2b 22  |str(q%+44,100)+"|
00004910  20 22 2b c3 7e 6d 6f 64  75 6c 65 70 74 72 25 2b  | "+.~moduleptr%+|
00004920  22 20 22 2b c3 7e 65 6e  64 6f 66 6d 6f 64 75 6c  |" "+.~endofmodul|
00004930  65 25 0d 1e 82 37 ff 20  22 53 65 74 54 79 70 65  |e%...7. "SetType|
00004940  20 22 2b a4 6d 65 6d 74  6f 73 74 72 28 71 25 2b  | "+.memtostr(q%+|
00004950  34 34 2c 31 30 30 29 2b  22 20 22 2b c3 7e 28 73  |44,100)+" "+.~(s|
00004960  61 76 65 74 79 70 65 25  29 0d 1e 8c 18 f2 63 6c  |avetype%).....cl|
00004970  6f 73 65 5f 77 69 6e 64  6f 77 28 73 61 76 65 25  |ose_window(save%|
00004980  29 0d 1e 96 0e 71 25 21  31 32 3d 71 25 21 38 0d  |)....q%!12=q%!8.|
00004990  1e a0 0b 71 25 21 30 3d  36 30 0d 1e aa 0b 71 25  |...q%!0=60....q%|
000049a0  21 31 36 3d 33 0d 1e b4  2d c8 99 20 22 57 69 6d  |!16=3...-.. "Wim|
000049b0  70 5f 53 65 6e 64 4d 65  73 73 61 67 65 22 2c 31  |p_SendMessage",1|
000049c0  38 2c 71 25 2c 68 61 6e  64 6c 65 25 2c 69 63 6f  |8,q%,handle%,ico|
000049d0  6e 25 0d 1e be 0f 6d 79  72 65 66 25 3d 71 25 21  |n%....myref%=q%!|
000049e0  38 0d 1e c8 24 c8 99 20  22 57 69 6d 70 5f 53 6c  |8...$.. "Wimp_Sl|
000049f0  6f 74 53 69 7a 65 22 2c  73 74 61 72 74 73 6c 6f  |otSize",startslo|
00004a00  74 25 2c 2d 31 0d 1e d2  1b 63 75 72 72 65 6e 74  |t%,-1....current|
00004a10  73 6c 6f 74 25 3d 73 74  61 72 74 73 6c 6f 74 25  |slot%=startslot%|
00004a20  0d 1e dc 05 cd 0d 1e e6  05 e1 0d 1e f0 05 3a 0d  |..............:.|
00004a30  1e fa 19 dd 20 f2 73 70  6c 69 74 6d 6f 64 75 6c  |.... .splitmodul|
00004a40  65 28 66 69 6c 65 24 29  0d 1f 04 0d ea 20 68 61  |e(file$)..... ha|
00004a50  6e 64 6c 65 25 0d 1f 0e  12 e7 20 66 69 6c 65 24  |ndle%..... file$|
00004a60  3d 22 22 20 8c 20 e1 0d  1f 18 55 68 61 6e 64 6c  |="" . ....Uhandl|
00004a70  65 25 3d ad 20 66 69 6c  65 24 3a e7 20 68 61 6e  |e%=. file$:. han|
00004a80  64 6c 65 25 3d 30 20 8c  20 d9 23 68 61 6e 64 6c  |dle%=0 . .#handl|
00004a90  65 25 3a f2 77 61 72 6e  69 6e 67 28 22 43 61 6e  |e%:.warning("Can|
00004aa0  27 74 20 66 69 6e 64 20  66 69 6c 65 20 27 22 2b  |'t find file '"+|
00004ab0  66 69 6c 65 24 2b 22 27  22 29 3a e1 0d 1f 22 1d  |file$+"'"):...".|
00004ac0  74 6c 65 6e 25 3d a2 23  68 61 6e 64 6c 65 25 3a  |tlen%=.#handle%:|
00004ad0  d9 23 68 61 6e 64 6c 65  25 0d 1f 2c 38 c8 99 20  |.#handle%..,8.. |
00004ae0  22 57 69 6d 70 5f 53 6c  6f 74 53 69 7a 65 22 2c  |"Wimp_SlotSize",|
00004af0  28 73 74 61 72 74 73 6c  6f 74 25 2b 74 6c 65 6e  |(startslot%+tlen|
00004b00  25 2b 31 30 32 34 29 2c  2d 31 20 b8 20 6e 65 77  |%+1024),-1 . new|
00004b10  25 0d 1f 36 1f e7 20 28  6e 65 77 25 2d 73 74 61  |%..6.. (new%-sta|
00004b20  72 74 73 6c 6f 74 25 29  3c 74 6c 65 6e 25 20 8c  |rtslot%)<tlen% .|
00004b30  0d 1f 40 26 c8 99 20 22  57 69 6d 70 5f 53 6c 6f  |..@&.. "Wimp_Slo|
00004b40  74 53 69 7a 65 22 2c 63  75 72 72 65 6e 74 73 6c  |tSize",currentsl|
00004b50  6f 74 25 2c 2d 31 0d 1f  4a 3a f2 77 61 72 6e 69  |ot%,-1..J:.warni|
00004b60  6e 67 28 22 4e 6f 74 20  65 6e 6f 75 67 68 20 6d  |ng("Not enough m|
00004b70  65 6d 6f 72 79 20 61 76  61 69 6c 61 62 6c 65 20  |emory available |
00004b80  74 6f 20 6c 6f 61 64 20  6d 6f 64 75 6c 65 22 29  |to load module")|
00004b90  0d 1f 54 05 e1 0d 1f 5e  05 cd 0d 1f 68 15 63 75  |..T....^....h.cu|
00004ba0  72 72 65 6e 74 73 6c 6f  74 25 3d 6e 65 77 25 0d  |rrentslot%=new%.|
00004bb0  1f 72 14 6d 6f 64 75 6c  65 70 74 72 25 3d 93 2b  |.r.moduleptr%=.+|
00004bc0  32 35 36 0d 1f 7c 05 3a  0d 1f 86 25 ff 28 22 4c  |256..|.:...%.("L|
00004bd0  4f 41 44 20 22 2b 66 69  6c 65 24 2b 22 20 22 2b  |OAD "+file$+" "+|
00004be0  c3 7e 6d 6f 64 75 6c 65  70 74 72 25 29 0d 1f 90  |.~moduleptr%)...|
00004bf0  16 74 72 61 63 6b 24 3d  22 22 3a 6c 6f 6f 70 31  |.track$="":loop1|
00004c00  25 3d 30 0d 1f 9a 05 f5  0d 1f a4 45 e7 20 28 6d  |%=0........E. (m|
00004c10  6f 64 75 6c 65 70 74 72  25 3f 6c 6f 6f 70 31 25  |oduleptr%?loop1%|
00004c20  29 3c 3e 30 20 8c 20 74  72 61 63 6b 24 2b 3d bd  |)<>0 . track$+=.|
00004c30  28 6d 6f 64 75 6c 65 70  74 72 25 3f 6c 6f 6f 70  |(moduleptr%?loop|
00004c40  31 25 29 3a 6c 6f 6f 70  31 25 2b 3d 31 0d 1f ae  |1%):loop1%+=1...|
00004c50  1a fd 28 6d 6f 64 75 6c  65 70 74 72 25 3f 6c 6f  |..(moduleptr%?lo|
00004c60  6f 70 31 25 29 3d 30 0d  1f b8 10 f1 3b 74 72 61  |op1%)=0.....;tra|
00004c70  63 6b 24 3b 22 29 22 0d  1f c2 05 3a 0d 1f cc 3a  |ck$;")"....:...:|
00004c80  f4 20 46 69 6e 64 20 6c  65 6e 67 74 68 20 6f 66  |. Find length of|
00004c90  20 74 75 6e 65 20 64 61  74 61 20 62 79 20 6c 6f  | tune data by lo|
00004ca0  6f 6b 69 6e 67 20 74 68  72 6f 75 67 68 20 70 61  |oking through pa|
00004cb0  74 74 65 72 6e 73 0d 1f  d6 0b 68 69 67 68 25 3d  |tterns....high%=|
00004cc0  30 0d 1f e0 10 e3 20 41  25 3d 30 20 b8 20 31 32  |0..... A%=0 . 12|
00004cd0  37 0d 1f ea 3d e7 20 6d  6f 64 75 6c 65 70 74 72  |7...=. moduleptr|
00004ce0  25 3f 28 26 31 44 38 2b  41 25 29 3e 68 69 67 68  |%?(&1D8+A%)>high|
00004cf0  25 20 8c 20 68 69 67 68  25 3d 6d 6f 64 75 6c 65  |% . high%=module|
00004d00  70 74 72 25 3f 28 26 31  44 38 2b 41 25 29 0d 1f  |ptr%?(&1D8+A%)..|
00004d10  f4 05 ed 0d 1f fe 0c 68  69 67 68 25 2b 3d 31 0d  |.......high%+=1.|
00004d20  20 08 05 3a 0d 20 12 1a  73 61 6d 70 6c 65 69 3d  | ..:. ..samplei=|
00004d30  6d 6f 64 75 6c 65 70 74  72 25 2b 26 31 34 0d 20  |moduleptr%+&14. |
00004d40  1c 27 73 70 6f 69 6e 74  3d 6d 6f 64 75 6c 65 70  |.'spoint=modulep|
00004d50  74 72 25 2b 26 32 35 38  2b 28 68 69 67 68 25 2a  |tr%+&258+(high%*|
00004d60  31 30 32 34 29 0d 20 26  13 74 75 6e 65 65 6e 64  |1024). &.tuneend|
00004d70  25 3d 73 70 6f 69 6e 74  0d 20 30 16 73 61 6d 70  |%=spoint. 0.samp|
00004d80  6c 65 73 3d 6d 6f 64 75  6c 65 70 74 72 25 0d 20  |les=moduleptr%. |
00004d90  3a 05 3a 0d 20 44 12 e3  20 6c 6f 6f 70 25 3d 30  |:.:. D.. loop%=0|
00004da0  20 b8 20 31 34 0d 20 4e  1f 73 61 6d 70 6c 65 6f  | . 14. N.sampleo|
00004db0  3d 73 61 6d 70 6c 65 69  2b 28 6c 6f 6f 70 25 2a  |=samplei+(loop%*|
00004dc0  26 31 45 29 0d 20 58 15  6e 61 6d 65 24 3d 22 22  |&1E). X.name$=""|
00004dd0  3a 6c 6f 6f 70 31 25 3d  30 0d 20 62 05 f5 0d 20  |:loop1%=0. b... |
00004de0  6c 3c e7 20 28 73 61 6d  70 6c 65 6f 3f 6c 6f 6f  |l<. (sampleo?loo|
00004df0  70 31 25 29 3c 3e 30 20  6e 61 6d 65 24 2b 3d bd  |p1%)<>0 name$+=.|
00004e00  28 73 61 6d 70 6c 65 6f  3f 6c 6f 6f 70 31 25 29  |(sampleo?loop1%)|
00004e10  3a 6c 6f 6f 70 31 25 2b  3d 31 0d 20 76 23 fd 28  |:loop1%+=1. v#.(|
00004e20  73 61 6d 70 6c 65 6f 3f  6c 6f 6f 70 31 25 29 3d  |sampleo?loop1%)=|
00004e30  30 20 84 20 6c 6f 6f 70  31 25 3d 32 30 0d 20 80  |0 . loop1%=20. .|
00004e40  11 e7 20 6e 61 6d 65 24  3c 3e 22 22 20 8c 0d 20  |.. name$<>"" .. |
00004e50  8a 1f 6e 61 6d 65 24 3d  c1 6e 61 6d 65 24 2c a7  |..name$=.name$,.|
00004e60  6e 61 6d 65 24 2c 22 3a  22 29 2b 31 29 0d 20 94  |name$,":")+1). .|
00004e70  1f 6e 61 6d 65 24 3d a4  66 69 6c 74 65 72 28 6e  |.name$=.filter(n|
00004e80  61 6d 65 24 2c 34 38 2c  31 32 36 29 0d 20 9e 20  |ame$,48,126). . |
00004e90  e7 20 6e 61 6d 65 24 3d  22 22 20 8c 20 6e 61 6d  |. name$="" . nam|
00004ea0  65 24 3d 22 6e 6f 2d 6e  61 6d 65 22 0d 20 a8 2a  |e$="no-name". .*|
00004eb0  6c 65 6e 25 3d 32 2a 28  28 73 61 6d 70 6c 65 6f  |len%=2*((sampleo|
00004ec0  3f 32 32 29 2a 32 35 36  2b 28 73 61 6d 70 6c 65  |?22)*256+(sample|
00004ed0  6f 3f 32 33 29 29 0d 20  b2 44 ff 20 22 53 61 76  |o?23)). .D. "Sav|
00004ee0  65 20 22 2b 64 69 72 6e  61 6d 65 24 28 30 29 2b  |e "+dirname$(0)+|
00004ef0  22 2e 22 2b c0 6e 61 6d  65 24 2c 31 30 29 2b 22  |"."+.name$,10)+"|
00004f00  20 22 2b c3 7e 28 73 70  6f 69 6e 74 29 2b 22 20  | "+.~(spoint)+" |
00004f10  2b 20 22 2b c3 7e 6c 65  6e 25 0d 20 bc 10 73 70  |+ "+.~len%. ..sp|
00004f20  6f 69 6e 74 2b 3d 6c 65  6e 25 0d 20 c6 05 cd 0d  |oint+=len%. ....|
00004f30  20 d0 05 ed 0d 20 da 19  65 6e 64 6f 66 6d 6f 64  | .... ..endofmod|
00004f40  75 6c 65 25 3d 74 75 6e  65 65 6e 64 25 0d 20 e4  |ule%=tuneend%. .|
00004f50  1b 24 66 69 6c 65 6e 61  6d 65 25 3d a4 6c 65 61  |.$filename%=.lea|
00004f60  66 28 66 69 6c 65 24 29  0d 20 ee 23 71 25 21 30  |f(file$). .#q%!0|
00004f70  3d 73 61 76 65 25 3a 71  25 21 34 3d 32 3a c8 99  |=save%:q%!4=2:..|
00004f80  20 26 34 30 30 43 45 2c  2c 71 25 0d 20 f8 17 73  | &400CE,,q%. ..s|
00004f90  61 76 65 74 79 70 65 25  3d 73 6f 6e 67 74 79 70  |avetype%=songtyp|
00004fa0  65 25 0d 21 02 23 24 28  71 25 2b 32 38 29 3d a4  |e%.!.#$(q%+28)=.|
00004fb0  66 69 6c 65 73 70 72 69  74 65 28 73 61 76 65 74  |filesprite(savet|
00004fc0  79 70 65 25 29 0d 21 0c  27 c8 99 20 22 57 69 6d  |ype%).!.'.. "Wim|
00004fd0  70 5f 44 65 6c 65 74 65  49 63 6f 6e 22 2c 2c 71  |p_DeleteIcon",,q|
00004fe0  25 3a 71 25 21 34 3d 73  61 76 65 25 0d 21 16 2b  |%:q%!4=save%.!.+|
00004ff0  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 49  |.. "Wimp_CreateI|
00005000  63 6f 6e 22 2c 2c 28 71  25 2b 34 29 3a f4 20 54  |con",,(q%+4):. T|
00005010  4f 20 69 63 6f 6e 25 0d  21 20 3f 71 25 21 30 3d  |O icon%.! ?q%!0=|
00005020  73 61 76 65 25 3a 71 25  21 34 3d 30 3a 71 25 21  |save%:q%!4=0:q%!|
00005030  38 3d 30 3a 71 25 21 31  32 3d 30 3a c8 99 20 22  |8=0:q%!12=0:.. "|
00005040  57 69 6d 70 5f 53 65 74  49 63 6f 6e 53 74 61 74  |Wimp_SetIconStat|
00005050  65 22 2c 2c 71 25 0d 21  2a 11 f2 66 72 6f 6e 74  |e",,q%.!*..front|
00005060  28 73 61 76 65 25 29 0d  21 34 39 c8 99 20 22 57  |(save%).!49.. "W|
00005070  69 6d 70 5f 53 65 74 43  61 72 65 74 50 6f 73 69  |imp_SetCaretPosi|
00005080  74 69 6f 6e 22 2c 73 61  76 65 25 2c 30 2c 30 2c  |tion",save%,0,0,|
00005090  30 2c 2d 31 2c a9 24 66  69 6c 65 6e 61 6d 65 25  |0,-1,.$filename%|
000050a0  0d 21 3e 05 e1 0d 21 48  05 3a 0d 21 52 16 dd 20  |.!>...!H.:.!R.. |
000050b0  f2 72 65 61 64 64 69 72  65 63 74 6f 72 69 65 73  |.readdirectories|
000050c0  0d 21 5c 14 ea 20 68 61  6e 64 6c 65 25 2c 63 6f  |.!\.. handle%,co|
000050d0  75 6e 74 25 0d 21 66 0c  63 6f 75 6e 74 25 3d 30  |unt%.!f.count%=0|
000050e0  0d 21 70 25 68 61 6e 64  6c 65 25 3d ad 28 61 70  |.!p%handle%=.(ap|
000050f0  70 5f 70 61 74 68 24 2b  22 2e 73 61 6d 70 70 61  |p_path$+".samppa|
00005100  74 68 73 22 29 0d 21 7a  11 e7 20 68 61 6e 64 6c  |ths").!z.. handl|
00005110  65 25 3d 30 20 8c 0d 21  84 0d d9 23 68 61 6e 64  |e%=0 ..!...#hand|
00005120  6c 65 25 0d 21 8e 25 68  61 6e 64 6c 65 25 3d ae  |le%.!.%handle%=.|
00005130  28 61 70 70 5f 70 61 74  68 24 2b 22 2e 73 61 6d  |(app_path$+".sam|
00005140  70 70 61 74 68 73 22 29  0d 21 98 0f f1 23 68 61  |ppaths").!...#ha|
00005150  6e 64 6c 65 25 2c 30 0d  21 a2 16 6e 6f 6f 66 64  |ndle%,0.!..noofd|
00005160  69 72 65 63 74 6f 72 69  65 73 25 3d 30 0d 21 ac  |irectories%=0.!.|
00005170  16 6d 61 78 64 69 72 65  63 74 6f 72 69 65 73 25  |.maxdirectories%|
00005180  3d 31 30 0d 21 b6 1f de  20 64 69 72 6e 61 6d 65  |=10.!... dirname|
00005190  24 28 6d 61 78 64 69 72  65 63 74 6f 72 69 65 73  |$(maxdirectories|
000051a0  25 29 0d 21 c0 13 64 69  72 6e 61 6d 65 24 28 30  |%).!..dirname$(0|
000051b0  29 3d 22 24 22 0d 21 ca  05 cc 0d 21 d4 1e e8 23  |)="$".!....!...#|
000051c0  68 61 6e 64 6c 65 25 2c  6e 6f 6f 66 64 69 72 65  |handle%,noofdire|
000051d0  63 74 6f 72 69 65 73 25  0d 21 de 27 6d 61 78 64  |ctories%.!.'maxd|
000051e0  69 72 65 63 74 6f 72 69  65 73 25 3d 6e 6f 6f 66  |irectories%=noof|
000051f0  64 69 72 65 63 74 6f 72  69 65 73 25 2b 31 30 0d  |directories%+10.|
00005200  21 e8 23 de 20 64 69 72  6e 61 6d 65 24 28 6e 6f  |!.#. dirname$(no|
00005210  6f 66 64 69 72 65 63 74  6f 72 69 65 73 25 2b 31  |ofdirectories%+1|
00005220  30 29 0d 21 f2 1b e7 20  6e 6f 6f 66 64 69 72 65  |0).!... noofdire|
00005230  63 74 6f 72 69 65 73 25  3c 3e 30 20 8c 0d 21 fc  |ctories%<>0 ..!.|
00005240  24 e3 20 6c 6f 6f 70 25  3d 30 20 b8 20 28 6e 6f  |$. loop%=0 . (no|
00005250  6f 66 64 69 72 65 63 74  6f 72 69 65 73 25 2d 31  |ofdirectories%-1|
00005260  29 0d 22 06 1d e8 23 68  61 6e 64 6c 65 25 2c 64  |)."...#handle%,d|
00005270  69 72 6e 61 6d 65 24 28  6c 6f 6f 70 25 29 0d 22  |irname$(loop%)."|
00005280  10 2f 64 69 72 77 69 64  74 68 25 3d a4 6d 61 78  |./dirwidth%=.max|
00005290  28 a9 20 64 69 72 6e 61  6d 65 24 28 6c 6f 6f 70  |(. dirname$(loop|
000052a0  25 29 2c 64 69 72 77 69  64 74 68 25 29 0d 22 1a  |%),dirwidth%).".|
000052b0  05 ed 0d 22 24 05 cd 0d  22 2e 05 cd 0d 22 38 0d  |..."$..."...."8.|
000052c0  d9 23 68 61 6e 64 6c 65  25 0d 22 42 12 71 25 21  |.#handle%."B.q%!|
000052d0  30 3d 30 3a 71 25 21 31  32 3d 30 0d 22 4c 3e 71  |0=0:q%!12=0."L>q|
000052e0  25 21 38 3d 64 69 72 77  69 64 74 68 25 2a 31 36  |%!8=dirwidth%*16|
000052f0  2b 31 36 3a 71 25 21 34  3d 2d 28 6e 6f 6f 66 64  |+16:q%!4=-(noofd|
00005300  69 72 65 63 74 6f 72 69  65 73 25 2a 79 5f 73 70  |irectories%*y_sp|
00005310  61 63 69 6e 67 25 2b 38  29 0d 22 56 27 c8 99 20  |acing%+8)."V'.. |
00005320  22 57 69 6d 70 5f 53 65  74 45 78 74 65 6e 74 22  |"Wimp_SetExtent"|
00005330  2c 64 69 72 65 63 74 6f  72 69 65 73 25 2c 71 25  |,directories%,q%|
00005340  0d 22 60 05 e1 0d 22 6a  05 3a 0d 22 74 1e dd 20  |."`..."j.:."t.. |
00005350  f2 64 65 6c 65 74 65 73  61 6d 70 6c 65 70 61 74  |.deletesamplepat|
00005360  68 28 6e 75 6d 62 25 29  0d 22 7e 14 ea 20 68 61  |h(numb%)."~.. ha|
00005370  6e 64 6c 65 25 2c 63 6f  75 6e 74 25 0d 22 88 18  |ndle%,count%."..|
00005380  64 69 72 77 69 64 74 68  25 3d 6d 69 6e 65 78 74  |dirwidth%=minext|
00005390  65 6e 74 25 0d 22 92 25  68 61 6e 64 6c 65 25 3d  |ent%.".%handle%=|
000053a0  ae 28 61 70 70 5f 70 61  74 68 24 2b 22 2e 73 61  |.(app_path$+".sa|
000053b0  6d 70 70 61 74 68 73 22  29 0d 22 9c 22 f1 23 68  |mppaths").".".#h|
000053c0  61 6e 64 6c 65 25 2c 28  6e 6f 6f 66 64 69 72 65  |andle%,(noofdire|
000053d0  63 74 6f 72 69 65 73 25  2d 31 29 0d 22 a6 0f e7  |ctories%-1)."...|
000053e0  20 6e 75 6d 62 25 3e 30  20 8c 0d 22 b0 1a e3 20  | numb%>0 .."... |
000053f0  63 6f 75 6e 74 25 3d 30  20 b8 20 28 6e 75 6d 62  |count%=0 . (numb|
00005400  25 2d 31 29 0d 22 ba 30  64 69 72 77 69 64 74 68  |%-1).".0dirwidth|
00005410  25 3d a4 6d 61 78 28 64  69 72 77 69 64 74 68 25  |%=.max(dirwidth%|
00005420  2c a9 20 64 69 72 6e 61  6d 65 24 28 63 6f 75 6e  |,. dirname$(coun|
00005430  74 25 29 29 0d 22 c4 1e  f1 23 68 61 6e 64 6c 65  |t%))."...#handle|
00005440  25 2c 64 69 72 6e 61 6d  65 24 28 63 6f 75 6e 74  |%,dirname$(count|
00005450  25 29 0d 22 ce 05 ed 0d  22 d8 05 cd 0d 22 e2 20  |%)."...."....". |
00005460  e7 20 6e 75 6d 62 25 20  3c 20 6e 6f 6f 66 64 69  |. numb% < noofdi|
00005470  72 65 63 74 6f 72 69 65  73 25 20 8c 0d 22 ec 29  |rectories% ..".)|
00005480  e3 20 63 6f 75 6e 74 25  3d 28 6e 75 6d 62 25 2b  |. count%=(numb%+|
00005490  31 29 20 b8 20 6e 6f 6f  66 64 69 72 65 63 74 6f  |1) . noofdirecto|
000054a0  72 69 65 73 25 0d 22 f6  1e f1 23 68 61 6e 64 6c  |ries%."...#handl|
000054b0  65 25 2c 64 69 72 6e 61  6d 65 24 28 63 6f 75 6e  |e%,dirname$(coun|
000054c0  74 25 29 0d 23 00 30 64  69 72 77 69 64 74 68 25  |t%).#.0dirwidth%|
000054d0  3d a4 6d 61 78 28 64 69  72 77 69 64 74 68 25 2c  |=.max(dirwidth%,|
000054e0  a9 20 64 69 72 6e 61 6d  65 24 28 63 6f 75 6e 74  |. dirname$(count|
000054f0  25 29 29 0d 23 0a 27 64  69 72 6e 61 6d 65 24 28  |%)).#.'dirname$(|
00005500  63 6f 75 6e 74 25 2d 31  29 3d 64 69 72 6e 61 6d  |count%-1)=dirnam|
00005510  65 24 28 63 6f 75 6e 74  25 29 0d 23 14 05 ed 0d  |e$(count%).#....|
00005520  23 1e 05 cd 0d 23 28 0d  d9 23 68 61 6e 64 6c 65  |#....#(..#handle|
00005530  25 0d 23 32 17 6e 6f 6f  66 64 69 72 65 63 74 6f  |%.#2.noofdirecto|
00005540  72 69 65 73 25 2d 3d 31  0d 23 3c 17 f2 67 65 74  |ries%-=1.#<..get|
00005550  77 28 64 69 72 65 63 74  6f 72 69 65 73 25 29 0d  |w(directories%).|
00005560  23 46 1f f2 63 6c 6f 73  65 5f 77 69 6e 64 6f 77  |#F..close_window|
00005570  28 64 69 72 65 63 74 6f  72 69 65 73 25 29 0d 23  |(directories%).#|
00005580  50 12 71 25 21 30 3d 30  3a 71 25 21 31 32 3d 30  |P.q%!0=0:q%!12=0|
00005590  0d 23 5a 3e 71 25 21 38  3d 64 69 72 77 69 64 74  |.#Z>q%!8=dirwidt|
000055a0  68 25 2a 31 36 2b 31 36  3a 71 25 21 34 3d 2d 28  |h%*16+16:q%!4=-(|
000055b0  6e 6f 6f 66 64 69 72 65  63 74 6f 72 69 65 73 25  |noofdirectories%|
000055c0  2a 79 5f 73 70 61 63 69  6e 67 25 2b 38 29 0d 23  |*y_spacing%+8).#|
000055d0  64 27 c8 99 20 22 57 69  6d 70 5f 53 65 74 45 78  |d'.. "Wimp_SetEx|
000055e0  74 65 6e 74 22 2c 64 69  72 65 63 74 6f 72 69 65  |tent",directorie|
000055f0  73 25 2c 71 25 0d 23 6e  41 f2 6f 70 65 6e 5f 77  |s%,q%.#nA.open_w|
00005600  69 6e 64 6f 77 28 64 69  72 65 63 74 6f 72 69 65  |indow(directorie|
00005610  73 25 2c 78 30 25 2c 79  30 25 2c 78 31 25 2c 79  |s%,x0%,y0%,x1%,y|
00005620  31 25 2c 73 63 78 25 2c  73 63 79 25 2c 62 68 61  |1%,scx%,scy%,bha|
00005630  6e 64 6c 65 25 29 0d 23  78 05 e1 0d ff           |ndle%).#x....|
0000563d