"�> <MultiStore$Dir>.MSFastSort
?�  By Merlyn Kline for Copyright (c) Minerva Software, 1989
:    version$="2.02"
(
2�:�error(�,�$,�,�)
<	�init
F3�:�error(�,�$,�,process%<4�process%>0):�report
P�normpoint
Z
d�
n�process%>0:�process
x(ș"Wimp_PollIdle",,q%,delay%�reason%
�2�taskhandle%>0:șswi%,selecttask_%,taskhandle%
��respond(reason%)
�
�quit%
��CLOSE:�quit(�)
��
�
���respond(reason%)
��reason%:�waitpoint
�Ȏreason%�
�� 0:�backgrnd
�� 1:�redraw(�)
�:� 2:�open(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24,q%!28)
�� 3:�closew(!q%)

� 4:�ptrexit(!q%)

� 5:�ptrenter(!q%)

/� 6:�mouse(!q%,q%!4,q%!8,q%!12,q%!16,q%!20)

"� 7:�enddrag

,3� 8:�key(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24)

6� 9:�menuselect

@�17,18:�umess1

J�19:�umess2

T�

^�normpoint

h�

r

|!��quit(T%):�normpoint:�novars

�1$q%="TASK":ș"Wimp_CloseDown",taskhandle%,!q%

��T%��debug:�tidy:�

�!șswi%,killtask_%,taskhandle%

�Ș

�

�ݤtask=otask%

�

���init:otask%=Z%:�swinums

�!appl$="MultiStore":pstream%=0

�'� q% 2500, workbuf% 1500,dialct% 24

�7waiter%=0:file%=-1:v%=�initwimp:�v%<180:�12:�err(2)

�!�waitpoint:ț(�dir+"BaseLib")

�ț(�dir+"SwiList"):�swilist
'quit%=�:dialreason%=-1:dialogue%=-1
ackpending%=�:ackref%=-1
dragreason%=-1
&savereason%=-1
0file2%=-1:reason2%=-1
:menufile%=-1:menusub%=-1
Dcloseok%=�
N)sbfile%=-1:pass$="":exi0%=-1:exi1%=-1
X"ș"OS_Byte",182,0,255 �,pterm%
b0�(pterm%�&80)=0ș"OS_Byte",246,0,255�,pterm%
l �pterm%=10pterm%=1:�pterm%=2
v$id_wcia%=42:id_exb%=43:id_bbc%=0
�� edbuf% 256,edval% 15
�?edfield%=-1:edicon%=-1:edrec%=-1:edx%=-1:$edval%="a0-9\-+."
�&ss%=12:lc%=3:�readparams:�filevars
�*�loadsprites:�defws:�defmenus:�version
�$process%=1:checkref%=-1:delay%=0
�+lastact%=0:chunk%=7:fn$="":startsort%=�
�Ias$="Are you sure ?":rl$="Really ":ri$=rl$+"interrupt ?":fi$="File: "
�sy$="Sorry! ":� sortm$(4)
�'�23,255,0,126,126,126,126,126,126,0
�%sortsz%=�-�P-60*1024:� V% sortsz%
��ass:�baricon:�
�
�
��swinums
�

��filevars
 /ft_form%=&DE7:ft_data%=&DE8:maxw%=4:maxf%=0
*$� w%(maxw%),ma$(30),st%(maxf%,2)
4>� fl%(maxf%),d$(maxf%,23),f$(maxf%),fx$(maxf%),t%(maxf%,3)
>$� tw%(maxw%),e$(maxf%),r%(maxf%)
H2� l$(maxf%),lx$(maxf%),lk$(maxf%),w$(maxf%,14)
RH� wo%(maxf%),o$(maxf%),o%(maxf%,6),r$(maxf%),sr$(maxf%),ll%(maxf%,5)
\?� lf%(maxf%,15),p%(maxf%,4),p$(maxf%,7),c$(maxf%,maxcol%,1)
f"� c%(maxf%,maxcol%),ox$(maxf%)
p;f_filt%=1<<00:f_pane%=1<<01:f_macb%=1<<02:f_mace%=1<<03
z;f_fspc%=1<<04:f_fupp%=1<<05:f_sspc%=1<<06:f_supp%=1<<07
�;f_sadd%=1<<08:f_rspc%=1<<09:f_rupp%=1<<10:f_srup%=1<<11
�;f_stot%=1<<12:f_stit%=1<<13:f_sdas%=1<<14:f_wspc%=1<<15
�;f_wupp%=1<<16:f_wbnk%=1<<17:f_7bit%=1<<18:f_rejb%=1<<19
�;f_reja%=1<<20:f_rdsp%=1<<21:f_rtpn%=1<<22:f_rbpn%=1<<23
�;f_rpdt%=1<<24:f_rtpg%=1<<25:f_rtsu%=1<<26:f_rldu%=1<<27
�f_rlsu%=1<<28
�[f_reps%=f_rldu%�f_rlsu%�f_rejb%�f_reja%�f_rdsp%�f_rtpn%�f_rbpn%�f_rpdt%�f_rtpg%�f_rtsu%
�!f_save%=-1��(f_pane%�f_sadd%)
�Kf_dflt%=f_fspc%�f_fupp%�f_sspc%�f_supp%�f_stot%�f_stit%�f_sdas%�f_wspc%
�fn$="":hand%=0
��
�
���sdvars
șswi%,sd64_%,3�linegap%

margin%=8
1�sound%:șswi%,opt_%,10�G%:�șswi%,opt_%,9�G%
$�
.
8-��checkprot:�T%:ș"FlexiFile_Address"�sd%
B�
L��:process%=2:�
Vșswi%,reset_%,taskhandle%
`T�process%=3�stop(1,"OK. Please remove original &","replace backup if necessary")
jdate$=�strdate1(�now,4)
t�sdvars:�v_(1)<>0�err(3)
~process%=4:�
�
�
��version
�/�T$:T$=version$:笤prod:T$+=" *UNFINISHED*"
�8�seti(w_pinfo%,4,"v"+T$):$�tia(tw_status%,11)="v"+T$
��
�
�,ݤprod=�version$,�version$,".")+1,1)="0"
�ݤdebug=��prod ��-1��-2
�
�>ݤinitwimp:first%=�:taskhandle%=�task:�taskhandle%<>0:=200
�G$q%="TASK":ș"Wimp_Initialise",200,!q%,"MultiStore"�!q%,taskhandle%
�first%=�:=!q%



��tidy
�
�normpoint
(�4,26:�0,3);:*fx4
2*fx225,1
<
*fx229
FZ%=0:șswi%,killtask_%
P��:��:�:�" ";�:�
Z+�;menuend%-menufree%" bytes menu space"
d6�;endbuf%-curbuf%" bytes indirection buffer space"
n'�;tbe%-tbs%" bytes template buffer"
x�
�
���baricon:�first%:�
�+!q%=-1:q%!4=0:q%!8=0:q%!12=102:q%!16=68
�0q%!20=%11000000000010:$(q%+24)="!"+�appl$,9)
�$ș"Wimp_CreateIcon",,q%�baricon%
��
�
���strip(� T$)
�$sd%=T$:șswi%,strip_%
�T$=$sd%
��
�
�!��error(err%,err$,erl%,quit%)
*�debug:�4,30:�err$" @ ";erl%:�quit(�)
.�normpoint:dragreason%=-1:@%=&90A:*fx229,1
�i%,e%,t$,T$
"笤prod:err$+=" ("+Þ+")"
,�
6��:�error(�,�$,�,�)
@9!q%=err%:$(q%+4)=err$:ș"Wimp_ReportError",q%,1,appl$
J�quit%:�quit(�)
T�
^
h+��report:�debug:�4:�:�" @ ";�:�quit(�)
r�
|
�	ݤdir
� �T$:T$=�ArfVar(appl$+"$Dir")
�!�T$="":T$="&.!"+�appl$,9)+"."
���T$)<>".":T$+="."
�=T$
�
�ݤArfVar(A$):�L%,T%
�=ș"XOS_ReadVarVal",A$,workbuf%,254,0,3�,,L%;T%:�T%�1:L%=0
�workbuf%?L%=13:=$workbuf%
�
���umess1
�-ref%=q%!8:task%=q%!4:�task%=taskhandle%:�
�mess%=q%!16
Ȏmess%�
�0:�CLOSE:�quit(�)
�1:�datasaved
&�2:�savedata
0�3:�dataload
:�4:ackpending%=�
D�5:�dataopen
N�6:
X�7:
b�8:�prequit
l�9:
v
�&502:
�-�&400C0:�submenu(q%!20,q%!24,q%!28,q%+32)
��&80300:�ackrec
��
��
�
���dataopen
�(�q%!40=ft_form%:�dataloadack:�err(1)
��q%!40<>ft_data%:�
�"�dataloadack:mh%=-1:�checkopen
�B�process%=0:笤dialogue:�mstore("2:"+�zts(q%+44),"MultiStore")
��
�
���dataload
$�T$:T$=�zts(q%+44):del%=q%!12<>0
�readpointer:�wtof(mh%)

Ȏ � �
 R� q%!40=&1000:file$=�zts(q%+44):�stop(38,�file$,29),rl$+" set picture path ?")
*� q%!40=ft_data%�mh%=-2
4�dataloadack
>C�process%=0笤dialogue:�checkopen:�mstore("3:"+T$,"MultiStore")
H� q%!40=&FFD �mh%=-2
R*�process%=0:笤dialogue:�checkconv(T$)
\0� q%!40=ft_form%�mh%=-2:�dataloadack:�err(1)
f<� q%!40=ft_form%�file%>=0�wind%<2:�dataloadack:�err(300)
p+� q%!40=ft_data%�mh%=w_sort%:�checkopen
z/�-3:�opensort(T$):��opensort1(T$,7,0,"",0)
�2� ;{n. ALT to open sort file with dialogue box
�c� q%!40=&FFF �file%>=0�wind%=4:�dataloadack:file$=T$:�stop(14,fi$+�filename,rl$+"load notes ?")
��
��
�
�
��noscrap
��del%:*remove <Wimp$Scrap>
��
�
���datasaved:�dialogue:�
��readpointer:�wtof(mh%)
�
Ȏ � �
�A� q%!40=&FFF �file%>=0�(wind%=6�wind%=7�wind%=0):�datasaveack
	�
	�
	
	$
��err(E%)
	.9�T$,A$:�file%>=0A$=", "+fi$+�filename+" - ":�A$=" - "
	8@%=&90A:*fx229,1
	B	ȎE%�
	L�0:T$=�$
	V0�1:T$="To use a format, drag it onto a card"
	`-�2:T$="Must be version 1.8 WIMP or later"
	j+�3:T$=sy$+"Too many files already open"
	t>�4:T$=sy$+"You can only run one RAMManager task at a time"
	~H�5:T$="To save, drag the icon to a directory viewer or another task"
	�c�6:T$="Couldn't open file: "+�$:�$="Data lost":T$+=" (Ensure the disc is not write protected)"
	�%�7:T$="Couldn't open format: "+�$
	�(�10:T$="Unbalanced quote marks ("")"
	� �11:T$="Unbalanced brackets"
	�1�16:T$="Field names must start with a letter"
	�&�24:T$="Field assignment expected"
	�%�25:T$="Field name not specified"
	�1�29:T$="Illegal notepad reference identifier"
	�9�30:T$="Abbreviated expression too complex to expand"
	�%�31:T$="Illegal pattern matching"
	�+�35:T$="Expression should not be blank"
	�#�41:T$="Printer already in use"
9�46:T$="Exporting report"+A$+�$+" (export cancelled)"

E�47:T$="The two new passwords must be identical. Please re-enter"
1�50:T$="Can't recognise format of setup file"
<�51:T$="You must specify the current password correctly"
(�59:T$="Program not found"
20�60:T$=�$+" - Can't load requested software"
<6�300:T$=sy$+"You can't load formats while sorting"
FI�301:T$=sy$+"You can't open a file while another is open for sorting"
PD�302:T$="Please close the sort file before cancelling sort mode"
ZR�303:T$="Please open sort file (by dragging to sort window) before proceeding"
dK�305:T$=sy$+"You can't create a file while another is open for sorting"
n#�306:T$="Sort expression"+A$+�$
x�307:T$=�$+" - Sort failed"
�)�308:T$="User interrupt acknowledged"
�,�309:T$="Too many records for fast sort"
�)�310:T$="Not enough records to sort!"
�&:T$="Unrecognised internal error"
��
�%笤prod:T$+=" ("+Þ+") ["+�E%+"]"
�
�99,T$
�
���opensort(f$):�s(f$)="":�
�Aw_open%=�crwind(tw_open%):�unselall(w_open%):�seli(w_open%,8)
�6file$=f$:�seti(w_open%,13,f$):�seti(w_open%,14,"")
�#�shadeopen:�dialogue(w_open%):�
�
,��opensort1(f$,m%,d%,p$,r%):�s(f$)="":�
�I%,g%,h%,X%,Y%,T$
�
"��:��:�loaderr:�
,p$=�su(p$)
6�v_(1)�err(3)
@@�waitpoint:T$=f$:m%=�(99/(maxf%+1)+(99-(99/(maxf%+1)))*m%/7)
Jw%(0)=�crwind(tw%(0))
T�p$=""p$=�pwcode(pass$)
^3pass1$=p$:pass$=�pwcode(p$):�clearpass%pass$=""
hșswi%,password_%,p$
r%g%=0:șswi%,open_%,T$,m%,d%,r%�G%
|%g%=G%:�g%�?sd%<>13��warnfile:g%=�
�hand%=�v_(2):�initfile
�șswi%,selectkey_%,"?"
�șswi%,sd45_%,"N"
�/$�ta(w%(0))="Sort="+�filename:�fext:�readws
��expandsort
�9�open(w%(0),16,404,512,900,0,0,-1):șswi%,grec_%,0�N%
�șswi%,sd57_%,"bit7"�G%
�șswi%,order_%�N%
��flg(f_7bit%,G%)
��makesort:�fastsort
�șswi%,sd38_%,255
�șswi%,sd38_%,255
� fn$=f$:�g%�dialogue(w_mess%)
�

��warnfile
&*�T%,t%,I%,T$:w_mess%=�crwind(tw_mess%)
0�+1:�I%=0�7:�T$
:)�g%�(2^I%):�seti(w_mess%,T%,T$):T%+=1
D�:�$sd%>""�
NJ�seti(w_mess%,T%,"Password violations have occured as follows:"):T%+=1
Xt%=sd%:�
b>�t%<sd%+192:�$t%>"":�seti(w_mess%,T%,"  Using "+$t%):T%+=1
lt%+=64:�t%=sd%+192
v�
�)ȕT%<6:�seti(w_mess%,T%,""):T%+=1:�:�
�>�"** This file MAY be CORRUPTED due to illegal closure **"
�<�"  ** This file has been accessed by older software **"
�	�,,,,
�
���initfile
�+f$(h%)="":fx$(h%)="":e$(h%)="":r%(h%)=1
�8o$(h%)="":o%(h%,0)=7:r$(h%)="":�I%=0�3:t%(h%,I%)=0:�
�.l$(h%)="":lk$(h%)="":lx$(h%)="":sr$(h%)=""
�p%(h%,0)=0:p$(h%,0)=""
�3�I%=0�23:d$(h%,I%)="":�:�I%=0�18:�note(I%,""):�
�#�I%=0�29:ma$(I%)="":�:wo%(h%)=0
�3�I%=0�15:lf%(h%,I%)=0:�:�I%=0�14:w$(h%,I%)="":�

Lll%(h%,0)=30:ll%(h%,1)=4:ll%(h%,2)=4:ll%(h%,3)=9:ll%(h%,4)=2:ll%(h%,5)=1

fl%(h%)=f_dflt%

�

 

*
��loaderr

4�normpoint:�h%>=0�

>�g%:�delw(w_mess%)

H�w%(0)>0�delw(w%(0))

R�hand%>0:�closefile

\�=&80301�

fDw_open%=�crwind(tw_open%):�unselall(w_open%):�seli(w_open%,m%+1)

p�d%�seli(w_open%,0)

z6file$=f$:�seti(w_open%,13,f$):�seti(w_open%,14,"")

�,�shadeopen:�dialogue(w_open%):file%=-1:�

��

��

�file%=-1:�err(6):�

�

���closefile:�I%

��ready:�writews:�delfilews

�hand%=0:w%(0)=-1E9

�closeok%=�

�șswi%,close_%�S%

�
�fastsort

��

�
 ��align(I%):�tx1%-tx0%>108:�
tx0%=I%*40+16:tx1%=tx0%+440
 ty1%=900-I%*40:ty0%=ty1%-320
$�
.
8��makeflist:�X%,Y%,P%,T%
B6P%=�makewind(2):T%=�ta(P%):$T%="Fields="+�filename
L T%=�$T%+4:șswi%,sd64_%,1�G%
V�G%<T%G%=T%
`X%=G%:�X%<21X%=21
jY%=�v_(7):�Y%<2Y%=2
t3�wext(P%,X%*16+margin%*2,Y%*linegap%+margin%*2)
~�
�
���makenotes
�5�P%:P%=�makewind(4):$�ta(P%)="Notepad="+�filename
��
�
���makesubs
��P%,T$,I%,J%,K%,T%
�1K%=w%(1)>0:�K%�getw(w%(1))��readblock(tw%(1))
�1tx0%=x0%:ty0%=y0%:tx1%=x1%:ty1%=y1%:�align(1)
�,�delfilew(1):P%=�crwind(tw%(1)):w%(1)=P%
�'$�ta(w%(1))="Subsets of "+�filename
�T$=�substr:�I%=0�23
<�T$,I%+1,1)<>".":�loseicon(P%,I%+5):�loseicon(P%,I%+29)

�
*ȕT$>""��T$)<>".":T$=�T$):�:T$=�T$,24)
+C%=((�T$-1)�6+1)*56+62:�K%:C%=ty1%-ty0%
(4T%=(3-(�T$-1)�6)*56:J%=0:�I%=0�9:T$=�subname(I%)
2�seti(P%,I%+53,T$):�T$=""�
<�loseicon(P%,I%+53)
F�
P.�geti(P%,I%+53):�delicon(P%,I%+53):J%=I%+1
Z:q%!4=!q%:q%!12+=T%:q%!20+=T%:ș"Wimp_CreateIcon",,q%+4
d�
n �:�geti(P%,4):�delicon(P%,4)
x:q%!4=!q%:q%!12+=T%:q%!20+=T%:ș"Wimp_CreateIcon",,q%+4
�8T%+=((10-J%)�5)*64:�getw(P%):�wext(P%,ex1%,-ey0%-T%)
�?�open(w%(1),tx0%,ty1%-C%,tx1%+x1%-x0%,ty1%,0,0,-1):�showsub
��
�
���makesort
�8�P%,X%,Y%:P%=�makewind(3):$�ta(P%)="Sort="+�filename
�HX%=255:Y%=�v_(17):�wext(w%(3),X%*16+margin%*2,Y%*linegap%+margin%*2)
��
�
�
��subs
��w%(1)<=0:�makesubs:�
��front(w%(1),-1,-1)
��

��sortw
�w%(3)<=0:�makesort:�
"�front(w%(3),-1,-1)
,�
6
@ݤmakewind(T%):�P%,I%,K%
J4K%=w%(T%)>0:�K%�getw(w%(T%))��readblock(tw%(T%))
T2tx0%=x0%:ty0%=y0%:tx1%=x1%:ty1%=y1%:�align(T%)
^/�delfilew(T%):P%=�crwind(tw%(T%)):w%(T%)=P%
h,�open(P%,tx0%,ty0%,tx1%,ty1%,0,0,-1):=P%
r
|1ݤcrwind(T%):ș"Wimp_CreateWindow",,T%�T%:=T%
�
���showsub:�P%
�P%=w%(1):�P%>0�
�'�subdisp1:�unselall(P%):�v_(11)=0�
��seli(P%,1)
��
��seli(P%,(�v_(11)�31)+28)
�(�v_(11)>31:�seli(P%,(�v_(11)�31)+4)
��
��
��
�
�(��delfilews:�I%:�w%(0)>0�delw(w%(0))
!�I%=1�maxw%:�delfilew(I%):�:�

��delfilew(I%)
&4�w%(I%)>0:�closew(w%(I%)):�w%(I%)>0�delw(w%(I%))
0�
:
D��umess2
NȎq%!16�
X$�6:�q%!8=loadref%:�datasaveack:�
b�
l�
v
���backgrnd:�T%
��sbfile%>=0�subdisp
�0�startsort%:startsort%=�:�newdelay:�sortfile
��ackpending%:ackpending%=�
��
�
���template(T$)
��template1(T$,q%)
��
�
�/��template1(T$,q%):T$=�lower(T$):� I%,T%,L%
�5I%=temp%+16:ȕ!I%>0��lower($(I%+12))<>T$:I%+=24:�
�-�!I%<=0:�99,"Template '"+T$+"' not found"
CT%=temp%+!I%:L%=I%!4:�I%=0�L%�4:q%!I%=T%!I%:�:T%=q%+88+q%!84*32
�(q%!56)�(1<<8)�
3q%!72=�workspace(q%!80):$(q%!72)=$T%:T%+=�$T%+1
 =�q%!76>0:q%!76=�workspace(�$T%+1):$(q%!76)=$T%:T%+=�$T%+1
*�
4
�q%!84>0�
>�I%=q%+88�q%+84+q%!84*32�32
H�(I%!16)�(1<<8)�
R3I%!20=�workspace(I%!28):$(I%!20)=$T%:T%+=�$T%+1
\=�I%!24>0:I%!24=�workspace(�$T%+1):$(I%!24)=$T%:T%+=�$T%+1
f�
p�
z�
�q%!64=sprites%
��
�
�$��opentemplate(A$):temp%=�-30000
��"Load "+A$+" "+�~temp%:�
�
�ݤtemplate(T$)
��template1(T$,tbs%)
�T%=tbs%:tbs%+=88+tbs%!84*32
�)�tbs%>tbe%:�99,"Template buffer full"
�=T%
�
���defws
�I%
bufsz%=&1200
;� buffer% bufsz%:curbuf%=buffer%:endbuf%=buffer%+bufsz%
$ �opentemplate(�dir+"MSFrm7")
.:�template("stopbox"):ș"Wimp_CreateWindow",,q%�w_stop%
8�template("save")
B-q%!64=1:ș"Wimp_CreateWindow",,q%�w_save%
L<�template("ProgInfo"):ș"Wimp_CreateWindow",,q%�w_pinfo%
V>�template("ProgInfo2"):ș"Wimp_CreateWindow",,q%�w_pinfo2%
`;�template("shadow"):ș"Wimp_CreateWindow",,q%�w_shadow%
jbufsz%=&1F00
t6� template% bufsz%:tbs%=template%:tbe%=tbs%+bufsz%
~tw%(0)=�template("File")
�tw%(1)=�template("Subsets")
�!tw%(2)=�template("FieldList")
�!tw%(3)=�template("FieldList")
�tw%(4)=�template("Notepad")
� �opentemplate(�dir+"MSFrm8")
�1tw_status%=�template("Status"):w_status%=-1E9
�.tw_mess%=�template("message"):w_mess%=-1E9
�+tw_sort%=�template("sort"):w_sort%=-1E9
�+tw_open%=�template("open"):w_open%=-1E9
�1tw_sortex%=�template("Sortex"):w_sortex%=-1E9
��
�
��loadsprites

ssize%=16*1024
�sprites% ssize%
2!sprites%=ssize%:ș"OS_SpriteOp",&109,sprites%
(.ș"OS_SpriteOp",&10A,sprites%,�dir+"MSSpr"
2�
<
F��defmenus
P�t$
Z� mlist% 32
dbufsz%=1100
nC� menufree% bufsz%:menuptr%=menufree%:menuend%=menufree%+bufsz%
xmenustart%=menufree%:�+2
��t$:m_main%=�crmenu(t$)
�N�"#MultiStore,Info>w_pinfo%,Transfer,Fast Sort,Create,Status,Printer,Quit"
��t$:m_wind%=�crmenu(t$)
�2�"#Window,Subsets,Field,Sort,Notepad#,Tidy Up"
��t$:m_file%=�crmenu(t$)
��"#File,Open"
��t$:m_card%=�crmenu(t$)
�(�"#Card,File>m_file%,Window>m_wind%"
��t$:m_npad%=�crmenu(t$)
�$�"#Notepad,Clear,Export>w_save%"
��
�
���front(h%,X%,Y%)

�getw(h%)
�X%>=0x1%+=X%-x0%:x0%=X%
�Y%>=0y1%+=Y%-y0%:y0%=Y%
"*�open(h%,x0%,y0%,x1%,y1%,scx%,scy%,-1)
,�
6
@4��open(oh%,ox0%,oy0%,ox1%,oy1%,oscx%,oscy%,obh%)
J�O%
T'!q%=oh%:ș"Wimp_GetWindowState",,q%
^�wtof(oh%):�file%>=0�
hȎwind%�
r:�wimpopen
|�
��
�
Ȏoh%�
�:�wimpopen
��
��
�e�oh%=dialogue%�shadows%:�getw(oh%):�open(w_shadow%,x0%+ss%,y0%-ss%,x1%+ss%,y1%-ss%,0,0,dialogue%)
�open%=O%
��
�
���wimpopen
�5!q%=oh%:q%!4=ox0%:q%!8=oy0%:q%!12=ox1%:q%!16=oy1%
�>q%!20=oscx%:q%!24=oscy%:q%!28=obh%:ș"Wimp_OpenWindow",,q%
��

��closew(!q%)
�I%
&�wtof(!q%)
0�file%>=0�
:Ȏwind%�
D,�0:�showbranch:�:��closeok%:�closeok:�
N�
X�
b�!q%=dialogue%:�tidydial
lș"Wimp_CloseWindow",,q%
v!�nodial:�wtof(!q%):�file%>=0�
�Ȏwind%�
��0:�closefile
��1,2,3,4:�delw(w%(wind%))
��
��
�
Ȏ!q%�
��w_stop%:stopfile%=-1
��w_status%:�delw(w_status%)
��w_mess%:�delw(w_mess%)
��w_open%:�delw(w_open%)
��w_sort%:�delw(w_sort%)
��w_sortex%:�delw(w_sortex%)
��
�
�

 ��tidydial:�restorect
*Ddialreason%=-1:dialogue%=-1:�closew(w_shadow%):exi0%=-1:exi1%=-1
4�
>
H��restorect
R�:��:��:�
\(ș "Wimp_GetCaretPosition",,workbuf%
fp�!workbuf%=dialogue%ș "Wimp_SetCaretPosition",!dialct%,dialct%!4,dialct%!8,dialct%!12,dialct%!16,dialct%!20
p�
z
�;��delw(� T%):!q%=T%:ș"Wimp_DeleteWindow",,q%:T%=-1E9:�
�
�*ݤia(h%,i%):�geti(h%,i%):�chkii:=q%!28
�*ݤva(h%,i%):�geti(h%,i%):�chkii:=q%!32
�*ݤil(h%,i%):�geti(h%,i%):�chkii:=q%!36
�
�1ݤtia(T%,i%):�q%:q%=T%+32*i%+88:�chkii:=q%!20
�
�3��chkii:�(q%!24�&100)=0�1,"Icon not indirected"
��
�
�<��geti(h%,i%):!q%=h%:q%!4=i%:ș"Wimp_GetIconState",,q%:�
�
.ݤta(h%):!q%=h%:ș"Wimp_GetWindowInfo",,q%
,�(q%!60�&100)=0�1,"Title not indirected"

=q%!76
$
.��stop(r%,T$,U$)
8dialreason%=r%:stopfile%=T%
B#�-3��stopboxes%:mi%=3:�mstop:�
L+�seti(w_stop%,0,T$):�seti(w_stop%,1,U$)
V)�unselall(w_stop%):�dialogue(w_stop%)
`dialreason%=r%:stopfile%=T%
j�
t
~��dialogue(h%)
��X%,Y%:�nodial
�'ș "Wimp_GetCaretPosition",,dialct%
�=dialfile%=file%:�nomenu:�readpointer:X%=mx%-200:Y%=my%-85
�
�X%<0X%=0
��Y%<96Y%=96
�2dialogue%=h%:�front(h%,X%,Y%):�setct(h%,-1,-1)
���D\p:�
�;�readh(h%):�h%=dialogue%:�X%:�setct(h%,X%,�$�ia(h%,X%))
��h%<>-1:�:�X%:�X%<-1:h%=0
��h%=dialogue%�h%<0:�
�
�!��readpointer:�q%:q%=workbuf%
ș"Wimp_GetPointerInfo",,q%

1mx%=!q%:my%=q%!4:mb%=q%!8:mh%=q%!12:mi%=q%!16
�

(ݤdialogue:�file%
26�dialogue%>=0�mh%<>dialogue%�mh%<>w_shadow%�nodial
<=�
F
P$��mouse(mx%,my%,mb%,mh%,mi%,mo%)
Z�dragreason%>=0�mb%>255:�
d7�wtof(mh%):�file%>=0�wind%=4�(mb%=1�mb%=4)�mi%<19:�
n�mb%<16:�dialogue:�
x3w_info%=w_pinfo%:�mb%=7:mb%=2:w_info%=w_pinfo2%
�
Ȏmb%�
��2:�menu
��1,4:�select
��16,64:�startdrag
��
��
�
�6��seti(h%,i%,T$):T$=�T$,�il(h%,i%)):$�ia(h%,i%)=T$
�<�iconupd(h%,i%):�getct:�!q%=h%�q%!4=i%:�setct(h%,i%,�T$)
��
�
�'��iset(h%,i%,B%,E%):�q%:q%=workbuf%
�?!q%=h%:q%!4=i%:q%!12=B%:q%!8=E%:ș"Wimp_SetIconState",,q%:�

'��iconupd(h%,i%):�iset(h%,i%,0,0):�

"��force(h%)
,	Ȏh%�
6.ș"Wimp_ForceRedraw",h%,-1E9,-1E9,1E9,1E9
@�
J�
T
^��readblock(p%)
h'x0%=!p%:y0%=p%!4:x1%=p%!8:y1%=p%!12
r(scx%=p%!16:scy%=p%!20:bhandle%=p%!24
|bx%=x0%-scx%:by%=y1%-scy%
�/ex0%=p%!40:ey0%=p%!44:ex1%=p%!48:ey1%=p%!52
�/gx0%=p%!24:gy0%=p%!28:gx1%=p%!32:gy1%=p%!36
�open%=(p%!28�&10000)<>0
��
�
���getw(h%)
�%!q%=h%:ș"Wimp_GetWindowInfo",,q%
��readblock(q%+4)
��
�
���select
��file%>=0�
�Ȏwind%�

�1:�msubs
�3:�msortw
�
&�
0
Ȏmh%�
:*�-2:�mb%=1��-1��-2:�oscli(""):��status
D�w_stop%:�mstop
N�w_save%:�msave
X�w_status%:�mstatus
b$�w_mess%:�mi%=6:�closew(w_mess%)
l�w_sort%:�msort
v�w_open%:�mopen
��w_sortex%:�mexpr
��
��
��
�
���msort
��mi%=3��v_(1)>0�err(302)
��mi%=3:�closew(w_sort%):�
��mi%=4��v_(1)=0:�err(303)
�!�mi%=-1:�front(w_sort%,-1,-1)
�
�mi%<>4:�
�2startsort%=�:�newdelay:�front(w_sort%,-1,-1):�
��

��msubs
%�T%:T%=�itos:�T%>=0:�selsub(T%):�
 �
*
4��msortw
>	�expr
H�
R
\#��mopen:�mi%=11�closew(w_open%)
f
�mi%<>12�
p�I%,m%,d%,r%,p$
z.p$=$�ia(w_open%,14):�wchi(w_open%):I%=q%:�
��!I%=0:d%=�
��!I%>0�!I%<9:m%=!I%-1
��!I%=16:r%=�
�:I%+=4:�I%!-4<0:file$=$�ia(w_open%,13):�closew(w_open%)
�#�opensort1(file$,m%,d%,p$,r%):�
�
���mexpr
�5�A%,T$,a%,c%,s%,u%,I%,Q%,B%:�unseli(w_sortex%,29)
�+A%=�ia(w_sortex%,17):�qbscan($A%,Q%,B%)
�
Ȏmi%�
��2,3,4,5,6,7,8,9
�>�$A%>""��Q%$sd%=�"+-*/=<><()",mi%-1,1):�$sd%<>�$A%)T$=$sd%
��mi%=7:�T$>"":T$+=">"
�seti(w_sortex%,17,$A%+T$)

�10,11
P�(($A%>""�B%>0)�mi%=10)��Q%:$sd%=�"()",mi%-9,1):�seti(w_sortex%,17,$A%+$sd%)
$
�12,13
.T$=$A%:�$A%>""��Q%�
8$sd%=�$A%):șswi%,upper_%
B7�($sd%>="A"�$sd%<="Z")�($sd%>="0"�$sd%<="9")T$+=" "
L�mi%=12T$+="AND"�T$+="OR"
V�
`�seti(w_sortex%,17,T$)
jV�14:�$A%>""��Q%T$=$A%+"=""**""":�seti(w_sortex%,17,T$):�setct(w_sortex%,17,�$A%-2)
tU�15:�$A%>""��Q%T$=$A%+"~=""""":�seti(w_sortex%,17,T$):�setct(w_sortex%,17,�$A%-1)
~�20,21:�subs
��22:�nodial
�F�29:�$A%=""�seti(w_sortex%,17,ex$):�ex$=$A%:�seti(w_sortex%,17,"")
��23
��wchi(w_sortex%):I%=q%:�
�
Ȏ!I%�
��1:s%=�
��0:u%=�
��19:a%=�
��28:c%=�
��
�I%+=4:�I%!-4=-1
��u%:�upplit($A%)
�seti(w_sortex%,17,$A%)

 o%(0,0)=(s%�4)�(u%�2)�(a%�1)
#T$=�x1($A%):o$(0)=$A%:ox$(0)=T$
!�nodial:�w%(3)>0�force(w%(3))
(�
2�iconupd(w_sortex%,17)
<�
F
P��mstop:�mi%<3�mi%>4�
Z%�T%:T%=dialreason%:dialreason%=-1
d�mi%=3�
n�closew(w_stop%)
x	ȎT%�
� �2:closeok%=�:�closew(w%(0))
��6:�CLOSE:�quit(�)
��14:�loadnotes
��17:�clearnpad
��20:stopboxes%=�
�+�36:�"*settype "+file$+" "+�~menufield%
�D�menufield%=ft_data%:�checkopen:�mstore("3:"+file$,"MultiStore")
��38:�picpath
��
��
��T%=1:�CLOSE:�quit(�)
��
��closew(w_stop%):�

��msave
�mi%<>0�
"0�T$:T$=$�ia(w_save%,2):�T$=�leaf(T$):�err(5)
,1savetype%=savet%:task%=-1:file$=T$:�savedata1
6�
@
J
��mstatus
T
�T%,I%,A%
^
Ȏmi%�
h$�15:�w%(0)>0:�front(w%(0),-1,-1)
r�12
|�13
�sound%=�:shadows%=�:pix%=�
��wchi(w_status%):I%=q%:�
�
Ȏ!I%�
��24:sound%=�
��25:shadows%=�
��23:A%=�
��28:pix%=�
��
�I%+=4:�I%!-4<0
�1�sound%:șswi%,opt_%,10�G%:�șswi%,opt_%,9�G%
��A%<>stopboxes%�
�C�A%stopboxes%=�:��stop(20,rl$+"disable these","stop boxes ?"):�
��
 �
 �
 �closew(w_status%):�
 &
 0��startdrag
 :"dragreason%=-1:dragbutton%=mb%
 D�wtof(mh%):�file%>=0�
 NȎwind%�
 X�0
 b\�mb%=16dragreason%=4:�dragcard:�menufield%=�mousef:�menufield%>0dragreason%=3:�dragfield
 l�1
 v@menusub%=�itos:�menusub%>=0:dragreason%=2:�dragicon(mh%,mi%)
 ��2
 �0menufield%=my%:�yconv(menufield%,�v_(7),mh%)
 �dragreason%=3:�dragfield1
 �>�4:�mi%<19:dragreason%=6:menufield%=mi%:�dragicon(mh%,mi%)
 ��
 ��
 �
Ȏmh%�
 �6�w_save%:�mi%=3:dragreason%=5:�dragicon(w_save%,3)
 ��
 ��
 ��
 �
 �
��enddrag
!�readpointer
!
�mh%<>-1�
!�T$
! Ȏdragreason%�
!*�1:�carddr
!4�2:�subsdr
!>�3:�fielddr
!H�4:�carddr1
!RA�5:�savereq(�leaf($�ia(w_save%,2)),savet%,saves%,savereason%)
!\�6:�enternote
!f�
!p�
!z�dragreason%=4:�carddr1
!��
!�dragreason%=-1:menufile%=-1
!��
!�
!�,��unseli(h%,i%):�iset(h%,i%,&200000,0):�
!�
!�0��seli(h%,i%):�iset(h%,i%,&200000,&200000):�
!�2��shadei(h%,i%):�iset(h%,i%,&400000,&400000):�
!�
!���unselall(h%)
!��I%,i%:�wchi(h%)
!�(I%=q%:�:i%=!I%:�i%>=0:�unseli(h%,i%)
!�I%+=4:�i%<0:�
"
"7��wchi(h%):ș"Wimp_WhichIcon",h%,q%,&200000,&200000
"�
"$
".
��menu
"8�wtof(mh%):�file%>=0�
"BȎwind%�
"L�0:�cardmenu
"V�3:�msortw
"`�4:�pop(m_npad%,-1)
"j�
"t�
"~
Ȏmh%�
"�$�-2:my%=64+7*44:�pop(m_main%,-1)
"��
"��
"��
"�
"�!��cardmenu:�pop(m_card%,-1):�
"�
"�ݤpar(t$,s$,� i%):�i1%
"�i1%=i%+1:i%=�t$+s$,s$,i1%)
"�=�t$,i1%,i%-i1%)
"�
"�ݤcrmenu(menu$)
#.�menufree%+28>menuend%�99,"Menu area full"
#
� m%
#menuptr%=menufree%
#i%=0
#(C� �menu$,1)="#"i%=1:menutitle$=�par(menu$,",",i%)�menutitle$=""
#2$menuptr%=menutitle$
#<;menuptr%?12=7:menuptr%?13=2:menuptr%?14=7:menuptr%?15=0
#F3menuptr%!16=196-24:menuptr%!20=44:menuptr%!24=0
#P"menuptr%+=28:maxx%=�menutitle$
#Z�item$=�par(menu$,",",i%)
#d�menuitem(item$)
#n� item$=""
#x$m%=menufree%:m%!16=(maxx%*8+6)*2
#�menufree%=menuptr%
#�=m%
#�
#���menuitem(text$)
#�.�text$=""menuptr%!-24=(menuptr%!-24)�&80:�
#�.�menuptr%+24>menuend%��99,"Menu area full"
#��i%,flg%
#�flg%=&00
#�i%=�text$,">")
#�<�i%>0subptr%=��text$,i%+1):text$=�text$,i%-1)�subptr%=-1
#�i%=�text$,"}")
#�;�i%>0subptr%=��text$,i%+1):text$=�text$,i%-1):flg%+=&08
#�)��text$,1)="#"text$=�text$):flg%+=&02
$;menuptr%!0=flg%:menuptr%!4=subptr%:menuptr%!8=&07000021
$�text$,1)="$"�
$2!menuptr%+=&04:menuptr%!8+=&100:i%=�text$,"(")
$"3�i%>0�L%=��text$,i%+1):text$=�text$,i%-1)�L%=12
$,8menuptr%!12=��text$,2):menuptr%!16=-1:menuptr%!20=L%
$6text$=�L%," ")
$@�
$J�text$<=12�
$T$(menuptr%+12)=text$
$^�
$h%I%=�workspace(�text$+1):$I%=text$
$r6menuptr%!12=I%:menuptr%!16=-1:menuptr%!20=�text$+1
$| menuptr%!8=menuptr%!8 � &100
$��
$��text$>maxx%maxx%=�text$
$��
$�menuptr%+=24
$��
$�
$�ݤworkspace(L%)
$�2� curbuf%+L%>endbuf%�99,"No more buffer space"
$�curbuf%+=L%:=curbuf%-L%
$�
$���prep(menu%,tree%)
$��I%,T$:�clearts(menu%)
$�Ȏmenu%�
%�m_main%:�mp_main
%�m_file%:�mp_file
%�m_wind%:�mp_wind
%&�m_card%:�mp_card
%0�m_npad%:�mp_npad
%:�
%D�
%N
%X
��mp_card
%b�prep(m_wind%,tree%)
%l�
%v
%�
��mp_file
%��
%�
%�
��mp_wind
%��w%(1)>0�tick(menu%,0)
%��w%(2)>0�tick(menu%,1)
%��w%(3)>0�tick(menu%,2)
%��w%(4)>0�tick(menu%,3)
%��
%�
%�
��mp_npad
%� �saveset(f_np$,&FFF,5,80*19)
%��
&
&
��mp_main
&M�v_(1)>0:�shade(menu%,1):�shade(menu%,2):�shade(menu%,3):�shade(menu%,5)
& �w_sort%>0�tick(menu%,2)
&*�
&4
&>$��pop(menu%,tree%):�process%>0:�
&H�menu%<0:�
&R�prep(menu%,tree%)
&\,ș"Wimp_CreateMenu",,menu%,mx%-50,my%+32
&fopenmenu%=menu%
&p�
&z
&���nomenu
&�(ș"Wimp_CreateMenu",,-1:openmenu%=-1
&��
&�
&�+��nodial:�dialogue%>0�closew(dialogue%)
&��
&�
&���menuselect
&��I%
&�-I%=0:�mlist%!I%=q%!I%:I%+=4:�q%!(I%-4)=-1
&��readpointer
&�Ȏopenmenu%�
&��m_main%:�m_main
'�m_card%:�m_card
'�m_npad%:�m_npad
'�
'$�mb%=1�
'.#�pop(openmenu%,mlist%):��nomenu
'8�
'B�
'L�
'V
'`��m_npad
'jȎ!mlist%�
't4�0:�stop(17,fi$+�filename,rl$+"clear notepad ?")
'~�
'��
'�
'���m_main
'�Ȏ!mlist%�
'��0:�dialogue(w_info%)
'��1:�transfer
'��2:�fastsort
'��3:�create
'��4:�status
'��5:�pdriver
'�!�6:�v_(1)=0:�quit(�):��qquit
'��
(�
(

(��m_card
(Ȏ!mlist%�
((�0:�m_file
(2�1:�m_wind
(<�
(F�
(P
(Z��m_wind
(d�T%:T%=mlist%!4
(n5�T%>-1�T%<maxw%-1:�w%(T%+1)>0:�closew(w%(T%+1)):�
(x	ȎT%�
(��0:�subs
(��1:�fieldlist
(�
�2:�sortw
(��3:�notepad
(�
�4:�wtidy
(��
(��
(�
(���m_file
(�Ȏmlist%!4�
(�,�0:�CLOSE:�mstore("2:"+fn$,"MultiStore")
(��
(��
)
)��submenu(menu%,X%,Y%,q%)
)�I%
)"-I%=0:�mlist%!I%=q%!I%:I%+=4:�q%!(I%-4)=-1
),�prep(openmenu%,mlist%)
)6'ș"Wimp_CreateSubMenu",,menu%,X%,Y%
)@�
)J
)T ��clearts(mh%):�I%:I%=mh%+28
)^"�mh%<menustart%�mh%>menuend%:�
)h�
)r"!I%=!I%��1:I%!8=I%!8��&400000:
)|I%+=24:�I%!-24�&80
)��
)�
)���shade(mh%,I%)
)�/mh%!(28+8+24*I%)=mh%!(28+8+24*I%)�&400000:�
)�
)���tick(mh%,I%)
)�'mh%!(28+24*I%)=mh%!(28+24*I%)�&01:�
)�
)���redraw(update%)
)��h%,T%:�update%�
)�%ș"Wimp_UpdateWindow",,q% � more%
)��
)�%ș"Wimp_RedrawWindow",,q% � more%
*�
*%h%=!q%:�wtof(h%):�readblock(q%+4)
*ȕ more%
*&T%=�:�:��:T%=�
*0�T%�
*:"�-3:�rectfill(�$):���:�err(0)
*D�
*N�file%>=0�
*XȎwind%�
*b�0:�drawcard
*l�2:�drawflist
*v�3:�drawsort
*��
*��
*��
*��
*���
*�!q%=h%:more%=�nextrectangle
*��
*��
*�
*���drawcard
*�+�T%:�update%T%=6:�șswi%,gline_%:�:T%=2
*�*�gcol(0,7):�gcol(0,130+��flg(f_7bit%))
*�-�bx%+margin%,by%-margin%:șswi%,wimp_%,T%
+�
+
+9��drawflist:�T%,X%,Y%,x%,y%:T%=&10000:�update%T%=T%�1
+ 2�v_(7)=0�rectfill("No fields in this file"):�
+*/�bx%+margin%,by%-margin%-4:șswi%,wimp_%,T%
+4�
+>
+H��drawsort:�update%�
+R6�Y%,T%,d%,L%:d%=�v_(14):L%=(gx1%-bx%-margin%)�16+1
+\�
+f0��:��:șswi%,grec_%,0:�force(w%(3)):�err(0)
+p?T%=(by%-gy1%-margin%-4)�linegap%:Y%=by%-margin%-linegap%*T%
+z)ȕY%>=gy0%�T%<�v_(17):�bx%+margin%,Y%
+��rlin(T%+1,L%)
+�+T%+=1:Y%-=linegap%:�:șswi%,grec_%,0�N%
+��
+�
+�ݤrlin(r%,L%):�t$,a$
+�#a$=�12," "):șswi%,grec_%,r%�N%
+�%�sd35:a$=�a$+�(r%),10)+": ":ȎG%�
+�+�1:�gcol(0,3):t$="(Not in this subset)"
+�"�0:�gcol(0,7):�L%>11:t$=�rlin1
+�$:�gcol(0,3):t$="(Deleted Card)"
+��
+�=�a$+t$,L%)
+�
,ݤrlin1
,�:��:��:=" ** "+�$
,*=�ev3(ox$(0),o%(0,0)�4,o%(0,0)�2,&90A)
,$
,.4ݤnextrectangle:�T%:ș"Wimp_GetRectangle",,q%�T%
,8�readblock(q%+4):=T%
,B
,L��rectfill(T$)
,V�gcol(0,3):�I%,J%,L%,X%,Y%
,`L%=�T$*16+48
,j,X%=bx%+margin%:J%=gx0%-X%:X%=X%-J%+J%�L%
,t=J%=by%-gy1%-margin%:J%=J%-J%�linegap%:Y%=by%-margin%-4-J%
,~�J%=Y%�gy0%�-linegap%
,�%�X%,J%:�I%=X%�gx1%�L%:�T$" - ";:�
,��:�
,�
,���waitpoint
,�waiter%+=1
,�ș"Hourglass_On"
,��
,�
,���normpoint
,�8ȕwaiter%>0:ș"Hourglass_Off":waiter%-=1:�:waiter%=0
,��
,�
-��gcol(m%,c%)
-
!ș"Wimp_SetColour",(m%<<4)+c%
-�
-
-(��dataloadack
-2!q%=20:q%!12=ref%:q%!16=4
-<$ș"Wimp_SendMessage",17,q%,task%
-F�
-P
-Z��datasaveack
-d<�ArfVar("Wimp$Scrap")="":�99,"<Wimp$Scrap> not defined"
-nA!q%=60:q%!12=ref%:q%!16=2:q%!36=-1:$(q%+44)="<Wimp$Scrap>"+�0
-x1ș"Wimp_SendMessage",17,q%,task%:ackref%=q%!8
-��
-�
-���savereq(T$,t%,s%,r%)
-�:savereason%=r%:q%!32=my%:q%!28=mx%:q%!24=mi%:q%!20=mh%
-�8q%!16=1:q%!12=0:q%!36=s%:q%!40=t%:!q%=(�T$+53)�&FFFC
-�9$(q%+44)=T$+�5,�0):ș"Wimp_SendMessage",17,q%,mh%,mi%
-� saveref%=q%!8:savetype%=t%:�
-�
-�&��loadmess:�readpointer:�task%<0:�
-�+$(q%+44)=file$+�0:!q%=(�file$+49)�&FFFC
-�&q%!12=ref%:q%!16=3:q%!40=savetype%
-�?q%!20=mh%:q%!24=mi%:q%!28=mx%:q%!32=my%:q%!36=�fsize(file$)
-�$ș"Wimp_SendMessage",17,q%,task%
.ackpending%=�:�
.
.&ݤfsize(T$):�T%,s%:T%=�T$:�T%=0:=0
."s%=�#T%:�#T%:=s%
., 
.6ݤzts(T%):�T$
.@ȕ?T%<>0:T$+=�?T%:T%+=1:�
.J=T$
.T
.^)��key(h%,icon%,x%,y%,carh%,off%,key%)
.h�F%:F%=�
.rȎkey%�
.|�9,&18A:�findct
.��13:�cursor(h%,icon%,1,0)
.��19:�swapcase
.�"�27:�dialogue%>=0�nodial:�F%=�
.��&181:笤prod:�quit(�)
.�#�&18F:�cursor(h%,icon%,-1,off%)
.�"�&18E:�cursor(h%,icon%,1,off%)
.�#�&19F:�cursor(h%,icon%,-5,off%)
.�"�&19E:�cursor(h%,icon%,5,off%)
.�(�&1AF,30:�cursor(h%,icon%,-1E9,off%)
.�$�&1AE:�cursor(h%,icon%,1E9,off%)
.�	F%=�
.��
.�	�F%:�
/ș"Wimp_ProcessKey",key%
/�
/
/&,��swapcase:�getct:T%=q%!20+�ia(!q%,q%!4)
/03�?T%<123�?T%>96 ?T%-=32:��?T%<91�?T%>64 ?T%+=32
/:*�getct:�?T%>31�setct(!q%,q%!4,q%!20+1)
/D�getct:�iconupd(!q%,q%!4):�
/N
/X+��getct:ș"Wimp_GetCaretPosition",,q%:�
/b
/l=��setct(h%,i%,o%):ș"Wimp_SetCaretPosition",h%,i%,,,-1,o%
/v�i%>=0�findct
/��
/�
/���cursor(h%,i%,s%,o%)
/�	��D\p
/�
�W%,T$,I%
/�ȕW%<>-1
/��readh(W%):�W%<>h%�
/��W%<>-1:�:�W%:�W%<-1:W%=0
/��
/��
/��W%:�W%<>-1:T$+=�(W%)
/��W%<-1:T$=�T$)
/�;�key%=13:��T$)=i%:mi%=�(W%+100):mb%=1:mh%=h%:�select:�
0/�s%=1E9:s%=�T$:��s%=-1E9:s%=1:�s%+=�T$,�i%)
0ȕs%>�T$:s%-=�T$:�
0ȕs%<1:s%+=�T$:�
0 I%=��T$,s%)
0*#�o%>�$�ia(h%,I%)o%=�$�ia(h%,I%)
04�setct(h%,I%,o%)
0>�
0H�
0R�
0\�w_save%,2,-100
0f�w_open%,14,-112
0p�w_sortex%,17,-123
0z@�"w%(4)",0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,-100
0��-1
0�
0�ݤleaf(T$)
0�
�I%,C%
0�$�((�T$,".")=0)�(�T$,":")=0))�=T$
0�I%=�(T$)
0��
0�C%=��T$,I%,1)
0�	I%-=1
0��(I%<=0�C%=�"."�C%=�":")
0��I%>0�=�T$,�(T$)-I%-1)
0�=T$
0�
13��wext(h%,x%,y%):!q%=0:q%!4=-y%:q%!8=x%:q%!12=0
1'ș"Wimp_SetExtent",h%,q%:�force(h%)
1�getw(h%):�open%�
1$�x1%-x0%>x%:x%+=x0%:�x%=x1%
1.!�y1%-y0%>y%:y%=y1%-y%:�y%=y0%
18.�open(h%,x0%,y%,x%,y1%,scx%,scy%,bhandle%)
1B�
1L�
1V
1`
��process
1j/�dialreason%>=0�dialogue%>=0�ackpending%>0�
1tȎprocess%�
1~�1:�checkprot
1�Q�2:�stop(1,"Please place original","MultiStore disk in drive :0"):process%+=1
1��3:�checkprot
1��4:�fastsort:�startopen
1�process%=0
1��
1�
�newdelay
1��
1�
1���dragicon(h%,i%)
1�"�x%,y%,ys%,tx0%,ty0%,tx1%,ty1%
1�,�getw(h%):ys%=y1%-y0%:x%=bx%:y%=y0%-scy%
1�1�geti(h%,i%):q%!8+=x%:q%!12+=y%+ys%:q%!16+=x%
20q%!20+=y%+ys%:q%!24=0:q%!28=0:!q%=0:�drag5:�
2

2<��drag5:�readpointer:�scrsz:tx0%=mx%-q%!8:ty0%=my%-q%!12
2=q%!24-=tx0%:q%!28-=ty0%:q%!32+=q%!16-mx%:q%!36+=q%!20-my%
2(!q%!4=5:ș"Wimp_DragBox",,q%:�
22
2<ݤlower(T$):�T$="":=""
2F
�I%,C%
2P�I%=1��T$:C%=��T$,I%)
2Z"�C%>64�C%<91�T$,I%,1)=�(C%+32)
2d	�:=T$
2n
2x$��wtof(T%):�J%:wind%=-1:file%=-1
2�-�J%=0�maxw%:�w%(J%)=T%:file%=0:wind%=J%:�
2��:�
2�
2�
��fext
2�
�x%,y%
2�y%=�ht*linegap%+margin%*2
2�)x%=�wd*16+margin%*2:�x%<22*16x%=22*16
2�>!q%=0:q%!4=-y%:q%!8=x%:q%!12=0:ș"Wimp_SetExtent",w%(0),q%
2��getw(w%(0))
2��x1%-x0%>x%:x%+=x0%:�x%=x1%
2�!�y1%-y0%>y%:y%=y1%-y%:�y%=y0%
2�1�open(w%(0),x0%,y%,x%,y1%,scx%,scy%,bhandle%)
2��
3
3"ݤht:șswi%,sd57_%,"height"�G%
3!ݤwd:șswi%,sd57_%,"width"�G%
3"=G%
3,
36*ݤbadrec(T%):=(T%�&7FFFFF00)=&7FFFFF00
3@
3J��startopen
3T%T$=�ArfVar("MultiStore$Function")
3^
Ȏ�T$�
3h"�1:�opensort1(�T$,3),7,0,"",0)
3r�
3|*unset MultiStore$Function
3�process%+=1:�
3�
3���ready
3��
3�
3�
��closeok
3�'�stop(2,"","Close file "+�filename)
3��
3�
3�ݤfilename
3�șswi%,stat_%�G%
3�=¤leaf($sd%),10)
3�
4$ݤhdbyte(T%):șswi%,sd13_%,T%�G%
4%ݤhdbyte1(T%):șswi%,sd13_%,T%�G%
4=G%
4&
40��qbscan(T$,� Q%,� B%)
4:*�I%,T%:Q%=�:B%=0:�I%=1��T$:T%=��T$,I%)
4D�T%=34:Q%=�Q%
4N	�Q%�
4X"�T%=�"(":B%+=1:��T%=�")":B%-=1
4b�
4l�:�
4v
4�&��fieldlist:�w%(2)<=0:�makeflist:�
4��front(w%(2),-1,-1):�
4�
4�=��delicon(h%,i%):!q%=h%:q%!4=i%:ș"Wimp_DeleteIcon",,q%:�
4�
4�2��loseicon(h%,i%):�geti(h%,i%):�delicon(h%,i%)
4�7q%!4=!q%:q%!8=-1E9:q%!12=-1E9:q%!16=-1E9:q%!20=-1E9
4�ș"Wimp_CreateIcon",,q%+4:�
4�
4���carddr
4��wtof(mh%):�file%>=0�
4�Ȏwind%�
4��
5�
5
Ȏmh%�
5%:�savereq("Card",&FFF,�wd*�ht,1)
5 �
5*�
54�
5>
5H
��carddr1
5R+tx0%=!q%:tx1%=q%!8:ty0%=q%!4:ty1%=q%!12
5\4�(tx0%-tx1%)<10��(ty0%-ty1%)<10:mb%=1:�select:�
5f;�cxconv(tx0%):�cxconv(tx1%):�cyconv(ty0%):�cyconv(ty1%)
5p�tx0%>tx1%:Ȕtx0%,tx1%
5z�ty0%>ty1%:Ȕty0%,ty1%
5�4�savew(f_cd$,&FFF,2,(tx1%-tx0%+1)*(ty1%-ty0%+1))
5��
5�
5���fielddr:�X%,Y%
5��wtof(mh%):�file%>=0�
5�Ȏwind%�
5�6�3:�msortw:�seti(w_sortex%,17,�fname1(menufield%))
5�:�enterfield
5��
5��
5��enterfield
5��
5��
6
6!��savedata:�q%!12<>saveref%:�
6file$=�zts(q%+44)
6$�savedata1:�
6.
68 ��savedata1:�closew(w_save%)
6B,outfile%=0:outfile%=�file$:�outfile%=0:�
6L�
6V��:��:�#outfile%:�err(0)
6`Ȏsavereason%�
6j�5:�savenotes
6t�
6~��:�#outfile%
6�/�"settype "+file$+" "+�~savetype%:�loadmess
6�savereason%=-1:�nomenu
6��
6�
6�ݤmousef
6�0�X%,Y%:X%=mx%:Y%=my%:�cyconv(Y%):�cxconv(X%)
6�
�:��:=0
6�șswi%,sd52_%,X%,Y%�G%
6�=G%
6�
6�$��dragfield:�fieldsz(menufield%)
6�9!q%=w%(0):q%!8=bx%+tx0%:q%!12=by%+ty0%:q%!16=bx%+tx1%
72q%!20=by%+ty1%:q%!24=0:q%!28=0:q%!4=5:�drag5:�
7

7��dragfield1:�Y%
7<�getw(w%(2)):Y%=by%-menufield%*linegap%-margin%+linegap%
7(Aq%!8=bx%+margin%:!q%=w%(2):q%!12=Y%-32:q%!16=bx%+ex1%-margin%
72,q%!20=Y%:q%!24=0:q%!28=0:q%!4=5:�drag5:�
7<
7F��dragcard:�dialogue:�
7P!q%=w%(0):�getw(!q%)
7Z*q%!8=mx%:q%!12=my%:q%!16=mx%:q%!20=my%
7d>q%!24=bx%+ex0%+margin%:q%!28=by%+ey1%-margin%-�ht*linegap%
7n!q%!32=bx%+ex0%+margin%+�wd*16
7x6q%!36=by%+ey1%-margin%:q%!4=6:ș"Wimp_DragBox",,q%
7��
7�
7�)��cxconv(� X%):�xconv(X%,�wd,w%(0)):�
7�)��cyconv(� Y%):�yconv(Y%,�ht,w%(0)):�
7�
7�!��yconv(� Y%,T%,h%):�getw(h%)
7�8Y%=(by%-Y%-margin%)�linegap%+1:�Y%<1Y%=1��Y%>T%Y%=T%
7��
7�
7�!��xconv(� X%,T%,h%):�getw(h%)
7�2X%=(X%-bx%-margin%)�16+1:�X%<1X%=1��X%>T%X%=T%
7��
7�
8��savew(f$,T%,r%,s%)
8�saveset(f$,T%,r%,s%)
8�dialogue(w_save%):�
8"
8,��saveset(f$,T%,r%,s%)
86&savereason%=r%:savet%=T%:saves%=s%
8@>�seti(w_save%,2,f$):$�va(w_save%,3)="sfile_"+�"00"+�~T%,3)
8J�
8T
8^��CLOSE
8h#�v_(1)>0:closeok%=�:�closefile
8r�
8|
8�
��prequit
8��v_(1)>0�ackrec:�qquit
8��
8�
8�8��ackrec:q%!12=ref%:ș"Wimp_SendMessage",19,q%,task%
8�/��qquit:�stop(6,"Close files and quit",as$)
8��
8�
8�%ݤfname(T%):șswi%,sd17_%,9,T%�G%
8�	=$sd%
8�
8�3ݤfname1(T%):�T%<0:="N%":�șswi%,sd17_%,4,T%�G%
8�.�(G%�7)=7:="@"+�fname(T%):�="#"+�fname(T%)
9
9���ass:�L%,I%,A%:�L%50:�I%=0�1:P%=L%:[opt I%*2:.search%:mov 5,#&FF:add 5,5,#&FF00:and 2,2,5:mul 9,0,3:sub 3,3,#1:add 8,1,9:.A%:ldrb 4,[8],#1:ldrb 9,[8],3:orr 4,4,9,asl #8:cmp 4,2:add 0,0,#1:bne A%:mov 15,14:]:�:�
9
9&/��flg(T%,F%):flg%=(flg%��T%)�((F%<>0)�T%):�
90ݤflg(T%)=(flg%�T%)<>0
9:
9D ݤx1(T$):�:��:��:�err(306)
9N=�x(T$)
9X
9b&ݤx(A$):�strip(A$):�A$="":�err(35)
9l;�Q%,B%,I%,z$:�qbscan(A$,Q%,B%):�Q%�err(10):��B%�err(11)
9v z$=A$:ȕ�z$,"'"):I%=�z$,"'")
9�J%=(��z$,I%+1))�&DF
9��J%<65�J%>83:�err(29)
9�*�z$+�$�tia(tw%(4),J%-65)>250:�err(30)
9�.z$=�z$,I%-1)+$�tia(tw%(4),J%-65)+�z$,I%+2)
9�/�:A$=�X(z$):�strip(A$):�A$="":�err(35):�=A$
9�
9�ݤX(A$):�z$,J%,I%:z$=A$
9� ȕ�A$,"=""*"):I%=�A$,"=""*")
9� z$=�A$,I%-1)+","""+�A$,I%+3)
9�#J%=�z$,�34,I%+2):�J%=0:�err(10)
9�/�z$,J%-1,1)="*":z$=�z$,J%-2)+�z$,J%):J%-=1
9�"z$=�z$,J%)+")"+�z$,J%+1):J%=I%
9��:I%=I%-1:�I%<0:�err(31)
:��z$,I%,1)="@"
:z$=�z$,I%-1)+"FNi("+�z$,I%)
:A$=z$:�:=A$
: 
:*ݤev(A$,s%,u%)
:4$sd%="N":�s%$sd%+="S"
:>�u%$sd%+="U"
:Hșswi%,expand_%,A$,$sd%
:R$R%=�v_(17):D%=�v_(14):N%=�v_(15)
:\
=�$sd%
:f
:pݤev3(A$,s%,u%,A%)
:z
�U%:�
:�%��:��:@%=&90A:U%=�:�<>6:�err(0)
:��U%�
:�$sd%=�ev(A$,s%,u%)
:��
:�4@%=A%:$sd%=�"               "+äev(A$,s%,u%),15)
:��s%:șswi%,strip_%
:��
:�@%=&90A:=$sd%
:�
:���wtidy
:�,�I%:�I%=2�maxw%:�w%(I%)>0�closew(w%(I%))
:��:�
:�
;*��scrollto(X%,Y%,h%):�h%<0�:��getw(h%)
;8�X%>=x0%-bx%�X%<=x1%-bx%�Y%<=y1%-by%-32�Y%>=y0%-by%�
;,scx%=X%-(x1%-x0%)�2:scy%=�Y%-(y1%-y0%)�2
;$�scx%<0scx%=0
;.�scy%<0scy%=0
;81�open(h%,x0%,y0%,x1%,y1%,scx%,-scy%,bhandle%)
;B�
;L
;V/��findct:�getct:�scrollto(q%!8,q%!12,!q%):�
;`
;j*��status:w_status%=�crwind(tw_status%)
;t�I%,T%,T$,s$:s$=�12," ")
;~�unselall(w_status%):T%=0
;��v_(1)>0�
;�T$=��filename+�11," "),11)
;�3T$+=�s$+äv_(16),10)+�s$+äv_(17),11)+" (SORT)"
;�)�T%<8:�seti(w_status%,T%+15,T$):T%+=1
;��
;�,ȕT%<8:�seti(w_status%,T%+15,""):T%+=1:�
;�#�stopboxes%:�seli(w_status%,23)
;��sound%:�seli(w_status%,24)
;�!�shadows%:�seli(w_status%,25)
;��pix%:�seli(w_status%,28)
;�$�sprsz%<=0:�shadei(w_status%,28)
;��dialogue(w_status%):�
<
<
��remove(� T$,t$):�I%
<*�I%=�T$,t$):�I%:T$=�T$,I%-1)+�T$,I%+1)
<�I%=0:�
<(
<2��oscli(T$):�T$=42:�T$:�
<<#�I%,J%:ș"Wimp_CommandWindow",1
<F�normpoint:mode%=�:�12
<P
*fx229
<Z�T$=""�
<d�novars
<n�
<x#���=17�T$="":�endoscli:�:��:�
<��T$="":�"*"T$
<�
Ȏ � �
<� � �T$=63��v_(1)=0:�(�T$,2))
<�&� �T$=63��v_(1)>0:�ev(�T$,2),0,0)
<��T$
<��
<�
�T$=""
<���
<��
<��
<���:��:�endoscli:�err(0)
<�"�=0:�T$:ș"OS_Byte",&86�,I%,J%
<�2�<150�I%+J%<>0���0<0:�''"Press a key... ";:�
=�
=�endoscli:�
=
="��endoscli:*fx229,1
=,ș"Wimp_CommandWindow",-1
=6'ș"Wimp_SetMode",mode%:�:�force(-1)
=@
�sdvars:�
=J
=T0ݤshowbranch:�readpointer:�mb%<>1�mi%<>-3:=�
=^)�T$,t$:T$=fn$::t$=�leaf(T$):�t$=T$:=�
=h(�"*filer_opendir "+�T$,�T$-�t$-1):=�
=r
=|4��newfn(� T$):�u(file$)<>"<WIMP$SCRAP>"T$=file$
=��
=�
=���readparams:�I%,F%,T$
=�@maxf%=3:maxacr%=4:maxcol%=29:avchar%=65:ctchar%=67:manual%=�
=�4stopboxes%=�:sound%=�:shadows%=�:tools%=�:pix%=�
=�clearpass%=�
=�Hsprsz%=0:dplen%=66:dpwid%=79:picpath$="<MultiStore$Dir>.^.Pictures."
=�Ff_pd$="PDriver":f_la$="LabelSet":f_wp$="WordSet":f_rp$="ReportSet"
=�=f_np$="Notepad":f_mc$="Macro":f_rx$="Report":f_cd$="Card"
=�F%=�(�dir+"Params")
=�'�F%:ȕ��#F%:�readparam(�#F%):�:�#F%
=��sprsz%<=50sprsz%=0
=��readflags:�
>
>��readparam(T$)
>T$=�s1(T$):�T$=""��T$=�";"�
>&)�V$,T%,on,off:on=�:T%=�T$," "):�T%=0�
>0&V$=�T$,T%):T$=�T$,T%-1):V$=�s1(V$)
>:T%=�V$,";"):�T%V$=�V$,T%-1)
>D�:��:��:�
>NȎ�lower(T$)�
>X�"shadow":shadows%=�V$
>b�"stopboxes":stopboxes%=�V$
>l�"sound":sound%=�V$
>v�"tools":tools%=�V$
>��"fnnotepad":f_np$=V$
>��"fnmacro":f_mc$=V$
>��"fnreport":f_rx$=V$
>��"fncard":f_cd$=V$
>��"clearpass":clearpass%=�V$
>��"pagelen":dplen%=�V$
>��"pagewid":dpwid%=�V$
>��"pictures":sprsz%=�V$
>��"labels":maxacr%=�V$
>��"columns":maxcol%=�V$-1
>��"files":maxf%=�V$-1
>�<�"average":avchar%=�V$:�avchar%<32�avchar%=127avchar%=65
>�:�"count":ctchar%=�V$:�ctchar%<32�ctchar%=127ctchar%=67
?�"manual":manual%=�V$
?�"picpath":picpath$=V$
?�:�
? 
?*!ݤs1(T$):ȕ�T$=32:T$=�T$,2):�
?4ȕ�T$)=" ":T$=�T$):�:=T$
?>
?H%��upplit(� A$):�Q%,I%,C%:�A$="":�
?R&�I%=1��A$:C%=��A$,I%):�C%=34Q%=�Q%
?\&�Q%�C%>96�C%<123�A$,I%,1)=�(C%-32)
?f�:�
?p
?z��mstore(A$,T$):�T%,B%
?��:��:��:�err(60)
?�%T$=�dir+T$:T%=�(T$):�T%=0�err(59)
?�;B%=�#T%:�#T%:�s(A$)>"":�"*Set MultiStore$Function "+A$
?��writeflags:��
?�'��error(�,�$,�,�):�report:�quit(�)
?�1�delw(w_stop%):�delw(w_save%):�delw(w_pinfo%)
?�%�delw(w_pinfo2%):�delw(w_shadow%)
?��w_sort%>0�delw(w_sort%)
?��normpoint
?�"Z%=taskhandle%:�novars:�(T$):�
?�
?� ��pdriver:�v_(1)>0�err(103)
?��mstore("1","MultiStore"):�
@
@��newdelay
@8�process%>0�startsort%�sbfile%>=0delay%=0�delay%=2E9
@$�
@.
@8'��fieldsz1(T%):�gx0%,gy0%,gx1%,gy1%
@B��fieldsz(T%)
@L�L%,X%,Y%,G%,t%
@V&�getw(w%(0)):șswi%,sd17_%,1,T%�L%
@`șswi%,sd17_%,2,T%�X%
@jșswi%,sd17_%,3,T%�Y%
@t%ș"OS_ReadModeVariable",-1,5�,,T%
@~,ty0%=(-Y%*linegap%-margin%)��((1<<T%)-1)
@�>tx0%=X%*16+margin%-16:ty1%=ty0%+linegap%:tx1%=tx0%+L%*16+2
@��
@�
@���checkconv(T$):�T%,B%
@��:��:��:�#T%:�
@� file$=T$:T%=�(file$):�T%=0:�
@�#B%=�#T%:�B%<>234�B%<>235:�#T%:�
@�B%=�#T%+�#T%+�#T%+�#T%:�#T%
@���
@� �B%=0B%=ft_form%�B%=ft_data%
@�Gmenufield%=B%:�stop(36,"Wrong file type","Convert to MultiStore ?")
@��
A
A
��transfer:�T$
A!�v_(1)>0T$=fn$:�closefile(�)
A!�mstore("1:"+T$,"MSTransfer")
A(
A2��writeflags:�T$
A<JT$=�flgstr(sound%)+�flgstr(stopboxes%)+�flgstr(shadows%)+�flgstr(pix%)
AF"�"*Set MultiStore$Flags "+T$:�
AP
AZݤflgstr(T%):�T%:="*":�="-"
Ad
An��strflg(T$,� T%)
Ax�T$="*":T%=�:��T$="-"T%=�
A��
A�
A�2��readflags:�T$:T$=�ArfVar("MultiStore$Flags")
A�7�strflg(�T$,1),sound%):�strflg(�T$,2,1),stopboxes%)
A�5�strflg(�T$,3,1),shadows%):�strflg(�T$,4,1),pix%)
A�*unset MultiStore$Flags
A��
A�
A���checkopen:�v_(1)=0:�
A�
�err(301)
A�
A���fastsort
A�'�w_sort%<0w_sort%=�crwind(tw_sort%)
B�front(w_sort%,-1,-1)
B�v_(1)=0�
B!�seti(w_sort%,2,"(NOT OPEN)")
B"#�seti(w_sort%,6,"No file open")
B,�
B6�seti(w_sort%,2,�filename)
B@$�seti(w_sort%,6,"Defining sort")
BJ�
BT�
B^
Bh)��create:�T%,B%,T$:�v_(1)>0�err(305)
Br�:��:��:�err(60)
B|-T$=�dir+"MSCreate":T%=�(T$):�T%=0�err(59)
B�B%=�#T%:�#T%:�writeflags:��
B�'��error(�,�$,�,�):�report:�quit(�)
B�1�delw(w_stop%):�delw(w_save%):�delw(w_pinfo%)
B�%�delw(w_pinfo2%):�delw(w_shadow%)
B��w_sort%>0�delw(w_sort%)
B�)�normpoint:*Set MultiStore$Function 1
B�"Z%=taskhandle%:�novars:�(T$):�
B�
B���shadeopen:�I%
B�!�I%=0�8:�shadei(w_open%,I%):�
B��shadei(w_open%,16)
B��
B�
Cݤpwcode(T$):�T$="":=""
C�A%,B%,I%:�I%=1��T$
C"�T$,I%,1)=�(��T$,I%)�(I%+173))
C&	�:=T$
C0
C:��readws:�T$,T%,I%,c%
CD;c%=�hdbyte1(53):�c%<>id_bbc%�c%<>id_wcia%�c%<>id_exb%:�
CNșswi%,sd24_%
CX�c%=id_exb%�readexbws:�
Cb+r$(0)=�gs:�I%=0�18:�note(I%,��gs,69)):�
Cle$(0)=��gs,70)
Cv'�flg(f_rspc%,�gb):�flg(f_rupp%,�gb)
C�)�flg(f_sspc%,�gb2):�flg(f_supp%,�gb2)
C�'T%=�v_(7)+5:�T%>30�c%=id_wcia%T%=30
C��I%=0�T%:ma$(I%)=�gs:�
C�șswi%,sd25_%�G%
C�/�G%=11:�flg(f_macb%,�):��G%:�flg(f_mace%,�)
C��
C�
C���readexbws:�I%,T%
C��I%=0�18:�note(I%,�gs):�
C��I%=0�29:ma$(I%)=�gs:�
C�0�I%=0�23:d$(0,I%)=�gs:�:f$(0)=�gs:fx$(0)=�gs
C�3e$(0)=�gs:�I%=0�14:w$(0,I%)=�gs:�:wo%(0)=�gw(0)
C�r%(0)=�gw(0)
D3fl%(0)=(fl%(0)��f_save%)�(�gw(f_dflt%)�f_save%)
D8�I%=0�3:t%(0,I%)=�gw(0):�:o$(0)=�gs:o%(0,0)=�gw(0)�4
D-r$(0)=�gs:sr$(0)=�gs:l$(0)=�gs:lk$(0)=�gs
D lx$(0)=�gs
D*�I%=0�5:ll%(0,I%)=�gw(0):�
D4�I%=0�15:lf%(0,I%)=�gw(0):�
D>4�I%=0�4:p%(0,I%)=�gw(0):�:�I%=0�7:p$(0,I%)=�gs:�
DHT%=�gw(0):�I%=0�T%
DR�I%<=maxcol%�
D\=c$(file%,I%,0)=�gs:c$(file%,I%,1)=�gs:c%(file%,I%)=�gw(0)
Df�
Dp!$sd%=�gs:$sd%=�gs:!sd%=�gw(0)
Dz�
D��
D�:st%(file%,0)=��gs:st%(file%,1)=��gs:st%(file%,2)=�/100
D��
D�
D�
��writews
D�
�T$,I%,c%
D�;c%=�hdbyte(&35):�c%<>id_bbc%�c%<>id_wcia%�c%<>id_exb%:�
D�șswi%,sd24_%
D��c%=id_exb%:�writeexbws:�
D�$sd%=r$(0):șswi%,sd28_%
D�D�I%=0�18:$sd%=�note(I%):șswi%,sd28_%:�:$sd%=e$(0):șswi%,sd28_%
D�+�wsb(�flg(f_rspc%)):�wsb(�flg(f_rupp%))
D�+�wsb(�flg(f_sspc%)):�wsb(�flg(f_supp%))
E'T%=�v_(7)+5:�T%>30�c%=id_wcia%T%=30
E)�I%=0�T%:$sd%=ma$(I%):șswi%,sd28_%:�
E2T%=0:�flg(f_mace%):T%=1:��flg(f_macb%):T%=11
E$șswi%,sd26_%,T%
E.�
E8
EB��writeexbws:�I%
EL�I%=0�18:�ws(�note(I%)):�
EV�I%=0�29:�ws(ma$(I%)):�
E`3�I%=0�23:�ws(d$(0,I%)):�:�ws(f$(0)):�ws(fx$(0))
Ej'�ws(e$(0)):�I%=0�14:�ws(w$(0,I%)):�
Et)�wsw(wo%(0)):�wsw(r%(0)):�wsw(fl%(0))
E~'�I%=0�3:�wsw(t%(0,I%)):�:�ws(o$(0))
E�(�wsw(o%(0,0)):�ws(r$(0)):�ws(sr$(0))
E�&�ws(l$(0)):�ws(lk$(0)):�ws(lx$(0))
E��I%=0�5:�wsw(ll%(0,I%)):�
E��I%=0�15:�wsw(lf%(0,I%)):�
E�4�I%=0�4:�wsw(p%(0,I%)):�:�I%=0�7:�ws(p$(0,I%)):�
E��wsw(maxcol%):�I%=0�maxcol%
E�>�ws(c$(file%,I%,0)):�ws(c$(file%,I%,1)):�wsw(c%(file%,I%))
E�9�:st%(file%,1)+=�/100-st%(file%,2):st%(file%,2)=�/100
E�9st%(file%,0)+=1:�ws(�st%(file%,0)):�ws(�st%(file%,1))
E��
E�
E�"ݤgb:șswi%,sd25_%�G%:=(G%=11)
F#ݤgb2:șswi%,sd25_%�G%:=(G%<>0)
F
ݤgs:șswi%,sd27_%:=$sd%
F"��ws(T$):$sd%=T$:șswi%,sd28_%
F2��wsb(T%):�T%șswi%,sd26_%,11:�șswi%,sd26_%,0
F(�
F2
F<,ݤgw(A%):�T%,I%:�I%=0�3:șswi%,sd25_%�G%
FF1T%=T%�((G%�255)<<(I%*8)):�:�T%=&0d0d0d0dT%=A%
FP=T%
FZ
Fd4��wsw(T%):�I%:�I%=0�3:G%=T%�255:șswi%,sd26_%,G%
FnT%=(T%>>8):�:�
Fx
F�0ݤnote(I%):�q%:q%=workbuf%:=$�tia(tw%(4),I%)
F�
F�!��note(I%,T$):�q%:q%=workbuf%
F�7�w%(4)>0�seti(w%(4),I%,T$)�$�tia(tw%(4),I%)=�T$,80)
F��
F�
F�(��loadnotes:�I%,T%:T%=�file$:�T%=0:�
F� ȕ��#T%�I%<19:�note(I%,�#T%)
F�-I%+=1:�:�#T%:ȕI%<19:�note(I%,""):I%+=1:�
F��noscrap:�newfn(f_np$):�
F�
F�ݤsubstr:șswi%,sd53_%�G%
F�=$(sd%+16)
G
G%ݤsubname(s%):șswi%,sd53_%,s%�G%
G	=$sd%
G"
G,ݤsubdesc1(T%)
G6�T%=0:="All Cards"
G@)�T%>255:="Numeric: "+�subname(T%-256)
GJ#T$="":�T%>31:T%=T%�31:T$="NOT "
GT=T$+"Subset "+�(T%+65)
G^
Ghݤsubdesc2(T%)
Gr�T$
G|
Ȏ � �
G�&�T%=0�T%=32:T$="All cards in file"
G��T%>32�T%<64
G�T$=d$(0,T%-33)
G�4�T$="":T$=�subdesc1(T%):��T$<21T$="NOT("+T$+")"
G�5�T%>0�T%<32:T$=d$(0,T%-1):�T$="":T$=�subdesc1(T%)
G�2�T%>255:T$="Numeric subset: "+�subname(T%-256)
G�
T$=""
G��
G�=T$
G�
G�0ݤsubdesc4(T%):�T%>255:="^"+�subname(T%-256)
G��T%<31:="^"+�(T%+65)
G�="(^"+�(T%+33)+"=0)"
H
H��ptrexit(h%)
H-�sbfile%>=0:�subdisp:sbfile%=-1:�newdelay
H&�
H0
H:��ptrenter(h%)
HD�wtof(h%):�file%>=0�
HN-�wind%=1:sbfile%=file%:�subdisp:�newdelay
HX�
Hb�
Hl
Hv,��subdisp1:�sbfile%:sbfile%=0:�subdisp:�
H�
H���subdisp:�sbfile%<0:�
H��T$,T%,C%:�w%(1)<=0:�
H��readpointer:�wtof(mh%)
H�:T%=&F000000:�wind%=1�file%=sbfile%:T$=�subdesc2(�itos)
H�7C%=&D000000:�T$=""C%=&7000000:T$=�subdesc2(�v_(11))
H�7�geti(w%(1),0):�(q%!24�T%)<>C%:�iset(w%(1),0,T%,C%)
H�(�T$<>$�ia(w%(1),0):�seti(w%(1),0,T$)
H��
H�
H�
ݤitos
H��mi%>4�mi%<29:=mi%-4+32
H��mi%>28�mi%<53:=mi%-28
I
�mi%=1:=0
I�mi%>52�mi%<63:=mi%-53+256
I=-1
I 
I**��selsub(s%):�s%>255�s%<0�s%=�v_(11):�
I4șswi%,subset_%,s%
I>�w%(3)>0�force(w%(3))
IH�showsub:�
IR
I\��expandsort
If�
Ip ��:��:ox$(0)=""""+�$+"""":�
Izox$(0)=�x1(o$(0)):�
I�
I�
��sd35
I�D%=�v_(14):N%=�v_(15)
I��N%=0�D%=0:G%=1:�
I��badrec(N%)�
I��badrec(D%):G%=1:�G%=0
I��
I�șswi%,sd35_%,N%�G%
I��
I��
I�
I�*ݤbadrec(T%):=(T%�&7FFFFF00)=&7FFFFF00
I�
J��scrsz
JH!workbuf%=4:workbuf%!4=5:workbuf%!8=11:workbuf%!12=12:workbuf%!16=-1
J0ș"OS_ReadVduVariables",workbuf%,workbuf%+24
J$Iq%!32=(workbuf%!32)<<(workbuf%!24):q%!36=(workbuf%!36)<<(workbuf%!28)
J.�
J8
JB
��expr
JL"dialreason%=r%:dialfile%=file%
JV�T%,T$,A$,t$,s%,u%,a%
J`CT$=�filename:w_sortex%=�crwind(tw_sortex%):�unselall(w_sortex%)
JjT$=fi$+T$+", sort by:"
JtA$=o$(0):exi0%=17
J~s%=(o%(0,0)�4)<>0
J�u%=(o%(0,0)�2)<>0
J�a%=(o%(0,0)�1)<>0
J�8�seti(w_sortex%,16,T$):�seti(w_sortex%,17,A$):ex$=A$
J��s%�seli(w_sortex%,1)
J��u%�seli(w_sortex%,0)
J��a%�seli(w_sortex%,19)
J�*�seti(w_sortex%,20,�subdesc1(�v_(11)))
J��dialogue(w_sortex%):�
J�
J�ݤenterfield
J��W%,T%,T$,t$:��PHM
J��:�readh(W%):�W%<>mh%�
K�W%<>-1:�:�W%,T%:�W%<0:W%=0
K
�
K�:�W%,T%:�W%=mi%�W%<0
K�W%=mi%�
K(	ȎT%�
K2�1,4
K<?T$=�addfield($�ia(mh%,mi%),menufield%)+T$:�seti(mh%,mi%,T$)
KF9�6:�seti(mh%,mi%,�addfield($�ia(mh%,mi%),menufield%))
KP�
KZ�
Kd=�
Kn�
Kx	�W%<0
K�=�
K�
K�ݤenternote
K��W%,T%:��PHM
K��:�readh(W%):�W%<>mh%�
K��W%<>-1:�:�W%,T%:�W%<0:W%=0
K��
K��:�W%,T%:�W%=mi%�W%<0
K��W%=mi%�
K�	ȎT%�
K��1,4,6,7
K��dragbutton%=64�
K�P�mi%<>menufield%�mh%<>w%(4)�seti(mh%,mi%,$�ia(mh%,mi%)+"'"+�(menufield%+65))
L�
L$�seti(mh%,mi%,�note(menufield%))
L�
L"�
L,�
L6=�
L@�
LJ	�W%<0
LT=�
L^
Lhݤentersub
Lr�W%,T%:��PHM
L|�:�readh(W%):�W%<>mh%�
L��W%<>-1:�:�W%,T%:�W%<0:W%=0
L��
L��:�W%,T%:�W%=mi%�W%<0
L��W%=mi%�
L�	ȎT%�
L�7�1:�seti(mh%,mi%,$�ia(mh%,mi%)+�subdesc4(menusub%))
L��2:�sfsub(menusub%)
L��
L��
L�=�
L��
L�	�W%<0
L�=�
M#�w_sortex%,17,1,20,2,21,3,-1,-1
Mg�"w%(4)",0,1,1,1,2,1,3,1,4,1,5,1,6,1,7,1,8,1,9,1,10,1,11,1,12,1,13,1,14,1,15,1,16,1,17,1,18,1,-1,-1
M�-1
M&
M0)��sfsub(T%):�T%>255�(T%�31)=�v_(11):�
M:%�seti(w_sortex%,20,�subdesc1(T%))
MD�selsub(T%):�
MN
MX��subsdr
Mb
�T%,T$
Ml#�subdisp1:�wtof(mh%):�file%>=0�
MvȎwind%�
M��0:�selsub(menusub%)
M�:�entersub
M��
M��
M�
Ȏmh%�
M�:笤entersub
M��
M��
M��
M�
M���readh(� T%)
M��T$:�T$:T%=�T$
M��
N
N
��notepad
N�w%(4)<=0:�makenotes:�
N �front(w%(4),-1,-1)
N*�
N4
N>-��clearnpad:�I%:�I%=0�18:�note(I%,""):�:�
NH
NR��savenotes
N\+�I%:�I%=0�18:�dprint(�s(�note(I%))):�:�
Nf
Np"��dprint1(T$):�#outfile%,T$;:�
Nz&��dprint(T$):�dprint1(T$):�dnewl:�
N���dnewl:�#outfile%,"":�
N�
N�ݤcancel:�X%,Y%,B%,T%,I%,A$
N�ȗX%,Y%,B%
N�<�B%�5:T%=X%>=sortx0%�X%<=sortx1%�Y%>=sorty0%�Y%<=sorty1%
N��0<>27��T%:=�
N��normpoint
N�'�+1:�I%=1�5:�A$:�tsortmess(I%,A$):�
N��:ȗX%,Y%,B%:�B%=0��0<0
N�&�:ȗX%,Y%,B%:T%=�0:�(B%�5)�(T%>=0)
N��restorem:T%=T%=27
N�A�T%T%=(B%�5)�X%>=sortx0%�X%<=sortx1%�Y%>=sorty0%�Y%<=sorty1%
N��waitpoint
O=T%
O�" Really interrupt sort ?"
O�
O$&�"  � Click [Cancel] to interrupt"
O.&�"  � Click any other to continue"
O8�
OB
OL"��interrupt:�cancel:�err(308)
OV.��clearmess:�I%:�I%=1�5:�sortmess(I%,""):�
O`,��newmess(A$):�clearmess:�sortmess(1,A$)
Oj�
Ot
O~��sortmess(I%,A$):�T%:T%=�
O���tsortmess(I%,A$):�T%:T%=�
O��I%>5�I%<1:�
O�&�Y%:Y%=sorty%+sorth%-I%*linegap%-8
O�.�gcol(0,2):ȓȐsortx%,Y%,sortw%,linegap%-4
O�)�gcol(0,7):�sortx%+8,Y%+linegap%-4:�5
O��T%sortm$(I%-1)=A$
O�
�A$;:�
O�
O���restorem
O�.�I%:�I%=1�5:�sortmess(I%,sortm$(I%-1)):�:�
O�
O�
��endsort
P%�A$,T$:A$="          ":T$=�10+�13
P
0time$=T$+"Fill buffer: "+�A$+�`(t1%)+"s",12)
P1time$+=T$+"Sort buffer: "+�A$+�`(t2%)+"s",12)
P1time$+=T$+"Swap cards:  "+�A$+�`(t3%)+"s",12)
P()time$+=T$+"             ------------"
P29time$+=T$+"Total:       "+�A$+�`(t1%+t2%+t3%)+"s",12)
P<)time$+=T$+"             ------------"
PFStime$+=T$+T$+"("+�entries%+" slots of "+�Z%+" bytes; top="+�(sortsz%�minZ%)+")"
PP"�normpoint:�iconupd(w_sort%,6)
PZ�w%(3)>0�force(w%(3))
Pdșswi%,grec_%,0�N%
Pnșswi%,sd38_%,255
Pxșswi%,sd38_%,255
P��
P�
P���sortfile
P��I%
P��
P���:��:�endsort:�err(307)
P�minZ%=7
P��waitpoint:�getw(w_sort%)
P�6sortx%=bx%+12:sorty%=by%-450:sortw%=537:sorth%=209
P�Csortx0%=bx%+384:sorty0%=by%-196:sortx1%=bx%+491:sorty1%=by%-148
P�5�clearmess:maxslots%=�v_(17):Z%=sortsz%�maxslots%
P�+�Z%<minZ%:Z%=minZ%:maxslots%=sortsz%�Z%
P��Z%>300Z%=300
Q#�maxslots%>65535maxslots%=65535
Q�sorttype:t1%=0:t2%=0:t3%=0
Q2�newmess("Reading sort information"):�fillbuff
Q"&�newmess("Sorting data"):�sortbuff
Q,'�newmess("Writing file"):�writeptrs
Q6�endsort:�
Q@
QJ��fillbuff
QT!�sortmess(3,"  Card number:")
Q^entries%=0
Qhșswi%,first_%�,N%
Qrșswi%,sd23_%�N%
Q|șswi%,next_%�N%
Q�t1%=�:ȕ��badrec(�v_(15))
Q�!�entries%>maxslots%:�err(309)
Q�E�(entries%�15)=0:�sortmess(4,"              "+�(�v_(17)-�v_(15)))
Q�.�fillslot(entries%):entries%+=1:�interrupt
Q�șswi%,next_%�N%
Q��:t1%=�-t1%
Q��entries%<2�err(310)
Q��
Q�
Q���sortbuff
Q�%�A%,I%,J%,K%,M%,P%,T%,I$,L$,T$,L%
Q�A%=-1:�o%(0,0)�1:A%=1
Q�mrecs%=entries%
R%M%=mrecs%�2:�:M%=M%�2:L%+=1:�M%=0
RM%=mrecs%�2:t2%=�
R
ȕM%>0
R&&�sortmess(3,"  Level  "+�L%):L%-=1
R0J%=1:K%=mrecs%-M%
R:ȕJ%<=K%
RD<�(J%�127)=1:�sortmess(4,"  Record "+�(K%-J%)):�interrupt
RN	I%=J%
RXP%=I%+M%
Rb
ȕI%>0
RlT%=�comp(I%,P%)
Rv&�T%=A%:�swap(I%,P%):I%-=M%:�:I%=-1
R�P%=I%+M%
R��
R�	J%+=1
R��
R�M%=M%�2
R��:t2%=�-t2%
R��
R�
R���writeptrs
R�șswi%,first_%�,N%
R�$�I%,A%,B%,C%,D%,T%,on%,nn%:B%=V%
R�t3%=�:�I%=1�entries%
R�A�(I%�31)=1�sortmess(3,"   Record "+�(entries%-I%)):�interrupt
Sșswi%,next_%�N%
S(on%=�v_(15):nn%=!(B%+I%*Z%-Z%)�&FFFF
S�on%<>nn%�
S șswi%,sd32_%,on%,nn%
S*"A%=I%:C%=on%:D%=Z%:T%=�search%
S4�swap(I%,T%)
S>șswi%,grec_%,on%�N%
SH�
SR�
S\t3%=�-t3%:�
Sf�
Sp
Sz��fillslot(T%)
S�"�A%,T$:A%=T%*Z%+V%:!A%=�v_(15)
S�Ȏtype%�
S��0:șswi%,gfield_%,field%
S� �remove($sd%,"."):A%!2=�$sd%
S��1:șswi%,gfield_%,field%
S��o%(0,0)�2:șswi%,upper_%
S��o%(0,0)�4:șswi%,strip_%
S�$(A%+2)=�$sd%,Z%-2)
S�.�2:|(A%+2)=�ev(ox$(0),o%(0,0)�4,o%(0,0)�2)
S�5�3:$(A%+2)=��ev(ox$(0),o%(0,0)�4,o%(0,0)�2),Z%-2)
S��:�
S�
S�ݤslotval(A%)
TȎtype%�
T�0:=A%!2
T0�1,3:�T$,T%:T%=A%?Z%:T$=$(A%+2):A%?Z%=T%:=T$
T$�2:=|(A%+2)
T.	�:=""
T8
TBݤcomp(A%,B%):�A,B,A$,B$,T%
TL!A%=V%+A%*Z%-Z%:B%=V%+B%*Z%-Z%
TVȎtype%�
T`7�0:A%=�slotval(A%):B%=�slotval(B%):=(A%<B%)-(A%>B%)
Tj1�2:A=�slotval(A%):B=�slotval(B%):=(A<B)-(A>B)
Tt�
T~<A$=�slotval(A%):B$=�slotval(B%):�A$<>B$:=(A$<B$)-(A$>B$)
T��A$<Z%-2:=0
T�'A%=!A%:B%=!B%:șswi%,locate_%,A%�D%
T�<A$=�ev(ox$(0),o%(0,0)�4,o%(0,0)�2):șswi%,locate_%,B%�D%
T�7B$=�ev(ox$(0),o%(0,0)�4,o%(0,0)�2):=(A$<B$)-(A$>B$)
T�
T���swap(A%,B%)
T�!A%=V%+A%*Z%-Z%:B%=V%+B%*Z%-Z%
T�"Ȕ?A%,?B%:ȔA%?1,B%?1:Ȏtype%�
T��0:ȔA%!2,B%!2
T��2:Ȕ|(A%+2),|(B%+2)
T��1,3
T�
�T%,U%
U-T%=?(A%+Z%):U%=?(B%+Z%):Ȕ$(A%+2),$(B%+2)
U
?(A%+Z%)=T%:?(B%+Z%)=U%
U�
U�
U(
U2��sorttype
U<�T$:T$=ox$(0)
UFșswi%,sd59_%,T$�G%
UP�G%<-1�
UZfield%=G%�&FFFFFF
Udșswi%,sd17_%,4,field%�G%
Un�(G%�7)=7:type%=1:�type%=0
Ux�
U�
field%=-1
U�type%=�exprtype
U��
U��
U�
U�ݤexprtype:�T$
U� �:��:��:�=6:=2:��err(306)
U�T$=�ev(ox$(0),�,�):=3
U�
U���novars
U��
U�
U���picpath:�T$:�file$>230:�
V;T$=�ArfVar("MultiStorePics$Path"):秤u(T$),�u(file$)):�
Vfile$+=".":ȕ�T$+�file$>229
V%�:T$=�T$):��T$)=","�T$="":T$=�T$)
V"�:�T$>"":file$+=","
V,(�"Set MultiStorePics$Path "+file$+T$
V6+�I%=0�maxf%:�w%(I%,0)>0�force(w%(I%,0))
V@�:�
VJ
VTݤaddfield(T$,T%)
V^(�C%,t$,A$:t$=T$:ȕ�t$)=" ":t$=�t$):�
Vh�t$="":=�fname1(T%)
Vr%��t$)="@"��t$)="#":=t$+�fname(T%)
V|!C%=�:�+1:�:�A$:C%=�t$,�A$)=A$
V��C%�A$="****":�C%T$+="+"
V� �T$,"@"):=T$+"@"+�fname(T%)
V� �T$,"#"):=T$+"#"+�fname(T%)
V�=T$+�fname1(T%)
V�,�+,-,*,/,AND,OR,NOT,>,<,=,(,",",":",****
�

00000000  0d 00 0a 22 f4 3e 20 3c  4d 75 6c 74 69 53 74 6f  |...".> <MultiSto|
00000010  72 65 24 44 69 72 3e 2e  4d 53 46 61 73 74 53 6f  |re$Dir>.MSFastSo|
00000020  72 74 0d 00 14 3f f4 20  20 42 79 20 4d 65 72 6c  |rt...?.  By Merl|
00000030  79 6e 20 4b 6c 69 6e 65  20 66 6f 72 20 43 6f 70  |yn Kline for Cop|
00000040  79 72 69 67 68 74 20 28  63 29 20 4d 69 6e 65 72  |yright (c) Miner|
00000050  76 61 20 53 6f 66 74 77  61 72 65 2c 20 31 39 38  |va Software, 198|
00000060  39 0d 00 1e 18 3a 20 20  20 20 76 65 72 73 69 6f  |9....:    versio|
00000070  6e 24 3d 22 32 2e 30 32  22 0d 00 28 04 0d 00 32  |n$="2.02"..(...2|
00000080  17 ee 85 3a f2 65 72 72  6f 72 28 9f 2c f6 24 2c  |...:.error(.,.$,|
00000090  9e 2c b9 29 0d 00 3c 09  f2 69 6e 69 74 0d 00 46  |.,.)..<..init..F|
000000a0  33 ee 85 3a f2 65 72 72  6f 72 28 9f 2c f6 24 2c  |3..:.error(.,.$,|
000000b0  9e 2c 70 72 6f 63 65 73  73 25 3c 34 80 70 72 6f  |.,process%<4.pro|
000000c0  63 65 73 73 25 3e 30 29  3a f2 72 65 70 6f 72 74  |cess%>0):.report|
000000d0  0d 00 50 0e f2 6e 6f 72  6d 70 6f 69 6e 74 0d 00  |..P..normpoint..|
000000e0  5a 04 0d 00 64 05 f5 0d  00 6e 18 e7 70 72 6f 63  |Z...d....n..proc|
000000f0  65 73 73 25 3e 30 3a f2  70 72 6f 63 65 73 73 0d  |ess%>0:.process.|
00000100  00 78 28 c8 99 22 57 69  6d 70 5f 50 6f 6c 6c 49  |.x(.."Wimp_PollI|
00000110  64 6c 65 22 2c 2c 71 25  2c 64 65 6c 61 79 25 b8  |dle",,q%,delay%.|
00000120  72 65 61 73 6f 6e 25 0d  00 82 32 e7 74 61 73 6b  |reason%...2.task|
00000130  68 61 6e 64 6c 65 25 3e  30 3a c8 99 73 77 69 25  |handle%>0:..swi%|
00000140  2c 73 65 6c 65 63 74 74  61 73 6b 5f 25 2c 74 61  |,selecttask_%,ta|
00000150  73 6b 68 61 6e 64 6c 65  25 0d 00 8c 15 f2 72 65  |skhandle%.....re|
00000160  73 70 6f 6e 64 28 72 65  61 73 6f 6e 25 29 0d 00  |spond(reason%)..|
00000170  96 0a fd 71 75 69 74 25  0d 00 a0 13 f2 43 4c 4f  |...quit%.....CLO|
00000180  53 45 3a f2 71 75 69 74  28 a3 29 0d 00 aa 05 e0  |SE:.quit(.).....|
00000190  0d 00 b4 04 0d 00 be 16  dd f2 72 65 73 70 6f 6e  |..........respon|
000001a0  64 28 72 65 61 73 6f 6e  25 29 0d 00 c8 17 e7 72  |d(reason%).....r|
000001b0  65 61 73 6f 6e 25 3a f2  77 61 69 74 70 6f 69 6e  |eason%:.waitpoin|
000001c0  74 0d 00 d2 0e c8 8e 72  65 61 73 6f 6e 25 ca 0d  |t......reason%..|
000001d0  00 dc 11 c9 20 30 3a f2  62 61 63 6b 67 72 6e 64  |.... 0:.backgrnd|
000001e0  0d 00 e6 12 c9 20 31 3a  f2 72 65 64 72 61 77 28  |..... 1:.redraw(|
000001f0  a3 29 0d 00 f0 3a c9 20  32 3a f2 6f 70 65 6e 28  |.)...:. 2:.open(|
00000200  21 71 25 2c 71 25 21 34  2c 71 25 21 38 2c 71 25  |!q%,q%!4,q%!8,q%|
00000210  21 31 32 2c 71 25 21 31  36 2c 71 25 21 32 30 2c  |!12,q%!16,q%!20,|
00000220  71 25 21 32 34 2c 71 25  21 32 38 29 0d 00 fa 14  |q%!24,q%!28)....|
00000230  c9 20 33 3a f2 63 6c 6f  73 65 77 28 21 71 25 29  |. 3:.closew(!q%)|
00000240  0d 01 04 15 c9 20 34 3a  f2 70 74 72 65 78 69 74  |..... 4:.ptrexit|
00000250  28 21 71 25 29 0d 01 0e  16 c9 20 35 3a f2 70 74  |(!q%)..... 5:.pt|
00000260  72 65 6e 74 65 72 28 21  71 25 29 0d 01 18 2f c9  |renter(!q%).../.|
00000270  20 36 3a f2 6d 6f 75 73  65 28 21 71 25 2c 71 25  | 6:.mouse(!q%,q%|
00000280  21 34 2c 71 25 21 38 2c  71 25 21 31 32 2c 71 25  |!4,q%!8,q%!12,q%|
00000290  21 31 36 2c 71 25 21 32  30 29 0d 01 22 10 c9 20  |!16,q%!20)..".. |
000002a0  37 3a f2 65 6e 64 64 72  61 67 0d 01 2c 33 c9 20  |7:.enddrag..,3. |
000002b0  38 3a f2 6b 65 79 28 21  71 25 2c 71 25 21 34 2c  |8:.key(!q%,q%!4,|
000002c0  71 25 21 38 2c 71 25 21  31 32 2c 71 25 21 31 36  |q%!8,q%!12,q%!16|
000002d0  2c 71 25 21 32 30 2c 71  25 21 32 34 29 0d 01 36  |,q%!20,q%!24)..6|
000002e0  13 c9 20 39 3a f2 6d 65  6e 75 73 65 6c 65 63 74  |.. 9:.menuselect|
000002f0  0d 01 40 12 c9 31 37 2c  31 38 3a f2 75 6d 65 73  |..@..17,18:.umes|
00000300  73 31 0d 01 4a 0f c9 31  39 3a f2 75 6d 65 73 73  |s1..J..19:.umess|
00000310  32 0d 01 54 05 cb 0d 01  5e 0e f2 6e 6f 72 6d 70  |2..T....^..normp|
00000320  6f 69 6e 74 0d 01 68 05  e1 0d 01 72 04 0d 01 7c  |oint..h....r...||
00000330  21 dd f2 71 75 69 74 28  54 25 29 3a f2 6e 6f 72  |!..quit(T%):.nor|
00000340  6d 70 6f 69 6e 74 3a f2  6e 6f 76 61 72 73 0d 01  |mpoint:.novars..|
00000350  86 31 24 71 25 3d 22 54  41 53 4b 22 3a c8 99 22  |.1$q%="TASK":.."|
00000360  57 69 6d 70 5f 43 6c 6f  73 65 44 6f 77 6e 22 2c  |Wimp_CloseDown",|
00000370  74 61 73 6b 68 61 6e 64  6c 65 25 2c 21 71 25 0d  |taskhandle%,!q%.|
00000380  01 90 16 e7 54 25 84 a4  64 65 62 75 67 3a f2 74  |....T%..debug:.t|
00000390  69 64 79 3a e0 0d 01 9a  21 c8 99 73 77 69 25 2c  |idy:....!..swi%,|
000003a0  6b 69 6c 6c 74 61 73 6b  5f 25 2c 74 61 73 6b 68  |killtask_%,taskh|
000003b0  61 6e 64 6c 65 25 0d 01  a4 06 c8 98 0d 01 ae 04  |andle%..........|
000003c0  0d 01 b8 11 dd a4 74 61  73 6b 3d 6f 74 61 73 6b  |......task=otask|
000003d0  25 0d 01 c2 04 0d 01 cc  1d dd f2 69 6e 69 74 3a  |%..........init:|
000003e0  6f 74 61 73 6b 25 3d 5a  25 3a f2 73 77 69 6e 75  |otask%=Z%:.swinu|
000003f0  6d 73 0d 01 d6 21 61 70  70 6c 24 3d 22 4d 75 6c  |ms...!appl$="Mul|
00000400  74 69 53 74 6f 72 65 22  3a 70 73 74 72 65 61 6d  |tiStore":pstream|
00000410  25 3d 30 0d 01 e0 27 de  20 71 25 20 32 35 30 30  |%=0...'. q% 2500|
00000420  2c 20 77 6f 72 6b 62 75  66 25 20 31 35 30 30 2c  |, workbuf% 1500,|
00000430  64 69 61 6c 63 74 25 20  32 34 0d 01 ea 37 77 61  |dialct% 24...7wa|
00000440  69 74 65 72 25 3d 30 3a  66 69 6c 65 25 3d 2d 31  |iter%=0:file%=-1|
00000450  3a 76 25 3d a4 69 6e 69  74 77 69 6d 70 3a e7 76  |:v%=.initwimp:.v|
00000460  25 3c 31 38 30 3a eb 31  32 3a f2 65 72 72 28 32  |%<180:.12:.err(2|
00000470  29 0d 01 f4 21 f2 77 61  69 74 70 6f 69 6e 74 3a  |)...!.waitpoint:|
00000480  c8 9b 28 a4 64 69 72 2b  22 42 61 73 65 4c 69 62  |..(.dir+"BaseLib|
00000490  22 29 0d 01 fe 1f c8 9b  28 a4 64 69 72 2b 22 53  |")......(.dir+"S|
000004a0  77 69 4c 69 73 74 22 29  3a f2 73 77 69 6c 69 73  |wiList"):.swilis|
000004b0  74 0d 02 08 27 71 75 69  74 25 3d a3 3a 64 69 61  |t...'quit%=.:dia|
000004c0  6c 72 65 61 73 6f 6e 25  3d 2d 31 3a 64 69 61 6c  |lreason%=-1:dial|
000004d0  6f 67 75 65 25 3d 2d 31  0d 02 12 1c 61 63 6b 70  |ogue%=-1....ackp|
000004e0  65 6e 64 69 6e 67 25 3d  a3 3a 61 63 6b 72 65 66  |ending%=.:ackref|
000004f0  25 3d 2d 31 0d 02 1c 12  64 72 61 67 72 65 61 73  |%=-1....dragreas|
00000500  6f 6e 25 3d 2d 31 0d 02  26 12 73 61 76 65 72 65  |on%=-1..&.savere|
00000510  61 73 6f 6e 25 3d 2d 31  0d 02 30 19 66 69 6c 65  |ason%=-1..0.file|
00000520  32 25 3d 2d 31 3a 72 65  61 73 6f 6e 32 25 3d 2d  |2%=-1:reason2%=-|
00000530  31 0d 02 3a 1c 6d 65 6e  75 66 69 6c 65 25 3d 2d  |1..:.menufile%=-|
00000540  31 3a 6d 65 6e 75 73 75  62 25 3d 2d 31 0d 02 44  |1:menusub%=-1..D|
00000550  0e 63 6c 6f 73 65 6f 6b  25 3d a3 0d 02 4e 29 73  |.closeok%=...N)s|
00000560  62 66 69 6c 65 25 3d 2d  31 3a 70 61 73 73 24 3d  |bfile%=-1:pass$=|
00000570  22 22 3a 65 78 69 30 25  3d 2d 31 3a 65 78 69 31  |"":exi0%=-1:exi1|
00000580  25 3d 2d 31 0d 02 58 22  c8 99 22 4f 53 5f 42 79  |%=-1..X".."OS_By|
00000590  74 65 22 2c 31 38 32 2c  30 2c 32 35 35 20 b8 2c  |te",182,0,255 .,|
000005a0  70 74 65 72 6d 25 0d 02  62 30 e7 28 70 74 65 72  |pterm%..b0.(pter|
000005b0  6d 25 80 26 38 30 29 3d  30 c8 99 22 4f 53 5f 42  |m%.&80)=0.."OS_B|
000005c0  79 74 65 22 2c 32 34 36  2c 30 2c 32 35 35 b8 2c  |yte",246,0,255.,|
000005d0  70 74 65 72 6d 25 0d 02  6c 20 e7 70 74 65 72 6d  |pterm%..l .pterm|
000005e0  25 3d 31 30 70 74 65 72  6d 25 3d 31 3a 8b 70 74  |%=10pterm%=1:.pt|
000005f0  65 72 6d 25 3d 32 0d 02  76 24 69 64 5f 77 63 69  |erm%=2..v$id_wci|
00000600  61 25 3d 34 32 3a 69 64  5f 65 78 62 25 3d 34 33  |a%=42:id_exb%=43|
00000610  3a 69 64 5f 62 62 63 25  3d 30 0d 02 80 1a de 20  |:id_bbc%=0..... |
00000620  65 64 62 75 66 25 20 32  35 36 2c 65 64 76 61 6c  |edbuf% 256,edval|
00000630  25 20 31 35 0d 02 8a 3f  65 64 66 69 65 6c 64 25  |% 15...?edfield%|
00000640  3d 2d 31 3a 65 64 69 63  6f 6e 25 3d 2d 31 3a 65  |=-1:edicon%=-1:e|
00000650  64 72 65 63 25 3d 2d 31  3a 65 64 78 25 3d 2d 31  |drec%=-1:edx%=-1|
00000660  3a 24 65 64 76 61 6c 25  3d 22 61 30 2d 39 5c 2d  |:$edval%="a0-9\-|
00000670  2b 2e 22 0d 02 94 26 73  73 25 3d 31 32 3a 6c 63  |+."...&ss%=12:lc|
00000680  25 3d 33 3a f2 72 65 61  64 70 61 72 61 6d 73 3a  |%=3:.readparams:|
00000690  f2 66 69 6c 65 76 61 72  73 0d 02 9e 2a f2 6c 6f  |.filevars...*.lo|
000006a0  61 64 73 70 72 69 74 65  73 3a f2 64 65 66 77 73  |adsprites:.defws|
000006b0  3a f2 64 65 66 6d 65 6e  75 73 3a f2 76 65 72 73  |:.defmenus:.vers|
000006c0  69 6f 6e 0d 02 a8 24 70  72 6f 63 65 73 73 25 3d  |ion...$process%=|
000006d0  31 3a 63 68 65 63 6b 72  65 66 25 3d 2d 31 3a 64  |1:checkref%=-1:d|
000006e0  65 6c 61 79 25 3d 30 0d  02 b2 2b 6c 61 73 74 61  |elay%=0...+lasta|
000006f0  63 74 25 3d 30 3a 63 68  75 6e 6b 25 3d 37 3a 66  |ct%=0:chunk%=7:f|
00000700  6e 24 3d 22 22 3a 73 74  61 72 74 73 6f 72 74 25  |n$="":startsort%|
00000710  3d a3 0d 02 bc 49 61 73  24 3d 22 41 72 65 20 79  |=....Ias$="Are y|
00000720  6f 75 20 73 75 72 65 20  3f 22 3a 72 6c 24 3d 22  |ou sure ?":rl$="|
00000730  52 65 61 6c 6c 79 20 22  3a 72 69 24 3d 72 6c 24  |Really ":ri$=rl$|
00000740  2b 22 69 6e 74 65 72 72  75 70 74 20 3f 22 3a 66  |+"interrupt ?":f|
00000750  69 24 3d 22 46 69 6c 65  3a 20 22 0d 02 c6 1d 73  |i$="File: "....s|
00000760  79 24 3d 22 53 6f 72 72  79 21 20 22 3a de 20 73  |y$="Sorry! ":. s|
00000770  6f 72 74 6d 24 28 34 29  0d 02 d0 27 ef 32 33 2c  |ortm$(4)...'.23,|
00000780  32 35 35 2c 30 2c 31 32  36 2c 31 32 36 2c 31 32  |255,0,126,126,12|
00000790  36 2c 31 32 36 2c 31 32  36 2c 31 32 36 2c 30 0d  |6,126,126,126,0.|
000007a0  02 da 25 73 6f 72 74 73  7a 25 3d 93 2d b8 50 2d  |..%sortsz%=.-.P-|
000007b0  36 30 2a 31 30 32 34 3a  de 20 56 25 20 73 6f 72  |60*1024:. V% sor|
000007c0  74 73 7a 25 0d 02 e4 13  f2 61 73 73 3a f2 62 61  |tsz%.....ass:.ba|
000007d0  72 69 63 6f 6e 3a e1 0d  02 ee 04 0d 02 f8 0d dd  |ricon:..........|
000007e0  f2 73 77 69 6e 75 6d 73  0d 03 02 05 e1 0d 03 0c  |.swinums........|
000007f0  04 0d 03 16 0e dd f2 66  69 6c 65 76 61 72 73 0d  |.......filevars.|
00000800  03 20 2f 66 74 5f 66 6f  72 6d 25 3d 26 44 45 37  |. /ft_form%=&DE7|
00000810  3a 66 74 5f 64 61 74 61  25 3d 26 44 45 38 3a 6d  |:ft_data%=&DE8:m|
00000820  61 78 77 25 3d 34 3a 6d  61 78 66 25 3d 30 0d 03  |axw%=4:maxf%=0..|
00000830  2a 24 de 20 77 25 28 6d  61 78 77 25 29 2c 6d 61  |*$. w%(maxw%),ma|
00000840  24 28 33 30 29 2c 73 74  25 28 6d 61 78 66 25 2c  |$(30),st%(maxf%,|
00000850  32 29 0d 03 34 3e de 20  66 6c 25 28 6d 61 78 66  |2)..4>. fl%(maxf|
00000860  25 29 2c 64 24 28 6d 61  78 66 25 2c 32 33 29 2c  |%),d$(maxf%,23),|
00000870  66 24 28 6d 61 78 66 25  29 2c 66 78 24 28 6d 61  |f$(maxf%),fx$(ma|
00000880  78 66 25 29 2c 74 25 28  6d 61 78 66 25 2c 33 29  |xf%),t%(maxf%,3)|
00000890  0d 03 3e 24 de 20 74 77  25 28 6d 61 78 77 25 29  |..>$. tw%(maxw%)|
000008a0  2c 65 24 28 6d 61 78 66  25 29 2c 72 25 28 6d 61  |,e$(maxf%),r%(ma|
000008b0  78 66 25 29 0d 03 48 32  de 20 6c 24 28 6d 61 78  |xf%)..H2. l$(max|
000008c0  66 25 29 2c 6c 78 24 28  6d 61 78 66 25 29 2c 6c  |f%),lx$(maxf%),l|
000008d0  6b 24 28 6d 61 78 66 25  29 2c 77 24 28 6d 61 78  |k$(maxf%),w$(max|
000008e0  66 25 2c 31 34 29 0d 03  52 48 de 20 77 6f 25 28  |f%,14)..RH. wo%(|
000008f0  6d 61 78 66 25 29 2c 6f  24 28 6d 61 78 66 25 29  |maxf%),o$(maxf%)|
00000900  2c 6f 25 28 6d 61 78 66  25 2c 36 29 2c 72 24 28  |,o%(maxf%,6),r$(|
00000910  6d 61 78 66 25 29 2c 73  72 24 28 6d 61 78 66 25  |maxf%),sr$(maxf%|
00000920  29 2c 6c 6c 25 28 6d 61  78 66 25 2c 35 29 0d 03  |),ll%(maxf%,5)..|
00000930  5c 3f de 20 6c 66 25 28  6d 61 78 66 25 2c 31 35  |\?. lf%(maxf%,15|
00000940  29 2c 70 25 28 6d 61 78  66 25 2c 34 29 2c 70 24  |),p%(maxf%,4),p$|
00000950  28 6d 61 78 66 25 2c 37  29 2c 63 24 28 6d 61 78  |(maxf%,7),c$(max|
00000960  66 25 2c 6d 61 78 63 6f  6c 25 2c 31 29 0d 03 66  |f%,maxcol%,1)..f|
00000970  22 de 20 63 25 28 6d 61  78 66 25 2c 6d 61 78 63  |". c%(maxf%,maxc|
00000980  6f 6c 25 29 2c 6f 78 24  28 6d 61 78 66 25 29 0d  |ol%),ox$(maxf%).|
00000990  03 70 3b 66 5f 66 69 6c  74 25 3d 31 3c 3c 30 30  |.p;f_filt%=1<<00|
000009a0  3a 66 5f 70 61 6e 65 25  3d 31 3c 3c 30 31 3a 66  |:f_pane%=1<<01:f|
000009b0  5f 6d 61 63 62 25 3d 31  3c 3c 30 32 3a 66 5f 6d  |_macb%=1<<02:f_m|
000009c0  61 63 65 25 3d 31 3c 3c  30 33 0d 03 7a 3b 66 5f  |ace%=1<<03..z;f_|
000009d0  66 73 70 63 25 3d 31 3c  3c 30 34 3a 66 5f 66 75  |fspc%=1<<04:f_fu|
000009e0  70 70 25 3d 31 3c 3c 30  35 3a 66 5f 73 73 70 63  |pp%=1<<05:f_sspc|
000009f0  25 3d 31 3c 3c 30 36 3a  66 5f 73 75 70 70 25 3d  |%=1<<06:f_supp%=|
00000a00  31 3c 3c 30 37 0d 03 84  3b 66 5f 73 61 64 64 25  |1<<07...;f_sadd%|
00000a10  3d 31 3c 3c 30 38 3a 66  5f 72 73 70 63 25 3d 31  |=1<<08:f_rspc%=1|
00000a20  3c 3c 30 39 3a 66 5f 72  75 70 70 25 3d 31 3c 3c  |<<09:f_rupp%=1<<|
00000a30  31 30 3a 66 5f 73 72 75  70 25 3d 31 3c 3c 31 31  |10:f_srup%=1<<11|
00000a40  0d 03 8e 3b 66 5f 73 74  6f 74 25 3d 31 3c 3c 31  |...;f_stot%=1<<1|
00000a50  32 3a 66 5f 73 74 69 74  25 3d 31 3c 3c 31 33 3a  |2:f_stit%=1<<13:|
00000a60  66 5f 73 64 61 73 25 3d  31 3c 3c 31 34 3a 66 5f  |f_sdas%=1<<14:f_|
00000a70  77 73 70 63 25 3d 31 3c  3c 31 35 0d 03 98 3b 66  |wspc%=1<<15...;f|
00000a80  5f 77 75 70 70 25 3d 31  3c 3c 31 36 3a 66 5f 77  |_wupp%=1<<16:f_w|
00000a90  62 6e 6b 25 3d 31 3c 3c  31 37 3a 66 5f 37 62 69  |bnk%=1<<17:f_7bi|
00000aa0  74 25 3d 31 3c 3c 31 38  3a 66 5f 72 65 6a 62 25  |t%=1<<18:f_rejb%|
00000ab0  3d 31 3c 3c 31 39 0d 03  a2 3b 66 5f 72 65 6a 61  |=1<<19...;f_reja|
00000ac0  25 3d 31 3c 3c 32 30 3a  66 5f 72 64 73 70 25 3d  |%=1<<20:f_rdsp%=|
00000ad0  31 3c 3c 32 31 3a 66 5f  72 74 70 6e 25 3d 31 3c  |1<<21:f_rtpn%=1<|
00000ae0  3c 32 32 3a 66 5f 72 62  70 6e 25 3d 31 3c 3c 32  |<22:f_rbpn%=1<<2|
00000af0  33 0d 03 ac 3b 66 5f 72  70 64 74 25 3d 31 3c 3c  |3...;f_rpdt%=1<<|
00000b00  32 34 3a 66 5f 72 74 70  67 25 3d 31 3c 3c 32 35  |24:f_rtpg%=1<<25|
00000b10  3a 66 5f 72 74 73 75 25  3d 31 3c 3c 32 36 3a 66  |:f_rtsu%=1<<26:f|
00000b20  5f 72 6c 64 75 25 3d 31  3c 3c 32 37 0d 03 b6 11  |_rldu%=1<<27....|
00000b30  66 5f 72 6c 73 75 25 3d  31 3c 3c 32 38 0d 03 c0  |f_rlsu%=1<<28...|
00000b40  5b 66 5f 72 65 70 73 25  3d 66 5f 72 6c 64 75 25  |[f_reps%=f_rldu%|
00000b50  84 66 5f 72 6c 73 75 25  84 66 5f 72 65 6a 62 25  |.f_rlsu%.f_rejb%|
00000b60  84 66 5f 72 65 6a 61 25  84 66 5f 72 64 73 70 25  |.f_reja%.f_rdsp%|
00000b70  84 66 5f 72 74 70 6e 25  84 66 5f 72 62 70 6e 25  |.f_rtpn%.f_rbpn%|
00000b80  84 66 5f 72 70 64 74 25  84 66 5f 72 74 70 67 25  |.f_rpdt%.f_rtpg%|
00000b90  84 66 5f 72 74 73 75 25  0d 03 ca 21 66 5f 73 61  |.f_rtsu%...!f_sa|
00000ba0  76 65 25 3d 2d 31 80 ac  28 66 5f 70 61 6e 65 25  |ve%=-1..(f_pane%|
00000bb0  84 66 5f 73 61 64 64 25  29 0d 03 d4 4b 66 5f 64  |.f_sadd%)...Kf_d|
00000bc0  66 6c 74 25 3d 66 5f 66  73 70 63 25 84 66 5f 66  |flt%=f_fspc%.f_f|
00000bd0  75 70 70 25 84 66 5f 73  73 70 63 25 84 66 5f 73  |upp%.f_sspc%.f_s|
00000be0  75 70 70 25 84 66 5f 73  74 6f 74 25 84 66 5f 73  |upp%.f_stot%.f_s|
00000bf0  74 69 74 25 84 66 5f 73  64 61 73 25 84 66 5f 77  |tit%.f_sdas%.f_w|
00000c00  73 70 63 25 0d 03 de 12  66 6e 24 3d 22 22 3a 68  |spc%....fn$="":h|
00000c10  61 6e 64 25 3d 30 0d 03  e8 05 e1 0d 03 f2 04 0d  |and%=0..........|
00000c20  03 fc 0c dd f2 73 64 76  61 72 73 0d 04 06 1c c8  |.....sdvars.....|
00000c30  99 73 77 69 25 2c 73 64  36 34 5f 25 2c 33 b8 6c  |.swi%,sd64_%,3.l|
00000c40  69 6e 65 67 61 70 25 0d  04 10 0d 6d 61 72 67 69  |inegap%....margi|
00000c50  6e 25 3d 38 0d 04 1a 31  e7 73 6f 75 6e 64 25 3a  |n%=8...1.sound%:|
00000c60  c8 99 73 77 69 25 2c 6f  70 74 5f 25 2c 31 30 b8  |..swi%,opt_%,10.|
00000c70  47 25 3a 8b c8 99 73 77  69 25 2c 6f 70 74 5f 25  |G%:...swi%,opt_%|
00000c80  2c 39 b8 47 25 0d 04 24  05 e1 0d 04 2e 04 0d 04  |,9.G%..$........|
00000c90  38 2d dd f2 63 68 65 63  6b 70 72 6f 74 3a ea 54  |8-..checkprot:.T|
00000ca0  25 3a c8 99 22 46 6c 65  78 69 46 69 6c 65 5f 41  |%:.."FlexiFile_A|
00000cb0  64 64 72 65 73 73 22 b8  73 64 25 0d 04 42 06 ea  |ddress".sd%..B..|
00000cc0  85 0d 04 4c 14 ee 85 ea  3a 70 72 6f 63 65 73 73  |...L....:process|
00000cd0  25 3d 32 3a e1 0d 04 56  1e c8 99 73 77 69 25 2c  |%=2:...V...swi%,|
00000ce0  72 65 73 65 74 5f 25 2c  74 61 73 6b 68 61 6e 64  |reset_%,taskhand|
00000cf0  6c 65 25 0d 04 60 54 e7  70 72 6f 63 65 73 73 25  |le%..`T.process%|
00000d00  3d 33 f2 73 74 6f 70 28  31 2c 22 4f 4b 2e 20 50  |=3.stop(1,"OK. P|
00000d10  6c 65 61 73 65 20 72 65  6d 6f 76 65 20 6f 72 69  |lease remove ori|
00000d20  67 69 6e 61 6c 20 26 22  2c 22 72 65 70 6c 61 63  |ginal &","replac|
00000d30  65 20 62 61 63 6b 75 70  20 69 66 20 6e 65 63 65  |e backup if nece|
00000d40  73 73 61 72 79 22 29 0d  04 6a 1b 64 61 74 65 24  |ssary")..j.date$|
00000d50  3d a4 73 74 72 64 61 74  65 31 28 a4 6e 6f 77 2c  |=.strdate1(.now,|
00000d60  34 29 0d 04 74 1d f2 73  64 76 61 72 73 3a e7 a4  |4)..t..sdvars:..|
00000d70  76 5f 28 31 29 3c 3e 30  f2 65 72 72 28 33 29 0d  |v_(1)<>0.err(3).|
00000d80  04 7e 10 70 72 6f 63 65  73 73 25 3d 34 3a e1 0d  |.~.process%=4:..|
00000d90  04 88 04 0d 04 92 0d dd  f2 76 65 72 73 69 6f 6e  |.........version|
00000da0  0d 04 9c 2f ea 54 24 3a  54 24 3d 76 65 72 73 69  |.../.T$:T$=versi|
00000db0  6f 6e 24 3a e7 ac a4 70  72 6f 64 3a 54 24 2b 3d  |on$:...prod:T$+=|
00000dc0  22 20 2a 55 4e 46 49 4e  49 53 48 45 44 2a 22 0d  |" *UNFINISHED*".|
00000dd0  04 a6 38 f2 73 65 74 69  28 77 5f 70 69 6e 66 6f  |..8.seti(w_pinfo|
00000de0  25 2c 34 2c 22 76 22 2b  54 24 29 3a 24 a4 74 69  |%,4,"v"+T$):$.ti|
00000df0  61 28 74 77 5f 73 74 61  74 75 73 25 2c 31 31 29  |a(tw_status%,11)|
00000e00  3d 22 76 22 2b 54 24 0d  04 b0 05 e1 0d 04 ba 04  |="v"+T$.........|
00000e10  0d 04 c4 2c dd a4 70 72  6f 64 3d c1 76 65 72 73  |...,..prod=.vers|
00000e20  69 6f 6e 24 2c a7 76 65  72 73 69 6f 6e 24 2c 22  |ion$,.version$,"|
00000e30  2e 22 29 2b 31 2c 31 29  3d 22 30 22 0d 04 ce 1b  |.")+1,1)="0"....|
00000e40  dd a4 64 65 62 75 67 3d  ac a4 70 72 6f 64 20 80  |..debug=..prod .|
00000e50  a6 2d 31 80 a6 2d 32 0d  04 d8 04 0d 04 e2 3e dd  |.-1..-2.......>.|
00000e60  a4 69 6e 69 74 77 69 6d  70 3a 66 69 72 73 74 25  |.initwimp:first%|
00000e70  3d a3 3a 74 61 73 6b 68  61 6e 64 6c 65 25 3d a4  |=.:taskhandle%=.|
00000e80  74 61 73 6b 3a e7 74 61  73 6b 68 61 6e 64 6c 65  |task:.taskhandle|
00000e90  25 3c 3e 30 3a 3d 32 30  30 0d 04 ec 47 24 71 25  |%<>0:=200...G$q%|
00000ea0  3d 22 54 41 53 4b 22 3a  c8 99 22 57 69 6d 70 5f  |="TASK":.."Wimp_|
00000eb0  49 6e 69 74 69 61 6c 69  73 65 22 2c 32 30 30 2c  |Initialise",200,|
00000ec0  21 71 25 2c 22 4d 75 6c  74 69 53 74 6f 72 65 22  |!q%,"MultiStore"|
00000ed0  b8 21 71 25 2c 74 61 73  6b 68 61 6e 64 6c 65 25  |.!q%,taskhandle%|
00000ee0  0d 04 f6 11 66 69 72 73  74 25 3d b9 3a 3d 21 71  |....first%=.:=!q|
00000ef0  25 0d 05 00 04 0d 05 0a  0a dd f2 74 69 64 79 0d  |%..........tidy.|
00000f00  05 14 06 ea 85 0d 05 1e  0e f2 6e 6f 72 6d 70 6f  |..........normpo|
00000f10  69 6e 74 0d 05 28 16 ef  34 2c 32 36 3a f1 8a 30  |int..(..4,26:..0|
00000f20  2c 33 29 3b 3a 2a 66 78  34 0d 05 32 0c 2a 66 78  |,3);:*fx4..2.*fx|
00000f30  32 32 35 2c 31 0d 05 3c  0a 2a 66 78 32 32 39 0d  |225,1..<.*fx229.|
00000f40  05 46 1a 5a 25 3d 30 3a  c8 99 73 77 69 25 2c 6b  |.F.Z%=0:..swi%,k|
00000f50  69 6c 6c 74 61 73 6b 5f  25 0d 05 50 15 ee 85 ea  |illtask_%..P....|
00000f60  3a f7 85 3a f6 3a f1 22  20 22 3b 9e 3a e1 0d 05  |:..:.:." ";.:...|
00000f70  5a 2b f1 3b 6d 65 6e 75  65 6e 64 25 2d 6d 65 6e  |Z+.;menuend%-men|
00000f80  75 66 72 65 65 25 22 20  62 79 74 65 73 20 6d 65  |ufree%" bytes me|
00000f90  6e 75 20 73 70 61 63 65  22 0d 05 64 36 f1 3b 65  |nu space"..d6.;e|
00000fa0  6e 64 62 75 66 25 2d 63  75 72 62 75 66 25 22 20  |ndbuf%-curbuf%" |
00000fb0  62 79 74 65 73 20 69 6e  64 69 72 65 63 74 69 6f  |bytes indirectio|
00000fc0  6e 20 62 75 66 66 65 72  20 73 70 61 63 65 22 0d  |n buffer space".|
00000fd0  05 6e 27 f1 3b 74 62 65  25 2d 74 62 73 25 22 20  |.n'.;tbe%-tbs%" |
00000fe0  62 79 74 65 73 20 74 65  6d 70 6c 61 74 65 20 62  |bytes template b|
00000ff0  75 66 66 65 72 22 0d 05  78 05 e1 0d 05 82 04 0d  |uffer"..x.......|
00001000  05 8c 18 dd f2 62 61 72  69 63 6f 6e 3a e7 ac 66  |.....baricon:..f|
00001010  69 72 73 74 25 3a e1 0d  05 96 2b 21 71 25 3d 2d  |irst%:....+!q%=-|
00001020  31 3a 71 25 21 34 3d 30  3a 71 25 21 38 3d 30 3a  |1:q%!4=0:q%!8=0:|
00001030  71 25 21 31 32 3d 31 30  32 3a 71 25 21 31 36 3d  |q%!12=102:q%!16=|
00001040  36 38 0d 05 a0 30 71 25  21 32 30 3d 25 31 31 30  |68...0q%!20=%110|
00001050  30 30 30 30 30 30 30 30  30 31 30 3a 24 28 71 25  |00000000010:$(q%|
00001060  2b 32 34 29 3d 22 21 22  2b c0 61 70 70 6c 24 2c  |+24)="!"+.appl$,|
00001070  39 29 0d 05 aa 24 c8 99  22 57 69 6d 70 5f 43 72  |9)...$.."Wimp_Cr|
00001080  65 61 74 65 49 63 6f 6e  22 2c 2c 71 25 b8 62 61  |eateIcon",,q%.ba|
00001090  72 69 63 6f 6e 25 0d 05  b4 05 e1 0d 05 be 04 0d  |ricon%..........|
000010a0  05 c8 11 dd f2 73 74 72  69 70 28 f8 20 54 24 29  |.....strip(. T$)|
000010b0  0d 05 d2 1a 24 73 64 25  3d 54 24 3a c8 99 73 77  |....$sd%=T$:..sw|
000010c0  69 25 2c 73 74 72 69 70  5f 25 0d 05 dc 0b 54 24  |i%,strip_%....T$|
000010d0  3d 24 73 64 25 0d 05 e6  05 e1 0d 05 f0 04 0d 05  |=$sd%...........|
000010e0  fa 21 dd f2 65 72 72 6f  72 28 65 72 72 25 2c 65  |.!..error(err%,e|
000010f0  72 72 24 2c 65 72 6c 25  2c 71 75 69 74 25 29 0d  |rr$,erl%,quit%).|
00001100  06 04 2a e7 a4 64 65 62  75 67 3a ef 34 2c 33 30  |..*..debug:.4,30|
00001110  3a f1 65 72 72 24 22 20  40 20 22 3b 65 72 6c 25  |:.err$" @ ";erl%|
00001120  3a f2 71 75 69 74 28 b9  29 0d 06 0e 2e f2 6e 6f  |:.quit(.).....no|
00001130  72 6d 70 6f 69 6e 74 3a  64 72 61 67 72 65 61 73  |rmpoint:dragreas|
00001140  6f 6e 25 3d 2d 31 3a 40  25 3d 26 39 30 41 3a 2a  |on%=-1:@%=&90A:*|
00001150  66 78 32 32 39 2c 31 0d  06 18 10 ea 69 25 2c 65  |fx229,1.....i%,e|
00001160  25 2c 74 24 2c 54 24 0d  06 22 1d e7 ac a4 70 72  |%,t$,T$.."....pr|
00001170  6f 64 3a 65 72 72 24 2b  3d 22 20 28 22 2b c3 9e  |od:err$+=" ("+..|
00001180  2b 22 29 22 0d 06 2c 06  ea 85 0d 06 36 18 ee 85  |+")"..,.....6...|
00001190  ea 3a f2 65 72 72 6f 72  28 9f 2c f6 24 2c 9e 2c  |.:.error(.,.$,.,|
000011a0  b9 29 0d 06 40 39 21 71  25 3d 65 72 72 25 3a 24  |.)..@9!q%=err%:$|
000011b0  28 71 25 2b 34 29 3d 65  72 72 24 3a c8 99 22 57  |(q%+4)=err$:.."W|
000011c0  69 6d 70 5f 52 65 70 6f  72 74 45 72 72 6f 72 22  |imp_ReportError"|
000011d0  2c 71 25 2c 31 2c 61 70  70 6c 24 0d 06 4a 13 e7  |,q%,1,appl$..J..|
000011e0  71 75 69 74 25 3a f2 71  75 69 74 28 a3 29 0d 06  |quit%:.quit(.)..|
000011f0  54 05 e1 0d 06 5e 04 0d  06 68 2b dd f2 72 65 70  |T....^...h+..rep|
00001200  6f 72 74 3a e7 a4 64 65  62 75 67 3a ef 34 3a f6  |ort:..debug:.4:.|
00001210  3a f1 22 20 40 20 22 3b  9e 3a f2 71 75 69 74 28  |:." @ ";.:.quit(|
00001220  b9 29 0d 06 72 05 e1 0d  06 7c 04 0d 06 86 09 dd  |.)..r....|......|
00001230  a4 64 69 72 0d 06 90 20  ea 54 24 3a 54 24 3d a4  |.dir... .T$:T$=.|
00001240  41 72 66 56 61 72 28 61  70 70 6c 24 2b 22 24 44  |ArfVar(appl$+"$D|
00001250  69 72 22 29 0d 06 9a 21  e7 54 24 3d 22 22 3a 54  |ir")...!.T$="":T|
00001260  24 3d 22 26 2e 21 22 2b  c0 61 70 70 6c 24 2c 39  |$="&.!"+.appl$,9|
00001270  29 2b 22 2e 22 0d 06 a4  16 e7 c2 54 24 29 3c 3e  |)+"."......T$)<>|
00001280  22 2e 22 3a 54 24 2b 3d  22 2e 22 0d 06 ae 07 3d  |".":T$+="."....=|
00001290  54 24 0d 06 b8 04 0d 06  c2 17 dd a4 41 72 66 56  |T$..........ArfV|
000012a0  61 72 28 41 24 29 3a ea  4c 25 2c 54 25 0d 06 cc  |ar(A$):.L%,T%...|
000012b0  3d c8 99 22 58 4f 53 5f  52 65 61 64 56 61 72 56  |=.."XOS_ReadVarV|
000012c0  61 6c 22 2c 41 24 2c 77  6f 72 6b 62 75 66 25 2c  |al",A$,workbuf%,|
000012d0  32 35 34 2c 30 2c 33 b8  2c 2c 4c 25 3b 54 25 3a  |254,0,3.,,L%;T%:|
000012e0  e7 54 25 80 31 3a 4c 25  3d 30 0d 06 d6 1d 77 6f  |.T%.1:L%=0....wo|
000012f0  72 6b 62 75 66 25 3f 4c  25 3d 31 33 3a 3d 24 77  |rkbuf%?L%=13:=$w|
00001300  6f 72 6b 62 75 66 25 0d  06 e0 04 0d 06 ea 0c dd  |orkbuf%.........|
00001310  f2 75 6d 65 73 73 31 0d  06 f4 2d 72 65 66 25 3d  |.umess1...-ref%=|
00001320  71 25 21 38 3a 74 61 73  6b 25 3d 71 25 21 34 3a  |q%!8:task%=q%!4:|
00001330  e7 74 61 73 6b 25 3d 74  61 73 6b 68 61 6e 64 6c  |.task%=taskhandl|
00001340  65 25 3a e1 0d 06 fe 0f  6d 65 73 73 25 3d 71 25  |e%:.....mess%=q%|
00001350  21 31 36 0d 07 08 0c c8  8e 6d 65 73 73 25 ca 0d  |!16......mess%..|
00001360  07 12 16 c9 30 3a f2 43  4c 4f 53 45 3a f2 71 75  |....0:.CLOSE:.qu|
00001370  69 74 28 a3 29 0d 07 1c  11 c9 31 3a f2 64 61 74  |it(.).....1:.dat|
00001380  61 73 61 76 65 64 0d 07  26 10 c9 32 3a f2 73 61  |asaved..&..2:.sa|
00001390  76 65 64 61 74 61 0d 07  30 10 c9 33 3a f2 64 61  |vedata..0..3:.da|
000013a0  74 61 6c 6f 61 64 0d 07  3a 14 c9 34 3a 61 63 6b  |taload..:..4:ack|
000013b0  70 65 6e 64 69 6e 67 25  3d a3 0d 07 44 10 c9 35  |pending%=...D..5|
000013c0  3a f2 64 61 74 61 6f 70  65 6e 0d 07 4e 07 c9 36  |:.dataopen..N..6|
000013d0  3a 0d 07 58 07 c9 37 3a  0d 07 62 0f c9 38 3a f2  |:..X..7:..b..8:.|
000013e0  70 72 65 71 75 69 74 0d  07 6c 07 c9 39 3a 0d 07  |prequit..l..9:..|
000013f0  76 0a c9 26 35 30 32 3a  0d 07 80 2d c9 26 34 30  |v..&502:...-.&40|
00001400  30 43 30 3a f2 73 75 62  6d 65 6e 75 28 71 25 21  |0C0:.submenu(q%!|
00001410  32 30 2c 71 25 21 32 34  2c 71 25 21 32 38 2c 71  |20,q%!24,q%!28,q|
00001420  25 2b 33 32 29 0d 07 8a  13 c9 26 38 30 33 30 30  |%+32).....&80300|
00001430  3a f2 61 63 6b 72 65 63  0d 07 94 05 cb 0d 07 9e  |:.ackrec........|
00001440  05 e1 0d 07 a8 04 0d 07  b2 0e dd f2 64 61 74 61  |............data|
00001450  6f 70 65 6e 0d 07 bc 28  e7 71 25 21 34 30 3d 66  |open...(.q%!40=f|
00001460  74 5f 66 6f 72 6d 25 3a  f2 64 61 74 61 6c 6f 61  |t_form%:.dataloa|
00001470  64 61 63 6b 3a f2 65 72  72 28 31 29 0d 07 c6 16  |dack:.err(1)....|
00001480  e7 71 25 21 34 30 3c 3e  66 74 5f 64 61 74 61 25  |.q%!40<>ft_data%|
00001490  3a e1 0d 07 d0 22 f2 64  61 74 61 6c 6f 61 64 61  |:....".dataloada|
000014a0  63 6b 3a 6d 68 25 3d 2d  31 3a f2 63 68 65 63 6b  |ck:mh%=-1:.check|
000014b0  6f 70 65 6e 0d 07 da 42  e7 70 72 6f 63 65 73 73  |open...B.process|
000014c0  25 3d 30 3a e7 ac a4 64  69 61 6c 6f 67 75 65 3a  |%=0:...dialogue:|
000014d0  f2 6d 73 74 6f 72 65 28  22 32 3a 22 2b a4 7a 74  |.mstore("2:"+.zt|
000014e0  73 28 71 25 2b 34 34 29  2c 22 4d 75 6c 74 69 53  |s(q%+44),"MultiS|
000014f0  74 6f 72 65 22 29 0d 07  e4 05 e1 0d 07 ee 04 0d  |tore")..........|
00001500  07 f8 0e dd f2 64 61 74  61 6c 6f 61 64 0d 08 02  |.....dataload...|
00001510  24 ea 54 24 3a 54 24 3d  a4 7a 74 73 28 71 25 2b  |$.T$:T$=.zts(q%+|
00001520  34 34 29 3a 64 65 6c 25  3d 71 25 21 31 32 3c 3e  |44):del%=q%!12<>|
00001530  30 0d 08 0c 1b f2 72 65  61 64 70 6f 69 6e 74 65  |0.....readpointe|
00001540  72 3a f2 77 74 6f 66 28  6d 68 25 29 0d 08 16 0a  |r:.wtof(mh%)....|
00001550  c8 8e 20 b9 20 ca 0d 08  20 52 c9 20 71 25 21 34  |.. . ... R. q%!4|
00001560  30 3d 26 31 30 30 30 3a  66 69 6c 65 24 3d a4 7a  |0=&1000:file$=.z|
00001570  74 73 28 71 25 2b 34 34  29 3a f2 73 74 6f 70 28  |ts(q%+44):.stop(|
00001580  33 38 2c c2 66 69 6c 65  24 2c 32 39 29 2c 72 6c  |38,.file$,29),rl|
00001590  24 2b 22 20 73 65 74 20  70 69 63 74 75 72 65 20  |$+" set picture |
000015a0  70 61 74 68 20 3f 22 29  0d 08 2a 1b c9 20 71 25  |path ?")..*.. q%|
000015b0  21 34 30 3d 66 74 5f 64  61 74 61 25 80 6d 68 25  |!40=ft_data%.mh%|
000015c0  3d 2d 32 0d 08 34 10 f2  64 61 74 61 6c 6f 61 64  |=-2..4..dataload|
000015d0  61 63 6b 0d 08 3e 43 e7  70 72 6f 63 65 73 73 25  |ack..>C.process%|
000015e0  3d 30 e7 ac a4 64 69 61  6c 6f 67 75 65 3a f2 63  |=0...dialogue:.c|
000015f0  68 65 63 6b 6f 70 65 6e  3a f2 6d 73 74 6f 72 65  |heckopen:.mstore|
00001600  28 22 33 3a 22 2b 54 24  2c 22 4d 75 6c 74 69 53  |("3:"+T$,"MultiS|
00001610  74 6f 72 65 22 29 0d 08  48 18 c9 20 71 25 21 34  |tore")..H.. q%!4|
00001620  30 3d 26 46 46 44 20 80  6d 68 25 3d 2d 32 0d 08  |0=&FFD .mh%=-2..|
00001630  52 2a e7 70 72 6f 63 65  73 73 25 3d 30 3a e7 ac  |R*.process%=0:..|
00001640  a4 64 69 61 6c 6f 67 75  65 3a f2 63 68 65 63 6b  |.dialogue:.check|
00001650  63 6f 6e 76 28 54 24 29  0d 08 5c 30 c9 20 71 25  |conv(T$)..\0. q%|
00001660  21 34 30 3d 66 74 5f 66  6f 72 6d 25 80 6d 68 25  |!40=ft_form%.mh%|
00001670  3d 2d 32 3a f2 64 61 74  61 6c 6f 61 64 61 63 6b  |=-2:.dataloadack|
00001680  3a f2 65 72 72 28 31 29  0d 08 66 3c c9 20 71 25  |:.err(1)..f<. q%|
00001690  21 34 30 3d 66 74 5f 66  6f 72 6d 25 80 66 69 6c  |!40=ft_form%.fil|
000016a0  65 25 3e 3d 30 80 77 69  6e 64 25 3c 32 3a f2 64  |e%>=0.wind%<2:.d|
000016b0  61 74 61 6c 6f 61 64 61  63 6b 3a f2 65 72 72 28  |ataloadack:.err(|
000016c0  33 30 30 29 0d 08 70 2b  c9 20 71 25 21 34 30 3d  |300)..p+. q%!40=|
000016d0  66 74 5f 64 61 74 61 25  80 6d 68 25 3d 77 5f 73  |ft_data%.mh%=w_s|
000016e0  6f 72 74 25 3a f2 63 68  65 63 6b 6f 70 65 6e 0d  |ort%:.checkopen.|
000016f0  08 7a 2f e7 a6 2d 33 3a  f2 6f 70 65 6e 73 6f 72  |.z/..-3:.opensor|
00001700  74 28 54 24 29 3a 8b f2  6f 70 65 6e 73 6f 72 74  |t(T$):..opensort|
00001710  31 28 54 24 2c 37 2c 30  2c 22 22 2c 30 29 0d 08  |1(T$,7,0,"",0)..|
00001720  84 32 f4 20 3b 7b 6e 2e  20 41 4c 54 20 74 6f 20  |.2. ;{n. ALT to |
00001730  6f 70 65 6e 20 73 6f 72  74 20 66 69 6c 65 20 77  |open sort file w|
00001740  69 74 68 20 64 69 61 6c  6f 67 75 65 20 62 6f 78  |ith dialogue box|
00001750  0d 08 8e 63 c9 20 71 25  21 34 30 3d 26 46 46 46  |...c. q%!40=&FFF|
00001760  20 80 66 69 6c 65 25 3e  3d 30 80 77 69 6e 64 25  | .file%>=0.wind%|
00001770  3d 34 3a f2 64 61 74 61  6c 6f 61 64 61 63 6b 3a  |=4:.dataloadack:|
00001780  66 69 6c 65 24 3d 54 24  3a f2 73 74 6f 70 28 31  |file$=T$:.stop(1|
00001790  34 2c 66 69 24 2b a4 66  69 6c 65 6e 61 6d 65 2c  |4,fi$+.filename,|
000017a0  72 6c 24 2b 22 6c 6f 61  64 20 6e 6f 74 65 73 20  |rl$+"load notes |
000017b0  3f 22 29 0d 08 98 05 cb  0d 08 a2 05 e1 0d 08 ac  |?").............|
000017c0  04 0d 08 b6 0d dd f2 6e  6f 73 63 72 61 70 0d 08  |.......noscrap..|
000017d0  c0 1e e7 64 65 6c 25 3a  2a 72 65 6d 6f 76 65 20  |...del%:*remove |
000017e0  3c 57 69 6d 70 24 53 63  72 61 70 3e 0d 08 ca 05  |<Wimp$Scrap>....|
000017f0  e1 0d 08 d4 04 0d 08 de  1c dd f2 64 61 74 61 73  |...........datas|
00001800  61 76 65 64 3a e7 a4 64  69 61 6c 6f 67 75 65 3a  |aved:..dialogue:|
00001810  e1 0d 08 e8 1b f2 72 65  61 64 70 6f 69 6e 74 65  |......readpointe|
00001820  72 3a f2 77 74 6f 66 28  6d 68 25 29 0d 08 f2 0a  |r:.wtof(mh%)....|
00001830  c8 8e 20 b9 20 ca 0d 08  fc 41 c9 20 71 25 21 34  |.. . ....A. q%!4|
00001840  30 3d 26 46 46 46 20 80  66 69 6c 65 25 3e 3d 30  |0=&FFF .file%>=0|
00001850  80 28 77 69 6e 64 25 3d  36 84 77 69 6e 64 25 3d  |.(wind%=6.wind%=|
00001860  37 84 77 69 6e 64 25 3d  30 29 3a f2 64 61 74 61  |7.wind%=0):.data|
00001870  73 61 76 65 61 63 6b 0d  09 06 05 cb 0d 09 10 05  |saveack.........|
00001880  e1 0d 09 1a 04 0d 09 24  0d dd f2 65 72 72 28 45  |.......$...err(E|
00001890  25 29 0d 09 2e 39 ea 54  24 2c 41 24 3a e7 66 69  |%)...9.T$,A$:.fi|
000018a0  6c 65 25 3e 3d 30 41 24  3d 22 2c 20 22 2b 66 69  |le%>=0A$=", "+fi|
000018b0  24 2b a4 66 69 6c 65 6e  61 6d 65 2b 22 20 2d 20  |$+.filename+" - |
000018c0  22 3a 8b 41 24 3d 22 20  2d 20 22 0d 09 38 14 40  |":.A$=" - "..8.@|
000018d0  25 3d 26 39 30 41 3a 2a  66 78 32 32 39 2c 31 0d  |%=&90A:*fx229,1.|
000018e0  09 42 09 c8 8e 45 25 ca  0d 09 4c 0c c9 30 3a 54  |.B...E%...L..0:T|
000018f0  24 3d f6 24 0d 09 56 30  c9 31 3a 54 24 3d 22 54  |$=.$..V0.1:T$="T|
00001900  6f 20 75 73 65 20 61 20  66 6f 72 6d 61 74 2c 20  |o use a format, |
00001910  64 72 61 67 20 69 74 20  6f 6e 74 6f 20 61 20 63  |drag it onto a c|
00001920  61 72 64 22 0d 09 60 2d  c9 32 3a 54 24 3d 22 4d  |ard"..`-.2:T$="M|
00001930  75 73 74 20 62 65 20 76  65 72 73 69 6f 6e 20 31  |ust be version 1|
00001940  2e 38 20 57 49 4d 50 20  6f 72 20 6c 61 74 65 72  |.8 WIMP or later|
00001950  22 0d 09 6a 2b c9 33 3a  54 24 3d 73 79 24 2b 22  |"..j+.3:T$=sy$+"|
00001960  54 6f 6f 20 6d 61 6e 79  20 66 69 6c 65 73 20 61  |Too many files a|
00001970  6c 72 65 61 64 79 20 6f  70 65 6e 22 0d 09 74 3e  |lready open"..t>|
00001980  c9 34 3a 54 24 3d 73 79  24 2b 22 59 6f 75 20 63  |.4:T$=sy$+"You c|
00001990  61 6e 20 6f 6e 6c 79 20  72 75 6e 20 6f 6e 65 20  |an only run one |
000019a0  52 41 4d 4d 61 6e 61 67  65 72 20 74 61 73 6b 20  |RAMManager task |
000019b0  61 74 20 61 20 74 69 6d  65 22 0d 09 7e 48 c9 35  |at a time"..~H.5|
000019c0  3a 54 24 3d 22 54 6f 20  73 61 76 65 2c 20 64 72  |:T$="To save, dr|
000019d0  61 67 20 74 68 65 20 69  63 6f 6e 20 74 6f 20 61  |ag the icon to a|
000019e0  20 64 69 72 65 63 74 6f  72 79 20 76 69 65 77 65  | directory viewe|
000019f0  72 20 6f 72 20 61 6e 6f  74 68 65 72 20 74 61 73  |r or another tas|
00001a00  6b 22 0d 09 88 63 c9 36  3a 54 24 3d 22 43 6f 75  |k"...c.6:T$="Cou|
00001a10  6c 64 6e 27 74 20 6f 70  65 6e 20 66 69 6c 65 3a  |ldn't open file:|
00001a20  20 22 2b f6 24 3a e7 f6  24 3d 22 44 61 74 61 20  | "+.$:..$="Data |
00001a30  6c 6f 73 74 22 3a 54 24  2b 3d 22 20 28 45 6e 73  |lost":T$+=" (Ens|
00001a40  75 72 65 20 74 68 65 20  64 69 73 63 20 69 73 20  |ure the disc is |
00001a50  6e 6f 74 20 77 72 69 74  65 20 70 72 6f 74 65 63  |not write protec|
00001a60  74 65 64 29 22 0d 09 92  25 c9 37 3a 54 24 3d 22  |ted)"...%.7:T$="|
00001a70  43 6f 75 6c 64 6e 27 74  20 6f 70 65 6e 20 66 6f  |Couldn't open fo|
00001a80  72 6d 61 74 3a 20 22 2b  f6 24 0d 09 9c 28 c9 31  |rmat: "+.$...(.1|
00001a90  30 3a 54 24 3d 22 55 6e  62 61 6c 61 6e 63 65 64  |0:T$="Unbalanced|
00001aa0  20 71 75 6f 74 65 20 6d  61 72 6b 73 20 28 22 22  | quote marks (""|
00001ab0  29 22 0d 09 a6 20 c9 31  31 3a 54 24 3d 22 55 6e  |)"... .11:T$="Un|
00001ac0  62 61 6c 61 6e 63 65 64  20 62 72 61 63 6b 65 74  |balanced bracket|
00001ad0  73 22 0d 09 b0 31 c9 31  36 3a 54 24 3d 22 46 69  |s"...1.16:T$="Fi|
00001ae0  65 6c 64 20 6e 61 6d 65  73 20 6d 75 73 74 20 73  |eld names must s|
00001af0  74 61 72 74 20 77 69 74  68 20 61 20 6c 65 74 74  |tart with a lett|
00001b00  65 72 22 0d 09 ba 26 c9  32 34 3a 54 24 3d 22 46  |er"...&.24:T$="F|
00001b10  69 65 6c 64 20 61 73 73  69 67 6e 6d 65 6e 74 20  |ield assignment |
00001b20  65 78 70 65 63 74 65 64  22 0d 09 c4 25 c9 32 35  |expected"...%.25|
00001b30  3a 54 24 3d 22 46 69 65  6c 64 20 6e 61 6d 65 20  |:T$="Field name |
00001b40  6e 6f 74 20 73 70 65 63  69 66 69 65 64 22 0d 09  |not specified"..|
00001b50  ce 31 c9 32 39 3a 54 24  3d 22 49 6c 6c 65 67 61  |.1.29:T$="Illega|
00001b60  6c 20 6e 6f 74 65 70 61  64 20 72 65 66 65 72 65  |l notepad refere|
00001b70  6e 63 65 20 69 64 65 6e  74 69 66 69 65 72 22 0d  |nce identifier".|
00001b80  09 d8 39 c9 33 30 3a 54  24 3d 22 41 62 62 72 65  |..9.30:T$="Abbre|
00001b90  76 69 61 74 65 64 20 65  78 70 72 65 73 73 69 6f  |viated expressio|
00001ba0  6e 20 74 6f 6f 20 63 6f  6d 70 6c 65 78 20 74 6f  |n too complex to|
00001bb0  20 65 78 70 61 6e 64 22  0d 09 e2 25 c9 33 31 3a  | expand"...%.31:|
00001bc0  54 24 3d 22 49 6c 6c 65  67 61 6c 20 70 61 74 74  |T$="Illegal patt|
00001bd0  65 72 6e 20 6d 61 74 63  68 69 6e 67 22 0d 09 ec  |ern matching"...|
00001be0  2b c9 33 35 3a 54 24 3d  22 45 78 70 72 65 73 73  |+.35:T$="Express|
00001bf0  69 6f 6e 20 73 68 6f 75  6c 64 20 6e 6f 74 20 62  |ion should not b|
00001c00  65 20 62 6c 61 6e 6b 22  0d 09 f6 23 c9 34 31 3a  |e blank"...#.41:|
00001c10  54 24 3d 22 50 72 69 6e  74 65 72 20 61 6c 72 65  |T$="Printer alre|
00001c20  61 64 79 20 69 6e 20 75  73 65 22 0d 0a 00 39 c9  |ady in use"...9.|
00001c30  34 36 3a 54 24 3d 22 45  78 70 6f 72 74 69 6e 67  |46:T$="Exporting|
00001c40  20 72 65 70 6f 72 74 22  2b 41 24 2b f6 24 2b 22  | report"+A$+.$+"|
00001c50  20 28 65 78 70 6f 72 74  20 63 61 6e 63 65 6c 6c  | (export cancell|
00001c60  65 64 29 22 0d 0a 0a 45  c9 34 37 3a 54 24 3d 22  |ed)"...E.47:T$="|
00001c70  54 68 65 20 74 77 6f 20  6e 65 77 20 70 61 73 73  |The two new pass|
00001c80  77 6f 72 64 73 20 6d 75  73 74 20 62 65 20 69 64  |words must be id|
00001c90  65 6e 74 69 63 61 6c 2e  20 50 6c 65 61 73 65 20  |entical. Please |
00001ca0  72 65 2d 65 6e 74 65 72  22 0d 0a 14 31 c9 35 30  |re-enter"...1.50|
00001cb0  3a 54 24 3d 22 43 61 6e  27 74 20 72 65 63 6f 67  |:T$="Can't recog|
00001cc0  6e 69 73 65 20 66 6f 72  6d 61 74 20 6f 66 20 73  |nise format of s|
00001cd0  65 74 75 70 20 66 69 6c  65 22 0d 0a 1e 3c c9 35  |etup file"...<.5|
00001ce0  31 3a 54 24 3d 22 59 6f  75 20 6d 75 73 74 20 73  |1:T$="You must s|
00001cf0  70 65 63 69 66 79 20 74  68 65 20 63 75 72 72 65  |pecify the curre|
00001d00  6e 74 20 70 61 73 73 77  6f 72 64 20 63 6f 72 72  |nt password corr|
00001d10  65 63 74 6c 79 22 0d 0a  28 1e c9 35 39 3a 54 24  |ectly"..(..59:T$|
00001d20  3d 22 50 72 6f 67 72 61  6d 20 6e 6f 74 20 66 6f  |="Program not fo|
00001d30  75 6e 64 22 0d 0a 32 30  c9 36 30 3a 54 24 3d f6  |und"..20.60:T$=.|
00001d40  24 2b 22 20 2d 20 43 61  6e 27 74 20 6c 6f 61 64  |$+" - Can't load|
00001d50  20 72 65 71 75 65 73 74  65 64 20 73 6f 66 74 77  | requested softw|
00001d60  61 72 65 22 0d 0a 3c 36  c9 33 30 30 3a 54 24 3d  |are"..<6.300:T$=|
00001d70  73 79 24 2b 22 59 6f 75  20 63 61 6e 27 74 20 6c  |sy$+"You can't l|
00001d80  6f 61 64 20 66 6f 72 6d  61 74 73 20 77 68 69 6c  |oad formats whil|
00001d90  65 20 73 6f 72 74 69 6e  67 22 0d 0a 46 49 c9 33  |e sorting"..FI.3|
00001da0  30 31 3a 54 24 3d 73 79  24 2b 22 59 6f 75 20 63  |01:T$=sy$+"You c|
00001db0  61 6e 27 74 20 6f 70 65  6e 20 61 20 66 69 6c 65  |an't open a file|
00001dc0  20 77 68 69 6c 65 20 61  6e 6f 74 68 65 72 20 69  | while another i|
00001dd0  73 20 6f 70 65 6e 20 66  6f 72 20 73 6f 72 74 69  |s open for sorti|
00001de0  6e 67 22 0d 0a 50 44 c9  33 30 32 3a 54 24 3d 22  |ng"..PD.302:T$="|
00001df0  50 6c 65 61 73 65 20 63  6c 6f 73 65 20 74 68 65  |Please close the|
00001e00  20 73 6f 72 74 20 66 69  6c 65 20 62 65 66 6f 72  | sort file befor|
00001e10  65 20 63 61 6e 63 65 6c  6c 69 6e 67 20 73 6f 72  |e cancelling sor|
00001e20  74 20 6d 6f 64 65 22 0d  0a 5a 52 c9 33 30 33 3a  |t mode"..ZR.303:|
00001e30  54 24 3d 22 50 6c 65 61  73 65 20 6f 70 65 6e 20  |T$="Please open |
00001e40  73 6f 72 74 20 66 69 6c  65 20 28 62 79 20 64 72  |sort file (by dr|
00001e50  61 67 67 69 6e 67 20 74  6f 20 73 6f 72 74 20 77  |agging to sort w|
00001e60  69 6e 64 6f 77 29 20 62  65 66 6f 72 65 20 70 72  |indow) before pr|
00001e70  6f 63 65 65 64 69 6e 67  22 0d 0a 64 4b c9 33 30  |oceeding"..dK.30|
00001e80  35 3a 54 24 3d 73 79 24  2b 22 59 6f 75 20 63 61  |5:T$=sy$+"You ca|
00001e90  6e 27 74 20 63 72 65 61  74 65 20 61 20 66 69 6c  |n't create a fil|
00001ea0  65 20 77 68 69 6c 65 20  61 6e 6f 74 68 65 72 20  |e while another |
00001eb0  69 73 20 6f 70 65 6e 20  66 6f 72 20 73 6f 72 74  |is open for sort|
00001ec0  69 6e 67 22 0d 0a 6e 23  c9 33 30 36 3a 54 24 3d  |ing"..n#.306:T$=|
00001ed0  22 53 6f 72 74 20 65 78  70 72 65 73 73 69 6f 6e  |"Sort expression|
00001ee0  22 2b 41 24 2b f6 24 0d  0a 78 1f c9 33 30 37 3a  |"+A$+.$..x..307:|
00001ef0  54 24 3d f6 24 2b 22 20  2d 20 53 6f 72 74 20 66  |T$=.$+" - Sort f|
00001f00  61 69 6c 65 64 22 0d 0a  82 29 c9 33 30 38 3a 54  |ailed"...).308:T|
00001f10  24 3d 22 55 73 65 72 20  69 6e 74 65 72 72 75 70  |$="User interrup|
00001f20  74 20 61 63 6b 6e 6f 77  6c 65 64 67 65 64 22 0d  |t acknowledged".|
00001f30  0a 8c 2c c9 33 30 39 3a  54 24 3d 22 54 6f 6f 20  |..,.309:T$="Too |
00001f40  6d 61 6e 79 20 72 65 63  6f 72 64 73 20 66 6f 72  |many records for|
00001f50  20 66 61 73 74 20 73 6f  72 74 22 0d 0a 96 29 c9  | fast sort"...).|
00001f60  33 31 30 3a 54 24 3d 22  4e 6f 74 20 65 6e 6f 75  |310:T$="Not enou|
00001f70  67 68 20 72 65 63 6f 72  64 73 20 74 6f 20 73 6f  |gh records to so|
00001f80  72 74 21 22 0d 0a a0 26  7f 3a 54 24 3d 22 55 6e  |rt!"...&.:T$="Un|
00001f90  72 65 63 6f 67 6e 69 73  65 64 20 69 6e 74 65 72  |recognised inter|
00001fa0  6e 61 6c 20 65 72 72 6f  72 22 0d 0a aa 05 cb 0d  |nal error"......|
00001fb0  0a b4 25 e7 ac a4 70 72  6f 64 3a 54 24 2b 3d 22  |..%...prod:T$+="|
00001fc0  20 28 22 2b c3 9e 2b 22  29 20 5b 22 2b c3 45 25  | ("+..+") ["+.E%|
00001fd0  2b 22 5d 22 0d 0a be 0a  85 39 39 2c 54 24 0d 0a  |+"]".....99,T$..|
00001fe0  c8 04 0d 0a d2 1f dd f2  6f 70 65 6e 73 6f 72 74  |........opensort|
00001ff0  28 66 24 29 3a e7 a4 73  28 66 24 29 3d 22 22 3a  |(f$):..s(f$)="":|
00002000  e1 0d 0a dc 41 77 5f 6f  70 65 6e 25 3d a4 63 72  |....Aw_open%=.cr|
00002010  77 69 6e 64 28 74 77 5f  6f 70 65 6e 25 29 3a f2  |wind(tw_open%):.|
00002020  75 6e 73 65 6c 61 6c 6c  28 77 5f 6f 70 65 6e 25  |unselall(w_open%|
00002030  29 3a f2 73 65 6c 69 28  77 5f 6f 70 65 6e 25 2c  |):.seli(w_open%,|
00002040  38 29 0d 0a e6 36 66 69  6c 65 24 3d 66 24 3a f2  |8)...6file$=f$:.|
00002050  73 65 74 69 28 77 5f 6f  70 65 6e 25 2c 31 33 2c  |seti(w_open%,13,|
00002060  66 24 29 3a f2 73 65 74  69 28 77 5f 6f 70 65 6e  |f$):.seti(w_open|
00002070  25 2c 31 34 2c 22 22 29  0d 0a f0 23 f2 73 68 61  |%,14,"")...#.sha|
00002080  64 65 6f 70 65 6e 3a f2  64 69 61 6c 6f 67 75 65  |deopen:.dialogue|
00002090  28 77 5f 6f 70 65 6e 25  29 3a e1 0d 0a fa 04 0d  |(w_open%):......|
000020a0  0b 04 2c dd f2 6f 70 65  6e 73 6f 72 74 31 28 66  |..,..opensort1(f|
000020b0  24 2c 6d 25 2c 64 25 2c  70 24 2c 72 25 29 3a e7  |$,m%,d%,p$,r%):.|
000020c0  a4 73 28 66 24 29 3d 22  22 3a e1 0d 0b 0e 16 ea  |.s(f$)="":......|
000020d0  49 25 2c 67 25 2c 68 25  2c 58 25 2c 59 25 2c 54  |I%,g%,h%,X%,Y%,T|
000020e0  24 0d 0b 18 06 ea 85 0d  0b 22 15 ee 85 ea 3a f7  |$........"....:.|
000020f0  85 3a f2 6c 6f 61 64 65  72 72 3a e1 0d 0b 2c 0e  |.:.loaderr:...,.|
00002100  70 24 3d a4 73 75 28 70  24 29 0d 0b 36 12 e7 a4  |p$=.su(p$)..6...|
00002110  76 5f 28 31 29 f2 65 72  72 28 33 29 0d 0b 40 40  |v_(1).err(3)..@@|
00002120  f2 77 61 69 74 70 6f 69  6e 74 3a 54 24 3d 66 24  |.waitpoint:T$=f$|
00002130  3a 6d 25 3d a8 28 39 39  2f 28 6d 61 78 66 25 2b  |:m%=.(99/(maxf%+|
00002140  31 29 2b 28 39 39 2d 28  39 39 2f 28 6d 61 78 66  |1)+(99-(99/(maxf|
00002150  25 2b 31 29 29 29 2a 6d  25 2f 37 29 0d 0b 4a 19  |%+1)))*m%/7)..J.|
00002160  77 25 28 30 29 3d a4 63  72 77 69 6e 64 28 74 77  |w%(0)=.crwind(tw|
00002170  25 28 30 29 29 0d 0b 54  1b e7 70 24 3d 22 22 70  |%(0))..T..p$=""p|
00002180  24 3d a4 70 77 63 6f 64  65 28 70 61 73 73 24 29  |$=.pwcode(pass$)|
00002190  0d 0b 5e 33 70 61 73 73  31 24 3d 70 24 3a 70 61  |..^3pass1$=p$:pa|
000021a0  73 73 24 3d a4 70 77 63  6f 64 65 28 70 24 29 3a  |ss$=.pwcode(p$):|
000021b0  e7 63 6c 65 61 72 70 61  73 73 25 70 61 73 73 24  |.clearpass%pass$|
000021c0  3d 22 22 0d 0b 68 18 c8  99 73 77 69 25 2c 70 61  |=""..h...swi%,pa|
000021d0  73 73 77 6f 72 64 5f 25  2c 70 24 0d 0b 72 25 67  |ssword_%,p$..r%g|
000021e0  25 3d 30 3a c8 99 73 77  69 25 2c 6f 70 65 6e 5f  |%=0:..swi%,open_|
000021f0  25 2c 54 24 2c 6d 25 2c  64 25 2c 72 25 b8 47 25  |%,T$,m%,d%,r%.G%|
00002200  0d 0b 7c 25 67 25 3d 47  25 3a e7 67 25 84 3f 73  |..|%g%=G%:.g%.?s|
00002210  64 25 3c 3e 31 33 8c f2  77 61 72 6e 66 69 6c 65  |d%<>13..warnfile|
00002220  3a 67 25 3d b9 0d 0b 86  1a 68 61 6e 64 25 3d a4  |:g%=.....hand%=.|
00002230  76 5f 28 32 29 3a f2 69  6e 69 74 66 69 6c 65 0d  |v_(2):.initfile.|
00002240  0b 90 1a c8 99 73 77 69  25 2c 73 65 6c 65 63 74  |.....swi%,select|
00002250  6b 65 79 5f 25 2c 22 3f  22 0d 0b 9a 15 c8 99 73  |key_%,"?"......s|
00002260  77 69 25 2c 73 64 34 35  5f 25 2c 22 4e 22 0d 0b  |wi%,sd45_%,"N"..|
00002270  a4 2f 24 a4 74 61 28 77  25 28 30 29 29 3d 22 53  |./$.ta(w%(0))="S|
00002280  6f 72 74 3d 22 2b a4 66  69 6c 65 6e 61 6d 65 3a  |ort="+.filename:|
00002290  f2 66 65 78 74 3a f2 72  65 61 64 77 73 0d 0b ae  |.fext:.readws...|
000022a0  0f f2 65 78 70 61 6e 64  73 6f 72 74 0d 0b b8 39  |..expandsort...9|
000022b0  f2 6f 70 65 6e 28 77 25  28 30 29 2c 31 36 2c 34  |.open(w%(0),16,4|
000022c0  30 34 2c 35 31 32 2c 39  30 30 2c 30 2c 30 2c 2d  |04,512,900,0,0,-|
000022d0  31 29 3a c8 99 73 77 69  25 2c 67 72 65 63 5f 25  |1):..swi%,grec_%|
000022e0  2c 30 b8 4e 25 0d 0b c2  1b c8 99 73 77 69 25 2c  |,0.N%......swi%,|
000022f0  73 64 35 37 5f 25 2c 22  62 69 74 37 22 b8 47 25  |sd57_%,"bit7".G%|
00002300  0d 0b cc 15 c8 99 73 77  69 25 2c 6f 72 64 65 72  |......swi%,order|
00002310  5f 25 b8 4e 25 0d 0b d6  14 f2 66 6c 67 28 66 5f  |_%.N%.....flg(f_|
00002320  37 62 69 74 25 2c 47 25  29 0d 0b e0 17 f2 6d 61  |7bit%,G%).....ma|
00002330  6b 65 73 6f 72 74 3a f2  66 61 73 74 73 6f 72 74  |kesort:.fastsort|
00002340  0d 0b ea 15 c8 99 73 77  69 25 2c 73 64 33 38 5f  |......swi%,sd38_|
00002350  25 2c 32 35 35 0d 0b f4  15 c8 99 73 77 69 25 2c  |%,255......swi%,|
00002360  73 64 33 38 5f 25 2c 32  35 35 0d 0b fe 20 66 6e  |sd38_%,255... fn|
00002370  24 3d 66 24 3a e7 67 25  f2 64 69 61 6c 6f 67 75  |$=f$:.g%.dialogu|
00002380  65 28 77 5f 6d 65 73 73  25 29 0d 0c 08 05 e1 0d  |e(w_mess%)......|
00002390  0c 12 04 0d 0c 1c 0e dd  f2 77 61 72 6e 66 69 6c  |.........warnfil|
000023a0  65 0d 0c 26 2a ea 54 25  2c 74 25 2c 49 25 2c 54  |e..&*.T%,t%,I%,T|
000023b0  24 3a 77 5f 6d 65 73 73  25 3d a4 63 72 77 69 6e  |$:w_mess%=.crwin|
000023c0  64 28 74 77 5f 6d 65 73  73 25 29 0d 0c 30 13 f7  |d(tw_mess%)..0..|
000023d0  2b 31 3a e3 49 25 3d 30  b8 37 3a f3 54 24 0d 0c  |+1:.I%=0.7:.T$..|
000023e0  3a 29 e7 67 25 80 28 32  5e 49 25 29 3a f2 73 65  |:).g%.(2^I%):.se|
000023f0  74 69 28 77 5f 6d 65 73  73 25 2c 54 25 2c 54 24  |ti(w_mess%,T%,T$|
00002400  29 3a 54 25 2b 3d 31 0d  0c 44 0f ed 3a e7 24 73  |):T%+=1..D..:.$s|
00002410  64 25 3e 22 22 8c 0d 0c  4e 4a f2 73 65 74 69 28  |d%>""...NJ.seti(|
00002420  77 5f 6d 65 73 73 25 2c  54 25 2c 22 50 61 73 73  |w_mess%,T%,"Pass|
00002430  77 6f 72 64 20 76 69 6f  6c 61 74 69 6f 6e 73 20  |word violations |
00002440  68 61 76 65 20 6f 63 63  75 72 65 64 20 61 73 20  |have occured as |
00002450  66 6f 6c 6c 6f 77 73 3a  22 29 3a 54 25 2b 3d 31  |follows:"):T%+=1|
00002460  0d 0c 58 0c 74 25 3d 73  64 25 3a f5 0d 0c 62 3e  |..X.t%=sd%:...b>|
00002470  e7 74 25 3c 73 64 25 2b  31 39 32 3a e7 24 74 25  |.t%<sd%+192:.$t%|
00002480  3e 22 22 3a f2 73 65 74  69 28 77 5f 6d 65 73 73  |>"":.seti(w_mess|
00002490  25 2c 54 25 2c 22 20 20  55 73 69 6e 67 20 22 2b  |%,T%,"  Using "+|
000024a0  24 74 25 29 3a 54 25 2b  3d 31 0d 0c 6c 16 74 25  |$t%):T%+=1..l.t%|
000024b0  2b 3d 36 34 3a fd 74 25  3d 73 64 25 2b 31 39 32  |+=64:.t%=sd%+192|
000024c0  0d 0c 76 05 cd 0d 0c 80  29 c8 95 54 25 3c 36 3a  |..v.....)..T%<6:|
000024d0  f2 73 65 74 69 28 77 5f  6d 65 73 73 25 2c 54 25  |.seti(w_mess%,T%|
000024e0  2c 22 22 29 3a 54 25 2b  3d 31 3a ce 3a e1 0d 0c  |,""):T%+=1:.:...|
000024f0  8a 3e dc 22 2a 2a 20 54  68 69 73 20 66 69 6c 65  |.>."** This file|
00002500  20 4d 41 59 20 62 65 20  43 4f 52 52 55 50 54 45  | MAY be CORRUPTE|
00002510  44 20 64 75 65 20 74 6f  20 69 6c 6c 65 67 61 6c  |D due to illegal|
00002520  20 63 6c 6f 73 75 72 65  20 2a 2a 22 0d 0c 94 3c  | closure **"...<|
00002530  dc 22 20 20 2a 2a 20 54  68 69 73 20 66 69 6c 65  |."  ** This file|
00002540  20 68 61 73 20 62 65 65  6e 20 61 63 63 65 73 73  | has been access|
00002550  65 64 20 62 79 20 6f 6c  64 65 72 20 73 6f 66 74  |ed by older soft|
00002560  77 61 72 65 20 2a 2a 22  0d 0c 9e 09 dc 2c 2c 2c  |ware **".....,,,|
00002570  2c 0d 0c a8 04 0d 0c b2  0e dd f2 69 6e 69 74 66  |,..........initf|
00002580  69 6c 65 0d 0c bc 2b 66  24 28 68 25 29 3d 22 22  |ile...+f$(h%)=""|
00002590  3a 66 78 24 28 68 25 29  3d 22 22 3a 65 24 28 68  |:fx$(h%)="":e$(h|
000025a0  25 29 3d 22 22 3a 72 25  28 68 25 29 3d 31 0d 0c  |%)="":r%(h%)=1..|
000025b0  c6 38 6f 24 28 68 25 29  3d 22 22 3a 6f 25 28 68  |.8o$(h%)="":o%(h|
000025c0  25 2c 30 29 3d 37 3a 72  24 28 68 25 29 3d 22 22  |%,0)=7:r$(h%)=""|
000025d0  3a e3 49 25 3d 30 b8 33  3a 74 25 28 68 25 2c 49  |:.I%=0.3:t%(h%,I|
000025e0  25 29 3d 30 3a ed 0d 0c  d0 2e 6c 24 28 68 25 29  |%)=0:.....l$(h%)|
000025f0  3d 22 22 3a 6c 6b 24 28  68 25 29 3d 22 22 3a 6c  |="":lk$(h%)="":l|
00002600  78 24 28 68 25 29 3d 22  22 3a 73 72 24 28 68 25  |x$(h%)="":sr$(h%|
00002610  29 3d 22 22 0d 0c da 1a  70 25 28 68 25 2c 30 29  |)=""....p%(h%,0)|
00002620  3d 30 3a 70 24 28 68 25  2c 30 29 3d 22 22 0d 0c  |=0:p$(h%,0)=""..|
00002630  e4 33 e3 49 25 3d 30 b8  32 33 3a 64 24 28 68 25  |.3.I%=0.23:d$(h%|
00002640  2c 49 25 29 3d 22 22 3a  ed 3a e3 49 25 3d 30 b8  |,I%)="":.:.I%=0.|
00002650  31 38 3a f2 6e 6f 74 65  28 49 25 2c 22 22 29 3a  |18:.note(I%,""):|
00002660  ed 0d 0c ee 23 e3 49 25  3d 30 b8 32 39 3a 6d 61  |....#.I%=0.29:ma|
00002670  24 28 49 25 29 3d 22 22  3a ed 3a 77 6f 25 28 68  |$(I%)="":.:wo%(h|
00002680  25 29 3d 30 0d 0c f8 33  e3 49 25 3d 30 b8 31 35  |%)=0...3.I%=0.15|
00002690  3a 6c 66 25 28 68 25 2c  49 25 29 3d 30 3a ed 3a  |:lf%(h%,I%)=0:.:|
000026a0  e3 49 25 3d 30 b8 31 34  3a 77 24 28 68 25 2c 49  |.I%=0.14:w$(h%,I|
000026b0  25 29 3d 22 22 3a ed 0d  0d 02 4c 6c 6c 25 28 68  |%)="":....Lll%(h|
000026c0  25 2c 30 29 3d 33 30 3a  6c 6c 25 28 68 25 2c 31  |%,0)=30:ll%(h%,1|
000026d0  29 3d 34 3a 6c 6c 25 28  68 25 2c 32 29 3d 34 3a  |)=4:ll%(h%,2)=4:|
000026e0  6c 6c 25 28 68 25 2c 33  29 3d 39 3a 6c 6c 25 28  |ll%(h%,3)=9:ll%(|
000026f0  68 25 2c 34 29 3d 32 3a  6c 6c 25 28 68 25 2c 35  |h%,4)=2:ll%(h%,5|
00002700  29 3d 31 0d 0d 0c 13 66  6c 25 28 68 25 29 3d 66  |)=1....fl%(h%)=f|
00002710  5f 64 66 6c 74 25 0d 0d  16 05 e1 0d 0d 20 04 0d  |_dflt%....... ..|
00002720  0d 2a 0d dd f2 6c 6f 61  64 65 72 72 0d 0d 34 16  |.*...loaderr..4.|
00002730  f2 6e 6f 72 6d 70 6f 69  6e 74 3a e7 68 25 3e 3d  |.normpoint:.h%>=|
00002740  30 8c 0d 0d 3e 16 e7 67  25 3a f2 64 65 6c 77 28  |0...>..g%:.delw(|
00002750  77 5f 6d 65 73 73 25 29  0d 0d 48 18 e7 77 25 28  |w_mess%)..H..w%(|
00002760  30 29 3e 30 f2 64 65 6c  77 28 77 25 28 30 29 29  |0)>0.delw(w%(0))|
00002770  0d 0d 52 17 e7 68 61 6e  64 25 3e 30 3a f2 63 6c  |..R..hand%>0:.cl|
00002780  6f 73 65 66 69 6c 65 0d  0d 5c 0e e7 9f 3d 26 38  |osefile..\...=&8|
00002790  30 33 30 31 8c 0d 0d 66  44 77 5f 6f 70 65 6e 25  |0301...fDw_open%|
000027a0  3d a4 63 72 77 69 6e 64  28 74 77 5f 6f 70 65 6e  |=.crwind(tw_open|
000027b0  25 29 3a f2 75 6e 73 65  6c 61 6c 6c 28 77 5f 6f  |%):.unselall(w_o|
000027c0  70 65 6e 25 29 3a f2 73  65 6c 69 28 77 5f 6f 70  |pen%):.seli(w_op|
000027d0  65 6e 25 2c 6d 25 2b 31  29 0d 0d 70 17 e7 64 25  |en%,m%+1)..p..d%|
000027e0  f2 73 65 6c 69 28 77 5f  6f 70 65 6e 25 2c 30 29  |.seli(w_open%,0)|
000027f0  0d 0d 7a 36 66 69 6c 65  24 3d 66 24 3a f2 73 65  |..z6file$=f$:.se|
00002800  74 69 28 77 5f 6f 70 65  6e 25 2c 31 33 2c 66 24  |ti(w_open%,13,f$|
00002810  29 3a f2 73 65 74 69 28  77 5f 6f 70 65 6e 25 2c  |):.seti(w_open%,|
00002820  31 34 2c 22 22 29 0d 0d  84 2c f2 73 68 61 64 65  |14,"")...,.shade|
00002830  6f 70 65 6e 3a f2 64 69  61 6c 6f 67 75 65 28 77  |open:.dialogue(w|
00002840  5f 6f 70 65 6e 25 29 3a  66 69 6c 65 25 3d 2d 31  |_open%):file%=-1|
00002850  3a e1 0d 0d 8e 05 cd 0d  0d 98 05 cd 0d 0d a2 16  |:...............|
00002860  66 69 6c 65 25 3d 2d 31  3a f2 65 72 72 28 36 29  |file%=-1:.err(6)|
00002870  3a e1 0d 0d ac 04 0d 0d  b6 13 dd f2 63 6c 6f 73  |:...........clos|
00002880  65 66 69 6c 65 3a ea 49  25 0d 0d c0 1e f2 72 65  |efile:.I%.....re|
00002890  61 64 79 3a f2 77 72 69  74 65 77 73 3a f2 64 65  |ady:.writews:.de|
000028a0  6c 66 69 6c 65 77 73 0d  0d ca 16 68 61 6e 64 25  |lfilews....hand%|
000028b0  3d 30 3a 77 25 28 30 29  3d 2d 31 45 39 0d 0d d4  |=0:w%(0)=-1E9...|
000028c0  0e 63 6c 6f 73 65 6f 6b  25 3d a3 0d 0d de 15 c8  |.closeok%=......|
000028d0  99 73 77 69 25 2c 63 6c  6f 73 65 5f 25 b8 53 25  |.swi%,close_%.S%|
000028e0  0d 0d e8 0d f2 66 61 73  74 73 6f 72 74 0d 0d f2  |.....fastsort...|
000028f0  05 e1 0d 0d fc 04 0d 0e  06 20 dd f2 61 6c 69 67  |......... ..alig|
00002900  6e 28 49 25 29 3a e7 74  78 31 25 2d 74 78 30 25  |n(I%):.tx1%-tx0%|
00002910  3e 31 30 38 3a e1 0d 0e  10 1f 74 78 30 25 3d 49  |>108:.....tx0%=I|
00002920  25 2a 34 30 2b 31 36 3a  74 78 31 25 3d 74 78 30  |%*40+16:tx1%=tx0|
00002930  25 2b 34 34 30 0d 0e 1a  20 74 79 31 25 3d 39 30  |%+440... ty1%=90|
00002940  30 2d 49 25 2a 34 30 3a  74 79 30 25 3d 74 79 31  |0-I%*40:ty0%=ty1|
00002950  25 2d 33 32 30 0d 0e 24  05 e1 0d 0e 2e 04 0d 0e  |%-320..$........|
00002960  38 1c dd f2 6d 61 6b 65  66 6c 69 73 74 3a ea 58  |8...makeflist:.X|
00002970  25 2c 59 25 2c 50 25 2c  54 25 0d 0e 42 36 50 25  |%,Y%,P%,T%..B6P%|
00002980  3d a4 6d 61 6b 65 77 69  6e 64 28 32 29 3a 54 25  |=.makewind(2):T%|
00002990  3d a4 74 61 28 50 25 29  3a 24 54 25 3d 22 46 69  |=.ta(P%):$T%="Fi|
000029a0  65 6c 64 73 3d 22 2b a4  66 69 6c 65 6e 61 6d 65  |elds="+.filename|
000029b0  0d 0e 4c 20 54 25 3d a9  24 54 25 2b 34 3a c8 99  |..L T%=.$T%+4:..|
000029c0  73 77 69 25 2c 73 64 36  34 5f 25 2c 31 b8 47 25  |swi%,sd64_%,1.G%|
000029d0  0d 0e 56 0f e7 47 25 3c  54 25 47 25 3d 54 25 0d  |..V..G%<T%G%=T%.|
000029e0  0e 60 15 58 25 3d 47 25  3a e7 58 25 3c 32 31 58  |.`.X%=G%:.X%<21X|
000029f0  25 3d 32 31 0d 0e 6a 17  59 25 3d a4 76 5f 28 37  |%=21..j.Y%=.v_(7|
00002a00  29 3a e7 59 25 3c 32 59  25 3d 32 0d 0e 74 33 f2  |):.Y%<2Y%=2..t3.|
00002a10  77 65 78 74 28 50 25 2c  58 25 2a 31 36 2b 6d 61  |wext(P%,X%*16+ma|
00002a20  72 67 69 6e 25 2a 32 2c  59 25 2a 6c 69 6e 65 67  |rgin%*2,Y%*lineg|
00002a30  61 70 25 2b 6d 61 72 67  69 6e 25 2a 32 29 0d 0e  |ap%+margin%*2)..|
00002a40  7e 05 e1 0d 0e 88 04 0d  0e 92 0f dd f2 6d 61 6b  |~............mak|
00002a50  65 6e 6f 74 65 73 0d 0e  9c 35 ea 50 25 3a 50 25  |enotes...5.P%:P%|
00002a60  3d a4 6d 61 6b 65 77 69  6e 64 28 34 29 3a 24 a4  |=.makewind(4):$.|
00002a70  74 61 28 50 25 29 3d 22  4e 6f 74 65 70 61 64 3d  |ta(P%)="Notepad=|
00002a80  22 2b a4 66 69 6c 65 6e  61 6d 65 0d 0e a6 05 e1  |"+.filename.....|
00002a90  0d 0e b0 04 0d 0e ba 0e  dd f2 6d 61 6b 65 73 75  |..........makesu|
00002aa0  62 73 0d 0e c4 16 ea 50  25 2c 54 24 2c 49 25 2c  |bs.....P%,T$,I%,|
00002ab0  4a 25 2c 4b 25 2c 54 25  0d 0e ce 31 4b 25 3d 77  |J%,K%,T%...1K%=w|
00002ac0  25 28 31 29 3e 30 3a e7  4b 25 f2 67 65 74 77 28  |%(1)>0:.K%.getw(|
00002ad0  77 25 28 31 29 29 8b f2  72 65 61 64 62 6c 6f 63  |w%(1))..readbloc|
00002ae0  6b 28 74 77 25 28 31 29  29 0d 0e d8 31 74 78 30  |k(tw%(1))...1tx0|
00002af0  25 3d 78 30 25 3a 74 79  30 25 3d 79 30 25 3a 74  |%=x0%:ty0%=y0%:t|
00002b00  78 31 25 3d 78 31 25 3a  74 79 31 25 3d 79 31 25  |x1%=x1%:ty1%=y1%|
00002b10  3a f2 61 6c 69 67 6e 28  31 29 0d 0e e2 2c f2 64  |:.align(1)...,.d|
00002b20  65 6c 66 69 6c 65 77 28  31 29 3a 50 25 3d a4 63  |elfilew(1):P%=.c|
00002b30  72 77 69 6e 64 28 74 77  25 28 31 29 29 3a 77 25  |rwind(tw%(1)):w%|
00002b40  28 31 29 3d 50 25 0d 0e  ec 27 24 a4 74 61 28 77  |(1)=P%...'$.ta(w|
00002b50  25 28 31 29 29 3d 22 53  75 62 73 65 74 73 20 6f  |%(1))="Subsets o|
00002b60  66 20 22 2b a4 66 69 6c  65 6e 61 6d 65 0d 0e f6  |f "+.filename...|
00002b70  17 54 24 3d a4 73 75 62  73 74 72 3a e3 49 25 3d  |.T$=.substr:.I%=|
00002b80  30 b8 32 33 0d 0f 00 3c  e7 c1 54 24 2c 49 25 2b  |0.23...<..T$,I%+|
00002b90  31 2c 31 29 3c 3e 22 2e  22 3a f2 6c 6f 73 65 69  |1,1)<>".":.losei|
00002ba0  63 6f 6e 28 50 25 2c 49  25 2b 35 29 3a f2 6c 6f  |con(P%,I%+5):.lo|
00002bb0  73 65 69 63 6f 6e 28 50  25 2c 49 25 2b 32 39 29  |seicon(P%,I%+29)|
00002bc0  0d 0f 0a 05 ed 0d 0f 14  2a c8 95 54 24 3e 22 22  |........*..T$>""|
00002bd0  80 c2 54 24 29 3c 3e 22  2e 22 3a 54 24 3d c0 54  |..T$)<>".":T$=.T|
00002be0  24 29 3a ce 3a 54 24 3d  c0 54 24 2c 32 34 29 0d  |$):.:T$=.T$,24).|
00002bf0  0f 1e 2b 43 25 3d 28 28  a9 54 24 2d 31 29 81 36  |..+C%=((.T$-1).6|
00002c00  2b 31 29 2a 35 36 2b 36  32 3a e7 4b 25 3a 43 25  |+1)*56+62:.K%:C%|
00002c10  3d 74 79 31 25 2d 74 79  30 25 0d 0f 28 34 54 25  |=ty1%-ty0%..(4T%|
00002c20  3d 28 33 2d 28 a9 54 24  2d 31 29 81 36 29 2a 35  |=(3-(.T$-1).6)*5|
00002c30  36 3a 4a 25 3d 30 3a e3  49 25 3d 30 b8 39 3a 54  |6:J%=0:.I%=0.9:T|
00002c40  24 3d a4 73 75 62 6e 61  6d 65 28 49 25 29 0d 0f  |$=.subname(I%)..|
00002c50  32 1e f2 73 65 74 69 28  50 25 2c 49 25 2b 35 33  |2..seti(P%,I%+53|
00002c60  2c 54 24 29 3a e7 54 24  3d 22 22 8c 0d 0f 3c 17  |,T$):.T$=""...<.|
00002c70  f2 6c 6f 73 65 69 63 6f  6e 28 50 25 2c 49 25 2b  |.loseicon(P%,I%+|
00002c80  35 33 29 0d 0f 46 05 cc  0d 0f 50 2e f2 67 65 74  |53)..F....P..get|
00002c90  69 28 50 25 2c 49 25 2b  35 33 29 3a f2 64 65 6c  |i(P%,I%+53):.del|
00002ca0  69 63 6f 6e 28 50 25 2c  49 25 2b 35 33 29 3a 4a  |icon(P%,I%+53):J|
00002cb0  25 3d 49 25 2b 31 0d 0f  5a 3a 71 25 21 34 3d 21  |%=I%+1..Z:q%!4=!|
00002cc0  71 25 3a 71 25 21 31 32  2b 3d 54 25 3a 71 25 21  |q%:q%!12+=T%:q%!|
00002cd0  32 30 2b 3d 54 25 3a c8  99 22 57 69 6d 70 5f 43  |20+=T%:.."Wimp_C|
00002ce0  72 65 61 74 65 49 63 6f  6e 22 2c 2c 71 25 2b 34  |reateIcon",,q%+4|
00002cf0  0d 0f 64 05 cd 0d 0f 6e  20 ed 3a f2 67 65 74 69  |..d....n .:.geti|
00002d00  28 50 25 2c 34 29 3a f2  64 65 6c 69 63 6f 6e 28  |(P%,4):.delicon(|
00002d10  50 25 2c 34 29 0d 0f 78  3a 71 25 21 34 3d 21 71  |P%,4)..x:q%!4=!q|
00002d20  25 3a 71 25 21 31 32 2b  3d 54 25 3a 71 25 21 32  |%:q%!12+=T%:q%!2|
00002d30  30 2b 3d 54 25 3a c8 99  22 57 69 6d 70 5f 43 72  |0+=T%:.."Wimp_Cr|
00002d40  65 61 74 65 49 63 6f 6e  22 2c 2c 71 25 2b 34 0d  |eateIcon",,q%+4.|
00002d50  0f 82 38 54 25 2b 3d 28  28 31 30 2d 4a 25 29 81  |..8T%+=((10-J%).|
00002d60  35 29 2a 36 34 3a f2 67  65 74 77 28 50 25 29 3a  |5)*64:.getw(P%):|
00002d70  f2 77 65 78 74 28 50 25  2c 65 78 31 25 2c 2d 65  |.wext(P%,ex1%,-e|
00002d80  79 30 25 2d 54 25 29 0d  0f 8c 3f f2 6f 70 65 6e  |y0%-T%)...?.open|
00002d90  28 77 25 28 31 29 2c 74  78 30 25 2c 74 79 31 25  |(w%(1),tx0%,ty1%|
00002da0  2d 43 25 2c 74 78 31 25  2b 78 31 25 2d 78 30 25  |-C%,tx1%+x1%-x0%|
00002db0  2c 74 79 31 25 2c 30 2c  30 2c 2d 31 29 3a f2 73  |,ty1%,0,0,-1):.s|
00002dc0  68 6f 77 73 75 62 0d 0f  96 05 e1 0d 0f a0 04 0d  |howsub..........|
00002dd0  0f aa 0e dd f2 6d 61 6b  65 73 6f 72 74 0d 0f b4  |.....makesort...|
00002de0  38 ea 50 25 2c 58 25 2c  59 25 3a 50 25 3d a4 6d  |8.P%,X%,Y%:P%=.m|
00002df0  61 6b 65 77 69 6e 64 28  33 29 3a 24 a4 74 61 28  |akewind(3):$.ta(|
00002e00  50 25 29 3d 22 53 6f 72  74 3d 22 2b a4 66 69 6c  |P%)="Sort="+.fil|
00002e10  65 6e 61 6d 65 0d 0f be  48 58 25 3d 32 35 35 3a  |ename...HX%=255:|
00002e20  59 25 3d a4 76 5f 28 31  37 29 3a f2 77 65 78 74  |Y%=.v_(17):.wext|
00002e30  28 77 25 28 33 29 2c 58  25 2a 31 36 2b 6d 61 72  |(w%(3),X%*16+mar|
00002e40  67 69 6e 25 2a 32 2c 59  25 2a 6c 69 6e 65 67 61  |gin%*2,Y%*linega|
00002e50  70 25 2b 6d 61 72 67 69  6e 25 2a 32 29 0d 0f c8  |p%+margin%*2)...|
00002e60  05 e1 0d 0f d2 04 0d 0f  dc 0a dd f2 73 75 62 73  |............subs|
00002e70  0d 0f e6 19 e7 77 25 28  31 29 3c 3d 30 3a f2 6d  |.....w%(1)<=0:.m|
00002e80  61 6b 65 73 75 62 73 3a  e1 0d 0f f0 17 f2 66 72  |akesubs:......fr|
00002e90  6f 6e 74 28 77 25 28 31  29 2c 2d 31 2c 2d 31 29  |ont(w%(1),-1,-1)|
00002ea0  0d 0f fa 05 e1 0d 10 04  04 0d 10 0e 0b dd f2 73  |...............s|
00002eb0  6f 72 74 77 0d 10 18 19  e7 77 25 28 33 29 3c 3d  |ortw.....w%(3)<=|
00002ec0  30 3a f2 6d 61 6b 65 73  6f 72 74 3a e1 0d 10 22  |0:.makesort:..."|
00002ed0  17 f2 66 72 6f 6e 74 28  77 25 28 33 29 2c 2d 31  |..front(w%(3),-1|
00002ee0  2c 2d 31 29 0d 10 2c 05  e1 0d 10 36 04 0d 10 40  |,-1)..,....6...@|
00002ef0  1c dd a4 6d 61 6b 65 77  69 6e 64 28 54 25 29 3a  |...makewind(T%):|
00002f00  ea 50 25 2c 49 25 2c 4b  25 0d 10 4a 34 4b 25 3d  |.P%,I%,K%..J4K%=|
00002f10  77 25 28 54 25 29 3e 30  3a e7 4b 25 f2 67 65 74  |w%(T%)>0:.K%.get|
00002f20  77 28 77 25 28 54 25 29  29 8b f2 72 65 61 64 62  |w(w%(T%))..readb|
00002f30  6c 6f 63 6b 28 74 77 25  28 54 25 29 29 0d 10 54  |lock(tw%(T%))..T|
00002f40  32 74 78 30 25 3d 78 30  25 3a 74 79 30 25 3d 79  |2tx0%=x0%:ty0%=y|
00002f50  30 25 3a 74 78 31 25 3d  78 31 25 3a 74 79 31 25  |0%:tx1%=x1%:ty1%|
00002f60  3d 79 31 25 3a f2 61 6c  69 67 6e 28 54 25 29 0d  |=y1%:.align(T%).|
00002f70  10 5e 2f f2 64 65 6c 66  69 6c 65 77 28 54 25 29  |.^/.delfilew(T%)|
00002f80  3a 50 25 3d a4 63 72 77  69 6e 64 28 74 77 25 28  |:P%=.crwind(tw%(|
00002f90  54 25 29 29 3a 77 25 28  54 25 29 3d 50 25 0d 10  |T%)):w%(T%)=P%..|
00002fa0  68 2c f2 6f 70 65 6e 28  50 25 2c 74 78 30 25 2c  |h,.open(P%,tx0%,|
00002fb0  74 79 30 25 2c 74 78 31  25 2c 74 79 31 25 2c 30  |ty0%,tx1%,ty1%,0|
00002fc0  2c 30 2c 2d 31 29 3a 3d  50 25 0d 10 72 04 0d 10  |,0,-1):=P%..r...|
00002fd0  7c 31 dd a4 63 72 77 69  6e 64 28 54 25 29 3a c8  ||1..crwind(T%):.|
00002fe0  99 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  |."Wimp_CreateWin|
00002ff0  64 6f 77 22 2c 2c 54 25  b8 54 25 3a 3d 54 25 0d  |dow",,T%.T%:=T%.|
00003000  10 86 04 0d 10 90 11 dd  f2 73 68 6f 77 73 75 62  |.........showsub|
00003010  3a ea 50 25 0d 10 9a 13  50 25 3d 77 25 28 31 29  |:.P%....P%=w%(1)|
00003020  3a e7 50 25 3e 30 8c 0d  10 a4 27 f2 73 75 62 64  |:.P%>0....'.subd|
00003030  69 73 70 31 3a f2 75 6e  73 65 6c 61 6c 6c 28 50  |isp1:.unselall(P|
00003040  25 29 3a e7 a4 76 5f 28  31 31 29 3d 30 8c 0d 10  |%):..v_(11)=0...|
00003050  ae 0f f2 73 65 6c 69 28  50 25 2c 31 29 0d 10 b8  |...seli(P%,1)...|
00003060  05 cc 0d 10 c2 1d f2 73  65 6c 69 28 50 25 2c 28  |.......seli(P%,(|
00003070  a4 76 5f 28 31 31 29 80  33 31 29 2b 32 38 29 0d  |.v_(11).31)+28).|
00003080  10 cc 28 e7 a4 76 5f 28  31 31 29 3e 33 31 3a f2  |..(..v_(11)>31:.|
00003090  73 65 6c 69 28 50 25 2c  28 a4 76 5f 28 31 31 29  |seli(P%,(.v_(11)|
000030a0  80 33 31 29 2b 34 29 0d  10 d6 05 cd 0d 10 e0 05  |.31)+4).........|
000030b0  cd 0d 10 ea 05 e1 0d 10  f4 04 0d 10 fe 28 dd f2  |.............(..|
000030c0  64 65 6c 66 69 6c 65 77  73 3a ea 49 25 3a e7 77  |delfilews:.I%:.w|
000030d0  25 28 30 29 3e 30 f2 64  65 6c 77 28 77 25 28 30  |%(0)>0.delw(w%(0|
000030e0  29 29 0d 11 08 21 e3 49  25 3d 31 b8 6d 61 78 77  |))...!.I%=1.maxw|
000030f0  25 3a f2 64 65 6c 66 69  6c 65 77 28 49 25 29 3a  |%:.delfilew(I%):|
00003100  ed 3a e1 0d 11 12 04 0d  11 1c 12 dd f2 64 65 6c  |.:...........del|
00003110  66 69 6c 65 77 28 49 25  29 0d 11 26 34 e7 77 25  |filew(I%)..&4.w%|
00003120  28 49 25 29 3e 30 3a f2  63 6c 6f 73 65 77 28 77  |(I%)>0:.closew(w|
00003130  25 28 49 25 29 29 3a e7  77 25 28 49 25 29 3e 30  |%(I%)):.w%(I%)>0|
00003140  f2 64 65 6c 77 28 77 25  28 49 25 29 29 0d 11 30  |.delw(w%(I%))..0|
00003150  05 e1 0d 11 3a 04 0d 11  44 0c dd f2 75 6d 65 73  |....:...D...umes|
00003160  73 32 0d 11 4e 0c c8 8e  71 25 21 31 36 ca 0d 11  |s2..N...q%!16...|
00003170  58 24 c9 36 3a e7 71 25  21 38 3d 6c 6f 61 64 72  |X$.6:.q%!8=loadr|
00003180  65 66 25 3a f2 64 61 74  61 73 61 76 65 61 63 6b  |ef%:.datasaveack|
00003190  3a e1 0d 11 62 05 cb 0d  11 6c 05 e1 0d 11 76 04  |:...b....l....v.|
000031a0  0d 11 80 12 dd f2 62 61  63 6b 67 72 6e 64 3a ea  |......backgrnd:.|
000031b0  54 25 0d 11 8a 17 e7 73  62 66 69 6c 65 25 3e 3d  |T%.....sbfile%>=|
000031c0  30 f2 73 75 62 64 69 73  70 0d 11 94 30 e7 73 74  |0.subdisp...0.st|
000031d0  61 72 74 73 6f 72 74 25  3a 73 74 61 72 74 73 6f  |artsort%:startso|
000031e0  72 74 25 3d a3 3a f2 6e  65 77 64 65 6c 61 79 3a  |rt%=.:.newdelay:|
000031f0  f2 73 6f 72 74 66 69 6c  65 0d 11 9e 1e e7 61 63  |.sortfile.....ac|
00003200  6b 70 65 6e 64 69 6e 67  25 3a 61 63 6b 70 65 6e  |kpending%:ackpen|
00003210  64 69 6e 67 25 3d a3 0d  11 a8 05 e1 0d 11 b2 04  |ding%=..........|
00003220  0d 11 bc 12 dd f2 74 65  6d 70 6c 61 74 65 28 54  |......template(T|
00003230  24 29 0d 11 c6 15 f2 74  65 6d 70 6c 61 74 65 31  |$).....template1|
00003240  28 54 24 2c 71 25 29 0d  11 d0 05 e1 0d 11 da 04  |(T$,q%).........|
00003250  0d 11 e4 2f dd f2 74 65  6d 70 6c 61 74 65 31 28  |.../..template1(|
00003260  54 24 2c 71 25 29 3a 54  24 3d a4 6c 6f 77 65 72  |T$,q%):T$=.lower|
00003270  28 54 24 29 3a ea 20 49  25 2c 54 25 2c 4c 25 0d  |(T$):. I%,T%,L%.|
00003280  11 ee 35 49 25 3d 74 65  6d 70 25 2b 31 36 3a c8  |..5I%=temp%+16:.|
00003290  95 21 49 25 3e 30 80 a4  6c 6f 77 65 72 28 24 28  |.!I%>0..lower($(|
000032a0  49 25 2b 31 32 29 29 3c  3e 54 24 3a 49 25 2b 3d  |I%+12))<>T$:I%+=|
000032b0  32 34 3a ce 0d 11 f8 2d  e7 21 49 25 3c 3d 30 3a  |24:....-.!I%<=0:|
000032c0  85 39 39 2c 22 54 65 6d  70 6c 61 74 65 20 27 22  |.99,"Template '"|
000032d0  2b 54 24 2b 22 27 20 6e  6f 74 20 66 6f 75 6e 64  |+T$+"' not found|
000032e0  22 0d 12 02 43 54 25 3d  74 65 6d 70 25 2b 21 49  |"...CT%=temp%+!I|
000032f0  25 3a 4c 25 3d 49 25 21  34 3a e3 49 25 3d 30 b8  |%:L%=I%!4:.I%=0.|
00003300  4c 25 88 34 3a 71 25 21  49 25 3d 54 25 21 49 25  |L%.4:q%!I%=T%!I%|
00003310  3a ed 3a 54 25 3d 71 25  2b 38 38 2b 71 25 21 38  |:.:T%=q%+88+q%!8|
00003320  34 2a 33 32 0d 12 0c 14  e7 28 71 25 21 35 36 29  |4*32.....(q%!56)|
00003330  80 28 31 3c 3c 38 29 8c  0d 12 16 33 71 25 21 37  |.(1<<8)....3q%!7|
00003340  32 3d a4 77 6f 72 6b 73  70 61 63 65 28 71 25 21  |2=.workspace(q%!|
00003350  38 30 29 3a 24 28 71 25  21 37 32 29 3d 24 54 25  |80):$(q%!72)=$T%|
00003360  3a 54 25 2b 3d a9 24 54  25 2b 31 0d 12 20 3d e7  |:T%+=.$T%+1.. =.|
00003370  71 25 21 37 36 3e 30 3a  71 25 21 37 36 3d a4 77  |q%!76>0:q%!76=.w|
00003380  6f 72 6b 73 70 61 63 65  28 a9 24 54 25 2b 31 29  |orkspace(.$T%+1)|
00003390  3a 24 28 71 25 21 37 36  29 3d 24 54 25 3a 54 25  |:$(q%!76)=$T%:T%|
000033a0  2b 3d a9 24 54 25 2b 31  0d 12 2a 05 cd 0d 12 34  |+=.$T%+1..*....4|
000033b0  0d e7 71 25 21 38 34 3e  30 8c 0d 12 3e 1f e3 49  |..q%!84>0...>..I|
000033c0  25 3d 71 25 2b 38 38 b8  71 25 2b 38 34 2b 71 25  |%=q%+88.q%+84+q%|
000033d0  21 38 34 2a 33 32 88 33  32 0d 12 48 14 e7 28 49  |!84*32.32..H..(I|
000033e0  25 21 31 36 29 80 28 31  3c 3c 38 29 8c 0d 12 52  |%!16).(1<<8)...R|
000033f0  33 49 25 21 32 30 3d a4  77 6f 72 6b 73 70 61 63  |3I%!20=.workspac|
00003400  65 28 49 25 21 32 38 29  3a 24 28 49 25 21 32 30  |e(I%!28):$(I%!20|
00003410  29 3d 24 54 25 3a 54 25  2b 3d a9 24 54 25 2b 31  |)=$T%:T%+=.$T%+1|
00003420  0d 12 5c 3d e7 49 25 21  32 34 3e 30 3a 49 25 21  |..\=.I%!24>0:I%!|
00003430  32 34 3d a4 77 6f 72 6b  73 70 61 63 65 28 a9 24  |24=.workspace(.$|
00003440  54 25 2b 31 29 3a 24 28  49 25 21 32 34 29 3d 24  |T%+1):$(I%!24)=$|
00003450  54 25 3a 54 25 2b 3d a9  24 54 25 2b 31 0d 12 66  |T%:T%+=.$T%+1..f|
00003460  05 cd 0d 12 70 05 ed 0d  12 7a 05 cd 0d 12 84 12  |....p....z......|
00003470  71 25 21 36 34 3d 73 70  72 69 74 65 73 25 0d 12  |q%!64=sprites%..|
00003480  8e 05 e1 0d 12 98 04 0d  12 a2 24 dd f2 6f 70 65  |..........$..ope|
00003490  6e 74 65 6d 70 6c 61 74  65 28 41 24 29 3a 74 65  |ntemplate(A$):te|
000034a0  6d 70 25 3d 93 2d 33 30  30 30 30 0d 12 ac 1d ff  |mp%=.-30000.....|
000034b0  22 4c 6f 61 64 20 22 2b  41 24 2b 22 20 22 2b c3  |"Load "+A$+" "+.|
000034c0  7e 74 65 6d 70 25 3a e1  0d 12 b6 04 0d 12 c0 12  |~temp%:.........|
000034d0  dd a4 74 65 6d 70 6c 61  74 65 28 54 24 29 0d 12  |..template(T$)..|
000034e0  ca 17 f2 74 65 6d 70 6c  61 74 65 31 28 54 24 2c  |...template1(T$,|
000034f0  74 62 73 25 29 0d 12 d4  1f 54 25 3d 74 62 73 25  |tbs%)....T%=tbs%|
00003500  3a 74 62 73 25 2b 3d 38  38 2b 74 62 73 25 21 38  |:tbs%+=88+tbs%!8|
00003510  34 2a 33 32 0d 12 de 29  e7 74 62 73 25 3e 74 62  |4*32...).tbs%>tb|
00003520  65 25 3a 85 39 39 2c 22  54 65 6d 70 6c 61 74 65  |e%:.99,"Template|
00003530  20 62 75 66 66 65 72 20  66 75 6c 6c 22 0d 12 e8  | buffer full"...|
00003540  07 3d 54 25 0d 12 f2 04  0d 12 fc 0b dd f2 64 65  |.=T%..........de|
00003550  66 77 73 0d 13 06 07 ea  49 25 0d 13 10 10 62 75  |fws.....I%....bu|
00003560  66 73 7a 25 3d 26 31 32  30 30 0d 13 1a 3b de 20  |fsz%=&1200...;. |
00003570  62 75 66 66 65 72 25 20  62 75 66 73 7a 25 3a 63  |buffer% bufsz%:c|
00003580  75 72 62 75 66 25 3d 62  75 66 66 65 72 25 3a 65  |urbuf%=buffer%:e|
00003590  6e 64 62 75 66 25 3d 62  75 66 66 65 72 25 2b 62  |ndbuf%=buffer%+b|
000035a0  75 66 73 7a 25 0d 13 24  20 f2 6f 70 65 6e 74 65  |ufsz%..$ .opente|
000035b0  6d 70 6c 61 74 65 28 a4  64 69 72 2b 22 4d 53 46  |mplate(.dir+"MSF|
000035c0  72 6d 37 22 29 0d 13 2e  3a f2 74 65 6d 70 6c 61  |rm7")...:.templa|
000035d0  74 65 28 22 73 74 6f 70  62 6f 78 22 29 3a c8 99  |te("stopbox"):..|
000035e0  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
000035f0  6f 77 22 2c 2c 71 25 b8  77 5f 73 74 6f 70 25 0d  |ow",,q%.w_stop%.|
00003600  13 38 15 f2 74 65 6d 70  6c 61 74 65 28 22 73 61  |.8..template("sa|
00003610  76 65 22 29 0d 13 42 2d  71 25 21 36 34 3d 31 3a  |ve")..B-q%!64=1:|
00003620  c8 99 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |.."Wimp_CreateWi|
00003630  6e 64 6f 77 22 2c 2c 71  25 b8 77 5f 73 61 76 65  |ndow",,q%.w_save|
00003640  25 0d 13 4c 3c f2 74 65  6d 70 6c 61 74 65 28 22  |%..L<.template("|
00003650  50 72 6f 67 49 6e 66 6f  22 29 3a c8 99 22 57 69  |ProgInfo"):.."Wi|
00003660  6d 70 5f 43 72 65 61 74  65 57 69 6e 64 6f 77 22  |mp_CreateWindow"|
00003670  2c 2c 71 25 b8 77 5f 70  69 6e 66 6f 25 0d 13 56  |,,q%.w_pinfo%..V|
00003680  3e f2 74 65 6d 70 6c 61  74 65 28 22 50 72 6f 67  |>.template("Prog|
00003690  49 6e 66 6f 32 22 29 3a  c8 99 22 57 69 6d 70 5f  |Info2"):.."Wimp_|
000036a0  43 72 65 61 74 65 57 69  6e 64 6f 77 22 2c 2c 71  |CreateWindow",,q|
000036b0  25 b8 77 5f 70 69 6e 66  6f 32 25 0d 13 60 3b f2  |%.w_pinfo2%..`;.|
000036c0  74 65 6d 70 6c 61 74 65  28 22 73 68 61 64 6f 77  |template("shadow|
000036d0  22 29 3a c8 99 22 57 69  6d 70 5f 43 72 65 61 74  |"):.."Wimp_Creat|
000036e0  65 57 69 6e 64 6f 77 22  2c 2c 71 25 b8 77 5f 73  |eWindow",,q%.w_s|
000036f0  68 61 64 6f 77 25 0d 13  6a 10 62 75 66 73 7a 25  |hadow%..j.bufsz%|
00003700  3d 26 31 46 30 30 0d 13  74 36 de 20 74 65 6d 70  |=&1F00..t6. temp|
00003710  6c 61 74 65 25 20 62 75  66 73 7a 25 3a 74 62 73  |late% bufsz%:tbs|
00003720  25 3d 74 65 6d 70 6c 61  74 65 25 3a 74 62 65 25  |%=template%:tbe%|
00003730  3d 74 62 73 25 2b 62 75  66 73 7a 25 0d 13 7e 1c  |=tbs%+bufsz%..~.|
00003740  74 77 25 28 30 29 3d a4  74 65 6d 70 6c 61 74 65  |tw%(0)=.template|
00003750  28 22 46 69 6c 65 22 29  0d 13 88 1f 74 77 25 28  |("File")....tw%(|
00003760  31 29 3d a4 74 65 6d 70  6c 61 74 65 28 22 53 75  |1)=.template("Su|
00003770  62 73 65 74 73 22 29 0d  13 92 21 74 77 25 28 32  |bsets")...!tw%(2|
00003780  29 3d a4 74 65 6d 70 6c  61 74 65 28 22 46 69 65  |)=.template("Fie|
00003790  6c 64 4c 69 73 74 22 29  0d 13 9c 21 74 77 25 28  |ldList")...!tw%(|
000037a0  33 29 3d a4 74 65 6d 70  6c 61 74 65 28 22 46 69  |3)=.template("Fi|
000037b0  65 6c 64 4c 69 73 74 22  29 0d 13 a6 1f 74 77 25  |eldList")....tw%|
000037c0  28 34 29 3d a4 74 65 6d  70 6c 61 74 65 28 22 4e  |(4)=.template("N|
000037d0  6f 74 65 70 61 64 22 29  0d 13 b0 20 f2 6f 70 65  |otepad")... .ope|
000037e0  6e 74 65 6d 70 6c 61 74  65 28 a4 64 69 72 2b 22  |ntemplate(.dir+"|
000037f0  4d 53 46 72 6d 38 22 29  0d 13 ba 31 74 77 5f 73  |MSFrm8")...1tw_s|
00003800  74 61 74 75 73 25 3d a4  74 65 6d 70 6c 61 74 65  |tatus%=.template|
00003810  28 22 53 74 61 74 75 73  22 29 3a 77 5f 73 74 61  |("Status"):w_sta|
00003820  74 75 73 25 3d 2d 31 45  39 0d 13 c4 2e 74 77 5f  |tus%=-1E9....tw_|
00003830  6d 65 73 73 25 3d a4 74  65 6d 70 6c 61 74 65 28  |mess%=.template(|
00003840  22 6d 65 73 73 61 67 65  22 29 3a 77 5f 6d 65 73  |"message"):w_mes|
00003850  73 25 3d 2d 31 45 39 0d  13 ce 2b 74 77 5f 73 6f  |s%=-1E9...+tw_so|
00003860  72 74 25 3d a4 74 65 6d  70 6c 61 74 65 28 22 73  |rt%=.template("s|
00003870  6f 72 74 22 29 3a 77 5f  73 6f 72 74 25 3d 2d 31  |ort"):w_sort%=-1|
00003880  45 39 0d 13 d8 2b 74 77  5f 6f 70 65 6e 25 3d a4  |E9...+tw_open%=.|
00003890  74 65 6d 70 6c 61 74 65  28 22 6f 70 65 6e 22 29  |template("open")|
000038a0  3a 77 5f 6f 70 65 6e 25  3d 2d 31 45 39 0d 13 e2  |:w_open%=-1E9...|
000038b0  31 74 77 5f 73 6f 72 74  65 78 25 3d a4 74 65 6d  |1tw_sortex%=.tem|
000038c0  70 6c 61 74 65 28 22 53  6f 72 74 65 78 22 29 3a  |plate("Sortex"):|
000038d0  77 5f 73 6f 72 74 65 78  25 3d 2d 31 45 39 0d 13  |w_sortex%=-1E9..|
000038e0  ec 05 e1 0d 13 f6 04 0d  14 00 11 dd f2 6c 6f 61  |.............loa|
000038f0  64 73 70 72 69 74 65 73  0d 14 0a 12 73 73 69 7a  |dsprites....ssiz|
00003900  65 25 3d 31 36 2a 31 30  32 34 0d 14 14 14 de 73  |e%=16*1024.....s|
00003910  70 72 69 74 65 73 25 20  73 73 69 7a 65 25 0d 14  |prites% ssize%..|
00003920  1e 32 21 73 70 72 69 74  65 73 25 3d 73 73 69 7a  |.2!sprites%=ssiz|
00003930  65 25 3a c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |e%:.."OS_SpriteO|
00003940  70 22 2c 26 31 30 39 2c  73 70 72 69 74 65 73 25  |p",&109,sprites%|
00003950  0d 14 28 2e c8 99 22 4f  53 5f 53 70 72 69 74 65  |..(..."OS_Sprite|
00003960  4f 70 22 2c 26 31 30 41  2c 73 70 72 69 74 65 73  |Op",&10A,sprites|
00003970  25 2c a4 64 69 72 2b 22  4d 53 53 70 72 22 0d 14  |%,.dir+"MSSpr"..|
00003980  32 05 e1 0d 14 3c 04 0d  14 46 0e dd f2 64 65 66  |2....<...F...def|
00003990  6d 65 6e 75 73 0d 14 50  07 ea 74 24 0d 14 5a 0f  |menus..P..t$..Z.|
000039a0  de 20 6d 6c 69 73 74 25  20 33 32 0d 14 64 0f 62  |. mlist% 32..d.b|
000039b0  75 66 73 7a 25 3d 31 31  30 30 0d 14 6e 43 de 20  |ufsz%=1100..nC. |
000039c0  6d 65 6e 75 66 72 65 65  25 20 62 75 66 73 7a 25  |menufree% bufsz%|
000039d0  3a 6d 65 6e 75 70 74 72  25 3d 6d 65 6e 75 66 72  |:menuptr%=menufr|
000039e0  65 65 25 3a 6d 65 6e 75  65 6e 64 25 3d 6d 65 6e  |ee%:menuend%=men|
000039f0  75 66 72 65 65 25 2b 62  75 66 73 7a 25 0d 14 78  |ufree%+bufsz%..x|
00003a00  1c 6d 65 6e 75 73 74 61  72 74 25 3d 6d 65 6e 75  |.menustart%=menu|
00003a10  66 72 65 65 25 3a f7 2b  32 0d 14 82 1b f3 74 24  |free%:.+2.....t$|
00003a20  3a 6d 5f 6d 61 69 6e 25  3d a4 63 72 6d 65 6e 75  |:m_main%=.crmenu|
00003a30  28 74 24 29 0d 14 8c 4e  dc 22 23 4d 75 6c 74 69  |(t$)...N."#Multi|
00003a40  53 74 6f 72 65 2c 49 6e  66 6f 3e 77 5f 70 69 6e  |Store,Info>w_pin|
00003a50  66 6f 25 2c 54 72 61 6e  73 66 65 72 2c 46 61 73  |fo%,Transfer,Fas|
00003a60  74 20 53 6f 72 74 2c 43  72 65 61 74 65 2c 53 74  |t Sort,Create,St|
00003a70  61 74 75 73 2c 50 72 69  6e 74 65 72 2c 51 75 69  |atus,Printer,Qui|
00003a80  74 22 0d 14 96 1b f3 74  24 3a 6d 5f 77 69 6e 64  |t".....t$:m_wind|
00003a90  25 3d a4 63 72 6d 65 6e  75 28 74 24 29 0d 14 a0  |%=.crmenu(t$)...|
00003aa0  32 dc 22 23 57 69 6e 64  6f 77 2c 53 75 62 73 65  |2."#Window,Subse|
00003ab0  74 73 2c 46 69 65 6c 64  2c 53 6f 72 74 2c 4e 6f  |ts,Field,Sort,No|
00003ac0  74 65 70 61 64 23 2c 54  69 64 79 20 55 70 22 0d  |tepad#,Tidy Up".|
00003ad0  14 aa 1b f3 74 24 3a 6d  5f 66 69 6c 65 25 3d a4  |....t$:m_file%=.|
00003ae0  63 72 6d 65 6e 75 28 74  24 29 0d 14 b4 11 dc 22  |crmenu(t$)....."|
00003af0  23 46 69 6c 65 2c 4f 70  65 6e 22 0d 14 be 1b f3  |#File,Open".....|
00003b00  74 24 3a 6d 5f 63 61 72  64 25 3d a4 63 72 6d 65  |t$:m_card%=.crme|
00003b10  6e 75 28 74 24 29 0d 14  c8 28 dc 22 23 43 61 72  |nu(t$)...(."#Car|
00003b20  64 2c 46 69 6c 65 3e 6d  5f 66 69 6c 65 25 2c 57  |d,File>m_file%,W|
00003b30  69 6e 64 6f 77 3e 6d 5f  77 69 6e 64 25 22 0d 14  |indow>m_wind%"..|
00003b40  d2 1b f3 74 24 3a 6d 5f  6e 70 61 64 25 3d a4 63  |...t$:m_npad%=.c|
00003b50  72 6d 65 6e 75 28 74 24  29 0d 14 dc 24 dc 22 23  |rmenu(t$)...$."#|
00003b60  4e 6f 74 65 70 61 64 2c  43 6c 65 61 72 2c 45 78  |Notepad,Clear,Ex|
00003b70  70 6f 72 74 3e 77 5f 73  61 76 65 25 22 0d 14 e6  |port>w_save%"...|
00003b80  05 e1 0d 14 f0 04 0d 14  fa 15 dd f2 66 72 6f 6e  |............fron|
00003b90  74 28 68 25 2c 58 25 2c  59 25 29 0d 15 04 0d f2  |t(h%,X%,Y%).....|
00003ba0  67 65 74 77 28 68 25 29  0d 15 0e 1c e7 58 25 3e  |getw(h%).....X%>|
00003bb0  3d 30 78 31 25 2b 3d 58  25 2d 78 30 25 3a 78 30  |=0x1%+=X%-x0%:x0|
00003bc0  25 3d 58 25 0d 15 18 1c  e7 59 25 3e 3d 30 79 31  |%=X%.....Y%>=0y1|
00003bd0  25 2b 3d 59 25 2d 79 30  25 3a 79 30 25 3d 59 25  |%+=Y%-y0%:y0%=Y%|
00003be0  0d 15 22 2a f2 6f 70 65  6e 28 68 25 2c 78 30 25  |.."*.open(h%,x0%|
00003bf0  2c 79 30 25 2c 78 31 25  2c 79 31 25 2c 73 63 78  |,y0%,x1%,y1%,scx|
00003c00  25 2c 73 63 79 25 2c 2d  31 29 0d 15 2c 05 e1 0d  |%,scy%,-1)..,...|
00003c10  15 36 04 0d 15 40 34 dd  f2 6f 70 65 6e 28 6f 68  |.6...@4..open(oh|
00003c20  25 2c 6f 78 30 25 2c 6f  79 30 25 2c 6f 78 31 25  |%,ox0%,oy0%,ox1%|
00003c30  2c 6f 79 31 25 2c 6f 73  63 78 25 2c 6f 73 63 79  |,oy1%,oscx%,oscy|
00003c40  25 2c 6f 62 68 25 29 0d  15 4a 07 ea 4f 25 0d 15  |%,obh%)..J..O%..|
00003c50  54 27 21 71 25 3d 6f 68  25 3a c8 99 22 57 69 6d  |T'!q%=oh%:.."Wim|
00003c60  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
00003c70  22 2c 2c 71 25 0d 15 5e  19 f2 77 74 6f 66 28 6f  |",,q%..^..wtof(o|
00003c80  68 25 29 3a e7 66 69 6c  65 25 3e 3d 30 8c 0d 15  |h%):.file%>=0...|
00003c90  68 0c c8 8e 77 69 6e 64  25 ca 0d 15 72 0f 7f 3a  |h...wind%...r..:|
00003ca0  f2 77 69 6d 70 6f 70 65  6e 0d 15 7c 05 cb 0d 15  |.wimpopen..|....|
00003cb0  86 05 cc 0d 15 90 0a c8  8e 6f 68 25 ca 0d 15 9a  |.........oh%....|
00003cc0  0f 7f 3a f2 77 69 6d 70  6f 70 65 6e 0d 15 a4 05  |..:.wimpopen....|
00003cd0  cb 0d 15 ae 05 cd 0d 15  b8 65 e7 6f 68 25 3d 64  |.........e.oh%=d|
00003ce0  69 61 6c 6f 67 75 65 25  80 73 68 61 64 6f 77 73  |ialogue%.shadows|
00003cf0  25 3a f2 67 65 74 77 28  6f 68 25 29 3a f2 6f 70  |%:.getw(oh%):.op|
00003d00  65 6e 28 77 5f 73 68 61  64 6f 77 25 2c 78 30 25  |en(w_shadow%,x0%|
00003d10  2b 73 73 25 2c 79 30 25  2d 73 73 25 2c 78 31 25  |+ss%,y0%-ss%,x1%|
00003d20  2b 73 73 25 2c 79 31 25  2d 73 73 25 2c 30 2c 30  |+ss%,y1%-ss%,0,0|
00003d30  2c 64 69 61 6c 6f 67 75  65 25 29 0d 15 c2 0c 6f  |,dialogue%)....o|
00003d40  70 65 6e 25 3d 4f 25 0d  15 cc 05 e1 0d 15 d6 04  |pen%=O%.........|
00003d50  0d 15 e0 0e dd f2 77 69  6d 70 6f 70 65 6e 0d 15  |......wimpopen..|
00003d60  ea 35 21 71 25 3d 6f 68  25 3a 71 25 21 34 3d 6f  |.5!q%=oh%:q%!4=o|
00003d70  78 30 25 3a 71 25 21 38  3d 6f 79 30 25 3a 71 25  |x0%:q%!8=oy0%:q%|
00003d80  21 31 32 3d 6f 78 31 25  3a 71 25 21 31 36 3d 6f  |!12=ox1%:q%!16=o|
00003d90  79 31 25 0d 15 f4 3e 71  25 21 32 30 3d 6f 73 63  |y1%...>q%!20=osc|
00003da0  78 25 3a 71 25 21 32 34  3d 6f 73 63 79 25 3a 71  |x%:q%!24=oscy%:q|
00003db0  25 21 32 38 3d 6f 62 68  25 3a c8 99 22 57 69 6d  |%!28=obh%:.."Wim|
00003dc0  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 71  |p_OpenWindow",,q|
00003dd0  25 0d 15 fe 05 e1 0d 16  08 04 0d 16 12 11 dd f2  |%...............|
00003de0  63 6c 6f 73 65 77 28 21  71 25 29 0d 16 1c 07 ea  |closew(!q%).....|
00003df0  49 25 0d 16 26 0e f2 77  74 6f 66 28 21 71 25 29  |I%..&..wtof(!q%)|
00003e00  0d 16 30 0e e7 66 69 6c  65 25 3e 3d 30 8c 0d 16  |..0..file%>=0...|
00003e10  3a 0c c8 8e 77 69 6e 64  25 ca 0d 16 44 2c c9 30  |:...wind%...D,.0|
00003e20  3a e7 a4 73 68 6f 77 62  72 61 6e 63 68 3a e1 3a  |:..showbranch:.:|
00003e30  8b e7 ac 63 6c 6f 73 65  6f 6b 25 3a f2 63 6c 6f  |...closeok%:.clo|
00003e40  73 65 6f 6b 3a e1 0d 16  4e 05 cb 0d 16 58 05 cd  |seok:...N....X..|
00003e50  0d 16 62 1c e7 21 71 25  3d 64 69 61 6c 6f 67 75  |..b..!q%=dialogu|
00003e60  65 25 3a f2 74 69 64 79  64 69 61 6c 0d 16 6c 1c  |e%:.tidydial..l.|
00003e70  c8 99 22 57 69 6d 70 5f  43 6c 6f 73 65 57 69 6e  |.."Wimp_CloseWin|
00003e80  64 6f 77 22 2c 2c 71 25  0d 16 76 21 f2 6e 6f 64  |dow",,q%..v!.nod|
00003e90  69 61 6c 3a f2 77 74 6f  66 28 21 71 25 29 3a e7  |ial:.wtof(!q%):.|
00003ea0  66 69 6c 65 25 3e 3d 30  8c 0d 16 80 0c c8 8e 77  |file%>=0.......w|
00003eb0  69 6e 64 25 ca 0d 16 8a  11 c9 30 3a f2 63 6c 6f  |ind%......0:.clo|
00003ec0  73 65 66 69 6c 65 0d 16  94 1d c9 31 2c 32 2c 33  |sefile.....1,2,3|
00003ed0  2c 34 3a f2 64 65 6c 77  28 77 25 28 77 69 6e 64  |,4:.delw(w%(wind|
00003ee0  25 29 29 0d 16 9e 05 cb  0d 16 a8 05 cc 0d 16 b2  |%)).............|
00003ef0  0a c8 8e 21 71 25 ca 0d  16 bc 19 c9 77 5f 73 74  |...!q%......w_st|
00003f00  6f 70 25 3a 73 74 6f 70  66 69 6c 65 25 3d 2d 31  |op%:stopfile%=-1|
00003f10  0d 16 c6 1f c9 77 5f 73  74 61 74 75 73 25 3a f2  |.....w_status%:.|
00003f20  64 65 6c 77 28 77 5f 73  74 61 74 75 73 25 29 0d  |delw(w_status%).|
00003f30  16 d0 1b c9 77 5f 6d 65  73 73 25 3a f2 64 65 6c  |....w_mess%:.del|
00003f40  77 28 77 5f 6d 65 73 73  25 29 0d 16 da 1b c9 77  |w(w_mess%).....w|
00003f50  5f 6f 70 65 6e 25 3a f2  64 65 6c 77 28 77 5f 6f  |_open%:.delw(w_o|
00003f60  70 65 6e 25 29 0d 16 e4  1b c9 77 5f 73 6f 72 74  |pen%).....w_sort|
00003f70  25 3a f2 64 65 6c 77 28  77 5f 73 6f 72 74 25 29  |%:.delw(w_sort%)|
00003f80  0d 16 ee 1f c9 77 5f 73  6f 72 74 65 78 25 3a f2  |.....w_sortex%:.|
00003f90  64 65 6c 77 28 77 5f 73  6f 72 74 65 78 25 29 0d  |delw(w_sortex%).|
00003fa0  16 f8 05 cb 0d 17 02 05  cd 0d 17 0c 05 e1 0d 17  |................|
00003fb0  16 04 0d 17 20 19 dd f2  74 69 64 79 64 69 61 6c  |.... ...tidydial|
00003fc0  3a f2 72 65 73 74 6f 72  65 63 74 0d 17 2a 44 64  |:.restorect..*Dd|
00003fd0  69 61 6c 72 65 61 73 6f  6e 25 3d 2d 31 3a 64 69  |ialreason%=-1:di|
00003fe0  61 6c 6f 67 75 65 25 3d  2d 31 3a f2 63 6c 6f 73  |alogue%=-1:.clos|
00003ff0  65 77 28 77 5f 73 68 61  64 6f 77 25 29 3a 65 78  |ew(w_shadow%):ex|
00004000  69 30 25 3d 2d 31 3a 65  78 69 31 25 3d 2d 31 0d  |i0%=-1:exi1%=-1.|
00004010  17 34 05 e1 0d 17 3e 04  0d 17 48 0f dd f2 72 65  |.4....>...H...re|
00004020  73 74 6f 72 65 63 74 0d  17 52 0f ea 85 3a ee 85  |storect..R...:..|
00004030  ea 3a f7 85 3a e1 0d 17  5c 28 c8 99 20 22 57 69  |.:..:...\(.. "Wi|
00004040  6d 70 5f 47 65 74 43 61  72 65 74 50 6f 73 69 74  |mp_GetCaretPosit|
00004050  69 6f 6e 22 2c 2c 77 6f  72 6b 62 75 66 25 0d 17  |ion",,workbuf%..|
00004060  66 70 e7 21 77 6f 72 6b  62 75 66 25 3d 64 69 61  |fp.!workbuf%=dia|
00004070  6c 6f 67 75 65 25 c8 99  20 22 57 69 6d 70 5f 53  |logue%.. "Wimp_S|
00004080  65 74 43 61 72 65 74 50  6f 73 69 74 69 6f 6e 22  |etCaretPosition"|
00004090  2c 21 64 69 61 6c 63 74  25 2c 64 69 61 6c 63 74  |,!dialct%,dialct|
000040a0  25 21 34 2c 64 69 61 6c  63 74 25 21 38 2c 64 69  |%!4,dialct%!8,di|
000040b0  61 6c 63 74 25 21 31 32  2c 64 69 61 6c 63 74 25  |alct%!12,dialct%|
000040c0  21 31 36 2c 64 69 61 6c  63 74 25 21 32 30 0d 17  |!16,dialct%!20..|
000040d0  70 05 e1 0d 17 7a 04 0d  17 84 3b dd f2 64 65 6c  |p....z....;..del|
000040e0  77 28 f8 20 54 25 29 3a  21 71 25 3d 54 25 3a c8  |w(. T%):!q%=T%:.|
000040f0  99 22 57 69 6d 70 5f 44  65 6c 65 74 65 57 69 6e  |."Wimp_DeleteWin|
00004100  64 6f 77 22 2c 2c 71 25  3a 54 25 3d 2d 31 45 39  |dow",,q%:T%=-1E9|
00004110  3a e1 0d 17 8e 04 0d 17  98 2a dd a4 69 61 28 68  |:........*..ia(h|
00004120  25 2c 69 25 29 3a f2 67  65 74 69 28 68 25 2c 69  |%,i%):.geti(h%,i|
00004130  25 29 3a f2 63 68 6b 69  69 3a 3d 71 25 21 32 38  |%):.chkii:=q%!28|
00004140  0d 17 a2 2a dd a4 76 61  28 68 25 2c 69 25 29 3a  |...*..va(h%,i%):|
00004150  f2 67 65 74 69 28 68 25  2c 69 25 29 3a f2 63 68  |.geti(h%,i%):.ch|
00004160  6b 69 69 3a 3d 71 25 21  33 32 0d 17 ac 2a dd a4  |kii:=q%!32...*..|
00004170  69 6c 28 68 25 2c 69 25  29 3a f2 67 65 74 69 28  |il(h%,i%):.geti(|
00004180  68 25 2c 69 25 29 3a f2  63 68 6b 69 69 3a 3d 71  |h%,i%):.chkii:=q|
00004190  25 21 33 36 0d 17 b6 04  0d 17 c0 31 dd a4 74 69  |%!36.......1..ti|
000041a0  61 28 54 25 2c 69 25 29  3a ea 71 25 3a 71 25 3d  |a(T%,i%):.q%:q%=|
000041b0  54 25 2b 33 32 2a 69 25  2b 38 38 3a f2 63 68 6b  |T%+32*i%+88:.chk|
000041c0  69 69 3a 3d 71 25 21 32  30 0d 17 ca 04 0d 17 d4  |ii:=q%!20.......|
000041d0  33 dd f2 63 68 6b 69 69  3a e7 28 71 25 21 32 34  |3..chkii:.(q%!24|
000041e0  80 26 31 30 30 29 3d 30  85 31 2c 22 49 63 6f 6e  |.&100)=0.1,"Icon|
000041f0  20 6e 6f 74 20 69 6e 64  69 72 65 63 74 65 64 22  | not indirected"|
00004200  0d 17 de 05 e1 0d 17 e8  04 0d 17 f2 3c dd f2 67  |............<..g|
00004210  65 74 69 28 68 25 2c 69  25 29 3a 21 71 25 3d 68  |eti(h%,i%):!q%=h|
00004220  25 3a 71 25 21 34 3d 69  25 3a c8 99 22 57 69 6d  |%:q%!4=i%:.."Wim|
00004230  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
00004240  2c 71 25 3a e1 0d 17 fc  04 0d 18 06 2e dd a4 74  |,q%:...........t|
00004250  61 28 68 25 29 3a 21 71  25 3d 68 25 3a c8 99 22  |a(h%):!q%=h%:.."|
00004260  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 49 6e  |Wimp_GetWindowIn|
00004270  66 6f 22 2c 2c 71 25 0d  18 10 2c e7 28 71 25 21  |fo",,q%...,.(q%!|
00004280  36 30 80 26 31 30 30 29  3d 30 85 31 2c 22 54 69  |60.&100)=0.1,"Ti|
00004290  74 6c 65 20 6e 6f 74 20  69 6e 64 69 72 65 63 74  |tle not indirect|
000042a0  65 64 22 0d 18 1a 0a 3d  71 25 21 37 36 0d 18 24  |ed"....=q%!76..$|
000042b0  04 0d 18 2e 14 dd f2 73  74 6f 70 28 72 25 2c 54  |.......stop(r%,T|
000042c0  24 2c 55 24 29 0d 18 38  1f 64 69 61 6c 72 65 61  |$,U$)..8.dialrea|
000042d0  73 6f 6e 25 3d 72 25 3a  73 74 6f 70 66 69 6c 65  |son%=r%:stopfile|
000042e0  25 3d 54 25 0d 18 42 23  e7 a6 2d 33 84 ac 73 74  |%=T%..B#..-3..st|
000042f0  6f 70 62 6f 78 65 73 25  3a 6d 69 25 3d 33 3a f2  |opboxes%:mi%=3:.|
00004300  6d 73 74 6f 70 3a e1 0d  18 4c 2b f2 73 65 74 69  |mstop:...L+.seti|
00004310  28 77 5f 73 74 6f 70 25  2c 30 2c 54 24 29 3a f2  |(w_stop%,0,T$):.|
00004320  73 65 74 69 28 77 5f 73  74 6f 70 25 2c 31 2c 55  |seti(w_stop%,1,U|
00004330  24 29 0d 18 56 29 f2 75  6e 73 65 6c 61 6c 6c 28  |$)..V).unselall(|
00004340  77 5f 73 74 6f 70 25 29  3a f2 64 69 61 6c 6f 67  |w_stop%):.dialog|
00004350  75 65 28 77 5f 73 74 6f  70 25 29 0d 18 60 1f 64  |ue(w_stop%)..`.d|
00004360  69 61 6c 72 65 61 73 6f  6e 25 3d 72 25 3a 73 74  |ialreason%=r%:st|
00004370  6f 70 66 69 6c 65 25 3d  54 25 0d 18 6a 05 e1 0d  |opfile%=T%..j...|
00004380  18 74 04 0d 18 7e 12 dd  f2 64 69 61 6c 6f 67 75  |.t...~...dialogu|
00004390  65 28 68 25 29 0d 18 88  12 ea 58 25 2c 59 25 3a  |e(h%).....X%,Y%:|
000043a0  f2 6e 6f 64 69 61 6c 0d  18 92 27 c8 99 20 22 57  |.nodial...'.. "W|
000043b0  69 6d 70 5f 47 65 74 43  61 72 65 74 50 6f 73 69  |imp_GetCaretPosi|
000043c0  74 69 6f 6e 22 2c 2c 64  69 61 6c 63 74 25 0d 18  |tion",,dialct%..|
000043d0  9c 3d 64 69 61 6c 66 69  6c 65 25 3d 66 69 6c 65  |.=dialfile%=file|
000043e0  25 3a f2 6e 6f 6d 65 6e  75 3a f2 72 65 61 64 70  |%:.nomenu:.readp|
000043f0  6f 69 6e 74 65 72 3a 58  25 3d 6d 78 25 2d 32 30  |ointer:X%=mx%-20|
00004400  30 3a 59 25 3d 6d 79 25  2d 38 35 0d 18 a6 0d e7  |0:Y%=my%-85.....|
00004410  58 25 3c 30 58 25 3d 30  0d 18 b0 0f e7 59 25 3c  |X%<0X%=0.....Y%<|
00004420  39 36 59 25 3d 39 36 0d  18 ba 32 64 69 61 6c 6f  |96Y%=96...2dialo|
00004430  67 75 65 25 3d 68 25 3a  f2 66 72 6f 6e 74 28 68  |gue%=h%:.front(h|
00004440  25 2c 58 25 2c 59 25 29  3a f2 73 65 74 63 74 28  |%,X%,Y%):.setct(|
00004450  68 25 2c 2d 31 2c 2d 31  29 0d 18 c4 0b f7 8d 44  |h%,-1,-1)......D|
00004460  5c 70 3a f5 0d 18 ce 3b  f2 72 65 61 64 68 28 68  |\p:....;.readh(h|
00004470  25 29 3a e7 68 25 3d 64  69 61 6c 6f 67 75 65 25  |%):.h%=dialogue%|
00004480  3a f3 58 25 3a f2 73 65  74 63 74 28 68 25 2c 58  |:.X%:.setct(h%,X|
00004490  25 2c a9 24 a4 69 61 28  68 25 2c 58 25 29 29 0d  |%,.$.ia(h%,X%)).|
000044a0  18 d8 1d e7 68 25 3c 3e  2d 31 3a f5 3a f3 58 25  |....h%<>-1:.:.X%|
000044b0  3a fd 58 25 3c 2d 31 3a  68 25 3d 30 0d 18 e2 18  |:.X%<-1:h%=0....|
000044c0  fd 68 25 3d 64 69 61 6c  6f 67 75 65 25 84 68 25  |.h%=dialogue%.h%|
000044d0  3c 30 3a e1 0d 18 ec 04  0d 18 f6 21 dd f2 72 65  |<0:........!..re|
000044e0  61 64 70 6f 69 6e 74 65  72 3a ea 71 25 3a 71 25  |adpointer:.q%:q%|
000044f0  3d 77 6f 72 6b 62 75 66  25 0d 19 00 1f c8 99 22  |=workbuf%......"|
00004500  57 69 6d 70 5f 47 65 74  50 6f 69 6e 74 65 72 49  |Wimp_GetPointerI|
00004510  6e 66 6f 22 2c 2c 71 25  0d 19 0a 31 6d 78 25 3d  |nfo",,q%...1mx%=|
00004520  21 71 25 3a 6d 79 25 3d  71 25 21 34 3a 6d 62 25  |!q%:my%=q%!4:mb%|
00004530  3d 71 25 21 38 3a 6d 68  25 3d 71 25 21 31 32 3a  |=q%!8:mh%=q%!12:|
00004540  6d 69 25 3d 71 25 21 31  36 0d 19 14 05 e1 0d 19  |mi%=q%!16.......|
00004550  1e 04 0d 19 28 15 dd a4  64 69 61 6c 6f 67 75 65  |....(...dialogue|
00004560  3a ea 66 69 6c 65 25 0d  19 32 36 e7 64 69 61 6c  |:.file%..26.dial|
00004570  6f 67 75 65 25 3e 3d 30  80 6d 68 25 3c 3e 64 69  |ogue%>=0.mh%<>di|
00004580  61 6c 6f 67 75 65 25 80  6d 68 25 3c 3e 77 5f 73  |alogue%.mh%<>w_s|
00004590  68 61 64 6f 77 25 f2 6e  6f 64 69 61 6c 0d 19 3c  |hadow%.nodial..<|
000045a0  06 3d a3 0d 19 46 04 0d  19 50 24 dd f2 6d 6f 75  |.=...F...P$..mou|
000045b0  73 65 28 6d 78 25 2c 6d  79 25 2c 6d 62 25 2c 6d  |se(mx%,my%,mb%,m|
000045c0  68 25 2c 6d 69 25 2c 6d  6f 25 29 0d 19 5a 1d e7  |h%,mi%,mo%)..Z..|
000045d0  64 72 61 67 72 65 61 73  6f 6e 25 3e 3d 30 84 6d  |dragreason%>=0.m|
000045e0  62 25 3e 32 35 35 3a e1  0d 19 64 37 f2 77 74 6f  |b%>255:...d7.wto|
000045f0  66 28 6d 68 25 29 3a e7  66 69 6c 65 25 3e 3d 30  |f(mh%):.file%>=0|
00004600  80 77 69 6e 64 25 3d 34  80 28 6d 62 25 3d 31 84  |.wind%=4.(mb%=1.|
00004610  6d 62 25 3d 34 29 80 6d  69 25 3c 31 39 3a e1 0d  |mb%=4).mi%<19:..|
00004620  19 6e 18 e7 6d 62 25 3c  31 36 3a e7 a4 64 69 61  |.n..mb%<16:..dia|
00004630  6c 6f 67 75 65 3a e1 0d  19 78 33 77 5f 69 6e 66  |logue:...x3w_inf|
00004640  6f 25 3d 77 5f 70 69 6e  66 6f 25 3a e7 6d 62 25  |o%=w_pinfo%:.mb%|
00004650  3d 37 3a 6d 62 25 3d 32  3a 77 5f 69 6e 66 6f 25  |=7:mb%=2:w_info%|
00004660  3d 77 5f 70 69 6e 66 6f  32 25 0d 19 82 0a c8 8e  |=w_pinfo2%......|
00004670  6d 62 25 ca 0d 19 8c 0c  c9 32 3a f2 6d 65 6e 75  |mb%......2:.menu|
00004680  0d 19 96 10 c9 31 2c 34  3a f2 73 65 6c 65 63 74  |.....1,4:.select|
00004690  0d 19 a0 15 c9 31 36 2c  36 34 3a f2 73 74 61 72  |.....16,64:.star|
000046a0  74 64 72 61 67 0d 19 aa  05 cb 0d 19 b4 05 e1 0d  |tdrag...........|
000046b0  19 be 04 0d 19 c8 36 dd  f2 73 65 74 69 28 68 25  |......6..seti(h%|
000046c0  2c 69 25 2c 54 24 29 3a  54 24 3d c0 54 24 2c a4  |,i%,T$):T$=.T$,.|
000046d0  69 6c 28 68 25 2c 69 25  29 29 3a 24 a4 69 61 28  |il(h%,i%)):$.ia(|
000046e0  68 25 2c 69 25 29 3d 54  24 0d 19 d2 3c f2 69 63  |h%,i%)=T$...<.ic|
000046f0  6f 6e 75 70 64 28 68 25  2c 69 25 29 3a f2 67 65  |onupd(h%,i%):.ge|
00004700  74 63 74 3a e7 21 71 25  3d 68 25 80 71 25 21 34  |tct:.!q%=h%.q%!4|
00004710  3d 69 25 3a f2 73 65 74  63 74 28 68 25 2c 69 25  |=i%:.setct(h%,i%|
00004720  2c a9 54 24 29 0d 19 dc  05 e1 0d 19 e6 04 0d 19  |,.T$)...........|
00004730  f0 27 dd f2 69 73 65 74  28 68 25 2c 69 25 2c 42  |.'..iset(h%,i%,B|
00004740  25 2c 45 25 29 3a ea 71  25 3a 71 25 3d 77 6f 72  |%,E%):.q%:q%=wor|
00004750  6b 62 75 66 25 0d 19 fa  3f 21 71 25 3d 68 25 3a  |kbuf%...?!q%=h%:|
00004760  71 25 21 34 3d 69 25 3a  71 25 21 31 32 3d 42 25  |q%!4=i%:q%!12=B%|
00004770  3a 71 25 21 38 3d 45 25  3a c8 99 22 57 69 6d 70  |:q%!8=E%:.."Wimp|
00004780  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00004790  71 25 3a e1 0d 1a 04 04  0d 1a 0e 27 dd f2 69 63  |q%:........'..ic|
000047a0  6f 6e 75 70 64 28 68 25  2c 69 25 29 3a f2 69 73  |onupd(h%,i%):.is|
000047b0  65 74 28 68 25 2c 69 25  2c 30 2c 30 29 3a e1 0d  |et(h%,i%,0,0):..|
000047c0  1a 18 04 0d 1a 22 0f dd  f2 66 6f 72 63 65 28 68  |....."...force(h|
000047d0  25 29 0d 1a 2c 09 c8 8e  68 25 ca 0d 1a 36 2e 7f  |%)..,...h%...6..|
000047e0  c8 99 22 57 69 6d 70 5f  46 6f 72 63 65 52 65 64  |.."Wimp_ForceRed|
000047f0  72 61 77 22 2c 68 25 2c  2d 31 45 39 2c 2d 31 45  |raw",h%,-1E9,-1E|
00004800  39 2c 31 45 39 2c 31 45  39 0d 1a 40 05 cb 0d 1a  |9,1E9,1E9..@....|
00004810  4a 05 e1 0d 1a 54 04 0d  1a 5e 13 dd f2 72 65 61  |J....T...^...rea|
00004820  64 62 6c 6f 63 6b 28 70  25 29 0d 1a 68 27 78 30  |dblock(p%)..h'x0|
00004830  25 3d 21 70 25 3a 79 30  25 3d 70 25 21 34 3a 78  |%=!p%:y0%=p%!4:x|
00004840  31 25 3d 70 25 21 38 3a  79 31 25 3d 70 25 21 31  |1%=p%!8:y1%=p%!1|
00004850  32 0d 1a 72 28 73 63 78  25 3d 70 25 21 31 36 3a  |2..r(scx%=p%!16:|
00004860  73 63 79 25 3d 70 25 21  32 30 3a 62 68 61 6e 64  |scy%=p%!20:bhand|
00004870  6c 65 25 3d 70 25 21 32  34 0d 1a 7c 1d 62 78 25  |le%=p%!24..|.bx%|
00004880  3d 78 30 25 2d 73 63 78  25 3a 62 79 25 3d 79 31  |=x0%-scx%:by%=y1|
00004890  25 2d 73 63 79 25 0d 1a  86 2f 65 78 30 25 3d 70  |%-scy%.../ex0%=p|
000048a0  25 21 34 30 3a 65 79 30  25 3d 70 25 21 34 34 3a  |%!40:ey0%=p%!44:|
000048b0  65 78 31 25 3d 70 25 21  34 38 3a 65 79 31 25 3d  |ex1%=p%!48:ey1%=|
000048c0  70 25 21 35 32 0d 1a 90  2f 67 78 30 25 3d 70 25  |p%!52.../gx0%=p%|
000048d0  21 32 34 3a 67 79 30 25  3d 70 25 21 32 38 3a 67  |!24:gy0%=p%!28:g|
000048e0  78 31 25 3d 70 25 21 33  32 3a 67 79 31 25 3d 70  |x1%=p%!32:gy1%=p|
000048f0  25 21 33 36 0d 1a 9a 1b  6f 70 65 6e 25 3d 28 70  |%!36....open%=(p|
00004900  25 21 32 38 80 26 31 30  30 30 30 29 3c 3e 30 0d  |%!28.&10000)<>0.|
00004910  1a a4 05 e1 0d 1a ae 04  0d 1a b8 0e dd f2 67 65  |..............ge|
00004920  74 77 28 68 25 29 0d 1a  c2 25 21 71 25 3d 68 25  |tw(h%)...%!q%=h%|
00004930  3a c8 99 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |:.."Wimp_GetWind|
00004940  6f 77 49 6e 66 6f 22 2c  2c 71 25 0d 1a cc 14 f2  |owInfo",,q%.....|
00004950  72 65 61 64 62 6c 6f 63  6b 28 71 25 2b 34 29 0d  |readblock(q%+4).|
00004960  1a d6 05 e1 0d 1a e0 04  0d 1a ea 0c dd f2 73 65  |..............se|
00004970  6c 65 63 74 0d 1a f4 0e  e7 66 69 6c 65 25 3e 3d  |lect.....file%>=|
00004980  30 8c 0d 1a fe 0c c8 8e  77 69 6e 64 25 ca 0d 1b  |0.......wind%...|
00004990  08 0d c9 31 3a f2 6d 73  75 62 73 0d 1b 12 0e c9  |...1:.msubs.....|
000049a0  33 3a f2 6d 73 6f 72 74  77 0d 1b 1c 05 cb 0d 1b  |3:.msortw.......|
000049b0  26 05 cc 0d 1b 30 0a c8  8e 6d 68 25 ca 0d 1b 3a  |&....0...mh%...:|
000049c0  2a c9 2d 32 3a e7 6d 62  25 3d 31 80 a6 2d 31 80  |*.-2:.mb%=1..-1.|
000049d0  a6 2d 32 3a f2 6f 73 63  6c 69 28 22 22 29 3a 8b  |.-2:.oscli(""):.|
000049e0  f2 73 74 61 74 75 73 0d  1b 44 13 c9 77 5f 73 74  |.status..D..w_st|
000049f0  6f 70 25 3a f2 6d 73 74  6f 70 0d 1b 4e 13 c9 77  |op%:.mstop..N..w|
00004a00  5f 73 61 76 65 25 3a f2  6d 73 61 76 65 0d 1b 58  |_save%:.msave..X|
00004a10  17 c9 77 5f 73 74 61 74  75 73 25 3a f2 6d 73 74  |..w_status%:.mst|
00004a20  61 74 75 73 0d 1b 62 24  c9 77 5f 6d 65 73 73 25  |atus..b$.w_mess%|
00004a30  3a e7 6d 69 25 3d 36 3a  f2 63 6c 6f 73 65 77 28  |:.mi%=6:.closew(|
00004a40  77 5f 6d 65 73 73 25 29  0d 1b 6c 13 c9 77 5f 73  |w_mess%)..l..w_s|
00004a50  6f 72 74 25 3a f2 6d 73  6f 72 74 0d 1b 76 13 c9  |ort%:.msort..v..|
00004a60  77 5f 6f 70 65 6e 25 3a  f2 6d 6f 70 65 6e 0d 1b  |w_open%:.mopen..|
00004a70  80 15 c9 77 5f 73 6f 72  74 65 78 25 3a f2 6d 65  |...w_sortex%:.me|
00004a80  78 70 72 0d 1b 8a 05 cb  0d 1b 94 05 cd 0d 1b 9e  |xpr.............|
00004a90  05 e1 0d 1b a8 04 0d 1b  b2 0b dd f2 6d 73 6f 72  |............msor|
00004aa0  74 0d 1b bc 1c e7 6d 69  25 3d 33 80 a4 76 5f 28  |t.....mi%=3..v_(|
00004ab0  31 29 3e 30 f2 65 72 72  28 33 30 32 29 0d 1b c6  |1)>0.err(302)...|
00004ac0  1d e7 6d 69 25 3d 33 3a  f2 63 6c 6f 73 65 77 28  |..mi%=3:.closew(|
00004ad0  77 5f 73 6f 72 74 25 29  3a e1 0d 1b d0 1d e7 6d  |w_sort%):......m|
00004ae0  69 25 3d 34 80 a4 76 5f  28 31 29 3d 30 3a f2 65  |i%=4..v_(1)=0:.e|
00004af0  72 72 28 33 30 33 29 0d  1b da 21 e7 6d 69 25 3d  |rr(303)...!.mi%=|
00004b00  2d 31 3a f2 66 72 6f 6e  74 28 77 5f 73 6f 72 74  |-1:.front(w_sort|
00004b10  25 2c 2d 31 2c 2d 31 29  0d 1b e4 0d e7 6d 69 25  |%,-1,-1).....mi%|
00004b20  3c 3e 34 3a e1 0d 1b ee  32 73 74 61 72 74 73 6f  |<>4:....2startso|
00004b30  72 74 25 3d b9 3a f2 6e  65 77 64 65 6c 61 79 3a  |rt%=.:.newdelay:|
00004b40  f2 66 72 6f 6e 74 28 77  5f 73 6f 72 74 25 2c 2d  |.front(w_sort%,-|
00004b50  31 2c 2d 31 29 3a e1 0d  1b f8 05 e1 0d 1c 02 04  |1,-1):..........|
00004b60  0d 1c 0c 0b dd f2 6d 73  75 62 73 0d 1c 16 25 ea  |......msubs...%.|
00004b70  54 25 3a 54 25 3d a4 69  74 6f 73 3a e7 54 25 3e  |T%:T%=.itos:.T%>|
00004b80  3d 30 3a f2 73 65 6c 73  75 62 28 54 25 29 3a e1  |=0:.selsub(T%):.|
00004b90  0d 1c 20 05 e1 0d 1c 2a  04 0d 1c 34 0c dd f2 6d  |.. ....*...4...m|
00004ba0  73 6f 72 74 77 0d 1c 3e  09 f2 65 78 70 72 0d 1c  |sortw..>..expr..|
00004bb0  48 05 e1 0d 1c 52 04 0d  1c 5c 23 dd f2 6d 6f 70  |H....R...\#..mop|
00004bc0  65 6e 3a e7 6d 69 25 3d  31 31 f2 63 6c 6f 73 65  |en:.mi%=11.close|
00004bd0  77 28 77 5f 6f 70 65 6e  25 29 0d 1c 66 0d e7 6d  |w(w_open%)..f..m|
00004be0  69 25 3c 3e 31 32 e1 0d  1c 70 13 ea 49 25 2c 6d  |i%<>12...p..I%,m|
00004bf0  25 2c 64 25 2c 72 25 2c  70 24 0d 1c 7a 2e 70 24  |%,d%,r%,p$..z.p$|
00004c00  3d 24 a4 69 61 28 77 5f  6f 70 65 6e 25 2c 31 34  |=$.ia(w_open%,14|
00004c10  29 3a f2 77 63 68 69 28  77 5f 6f 70 65 6e 25 29  |):.wchi(w_open%)|
00004c20  3a 49 25 3d 71 25 3a f5  0d 1c 84 0f e7 21 49 25  |:I%=q%:......!I%|
00004c30  3d 30 3a 64 25 3d b9 0d  1c 8e 19 e7 21 49 25 3e  |=0:d%=......!I%>|
00004c40  30 80 21 49 25 3c 39 3a  6d 25 3d 21 49 25 2d 31  |0.!I%<9:m%=!I%-1|
00004c50  0d 1c 98 10 e7 21 49 25  3d 31 36 3a 72 25 3d b9  |.....!I%=16:r%=.|
00004c60  0d 1c a2 3a 49 25 2b 3d  34 3a fd 49 25 21 2d 34  |...:I%+=4:.I%!-4|
00004c70  3c 30 3a 66 69 6c 65 24  3d 24 a4 69 61 28 77 5f  |<0:file$=$.ia(w_|
00004c80  6f 70 65 6e 25 2c 31 33  29 3a f2 63 6c 6f 73 65  |open%,13):.close|
00004c90  77 28 77 5f 6f 70 65 6e  25 29 0d 1c ac 23 f2 6f  |w(w_open%)...#.o|
00004ca0  70 65 6e 73 6f 72 74 31  28 66 69 6c 65 24 2c 6d  |pensort1(file$,m|
00004cb0  25 2c 64 25 2c 70 24 2c  72 25 29 3a e1 0d 1c b6  |%,d%,p$,r%):....|
00004cc0  04 0d 1c c0 0b dd f2 6d  65 78 70 72 0d 1c ca 35  |.......mexpr...5|
00004cd0  ea 41 25 2c 54 24 2c 61  25 2c 63 25 2c 73 25 2c  |.A%,T$,a%,c%,s%,|
00004ce0  75 25 2c 49 25 2c 51 25  2c 42 25 3a f2 75 6e 73  |u%,I%,Q%,B%:.uns|
00004cf0  65 6c 69 28 77 5f 73 6f  72 74 65 78 25 2c 32 39  |eli(w_sortex%,29|
00004d00  29 0d 1c d4 2b 41 25 3d  a4 69 61 28 77 5f 73 6f  |)...+A%=.ia(w_so|
00004d10  72 74 65 78 25 2c 31 37  29 3a f2 71 62 73 63 61  |rtex%,17):.qbsca|
00004d20  6e 28 24 41 25 2c 51 25  2c 42 25 29 0d 1c de 0a  |n($A%,Q%,B%)....|
00004d30  c8 8e 6d 69 25 ca 0d 1c  e8 14 c9 32 2c 33 2c 34  |..mi%......2,3,4|
00004d40  2c 35 2c 36 2c 37 2c 38  2c 39 0d 1c f2 3e e7 24  |,5,6,7,8,9...>.$|
00004d50  41 25 3e 22 22 80 ac 51  25 24 73 64 25 3d c1 22  |A%>""..Q%$sd%=."|
00004d60  2b 2d 2a 2f 3d 3c 3e 3c  28 29 22 2c 6d 69 25 2d  |+-*/=<><()",mi%-|
00004d70  31 2c 31 29 3a e7 24 73  64 25 3c 3e c2 24 41 25  |1,1):.$sd%<>.$A%|
00004d80  29 54 24 3d 24 73 64 25  0d 1c fc 19 e7 6d 69 25  |)T$=$sd%.....mi%|
00004d90  3d 37 3a e7 54 24 3e 22  22 3a 54 24 2b 3d 22 3e  |=7:.T$>"":T$+=">|
00004da0  22 0d 1d 06 1e f2 73 65  74 69 28 77 5f 73 6f 72  |".....seti(w_sor|
00004db0  74 65 78 25 2c 31 37 2c  24 41 25 2b 54 24 29 0d  |tex%,17,$A%+T$).|
00004dc0  1d 10 0a c9 31 30 2c 31  31 0d 1d 1a 50 e7 28 28  |....10,11...P.((|
00004dd0  24 41 25 3e 22 22 80 42  25 3e 30 29 84 6d 69 25  |$A%>"".B%>0).mi%|
00004de0  3d 31 30 29 80 ac 51 25  3a 24 73 64 25 3d c1 22  |=10)..Q%:$sd%=."|
00004df0  28 29 22 2c 6d 69 25 2d  39 2c 31 29 3a f2 73 65  |()",mi%-9,1):.se|
00004e00  74 69 28 77 5f 73 6f 72  74 65 78 25 2c 31 37 2c  |ti(w_sortex%,17,|
00004e10  24 41 25 2b 24 73 64 25  29 0d 1d 24 0a c9 31 32  |$A%+$sd%)..$..12|
00004e20  2c 31 33 0d 1d 2e 17 54  24 3d 24 41 25 3a e7 24  |,13....T$=$A%:.$|
00004e30  41 25 3e 22 22 80 ac 51  25 8c 0d 1d 38 1d 24 73  |A%>""..Q%...8.$s|
00004e40  64 25 3d c2 24 41 25 29  3a c8 99 73 77 69 25 2c  |d%=.$A%):..swi%,|
00004e50  75 70 70 65 72 5f 25 0d  1d 42 37 e7 28 24 73 64  |upper_%..B7.($sd|
00004e60  25 3e 3d 22 41 22 80 24  73 64 25 3c 3d 22 5a 22  |%>="A".$sd%<="Z"|
00004e70  29 84 28 24 73 64 25 3e  3d 22 30 22 80 24 73 64  |).($sd%>="0".$sd|
00004e80  25 3c 3d 22 39 22 29 54  24 2b 3d 22 20 22 0d 1d  |%<="9")T$+=" "..|
00004e90  4c 1d e7 6d 69 25 3d 31  32 54 24 2b 3d 22 41 4e  |L..mi%=12T$+="AN|
00004ea0  44 22 8b 54 24 2b 3d 22  4f 52 22 0d 1d 56 05 cd  |D".T$+="OR"..V..|
00004eb0  0d 1d 60 1a f2 73 65 74  69 28 77 5f 73 6f 72 74  |..`..seti(w_sort|
00004ec0  65 78 25 2c 31 37 2c 54  24 29 0d 1d 6a 56 c9 31  |ex%,17,T$)..jV.1|
00004ed0  34 3a e7 24 41 25 3e 22  22 80 ac 51 25 54 24 3d  |4:.$A%>""..Q%T$=|
00004ee0  24 41 25 2b 22 3d 22 22  2a 2a 22 22 22 3a f2 73  |$A%+"=""**""":.s|
00004ef0  65 74 69 28 77 5f 73 6f  72 74 65 78 25 2c 31 37  |eti(w_sortex%,17|
00004f00  2c 54 24 29 3a f2 73 65  74 63 74 28 77 5f 73 6f  |,T$):.setct(w_so|
00004f10  72 74 65 78 25 2c 31 37  2c a9 24 41 25 2d 32 29  |rtex%,17,.$A%-2)|
00004f20  0d 1d 74 55 c9 31 35 3a  e7 24 41 25 3e 22 22 80  |..tU.15:.$A%>"".|
00004f30  ac 51 25 54 24 3d 24 41  25 2b 22 7e 3d 22 22 22  |.Q%T$=$A%+"~="""|
00004f40  22 22 3a f2 73 65 74 69  28 77 5f 73 6f 72 74 65  |"":.seti(w_sorte|
00004f50  78 25 2c 31 37 2c 54 24  29 3a f2 73 65 74 63 74  |x%,17,T$):.setct|
00004f60  28 77 5f 73 6f 72 74 65  78 25 2c 31 37 2c a9 24  |(w_sortex%,17,.$|
00004f70  41 25 2d 31 29 0d 1d 7e  10 c9 32 30 2c 32 31 3a  |A%-1)..~..20,21:|
00004f80  f2 73 75 62 73 0d 1d 88  0f c9 32 32 3a f2 6e 6f  |.subs.....22:.no|
00004f90  64 69 61 6c 0d 1d 92 46  c9 32 39 3a e7 24 41 25  |dial...F.29:.$A%|
00004fa0  3d 22 22 f2 73 65 74 69  28 77 5f 73 6f 72 74 65  |="".seti(w_sorte|
00004fb0  78 25 2c 31 37 2c 65 78  24 29 3a 8b 65 78 24 3d  |x%,17,ex$):.ex$=|
00004fc0  24 41 25 3a f2 73 65 74  69 28 77 5f 73 6f 72 74  |$A%:.seti(w_sort|
00004fd0  65 78 25 2c 31 37 2c 22  22 29 0d 1d 9c 07 c9 32  |ex%,17,"").....2|
00004fe0  33 0d 1d a6 1c f2 77 63  68 69 28 77 5f 73 6f 72  |3.....wchi(w_sor|
00004ff0  74 65 78 25 29 3a 49 25  3d 71 25 3a f5 0d 1d b0  |tex%):I%=q%:....|
00005000  0a c8 8e 21 49 25 ca 0d  1d ba 0b c9 31 3a 73 25  |...!I%......1:s%|
00005010  3d b9 0d 1d c4 0b c9 30  3a 75 25 3d b9 0d 1d ce  |=......0:u%=....|
00005020  0c c9 31 39 3a 61 25 3d  b9 0d 1d d8 0c c9 32 38  |..19:a%=......28|
00005030  3a 63 25 3d b9 0d 1d e2  05 cb 0d 1d ec 13 49 25  |:c%=..........I%|
00005040  2b 3d 34 3a fd 49 25 21  2d 34 3d 2d 31 0d 1d f6  |+=4:.I%!-4=-1...|
00005050  14 e7 75 25 3a f2 75 70  70 6c 69 74 28 24 41 25  |..u%:.upplit($A%|
00005060  29 0d 1e 00 1b f2 73 65  74 69 28 77 5f 73 6f 72  |).....seti(w_sor|
00005070  74 65 78 25 2c 31 37 2c  24 41 25 29 0d 1e 0a 20  |tex%,17,$A%)... |
00005080  6f 25 28 30 2c 30 29 3d  28 73 25 80 34 29 84 28  |o%(0,0)=(s%.4).(|
00005090  75 25 80 32 29 84 28 61  25 80 31 29 0d 1e 14 23  |u%.2).(a%.1)...#|
000050a0  54 24 3d a4 78 31 28 24  41 25 29 3a 6f 24 28 30  |T$=.x1($A%):o$(0|
000050b0  29 3d 24 41 25 3a 6f 78  24 28 30 29 3d 54 24 0d  |)=$A%:ox$(0)=T$.|
000050c0  1e 1e 21 f2 6e 6f 64 69  61 6c 3a e7 77 25 28 33  |..!.nodial:.w%(3|
000050d0  29 3e 30 f2 66 6f 72 63  65 28 77 25 28 33 29 29  |)>0.force(w%(3))|
000050e0  0d 1e 28 05 cb 0d 1e 32  1a f2 69 63 6f 6e 75 70  |..(....2..iconup|
000050f0  64 28 77 5f 73 6f 72 74  65 78 25 2c 31 37 29 0d  |d(w_sortex%,17).|
00005100  1e 3c 05 e1 0d 1e 46 04  0d 1e 50 19 dd f2 6d 73  |.<....F...P...ms|
00005110  74 6f 70 3a e7 6d 69 25  3c 33 84 6d 69 25 3e 34  |top:.mi%<3.mi%>4|
00005120  e1 0d 1e 5a 25 ea 54 25  3a 54 25 3d 64 69 61 6c  |...Z%.T%:T%=dial|
00005130  72 65 61 73 6f 6e 25 3a  64 69 61 6c 72 65 61 73  |reason%:dialreas|
00005140  6f 6e 25 3d 2d 31 0d 1e  64 0b e7 6d 69 25 3d 33  |on%=-1..d..mi%=3|
00005150  8c 0d 1e 6e 14 f2 63 6c  6f 73 65 77 28 77 5f 73  |...n..closew(w_s|
00005160  74 6f 70 25 29 0d 1e 78  09 c8 8e 54 25 ca 0d 1e  |top%)..x...T%...|
00005170  82 20 c9 32 3a 63 6c 6f  73 65 6f 6b 25 3d b9 3a  |. .2:closeok%=.:|
00005180  f2 63 6c 6f 73 65 77 28  77 25 28 30 29 29 0d 1e  |.closew(w%(0))..|
00005190  8c 16 c9 36 3a f2 43 4c  4f 53 45 3a f2 71 75 69  |...6:.CLOSE:.qui|
000051a0  74 28 a3 29 0d 1e 96 12  c9 31 34 3a f2 6c 6f 61  |t(.).....14:.loa|
000051b0  64 6e 6f 74 65 73 0d 1e  a0 12 c9 31 37 3a f2 63  |dnotes.....17:.c|
000051c0  6c 65 61 72 6e 70 61 64  0d 1e aa 14 c9 32 30 3a  |learnpad.....20:|
000051d0  73 74 6f 70 62 6f 78 65  73 25 3d a3 0d 1e b4 2b  |stopboxes%=....+|
000051e0  c9 33 36 3a ff 22 2a 73  65 74 74 79 70 65 20 22  |.36:."*settype "|
000051f0  2b 66 69 6c 65 24 2b 22  20 22 2b c3 7e 6d 65 6e  |+file$+" "+.~men|
00005200  75 66 69 65 6c 64 25 0d  1e be 44 e7 6d 65 6e 75  |ufield%...D.menu|
00005210  66 69 65 6c 64 25 3d 66  74 5f 64 61 74 61 25 3a  |field%=ft_data%:|
00005220  f2 63 68 65 63 6b 6f 70  65 6e 3a f2 6d 73 74 6f  |.checkopen:.msto|
00005230  72 65 28 22 33 3a 22 2b  66 69 6c 65 24 2c 22 4d  |re("3:"+file$,"M|
00005240  75 6c 74 69 53 74 6f 72  65 22 29 0d 1e c8 10 c9  |ultiStore").....|
00005250  33 38 3a f2 70 69 63 70  61 74 68 0d 1e d2 05 cb  |38:.picpath.....|
00005260  0d 1e dc 05 cc 0d 1e e6  19 e7 54 25 3d 31 3a f2  |..........T%=1:.|
00005270  43 4c 4f 53 45 3a f2 71  75 69 74 28 a3 29 0d 1e  |CLOSE:.quit(.)..|
00005280  f0 05 cd 0d 1e fa 16 f2  63 6c 6f 73 65 77 28 77  |........closew(w|
00005290  5f 73 74 6f 70 25 29 3a  e1 0d 1f 04 04 0d 1f 0e  |_stop%):........|
000052a0  0b dd f2 6d 73 61 76 65  0d 1f 18 0c e7 6d 69 25  |...msave.....mi%|
000052b0  3c 3e 30 e1 0d 1f 22 30  ea 54 24 3a 54 24 3d 24  |<>0..."0.T$:T$=$|
000052c0  a4 69 61 28 77 5f 73 61  76 65 25 2c 32 29 3a e7  |.ia(w_save%,2):.|
000052d0  54 24 3d a4 6c 65 61 66  28 54 24 29 3a f2 65 72  |T$=.leaf(T$):.er|
000052e0  72 28 35 29 0d 1f 2c 31  73 61 76 65 74 79 70 65  |r(5)..,1savetype|
000052f0  25 3d 73 61 76 65 74 25  3a 74 61 73 6b 25 3d 2d  |%=savet%:task%=-|
00005300  31 3a 66 69 6c 65 24 3d  54 24 3a f2 73 61 76 65  |1:file$=T$:.save|
00005310  64 61 74 61 31 0d 1f 36  05 e1 0d 1f 40 04 0d 1f  |data1..6....@...|
00005320  4a 0d dd f2 6d 73 74 61  74 75 73 0d 1f 54 0d ea  |J...mstatus..T..|
00005330  54 25 2c 49 25 2c 41 25  0d 1f 5e 0a c8 8e 6d 69  |T%,I%,A%..^...mi|
00005340  25 ca 0d 1f 68 24 c9 31  35 3a e7 77 25 28 30 29  |%...h$.15:.w%(0)|
00005350  3e 30 3a f2 66 72 6f 6e  74 28 77 25 28 30 29 2c  |>0:.front(w%(0),|
00005360  2d 31 2c 2d 31 29 0d 1f  72 07 c9 31 32 0d 1f 7c  |-1,-1)..r..12..||
00005370  07 c9 31 33 0d 1f 86 1e  73 6f 75 6e 64 25 3d a3  |..13....sound%=.|
00005380  3a 73 68 61 64 6f 77 73  25 3d a3 3a 70 69 78 25  |:shadows%=.:pix%|
00005390  3d a3 0d 1f 90 1c f2 77  63 68 69 28 77 5f 73 74  |=......wchi(w_st|
000053a0  61 74 75 73 25 29 3a 49  25 3d 71 25 3a f5 0d 1f  |atus%):I%=q%:...|
000053b0  9a 0a c8 8e 21 49 25 ca  0d 1f a4 10 c9 32 34 3a  |....!I%......24:|
000053c0  73 6f 75 6e 64 25 3d b9  0d 1f ae 12 c9 32 35 3a  |sound%=......25:|
000053d0  73 68 61 64 6f 77 73 25  3d b9 0d 1f b8 0c c9 32  |shadows%=......2|
000053e0  33 3a 41 25 3d b9 0d 1f  c2 0e c9 32 38 3a 70 69  |3:A%=......28:pi|
000053f0  78 25 3d b9 0d 1f cc 05  cb 0d 1f d6 12 49 25 2b  |x%=..........I%+|
00005400  3d 34 3a fd 49 25 21 2d  34 3c 30 0d 1f e0 31 e7  |=4:.I%!-4<0...1.|
00005410  73 6f 75 6e 64 25 3a c8  99 73 77 69 25 2c 6f 70  |sound%:..swi%,op|
00005420  74 5f 25 2c 31 30 b8 47  25 3a 8b c8 99 73 77 69  |t_%,10.G%:...swi|
00005430  25 2c 6f 70 74 5f 25 2c  39 b8 47 25 0d 1f ea 14  |%,opt_%,9.G%....|
00005440  e7 41 25 3c 3e 73 74 6f  70 62 6f 78 65 73 25 8c  |.A%<>stopboxes%.|
00005450  0d 1f f4 43 e7 41 25 73  74 6f 70 62 6f 78 65 73  |...C.A%stopboxes|
00005460  25 3d b9 3a 8b f2 73 74  6f 70 28 32 30 2c 72 6c  |%=.:..stop(20,rl|
00005470  24 2b 22 64 69 73 61 62  6c 65 20 74 68 65 73 65  |$+"disable these|
00005480  22 2c 22 73 74 6f 70 20  62 6f 78 65 73 20 3f 22  |","stop boxes ?"|
00005490  29 3a e1 0d 1f fe 05 cd  0d 20 08 06 7f e1 0d 20  |):....... ..... |
000054a0  12 05 cb 0d 20 1c 18 f2  63 6c 6f 73 65 77 28 77  |.... ...closew(w|
000054b0  5f 73 74 61 74 75 73 25  29 3a e1 0d 20 26 04 0d  |_status%):.. &..|
000054c0  20 30 0f dd f2 73 74 61  72 74 64 72 61 67 0d 20  | 0...startdrag. |
000054d0  3a 22 64 72 61 67 72 65  61 73 6f 6e 25 3d 2d 31  |:"dragreason%=-1|
000054e0  3a 64 72 61 67 62 75 74  74 6f 6e 25 3d 6d 62 25  |:dragbutton%=mb%|
000054f0  0d 20 44 19 f2 77 74 6f  66 28 6d 68 25 29 3a e7  |. D..wtof(mh%):.|
00005500  66 69 6c 65 25 3e 3d 30  8c 0d 20 4e 0c c8 8e 77  |file%>=0.. N...w|
00005510  69 6e 64 25 ca 0d 20 58  06 c9 30 0d 20 62 5c e7  |ind%.. X..0. b\.|
00005520  6d 62 25 3d 31 36 64 72  61 67 72 65 61 73 6f 6e  |mb%=16dragreason|
00005530  25 3d 34 3a f2 64 72 61  67 63 61 72 64 3a 8b 6d  |%=4:.dragcard:.m|
00005540  65 6e 75 66 69 65 6c 64  25 3d a4 6d 6f 75 73 65  |enufield%=.mouse|
00005550  66 3a e7 6d 65 6e 75 66  69 65 6c 64 25 3e 30 64  |f:.menufield%>0d|
00005560  72 61 67 72 65 61 73 6f  6e 25 3d 33 3a f2 64 72  |ragreason%=3:.dr|
00005570  61 67 66 69 65 6c 64 0d  20 6c 06 c9 31 0d 20 76  |agfield. l..1. v|
00005580  40 6d 65 6e 75 73 75 62  25 3d a4 69 74 6f 73 3a  |@menusub%=.itos:|
00005590  e7 6d 65 6e 75 73 75 62  25 3e 3d 30 3a 64 72 61  |.menusub%>=0:dra|
000055a0  67 72 65 61 73 6f 6e 25  3d 32 3a f2 64 72 61 67  |greason%=2:.drag|
000055b0  69 63 6f 6e 28 6d 68 25  2c 6d 69 25 29 0d 20 80  |icon(mh%,mi%). .|
000055c0  06 c9 32 0d 20 8a 30 6d  65 6e 75 66 69 65 6c 64  |..2. .0menufield|
000055d0  25 3d 6d 79 25 3a f2 79  63 6f 6e 76 28 6d 65 6e  |%=my%:.yconv(men|
000055e0  75 66 69 65 6c 64 25 2c  a4 76 5f 28 37 29 2c 6d  |ufield%,.v_(7),m|
000055f0  68 25 29 0d 20 94 1d 64  72 61 67 72 65 61 73 6f  |h%). ..dragreaso|
00005600  6e 25 3d 33 3a f2 64 72  61 67 66 69 65 6c 64 31  |n%=3:.dragfield1|
00005610  0d 20 9e 3e c9 34 3a e7  6d 69 25 3c 31 39 3a 64  |. .>.4:.mi%<19:d|
00005620  72 61 67 72 65 61 73 6f  6e 25 3d 36 3a 6d 65 6e  |ragreason%=6:men|
00005630  75 66 69 65 6c 64 25 3d  6d 69 25 3a f2 64 72 61  |ufield%=mi%:.dra|
00005640  67 69 63 6f 6e 28 6d 68  25 2c 6d 69 25 29 0d 20  |gicon(mh%,mi%). |
00005650  a8 05 cb 0d 20 b2 05 cc  0d 20 bc 0a c8 8e 6d 68  |.... .... ....mh|
00005660  25 ca 0d 20 c6 36 c9 77  5f 73 61 76 65 25 3a e7  |%.. .6.w_save%:.|
00005670  6d 69 25 3d 33 3a 64 72  61 67 72 65 61 73 6f 6e  |mi%=3:dragreason|
00005680  25 3d 35 3a f2 64 72 61  67 69 63 6f 6e 28 77 5f  |%=5:.dragicon(w_|
00005690  73 61 76 65 25 2c 33 29  0d 20 d0 05 cb 0d 20 da  |save%,3). .... .|
000056a0  05 cd 0d 20 e4 05 e1 0d  20 ee 04 0d 20 f8 0d dd  |... .... ... ...|
000056b0  f2 65 6e 64 64 72 61 67  0d 21 02 10 f2 72 65 61  |.enddrag.!...rea|
000056c0  64 70 6f 69 6e 74 65 72  0d 21 0c 0d e7 6d 68 25  |dpointer.!...mh%|
000056d0  3c 3e 2d 31 8c 0d 21 16  07 ea 54 24 0d 21 20 12  |<>-1..!...T$.! .|
000056e0  c8 8e 64 72 61 67 72 65  61 73 6f 6e 25 ca 0d 21  |..dragreason%..!|
000056f0  2a 0e c9 31 3a f2 63 61  72 64 64 72 0d 21 34 0e  |*..1:.carddr.!4.|
00005700  c9 32 3a f2 73 75 62 73  64 72 0d 21 3e 0f c9 33  |.2:.subsdr.!>..3|
00005710  3a f2 66 69 65 6c 64 64  72 0d 21 48 0f c9 34 3a  |:.fielddr.!H..4:|
00005720  f2 63 61 72 64 64 72 31  0d 21 52 41 c9 35 3a f2  |.carddr1.!RA.5:.|
00005730  73 61 76 65 72 65 71 28  a4 6c 65 61 66 28 24 a4  |savereq(.leaf($.|
00005740  69 61 28 77 5f 73 61 76  65 25 2c 32 29 29 2c 73  |ia(w_save%,2)),s|
00005750  61 76 65 74 25 2c 73 61  76 65 73 25 2c 73 61 76  |avet%,saves%,sav|
00005760  65 72 65 61 73 6f 6e 25  29 0d 21 5c 12 c9 36 3a  |ereason%).!\..6:|
00005770  e7 a4 65 6e 74 65 72 6e  6f 74 65 0d 21 66 05 cb  |..enternote.!f..|
00005780  0d 21 70 05 cc 0d 21 7a  1b e7 64 72 61 67 72 65  |.!p...!z..dragre|
00005790  61 73 6f 6e 25 3d 34 3a  f2 63 61 72 64 64 72 31  |ason%=4:.carddr1|
000057a0  0d 21 84 05 cd 0d 21 8e  1f 64 72 61 67 72 65 61  |.!....!..dragrea|
000057b0  73 6f 6e 25 3d 2d 31 3a  6d 65 6e 75 66 69 6c 65  |son%=-1:menufile|
000057c0  25 3d 2d 31 0d 21 98 05  e1 0d 21 a2 04 0d 21 ac  |%=-1.!....!...!.|
000057d0  2c dd f2 75 6e 73 65 6c  69 28 68 25 2c 69 25 29  |,..unseli(h%,i%)|
000057e0  3a f2 69 73 65 74 28 68  25 2c 69 25 2c 26 32 30  |:.iset(h%,i%,&20|
000057f0  30 30 30 30 2c 30 29 3a  e1 0d 21 b6 04 0d 21 c0  |0000,0):..!...!.|
00005800  30 dd f2 73 65 6c 69 28  68 25 2c 69 25 29 3a f2  |0..seli(h%,i%):.|
00005810  69 73 65 74 28 68 25 2c  69 25 2c 26 32 30 30 30  |iset(h%,i%,&2000|
00005820  30 30 2c 26 32 30 30 30  30 30 29 3a e1 0d 21 ca  |00,&200000):..!.|
00005830  32 dd f2 73 68 61 64 65  69 28 68 25 2c 69 25 29  |2..shadei(h%,i%)|
00005840  3a f2 69 73 65 74 28 68  25 2c 69 25 2c 26 34 30  |:.iset(h%,i%,&40|
00005850  30 30 30 30 2c 26 34 30  30 30 30 30 29 3a e1 0d  |0000,&400000):..|
00005860  21 d4 04 0d 21 de 12 dd  f2 75 6e 73 65 6c 61 6c  |!...!....unselal|
00005870  6c 28 68 25 29 0d 21 e8  14 ea 49 25 2c 69 25 3a  |l(h%).!...I%,i%:|
00005880  f2 77 63 68 69 28 68 25  29 0d 21 f2 28 49 25 3d  |.wchi(h%).!.(I%=|
00005890  71 25 3a f5 3a 69 25 3d  21 49 25 3a e7 69 25 3e  |q%:.:i%=!I%:.i%>|
000058a0  3d 30 3a f2 75 6e 73 65  6c 69 28 68 25 2c 69 25  |=0:.unseli(h%,i%|
000058b0  29 0d 21 fc 11 49 25 2b  3d 34 3a fd 69 25 3c 30  |).!..I%+=4:.i%<0|
000058c0  3a e1 0d 22 06 04 0d 22  10 37 dd f2 77 63 68 69  |:.."...".7..wchi|
000058d0  28 68 25 29 3a c8 99 22  57 69 6d 70 5f 57 68 69  |(h%):.."Wimp_Whi|
000058e0  63 68 49 63 6f 6e 22 2c  68 25 2c 71 25 2c 26 32  |chIcon",h%,q%,&2|
000058f0  30 30 30 30 30 2c 26 32  30 30 30 30 30 0d 22 1a  |00000,&200000.".|
00005900  05 e1 0d 22 24 04 0d 22  2e 0a dd f2 6d 65 6e 75  |..."$.."....menu|
00005910  0d 22 38 19 f2 77 74 6f  66 28 6d 68 25 29 3a e7  |."8..wtof(mh%):.|
00005920  66 69 6c 65 25 3e 3d 30  8c 0d 22 42 0c c8 8e 77  |file%>=0.."B...w|
00005930  69 6e 64 25 ca 0d 22 4c  10 c9 30 3a f2 63 61 72  |ind%.."L..0:.car|
00005940  64 6d 65 6e 75 0d 22 56  0e c9 33 3a f2 6d 73 6f  |dmenu."V..3:.mso|
00005950  72 74 77 0d 22 60 17 c9  34 3a f2 70 6f 70 28 6d  |rtw."`..4:.pop(m|
00005960  5f 6e 70 61 64 25 2c 2d  31 29 0d 22 6a 05 cb 0d  |_npad%,-1)."j...|
00005970  22 74 05 cc 0d 22 7e 0a  c8 8e 6d 68 25 ca 0d 22  |"t..."~...mh%.."|
00005980  88 24 c9 2d 32 3a 6d 79  25 3d 36 34 2b 37 2a 34  |.$.-2:my%=64+7*4|
00005990  34 3a f2 70 6f 70 28 6d  5f 6d 61 69 6e 25 2c 2d  |4:.pop(m_main%,-|
000059a0  31 29 0d 22 92 05 cb 0d  22 9c 05 cd 0d 22 a6 05  |1)."...."...."..|
000059b0  e1 0d 22 b0 04 0d 22 ba  21 dd f2 63 61 72 64 6d  |.."...".!..cardm|
000059c0  65 6e 75 3a f2 70 6f 70  28 6d 5f 63 61 72 64 25  |enu:.pop(m_card%|
000059d0  2c 2d 31 29 3a e1 0d 22  c4 04 0d 22 ce 1a dd a4  |,-1):.."..."....|
000059e0  70 61 72 28 74 24 2c 73  24 2c f8 20 69 25 29 3a  |par(t$,s$,. i%):|
000059f0  ea 69 31 25 0d 22 d8 1e  69 31 25 3d 69 25 2b 31  |.i1%."..i1%=i%+1|
00005a00  3a 69 25 3d a7 74 24 2b  73 24 2c 73 24 2c 69 31  |:i%=.t$+s$,s$,i1|
00005a10  25 29 0d 22 e2 14 3d c1  74 24 2c 69 31 25 2c 69  |%)."..=.t$,i1%,i|
00005a20  25 2d 69 31 25 29 0d 22  ec 04 0d 22 f6 13 dd a4  |%-i1%)."..."....|
00005a30  63 72 6d 65 6e 75 28 6d  65 6e 75 24 29 0d 23 00  |crmenu(menu$).#.|
00005a40  2e e7 6d 65 6e 75 66 72  65 65 25 2b 32 38 3e 6d  |..menufree%+28>m|
00005a50  65 6e 75 65 6e 64 25 85  39 39 2c 22 4d 65 6e 75  |enuend%.99,"Menu|
00005a60  20 61 72 65 61 20 66 75  6c 6c 22 0d 23 0a 08 ea  | area full".#...|
00005a70  20 6d 25 0d 23 14 16 6d  65 6e 75 70 74 72 25 3d  | m%.#..menuptr%=|
00005a80  6d 65 6e 75 66 72 65 65  25 0d 23 1e 08 69 25 3d  |menufree%.#..i%=|
00005a90  30 0d 23 28 43 e7 20 c0  6d 65 6e 75 24 2c 31 29  |0.#(C. .menu$,1)|
00005aa0  3d 22 23 22 69 25 3d 31  3a 6d 65 6e 75 74 69 74  |="#"i%=1:menutit|
00005ab0  6c 65 24 3d a4 70 61 72  28 6d 65 6e 75 24 2c 22  |le$=.par(menu$,"|
00005ac0  2c 22 2c 69 25 29 8b 6d  65 6e 75 74 69 74 6c 65  |,",i%).menutitle|
00005ad0  24 3d 22 22 0d 23 32 18  24 6d 65 6e 75 70 74 72  |$="".#2.$menuptr|
00005ae0  25 3d 6d 65 6e 75 74 69  74 6c 65 24 0d 23 3c 3b  |%=menutitle$.#<;|
00005af0  6d 65 6e 75 70 74 72 25  3f 31 32 3d 37 3a 6d 65  |menuptr%?12=7:me|
00005b00  6e 75 70 74 72 25 3f 31  33 3d 32 3a 6d 65 6e 75  |nuptr%?13=2:menu|
00005b10  70 74 72 25 3f 31 34 3d  37 3a 6d 65 6e 75 70 74  |ptr%?14=7:menupt|
00005b20  72 25 3f 31 35 3d 30 0d  23 46 33 6d 65 6e 75 70  |r%?15=0.#F3menup|
00005b30  74 72 25 21 31 36 3d 31  39 36 2d 32 34 3a 6d 65  |tr%!16=196-24:me|
00005b40  6e 75 70 74 72 25 21 32  30 3d 34 34 3a 6d 65 6e  |nuptr%!20=44:men|
00005b50  75 70 74 72 25 21 32 34  3d 30 0d 23 50 22 6d 65  |uptr%!24=0.#P"me|
00005b60  6e 75 70 74 72 25 2b 3d  32 38 3a 6d 61 78 78 25  |nuptr%+=28:maxx%|
00005b70  3d a9 6d 65 6e 75 74 69  74 6c 65 24 0d 23 5a 1d  |=.menutitle$.#Z.|
00005b80  f5 69 74 65 6d 24 3d a4  70 61 72 28 6d 65 6e 75  |.item$=.par(menu|
00005b90  24 2c 22 2c 22 2c 69 25  29 0d 23 64 14 f2 6d 65  |$,",",i%).#d..me|
00005ba0  6e 75 69 74 65 6d 28 69  74 65 6d 24 29 0d 23 6e  |nuitem(item$).#n|
00005bb0  0e fd 20 69 74 65 6d 24  3d 22 22 0d 23 78 24 6d  |.. item$="".#x$m|
00005bc0  25 3d 6d 65 6e 75 66 72  65 65 25 3a 6d 25 21 31  |%=menufree%:m%!1|
00005bd0  36 3d 28 6d 61 78 78 25  2a 38 2b 36 29 2a 32 0d  |6=(maxx%*8+6)*2.|
00005be0  23 82 16 6d 65 6e 75 66  72 65 65 25 3d 6d 65 6e  |#..menufree%=men|
00005bf0  75 70 74 72 25 0d 23 8c  07 3d 6d 25 0d 23 96 04  |uptr%.#..=m%.#..|
00005c00  0d 23 a0 15 dd f2 6d 65  6e 75 69 74 65 6d 28 74  |.#....menuitem(t|
00005c10  65 78 74 24 29 0d 23 aa  2e e7 74 65 78 74 24 3d  |ext$).#...text$=|
00005c20  22 22 6d 65 6e 75 70 74  72 25 21 2d 32 34 3d 28  |""menuptr%!-24=(|
00005c30  6d 65 6e 75 70 74 72 25  21 2d 32 34 29 84 26 38  |menuptr%!-24).&8|
00005c40  30 3a e1 0d 23 b4 2e e7  6d 65 6e 75 70 74 72 25  |0:..#...menuptr%|
00005c50  2b 32 34 3e 6d 65 6e 75  65 6e 64 25 8c 85 39 39  |+24>menuend%..99|
00005c60  2c 22 4d 65 6e 75 20 61  72 65 61 20 66 75 6c 6c  |,"Menu area full|
00005c70  22 0d 23 be 0c ea 69 25  2c 66 6c 67 25 0d 23 c8  |".#...i%,flg%.#.|
00005c80  0c 66 6c 67 25 3d 26 30  30 0d 23 d2 12 69 25 3d  |.flg%=&00.#..i%=|
00005c90  a7 74 65 78 74 24 2c 22  3e 22 29 0d 23 dc 3c e7  |.text$,">").#.<.|
00005ca0  69 25 3e 30 73 75 62 70  74 72 25 3d a0 c1 74 65  |i%>0subptr%=..te|
00005cb0  78 74 24 2c 69 25 2b 31  29 3a 74 65 78 74 24 3d  |xt$,i%+1):text$=|
00005cc0  c0 74 65 78 74 24 2c 69  25 2d 31 29 8b 73 75 62  |.text$,i%-1).sub|
00005cd0  70 74 72 25 3d 2d 31 0d  23 e6 12 69 25 3d a7 74  |ptr%=-1.#..i%=.t|
00005ce0  65 78 74 24 2c 22 7d 22  29 0d 23 f0 3b e7 69 25  |ext$,"}").#.;.i%|
00005cf0  3e 30 73 75 62 70 74 72  25 3d a0 c1 74 65 78 74  |>0subptr%=..text|
00005d00  24 2c 69 25 2b 31 29 3a  74 65 78 74 24 3d c0 74  |$,i%+1):text$=.t|
00005d10  65 78 74 24 2c 69 25 2d  31 29 3a 66 6c 67 25 2b  |ext$,i%-1):flg%+|
00005d20  3d 26 30 38 0d 23 fa 29  e7 c2 74 65 78 74 24 2c  |=&08.#.)..text$,|
00005d30  31 29 3d 22 23 22 74 65  78 74 24 3d c0 74 65 78  |1)="#"text$=.tex|
00005d40  74 24 29 3a 66 6c 67 25  2b 3d 26 30 32 0d 24 04  |t$):flg%+=&02.$.|
00005d50  3b 6d 65 6e 75 70 74 72  25 21 30 3d 66 6c 67 25  |;menuptr%!0=flg%|
00005d60  3a 6d 65 6e 75 70 74 72  25 21 34 3d 73 75 62 70  |:menuptr%!4=subp|
00005d70  74 72 25 3a 6d 65 6e 75  70 74 72 25 21 38 3d 26  |tr%:menuptr%!8=&|
00005d80  30 37 30 30 30 30 32 31  0d 24 0e 13 e7 c0 74 65  |07000021.$....te|
00005d90  78 74 24 2c 31 29 3d 22  24 22 8c 0d 24 18 32 21  |xt$,1)="$"..$.2!|
00005da0  6d 65 6e 75 70 74 72 25  2b 3d 26 30 34 3a 6d 65  |menuptr%+=&04:me|
00005db0  6e 75 70 74 72 25 21 38  2b 3d 26 31 30 30 3a 69  |nuptr%!8+=&100:i|
00005dc0  25 3d a7 74 65 78 74 24  2c 22 28 22 29 0d 24 22  |%=.text$,"(").$"|
00005dd0  33 e7 69 25 3e 30 8c 4c  25 3d bb c1 74 65 78 74  |3.i%>0.L%=..text|
00005de0  24 2c 69 25 2b 31 29 3a  74 65 78 74 24 3d c0 74  |$,i%+1):text$=.t|
00005df0  65 78 74 24 2c 69 25 2d  31 29 8b 4c 25 3d 31 32  |ext$,i%-1).L%=12|
00005e00  0d 24 2c 38 6d 65 6e 75  70 74 72 25 21 31 32 3d  |.$,8menuptr%!12=|
00005e10  a0 c1 74 65 78 74 24 2c  32 29 3a 6d 65 6e 75 70  |..text$,2):menup|
00005e20  74 72 25 21 31 36 3d 2d  31 3a 6d 65 6e 75 70 74  |tr%!16=-1:menupt|
00005e30  72 25 21 32 30 3d 4c 25  0d 24 36 12 74 65 78 74  |r%!20=L%.$6.text|
00005e40  24 3d c4 4c 25 2c 22 20  22 29 0d 24 40 05 cc 0d  |$=.L%," ").$@...|
00005e50  24 4a 10 e7 a9 74 65 78  74 24 3c 3d 31 32 8c 0d  |$J...text$<=12..|
00005e60  24 54 18 24 28 6d 65 6e  75 70 74 72 25 2b 31 32  |$T.$(menuptr%+12|
00005e70  29 3d 74 65 78 74 24 0d  24 5e 05 cc 0d 24 68 25  |)=text$.$^...$h%|
00005e80  49 25 3d a4 77 6f 72 6b  73 70 61 63 65 28 a9 74  |I%=.workspace(.t|
00005e90  65 78 74 24 2b 31 29 3a  24 49 25 3d 74 65 78 74  |ext$+1):$I%=text|
00005ea0  24 0d 24 72 36 6d 65 6e  75 70 74 72 25 21 31 32  |$.$r6menuptr%!12|
00005eb0  3d 49 25 3a 6d 65 6e 75  70 74 72 25 21 31 36 3d  |=I%:menuptr%!16=|
00005ec0  2d 31 3a 6d 65 6e 75 70  74 72 25 21 32 30 3d a9  |-1:menuptr%!20=.|
00005ed0  74 65 78 74 24 2b 31 0d  24 7c 20 6d 65 6e 75 70  |text$+1.$| menup|
00005ee0  74 72 25 21 38 3d 6d 65  6e 75 70 74 72 25 21 38  |tr%!8=menuptr%!8|
00005ef0  20 84 20 26 31 30 30 0d  24 86 05 cd 0d 24 90 1d  | . &100.$....$..|
00005f00  e7 a9 74 65 78 74 24 3e  6d 61 78 78 25 6d 61 78  |..text$>maxx%max|
00005f10  78 25 3d a9 74 65 78 74  24 0d 24 9a 05 cd 0d 24  |x%=.text$.$....$|
00005f20  a4 10 6d 65 6e 75 70 74  72 25 2b 3d 32 34 0d 24  |..menuptr%+=24.$|
00005f30  ae 05 e1 0d 24 b8 04 0d  24 c2 13 dd a4 77 6f 72  |....$...$....wor|
00005f40  6b 73 70 61 63 65 28 4c  25 29 0d 24 cc 32 e7 20  |kspace(L%).$.2. |
00005f50  63 75 72 62 75 66 25 2b  4c 25 3e 65 6e 64 62 75  |curbuf%+L%>endbu|
00005f60  66 25 85 39 39 2c 22 4e  6f 20 6d 6f 72 65 20 62  |f%.99,"No more b|
00005f70  75 66 66 65 72 20 73 70  61 63 65 22 0d 24 d6 1b  |uffer space".$..|
00005f80  63 75 72 62 75 66 25 2b  3d 4c 25 3a 3d 63 75 72  |curbuf%+=L%:=cur|
00005f90  62 75 66 25 2d 4c 25 0d  24 e0 04 0d 24 ea 17 dd  |buf%-L%.$...$...|
00005fa0  f2 70 72 65 70 28 6d 65  6e 75 25 2c 74 72 65 65  |.prep(menu%,tree|
00005fb0  25 29 0d 24 f4 1a ea 49  25 2c 54 24 3a f2 63 6c  |%).$...I%,T$:.cl|
00005fc0  65 61 72 74 73 28 6d 65  6e 75 25 29 0d 24 fe 0c  |earts(menu%).$..|
00005fd0  c8 8e 6d 65 6e 75 25 ca  0d 25 08 15 c9 6d 5f 6d  |..menu%..%...m_m|
00005fe0  61 69 6e 25 3a f2 6d 70  5f 6d 61 69 6e 0d 25 12  |ain%:.mp_main.%.|
00005ff0  15 c9 6d 5f 66 69 6c 65  25 3a f2 6d 70 5f 66 69  |..m_file%:.mp_fi|
00006000  6c 65 0d 25 1c 15 c9 6d  5f 77 69 6e 64 25 3a f2  |le.%...m_wind%:.|
00006010  6d 70 5f 77 69 6e 64 0d  25 26 15 c9 6d 5f 63 61  |mp_wind.%&..m_ca|
00006020  72 64 25 3a f2 6d 70 5f  63 61 72 64 0d 25 30 15  |rd%:.mp_card.%0.|
00006030  c9 6d 5f 6e 70 61 64 25  3a f2 6d 70 5f 6e 70 61  |.m_npad%:.mp_npa|
00006040  64 0d 25 3a 05 cb 0d 25  44 05 e1 0d 25 4e 04 0d  |d.%:...%D...%N..|
00006050  25 58 0d dd f2 6d 70 5f  63 61 72 64 0d 25 62 18  |%X...mp_card.%b.|
00006060  f2 70 72 65 70 28 6d 5f  77 69 6e 64 25 2c 74 72  |.prep(m_wind%,tr|
00006070  65 65 25 29 0d 25 6c 05  e1 0d 25 76 04 0d 25 80  |ee%).%l...%v..%.|
00006080  0d dd f2 6d 70 5f 66 69  6c 65 0d 25 8a 05 e1 0d  |...mp_file.%....|
00006090  25 94 04 0d 25 9e 0d dd  f2 6d 70 5f 77 69 6e 64  |%...%....mp_wind|
000060a0  0d 25 a8 1a e7 77 25 28  31 29 3e 30 f2 74 69 63  |.%...w%(1)>0.tic|
000060b0  6b 28 6d 65 6e 75 25 2c  30 29 0d 25 b2 1a e7 77  |k(menu%,0).%...w|
000060c0  25 28 32 29 3e 30 f2 74  69 63 6b 28 6d 65 6e 75  |%(2)>0.tick(menu|
000060d0  25 2c 31 29 0d 25 bc 1a  e7 77 25 28 33 29 3e 30  |%,1).%...w%(3)>0|
000060e0  f2 74 69 63 6b 28 6d 65  6e 75 25 2c 32 29 0d 25  |.tick(menu%,2).%|
000060f0  c6 1a e7 77 25 28 34 29  3e 30 f2 74 69 63 6b 28  |...w%(4)>0.tick(|
00006100  6d 65 6e 75 25 2c 33 29  0d 25 d0 05 e1 0d 25 da  |menu%,3).%....%.|
00006110  04 0d 25 e4 0d dd f2 6d  70 5f 6e 70 61 64 0d 25  |..%....mp_npad.%|
00006120  ee 20 f2 73 61 76 65 73  65 74 28 66 5f 6e 70 24  |. .saveset(f_np$|
00006130  2c 26 46 46 46 2c 35 2c  38 30 2a 31 39 29 0d 25  |,&FFF,5,80*19).%|
00006140  f8 05 e1 0d 26 02 04 0d  26 0c 0d dd f2 6d 70 5f  |....&...&....mp_|
00006150  6d 61 69 6e 0d 26 16 4d  e7 a4 76 5f 28 31 29 3e  |main.&.M..v_(1)>|
00006160  30 3a f2 73 68 61 64 65  28 6d 65 6e 75 25 2c 31  |0:.shade(menu%,1|
00006170  29 3a f2 73 68 61 64 65  28 6d 65 6e 75 25 2c 32  |):.shade(menu%,2|
00006180  29 3a f2 73 68 61 64 65  28 6d 65 6e 75 25 2c 33  |):.shade(menu%,3|
00006190  29 3a f2 73 68 61 64 65  28 6d 65 6e 75 25 2c 35  |):.shade(menu%,5|
000061a0  29 0d 26 20 1c e7 77 5f  73 6f 72 74 25 3e 30 f2  |).& ..w_sort%>0.|
000061b0  74 69 63 6b 28 6d 65 6e  75 25 2c 32 29 0d 26 2a  |tick(menu%,2).&*|
000061c0  05 e1 0d 26 34 04 0d 26  3e 24 dd f2 70 6f 70 28  |...&4..&>$..pop(|
000061d0  6d 65 6e 75 25 2c 74 72  65 65 25 29 3a e7 70 72  |menu%,tree%):.pr|
000061e0  6f 63 65 73 73 25 3e 30  3a e1 0d 26 48 0e e7 6d  |ocess%>0:..&H..m|
000061f0  65 6e 75 25 3c 30 3a e1  0d 26 52 16 f2 70 72 65  |enu%<0:..&R..pre|
00006200  70 28 6d 65 6e 75 25 2c  74 72 65 65 25 29 0d 26  |p(menu%,tree%).&|
00006210  5c 2c c8 99 22 57 69 6d  70 5f 43 72 65 61 74 65  |\,.."Wimp_Create|
00006220  4d 65 6e 75 22 2c 2c 6d  65 6e 75 25 2c 6d 78 25  |Menu",,menu%,mx%|
00006230  2d 35 30 2c 6d 79 25 2b  33 32 0d 26 66 13 6f 70  |-50,my%+32.&f.op|
00006240  65 6e 6d 65 6e 75 25 3d  6d 65 6e 75 25 0d 26 70  |enmenu%=menu%.&p|
00006250  05 e1 0d 26 7a 04 0d 26  84 0c dd f2 6e 6f 6d 65  |...&z..&....nome|
00006260  6e 75 0d 26 8e 28 c8 99  22 57 69 6d 70 5f 43 72  |nu.&.(.."Wimp_Cr|
00006270  65 61 74 65 4d 65 6e 75  22 2c 2c 2d 31 3a 6f 70  |eateMenu",,-1:op|
00006280  65 6e 6d 65 6e 75 25 3d  2d 31 0d 26 98 05 e1 0d  |enmenu%=-1.&....|
00006290  26 a2 04 0d 26 ac 2b dd  f2 6e 6f 64 69 61 6c 3a  |&...&.+..nodial:|
000062a0  e7 64 69 61 6c 6f 67 75  65 25 3e 30 f2 63 6c 6f  |.dialogue%>0.clo|
000062b0  73 65 77 28 64 69 61 6c  6f 67 75 65 25 29 0d 26  |sew(dialogue%).&|
000062c0  b6 05 e1 0d 26 c0 04 0d  26 ca 10 dd f2 6d 65 6e  |....&...&....men|
000062d0  75 73 65 6c 65 63 74 0d  26 d4 07 ea 49 25 0d 26  |uselect.&...I%.&|
000062e0  de 2d 49 25 3d 30 3a f5  6d 6c 69 73 74 25 21 49  |.-I%=0:.mlist%!I|
000062f0  25 3d 71 25 21 49 25 3a  49 25 2b 3d 34 3a fd 71  |%=q%!I%:I%+=4:.q|
00006300  25 21 28 49 25 2d 34 29  3d 2d 31 0d 26 e8 10 f2  |%!(I%-4)=-1.&...|
00006310  72 65 61 64 70 6f 69 6e  74 65 72 0d 26 f2 10 c8  |readpointer.&...|
00006320  8e 6f 70 65 6e 6d 65 6e  75 25 ca 0d 26 fc 14 c9  |.openmenu%..&...|
00006330  6d 5f 6d 61 69 6e 25 3a  f2 6d 5f 6d 61 69 6e 0d  |m_main%:.m_main.|
00006340  27 06 14 c9 6d 5f 63 61  72 64 25 3a f2 6d 5f 63  |'...m_card%:.m_c|
00006350  61 72 64 0d 27 10 14 c9  6d 5f 6e 70 61 64 25 3a  |ard.'...m_npad%:|
00006360  f2 6d 5f 6e 70 61 64 0d  27 1a 05 cb 0d 27 24 0b  |.m_npad.'....'$.|
00006370  e7 6d 62 25 3d 31 8c 0d  27 2e 23 f2 70 6f 70 28  |.mb%=1..'.#.pop(|
00006380  6f 70 65 6e 6d 65 6e 75  25 2c 6d 6c 69 73 74 25  |openmenu%,mlist%|
00006390  29 3a 8b f2 6e 6f 6d 65  6e 75 0d 27 38 05 cd 0d  |):..nomenu.'8...|
000063a0  27 42 05 cd 0d 27 4c 05  e1 0d 27 56 04 0d 27 60  |'B...'L...'V..'`|
000063b0  0c dd f2 6d 5f 6e 70 61  64 0d 27 6a 0e c8 8e 21  |...m_npad.'j...!|
000063c0  6d 6c 69 73 74 25 ca 0d  27 74 34 c9 30 3a f2 73  |mlist%..'t4.0:.s|
000063d0  74 6f 70 28 31 37 2c 66  69 24 2b a4 66 69 6c 65  |top(17,fi$+.file|
000063e0  6e 61 6d 65 2c 72 6c 24  2b 22 63 6c 65 61 72 20  |name,rl$+"clear |
000063f0  6e 6f 74 65 70 61 64 20  3f 22 29 0d 27 7e 05 cb  |notepad ?").'~..|
00006400  0d 27 88 05 e1 0d 27 92  04 0d 27 9c 0c dd f2 6d  |.'....'...'....m|
00006410  5f 6d 61 69 6e 0d 27 a6  0e c8 8e 21 6d 6c 69 73  |_main.'....!mlis|
00006420  74 25 ca 0d 27 b0 19 c9  30 3a f2 64 69 61 6c 6f  |t%..'...0:.dialo|
00006430  67 75 65 28 77 5f 69 6e  66 6f 25 29 0d 27 ba 10  |gue(w_info%).'..|
00006440  c9 31 3a f2 74 72 61 6e  73 66 65 72 0d 27 c4 10  |.1:.transfer.'..|
00006450  c9 32 3a f2 66 61 73 74  73 6f 72 74 0d 27 ce 0e  |.2:.fastsort.'..|
00006460  c9 33 3a f2 63 72 65 61  74 65 0d 27 d8 0e c9 34  |.3:.create.'...4|
00006470  3a f2 73 74 61 74 75 73  0d 27 e2 0f c9 35 3a f2  |:.status.'...5:.|
00006480  70 64 72 69 76 65 72 0d  27 ec 21 c9 36 3a e7 a4  |pdriver.'.!.6:..|
00006490  76 5f 28 31 29 3d 30 3a  f2 71 75 69 74 28 a3 29  |v_(1)=0:.quit(.)|
000064a0  3a 8b f2 71 71 75 69 74  0d 27 f6 05 cb 0d 28 00  |:..qquit.'....(.|
000064b0  05 e1 0d 28 0a 04 0d 28  14 0c dd f2 6d 5f 63 61  |...(...(....m_ca|
000064c0  72 64 0d 28 1e 0e c8 8e  21 6d 6c 69 73 74 25 ca  |rd.(....!mlist%.|
000064d0  0d 28 28 0e c9 30 3a f2  6d 5f 66 69 6c 65 0d 28  |.((..0:.m_file.(|
000064e0  32 0e c9 31 3a f2 6d 5f  77 69 6e 64 0d 28 3c 05  |2..1:.m_wind.(<.|
000064f0  cb 0d 28 46 05 e1 0d 28  50 04 0d 28 5a 0c dd f2  |..(F...(P..(Z...|
00006500  6d 5f 77 69 6e 64 0d 28  64 13 ea 54 25 3a 54 25  |m_wind.(d..T%:T%|
00006510  3d 6d 6c 69 73 74 25 21  34 0d 28 6e 35 e7 54 25  |=mlist%!4.(n5.T%|
00006520  3e 2d 31 80 54 25 3c 6d  61 78 77 25 2d 31 3a e7  |>-1.T%<maxw%-1:.|
00006530  77 25 28 54 25 2b 31 29  3e 30 3a f2 63 6c 6f 73  |w%(T%+1)>0:.clos|
00006540  65 77 28 77 25 28 54 25  2b 31 29 29 3a e1 0d 28  |ew(w%(T%+1)):..(|
00006550  78 09 c8 8e 54 25 ca 0d  28 82 0c c9 30 3a f2 73  |x...T%..(...0:.s|
00006560  75 62 73 0d 28 8c 11 c9  31 3a f2 66 69 65 6c 64  |ubs.(...1:.field|
00006570  6c 69 73 74 0d 28 96 0d  c9 32 3a f2 73 6f 72 74  |list.(...2:.sort|
00006580  77 0d 28 a0 0f c9 33 3a  f2 6e 6f 74 65 70 61 64  |w.(...3:.notepad|
00006590  0d 28 aa 0d c9 34 3a f2  77 74 69 64 79 0d 28 b4  |.(...4:.wtidy.(.|
000065a0  05 cb 0d 28 be 05 e1 0d  28 c8 04 0d 28 d2 0c dd  |...(....(...(...|
000065b0  f2 6d 5f 66 69 6c 65 0d  28 dc 0f c8 8e 6d 6c 69  |.m_file.(....mli|
000065c0  73 74 25 21 34 ca 0d 28  e6 2c c9 30 3a f2 43 4c  |st%!4..(.,.0:.CL|
000065d0  4f 53 45 3a f2 6d 73 74  6f 72 65 28 22 32 3a 22  |OSE:.mstore("2:"|
000065e0  2b 66 6e 24 2c 22 4d 75  6c 74 69 53 74 6f 72 65  |+fn$,"MultiStore|
000065f0  22 29 0d 28 f0 05 cb 0d  28 fa 05 e1 0d 29 04 04  |").(....(....)..|
00006600  0d 29 0e 1d dd f2 73 75  62 6d 65 6e 75 28 6d 65  |.)....submenu(me|
00006610  6e 75 25 2c 58 25 2c 59  25 2c 71 25 29 0d 29 18  |nu%,X%,Y%,q%).).|
00006620  07 ea 49 25 0d 29 22 2d  49 25 3d 30 3a f5 6d 6c  |..I%.)"-I%=0:.ml|
00006630  69 73 74 25 21 49 25 3d  71 25 21 49 25 3a 49 25  |ist%!I%=q%!I%:I%|
00006640  2b 3d 34 3a fd 71 25 21  28 49 25 2d 34 29 3d 2d  |+=4:.q%!(I%-4)=-|
00006650  31 0d 29 2c 1b f2 70 72  65 70 28 6f 70 65 6e 6d  |1.),..prep(openm|
00006660  65 6e 75 25 2c 6d 6c 69  73 74 25 29 0d 29 36 27  |enu%,mlist%).)6'|
00006670  c8 99 22 57 69 6d 70 5f  43 72 65 61 74 65 53 75  |.."Wimp_CreateSu|
00006680  62 4d 65 6e 75 22 2c 2c  6d 65 6e 75 25 2c 58 25  |bMenu",,menu%,X%|
00006690  2c 59 25 0d 29 40 05 e1  0d 29 4a 04 0d 29 54 20  |,Y%.)@...)J..)T |
000066a0  dd f2 63 6c 65 61 72 74  73 28 6d 68 25 29 3a ea  |..clearts(mh%):.|
000066b0  49 25 3a 49 25 3d 6d 68  25 2b 32 38 0d 29 5e 22  |I%:I%=mh%+28.)^"|
000066c0  e7 6d 68 25 3c 6d 65 6e  75 73 74 61 72 74 25 84  |.mh%<menustart%.|
000066d0  6d 68 25 3e 6d 65 6e 75  65 6e 64 25 3a e1 0d 29  |mh%>menuend%:..)|
000066e0  68 05 f5 0d 29 72 22 21  49 25 3d 21 49 25 80 ac  |h...)r"!I%=!I%..|
000066f0  31 3a 49 25 21 38 3d 49  25 21 38 80 ac 26 34 30  |1:I%!8=I%!8..&40|
00006700  30 30 30 30 3a 0d 29 7c  16 49 25 2b 3d 32 34 3a  |0000:.)|.I%+=24:|
00006710  fd 49 25 21 2d 32 34 80  26 38 30 0d 29 86 05 e1  |.I%!-24.&80.)...|
00006720  0d 29 90 04 0d 29 9a 13  dd f2 73 68 61 64 65 28  |.)...)....shade(|
00006730  6d 68 25 2c 49 25 29 0d  29 a4 2f 6d 68 25 21 28  |mh%,I%).)./mh%!(|
00006740  32 38 2b 38 2b 32 34 2a  49 25 29 3d 6d 68 25 21  |28+8+24*I%)=mh%!|
00006750  28 32 38 2b 38 2b 32 34  2a 49 25 29 84 26 34 30  |(28+8+24*I%).&40|
00006760  30 30 30 30 3a e1 0d 29  ae 04 0d 29 b8 12 dd f2  |0000:..)...)....|
00006770  74 69 63 6b 28 6d 68 25  2c 49 25 29 0d 29 c2 27  |tick(mh%,I%).).'|
00006780  6d 68 25 21 28 32 38 2b  32 34 2a 49 25 29 3d 6d  |mh%!(28+24*I%)=m|
00006790  68 25 21 28 32 38 2b 32  34 2a 49 25 29 84 26 30  |h%!(28+24*I%).&0|
000067a0  31 3a e1 0d 29 cc 04 0d  29 d6 15 dd f2 72 65 64  |1:..)...)....red|
000067b0  72 61 77 28 75 70 64 61  74 65 25 29 0d 29 e0 14  |raw(update%).)..|
000067c0  ea 68 25 2c 54 25 3a e7  75 70 64 61 74 65 25 8c  |.h%,T%:.update%.|
000067d0  0d 29 ea 25 c8 99 22 57  69 6d 70 5f 55 70 64 61  |.).%.."Wimp_Upda|
000067e0  74 65 57 69 6e 64 6f 77  22 2c 2c 71 25 20 b8 20  |teWindow",,q% . |
000067f0  6d 6f 72 65 25 0d 29 f4  05 cc 0d 29 fe 25 c8 99  |more%.)....).%..|
00006800  22 57 69 6d 70 5f 52 65  64 72 61 77 57 69 6e 64  |"Wimp_RedrawWind|
00006810  6f 77 22 2c 2c 71 25 20  b8 20 6d 6f 72 65 25 0d  |ow",,q% . more%.|
00006820  2a 08 05 cd 0d 2a 12 25  68 25 3d 21 71 25 3a f2  |*....*.%h%=!q%:.|
00006830  77 74 6f 66 28 68 25 29  3a f2 72 65 61 64 62 6c  |wtof(h%):.readbl|
00006840  6f 63 6b 28 71 25 2b 34  29 0d 2a 1c 0c c8 95 20  |ock(q%+4).*.... |
00006850  6d 6f 72 65 25 0d 2a 26  14 54 25 3d a3 3a ea 85  |more%.*&.T%=.:..|
00006860  3a ee 85 ea 3a 54 25 3d  b9 0d 2a 30 08 e7 54 25  |:...:T%=..*0..T%|
00006870  8c 0d 2a 3a 22 e7 a6 2d  33 3a f2 72 65 63 74 66  |..*:"..-3:.rectf|
00006880  69 6c 6c 28 f6 24 29 3a  8b f7 85 3a f2 65 72 72  |ill(.$):...:.err|
00006890  28 30 29 0d 2a 44 05 cc  0d 2a 4e 0e e7 66 69 6c  |(0).*D...*N..fil|
000068a0  65 25 3e 3d 30 8c 0d 2a  58 0c c8 8e 77 69 6e 64  |e%>=0..*X...wind|
000068b0  25 ca 0d 2a 62 10 c9 30  3a f2 64 72 61 77 63 61  |%..*b..0:.drawca|
000068c0  72 64 0d 2a 6c 11 c9 32  3a f2 64 72 61 77 66 6c  |rd.*l..2:.drawfl|
000068d0  69 73 74 0d 2a 76 10 c9  33 3a f2 64 72 61 77 73  |ist.*v..3:.draws|
000068e0  6f 72 74 0d 2a 80 05 cb  0d 2a 8a 05 cc 0d 2a 94  |ort.*....*....*.|
000068f0  05 cd 0d 2a 9e 05 cd 0d  2a a8 06 f7 85 0d 2a b2  |...*....*.....*.|
00006900  1f 21 71 25 3d 68 25 3a  6d 6f 72 65 25 3d a4 6e  |.!q%=h%:more%=.n|
00006910  65 78 74 72 65 63 74 61  6e 67 6c 65 0d 2a bc 05  |extrectangle.*..|
00006920  ce 0d 2a c6 05 e1 0d 2a  d0 04 0d 2a da 0e dd f2  |..*....*...*....|
00006930  64 72 61 77 63 61 72 64  0d 2a e4 2b ea 54 25 3a  |drawcard.*.+.T%:|
00006940  e7 75 70 64 61 74 65 25  54 25 3d 36 3a 8b c8 99  |.update%T%=6:...|
00006950  73 77 69 25 2c 67 6c 69  6e 65 5f 25 3a da 3a 54  |swi%,gline_%:.:T|
00006960  25 3d 32 0d 2a ee 2a f2  67 63 6f 6c 28 30 2c 37  |%=2.*.*.gcol(0,7|
00006970  29 3a f2 67 63 6f 6c 28  30 2c 31 33 30 2b ac a4  |):.gcol(0,130+..|
00006980  66 6c 67 28 66 5f 37 62  69 74 25 29 29 0d 2a f8  |flg(f_7bit%)).*.|
00006990  2d ec 62 78 25 2b 6d 61  72 67 69 6e 25 2c 62 79  |-.bx%+margin%,by|
000069a0  25 2d 6d 61 72 67 69 6e  25 3a c8 99 73 77 69 25  |%-margin%:..swi%|
000069b0  2c 77 69 6d 70 5f 25 2c  54 25 0d 2b 02 05 e1 0d  |,wimp_%,T%.+....|
000069c0  2b 0c 04 0d 2b 16 39 dd  f2 64 72 61 77 66 6c 69  |+...+.9..drawfli|
000069d0  73 74 3a ea 54 25 2c 58  25 2c 59 25 2c 78 25 2c  |st:.T%,X%,Y%,x%,|
000069e0  79 25 3a 54 25 3d 26 31  30 30 30 30 3a e7 75 70  |y%:T%=&10000:.up|
000069f0  64 61 74 65 25 54 25 3d  54 25 84 31 0d 2b 20 32  |date%T%=T%.1.+ 2|
00006a00  e7 a4 76 5f 28 37 29 3d  30 f2 72 65 63 74 66 69  |..v_(7)=0.rectfi|
00006a10  6c 6c 28 22 4e 6f 20 66  69 65 6c 64 73 20 69 6e  |ll("No fields in|
00006a20  20 74 68 69 73 20 66 69  6c 65 22 29 3a e1 0d 2b  | this file"):..+|
00006a30  2a 2f ec 62 78 25 2b 6d  61 72 67 69 6e 25 2c 62  |*/.bx%+margin%,b|
00006a40  79 25 2d 6d 61 72 67 69  6e 25 2d 34 3a c8 99 73  |y%-margin%-4:..s|
00006a50  77 69 25 2c 77 69 6d 70  5f 25 2c 54 25 0d 2b 34  |wi%,wimp_%,T%.+4|
00006a60  05 e1 0d 2b 3e 04 0d 2b  48 18 dd f2 64 72 61 77  |...+>..+H...draw|
00006a70  73 6f 72 74 3a e7 75 70  64 61 74 65 25 da 0d 2b  |sort:.update%..+|
00006a80  52 36 ea 59 25 2c 54 25  2c 64 25 2c 4c 25 3a 64  |R6.Y%,T%,d%,L%:d|
00006a90  25 3d a4 76 5f 28 31 34  29 3a 4c 25 3d 28 67 78  |%=.v_(14):L%=(gx|
00006aa0  31 25 2d 62 78 25 2d 6d  61 72 67 69 6e 25 29 81  |1%-bx%-margin%).|
00006ab0  31 36 2b 31 0d 2b 5c 06  ea 85 0d 2b 66 30 ee 85  |16+1.+\....+f0..|
00006ac0  ea 3a f7 85 3a c8 99 73  77 69 25 2c 67 72 65 63  |.:..:..swi%,grec|
00006ad0  5f 25 2c 30 3a f2 66 6f  72 63 65 28 77 25 28 33  |_%,0:.force(w%(3|
00006ae0  29 29 3a f2 65 72 72 28  30 29 0d 2b 70 3f 54 25  |)):.err(0).+p?T%|
00006af0  3d 28 62 79 25 2d 67 79  31 25 2d 6d 61 72 67 69  |=(by%-gy1%-margi|
00006b00  6e 25 2d 34 29 81 6c 69  6e 65 67 61 70 25 3a 59  |n%-4).linegap%:Y|
00006b10  25 3d 62 79 25 2d 6d 61  72 67 69 6e 25 2d 6c 69  |%=by%-margin%-li|
00006b20  6e 65 67 61 70 25 2a 54  25 0d 2b 7a 29 c8 95 59  |negap%*T%.+z)..Y|
00006b30  25 3e 3d 67 79 30 25 80  54 25 3c a4 76 5f 28 31  |%>=gy0%.T%<.v_(1|
00006b40  37 29 3a ec 62 78 25 2b  6d 61 72 67 69 6e 25 2c  |7):.bx%+margin%,|
00006b50  59 25 0d 2b 84 13 f1 a4  72 6c 69 6e 28 54 25 2b  |Y%.+....rlin(T%+|
00006b60  31 2c 4c 25 29 0d 2b 8e  2b 54 25 2b 3d 31 3a 59  |1,L%).+.+T%+=1:Y|
00006b70  25 2d 3d 6c 69 6e 65 67  61 70 25 3a ce 3a c8 99  |%-=linegap%:.:..|
00006b80  73 77 69 25 2c 67 72 65  63 5f 25 2c 30 b8 4e 25  |swi%,grec_%,0.N%|
00006b90  0d 2b 98 05 e1 0d 2b a2  04 0d 2b ac 18 dd a4 72  |.+....+...+....r|
00006ba0  6c 69 6e 28 72 25 2c 4c  25 29 3a ea 74 24 2c 61  |lin(r%,L%):.t$,a|
00006bb0  24 0d 2b b6 23 61 24 3d  c4 31 32 2c 22 20 22 29  |$.+.#a$=.12," ")|
00006bc0  3a c8 99 73 77 69 25 2c  67 72 65 63 5f 25 2c 72  |:..swi%,grec_%,r|
00006bd0  25 b8 4e 25 0d 2b c0 25  f2 73 64 33 35 3a 61 24  |%.N%.+.%.sd35:a$|
00006be0  3d c2 61 24 2b c3 28 72  25 29 2c 31 30 29 2b 22  |=.a$+.(r%),10)+"|
00006bf0  3a 20 22 3a c8 8e 47 25  ca 0d 2b ca 2b c9 31 3a  |: ":..G%..+.+.1:|
00006c00  f2 67 63 6f 6c 28 30 2c  33 29 3a 74 24 3d 22 28  |.gcol(0,3):t$="(|
00006c10  4e 6f 74 20 69 6e 20 74  68 69 73 20 73 75 62 73  |Not in this subs|
00006c20  65 74 29 22 0d 2b d4 22  c9 30 3a f2 67 63 6f 6c  |et)".+.".0:.gcol|
00006c30  28 30 2c 37 29 3a e7 4c  25 3e 31 31 3a 74 24 3d  |(0,7):.L%>11:t$=|
00006c40  a4 72 6c 69 6e 31 0d 2b  de 24 7f 3a f2 67 63 6f  |.rlin1.+.$.:.gco|
00006c50  6c 28 30 2c 33 29 3a 74  24 3d 22 28 44 65 6c 65  |l(0,3):t$="(Dele|
00006c60  74 65 64 20 43 61 72 64  29 22 0d 2b e8 05 cb 0d  |ted Card)".+....|
00006c70  2b f2 0f 3d c0 61 24 2b  74 24 2c 4c 25 29 0d 2b  |+..=.a$+t$,L%).+|
00006c80  fc 04 0d 2c 06 0b dd a4  72 6c 69 6e 31 0d 2c 10  |...,....rlin1.,.|
00006c90  18 ea 85 3a ee 85 ea 3a  f7 85 3a 3d 22 20 2a 2a  |...:...:..:=" **|
00006ca0  20 22 2b f6 24 0d 2c 1a  2a 3d a4 65 76 33 28 6f  | "+.$.,.*=.ev3(o|
00006cb0  78 24 28 30 29 2c 6f 25  28 30 2c 30 29 80 34 2c  |x$(0),o%(0,0).4,|
00006cc0  6f 25 28 30 2c 30 29 80  32 2c 26 39 30 41 29 0d  |o%(0,0).2,&90A).|
00006cd0  2c 24 04 0d 2c 2e 34 dd  a4 6e 65 78 74 72 65 63  |,$..,.4..nextrec|
00006ce0  74 61 6e 67 6c 65 3a ea  54 25 3a c8 99 22 57 69  |tangle:.T%:.."Wi|
00006cf0  6d 70 5f 47 65 74 52 65  63 74 61 6e 67 6c 65 22  |mp_GetRectangle"|
00006d00  2c 2c 71 25 b8 54 25 0d  2c 38 18 f2 72 65 61 64  |,,q%.T%.,8..read|
00006d10  62 6c 6f 63 6b 28 71 25  2b 34 29 3a 3d 54 25 0d  |block(q%+4):=T%.|
00006d20  2c 42 04 0d 2c 4c 12 dd  f2 72 65 63 74 66 69 6c  |,B..,L...rectfil|
00006d30  6c 28 54 24 29 0d 2c 56  1e f2 67 63 6f 6c 28 30  |l(T$).,V..gcol(0|
00006d40  2c 33 29 3a ea 49 25 2c  4a 25 2c 4c 25 2c 58 25  |,3):.I%,J%,L%,X%|
00006d50  2c 59 25 0d 2c 60 10 4c  25 3d a9 54 24 2a 31 36  |,Y%.,`.L%=.T$*16|
00006d60  2b 34 38 0d 2c 6a 2c 58  25 3d 62 78 25 2b 6d 61  |+48.,j,X%=bx%+ma|
00006d70  72 67 69 6e 25 3a 4a 25  3d 67 78 30 25 2d 58 25  |rgin%:J%=gx0%-X%|
00006d80  3a 58 25 3d 58 25 2d 4a  25 2b 4a 25 83 4c 25 0d  |:X%=X%-J%+J%.L%.|
00006d90  2c 74 3d 4a 25 3d 62 79  25 2d 67 79 31 25 2d 6d  |,t=J%=by%-gy1%-m|
00006da0  61 72 67 69 6e 25 3a 4a  25 3d 4a 25 2d 4a 25 83  |argin%:J%=J%-J%.|
00006db0  6c 69 6e 65 67 61 70 25  3a 59 25 3d 62 79 25 2d  |linegap%:Y%=by%-|
00006dc0  6d 61 72 67 69 6e 25 2d  34 2d 4a 25 0d 2c 7e 19  |margin%-4-J%.,~.|
00006dd0  e3 4a 25 3d 59 25 b8 67  79 30 25 88 2d 6c 69 6e  |.J%=Y%.gy0%.-lin|
00006de0  65 67 61 70 25 0d 2c 88  25 ec 58 25 2c 4a 25 3a  |egap%.,.%.X%,J%:|
00006df0  e3 49 25 3d 58 25 b8 67  78 31 25 88 4c 25 3a f1  |.I%=X%.gx1%.L%:.|
00006e00  54 24 22 20 2d 20 22 3b  3a ed 0d 2c 92 07 ed 3a  |T$" - ";:..,...:|
00006e10  e1 0d 2c 9c 04 0d 2c a6  0f dd f2 77 61 69 74 70  |..,...,....waitp|
00006e20  6f 69 6e 74 0d 2c b0 0e  77 61 69 74 65 72 25 2b  |oint.,..waiter%+|
00006e30  3d 31 0d 2c ba 14 c8 99  22 48 6f 75 72 67 6c 61  |=1.,...."Hourgla|
00006e40  73 73 5f 4f 6e 22 0d 2c  c4 05 e1 0d 2c ce 04 0d  |ss_On".,....,...|
00006e50  2c d8 0f dd f2 6e 6f 72  6d 70 6f 69 6e 74 0d 2c  |,....normpoint.,|
00006e60  e2 38 c8 95 77 61 69 74  65 72 25 3e 30 3a c8 99  |.8..waiter%>0:..|
00006e70  22 48 6f 75 72 67 6c 61  73 73 5f 4f 66 66 22 3a  |"Hourglass_Off":|
00006e80  77 61 69 74 65 72 25 2d  3d 31 3a ce 3a 77 61 69  |waiter%-=1:.:wai|
00006e90  74 65 72 25 3d 30 0d 2c  ec 05 e1 0d 2c f6 04 0d  |ter%=0.,....,...|
00006ea0  2d 00 11 dd f2 67 63 6f  6c 28 6d 25 2c 63 25 29  |-....gcol(m%,c%)|
00006eb0  0d 2d 0a 21 c8 99 22 57  69 6d 70 5f 53 65 74 43  |.-.!.."Wimp_SetC|
00006ec0  6f 6c 6f 75 72 22 2c 28  6d 25 3c 3c 34 29 2b 63  |olour",(m%<<4)+c|
00006ed0  25 0d 2d 14 05 e1 0d 2d  1e 04 0d 2d 28 11 dd f2  |%.-....-...-(...|
00006ee0  64 61 74 61 6c 6f 61 64  61 63 6b 0d 2d 32 1d 21  |dataloadack.-2.!|
00006ef0  71 25 3d 32 30 3a 71 25  21 31 32 3d 72 65 66 25  |q%=20:q%!12=ref%|
00006f00  3a 71 25 21 31 36 3d 34  0d 2d 3c 24 c8 99 22 57  |:q%!16=4.-<$.."W|
00006f10  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
00006f20  2c 31 37 2c 71 25 2c 74  61 73 6b 25 0d 2d 46 05  |,17,q%,task%.-F.|
00006f30  e1 0d 2d 50 04 0d 2d 5a  11 dd f2 64 61 74 61 73  |..-P..-Z...datas|
00006f40  61 76 65 61 63 6b 0d 2d  64 3c e7 a4 41 72 66 56  |aveack.-d<..ArfV|
00006f50  61 72 28 22 57 69 6d 70  24 53 63 72 61 70 22 29  |ar("Wimp$Scrap")|
00006f60  3d 22 22 3a 85 39 39 2c  22 3c 57 69 6d 70 24 53  |="":.99,"<Wimp$S|
00006f70  63 72 61 70 3e 20 6e 6f  74 20 64 65 66 69 6e 65  |crap> not define|
00006f80  64 22 0d 2d 6e 41 21 71  25 3d 36 30 3a 71 25 21  |d".-nA!q%=60:q%!|
00006f90  31 32 3d 72 65 66 25 3a  71 25 21 31 36 3d 32 3a  |12=ref%:q%!16=2:|
00006fa0  71 25 21 33 36 3d 2d 31  3a 24 28 71 25 2b 34 34  |q%!36=-1:$(q%+44|
00006fb0  29 3d 22 3c 57 69 6d 70  24 53 63 72 61 70 3e 22  |)="<Wimp$Scrap>"|
00006fc0  2b bd 30 0d 2d 78 31 c8  99 22 57 69 6d 70 5f 53  |+.0.-x1.."Wimp_S|
00006fd0  65 6e 64 4d 65 73 73 61  67 65 22 2c 31 37 2c 71  |endMessage",17,q|
00006fe0  25 2c 74 61 73 6b 25 3a  61 63 6b 72 65 66 25 3d  |%,task%:ackref%=|
00006ff0  71 25 21 38 0d 2d 82 05  e1 0d 2d 8c 04 0d 2d 96  |q%!8.-....-...-.|
00007000  1a dd f2 73 61 76 65 72  65 71 28 54 24 2c 74 25  |...savereq(T$,t%|
00007010  2c 73 25 2c 72 25 29 0d  2d a0 3a 73 61 76 65 72  |,s%,r%).-.:saver|
00007020  65 61 73 6f 6e 25 3d 72  25 3a 71 25 21 33 32 3d  |eason%=r%:q%!32=|
00007030  6d 79 25 3a 71 25 21 32  38 3d 6d 78 25 3a 71 25  |my%:q%!28=mx%:q%|
00007040  21 32 34 3d 6d 69 25 3a  71 25 21 32 30 3d 6d 68  |!24=mi%:q%!20=mh|
00007050  25 0d 2d aa 38 71 25 21  31 36 3d 31 3a 71 25 21  |%.-.8q%!16=1:q%!|
00007060  31 32 3d 30 3a 71 25 21  33 36 3d 73 25 3a 71 25  |12=0:q%!36=s%:q%|
00007070  21 34 30 3d 74 25 3a 21  71 25 3d 28 a9 54 24 2b  |!40=t%:!q%=(.T$+|
00007080  35 33 29 80 26 46 46 46  43 0d 2d b4 39 24 28 71  |53).&FFFC.-.9$(q|
00007090  25 2b 34 34 29 3d 54 24  2b c4 35 2c bd 30 29 3a  |%+44)=T$+.5,.0):|
000070a0  c8 99 22 57 69 6d 70 5f  53 65 6e 64 4d 65 73 73  |.."Wimp_SendMess|
000070b0  61 67 65 22 2c 31 37 2c  71 25 2c 6d 68 25 2c 6d  |age",17,q%,mh%,m|
000070c0  69 25 0d 2d be 20 73 61  76 65 72 65 66 25 3d 71  |i%.-. saveref%=q|
000070d0  25 21 38 3a 73 61 76 65  74 79 70 65 25 3d 74 25  |%!8:savetype%=t%|
000070e0  3a e1 0d 2d c8 04 0d 2d  d2 26 dd f2 6c 6f 61 64  |:..-...-.&..load|
000070f0  6d 65 73 73 3a f2 72 65  61 64 70 6f 69 6e 74 65  |mess:.readpointe|
00007100  72 3a e7 74 61 73 6b 25  3c 30 3a e1 0d 2d dc 2b  |r:.task%<0:..-.+|
00007110  24 28 71 25 2b 34 34 29  3d 66 69 6c 65 24 2b bd  |$(q%+44)=file$+.|
00007120  30 3a 21 71 25 3d 28 a9  66 69 6c 65 24 2b 34 39  |0:!q%=(.file$+49|
00007130  29 80 26 46 46 46 43 0d  2d e6 26 71 25 21 31 32  |).&FFFC.-.&q%!12|
00007140  3d 72 65 66 25 3a 71 25  21 31 36 3d 33 3a 71 25  |=ref%:q%!16=3:q%|
00007150  21 34 30 3d 73 61 76 65  74 79 70 65 25 0d 2d f0  |!40=savetype%.-.|
00007160  3f 71 25 21 32 30 3d 6d  68 25 3a 71 25 21 32 34  |?q%!20=mh%:q%!24|
00007170  3d 6d 69 25 3a 71 25 21  32 38 3d 6d 78 25 3a 71  |=mi%:q%!28=mx%:q|
00007180  25 21 33 32 3d 6d 79 25  3a 71 25 21 33 36 3d a4  |%!32=my%:q%!36=.|
00007190  66 73 69 7a 65 28 66 69  6c 65 24 29 0d 2d fa 24  |fsize(file$).-.$|
000071a0  c8 99 22 57 69 6d 70 5f  53 65 6e 64 4d 65 73 73  |.."Wimp_SendMess|
000071b0  61 67 65 22 2c 31 37 2c  71 25 2c 74 61 73 6b 25  |age",17,q%,task%|
000071c0  0d 2e 04 13 61 63 6b 70  65 6e 64 69 6e 67 25 3d  |....ackpending%=|
000071d0  b9 3a e1 0d 2e 0e 04 0d  2e 18 26 dd a4 66 73 69  |.:........&..fsi|
000071e0  7a 65 28 54 24 29 3a ea  54 25 2c 73 25 3a 54 25  |ze(T$):.T%,s%:T%|
000071f0  3d 8e 54 24 3a e7 54 25  3d 30 3a 3d 30 0d 2e 22  |=.T$:.T%=0:=0.."|
00007200  14 73 25 3d a2 23 54 25  3a d9 23 54 25 3a 3d 73  |.s%=.#T%:.#T%:=s|
00007210  25 0d 2e 2c 05 20 0d 2e  36 11 dd a4 7a 74 73 28  |%..,. ..6...zts(|
00007220  54 25 29 3a ea 54 24 0d  2e 40 1d c8 95 3f 54 25  |T%):.T$..@...?T%|
00007230  3c 3e 30 3a 54 24 2b 3d  bd 3f 54 25 3a 54 25 2b  |<>0:T$+=.?T%:T%+|
00007240  3d 31 3a ce 0d 2e 4a 07  3d 54 24 0d 2e 54 04 0d  |=1:...J.=T$..T..|
00007250  2e 5e 29 dd f2 6b 65 79  28 68 25 2c 69 63 6f 6e  |.^)..key(h%,icon|
00007260  25 2c 78 25 2c 79 25 2c  63 61 72 68 25 2c 6f 66  |%,x%,y%,carh%,of|
00007270  66 25 2c 6b 65 79 25 29  0d 2e 68 0c ea 46 25 3a  |f%,key%)..h..F%:|
00007280  46 25 3d b9 0d 2e 72 0b  c8 8e 6b 65 79 25 ca 0d  |F%=...r...key%..|
00007290  2e 7c 13 c9 39 2c 26 31  38 41 3a f2 66 69 6e 64  |.|..9,&18A:.find|
000072a0  63 74 0d 2e 86 1d c9 31  33 3a f2 63 75 72 73 6f  |ct.....13:.curso|
000072b0  72 28 68 25 2c 69 63 6f  6e 25 2c 31 2c 30 29 0d  |r(h%,icon%,1,0).|
000072c0  2e 90 11 c9 31 39 3a f2  73 77 61 70 63 61 73 65  |....19:.swapcase|
000072d0  0d 2e 9a 22 c9 32 37 3a  e7 64 69 61 6c 6f 67 75  |...".27:.dialogu|
000072e0  65 25 3e 3d 30 f2 6e 6f  64 69 61 6c 3a 8b 46 25  |e%>=0.nodial:.F%|
000072f0  3d a3 0d 2e a4 1a c9 26  31 38 31 3a e7 ac a4 70  |=......&181:...p|
00007300  72 6f 64 3a f2 71 75 69  74 28 b9 29 0d 2e ae 23  |rod:.quit(.)...#|
00007310  c9 26 31 38 46 3a f2 63  75 72 73 6f 72 28 68 25  |.&18F:.cursor(h%|
00007320  2c 69 63 6f 6e 25 2c 2d  31 2c 6f 66 66 25 29 0d  |,icon%,-1,off%).|
00007330  2e b8 22 c9 26 31 38 45  3a f2 63 75 72 73 6f 72  |..".&18E:.cursor|
00007340  28 68 25 2c 69 63 6f 6e  25 2c 31 2c 6f 66 66 25  |(h%,icon%,1,off%|
00007350  29 0d 2e c2 23 c9 26 31  39 46 3a f2 63 75 72 73  |)...#.&19F:.curs|
00007360  6f 72 28 68 25 2c 69 63  6f 6e 25 2c 2d 35 2c 6f  |or(h%,icon%,-5,o|
00007370  66 66 25 29 0d 2e cc 22  c9 26 31 39 45 3a f2 63  |ff%)...".&19E:.c|
00007380  75 72 73 6f 72 28 68 25  2c 69 63 6f 6e 25 2c 35  |ursor(h%,icon%,5|
00007390  2c 6f 66 66 25 29 0d 2e  d6 28 c9 26 31 41 46 2c  |,off%)...(.&1AF,|
000073a0  33 30 3a f2 63 75 72 73  6f 72 28 68 25 2c 69 63  |30:.cursor(h%,ic|
000073b0  6f 6e 25 2c 2d 31 45 39  2c 6f 66 66 25 29 0d 2e  |on%,-1E9,off%)..|
000073c0  e0 24 c9 26 31 41 45 3a  f2 63 75 72 73 6f 72 28  |.$.&1AE:.cursor(|
000073d0  68 25 2c 69 63 6f 6e 25  2c 31 45 39 2c 6f 66 66  |h%,icon%,1E9,off|
000073e0  25 29 0d 2e ea 09 7f 46  25 3d a3 0d 2e f4 05 cb  |%).....F%=......|
000073f0  0d 2e fe 09 e7 46 25 3a  e1 0d 2f 08 1c c8 99 22  |.....F%:../...."|
00007400  57 69 6d 70 5f 50 72 6f  63 65 73 73 4b 65 79 22  |Wimp_ProcessKey"|
00007410  2c 6b 65 79 25 0d 2f 12  05 e1 0d 2f 1c 04 0d 2f  |,key%./..../.../|
00007420  26 2c dd f2 73 77 61 70  63 61 73 65 3a f2 67 65  |&,..swapcase:.ge|
00007430  74 63 74 3a 54 25 3d 71  25 21 32 30 2b a4 69 61  |tct:T%=q%!20+.ia|
00007440  28 21 71 25 2c 71 25 21  34 29 0d 2f 30 33 e7 3f  |(!q%,q%!4)./03.?|
00007450  54 25 3c 31 32 33 80 3f  54 25 3e 39 36 20 3f 54  |T%<123.?T%>96 ?T|
00007460  25 2d 3d 33 32 3a 8b e7  3f 54 25 3c 39 31 80 3f  |%-=32:..?T%<91.?|
00007470  54 25 3e 36 34 20 3f 54  25 2b 3d 33 32 0d 2f 3a  |T%>64 ?T%+=32./:|
00007480  2a f2 67 65 74 63 74 3a  e7 3f 54 25 3e 33 31 f2  |*.getct:.?T%>31.|
00007490  73 65 74 63 74 28 21 71  25 2c 71 25 21 34 2c 71  |setct(!q%,q%!4,q|
000074a0  25 21 32 30 2b 31 29 0d  2f 44 1f f2 67 65 74 63  |%!20+1)./D..getc|
000074b0  74 3a f2 69 63 6f 6e 75  70 64 28 21 71 25 2c 71  |t:.iconupd(!q%,q|
000074c0  25 21 34 29 3a e1 0d 2f  4e 04 0d 2f 58 2b dd f2  |%!4):../N../X+..|
000074d0  67 65 74 63 74 3a c8 99  22 57 69 6d 70 5f 47 65  |getct:.."Wimp_Ge|
000074e0  74 43 61 72 65 74 50 6f  73 69 74 69 6f 6e 22 2c  |tCaretPosition",|
000074f0  2c 71 25 3a e1 0d 2f 62  04 0d 2f 6c 3d dd f2 73  |,q%:../b../l=..s|
00007500  65 74 63 74 28 68 25 2c  69 25 2c 6f 25 29 3a c8  |etct(h%,i%,o%):.|
00007510  99 22 57 69 6d 70 5f 53  65 74 43 61 72 65 74 50  |."Wimp_SetCaretP|
00007520  6f 73 69 74 69 6f 6e 22  2c 68 25 2c 69 25 2c 2c  |osition",h%,i%,,|
00007530  2c 2d 31 2c 6f 25 0d 2f  76 11 e7 69 25 3e 3d 30  |,-1,o%./v..i%>=0|
00007540  f2 66 69 6e 64 63 74 0d  2f 80 05 e1 0d 2f 8a 04  |.findct./..../..|
00007550  0d 2f 94 19 dd f2 63 75  72 73 6f 72 28 68 25 2c  |./....cursor(h%,|
00007560  69 25 2c 73 25 2c 6f 25  29 0d 2f 9e 09 f7 8d 44  |i%,s%,o%)./....D|
00007570  5c 70 0d 2f a8 0d ea 57  25 2c 54 24 2c 49 25 0d  |\p./...W%,T$,I%.|
00007580  2f b2 0c c8 95 57 25 3c  3e 2d 31 0d 2f bc 17 f2  |/....W%<>-1./...|
00007590  72 65 61 64 68 28 57 25  29 3a e7 57 25 3c 3e 68  |readh(W%):.W%<>h|
000075a0  25 8c 0d 2f c6 1d e7 57  25 3c 3e 2d 31 3a f5 3a  |%../...W%<>-1:.:|
000075b0  f3 57 25 3a fd 57 25 3c  2d 31 3a 57 25 3d 30 0d  |.W%:.W%<-1:W%=0.|
000075c0  2f d0 05 cc 0d 2f da 05  f5 0d 2f e4 19 f3 57 25  |/..../..../...W%|
000075d0  3a e7 57 25 3c 3e 2d 31  3a 54 24 2b 3d bd 28 57  |:.W%<>-1:T$+=.(W|
000075e0  25 29 0d 2f ee 12 fd 57  25 3c 2d 31 3a 54 24 3d  |%)./...W%<-1:T$=|
000075f0  c0 54 24 29 0d 2f f8 3b  e7 6b 65 79 25 3d 31 33  |.T$)./.;.key%=13|
00007600  3a e7 97 c2 54 24 29 3d  69 25 3a 6d 69 25 3d 94  |:...T$)=i%:mi%=.|
00007610  28 57 25 2b 31 30 30 29  3a 6d 62 25 3d 31 3a 6d  |(W%+100):mb%=1:m|
00007620  68 25 3d 68 25 3a f2 73  65 6c 65 63 74 3a e1 0d  |h%=h%:.select:..|
00007630  30 02 2f e7 73 25 3d 31  45 39 3a 73 25 3d a9 54  |0./.s%=1E9:s%=.T|
00007640  24 3a 8b e7 73 25 3d 2d  31 45 39 3a 73 25 3d 31  |$:..s%=-1E9:s%=1|
00007650  3a 8b 73 25 2b 3d a7 54  24 2c bd 69 25 29 0d 30  |:.s%+=.T$,.i%).0|
00007660  0c 16 c8 95 73 25 3e a9  54 24 3a 73 25 2d 3d a9  |....s%>.T$:s%-=.|
00007670  54 24 3a ce 0d 30 16 14  c8 95 73 25 3c 31 3a 73  |T$:..0....s%<1:s|
00007680  25 2b 3d a9 54 24 3a ce  0d 30 20 0f 49 25 3d 97  |%+=.T$:..0 .I%=.|
00007690  c1 54 24 2c 73 25 29 0d  30 2a 23 e7 6f 25 3e a9  |.T$,s%).0*#.o%>.|
000076a0  24 a4 69 61 28 68 25 2c  49 25 29 6f 25 3d a9 24  |$.ia(h%,I%)o%=.$|
000076b0  a4 69 61 28 68 25 2c 49  25 29 0d 30 34 14 f2 73  |.ia(h%,I%).04..s|
000076c0  65 74 63 74 28 68 25 2c  49 25 2c 6f 25 29 0d 30  |etct(h%,I%,o%).0|
000076d0  3e 05 cd 0d 30 48 05 ce  0d 30 52 05 e1 0d 30 5c  |>...0H...0R...0\|
000076e0  13 dc 77 5f 73 61 76 65  25 2c 32 2c 2d 31 30 30  |..w_save%,2,-100|
000076f0  0d 30 66 14 dc 77 5f 6f  70 65 6e 25 2c 31 34 2c  |.0f..w_open%,14,|
00007700  2d 31 31 32 0d 30 70 16  dc 77 5f 73 6f 72 74 65  |-112.0p..w_sorte|
00007710  78 25 2c 31 37 2c 2d 31  32 33 0d 30 7a 40 dc 22  |x%,17,-123.0z@."|
00007720  77 25 28 34 29 22 2c 30  2c 31 2c 32 2c 33 2c 34  |w%(4)",0,1,2,3,4|
00007730  2c 35 2c 36 2c 37 2c 38  2c 39 2c 31 30 2c 31 31  |,5,6,7,8,9,10,11|
00007740  2c 31 32 2c 31 33 2c 31  34 2c 31 35 2c 31 36 2c  |,12,13,14,15,16,|
00007750  31 37 2c 31 38 2c 2d 31  30 30 0d 30 84 07 dc 2d  |17,18,-100.0...-|
00007760  31 0d 30 8e 04 0d 30 98  0e dd a4 6c 65 61 66 28  |1.0...0....leaf(|
00007770  54 24 29 0d 30 a2 0a ea  49 25 2c 43 25 0d 30 ac  |T$).0...I%,C%.0.|
00007780  24 e7 28 28 a7 54 24 2c  22 2e 22 29 3d 30 29 80  |$.((.T$,".")=0).|
00007790  28 a7 54 24 2c 22 3a 22  29 3d 30 29 29 8c 3d 54  |(.T$,":")=0)).=T|
000077a0  24 0d 30 b6 0c 49 25 3d  a9 28 54 24 29 0d 30 c0  |$.0..I%=.(T$).0.|
000077b0  05 f5 0d 30 ca 11 43 25  3d 97 c1 54 24 2c 49 25  |...0..C%=..T$,I%|
000077c0  2c 31 29 0d 30 d4 09 49  25 2d 3d 31 0d 30 de 1c  |,1).0..I%-=1.0..|
000077d0  fd 28 49 25 3c 3d 30 84  43 25 3d 97 22 2e 22 84  |.(I%<=0.C%=.".".|
000077e0  43 25 3d 97 22 3a 22 29  0d 30 e8 1a e7 49 25 3e  |C%=.":").0...I%>|
000077f0  30 8c 3d c2 54 24 2c a9  28 54 24 29 2d 49 25 2d  |0.=.T$,.(T$)-I%-|
00007800  31 29 0d 30 f2 07 3d 54  24 0d 30 fc 04 0d 31 06  |1).0..=T$.0...1.|
00007810  33 dd f2 77 65 78 74 28  68 25 2c 78 25 2c 79 25  |3..wext(h%,x%,y%|
00007820  29 3a 21 71 25 3d 30 3a  71 25 21 34 3d 2d 79 25  |):!q%=0:q%!4=-y%|
00007830  3a 71 25 21 38 3d 78 25  3a 71 25 21 31 32 3d 30  |:q%!8=x%:q%!12=0|
00007840  0d 31 10 27 c8 99 22 57  69 6d 70 5f 53 65 74 45  |.1.'.."Wimp_SetE|
00007850  78 74 65 6e 74 22 2c 68  25 2c 71 25 3a f2 66 6f  |xtent",h%,q%:.fo|
00007860  72 63 65 28 68 25 29 0d  31 1a 15 f2 67 65 74 77  |rce(h%).1...getw|
00007870  28 68 25 29 3a e7 6f 70  65 6e 25 8c 0d 31 24 1f  |(h%):.open%..1$.|
00007880  e7 78 31 25 2d 78 30 25  3e 78 25 3a 78 25 2b 3d  |.x1%-x0%>x%:x%+=|
00007890  78 30 25 3a 8b 78 25 3d  78 31 25 0d 31 2e 21 e7  |x0%:.x%=x1%.1.!.|
000078a0  79 31 25 2d 79 30 25 3e  79 25 3a 79 25 3d 79 31  |y1%-y0%>y%:y%=y1|
000078b0  25 2d 79 25 3a 8b 79 25  3d 79 30 25 0d 31 38 2e  |%-y%:.y%=y0%.18.|
000078c0  f2 6f 70 65 6e 28 68 25  2c 78 30 25 2c 79 25 2c  |.open(h%,x0%,y%,|
000078d0  78 25 2c 79 31 25 2c 73  63 78 25 2c 73 63 79 25  |x%,y1%,scx%,scy%|
000078e0  2c 62 68 61 6e 64 6c 65  25 29 0d 31 42 05 cd 0d  |,bhandle%).1B...|
000078f0  31 4c 05 e1 0d 31 56 04  0d 31 60 0d dd f2 70 72  |1L...1V..1`...pr|
00007900  6f 63 65 73 73 0d 31 6a  2f e7 64 69 61 6c 72 65  |ocess.1j/.dialre|
00007910  61 73 6f 6e 25 3e 3d 30  84 64 69 61 6c 6f 67 75  |ason%>=0.dialogu|
00007920  65 25 3e 3d 30 84 61 63  6b 70 65 6e 64 69 6e 67  |e%>=0.ackpending|
00007930  25 3e 30 e1 0d 31 74 0f  c8 8e 70 72 6f 63 65 73  |%>0..1t...proces|
00007940  73 25 ca 0d 31 7e 11 c9  31 3a f2 63 68 65 63 6b  |s%..1~..1:.check|
00007950  70 72 6f 74 0d 31 88 51  c9 32 3a f2 73 74 6f 70  |prot.1.Q.2:.stop|
00007960  28 31 2c 22 50 6c 65 61  73 65 20 70 6c 61 63 65  |(1,"Please place|
00007970  20 6f 72 69 67 69 6e 61  6c 22 2c 22 4d 75 6c 74  | original","Mult|
00007980  69 53 74 6f 72 65 20 64  69 73 6b 20 69 6e 20 64  |iStore disk in d|
00007990  72 69 76 65 20 3a 30 22  29 3a 70 72 6f 63 65 73  |rive :0"):proces|
000079a0  73 25 2b 3d 31 0d 31 92  11 c9 33 3a f2 63 68 65  |s%+=1.1...3:.che|
000079b0  63 6b 70 72 6f 74 0d 31  9c 1b c9 34 3a f2 66 61  |ckprot.1...4:.fa|
000079c0  73 74 73 6f 72 74 3a f2  73 74 61 72 74 6f 70 65  |stsort:.startope|
000079d0  6e 0d 31 a6 0f 7f 70 72  6f 63 65 73 73 25 3d 30  |n.1...process%=0|
000079e0  0d 31 b0 05 cb 0d 31 ba  0d f2 6e 65 77 64 65 6c  |.1....1...newdel|
000079f0  61 79 0d 31 c4 05 e1 0d  31 ce 04 0d 31 d8 15 dd  |ay.1....1...1...|
00007a00  f2 64 72 61 67 69 63 6f  6e 28 68 25 2c 69 25 29  |.dragicon(h%,i%)|
00007a10  0d 31 e2 22 ea 78 25 2c  79 25 2c 79 73 25 2c 74  |.1.".x%,y%,ys%,t|
00007a20  78 30 25 2c 74 79 30 25  2c 74 78 31 25 2c 74 79  |x0%,ty0%,tx1%,ty|
00007a30  31 25 0d 31 ec 2c f2 67  65 74 77 28 68 25 29 3a  |1%.1.,.getw(h%):|
00007a40  79 73 25 3d 79 31 25 2d  79 30 25 3a 78 25 3d 62  |ys%=y1%-y0%:x%=b|
00007a50  78 25 3a 79 25 3d 79 30  25 2d 73 63 79 25 0d 31  |x%:y%=y0%-scy%.1|
00007a60  f6 31 f2 67 65 74 69 28  68 25 2c 69 25 29 3a 71  |.1.geti(h%,i%):q|
00007a70  25 21 38 2b 3d 78 25 3a  71 25 21 31 32 2b 3d 79  |%!8+=x%:q%!12+=y|
00007a80  25 2b 79 73 25 3a 71 25  21 31 36 2b 3d 78 25 0d  |%+ys%:q%!16+=x%.|
00007a90  32 00 30 71 25 21 32 30  2b 3d 79 25 2b 79 73 25  |2.0q%!20+=y%+ys%|
00007aa0  3a 71 25 21 32 34 3d 30  3a 71 25 21 32 38 3d 30  |:q%!24=0:q%!28=0|
00007ab0  3a 21 71 25 3d 30 3a f2  64 72 61 67 35 3a e1 0d  |:!q%=0:.drag5:..|
00007ac0  32 0a 04 0d 32 14 3c dd  f2 64 72 61 67 35 3a f2  |2...2.<..drag5:.|
00007ad0  72 65 61 64 70 6f 69 6e  74 65 72 3a f2 73 63 72  |readpointer:.scr|
00007ae0  73 7a 3a 74 78 30 25 3d  6d 78 25 2d 71 25 21 38  |sz:tx0%=mx%-q%!8|
00007af0  3a 74 79 30 25 3d 6d 79  25 2d 71 25 21 31 32 0d  |:ty0%=my%-q%!12.|
00007b00  32 1e 3d 71 25 21 32 34  2d 3d 74 78 30 25 3a 71  |2.=q%!24-=tx0%:q|
00007b10  25 21 32 38 2d 3d 74 79  30 25 3a 71 25 21 33 32  |%!28-=ty0%:q%!32|
00007b20  2b 3d 71 25 21 31 36 2d  6d 78 25 3a 71 25 21 33  |+=q%!16-mx%:q%!3|
00007b30  36 2b 3d 71 25 21 32 30  2d 6d 79 25 0d 32 28 21  |6+=q%!20-my%.2(!|
00007b40  71 25 21 34 3d 35 3a c8  99 22 57 69 6d 70 5f 44  |q%!4=5:.."Wimp_D|
00007b50  72 61 67 42 6f 78 22 2c  2c 71 25 3a e1 0d 32 32  |ragBox",,q%:..22|
00007b60  04 0d 32 3c 1a dd a4 6c  6f 77 65 72 28 54 24 29  |..2<...lower(T$)|
00007b70  3a e7 54 24 3d 22 22 3a  3d 22 22 0d 32 46 0a ea  |:.T$="":="".2F..|
00007b80  49 25 2c 43 25 0d 32 50  19 e3 49 25 3d 31 b8 a9  |I%,C%.2P..I%=1..|
00007b90  54 24 3a 43 25 3d 97 c1  54 24 2c 49 25 29 0d 32  |T$:C%=..T$,I%).2|
00007ba0  5a 22 e7 43 25 3e 36 34  80 43 25 3c 39 31 c1 54  |Z".C%>64.C%<91.T|
00007bb0  24 2c 49 25 2c 31 29 3d  bd 28 43 25 2b 33 32 29  |$,I%,1)=.(C%+32)|
00007bc0  0d 32 64 09 ed 3a 3d 54  24 0d 32 6e 04 0d 32 78  |.2d..:=T$.2n..2x|
00007bd0  24 dd f2 77 74 6f 66 28  54 25 29 3a ea 4a 25 3a  |$..wtof(T%):.J%:|
00007be0  77 69 6e 64 25 3d 2d 31  3a 66 69 6c 65 25 3d 2d  |wind%=-1:file%=-|
00007bf0  31 0d 32 82 2d e3 4a 25  3d 30 b8 6d 61 78 77 25  |1.2.-.J%=0.maxw%|
00007c00  3a e7 77 25 28 4a 25 29  3d 54 25 3a 66 69 6c 65  |:.w%(J%)=T%:file|
00007c10  25 3d 30 3a 77 69 6e 64  25 3d 4a 25 3a e1 0d 32  |%=0:wind%=J%:..2|
00007c20  8c 07 ed 3a e1 0d 32 96  04 0d 32 a0 0a dd f2 66  |...:..2...2....f|
00007c30  65 78 74 0d 32 aa 0a ea  78 25 2c 79 25 0d 32 b4  |ext.2...x%,y%.2.|
00007c40  1d 79 25 3d a4 68 74 2a  6c 69 6e 65 67 61 70 25  |.y%=.ht*linegap%|
00007c50  2b 6d 61 72 67 69 6e 25  2a 32 0d 32 be 29 78 25  |+margin%*2.2.)x%|
00007c60  3d a4 77 64 2a 31 36 2b  6d 61 72 67 69 6e 25 2a  |=.wd*16+margin%*|
00007c70  32 3a e7 78 25 3c 32 32  2a 31 36 78 25 3d 32 32  |2:.x%<22*16x%=22|
00007c80  2a 31 36 0d 32 c8 3e 21  71 25 3d 30 3a 71 25 21  |*16.2.>!q%=0:q%!|
00007c90  34 3d 2d 79 25 3a 71 25  21 38 3d 78 25 3a 71 25  |4=-y%:q%!8=x%:q%|
00007ca0  21 31 32 3d 30 3a c8 99  22 57 69 6d 70 5f 53 65  |!12=0:.."Wimp_Se|
00007cb0  74 45 78 74 65 6e 74 22  2c 77 25 28 30 29 2c 71  |tExtent",w%(0),q|
00007cc0  25 0d 32 d2 10 f2 67 65  74 77 28 77 25 28 30 29  |%.2...getw(w%(0)|
00007cd0  29 0d 32 dc 1f e7 78 31  25 2d 78 30 25 3e 78 25  |).2...x1%-x0%>x%|
00007ce0  3a 78 25 2b 3d 78 30 25  3a 8b 78 25 3d 78 31 25  |:x%+=x0%:.x%=x1%|
00007cf0  0d 32 e6 21 e7 79 31 25  2d 79 30 25 3e 79 25 3a  |.2.!.y1%-y0%>y%:|
00007d00  79 25 3d 79 31 25 2d 79  25 3a 8b 79 25 3d 79 30  |y%=y1%-y%:.y%=y0|
00007d10  25 0d 32 f0 31 f2 6f 70  65 6e 28 77 25 28 30 29  |%.2.1.open(w%(0)|
00007d20  2c 78 30 25 2c 79 25 2c  78 25 2c 79 31 25 2c 73  |,x0%,y%,x%,y1%,s|
00007d30  63 78 25 2c 73 63 79 25  2c 62 68 61 6e 64 6c 65  |cx%,scy%,bhandle|
00007d40  25 29 0d 32 fa 05 e1 0d  33 04 04 0d 33 0e 22 dd  |%).2....3...3.".|
00007d50  a4 68 74 3a c8 99 73 77  69 25 2c 73 64 35 37 5f  |.ht:..swi%,sd57_|
00007d60  25 2c 22 68 65 69 67 68  74 22 b8 47 25 0d 33 18  |%,"height".G%.3.|
00007d70  21 dd a4 77 64 3a c8 99  73 77 69 25 2c 73 64 35  |!..wd:..swi%,sd5|
00007d80  37 5f 25 2c 22 77 69 64  74 68 22 b8 47 25 0d 33  |7_%,"width".G%.3|
00007d90  22 07 3d 47 25 0d 33 2c  04 0d 33 36 2a dd a4 62  |".=G%.3,..36*..b|
00007da0  61 64 72 65 63 28 54 25  29 3a 3d 28 54 25 80 26  |adrec(T%):=(T%.&|
00007db0  37 46 46 46 46 46 30 30  29 3d 26 37 46 46 46 46  |7FFFFF00)=&7FFFF|
00007dc0  46 30 30 0d 33 40 04 0d  33 4a 0f dd f2 73 74 61  |F00.3@..3J...sta|
00007dd0  72 74 6f 70 65 6e 0d 33  54 25 54 24 3d a4 41 72  |rtopen.3T%T$=.Ar|
00007de0  66 56 61 72 28 22 4d 75  6c 74 69 53 74 6f 72 65  |fVar("MultiStore|
00007df0  24 46 75 6e 63 74 69 6f  6e 22 29 0d 33 5e 0a c8  |$Function").3^..|
00007e00  8e bb 54 24 ca 0d 33 68  22 c9 31 3a f2 6f 70 65  |..T$..3h".1:.ope|
00007e10  6e 73 6f 72 74 31 28 c1  54 24 2c 33 29 2c 37 2c  |nsort1(.T$,3),7,|
00007e20  30 2c 22 22 2c 30 29 0d  33 72 05 cb 0d 33 7c 1e  |0,"",0).3r...3|.|
00007e30  2a 75 6e 73 65 74 20 4d  75 6c 74 69 53 74 6f 72  |*unset MultiStor|
00007e40  65 24 46 75 6e 63 74 69  6f 6e 0d 33 86 11 70 72  |e$Function.3..pr|
00007e50  6f 63 65 73 73 25 2b 3d  31 3a e1 0d 33 90 04 0d  |ocess%+=1:..3...|
00007e60  33 9a 0b dd f2 72 65 61  64 79 0d 33 a4 05 e1 0d  |3....ready.3....|
00007e70  33 ae 04 0d 33 b8 0d dd  f2 63 6c 6f 73 65 6f 6b  |3...3....closeok|
00007e80  0d 33 c2 27 f2 73 74 6f  70 28 32 2c 22 22 2c 22  |.3.'.stop(2,"","|
00007e90  43 6c 6f 73 65 20 66 69  6c 65 20 22 2b a4 66 69  |Close file "+.fi|
00007ea0  6c 65 6e 61 6d 65 29 0d  33 cc 05 e1 0d 33 d6 04  |lename).3....3..|
00007eb0  0d 33 e0 0e dd a4 66 69  6c 65 6e 61 6d 65 0d 33  |.3....filename.3|
00007ec0  ea 14 c8 99 73 77 69 25  2c 73 74 61 74 5f 25 b8  |....swi%,stat_%.|
00007ed0  47 25 0d 33 f4 15 3d c2  a4 6c 65 61 66 28 24 73  |G%.3..=..leaf($s|
00007ee0  64 25 29 2c 31 30 29 0d  33 fe 04 0d 34 08 24 dd  |d%),10).3...4.$.|
00007ef0  a4 68 64 62 79 74 65 28  54 25 29 3a c8 99 73 77  |.hdbyte(T%):..sw|
00007f00  69 25 2c 73 64 31 33 5f  25 2c 54 25 b8 47 25 0d  |i%,sd13_%,T%.G%.|
00007f10  34 12 25 dd a4 68 64 62  79 74 65 31 28 54 25 29  |4.%..hdbyte1(T%)|
00007f20  3a c8 99 73 77 69 25 2c  73 64 31 33 5f 25 2c 54  |:..swi%,sd13_%,T|
00007f30  25 b8 47 25 0d 34 1c 07  3d 47 25 0d 34 26 04 0d  |%.G%.4..=G%.4&..|
00007f40  34 30 1a dd f2 71 62 73  63 61 6e 28 54 24 2c f8  |40...qbscan(T$,.|
00007f50  20 51 25 2c f8 20 42 25  29 0d 34 3a 2a ea 49 25  | Q%,. B%).4:*.I%|
00007f60  2c 54 25 3a 51 25 3d a3  3a 42 25 3d 30 3a e3 49  |,T%:Q%=.:B%=0:.I|
00007f70  25 3d 31 b8 a9 54 24 3a  54 25 3d 97 c1 54 24 2c  |%=1..T$:T%=..T$,|
00007f80  49 25 29 0d 34 44 11 e7  54 25 3d 33 34 3a 51 25  |I%).4D..T%=34:Q%|
00007f90  3d ac 51 25 0d 34 4e 09  e7 ac 51 25 8c 0d 34 58  |=.Q%.4N...Q%..4X|
00007fa0  22 e7 54 25 3d 97 22 28  22 3a 42 25 2b 3d 31 3a  |".T%=."(":B%+=1:|
00007fb0  8b e7 54 25 3d 97 22 29  22 3a 42 25 2d 3d 31 0d  |..T%=.")":B%-=1.|
00007fc0  34 62 05 cd 0d 34 6c 07  ed 3a e1 0d 34 76 04 0d  |4b...4l..:..4v..|
00007fd0  34 80 26 dd f2 66 69 65  6c 64 6c 69 73 74 3a e7  |4.&..fieldlist:.|
00007fe0  77 25 28 32 29 3c 3d 30  3a f2 6d 61 6b 65 66 6c  |w%(2)<=0:.makefl|
00007ff0  69 73 74 3a e1 0d 34 8a  19 f2 66 72 6f 6e 74 28  |ist:..4...front(|
00008000  77 25 28 32 29 2c 2d 31  2c 2d 31 29 3a e1 0d 34  |w%(2),-1,-1):..4|
00008010  94 04 0d 34 9e 3d dd f2  64 65 6c 69 63 6f 6e 28  |...4.=..delicon(|
00008020  68 25 2c 69 25 29 3a 21  71 25 3d 68 25 3a 71 25  |h%,i%):!q%=h%:q%|
00008030  21 34 3d 69 25 3a c8 99  22 57 69 6d 70 5f 44 65  |!4=i%:.."Wimp_De|
00008040  6c 65 74 65 49 63 6f 6e  22 2c 2c 71 25 3a e1 0d  |leteIcon",,q%:..|
00008050  34 a8 04 0d 34 b2 32 dd  f2 6c 6f 73 65 69 63 6f  |4...4.2..loseico|
00008060  6e 28 68 25 2c 69 25 29  3a f2 67 65 74 69 28 68  |n(h%,i%):.geti(h|
00008070  25 2c 69 25 29 3a f2 64  65 6c 69 63 6f 6e 28 68  |%,i%):.delicon(h|
00008080  25 2c 69 25 29 0d 34 bc  37 71 25 21 34 3d 21 71  |%,i%).4.7q%!4=!q|
00008090  25 3a 71 25 21 38 3d 2d  31 45 39 3a 71 25 21 31  |%:q%!8=-1E9:q%!1|
000080a0  32 3d 2d 31 45 39 3a 71  25 21 31 36 3d 2d 31 45  |2=-1E9:q%!16=-1E|
000080b0  39 3a 71 25 21 32 30 3d  2d 31 45 39 0d 34 c6 1f  |9:q%!20=-1E9.4..|
000080c0  c8 99 22 57 69 6d 70 5f  43 72 65 61 74 65 49 63  |.."Wimp_CreateIc|
000080d0  6f 6e 22 2c 2c 71 25 2b  34 3a e1 0d 34 d0 04 0d  |on",,q%+4:..4...|
000080e0  34 da 0c dd f2 63 61 72  64 64 72 0d 34 e4 19 f2  |4....carddr.4...|
000080f0  77 74 6f 66 28 6d 68 25  29 3a e7 66 69 6c 65 25  |wtof(mh%):.file%|
00008100  3e 3d 30 8c 0d 34 ee 0c  c8 8e 77 69 6e 64 25 ca  |>=0..4....wind%.|
00008110  0d 34 f8 05 cb 0d 35 02  05 cc 0d 35 0c 0a c8 8e  |.4....5....5....|
00008120  6d 68 25 ca 0d 35 16 25  7f 3a f2 73 61 76 65 72  |mh%..5.%.:.saver|
00008130  65 71 28 22 43 61 72 64  22 2c 26 46 46 46 2c a4  |eq("Card",&FFF,.|
00008140  77 64 2a a4 68 74 2c 31  29 0d 35 20 05 cb 0d 35  |wd*.ht,1).5 ...5|
00008150  2a 05 cd 0d 35 34 05 e1  0d 35 3e 04 0d 35 48 0d  |*...54...5>..5H.|
00008160  dd f2 63 61 72 64 64 72  31 0d 35 52 2b 74 78 30  |..carddr1.5R+tx0|
00008170  25 3d 21 71 25 3a 74 78  31 25 3d 71 25 21 38 3a  |%=!q%:tx1%=q%!8:|
00008180  74 79 30 25 3d 71 25 21  34 3a 74 79 31 25 3d 71  |ty0%=q%!4:ty1%=q|
00008190  25 21 31 32 0d 35 5c 34  e7 94 28 74 78 30 25 2d  |%!12.5\4..(tx0%-|
000081a0  74 78 31 25 29 3c 31 30  80 94 28 74 79 30 25 2d  |tx1%)<10..(ty0%-|
000081b0  74 79 31 25 29 3c 31 30  3a 6d 62 25 3d 31 3a f2  |ty1%)<10:mb%=1:.|
000081c0  73 65 6c 65 63 74 3a e1  0d 35 66 3b f2 63 78 63  |select:..5f;.cxc|
000081d0  6f 6e 76 28 74 78 30 25  29 3a f2 63 78 63 6f 6e  |onv(tx0%):.cxcon|
000081e0  76 28 74 78 31 25 29 3a  f2 63 79 63 6f 6e 76 28  |v(tx1%):.cyconv(|
000081f0  74 79 30 25 29 3a f2 63  79 63 6f 6e 76 28 74 79  |ty0%):.cyconv(ty|
00008200  31 25 29 0d 35 70 1a e7  74 78 30 25 3e 74 78 31  |1%).5p..tx0%>tx1|
00008210  25 3a c8 94 74 78 30 25  2c 74 78 31 25 0d 35 7a  |%:..tx0%,tx1%.5z|
00008220  1a e7 74 79 30 25 3e 74  79 31 25 3a c8 94 74 79  |..ty0%>ty1%:..ty|
00008230  30 25 2c 74 79 31 25 0d  35 84 34 f2 73 61 76 65  |0%,ty1%.5.4.save|
00008240  77 28 66 5f 63 64 24 2c  26 46 46 46 2c 32 2c 28  |w(f_cd$,&FFF,2,(|
00008250  74 78 31 25 2d 74 78 30  25 2b 31 29 2a 28 74 79  |tx1%-tx0%+1)*(ty|
00008260  31 25 2d 74 79 30 25 2b  31 29 29 0d 35 8e 05 e1  |1%-ty0%+1)).5...|
00008270  0d 35 98 04 0d 35 a2 14  dd f2 66 69 65 6c 64 64  |.5...5....fieldd|
00008280  72 3a ea 58 25 2c 59 25  0d 35 ac 19 f2 77 74 6f  |r:.X%,Y%.5...wto|
00008290  66 28 6d 68 25 29 3a e7  66 69 6c 65 25 3e 3d 30  |f(mh%):.file%>=0|
000082a0  8c 0d 35 b6 0c c8 8e 77  69 6e 64 25 ca 0d 35 c0  |..5....wind%..5.|
000082b0  36 c9 33 3a f2 6d 73 6f  72 74 77 3a f2 73 65 74  |6.3:.msortw:.set|
000082c0  69 28 77 5f 73 6f 72 74  65 78 25 2c 31 37 2c a4  |i(w_sortex%,17,.|
000082d0  66 6e 61 6d 65 31 28 6d  65 6e 75 66 69 65 6c 64  |fname1(menufield|
000082e0  25 29 29 0d 35 ca 12 7f  3a e7 a4 65 6e 74 65 72  |%)).5...:..enter|
000082f0  66 69 65 6c 64 0d 35 d4  05 cb 0d 35 de 05 cc 0d  |field.5....5....|
00008300  35 e8 10 e7 a4 65 6e 74  65 72 66 69 65 6c 64 0d  |5....enterfield.|
00008310  35 f2 05 cd 0d 35 fc 05  e1 0d 36 06 04 0d 36 10  |5....5....6...6.|
00008320  21 dd f2 73 61 76 65 64  61 74 61 3a e7 71 25 21  |!..savedata:.q%!|
00008330  31 32 3c 3e 73 61 76 65  72 65 66 25 3a e1 0d 36  |12<>saveref%:..6|
00008340  1a 15 66 69 6c 65 24 3d  a4 7a 74 73 28 71 25 2b  |..file$=.zts(q%+|
00008350  34 34 29 0d 36 24 10 f2  73 61 76 65 64 61 74 61  |44).6$..savedata|
00008360  31 3a e1 0d 36 2e 04 0d  36 38 20 dd f2 73 61 76  |1:..6...68 ..sav|
00008370  65 64 61 74 61 31 3a f2  63 6c 6f 73 65 77 28 77  |edata1:.closew(w|
00008380  5f 73 61 76 65 25 29 0d  36 42 2c 6f 75 74 66 69  |_save%).6B,outfi|
00008390  6c 65 25 3d 30 3a 6f 75  74 66 69 6c 65 25 3d ae  |le%=0:outfile%=.|
000083a0  66 69 6c 65 24 3a e7 6f  75 74 66 69 6c 65 25 3d  |file$:.outfile%=|
000083b0  30 3a e1 0d 36 4c 06 ea  85 0d 36 56 1d ee 85 ea  |0:..6L....6V....|
000083c0  3a f7 85 3a d9 23 6f 75  74 66 69 6c 65 25 3a f2  |:..:.#outfile%:.|
000083d0  65 72 72 28 30 29 0d 36  60 12 c8 8e 73 61 76 65  |err(0).6`...save|
000083e0  72 65 61 73 6f 6e 25 ca  0d 36 6a 11 c9 35 3a f2  |reason%..6j..5:.|
000083f0  73 61 76 65 6e 6f 74 65  73 0d 36 74 05 cb 0d 36  |savenotes.6t...6|
00008400  7e 11 f7 85 3a d9 23 6f  75 74 66 69 6c 65 25 0d  |~...:.#outfile%.|
00008410  36 88 2f ff 22 73 65 74  74 79 70 65 20 22 2b 66  |6./."settype "+f|
00008420  69 6c 65 24 2b 22 20 22  2b c3 7e 73 61 76 65 74  |ile$+" "+.~savet|
00008430  79 70 65 25 3a f2 6c 6f  61 64 6d 65 73 73 0d 36  |ype%:.loadmess.6|
00008440  92 1a 73 61 76 65 72 65  61 73 6f 6e 25 3d 2d 31  |..savereason%=-1|
00008450  3a f2 6e 6f 6d 65 6e 75  0d 36 9c 05 e1 0d 36 a6  |:.nomenu.6....6.|
00008460  04 0d 36 b0 0c dd a4 6d  6f 75 73 65 66 0d 36 ba  |..6....mousef.6.|
00008470  30 ea 58 25 2c 59 25 3a  58 25 3d 6d 78 25 3a 59  |0.X%,Y%:X%=mx%:Y|
00008480  25 3d 6d 79 25 3a f2 63  79 63 6f 6e 76 28 59 25  |%=my%:.cyconv(Y%|
00008490  29 3a f2 63 78 63 6f 6e  76 28 58 25 29 0d 36 c4  |):.cxconv(X%).6.|
000084a0  0d ea 85 3a ee 85 ea 3a  3d 30 0d 36 ce 1a c8 99  |...:...:=0.6....|
000084b0  73 77 69 25 2c 73 64 35  32 5f 25 2c 58 25 2c 59  |swi%,sd52_%,X%,Y|
000084c0  25 b8 47 25 0d 36 d8 07  3d 47 25 0d 36 e2 04 0d  |%.G%.6..=G%.6...|
000084d0  36 ec 24 dd f2 64 72 61  67 66 69 65 6c 64 3a f2  |6.$..dragfield:.|
000084e0  66 69 65 6c 64 73 7a 28  6d 65 6e 75 66 69 65 6c  |fieldsz(menufiel|
000084f0  64 25 29 0d 36 f6 39 21  71 25 3d 77 25 28 30 29  |d%).6.9!q%=w%(0)|
00008500  3a 71 25 21 38 3d 62 78  25 2b 74 78 30 25 3a 71  |:q%!8=bx%+tx0%:q|
00008510  25 21 31 32 3d 62 79 25  2b 74 79 30 25 3a 71 25  |%!12=by%+ty0%:q%|
00008520  21 31 36 3d 62 78 25 2b  74 78 31 25 0d 37 00 32  |!16=bx%+tx1%.7.2|
00008530  71 25 21 32 30 3d 62 79  25 2b 74 79 31 25 3a 71  |q%!20=by%+ty1%:q|
00008540  25 21 32 34 3d 30 3a 71  25 21 32 38 3d 30 3a 71  |%!24=0:q%!28=0:q|
00008550  25 21 34 3d 35 3a f2 64  72 61 67 35 3a e1 0d 37  |%!4=5:.drag5:..7|
00008560  0a 04 0d 37 14 14 dd f2  64 72 61 67 66 69 65 6c  |...7....dragfiel|
00008570  64 31 3a ea 59 25 0d 37  1e 3c f2 67 65 74 77 28  |d1:.Y%.7.<.getw(|
00008580  77 25 28 32 29 29 3a 59  25 3d 62 79 25 2d 6d 65  |w%(2)):Y%=by%-me|
00008590  6e 75 66 69 65 6c 64 25  2a 6c 69 6e 65 67 61 70  |nufield%*linegap|
000085a0  25 2d 6d 61 72 67 69 6e  25 2b 6c 69 6e 65 67 61  |%-margin%+linega|
000085b0  70 25 0d 37 28 41 71 25  21 38 3d 62 78 25 2b 6d  |p%.7(Aq%!8=bx%+m|
000085c0  61 72 67 69 6e 25 3a 21  71 25 3d 77 25 28 32 29  |argin%:!q%=w%(2)|
000085d0  3a 71 25 21 31 32 3d 59  25 2d 33 32 3a 71 25 21  |:q%!12=Y%-32:q%!|
000085e0  31 36 3d 62 78 25 2b 65  78 31 25 2d 6d 61 72 67  |16=bx%+ex1%-marg|
000085f0  69 6e 25 0d 37 32 2c 71  25 21 32 30 3d 59 25 3a  |in%.72,q%!20=Y%:|
00008600  71 25 21 32 34 3d 30 3a  71 25 21 32 38 3d 30 3a  |q%!24=0:q%!28=0:|
00008610  71 25 21 34 3d 35 3a f2  64 72 61 67 35 3a e1 0d  |q%!4=5:.drag5:..|
00008620  37 3c 04 0d 37 46 1b dd  f2 64 72 61 67 63 61 72  |7<..7F...dragcar|
00008630  64 3a e7 a4 64 69 61 6c  6f 67 75 65 3a e1 0d 37  |d:..dialogue:..7|
00008640  50 18 21 71 25 3d 77 25  28 30 29 3a f2 67 65 74  |P.!q%=w%(0):.get|
00008650  77 28 21 71 25 29 0d 37  5a 2a 71 25 21 38 3d 6d  |w(!q%).7Z*q%!8=m|
00008660  78 25 3a 71 25 21 31 32  3d 6d 79 25 3a 71 25 21  |x%:q%!12=my%:q%!|
00008670  31 36 3d 6d 78 25 3a 71  25 21 32 30 3d 6d 79 25  |16=mx%:q%!20=my%|
00008680  0d 37 64 3e 71 25 21 32  34 3d 62 78 25 2b 65 78  |.7d>q%!24=bx%+ex|
00008690  30 25 2b 6d 61 72 67 69  6e 25 3a 71 25 21 32 38  |0%+margin%:q%!28|
000086a0  3d 62 79 25 2b 65 79 31  25 2d 6d 61 72 67 69 6e  |=by%+ey1%-margin|
000086b0  25 2d a4 68 74 2a 6c 69  6e 65 67 61 70 25 0d 37  |%-.ht*linegap%.7|
000086c0  6e 21 71 25 21 33 32 3d  62 78 25 2b 65 78 30 25  |n!q%!32=bx%+ex0%|
000086d0  2b 6d 61 72 67 69 6e 25  2b a4 77 64 2a 31 36 0d  |+margin%+.wd*16.|
000086e0  37 78 36 71 25 21 33 36  3d 62 79 25 2b 65 79 31  |7x6q%!36=by%+ey1|
000086f0  25 2d 6d 61 72 67 69 6e  25 3a 71 25 21 34 3d 36  |%-margin%:q%!4=6|
00008700  3a c8 99 22 57 69 6d 70  5f 44 72 61 67 42 6f 78  |:.."Wimp_DragBox|
00008710  22 2c 2c 71 25 0d 37 82  05 e1 0d 37 8c 04 0d 37  |",,q%.7....7...7|
00008720  96 29 dd f2 63 78 63 6f  6e 76 28 f8 20 58 25 29  |.)..cxconv(. X%)|
00008730  3a f2 78 63 6f 6e 76 28  58 25 2c a4 77 64 2c 77  |:.xconv(X%,.wd,w|
00008740  25 28 30 29 29 3a e1 0d  37 a0 29 dd f2 63 79 63  |%(0)):..7.)..cyc|
00008750  6f 6e 76 28 f8 20 59 25  29 3a f2 79 63 6f 6e 76  |onv(. Y%):.yconv|
00008760  28 59 25 2c a4 68 74 2c  77 25 28 30 29 29 3a e1  |(Y%,.ht,w%(0)):.|
00008770  0d 37 aa 04 0d 37 b4 21  dd f2 79 63 6f 6e 76 28  |.7...7.!..yconv(|
00008780  f8 20 59 25 2c 54 25 2c  68 25 29 3a f2 67 65 74  |. Y%,T%,h%):.get|
00008790  77 28 68 25 29 0d 37 be  38 59 25 3d 28 62 79 25  |w(h%).7.8Y%=(by%|
000087a0  2d 59 25 2d 6d 61 72 67  69 6e 25 29 81 6c 69 6e  |-Y%-margin%).lin|
000087b0  65 67 61 70 25 2b 31 3a  e7 59 25 3c 31 59 25 3d  |egap%+1:.Y%<1Y%=|
000087c0  31 8b e7 59 25 3e 54 25  59 25 3d 54 25 0d 37 c8  |1..Y%>T%Y%=T%.7.|
000087d0  05 e1 0d 37 d2 04 0d 37  dc 21 dd f2 78 63 6f 6e  |...7...7.!..xcon|
000087e0  76 28 f8 20 58 25 2c 54  25 2c 68 25 29 3a f2 67  |v(. X%,T%,h%):.g|
000087f0  65 74 77 28 68 25 29 0d  37 e6 32 58 25 3d 28 58  |etw(h%).7.2X%=(X|
00008800  25 2d 62 78 25 2d 6d 61  72 67 69 6e 25 29 81 31  |%-bx%-margin%).1|
00008810  36 2b 31 3a e7 58 25 3c  31 58 25 3d 31 8b e7 58  |6+1:.X%<1X%=1..X|
00008820  25 3e 54 25 58 25 3d 54  25 0d 37 f0 05 e1 0d 37  |%>T%X%=T%.7....7|
00008830  fa 04 0d 38 04 18 dd f2  73 61 76 65 77 28 66 24  |...8....savew(f$|
00008840  2c 54 25 2c 72 25 2c 73  25 29 0d 38 0e 19 f2 73  |,T%,r%,s%).8...s|
00008850  61 76 65 73 65 74 28 66  24 2c 54 25 2c 72 25 2c  |aveset(f$,T%,r%,|
00008860  73 25 29 0d 38 18 18 f2  64 69 61 6c 6f 67 75 65  |s%).8...dialogue|
00008870  28 77 5f 73 61 76 65 25  29 3a e1 0d 38 22 04 0d  |(w_save%):..8"..|
00008880  38 2c 1a dd f2 73 61 76  65 73 65 74 28 66 24 2c  |8,...saveset(f$,|
00008890  54 25 2c 72 25 2c 73 25  29 0d 38 36 26 73 61 76  |T%,r%,s%).86&sav|
000088a0  65 72 65 61 73 6f 6e 25  3d 72 25 3a 73 61 76 65  |ereason%=r%:save|
000088b0  74 25 3d 54 25 3a 73 61  76 65 73 25 3d 73 25 0d  |t%=T%:saves%=s%.|
000088c0  38 40 3e f2 73 65 74 69  28 77 5f 73 61 76 65 25  |8@>.seti(w_save%|
000088d0  2c 32 2c 66 24 29 3a 24  a4 76 61 28 77 5f 73 61  |,2,f$):$.va(w_sa|
000088e0  76 65 25 2c 33 29 3d 22  73 66 69 6c 65 5f 22 2b  |ve%,3)="sfile_"+|
000088f0  c2 22 30 30 22 2b c3 7e  54 25 2c 33 29 0d 38 4a  |."00"+.~T%,3).8J|
00008900  05 e1 0d 38 54 04 0d 38  5e 0b dd f2 43 4c 4f 53  |...8T..8^...CLOS|
00008910  45 0d 38 68 23 e7 a4 76  5f 28 31 29 3e 30 3a 63  |E.8h#..v_(1)>0:c|
00008920  6c 6f 73 65 6f 6b 25 3d  b9 3a f2 63 6c 6f 73 65  |loseok%=.:.close|
00008930  66 69 6c 65 0d 38 72 05  e1 0d 38 7c 04 0d 38 86  |file.8r...8|..8.|
00008940  0d dd f2 70 72 65 71 75  69 74 0d 38 90 1b e7 a4  |...prequit.8....|
00008950  76 5f 28 31 29 3e 30 f2  61 63 6b 72 65 63 3a f2  |v_(1)>0.ackrec:.|
00008960  71 71 75 69 74 0d 38 9a  05 e1 0d 38 a4 04 0d 38  |qquit.8....8...8|
00008970  ae 38 dd f2 61 63 6b 72  65 63 3a 71 25 21 31 32  |.8..ackrec:q%!12|
00008980  3d 72 65 66 25 3a c8 99  22 57 69 6d 70 5f 53 65  |=ref%:.."Wimp_Se|
00008990  6e 64 4d 65 73 73 61 67  65 22 2c 31 39 2c 71 25  |ndMessage",19,q%|
000089a0  2c 74 61 73 6b 25 0d 38  b8 2f dd f2 71 71 75 69  |,task%.8./..qqui|
000089b0  74 3a f2 73 74 6f 70 28  36 2c 22 43 6c 6f 73 65  |t:.stop(6,"Close|
000089c0  20 66 69 6c 65 73 20 61  6e 64 20 71 75 69 74 22  | files and quit"|
000089d0  2c 61 73 24 29 0d 38 c2  05 e1 0d 38 cc 04 0d 38  |,as$).8....8...8|
000089e0  d6 25 dd a4 66 6e 61 6d  65 28 54 25 29 3a c8 99  |.%..fname(T%):..|
000089f0  73 77 69 25 2c 73 64 31  37 5f 25 2c 39 2c 54 25  |swi%,sd17_%,9,T%|
00008a00  b8 47 25 0d 38 e0 09 3d  24 73 64 25 0d 38 ea 04  |.G%.8..=$sd%.8..|
00008a10  0d 38 f4 33 dd a4 66 6e  61 6d 65 31 28 54 25 29  |.8.3..fname1(T%)|
00008a20  3a e7 54 25 3c 30 3a 3d  22 4e 25 22 3a 8b c8 99  |:.T%<0:="N%":...|
00008a30  73 77 69 25 2c 73 64 31  37 5f 25 2c 34 2c 54 25  |swi%,sd17_%,4,T%|
00008a40  b8 47 25 0d 38 fe 2e e7  28 47 25 80 37 29 3d 37  |.G%.8...(G%.7)=7|
00008a50  3a 3d 22 40 22 2b a4 66  6e 61 6d 65 28 54 25 29  |:="@"+.fname(T%)|
00008a60  3a 8b 3d 22 23 22 2b a4  66 6e 61 6d 65 28 54 25  |:.="#"+.fname(T%|
00008a70  29 0d 39 08 04 0d 39 12  d7 dd f2 61 73 73 3a ea  |).9...9....ass:.|
00008a80  4c 25 2c 49 25 2c 41 25  3a de 4c 25 35 30 3a e3  |L%,I%,A%:.L%50:.|
00008a90  49 25 3d 30 b8 31 3a 50  25 3d 4c 25 3a 5b 6f 70  |I%=0.1:P%=L%:[op|
00008aa0  74 20 49 25 2a 32 3a 2e  73 65 61 72 63 68 25 3a  |t I%*2:.search%:|
00008ab0  6d 6f 76 20 35 2c 23 26  46 46 3a 61 64 64 20 35  |mov 5,#&FF:add 5|
00008ac0  2c 35 2c 23 26 46 46 30  30 3a 61 6e 64 20 32 2c  |,5,#&FF00:and 2,|
00008ad0  32 2c 35 3a 6d 75 6c 20  39 2c 30 2c 33 3a 73 75  |2,5:mul 9,0,3:su|
00008ae0  62 20 33 2c 33 2c 23 31  3a 61 64 64 20 38 2c 31  |b 3,3,#1:add 8,1|
00008af0  2c 39 3a 2e 41 25 3a 6c  64 72 62 20 34 2c 5b 38  |,9:.A%:ldrb 4,[8|
00008b00  5d 2c 23 31 3a 6c 64 72  62 20 39 2c 5b 38 5d 2c  |],#1:ldrb 9,[8],|
00008b10  33 3a 6f 72 72 20 34 2c  34 2c 39 2c 61 73 6c 20  |3:orr 4,4,9,asl |
00008b20  23 38 3a 63 6d 70 20 34  2c 32 3a 61 64 64 20 30  |#8:cmp 4,2:add 0|
00008b30  2c 30 2c 23 31 3a 62 6e  65 20 41 25 3a 6d 6f 76  |,0,#1:bne A%:mov|
00008b40  20 31 35 2c 31 34 3a 5d  3a ed 3a e1 0d 39 1c 04  | 15,14:]:.:..9..|
00008b50  0d 39 26 2f dd f2 66 6c  67 28 54 25 2c 46 25 29  |.9&/..flg(T%,F%)|
00008b60  3a 66 6c 67 25 3d 28 66  6c 67 25 80 ac 54 25 29  |:flg%=(flg%..T%)|
00008b70  84 28 28 46 25 3c 3e 30  29 80 54 25 29 3a e1 0d  |.((F%<>0).T%):..|
00008b80  39 30 1a dd a4 66 6c 67  28 54 25 29 3d 28 66 6c  |90...flg(T%)=(fl|
00008b90  67 25 80 54 25 29 3c 3e  30 0d 39 3a 04 0d 39 44  |g%.T%)<>0.9:..9D|
00008ba0  20 dd a4 78 31 28 54 24  29 3a ea 85 3a ee 85 ea  | ..x1(T$):..:...|
00008bb0  3a f7 85 3a f2 65 72 72  28 33 30 36 29 0d 39 4e  |:..:.err(306).9N|
00008bc0  0b 3d a4 78 28 54 24 29  0d 39 58 04 0d 39 62 26  |.=.x(T$).9X..9b&|
00008bd0  dd a4 78 28 41 24 29 3a  f2 73 74 72 69 70 28 41  |..x(A$):.strip(A|
00008be0  24 29 3a e7 41 24 3d 22  22 3a f2 65 72 72 28 33  |$):.A$="":.err(3|
00008bf0  35 29 0d 39 6c 3b ea 51  25 2c 42 25 2c 49 25 2c  |5).9l;.Q%,B%,I%,|
00008c00  7a 24 3a f2 71 62 73 63  61 6e 28 41 24 2c 51 25  |z$:.qbscan(A$,Q%|
00008c10  2c 42 25 29 3a e7 51 25  f2 65 72 72 28 31 30 29  |,B%):.Q%.err(10)|
00008c20  3a 8b e7 42 25 f2 65 72  72 28 31 31 29 0d 39 76  |:..B%.err(11).9v|
00008c30  20 7a 24 3d 41 24 3a c8  95 a7 7a 24 2c 22 27 22  | z$=A$:...z$,"'"|
00008c40  29 3a 49 25 3d a7 7a 24  2c 22 27 22 29 0d 39 80  |):I%=.z$,"'").9.|
00008c50  17 4a 25 3d 28 97 c1 7a  24 2c 49 25 2b 31 29 29  |.J%=(..z$,I%+1))|
00008c60  80 26 44 46 0d 39 8a 19  e7 4a 25 3c 36 35 84 4a  |.&DF.9...J%<65.J|
00008c70  25 3e 38 33 3a f2 65 72  72 28 32 39 29 0d 39 94  |%>83:.err(29).9.|
00008c80  2a e7 a9 7a 24 2b a9 24  a4 74 69 61 28 74 77 25  |*..z$+.$.tia(tw%|
00008c90  28 34 29 2c 4a 25 2d 36  35 29 3e 32 35 30 3a f2  |(4),J%-65)>250:.|
00008ca0  65 72 72 28 33 30 29 0d  39 9e 2e 7a 24 3d c0 7a  |err(30).9..z$=.z|
00008cb0  24 2c 49 25 2d 31 29 2b  24 a4 74 69 61 28 74 77  |$,I%-1)+$.tia(tw|
00008cc0  25 28 34 29 2c 4a 25 2d  36 35 29 2b c1 7a 24 2c  |%(4),J%-65)+.z$,|
00008cd0  49 25 2b 32 29 0d 39 a8  2f ce 3a 41 24 3d a4 58  |I%+2).9./.:A$=.X|
00008ce0  28 7a 24 29 3a f2 73 74  72 69 70 28 41 24 29 3a  |(z$):.strip(A$):|
00008cf0  e7 41 24 3d 22 22 3a f2  65 72 72 28 33 35 29 3a  |.A$="":.err(35):|
00008d00  8b 3d 41 24 0d 39 b2 04  0d 39 bc 1b dd a4 58 28  |.=A$.9...9....X(|
00008d10  41 24 29 3a ea 7a 24 2c  4a 25 2c 49 25 3a 7a 24  |A$):.z$,J%,I%:z$|
00008d20  3d 41 24 0d 39 c6 20 c8  95 a7 41 24 2c 22 3d 22  |=A$.9. ...A$,"="|
00008d30  22 2a 22 29 3a 49 25 3d  a7 41 24 2c 22 3d 22 22  |"*"):I%=.A$,"=""|
00008d40  2a 22 29 0d 39 d0 20 7a  24 3d c0 41 24 2c 49 25  |*").9. z$=.A$,I%|
00008d50  2d 31 29 2b 22 2c 22 22  22 2b c1 41 24 2c 49 25  |-1)+","""+.A$,I%|
00008d60  2b 33 29 0d 39 da 23 4a  25 3d a7 7a 24 2c bd 33  |+3).9.#J%=.z$,.3|
00008d70  34 2c 49 25 2b 32 29 3a  e7 4a 25 3d 30 3a f2 65  |4,I%+2):.J%=0:.e|
00008d80  72 72 28 31 30 29 0d 39  e4 2f e7 c1 7a 24 2c 4a  |rr(10).9./..z$,J|
00008d90  25 2d 31 2c 31 29 3d 22  2a 22 3a 7a 24 3d c0 7a  |%-1,1)="*":z$=.z|
00008da0  24 2c 4a 25 2d 32 29 2b  c1 7a 24 2c 4a 25 29 3a  |$,J%-2)+.z$,J%):|
00008db0  4a 25 2d 3d 31 0d 39 ee  22 7a 24 3d c0 7a 24 2c  |J%-=1.9."z$=.z$,|
00008dc0  4a 25 29 2b 22 29 22 2b  c1 7a 24 2c 4a 25 2b 31  |J%)+")"+.z$,J%+1|
00008dd0  29 3a 4a 25 3d 49 25 0d  39 f8 1c f5 3a 49 25 3d  |):J%=I%.9...:I%=|
00008de0  49 25 2d 31 3a e7 49 25  3c 30 3a f2 65 72 72 28  |I%-1:.I%<0:.err(|
00008df0  33 31 29 0d 3a 02 12 fd  c1 7a 24 2c 49 25 2c 31  |31).:....z$,I%,1|
00008e00  29 3d 22 40 22 0d 3a 0c  1f 7a 24 3d c0 7a 24 2c  |)="@".:..z$=.z$,|
00008e10  49 25 2d 31 29 2b 22 46  4e 69 28 22 2b c1 7a 24  |I%-1)+"FNi("+.z$|
00008e20  2c 49 25 29 0d 3a 16 0f  41 24 3d 7a 24 3a ce 3a  |,I%).:..A$=z$:.:|
00008e30  3d 41 24 0d 3a 20 04 0d  3a 2a 12 dd a4 65 76 28  |=A$.: ..:*...ev(|
00008e40  41 24 2c 73 25 2c 75 25  29 0d 3a 34 19 24 73 64  |A$,s%,u%).:4.$sd|
00008e50  25 3d 22 4e 22 3a e7 73  25 24 73 64 25 2b 3d 22  |%="N":.s%$sd%+="|
00008e60  53 22 0d 3a 3e 10 e7 75  25 24 73 64 25 2b 3d 22  |S".:>..u%$sd%+="|
00008e70  55 22 0d 3a 48 1b c8 99  73 77 69 25 2c 65 78 70  |U".:H...swi%,exp|
00008e80  61 6e 64 5f 25 2c 41 24  2c 24 73 64 25 0d 3a 52  |and_%,A$,$sd%.:R|
00008e90  24 52 25 3d a4 76 5f 28  31 37 29 3a 44 25 3d a4  |$R%=.v_(17):D%=.|
00008ea0  76 5f 28 31 34 29 3a 4e  25 3d a4 76 5f 28 31 35  |v_(14):N%=.v_(15|
00008eb0  29 0d 3a 5c 0a 3d a0 24  73 64 25 0d 3a 66 04 0d  |).:\.=.$sd%.:f..|
00008ec0  3a 70 16 dd a4 65 76 33  28 41 24 2c 73 25 2c 75  |:p...ev3(A$,s%,u|
00008ed0  25 2c 41 25 29 0d 3a 7a  0a ea 55 25 3a ea 85 0d  |%,A%).:z..U%:...|
00008ee0  3a 84 25 ee 85 ea 3a f7  85 3a 40 25 3d 26 39 30  |:.%...:..:@%=&90|
00008ef0  41 3a 55 25 3d b9 3a e7  9f 3c 3e 36 3a f2 65 72  |A:U%=.:..<>6:.er|
00008f00  72 28 30 29 0d 3a 8e 08  e7 55 25 8c 0d 3a 98 16  |r(0).:...U%..:..|
00008f10  24 73 64 25 3d a4 65 76  28 41 24 2c 73 25 2c 75  |$sd%=.ev(A$,s%,u|
00008f20  25 29 0d 3a a2 05 cc 0d  3a ac 34 40 25 3d 41 25  |%).:....:.4@%=A%|
00008f30  3a 24 73 64 25 3d c2 22  20 20 20 20 20 20 20 20  |:$sd%=."        |
00008f40  20 20 20 20 20 20 20 22  2b c3 a4 65 76 28 41 24  |       "+..ev(A$|
00008f50  2c 73 25 2c 75 25 29 2c  31 35 29 0d 3a b6 16 e7  |,s%,u%),15).:...|
00008f60  73 25 3a c8 99 73 77 69  25 2c 73 74 72 69 70 5f  |s%:..swi%,strip_|
00008f70  25 0d 3a c0 05 cd 0d 3a  ca 11 40 25 3d 26 39 30  |%.:....:..@%=&90|
00008f80  41 3a 3d 24 73 64 25 0d  3a d4 04 0d 3a de 0b dd  |A:=$sd%.:...:...|
00008f90  f2 77 74 69 64 79 0d 3a  e8 2c ea 49 25 3a e3 49  |.wtidy.:.,.I%:.I|
00008fa0  25 3d 32 b8 6d 61 78 77  25 3a e7 77 25 28 49 25  |%=2.maxw%:.w%(I%|
00008fb0  29 3e 30 f2 63 6c 6f 73  65 77 28 77 25 28 49 25  |)>0.closew(w%(I%|
00008fc0  29 29 0d 3a f2 07 ed 3a  e1 0d 3a fc 04 0d 3b 06  |)).:...:..:...;.|
00008fd0  2a dd f2 73 63 72 6f 6c  6c 74 6f 28 58 25 2c 59  |*..scrollto(X%,Y|
00008fe0  25 2c 68 25 29 3a e7 68  25 3c 30 e1 3a 8b f2 67  |%,h%):.h%<0.:..g|
00008ff0  65 74 77 28 68 25 29 0d  3b 10 38 e7 58 25 3e 3d  |etw(h%).;.8.X%>=|
00009000  78 30 25 2d 62 78 25 80  58 25 3c 3d 78 31 25 2d  |x0%-bx%.X%<=x1%-|
00009010  62 78 25 80 59 25 3c 3d  79 31 25 2d 62 79 25 2d  |bx%.Y%<=y1%-by%-|
00009020  33 32 80 59 25 3e 3d 79  30 25 2d 62 79 25 e1 0d  |32.Y%>=y0%-by%..|
00009030  3b 1a 2c 73 63 78 25 3d  58 25 2d 28 78 31 25 2d  |;.,scx%=X%-(x1%-|
00009040  78 30 25 29 81 32 3a 73  63 79 25 3d 94 59 25 2d  |x0%).2:scy%=.Y%-|
00009050  28 79 31 25 2d 79 30 25  29 81 32 0d 3b 24 11 e7  |(y1%-y0%).2.;$..|
00009060  73 63 78 25 3c 30 73 63  78 25 3d 30 0d 3b 2e 11  |scx%<0scx%=0.;..|
00009070  e7 73 63 79 25 3c 30 73  63 79 25 3d 30 0d 3b 38  |.scy%<0scy%=0.;8|
00009080  31 f2 6f 70 65 6e 28 68  25 2c 78 30 25 2c 79 30  |1.open(h%,x0%,y0|
00009090  25 2c 78 31 25 2c 79 31  25 2c 73 63 78 25 2c 2d  |%,x1%,y1%,scx%,-|
000090a0  73 63 79 25 2c 62 68 61  6e 64 6c 65 25 29 0d 3b  |scy%,bhandle%).;|
000090b0  42 05 e1 0d 3b 4c 04 0d  3b 56 2f dd f2 66 69 6e  |B...;L..;V/..fin|
000090c0  64 63 74 3a f2 67 65 74  63 74 3a f2 73 63 72 6f  |dct:.getct:.scro|
000090d0  6c 6c 74 6f 28 71 25 21  38 2c 71 25 21 31 32 2c  |llto(q%!8,q%!12,|
000090e0  21 71 25 29 3a e1 0d 3b  60 04 0d 3b 6a 2a dd f2  |!q%):..;`..;j*..|
000090f0  73 74 61 74 75 73 3a 77  5f 73 74 61 74 75 73 25  |status:w_status%|
00009100  3d a4 63 72 77 69 6e 64  28 74 77 5f 73 74 61 74  |=.crwind(tw_stat|
00009110  75 73 25 29 0d 3b 74 1c  ea 49 25 2c 54 25 2c 54  |us%).;t..I%,T%,T|
00009120  24 2c 73 24 3a 73 24 3d  c4 31 32 2c 22 20 22 29  |$,s$:s$=.12," ")|
00009130  0d 3b 7e 1d f2 75 6e 73  65 6c 61 6c 6c 28 77 5f  |.;~..unselall(w_|
00009140  73 74 61 74 75 73 25 29  3a 54 25 3d 30 0d 3b 88  |status%):T%=0.;.|
00009150  0e e7 a4 76 5f 28 31 29  3e 30 8c 0d 3b 92 1e 54  |...v_(1)>0..;..T|
00009160  24 3d c0 a4 66 69 6c 65  6e 61 6d 65 2b c4 31 31  |$=..filename+.11|
00009170  2c 22 20 22 29 2c 31 31  29 0d 3b 9c 33 54 24 2b  |," "),11).;.3T$+|
00009180  3d c2 73 24 2b c3 a4 76  5f 28 31 36 29 2c 31 30  |=.s$+..v_(16),10|
00009190  29 2b c2 73 24 2b c3 a4  76 5f 28 31 37 29 2c 31  |)+.s$+..v_(17),1|
000091a0  31 29 2b 22 20 28 53 4f  52 54 29 22 0d 3b a6 29  |1)+" (SORT)".;.)|
000091b0  e7 54 25 3c 38 3a f2 73  65 74 69 28 77 5f 73 74  |.T%<8:.seti(w_st|
000091c0  61 74 75 73 25 2c 54 25  2b 31 35 2c 54 24 29 3a  |atus%,T%+15,T$):|
000091d0  54 25 2b 3d 31 0d 3b b0  05 cd 0d 3b ba 2c c8 95  |T%+=1.;....;.,..|
000091e0  54 25 3c 38 3a f2 73 65  74 69 28 77 5f 73 74 61  |T%<8:.seti(w_sta|
000091f0  74 75 73 25 2c 54 25 2b  31 35 2c 22 22 29 3a 54  |tus%,T%+15,""):T|
00009200  25 2b 3d 31 3a ce 0d 3b  c4 23 e7 73 74 6f 70 62  |%+=1:..;.#.stopb|
00009210  6f 78 65 73 25 3a f2 73  65 6c 69 28 77 5f 73 74  |oxes%:.seli(w_st|
00009220  61 74 75 73 25 2c 32 33  29 0d 3b ce 1f e7 73 6f  |atus%,23).;...so|
00009230  75 6e 64 25 3a f2 73 65  6c 69 28 77 5f 73 74 61  |und%:.seli(w_sta|
00009240  74 75 73 25 2c 32 34 29  0d 3b d8 21 e7 73 68 61  |tus%,24).;.!.sha|
00009250  64 6f 77 73 25 3a f2 73  65 6c 69 28 77 5f 73 74  |dows%:.seli(w_st|
00009260  61 74 75 73 25 2c 32 35  29 0d 3b e2 1d e7 70 69  |atus%,25).;...pi|
00009270  78 25 3a f2 73 65 6c 69  28 77 5f 73 74 61 74 75  |x%:.seli(w_statu|
00009280  73 25 2c 32 38 29 0d 3b  ec 24 e7 73 70 72 73 7a  |s%,28).;.$.sprsz|
00009290  25 3c 3d 30 3a f2 73 68  61 64 65 69 28 77 5f 73  |%<=0:.shadei(w_s|
000092a0  74 61 74 75 73 25 2c 32  38 29 0d 3b f6 1a f2 64  |tatus%,28).;...d|
000092b0  69 61 6c 6f 67 75 65 28  77 5f 73 74 61 74 75 73  |ialogue(w_status|
000092c0  25 29 3a e1 0d 3c 00 04  0d 3c 0a 19 dd f2 72 65  |%):..<...<....re|
000092d0  6d 6f 76 65 28 f8 20 54  24 2c 74 24 29 3a ea 49  |move(. T$,t$):.I|
000092e0  25 0d 3c 14 2a f5 49 25  3d a7 54 24 2c 74 24 29  |%.<.*.I%=.T$,t$)|
000092f0  3a e7 49 25 3a 54 24 3d  c0 54 24 2c 49 25 2d 31  |:.I%:T$=.T$,I%-1|
00009300  29 2b c1 54 24 2c 49 25  2b 31 29 0d 3c 1e 0b fd  |)+.T$,I%+1).<...|
00009310  49 25 3d 30 3a e1 0d 3c  28 04 0d 3c 32 1d dd f2  |I%=0:..<(..<2...|
00009320  6f 73 63 6c 69 28 54 24  29 3a e7 97 54 24 3d 34  |oscli(T$):..T$=4|
00009330  32 3a ff 54 24 3a e1 0d  3c 3c 23 ea 49 25 2c 4a  |2:.T$:..<<#.I%,J|
00009340  25 3a c8 99 22 57 69 6d  70 5f 43 6f 6d 6d 61 6e  |%:.."Wimp_Comman|
00009350  64 57 69 6e 64 6f 77 22  2c 31 0d 3c 46 1a f2 6e  |dWindow",1.<F..n|
00009360  6f 72 6d 70 6f 69 6e 74  3a 6d 6f 64 65 25 3d eb  |ormpoint:mode%=.|
00009370  3a eb 31 32 0d 3c 50 0a  2a 66 78 32 32 39 0d 3c  |:.12.<P.*fx229.<|
00009380  5a 0b e7 54 24 3d 22 22  8c 0d 3c 64 0b f2 6e 6f  |Z..T$=""..<d..no|
00009390  76 61 72 73 0d 3c 6e 06  ea 85 0d 3c 78 23 ee 85  |vars.<n....<x#..|
000093a0  ea e7 9f 3d 31 37 80 54  24 3d 22 22 3a f2 65 6e  |...=17.T$="":.en|
000093b0  64 6f 73 63 6c 69 3a e1  3a 8b f6 3a f1 0d 3c 82  |doscli:.:..:..<.|
000093c0  12 f5 54 24 3d 22 22 3a  e8 86 22 2a 22 54 24 0d  |..T$="":.."*"T$.|
000093d0  3c 8c 0a c8 8e 20 b9 20  ca 0d 3c 96 20 c9 20 97  |<.... . ..<. . .|
000093e0  54 24 3d 36 33 80 a4 76  5f 28 31 29 3d 30 3a f1  |T$=63..v_(1)=0:.|
000093f0  a0 28 c1 54 24 2c 32 29  29 0d 3c a0 26 c9 20 97  |.(.T$,2)).<.&. .|
00009400  54 24 3d 36 33 80 a4 76  5f 28 31 29 3e 30 3a f1  |T$=63..v_(1)>0:.|
00009410  a4 65 76 28 c1 54 24 2c  32 29 2c 30 2c 30 29 0d  |.ev(.T$,2),0,0).|
00009420  3c aa 08 7f ff 54 24 0d  3c b4 05 cb 0d 3c be 0a  |<....T$.<....<..|
00009430  fd 54 24 3d 22 22 0d 3c  c8 06 f7 85 0d 3c d2 05  |.T$="".<.....<..|
00009440  cc 0d 3c dc 06 ea 85 0d  3c e6 1c ee 85 ea 3a f7  |..<.....<.....:.|
00009450  85 3a f2 65 6e 64 6f 73  63 6c 69 3a f2 65 72 72  |.:.endoscli:.err|
00009460  28 30 29 0d 3c f0 22 d1  3d 30 3a ff 54 24 3a c8  |(0).<.".=0:.T$:.|
00009470  99 22 4f 53 5f 42 79 74  65 22 2c 26 38 36 b8 2c  |."OS_Byte",&86.,|
00009480  49 25 2c 4a 25 0d 3c fa  32 e7 91 3c 31 35 30 80  |I%,J%.<.2..<150.|
00009490  49 25 2b 4a 25 3c 3e 30  f5 fd a6 30 3c 30 3a f1  |I%+J%<>0...0<0:.|
000094a0  27 27 22 50 72 65 73 73  20 61 20 6b 65 79 2e 2e  |''"Press a key..|
000094b0  2e 20 22 3b 3a e7 a5 0d  3d 04 05 cd 0d 3d 0e 0f  |. ";:...=....=..|
000094c0  f2 65 6e 64 6f 73 63 6c  69 3a e1 0d 3d 18 04 0d  |.endoscli:..=...|
000094d0  3d 22 17 dd f2 65 6e 64  6f 73 63 6c 69 3a 2a 66  |="...endoscli:*f|
000094e0  78 32 32 39 2c 31 0d 3d  2c 1d c8 99 22 57 69 6d  |x229,1.=,..."Wim|
000094f0  70 5f 43 6f 6d 6d 61 6e  64 57 69 6e 64 6f 77 22  |p_CommandWindow"|
00009500  2c 2d 31 0d 3d 36 27 c8  99 22 57 69 6d 70 5f 53  |,-1.=6'.."Wimp_S|
00009510  65 74 4d 6f 64 65 22 2c  6d 6f 64 65 25 3a 87 3a  |etMode",mode%:.:|
00009520  f2 66 6f 72 63 65 28 2d  31 29 0d 3d 40 0d f2 73  |.force(-1).=@..s|
00009530  64 76 61 72 73 3a e1 0d  3d 4a 04 0d 3d 54 30 dd  |dvars:..=J..=T0.|
00009540  a4 73 68 6f 77 62 72 61  6e 63 68 3a f2 72 65 61  |.showbranch:.rea|
00009550  64 70 6f 69 6e 74 65 72  3a e7 6d 62 25 3c 3e 31  |dpointer:.mb%<>1|
00009560  84 6d 69 25 3c 3e 2d 33  3a 3d a3 0d 3d 5e 29 ea  |.mi%<>-3:=..=^).|
00009570  54 24 2c 74 24 3a 54 24  3d 66 6e 24 3a 3a 74 24  |T$,t$:T$=fn$::t$|
00009580  3d a4 6c 65 61 66 28 54  24 29 3a e7 74 24 3d 54  |=.leaf(T$):.t$=T|
00009590  24 3a 3d b9 0d 3d 68 28  ff 22 2a 66 69 6c 65 72  |$:=..=h(."*filer|
000095a0  5f 6f 70 65 6e 64 69 72  20 22 2b c0 54 24 2c a9  |_opendir "+.T$,.|
000095b0  54 24 2d a9 74 24 2d 31  29 3a 3d b9 0d 3d 72 04  |T$-.t$-1):=..=r.|
000095c0  0d 3d 7c 34 dd f2 6e 65  77 66 6e 28 f8 20 54 24  |.=|4..newfn(. T$|
000095d0  29 3a e7 a4 75 28 66 69  6c 65 24 29 3c 3e 22 3c  |):..u(file$)<>"<|
000095e0  57 49 4d 50 24 53 43 52  41 50 3e 22 54 24 3d 66  |WIMP$SCRAP>"T$=f|
000095f0  69 6c 65 24 0d 3d 86 05  e1 0d 3d 90 04 0d 3d 9a  |ile$.=....=...=.|
00009600  1a dd f2 72 65 61 64 70  61 72 61 6d 73 3a ea 49  |...readparams:.I|
00009610  25 2c 46 25 2c 54 24 0d  3d a4 40 6d 61 78 66 25  |%,F%,T$.=.@maxf%|
00009620  3d 33 3a 6d 61 78 61 63  72 25 3d 34 3a 6d 61 78  |=3:maxacr%=4:max|
00009630  63 6f 6c 25 3d 32 39 3a  61 76 63 68 61 72 25 3d  |col%=29:avchar%=|
00009640  36 35 3a 63 74 63 68 61  72 25 3d 36 37 3a 6d 61  |65:ctchar%=67:ma|
00009650  6e 75 61 6c 25 3d a3 0d  3d ae 34 73 74 6f 70 62  |nual%=..=.4stopb|
00009660  6f 78 65 73 25 3d b9 3a  73 6f 75 6e 64 25 3d b9  |oxes%=.:sound%=.|
00009670  3a 73 68 61 64 6f 77 73  25 3d b9 3a 74 6f 6f 6c  |:shadows%=.:tool|
00009680  73 25 3d b9 3a 70 69 78  25 3d a3 0d 3d b8 10 63  |s%=.:pix%=..=..c|
00009690  6c 65 61 72 70 61 73 73  25 3d b9 0d 3d c2 48 73  |learpass%=..=.Hs|
000096a0  70 72 73 7a 25 3d 30 3a  64 70 6c 65 6e 25 3d 36  |prsz%=0:dplen%=6|
000096b0  36 3a 64 70 77 69 64 25  3d 37 39 3a 70 69 63 70  |6:dpwid%=79:picp|
000096c0  61 74 68 24 3d 22 3c 4d  75 6c 74 69 53 74 6f 72  |ath$="<MultiStor|
000096d0  65 24 44 69 72 3e 2e 5e  2e 50 69 63 74 75 72 65  |e$Dir>.^.Picture|
000096e0  73 2e 22 0d 3d cc 46 66  5f 70 64 24 3d 22 50 44  |s.".=.Ff_pd$="PD|
000096f0  72 69 76 65 72 22 3a 66  5f 6c 61 24 3d 22 4c 61  |river":f_la$="La|
00009700  62 65 6c 53 65 74 22 3a  66 5f 77 70 24 3d 22 57  |belSet":f_wp$="W|
00009710  6f 72 64 53 65 74 22 3a  66 5f 72 70 24 3d 22 52  |ordSet":f_rp$="R|
00009720  65 70 6f 72 74 53 65 74  22 0d 3d d6 3d 66 5f 6e  |eportSet".=.=f_n|
00009730  70 24 3d 22 4e 6f 74 65  70 61 64 22 3a 66 5f 6d  |p$="Notepad":f_m|
00009740  63 24 3d 22 4d 61 63 72  6f 22 3a 66 5f 72 78 24  |c$="Macro":f_rx$|
00009750  3d 22 52 65 70 6f 72 74  22 3a 66 5f 63 64 24 3d  |="Report":f_cd$=|
00009760  22 43 61 72 64 22 0d 3d  e0 17 46 25 3d 8e 28 a4  |"Card".=..F%=.(.|
00009770  64 69 72 2b 22 50 61 72  61 6d 73 22 29 0d 3d ea  |dir+"Params").=.|
00009780  27 e7 46 25 3a c8 95 ac  c5 23 46 25 3a f2 72 65  |'.F%:....#F%:.re|
00009790  61 64 70 61 72 61 6d 28  be 23 46 25 29 3a ce 3a  |adparam(.#F%):.:|
000097a0  d9 23 46 25 0d 3d f4 17  e7 73 70 72 73 7a 25 3c  |.#F%.=...sprsz%<|
000097b0  3d 35 30 73 70 72 73 7a  25 3d 30 0d 3d fe 10 f2  |=50sprsz%=0.=...|
000097c0  72 65 61 64 66 6c 61 67  73 3a e1 0d 3e 08 04 0d  |readflags:..>...|
000097d0  3e 12 13 dd f2 72 65 61  64 70 61 72 61 6d 28 54  |>....readparam(T|
000097e0  24 29 0d 3e 1c 1f 54 24  3d a4 73 31 28 54 24 29  |$).>..T$=.s1(T$)|
000097f0  3a e7 54 24 3d 22 22 84  97 54 24 3d 97 22 3b 22  |:.T$=""..T$=.";"|
00009800  e1 0d 3e 26 29 ea 56 24  2c 54 25 2c 6f 6e 2c 6f  |..>&).V$,T%,on,o|
00009810  66 66 3a 6f 6e 3d b9 3a  54 25 3d a7 54 24 2c 22  |ff:on=.:T%=.T$,"|
00009820  20 22 29 3a e7 54 25 3d  30 e1 0d 3e 30 26 56 24  | "):.T%=0..>0&V$|
00009830  3d c1 54 24 2c 54 25 29  3a 54 24 3d c0 54 24 2c  |=.T$,T%):T$=.T$,|
00009840  54 25 2d 31 29 3a 56 24  3d a4 73 31 28 56 24 29  |T%-1):V$=.s1(V$)|
00009850  0d 3e 3a 1f 54 25 3d a7  56 24 2c 22 3b 22 29 3a  |.>:.T%=.V$,";"):|
00009860  e7 54 25 56 24 3d c0 56  24 2c 54 25 2d 31 29 0d  |.T%V$=.V$,T%-1).|
00009870  3e 44 0f ea 85 3a ee 85  ea 3a f7 85 3a e1 0d 3e  |>D...:...:..:..>|
00009880  4e 11 c8 8e a4 6c 6f 77  65 72 28 54 24 29 ca 0d  |N....lower(T$)..|
00009890  3e 58 1a c9 22 73 68 61  64 6f 77 22 3a 73 68 61  |>X.."shadow":sha|
000098a0  64 6f 77 73 25 3d a0 56  24 0d 3e 62 1f c9 22 73  |dows%=.V$.>b.."s|
000098b0  74 6f 70 62 6f 78 65 73  22 3a 73 74 6f 70 62 6f  |topboxes":stopbo|
000098c0  78 65 73 25 3d a0 56 24  0d 3e 6c 17 c9 22 73 6f  |xes%=.V$.>l.."so|
000098d0  75 6e 64 22 3a 73 6f 75  6e 64 25 3d a0 56 24 0d  |und":sound%=.V$.|
000098e0  3e 76 17 c9 22 74 6f 6f  6c 73 22 3a 74 6f 6f 6c  |>v.."tools":tool|
000098f0  73 25 3d a0 56 24 0d 3e  80 19 c9 22 66 6e 6e 6f  |s%=.V$.>..."fnno|
00009900  74 65 70 61 64 22 3a 66  5f 6e 70 24 3d 56 24 0d  |tepad":f_np$=V$.|
00009910  3e 8a 17 c9 22 66 6e 6d  61 63 72 6f 22 3a 66 5f  |>..."fnmacro":f_|
00009920  6d 63 24 3d 56 24 0d 3e  94 18 c9 22 66 6e 72 65  |mc$=V$.>..."fnre|
00009930  70 6f 72 74 22 3a 66 5f  72 78 24 3d 56 24 0d 3e  |port":f_rx$=V$.>|
00009940  9e 16 c9 22 66 6e 63 61  72 64 22 3a 66 5f 63 64  |..."fncard":f_cd|
00009950  24 3d 56 24 0d 3e a8 1f  c9 22 63 6c 65 61 72 70  |$=V$.>..."clearp|
00009960  61 73 73 22 3a 63 6c 65  61 72 70 61 73 73 25 3d  |ass":clearpass%=|
00009970  a0 56 24 0d 3e b2 19 c9  22 70 61 67 65 6c 65 6e  |.V$.>..."pagelen|
00009980  22 3a 64 70 6c 65 6e 25  3d a0 56 24 0d 3e bc 19  |":dplen%=.V$.>..|
00009990  c9 22 70 61 67 65 77 69  64 22 3a 64 70 77 69 64  |."pagewid":dpwid|
000099a0  25 3d a0 56 24 0d 3e c6  1a c9 22 70 69 63 74 75  |%=.V$.>..."pictu|
000099b0  72 65 73 22 3a 73 70 72  73 7a 25 3d a0 56 24 0d  |res":sprsz%=.V$.|
000099c0  3e d0 19 c9 22 6c 61 62  65 6c 73 22 3a 6d 61 78  |>..."labels":max|
000099d0  61 63 72 25 3d a0 56 24  0d 3e da 1c c9 22 63 6f  |acr%=.V$.>..."co|
000099e0  6c 75 6d 6e 73 22 3a 6d  61 78 63 6f 6c 25 3d a0  |lumns":maxcol%=.|
000099f0  56 24 2d 31 0d 3e e4 18  c9 22 66 69 6c 65 73 22  |V$-1.>..."files"|
00009a00  3a 6d 61 78 66 25 3d a0  56 24 2d 31 0d 3e ee 3c  |:maxf%=.V$-1.>.<|
00009a10  c9 22 61 76 65 72 61 67  65 22 3a 61 76 63 68 61  |."average":avcha|
00009a20  72 25 3d 97 56 24 3a e7  61 76 63 68 61 72 25 3c  |r%=.V$:.avchar%<|
00009a30  33 32 84 61 76 63 68 61  72 25 3d 31 32 37 61 76  |32.avchar%=127av|
00009a40  63 68 61 72 25 3d 36 35  0d 3e f8 3a c9 22 63 6f  |char%=65.>.:."co|
00009a50  75 6e 74 22 3a 63 74 63  68 61 72 25 3d 97 56 24  |unt":ctchar%=.V$|
00009a60  3a e7 63 74 63 68 61 72  25 3c 33 32 84 63 74 63  |:.ctchar%<32.ctc|
00009a70  68 61 72 25 3d 31 32 37  63 74 63 68 61 72 25 3d  |har%=127ctchar%=|
00009a80  36 37 0d 3f 02 19 c9 22  6d 61 6e 75 61 6c 22 3a  |67.?..."manual":|
00009a90  6d 61 6e 75 61 6c 25 3d  a0 56 24 0d 3f 0c 1a c9  |manual%=.V$.?...|
00009aa0  22 70 69 63 70 61 74 68  22 3a 70 69 63 70 61 74  |"picpath":picpat|
00009ab0  68 24 3d 56 24 0d 3f 16  07 cb 3a e1 0d 3f 20 04  |h$=V$.?...:..? .|
00009ac0  0d 3f 2a 21 dd a4 73 31  28 54 24 29 3a c8 95 97  |.?*!..s1(T$):...|
00009ad0  54 24 3d 33 32 3a 54 24  3d c1 54 24 2c 32 29 3a  |T$=32:T$=.T$,2):|
00009ae0  ce 0d 3f 34 1c c8 95 c2  54 24 29 3d 22 20 22 3a  |..?4....T$)=" ":|
00009af0  54 24 3d c0 54 24 29 3a  ce 3a 3d 54 24 0d 3f 3e  |T$=.T$):.:=T$.?>|
00009b00  04 0d 3f 48 25 dd f2 75  70 70 6c 69 74 28 f8 20  |..?H%..upplit(. |
00009b10  41 24 29 3a ea 51 25 2c  49 25 2c 43 25 3a e7 41  |A$):.Q%,I%,C%:.A|
00009b20  24 3d 22 22 3a e1 0d 3f  52 26 e3 49 25 3d 31 b8  |$="":..?R&.I%=1.|
00009b30  a9 41 24 3a 43 25 3d 97  c1 41 24 2c 49 25 29 3a  |.A$:C%=..A$,I%):|
00009b40  e7 43 25 3d 33 34 51 25  3d ac 51 25 0d 3f 5c 26  |.C%=34Q%=.Q%.?\&|
00009b50  e7 51 25 80 43 25 3e 39  36 80 43 25 3c 31 32 33  |.Q%.C%>96.C%<123|
00009b60  c1 41 24 2c 49 25 2c 31  29 3d bd 28 43 25 2d 33  |.A$,I%,1)=.(C%-3|
00009b70  32 29 0d 3f 66 07 ed 3a  e1 0d 3f 70 04 0d 3f 7a  |2).?f..:..?p..?z|
00009b80  1a dd f2 6d 73 74 6f 72  65 28 41 24 2c 54 24 29  |...mstore(A$,T$)|
00009b90  3a ea 54 25 2c 42 25 0d  3f 84 16 ea 85 3a ee 85  |:.T%,B%.?....:..|
00009ba0  ea 3a f7 85 3a f2 65 72  72 28 36 30 29 0d 3f 8e  |.:..:.err(60).?.|
00009bb0  25 54 24 3d a4 64 69 72  2b 54 24 3a 54 25 3d 8e  |%T$=.dir+T$:T%=.|
00009bc0  28 54 24 29 3a e7 54 25  3d 30 f2 65 72 72 28 35  |(T$):.T%=0.err(5|
00009bd0  39 29 0d 3f 98 3b 42 25  3d 9a 23 54 25 3a d9 23  |9).?.;B%=.#T%:.#|
00009be0  54 25 3a e7 a4 73 28 41  24 29 3e 22 22 3a ff 22  |T%:..s(A$)>"":."|
00009bf0  2a 53 65 74 20 4d 75 6c  74 69 53 74 6f 72 65 24  |*Set MultiStore$|
00009c00  46 75 6e 63 74 69 6f 6e  20 22 2b 41 24 0d 3f a2  |Function "+A$.?.|
00009c10  12 f2 77 72 69 74 65 66  6c 61 67 73 3a f7 85 0d  |..writeflags:...|
00009c20  3f ac 27 ee 85 f2 65 72  72 6f 72 28 9f 2c f6 24  |?.'...error(.,.$|
00009c30  2c 9e 2c b9 29 3a f2 72  65 70 6f 72 74 3a f2 71  |,.,.):.report:.q|
00009c40  75 69 74 28 a3 29 0d 3f  b6 31 f2 64 65 6c 77 28  |uit(.).?.1.delw(|
00009c50  77 5f 73 74 6f 70 25 29  3a f2 64 65 6c 77 28 77  |w_stop%):.delw(w|
00009c60  5f 73 61 76 65 25 29 3a  f2 64 65 6c 77 28 77 5f  |_save%):.delw(w_|
00009c70  70 69 6e 66 6f 25 29 0d  3f c0 25 f2 64 65 6c 77  |pinfo%).?.%.delw|
00009c80  28 77 5f 70 69 6e 66 6f  32 25 29 3a f2 64 65 6c  |(w_pinfo2%):.del|
00009c90  77 28 77 5f 73 68 61 64  6f 77 25 29 0d 3f ca 1c  |w(w_shadow%).?..|
00009ca0  e7 77 5f 73 6f 72 74 25  3e 30 f2 64 65 6c 77 28  |.w_sort%>0.delw(|
00009cb0  77 5f 73 6f 72 74 25 29  0d 3f d4 0e f2 6e 6f 72  |w_sort%).?...nor|
00009cc0  6d 70 6f 69 6e 74 0d 3f  de 22 5a 25 3d 74 61 73  |mpoint.?."Z%=tas|
00009cd0  6b 68 61 6e 64 6c 65 25  3a f2 6e 6f 76 61 72 73  |khandle%:.novars|
00009ce0  3a d7 28 54 24 29 3a e0  0d 3f e8 04 0d 3f f2 20  |:.(T$):..?...?. |
00009cf0  dd f2 70 64 72 69 76 65  72 3a e7 a4 76 5f 28 31  |..pdriver:..v_(1|
00009d00  29 3e 30 f2 65 72 72 28  31 30 33 29 0d 3f fc 1f  |)>0.err(103).?..|
00009d10  f2 6d 73 74 6f 72 65 28  22 31 22 2c 22 4d 75 6c  |.mstore("1","Mul|
00009d20  74 69 53 74 6f 72 65 22  29 3a e1 0d 40 06 04 0d  |tiStore"):..@...|
00009d30  40 10 0e dd f2 6e 65 77  64 65 6c 61 79 0d 40 1a  |@....newdelay.@.|
00009d40  38 e7 70 72 6f 63 65 73  73 25 3e 30 84 73 74 61  |8.process%>0.sta|
00009d50  72 74 73 6f 72 74 25 84  73 62 66 69 6c 65 25 3e  |rtsort%.sbfile%>|
00009d60  3d 30 64 65 6c 61 79 25  3d 30 8b 64 65 6c 61 79  |=0delay%=0.delay|
00009d70  25 3d 32 45 39 0d 40 24  05 e1 0d 40 2e 04 0d 40  |%=2E9.@$...@...@|
00009d80  38 27 dd f2 66 69 65 6c  64 73 7a 31 28 54 25 29  |8'..fieldsz1(T%)|
00009d90  3a ea 67 78 30 25 2c 67  79 30 25 2c 67 78 31 25  |:.gx0%,gy0%,gx1%|
00009da0  2c 67 79 31 25 0d 40 42  11 dd f2 66 69 65 6c 64  |,gy1%.@B...field|
00009db0  73 7a 28 54 25 29 0d 40  4c 13 ea 4c 25 2c 58 25  |sz(T%).@L..L%,X%|
00009dc0  2c 59 25 2c 47 25 2c 74  25 0d 40 56 26 f2 67 65  |,Y%,G%,t%.@V&.ge|
00009dd0  74 77 28 77 25 28 30 29  29 3a c8 99 73 77 69 25  |tw(w%(0)):..swi%|
00009de0  2c 73 64 31 37 5f 25 2c  31 2c 54 25 b8 4c 25 0d  |,sd17_%,1,T%.L%.|
00009df0  40 60 19 c8 99 73 77 69  25 2c 73 64 31 37 5f 25  |@`...swi%,sd17_%|
00009e00  2c 32 2c 54 25 b8 58 25  0d 40 6a 19 c8 99 73 77  |,2,T%.X%.@j...sw|
00009e10  69 25 2c 73 64 31 37 5f  25 2c 33 2c 54 25 b8 59  |i%,sd17_%,3,T%.Y|
00009e20  25 0d 40 74 25 c8 99 22  4f 53 5f 52 65 61 64 4d  |%.@t%.."OS_ReadM|
00009e30  6f 64 65 56 61 72 69 61  62 6c 65 22 2c 2d 31 2c  |odeVariable",-1,|
00009e40  35 b8 2c 2c 54 25 0d 40  7e 2c 74 79 30 25 3d 28  |5.,,T%.@~,ty0%=(|
00009e50  2d 59 25 2a 6c 69 6e 65  67 61 70 25 2d 6d 61 72  |-Y%*linegap%-mar|
00009e60  67 69 6e 25 29 80 ac 28  28 31 3c 3c 54 25 29 2d  |gin%)..((1<<T%)-|
00009e70  31 29 0d 40 88 3e 74 78  30 25 3d 58 25 2a 31 36  |1).@.>tx0%=X%*16|
00009e80  2b 6d 61 72 67 69 6e 25  2d 31 36 3a 74 79 31 25  |+margin%-16:ty1%|
00009e90  3d 74 79 30 25 2b 6c 69  6e 65 67 61 70 25 3a 74  |=ty0%+linegap%:t|
00009ea0  78 31 25 3d 74 78 30 25  2b 4c 25 2a 31 36 2b 32  |x1%=tx0%+L%*16+2|
00009eb0  0d 40 92 05 e1 0d 40 9c  04 0d 40 a6 1a dd f2 63  |.@....@...@....c|
00009ec0  68 65 63 6b 63 6f 6e 76  28 54 24 29 3a ea 54 25  |heckconv(T$):.T%|
00009ed0  2c 42 25 0d 40 b0 14 ea  85 3a ee 85 ea 3a f7 85  |,B%.@....:...:..|
00009ee0  3a d9 23 54 25 3a e1 0d  40 ba 20 66 69 6c 65 24  |:.#T%:..@. file$|
00009ef0  3d 54 24 3a 54 25 3d 8e  28 66 69 6c 65 24 29 3a  |=T$:T%=.(file$):|
00009f00  e7 54 25 3d 30 3a e1 0d  40 c4 23 42 25 3d 9a 23  |.T%=0:..@.#B%=.#|
00009f10  54 25 3a e7 42 25 3c 3e  32 33 34 80 42 25 3c 3e  |T%:.B%<>234.B%<>|
00009f20  32 33 35 3a d9 23 54 25  3a e1 0d 40 ce 1f 42 25  |235:.#T%:..@..B%|
00009f30  3d 9a 23 54 25 2b 9a 23  54 25 2b 9a 23 54 25 2b  |=.#T%+.#T%+.#T%+|
00009f40  9a 23 54 25 3a d9 23 54  25 0d 40 d8 06 f7 85 0d  |.#T%:.#T%.@.....|
00009f50  40 e2 20 e7 42 25 3d 30  42 25 3d 66 74 5f 66 6f  |@. .B%=0B%=ft_fo|
00009f60  72 6d 25 8b 42 25 3d 66  74 5f 64 61 74 61 25 0d  |rm%.B%=ft_data%.|
00009f70  40 ec 47 6d 65 6e 75 66  69 65 6c 64 25 3d 42 25  |@.Gmenufield%=B%|
00009f80  3a f2 73 74 6f 70 28 33  36 2c 22 57 72 6f 6e 67  |:.stop(36,"Wrong|
00009f90  20 66 69 6c 65 20 74 79  70 65 22 2c 22 43 6f 6e  | file type","Con|
00009fa0  76 65 72 74 20 74 6f 20  4d 75 6c 74 69 53 74 6f  |vert to MultiSto|
00009fb0  72 65 20 3f 22 29 0d 40  f6 05 e1 0d 41 00 04 0d  |re ?").@....A...|
00009fc0  41 0a 12 dd f2 74 72 61  6e 73 66 65 72 3a ea 54  |A....transfer:.T|
00009fd0  24 0d 41 14 21 e7 a4 76  5f 28 31 29 3e 30 54 24  |$.A.!..v_(1)>0T$|
00009fe0  3d 66 6e 24 3a f2 63 6c  6f 73 65 66 69 6c 65 28  |=fn$:.closefile(|
00009ff0  b9 29 0d 41 1e 21 f2 6d  73 74 6f 72 65 28 22 31  |.).A.!.mstore("1|
0000a000  3a 22 2b 54 24 2c 22 4d  53 54 72 61 6e 73 66 65  |:"+T$,"MSTransfe|
0000a010  72 22 29 0d 41 28 04 0d  41 32 14 dd f2 77 72 69  |r").A(..A2...wri|
0000a020  74 65 66 6c 61 67 73 3a  ea 54 24 0d 41 3c 4a 54  |teflags:.T$.A<JT|
0000a030  24 3d a4 66 6c 67 73 74  72 28 73 6f 75 6e 64 25  |$=.flgstr(sound%|
0000a040  29 2b a4 66 6c 67 73 74  72 28 73 74 6f 70 62 6f  |)+.flgstr(stopbo|
0000a050  78 65 73 25 29 2b a4 66  6c 67 73 74 72 28 73 68  |xes%)+.flgstr(sh|
0000a060  61 64 6f 77 73 25 29 2b  a4 66 6c 67 73 74 72 28  |adows%)+.flgstr(|
0000a070  70 69 78 25 29 0d 41 46  22 ff 22 2a 53 65 74 20  |pix%).AF"."*Set |
0000a080  4d 75 6c 74 69 53 74 6f  72 65 24 46 6c 61 67 73  |MultiStore$Flags|
0000a090  20 22 2b 54 24 3a e1 0d  41 50 04 0d 41 5a 1f dd  | "+T$:..AP..AZ..|
0000a0a0  a4 66 6c 67 73 74 72 28  54 25 29 3a e7 54 25 3a  |.flgstr(T%):.T%:|
0000a0b0  3d 22 2a 22 3a 8b 3d 22  2d 22 0d 41 64 04 0d 41  |="*":.="-".Ad..A|
0000a0c0  6e 15 dd f2 73 74 72 66  6c 67 28 54 24 2c f8 20  |n...strflg(T$,. |
0000a0d0  54 25 29 0d 41 78 1d e7  54 24 3d 22 2a 22 3a 54  |T%).Ax..T$="*":T|
0000a0e0  25 3d b9 3a 8b e7 54 24  3d 22 2d 22 54 25 3d a3  |%=.:..T$="-"T%=.|
0000a0f0  0d 41 82 05 e1 0d 41 8c  04 0d 41 96 32 dd f2 72  |.A....A...A.2..r|
0000a100  65 61 64 66 6c 61 67 73  3a ea 54 24 3a 54 24 3d  |eadflags:.T$:T$=|
0000a110  a4 41 72 66 56 61 72 28  22 4d 75 6c 74 69 53 74  |.ArfVar("MultiSt|
0000a120  6f 72 65 24 46 6c 61 67  73 22 29 0d 41 a0 37 f2  |ore$Flags").A.7.|
0000a130  73 74 72 66 6c 67 28 c0  54 24 2c 31 29 2c 73 6f  |strflg(.T$,1),so|
0000a140  75 6e 64 25 29 3a f2 73  74 72 66 6c 67 28 c1 54  |und%):.strflg(.T|
0000a150  24 2c 32 2c 31 29 2c 73  74 6f 70 62 6f 78 65 73  |$,2,1),stopboxes|
0000a160  25 29 0d 41 aa 35 f2 73  74 72 66 6c 67 28 c1 54  |%).A.5.strflg(.T|
0000a170  24 2c 33 2c 31 29 2c 73  68 61 64 6f 77 73 25 29  |$,3,1),shadows%)|
0000a180  3a f2 73 74 72 66 6c 67  28 c1 54 24 2c 34 2c 31  |:.strflg(.T$,4,1|
0000a190  29 2c 70 69 78 25 29 0d  41 b4 1b 2a 75 6e 73 65  |),pix%).A..*unse|
0000a1a0  74 20 4d 75 6c 74 69 53  74 6f 72 65 24 46 6c 61  |t MultiStore$Fla|
0000a1b0  67 73 0d 41 be 05 e1 0d  41 c8 04 0d 41 d2 1b dd  |gs.A....A...A...|
0000a1c0  f2 63 68 65 63 6b 6f 70  65 6e 3a e7 a4 76 5f 28  |.checkopen:..v_(|
0000a1d0  31 29 3d 30 3a e1 0d 41  dc 0d f2 65 72 72 28 33  |1)=0:..A...err(3|
0000a1e0  30 31 29 0d 41 e6 04 0d  41 f0 0e dd f2 66 61 73  |01).A...A....fas|
0000a1f0  74 73 6f 72 74 0d 41 fa  27 e7 77 5f 73 6f 72 74  |tsort.A.'.w_sort|
0000a200  25 3c 30 77 5f 73 6f 72  74 25 3d a4 63 72 77 69  |%<0w_sort%=.crwi|
0000a210  6e 64 28 74 77 5f 73 6f  72 74 25 29 0d 42 04 19  |nd(tw_sort%).B..|
0000a220  f2 66 72 6f 6e 74 28 77  5f 73 6f 72 74 25 2c 2d  |.front(w_sort%,-|
0000a230  31 2c 2d 31 29 0d 42 0e  0e e7 a4 76 5f 28 31 29  |1,-1).B....v_(1)|
0000a240  3d 30 8c 0d 42 18 21 f2  73 65 74 69 28 77 5f 73  |=0..B.!.seti(w_s|
0000a250  6f 72 74 25 2c 32 2c 22  28 4e 4f 54 20 4f 50 45  |ort%,2,"(NOT OPE|
0000a260  4e 29 22 29 0d 42 22 23  f2 73 65 74 69 28 77 5f  |N)").B"#.seti(w_|
0000a270  73 6f 72 74 25 2c 36 2c  22 4e 6f 20 66 69 6c 65  |sort%,6,"No file|
0000a280  20 6f 70 65 6e 22 29 0d  42 2c 05 cc 0d 42 36 1e  | open").B,...B6.|
0000a290  f2 73 65 74 69 28 77 5f  73 6f 72 74 25 2c 32 2c  |.seti(w_sort%,2,|
0000a2a0  a4 66 69 6c 65 6e 61 6d  65 29 0d 42 40 24 f2 73  |.filename).B@$.s|
0000a2b0  65 74 69 28 77 5f 73 6f  72 74 25 2c 36 2c 22 44  |eti(w_sort%,6,"D|
0000a2c0  65 66 69 6e 69 6e 67 20  73 6f 72 74 22 29 0d 42  |efining sort").B|
0000a2d0  4a 05 cd 0d 42 54 05 e1  0d 42 5e 04 0d 42 68 29  |J...BT...B^..Bh)|
0000a2e0  dd f2 63 72 65 61 74 65  3a ea 54 25 2c 42 25 2c  |..create:.T%,B%,|
0000a2f0  54 24 3a e7 a4 76 5f 28  31 29 3e 30 f2 65 72 72  |T$:..v_(1)>0.err|
0000a300  28 33 30 35 29 0d 42 72  16 ea 85 3a ee 85 ea 3a  |(305).Br...:...:|
0000a310  f7 85 3a f2 65 72 72 28  36 30 29 0d 42 7c 2d 54  |..:.err(60).B|-T|
0000a320  24 3d a4 64 69 72 2b 22  4d 53 43 72 65 61 74 65  |$=.dir+"MSCreate|
0000a330  22 3a 54 25 3d 8e 28 54  24 29 3a e7 54 25 3d 30  |":T%=.(T$):.T%=0|
0000a340  f2 65 72 72 28 35 39 29  0d 42 86 1f 42 25 3d 9a  |.err(59).B..B%=.|
0000a350  23 54 25 3a d9 23 54 25  3a f2 77 72 69 74 65 66  |#T%:.#T%:.writef|
0000a360  6c 61 67 73 3a f7 85 0d  42 90 27 ee 85 f2 65 72  |lags:...B.'...er|
0000a370  72 6f 72 28 9f 2c f6 24  2c 9e 2c b9 29 3a f2 72  |ror(.,.$,.,.):.r|
0000a380  65 70 6f 72 74 3a f2 71  75 69 74 28 a3 29 0d 42  |eport:.quit(.).B|
0000a390  9a 31 f2 64 65 6c 77 28  77 5f 73 74 6f 70 25 29  |.1.delw(w_stop%)|
0000a3a0  3a f2 64 65 6c 77 28 77  5f 73 61 76 65 25 29 3a  |:.delw(w_save%):|
0000a3b0  f2 64 65 6c 77 28 77 5f  70 69 6e 66 6f 25 29 0d  |.delw(w_pinfo%).|
0000a3c0  42 a4 25 f2 64 65 6c 77  28 77 5f 70 69 6e 66 6f  |B.%.delw(w_pinfo|
0000a3d0  32 25 29 3a f2 64 65 6c  77 28 77 5f 73 68 61 64  |2%):.delw(w_shad|
0000a3e0  6f 77 25 29 0d 42 ae 1c  e7 77 5f 73 6f 72 74 25  |ow%).B...w_sort%|
0000a3f0  3e 30 f2 64 65 6c 77 28  77 5f 73 6f 72 74 25 29  |>0.delw(w_sort%)|
0000a400  0d 42 b8 29 f2 6e 6f 72  6d 70 6f 69 6e 74 3a 2a  |.B.).normpoint:*|
0000a410  53 65 74 20 4d 75 6c 74  69 53 74 6f 72 65 24 46  |Set MultiStore$F|
0000a420  75 6e 63 74 69 6f 6e 20  31 0d 42 c2 22 5a 25 3d  |unction 1.B."Z%=|
0000a430  74 61 73 6b 68 61 6e 64  6c 65 25 3a f2 6e 6f 76  |taskhandle%:.nov|
0000a440  61 72 73 3a d7 28 54 24  29 3a e0 0d 42 cc 04 0d  |ars:.(T$):..B...|
0000a450  42 d6 13 dd f2 73 68 61  64 65 6f 70 65 6e 3a ea  |B....shadeopen:.|
0000a460  49 25 0d 42 e0 21 e3 49  25 3d 30 b8 38 3a f2 73  |I%.B.!.I%=0.8:.s|
0000a470  68 61 64 65 69 28 77 5f  6f 70 65 6e 25 2c 49 25  |hadei(w_open%,I%|
0000a480  29 3a ed 0d 42 ea 17 f2  73 68 61 64 65 69 28 77  |):..B...shadei(w|
0000a490  5f 6f 70 65 6e 25 2c 31  36 29 0d 42 f4 05 e1 0d  |_open%,16).B....|
0000a4a0  42 fe 04 0d 43 08 1b dd  a4 70 77 63 6f 64 65 28  |B...C....pwcode(|
0000a4b0  54 24 29 3a e7 54 24 3d  22 22 3a 3d 22 22 0d 43  |T$):.T$="":="".C|
0000a4c0  12 17 ea 41 25 2c 42 25  2c 49 25 3a e3 49 25 3d  |...A%,B%,I%:.I%=|
0000a4d0  31 b8 a9 54 24 0d 43 1c  22 c1 54 24 2c 49 25 2c  |1..T$.C.".T$,I%,|
0000a4e0  31 29 3d bd 28 97 c1 54  24 2c 49 25 29 82 28 49  |1)=.(..T$,I%).(I|
0000a4f0  25 2b 31 37 33 29 29 0d  43 26 09 ed 3a 3d 54 24  |%+173)).C&..:=T$|
0000a500  0d 43 30 04 0d 43 3a 19  dd f2 72 65 61 64 77 73  |.C0..C:...readws|
0000a510  3a ea 54 24 2c 54 25 2c  49 25 2c 63 25 0d 43 44  |:.T$,T%,I%,c%.CD|
0000a520  3b 63 25 3d a4 68 64 62  79 74 65 31 28 35 33 29  |;c%=.hdbyte1(53)|
0000a530  3a e7 63 25 3c 3e 69 64  5f 62 62 63 25 80 63 25  |:.c%<>id_bbc%.c%|
0000a540  3c 3e 69 64 5f 77 63 69  61 25 80 63 25 3c 3e 69  |<>id_wcia%.c%<>i|
0000a550  64 5f 65 78 62 25 3a e1  0d 43 4e 11 c8 99 73 77  |d_exb%:..CN...sw|
0000a560  69 25 2c 73 64 32 34 5f  25 0d 43 58 1b e7 63 25  |i%,sd24_%.CX..c%|
0000a570  3d 69 64 5f 65 78 62 25  f2 72 65 61 64 65 78 62  |=id_exb%.readexb|
0000a580  77 73 3a e1 0d 43 62 2b  72 24 28 30 29 3d a4 67  |ws:..Cb+r$(0)=.g|
0000a590  73 3a e3 49 25 3d 30 b8  31 38 3a f2 6e 6f 74 65  |s:.I%=0.18:.note|
0000a5a0  28 49 25 2c c0 a4 67 73  2c 36 39 29 29 3a ed 0d  |(I%,..gs,69)):..|
0000a5b0  43 6c 12 65 24 28 30 29  3d c0 a4 67 73 2c 37 30  |Cl.e$(0)=..gs,70|
0000a5c0  29 0d 43 76 27 f2 66 6c  67 28 66 5f 72 73 70 63  |).Cv'.flg(f_rspc|
0000a5d0  25 2c a4 67 62 29 3a f2  66 6c 67 28 66 5f 72 75  |%,.gb):.flg(f_ru|
0000a5e0  70 70 25 2c a4 67 62 29  0d 43 80 29 f2 66 6c 67  |pp%,.gb).C.).flg|
0000a5f0  28 66 5f 73 73 70 63 25  2c a4 67 62 32 29 3a f2  |(f_sspc%,.gb2):.|
0000a600  66 6c 67 28 66 5f 73 75  70 70 25 2c a4 67 62 32  |flg(f_supp%,.gb2|
0000a610  29 0d 43 8a 27 54 25 3d  a4 76 5f 28 37 29 2b 35  |).C.'T%=.v_(7)+5|
0000a620  3a e7 54 25 3e 33 30 84  63 25 3d 69 64 5f 77 63  |:.T%>30.c%=id_wc|
0000a630  69 61 25 54 25 3d 33 30  0d 43 94 1a e3 49 25 3d  |ia%T%=30.C...I%=|
0000a640  30 b8 54 25 3a 6d 61 24  28 49 25 29 3d a4 67 73  |0.T%:ma$(I%)=.gs|
0000a650  3a ed 0d 43 9e 14 c8 99  73 77 69 25 2c 73 64 32  |:..C....swi%,sd2|
0000a660  35 5f 25 b8 47 25 0d 43  a8 2f e7 47 25 3d 31 31  |5_%.G%.C./.G%=11|
0000a670  3a f2 66 6c 67 28 66 5f  6d 61 63 62 25 2c b9 29  |:.flg(f_macb%,.)|
0000a680  3a 8b e7 47 25 3a f2 66  6c 67 28 66 5f 6d 61 63  |:..G%:.flg(f_mac|
0000a690  65 25 2c b9 29 0d 43 b2  05 e1 0d 43 bc 04 0d 43  |e%,.).C....C...C|
0000a6a0  c6 16 dd f2 72 65 61 64  65 78 62 77 73 3a ea 49  |....readexbws:.I|
0000a6b0  25 2c 54 25 0d 43 d0 1c  e3 49 25 3d 30 b8 31 38  |%,T%.C...I%=0.18|
0000a6c0  3a f2 6e 6f 74 65 28 49  25 2c a4 67 73 29 3a ed  |:.note(I%,.gs):.|
0000a6d0  0d 43 da 1a e3 49 25 3d  30 b8 32 39 3a 6d 61 24  |.C...I%=0.29:ma$|
0000a6e0  28 49 25 29 3d a4 67 73  3a ed 0d 43 e4 30 e3 49  |(I%)=.gs:..C.0.I|
0000a6f0  25 3d 30 b8 32 33 3a 64  24 28 30 2c 49 25 29 3d  |%=0.23:d$(0,I%)=|
0000a700  a4 67 73 3a ed 3a 66 24  28 30 29 3d a4 67 73 3a  |.gs:.:f$(0)=.gs:|
0000a710  66 78 24 28 30 29 3d a4  67 73 0d 43 ee 33 65 24  |fx$(0)=.gs.C.3e$|
0000a720  28 30 29 3d a4 67 73 3a  e3 49 25 3d 30 b8 31 34  |(0)=.gs:.I%=0.14|
0000a730  3a 77 24 28 30 2c 49 25  29 3d a4 67 73 3a ed 3a  |:w$(0,I%)=.gs:.:|
0000a740  77 6f 25 28 30 29 3d a4  67 77 28 30 29 0d 43 f8  |wo%(0)=.gw(0).C.|
0000a750  10 72 25 28 30 29 3d a4  67 77 28 30 29 0d 44 02  |.r%(0)=.gw(0).D.|
0000a760  33 66 6c 25 28 30 29 3d  28 66 6c 25 28 30 29 80  |3fl%(0)=(fl%(0).|
0000a770  ac 66 5f 73 61 76 65 25  29 84 28 a4 67 77 28 66  |.f_save%).(.gw(f|
0000a780  5f 64 66 6c 74 25 29 80  66 5f 73 61 76 65 25 29  |_dflt%).f_save%)|
0000a790  0d 44 0c 38 e3 49 25 3d  30 b8 33 3a 74 25 28 30  |.D.8.I%=0.3:t%(0|
0000a7a0  2c 49 25 29 3d a4 67 77  28 30 29 3a ed 3a 6f 24  |,I%)=.gw(0):.:o$|
0000a7b0  28 30 29 3d a4 67 73 3a  6f 25 28 30 2c 30 29 3d  |(0)=.gs:o%(0,0)=|
0000a7c0  a4 67 77 28 30 29 84 34  0d 44 16 2d 72 24 28 30  |.gw(0).4.D.-r$(0|
0000a7d0  29 3d a4 67 73 3a 73 72  24 28 30 29 3d a4 67 73  |)=.gs:sr$(0)=.gs|
0000a7e0  3a 6c 24 28 30 29 3d a4  67 73 3a 6c 6b 24 28 30  |:l$(0)=.gs:lk$(0|
0000a7f0  29 3d a4 67 73 0d 44 20  0e 6c 78 24 28 30 29 3d  |)=.gs.D .lx$(0)=|
0000a800  a4 67 73 0d 44 2a 1e e3  49 25 3d 30 b8 35 3a 6c  |.gs.D*..I%=0.5:l|
0000a810  6c 25 28 30 2c 49 25 29  3d a4 67 77 28 30 29 3a  |l%(0,I%)=.gw(0):|
0000a820  ed 0d 44 34 1f e3 49 25  3d 30 b8 31 35 3a 6c 66  |..D4..I%=0.15:lf|
0000a830  25 28 30 2c 49 25 29 3d  a4 67 77 28 30 29 3a ed  |%(0,I%)=.gw(0):.|
0000a840  0d 44 3e 34 e3 49 25 3d  30 b8 34 3a 70 25 28 30  |.D>4.I%=0.4:p%(0|
0000a850  2c 49 25 29 3d a4 67 77  28 30 29 3a ed 3a e3 49  |,I%)=.gw(0):.:.I|
0000a860  25 3d 30 b8 37 3a 70 24  28 30 2c 49 25 29 3d a4  |%=0.7:p$(0,I%)=.|
0000a870  67 73 3a ed 0d 44 48 16  54 25 3d a4 67 77 28 30  |gs:..DH.T%=.gw(0|
0000a880  29 3a e3 49 25 3d 30 b8  54 25 0d 44 52 11 e7 49  |):.I%=0.T%.DR..I|
0000a890  25 3c 3d 6d 61 78 63 6f  6c 25 8c 0d 44 5c 3d 63  |%<=maxcol%..D\=c|
0000a8a0  24 28 66 69 6c 65 25 2c  49 25 2c 30 29 3d a4 67  |$(file%,I%,0)=.g|
0000a8b0  73 3a 63 24 28 66 69 6c  65 25 2c 49 25 2c 31 29  |s:c$(file%,I%,1)|
0000a8c0  3d a4 67 73 3a 63 25 28  66 69 6c 65 25 2c 49 25  |=.gs:c%(file%,I%|
0000a8d0  29 3d a4 67 77 28 30 29  0d 44 66 05 cc 0d 44 70  |)=.gw(0).Df...Dp|
0000a8e0  21 24 73 64 25 3d a4 67  73 3a 24 73 64 25 3d a4  |!$sd%=.gs:$sd%=.|
0000a8f0  67 73 3a 21 73 64 25 3d  a4 67 77 28 30 29 0d 44  |gs:!sd%=.gw(0).D|
0000a900  7a 05 cd 0d 44 84 05 ed  0d 44 8e 3a 73 74 25 28  |z...D....D.:st%(|
0000a910  66 69 6c 65 25 2c 30 29  3d bb a4 67 73 3a 73 74  |file%,0)=..gs:st|
0000a920  25 28 66 69 6c 65 25 2c  31 29 3d bb a4 67 73 3a  |%(file%,1)=..gs:|
0000a930  73 74 25 28 66 69 6c 65  25 2c 32 29 3d 91 2f 31  |st%(file%,2)=./1|
0000a940  30 30 0d 44 98 05 e1 0d  44 a2 04 0d 44 ac 0d dd  |00.D....D...D...|
0000a950  f2 77 72 69 74 65 77 73  0d 44 b6 0d ea 54 24 2c  |.writews.D...T$,|
0000a960  49 25 2c 63 25 0d 44 c0  3b 63 25 3d a4 68 64 62  |I%,c%.D.;c%=.hdb|
0000a970  79 74 65 28 26 33 35 29  3a e7 63 25 3c 3e 69 64  |yte(&35):.c%<>id|
0000a980  5f 62 62 63 25 80 63 25  3c 3e 69 64 5f 77 63 69  |_bbc%.c%<>id_wci|
0000a990  61 25 80 63 25 3c 3e 69  64 5f 65 78 62 25 3a e1  |a%.c%<>id_exb%:.|
0000a9a0  0d 44 ca 11 c8 99 73 77  69 25 2c 73 64 32 34 5f  |.D....swi%,sd24_|
0000a9b0  25 0d 44 d4 1d e7 63 25  3d 69 64 5f 65 78 62 25  |%.D...c%=id_exb%|
0000a9c0  3a f2 77 72 69 74 65 65  78 62 77 73 3a e1 0d 44  |:.writeexbws:..D|
0000a9d0  de 1c 24 73 64 25 3d 72  24 28 30 29 3a c8 99 73  |..$sd%=r$(0):..s|
0000a9e0  77 69 25 2c 73 64 32 38  5f 25 0d 44 e8 44 e3 49  |wi%,sd28_%.D.D.I|
0000a9f0  25 3d 30 b8 31 38 3a 24  73 64 25 3d a4 6e 6f 74  |%=0.18:$sd%=.not|
0000aa00  65 28 49 25 29 3a c8 99  73 77 69 25 2c 73 64 32  |e(I%):..swi%,sd2|
0000aa10  38 5f 25 3a ed 3a 24 73  64 25 3d 65 24 28 30 29  |8_%:.:$sd%=e$(0)|
0000aa20  3a c8 99 73 77 69 25 2c  73 64 32 38 5f 25 0d 44  |:..swi%,sd28_%.D|
0000aa30  f2 2b f2 77 73 62 28 a4  66 6c 67 28 66 5f 72 73  |.+.wsb(.flg(f_rs|
0000aa40  70 63 25 29 29 3a f2 77  73 62 28 a4 66 6c 67 28  |pc%)):.wsb(.flg(|
0000aa50  66 5f 72 75 70 70 25 29  29 0d 44 fc 2b f2 77 73  |f_rupp%)).D.+.ws|
0000aa60  62 28 a4 66 6c 67 28 66  5f 73 73 70 63 25 29 29  |b(.flg(f_sspc%))|
0000aa70  3a f2 77 73 62 28 a4 66  6c 67 28 66 5f 73 75 70  |:.wsb(.flg(f_sup|
0000aa80  70 25 29 29 0d 45 06 27  54 25 3d a4 76 5f 28 37  |p%)).E.'T%=.v_(7|
0000aa90  29 2b 35 3a e7 54 25 3e  33 30 84 63 25 3d 69 64  |)+5:.T%>30.c%=id|
0000aaa0  5f 77 63 69 61 25 54 25  3d 33 30 0d 45 10 29 e3  |_wcia%T%=30.E.).|
0000aab0  49 25 3d 30 b8 54 25 3a  24 73 64 25 3d 6d 61 24  |I%=0.T%:$sd%=ma$|
0000aac0  28 49 25 29 3a c8 99 73  77 69 25 2c 73 64 32 38  |(I%):..swi%,sd28|
0000aad0  5f 25 3a ed 0d 45 1a 32  54 25 3d 30 3a e7 a4 66  |_%:..E.2T%=0:..f|
0000aae0  6c 67 28 66 5f 6d 61 63  65 25 29 3a 54 25 3d 31  |lg(f_mace%):T%=1|
0000aaf0  3a 8b e7 a4 66 6c 67 28  66 5f 6d 61 63 62 25 29  |:...flg(f_macb%)|
0000ab00  3a 54 25 3d 31 31 0d 45  24 14 c8 99 73 77 69 25  |:T%=11.E$...swi%|
0000ab10  2c 73 64 32 36 5f 25 2c  54 25 0d 45 2e 05 e1 0d  |,sd26_%,T%.E....|
0000ab20  45 38 04 0d 45 42 14 dd  f2 77 72 69 74 65 65 78  |E8..EB...writeex|
0000ab30  62 77 73 3a ea 49 25 0d  45 4c 1d e3 49 25 3d 30  |bws:.I%.EL..I%=0|
0000ab40  b8 31 38 3a f2 77 73 28  a4 6e 6f 74 65 28 49 25  |.18:.ws(.note(I%|
0000ab50  29 29 3a ed 0d 45 56 1b  e3 49 25 3d 30 b8 32 39  |)):..EV..I%=0.29|
0000ab60  3a f2 77 73 28 6d 61 24  28 49 25 29 29 3a ed 0d  |:.ws(ma$(I%)):..|
0000ab70  45 60 33 e3 49 25 3d 30  b8 32 33 3a f2 77 73 28  |E`3.I%=0.23:.ws(|
0000ab80  64 24 28 30 2c 49 25 29  29 3a ed 3a f2 77 73 28  |d$(0,I%)):.:.ws(|
0000ab90  66 24 28 30 29 29 3a f2  77 73 28 66 78 24 28 30  |f$(0)):.ws(fx$(0|
0000aba0  29 29 0d 45 6a 27 f2 77  73 28 65 24 28 30 29 29  |)).Ej'.ws(e$(0))|
0000abb0  3a e3 49 25 3d 30 b8 31  34 3a f2 77 73 28 77 24  |:.I%=0.14:.ws(w$|
0000abc0  28 30 2c 49 25 29 29 3a  ed 0d 45 74 29 f2 77 73  |(0,I%)):..Et).ws|
0000abd0  77 28 77 6f 25 28 30 29  29 3a f2 77 73 77 28 72  |w(wo%(0)):.wsw(r|
0000abe0  25 28 30 29 29 3a f2 77  73 77 28 66 6c 25 28 30  |%(0)):.wsw(fl%(0|
0000abf0  29 29 0d 45 7e 27 e3 49  25 3d 30 b8 33 3a f2 77  |)).E~'.I%=0.3:.w|
0000ac00  73 77 28 74 25 28 30 2c  49 25 29 29 3a ed 3a f2  |sw(t%(0,I%)):.:.|
0000ac10  77 73 28 6f 24 28 30 29  29 0d 45 88 28 f2 77 73  |ws(o$(0)).E.(.ws|
0000ac20  77 28 6f 25 28 30 2c 30  29 29 3a f2 77 73 28 72  |w(o%(0,0)):.ws(r|
0000ac30  24 28 30 29 29 3a f2 77  73 28 73 72 24 28 30 29  |$(0)):.ws(sr$(0)|
0000ac40  29 0d 45 92 26 f2 77 73  28 6c 24 28 30 29 29 3a  |).E.&.ws(l$(0)):|
0000ac50  f2 77 73 28 6c 6b 24 28  30 29 29 3a f2 77 73 28  |.ws(lk$(0)):.ws(|
0000ac60  6c 78 24 28 30 29 29 0d  45 9c 1d e3 49 25 3d 30  |lx$(0)).E...I%=0|
0000ac70  b8 35 3a f2 77 73 77 28  6c 6c 25 28 30 2c 49 25  |.5:.wsw(ll%(0,I%|
0000ac80  29 29 3a ed 0d 45 a6 1e  e3 49 25 3d 30 b8 31 35  |)):..E...I%=0.15|
0000ac90  3a f2 77 73 77 28 6c 66  25 28 30 2c 49 25 29 29  |:.wsw(lf%(0,I%))|
0000aca0  3a ed 0d 45 b0 34 e3 49  25 3d 30 b8 34 3a f2 77  |:..E.4.I%=0.4:.w|
0000acb0  73 77 28 70 25 28 30 2c  49 25 29 29 3a ed 3a e3  |sw(p%(0,I%)):.:.|
0000acc0  49 25 3d 30 b8 37 3a f2  77 73 28 70 24 28 30 2c  |I%=0.7:.ws(p$(0,|
0000acd0  49 25 29 29 3a ed 0d 45  ba 1f f2 77 73 77 28 6d  |I%)):..E...wsw(m|
0000ace0  61 78 63 6f 6c 25 29 3a  e3 49 25 3d 30 b8 6d 61  |axcol%):.I%=0.ma|
0000acf0  78 63 6f 6c 25 0d 45 c4  3e f2 77 73 28 63 24 28  |xcol%.E.>.ws(c$(|
0000ad00  66 69 6c 65 25 2c 49 25  2c 30 29 29 3a f2 77 73  |file%,I%,0)):.ws|
0000ad10  28 63 24 28 66 69 6c 65  25 2c 49 25 2c 31 29 29  |(c$(file%,I%,1))|
0000ad20  3a f2 77 73 77 28 63 25  28 66 69 6c 65 25 2c 49  |:.wsw(c%(file%,I|
0000ad30  25 29 29 0d 45 ce 39 ed  3a 73 74 25 28 66 69 6c  |%)).E.9.:st%(fil|
0000ad40  65 25 2c 31 29 2b 3d 91  2f 31 30 30 2d 73 74 25  |e%,1)+=./100-st%|
0000ad50  28 66 69 6c 65 25 2c 32  29 3a 73 74 25 28 66 69  |(file%,2):st%(fi|
0000ad60  6c 65 25 2c 32 29 3d 91  2f 31 30 30 0d 45 d8 39  |le%,2)=./100.E.9|
0000ad70  73 74 25 28 66 69 6c 65  25 2c 30 29 2b 3d 31 3a  |st%(file%,0)+=1:|
0000ad80  f2 77 73 28 c3 73 74 25  28 66 69 6c 65 25 2c 30  |.ws(.st%(file%,0|
0000ad90  29 29 3a f2 77 73 28 c3  73 74 25 28 66 69 6c 65  |)):.ws(.st%(file|
0000ada0  25 2c 31 29 29 0d 45 e2  05 e1 0d 45 ec 04 0d 45  |%,1)).E....E...E|
0000adb0  f6 22 dd a4 67 62 3a c8  99 73 77 69 25 2c 73 64  |."..gb:..swi%,sd|
0000adc0  32 35 5f 25 b8 47 25 3a  3d 28 47 25 3d 31 31 29  |25_%.G%:=(G%=11)|
0000add0  0d 46 00 23 dd a4 67 62  32 3a c8 99 73 77 69 25  |.F.#..gb2:..swi%|
0000ade0  2c 73 64 32 35 5f 25 b8  47 25 3a 3d 28 47 25 3c  |,sd25_%.G%:=(G%<|
0000adf0  3e 30 29 0d 46 0a 1c dd  a4 67 73 3a c8 99 73 77  |>0).F....gs:..sw|
0000ae00  69 25 2c 73 64 32 37 5f  25 3a 3d 24 73 64 25 0d  |i%,sd27_%:=$sd%.|
0000ae10  46 14 22 dd f2 77 73 28  54 24 29 3a 24 73 64 25  |F."..ws(T$):$sd%|
0000ae20  3d 54 24 3a c8 99 73 77  69 25 2c 73 64 32 38 5f  |=T$:..swi%,sd28_|
0000ae30  25 0d 46 1e 32 dd f2 77  73 62 28 54 25 29 3a e7  |%.F.2..wsb(T%):.|
0000ae40  54 25 c8 99 73 77 69 25  2c 73 64 32 36 5f 25 2c  |T%..swi%,sd26_%,|
0000ae50  31 31 3a 8b c8 99 73 77  69 25 2c 73 64 32 36 5f  |11:...swi%,sd26_|
0000ae60  25 2c 30 0d 46 28 05 e1  0d 46 32 04 0d 46 3c 2c  |%,0.F(...F2..F<,|
0000ae70  dd a4 67 77 28 41 25 29  3a ea 54 25 2c 49 25 3a  |..gw(A%):.T%,I%:|
0000ae80  e3 49 25 3d 30 b8 33 3a  c8 99 73 77 69 25 2c 73  |.I%=0.3:..swi%,s|
0000ae90  64 32 35 5f 25 b8 47 25  0d 46 46 31 54 25 3d 54  |d25_%.G%.FF1T%=T|
0000aea0  25 84 28 28 47 25 80 32  35 35 29 3c 3c 28 49 25  |%.((G%.255)<<(I%|
0000aeb0  2a 38 29 29 3a ed 3a e7  54 25 3d 26 30 64 30 64  |*8)):.:.T%=&0d0d|
0000aec0  30 64 30 64 54 25 3d 41  25 0d 46 50 07 3d 54 25  |0d0dT%=A%.FP.=T%|
0000aed0  0d 46 5a 04 0d 46 64 34  dd f2 77 73 77 28 54 25  |.FZ..Fd4..wsw(T%|
0000aee0  29 3a ea 49 25 3a e3 49  25 3d 30 b8 33 3a 47 25  |):.I%:.I%=0.3:G%|
0000aef0  3d 54 25 80 32 35 35 3a  c8 99 73 77 69 25 2c 73  |=T%.255:..swi%,s|
0000af00  64 32 36 5f 25 2c 47 25  0d 46 6e 12 54 25 3d 28  |d26_%,G%.Fn.T%=(|
0000af10  54 25 3e 3e 38 29 3a ed  3a e1 0d 46 78 04 0d 46  |T%>>8):.:..Fx..F|
0000af20  82 30 dd a4 6e 6f 74 65  28 49 25 29 3a ea 71 25  |.0..note(I%):.q%|
0000af30  3a 71 25 3d 77 6f 72 6b  62 75 66 25 3a 3d 24 a4  |:q%=workbuf%:=$.|
0000af40  74 69 61 28 74 77 25 28  34 29 2c 49 25 29 0d 46  |tia(tw%(4),I%).F|
0000af50  8c 04 0d 46 96 21 dd f2  6e 6f 74 65 28 49 25 2c  |...F.!..note(I%,|
0000af60  54 24 29 3a ea 71 25 3a  71 25 3d 77 6f 72 6b 62  |T$):.q%:q%=workb|
0000af70  75 66 25 0d 46 a0 37 e7  77 25 28 34 29 3e 30 f2  |uf%.F.7.w%(4)>0.|
0000af80  73 65 74 69 28 77 25 28  34 29 2c 49 25 2c 54 24  |seti(w%(4),I%,T$|
0000af90  29 8b 24 a4 74 69 61 28  74 77 25 28 34 29 2c 49  |).$.tia(tw%(4),I|
0000afa0  25 29 3d c0 54 24 2c 38  30 29 0d 46 aa 05 e1 0d  |%)=.T$,80).F....|
0000afb0  46 b4 04 0d 46 be 28 dd  f2 6c 6f 61 64 6e 6f 74  |F...F.(..loadnot|
0000afc0  65 73 3a ea 49 25 2c 54  25 3a 54 25 3d 8e 66 69  |es:.I%,T%:T%=.fi|
0000afd0  6c 65 24 3a e7 54 25 3d  30 3a e1 0d 46 c8 20 c8  |le$:.T%=0:..F. .|
0000afe0  95 ac c5 23 54 25 80 49  25 3c 31 39 3a f2 6e 6f  |...#T%.I%<19:.no|
0000aff0  74 65 28 49 25 2c be 23  54 25 29 0d 46 d2 2d 49  |te(I%,.#T%).F.-I|
0000b000  25 2b 3d 31 3a ce 3a d9  23 54 25 3a c8 95 49 25  |%+=1:.:.#T%:..I%|
0000b010  3c 31 39 3a f2 6e 6f 74  65 28 49 25 2c 22 22 29  |<19:.note(I%,"")|
0000b020  3a 49 25 2b 3d 31 3a ce  0d 46 dc 1c f2 6e 6f 73  |:I%+=1:..F...nos|
0000b030  63 72 61 70 3a f2 6e 65  77 66 6e 28 66 5f 6e 70  |crap:.newfn(f_np|
0000b040  24 29 3a e1 0d 46 e6 04  0d 46 f0 1d dd a4 73 75  |$):..F...F....su|
0000b050  62 73 74 72 3a c8 99 73  77 69 25 2c 73 64 35 33  |bstr:..swi%,sd53|
0000b060  5f 25 b8 47 25 0d 46 fa  0e 3d 24 28 73 64 25 2b  |_%.G%.F..=$(sd%+|
0000b070  31 36 29 0d 47 04 04 0d  47 0e 25 dd a4 73 75 62  |16).G...G.%..sub|
0000b080  6e 61 6d 65 28 73 25 29  3a c8 99 73 77 69 25 2c  |name(s%):..swi%,|
0000b090  73 64 35 33 5f 25 2c 73  25 b8 47 25 0d 47 18 09  |sd53_%,s%.G%.G..|
0000b0a0  3d 24 73 64 25 0d 47 22  04 0d 47 2c 12 dd a4 73  |=$sd%.G"..G,...s|
0000b0b0  75 62 64 65 73 63 31 28  54 25 29 0d 47 36 16 e7  |ubdesc1(T%).G6..|
0000b0c0  54 25 3d 30 3a 3d 22 41  6c 6c 20 43 61 72 64 73  |T%=0:="All Cards|
0000b0d0  22 0d 47 40 29 e7 54 25  3e 32 35 35 3a 3d 22 4e  |".G@).T%>255:="N|
0000b0e0  75 6d 65 72 69 63 3a 20  22 2b a4 73 75 62 6e 61  |umeric: "+.subna|
0000b0f0  6d 65 28 54 25 2d 32 35  36 29 0d 47 4a 23 54 24  |me(T%-256).GJ#T$|
0000b100  3d 22 22 3a e7 54 25 3e  33 31 3a 54 25 3d 54 25  |="":.T%>31:T%=T%|
0000b110  80 33 31 3a 54 24 3d 22  4e 4f 54 20 22 0d 47 54  |.31:T$="NOT ".GT|
0000b120  1a 3d 54 24 2b 22 53 75  62 73 65 74 20 22 2b bd  |.=T$+"Subset "+.|
0000b130  28 54 25 2b 36 35 29 0d  47 5e 04 0d 47 68 12 dd  |(T%+65).G^..Gh..|
0000b140  a4 73 75 62 64 65 73 63  32 28 54 25 29 0d 47 72  |.subdesc2(T%).Gr|
0000b150  07 ea 54 24 0d 47 7c 0a  c8 8e 20 b9 20 ca 0d 47  |..T$.G|... . ..G|
0000b160  86 26 c9 54 25 3d 30 84  54 25 3d 33 32 3a 54 24  |.&.T%=0.T%=32:T$|
0000b170  3d 22 41 6c 6c 20 63 61  72 64 73 20 69 6e 20 66  |="All cards in f|
0000b180  69 6c 65 22 0d 47 90 10  c9 54 25 3e 33 32 80 54  |ile".G...T%>32.T|
0000b190  25 3c 36 34 0d 47 9a 12  54 24 3d 64 24 28 30 2c  |%<64.G..T$=d$(0,|
0000b1a0  54 25 2d 33 33 29 0d 47  a4 34 e7 54 24 3d 22 22  |T%-33).G.4.T$=""|
0000b1b0  3a 54 24 3d a4 73 75 62  64 65 73 63 31 28 54 25  |:T$=.subdesc1(T%|
0000b1c0  29 3a 8b e7 a9 54 24 3c  32 31 54 24 3d 22 4e 4f  |):...T$<21T$="NO|
0000b1d0  54 28 22 2b 54 24 2b 22  29 22 0d 47 ae 35 c9 54  |T("+T$+")".G.5.T|
0000b1e0  25 3e 30 80 54 25 3c 33  32 3a 54 24 3d 64 24 28  |%>0.T%<32:T$=d$(|
0000b1f0  30 2c 54 25 2d 31 29 3a  e7 54 24 3d 22 22 3a 54  |0,T%-1):.T$="":T|
0000b200  24 3d a4 73 75 62 64 65  73 63 31 28 54 25 29 0d  |$=.subdesc1(T%).|
0000b210  47 b8 32 c9 54 25 3e 32  35 35 3a 54 24 3d 22 4e  |G.2.T%>255:T$="N|
0000b220  75 6d 65 72 69 63 20 73  75 62 73 65 74 3a 20 22  |umeric subset: "|
0000b230  2b a4 73 75 62 6e 61 6d  65 28 54 25 2d 32 35 36  |+.subname(T%-256|
0000b240  29 0d 47 c2 0a 7f 54 24  3d 22 22 0d 47 cc 05 cb  |).G...T$="".G...|
0000b250  0d 47 d6 07 3d 54 24 0d  47 e0 04 0d 47 ea 30 dd  |.G..=T$.G...G.0.|
0000b260  a4 73 75 62 64 65 73 63  34 28 54 25 29 3a e7 54  |.subdesc4(T%):.T|
0000b270  25 3e 32 35 35 3a 3d 22  5e 22 2b a4 73 75 62 6e  |%>255:="^"+.subn|
0000b280  61 6d 65 28 54 25 2d 32  35 36 29 0d 47 f4 18 e7  |ame(T%-256).G...|
0000b290  54 25 3c 33 31 3a 3d 22  5e 22 2b bd 28 54 25 2b  |T%<31:="^"+.(T%+|
0000b2a0  36 35 29 0d 47 fe 18 3d  22 28 5e 22 2b bd 28 54  |65).G..="(^"+.(T|
0000b2b0  25 2b 33 33 29 2b 22 3d  30 29 22 0d 48 08 04 0d  |%+33)+"=0)".H...|
0000b2c0  48 12 11 dd f2 70 74 72  65 78 69 74 28 68 25 29  |H....ptrexit(h%)|
0000b2d0  0d 48 1c 2d e7 73 62 66  69 6c 65 25 3e 3d 30 3a  |.H.-.sbfile%>=0:|
0000b2e0  f2 73 75 62 64 69 73 70  3a 73 62 66 69 6c 65 25  |.subdisp:sbfile%|
0000b2f0  3d 2d 31 3a f2 6e 65 77  64 65 6c 61 79 0d 48 26  |=-1:.newdelay.H&|
0000b300  05 e1 0d 48 30 04 0d 48  3a 12 dd f2 70 74 72 65  |...H0..H:...ptre|
0000b310  6e 74 65 72 28 68 25 29  0d 48 44 18 f2 77 74 6f  |nter(h%).HD..wto|
0000b320  66 28 68 25 29 3a e7 66  69 6c 65 25 3e 3d 30 8c  |f(h%):.file%>=0.|
0000b330  0d 48 4e 2d e7 77 69 6e  64 25 3d 31 3a 73 62 66  |.HN-.wind%=1:sbf|
0000b340  69 6c 65 25 3d 66 69 6c  65 25 3a f2 73 75 62 64  |ile%=file%:.subd|
0000b350  69 73 70 3a f2 6e 65 77  64 65 6c 61 79 0d 48 58  |isp:.newdelay.HX|
0000b360  05 cd 0d 48 62 05 e1 0d  48 6c 04 0d 48 76 2c dd  |...Hb...Hl..Hv,.|
0000b370  f2 73 75 62 64 69 73 70  31 3a ea 73 62 66 69 6c  |.subdisp1:.sbfil|
0000b380  65 25 3a 73 62 66 69 6c  65 25 3d 30 3a f2 73 75  |e%:sbfile%=0:.su|
0000b390  62 64 69 73 70 3a e1 0d  48 80 04 0d 48 8a 1a dd  |bdisp:..H...H...|
0000b3a0  f2 73 75 62 64 69 73 70  3a e7 73 62 66 69 6c 65  |.subdisp:.sbfile|
0000b3b0  25 3c 30 3a e1 0d 48 94  19 ea 54 24 2c 54 25 2c  |%<0:..H...T$,T%,|
0000b3c0  43 25 3a e7 77 25 28 31  29 3c 3d 30 3a e1 0d 48  |C%:.w%(1)<=0:..H|
0000b3d0  9e 1b f2 72 65 61 64 70  6f 69 6e 74 65 72 3a f2  |...readpointer:.|
0000b3e0  77 74 6f 66 28 6d 68 25  29 0d 48 a8 3a 54 25 3d  |wtof(mh%).H.:T%=|
0000b3f0  26 46 30 30 30 30 30 30  3a e7 77 69 6e 64 25 3d  |&F000000:.wind%=|
0000b400  31 80 66 69 6c 65 25 3d  73 62 66 69 6c 65 25 3a  |1.file%=sbfile%:|
0000b410  54 24 3d a4 73 75 62 64  65 73 63 32 28 a4 69 74  |T$=.subdesc2(.it|
0000b420  6f 73 29 0d 48 b2 37 43  25 3d 26 44 30 30 30 30  |os).H.7C%=&D0000|
0000b430  30 30 3a e7 54 24 3d 22  22 43 25 3d 26 37 30 30  |00:.T$=""C%=&700|
0000b440  30 30 30 30 3a 54 24 3d  a4 73 75 62 64 65 73 63  |0000:T$=.subdesc|
0000b450  32 28 a4 76 5f 28 31 31  29 29 0d 48 bc 37 f2 67  |2(.v_(11)).H.7.g|
0000b460  65 74 69 28 77 25 28 31  29 2c 30 29 3a e7 28 71  |eti(w%(1),0):.(q|
0000b470  25 21 32 34 80 54 25 29  3c 3e 43 25 3a f2 69 73  |%!24.T%)<>C%:.is|
0000b480  65 74 28 77 25 28 31 29  2c 30 2c 54 25 2c 43 25  |et(w%(1),0,T%,C%|
0000b490  29 0d 48 c6 28 e7 54 24  3c 3e 24 a4 69 61 28 77  |).H.(.T$<>$.ia(w|
0000b4a0  25 28 31 29 2c 30 29 3a  f2 73 65 74 69 28 77 25  |%(1),0):.seti(w%|
0000b4b0  28 31 29 2c 30 2c 54 24  29 0d 48 d0 05 e1 0d 48  |(1),0,T$).H....H|
0000b4c0  da 04 0d 48 e4 0a dd a4  69 74 6f 73 0d 48 ee 1b  |...H....itos.H..|
0000b4d0  e7 6d 69 25 3e 34 80 6d  69 25 3c 32 39 3a 3d 6d  |.mi%>4.mi%<29:=m|
0000b4e0  69 25 2d 34 2b 33 32 0d  48 f8 1a e7 6d 69 25 3e  |i%-4+32.H...mi%>|
0000b4f0  32 38 80 6d 69 25 3c 35  33 3a 3d 6d 69 25 2d 32  |28.mi%<53:=mi%-2|
0000b500  38 0d 49 02 0d e7 6d 69  25 3d 31 3a 3d 30 0d 49  |8.I...mi%=1:=0.I|
0000b510  0c 1e e7 6d 69 25 3e 35  32 80 6d 69 25 3c 36 33  |...mi%>52.mi%<63|
0000b520  3a 3d 6d 69 25 2d 35 33  2b 32 35 36 0d 49 16 07  |:=mi%-53+256.I..|
0000b530  3d 2d 31 0d 49 20 04 0d  49 2a 2a dd f2 73 65 6c  |=-1.I ..I**..sel|
0000b540  73 75 62 28 73 25 29 3a  e7 73 25 3e 32 35 35 84  |sub(s%):.s%>255.|
0000b550  73 25 3c 30 84 73 25 3d  a4 76 5f 28 31 31 29 3a  |s%<0.s%=.v_(11):|
0000b560  e1 0d 49 34 16 c8 99 73  77 69 25 2c 73 75 62 73  |..I4...swi%,subs|
0000b570  65 74 5f 25 2c 73 25 0d  49 3e 19 e7 77 25 28 33  |et_%,s%.I>..w%(3|
0000b580  29 3e 30 f2 66 6f 72 63  65 28 77 25 28 33 29 29  |)>0.force(w%(3))|
0000b590  0d 49 48 0e f2 73 68 6f  77 73 75 62 3a e1 0d 49  |.IH..showsub:..I|
0000b5a0  52 04 0d 49 5c 10 dd f2  65 78 70 61 6e 64 73 6f  |R..I\...expandso|
0000b5b0  72 74 0d 49 66 06 ea 85  0d 49 70 20 ee 85 ea 3a  |rt.If....Ip ...:|
0000b5c0  f7 85 3a 6f 78 24 28 30  29 3d 22 22 22 22 2b f6  |..:ox$(0)=""""+.|
0000b5d0  24 2b 22 22 22 22 3a e1  0d 49 7a 17 6f 78 24 28  |$+"""":..Iz.ox$(|
0000b5e0  30 29 3d a4 78 31 28 6f  24 28 30 29 29 3a e1 0d  |0)=.x1(o$(0)):..|
0000b5f0  49 84 04 0d 49 8e 0a dd  f2 73 64 33 35 0d 49 98  |I...I....sd35.I.|
0000b600  19 44 25 3d a4 76 5f 28  31 34 29 3a 4e 25 3d a4  |.D%=.v_(14):N%=.|
0000b610  76 5f 28 31 35 29 0d 49  a2 15 e7 4e 25 3d 30 84  |v_(15).I...N%=0.|
0000b620  44 25 3d 30 3a 47 25 3d  31 3a e1 0d 49 ac 11 e7  |D%=0:G%=1:..I...|
0000b630  a4 62 61 64 72 65 63 28  4e 25 29 8c 0d 49 b6 1b  |.badrec(N%)..I..|
0000b640  e7 a4 62 61 64 72 65 63  28 44 25 29 3a 47 25 3d  |..badrec(D%):G%=|
0000b650  31 3a 8b 47 25 3d 30 0d  49 c0 05 cc 0d 49 ca 17  |1:.G%=0.I....I..|
0000b660  c8 99 73 77 69 25 2c 73  64 33 35 5f 25 2c 4e 25  |..swi%,sd35_%,N%|
0000b670  b8 47 25 0d 49 d4 05 cd  0d 49 de 05 e1 0d 49 e8  |.G%.I....I....I.|
0000b680  04 0d 49 f2 2a dd a4 62  61 64 72 65 63 28 54 25  |..I.*..badrec(T%|
0000b690  29 3a 3d 28 54 25 80 26  37 46 46 46 46 46 30 30  |):=(T%.&7FFFFF00|
0000b6a0  29 3d 26 37 46 46 46 46  46 30 30 0d 49 fc 04 0d  |)=&7FFFFF00.I...|
0000b6b0  4a 06 0b dd f2 73 63 72  73 7a 0d 4a 10 48 21 77  |J....scrsz.J.H!w|
0000b6c0  6f 72 6b 62 75 66 25 3d  34 3a 77 6f 72 6b 62 75  |orkbuf%=4:workbu|
0000b6d0  66 25 21 34 3d 35 3a 77  6f 72 6b 62 75 66 25 21  |f%!4=5:workbuf%!|
0000b6e0  38 3d 31 31 3a 77 6f 72  6b 62 75 66 25 21 31 32  |8=11:workbuf%!12|
0000b6f0  3d 31 32 3a 77 6f 72 6b  62 75 66 25 21 31 36 3d  |=12:workbuf%!16=|
0000b700  2d 31 0d 4a 1a 30 c8 99  22 4f 53 5f 52 65 61 64  |-1.J.0.."OS_Read|
0000b710  56 64 75 56 61 72 69 61  62 6c 65 73 22 2c 77 6f  |VduVariables",wo|
0000b720  72 6b 62 75 66 25 2c 77  6f 72 6b 62 75 66 25 2b  |rkbuf%,workbuf%+|
0000b730  32 34 0d 4a 24 49 71 25  21 33 32 3d 28 77 6f 72  |24.J$Iq%!32=(wor|
0000b740  6b 62 75 66 25 21 33 32  29 3c 3c 28 77 6f 72 6b  |kbuf%!32)<<(work|
0000b750  62 75 66 25 21 32 34 29  3a 71 25 21 33 36 3d 28  |buf%!24):q%!36=(|
0000b760  77 6f 72 6b 62 75 66 25  21 33 36 29 3c 3c 28 77  |workbuf%!36)<<(w|
0000b770  6f 72 6b 62 75 66 25 21  32 38 29 0d 4a 2e 05 e1  |orkbuf%!28).J...|
0000b780  0d 4a 38 04 0d 4a 42 0a  dd f2 65 78 70 72 0d 4a  |.J8..JB...expr.J|
0000b790  4c 22 64 69 61 6c 72 65  61 73 6f 6e 25 3d 72 25  |L"dialreason%=r%|
0000b7a0  3a 64 69 61 6c 66 69 6c  65 25 3d 66 69 6c 65 25  |:dialfile%=file%|
0000b7b0  0d 4a 56 19 ea 54 25 2c  54 24 2c 41 24 2c 74 24  |.JV..T%,T$,A$,t$|
0000b7c0  2c 73 25 2c 75 25 2c 61  25 0d 4a 60 43 54 24 3d  |,s%,u%,a%.J`CT$=|
0000b7d0  a4 66 69 6c 65 6e 61 6d  65 3a 77 5f 73 6f 72 74  |.filename:w_sort|
0000b7e0  65 78 25 3d a4 63 72 77  69 6e 64 28 74 77 5f 73  |ex%=.crwind(tw_s|
0000b7f0  6f 72 74 65 78 25 29 3a  f2 75 6e 73 65 6c 61 6c  |ortex%):.unselal|
0000b800  6c 28 77 5f 73 6f 72 74  65 78 25 29 0d 4a 6a 1a  |l(w_sortex%).Jj.|
0000b810  54 24 3d 66 69 24 2b 54  24 2b 22 2c 20 73 6f 72  |T$=fi$+T$+", sor|
0000b820  74 20 62 79 3a 22 0d 4a  74 15 41 24 3d 6f 24 28  |t by:".Jt.A$=o$(|
0000b830  30 29 3a 65 78 69 30 25  3d 31 37 0d 4a 7e 15 73  |0):exi0%=17.J~.s|
0000b840  25 3d 28 6f 25 28 30 2c  30 29 80 34 29 3c 3e 30  |%=(o%(0,0).4)<>0|
0000b850  0d 4a 88 15 75 25 3d 28  6f 25 28 30 2c 30 29 80  |.J..u%=(o%(0,0).|
0000b860  32 29 3c 3e 30 0d 4a 92  15 61 25 3d 28 6f 25 28  |2)<>0.J..a%=(o%(|
0000b870  30 2c 30 29 80 31 29 3c  3e 30 0d 4a 9c 38 f2 73  |0,0).1)<>0.J.8.s|
0000b880  65 74 69 28 77 5f 73 6f  72 74 65 78 25 2c 31 36  |eti(w_sortex%,16|
0000b890  2c 54 24 29 3a f2 73 65  74 69 28 77 5f 73 6f 72  |,T$):.seti(w_sor|
0000b8a0  74 65 78 25 2c 31 37 2c  41 24 29 3a 65 78 24 3d  |tex%,17,A$):ex$=|
0000b8b0  41 24 0d 4a a6 19 e7 73  25 f2 73 65 6c 69 28 77  |A$.J...s%.seli(w|
0000b8c0  5f 73 6f 72 74 65 78 25  2c 31 29 0d 4a b0 19 e7  |_sortex%,1).J...|
0000b8d0  75 25 f2 73 65 6c 69 28  77 5f 73 6f 72 74 65 78  |u%.seli(w_sortex|
0000b8e0  25 2c 30 29 0d 4a ba 1a  e7 61 25 f2 73 65 6c 69  |%,0).J...a%.seli|
0000b8f0  28 77 5f 73 6f 72 74 65  78 25 2c 31 39 29 0d 4a  |(w_sortex%,19).J|
0000b900  c4 2a f2 73 65 74 69 28  77 5f 73 6f 72 74 65 78  |.*.seti(w_sortex|
0000b910  25 2c 32 30 2c a4 73 75  62 64 65 73 63 31 28 a4  |%,20,.subdesc1(.|
0000b920  76 5f 28 31 31 29 29 29  0d 4a ce 1a f2 64 69 61  |v_(11))).J...dia|
0000b930  6c 6f 67 75 65 28 77 5f  73 6f 72 74 65 78 25 29  |logue(w_sortex%)|
0000b940  3a e1 0d 4a d8 04 0d 4a  e2 10 dd a4 65 6e 74 65  |:..J...J....ente|
0000b950  72 66 69 65 6c 64 0d 4a  ec 16 ea 57 25 2c 54 25  |rfield.J...W%,T%|
0000b960  2c 54 24 2c 74 24 3a f7  8d 50 48 4d 0d 4a f6 1a  |,T$,t$:..PHM.J..|
0000b970  f5 3a f2 72 65 61 64 68  28 57 25 29 3a e7 57 25  |.:.readh(W%):.W%|
0000b980  3c 3e 6d 68 25 8c 0d 4b  00 1f e7 57 25 3c 3e 2d  |<>mh%..K...W%<>-|
0000b990  31 3a f5 3a f3 57 25 2c  54 25 3a fd 57 25 3c 30  |1:.:.W%,T%:.W%<0|
0000b9a0  3a 57 25 3d 30 0d 4b 0a  05 cc 0d 4b 14 19 f5 3a  |:W%=0.K....K...:|
0000b9b0  f3 57 25 2c 54 25 3a fd  57 25 3d 6d 69 25 84 57  |.W%,T%:.W%=mi%.W|
0000b9c0  25 3c 30 0d 4b 1e 0c e7  57 25 3d 6d 69 25 8c 0d  |%<0.K...W%=mi%..|
0000b9d0  4b 28 09 c8 8e 54 25 ca  0d 4b 32 08 c9 31 2c 34  |K(...T%..K2..1,4|
0000b9e0  0d 4b 3c 3f 54 24 3d a4  61 64 64 66 69 65 6c 64  |.K<?T$=.addfield|
0000b9f0  28 24 a4 69 61 28 6d 68  25 2c 6d 69 25 29 2c 6d  |($.ia(mh%,mi%),m|
0000ba00  65 6e 75 66 69 65 6c 64  25 29 2b 54 24 3a f2 73  |enufield%)+T$:.s|
0000ba10  65 74 69 28 6d 68 25 2c  6d 69 25 2c 54 24 29 0d  |eti(mh%,mi%,T$).|
0000ba20  4b 46 39 c9 36 3a f2 73  65 74 69 28 6d 68 25 2c  |KF9.6:.seti(mh%,|
0000ba30  6d 69 25 2c a4 61 64 64  66 69 65 6c 64 28 24 a4  |mi%,.addfield($.|
0000ba40  69 61 28 6d 68 25 2c 6d  69 25 29 2c 6d 65 6e 75  |ia(mh%,mi%),menu|
0000ba50  66 69 65 6c 64 25 29 29  0d 4b 50 05 cb 0d 4b 5a  |field%)).KP...KZ|
0000ba60  05 cd 0d 4b 64 06 3d b9  0d 4b 6e 05 cd 0d 4b 78  |...Kd.=..Kn...Kx|
0000ba70  09 fd 57 25 3c 30 0d 4b  82 06 3d a3 0d 4b 8c 04  |..W%<0.K..=..K..|
0000ba80  0d 4b 96 0f dd a4 65 6e  74 65 72 6e 6f 74 65 0d  |.K....enternote.|
0000ba90  4b a0 10 ea 57 25 2c 54  25 3a f7 8d 50 48 4d 0d  |K...W%,T%:..PHM.|
0000baa0  4b aa 1a f5 3a f2 72 65  61 64 68 28 57 25 29 3a  |K...:.readh(W%):|
0000bab0  e7 57 25 3c 3e 6d 68 25  8c 0d 4b b4 1f e7 57 25  |.W%<>mh%..K...W%|
0000bac0  3c 3e 2d 31 3a f5 3a f3  57 25 2c 54 25 3a fd 57  |<>-1:.:.W%,T%:.W|
0000bad0  25 3c 30 3a 57 25 3d 30  0d 4b be 05 cc 0d 4b c8  |%<0:W%=0.K....K.|
0000bae0  19 f5 3a f3 57 25 2c 54  25 3a fd 57 25 3d 6d 69  |..:.W%,T%:.W%=mi|
0000baf0  25 84 57 25 3c 30 0d 4b  d2 0c e7 57 25 3d 6d 69  |%.W%<0.K...W%=mi|
0000bb00  25 8c 0d 4b dc 09 c8 8e  54 25 ca 0d 4b e6 0c c9  |%..K....T%..K...|
0000bb10  31 2c 34 2c 36 2c 37 0d  4b f0 14 e7 64 72 61 67  |1,4,6,7.K...drag|
0000bb20  62 75 74 74 6f 6e 25 3d  36 34 8c 0d 4b fa 50 e7  |button%=64..K.P.|
0000bb30  6d 69 25 3c 3e 6d 65 6e  75 66 69 65 6c 64 25 84  |mi%<>menufield%.|
0000bb40  6d 68 25 3c 3e 77 25 28  34 29 f2 73 65 74 69 28  |mh%<>w%(4).seti(|
0000bb50  6d 68 25 2c 6d 69 25 2c  24 a4 69 61 28 6d 68 25  |mh%,mi%,$.ia(mh%|
0000bb60  2c 6d 69 25 29 2b 22 27  22 2b bd 28 6d 65 6e 75  |,mi%)+"'"+.(menu|
0000bb70  66 69 65 6c 64 25 2b 36  35 29 29 0d 4c 04 05 cc  |field%+65)).L...|
0000bb80  0d 4c 0e 24 f2 73 65 74  69 28 6d 68 25 2c 6d 69  |.L.$.seti(mh%,mi|
0000bb90  25 2c a4 6e 6f 74 65 28  6d 65 6e 75 66 69 65 6c  |%,.note(menufiel|
0000bba0  64 25 29 29 0d 4c 18 05  cd 0d 4c 22 05 cb 0d 4c  |d%)).L....L"...L|
0000bbb0  2c 05 cd 0d 4c 36 06 3d  b9 0d 4c 40 05 cd 0d 4c  |,...L6.=..L@...L|
0000bbc0  4a 09 fd 57 25 3c 30 0d  4c 54 06 3d a3 0d 4c 5e  |J..W%<0.LT.=..L^|
0000bbd0  04 0d 4c 68 0e dd a4 65  6e 74 65 72 73 75 62 0d  |..Lh...entersub.|
0000bbe0  4c 72 10 ea 57 25 2c 54  25 3a f7 8d 50 48 4d 0d  |Lr..W%,T%:..PHM.|
0000bbf0  4c 7c 1a f5 3a f2 72 65  61 64 68 28 57 25 29 3a  |L|..:.readh(W%):|
0000bc00  e7 57 25 3c 3e 6d 68 25  8c 0d 4c 86 1f e7 57 25  |.W%<>mh%..L...W%|
0000bc10  3c 3e 2d 31 3a f5 3a f3  57 25 2c 54 25 3a fd 57  |<>-1:.:.W%,T%:.W|
0000bc20  25 3c 30 3a 57 25 3d 30  0d 4c 90 05 cc 0d 4c 9a  |%<0:W%=0.L....L.|
0000bc30  19 f5 3a f3 57 25 2c 54  25 3a fd 57 25 3d 6d 69  |..:.W%,T%:.W%=mi|
0000bc40  25 84 57 25 3c 30 0d 4c  a4 0c e7 57 25 3d 6d 69  |%.W%<0.L...W%=mi|
0000bc50  25 8c 0d 4c ae 09 c8 8e  54 25 ca 0d 4c b8 37 c9  |%..L....T%..L.7.|
0000bc60  31 3a f2 73 65 74 69 28  6d 68 25 2c 6d 69 25 2c  |1:.seti(mh%,mi%,|
0000bc70  24 a4 69 61 28 6d 68 25  2c 6d 69 25 29 2b a4 73  |$.ia(mh%,mi%)+.s|
0000bc80  75 62 64 65 73 63 34 28  6d 65 6e 75 73 75 62 25  |ubdesc4(menusub%|
0000bc90  29 29 0d 4c c2 17 c9 32  3a f2 73 66 73 75 62 28  |)).L...2:.sfsub(|
0000bca0  6d 65 6e 75 73 75 62 25  29 0d 4c cc 05 cb 0d 4c  |menusub%).L....L|
0000bcb0  d6 05 cd 0d 4c e0 06 3d  b9 0d 4c ea 05 cd 0d 4c  |....L..=..L....L|
0000bcc0  f4 09 fd 57 25 3c 30 0d  4c fe 06 3d a3 0d 4d 08  |...W%<0.L..=..M.|
0000bcd0  23 dc 77 5f 73 6f 72 74  65 78 25 2c 31 37 2c 31  |#.w_sortex%,17,1|
0000bce0  2c 32 30 2c 32 2c 32 31  2c 33 2c 2d 31 2c 2d 31  |,20,2,21,3,-1,-1|
0000bcf0  0d 4d 12 67 dc 22 77 25  28 34 29 22 2c 30 2c 31  |.M.g."w%(4)",0,1|
0000bd00  2c 31 2c 31 2c 32 2c 31  2c 33 2c 31 2c 34 2c 31  |,1,1,2,1,3,1,4,1|
0000bd10  2c 35 2c 31 2c 36 2c 31  2c 37 2c 31 2c 38 2c 31  |,5,1,6,1,7,1,8,1|
0000bd20  2c 39 2c 31 2c 31 30 2c  31 2c 31 31 2c 31 2c 31  |,9,1,10,1,11,1,1|
0000bd30  32 2c 31 2c 31 33 2c 31  2c 31 34 2c 31 2c 31 35  |2,1,13,1,14,1,15|
0000bd40  2c 31 2c 31 36 2c 31 2c  31 37 2c 31 2c 31 38 2c  |,1,16,1,17,1,18,|
0000bd50  31 2c 2d 31 2c 2d 31 0d  4d 1c 07 dc 2d 31 0d 4d  |1,-1,-1.M...-1.M|
0000bd60  26 04 0d 4d 30 29 dd f2  73 66 73 75 62 28 54 25  |&..M0)..sfsub(T%|
0000bd70  29 3a e7 54 25 3e 32 35  35 84 28 54 25 80 33 31  |):.T%>255.(T%.31|
0000bd80  29 3d a4 76 5f 28 31 31  29 3a e1 0d 4d 3a 25 f2  |)=.v_(11):..M:%.|
0000bd90  73 65 74 69 28 77 5f 73  6f 72 74 65 78 25 2c 32  |seti(w_sortex%,2|
0000bda0  30 2c a4 73 75 62 64 65  73 63 31 28 54 25 29 29  |0,.subdesc1(T%))|
0000bdb0  0d 4d 44 11 f2 73 65 6c  73 75 62 28 54 25 29 3a  |.MD..selsub(T%):|
0000bdc0  e1 0d 4d 4e 04 0d 4d 58  0c dd f2 73 75 62 73 64  |..MN..MX...subsd|
0000bdd0  72 0d 4d 62 0a ea 54 25  2c 54 24 0d 4d 6c 23 f2  |r.Mb..T%,T$.Ml#.|
0000bde0  73 75 62 64 69 73 70 31  3a f2 77 74 6f 66 28 6d  |subdisp1:.wtof(m|
0000bdf0  68 25 29 3a e7 66 69 6c  65 25 3e 3d 30 8c 0d 4d  |h%):.file%>=0..M|
0000be00  76 0c c8 8e 77 69 6e 64  25 ca 0d 4d 80 18 c9 30  |v...wind%..M...0|
0000be10  3a f2 73 65 6c 73 75 62  28 6d 65 6e 75 73 75 62  |:.selsub(menusub|
0000be20  25 29 0d 4d 8a 10 7f 3a  e7 a4 65 6e 74 65 72 73  |%).M...:..enters|
0000be30  75 62 0d 4d 94 05 cb 0d  4d 9e 05 cc 0d 4d a8 0a  |ub.M....M....M..|
0000be40  c8 8e 6d 68 25 ca 0d 4d  b2 11 7f 3a e7 ac a4 65  |..mh%..M...:...e|
0000be50  6e 74 65 72 73 75 62 0d  4d bc 05 cb 0d 4d c6 05  |ntersub.M....M..|
0000be60  cd 0d 4d d0 05 e1 0d 4d  da 04 0d 4d e4 11 dd f2  |..M....M...M....|
0000be70  72 65 61 64 68 28 f8 20  54 25 29 0d 4d ee 12 ea  |readh(. T%).M...|
0000be80  54 24 3a f3 54 24 3a 54  25 3d a0 54 24 0d 4d f8  |T$:.T$:T%=.T$.M.|
0000be90  05 e1 0d 4e 02 04 0d 4e  0c 0d dd f2 6e 6f 74 65  |...N...N....note|
0000bea0  70 61 64 0d 4e 16 1a e7  77 25 28 34 29 3c 3d 30  |pad.N...w%(4)<=0|
0000beb0  3a f2 6d 61 6b 65 6e 6f  74 65 73 3a e1 0d 4e 20  |:.makenotes:..N |
0000bec0  17 f2 66 72 6f 6e 74 28  77 25 28 34 29 2c 2d 31  |..front(w%(4),-1|
0000bed0  2c 2d 31 29 0d 4e 2a 05  e1 0d 4e 34 04 0d 4e 3e  |,-1).N*...N4..N>|
0000bee0  2d dd f2 63 6c 65 61 72  6e 70 61 64 3a ea 49 25  |-..clearnpad:.I%|
0000bef0  3a e3 49 25 3d 30 b8 31  38 3a f2 6e 6f 74 65 28  |:.I%=0.18:.note(|
0000bf00  49 25 2c 22 22 29 3a ed  3a e1 0d 4e 48 04 0d 4e  |I%,""):.:..NH..N|
0000bf10  52 0f dd f2 73 61 76 65  6e 6f 74 65 73 0d 4e 5c  |R...savenotes.N\|
0000bf20  2b ea 49 25 3a e3 49 25  3d 30 b8 31 38 3a f2 64  |+.I%:.I%=0.18:.d|
0000bf30  70 72 69 6e 74 28 a4 73  28 a4 6e 6f 74 65 28 49  |print(.s(.note(I|
0000bf40  25 29 29 29 3a ed 3a e1  0d 4e 66 04 0d 4e 70 22  |%))):.:..Nf..Np"|
0000bf50  dd f2 64 70 72 69 6e 74  31 28 54 24 29 3a d5 23  |..dprint1(T$):.#|
0000bf60  6f 75 74 66 69 6c 65 25  2c 54 24 3b 3a e1 0d 4e  |outfile%,T$;:..N|
0000bf70  7a 26 dd f2 64 70 72 69  6e 74 28 54 24 29 3a f2  |z&..dprint(T$):.|
0000bf80  64 70 72 69 6e 74 31 28  54 24 29 3a f2 64 6e 65  |dprint1(T$):.dne|
0000bf90  77 6c 3a e1 0d 4e 84 1b  dd f2 64 6e 65 77 6c 3a  |wl:..N....dnewl:|
0000bfa0  d5 23 6f 75 74 66 69 6c  65 25 2c 22 22 3a e1 0d  |.#outfile%,"":..|
0000bfb0  4e 8e 04 0d 4e 98 1f dd  a4 63 61 6e 63 65 6c 3a  |N...N....cancel:|
0000bfc0  ea 58 25 2c 59 25 2c 42  25 2c 54 25 2c 49 25 2c  |.X%,Y%,B%,T%,I%,|
0000bfd0  41 24 0d 4e a2 0e c8 97  58 25 2c 59 25 2c 42 25  |A$.N....X%,Y%,B%|
0000bfe0  0d 4e ac 3c e7 42 25 80  35 3a 54 25 3d 58 25 3e  |.N.<.B%.5:T%=X%>|
0000bff0  3d 73 6f 72 74 78 30 25  80 58 25 3c 3d 73 6f 72  |=sortx0%.X%<=sor|
0000c000  74 78 31 25 80 59 25 3e  3d 73 6f 72 74 79 30 25  |tx1%.Y%>=sorty0%|
0000c010  80 59 25 3c 3d 73 6f 72  74 79 31 25 0d 4e b6 12  |.Y%<=sorty1%.N..|
0000c020  e7 a6 30 3c 3e 32 37 80  ac 54 25 3a 3d a3 0d 4e  |..0<>27..T%:=..N|
0000c030  c0 0e f2 6e 6f 72 6d 70  6f 69 6e 74 0d 4e ca 27  |...normpoint.N.'|
0000c040  f7 2b 31 3a e3 49 25 3d  31 b8 35 3a f3 41 24 3a  |.+1:.I%=1.5:.A$:|
0000c050  f2 74 73 6f 72 74 6d 65  73 73 28 49 25 2c 41 24  |.tsortmess(I%,A$|
0000c060  29 3a ed 0d 4e d4 1b f5  3a c8 97 58 25 2c 59 25  |):..N...:..X%,Y%|
0000c070  2c 42 25 3a fd 42 25 3d  30 80 a6 30 3c 30 0d 4e  |,B%:.B%=0..0<0.N|
0000c080  de 26 f5 3a c8 97 58 25  2c 59 25 2c 42 25 3a 54  |.&.:..X%,Y%,B%:T|
0000c090  25 3d a6 30 3a fd 28 42  25 80 35 29 84 28 54 25  |%=.0:.(B%.5).(T%|
0000c0a0  3e 3d 30 29 0d 4e e8 16  f2 72 65 73 74 6f 72 65  |>=0).N...restore|
0000c0b0  6d 3a 54 25 3d 54 25 3d  32 37 0d 4e f2 41 e7 ac  |m:T%=T%=27.N.A..|
0000c0c0  54 25 54 25 3d 28 42 25  80 35 29 80 58 25 3e 3d  |T%T%=(B%.5).X%>=|
0000c0d0  73 6f 72 74 78 30 25 80  58 25 3c 3d 73 6f 72 74  |sortx0%.X%<=sort|
0000c0e0  78 31 25 80 59 25 3e 3d  73 6f 72 74 79 30 25 80  |x1%.Y%>=sorty0%.|
0000c0f0  59 25 3c 3d 73 6f 72 74  79 31 25 0d 4e fc 0e f2  |Y%<=sorty1%.N...|
0000c100  77 61 69 74 70 6f 69 6e  74 0d 4f 06 07 3d 54 25  |waitpoint.O..=T%|
0000c110  0d 4f 10 1f dc 22 20 52  65 61 6c 6c 79 20 69 6e  |.O..." Really in|
0000c120  74 65 72 72 75 70 74 20  73 6f 72 74 20 3f 22 0d  |terrupt sort ?".|
0000c130  4f 1a 05 dc 0d 4f 24 26  dc 22 20 20 89 20 43 6c  |O....O$&."  . Cl|
0000c140  69 63 6b 20 5b 43 61 6e  63 65 6c 5d 20 74 6f 20  |ick [Cancel] to |
0000c150  69 6e 74 65 72 72 75 70  74 22 0d 4f 2e 26 dc 22  |interrupt".O.&."|
0000c160  20 20 89 20 43 6c 69 63  6b 20 61 6e 79 20 6f 74  |  . Click any ot|
0000c170  68 65 72 20 74 6f 20 63  6f 6e 74 69 6e 75 65 22  |her to continue"|
0000c180  0d 4f 38 05 dc 0d 4f 42  04 0d 4f 4c 22 dd f2 69  |.O8...OB..OL"..i|
0000c190  6e 74 65 72 72 75 70 74  3a e7 a4 63 61 6e 63 65  |nterrupt:..cance|
0000c1a0  6c 3a f2 65 72 72 28 33  30 38 29 0d 4f 56 2e dd  |l:.err(308).OV..|
0000c1b0  f2 63 6c 65 61 72 6d 65  73 73 3a ea 49 25 3a e3  |.clearmess:.I%:.|
0000c1c0  49 25 3d 31 b8 35 3a f2  73 6f 72 74 6d 65 73 73  |I%=1.5:.sortmess|
0000c1d0  28 49 25 2c 22 22 29 3a  ed 0d 4f 60 2c dd f2 6e  |(I%,""):..O`,..n|
0000c1e0  65 77 6d 65 73 73 28 41  24 29 3a f2 63 6c 65 61  |ewmess(A$):.clea|
0000c1f0  72 6d 65 73 73 3a f2 73  6f 72 74 6d 65 73 73 28  |rmess:.sortmess(|
0000c200  31 2c 41 24 29 0d 4f 6a  05 e1 0d 4f 74 04 0d 4f  |1,A$).Oj...Ot..O|
0000c210  7e 1e dd f2 73 6f 72 74  6d 65 73 73 28 49 25 2c  |~...sortmess(I%,|
0000c220  41 24 29 3a ea 54 25 3a  54 25 3d b9 0d 4f 88 1f  |A$):.T%:T%=..O..|
0000c230  dd f2 74 73 6f 72 74 6d  65 73 73 28 49 25 2c 41  |..tsortmess(I%,A|
0000c240  24 29 3a ea 54 25 3a 54  25 3d a3 0d 4f 92 10 e7  |$):.T%:T%=..O...|
0000c250  49 25 3e 35 84 49 25 3c  31 3a e1 0d 4f 9c 26 ea  |I%>5.I%<1:..O.&.|
0000c260  59 25 3a 59 25 3d 73 6f  72 74 79 25 2b 73 6f 72  |Y%:Y%=sorty%+sor|
0000c270  74 68 25 2d 49 25 2a 6c  69 6e 65 67 61 70 25 2d  |th%-I%*linegap%-|
0000c280  38 0d 4f a6 2e f2 67 63  6f 6c 28 30 2c 32 29 3a  |8.O...gcol(0,2):|
0000c290  c8 93 c8 90 73 6f 72 74  78 25 2c 59 25 2c 73 6f  |....sortx%,Y%,so|
0000c2a0  72 74 77 25 2c 6c 69 6e  65 67 61 70 25 2d 34 0d  |rtw%,linegap%-4.|
0000c2b0  4f b0 29 f2 67 63 6f 6c  28 30 2c 37 29 3a ec 73  |O.).gcol(0,7):.s|
0000c2c0  6f 72 74 78 25 2b 38 2c  59 25 2b 6c 69 6e 65 67  |ortx%+8,Y%+lineg|
0000c2d0  61 70 25 2d 34 3a ef 35  0d 4f ba 16 e7 54 25 73  |ap%-4:.5.O...T%s|
0000c2e0  6f 72 74 6d 24 28 49 25  2d 31 29 3d 41 24 0d 4f  |ortm$(I%-1)=A$.O|
0000c2f0  c4 0a f1 41 24 3b 3a e1  0d 4f ce 04 0d 4f d8 0e  |...A$;:..O...O..|
0000c300  dd f2 72 65 73 74 6f 72  65 6d 0d 4f e2 2e ea 49  |..restorem.O...I|
0000c310  25 3a e3 49 25 3d 31 b8  35 3a f2 73 6f 72 74 6d  |%:.I%=1.5:.sortm|
0000c320  65 73 73 28 49 25 2c 73  6f 72 74 6d 24 28 49 25  |ess(I%,sortm$(I%|
0000c330  2d 31 29 29 3a ed 3a e1  0d 4f ec 04 0d 4f f6 0d  |-1)):.:..O...O..|
0000c340  dd f2 65 6e 64 73 6f 72  74 0d 50 00 25 ea 41 24  |..endsort.P.%.A$|
0000c350  2c 54 24 3a 41 24 3d 22  20 20 20 20 20 20 20 20  |,T$:A$="        |
0000c360  20 20 22 3a 54 24 3d bd  31 30 2b bd 31 33 0d 50  |  ":T$=.10+.13.P|
0000c370  0a 30 74 69 6d 65 24 3d  54 24 2b 22 46 69 6c 6c  |.0time$=T$+"Fill|
0000c380  20 62 75 66 66 65 72 3a  20 22 2b c2 41 24 2b a4  | buffer: "+.A$+.|
0000c390  60 28 74 31 25 29 2b 22  73 22 2c 31 32 29 0d 50  |`(t1%)+"s",12).P|
0000c3a0  14 31 74 69 6d 65 24 2b  3d 54 24 2b 22 53 6f 72  |.1time$+=T$+"Sor|
0000c3b0  74 20 62 75 66 66 65 72  3a 20 22 2b c2 41 24 2b  |t buffer: "+.A$+|
0000c3c0  a4 60 28 74 32 25 29 2b  22 73 22 2c 31 32 29 0d  |.`(t2%)+"s",12).|
0000c3d0  50 1e 31 74 69 6d 65 24  2b 3d 54 24 2b 22 53 77  |P.1time$+=T$+"Sw|
0000c3e0  61 70 20 63 61 72 64 73  3a 20 20 22 2b c2 41 24  |ap cards:  "+.A$|
0000c3f0  2b a4 60 28 74 33 25 29  2b 22 73 22 2c 31 32 29  |+.`(t3%)+"s",12)|
0000c400  0d 50 28 29 74 69 6d 65  24 2b 3d 54 24 2b 22 20  |.P()time$+=T$+" |
0000c410  20 20 20 20 20 20 20 20  20 20 20 20 2d 2d 2d 2d  |            ----|
0000c420  2d 2d 2d 2d 2d 2d 2d 2d  22 0d 50 32 39 74 69 6d  |--------".P29tim|
0000c430  65 24 2b 3d 54 24 2b 22  54 6f 74 61 6c 3a 20 20  |e$+=T$+"Total:  |
0000c440  20 20 20 20 20 22 2b c2  41 24 2b a4 60 28 74 31  |     "+.A$+.`(t1|
0000c450  25 2b 74 32 25 2b 74 33  25 29 2b 22 73 22 2c 31  |%+t2%+t3%)+"s",1|
0000c460  32 29 0d 50 3c 29 74 69  6d 65 24 2b 3d 54 24 2b  |2).P<)time$+=T$+|
0000c470  22 20 20 20 20 20 20 20  20 20 20 20 20 20 2d 2d  |"             --|
0000c480  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 22 0d 50 46 53 74  |----------".PFSt|
0000c490  69 6d 65 24 2b 3d 54 24  2b 54 24 2b 22 28 22 2b  |ime$+=T$+T$+"("+|
0000c4a0  c3 65 6e 74 72 69 65 73  25 2b 22 20 73 6c 6f 74  |.entries%+" slot|
0000c4b0  73 20 6f 66 20 22 2b c3  5a 25 2b 22 20 62 79 74  |s of "+.Z%+" byt|
0000c4c0  65 73 3b 20 74 6f 70 3d  22 2b c3 28 73 6f 72 74  |es; top="+.(sort|
0000c4d0  73 7a 25 81 6d 69 6e 5a  25 29 2b 22 29 22 0d 50  |sz%.minZ%)+")".P|
0000c4e0  50 22 f2 6e 6f 72 6d 70  6f 69 6e 74 3a f2 69 63  |P".normpoint:.ic|
0000c4f0  6f 6e 75 70 64 28 77 5f  73 6f 72 74 25 2c 36 29  |onupd(w_sort%,6)|
0000c500  0d 50 5a 19 e7 77 25 28  33 29 3e 30 f2 66 6f 72  |.PZ..w%(3)>0.for|
0000c510  63 65 28 77 25 28 33 29  29 0d 50 64 16 c8 99 73  |ce(w%(3)).Pd...s|
0000c520  77 69 25 2c 67 72 65 63  5f 25 2c 30 b8 4e 25 0d  |wi%,grec_%,0.N%.|
0000c530  50 6e 15 c8 99 73 77 69  25 2c 73 64 33 38 5f 25  |Pn...swi%,sd38_%|
0000c540  2c 32 35 35 0d 50 78 15  c8 99 73 77 69 25 2c 73  |,255.Px...swi%,s|
0000c550  64 33 38 5f 25 2c 32 35  35 0d 50 82 05 e1 0d 50  |d38_%,255.P....P|
0000c560  8c 04 0d 50 96 0e dd f2  73 6f 72 74 66 69 6c 65  |...P....sortfile|
0000c570  0d 50 a0 07 ea 49 25 0d  50 aa 06 ea 85 0d 50 b4  |.P...I%.P.....P.|
0000c580  1d ee 85 ea 3a f7 85 3a  f2 65 6e 64 73 6f 72 74  |....:..:.endsort|
0000c590  3a f2 65 72 72 28 33 30  37 29 0d 50 be 0b 6d 69  |:.err(307).P..mi|
0000c5a0  6e 5a 25 3d 37 0d 50 c8  1d f2 77 61 69 74 70 6f  |nZ%=7.P...waitpo|
0000c5b0  69 6e 74 3a f2 67 65 74  77 28 77 5f 73 6f 72 74  |int:.getw(w_sort|
0000c5c0  25 29 0d 50 d2 36 73 6f  72 74 78 25 3d 62 78 25  |%).P.6sortx%=bx%|
0000c5d0  2b 31 32 3a 73 6f 72 74  79 25 3d 62 79 25 2d 34  |+12:sorty%=by%-4|
0000c5e0  35 30 3a 73 6f 72 74 77  25 3d 35 33 37 3a 73 6f  |50:sortw%=537:so|
0000c5f0  72 74 68 25 3d 32 30 39  0d 50 dc 43 73 6f 72 74  |rth%=209.P.Csort|
0000c600  78 30 25 3d 62 78 25 2b  33 38 34 3a 73 6f 72 74  |x0%=bx%+384:sort|
0000c610  79 30 25 3d 62 79 25 2d  31 39 36 3a 73 6f 72 74  |y0%=by%-196:sort|
0000c620  78 31 25 3d 62 78 25 2b  34 39 31 3a 73 6f 72 74  |x1%=bx%+491:sort|
0000c630  79 31 25 3d 62 79 25 2d  31 34 38 0d 50 e6 35 f2  |y1%=by%-148.P.5.|
0000c640  63 6c 65 61 72 6d 65 73  73 3a 6d 61 78 73 6c 6f  |clearmess:maxslo|
0000c650  74 73 25 3d a4 76 5f 28  31 37 29 3a 5a 25 3d 73  |ts%=.v_(17):Z%=s|
0000c660  6f 72 74 73 7a 25 81 6d  61 78 73 6c 6f 74 73 25  |ortsz%.maxslots%|
0000c670  0d 50 f0 2b e7 5a 25 3c  6d 69 6e 5a 25 3a 5a 25  |.P.+.Z%<minZ%:Z%|
0000c680  3d 6d 69 6e 5a 25 3a 6d  61 78 73 6c 6f 74 73 25  |=minZ%:maxslots%|
0000c690  3d 73 6f 72 74 73 7a 25  81 5a 25 0d 50 fa 11 e7  |=sortsz%.Z%.P...|
0000c6a0  5a 25 3e 33 30 30 5a 25  3d 33 30 30 0d 51 04 23  |Z%>300Z%=300.Q.#|
0000c6b0  e7 6d 61 78 73 6c 6f 74  73 25 3e 36 35 35 33 35  |.maxslots%>65535|
0000c6c0  6d 61 78 73 6c 6f 74 73  25 3d 36 35 35 33 35 0d  |maxslots%=65535.|
0000c6d0  51 0e 1f f2 73 6f 72 74  74 79 70 65 3a 74 31 25  |Q...sorttype:t1%|
0000c6e0  3d 30 3a 74 32 25 3d 30  3a 74 33 25 3d 30 0d 51  |=0:t2%=0:t3%=0.Q|
0000c6f0  18 32 f2 6e 65 77 6d 65  73 73 28 22 52 65 61 64  |.2.newmess("Read|
0000c700  69 6e 67 20 73 6f 72 74  20 69 6e 66 6f 72 6d 61  |ing sort informa|
0000c710  74 69 6f 6e 22 29 3a f2  66 69 6c 6c 62 75 66 66  |tion"):.fillbuff|
0000c720  0d 51 22 26 f2 6e 65 77  6d 65 73 73 28 22 53 6f  |.Q"&.newmess("So|
0000c730  72 74 69 6e 67 20 64 61  74 61 22 29 3a f2 73 6f  |rting data"):.so|
0000c740  72 74 62 75 66 66 0d 51  2c 27 f2 6e 65 77 6d 65  |rtbuff.Q,'.newme|
0000c750  73 73 28 22 57 72 69 74  69 6e 67 20 66 69 6c 65  |ss("Writing file|
0000c760  22 29 3a f2 77 72 69 74  65 70 74 72 73 0d 51 36  |"):.writeptrs.Q6|
0000c770  0e f2 65 6e 64 73 6f 72  74 3a e1 0d 51 40 04 0d  |..endsort:..Q@..|
0000c780  51 4a 0e dd f2 66 69 6c  6c 62 75 66 66 0d 51 54  |QJ...fillbuff.QT|
0000c790  21 f2 73 6f 72 74 6d 65  73 73 28 33 2c 22 20 20  |!.sortmess(3,"  |
0000c7a0  43 61 72 64 20 6e 75 6d  62 65 72 3a 22 29 0d 51  |Card number:").Q|
0000c7b0  5e 0e 65 6e 74 72 69 65  73 25 3d 30 0d 51 68 16  |^.entries%=0.Qh.|
0000c7c0  c8 99 73 77 69 25 2c 66  69 72 73 74 5f 25 b8 2c  |..swi%,first_%.,|
0000c7d0  4e 25 0d 51 72 14 c8 99  73 77 69 25 2c 73 64 32  |N%.Qr...swi%,sd2|
0000c7e0  33 5f 25 b8 4e 25 0d 51  7c 14 c8 99 73 77 69 25  |3_%.N%.Q|...swi%|
0000c7f0  2c 6e 65 78 74 5f 25 b8  4e 25 0d 51 86 1d 74 31  |,next_%.N%.Q..t1|
0000c800  25 3d 91 3a c8 95 ac a4  62 61 64 72 65 63 28 a4  |%=.:....badrec(.|
0000c810  76 5f 28 31 35 29 29 0d  51 90 21 e7 65 6e 74 72  |v_(15)).Q.!.entr|
0000c820  69 65 73 25 3e 6d 61 78  73 6c 6f 74 73 25 3a f2  |ies%>maxslots%:.|
0000c830  65 72 72 28 33 30 39 29  0d 51 9a 45 e7 28 65 6e  |err(309).Q.E.(en|
0000c840  74 72 69 65 73 25 80 31  35 29 3d 30 3a f2 73 6f  |tries%.15)=0:.so|
0000c850  72 74 6d 65 73 73 28 34  2c 22 20 20 20 20 20 20  |rtmess(4,"      |
0000c860  20 20 20 20 20 20 20 20  22 2b c3 28 a4 76 5f 28  |        "+.(.v_(|
0000c870  31 37 29 2d a4 76 5f 28  31 35 29 29 29 0d 51 a4  |17)-.v_(15))).Q.|
0000c880  2e f2 66 69 6c 6c 73 6c  6f 74 28 65 6e 74 72 69  |..fillslot(entri|
0000c890  65 73 25 29 3a 65 6e 74  72 69 65 73 25 2b 3d 31  |es%):entries%+=1|
0000c8a0  3a f2 69 6e 74 65 72 72  75 70 74 0d 51 ae 14 c8  |:.interrupt.Q...|
0000c8b0  99 73 77 69 25 2c 6e 65  78 74 5f 25 b8 4e 25 0d  |.swi%,next_%.N%.|
0000c8c0  51 b8 0f ce 3a 74 31 25  3d 91 2d 74 31 25 0d 51  |Q...:t1%=.-t1%.Q|
0000c8d0  c2 18 e7 65 6e 74 72 69  65 73 25 3c 32 f2 65 72  |...entries%<2.er|
0000c8e0  72 28 33 31 30 29 0d 51  cc 05 e1 0d 51 d6 04 0d  |r(310).Q....Q...|
0000c8f0  51 e0 0e dd f2 73 6f 72  74 62 75 66 66 0d 51 ea  |Q....sortbuff.Q.|
0000c900  25 ea 41 25 2c 49 25 2c  4a 25 2c 4b 25 2c 4d 25  |%.A%,I%,J%,K%,M%|
0000c910  2c 50 25 2c 54 25 2c 49  24 2c 4c 24 2c 54 24 2c  |,P%,T%,I$,L$,T$,|
0000c920  4c 25 0d 51 f4 19 41 25  3d 2d 31 3a e7 6f 25 28  |L%.Q..A%=-1:.o%(|
0000c930  30 2c 30 29 80 31 3a 41  25 3d 31 0d 51 fe 13 6d  |0,0).1:A%=1.Q..m|
0000c940  72 65 63 73 25 3d 65 6e  74 72 69 65 73 25 0d 52  |recs%=entries%.R|
0000c950  08 25 4d 25 3d 6d 72 65  63 73 25 81 32 3a f5 3a  |.%M%=mrecs%.2:.:|
0000c960  4d 25 3d 4d 25 81 32 3a  4c 25 2b 3d 31 3a fd 4d  |M%=M%.2:L%+=1:.M|
0000c970  25 3d 30 0d 52 12 15 4d  25 3d 6d 72 65 63 73 25  |%=0.R..M%=mrecs%|
0000c980  81 32 3a 74 32 25 3d 91  0d 52 1c 0a c8 95 4d 25  |.2:t2%=..R....M%|
0000c990  3e 30 0d 52 26 26 f2 73  6f 72 74 6d 65 73 73 28  |>0.R&&.sortmess(|
0000c9a0  33 2c 22 20 20 4c 65 76  65 6c 20 20 22 2b c3 4c  |3,"  Level  "+.L|
0000c9b0  25 29 3a 4c 25 2d 3d 31  0d 52 30 15 4a 25 3d 31  |%):L%-=1.R0.J%=1|
0000c9c0  3a 4b 25 3d 6d 72 65 63  73 25 2d 4d 25 0d 52 3a  |:K%=mrecs%-M%.R:|
0000c9d0  0c c8 95 4a 25 3c 3d 4b  25 0d 52 44 3c e7 28 4a  |...J%<=K%.RD<.(J|
0000c9e0  25 80 31 32 37 29 3d 31  3a f2 73 6f 72 74 6d 65  |%.127)=1:.sortme|
0000c9f0  73 73 28 34 2c 22 20 20  52 65 63 6f 72 64 20 22  |ss(4,"  Record "|
0000ca00  2b c3 28 4b 25 2d 4a 25  29 29 3a f2 69 6e 74 65  |+.(K%-J%)):.inte|
0000ca10  72 72 75 70 74 0d 52 4e  09 49 25 3d 4a 25 0d 52  |rrupt.RN.I%=J%.R|
0000ca20  58 0c 50 25 3d 49 25 2b  4d 25 0d 52 62 0a c8 95  |X.P%=I%+M%.Rb...|
0000ca30  49 25 3e 30 0d 52 6c 13  54 25 3d a4 63 6f 6d 70  |I%>0.Rl.T%=.comp|
0000ca40  28 49 25 2c 50 25 29 0d  52 76 26 e7 54 25 3d 41  |(I%,P%).Rv&.T%=A|
0000ca50  25 3a f2 73 77 61 70 28  49 25 2c 50 25 29 3a 49  |%:.swap(I%,P%):I|
0000ca60  25 2d 3d 4d 25 3a 8b 3a  49 25 3d 2d 31 0d 52 80  |%-=M%:.:I%=-1.R.|
0000ca70  0c 50 25 3d 49 25 2b 4d  25 0d 52 8a 05 ce 0d 52  |.P%=I%+M%.R....R|
0000ca80  94 09 4a 25 2b 3d 31 0d  52 9e 05 ce 0d 52 a8 0b  |..J%+=1.R....R..|
0000ca90  4d 25 3d 4d 25 81 32 0d  52 b2 0f ce 3a 74 32 25  |M%=M%.2.R...:t2%|
0000caa0  3d 91 2d 74 32 25 0d 52  bc 05 e1 0d 52 c6 04 0d  |=.-t2%.R....R...|
0000cab0  52 d0 0f dd f2 77 72 69  74 65 70 74 72 73 0d 52  |R....writeptrs.R|
0000cac0  da 16 c8 99 73 77 69 25  2c 66 69 72 73 74 5f 25  |....swi%,first_%|
0000cad0  b8 2c 4e 25 0d 52 e4 24  ea 49 25 2c 41 25 2c 42  |.,N%.R.$.I%,A%,B|
0000cae0  25 2c 43 25 2c 44 25 2c  54 25 2c 6f 6e 25 2c 6e  |%,C%,D%,T%,on%,n|
0000caf0  6e 25 3a 42 25 3d 56 25  0d 52 ee 18 74 33 25 3d  |n%:B%=V%.R..t3%=|
0000cb00  91 3a e3 49 25 3d 31 b8  65 6e 74 72 69 65 73 25  |.:.I%=1.entries%|
0000cb10  0d 52 f8 41 e7 28 49 25  80 33 31 29 3d 31 f2 73  |.R.A.(I%.31)=1.s|
0000cb20  6f 72 74 6d 65 73 73 28  33 2c 22 20 20 20 52 65  |ortmess(3,"   Re|
0000cb30  63 6f 72 64 20 22 2b c3  28 65 6e 74 72 69 65 73  |cord "+.(entries|
0000cb40  25 2d 49 25 29 29 3a f2  69 6e 74 65 72 72 75 70  |%-I%)):.interrup|
0000cb50  74 0d 53 02 14 c8 99 73  77 69 25 2c 6e 65 78 74  |t.S....swi%,next|
0000cb60  5f 25 b8 4e 25 0d 53 0c  28 6f 6e 25 3d a4 76 5f  |_%.N%.S.(on%=.v_|
0000cb70  28 31 35 29 3a 6e 6e 25  3d 21 28 42 25 2b 49 25  |(15):nn%=!(B%+I%|
0000cb80  2a 5a 25 2d 5a 25 29 80  26 46 46 46 46 0d 53 16  |*Z%-Z%).&FFFF.S.|
0000cb90  0e e7 6f 6e 25 3c 3e 6e  6e 25 8c 0d 53 20 19 c8  |..on%<>nn%..S ..|
0000cba0  99 73 77 69 25 2c 73 64  33 32 5f 25 2c 6f 6e 25  |.swi%,sd32_%,on%|
0000cbb0  2c 6e 6e 25 0d 53 2a 22  41 25 3d 49 25 3a 43 25  |,nn%.S*"A%=I%:C%|
0000cbc0  3d 6f 6e 25 3a 44 25 3d  5a 25 3a 54 25 3d ba 73  |=on%:D%=Z%:T%=.s|
0000cbd0  65 61 72 63 68 25 0d 53  34 10 f2 73 77 61 70 28  |earch%.S4..swap(|
0000cbe0  49 25 2c 54 25 29 0d 53  3e 18 c8 99 73 77 69 25  |I%,T%).S>...swi%|
0000cbf0  2c 67 72 65 63 5f 25 2c  6f 6e 25 b8 4e 25 0d 53  |,grec_%,on%.N%.S|
0000cc00  48 05 cd 0d 53 52 05 ed  0d 53 5c 0f 74 33 25 3d  |H...SR...S\.t3%=|
0000cc10  91 2d 74 33 25 3a e1 0d  53 66 05 e1 0d 53 70 04  |.-t3%:..Sf...Sp.|
0000cc20  0d 53 7a 12 dd f2 66 69  6c 6c 73 6c 6f 74 28 54  |.Sz...fillslot(T|
0000cc30  25 29 0d 53 84 22 ea 41  25 2c 54 24 3a 41 25 3d  |%).S.".A%,T$:A%=|
0000cc40  54 25 2a 5a 25 2b 56 25  3a 21 41 25 3d a4 76 5f  |T%*Z%+V%:!A%=.v_|
0000cc50  28 31 35 29 0d 53 8e 0c  c8 8e 74 79 70 65 25 ca  |(15).S....type%.|
0000cc60  0d 53 98 1d c9 30 3a c8  99 73 77 69 25 2c 67 66  |.S...0:..swi%,gf|
0000cc70  69 65 6c 64 5f 25 2c 66  69 65 6c 64 25 0d 53 a2  |ield_%,field%.S.|
0000cc80  20 f2 72 65 6d 6f 76 65  28 24 73 64 25 2c 22 2e  | .remove($sd%,".|
0000cc90  22 29 3a 41 25 21 32 3d  bb 24 73 64 25 0d 53 ac  |"):A%!2=.$sd%.S.|
0000cca0  1d c9 31 3a c8 99 73 77  69 25 2c 67 66 69 65 6c  |..1:..swi%,gfiel|
0000ccb0  64 5f 25 2c 66 69 65 6c  64 25 0d 53 b6 1d e7 6f  |d_%,field%.S...o|
0000ccc0  25 28 30 2c 30 29 80 32  3a c8 99 73 77 69 25 2c  |%(0,0).2:..swi%,|
0000ccd0  75 70 70 65 72 5f 25 0d  53 c0 1d e7 6f 25 28 30  |upper_%.S...o%(0|
0000cce0  2c 30 29 80 34 3a c8 99  73 77 69 25 2c 73 74 72  |,0).4:..swi%,str|
0000ccf0  69 70 5f 25 0d 53 ca 17  24 28 41 25 2b 32 29 3d  |ip_%.S..$(A%+2)=|
0000cd00  c0 24 73 64 25 2c 5a 25  2d 32 29 0d 53 d4 2e c9  |.$sd%,Z%-2).S...|
0000cd10  32 3a 7c 28 41 25 2b 32  29 3d a4 65 76 28 6f 78  |2:|(A%+2)=.ev(ox|
0000cd20  24 28 30 29 2c 6f 25 28  30 2c 30 29 80 34 2c 6f  |$(0),o%(0,0).4,o|
0000cd30  25 28 30 2c 30 29 80 32  29 0d 53 de 35 c9 33 3a  |%(0,0).2).S.5.3:|
0000cd40  24 28 41 25 2b 32 29 3d  c0 a4 65 76 28 6f 78 24  |$(A%+2)=..ev(ox$|
0000cd50  28 30 29 2c 6f 25 28 30  2c 30 29 80 34 2c 6f 25  |(0),o%(0,0).4,o%|
0000cd60  28 30 2c 30 29 80 32 29  2c 5a 25 2d 32 29 0d 53  |(0,0).2),Z%-2).S|
0000cd70  e8 07 cb 3a e1 0d 53 f2  04 0d 53 fc 11 dd a4 73  |...:..S...S....s|
0000cd80  6c 6f 74 76 61 6c 28 41  25 29 0d 54 06 0c c8 8e  |lotval(A%).T....|
0000cd90  74 79 70 65 25 ca 0d 54  10 0c c9 30 3a 3d 41 25  |type%..T...0:=A%|
0000cda0  21 32 0d 54 1a 30 c9 31  2c 33 3a ea 54 24 2c 54  |!2.T.0.1,3:.T$,T|
0000cdb0  25 3a 54 25 3d 41 25 3f  5a 25 3a 54 24 3d 24 28  |%:T%=A%?Z%:T$=$(|
0000cdc0  41 25 2b 32 29 3a 41 25  3f 5a 25 3d 54 25 3a 3d  |A%+2):A%?Z%=T%:=|
0000cdd0  54 24 0d 54 24 0f c9 32  3a 3d 7c 28 41 25 2b 32  |T$.T$..2:=|(A%+2|
0000cde0  29 0d 54 2e 09 cb 3a 3d  22 22 0d 54 38 04 0d 54  |).T...:="".T8..T|
0000cdf0  42 1f dd a4 63 6f 6d 70  28 41 25 2c 42 25 29 3a  |B...comp(A%,B%):|
0000ce00  ea 41 2c 42 2c 41 24 2c  42 24 2c 54 25 0d 54 4c  |.A,B,A$,B$,T%.TL|
0000ce10  21 41 25 3d 56 25 2b 41  25 2a 5a 25 2d 5a 25 3a  |!A%=V%+A%*Z%-Z%:|
0000ce20  42 25 3d 56 25 2b 42 25  2a 5a 25 2d 5a 25 0d 54  |B%=V%+B%*Z%-Z%.T|
0000ce30  56 0c c8 8e 74 79 70 65  25 ca 0d 54 60 37 c9 30  |V...type%..T`7.0|
0000ce40  3a 41 25 3d a4 73 6c 6f  74 76 61 6c 28 41 25 29  |:A%=.slotval(A%)|
0000ce50  3a 42 25 3d a4 73 6c 6f  74 76 61 6c 28 42 25 29  |:B%=.slotval(B%)|
0000ce60  3a 3d 28 41 25 3c 42 25  29 2d 28 41 25 3e 42 25  |:=(A%<B%)-(A%>B%|
0000ce70  29 0d 54 6a 31 c9 32 3a  41 3d a4 73 6c 6f 74 76  |).Tj1.2:A=.slotv|
0000ce80  61 6c 28 41 25 29 3a 42  3d a4 73 6c 6f 74 76 61  |al(A%):B=.slotva|
0000ce90  6c 28 42 25 29 3a 3d 28  41 3c 42 29 2d 28 41 3e  |l(B%):=(A<B)-(A>|
0000cea0  42 29 0d 54 74 05 cb 0d  54 7e 3c 41 24 3d a4 73  |B).Tt...T~<A$=.s|
0000ceb0  6c 6f 74 76 61 6c 28 41  25 29 3a 42 24 3d a4 73  |lotval(A%):B$=.s|
0000cec0  6c 6f 74 76 61 6c 28 42  25 29 3a e7 41 24 3c 3e  |lotval(B%):.A$<>|
0000ced0  42 24 3a 3d 28 41 24 3c  42 24 29 2d 28 41 24 3e  |B$:=(A$<B$)-(A$>|
0000cee0  42 24 29 0d 54 88 10 e7  a9 41 24 3c 5a 25 2d 32  |B$).T....A$<Z%-2|
0000cef0  3a 3d 30 0d 54 92 27 41  25 3d 21 41 25 3a 42 25  |:=0.T.'A%=!A%:B%|
0000cf00  3d 21 42 25 3a c8 99 73  77 69 25 2c 6c 6f 63 61  |=!B%:..swi%,loca|
0000cf10  74 65 5f 25 2c 41 25 b8  44 25 0d 54 9c 3c 41 24  |te_%,A%.D%.T.<A$|
0000cf20  3d a4 65 76 28 6f 78 24  28 30 29 2c 6f 25 28 30  |=.ev(ox$(0),o%(0|
0000cf30  2c 30 29 80 34 2c 6f 25  28 30 2c 30 29 80 32 29  |,0).4,o%(0,0).2)|
0000cf40  3a c8 99 73 77 69 25 2c  6c 6f 63 61 74 65 5f 25  |:..swi%,locate_%|
0000cf50  2c 42 25 b8 44 25 0d 54  a6 37 42 24 3d a4 65 76  |,B%.D%.T.7B$=.ev|
0000cf60  28 6f 78 24 28 30 29 2c  6f 25 28 30 2c 30 29 80  |(ox$(0),o%(0,0).|
0000cf70  34 2c 6f 25 28 30 2c 30  29 80 32 29 3a 3d 28 41  |4,o%(0,0).2):=(A|
0000cf80  24 3c 42 24 29 2d 28 41  24 3e 42 24 29 0d 54 b0  |$<B$)-(A$>B$).T.|
0000cf90  04 0d 54 ba 11 dd f2 73  77 61 70 28 41 25 2c 42  |..T....swap(A%,B|
0000cfa0  25 29 0d 54 c4 21 41 25  3d 56 25 2b 41 25 2a 5a  |%).T.!A%=V%+A%*Z|
0000cfb0  25 2d 5a 25 3a 42 25 3d  56 25 2b 42 25 2a 5a 25  |%-Z%:B%=V%+B%*Z%|
0000cfc0  2d 5a 25 0d 54 ce 22 c8  94 3f 41 25 2c 3f 42 25  |-Z%.T."..?A%,?B%|
0000cfd0  3a c8 94 41 25 3f 31 2c  42 25 3f 31 3a c8 8e 74  |:..A%?1,B%?1:..t|
0000cfe0  79 70 65 25 ca 0d 54 d8  12 c9 30 3a c8 94 41 25  |ype%..T...0:..A%|
0000cff0  21 32 2c 42 25 21 32 0d  54 e2 18 c9 32 3a c8 94  |!2,B%!2.T...2:..|
0000d000  7c 28 41 25 2b 32 29 2c  7c 28 42 25 2b 32 29 0d  ||(A%+2),|(B%+2).|
0000d010  54 ec 08 c9 31 2c 33 0d  54 f6 0a ea 54 25 2c 55  |T...1,3.T...T%,U|
0000d020  25 0d 55 00 2d 54 25 3d  3f 28 41 25 2b 5a 25 29  |%.U.-T%=?(A%+Z%)|
0000d030  3a 55 25 3d 3f 28 42 25  2b 5a 25 29 3a c8 94 24  |:U%=?(B%+Z%):..$|
0000d040  28 41 25 2b 32 29 2c 24  28 42 25 2b 32 29 0d 55  |(A%+2),$(B%+2).U|
0000d050  0a 1b 3f 28 41 25 2b 5a  25 29 3d 54 25 3a 3f 28  |..?(A%+Z%)=T%:?(|
0000d060  42 25 2b 5a 25 29 3d 55  25 0d 55 14 05 cb 0d 55  |B%+Z%)=U%.U....U|
0000d070  1e 05 e1 0d 55 28 04 0d  55 32 0e dd f2 73 6f 72  |....U(..U2...sor|
0000d080  74 74 79 70 65 0d 55 3c  11 ea 54 24 3a 54 24 3d  |ttype.U<..T$:T$=|
0000d090  6f 78 24 28 30 29 0d 55  46 17 c8 99 73 77 69 25  |ox$(0).UF...swi%|
0000d0a0  2c 73 64 35 39 5f 25 2c  54 24 b8 47 25 0d 55 50  |,sd59_%,T$.G%.UP|
0000d0b0  0b e7 47 25 3c 2d 31 8c  0d 55 5a 15 66 69 65 6c  |..G%<-1..UZ.fiel|
0000d0c0  64 25 3d 47 25 80 26 46  46 46 46 46 46 0d 55 64  |d%=G%.&FFFFFF.Ud|
0000d0d0  1d c8 99 73 77 69 25 2c  73 64 31 37 5f 25 2c 34  |...swi%,sd17_%,4|
0000d0e0  2c 66 69 65 6c 64 25 b8  47 25 0d 55 6e 1e e7 28  |,field%.G%.Un..(|
0000d0f0  47 25 80 37 29 3d 37 3a  74 79 70 65 25 3d 31 3a  |G%.7)=7:type%=1:|
0000d100  8b 74 79 70 65 25 3d 30  0d 55 78 05 cc 0d 55 82  |.type%=0.Ux...U.|
0000d110  0d 66 69 65 6c 64 25 3d  2d 31 0d 55 8c 13 74 79  |.field%=-1.U..ty|
0000d120  70 65 25 3d a4 65 78 70  72 74 79 70 65 0d 55 96  |pe%=.exprtype.U.|
0000d130  05 cd 0d 55 a0 05 e1 0d  55 aa 04 0d 55 b4 12 dd  |...U....U...U...|
0000d140  a4 65 78 70 72 74 79 70  65 3a ea 54 24 0d 55 be  |.exprtype:.T$.U.|
0000d150  20 ea 85 3a ee 85 ea 3a  f7 85 3a e7 9f 3d 36 3a  | ..:...:..:..=6:|
0000d160  3d 32 3a 8b f2 65 72 72  28 33 30 36 29 0d 55 c8  |=2:..err(306).U.|
0000d170  19 54 24 3d a4 65 76 28  6f 78 24 28 30 29 2c b9  |.T$=.ev(ox$(0),.|
0000d180  2c b9 29 3a 3d 33 0d 55  d2 04 0d 55 dc 0c dd f2  |,.):=3.U...U....|
0000d190  6e 6f 76 61 72 73 0d 55  e6 05 e1 0d 55 f0 04 0d  |novars.U....U...|
0000d1a0  55 fa 1f dd f2 70 69 63  70 61 74 68 3a ea 54 24  |U....picpath:.T$|
0000d1b0  3a e7 a9 66 69 6c 65 24  3e 32 33 30 3a e1 0d 56  |:..file$>230:..V|
0000d1c0  04 3b 54 24 3d a4 41 72  66 56 61 72 28 22 4d 75  |.;T$=.ArfVar("Mu|
0000d1d0  6c 74 69 53 74 6f 72 65  50 69 63 73 24 50 61 74  |ltiStorePics$Pat|
0000d1e0  68 22 29 3a e7 a7 a4 75  28 54 24 29 2c a4 75 28  |h"):...u(T$),.u(|
0000d1f0  66 69 6c 65 24 29 29 3a  e1 0d 56 0e 1f 66 69 6c  |file$)):..V..fil|
0000d200  65 24 2b 3d 22 2e 22 3a  c8 95 a9 54 24 2b a9 66  |e$+=".":...T$+.f|
0000d210  69 6c 65 24 3e 32 32 39  0d 56 18 25 f5 3a 54 24  |ile$>229.V.%.:T$|
0000d220  3d c0 54 24 29 3a fd c2  54 24 29 3d 22 2c 22 84  |=.T$):..T$)=",".|
0000d230  54 24 3d 22 22 3a 54 24  3d c0 54 24 29 0d 56 22  |T$="":T$=.T$).V"|
0000d240  17 ce 3a e7 54 24 3e 22  22 3a 66 69 6c 65 24 2b  |..:.T$>"":file$+|
0000d250  3d 22 2c 22 0d 56 2c 28  ff 22 53 65 74 20 4d 75  |=",".V,(."Set Mu|
0000d260  6c 74 69 53 74 6f 72 65  50 69 63 73 24 50 61 74  |ltiStorePics$Pat|
0000d270  68 20 22 2b 66 69 6c 65  24 2b 54 24 0d 56 36 2b  |h "+file$+T$.V6+|
0000d280  e3 49 25 3d 30 b8 6d 61  78 66 25 3a e7 77 25 28  |.I%=0.maxf%:.w%(|
0000d290  49 25 2c 30 29 3e 30 f2  66 6f 72 63 65 28 77 25  |I%,0)>0.force(w%|
0000d2a0  28 49 25 2c 30 29 29 0d  56 40 07 ed 3a e1 0d 56  |(I%,0)).V@..:..V|
0000d2b0  4a 04 0d 56 54 15 dd a4  61 64 64 66 69 65 6c 64  |J..VT...addfield|
0000d2c0  28 54 24 2c 54 25 29 0d  56 5e 28 ea 43 25 2c 74  |(T$,T%).V^(.C%,t|
0000d2d0  24 2c 41 24 3a 74 24 3d  54 24 3a c8 95 c2 74 24  |$,A$:t$=T$:...t$|
0000d2e0  29 3d 22 20 22 3a 74 24  3d c0 74 24 29 3a ce 0d  |)=" ":t$=.t$):..|
0000d2f0  56 68 17 e7 74 24 3d 22  22 3a 3d a4 66 6e 61 6d  |Vh..t$="":=.fnam|
0000d300  65 31 28 54 25 29 0d 56  72 25 e7 c2 74 24 29 3d  |e1(T%).Vr%..t$)=|
0000d310  22 40 22 84 c2 74 24 29  3d 22 23 22 3a 3d 74 24  |"@"..t$)="#":=t$|
0000d320  2b a4 66 6e 61 6d 65 28  54 25 29 0d 56 7c 21 43  |+.fname(T%).V|!C|
0000d330  25 3d a3 3a f7 2b 31 3a  f5 3a f3 41 24 3a 43 25  |%=.:.+1:.:.A$:C%|
0000d340  3d c2 74 24 2c a9 41 24  29 3d 41 24 0d 56 86 1d  |=.t$,.A$)=A$.V..|
0000d350  fd 43 25 84 41 24 3d 22  2a 2a 2a 2a 22 3a e7 ac  |.C%.A$="****":..|
0000d360  43 25 54 24 2b 3d 22 2b  22 0d 56 90 20 e7 a7 54  |C%T$+="+".V. ..T|
0000d370  24 2c 22 40 22 29 3a 3d  54 24 2b 22 40 22 2b a4  |$,"@"):=T$+"@"+.|
0000d380  66 6e 61 6d 65 28 54 25  29 0d 56 9a 20 e7 a7 54  |fname(T%).V. ..T|
0000d390  24 2c 22 23 22 29 3a 3d  54 24 2b 22 23 22 2b a4  |$,"#"):=T$+"#"+.|
0000d3a0  66 6e 61 6d 65 28 54 25  29 0d 56 a4 13 3d 54 24  |fname(T%).V..=T$|
0000d3b0  2b a4 66 6e 61 6d 65 31  28 54 25 29 0d 56 ae 2c  |+.fname1(T%).V.,|
0000d3c0  dc 2b 2c 2d 2c 2a 2c 2f  2c 41 4e 44 2c 4f 52 2c  |.+,-,*,/,AND,OR,|
0000d3d0  4e 4f 54 2c 3e 2c 3c 2c  3d 2c 28 2c 22 2c 22 2c  |NOT,>,<,=,(,",",|
0000d3e0  22 3a 22 2c 2a 2a 2a 2a  0d ff                    |":",****..|
0000d3ea