� > <Convert$Dir>.!RunImage
:
task$="Convert"
(%purpose$="MenuBar file converter"
2 version$="1.00 (7 May 1996)"
<"author$="(c) Graham Crow 1996"
F:
P� � �error:�
Z	�init
d�wimpinit(q%)
n�loadtemplates
x�baricon
��initicons
��owc(main%)
�� � �wimperror
�:
�quit%=�
��:�poll:� quit%
��undim(load%)
��undim(time%)
��undim(realtime%)
�,$q%="TASK":ș "Wimp_CloseDown",task%,!q%
��
�:
��------

�. POLL

�------

:

"
��poll

, ș "Wimp_Poll",,q% � reason%

6Ȏ reason% �

@ � 2:�ow2(q%)

J � 3:�cw(q%!0)

T � 6:�mouse(q%)

^ � 7:�enddrag(q%,swh%)

h � 8:�keypress(q%)

r � 9:�menuselect(q%)

| � 17,18:�receive(q%)

��

��

�:

��------

��. INIT

��------

�:

�
��init

�qsize%=&300

�� q% qsize%

�bufsize%=&500

�� buffer% bufsize%

�
� C% &100
� mb1% 100
:
0time%=�dim(14):� buffer for time/date string
&=realtime%=�dim(4):� buffer for 5-byte centisecs real time
0time$="%24%mi"+�13
:date$="%zdy/%zmn/%yr"+�13
D:
N!taskdir$=�osvar(task$+"$Dir")
Xsolid%=�soliddrag
b F%=0:loadfsp$="":savefsp$=""
ltexttodata%=�
v:
�maxmenus%=10:maxitems%=30
�:
� � Path$(maxmenus%,maxitems%)
�� MenuName$(maxmenus%)
�� Log%(maxmenus%)
�� MenuItems%(maxmenus%)
�� J%=1 � maxmenus%
� MenuName$(J%)="Menu "+�J%
��
�� Colour%(5)
�:
�%� set up tables to hold pathnames
�tables%=maxmenus%*2
)� get initial slot size (set in !Run)
remslotsize%=�getslotsize
infolen%=16*(tables%�2+3)
 Goffsetlen%=tables%*8:� type(2),offset from S%(2),items(2),length(2)
*:
48� enlarge slot size to allow for initial tables area
>6ok%=�setslotsize(remslotsize%+infolen%+offsetlen%)
H
� � ok% �
R. ans%=�report("No room to start "+task$,2)
\ �
f�
p:
z0D%=&8000+remslotsize%:� load address of file
�2P%=D%+infolen%:� start of table offset storage
�+S%=P%+offsetlen%:� start of first table
�T%=S%:� top of table data
�:
�� init data area
�� J%=D% � T%-4 � 4:!J%=0:�
�� set table parameters
�� J%=1 � tables%
� Ȏ � �
�1  � type for each table (0=integer, 1=string)
�  � J% � 2=0:type%=1 
�  :type%=0 
� �
 �tabletype(J%,type%)
 �tableitems(J%,0)
 �tablelen(J%,0)
$�
.�
8:
B��wimpinit(q%)
LC$q%="TASK":ș "Wimp_Initialise",200,q%!0,task$ � version%,task%
V� version%<310 �
`, � 0, task$+" needs OS 3.1 or greater":�
j�
t� �th(task$)>0 �
~' � 0, task$+" is already running":�
��
��
�:
���initicons
�� s$,wh%:wh%=info%
��it(wh%,0,task$)
��it(wh%,1,purpose$)
��it(wh%,2,author$)
��it(wh%,3,version$)
�
wh%=main%
�'s$="Text-to-Data  or  Data-to-Text"
��it(wh%,10,s$)
�it(wh%,2,"")

�it(wh%,5,"")
�it(wh%,7,"")
�ui(wh%,4)
(�
2:
<ݤdim(size%)
F� ptr%,flags%
P,ș "OS_Module",6,,,size% � ,,ptr%;flags%
Z� (flags% � 1)=1 �
d, � 0,"Couldn't claim workspace from RMA"
n�
x	=ptr%
�:
���undim(� ptr%)
�ș "XOS_Module",7,,ptr%
�
ptr%=0
��
�:
��----------
��. MESSAGES
��----------
�:
���receive(q%)
�sender%=q%!4
�Ȏ q%!16 �
 � action code
 � 0:quit%=�
 � 2:�datasave(q%)
" � 3:�dataload(q%)
,�
6�
@:
J�--------------
T�. DATA TO TEXT
^�--------------
h:
r��readdatafile(loadfsp$)
|4� click on Save - get data from file into arrays
�� J%,K%,L%,s$,p%,items%
�F%=�(loadfsp$)
�:
�menus%=�#F%
�:
�� J%=1 � maxmenus%
� Log%(J%)=�#F%
��
�:
��#F%=16
�� J%=1 � 5
� Colour%(J%)=�#F%
��
:
	p%=48
� J%=1 � maxmenus%
& �#F%=p%
0 s$=�#F%
: MenuName$(J%)=s$
D p%+=16
N�
X:
b� J%=1 � maxmenus%
l p%=infolen%+((J%-1)*16)+4
v �#F%=p%
�
 b1%=�#F%
�
 b2%=�#F%
� MenuItems%(J%)=b1%*256+b2%
��
�:
�� J%=1 � maxmenus%
� items%=MenuItems%(J%)
� � items%>0 �
�  � K%=1 � items%
�   s$=�getpath(J%,K%)
�   Path$(J%,K%)=s$
�  �
� �
�

�#F%:F%=0
�
 :
*ݤgetpath(menu%,item%)
4� p%,p1%,p2%,off%,table%,s$
>table%=menu%*2-1
Hp1%=�getstart(table%)
Rp2%=�getstart(table%+1)
\p%=p1%+(item%-1)*4
f�#F%=p%
pb1%=�#F%:b2%=�#F%
zb3%=�#F%:b4%=�#F%
�)off%=(b4%<<24)+(b3%<<16)+(b2%<<8)+b1%
��#F%=p2%+off%
�s$=�#F%
�=s$
�:
�ݤgetstart(table%)
�� p%,s%
� p%=infolen%+((table%-1)*8)+2
��#F%=p%
�b1%=�#F%:b2%=�#F%
�*s%=(b1%*256+b2%)+(infolen%+offsetlen%)
�=s%
�:
	��maketextfile(fsp$)
	!� J%,K%,L%,t%,items%,s$,l$,o%
	F%=�(fsp$)
	$leaf$=�leaf(fsp$)
	.-�#F%,"MenuBar2 '"+leaf$+"' at "+�realtime
	8�#F%,""
	B	s$=""
	L� J%=1 � 5
	V s$+=�(Colour%(J%))+","
	`�
	js$=�s$,�s$-1)+"."
	t4�#F%,�menus%+" menus defined.  Colours are: "+s$
	~:
	�� J%=1 � menus%
	� L%=Log%(J%)
	� items%=MenuItems%(L%)
	� �#F%,""
	� s$=�J%+". "
	�# s$+=MenuName$(L%):l$=ĩs$,"-")
	� �#F%,s$
	� �#F%,l$
	� � items%>0 �
	�  � K%=1 � items%
	�   s$=�" "+�K%,2)+". "
	�   �#F%,s$+Path$(L%,K%)
  �

 �
�
�("SetType "+fsp$+" &FFF")
(
�#F%:F%=0
2�
<:
F�--------------
P�. TEXT TO DATA
Z�--------------
d:
n��readtextfile(loadfsp$)
x� click on Save
�,� s$,c$,n$,p%,name$,colour$,count%,leaf$
�leaf$=�leaf(loadfsp$)
�F%=�(loadfsp$)
�s$=�get(F%):� name
�� �s$,8)="MenuBar2" �
� s$=�get(F%):� blank line
� � get colours
� s$=�get(F%)
� p%=�s$,":")
� s$=�s$,�s$-p%)
� colour$="":count%=1
� � J%=1 � �s$
�  c$=�s$,J%,1)
  � c$<>"," � colour$+=c$
  � c$="," � J%=�(s$) �
4   Colour%(count%)=�colour$:colour$="":count%+=1
"  �
, �
6�
@ � MenuBar1 colours
J Colour%(1)=0
T Colour%(2)=0
^ Colour%(3)=0
h Colour%(4)=11
r Colour%(5)=1
|�
�:
�m%=0:i%=0:c%=0:s$="":d$=""
�:
��
� rem$=s$
� s$=�get(F%)
� d$=�s$,1)
� :
� � d$="-" �
�  MenuItems%(c%)=i%:c%+=1
�  m%+=1:i%=0
�  � strip number
�(  n$=rem$:p%=�n$," "):n$=�n$,�n$-p%)
  MenuName$(m%)=n$
 �
'  � s$<>"" � s$<>rem$ � s$<>"EOF" �
&   � get NEXT string
0"   p%=�#F%:n$=�get(F%):�#F%=p%
:   � �n$,1)<>"-" �
D
    i%+=1
N$    s$=�s$,�s$-4):� strip number
X    Path$(m%,i%)=s$
b   �
l  �
v � 
�� s$="EOF"
�MenuItems%(c%)=i%
�:
�
menus%=m%
�
�#F%:F%=0
��
�:
�
ݤget(F%)
�� s$
�� �#F% � s$="EOF" � s$=�#F%
�=s$
�:
���makedatafile(savefsp$)

� J%,items%

� flush tables

� J%=1 � tables%

  �flushtable(J%)

*�

4� add pathnames to tables

>ș "Hourglass_On"

H� J%=1 � menus%

R items%=MenuItems%(J%)

\ � items%>0 �

f  � K%=1 � MenuItems%(J%)

p   path$=Path$(J%,K%)

z   :

�   � strip HD4 name?

�   � �is(main%,4) �

�    hd4$=�it(main%,5)

�    len%=�hd4$

�    � does it match? 

�&    � len%>0 � �path$,len%)=hd4$ �

�"     path$=�path$,�path$-len%)

�	    �

�   �

�
   :  

�   �additem(path$,J%)

�  �

� �
�
�savedata(savefsp$)
ș "Hourglass_Smash"
$�
.:
8��additem(str$,menu%)
B� put path name in table
L+inttab%=�table(menu%):strtab%=inttab%+1
Vitems%=�tableitems(inttab%)
`offset%=�tablelen(strtab%)
j)�addstring(str$,strtab%):� � ok% � � 
t3�addinteger(offset%,inttab%,items%):� � ok% � �
~�
�:
���savedata(fsp$)
�� J%,o%,len%,end%
�?D%=menus%
�� logical Menu numbers
�o%=1
�� J%=1 � maxmenus%
� D%?o%=J%:o%+=1
��
�+� J%=maxmenus%+1 � 15:D%?J%=0:�:� spare
�
� colours
�	o%=16
� J%=1 � 5

 D%?o%=Colour%(J%):o%+=1
�
"� J%=21 � 28:D%?J%=0:�:� spare
($(D%+29)="MB":� identifier
2� Menu names
<	o%=48
F� J%=1 � maxmenus%
P" $(D%+o%)=MenuName$(J%):o%+=16
Z�
dlen%=T%-D%:end%=D%+len%
n&ș "OS_File",10,fsp$,&FFD,,D%,end%
x�
�:
��------
��. LOAD
��------
�:
���dataload(q%)
�� object dragged onto us
�� J%,wh%:wh%=main%
�filetype%=q%!40
�path$=�name(q%+44)
�=q%!12=q%!8:q%!16=4:ș "Wimp_SendMessage",17,q%,q%!4:� Ack
�leaf$=�leaf(path$)
��ow(main%)
"� �oktoload(path$,filetype%) �
 � texttodata% �
  s$="Text-to-Data"
"  spr$="file_FFD"
,  � active strip option
6  � J%=3 � 5
@   �cleariconbit(wh%,J%,22)
J  �
T �
^  s$="Data-to-Text"
h  spr$="file_FFF"
r  � no strip option
|  � J%=3 � 5
�   �seticonbit(wh%,J%,22)
�  �
� �
� q%!0=wh%:q%!4=6
� ș "Wimp_GetIconState",,q%
�3 minx%=q%!8:miny%=q%!12:maxx%=q%!16:maxy%=q%!20
� $(q%!28)=spr$
�8 ș "Wimp_ForceRedraw",main%,minx%,miny%,maxx%,maxy%
� �it(wh%,10,s$)
� �it(wh%,2,path$)
�# �it(wh%,7,leaf$):�caret(wh%,7)
� loadfsp$=path$
��
�
:
ݤoktoload(path$,filetype%)
&$� a%,b%,s$,name$,leaf$,ok%:ok%=�
0)a%=�objtype(path$)=1 � filetype%=&FFF
:)b%=�objtype(path$)=1 � filetype%=&FFD
Dleaf$=�leaf(path$)
N:
X� a% � b% �
b � a% �
l  � is it one of ours?
v  F%=�(path$)
�  s$=�#F%:name$=�s$,8)
�  �#F%:F%=0
�/  � name$<>"MenuBar2" � leaf$<>"MenuData" �
�/   ans%=�report("Must be a MenuBar file",1)
�  �
�   texttodata%=�:ok%=�
�  �
� �
� :
� � b% �
�  � is it one of ours?
�  F%=�(path$)
�
  �#F%=29
  name$=�#F%
  �#F%:F%=0
)  � name$<>"MB" � leaf$<>"MenuData" �
 /   ans%=�report("Must be a MenuBar file",1)
*  �
4   texttodata%=�:ok%=�
>  �
H �
R�
\9 ans%=�report("Must be a text file or a data file",1)
f�
p=ok%
z:
�
�--------
�
�. TABLES
�
�--------
�:
�ݤtable(menu%)
�� integer table
�=menu%*2-1
�:
���addstring(s$,t%)
�� add string s$ to table t%
�!� J%,len%,from%,to%,bytes%,n%
�len%=�s$+1
�$from%=�tablead(t%)+�tablelen(t%)
bytes%=T%-from%
to%=from%+len%
ok%=�checkspace(len%)
$
� � ok% �
.  m$="No room to extend data"
8- ans%=�report("No room to extend data",2)
B �
L�
V-� bytes%>0 � �movebytes(from%,to%,bytes%)
`T%+=len%
j
$from%=s$
t� increase items,length
~+n%=�tableitems(t%):�tableitems(t%,n%+1)
�*n%=�tablelen(t%):�tablelen(t%,n%+len%)
�� increase offsets
�� t%<tables% �
� � J%=t%+1 � tables%
�  n%=�tableoffset(J%)
�  �tableoffset(J%,n%+len%)
� �
��
��
�:
���addinteger(i%,t%,p%)
�/� add integer i% to table t% at position p%
!� J%,len%,from%,to%,bytes%,n%


len%=4
 from%=�tablead(t%)+(p%*len%)
bytes%=T%-from%
(to%=from%+len%
2ok%=�checkspace(len%)
<
� � ok% �
F- ans%=�report("No room to extend data",2)
P �
Z�
d-� bytes%>0 � �movebytes(from%,to%,bytes%)
nT%+=len%
x
!from%=i%
�� increase items,length
�+n%=�tableitems(t%):�tableitems(t%,n%+1)
�*n%=�tablelen(t%):�tablelen(t%,n%+len%)
�� increase offsets
�� t%<tables% �
� � J%=t%+1 � tables%
�  n%=�tableoffset(J%)
�  �tableoffset(J%,n%+len%)
� �
��
��
�:
���flushtable(t%)
!� J%,len%,to%,from%,bytes%,n%
len%=�tablelen(t%)
to%=�tablead(t%)
"from%=to%+len%
,bytes%=T%-from%
6-� bytes%>0 � �movebytes(from%,to%,bytes%)
@T%-=len%
J"� set items and length to zero
T%�tableitems(t%,0):�tablelen(t%,0)
^� decrease offsets
h� t%<tables% �
r � J%=t%+1 � tables%
|  n%=�tableoffset(J%)
�  �tableoffset(J%,n%-len%)
� �
��
��
�:
�!��movebytes(from%,to%,bytes%)
�8ș "Wimp_TransferBlock",task%,from%,task%,to%,bytes%
��
�:
�ݤbb(a%):=?a%*256+a%?1
�(� peek two-byte number at address a%
�:
�)ݤtableoffset(t%):=�bb(P%+(t%-1)*8+2)
(� returns offset from S% of table t%
:
(ݤtableitems(t%):=�bb(P%+(t%-1)*8+4)
&� returns items in table t%
0:
:&ݤtablelen(t%):=�bb(P%+(t%-1)*8+6)
D � returns length of table t%
N:
X&ݤtablead(t%):=S%+�tableoffset(t%)
b'� returns start address of table t%
l:
v(��bb(n%,a%):?a%=n%�256:a%?1=n%�256:�
�+� poke two-byte number n% to address a%
�:
�2��tabletype(t%,type%):�bb(type%,P%+(t%-1)*8):�
�� set type for table t%
�:
�:��tableoffset(t%,offset%):�bb(offset%,P%+(t%-1)*8+2):�
�$� set offset from S% of table t%
�:
�7��tableitems(t%,items%):�bb(items%,P%+(t%-1)*8+4):�
�%� set number of items in table t%
�:
�1��tablelen(t%,len%):�bb(len%,P%+(t%-1)*8+6):�
�� set length of table t%
:

�--------

�. MEMORY
 
�--------
*:
4ݤgetslotsize
>� slotsize%
H(ș "Wimp_SlotSize",-1,-1 � slotsize%
R=slotsize%
\:
fݤsetslotsize(bytes%)
p� size%,ok%:ok%=�
z(ș "Wimp_SlotSize",bytes%,-1 � size%
�� size%<bytes% � ok%=�
�=ok%
�:
�ݤcheckspace(bytes%)
�!� (�topofslot-T%)>=bytes% �=�
�&=�setslotsize(�getslotsize+bytes%)
�:
�ݤtopofslot
�=&8000+�getslotsize
�:
��----------
��. DRAGGING
��----------
:
ݤsoliddrag
� bit 1 of byte 28 set?
$!ș "OS_Byte",161,28 � ,,cmos%
.� (cmos% � 2)=0 �=�
8=�
B:
L!��startdrag(wh%,ih%,mb%,sol%)
V'swh%=wh%:sih%=ih%:smb%=mb%:� source
`� get coords
j)q%!0=wh%:ș "Wimp_GetWindowState",,q%
tDwminx%=q%!4:wminy%=q%!8:wmaxx%=q%!12:wmaxy%=q%!16:scrolly%=q%!24
~"ox%=q%!4-q%!20:oy%=q%!16-q%!24
�=ș "Wimp_GetPointerInfo",,q%:mx%=q%!0:my%=q%!4:remb%=q%!8
�0q%!0=wh%:q%!4=ih%:ș "Wimp_GetIconState",,q%
�"� initial position of drag box
�
Ȏ swh% �
� � main%
� q%!0=wh%:q%!4=5:sprad%=1
�J q%!8=q%!8+ox%-4:q%!12=q%!12+oy%-4:q%!16=q%!16+ox%+4:q%!20=q%!20+oy%+4
�4 q%!24=0:q%!28=0:q%!32=&7FFFFFFF:q%!36=&7FFFFFFF
��
�� sol% �
� �* flags%=%111000101
�  flags%=%11000101:� dithered
6 � texttodata% � spr$="file_FFD" � spr$="file_FFF"

3 ș "DragASprite_Start",flags%,sprad%,spr$,q%+8
�
 ș "Wimp_DragBox",,q%
(�
2�
<:
F��enddrag(q%,swh%)
P(�initiatesave(swh%,sih%,texttodata%)
Z�
d:
n�------
x�. SAVE
��------
�:
�)��initiatesave(swh%,sih%,texttodata%)
�"� a save icon has been dragged
�"� find out where drop occurred
� ș "Wimp_GetPointerInfo",,q%
�)mx%=q%!0:my%=q%!4:wh%=q%!12:ih%=q%!16
� � swh%=wh% � � �oktosave � �
�3� texttodata% � savetype%=&FFD � savetype%=&FFF
�(� send datasave message to dest task
�&fsp$=�it(swh%,7):leaf$=�leaf(fsp$)
�(q%!0=(48+�fsp$) � � 3:� block length
�q%!4=0:q%!8=0:q%!12=0
%q%!16=1:� message action=DataSave
+q%!20=wh%:q%!24=ih%:q%!28=mx%:q%!32=my%
q%!36=100:� size??
"q%!40=savetype%
,$(q%+44)=leaf$
6� send DataSave message
@'ș "Wimp_SendMessage",18,q%,wh%,ih%
J�
T:
^ݤoktosave
h� sfsp$,dfsp$,ok%:ok%=�
rsfsp$=�it(main%,2)
|dfsp$=�it(main%,7)
�� sfsp$="" � dfsp$="" �
�: ans%=�report("Enter filenames before saving",1):ok%=�
��
�=ok%
�:
�.��quicksave(loadfsp$,savefsp$,texttodata%)
�� OK or Ret in save panel
�� � �oktosave � �
�� �savefsp$,".") �
�) �save(loadfsp$,savefsp$,texttodata%)
��
�2 ans%=�report("To save, drag icon to Filer",1)
��
�
:
��datasave(q%)
&3� save icon has been dragged - message returned
0
� wh%,ih%
:wh%=q%!20:ih%=q%!24
D� get full pathname
Nsavefsp$=�name(q%+44)
X(�save(loadfsp$,savefsp$,texttodata%)
b$� only update filename if secure
l� q%!36>-1 �
v �it(swh%,7,savefsp$)
� �caretx(swh%,7,0)
� �caret(swh%,7)
��
�q%!12=q%!8:q%!16=3:!q%=256
�� send DataLoad message
�'ș "Wimp_SendMessage",18,q%,wh%,ih%
��
�:
�#��save(sfsp$,dfsp$,texttodata%)
�ș "Hourglass_On"
�� texttodata% �
� �readtextfile(sfsp$)
� �makedatafile(dfsp$)
�
 �readdatafile(sfsp$)
 �maketextfile(dfsp$)
 �
*ș "Hourglass_Smash"
4�
>:
H�-------
R�. MOUSE
\�-------
f:
p��mouse(q%)
z� mb%,wh%,ih%
�2mx%=q%!0:my%=q%!4:mb%=q%!8:wh%=q%!12:ih%=q%!16
�Ȏ wh% �
�	 � -2
�
 Ȏ mb% �
�
  � 2:
�  �menu(wh%,ih%,mx%,my%)
�  :�ow(main%)
� �
� � main%
�
 Ȏ mb% �
�   � 2:�menu(wh%,ih%,mx%,my%)
�  :
�  Ȏ ih% �
   � 6:� drag save icon
   Ȏ mb% �
.    � 16,64:�startdrag(wh%,ih%,mb%,solid%)
$   �
.   � 8:� Cancel
8   �cw(main%)
B   � 9:� Save
L   savefsp$=�it(wh%,7)
V0   �quicksave(loadfsp$,savefsp$,texttodata%)
`  �
j �
t�
~�
�:
��------
��. KEYS
��------
�:
���keypress(q%)
�� wh%,ih%,c%
�wh%=q%!0:ih%=q%!4:c%=q%!24
�Ȏ c% �
� � 13 :�return(wh%,ih%)
� � 388:�test:� F4
��
�

:
��return(wh%,ih%)
� wh%=main% �
( savefsp$=�it(wh%,7)
2. �quicksave(loadfsp$,savefsp$,texttodata%)
<�
F�
P:
Z��caret(wh%,ih%)
d� s$:s$=�it(wh%,ih%)
n/ș "Wimp_SetCaretPosition",wh%,ih%,,,-1,�s$
x�
�:
���caretx(wh%,ih%,xo%)
�1ș "Wimp_SetCaretPosition",wh%,ih%,xo%,,-1,-1
��
�:
�
��test
��
�:
��------
��. MENU
��------
�:
���menu(wh%,ih%,mx%,my%)
� middle button clicked
Ȏ wh% �
 � -2:�barmenu(mx%,my%)
"�
,�
6:
@��barmenu(mx%,my%)
J9� f%,b%,g%:b%=&7000021:g%=&7400021:� flags=black,grey
Tremx%=mx%:remy%=my%:i%=0
^/a%=mb1%:!a%=baricon%:p%=a%+32:$(a%+4)=task$
h+a%!16=&70207:a%!20=128:a%!24=44:a%!28=0
r@s$="Info":p%!0=0:p%!4=info%:p%!8=b%:$(p%+12)=s$:p%+=24:i%+=1
|7s$="Quit":p%!0=&80:p%!4=0:p%!8=b%:$(p%+12)=s$:i%+=1
�0ș "Wimp_CreateMenu",,mb1%+4,mx%-64,96+i%*44
��
�:
���menuselect(q%)
�� q%!0=1 quit%=�
��
�:
��------
��. MISC
��------
�:
�ݤrootpath(drive%)
�� f$,d$,p$
 f$=�fsname
 d$=�discname(drive%)
 
� d$="" �
 & p$="":� no such drive
 0�
 : p$=f$+"::"+d$+".$"
 D� 
 N=p$
 X:
 bݤfsname
 l� fs$,n%
 vș "OS_Args" � n%
 �#ș "OS_FSControl",33,n%,C%,&100
 �=�name(C%)
 �:
 �ݤdiscname(drive%)
 �� J%,p%,c%,s$:s$=""
 �&ș "XADFS_DescribeDisc",�drive%,C%
 �p%=0
 ��
 � c%=C%?(p%+22)
 � � c%>32 � s$+=�c%
 �
 p%+=1
 �� c%<33 � p%>9
 �=s$
!:
!ݤth(task$)
!(� look for task handle of named task
! &� if task not loaded, returns zero
!*� a%,f%,t$,th%
!45ș "TaskManager_EnumerateTasks",,q%,qsize% � ,r1%
!>	a%=q%
!H�
!R
 f%=a%!12
!\+ � (f% � 1)=0 � th%=a%!0:t$=�name(a%!4)
!f a%+=16
!p� a%>=r1% � t$=task$
!z� t$=task$ �=th%
!�=0
!�:
!�ݤleaf(f$)
!�(� c$,s$,c%:s$="":c%=�f$:c$=�f$,c%,1)
!� ȕ c$<>"." � c$<>":" � c%<>0
!� s$=c$+s$:c%-=1
!� c$=�f$,c%,1)
!��
!�=s$
!�:
!�ݤname(ptr%)
!�� s$:s$=""
!�$ȕ ?ptr%<>0:s$+=�?ptr%:ptr%+=1:�
"=s$
":
"ݤobjtype(path$)
"$� type%
". � 0=Not found, 1-File, 2=Dir
"8!ș "XOS_File",5,path$ � type%
"B
=type%
"L:
"Vݤrealtime
"`� d$,t$
"j*?realtime%=3:ș "OS_Word",14,realtime%
"t7ș "OS_ConvertDateAndTime",realtime%,time%,14,date$
"~
d$=$time%
"�7ș "OS_ConvertDateAndTime",realtime%,time%,14,time$
"�
t$=$time%
"�=t$+" on "+d$
"�:
"�ݤosvar(osvar$)
"�
� len%
"�%� If not found don't report error
"�1ș "XOS_ReadVarVal",osvar$,q%,200,0,3 �,,len%
"�?(q%+len%)=&D
"�=$q%
"�:
"���beep:� 1,-10,200,1:�
#��buzz:� 1,-15,50,4:�
#
:
#�---------
#�. WINDOWS
#(�---------
#2:
#<��loadtemplates
#F� tbuff%,end%
#P(tbuff%=buffer%:end%=buffer%+bufsize%
#Z1ș "Wimp_OpenTemplate",,taskdir$+".Templates"
#d5main%=�twindow("Main",end%,tbuff%):maintit%=q%!72
#n'savew%=�twindow("Save",end%,tbuff%)
#x&info%=�twindow("Info",end%,tbuff%)
#�ș "Wimp_CloseTemplate"
#��
#�:
#�ݤtwindow(t$,end%,� tbuff%)
#�	� wh%
#�=ș "Wimp_LoadTemplate",,q%,tbuff%,end%,-1,t$,0 � ,,tbuff%
#�$ș "Wimp_CreateWindow",,q% � wh%
#�=wh%
#�:
#�
��ow2(q%)
#�(� Open Window request from Wimp Poll
#�ș "Wimp_OpenWindow",,q%
#��
$:
$
��ow(wh%)
$� open window at my behest
$")q%!0=wh%:ș "Wimp_GetWindowState",,q%
$,q%!28=-1
$6ș "Wimp_OpenWindow",,q%
$@�
$J:
$T
��cw(wh%)
$^%!q%=wh%:ș "Wimp_CloseWindow",,q%
$h�
$r:
$|��owc(wh%)
$�)� at my behest - on top and in centre
$�)q%!0=wh%:ș "Wimp_GetWindowState",,q%
$�2ș "OS_ReadModeVariable",-1,11 � ,,xwindlimit%
$�2ș "OS_ReadModeVariable",-1,4  � ,,xeigfactor%
$�2ș "OS_ReadModeVariable",-1,12 � ,,ywindlimit%
$�2ș "OS_ReadModeVariable",-1,5  � ,,yeigfactor%
$�(xwindlimit%=xwindlimit%<<xeigfactor%
$�(ywindlimit%=ywindlimit%<<yeigfactor%
$�xeigfactor%=q%!12-q%!4
$�yeigfactor%=q%!16-q%!8
$�'q%!4 = (xwindlimit%-xeigfactor%)>>1
$�'q%!8 = (ywindlimit%-yeigfactor%)>>1
$�q%!12= q%!4+xeigfactor%
%q%!16= q%!8+yeigfactor%
%%q%!28=-1:ș "Wimp_OpenWindow",,q%
%�
%&:
%0�-------
%:�. ICONS
%D�-------
%N:
%X
��baricon
%b7q%!0=-1:q%!4=0:q%!8=0:q%!12=68:q%!16=68:q%!20=&3002
%l$(q%+24)="!convert"
%v'ș "Wimp_CreateIcon",,q% � baricon%
%��
%�:
%���it(wh%,ih%,text$)
%�q%!0=wh%:q%!4=ih%
%�ș "Wimp_GetIconState",,q%
%�$(q%!28)=text$
%�$q%!0=wh%:q%!4=ih%:q%!8=0:q%!12=0
%�ș "Wimp_SetIconState",,q%
%��
%�:
%�ݤit(wh%,ih%)
%�q%!0=wh%:q%!4=ih%
%�ș "Wimp_GetIconState",,q%
&
=$(q%!28)
&:
&ݤis(wh%,ih%)
& � n%
&*!q%=wh%:q%!4=ih%
&4ș "Wimp_GetIconState",,q%
&>n%=((q%!24)>>21) � 1
&H� n%=0 �=�
&R=�
&\:
&f��ui(wh%,ih%)
&pq%!0=wh%:q%!4=ih%
&zq%!8=0:q%!12=1<<21
&�ș "Wimp_SetIconState",,q%
&��
&�:
&���seticonbit(wh%,ih%,b%)
&�C%!0=wh%:C%!4=ih%
&�C%!8=1<<b%:C%!12=1<<b%
&�ș"Wimp_SetIconState",,C%
&��
&�:
&���cleariconbit(wh%,ih%,b%)
&�C%!0=wh%:C%!4=ih%
&�C%!8=0:C%!12=1<<b%
&�ș"Wimp_SetIconState",,C%
'�
':
'�-----------------
'$�. ERRORS/MESSAGES
'.�-----------------
'8:
'B��error
'L"� before entering polling loop
'Vș "Hourglass_Smash"
'`� F%>0 � �#F%:F%=0
'j� � �,�$+" at line "+Þ
't�
'~:
'���wimperror
'�
� ans%
'�.ș "Wimp_DragBox",,-1:ș "Hourglass_Smash"
'�� F%>0 � �#F%:F%=0
'�4!q%=�:s$="OK to continue, CANCEL to kill "+task$
'�0$(q%+4)=�$+" (Internal error "+Þ+") "+s$+�0
'�,ș "Wimp_ReportError",q%,3,task$ � ,ans%
'�7� ans%=2 $q%="TASK":ș "Wimp_CloseDown",task%,!q%:�
'��
'�:
'�ݤreport(err$,flag%)
'�
� ans%
(� flag%=01 (OK)
(
� flag%=02 (CANCEL)
(� flag%=03 (OK,CANCEL)
($� flag%+16 (no 'Error' in title)
((!q%=1:$(q%+4)=err$+�0
(20ș "Wimp_ReportError",q%,flag%,task$ � ,ans%
(<	=ans%
(F:
(P��dl(list$)
(Z� debug list
(d5� ccc%,ttt%,mmm%,ggg%,sss$,ccc$,var$():� var$(20)
(n(ggg%=4:� omit lines at top of screen
(x� �
(�*� � � �4:�0,ttt%+ggg%+2)"ERROR!":�5:�
(�� ttt%=1 � �(list$)
(� ccc$=�list$,ttt%,1)
(� � ccc$<>"," � sss$+=ccc$
(�! � ccc$="," � ttt%=�(list$) �
(�  � �sss$>mmm% � mmm%=�sss$
(�%  var$(ccc%)=sss$:sss$="":ccc%+=1
(� �
(��
(��4
(�� ttt%=0 � ccc%-1
(� sss$=var$(ttt%)
(� �0,ttt%+ggg%)�30," ")
) � �sss$,1)="~" �
)  sss$=�sss$,�sss$-1)
)  ccc$=�mmm%-�sss$," ")
)"-  �0,ttt%+ggg%)sss$+ccc$+" =&";�~(�sss$)
),  �
)6  ccc$=�mmm%-�sss$," ")
)@,  �0,ttt%+ggg%) sss$+ccc$+" = ";�(sss$)
)J �
)T�:�5
)^�
)h:
)r��da(a$,f%,t%)
)|� debug array
)�� ccc%,nnn$,xxx%,ttt%,ggg%
)�(ggg%=4:� omit lines at top of screen
)�� �
)�*� � � �4:�0,ttt%+ggg%+2)"ERROR!":�5:�
)�'� �a$,1)="~" � a$=�a$,�a$-1):xxx%=�
)��4:�0,ggg%)a$+"()"
)�� ccc%=f% � t%
)�$ nnn$=�"  "+�ccc%,2)+" ":ttt%+=1
)�
 � xxx% �
)�3  �0,ttt%+ggg%)nnn$+"&";�~+�(a$+"("+�ccc%+")")
)� �
)�,  �0,ttt%+ggg%)nnn$;�(a$+"("+�ccc%+")")
)� �
*�:�5
*�
�

00000000  0d 00 0a 1f f4 20 3e 20  3c 43 6f 6e 76 65 72 74  |..... > <Convert|
00000010  24 44 69 72 3e 2e 21 52  75 6e 49 6d 61 67 65 0d  |$Dir>.!RunImage.|
00000020  00 14 05 3a 0d 00 1e 13  74 61 73 6b 24 3d 22 43  |...:....task$="C|
00000030  6f 6e 76 65 72 74 22 0d  00 28 25 70 75 72 70 6f  |onvert"..(%purpo|
00000040  73 65 24 3d 22 4d 65 6e  75 42 61 72 20 66 69 6c  |se$="MenuBar fil|
00000050  65 20 63 6f 6e 76 65 72  74 65 72 22 0d 00 32 20  |e converter"..2 |
00000060  76 65 72 73 69 6f 6e 24  3d 22 31 2e 30 30 20 28  |version$="1.00 (|
00000070  37 20 4d 61 79 20 31 39  39 36 29 22 0d 00 3c 22  |7 May 1996)"..<"|
00000080  61 75 74 68 6f 72 24 3d  22 28 63 29 20 47 72 61  |author$="(c) Gra|
00000090  68 61 6d 20 43 72 6f 77  20 31 39 39 36 22 0d 00  |ham Crow 1996"..|
000000a0  46 05 3a 0d 00 50 10 ee  20 85 20 f2 65 72 72 6f  |F.:..P.. . .erro|
000000b0  72 3a e0 0d 00 5a 09 f2  69 6e 69 74 0d 00 64 11  |r:...Z..init..d.|
000000c0  f2 77 69 6d 70 69 6e 69  74 28 71 25 29 0d 00 6e  |.wimpinit(q%)..n|
000000d0  12 f2 6c 6f 61 64 74 65  6d 70 6c 61 74 65 73 0d  |..loadtemplates.|
000000e0  00 78 0c f2 62 61 72 69  63 6f 6e 0d 00 82 0e f2  |.x..baricon.....|
000000f0  69 6e 69 74 69 63 6f 6e  73 0d 00 8c 0f f2 6f 77  |initicons.....ow|
00000100  63 28 6d 61 69 6e 25 29  0d 00 96 12 ee 20 85 20  |c(main%)..... . |
00000110  f2 77 69 6d 70 65 72 72  6f 72 0d 00 a0 05 3a 0d  |.wimperror....:.|
00000120  00 aa 0b 71 75 69 74 25  3d a3 0d 00 b4 13 f5 3a  |...quit%=......:|
00000130  f2 70 6f 6c 6c 3a fd 20  71 75 69 74 25 0d 00 be  |.poll:. quit%...|
00000140  11 f2 75 6e 64 69 6d 28  6c 6f 61 64 25 29 0d 00  |..undim(load%)..|
00000150  c8 11 f2 75 6e 64 69 6d  28 74 69 6d 65 25 29 0d  |...undim(time%).|
00000160  00 d2 15 f2 75 6e 64 69  6d 28 72 65 61 6c 74 69  |....undim(realti|
00000170  6d 65 25 29 0d 00 dc 2c  24 71 25 3d 22 54 41 53  |me%)...,$q%="TAS|
00000180  4b 22 3a c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |K":.. "Wimp_Clos|
00000190  65 44 6f 77 6e 22 2c 74  61 73 6b 25 2c 21 71 25  |eDown",task%,!q%|
000001a0  0d 00 e6 05 e0 0d 00 f0  05 3a 0d 00 fa 0b f4 2d  |.........:.....-|
000001b0  2d 2d 2d 2d 2d 0d 01 04  0b f4 2e 20 50 4f 4c 4c  |-----...... POLL|
000001c0  0d 01 0e 0b f4 2d 2d 2d  2d 2d 2d 0d 01 18 05 3a  |.....------....:|
000001d0  0d 01 22 0a dd f2 70 6f  6c 6c 0d 01 2c 20 c8 99  |.."...poll.., ..|
000001e0  20 22 57 69 6d 70 5f 50  6f 6c 6c 22 2c 2c 71 25  | "Wimp_Poll",,q%|
000001f0  20 b8 20 72 65 61 73 6f  6e 25 0d 01 36 10 c8 8e  | . reason%..6...|
00000200  20 72 65 61 73 6f 6e 25  20 ca 0d 01 40 11 20 c9  | reason% ...@. .|
00000210  20 32 3a f2 6f 77 32 28  71 25 29 0d 01 4a 12 20  | 2:.ow2(q%)..J. |
00000220  c9 20 33 3a f2 63 77 28  71 25 21 30 29 0d 01 54  |. 3:.cw(q%!0)..T|
00000230  13 20 c9 20 36 3a f2 6d  6f 75 73 65 28 71 25 29  |. . 6:.mouse(q%)|
00000240  0d 01 5e 1a 20 c9 20 37  3a f2 65 6e 64 64 72 61  |..^. . 7:.enddra|
00000250  67 28 71 25 2c 73 77 68  25 29 0d 01 68 16 20 c9  |g(q%,swh%)..h. .|
00000260  20 38 3a f2 6b 65 79 70  72 65 73 73 28 71 25 29  | 8:.keypress(q%)|
00000270  0d 01 72 18 20 c9 20 39  3a f2 6d 65 6e 75 73 65  |..r. . 9:.menuse|
00000280  6c 65 63 74 28 71 25 29  0d 01 7c 19 20 c9 20 31  |lect(q%)..|. . 1|
00000290  37 2c 31 38 3a f2 72 65  63 65 69 76 65 28 71 25  |7,18:.receive(q%|
000002a0  29 0d 01 86 05 cb 0d 01  90 05 e1 0d 01 9a 05 3a  |)..............:|
000002b0  0d 01 a4 0b f4 2d 2d 2d  2d 2d 2d 0d 01 ae 0b f4  |.....------.....|
000002c0  2e 20 49 4e 49 54 0d 01  b8 0b f4 2d 2d 2d 2d 2d  |. INIT.....-----|
000002d0  2d 0d 01 c2 05 3a 0d 01  cc 0a dd f2 69 6e 69 74  |-....:......init|
000002e0  0d 01 d6 0f 71 73 69 7a  65 25 3d 26 33 30 30 0d  |....qsize%=&300.|
000002f0  01 e0 0f de 20 71 25 20  71 73 69 7a 65 25 0d 01  |.... q% qsize%..|
00000300  ea 11 62 75 66 73 69 7a  65 25 3d 26 35 30 30 0d  |..bufsize%=&500.|
00000310  01 f4 16 de 20 62 75 66  66 65 72 25 20 62 75 66  |.... buffer% buf|
00000320  73 69 7a 65 25 0d 01 fe  0d de 20 43 25 20 26 31  |size%..... C% &1|
00000330  30 30 0d 02 08 0e de 20  6d 62 31 25 20 31 30 30  |00..... mb1% 100|
00000340  0d 02 12 05 3a 0d 02 1c  30 74 69 6d 65 25 3d a4  |....:...0time%=.|
00000350  64 69 6d 28 31 34 29 3a  f4 20 62 75 66 66 65 72  |dim(14):. buffer|
00000360  20 66 6f 72 20 74 69 6d  65 2f 64 61 74 65 20 73  | for time/date s|
00000370  74 72 69 6e 67 0d 02 26  3d 72 65 61 6c 74 69 6d  |tring..&=realtim|
00000380  65 25 3d a4 64 69 6d 28  34 29 3a f4 20 62 75 66  |e%=.dim(4):. buf|
00000390  66 65 72 20 66 6f 72 20  35 2d 62 79 74 65 20 63  |fer for 5-byte c|
000003a0  65 6e 74 69 73 65 63 73  20 72 65 61 6c 20 74 69  |entisecs real ti|
000003b0  6d 65 0d 02 30 16 74 69  6d 65 24 3d 22 25 32 34  |me..0.time$="%24|
000003c0  25 6d 69 22 2b bd 31 33  0d 02 3a 1d 64 61 74 65  |%mi"+.13..:.date|
000003d0  24 3d 22 25 7a 64 79 2f  25 7a 6d 6e 2f 25 79 72  |$="%zdy/%zmn/%yr|
000003e0  22 2b bd 31 33 0d 02 44  05 3a 0d 02 4e 21 74 61  |"+.13..D.:..N!ta|
000003f0  73 6b 64 69 72 24 3d a4  6f 73 76 61 72 28 74 61  |skdir$=.osvar(ta|
00000400  73 6b 24 2b 22 24 44 69  72 22 29 0d 02 58 15 73  |sk$+"$Dir")..X.s|
00000410  6f 6c 69 64 25 3d a4 73  6f 6c 69 64 64 72 61 67  |olid%=.soliddrag|
00000420  0d 02 62 20 46 25 3d 30  3a 6c 6f 61 64 66 73 70  |..b F%=0:loadfsp|
00000430  24 3d 22 22 3a 73 61 76  65 66 73 70 24 3d 22 22  |$="":savefsp$=""|
00000440  0d 02 6c 11 74 65 78 74  74 6f 64 61 74 61 25 3d  |..l.texttodata%=|
00000450  b9 0d 02 76 05 3a 0d 02  80 1d 6d 61 78 6d 65 6e  |...v.:....maxmen|
00000460  75 73 25 3d 31 30 3a 6d  61 78 69 74 65 6d 73 25  |us%=10:maxitems%|
00000470  3d 33 30 0d 02 8a 05 3a  0d 02 94 20 de 20 50 61  |=30....:... . Pa|
00000480  74 68 24 28 6d 61 78 6d  65 6e 75 73 25 2c 6d 61  |th$(maxmenus%,ma|
00000490  78 69 74 65 6d 73 25 29  0d 02 9e 1a de 20 4d 65  |xitems%)..... Me|
000004a0  6e 75 4e 61 6d 65 24 28  6d 61 78 6d 65 6e 75 73  |nuName$(maxmenus|
000004b0  25 29 0d 02 a8 15 de 20  4c 6f 67 25 28 6d 61 78  |%)..... Log%(max|
000004c0  6d 65 6e 75 73 25 29 0d  02 b2 1b de 20 4d 65 6e  |menus%)..... Men|
000004d0  75 49 74 65 6d 73 25 28  6d 61 78 6d 65 6e 75 73  |uItems%(maxmenus|
000004e0  25 29 0d 02 bc 16 e3 20  4a 25 3d 31 20 b8 20 6d  |%)..... J%=1 . m|
000004f0  61 78 6d 65 6e 75 73 25  0d 02 c6 1e 20 4d 65 6e  |axmenus%.... Men|
00000500  75 4e 61 6d 65 24 28 4a  25 29 3d 22 4d 65 6e 75  |uName$(J%)="Menu|
00000510  20 22 2b c3 4a 25 0d 02  d0 05 ed 0d 02 da 10 de  | "+.J%..........|
00000520  20 43 6f 6c 6f 75 72 25  28 35 29 0d 02 e4 05 3a  | Colour%(5)....:|
00000530  0d 02 ee 25 f4 20 73 65  74 20 75 70 20 74 61 62  |...%. set up tab|
00000540  6c 65 73 20 74 6f 20 68  6f 6c 64 20 70 61 74 68  |les to hold path|
00000550  6e 61 6d 65 73 0d 02 f8  17 74 61 62 6c 65 73 25  |names....tables%|
00000560  3d 6d 61 78 6d 65 6e 75  73 25 2a 32 0d 03 02 29  |=maxmenus%*2...)|
00000570  f4 20 67 65 74 20 69 6e  69 74 69 61 6c 20 73 6c  |. get initial sl|
00000580  6f 74 20 73 69 7a 65 20  28 73 65 74 20 69 6e 20  |ot size (set in |
00000590  21 52 75 6e 29 0d 03 0c  1d 72 65 6d 73 6c 6f 74  |!Run)....remslot|
000005a0  73 69 7a 65 25 3d a4 67  65 74 73 6c 6f 74 73 69  |size%=.getslotsi|
000005b0  7a 65 0d 03 16 1d 69 6e  66 6f 6c 65 6e 25 3d 31  |ze....infolen%=1|
000005c0  36 2a 28 74 61 62 6c 65  73 25 81 32 2b 33 29 0d  |6*(tables%.2+3).|
000005d0  03 20 47 6f 66 66 73 65  74 6c 65 6e 25 3d 74 61  |. Goffsetlen%=ta|
000005e0  62 6c 65 73 25 2a 38 3a  f4 20 74 79 70 65 28 32  |bles%*8:. type(2|
000005f0  29 2c 6f 66 66 73 65 74  20 66 72 6f 6d 20 53 25  |),offset from S%|
00000600  28 32 29 2c 69 74 65 6d  73 28 32 29 2c 6c 65 6e  |(2),items(2),len|
00000610  67 74 68 28 32 29 0d 03  2a 05 3a 0d 03 34 38 f4  |gth(2)..*.:..48.|
00000620  20 65 6e 6c 61 72 67 65  20 73 6c 6f 74 20 73 69  | enlarge slot si|
00000630  7a 65 20 74 6f 20 61 6c  6c 6f 77 20 66 6f 72 20  |ze to allow for |
00000640  69 6e 69 74 69 61 6c 20  74 61 62 6c 65 73 20 61  |initial tables a|
00000650  72 65 61 0d 03 3e 36 6f  6b 25 3d a4 73 65 74 73  |rea..>6ok%=.sets|
00000660  6c 6f 74 73 69 7a 65 28  72 65 6d 73 6c 6f 74 73  |lotsize(remslots|
00000670  69 7a 65 25 2b 69 6e 66  6f 6c 65 6e 25 2b 6f 66  |ize%+infolen%+of|
00000680  66 73 65 74 6c 65 6e 25  29 0d 03 48 0d e7 20 ac  |fsetlen%)..H.. .|
00000690  20 6f 6b 25 20 8c 0d 03  52 2e 20 61 6e 73 25 3d  | ok% ...R. ans%=|
000006a0  a4 72 65 70 6f 72 74 28  22 4e 6f 20 72 6f 6f 6d  |.report("No room|
000006b0  20 74 6f 20 73 74 61 72  74 20 22 2b 74 61 73 6b  | to start "+task|
000006c0  24 2c 32 29 0d 03 5c 06  20 e0 0d 03 66 05 cd 0d  |$,2)..\. ...f...|
000006d0  03 70 05 3a 0d 03 7a 30  44 25 3d 26 38 30 30 30  |.p.:..z0D%=&8000|
000006e0  2b 72 65 6d 73 6c 6f 74  73 69 7a 65 25 3a f4 20  |+remslotsize%:. |
000006f0  6c 6f 61 64 20 61 64 64  72 65 73 73 20 6f 66 20  |load address of |
00000700  66 69 6c 65 0d 03 84 32  50 25 3d 44 25 2b 69 6e  |file...2P%=D%+in|
00000710  66 6f 6c 65 6e 25 3a f4  20 73 74 61 72 74 20 6f  |folen%:. start o|
00000720  66 20 74 61 62 6c 65 20  6f 66 66 73 65 74 20 73  |f table offset s|
00000730  74 6f 72 61 67 65 0d 03  8e 2b 53 25 3d 50 25 2b  |torage...+S%=P%+|
00000740  6f 66 66 73 65 74 6c 65  6e 25 3a f4 20 73 74 61  |offsetlen%:. sta|
00000750  72 74 20 6f 66 20 66 69  72 73 74 20 74 61 62 6c  |rt of first tabl|
00000760  65 0d 03 98 1d 54 25 3d  53 25 3a f4 20 74 6f 70  |e....T%=S%:. top|
00000770  20 6f 66 20 74 61 62 6c  65 20 64 61 74 61 0d 03  | of table data..|
00000780  a2 05 3a 0d 03 ac 14 f4  20 69 6e 69 74 20 64 61  |..:..... init da|
00000790  74 61 20 61 72 65 61 0d  03 b6 1e e3 20 4a 25 3d  |ta area..... J%=|
000007a0  44 25 20 b8 20 54 25 2d  34 20 88 20 34 3a 21 4a  |D% . T%-4 . 4:!J|
000007b0  25 3d 30 3a ed 0d 03 c0  1a f4 20 73 65 74 20 74  |%=0:...... set t|
000007c0  61 62 6c 65 20 70 61 72  61 6d 65 74 65 72 73 0d  |able parameters.|
000007d0  03 ca 14 e3 20 4a 25 3d  31 20 b8 20 74 61 62 6c  |.... J%=1 . tabl|
000007e0  65 73 25 0d 03 d4 0b 20  c8 8e 20 b9 20 ca 0d 03  |es%.... .. . ...|
000007f0  de 31 20 20 f4 20 74 79  70 65 20 66 6f 72 20 65  |.1  . type for e|
00000800  61 63 68 20 74 61 62 6c  65 20 28 30 3d 69 6e 74  |ach table (0=int|
00000810  65 67 65 72 2c 20 31 3d  73 74 72 69 6e 67 29 0d  |eger, 1=string).|
00000820  03 e8 19 20 20 c9 20 4a  25 20 83 20 32 3d 30 3a  |...  . J% . 2=0:|
00000830  74 79 70 65 25 3d 31 20  0d 03 f2 10 20 20 7f 3a  |type%=1 ....  .:|
00000840  74 79 70 65 25 3d 30 20  0d 03 fc 06 20 cb 0d 04  |type%=0 .... ...|
00000850  06 19 20 f2 74 61 62 6c  65 74 79 70 65 28 4a 25  |.. .tabletype(J%|
00000860  2c 74 79 70 65 25 29 0d  04 10 16 20 f2 74 61 62  |,type%).... .tab|
00000870  6c 65 69 74 65 6d 73 28  4a 25 2c 30 29 0d 04 1a  |leitems(J%,0)...|
00000880  14 20 f2 74 61 62 6c 65  6c 65 6e 28 4a 25 2c 30  |. .tablelen(J%,0|
00000890  29 0d 04 24 05 ed 0d 04  2e 05 e1 0d 04 38 05 3a  |)..$.........8.:|
000008a0  0d 04 42 12 dd f2 77 69  6d 70 69 6e 69 74 28 71  |..B...wimpinit(q|
000008b0  25 29 0d 04 4c 43 24 71  25 3d 22 54 41 53 4b 22  |%)..LC$q%="TASK"|
000008c0  3a c8 99 20 22 57 69 6d  70 5f 49 6e 69 74 69 61  |:.. "Wimp_Initia|
000008d0  6c 69 73 65 22 2c 32 30  30 2c 71 25 21 30 2c 74  |lise",200,q%!0,t|
000008e0  61 73 6b 24 20 b8 20 76  65 72 73 69 6f 6e 25 2c  |ask$ . version%,|
000008f0  74 61 73 6b 25 0d 04 56  14 e7 20 76 65 72 73 69  |task%..V.. versi|
00000900  6f 6e 25 3c 33 31 30 20  8c 0d 04 60 2c 20 85 20  |on%<310 ...`, . |
00000910  30 2c 20 74 61 73 6b 24  2b 22 20 6e 65 65 64 73  |0, task$+" needs|
00000920  20 4f 53 20 33 2e 31 20  6f 72 20 67 72 65 61 74  | OS 3.1 or great|
00000930  65 72 22 3a e0 0d 04 6a  05 cd 0d 04 74 14 e7 20  |er":...j....t.. |
00000940  a4 74 68 28 74 61 73 6b  24 29 3e 30 20 8c 0d 04  |.th(task$)>0 ...|
00000950  7e 27 20 85 20 30 2c 20  74 61 73 6b 24 2b 22 20  |~' . 0, task$+" |
00000960  69 73 20 61 6c 72 65 61  64 79 20 72 75 6e 6e 69  |is already runni|
00000970  6e 67 22 3a e0 0d 04 88  05 cd 0d 04 92 05 e1 0d  |ng":............|
00000980  04 9c 05 3a 0d 04 a6 0f  dd f2 69 6e 69 74 69 63  |...:......initic|
00000990  6f 6e 73 0d 04 b0 16 ea  20 73 24 2c 77 68 25 3a  |ons..... s$,wh%:|
000009a0  77 68 25 3d 69 6e 66 6f  25 0d 04 ba 14 f2 69 74  |wh%=info%.....it|
000009b0  28 77 68 25 2c 30 2c 74  61 73 6b 24 29 0d 04 c4  |(wh%,0,task$)...|
000009c0  17 f2 69 74 28 77 68 25  2c 31 2c 70 75 72 70 6f  |..it(wh%,1,purpo|
000009d0  73 65 24 29 0d 04 ce 16  f2 69 74 28 77 68 25 2c  |se$).....it(wh%,|
000009e0  32 2c 61 75 74 68 6f 72  24 29 0d 04 d8 17 f2 69  |2,author$).....i|
000009f0  74 28 77 68 25 2c 33 2c  76 65 72 73 69 6f 6e 24  |t(wh%,3,version$|
00000a00  29 0d 04 e2 0d 77 68 25  3d 6d 61 69 6e 25 0d 04  |)....wh%=main%..|
00000a10  ec 27 73 24 3d 22 54 65  78 74 2d 74 6f 2d 44 61  |.'s$="Text-to-Da|
00000a20  74 61 20 20 6f 72 20 20  44 61 74 61 2d 74 6f 2d  |ta  or  Data-to-|
00000a30  54 65 78 74 22 0d 04 f6  12 f2 69 74 28 77 68 25  |Text".....it(wh%|
00000a40  2c 31 30 2c 73 24 29 0d  05 00 11 f2 69 74 28 77  |,10,s$).....it(w|
00000a50  68 25 2c 32 2c 22 22 29  0d 05 0a 11 f2 69 74 28  |h%,2,"").....it(|
00000a60  77 68 25 2c 35 2c 22 22  29 0d 05 14 11 f2 69 74  |wh%,5,"").....it|
00000a70  28 77 68 25 2c 37 2c 22  22 29 0d 05 1e 0e f2 75  |(wh%,7,"").....u|
00000a80  69 28 77 68 25 2c 34 29  0d 05 28 05 e1 0d 05 32  |i(wh%,4)..(....2|
00000a90  05 3a 0d 05 3c 10 dd a4  64 69 6d 28 73 69 7a 65  |.:..<...dim(size|
00000aa0  25 29 0d 05 46 11 ea 20  70 74 72 25 2c 66 6c 61  |%)..F.. ptr%,fla|
00000ab0  67 73 25 0d 05 50 2c c8  99 20 22 4f 53 5f 4d 6f  |gs%..P,.. "OS_Mo|
00000ac0  64 75 6c 65 22 2c 36 2c  2c 2c 73 69 7a 65 25 20  |dule",6,,,size% |
00000ad0  b8 20 2c 2c 70 74 72 25  3b 66 6c 61 67 73 25 0d  |. ,,ptr%;flags%.|
00000ae0  05 5a 16 e7 20 28 66 6c  61 67 73 25 20 80 20 31  |.Z.. (flags% . 1|
00000af0  29 3d 31 20 8c 0d 05 64  2c 20 85 20 30 2c 22 43  |)=1 ...d, . 0,"C|
00000b00  6f 75 6c 64 6e 27 74 20  63 6c 61 69 6d 20 77 6f  |ouldn't claim wo|
00000b10  72 6b 73 70 61 63 65 20  66 72 6f 6d 20 52 4d 41  |rkspace from RMA|
00000b20  22 0d 05 6e 05 cd 0d 05  78 09 3d 70 74 72 25 0d  |"..n....x.=ptr%.|
00000b30  05 82 05 3a 0d 05 8c 13  dd f2 75 6e 64 69 6d 28  |...:......undim(|
00000b40  f8 20 70 74 72 25 29 0d  05 96 1b c8 99 20 22 58  |. ptr%)...... "X|
00000b50  4f 53 5f 4d 6f 64 75 6c  65 22 2c 37 2c 2c 70 74  |OS_Module",7,,pt|
00000b60  72 25 0d 05 a0 0a 70 74  72 25 3d 30 0d 05 aa 05  |r%....ptr%=0....|
00000b70  e1 0d 05 b4 05 3a 0d 05  be 0f f4 2d 2d 2d 2d 2d  |.....:.....-----|
00000b80  2d 2d 2d 2d 2d 0d 05 c8  0f f4 2e 20 4d 45 53 53  |-----...... MESS|
00000b90  41 47 45 53 0d 05 d2 0f  f4 2d 2d 2d 2d 2d 2d 2d  |AGES.....-------|
00000ba0  2d 2d 2d 0d 05 dc 05 3a  0d 05 e6 11 dd f2 72 65  |---....:......re|
00000bb0  63 65 69 76 65 28 71 25  29 0d 05 f0 10 73 65 6e  |ceive(q%)....sen|
00000bc0  64 65 72 25 3d 71 25 21  34 0d 05 fa 0e c8 8e 20  |der%=q%!4...... |
00000bd0  71 25 21 31 36 20 ca 0d  06 04 12 20 f4 20 61 63  |q%!16 ..... . ac|
00000be0  74 69 6f 6e 20 63 6f 64  65 0d 06 0e 10 20 c9 20  |tion code.... . |
00000bf0  30 3a 71 75 69 74 25 3d  b9 0d 06 18 16 20 c9 20  |0:quit%=..... . |
00000c00  32 3a f2 64 61 74 61 73  61 76 65 28 71 25 29 0d  |2:.datasave(q%).|
00000c10  06 22 16 20 c9 20 33 3a  f2 64 61 74 61 6c 6f 61  |.". . 3:.dataloa|
00000c20  64 28 71 25 29 0d 06 2c  05 cb 0d 06 36 05 e1 0d  |d(q%)..,....6...|
00000c30  06 40 05 3a 0d 06 4a 13  f4 2d 2d 2d 2d 2d 2d 2d  |.@.:..J..-------|
00000c40  2d 2d 2d 2d 2d 2d 2d 0d  06 54 13 f4 2e 20 44 41  |-------..T... DA|
00000c50  54 41 20 54 4f 20 54 45  58 54 0d 06 5e 13 f4 2d  |TA TO TEXT..^..-|
00000c60  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0d 06 68  |-------------..h|
00000c70  05 3a 0d 06 72 1c dd f2  72 65 61 64 64 61 74 61  |.:..r...readdata|
00000c80  66 69 6c 65 28 6c 6f 61  64 66 73 70 24 29 0d 06  |file(loadfsp$)..|
00000c90  7c 34 f4 20 63 6c 69 63  6b 20 6f 6e 20 53 61 76  ||4. click on Sav|
00000ca0  65 20 2d 20 67 65 74 20  64 61 74 61 20 66 72 6f  |e - get data fro|
00000cb0  6d 20 66 69 6c 65 20 69  6e 74 6f 20 61 72 72 61  |m file into arra|
00000cc0  79 73 0d 06 86 1b ea 20  4a 25 2c 4b 25 2c 4c 25  |ys..... J%,K%,L%|
00000cd0  2c 73 24 2c 70 25 2c 69  74 65 6d 73 25 0d 06 90  |,s$,p%,items%...|
00000ce0  12 46 25 3d ad 28 6c 6f  61 64 66 73 70 24 29 0d  |.F%=.(loadfsp$).|
00000cf0  06 9a 05 3a 0d 06 a4 0f  6d 65 6e 75 73 25 3d 9a  |...:....menus%=.|
00000d00  23 46 25 0d 06 ae 05 3a  0d 06 b8 16 e3 20 4a 25  |#F%....:..... J%|
00000d10  3d 31 20 b8 20 6d 61 78  6d 65 6e 75 73 25 0d 06  |=1 . maxmenus%..|
00000d20  c2 12 20 4c 6f 67 25 28  4a 25 29 3d 9a 23 46 25  |.. Log%(J%)=.#F%|
00000d30  0d 06 cc 05 ed 0d 06 d6  05 3a 0d 06 e0 0b cf 23  |.........:.....#|
00000d40  46 25 3d 31 36 0d 06 ea  0e e3 20 4a 25 3d 31 20  |F%=16..... J%=1 |
00000d50  b8 20 35 0d 06 f4 15 20  43 6f 6c 6f 75 72 25 28  |. 5.... Colour%(|
00000d60  4a 25 29 3d 9a 23 46 25  0d 06 fe 05 ed 0d 07 08  |J%)=.#F%........|
00000d70  05 3a 0d 07 12 09 70 25  3d 34 38 0d 07 1c 16 e3  |.:....p%=48.....|
00000d80  20 4a 25 3d 31 20 b8 20  6d 61 78 6d 65 6e 75 73  | J%=1 . maxmenus|
00000d90  25 0d 07 26 0c 20 cf 23  46 25 3d 70 25 0d 07 30  |%..&. .#F%=p%..0|
00000da0  0c 20 73 24 3d be 23 46  25 0d 07 3a 15 20 4d 65  |. s$=.#F%..:. Me|
00000db0  6e 75 4e 61 6d 65 24 28  4a 25 29 3d 73 24 0d 07  |nuName$(J%)=s$..|
00000dc0  44 0b 20 70 25 2b 3d 31  36 0d 07 4e 05 ed 0d 07  |D. p%+=16..N....|
00000dd0  58 05 3a 0d 07 62 16 e3  20 4a 25 3d 31 20 b8 20  |X.:..b.. J%=1 . |
00000de0  6d 61 78 6d 65 6e 75 73  25 0d 07 6c 1e 20 70 25  |maxmenus%..l. p%|
00000df0  3d 69 6e 66 6f 6c 65 6e  25 2b 28 28 4a 25 2d 31  |=infolen%+((J%-1|
00000e00  29 2a 31 36 29 2b 34 0d  07 76 0c 20 cf 23 46 25  |)*16)+4..v. .#F%|
00000e10  3d 70 25 0d 07 80 0d 20  62 31 25 3d 9a 23 46 25  |=p%.... b1%=.#F%|
00000e20  0d 07 8a 0d 20 62 32 25  3d 9a 23 46 25 0d 07 94  |.... b2%=.#F%...|
00000e30  1f 20 4d 65 6e 75 49 74  65 6d 73 25 28 4a 25 29  |. MenuItems%(J%)|
00000e40  3d 62 31 25 2a 32 35 36  2b 62 32 25 0d 07 9e 05  |=b1%*256+b2%....|
00000e50  ed 0d 07 a8 05 3a 0d 07  b2 16 e3 20 4a 25 3d 31  |.....:..... J%=1|
00000e60  20 b8 20 6d 61 78 6d 65  6e 75 73 25 0d 07 bc 1a  | . maxmenus%....|
00000e70  20 69 74 65 6d 73 25 3d  4d 65 6e 75 49 74 65 6d  | items%=MenuItem|
00000e80  73 25 28 4a 25 29 0d 07  c6 11 20 e7 20 69 74 65  |s%(J%).... . ite|
00000e90  6d 73 25 3e 30 20 8c 0d  07 d0 15 20 20 e3 20 4b  |ms%>0 .....  . K|
00000ea0  25 3d 31 20 b8 20 69 74  65 6d 73 25 0d 07 da 19  |%=1 . items%....|
00000eb0  20 20 20 73 24 3d a4 67  65 74 70 61 74 68 28 4a  |   s$=.getpath(J|
00000ec0  25 2c 4b 25 29 0d 07 e4  16 20 20 20 50 61 74 68  |%,K%)....   Path|
00000ed0  24 28 4a 25 2c 4b 25 29  3d 73 24 0d 07 ee 07 20  |$(J%,K%)=s$.... |
00000ee0  20 ed 0d 07 f8 06 20 cd  0d 08 02 05 ed 0d 08 0c  | ..... .........|
00000ef0  0d d9 23 46 25 3a 46 25  3d 30 0d 08 16 05 e1 0d  |..#F%:F%=0......|
00000f00  08 20 05 3a 0d 08 2a 1a  dd a4 67 65 74 70 61 74  |. .:..*...getpat|
00000f10  68 28 6d 65 6e 75 25 2c  69 74 65 6d 25 29 0d 08  |h(menu%,item%)..|
00000f20  34 1f ea 20 70 25 2c 70  31 25 2c 70 32 25 2c 6f  |4.. p%,p1%,p2%,o|
00000f30  66 66 25 2c 74 61 62 6c  65 25 2c 73 24 0d 08 3e  |ff%,table%,s$..>|
00000f40  14 74 61 62 6c 65 25 3d  6d 65 6e 75 25 2a 32 2d  |.table%=menu%*2-|
00000f50  31 0d 08 48 19 70 31 25  3d a4 67 65 74 73 74 61  |1..H.p1%=.getsta|
00000f60  72 74 28 74 61 62 6c 65  25 29 0d 08 52 1b 70 32  |rt(table%)..R.p2|
00000f70  25 3d a4 67 65 74 73 74  61 72 74 28 74 61 62 6c  |%=.getstart(tabl|
00000f80  65 25 2b 31 29 0d 08 5c  16 70 25 3d 70 31 25 2b  |e%+1)..\.p%=p1%+|
00000f90  28 69 74 65 6d 25 2d 31  29 2a 34 0d 08 66 0b cf  |(item%-1)*4..f..|
00000fa0  23 46 25 3d 70 25 0d 08  70 15 62 31 25 3d 9a 23  |#F%=p%..p.b1%=.#|
00000fb0  46 25 3a 62 32 25 3d 9a  23 46 25 0d 08 7a 15 62  |F%:b2%=.#F%..z.b|
00000fc0  33 25 3d 9a 23 46 25 3a  62 34 25 3d 9a 23 46 25  |3%=.#F%:b4%=.#F%|
00000fd0  0d 08 84 29 6f 66 66 25  3d 28 62 34 25 3c 3c 32  |...)off%=(b4%<<2|
00000fe0  34 29 2b 28 62 33 25 3c  3c 31 36 29 2b 28 62 32  |4)+(b3%<<16)+(b2|
00000ff0  25 3c 3c 38 29 2b 62 31  25 0d 08 8e 11 cf 23 46  |%<<8)+b1%.....#F|
00001000  25 3d 70 32 25 2b 6f 66  66 25 0d 08 98 0b 73 24  |%=p2%+off%....s$|
00001010  3d be 23 46 25 0d 08 a2  07 3d 73 24 0d 08 ac 05  |=.#F%....=s$....|
00001020  3a 0d 08 b6 16 dd a4 67  65 74 73 74 61 72 74 28  |:......getstart(|
00001030  74 61 62 6c 65 25 29 0d  08 c0 0b ea 20 70 25 2c  |table%)..... p%,|
00001040  73 25 0d 08 ca 20 70 25  3d 69 6e 66 6f 6c 65 6e  |s%... p%=infolen|
00001050  25 2b 28 28 74 61 62 6c  65 25 2d 31 29 2a 38 29  |%+((table%-1)*8)|
00001060  2b 32 0d 08 d4 0b cf 23  46 25 3d 70 25 0d 08 de  |+2.....#F%=p%...|
00001070  15 62 31 25 3d 9a 23 46  25 3a 62 32 25 3d 9a 23  |.b1%=.#F%:b2%=.#|
00001080  46 25 0d 08 e8 2a 73 25  3d 28 62 31 25 2a 32 35  |F%...*s%=(b1%*25|
00001090  36 2b 62 32 25 29 2b 28  69 6e 66 6f 6c 65 6e 25  |6+b2%)+(infolen%|
000010a0  2b 6f 66 66 73 65 74 6c  65 6e 25 29 0d 08 f2 07  |+offsetlen%)....|
000010b0  3d 73 25 0d 08 fc 05 3a  0d 09 06 18 dd f2 6d 61  |=s%....:......ma|
000010c0  6b 65 74 65 78 74 66 69  6c 65 28 66 73 70 24 29  |ketextfile(fsp$)|
000010d0  0d 09 10 21 ea 20 4a 25  2c 4b 25 2c 4c 25 2c 74  |...!. J%,K%,L%,t|
000010e0  25 2c 69 74 65 6d 73 25  2c 73 24 2c 6c 24 2c 6f  |%,items%,s$,l$,o|
000010f0  25 0d 09 1a 0e 46 25 3d  ae 28 66 73 70 24 29 0d  |%....F%=.(fsp$).|
00001100  09 24 15 6c 65 61 66 24  3d a4 6c 65 61 66 28 66  |.$.leaf$=.leaf(f|
00001110  73 70 24 29 0d 09 2e 2d  d5 23 46 25 2c 22 4d 65  |sp$)...-.#F%,"Me|
00001120  6e 75 42 61 72 32 20 27  22 2b 6c 65 61 66 24 2b  |nuBar2 '"+leaf$+|
00001130  22 27 20 61 74 20 22 2b  a4 72 65 61 6c 74 69 6d  |"' at "+.realtim|
00001140  65 0d 09 38 0b d5 23 46  25 2c 22 22 0d 09 42 09  |e..8..#F%,""..B.|
00001150  73 24 3d 22 22 0d 09 4c  0e e3 20 4a 25 3d 31 20  |s$=""..L.. J%=1 |
00001160  b8 20 35 0d 09 56 1b 20  73 24 2b 3d c3 28 43 6f  |. 5..V. s$+=.(Co|
00001170  6c 6f 75 72 25 28 4a 25  29 29 2b 22 2c 22 0d 09  |lour%(J%))+","..|
00001180  60 05 ed 0d 09 6a 15 73  24 3d c0 73 24 2c a9 73  |`....j.s$=.s$,.s|
00001190  24 2d 31 29 2b 22 2e 22  0d 09 74 34 d5 23 46 25  |$-1)+"."..t4.#F%|
000011a0  2c c3 6d 65 6e 75 73 25  2b 22 20 6d 65 6e 75 73  |,.menus%+" menus|
000011b0  20 64 65 66 69 6e 65 64  2e 20 20 43 6f 6c 6f 75  | defined.  Colou|
000011c0  72 73 20 61 72 65 3a 20  22 2b 73 24 0d 09 7e 05  |rs are: "+s$..~.|
000011d0  3a 0d 09 88 13 e3 20 4a  25 3d 31 20 b8 20 6d 65  |:..... J%=1 . me|
000011e0  6e 75 73 25 0d 09 92 10  20 4c 25 3d 4c 6f 67 25  |nus%.... L%=Log%|
000011f0  28 4a 25 29 0d 09 9c 1a  20 69 74 65 6d 73 25 3d  |(J%).... items%=|
00001200  4d 65 6e 75 49 74 65 6d  73 25 28 4c 25 29 0d 09  |MenuItems%(L%)..|
00001210  a6 0c 20 d5 23 46 25 2c  22 22 0d 09 b0 10 20 73  |.. .#F%,"".... s|
00001220  24 3d c3 4a 25 2b 22 2e  20 22 0d 09 ba 23 20 73  |$=.J%+". "...# s|
00001230  24 2b 3d 4d 65 6e 75 4e  61 6d 65 24 28 4c 25 29  |$+=MenuName$(L%)|
00001240  3a 6c 24 3d c4 a9 73 24  2c 22 2d 22 29 0d 09 c4  |:l$=..s$,"-")...|
00001250  0c 20 d5 23 46 25 2c 73  24 0d 09 ce 0c 20 d5 23  |. .#F%,s$.... .#|
00001260  46 25 2c 6c 24 0d 09 d8  11 20 e7 20 69 74 65 6d  |F%,l$.... . item|
00001270  73 25 3e 30 20 8c 0d 09  e2 15 20 20 e3 20 4b 25  |s%>0 .....  . K%|
00001280  3d 31 20 b8 20 69 74 65  6d 73 25 0d 09 ec 1a 20  |=1 . items%.... |
00001290  20 20 73 24 3d c2 22 20  22 2b c3 4b 25 2c 32 29  |  s$=." "+.K%,2)|
000012a0  2b 22 2e 20 22 0d 09 f6  1b 20 20 20 d5 23 46 25  |+". "....   .#F%|
000012b0  2c 73 24 2b 50 61 74 68  24 28 4c 25 2c 4b 25 29  |,s$+Path$(L%,K%)|
000012c0  0d 0a 00 07 20 20 ed 0d  0a 0a 06 20 cd 0d 0a 14  |....  ..... ....|
000012d0  05 ed 0d 0a 1e 1e ff 28  22 53 65 74 54 79 70 65  |.......("SetType|
000012e0  20 22 2b 66 73 70 24 2b  22 20 26 46 46 46 22 29  | "+fsp$+" &FFF")|
000012f0  0d 0a 28 0d d9 23 46 25  3a 46 25 3d 30 0d 0a 32  |..(..#F%:F%=0..2|
00001300  05 e1 0d 0a 3c 05 3a 0d  0a 46 13 f4 2d 2d 2d 2d  |....<.:..F..----|
00001310  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 0a 50 13 f4 2e  |----------..P...|
00001320  20 54 45 58 54 20 54 4f  20 44 41 54 41 0d 0a 5a  | TEXT TO DATA..Z|
00001330  13 f4 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |..--------------|
00001340  0d 0a 64 05 3a 0d 0a 6e  1c dd f2 72 65 61 64 74  |..d.:..n...readt|
00001350  65 78 74 66 69 6c 65 28  6c 6f 61 64 66 73 70 24  |extfile(loadfsp$|
00001360  29 0d 0a 78 13 f4 20 63  6c 69 63 6b 20 6f 6e 20  |)..x.. click on |
00001370  53 61 76 65 0d 0a 82 2c  ea 20 73 24 2c 63 24 2c  |Save...,. s$,c$,|
00001380  6e 24 2c 70 25 2c 6e 61  6d 65 24 2c 63 6f 6c 6f  |n$,p%,name$,colo|
00001390  75 72 24 2c 63 6f 75 6e  74 25 2c 6c 65 61 66 24  |ur$,count%,leaf$|
000013a0  0d 0a 8c 19 6c 65 61 66  24 3d a4 6c 65 61 66 28  |....leaf$=.leaf(|
000013b0  6c 6f 61 64 66 73 70 24  29 0d 0a 96 12 46 25 3d  |loadfsp$)....F%=|
000013c0  ad 28 6c 6f 61 64 66 73  70 24 29 0d 0a a0 16 73  |.(loadfsp$)....s|
000013d0  24 3d a4 67 65 74 28 46  25 29 3a f4 20 6e 61 6d  |$=.get(F%):. nam|
000013e0  65 0d 0a aa 19 e7 20 c0  73 24 2c 38 29 3d 22 4d  |e..... .s$,8)="M|
000013f0  65 6e 75 42 61 72 32 22  20 8c 0d 0a b4 1d 20 73  |enuBar2" ..... s|
00001400  24 3d a4 67 65 74 28 46  25 29 3a f4 20 62 6c 61  |$=.get(F%):. bla|
00001410  6e 6b 20 6c 69 6e 65 0d  0a be 12 20 f4 20 67 65  |nk line.... . ge|
00001420  74 20 63 6f 6c 6f 75 72  73 0d 0a c8 10 20 73 24  |t colours.... s$|
00001430  3d a4 67 65 74 28 46 25  29 0d 0a d2 10 20 70 25  |=.get(F%).... p%|
00001440  3d a7 73 24 2c 22 3a 22  29 0d 0a dc 13 20 73 24  |=.s$,":").... s$|
00001450  3d c2 73 24 2c a9 73 24  2d 70 25 29 0d 0a e6 18  |=.s$,.s$-p%)....|
00001460  20 63 6f 6c 6f 75 72 24  3d 22 22 3a 63 6f 75 6e  | colour$="":coun|
00001470  74 25 3d 31 0d 0a f0 11  20 e3 20 4a 25 3d 31 20  |t%=1.... . J%=1 |
00001480  b8 20 a9 73 24 0d 0a fa  12 20 20 63 24 3d c1 73  |. .s$....  c$=.s|
00001490  24 2c 4a 25 2c 31 29 0d  0b 04 1d 20 20 e7 20 63  |$,J%,1)....  . c|
000014a0  24 3c 3e 22 2c 22 20 8c  20 63 6f 6c 6f 75 72 24  |$<>"," . colour$|
000014b0  2b 3d 63 24 0d 0b 0e 1b  20 20 e7 20 63 24 3d 22  |+=c$....  . c$="|
000014c0  2c 22 20 84 20 4a 25 3d  a9 28 73 24 29 20 8c 0d  |," . J%=.(s$) ..|
000014d0  0b 18 34 20 20 20 43 6f  6c 6f 75 72 25 28 63 6f  |..4   Colour%(co|
000014e0  75 6e 74 25 29 3d bb 63  6f 6c 6f 75 72 24 3a 63  |unt%)=.colour$:c|
000014f0  6f 6c 6f 75 72 24 3d 22  22 3a 63 6f 75 6e 74 25  |olour$="":count%|
00001500  2b 3d 31 0d 0b 22 07 20  20 cd 0d 0b 2c 06 20 ed  |+=1..".  ...,. .|
00001510  0d 0b 36 05 cc 0d 0b 40  17 20 f4 20 4d 65 6e 75  |..6....@. . Menu|
00001520  42 61 72 31 20 63 6f 6c  6f 75 72 73 0d 0b 4a 11  |Bar1 colours..J.|
00001530  20 43 6f 6c 6f 75 72 25  28 31 29 3d 30 0d 0b 54  | Colour%(1)=0..T|
00001540  11 20 43 6f 6c 6f 75 72  25 28 32 29 3d 30 0d 0b  |. Colour%(2)=0..|
00001550  5e 11 20 43 6f 6c 6f 75  72 25 28 33 29 3d 30 0d  |^. Colour%(3)=0.|
00001560  0b 68 12 20 43 6f 6c 6f  75 72 25 28 34 29 3d 31  |.h. Colour%(4)=1|
00001570  31 0d 0b 72 11 20 43 6f  6c 6f 75 72 25 28 35 29  |1..r. Colour%(5)|
00001580  3d 31 0d 0b 7c 05 cd 0d  0b 86 05 3a 0d 0b 90 1e  |=1..|......:....|
00001590  6d 25 3d 30 3a 69 25 3d  30 3a 63 25 3d 30 3a 73  |m%=0:i%=0:c%=0:s|
000015a0  24 3d 22 22 3a 64 24 3d  22 22 0d 0b 9a 05 3a 0d  |$="":d$=""....:.|
000015b0  0b a4 05 f5 0d 0b ae 0c  20 72 65 6d 24 3d 73 24  |........ rem$=s$|
000015c0  0d 0b b8 10 20 73 24 3d  a4 67 65 74 28 46 25 29  |.... s$=.get(F%)|
000015d0  0d 0b c2 0e 20 64 24 3d  c0 73 24 2c 31 29 0d 0b  |.... d$=.s$,1)..|
000015e0  cc 06 20 3a 0d 0b d6 0f  20 e7 20 64 24 3d 22 2d  |.. :.... . d$="-|
000015f0  22 20 8c 0d 0b e0 1d 20  20 4d 65 6e 75 49 74 65  |" .....  MenuIte|
00001600  6d 73 25 28 63 25 29 3d  69 25 3a 63 25 2b 3d 31  |ms%(c%)=i%:c%+=1|
00001610  0d 0b ea 10 20 20 6d 25  2b 3d 31 3a 69 25 3d 30  |....  m%+=1:i%=0|
00001620  0d 0b f4 14 20 20 f4 20  73 74 72 69 70 20 6e 75  |....  . strip nu|
00001630  6d 62 65 72 0d 0b fe 28  20 20 6e 24 3d 72 65 6d  |mber...(  n$=rem|
00001640  24 3a 70 25 3d a7 6e 24  2c 22 20 22 29 3a 6e 24  |$:p%=.n$," "):n$|
00001650  3d c2 6e 24 2c a9 6e 24  2d 70 25 29 0d 0c 08 16  |=.n$,.n$-p%)....|
00001660  20 20 4d 65 6e 75 4e 61  6d 65 24 28 6d 25 29 3d  |  MenuName$(m%)=|
00001670  6e 24 0d 0c 12 06 20 cc  0d 0c 1c 27 20 20 e7 20  |n$.... ....'  . |
00001680  73 24 3c 3e 22 22 20 80  20 73 24 3c 3e 72 65 6d  |s$<>"" . s$<>rem|
00001690  24 20 80 20 73 24 3c 3e  22 45 4f 46 22 20 8c 0d  |$ . s$<>"EOF" ..|
000016a0  0c 26 18 20 20 20 f4 20  67 65 74 20 4e 45 58 54  |.&.   . get NEXT|
000016b0  20 73 74 72 69 6e 67 0d  0c 30 22 20 20 20 70 25  | string..0"   p%|
000016c0  3d 8f 23 46 25 3a 6e 24  3d a4 67 65 74 28 46 25  |=.#F%:n$=.get(F%|
000016d0  29 3a cf 23 46 25 3d 70  25 0d 0c 3a 16 20 20 20  |):.#F%=p%..:.   |
000016e0  e7 20 c0 6e 24 2c 31 29  3c 3e 22 2d 22 20 8c 0d  |. .n$,1)<>"-" ..|
000016f0  0c 44 0d 20 20 20 20 69  25 2b 3d 31 0d 0c 4e 24  |.D.    i%+=1..N$|
00001700  20 20 20 20 73 24 3d c2  73 24 2c a9 73 24 2d 34  |    s$=.s$,.s$-4|
00001710  29 3a f4 20 73 74 72 69  70 20 6e 75 6d 62 65 72  |):. strip number|
00001720  0d 0c 58 17 20 20 20 20  50 61 74 68 24 28 6d 25  |..X.    Path$(m%|
00001730  2c 69 25 29 3d 73 24 0d  0c 62 08 20 20 20 cd 0d  |,i%)=s$..b.   ..|
00001740  0c 6c 07 20 20 cd 0d 0c  76 07 20 cd 20 0d 0c 80  |.l.  ...v. . ...|
00001750  0e fd 20 73 24 3d 22 45  4f 46 22 0d 0c 8a 15 4d  |.. s$="EOF"....M|
00001760  65 6e 75 49 74 65 6d 73  25 28 63 25 29 3d 69 25  |enuItems%(c%)=i%|
00001770  0d 0c 94 05 3a 0d 0c 9e  0d 6d 65 6e 75 73 25 3d  |....:....menus%=|
00001780  6d 25 0d 0c a8 0d d9 23  46 25 3a 46 25 3d 30 0d  |m%.....#F%:F%=0.|
00001790  0c b2 05 e1 0d 0c bc 05  3a 0d 0c c6 0d dd a4 67  |........:......g|
000017a0  65 74 28 46 25 29 0d 0c  d0 08 ea 20 73 24 0d 0c  |et(F%)..... s$..|
000017b0  da 1f e7 20 c5 23 46 25  20 8c 20 73 24 3d 22 45  |... .#F% . s$="E|
000017c0  4f 46 22 20 8b 20 73 24  3d be 23 46 25 0d 0c e4  |OF" . s$=.#F%...|
000017d0  07 3d 73 24 0d 0c ee 05  3a 0d 0c f8 1c dd f2 6d  |.=s$....:......m|
000017e0  61 6b 65 64 61 74 61 66  69 6c 65 28 73 61 76 65  |akedatafile(save|
000017f0  66 73 70 24 29 0d 0d 02  0f ea 20 4a 25 2c 69 74  |fsp$)..... J%,it|
00001800  65 6d 73 25 0d 0d 0c 12  f4 20 66 6c 75 73 68 20  |ems%..... flush |
00001810  74 61 62 6c 65 73 0d 0d  16 14 e3 20 4a 25 3d 31  |tables..... J%=1|
00001820  20 b8 20 74 61 62 6c 65  73 25 0d 0d 20 14 20 f2  | . tables%.. . .|
00001830  66 6c 75 73 68 74 61 62  6c 65 28 4a 25 29 0d 0d  |flushtable(J%)..|
00001840  2a 05 ed 0d 0d 34 1d f4  20 61 64 64 20 70 61 74  |*....4.. add pat|
00001850  68 6e 61 6d 65 73 20 74  6f 20 74 61 62 6c 65 73  |hnames to tables|
00001860  0d 0d 3e 15 c8 99 20 22  48 6f 75 72 67 6c 61 73  |..>... "Hourglas|
00001870  73 5f 4f 6e 22 0d 0d 48  13 e3 20 4a 25 3d 31 20  |s_On"..H.. J%=1 |
00001880  b8 20 6d 65 6e 75 73 25  0d 0d 52 1a 20 69 74 65  |. menus%..R. ite|
00001890  6d 73 25 3d 4d 65 6e 75  49 74 65 6d 73 25 28 4a  |ms%=MenuItems%(J|
000018a0  25 29 0d 0d 5c 11 20 e7  20 69 74 65 6d 73 25 3e  |%)..\. . items%>|
000018b0  30 20 8c 0d 0d 66 1d 20  20 e3 20 4b 25 3d 31 20  |0 ...f.  . K%=1 |
000018c0  b8 20 4d 65 6e 75 49 74  65 6d 73 25 28 4a 25 29  |. MenuItems%(J%)|
000018d0  0d 0d 70 19 20 20 20 70  61 74 68 24 3d 50 61 74  |..p.   path$=Pat|
000018e0  68 24 28 4a 25 2c 4b 25  29 0d 0d 7a 08 20 20 20  |h$(J%,K%)..z.   |
000018f0  3a 0d 0d 84 18 20 20 20  f4 20 73 74 72 69 70 20  |:....   . strip |
00001900  48 44 34 20 6e 61 6d 65  3f 0d 0d 8e 17 20 20 20  |HD4 name?....   |
00001910  e7 20 a4 69 73 28 6d 61  69 6e 25 2c 34 29 20 8c  |. .is(main%,4) .|
00001920  0d 0d 98 19 20 20 20 20  68 64 34 24 3d a4 69 74  |....    hd4$=.it|
00001930  28 6d 61 69 6e 25 2c 35  29 0d 0d a2 12 20 20 20  |(main%,5)....   |
00001940  20 6c 65 6e 25 3d a9 68  64 34 24 0d 0d ac 19 20  | len%=.hd4$.... |
00001950  20 20 20 f4 20 64 6f 65  73 20 69 74 20 6d 61 74  |   . does it mat|
00001960  63 68 3f 20 0d 0d b6 26  20 20 20 20 e7 20 6c 65  |ch? ...&    . le|
00001970  6e 25 3e 30 20 80 20 c0  70 61 74 68 24 2c 6c 65  |n%>0 . .path$,le|
00001980  6e 25 29 3d 68 64 34 24  20 8c 0d 0d c0 22 20 20  |n%)=hd4$ ...."  |
00001990  20 20 20 70 61 74 68 24  3d c2 70 61 74 68 24 2c  |   path$=.path$,|
000019a0  a9 70 61 74 68 24 2d 6c  65 6e 25 29 0d 0d ca 09  |.path$-len%)....|
000019b0  20 20 20 20 cd 0d 0d d4  08 20 20 20 cd 0d 0d de  |    .....   ....|
000019c0  0a 20 20 20 3a 20 20 0d  0d e8 19 20 20 20 f2 61  |.   :  ....   .a|
000019d0  64 64 69 74 65 6d 28 70  61 74 68 24 2c 4a 25 29  |dditem(path$,J%)|
000019e0  0d 0d f2 07 20 20 ed 0d  0d fc 06 20 cd 0d 0e 06  |....  ..... ....|
000019f0  05 ed 0d 0e 10 17 f2 73  61 76 65 64 61 74 61 28  |.......savedata(|
00001a00  73 61 76 65 66 73 70 24  29 0d 0e 1a 18 c8 99 20  |savefsp$)...... |
00001a10  22 48 6f 75 72 67 6c 61  73 73 5f 53 6d 61 73 68  |"Hourglass_Smash|
00001a20  22 0d 0e 24 05 e1 0d 0e  2e 05 3a 0d 0e 38 19 dd  |"..$......:..8..|
00001a30  f2 61 64 64 69 74 65 6d  28 73 74 72 24 2c 6d 65  |.additem(str$,me|
00001a40  6e 75 25 29 0d 0e 42 1c  f4 20 70 75 74 20 70 61  |nu%)..B.. put pa|
00001a50  74 68 20 6e 61 6d 65 20  69 6e 20 74 61 62 6c 65  |th name in table|
00001a60  0d 0e 4c 2b 69 6e 74 74  61 62 25 3d a4 74 61 62  |..L+inttab%=.tab|
00001a70  6c 65 28 6d 65 6e 75 25  29 3a 73 74 72 74 61 62  |le(menu%):strtab|
00001a80  25 3d 69 6e 74 74 61 62  25 2b 31 0d 0e 56 1f 69  |%=inttab%+1..V.i|
00001a90  74 65 6d 73 25 3d a4 74  61 62 6c 65 69 74 65 6d  |tems%=.tableitem|
00001aa0  73 28 69 6e 74 74 61 62  25 29 0d 0e 60 1e 6f 66  |s(inttab%)..`.of|
00001ab0  66 73 65 74 25 3d a4 74  61 62 6c 65 6c 65 6e 28  |fset%=.tablelen(|
00001ac0  73 74 72 74 61 62 25 29  0d 0e 6a 29 f2 61 64 64  |strtab%)..j).add|
00001ad0  73 74 72 69 6e 67 28 73  74 72 24 2c 73 74 72 74  |string(str$,strt|
00001ae0  61 62 25 29 3a e7 20 ac  20 6f 6b 25 20 8c 20 e1  |ab%):. . ok% . .|
00001af0  20 0d 0e 74 33 f2 61 64  64 69 6e 74 65 67 65 72  | ..t3.addinteger|
00001b00  28 6f 66 66 73 65 74 25  2c 69 6e 74 74 61 62 25  |(offset%,inttab%|
00001b10  2c 69 74 65 6d 73 25 29  3a e7 20 ac 20 6f 6b 25  |,items%):. . ok%|
00001b20  20 8c 20 e1 0d 0e 7e 05  e1 0d 0e 88 05 3a 0d 0e  | . ...~......:..|
00001b30  92 14 dd f2 73 61 76 65  64 61 74 61 28 66 73 70  |....savedata(fsp|
00001b40  24 29 0d 0e 9c 15 ea 20  4a 25 2c 6f 25 2c 6c 65  |$)..... J%,o%,le|
00001b50  6e 25 2c 65 6e 64 25 0d  0e a6 0e 3f 44 25 3d 6d  |n%,end%....?D%=m|
00001b60  65 6e 75 73 25 0d 0e b0  1a f4 20 6c 6f 67 69 63  |enus%..... logic|
00001b70  61 6c 20 4d 65 6e 75 20  6e 75 6d 62 65 72 73 0d  |al Menu numbers.|
00001b80  0e ba 08 6f 25 3d 31 0d  0e c4 16 e3 20 4a 25 3d  |...o%=1..... J%=|
00001b90  31 20 b8 20 6d 61 78 6d  65 6e 75 73 25 0d 0e ce  |1 . maxmenus%...|
00001ba0  13 20 44 25 3f 6f 25 3d  4a 25 3a 6f 25 2b 3d 31  |. D%?o%=J%:o%+=1|
00001bb0  0d 0e d8 05 ed 0d 0e e2  2b e3 20 4a 25 3d 6d 61  |........+. J%=ma|
00001bc0  78 6d 65 6e 75 73 25 2b  31 20 b8 20 31 35 3a 44  |xmenus%+1 . 15:D|
00001bd0  25 3f 4a 25 3d 30 3a ed  3a f4 20 73 70 61 72 65  |%?J%=0:.:. spare|
00001be0  0d 0e ec 0d f4 20 63 6f  6c 6f 75 72 73 0d 0e f6  |..... colours...|
00001bf0  09 6f 25 3d 31 36 0d 0f  00 0e e3 20 4a 25 3d 31  |.o%=16..... J%=1|
00001c00  20 b8 20 35 0d 0f 0a 1c  20 44 25 3f 6f 25 3d 43  | . 5.... D%?o%=C|
00001c10  6f 6c 6f 75 72 25 28 4a  25 29 3a 6f 25 2b 3d 31  |olour%(J%):o%+=1|
00001c20  0d 0f 14 05 ed 0d 0f 1e  22 e3 20 4a 25 3d 32 31  |........". J%=21|
00001c30  20 b8 20 32 38 3a 44 25  3f 4a 25 3d 30 3a ed 3a  | . 28:D%?J%=0:.:|
00001c40  f4 20 73 70 61 72 65 0d  0f 28 1e 24 28 44 25 2b  |. spare..(.$(D%+|
00001c50  32 39 29 3d 22 4d 42 22  3a f4 20 69 64 65 6e 74  |29)="MB":. ident|
00001c60  69 66 69 65 72 0d 0f 32  10 f4 20 4d 65 6e 75 20  |ifier..2.. Menu |
00001c70  6e 61 6d 65 73 0d 0f 3c  09 6f 25 3d 34 38 0d 0f  |names..<.o%=48..|
00001c80  46 16 e3 20 4a 25 3d 31  20 b8 20 6d 61 78 6d 65  |F.. J%=1 . maxme|
00001c90  6e 75 73 25 0d 0f 50 22  20 24 28 44 25 2b 6f 25  |nus%..P" $(D%+o%|
00001ca0  29 3d 4d 65 6e 75 4e 61  6d 65 24 28 4a 25 29 3a  |)=MenuName$(J%):|
00001cb0  6f 25 2b 3d 31 36 0d 0f  5a 05 ed 0d 0f 64 1b 6c  |o%+=16..Z....d.l|
00001cc0  65 6e 25 3d 54 25 2d 44  25 3a 65 6e 64 25 3d 44  |en%=T%-D%:end%=D|
00001cd0  25 2b 6c 65 6e 25 0d 0f  6e 26 c8 99 20 22 4f 53  |%+len%..n&.. "OS|
00001ce0  5f 46 69 6c 65 22 2c 31  30 2c 66 73 70 24 2c 26  |_File",10,fsp$,&|
00001cf0  46 46 44 2c 2c 44 25 2c  65 6e 64 25 0d 0f 78 05  |FFD,,D%,end%..x.|
00001d00  e1 0d 0f 82 05 3a 0d 0f  8c 0b f4 2d 2d 2d 2d 2d  |.....:.....-----|
00001d10  2d 0d 0f 96 0b f4 2e 20  4c 4f 41 44 0d 0f a0 0b  |-...... LOAD....|
00001d20  f4 2d 2d 2d 2d 2d 2d 0d  0f aa 05 3a 0d 0f b4 12  |.------....:....|
00001d30  dd f2 64 61 74 61 6c 6f  61 64 28 71 25 29 0d 0f  |..dataload(q%)..|
00001d40  be 1c f4 20 6f 62 6a 65  63 74 20 64 72 61 67 67  |... object dragg|
00001d50  65 64 20 6f 6e 74 6f 20  75 73 0d 0f c8 16 ea 20  |ed onto us..... |
00001d60  4a 25 2c 77 68 25 3a 77  68 25 3d 6d 61 69 6e 25  |J%,wh%:wh%=main%|
00001d70  0d 0f d2 13 66 69 6c 65  74 79 70 65 25 3d 71 25  |....filetype%=q%|
00001d80  21 34 30 0d 0f dc 16 70  61 74 68 24 3d a4 6e 61  |!40....path$=.na|
00001d90  6d 65 28 71 25 2b 34 34  29 0d 0f e6 3d 71 25 21  |me(q%+44)...=q%!|
00001da0  31 32 3d 71 25 21 38 3a  71 25 21 31 36 3d 34 3a  |12=q%!8:q%!16=4:|
00001db0  c8 99 20 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |.. "Wimp_SendMes|
00001dc0  73 61 67 65 22 2c 31 37  2c 71 25 2c 71 25 21 34  |sage",17,q%,q%!4|
00001dd0  3a f4 20 41 63 6b 0d 0f  f0 16 6c 65 61 66 24 3d  |:. Ack....leaf$=|
00001de0  a4 6c 65 61 66 28 70 61  74 68 24 29 0d 0f fa 0e  |.leaf(path$)....|
00001df0  f2 6f 77 28 6d 61 69 6e  25 29 0d 10 04 22 e7 20  |.ow(main%)...". |
00001e00  a4 6f 6b 74 6f 6c 6f 61  64 28 70 61 74 68 24 2c  |.oktoload(path$,|
00001e10  66 69 6c 65 74 79 70 65  25 29 20 8c 0d 10 0e 14  |filetype%) .....|
00001e20  20 e7 20 74 65 78 74 74  6f 64 61 74 61 25 20 8c  | . texttodata% .|
00001e30  0d 10 18 17 20 20 73 24  3d 22 54 65 78 74 2d 74  |....  s$="Text-t|
00001e40  6f 2d 44 61 74 61 22 0d  10 22 15 20 20 73 70 72  |o-Data"..".  spr|
00001e50  24 3d 22 66 69 6c 65 5f  46 46 44 22 0d 10 2c 1b  |$="file_FFD"..,.|
00001e60  20 20 f4 20 61 63 74 69  76 65 20 73 74 72 69 70  |  . active strip|
00001e70  20 6f 70 74 69 6f 6e 0d  10 36 10 20 20 e3 20 4a  | option..6.  . J|
00001e80  25 3d 33 20 b8 20 35 0d  10 40 1f 20 20 20 f2 63  |%=3 . 5..@.   .c|
00001e90  6c 65 61 72 69 63 6f 6e  62 69 74 28 77 68 25 2c  |leariconbit(wh%,|
00001ea0  4a 25 2c 32 32 29 0d 10  4a 07 20 20 ed 0d 10 54  |J%,22)..J.  ...T|
00001eb0  06 20 cc 0d 10 5e 17 20  20 73 24 3d 22 44 61 74  |. ...^.  s$="Dat|
00001ec0  61 2d 74 6f 2d 54 65 78  74 22 0d 10 68 15 20 20  |a-to-Text"..h.  |
00001ed0  73 70 72 24 3d 22 66 69  6c 65 5f 46 46 46 22 0d  |spr$="file_FFF".|
00001ee0  10 72 17 20 20 f4 20 6e  6f 20 73 74 72 69 70 20  |.r.  . no strip |
00001ef0  6f 70 74 69 6f 6e 0d 10  7c 10 20 20 e3 20 4a 25  |option..|.  . J%|
00001f00  3d 33 20 b8 20 35 0d 10  86 1d 20 20 20 f2 73 65  |=3 . 5....   .se|
00001f10  74 69 63 6f 6e 62 69 74  28 77 68 25 2c 4a 25 2c  |ticonbit(wh%,J%,|
00001f20  32 32 29 0d 10 90 07 20  20 ed 0d 10 9a 06 20 cd  |22)....  ..... .|
00001f30  0d 10 a4 14 20 71 25 21  30 3d 77 68 25 3a 71 25  |.... q%!0=wh%:q%|
00001f40  21 34 3d 36 0d 10 ae 1f  20 c8 99 20 22 57 69 6d  |!4=6.... .. "Wim|
00001f50  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
00001f60  2c 71 25 0d 10 b8 33 20  6d 69 6e 78 25 3d 71 25  |,q%...3 minx%=q%|
00001f70  21 38 3a 6d 69 6e 79 25  3d 71 25 21 31 32 3a 6d  |!8:miny%=q%!12:m|
00001f80  61 78 78 25 3d 71 25 21  31 36 3a 6d 61 78 79 25  |axx%=q%!16:maxy%|
00001f90  3d 71 25 21 32 30 0d 10  c2 12 20 24 28 71 25 21  |=q%!20.... $(q%!|
00001fa0  32 38 29 3d 73 70 72 24  0d 10 cc 38 20 c8 99 20  |28)=spr$...8 .. |
00001fb0  22 57 69 6d 70 5f 46 6f  72 63 65 52 65 64 72 61  |"Wimp_ForceRedra|
00001fc0  77 22 2c 6d 61 69 6e 25  2c 6d 69 6e 78 25 2c 6d  |w",main%,minx%,m|
00001fd0  69 6e 79 25 2c 6d 61 78  78 25 2c 6d 61 78 79 25  |iny%,maxx%,maxy%|
00001fe0  0d 10 d6 13 20 f2 69 74  28 77 68 25 2c 31 30 2c  |.... .it(wh%,10,|
00001ff0  73 24 29 0d 10 e0 15 20  f2 69 74 28 77 68 25 2c  |s$).... .it(wh%,|
00002000  32 2c 70 61 74 68 24 29  0d 10 ea 23 20 f2 69 74  |2,path$)...# .it|
00002010  28 77 68 25 2c 37 2c 6c  65 61 66 24 29 3a f2 63  |(wh%,7,leaf$):.c|
00002020  61 72 65 74 28 77 68 25  2c 37 29 0d 10 f4 13 20  |aret(wh%,7).... |
00002030  6c 6f 61 64 66 73 70 24  3d 70 61 74 68 24 0d 10  |loadfsp$=path$..|
00002040  fe 05 cd 0d 11 08 05 e1  0d 11 12 05 3a 0d 11 1c  |............:...|
00002050  1f dd a4 6f 6b 74 6f 6c  6f 61 64 28 70 61 74 68  |...oktoload(path|
00002060  24 2c 66 69 6c 65 74 79  70 65 25 29 0d 11 26 24  |$,filetype%)..&$|
00002070  ea 20 61 25 2c 62 25 2c  73 24 2c 6e 61 6d 65 24  |. a%,b%,s$,name$|
00002080  2c 6c 65 61 66 24 2c 6f  6b 25 3a 6f 6b 25 3d a3  |,leaf$,ok%:ok%=.|
00002090  0d 11 30 29 61 25 3d a4  6f 62 6a 74 79 70 65 28  |..0)a%=.objtype(|
000020a0  70 61 74 68 24 29 3d 31  20 80 20 66 69 6c 65 74  |path$)=1 . filet|
000020b0  79 70 65 25 3d 26 46 46  46 0d 11 3a 29 62 25 3d  |ype%=&FFF..:)b%=|
000020c0  a4 6f 62 6a 74 79 70 65  28 70 61 74 68 24 29 3d  |.objtype(path$)=|
000020d0  31 20 80 20 66 69 6c 65  74 79 70 65 25 3d 26 46  |1 . filetype%=&F|
000020e0  46 44 0d 11 44 16 6c 65  61 66 24 3d a4 6c 65 61  |FD..D.leaf$=.lea|
000020f0  66 28 70 61 74 68 24 29  0d 11 4e 05 3a 0d 11 58  |f(path$)..N.:..X|
00002100  0f e7 20 61 25 20 84 20  62 25 20 8c 0d 11 62 0b  |.. a% . b% ...b.|
00002110  20 e7 20 61 25 20 8c 0d  11 6c 1a 20 20 f4 20 69  | . a% ...l.  . i|
00002120  73 20 69 74 20 6f 6e 65  20 6f 66 20 6f 75 72 73  |s it one of ours|
00002130  3f 0d 11 76 11 20 20 46  25 3d ad 28 70 61 74 68  |?..v.  F%=.(path|
00002140  24 29 0d 11 80 1a 20 20  73 24 3d be 23 46 25 3a  |$)....  s$=.#F%:|
00002150  6e 61 6d 65 24 3d c0 73  24 2c 38 29 0d 11 8a 0f  |name$=.s$,8)....|
00002160  20 20 d9 23 46 25 3a 46  25 3d 30 0d 11 94 2f 20  |  .#F%:F%=0.../ |
00002170  20 e7 20 6e 61 6d 65 24  3c 3e 22 4d 65 6e 75 42  | . name$<>"MenuB|
00002180  61 72 32 22 20 80 20 6c  65 61 66 24 3c 3e 22 4d  |ar2" . leaf$<>"M|
00002190  65 6e 75 44 61 74 61 22  20 8c 0d 11 9e 2f 20 20  |enuData" ..../  |
000021a0  20 61 6e 73 25 3d a4 72  65 70 6f 72 74 28 22 4d  | ans%=.report("M|
000021b0  75 73 74 20 62 65 20 61  20 4d 65 6e 75 42 61 72  |ust be a MenuBar|
000021c0  20 66 69 6c 65 22 2c 31  29 0d 11 a8 07 20 20 cc  | file",1)....  .|
000021d0  0d 11 b2 1a 20 20 20 74  65 78 74 74 6f 64 61 74  |....   texttodat|
000021e0  61 25 3d b9 3a 6f 6b 25  3d b9 0d 11 bc 07 20 20  |a%=.:ok%=.....  |
000021f0  cd 0d 11 c6 06 20 cd 0d  11 d0 06 20 3a 0d 11 da  |..... ..... :...|
00002200  0b 20 e7 20 62 25 20 8c  0d 11 e4 1a 20 20 f4 20  |. . b% .....  . |
00002210  69 73 20 69 74 20 6f 6e  65 20 6f 66 20 6f 75 72  |is it one of our|
00002220  73 3f 0d 11 ee 11 20 20  46 25 3d ad 28 70 61 74  |s?....  F%=.(pat|
00002230  68 24 29 0d 11 f8 0d 20  20 cf 23 46 25 3d 32 39  |h$)....  .#F%=29|
00002240  0d 12 02 10 20 20 6e 61  6d 65 24 3d be 23 46 25  |....  name$=.#F%|
00002250  0d 12 0c 0f 20 20 d9 23  46 25 3a 46 25 3d 30 0d  |....  .#F%:F%=0.|
00002260  12 16 29 20 20 e7 20 6e  61 6d 65 24 3c 3e 22 4d  |..)  . name$<>"M|
00002270  42 22 20 80 20 6c 65 61  66 24 3c 3e 22 4d 65 6e  |B" . leaf$<>"Men|
00002280  75 44 61 74 61 22 20 8c  0d 12 20 2f 20 20 20 61  |uData" ... /   a|
00002290  6e 73 25 3d a4 72 65 70  6f 72 74 28 22 4d 75 73  |ns%=.report("Mus|
000022a0  74 20 62 65 20 61 20 4d  65 6e 75 42 61 72 20 66  |t be a MenuBar f|
000022b0  69 6c 65 22 2c 31 29 0d  12 2a 07 20 20 cc 0d 12  |ile",1)..*.  ...|
000022c0  34 1a 20 20 20 74 65 78  74 74 6f 64 61 74 61 25  |4.   texttodata%|
000022d0  3d a3 3a 6f 6b 25 3d b9  0d 12 3e 07 20 20 cd 0d  |=.:ok%=...>.  ..|
000022e0  12 48 06 20 cd 0d 12 52  05 cc 0d 12 5c 39 20 61  |.H. ...R....\9 a|
000022f0  6e 73 25 3d a4 72 65 70  6f 72 74 28 22 4d 75 73  |ns%=.report("Mus|
00002300  74 20 62 65 20 61 20 74  65 78 74 20 66 69 6c 65  |t be a text file|
00002310  20 6f 72 20 61 20 64 61  74 61 20 66 69 6c 65 22  | or a data file"|
00002320  2c 31 29 0d 12 66 05 cd  0d 12 70 08 3d 6f 6b 25  |,1)..f....p.=ok%|
00002330  0d 12 7a 05 3a 0d 12 84  0d f4 2d 2d 2d 2d 2d 2d  |..z.:.....------|
00002340  2d 2d 0d 12 8e 0d f4 2e  20 54 41 42 4c 45 53 0d  |--...... TABLES.|
00002350  12 98 0d f4 2d 2d 2d 2d  2d 2d 2d 2d 0d 12 a2 05  |....--------....|
00002360  3a 0d 12 ac 12 dd a4 74  61 62 6c 65 28 6d 65 6e  |:......table(men|
00002370  75 25 29 0d 12 b6 13 f4  20 69 6e 74 65 67 65 72  |u%)..... integer|
00002380  20 74 61 62 6c 65 0d 12  c0 0e 3d 6d 65 6e 75 25  | table....=menu%|
00002390  2a 32 2d 31 0d 12 ca 05  3a 0d 12 d4 16 dd f2 61  |*2-1....:......a|
000023a0  64 64 73 74 72 69 6e 67  28 73 24 2c 74 25 29 0d  |ddstring(s$,t%).|
000023b0  12 de 1f f4 20 61 64 64  20 73 74 72 69 6e 67 20  |.... add string |
000023c0  73 24 20 74 6f 20 74 61  62 6c 65 20 74 25 0d 12  |s$ to table t%..|
000023d0  e8 21 ea 20 4a 25 2c 6c  65 6e 25 2c 66 72 6f 6d  |.!. J%,len%,from|
000023e0  25 2c 74 6f 25 2c 62 79  74 65 73 25 2c 6e 25 0d  |%,to%,bytes%,n%.|
000023f0  12 f2 0e 6c 65 6e 25 3d  a9 73 24 2b 31 0d 12 fc  |...len%=.s$+1...|
00002400  24 66 72 6f 6d 25 3d a4  74 61 62 6c 65 61 64 28  |$from%=.tablead(|
00002410  74 25 29 2b a4 74 61 62  6c 65 6c 65 6e 28 74 25  |t%)+.tablelen(t%|
00002420  29 0d 13 06 13 62 79 74  65 73 25 3d 54 25 2d 66  |)....bytes%=T%-f|
00002430  72 6f 6d 25 0d 13 10 12  74 6f 25 3d 66 72 6f 6d  |rom%....to%=from|
00002440  25 2b 6c 65 6e 25 0d 13  1a 19 6f 6b 25 3d a4 63  |%+len%....ok%=.c|
00002450  68 65 63 6b 73 70 61 63  65 28 6c 65 6e 25 29 0d  |heckspace(len%).|
00002460  13 24 0d e7 20 ac 20 6f  6b 25 20 8c 0d 13 2e 20  |.$.. . ok% .... |
00002470  20 6d 24 3d 22 4e 6f 20  72 6f 6f 6d 20 74 6f 20  | m$="No room to |
00002480  65 78 74 65 6e 64 20 64  61 74 61 22 0d 13 38 2d  |extend data"..8-|
00002490  20 61 6e 73 25 3d a4 72  65 70 6f 72 74 28 22 4e  | ans%=.report("N|
000024a0  6f 20 72 6f 6f 6d 20 74  6f 20 65 78 74 65 6e 64  |o room to extend|
000024b0  20 64 61 74 61 22 2c 32  29 0d 13 42 06 20 e1 0d  | data",2)..B. ..|
000024c0  13 4c 05 cd 0d 13 56 2d  e7 20 62 79 74 65 73 25  |.L....V-. bytes%|
000024d0  3e 30 20 8c 20 f2 6d 6f  76 65 62 79 74 65 73 28  |>0 . .movebytes(|
000024e0  66 72 6f 6d 25 2c 74 6f  25 2c 62 79 74 65 73 25  |from%,to%,bytes%|
000024f0  29 0d 13 60 0c 54 25 2b  3d 6c 65 6e 25 0d 13 6a  |)..`.T%+=len%..j|
00002500  0d 24 66 72 6f 6d 25 3d  73 24 0d 13 74 1b f4 20  |.$from%=s$..t.. |
00002510  69 6e 63 72 65 61 73 65  20 69 74 65 6d 73 2c 6c  |increase items,l|
00002520  65 6e 67 74 68 0d 13 7e  2b 6e 25 3d a4 74 61 62  |ength..~+n%=.tab|
00002530  6c 65 69 74 65 6d 73 28  74 25 29 3a f2 74 61 62  |leitems(t%):.tab|
00002540  6c 65 69 74 65 6d 73 28  74 25 2c 6e 25 2b 31 29  |leitems(t%,n%+1)|
00002550  0d 13 88 2a 6e 25 3d a4  74 61 62 6c 65 6c 65 6e  |...*n%=.tablelen|
00002560  28 74 25 29 3a f2 74 61  62 6c 65 6c 65 6e 28 74  |(t%):.tablelen(t|
00002570  25 2c 6e 25 2b 6c 65 6e  25 29 0d 13 92 16 f4 20  |%,n%+len%)..... |
00002580  69 6e 63 72 65 61 73 65  20 6f 66 66 73 65 74 73  |increase offsets|
00002590  0d 13 9c 12 e7 20 74 25  3c 74 61 62 6c 65 73 25  |..... t%<tables%|
000025a0  20 8c 0d 13 a6 18 20 e3  20 4a 25 3d 74 25 2b 31  | ..... . J%=t%+1|
000025b0  20 b8 20 74 61 62 6c 65  73 25 0d 13 b0 19 20 20  | . tables%....  |
000025c0  6e 25 3d a4 74 61 62 6c  65 6f 66 66 73 65 74 28  |n%=.tableoffset(|
000025d0  4a 25 29 0d 13 ba 1e 20  20 f2 74 61 62 6c 65 6f  |J%)....  .tableo|
000025e0  66 66 73 65 74 28 4a 25  2c 6e 25 2b 6c 65 6e 25  |ffset(J%,n%+len%|
000025f0  29 0d 13 c4 06 20 ed 0d  13 ce 05 cd 0d 13 d8 05  |).... ..........|
00002600  e1 0d 13 e2 05 3a 0d 13  ec 1a dd f2 61 64 64 69  |.....:......addi|
00002610  6e 74 65 67 65 72 28 69  25 2c 74 25 2c 70 25 29  |nteger(i%,t%,p%)|
00002620  0d 13 f6 2f f4 20 61 64  64 20 69 6e 74 65 67 65  |.../. add intege|
00002630  72 20 69 25 20 74 6f 20  74 61 62 6c 65 20 74 25  |r i% to table t%|
00002640  20 61 74 20 70 6f 73 69  74 69 6f 6e 20 70 25 0d  | at position p%.|
00002650  14 00 21 ea 20 4a 25 2c  6c 65 6e 25 2c 66 72 6f  |..!. J%,len%,fro|
00002660  6d 25 2c 74 6f 25 2c 62  79 74 65 73 25 2c 6e 25  |m%,to%,bytes%,n%|
00002670  0d 14 0a 0a 6c 65 6e 25  3d 34 0d 14 14 20 66 72  |....len%=4... fr|
00002680  6f 6d 25 3d a4 74 61 62  6c 65 61 64 28 74 25 29  |om%=.tablead(t%)|
00002690  2b 28 70 25 2a 6c 65 6e  25 29 0d 14 1e 13 62 79  |+(p%*len%)....by|
000026a0  74 65 73 25 3d 54 25 2d  66 72 6f 6d 25 0d 14 28  |tes%=T%-from%..(|
000026b0  12 74 6f 25 3d 66 72 6f  6d 25 2b 6c 65 6e 25 0d  |.to%=from%+len%.|
000026c0  14 32 19 6f 6b 25 3d a4  63 68 65 63 6b 73 70 61  |.2.ok%=.checkspa|
000026d0  63 65 28 6c 65 6e 25 29  0d 14 3c 0d e7 20 ac 20  |ce(len%)..<.. . |
000026e0  6f 6b 25 20 8c 0d 14 46  2d 20 61 6e 73 25 3d a4  |ok% ...F- ans%=.|
000026f0  72 65 70 6f 72 74 28 22  4e 6f 20 72 6f 6f 6d 20  |report("No room |
00002700  74 6f 20 65 78 74 65 6e  64 20 64 61 74 61 22 2c  |to extend data",|
00002710  32 29 0d 14 50 06 20 e1  0d 14 5a 05 cd 0d 14 64  |2)..P. ...Z....d|
00002720  2d e7 20 62 79 74 65 73  25 3e 30 20 8c 20 f2 6d  |-. bytes%>0 . .m|
00002730  6f 76 65 62 79 74 65 73  28 66 72 6f 6d 25 2c 74  |ovebytes(from%,t|
00002740  6f 25 2c 62 79 74 65 73  25 29 0d 14 6e 0c 54 25  |o%,bytes%)..n.T%|
00002750  2b 3d 6c 65 6e 25 0d 14  78 0d 21 66 72 6f 6d 25  |+=len%..x.!from%|
00002760  3d 69 25 0d 14 82 1b f4  20 69 6e 63 72 65 61 73  |=i%..... increas|
00002770  65 20 69 74 65 6d 73 2c  6c 65 6e 67 74 68 0d 14  |e items,length..|
00002780  8c 2b 6e 25 3d a4 74 61  62 6c 65 69 74 65 6d 73  |.+n%=.tableitems|
00002790  28 74 25 29 3a f2 74 61  62 6c 65 69 74 65 6d 73  |(t%):.tableitems|
000027a0  28 74 25 2c 6e 25 2b 31  29 0d 14 96 2a 6e 25 3d  |(t%,n%+1)...*n%=|
000027b0  a4 74 61 62 6c 65 6c 65  6e 28 74 25 29 3a f2 74  |.tablelen(t%):.t|
000027c0  61 62 6c 65 6c 65 6e 28  74 25 2c 6e 25 2b 6c 65  |ablelen(t%,n%+le|
000027d0  6e 25 29 0d 14 a0 16 f4  20 69 6e 63 72 65 61 73  |n%)..... increas|
000027e0  65 20 6f 66 66 73 65 74  73 0d 14 aa 12 e7 20 74  |e offsets..... t|
000027f0  25 3c 74 61 62 6c 65 73  25 20 8c 0d 14 b4 18 20  |%<tables% ..... |
00002800  e3 20 4a 25 3d 74 25 2b  31 20 b8 20 74 61 62 6c  |. J%=t%+1 . tabl|
00002810  65 73 25 0d 14 be 19 20  20 6e 25 3d a4 74 61 62  |es%....  n%=.tab|
00002820  6c 65 6f 66 66 73 65 74  28 4a 25 29 0d 14 c8 1e  |leoffset(J%)....|
00002830  20 20 f2 74 61 62 6c 65  6f 66 66 73 65 74 28 4a  |  .tableoffset(J|
00002840  25 2c 6e 25 2b 6c 65 6e  25 29 0d 14 d2 06 20 ed  |%,n%+len%).... .|
00002850  0d 14 dc 05 cd 0d 14 e6  05 e1 0d 14 f0 05 3a 0d  |..............:.|
00002860  14 fa 14 dd f2 66 6c 75  73 68 74 61 62 6c 65 28  |.....flushtable(|
00002870  74 25 29 0d 15 04 21 ea  20 4a 25 2c 6c 65 6e 25  |t%)...!. J%,len%|
00002880  2c 74 6f 25 2c 66 72 6f  6d 25 2c 62 79 74 65 73  |,to%,from%,bytes|
00002890  25 2c 6e 25 0d 15 0e 16  6c 65 6e 25 3d a4 74 61  |%,n%....len%=.ta|
000028a0  62 6c 65 6c 65 6e 28 74  25 29 0d 15 18 14 74 6f  |blelen(t%)....to|
000028b0  25 3d a4 74 61 62 6c 65  61 64 28 74 25 29 0d 15  |%=.tablead(t%)..|
000028c0  22 12 66 72 6f 6d 25 3d  74 6f 25 2b 6c 65 6e 25  |".from%=to%+len%|
000028d0  0d 15 2c 13 62 79 74 65  73 25 3d 54 25 2d 66 72  |..,.bytes%=T%-fr|
000028e0  6f 6d 25 0d 15 36 2d e7  20 62 79 74 65 73 25 3e  |om%..6-. bytes%>|
000028f0  30 20 8c 20 f2 6d 6f 76  65 62 79 74 65 73 28 66  |0 . .movebytes(f|
00002900  72 6f 6d 25 2c 74 6f 25  2c 62 79 74 65 73 25 29  |rom%,to%,bytes%)|
00002910  0d 15 40 0c 54 25 2d 3d  6c 65 6e 25 0d 15 4a 22  |..@.T%-=len%..J"|
00002920  f4 20 73 65 74 20 69 74  65 6d 73 20 61 6e 64 20  |. set items and |
00002930  6c 65 6e 67 74 68 20 74  6f 20 7a 65 72 6f 0d 15  |length to zero..|
00002940  54 25 f2 74 61 62 6c 65  69 74 65 6d 73 28 74 25  |T%.tableitems(t%|
00002950  2c 30 29 3a f2 74 61 62  6c 65 6c 65 6e 28 74 25  |,0):.tablelen(t%|
00002960  2c 30 29 0d 15 5e 16 f4  20 64 65 63 72 65 61 73  |,0)..^.. decreas|
00002970  65 20 6f 66 66 73 65 74  73 0d 15 68 12 e7 20 74  |e offsets..h.. t|
00002980  25 3c 74 61 62 6c 65 73  25 20 8c 0d 15 72 18 20  |%<tables% ...r. |
00002990  e3 20 4a 25 3d 74 25 2b  31 20 b8 20 74 61 62 6c  |. J%=t%+1 . tabl|
000029a0  65 73 25 0d 15 7c 19 20  20 6e 25 3d a4 74 61 62  |es%..|.  n%=.tab|
000029b0  6c 65 6f 66 66 73 65 74  28 4a 25 29 0d 15 86 1e  |leoffset(J%)....|
000029c0  20 20 f2 74 61 62 6c 65  6f 66 66 73 65 74 28 4a  |  .tableoffset(J|
000029d0  25 2c 6e 25 2d 6c 65 6e  25 29 0d 15 90 06 20 ed  |%,n%-len%).... .|
000029e0  0d 15 9a 05 cd 0d 15 a4  05 e1 0d 15 ae 05 3a 0d  |..............:.|
000029f0  15 b8 21 dd f2 6d 6f 76  65 62 79 74 65 73 28 66  |..!..movebytes(f|
00002a00  72 6f 6d 25 2c 74 6f 25  2c 62 79 74 65 73 25 29  |rom%,to%,bytes%)|
00002a10  0d 15 c2 38 c8 99 20 22  57 69 6d 70 5f 54 72 61  |...8.. "Wimp_Tra|
00002a20  6e 73 66 65 72 42 6c 6f  63 6b 22 2c 74 61 73 6b  |nsferBlock",task|
00002a30  25 2c 66 72 6f 6d 25 2c  74 61 73 6b 25 2c 74 6f  |%,from%,task%,to|
00002a40  25 2c 62 79 74 65 73 25  0d 15 cc 05 e1 0d 15 d6  |%,bytes%........|
00002a50  05 3a 0d 15 e0 1a dd a4  62 62 28 61 25 29 3a 3d  |.:......bb(a%):=|
00002a60  3f 61 25 2a 32 35 36 2b  61 25 3f 31 0d 15 ea 28  |?a%*256+a%?1...(|
00002a70  f4 20 70 65 65 6b 20 74  77 6f 2d 62 79 74 65 20  |. peek two-byte |
00002a80  6e 75 6d 62 65 72 20 61  74 20 61 64 64 72 65 73  |number at addres|
00002a90  73 20 61 25 0d 15 f4 05  3a 0d 15 fe 29 dd a4 74  |s a%....:...)..t|
00002aa0  61 62 6c 65 6f 66 66 73  65 74 28 74 25 29 3a 3d  |ableoffset(t%):=|
00002ab0  a4 62 62 28 50 25 2b 28  74 25 2d 31 29 2a 38 2b  |.bb(P%+(t%-1)*8+|
00002ac0  32 29 0d 16 08 28 f4 20  72 65 74 75 72 6e 73 20  |2)...(. returns |
00002ad0  6f 66 66 73 65 74 20 66  72 6f 6d 20 53 25 20 6f  |offset from S% o|
00002ae0  66 20 74 61 62 6c 65 20  74 25 0d 16 12 05 3a 0d  |f table t%....:.|
00002af0  16 1c 28 dd a4 74 61 62  6c 65 69 74 65 6d 73 28  |..(..tableitems(|
00002b00  74 25 29 3a 3d a4 62 62  28 50 25 2b 28 74 25 2d  |t%):=.bb(P%+(t%-|
00002b10  31 29 2a 38 2b 34 29 0d  16 26 1f f4 20 72 65 74  |1)*8+4)..&.. ret|
00002b20  75 72 6e 73 20 69 74 65  6d 73 20 69 6e 20 74 61  |urns items in ta|
00002b30  62 6c 65 20 74 25 0d 16  30 05 3a 0d 16 3a 26 dd  |ble t%..0.:..:&.|
00002b40  a4 74 61 62 6c 65 6c 65  6e 28 74 25 29 3a 3d a4  |.tablelen(t%):=.|
00002b50  62 62 28 50 25 2b 28 74  25 2d 31 29 2a 38 2b 36  |bb(P%+(t%-1)*8+6|
00002b60  29 0d 16 44 20 f4 20 72  65 74 75 72 6e 73 20 6c  |)..D . returns l|
00002b70  65 6e 67 74 68 20 6f 66  20 74 61 62 6c 65 20 74  |ength of table t|
00002b80  25 0d 16 4e 05 3a 0d 16  58 26 dd a4 74 61 62 6c  |%..N.:..X&..tabl|
00002b90  65 61 64 28 74 25 29 3a  3d 53 25 2b a4 74 61 62  |ead(t%):=S%+.tab|
00002ba0  6c 65 6f 66 66 73 65 74  28 74 25 29 0d 16 62 27  |leoffset(t%)..b'|
00002bb0  f4 20 72 65 74 75 72 6e  73 20 73 74 61 72 74 20  |. returns start |
00002bc0  61 64 64 72 65 73 73 20  6f 66 20 74 61 62 6c 65  |address of table|
00002bd0  20 74 25 0d 16 6c 05 3a  0d 16 76 28 dd f2 62 62  | t%..l.:..v(..bb|
00002be0  28 6e 25 2c 61 25 29 3a  3f 61 25 3d 6e 25 81 32  |(n%,a%):?a%=n%.2|
00002bf0  35 36 3a 61 25 3f 31 3d  6e 25 83 32 35 36 3a e1  |56:a%?1=n%.256:.|
00002c00  0d 16 80 2b f4 20 70 6f  6b 65 20 74 77 6f 2d 62  |...+. poke two-b|
00002c10  79 74 65 20 6e 75 6d 62  65 72 20 6e 25 20 74 6f  |yte number n% to|
00002c20  20 61 64 64 72 65 73 73  20 61 25 0d 16 8a 05 3a  | address a%....:|
00002c30  0d 16 94 32 dd f2 74 61  62 6c 65 74 79 70 65 28  |...2..tabletype(|
00002c40  74 25 2c 74 79 70 65 25  29 3a f2 62 62 28 74 79  |t%,type%):.bb(ty|
00002c50  70 65 25 2c 50 25 2b 28  74 25 2d 31 29 2a 38 29  |pe%,P%+(t%-1)*8)|
00002c60  3a e1 0d 16 9e 1b f4 20  73 65 74 20 74 79 70 65  |:...... set type|
00002c70  20 66 6f 72 20 74 61 62  6c 65 20 74 25 0d 16 a8  | for table t%...|
00002c80  05 3a 0d 16 b2 3a dd f2  74 61 62 6c 65 6f 66 66  |.:...:..tableoff|
00002c90  73 65 74 28 74 25 2c 6f  66 66 73 65 74 25 29 3a  |set(t%,offset%):|
00002ca0  f2 62 62 28 6f 66 66 73  65 74 25 2c 50 25 2b 28  |.bb(offset%,P%+(|
00002cb0  74 25 2d 31 29 2a 38 2b  32 29 3a e1 0d 16 bc 24  |t%-1)*8+2):....$|
00002cc0  f4 20 73 65 74 20 6f 66  66 73 65 74 20 66 72 6f  |. set offset fro|
00002cd0  6d 20 53 25 20 6f 66 20  74 61 62 6c 65 20 74 25  |m S% of table t%|
00002ce0  0d 16 c6 05 3a 0d 16 d0  37 dd f2 74 61 62 6c 65  |....:...7..table|
00002cf0  69 74 65 6d 73 28 74 25  2c 69 74 65 6d 73 25 29  |items(t%,items%)|
00002d00  3a f2 62 62 28 69 74 65  6d 73 25 2c 50 25 2b 28  |:.bb(items%,P%+(|
00002d10  74 25 2d 31 29 2a 38 2b  34 29 3a e1 0d 16 da 25  |t%-1)*8+4):....%|
00002d20  f4 20 73 65 74 20 6e 75  6d 62 65 72 20 6f 66 20  |. set number of |
00002d30  69 74 65 6d 73 20 69 6e  20 74 61 62 6c 65 20 74  |items in table t|
00002d40  25 0d 16 e4 05 3a 0d 16  ee 31 dd f2 74 61 62 6c  |%....:...1..tabl|
00002d50  65 6c 65 6e 28 74 25 2c  6c 65 6e 25 29 3a f2 62  |elen(t%,len%):.b|
00002d60  62 28 6c 65 6e 25 2c 50  25 2b 28 74 25 2d 31 29  |b(len%,P%+(t%-1)|
00002d70  2a 38 2b 36 29 3a e1 0d  16 f8 1c f4 20 73 65 74  |*8+6):...... set|
00002d80  20 6c 65 6e 67 74 68 20  6f 66 20 74 61 62 6c 65  | length of table|
00002d90  20 74 25 0d 17 02 05 3a  0d 17 0c 0d f4 2d 2d 2d  | t%....:.....---|
00002da0  2d 2d 2d 2d 2d 0d 17 16  0d f4 2e 20 4d 45 4d 4f  |-----...... MEMO|
00002db0  52 59 0d 17 20 0d f4 2d  2d 2d 2d 2d 2d 2d 2d 0d  |RY.. ..--------.|
00002dc0  17 2a 05 3a 0d 17 34 11  dd a4 67 65 74 73 6c 6f  |.*.:..4...getslo|
00002dd0  74 73 69 7a 65 0d 17 3e  0f ea 20 73 6c 6f 74 73  |tsize..>.. slots|
00002de0  69 7a 65 25 0d 17 48 28  c8 99 20 22 57 69 6d 70  |ize%..H(.. "Wimp|
00002df0  5f 53 6c 6f 74 53 69 7a  65 22 2c 2d 31 2c 2d 31  |_SlotSize",-1,-1|
00002e00  20 b8 20 73 6c 6f 74 73  69 7a 65 25 0d 17 52 0e  | . slotsize%..R.|
00002e10  3d 73 6c 6f 74 73 69 7a  65 25 0d 17 5c 05 3a 0d  |=slotsize%..\.:.|
00002e20  17 66 19 dd a4 73 65 74  73 6c 6f 74 73 69 7a 65  |.f...setslotsize|
00002e30  28 62 79 74 65 73 25 29  0d 17 70 15 ea 20 73 69  |(bytes%)..p.. si|
00002e40  7a 65 25 2c 6f 6b 25 3a  6f 6b 25 3d b9 0d 17 7a  |ze%,ok%:ok%=...z|
00002e50  28 c8 99 20 22 57 69 6d  70 5f 53 6c 6f 74 53 69  |(.. "Wimp_SlotSi|
00002e60  7a 65 22 2c 62 79 74 65  73 25 2c 2d 31 20 b8 20  |ze",bytes%,-1 . |
00002e70  73 69 7a 65 25 0d 17 84  1a e7 20 73 69 7a 65 25  |size%..... size%|
00002e80  3c 62 79 74 65 73 25 20  8c 20 6f 6b 25 3d a3 0d  |<bytes% . ok%=..|
00002e90  17 8e 08 3d 6f 6b 25 0d  17 98 05 3a 0d 17 a2 18  |...=ok%....:....|
00002ea0  dd a4 63 68 65 63 6b 73  70 61 63 65 28 62 79 74  |..checkspace(byt|
00002eb0  65 73 25 29 0d 17 ac 21  e7 20 28 a4 74 6f 70 6f  |es%)...!. (.topo|
00002ec0  66 73 6c 6f 74 2d 54 25  29 3e 3d 62 79 74 65 73  |fslot-T%)>=bytes|
00002ed0  25 20 8c 3d b9 0d 17 b6  26 3d a4 73 65 74 73 6c  |% .=....&=.setsl|
00002ee0  6f 74 73 69 7a 65 28 a4  67 65 74 73 6c 6f 74 73  |otsize(.getslots|
00002ef0  69 7a 65 2b 62 79 74 65  73 25 29 0d 17 c0 05 3a  |ize+bytes%)....:|
00002f00  0d 17 ca 0f dd a4 74 6f  70 6f 66 73 6c 6f 74 0d  |......topofslot.|
00002f10  17 d4 17 3d 26 38 30 30  30 2b a4 67 65 74 73 6c  |...=&8000+.getsl|
00002f20  6f 74 73 69 7a 65 0d 17  de 05 3a 0d 17 e8 0f f4  |otsize....:.....|
00002f30  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 17 f2 0f f4 2e  |----------......|
00002f40  20 44 52 41 47 47 49 4e  47 0d 17 fc 0f f4 2d 2d  | DRAGGING.....--|
00002f50  2d 2d 2d 2d 2d 2d 2d 2d  0d 18 06 05 3a 0d 18 10  |--------....:...|
00002f60  0f dd a4 73 6f 6c 69 64  64 72 61 67 0d 18 1a 1b  |...soliddrag....|
00002f70  f4 20 62 69 74 20 31 20  6f 66 20 62 79 74 65 20  |. bit 1 of byte |
00002f80  32 38 20 73 65 74 3f 0d  18 24 21 c8 99 20 22 4f  |28 set?..$!.. "O|
00002f90  53 5f 42 79 74 65 22 2c  31 36 31 2c 32 38 20 b8  |S_Byte",161,28 .|
00002fa0  20 2c 2c 63 6d 6f 73 25  0d 18 2e 17 e7 20 28 63  | ,,cmos%..... (c|
00002fb0  6d 6f 73 25 20 80 20 32  29 3d 30 20 8c 3d a3 0d  |mos% . 2)=0 .=..|
00002fc0  18 38 06 3d b9 0d 18 42  05 3a 0d 18 4c 21 dd f2  |.8.=...B.:..L!..|
00002fd0  73 74 61 72 74 64 72 61  67 28 77 68 25 2c 69 68  |startdrag(wh%,ih|
00002fe0  25 2c 6d 62 25 2c 73 6f  6c 25 29 0d 18 56 27 73  |%,mb%,sol%)..V's|
00002ff0  77 68 25 3d 77 68 25 3a  73 69 68 25 3d 69 68 25  |wh%=wh%:sih%=ih%|
00003000  3a 73 6d 62 25 3d 6d 62  25 3a f4 20 73 6f 75 72  |:smb%=mb%:. sour|
00003010  63 65 0d 18 60 10 f4 20  67 65 74 20 63 6f 6f 72  |ce..`.. get coor|
00003020  64 73 0d 18 6a 29 71 25  21 30 3d 77 68 25 3a c8  |ds..j)q%!0=wh%:.|
00003030  99 20 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |. "Wimp_GetWindo|
00003040  77 53 74 61 74 65 22 2c  2c 71 25 0d 18 74 44 77  |wState",,q%..tDw|
00003050  6d 69 6e 78 25 3d 71 25  21 34 3a 77 6d 69 6e 79  |minx%=q%!4:wminy|
00003060  25 3d 71 25 21 38 3a 77  6d 61 78 78 25 3d 71 25  |%=q%!8:wmaxx%=q%|
00003070  21 31 32 3a 77 6d 61 78  79 25 3d 71 25 21 31 36  |!12:wmaxy%=q%!16|
00003080  3a 73 63 72 6f 6c 6c 79  25 3d 71 25 21 32 34 0d  |:scrolly%=q%!24.|
00003090  18 7e 22 6f 78 25 3d 71  25 21 34 2d 71 25 21 32  |.~"ox%=q%!4-q%!2|
000030a0  30 3a 6f 79 25 3d 71 25  21 31 36 2d 71 25 21 32  |0:oy%=q%!16-q%!2|
000030b0  34 0d 18 88 3d c8 99 20  22 57 69 6d 70 5f 47 65  |4...=.. "Wimp_Ge|
000030c0  74 50 6f 69 6e 74 65 72  49 6e 66 6f 22 2c 2c 71  |tPointerInfo",,q|
000030d0  25 3a 6d 78 25 3d 71 25  21 30 3a 6d 79 25 3d 71  |%:mx%=q%!0:my%=q|
000030e0  25 21 34 3a 72 65 6d 62  25 3d 71 25 21 38 0d 18  |%!4:remb%=q%!8..|
000030f0  92 30 71 25 21 30 3d 77  68 25 3a 71 25 21 34 3d  |.0q%!0=wh%:q%!4=|
00003100  69 68 25 3a c8 99 20 22  57 69 6d 70 5f 47 65 74  |ih%:.. "Wimp_Get|
00003110  49 63 6f 6e 53 74 61 74  65 22 2c 2c 71 25 0d 18  |IconState",,q%..|
00003120  9c 22 f4 20 69 6e 69 74  69 61 6c 20 70 6f 73 69  |.". initial posi|
00003130  74 69 6f 6e 20 6f 66 20  64 72 61 67 20 62 6f 78  |tion of drag box|
00003140  0d 18 a6 0d c8 8e 20 73  77 68 25 20 ca 0d 18 b0  |...... swh% ....|
00003150  0c 20 c9 20 6d 61 69 6e  25 0d 18 ba 1d 20 71 25  |. . main%.... q%|
00003160  21 30 3d 77 68 25 3a 71  25 21 34 3d 35 3a 73 70  |!0=wh%:q%!4=5:sp|
00003170  72 61 64 25 3d 31 0d 18  c4 4a 20 71 25 21 38 3d  |rad%=1...J q%!8=|
00003180  71 25 21 38 2b 6f 78 25  2d 34 3a 71 25 21 31 32  |q%!8+ox%-4:q%!12|
00003190  3d 71 25 21 31 32 2b 6f  79 25 2d 34 3a 71 25 21  |=q%!12+oy%-4:q%!|
000031a0  31 36 3d 71 25 21 31 36  2b 6f 78 25 2b 34 3a 71  |16=q%!16+ox%+4:q|
000031b0  25 21 32 30 3d 71 25 21  32 30 2b 6f 79 25 2b 34  |%!20=q%!20+oy%+4|
000031c0  0d 18 ce 34 20 71 25 21  32 34 3d 30 3a 71 25 21  |...4 q%!24=0:q%!|
000031d0  32 38 3d 30 3a 71 25 21  33 32 3d 26 37 46 46 46  |28=0:q%!32=&7FFF|
000031e0  46 46 46 46 3a 71 25 21  33 36 3d 26 37 46 46 46  |FFFF:q%!36=&7FFF|
000031f0  46 46 46 46 0d 18 d8 05  cb 0d 18 e2 0c e7 20 73  |FFFF.......... s|
00003200  6f 6c 25 20 8c 0d 18 ec  19 20 f4 2a 20 66 6c 61  |ol% ..... .* fla|
00003210  67 73 25 3d 25 31 31 31  30 30 30 31 30 31 0d 18  |gs%=%111000101..|
00003220  f6 20 20 66 6c 61 67 73  25 3d 25 31 31 30 30 30  |.  flags%=%11000|
00003230  31 30 31 3a f4 20 64 69  74 68 65 72 65 64 0d 19  |101:. dithered..|
00003240  00 36 20 e7 20 74 65 78  74 74 6f 64 61 74 61 25  |.6 . texttodata%|
00003250  20 8c 20 73 70 72 24 3d  22 66 69 6c 65 5f 46 46  | . spr$="file_FF|
00003260  44 22 20 8b 20 73 70 72  24 3d 22 66 69 6c 65 5f  |D" . spr$="file_|
00003270  46 46 46 22 0d 19 0a 33  20 c8 99 20 22 44 72 61  |FFF"...3 .. "Dra|
00003280  67 41 53 70 72 69 74 65  5f 53 74 61 72 74 22 2c  |gASprite_Start",|
00003290  66 6c 61 67 73 25 2c 73  70 72 61 64 25 2c 73 70  |flags%,sprad%,sp|
000032a0  72 24 2c 71 25 2b 38 0d  19 14 05 cc 0d 19 1e 1a  |r$,q%+8.........|
000032b0  20 c8 99 20 22 57 69 6d  70 5f 44 72 61 67 42 6f  | .. "Wimp_DragBo|
000032c0  78 22 2c 2c 71 25 0d 19  28 05 cd 0d 19 32 05 e1  |x",,q%..(....2..|
000032d0  0d 19 3c 05 3a 0d 19 46  16 dd f2 65 6e 64 64 72  |..<.:..F...enddr|
000032e0  61 67 28 71 25 2c 73 77  68 25 29 0d 19 50 28 f2  |ag(q%,swh%)..P(.|
000032f0  69 6e 69 74 69 61 74 65  73 61 76 65 28 73 77 68  |initiatesave(swh|
00003300  25 2c 73 69 68 25 2c 74  65 78 74 74 6f 64 61 74  |%,sih%,texttodat|
00003310  61 25 29 0d 19 5a 05 e1  0d 19 64 05 3a 0d 19 6e  |a%)..Z....d.:..n|
00003320  0b f4 2d 2d 2d 2d 2d 2d  0d 19 78 0b f4 2e 20 53  |..------..x... S|
00003330  41 56 45 0d 19 82 0b f4  2d 2d 2d 2d 2d 2d 0d 19  |AVE.....------..|
00003340  8c 05 3a 0d 19 96 29 dd  f2 69 6e 69 74 69 61 74  |..:...)..initiat|
00003350  65 73 61 76 65 28 73 77  68 25 2c 73 69 68 25 2c  |esave(swh%,sih%,|
00003360  74 65 78 74 74 6f 64 61  74 61 25 29 0d 19 a0 22  |texttodata%)..."|
00003370  f4 20 61 20 73 61 76 65  20 69 63 6f 6e 20 68 61  |. a save icon ha|
00003380  73 20 62 65 65 6e 20 64  72 61 67 67 65 64 0d 19  |s been dragged..|
00003390  aa 22 f4 20 66 69 6e 64  20 6f 75 74 20 77 68 65  |.". find out whe|
000033a0  72 65 20 64 72 6f 70 20  6f 63 63 75 72 72 65 64  |re drop occurred|
000033b0  0d 19 b4 20 c8 99 20 22  57 69 6d 70 5f 47 65 74  |... .. "Wimp_Get|
000033c0  50 6f 69 6e 74 65 72 49  6e 66 6f 22 2c 2c 71 25  |PointerInfo",,q%|
000033d0  0d 19 be 29 6d 78 25 3d  71 25 21 30 3a 6d 79 25  |...)mx%=q%!0:my%|
000033e0  3d 71 25 21 34 3a 77 68  25 3d 71 25 21 31 32 3a  |=q%!4:wh%=q%!12:|
000033f0  69 68 25 3d 71 25 21 31  36 0d 19 c8 20 e7 20 73  |ih%=q%!16... . s|
00003400  77 68 25 3d 77 68 25 20  84 20 ac 20 a4 6f 6b 74  |wh%=wh% . . .okt|
00003410  6f 73 61 76 65 20 8c 20  e1 0d 19 d2 33 e7 20 74  |osave . ....3. t|
00003420  65 78 74 74 6f 64 61 74  61 25 20 8c 20 73 61 76  |exttodata% . sav|
00003430  65 74 79 70 65 25 3d 26  46 46 44 20 8b 20 73 61  |etype%=&FFD . sa|
00003440  76 65 74 79 70 65 25 3d  26 46 46 46 0d 19 dc 28  |vetype%=&FFF...(|
00003450  f4 20 73 65 6e 64 20 64  61 74 61 73 61 76 65 20  |. send datasave |
00003460  6d 65 73 73 61 67 65 20  74 6f 20 64 65 73 74 20  |message to dest |
00003470  74 61 73 6b 0d 19 e6 26  66 73 70 24 3d a4 69 74  |task...&fsp$=.it|
00003480  28 73 77 68 25 2c 37 29  3a 6c 65 61 66 24 3d a4  |(swh%,7):leaf$=.|
00003490  6c 65 61 66 28 66 73 70  24 29 0d 19 f0 28 71 25  |leaf(fsp$)...(q%|
000034a0  21 30 3d 28 34 38 2b a9  66 73 70 24 29 20 80 20  |!0=(48+.fsp$) . |
000034b0  ac 20 33 3a f4 20 62 6c  6f 63 6b 20 6c 65 6e 67  |. 3:. block leng|
000034c0  74 68 0d 19 fa 19 71 25  21 34 3d 30 3a 71 25 21  |th....q%!4=0:q%!|
000034d0  38 3d 30 3a 71 25 21 31  32 3d 30 0d 1a 04 25 71  |8=0:q%!12=0...%q|
000034e0  25 21 31 36 3d 31 3a f4  20 6d 65 73 73 61 67 65  |%!16=1:. message|
000034f0  20 61 63 74 69 6f 6e 3d  44 61 74 61 53 61 76 65  | action=DataSave|
00003500  0d 1a 0e 2b 71 25 21 32  30 3d 77 68 25 3a 71 25  |...+q%!20=wh%:q%|
00003510  21 32 34 3d 69 68 25 3a  71 25 21 32 38 3d 6d 78  |!24=ih%:q%!28=mx|
00003520  25 3a 71 25 21 33 32 3d  6d 79 25 0d 1a 18 16 71  |%:q%!32=my%....q|
00003530  25 21 33 36 3d 31 30 30  3a f4 20 73 69 7a 65 3f  |%!36=100:. size?|
00003540  3f 0d 1a 22 13 71 25 21  34 30 3d 73 61 76 65 74  |?..".q%!40=savet|
00003550  79 70 65 25 0d 1a 2c 12  24 28 71 25 2b 34 34 29  |ype%..,.$(q%+44)|
00003560  3d 6c 65 61 66 24 0d 1a  36 1b f4 20 73 65 6e 64  |=leaf$..6.. send|
00003570  20 44 61 74 61 53 61 76  65 20 6d 65 73 73 61 67  | DataSave messag|
00003580  65 0d 1a 40 27 c8 99 20  22 57 69 6d 70 5f 53 65  |e..@'.. "Wimp_Se|
00003590  6e 64 4d 65 73 73 61 67  65 22 2c 31 38 2c 71 25  |ndMessage",18,q%|
000035a0  2c 77 68 25 2c 69 68 25  0d 1a 4a 05 e1 0d 1a 54  |,wh%,ih%..J....T|
000035b0  05 3a 0d 1a 5e 0e dd a4  6f 6b 74 6f 73 61 76 65  |.:..^...oktosave|
000035c0  0d 1a 68 1b ea 20 73 66  73 70 24 2c 64 66 73 70  |..h.. sfsp$,dfsp|
000035d0  24 2c 6f 6b 25 3a 6f 6b  25 3d b9 0d 1a 72 16 73  |$,ok%:ok%=...r.s|
000035e0  66 73 70 24 3d a4 69 74  28 6d 61 69 6e 25 2c 32  |fsp$=.it(main%,2|
000035f0  29 0d 1a 7c 16 64 66 73  70 24 3d a4 69 74 28 6d  |)..|.dfsp$=.it(m|
00003600  61 69 6e 25 2c 37 29 0d  1a 86 1b e7 20 73 66 73  |ain%,7)..... sfs|
00003610  70 24 3d 22 22 20 84 20  64 66 73 70 24 3d 22 22  |p$="" . dfsp$=""|
00003620  20 8c 0d 1a 90 3a 20 61  6e 73 25 3d a4 72 65 70  | ....: ans%=.rep|
00003630  6f 72 74 28 22 45 6e 74  65 72 20 66 69 6c 65 6e  |ort("Enter filen|
00003640  61 6d 65 73 20 62 65 66  6f 72 65 20 73 61 76 69  |ames before savi|
00003650  6e 67 22 2c 31 29 3a 6f  6b 25 3d a3 0d 1a 9a 05  |ng",1):ok%=.....|
00003660  cd 0d 1a a4 08 3d 6f 6b  25 0d 1a ae 05 3a 0d 1a  |.....=ok%....:..|
00003670  b8 2e dd f2 71 75 69 63  6b 73 61 76 65 28 6c 6f  |....quicksave(lo|
00003680  61 64 66 73 70 24 2c 73  61 76 65 66 73 70 24 2c  |adfsp$,savefsp$,|
00003690  74 65 78 74 74 6f 64 61  74 61 25 29 0d 1a c2 1d  |texttodata%)....|
000036a0  f4 20 4f 4b 20 6f 72 20  52 65 74 20 69 6e 20 73  |. OK or Ret in s|
000036b0  61 76 65 20 70 61 6e 65  6c 0d 1a cc 15 e7 20 ac  |ave panel..... .|
000036c0  20 a4 6f 6b 74 6f 73 61  76 65 20 8c 20 e1 0d 1a  | .oktosave . ...|
000036d0  d6 16 e7 20 a7 73 61 76  65 66 73 70 24 2c 22 2e  |... .savefsp$,".|
000036e0  22 29 20 8c 0d 1a e0 29  20 f2 73 61 76 65 28 6c  |") ....) .save(l|
000036f0  6f 61 64 66 73 70 24 2c  73 61 76 65 66 73 70 24  |oadfsp$,savefsp$|
00003700  2c 74 65 78 74 74 6f 64  61 74 61 25 29 0d 1a ea  |,texttodata%)...|
00003710  05 cc 0d 1a f4 32 20 61  6e 73 25 3d a4 72 65 70  |.....2 ans%=.rep|
00003720  6f 72 74 28 22 54 6f 20  73 61 76 65 2c 20 64 72  |ort("To save, dr|
00003730  61 67 20 69 63 6f 6e 20  74 6f 20 46 69 6c 65 72  |ag icon to Filer|
00003740  22 2c 31 29 0d 1a fe 05  cd 0d 1b 08 05 e1 0d 1b  |",1)............|
00003750  12 05 3a 0d 1b 1c 12 dd  f2 64 61 74 61 73 61 76  |..:......datasav|
00003760  65 28 71 25 29 0d 1b 26  33 f4 20 73 61 76 65 20  |e(q%)..&3. save |
00003770  69 63 6f 6e 20 68 61 73  20 62 65 65 6e 20 64 72  |icon has been dr|
00003780  61 67 67 65 64 20 2d 20  6d 65 73 73 61 67 65 20  |agged - message |
00003790  72 65 74 75 72 6e 65 64  0d 1b 30 0d ea 20 77 68  |returned..0.. wh|
000037a0  25 2c 69 68 25 0d 1b 3a  17 77 68 25 3d 71 25 21  |%,ih%..:.wh%=q%!|
000037b0  32 30 3a 69 68 25 3d 71  25 21 32 34 0d 1b 44 17  |20:ih%=q%!24..D.|
000037c0  f4 20 67 65 74 20 66 75  6c 6c 20 70 61 74 68 6e  |. get full pathn|
000037d0  61 6d 65 0d 1b 4e 19 73  61 76 65 66 73 70 24 3d  |ame..N.savefsp$=|
000037e0  a4 6e 61 6d 65 28 71 25  2b 34 34 29 0d 1b 58 28  |.name(q%+44)..X(|
000037f0  f2 73 61 76 65 28 6c 6f  61 64 66 73 70 24 2c 73  |.save(loadfsp$,s|
00003800  61 76 65 66 73 70 24 2c  74 65 78 74 74 6f 64 61  |avefsp$,texttoda|
00003810  74 61 25 29 0d 1b 62 24  f4 20 6f 6e 6c 79 20 75  |ta%)..b$. only u|
00003820  70 64 61 74 65 20 66 69  6c 65 6e 61 6d 65 20 69  |pdate filename i|
00003830  66 20 73 65 63 75 72 65  0d 1b 6c 10 e7 20 71 25  |f secure..l.. q%|
00003840  21 33 36 3e 2d 31 20 8c  0d 1b 76 19 20 f2 69 74  |!36>-1 ...v. .it|
00003850  28 73 77 68 25 2c 37 2c  73 61 76 65 66 73 70 24  |(swh%,7,savefsp$|
00003860  29 0d 1b 80 16 20 f2 63  61 72 65 74 78 28 73 77  |).... .caretx(sw|
00003870  68 25 2c 37 2c 30 29 0d  1b 8a 13 20 f2 63 61 72  |h%,7,0).... .car|
00003880  65 74 28 73 77 68 25 2c  37 29 0d 1b 94 05 cd 0d  |et(swh%,7)......|
00003890  1b 9e 1e 71 25 21 31 32  3d 71 25 21 38 3a 71 25  |...q%!12=q%!8:q%|
000038a0  21 31 36 3d 33 3a 21 71  25 3d 32 35 36 0d 1b a8  |!16=3:!q%=256...|
000038b0  1b f4 20 73 65 6e 64 20  44 61 74 61 4c 6f 61 64  |.. send DataLoad|
000038c0  20 6d 65 73 73 61 67 65  0d 1b b2 27 c8 99 20 22  | message...'.. "|
000038d0  57 69 6d 70 5f 53 65 6e  64 4d 65 73 73 61 67 65  |Wimp_SendMessage|
000038e0  22 2c 31 38 2c 71 25 2c  77 68 25 2c 69 68 25 0d  |",18,q%,wh%,ih%.|
000038f0  1b bc 05 e1 0d 1b c6 05  3a 0d 1b d0 23 dd f2 73  |........:...#..s|
00003900  61 76 65 28 73 66 73 70  24 2c 64 66 73 70 24 2c  |ave(sfsp$,dfsp$,|
00003910  74 65 78 74 74 6f 64 61  74 61 25 29 0d 1b da 15  |texttodata%)....|
00003920  c8 99 20 22 48 6f 75 72  67 6c 61 73 73 5f 4f 6e  |.. "Hourglass_On|
00003930  22 0d 1b e4 13 e7 20 74  65 78 74 74 6f 64 61 74  |"..... texttodat|
00003940  61 25 20 8c 0d 1b ee 19  20 f2 72 65 61 64 74 65  |a% ..... .readte|
00003950  78 74 66 69 6c 65 28 73  66 73 70 24 29 0d 1b f8  |xtfile(sfsp$)...|
00003960  19 20 f2 6d 61 6b 65 64  61 74 61 66 69 6c 65 28  |. .makedatafile(|
00003970  64 66 73 70 24 29 0d 1c  02 05 cc 0d 1c 0c 19 20  |dfsp$)......... |
00003980  f2 72 65 61 64 64 61 74  61 66 69 6c 65 28 73 66  |.readdatafile(sf|
00003990  73 70 24 29 0d 1c 16 19  20 f2 6d 61 6b 65 74 65  |sp$).... .makete|
000039a0  78 74 66 69 6c 65 28 64  66 73 70 24 29 0d 1c 20  |xtfile(dfsp$).. |
000039b0  05 cd 0d 1c 2a 18 c8 99  20 22 48 6f 75 72 67 6c  |....*... "Hourgl|
000039c0  61 73 73 5f 53 6d 61 73  68 22 0d 1c 34 05 e1 0d  |ass_Smash"..4...|
000039d0  1c 3e 05 3a 0d 1c 48 0c  f4 2d 2d 2d 2d 2d 2d 2d  |.>.:..H..-------|
000039e0  0d 1c 52 0c f4 2e 20 4d  4f 55 53 45 0d 1c 5c 0c  |..R... MOUSE..\.|
000039f0  f4 2d 2d 2d 2d 2d 2d 2d  0d 1c 66 05 3a 0d 1c 70  |.-------..f.:..p|
00003a00  0f dd f2 6d 6f 75 73 65  28 71 25 29 0d 1c 7a 11  |...mouse(q%)..z.|
00003a10  ea 20 6d 62 25 2c 77 68  25 2c 69 68 25 0d 1c 84  |. mb%,wh%,ih%...|
00003a20  32 6d 78 25 3d 71 25 21  30 3a 6d 79 25 3d 71 25  |2mx%=q%!0:my%=q%|
00003a30  21 34 3a 6d 62 25 3d 71  25 21 38 3a 77 68 25 3d  |!4:mb%=q%!8:wh%=|
00003a40  71 25 21 31 32 3a 69 68  25 3d 71 25 21 31 36 0d  |q%!12:ih%=q%!16.|
00003a50  1c 8e 0c c8 8e 20 77 68  25 20 ca 0d 1c 98 09 20  |..... wh% ..... |
00003a60  c9 20 2d 32 0d 1c a2 0d  20 c8 8e 20 6d 62 25 20  |. -2.... .. mb% |
00003a70  ca 0d 1c ac 0a 20 20 c9  20 32 3a 0d 1c b6 1c 20  |.....  . 2:.... |
00003a80  20 f2 6d 65 6e 75 28 77  68 25 2c 69 68 25 2c 6d  | .menu(wh%,ih%,m|
00003a90  78 25 2c 6d 79 25 29 0d  1c c0 12 20 20 7f 3a f2  |x%,my%)....  .:.|
00003aa0  6f 77 28 6d 61 69 6e 25  29 0d 1c ca 06 20 cb 0d  |ow(main%).... ..|
00003ab0  1c d4 0c 20 c9 20 6d 61  69 6e 25 0d 1c de 0d 20  |... . main%.... |
00003ac0  c8 8e 20 6d 62 25 20 ca  0d 1c e8 20 20 20 c9 20  |.. mb% ....   . |
00003ad0  32 3a f2 6d 65 6e 75 28  77 68 25 2c 69 68 25 2c  |2:.menu(wh%,ih%,|
00003ae0  6d 78 25 2c 6d 79 25 29  0d 1c f2 08 20 20 7f 3a  |mx%,my%)....  .:|
00003af0  0d 1c fc 0e 20 20 c8 8e  20 69 68 25 20 ca 0d 1d  |....  .. ih% ...|
00003b00  06 1b 20 20 20 c9 20 36  3a f4 20 64 72 61 67 20  |..   . 6:. drag |
00003b10  73 61 76 65 20 69 63 6f  6e 0d 1d 10 0f 20 20 20  |save icon....   |
00003b20  c8 8e 20 6d 62 25 20 ca  0d 1d 1a 2e 20 20 20 20  |.. mb% .....    |
00003b30  c9 20 31 36 2c 36 34 3a  f2 73 74 61 72 74 64 72  |. 16,64:.startdr|
00003b40  61 67 28 77 68 25 2c 69  68 25 2c 6d 62 25 2c 73  |ag(wh%,ih%,mb%,s|
00003b50  6f 6c 69 64 25 29 0d 1d  24 08 20 20 20 cb 0d 1d  |olid%)..$.   ...|
00003b60  2e 13 20 20 20 c9 20 38  3a f4 20 43 61 6e 63 65  |..   . 8:. Cance|
00003b70  6c 0d 1d 38 11 20 20 20  f2 63 77 28 6d 61 69 6e  |l..8.   .cw(main|
00003b80  25 29 0d 1d 42 11 20 20  20 c9 20 39 3a f4 20 53  |%)..B.   . 9:. S|
00003b90  61 76 65 0d 1d 4c 1a 20  20 20 73 61 76 65 66 73  |ave..L.   savefs|
00003ba0  70 24 3d a4 69 74 28 77  68 25 2c 37 29 0d 1d 56  |p$=.it(wh%,7)..V|
00003bb0  30 20 20 20 f2 71 75 69  63 6b 73 61 76 65 28 6c  |0   .quicksave(l|
00003bc0  6f 61 64 66 73 70 24 2c  73 61 76 65 66 73 70 24  |oadfsp$,savefsp$|
00003bd0  2c 74 65 78 74 74 6f 64  61 74 61 25 29 0d 1d 60  |,texttodata%)..`|
00003be0  07 20 20 cb 0d 1d 6a 06  20 cb 0d 1d 74 05 cb 0d  |.  ...j. ...t...|
00003bf0  1d 7e 05 e1 0d 1d 88 05  3a 0d 1d 92 0b f4 2d 2d  |.~......:.....--|
00003c00  2d 2d 2d 2d 0d 1d 9c 0b  f4 2e 20 4b 45 59 53 0d  |----...... KEYS.|
00003c10  1d a6 0b f4 2d 2d 2d 2d  2d 2d 0d 1d b0 05 3a 0d  |....------....:.|
00003c20  1d ba 12 dd f2 6b 65 79  70 72 65 73 73 28 71 25  |.....keypress(q%|
00003c30  29 0d 1d c4 10 ea 20 77  68 25 2c 69 68 25 2c 63  |)..... wh%,ih%,c|
00003c40  25 0d 1d ce 1e 77 68 25  3d 71 25 21 30 3a 69 68  |%....wh%=q%!0:ih|
00003c50  25 3d 71 25 21 34 3a 63  25 3d 71 25 21 32 34 0d  |%=q%!4:c%=q%!24.|
00003c60  1d d8 0b c8 8e 20 63 25  20 ca 0d 1d e2 1b 20 c9  |..... c% ..... .|
00003c70  20 31 33 20 3a f2 72 65  74 75 72 6e 28 77 68 25  | 13 :.return(wh%|
00003c80  2c 69 68 25 29 0d 1d ec  15 20 c9 20 33 38 38 3a  |,ih%).... . 388:|
00003c90  f2 74 65 73 74 3a f4 20  46 34 0d 1d f6 05 cb 0d  |.test:. F4......|
00003ca0  1e 00 05 e1 0d 1e 0a 05  3a 0d 1e 14 15 dd f2 72  |........:......r|
00003cb0  65 74 75 72 6e 28 77 68  25 2c 69 68 25 29 0d 1e  |eturn(wh%,ih%)..|
00003cc0  1e 11 e7 20 77 68 25 3d  6d 61 69 6e 25 20 8c 0d  |... wh%=main% ..|
00003cd0  1e 28 18 20 73 61 76 65  66 73 70 24 3d a4 69 74  |.(. savefsp$=.it|
00003ce0  28 77 68 25 2c 37 29 0d  1e 32 2e 20 f2 71 75 69  |(wh%,7)..2. .qui|
00003cf0  63 6b 73 61 76 65 28 6c  6f 61 64 66 73 70 24 2c  |cksave(loadfsp$,|
00003d00  73 61 76 65 66 73 70 24  2c 74 65 78 74 74 6f 64  |savefsp$,texttod|
00003d10  61 74 61 25 29 0d 1e 3c  05 cd 0d 1e 46 05 e1 0d  |ata%)..<....F...|
00003d20  1e 50 05 3a 0d 1e 5a 14  dd f2 63 61 72 65 74 28  |.P.:..Z...caret(|
00003d30  77 68 25 2c 69 68 25 29  0d 1e 64 18 ea 20 73 24  |wh%,ih%)..d.. s$|
00003d40  3a 73 24 3d a4 69 74 28  77 68 25 2c 69 68 25 29  |:s$=.it(wh%,ih%)|
00003d50  0d 1e 6e 2f c8 99 20 22  57 69 6d 70 5f 53 65 74  |..n/.. "Wimp_Set|
00003d60  43 61 72 65 74 50 6f 73  69 74 69 6f 6e 22 2c 77  |CaretPosition",w|
00003d70  68 25 2c 69 68 25 2c 2c  2c 2d 31 2c a9 73 24 0d  |h%,ih%,,,-1,.s$.|
00003d80  1e 78 05 e1 0d 1e 82 05  3a 0d 1e 8c 19 dd f2 63  |.x......:......c|
00003d90  61 72 65 74 78 28 77 68  25 2c 69 68 25 2c 78 6f  |aretx(wh%,ih%,xo|
00003da0  25 29 0d 1e 96 31 c8 99  20 22 57 69 6d 70 5f 53  |%)...1.. "Wimp_S|
00003db0  65 74 43 61 72 65 74 50  6f 73 69 74 69 6f 6e 22  |etCaretPosition"|
00003dc0  2c 77 68 25 2c 69 68 25  2c 78 6f 25 2c 2c 2d 31  |,wh%,ih%,xo%,,-1|
00003dd0  2c 2d 31 0d 1e a0 05 e1  0d 1e aa 05 3a 0d 1e b4  |,-1.........:...|
00003de0  0a dd f2 74 65 73 74 0d  1e be 05 e1 0d 1e c8 05  |...test.........|
00003df0  3a 0d 1e d2 0b f4 2d 2d  2d 2d 2d 2d 0d 1e dc 0b  |:.....------....|
00003e00  f4 2e 20 4d 45 4e 55 0d  1e e6 0b f4 2d 2d 2d 2d  |.. MENU.....----|
00003e10  2d 2d 0d 1e f0 05 3a 0d  1e fa 1b dd f2 6d 65 6e  |--....:......men|
00003e20  75 28 77 68 25 2c 69 68  25 2c 6d 78 25 2c 6d 79  |u(wh%,ih%,mx%,my|
00003e30  25 29 0d 1f 04 1b f4 20  6d 69 64 64 6c 65 20 62  |%)..... middle b|
00003e40  75 74 74 6f 6e 20 63 6c  69 63 6b 65 64 0d 1f 0e  |utton clicked...|
00003e50  0c c8 8e 20 77 68 25 20  ca 0d 1f 18 1b 20 c9 20  |... wh% ..... . |
00003e60  2d 32 3a f2 62 61 72 6d  65 6e 75 28 6d 78 25 2c  |-2:.barmenu(mx%,|
00003e70  6d 79 25 29 0d 1f 22 05  cb 0d 1f 2c 05 e1 0d 1f  |my%).."....,....|
00003e80  36 05 3a 0d 1f 40 16 dd  f2 62 61 72 6d 65 6e 75  |6.:..@...barmenu|
00003e90  28 6d 78 25 2c 6d 79 25  29 0d 1f 4a 39 ea 20 66  |(mx%,my%)..J9. f|
00003ea0  25 2c 62 25 2c 67 25 3a  62 25 3d 26 37 30 30 30  |%,b%,g%:b%=&7000|
00003eb0  30 32 31 3a 67 25 3d 26  37 34 30 30 30 32 31 3a  |021:g%=&7400021:|
00003ec0  f4 20 66 6c 61 67 73 3d  62 6c 61 63 6b 2c 67 72  |. flags=black,gr|
00003ed0  65 79 0d 1f 54 1c 72 65  6d 78 25 3d 6d 78 25 3a  |ey..T.remx%=mx%:|
00003ee0  72 65 6d 79 25 3d 6d 79  25 3a 69 25 3d 30 0d 1f  |remy%=my%:i%=0..|
00003ef0  5e 2f 61 25 3d 6d 62 31  25 3a 21 61 25 3d 62 61  |^/a%=mb1%:!a%=ba|
00003f00  72 69 63 6f 6e 25 3a 70  25 3d 61 25 2b 33 32 3a  |ricon%:p%=a%+32:|
00003f10  24 28 61 25 2b 34 29 3d  74 61 73 6b 24 0d 1f 68  |$(a%+4)=task$..h|
00003f20  2b 61 25 21 31 36 3d 26  37 30 32 30 37 3a 61 25  |+a%!16=&70207:a%|
00003f30  21 32 30 3d 31 32 38 3a  61 25 21 32 34 3d 34 34  |!20=128:a%!24=44|
00003f40  3a 61 25 21 32 38 3d 30  0d 1f 72 40 73 24 3d 22  |:a%!28=0..r@s$="|
00003f50  49 6e 66 6f 22 3a 70 25  21 30 3d 30 3a 70 25 21  |Info":p%!0=0:p%!|
00003f60  34 3d 69 6e 66 6f 25 3a  70 25 21 38 3d 62 25 3a  |4=info%:p%!8=b%:|
00003f70  24 28 70 25 2b 31 32 29  3d 73 24 3a 70 25 2b 3d  |$(p%+12)=s$:p%+=|
00003f80  32 34 3a 69 25 2b 3d 31  0d 1f 7c 37 73 24 3d 22  |24:i%+=1..|7s$="|
00003f90  51 75 69 74 22 3a 70 25  21 30 3d 26 38 30 3a 70  |Quit":p%!0=&80:p|
00003fa0  25 21 34 3d 30 3a 70 25  21 38 3d 62 25 3a 24 28  |%!4=0:p%!8=b%:$(|
00003fb0  70 25 2b 31 32 29 3d 73  24 3a 69 25 2b 3d 31 0d  |p%+12)=s$:i%+=1.|
00003fc0  1f 86 30 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |..0.. "Wimp_Crea|
00003fd0  74 65 4d 65 6e 75 22 2c  2c 6d 62 31 25 2b 34 2c  |teMenu",,mb1%+4,|
00003fe0  6d 78 25 2d 36 34 2c 39  36 2b 69 25 2a 34 34 0d  |mx%-64,96+i%*44.|
00003ff0  1f 90 05 e1 0d 1f 9a 05  3a 0d 1f a4 14 dd f2 6d  |........:......m|
00004000  65 6e 75 73 65 6c 65 63  74 28 71 25 29 0d 1f ae  |enuselect(q%)...|
00004010  14 e7 20 71 25 21 30 3d  31 20 71 75 69 74 25 3d  |.. q%!0=1 quit%=|
00004020  b9 0d 1f b8 05 e1 0d 1f  c2 05 3a 0d 1f cc 0b f4  |..........:.....|
00004030  2d 2d 2d 2d 2d 2d 0d 1f  d6 0b f4 2e 20 4d 49 53  |------...... MIS|
00004040  43 0d 1f e0 0b f4 2d 2d  2d 2d 2d 2d 0d 1f ea 05  |C.....------....|
00004050  3a 0d 1f f4 16 dd a4 72  6f 6f 74 70 61 74 68 28  |:......rootpath(|
00004060  64 72 69 76 65 25 29 0d  1f fe 0e ea 20 66 24 2c  |drive%)..... f$,|
00004070  64 24 2c 70 24 0d 20 08  0e 66 24 3d a4 66 73 6e  |d$,p$. ..f$=.fsn|
00004080  61 6d 65 0d 20 12 18 64  24 3d a4 64 69 73 63 6e  |ame. ..d$=.discn|
00004090  61 6d 65 28 64 72 69 76  65 25 29 0d 20 1c 0d e7  |ame(drive%). ...|
000040a0  20 64 24 3d 22 22 20 8c  0d 20 26 1a 20 70 24 3d  | d$="" .. &. p$=|
000040b0  22 22 3a f4 20 6e 6f 20  73 75 63 68 20 64 72 69  |"":. no such dri|
000040c0  76 65 0d 20 30 05 cc 0d  20 3a 17 20 70 24 3d 66  |ve. 0... :. p$=f|
000040d0  24 2b 22 3a 3a 22 2b 64  24 2b 22 2e 24 22 0d 20  |$+"::"+d$+".$". |
000040e0  44 06 cd 20 0d 20 4e 07  3d 70 24 0d 20 58 05 3a  |D.. . N.=p$. X.:|
000040f0  0d 20 62 0c dd a4 66 73  6e 61 6d 65 0d 20 6c 0c  |. b...fsname. l.|
00004100  ea 20 66 73 24 2c 6e 25  0d 20 76 15 c8 99 20 22  |. fs$,n%. v... "|
00004110  4f 53 5f 41 72 67 73 22  20 b8 20 6e 25 0d 20 80  |OS_Args" . n%. .|
00004120  23 c8 99 20 22 4f 53 5f  46 53 43 6f 6e 74 72 6f  |#.. "OS_FSContro|
00004130  6c 22 2c 33 33 2c 6e 25  2c 43 25 2c 26 31 30 30  |l",33,n%,C%,&100|
00004140  0d 20 8a 0e 3d a4 6e 61  6d 65 28 43 25 29 0d 20  |. ..=.name(C%). |
00004150  94 05 3a 0d 20 9e 16 dd  a4 64 69 73 63 6e 61 6d  |..:. ....discnam|
00004160  65 28 64 72 69 76 65 25  29 0d 20 a8 17 ea 20 4a  |e(drive%). ... J|
00004170  25 2c 70 25 2c 63 25 2c  73 24 3a 73 24 3d 22 22  |%,p%,c%,s$:s$=""|
00004180  0d 20 b2 26 c8 99 20 22  58 41 44 46 53 5f 44 65  |. .&.. "XADFS_De|
00004190  73 63 72 69 62 65 44 69  73 63 22 2c c3 64 72 69  |scribeDisc",.dri|
000041a0  76 65 25 2c 43 25 0d 20  bc 08 70 25 3d 30 0d 20  |ve%,C%. ..p%=0. |
000041b0  c6 05 f5 0d 20 d0 12 20  63 25 3d 43 25 3f 28 70  |.... .. c%=C%?(p|
000041c0  25 2b 32 32 29 0d 20 da  16 20 e7 20 63 25 3e 33  |%+22). .. . c%>3|
000041d0  32 20 8c 20 73 24 2b 3d  bd 63 25 0d 20 e4 0a 20  |2 . s$+=.c%. .. |
000041e0  70 25 2b 3d 31 0d 20 ee  12 fd 20 63 25 3c 33 33  |p%+=1. ... c%<33|
000041f0  20 84 20 70 25 3e 39 0d  20 f8 07 3d 73 24 0d 21  | . p%>9. ..=s$.!|
00004200  02 05 3a 0d 21 0c 0f dd  a4 74 68 28 74 61 73 6b  |..:.!....th(task|
00004210  24 29 0d 21 16 28 f4 20  6c 6f 6f 6b 20 66 6f 72  |$).!.(. look for|
00004220  20 74 61 73 6b 20 68 61  6e 64 6c 65 20 6f 66 20  | task handle of |
00004230  6e 61 6d 65 64 20 74 61  73 6b 0d 21 20 26 f4 20  |named task.! &. |
00004240  69 66 20 74 61 73 6b 20  6e 6f 74 20 6c 6f 61 64  |if task not load|
00004250  65 64 2c 20 72 65 74 75  72 6e 73 20 7a 65 72 6f  |ed, returns zero|
00004260  0d 21 2a 12 ea 20 61 25  2c 66 25 2c 74 24 2c 74  |.!*.. a%,f%,t$,t|
00004270  68 25 0d 21 34 35 c8 99  20 22 54 61 73 6b 4d 61  |h%.!45.. "TaskMa|
00004280  6e 61 67 65 72 5f 45 6e  75 6d 65 72 61 74 65 54  |nager_EnumerateT|
00004290  61 73 6b 73 22 2c 2c 71  25 2c 71 73 69 7a 65 25  |asks",,q%,qsize%|
000042a0  20 b8 20 2c 72 31 25 0d  21 3e 09 61 25 3d 71 25  | . ,r1%.!>.a%=q%|
000042b0  0d 21 48 05 f5 0d 21 52  0d 20 66 25 3d 61 25 21  |.!H...!R. f%=a%!|
000042c0  31 32 0d 21 5c 2b 20 e7  20 28 66 25 20 80 20 31  |12.!\+ . (f% . 1|
000042d0  29 3d 30 20 8c 20 74 68  25 3d 61 25 21 30 3a 74  |)=0 . th%=a%!0:t|
000042e0  24 3d a4 6e 61 6d 65 28  61 25 21 34 29 0d 21 66  |$=.name(a%!4).!f|
000042f0  0b 20 61 25 2b 3d 31 36  0d 21 70 18 fd 20 61 25  |. a%+=16.!p.. a%|
00004300  3e 3d 72 31 25 20 84 20  74 24 3d 74 61 73 6b 24  |>=r1% . t$=task$|
00004310  0d 21 7a 14 e7 20 74 24  3d 74 61 73 6b 24 20 8c  |.!z.. t$=task$ .|
00004320  3d 74 68 25 0d 21 84 06  3d 30 0d 21 8e 05 3a 0d  |=th%.!..=0.!..:.|
00004330  21 98 0e dd a4 6c 65 61  66 28 66 24 29 0d 21 a2  |!....leaf(f$).!.|
00004340  28 ea 20 63 24 2c 73 24  2c 63 25 3a 73 24 3d 22  |(. c$,s$,c%:s$="|
00004350  22 3a 63 25 3d a9 66 24  3a 63 24 3d c1 66 24 2c  |":c%=.f$:c$=.f$,|
00004360  63 25 2c 31 29 0d 21 ac  20 c8 95 20 63 24 3c 3e  |c%,1).!. .. c$<>|
00004370  22 2e 22 20 80 20 63 24  3c 3e 22 3a 22 20 80 20  |"." . c$<>":" . |
00004380  63 25 3c 3e 30 0d 21 b6  13 20 73 24 3d 63 24 2b  |c%<>0.!.. s$=c$+|
00004390  73 24 3a 63 25 2d 3d 31  0d 21 c0 11 20 63 24 3d  |s$:c%-=1.!.. c$=|
000043a0  c1 66 24 2c 63 25 2c 31  29 0d 21 ca 05 ce 0d 21  |.f$,c%,1).!....!|
000043b0  d4 07 3d 73 24 0d 21 de  05 3a 0d 21 e8 10 dd a4  |..=s$.!..:.!....|
000043c0  6e 61 6d 65 28 70 74 72  25 29 0d 21 f2 0e ea 20  |name(ptr%).!... |
000043d0  73 24 3a 73 24 3d 22 22  0d 21 fc 24 c8 95 20 3f  |s$:s$="".!.$.. ?|
000043e0  70 74 72 25 3c 3e 30 3a  73 24 2b 3d bd 3f 70 74  |ptr%<>0:s$+=.?pt|
000043f0  72 25 3a 70 74 72 25 2b  3d 31 3a ce 0d 22 06 07  |r%:ptr%+=1:.."..|
00004400  3d 73 24 0d 22 10 05 3a  0d 22 1a 14 dd a4 6f 62  |=s$."..:."....ob|
00004410  6a 74 79 70 65 28 70 61  74 68 24 29 0d 22 24 0b  |jtype(path$)."$.|
00004420  ea 20 74 79 70 65 25 0d  22 2e 20 f4 20 30 3d 4e  |. type%.". . 0=N|
00004430  6f 74 20 66 6f 75 6e 64  2c 20 31 2d 46 69 6c 65  |ot found, 1-File|
00004440  2c 20 32 3d 44 69 72 0d  22 38 21 c8 99 20 22 58  |, 2=Dir."8!.. "X|
00004450  4f 53 5f 46 69 6c 65 22  2c 35 2c 70 61 74 68 24  |OS_File",5,path$|
00004460  20 b8 20 74 79 70 65 25  0d 22 42 0a 3d 74 79 70  | . type%."B.=typ|
00004470  65 25 0d 22 4c 05 3a 0d  22 56 0e dd a4 72 65 61  |e%."L.:."V...rea|
00004480  6c 74 69 6d 65 0d 22 60  0b ea 20 64 24 2c 74 24  |ltime."`.. d$,t$|
00004490  0d 22 6a 2a 3f 72 65 61  6c 74 69 6d 65 25 3d 33  |."j*?realtime%=3|
000044a0  3a c8 99 20 22 4f 53 5f  57 6f 72 64 22 2c 31 34  |:.. "OS_Word",14|
000044b0  2c 72 65 61 6c 74 69 6d  65 25 0d 22 74 37 c8 99  |,realtime%."t7..|
000044c0  20 22 4f 53 5f 43 6f 6e  76 65 72 74 44 61 74 65  | "OS_ConvertDate|
000044d0  41 6e 64 54 69 6d 65 22  2c 72 65 61 6c 74 69 6d  |AndTime",realtim|
000044e0  65 25 2c 74 69 6d 65 25  2c 31 34 2c 64 61 74 65  |e%,time%,14,date|
000044f0  24 0d 22 7e 0d 64 24 3d  24 74 69 6d 65 25 0d 22  |$."~.d$=$time%."|
00004500  88 37 c8 99 20 22 4f 53  5f 43 6f 6e 76 65 72 74  |.7.. "OS_Convert|
00004510  44 61 74 65 41 6e 64 54  69 6d 65 22 2c 72 65 61  |DateAndTime",rea|
00004520  6c 74 69 6d 65 25 2c 74  69 6d 65 25 2c 31 34 2c  |ltime%,time%,14,|
00004530  74 69 6d 65 24 0d 22 92  0d 74 24 3d 24 74 69 6d  |time$."..t$=$tim|
00004540  65 25 0d 22 9c 11 3d 74  24 2b 22 20 6f 6e 20 22  |e%."..=t$+" on "|
00004550  2b 64 24 0d 22 a6 05 3a  0d 22 b0 13 dd a4 6f 73  |+d$."..:."....os|
00004560  76 61 72 28 6f 73 76 61  72 24 29 0d 22 ba 0a ea  |var(osvar$)."...|
00004570  20 6c 65 6e 25 0d 22 c4  25 f4 20 49 66 20 6e 6f  | len%.".%. If no|
00004580  74 20 66 6f 75 6e 64 20  64 6f 6e 27 74 20 72 65  |t found don't re|
00004590  70 6f 72 74 20 65 72 72  6f 72 0d 22 ce 31 c8 99  |port error.".1..|
000045a0  20 22 58 4f 53 5f 52 65  61 64 56 61 72 56 61 6c  | "XOS_ReadVarVal|
000045b0  22 2c 6f 73 76 61 72 24  2c 71 25 2c 32 30 30 2c  |",osvar$,q%,200,|
000045c0  30 2c 33 20 b8 2c 2c 6c  65 6e 25 0d 22 d8 11 3f  |0,3 .,,len%."..?|
000045d0  28 71 25 2b 6c 65 6e 25  29 3d 26 44 0d 22 e2 08  |(q%+len%)=&D."..|
000045e0  3d 24 71 25 0d 22 ec 05  3a 0d 22 f6 1a dd f2 62  |=$q%."..:."....b|
000045f0  65 65 70 3a d4 20 31 2c  2d 31 30 2c 32 30 30 2c  |eep:. 1,-10,200,|
00004600  31 3a e1 0d 23 00 19 dd  f2 62 75 7a 7a 3a d4 20  |1:..#....buzz:. |
00004610  31 2c 2d 31 35 2c 35 30  2c 34 3a e1 0d 23 0a 05  |1,-15,50,4:..#..|
00004620  3a 0d 23 14 0e f4 2d 2d  2d 2d 2d 2d 2d 2d 2d 0d  |:.#...---------.|
00004630  23 1e 0e f4 2e 20 57 49  4e 44 4f 57 53 0d 23 28  |#.... WINDOWS.#(|
00004640  0e f4 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 23 32 05 3a  |..---------.#2.:|
00004650  0d 23 3c 13 dd f2 6c 6f  61 64 74 65 6d 70 6c 61  |.#<...loadtempla|
00004660  74 65 73 0d 23 46 11 ea  20 74 62 75 66 66 25 2c  |tes.#F.. tbuff%,|
00004670  65 6e 64 25 0d 23 50 28  74 62 75 66 66 25 3d 62  |end%.#P(tbuff%=b|
00004680  75 66 66 65 72 25 3a 65  6e 64 25 3d 62 75 66 66  |uffer%:end%=buff|
00004690  65 72 25 2b 62 75 66 73  69 7a 65 25 0d 23 5a 31  |er%+bufsize%.#Z1|
000046a0  c8 99 20 22 57 69 6d 70  5f 4f 70 65 6e 54 65 6d  |.. "Wimp_OpenTem|
000046b0  70 6c 61 74 65 22 2c 2c  74 61 73 6b 64 69 72 24  |plate",,taskdir$|
000046c0  2b 22 2e 54 65 6d 70 6c  61 74 65 73 22 0d 23 64  |+".Templates".#d|
000046d0  35 6d 61 69 6e 25 3d a4  74 77 69 6e 64 6f 77 28  |5main%=.twindow(|
000046e0  22 4d 61 69 6e 22 2c 65  6e 64 25 2c 74 62 75 66  |"Main",end%,tbuf|
000046f0  66 25 29 3a 6d 61 69 6e  74 69 74 25 3d 71 25 21  |f%):maintit%=q%!|
00004700  37 32 0d 23 6e 27 73 61  76 65 77 25 3d a4 74 77  |72.#n'savew%=.tw|
00004710  69 6e 64 6f 77 28 22 53  61 76 65 22 2c 65 6e 64  |indow("Save",end|
00004720  25 2c 74 62 75 66 66 25  29 0d 23 78 26 69 6e 66  |%,tbuff%).#x&inf|
00004730  6f 25 3d a4 74 77 69 6e  64 6f 77 28 22 49 6e 66  |o%=.twindow("Inf|
00004740  6f 22 2c 65 6e 64 25 2c  74 62 75 66 66 25 29 0d  |o",end%,tbuff%).|
00004750  23 82 1b c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |#.... "Wimp_Clos|
00004760  65 54 65 6d 70 6c 61 74  65 22 0d 23 8c 05 e1 0d  |eTemplate".#....|
00004770  23 96 05 3a 0d 23 a0 1f  dd a4 74 77 69 6e 64 6f  |#..:.#....twindo|
00004780  77 28 74 24 2c 65 6e 64  25 2c f8 20 74 62 75 66  |w(t$,end%,. tbuf|
00004790  66 25 29 0d 23 aa 09 ea  20 77 68 25 0d 23 b4 3d  |f%).#... wh%.#.=|
000047a0  c8 99 20 22 57 69 6d 70  5f 4c 6f 61 64 54 65 6d  |.. "Wimp_LoadTem|
000047b0  70 6c 61 74 65 22 2c 2c  71 25 2c 74 62 75 66 66  |plate",,q%,tbuff|
000047c0  25 2c 65 6e 64 25 2c 2d  31 2c 74 24 2c 30 20 b8  |%,end%,-1,t$,0 .|
000047d0  20 2c 2c 74 62 75 66 66  25 0d 23 be 24 c8 99 20  | ,,tbuff%.#.$.. |
000047e0  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
000047f0  6f 77 22 2c 2c 71 25 20  b8 20 77 68 25 0d 23 c8  |ow",,q% . wh%.#.|
00004800  08 3d 77 68 25 0d 23 d2  05 3a 0d 23 dc 0d dd f2  |.=wh%.#..:.#....|
00004810  6f 77 32 28 71 25 29 0d  23 e6 28 f4 20 4f 70 65  |ow2(q%).#.(. Ope|
00004820  6e 20 57 69 6e 64 6f 77  20 72 65 71 75 65 73 74  |n Window request|
00004830  20 66 72 6f 6d 20 57 69  6d 70 20 50 6f 6c 6c 0d  | from Wimp Poll.|
00004840  23 f0 1c c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |#.... "Wimp_Open|
00004850  57 69 6e 64 6f 77 22 2c  2c 71 25 0d 23 fa 05 e1  |Window",,q%.#...|
00004860  0d 24 04 05 3a 0d 24 0e  0d dd f2 6f 77 28 77 68  |.$..:.$....ow(wh|
00004870  25 29 0d 24 18 1e f4 20  6f 70 65 6e 20 77 69 6e  |%).$... open win|
00004880  64 6f 77 20 61 74 20 6d  79 20 62 65 68 65 73 74  |dow at my behest|
00004890  0d 24 22 29 71 25 21 30  3d 77 68 25 3a c8 99 20  |.$")q%!0=wh%:.. |
000048a0  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
000048b0  74 61 74 65 22 2c 2c 71  25 0d 24 2c 0c 71 25 21  |tate",,q%.$,.q%!|
000048c0  32 38 3d 2d 31 0d 24 36  1c c8 99 20 22 57 69 6d  |28=-1.$6... "Wim|
000048d0  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 71  |p_OpenWindow",,q|
000048e0  25 0d 24 40 05 e1 0d 24  4a 05 3a 0d 24 54 0d dd  |%.$@...$J.:.$T..|
000048f0  f2 63 77 28 77 68 25 29  0d 24 5e 25 21 71 25 3d  |.cw(wh%).$^%!q%=|
00004900  77 68 25 3a c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |wh%:.. "Wimp_Clo|
00004910  73 65 57 69 6e 64 6f 77  22 2c 2c 71 25 0d 24 68  |seWindow",,q%.$h|
00004920  05 e1 0d 24 72 05 3a 0d  24 7c 0e dd f2 6f 77 63  |...$r.:.$|...owc|
00004930  28 77 68 25 29 0d 24 86  29 f4 20 61 74 20 6d 79  |(wh%).$.). at my|
00004940  20 62 65 68 65 73 74 20  2d 20 6f 6e 20 74 6f 70  | behest - on top|
00004950  20 61 6e 64 20 69 6e 20  63 65 6e 74 72 65 0d 24  | and in centre.$|
00004960  90 29 71 25 21 30 3d 77  68 25 3a c8 99 20 22 57  |.)q%!0=wh%:.. "W|
00004970  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 53 74 61  |imp_GetWindowSta|
00004980  74 65 22 2c 2c 71 25 0d  24 9a 32 c8 99 20 22 4f  |te",,q%.$.2.. "O|
00004990  53 5f 52 65 61 64 4d 6f  64 65 56 61 72 69 61 62  |S_ReadModeVariab|
000049a0  6c 65 22 2c 2d 31 2c 31  31 20 b8 20 2c 2c 78 77  |le",-1,11 . ,,xw|
000049b0  69 6e 64 6c 69 6d 69 74  25 0d 24 a4 32 c8 99 20  |indlimit%.$.2.. |
000049c0  22 4f 53 5f 52 65 61 64  4d 6f 64 65 56 61 72 69  |"OS_ReadModeVari|
000049d0  61 62 6c 65 22 2c 2d 31  2c 34 20 20 b8 20 2c 2c  |able",-1,4  . ,,|
000049e0  78 65 69 67 66 61 63 74  6f 72 25 0d 24 ae 32 c8  |xeigfactor%.$.2.|
000049f0  99 20 22 4f 53 5f 52 65  61 64 4d 6f 64 65 56 61  |. "OS_ReadModeVa|
00004a00  72 69 61 62 6c 65 22 2c  2d 31 2c 31 32 20 b8 20  |riable",-1,12 . |
00004a10  2c 2c 79 77 69 6e 64 6c  69 6d 69 74 25 0d 24 b8  |,,ywindlimit%.$.|
00004a20  32 c8 99 20 22 4f 53 5f  52 65 61 64 4d 6f 64 65  |2.. "OS_ReadMode|
00004a30  56 61 72 69 61 62 6c 65  22 2c 2d 31 2c 35 20 20  |Variable",-1,5  |
00004a40  b8 20 2c 2c 79 65 69 67  66 61 63 74 6f 72 25 0d  |. ,,yeigfactor%.|
00004a50  24 c2 28 78 77 69 6e 64  6c 69 6d 69 74 25 3d 78  |$.(xwindlimit%=x|
00004a60  77 69 6e 64 6c 69 6d 69  74 25 3c 3c 78 65 69 67  |windlimit%<<xeig|
00004a70  66 61 63 74 6f 72 25 0d  24 cc 28 79 77 69 6e 64  |factor%.$.(ywind|
00004a80  6c 69 6d 69 74 25 3d 79  77 69 6e 64 6c 69 6d 69  |limit%=ywindlimi|
00004a90  74 25 3c 3c 79 65 69 67  66 61 63 74 6f 72 25 0d  |t%<<yeigfactor%.|
00004aa0  24 d6 1a 78 65 69 67 66  61 63 74 6f 72 25 3d 71  |$..xeigfactor%=q|
00004ab0  25 21 31 32 2d 71 25 21  34 0d 24 e0 1a 79 65 69  |%!12-q%!4.$..yei|
00004ac0  67 66 61 63 74 6f 72 25  3d 71 25 21 31 36 2d 71  |gfactor%=q%!16-q|
00004ad0  25 21 38 0d 24 ea 27 71  25 21 34 20 3d 20 28 78  |%!8.$.'q%!4 = (x|
00004ae0  77 69 6e 64 6c 69 6d 69  74 25 2d 78 65 69 67 66  |windlimit%-xeigf|
00004af0  61 63 74 6f 72 25 29 3e  3e 31 0d 24 f4 27 71 25  |actor%)>>1.$.'q%|
00004b00  21 38 20 3d 20 28 79 77  69 6e 64 6c 69 6d 69 74  |!8 = (ywindlimit|
00004b10  25 2d 79 65 69 67 66 61  63 74 6f 72 25 29 3e 3e  |%-yeigfactor%)>>|
00004b20  31 0d 24 fe 1b 71 25 21  31 32 3d 20 71 25 21 34  |1.$..q%!12= q%!4|
00004b30  2b 78 65 69 67 66 61 63  74 6f 72 25 0d 25 08 1b  |+xeigfactor%.%..|
00004b40  71 25 21 31 36 3d 20 71  25 21 38 2b 79 65 69 67  |q%!16= q%!8+yeig|
00004b50  66 61 63 74 6f 72 25 0d  25 12 25 71 25 21 32 38  |factor%.%.%q%!28|
00004b60  3d 2d 31 3a c8 99 20 22  57 69 6d 70 5f 4f 70 65  |=-1:.. "Wimp_Ope|
00004b70  6e 57 69 6e 64 6f 77 22  2c 2c 71 25 0d 25 1c 05  |nWindow",,q%.%..|
00004b80  e1 0d 25 26 05 3a 0d 25  30 0c f4 2d 2d 2d 2d 2d  |..%&.:.%0..-----|
00004b90  2d 2d 0d 25 3a 0c f4 2e  20 49 43 4f 4e 53 0d 25  |--.%:... ICONS.%|
00004ba0  44 0c f4 2d 2d 2d 2d 2d  2d 2d 0d 25 4e 05 3a 0d  |D..-------.%N.:.|
00004bb0  25 58 0d dd f2 62 61 72  69 63 6f 6e 0d 25 62 37  |%X...baricon.%b7|
00004bc0  71 25 21 30 3d 2d 31 3a  71 25 21 34 3d 30 3a 71  |q%!0=-1:q%!4=0:q|
00004bd0  25 21 38 3d 30 3a 71 25  21 31 32 3d 36 38 3a 71  |%!8=0:q%!12=68:q|
00004be0  25 21 31 36 3d 36 38 3a  71 25 21 32 30 3d 26 33  |%!16=68:q%!20=&3|
00004bf0  30 30 32 0d 25 6c 17 24  28 71 25 2b 32 34 29 3d  |002.%l.$(q%+24)=|
00004c00  22 21 63 6f 6e 76 65 72  74 22 0d 25 76 27 c8 99  |"!convert".%v'..|
00004c10  20 22 57 69 6d 70 5f 43  72 65 61 74 65 49 63 6f  | "Wimp_CreateIco|
00004c20  6e 22 2c 2c 71 25 20 b8  20 62 61 72 69 63 6f 6e  |n",,q% . baricon|
00004c30  25 0d 25 80 05 e1 0d 25  8a 05 3a 0d 25 94 17 dd  |%.%....%..:.%...|
00004c40  f2 69 74 28 77 68 25 2c  69 68 25 2c 74 65 78 74  |.it(wh%,ih%,text|
00004c50  24 29 0d 25 9e 15 71 25  21 30 3d 77 68 25 3a 71  |$).%..q%!0=wh%:q|
00004c60  25 21 34 3d 69 68 25 0d  25 a8 1e c8 99 20 22 57  |%!4=ih%.%.... "W|
00004c70  69 6d 70 5f 47 65 74 49  63 6f 6e 53 74 61 74 65  |imp_GetIconState|
00004c80  22 2c 2c 71 25 0d 25 b2  12 24 28 71 25 21 32 38  |",,q%.%..$(q%!28|
00004c90  29 3d 74 65 78 74 24 0d  25 bc 24 71 25 21 30 3d  |)=text$.%.$q%!0=|
00004ca0  77 68 25 3a 71 25 21 34  3d 69 68 25 3a 71 25 21  |wh%:q%!4=ih%:q%!|
00004cb0  38 3d 30 3a 71 25 21 31  32 3d 30 0d 25 c6 1e c8  |8=0:q%!12=0.%...|
00004cc0  99 20 22 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  |. "Wimp_SetIconS|
00004cd0  74 61 74 65 22 2c 2c 71  25 0d 25 d0 05 e1 0d 25  |tate",,q%.%....%|
00004ce0  da 05 3a 0d 25 e4 11 dd  a4 69 74 28 77 68 25 2c  |..:.%....it(wh%,|
00004cf0  69 68 25 29 0d 25 ee 15  71 25 21 30 3d 77 68 25  |ih%).%..q%!0=wh%|
00004d00  3a 71 25 21 34 3d 69 68  25 0d 25 f8 1e c8 99 20  |:q%!4=ih%.%.... |
00004d10  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00004d20  74 65 22 2c 2c 71 25 0d  26 02 0d 3d 24 28 71 25  |te",,q%.&..=$(q%|
00004d30  21 32 38 29 0d 26 0c 05  3a 0d 26 16 11 dd a4 69  |!28).&..:.&....i|
00004d40  73 28 77 68 25 2c 69 68  25 29 0d 26 20 08 ea 20  |s(wh%,ih%).& .. |
00004d50  6e 25 0d 26 2a 14 21 71  25 3d 77 68 25 3a 71 25  |n%.&*.!q%=wh%:q%|
00004d60  21 34 3d 69 68 25 0d 26  34 1e c8 99 20 22 57 69  |!4=ih%.&4... "Wi|
00004d70  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
00004d80  2c 2c 71 25 0d 26 3e 18  6e 25 3d 28 28 71 25 21  |,,q%.&>.n%=((q%!|
00004d90  32 34 29 3e 3e 32 31 29  20 80 20 31 0d 26 48 0e  |24)>>21) . 1.&H.|
00004da0  e7 20 6e 25 3d 30 20 8c  3d a3 0d 26 52 06 3d b9  |. n%=0 .=..&R.=.|
00004db0  0d 26 5c 05 3a 0d 26 66  11 dd f2 75 69 28 77 68  |.&\.:.&f...ui(wh|
00004dc0  25 2c 69 68 25 29 0d 26  70 15 71 25 21 30 3d 77  |%,ih%).&p.q%!0=w|
00004dd0  68 25 3a 71 25 21 34 3d  69 68 25 0d 26 7a 16 71  |h%:q%!4=ih%.&z.q|
00004de0  25 21 38 3d 30 3a 71 25  21 31 32 3d 31 3c 3c 32  |%!8=0:q%!12=1<<2|
00004df0  31 0d 26 84 1e c8 99 20  22 57 69 6d 70 5f 53 65  |1.&.... "Wimp_Se|
00004e00  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 71 25 0d  |tIconState",,q%.|
00004e10  26 8e 05 e1 0d 26 98 05  3a 0d 26 a2 1c dd f2 73  |&....&..:.&....s|
00004e20  65 74 69 63 6f 6e 62 69  74 28 77 68 25 2c 69 68  |eticonbit(wh%,ih|
00004e30  25 2c 62 25 29 0d 26 ac  15 43 25 21 30 3d 77 68  |%,b%).&..C%!0=wh|
00004e40  25 3a 43 25 21 34 3d 69  68 25 0d 26 b6 1a 43 25  |%:C%!4=ih%.&..C%|
00004e50  21 38 3d 31 3c 3c 62 25  3a 43 25 21 31 32 3d 31  |!8=1<<b%:C%!12=1|
00004e60  3c 3c 62 25 0d 26 c0 1d  c8 99 22 57 69 6d 70 5f  |<<b%.&...."Wimp_|
00004e70  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 43  |SetIconState",,C|
00004e80  25 0d 26 ca 05 e1 0d 26  d4 05 3a 0d 26 de 1e dd  |%.&....&..:.&...|
00004e90  f2 63 6c 65 61 72 69 63  6f 6e 62 69 74 28 77 68  |.cleariconbit(wh|
00004ea0  25 2c 69 68 25 2c 62 25  29 0d 26 e8 15 43 25 21  |%,ih%,b%).&..C%!|
00004eb0  30 3d 77 68 25 3a 43 25  21 34 3d 69 68 25 0d 26  |0=wh%:C%!4=ih%.&|
00004ec0  f2 16 43 25 21 38 3d 30  3a 43 25 21 31 32 3d 31  |..C%!8=0:C%!12=1|
00004ed0  3c 3c 62 25 0d 26 fc 1d  c8 99 22 57 69 6d 70 5f  |<<b%.&...."Wimp_|
00004ee0  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 43  |SetIconState",,C|
00004ef0  25 0d 27 06 05 e1 0d 27  10 05 3a 0d 27 1a 16 f4  |%.'....'..:.'...|
00004f00  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00004f10  2d 0d 27 24 16 f4 2e 20  45 52 52 4f 52 53 2f 4d  |-.'$... ERRORS/M|
00004f20  45 53 53 41 47 45 53 0d  27 2e 16 f4 2d 2d 2d 2d  |ESSAGES.'...----|
00004f30  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0d 27 38  |-------------.'8|
00004f40  05 3a 0d 27 42 0b dd f2  65 72 72 6f 72 0d 27 4c  |.:.'B...error.'L|
00004f50  22 f4 20 62 65 66 6f 72  65 20 65 6e 74 65 72 69  |". before enteri|
00004f60  6e 67 20 70 6f 6c 6c 69  6e 67 20 6c 6f 6f 70 0d  |ng polling loop.|
00004f70  27 56 18 c8 99 20 22 48  6f 75 72 67 6c 61 73 73  |'V... "Hourglass|
00004f80  5f 53 6d 61 73 68 22 0d  27 60 16 e7 20 46 25 3e  |_Smash".'`.. F%>|
00004f90  30 20 8c 20 d9 23 46 25  3a 46 25 3d 30 0d 27 6a  |0 . .#F%:F%=0.'j|
00004fa0  1b 85 20 a2 20 9f 2c f6  24 2b 22 20 61 74 20 6c  |.. . .,.$+" at l|
00004fb0  69 6e 65 20 22 2b c3 9e  0d 27 74 05 e1 0d 27 7e  |ine "+...'t...'~|
00004fc0  05 3a 0d 27 88 0f dd f2  77 69 6d 70 65 72 72 6f  |.:.'....wimperro|
00004fd0  72 0d 27 92 0a ea 20 61  6e 73 25 0d 27 9c 2e c8  |r.'... ans%.'...|
00004fe0  99 20 22 57 69 6d 70 5f  44 72 61 67 42 6f 78 22  |. "Wimp_DragBox"|
00004ff0  2c 2c 2d 31 3a c8 99 20  22 48 6f 75 72 67 6c 61  |,,-1:.. "Hourgla|
00005000  73 73 5f 53 6d 61 73 68  22 0d 27 a6 16 e7 20 46  |ss_Smash".'... F|
00005010  25 3e 30 20 8c 20 d9 23  46 25 3a 46 25 3d 30 0d  |%>0 . .#F%:F%=0.|
00005020  27 b0 34 21 71 25 3d 9f  3a 73 24 3d 22 4f 4b 20  |'.4!q%=.:s$="OK |
00005030  74 6f 20 63 6f 6e 74 69  6e 75 65 2c 20 43 41 4e  |to continue, CAN|
00005040  43 45 4c 20 74 6f 20 6b  69 6c 6c 20 22 2b 74 61  |CEL to kill "+ta|
00005050  73 6b 24 0d 27 ba 30 24  28 71 25 2b 34 29 3d f6  |sk$.'.0$(q%+4)=.|
00005060  24 2b 22 20 28 49 6e 74  65 72 6e 61 6c 20 65 72  |$+" (Internal er|
00005070  72 6f 72 20 22 2b c3 9e  2b 22 29 20 22 2b 73 24  |ror "+..+") "+s$|
00005080  2b bd 30 0d 27 c4 2c c8  99 20 22 57 69 6d 70 5f  |+.0.'.,.. "Wimp_|
00005090  52 65 70 6f 72 74 45 72  72 6f 72 22 2c 71 25 2c  |ReportError",q%,|
000050a0  33 2c 74 61 73 6b 24 20  b8 20 2c 61 6e 73 25 0d  |3,task$ . ,ans%.|
000050b0  27 ce 37 e7 20 61 6e 73  25 3d 32 20 24 71 25 3d  |'.7. ans%=2 $q%=|
000050c0  22 54 41 53 4b 22 3a c8  99 20 22 57 69 6d 70 5f  |"TASK":.. "Wimp_|
000050d0  43 6c 6f 73 65 44 6f 77  6e 22 2c 74 61 73 6b 25  |CloseDown",task%|
000050e0  2c 21 71 25 3a e0 0d 27  d8 05 e1 0d 27 e2 05 3a  |,!q%:..'....'..:|
000050f0  0d 27 ec 18 dd a4 72 65  70 6f 72 74 28 65 72 72  |.'....report(err|
00005100  24 2c 66 6c 61 67 25 29  0d 27 f6 0a ea 20 61 6e  |$,flag%).'... an|
00005110  73 25 0d 28 00 13 f4 20  66 6c 61 67 25 3d 30 31  |s%.(... flag%=01|
00005120  20 28 4f 4b 29 0d 28 0a  17 f4 20 66 6c 61 67 25  | (OK).(... flag%|
00005130  3d 30 32 20 28 43 41 4e  43 45 4c 29 0d 28 14 1a  |=02 (CANCEL).(..|
00005140  f4 20 66 6c 61 67 25 3d  30 33 20 28 4f 4b 2c 43  |. flag%=03 (OK,C|
00005150  41 4e 43 45 4c 29 0d 28  1e 24 f4 20 66 6c 61 67  |ANCEL).(.$. flag|
00005160  25 2b 31 36 20 28 6e 6f  20 27 45 72 72 6f 72 27  |%+16 (no 'Error'|
00005170  20 69 6e 20 74 69 74 6c  65 29 0d 28 28 19 21 71  | in title).((.!q|
00005180  25 3d 31 3a 24 28 71 25  2b 34 29 3d 65 72 72 24  |%=1:$(q%+4)=err$|
00005190  2b bd 30 0d 28 32 30 c8  99 20 22 57 69 6d 70 5f  |+.0.(20.. "Wimp_|
000051a0  52 65 70 6f 72 74 45 72  72 6f 72 22 2c 71 25 2c  |ReportError",q%,|
000051b0  66 6c 61 67 25 2c 74 61  73 6b 24 20 b8 20 2c 61  |flag%,task$ . ,a|
000051c0  6e 73 25 0d 28 3c 09 3d  61 6e 73 25 0d 28 46 05  |ns%.(<.=ans%.(F.|
000051d0  3a 0d 28 50 0f dd f2 64  6c 28 6c 69 73 74 24 29  |:.(P...dl(list$)|
000051e0  0d 28 5a 10 f4 20 64 65  62 75 67 20 6c 69 73 74  |.(Z.. debug list|
000051f0  0d 28 64 35 ea 20 63 63  63 25 2c 74 74 74 25 2c  |.(d5. ccc%,ttt%,|
00005200  6d 6d 6d 25 2c 67 67 67  25 2c 73 73 73 24 2c 63  |mmm%,ggg%,sss$,c|
00005210  63 63 24 2c 76 61 72 24  28 29 3a de 20 76 61 72  |cc$,var$():. var|
00005220  24 28 32 30 29 0d 28 6e  28 67 67 67 25 3d 34 3a  |$(20).(n(ggg%=4:|
00005230  f4 20 6f 6d 69 74 20 6c  69 6e 65 73 20 61 74 20  |. omit lines at |
00005240  74 6f 70 20 6f 66 20 73  63 72 65 65 6e 0d 28 78  |top of screen.(x|
00005250  07 ea 20 85 0d 28 82 2a  ee 20 85 20 ea 20 ef 34  |.. ..(.*. . . .4|
00005260  3a f1 8a 30 2c 74 74 74  25 2b 67 67 67 25 2b 32  |:..0,ttt%+ggg%+2|
00005270  29 22 45 52 52 4f 52 21  22 3a ef 35 3a e1 0d 28  |)"ERROR!":.5:..(|
00005280  8c 17 e3 20 74 74 74 25  3d 31 20 b8 20 a9 28 6c  |... ttt%=1 . .(l|
00005290  69 73 74 24 29 0d 28 96  18 20 63 63 63 24 3d c1  |ist$).(.. ccc$=.|
000052a0  6c 69 73 74 24 2c 74 74  74 25 2c 31 29 0d 28 a0  |list$,ttt%,1).(.|
000052b0  1d 20 e7 20 63 63 63 24  3c 3e 22 2c 22 20 8c 20  |. . ccc$<>"," . |
000052c0  73 73 73 24 2b 3d 63 63  63 24 0d 28 aa 21 20 e7  |sss$+=ccc$.(.! .|
000052d0  20 63 63 63 24 3d 22 2c  22 20 84 20 74 74 74 25  | ccc$="," . ttt%|
000052e0  3d a9 28 6c 69 73 74 24  29 20 8c 0d 28 b4 1f 20  |=.(list$) ..(.. |
000052f0  20 e7 20 a9 73 73 73 24  3e 6d 6d 6d 25 20 8c 20  | . .sss$>mmm% . |
00005300  6d 6d 6d 25 3d a9 73 73  73 24 0d 28 be 25 20 20  |mmm%=.sss$.(.%  |
00005310  76 61 72 24 28 63 63 63  25 29 3d 73 73 73 24 3a  |var$(ccc%)=sss$:|
00005320  73 73 73 24 3d 22 22 3a  63 63 63 25 2b 3d 31 0d  |sss$="":ccc%+=1.|
00005330  28 c8 06 20 cd 0d 28 d2  05 ed 0d 28 dc 06 ef 34  |(.. ..(....(...4|
00005340  0d 28 e6 15 e3 20 74 74  74 25 3d 30 20 b8 20 63  |.(... ttt%=0 . c|
00005350  63 63 25 2d 31 0d 28 f0  14 20 73 73 73 24 3d 76  |cc%-1.(.. sss$=v|
00005360  61 72 24 28 74 74 74 25  29 0d 28 fa 1b 20 f1 8a  |ar$(ttt%).(.. ..|
00005370  30 2c 74 74 74 25 2b 67  67 67 25 29 c4 33 30 2c  |0,ttt%+ggg%).30,|
00005380  22 20 22 29 0d 29 04 15  20 e7 20 c0 73 73 73 24  |" ").).. . .sss$|
00005390  2c 31 29 3d 22 7e 22 20  8c 0d 29 0e 19 20 20 73  |,1)="~" ..)..  s|
000053a0  73 73 24 3d c2 73 73 73  24 2c a9 73 73 73 24 2d  |ss$=.sss$,.sss$-|
000053b0  31 29 0d 29 18 1b 20 20  63 63 63 24 3d c4 6d 6d  |1).)..  ccc$=.mm|
000053c0  6d 25 2d a9 73 73 73 24  2c 22 20 22 29 0d 29 22  |m%-.sss$," ").)"|
000053d0  2d 20 20 f1 8a 30 2c 74  74 74 25 2b 67 67 67 25  |-  ..0,ttt%+ggg%|
000053e0  29 73 73 73 24 2b 63 63  63 24 2b 22 20 3d 26 22  |)sss$+ccc$+" =&"|
000053f0  3b c3 7e 28 a0 73 73 73  24 29 0d 29 2c 07 20 20  |;.~(.sss$).),.  |
00005400  cc 0d 29 36 1b 20 20 63  63 63 24 3d c4 6d 6d 6d  |..)6.  ccc$=.mmm|
00005410  25 2d a9 73 73 73 24 2c  22 20 22 29 0d 29 40 2c  |%-.sss$," ").)@,|
00005420  20 20 f1 8a 30 2c 74 74  74 25 2b 67 67 67 25 29  |  ..0,ttt%+ggg%)|
00005430  20 73 73 73 24 2b 63 63  63 24 2b 22 20 3d 20 22  | sss$+ccc$+" = "|
00005440  3b a0 28 73 73 73 24 29  0d 29 4a 06 20 cd 0d 29  |;.(sss$).)J. ..)|
00005450  54 08 ed 3a ef 35 0d 29  5e 05 e1 0d 29 68 05 3a  |T..:.5.)^...)h.:|
00005460  0d 29 72 12 dd f2 64 61  28 61 24 2c 66 25 2c 74  |.)r...da(a$,f%,t|
00005470  25 29 0d 29 7c 11 f4 20  64 65 62 75 67 20 61 72  |%).)|.. debug ar|
00005480  72 61 79 0d 29 86 1e ea  20 63 63 63 25 2c 6e 6e  |ray.)... ccc%,nn|
00005490  6e 24 2c 78 78 78 25 2c  74 74 74 25 2c 67 67 67  |n$,xxx%,ttt%,ggg|
000054a0  25 0d 29 90 28 67 67 67  25 3d 34 3a f4 20 6f 6d  |%.).(ggg%=4:. om|
000054b0  69 74 20 6c 69 6e 65 73  20 61 74 20 74 6f 70 20  |it lines at top |
000054c0  6f 66 20 73 63 72 65 65  6e 0d 29 9a 07 ea 20 85  |of screen.)... .|
000054d0  0d 29 a4 2a ee 20 85 20  ea 20 ef 34 3a f1 8a 30  |.).*. . . .4:..0|
000054e0  2c 74 74 74 25 2b 67 67  67 25 2b 32 29 22 45 52  |,ttt%+ggg%+2)"ER|
000054f0  52 4f 52 21 22 3a ef 35  3a e1 0d 29 ae 27 e7 20  |ROR!":.5:..).'. |
00005500  c0 61 24 2c 31 29 3d 22  7e 22 20 8c 20 61 24 3d  |.a$,1)="~" . a$=|
00005510  c2 61 24 2c a9 61 24 2d  31 29 3a 78 78 78 25 3d  |.a$,.a$-1):xxx%=|
00005520  b9 0d 29 b8 17 ef 34 3a  f1 8a 30 2c 67 67 67 25  |..)...4:..0,ggg%|
00005530  29 61 24 2b 22 28 29 22  0d 29 c2 12 e3 20 63 63  |)a$+"()".)... cc|
00005540  63 25 3d 66 25 20 b8 20  74 25 0d 29 cc 24 20 6e  |c%=f% . t%.).$ n|
00005550  6e 6e 24 3d c2 22 20 20  22 2b c3 63 63 63 25 2c  |nn$=."  "+.ccc%,|
00005560  32 29 2b 22 20 22 3a 74  74 74 25 2b 3d 31 0d 29  |2)+" ":ttt%+=1.)|
00005570  d6 0d 20 e7 20 78 78 78  25 20 8c 0d 29 e0 33 20  |.. . xxx% ..).3 |
00005580  20 f1 8a 30 2c 74 74 74  25 2b 67 67 67 25 29 6e  | ..0,ttt%+ggg%)n|
00005590  6e 6e 24 2b 22 26 22 3b  c3 7e 2b a0 28 61 24 2b  |nn$+"&";.~+.(a$+|
000055a0  22 28 22 2b c3 63 63 63  25 2b 22 29 22 29 0d 29  |"("+.ccc%+")").)|
000055b0  ea 06 20 cc 0d 29 f4 2c  20 20 f1 8a 30 2c 74 74  |.. ..).,  ..0,tt|
000055c0  74 25 2b 67 67 67 25 29  6e 6e 6e 24 3b a0 28 61  |t%+ggg%)nnn$;.(a|
000055d0  24 2b 22 28 22 2b c3 63  63 63 25 2b 22 29 22 29  |$+"("+.ccc%+")")|
000055e0  0d 29 fe 06 20 cd 0d 2a  08 08 ed 3a ef 35 0d 2a  |.).. ..*...:.5.*|
000055f0  12 05 e1 0d ff                                    |.....|
000055f5