�> <MultiStore$Dir>.MSCreate
?�  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%)

/� 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)

"� 9:�menuselect

,�17,18:�umess1

6�19:�umess2

@�

J�normpoint

T�

^

h��quit(T%):�normpoint

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

|�novars

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

�!șswi%,killtask_%,taskhandle%

�Ș

�

�ݤtask=otask%

�

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

�,appl$="MultiStore":pstream%=0:�releasepr

�'� 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:dialogue%=-1
savereason%=-1
&file2%=-1:reason2%=-1
0menufile%=-1:menusub%=-1
:closeok%=�
D)sbfile%=-1:pass$="":exi0%=-1:exi1%=-1
N"ș"OS_Byte",182,0,255 �,pterm%
X0�(pterm%�&80)=0ș"OS_Byte",246,0,255�,pterm%
b �pterm%=10pterm%=1:�pterm%=2
l$id_wcia%=42:id_exb%=43:id_bbc%=0
v� 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
�5lastact%=0:chunk%=7:fn$="":lcards$="":lkbytes$=""
�Ias$="Are you sure ?":rl$="Really ":ri$=rl$+"interrupt ?":fi$="File: "
�!unt$="UNTITLED":sy$="Sorry! "
�'�23,255,0,126,126,126,126,126,126,0
��baricon:�
�
�
��swinums
��
�
��filevars
	� ;{n
6� ;{n  window handles in w%(maxw%) - <=0 = Deleted
 @� ;{n    (0)=Card    (1)=Pane     (2)=Fields     (3)=Indices
*2� ;{n  tw%(maxw%) - pointers to window formats
4,� ;{n  fsize%(1) - file size cards,bytes
>	� ;{n
H0� ;{n    maxw%   = max array index (windows)
R	� ;{n
\'ft_form%=&DE7:ft_data%=&DE8:maxw%=3
f$� w%(maxw%),tw%(maxw%),fsize%(1)
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
��
�
���sdvars
�șswi%,sd64_%,3�linegap%
�
margin%=8
�1�sound%:șswi%,opt_%,10�G%:�șswi%,opt_%,9�G%
��

-��checkprot:�T%:ș"FlexiFile_Address"�sd%
�
$��:process%=2:�
.șswi%,reset_%,taskhandle%
8T�process%=3�stop(1,"OK. Please remove original &","replace backup if necessary")
Bdate$=�strdate1(�now,4)
L�sdvars:�v_(1)<>0�err(3)
Vprocess%=4:�
`
j
��version
t/�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,2);:*fx4
*fx225,1


*fx229
Z%=0:șswi%,killtask_%
�:�:�" ";�:�quit(�)
(+�;menuend%-menufree%" bytes menu space"
26�;endbuf%-curbuf%" bytes indirection buffer space"
<'�;tbe%-tbs%" bytes template buffer"
F�
P
Z��baricon:�first%:�
d+!q%=-1:q%!4=0:q%!8=0:q%!12=102:q%!16=68
n0q%!20=%11000000000010:$(q%+24)="!"+�appl$,9)
x$ș"Wimp_CreateIcon",,q%�baricon%
��
�
�!��error(err%,err$,erl%,quit%)
�*�debug:�4,30:�err$" @ ";erl%:�quit(�)
�.�normpoint:dragreason%=-1:@%=&90A:*fx229,1
��i%,e%,t$,T$
�笤prod:err$+=" ("+Þ+")"
��
���:�error(�,�$,�,�)
�9!q%=err%:$(q%+4)=err$:ș"Wimp_ReportError",q%,1,appl$
��quit%:�quit(�)
��
�
+��report:�debug:�4:�:�" @ ";�:�quit(�)
�

"	ݤdir
, �T$:T$=�ArfVar(appl$+"$Dir")
6!�T$="":T$="&.!"+�appl$,9)+"."
@��T$)<>".":T$+="."
J=T$
T
^ݤArfVar(A$):�L%,V%
h=ș"XOS_ReadVarVal",A$,workbuf%,254,0,3�,,L%;V%:�V%�1:L%=0
rworkbuf%?L%=13:=$workbuf%
|
���umess1
�-ref%=q%!8:task%=q%!4:�task%=taskhandle%:�
�mess%=q%!16
�Ȏmess%�
��0:�CLOSE:�quit(�)
��1:�datasaved
��2:�savedata
��3:�dataload
��4:ackpending%=�
��5:�dataopen
��6:
��7:
��8:�prequit
�9:

�&502:
-�&400C0:�submenu(q%!20,q%!24,q%!28,q%+32)
&�&80300:�ackrec
0�
:�
D
N��dataopen
X(�q%!40=ft_form%:�dataloadack:�err(1)
b�q%!40<>ft_data%:�
l"�dataloadack:mh%=-1:�checkopen
vB�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
��dataloadack
�C�process%=0笤dialogue:�checkopen:�mstore("3:"+T$,"MultiStore")
�� q%!40=&FFD �mh%=-2
�*�process%=0:笤dialogue:�checkconv(T$)
�0� q%!40=ft_form%�mh%=-2:�dataloadack:�err(1)
x� (q%!40=ft_form%�q%!40=ft_data%)�file%>=0�wind%<2:�dataloadack:file$=T$:�stop(100,�leaf(file$),rl$+"load layout ?")
]� q%!40=&FFF �file%>=0�wind%=0:�dataloadack:file$=T$:�stop(26,"",rl$+"load ASCII card ?")
�
 �
*
4
��noscrap
>�del%:*remove <Wimp$Scrap>
H�
R
\��datasaved:�dialogue:�
f�readpointer:�wtof(mh%)
p
Ȏ � �
zA� q%!40=&FFF �file%>=0�(wind%=6�wind%=7�wind%=0):�datasaveack
��
��
�
�
��err(E%)
�9�T$,A$:�file%>=0A$=", "+fi$+�filename+" - ":�A$=" - "
�@%=&90A:*fx229,1
�	ȎE%�
��0:T$=�$
�0�1:T$="To use a format, drag it onto a card"
�-�2:T$="Must be version 1.8 WIMP or later"
�+�3:T$=sy$+"Too many files already open"
�>�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"
	8&�24:T$="Field assignment expected"
	B%�25:T$="Field name not specified"
	L#�41:T$="Printer already in use"
	V9�46:T$="Exporting report"+A$+�$+" (export cancelled)"
	`E�47:T$="The two new passwords must be identical. Please re-enter"
	j1�50:T$="Can't recognise format of setup file"
	t<�51:T$="You must specify the current password correctly"
	~�59:T$="Program not found"
	�0�60:T$=�$+" - Can't load requested software"
	�E�100:T$=sy$+"You can't create a file/format when others are open"
	�K�101:T$="Please specify full pathname or drag icon to directory viewer"
	�J�102:T$="Please drag the icon to a directory viewer, NOT another task"
	�G�103:T$=sy$+"No access to the printer driver while creating a file"
	�B�104:T$=sy$+"You can't open a file while you are creating one"
	�D�105:T$=sy$+"You must save the file before you can set the size"
	�H�106:T$="Please design the card layout before setting the file size"
	�:�107:T$="The caret must be in the field to be deleted"
	�*�108:T$="This is a format, not a file"
	�J�109:T$=sy$+"You can't transfer cards into a format or undefined file"
	�B�110:T$=sy$+"You can't sort a file while you are creating it!"
2�111:T$="Index names must start with a letter"

>�112:T$="Please enter a suitable expression for the index"
&�113:T$=�$+" - copy not completed"
�114:T$="Copy interrupted"
(+�115:T$="Please use unique field names"
21�116:T$="Sorry - BBC files are not available"
<&:T$="Unrecognised internal error"
F�
P%�debug:T$+=" ("+Þ+") ["+�E%+"]"
Z
�99,T$
d
n��initfile
x7flg%=0:�tools%:flg%=f_pane%:fsize%(0)=0:fsize%(1)=0
��
�
���closefile(T%)
��T%�
�șswi%,close_%�S%
��
�șswi%,abandon_%
��remove
��
��ready:�delfilews
�w%(0)=-1E9:closeok%=�
��
�
��remove:�:��:��:�
�fn$<>unt$:�"*remove "+fn$
�
"
, ��align(I%):�tx1%-tx0%>108:�
6��align1(I%)
@(tx0%=I%*40-40+panew%+8:tx1%=tx0%+440
J#ty1%=900-I%*40+40:ty0%=ty1%-320
T�
^
h��makepane
r#�P%:P%=�crwind(tw%(1)):w%(1)=P%
|C�getw(P%):paneh%=y1%-y0%:panew%=x1%-x0%:�wext(P%,panew%,paneh%)
��
�
���makeflist:�X%,Y%,P%,T%
�6P%=�makewind(2):T%=�ta(P%):$T%="Fields="+�filename
� T%=�$T%+4:șswi%,sd64_%,1�G%
��G%<T%G%=T%
�X%=G%:�X%<21X%=21
�Y%=�v_(7):�Y%<2Y%=2
�3�wext(P%,X%*16+margin%*2,Y%*linegap%+margin%*2)
��
�
���makeilist:�X%,Y%,T%,P%
�7P%=�makewind(3):T%=�ta(P%):$T%="Indices="+�filename
 T%=�$T%+4:șswi%,sd64_%,2�G%
�G%<T%G%=T%
X%=G%:�X%<23X%=23
&Y%=�nindices:�Y%<2Y%=2
05�wext(P%,X%*16+margin%*2,Y%*linegap%+margin%*2):�
:
Dݤmakewind(T%):�P%,I%,K%
N4K%=w%(T%)>0:�K%�getw(w%(T%))��readblock(tw%(T%))
X2tx0%=x0%:ty0%=y0%:tx1%=x1%:ty1%=y1%:�align(T%)
b/�delfilew(T%):P%=�crwind(tw%(T%)):w%(T%)=P%
l,�open(P%,tx0%,ty0%,tx1%,ty1%,0,0,-1):=P%
v
�1ݤcrwind(T%):ș"Wimp_CreateWindow",,T%�T%:=T%
�
���initpane
�lcx%=-1:lcy%=-1:lcf%=-1
� �showcurs:�showfld:�showsize
��
�
�+��showcurs:�X%,Y%:X%=�v_(12):Y%=�v_(13)
��X%=lcx%�Y%=lcy%:�
�1�seti(w%(1),15,�X%+","+�Y%):lcx%=X%:lcy%=Y%:�
�
���showfld:șswi%,sd70_%�G%
��G%=lcf%:�


�T%,T$

T%=G%:�G%>0�

șswi%,sd17_%,11,G%�G%

 T$=�$sd%,16)

*�

4-�markfld(T%):�seti(w%(1),17,T$):lcf%=T%:�

>

H��showsize

RȎ�fspec �

\&�0:�seti(w%(1),5,"BBC Compatable")

f"�1:�seti(w%(1),5,"No Subsets")

p#�5:�seti(w%(1),5,"24 + 8 Bits")

z/:�seti(w%(1),5,�((�fspec-1)*8)+" Subsets")

��

��fsize%(0)<>0�fsize%(1)<>0�

�*�seti(w%(1),12,�(�fsize%(1)�1024)+"K")

�&�seti(w%(1),13,Ôfsize%(0)+" Cds")

��

�9�seti(w%(1),12,"(Format)"):�seti(w%(1),13,"(Format)")

��

��

�

�(��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%))
�

$��umess2
.Ȏq%!16�
8$�6:�q%!8=loadref%:�datasaveack:�
B�
L�
V
`��backgrnd:�T%
j�w_fsize%>0�checktype
t�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
�


�q%!84>0�
�I%=q%+88�q%+84+q%!84*32�32
�(I%!16)�(1<<8)�
(3I%!20=�workspace(I%!28):$(I%!20)=$T%:T%+=�$T%+1
2=�I%!24>0:I%!24=�workspace(�$T%+1):$(I%!24)=$T%:T%+=�$T%+1
<�
F�
P�
Zq%!64=sprites%
d�
n
x$��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%=&F00
�;� buffer% bufsz%:curbuf%=buffer%:endbuf%=buffer%+bufsz%
� �opentemplate(�dir+"MSFrm3")
:�template("stopbox"):ș"Wimp_CreateWindow",,q%�w_stop%
�template("save")
-q%!64=1:ș"Wimp_CreateWindow",,q%�w_save%
"<�template("ProgInfo"):ș"Wimp_CreateWindow",,q%�w_pinfo%
,>�template("ProgInfo2"):ș"Wimp_CreateWindow",,q%�w_pinfo2%
6;�template("shadow"):ș"Wimp_CreateWindow",,q%�w_shadow%
@bufsz%=&1F00
J6� template% bufsz%:tbs%=template%:tbe%=tbs%+bufsz%
Ttw%(0)=�template("file")
^ tw%(1)=�template("filepane")
h!tw%(2)=�template("FieldList")
r!tw%(3)=�template("FieldList")
| �opentemplate(�dir+"MSFrm4")
�=tw_fsize%=�template("FSize"):w_fsize%=-1E9:tw_fsize%!64=1
�0tw_finf%=�template("FieldInfo"):w_finf%=-1E9
�1tw_status%=�template("Status"):w_status%=-1E9
�.tw_mess%=�template("message"):w_mess%=-1E9
�1tw_passw%=�template("password"):w_passw%=-1E9
�0tw_aband%=�template("abandon"):w_aband%=-1E9
�1tw_fspec%=�template("filespec"):w_fspec%=-1E9
�1tw_csize%=�template("cardsize"):w_csize%=-1E9
�.tw_index%=�template("index"):w_index%=-1E9
�4tw_passw1%=�template("password1"):w_passw1%=-1E9
��
�
���loadsprites
ssize%=16*1024
�sprites% ssize%
2!sprites%=ssize%:ș"OS_SpriteOp",&109,sprites%
&.ș"OS_SpriteOp",&10A,sprites%,�dir+"MSSpr"
0�
:
D��defmenus
N�t$
X� mlist% 32,function% 51
bbufsz%=1100
lC� menufree% bufsz%:menuptr%=menufree%:menuend%=menufree%+bufsz%
vmenustart%=menufree%:�+2
��t$:m_main%=�crmenu(t$)
�N�"#MultiStore,Info>w_pinfo%,Transfer,Fast Sort,Create,Status,Printer,Quit"
��t$:m_wind%=�crmenu(t$)
�#�"#Window,Field,Index#,Tidy Up"
��t$:m_file%=�crmenu(t$)
��"#File,Size,Open,Abandon"
�+� t_copies% 3:�t$:m_copies%=�crmenu(t$)
��"#Copies,$t_copies%(3)"
��t$:m_card1%=�crmenu(t$)
�L�"#Card,Del.Line,Ins.Line,Copy Line>m_copies%,Clear,Size,Export>w_save%"
��t$:m_card%=�crmenu(t$)
�E�"#Card,Tools>w_pinfo%,Card>m_card1%,File>m_file%,Window>m_wind%"
��t$:m_status%=�crmenu(t$)
I�"#Statusmenu..,Align Windows,Update Media,Password,Extended Charset"
�t$:m_index%=�crmenu(t$)
 �"#Index,Create,Edit,Delete"
 �t$:m_fields%=�crmenu(t$)
*!�"#Field List,Export>w_save%"
4�
>
H��front(h%,X%,Y%)
R
�getw(h%)
\�X%>=0x1%+=X%-x0%:x0%=X%
f�Y%>=0y1%+=Y%-y0%:y0%=Y%
p*�open(h%,x0%,y0%,x1%,y1%,scx%,scy%,-1)
z�
�
�4��open(oh%,ox0%,oy0%,ox1%,oy1%,oscx%,oscy%,obh%)
��O%
�'!q%=oh%:ș"Wimp_GetWindowState",,q%
��wtof(oh%):�file%>=0�
�Ȏwind%�
��0:�openpane
�:�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%
$�
.
8��wimpopen
B5!q%=oh%:q%!4=ox0%:q%!8=oy0%:q%!12=ox1%:q%!16=oy1%
L>q%!20=oscx%:q%!24=oscy%:q%!28=obh%:ș"Wimp_OpenWindow",,q%
V�
`
j��openpane
t笤flg(f_pane%):�wimpopen:�
~�P%,f%:P%=w%(1)
�"f%=oy1%-paneh%:�f%<oy0%f%=oy0%
�
�getw(P%)
��bhandle%=obh%�obh%=w%(0)�
�obh%=P%
�:�open%�open(P%,ox0%-panew%-4,f%,ox0%-4,oy1%,0,0,obh%)
��
�,�getw(P%):f%=oy1%-paneh%:�f%<oy0%f%=oy0%
�
�wimpopen
�'�getw(w%(0)):�obh%=-2:obh%=bhandle%
�"f%=oy1%-paneh%:�f%<oy0%f%=oy0%
�0�open(P%,x0%-panew%-4,f%,x0%-4,y1%,0,0,obh%)
��


��closew(!q%)
�I%
�wtof(!q%)
(�file%>=0�
2Ȏwind%�
<,�0:�showbranch:�:��closeok%:�closeok:�
F�
P�
Z�!q%=dialogue%:�tidydial
dș"Wimp_CloseWindow",,q%
n!�nodial:�wtof(!q%):�file%>=0�
xȎwind%�
��0:�closefile(�)
��2,3:�delw(w%(wind%))
��
��
�
Ȏ!q%�
��w_stop%:stopfile%=-1
��w_status%:�delw(w_status%)
��w_passw%:�delw(w_passw%)
��w_mess%:�delw(w_mess%)
��w_finf%:�delw(w_finf%)
�'�w_fsize%:�delw(w_fsize%):�newdelay
��w_aband%:�delw(w_aband%)
��w_fspec%:�delw(w_fspec%)
�w_csize%:�delw(w_csize%)
�w_index%:�delw(w_index%)
�w_passw1%:�delw(w_passw1%)
"�
,�
6�
@
J��tidydial:�restorect
TDdialreason%=-1:dialogue%=-1:�closew(w_shadow%):exi0%=-1:exi1%=-1
^�
h
r��restorect
|�:��:��:�
�(ș "Wimp_GetCaretPosition",,workbuf%
�p�!workbuf%=dialogue%ș "Wimp_SetCaretPosition",!dialct%,dialct%!4,dialct%!8,dialct%!12,dialct%!16,dialct%!20
��
�
�;��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%:�
&
0.ݤta(h%):!q%=h%:ș"Wimp_GetWindowInfo",,q%
:,�(q%!60�&100)=0�1,"Title not indirected"
D
=q%!76
N
X��stop(r%,T$,U$)
bdialreason%=r%:stopfile%=T%
l#�-3��stopboxes%:mi%=3:�mstop:�
v+�seti(w_stop%,0,T$):�seti(w_stop%,1,U$)
�)�unselall(w_stop%):�dialogue(w_stop%)
�dialreason%=r%:stopfile%=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)
���Tlx:�
�4�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%
41mx%=!q%:my%=q%!4:mb%=q%!8:mh%=q%!12:mi%=q%!16
>�
H
Rݤdialogue:�file%
\6�dialogue%>=0�mh%<>dialogue%�mh%<>w_shadow%�nodial
f=�
p
z$��mouse(mx%,my%,mb%,mh%,mi%,mo%)
��dragreason%>=0�mb%>255:�
�7�wtof(mh%):�file%>=0�wind%=6�(mb%=1�mb%=4)�mi%<19:�
��mb%<16:�dialogue:�
�3w_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%:�
.
8'��iconupd(h%,i%):�iset(h%,i%,0,0):�
B
L��force(h%)
V	Ȏh%�
`.ș"Wimp_ForceRedraw",h%,-1E9,-1E9,1E9,1E9
j�
t�
~
���readblock(p%)
�7x0%=!p%:y0%=p%!4:x1%=p%!8:y1%=p%!12:� physical area
�Fscx%=p%!16:scy%=p%!20:bhandle%=p%!24:� scroll offsets, stack depth
�Jbx%=x0%-scx%:by%=y1%-scy%:� calculate physical co-ords of logical area
�>ex0%=p%!40:ey0%=p%!44:ex1%=p%!48:ey1%=p%!52:� logical area
�Agx0%=p%!24:gy0%=p%!28:gx1%=p%!32:gy1%=p%!36:� graphics window
�.open%=(p%!28�&10000)<>0:� window open flag
��
�
���getw(h%)
�%!q%=h%:ș"Wimp_GetWindowInfo",,q%
��readblock(q%+4)
�


��select
�numi(mh%,mi%,mb%)
(�file%>=0�
2Ȏwind%�
<
�0:�mcard
F
�1:�mpane
P�2:�mflist
Z�
d�
n
Ȏmh%�
x*�-2:�mb%=1��-1��-2:�oscli(""):��status
��w_stop%:�mstop
��w_save%:�msave
��w_finf%:�mfinf
��w_status%:�mstatus
�$�w_mess%:�mi%=6:�closew(w_mess%)
��w_passw%:�mpassw
��w_fsize%:�mfsize
��w_aband%:�maband
��w_fspec%:�mfspec
��w_csize%:�mcsize
��w_index%:�mindex
��w_passw1%:�mpassw1
��
�
�

"��mindex:�mi%<>13�mi%<>12:�
,�mi%=13�
6�T$,t$,I%,f%,T%
@:T$=�s($�ia(w_index%,1)):�T$<33��T$=48��T$>0:�err(111)
J-t$=�s($�ia(w_index%,3)):�t$<33:�err(112)
T f%=0:�wchi(w_index%):I%=q%:�
^
Ȏ!I%�
h�4:f%=f%�1
r�5:f%=f%�2
|�6:f%=f%�4
��7:f%=f%�8
��8:f%=f%�16
��9:f%=f%�64
��10:f%=f%�256
��11:f%=f%�128
��
�I%+=4:�I%!-4<0
�&T%=-1:�dialreason%=1:T%=menuindex%
�"șswi%,makeindex_%,T$,t$,f%,T%
��
��makeilist:�nodial:�
�
���mcard
�X%,Y%:�curmouse:�mb%<>1:�
șswi%,sd70_%�G%
#�G%>0:menufield%=G%:�finfo(�):�
&*X%=�v_(12):Y%=�v_(13):șswi%,sd11_%�G%
0�G%<>64�G%<>43:�
:șswi%,sd44_%,X%,Y%
D$șswi%,field_%,�v_(7)+1,"?",,,,7
Nșswi%,sd44_%,X%,Y%
X�matchct:�updline:�resize
b&�initpane:�updfds:șswi%,sd70_%�G%
l!�G%>0:menufield%=G%:�finfo(�)
v�
�
�-��mflist:�Y%:Y%=my%:�yconv(Y%,�v_(7),mh%)
�.menufield%=Y%:�mb%=1:�finfo(�):��findfield
��
�
���mpane
�
Ȏmi%�
�
�0:�csize
��1:�settab
��2:�delfield
�+�3:�stop(103,"",rl$+"destroy layout ?")
��4,5:�fspec
��12,13,19:�fsize
�
�

 
��mpassw1
*�mi%<2�mi%>3:�
4<�mi%=3:pass$=$�ia(w_passw1%,1):�nodial:�glayout:��nodial
>�
H
R��mstop:�mi%<3�mi%>4�
\%�T%:T%=dialreason%:dialreason%=-1
f�mi%=3�
p�closew(w_stop%)
z	ȎT%�
� �2:closeok%=�:�closew(w%(0))
��6:�CLOSE:�quit(�)
��20:stopboxes%=�
��26:�asccard
��27:șswi%,setpass_%,""
�+�36:�"*settype "+file$+" "+�~menufield%
�D�menufield%=ft_data%:�checkopen:�mstore("3:"+file$,"MultiStore")
��38:�picpath
��100:�nodial:�glayout:�
��101:�err(116)
��102:șswi%,delfield_%�G%
�%�updline:�resize:�matchct:�updfds
��103:șswi%,clear_%
�resize:�fext:�matchct
�forcecard:�updfds:�updixs
�104:�closefile(�)
$�105:�delindex
.�
8�
B�T%=1:�CLOSE:�quit(�)
L�
V�closew(w_stop%):�
`
j��msave
t�mi%<>0�
~0�T$:T$=$�ia(w_save%,2):�T$=�leaf(T$):�err(5)
�1savetype%=savet%:task%=-1:file$=T$:�savedata1
��
�
���mfinf
�
Ȏmi%�
��17:�closew(w_finf%)
�)�7:�geti(w_finf%,7):�(q%!24)�(1<<21)�
�+�geti(w_finf%,12):�((q%!24)�(1<<21))=0�
�)�unseli(w_finf%,10):�seli(w_finf%,11)
��
��
�
�13,14,15
=�unseli(w_finf%,10):�unseli(w_finf%,11):�seli(w_finf%,12)

�19
�T$,T%,B%,L%,K%,I%
�w%(2)>0�force(w%(2))
(BT$=$�ia(w_finf%,5):T%=�$�ia(w_finf%,2):�T%<1T%=1��T%>255T%=255
2$B%=��up(T$):�B%<65�B%>90�err(16)
<0L%=�$�ia(w_finf%,20):�L%<1L%=1��L%>255L%=255
F,B%=�$�ia(w_finf%,13):�B%<0B%=0��B%>6B%=6
PK%=�:�wchi(w_finf%):I%=q%:�
Z
Ȏ!I%�
d�6:K%=�
n�7:B%=B%�8
x�8:B%=B%�128
��9:B%=B%�64
��10:B%=B%�7
��11:B%=B%��7
��
�I%+=4:�I%!-4<0
�!șswi%,sd18_%,B%,4,menufield%
�șswi%,sd67_%,T$�G%
�7�G%<>menufield%�G%>0�setct(w_finf%,5,�T$):�err(115)
�șswi%,sd20_%,T$,menufield%
��dialreason%�
�#�K%:șswi%,makekey_%,menufield%
�&�K%:șswi%,removekey_%,menufield%
�"șswi%,flength_%,L%,menufield%
2�T%<>menufield%:șswi%,fnumber_%,T%,menufield%
menufield%=T%
�
"7�nodial:�resize:�initpane:�updline:�updfds:�matchct
,�
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%��mpassw:�mi%=4:�closew(w_passw%)
 :�mi%<>3�
 D7�T$,t$:T$=�su($�ia(w_passw%,5)):șswi%,sd63_%,T$�G%
 N7�G%=2:�setct(w_passw%,5,�$�ia(w_passw%,5)):�err(51)
 X5T$=�su($�ia(w_passw%,1)):t$=�su($�ia(w_passw%,2))
 b�T$<>t$:�err(47)
 l<�T$="":�stop(27,fi$+�filename,rl$+"delete password ?"):�
 vșswi%,setpass_%,T$
 ��closew(w_passw%):�
 �
 ���mfsize
 �
�T$,T%,t%
 ��
 �+��:��:�seti(w_fsize%,11,f_cf$):�err(0)
 �
Ȏmi%�
 ��12
 �T$=$�ia(w_fsize%,11)
 �!秤u(T$),"$SCRAP>"):�err(102)
 �$�T$=�leaf(T$):f_cf$=T$:�err(101)
 �8�remove:f_cf$=T$:fn$=T$:T%=q%:�wchi(w_fsize%):t%=2:�
 �
Ȏ!T%�
!�3:t%=0
!�4:t%=1
!�
! T%+=4:�T%!-4<0
!*	Ȏt%�
!4#�0:�setcards(�$�ia(w_fsize%,6))
!>#�1:�setbytes(�$�ia(w_fsize%,7))
!H�2:�setform
!R�
!\�nodial:�showsize
!f2�6,7:�unselall(w_fsize%):�seli(w_fsize%,mi%-3)
!p5�3,4:�setct(w_fsize%,mi%+3,�$�ia(w_fsize%,mi%+3))
!z�13:�nodial
!��
!��
!�
!���maband:�T%:T%=dialreason%
!�
Ȏmi%�
!�
�3:�fsize
!�*�4:�nodial:�closefile(�):�T%=2�quit(�)
!��
!��
!�
!���mfspec:�T%,t%
!�
Ȏmi%�
!�6�6:t%=�fspec:�wchi(w_fspec%):T%=!q%:�T%>=0�T%<>t%�
"�T%<>0�
"șswi%,subbytes_%,T%-1
"�resize
"$�
".8�stop(101,rl$+"make this file","BBC compatable ?"):�
"8�
"B�
"L�nodial
"V�7:�nodial
"`�:�
"j
"t��mcsize:�w%,h%,I%
"~
Ȏmi%�
"��65:�nodial
"��64
"�w%=�$�ia(w_csize%,61)
"�h%=�$�ia(w_csize%,57)
"��I%=1�2
"�șswi%,width_%,w%
"�șswi%,height_%,h%
"��
"�-�fext:�forcecard:�matchct:�resize:�nodial
"�!�v_(5)<>h%��v_(6)<>w%:�buzz2
"��:�
"�
#��startdrag
#
"dragreason%=-1:dragbutton%=mb%
#�wtof(mh%):�file%>=0�
#Ȏwind%�
#(�0
#2�mb%=16�
#<dragreason%=4:�dragcard
#F�
#P�curmouse:șswi%,sd70_%�G%
#Zmenufield%=G%
#d<�G%>0dragreason%=3:�dragfield:�dragreason%=101:�dragtext
#n�
#x�1
#�
Ȏmi%�
#�'�6:dragreason%=1:�dragicon(mh%,mi%)
#��
#��2
#�0menufield%=my%:�yconv(menufield%,�v_(7),mh%)
#�dragreason%=3:�dragfield1
#��
#��
#�
Ȏmh%�
#�6�w_save%:�mi%=3:dragreason%=5:�dragicon(w_save%,3)
#�8�w_fsize%:�mi%=10:dragreason%=100:�dragicon(mh%,mi%)
#��
#��
$�
$
$
��enddrag
$"�readpointer
$,
�mh%<>-1�
$6�T$
$@Ȏdragreason%�
$J�1:�carddr
$T�3:�fielddr
$^�4:�carddr1
$hA�5:�savereq(�leaf($�ia(w_save%,2)),savet%,saves%,savereason%)
$r9�100:�savereq(�leaf($�ia(w_fsize%,11)),&DE7,�ext,100)
$|�101:�textdr
$��
$��
$��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:�
%&
%07��wchi(h%):ș"Wimp_WhichIcon",h%,q%,&200000,&200000
%:�
%D
%N
��menu
%X�wtof(mh%):�file%>=0�
%bȎwind%�
%l�0,1:�cardmenu
%v�2:�pop(m_fields%,-1)
%��3:�pop(m_index%,-1)
%��
%��
%�
Ȏmh%�
%�$�-2:my%=64+7*44:�pop(m_main%,-1)
%��w_status%:�statmenu
%��
%��
%��
%�
%�!��cardmenu:�pop(m_card%,-1):�
%�
%�1��statmenu:�v_(1)=1�mi%=15�pop(m_status%,-1)
&�
&
&ݤpar(t$,s$,� i%):�i1%
& i1%=i%+1:i%=�t$+s$,s$,i1%)
&*=�t$,i1%,i%-i1%)
&4
&>ݤcrmenu(menu$)
&H.�menufree%+28>menuend%�99,"Menu area full"
&R� m%
&\menuptr%=menufree%
&fi%=0
&pC� �menu$,1)="#"i%=1:menutitle$=�par(menu$,",",i%)�menutitle$=""
&z$menuptr%=menutitle$
&�;menuptr%?12=7:menuptr%?13=2:menuptr%?14=7:menuptr%?15=0
&�3menuptr%!16=196-24:menuptr%!20=44:menuptr%!24=0
&�"menuptr%+=28:maxx%=�menutitle$
&��item$=�par(menu$,",",i%)
&��menuitem(item$)
&�� item$=""
&�$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$,"}")
'8;�i%>0subptr%=��text$,i%+1):text$=�text$,i%-1):flg%+=&08
'B)��text$,1)="#"text$=�text$):flg%+=&02
'L;menuptr%!0=flg%:menuptr%!4=subptr%:menuptr%!8=&07000021
'V�text$,1)="$"�
'`2!menuptr%+=&04:menuptr%!8+=&100:i%=�text$,"(")
'j3�i%>0�L%=��text$,i%+1):text$=�text$,i%-1)�L%=12
't8menuptr%!12=��text$,2):menuptr%!16=-1:menuptr%!20=L%
'~text$=�L%," ")
'��
'��text$<=12�
'�$(menuptr%+12)=text$
'��
'�%I%=�workspace(�text$+1):$I%=text$
'�6menuptr%!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%
((
(2��prep(menu%,tree%)
(<�I%,T$:�clearts(menu%)
(FȎmenu%�
(P�m_main%:�mp_main
(Z�m_card%:�mp_card
(d�m_card1%:�mp_card1
(n�m_file%:�mp_file
(x�m_wind%:�mp_wind
(��m_status%:�mp_status
(��m_index%:�mp_index
(��m_fields%:�mp_fields
(��
(��
(�
(���mp_index
(�menuindex%=�mousei
(�1�menuindex%<=0�shade(menu%,1):�shade(menu%,2)
(��
(�
(�
��mp_card
(�T%=menu%+28+0*24+4
)4�flg(f_pane%):�tick(menu%,0):!T%=-1:�:!T%=w%(1)
)-�prep(m_file%,tree%):�prep(m_wind%,tree%)
)"�prep(m_card1%,tree%):�matchct
)"�
),
)6��mp_fields:�v_(1)<>1:�
)@șswi%,sd64_%,1�G%
)J-�saveset(f_fl$,&FFF,3,�v_(7)*G%+�v_(7)):�
)T
)^��mp_card1
)h$t_copies%="1"
)r"�saveset(f_cd$,&FFF,1,�wd*�ht)
)|�
)�
)�
��mp_file
)�,�v_(7)=0�shade(menu%,0):�shade(menu%,1)
)�)�fn$=unt$�fsize%(0)=0:�shade(menu%,1)
)��
)�
)�
��mp_wind
)��w%(2)>0�tick(menu%,0)
)��w%(3)>0�tick(menu%,1)
)��
)�
)�
��mp_main
)�>�v_(1)<>0�(fn$=unt$��v_(7)=0�fsize%(0)=0):�shade(menu%,1)
*L�v_(1)>0:�shade(menu%,2):�shade(menu%,3):�tick(menu%,3):�shade(menu%,5)
*�
*
*&��mp_status
*0$menu%=�filename
*:!笤flg(f_7bit%)�tick(menu%,3)
*D�
*N
*X$��pop(menu%,tree%):�process%>0:�
*b�menu%<0:�
*l�prep(menu%,tree%)
*v,ș"Wimp_CreateMenu",,menu%,mx%-50,my%+32
*�openmenu%=menu%
*��
*�
*���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_status%:�m_status
+4�m_index%:�m_index
+>�m_fields%:�m_fields
+H�
+R�mb%=1�
+\#�pop(openmenu%,mlist%):��nomenu
+f�
+p�
+z�
+�
+���m_fields
+��
+�
+���m_main
+�Ȏ!mlist%�
+��0:�dialogue(w_info%)
+��1:�transfer
+��2:�fastsort
+��3:�makeform
+��4:�status
+��5:�pdriver
+�!�6:�v_(1)=0:�quit(�):��qquit
,�
,�
,
,$
��m_index
,.Ȏ!mlist%�
,8�0:�newindex(-1)
,B�1:�editindex
,LG�2:�stop(105,"Index: "+�indexname(menuindex%),rl$+"delete index ?")
,V�
,`�
,j
,t��m_card
,~Ȏ!mlist%�
,��0:�swpane
,��1:�m_card1
,��2:�m_file
,��3:�m_wind
,��
,��
,�
,���m_wind
,��T%:T%=mlist%!4
,�5�T%>-1�T%<maxw%-1:�w%(T%+2)>0:�closew(w%(T%+2)):�
,�	ȎT%�
,��0:�fieldlist
-
�1:�index
-

�2:�wtidy
-�
-�
-(
-2��m_file
-<Ȏmlist%!4�
-F
�0:�fsize
-P�1:�openfile
-Z�2
-d�v_(7)=0�
-n�closefile(�)
-x�
-�(�stop(104,"",rl$+"abandon layout ?")
-��
-��
-��
-�
-�
��m_card1
-�Ȏmlist%!4�
-�
�0:�delln
-�
�1:�insln
-��2:�copyln
-�+�3:�stop(103,"",rl$+"destroy layout ?")
-�
�4:�csize
-��
.�
.
.��m_status
."Ȏ!mlist%�
.,�0:�walign
.6�1:șswi%,sd43_%
.@�2:�getpass
.J
�3:�swap7
.T�
.^�
.h
.r��submenu(menu%,X%,Y%,q%)
.|�I%
.�-I%=0:�mlist%!I%=q%!I%:I%+=4:�q%!(I%-4)=-1
.��prep(openmenu%,mlist%)
.�'ș"Wimp_CreateSubMenu",,menu%,X%,Y%
.��
.�
.� ��clearts(mh%):�I%:I%=mh%+28
.�"�mh%<menustart%�mh%>menuend%:�
.��
.�"!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:�
/0 
/:��redraw(update%)
/D�h%,T%:�update%�
/N%ș"Wimp_UpdateWindow",,q% � more%
/X�
/b%ș"Wimp_RedrawWindow",,q% � more%
/l�
/v%h%=!q%:�wtof(h%):�readblock(q%+4)
/�ȕ more%
/�T%=�:�:��:T%=�
/��T%�
/�"�-3:�rectfill(�$):���:�err(0)
/��
/��file%>=0�
/�Ȏwind%�
/��0:�drawcard
/��2:�drawflist
/��3:�drawilist
/��
/��
/��
0�
0��
0!q%=h%:more%=�nextrectangle
0 �
0*�
04
0>��drawcard
0H�gcol(0,7):�gcol(0,128)
0R,�bx%+margin%,by%-margin%:șswi%,wimp_%,1
0\�
0f
0p9��drawflist:�T%,X%,Y%,x%,y%:T%=&10000:�update%T%=T%�1
0z2�v_(7)=0�rectfill("No fields in this file"):�
0�/�bx%+margin%,by%-margin%-4:șswi%,wimp_%,T%
0�șswi%,sd70_%�G%
0�
�G%>0�
0�AX%=bx%:Y%=by%-margin%-G%*linegap%:y%=Y%+linegap%+3:x%=X%+5000
0��X%<gx0%X%=gx0%
0��x%>gx1%x%=gx1%-1
0��Y%<gy0%Y%=gy0%
0��y%>gy1%y%=gy1%-1
0�l�y%>=Y%�x%>=X%�24,X%;Y%;x%;y%;:�gcol(0,128+7):�gcol(0,1):�bx%+margin%,by%-margin%-4:șswi%,wimp_%,&10001
0��
0��
0�
0�-��drawilist:�T%:T%=&20000:�update%T%=T%�1
16�nindices=0�rectfill("No indices in this file"):�
1/�bx%+margin%,by%-margin%-4:șswi%,wimp_%,T%
1�
1$
1.4ݤnextrectangle:�T%:ș"Wimp_GetRectangle",,q%�T%
18�readblock(q%+4):=T%
1B
1L��rectfill(T$)
1V�gcol(0,3):�I%,J%,L%,X%,Y%
1`L%=�T$*16+48
1j,X%=bx%+margin%:J%=gx0%-X%:X%=X%-J%+J%�L%
1t=J%=by%-gy1%-margin%:J%=J%-J%�linegap%:Y%=by%-margin%-4-J%
1~�J%=Y%�gy0%�-linegap%
1�%�X%,J%:�I%=X%�gx1%�L%:�T$" - ";:�
1��:�
1�
1���waitpoint
1�waiter%+=1
1�ș"Hourglass_On"
1��
1�
1���normpoint
1�8ȕwaiter%>0:ș"Hourglass_Off":waiter%-=1:�:waiter%=0
1��
1�
2��gcol(m%,c%)
2
!ș"Wimp_SetColour",(m%<<4)+c%
2�
2
2(��dataloadack
22!q%=20:q%!12=ref%:q%!16=4
2<$ș"Wimp_SendMessage",17,q%,task%
2F�
2P
2Z��datasaveack
2d<�ArfVar("Wimp$Scrap")="":�99,"<Wimp$Scrap> not defined"
2nA!q%=60:q%!12=ref%:q%!16=2:q%!36=-1:$(q%+44)="<Wimp$Scrap>"+�0
2x1ș"Wimp_SendMessage",17,q%,task%:ackref%=q%!8
2��
2�
2���savereq(T$,t%,s%,r%)
2�:savereason%=r%:q%!32=my%:q%!28=mx%:q%!24=mi%:q%!20=mh%
2�8q%!16=1:q%!12=0:q%!36=s%:q%!40=t%:!q%=(�T$+53)�&FFFC
2�9$(q%+44)=T$+�5,�0):ș"Wimp_SendMessage",17,q%,mh%,mi%
2� saveref%=q%!8:savetype%=t%:�
2�
2�&��loadmess:�readpointer:�task%<0:�
2�+$(q%+44)=file$+�0:!q%=(�file$+49)�&FFFC
2�&q%!12=ref%:q%!16=3:q%!40=savetype%
2�?q%!20=mh%:q%!24=mi%:q%!28=mx%:q%!32=my%:q%!36=�fsize(file$)
2�$ș"Wimp_SendMessage",17,q%,task%
3ackpending%=�:�
3
3&ݤfsize(T$):�T%,s%:T%=�T$:�T%=0:=0
3"s%=�#T%:�#T%:=s%
3, 
36ݤzts(T%):�T$
3@ȕ?T%<>0:T$+=�?T%:T%+=1:�
3J=T$
3T
3^)��key(h%,icon%,x%,y%,carh%,off%,key%)
3h(�wtof(h%):�file%>=0:�cardkey(key%):�
3r�F%:F%=�
3|Ȏkey%�
3��9,&18A:�findct
3��13:�cursor(h%,icon%,1,0)
3��19:�swapcase
3�"�27:�dialogue%>=0�nodial:�F%=�
3��&181:笤prod:�quit(�)
3�#�&18F:�cursor(h%,icon%,-1,off%)
3�"�&18E:�cursor(h%,icon%,1,off%)
3�#�&19F:�cursor(h%,icon%,-5,off%)
3�"�&19E:�cursor(h%,icon%,5,off%)
3�(�&1AF,30:�cursor(h%,icon%,-1E9,off%)
3�$�&1AE:�cursor(h%,icon%,1E9,off%)
3�	F%=�
3��
4	�F%:�
4ș"Wimp_ProcessKey",key%
4�
4&
40��cardkey(key%)
4:0�F%,X%,Y%,T%:F%=�:X%=�v_(12):Y%=�v_(13):T%=0
4DȎkey%�
4N�9,&18A:�findct
4X�13:X%=1:Y%+=1
4b�19:șswi%,sd11_%�G%
4l<�G%>64�G%<91key%=G%+32:��G%>96�G%<123key%=G%-32:�key%=G%
4v�&181:笤prod:�quit(�)
4��&18F:Y%-=1
4��&18E:Y%+=1
4��&19F:Y%-=5
4��&19E:Y%+=5
4��&1AF,30:Y%=1
4��&1AE:Y%=�v_(5)
4��&18C:X%-=1
4��&18D:X%+=1
4��&19C:X%-=5
4��&19D:X%+=5
4��&1AC:X%=1
4��&1AD:X%=�v_(6)
4��&19B,&1CD:șswi%,sd70_%�G%
5T%=G%:șswi%,sd15_%
5�updline:�T%>0�resize
5T%=0
5 �127:X%-=1:șswi%,sd70_%�G%
5*T%=G%:șswi%,sd16_%
54�updline:�T%>0�resize
5>T%=1
5H�&1AB,&1ED:�insln
5R�25:�delln
5\	F%=�
5f�
5p �key%>31�key%<255�key%<>127�
5zX%+=1:șswi%,sd12_%,key%
5��updchr
5��
5�"�X%<1X%=1:��X%>�v_(6)X%=�v_(6)
5�"�Y%<1Y%=1:��Y%>�v_(5)Y%=�v_(5)
5� �T%�X%<>�v_(12)�Y%<>�v_(13)�
5�șswi%,sd44_%,X%,Y%
5��matchct
5��
5�	�F%:�
5�ș"Wimp_ProcessKey",key%
5��
5�
5�,��swapcase:�getct:T%=q%!20+�ia(!q%,q%!4)
63�?T%<123�?T%>96 ?T%-=32:��?T%<91�?T%>64 ?T%+=32
6*�getct:�?T%>31�setct(!q%,q%!4,q%!20+1)
6�getct:�iconupd(!q%,q%!4):�
6$
6.+��getct:ș"Wimp_GetCaretPosition",,q%:�
68
6B=��setct(h%,i%,o%):ș"Wimp_SetCaretPosition",h%,i%,,,-1,o%
6L�i%>=0�findct
6V�
6`
6jݤnumi(h%,i%,b%)
6t	��T^w
6~�U%,D%,N%,T%,B%,W%,F%,S%,V%
6�ȕW%<>-1�F%=�
6��W%:�U%,D%,N%,T%,B%
6��W%=h%�
6��i%=U%�i%=D%�
6�F%=�
6�V%=�$�ia(W%,N%)
6�S%=1:�i%=D%:S%=-1
6��b%=1:S%=S%*10
6�V%+=S%:�V%<B%:V%=B%
6��V%>T%V%=T%
6��seti(W%,N%,�V%)
6��
7�
7
�
7=F%
7�w_finf%,3,4,2,255,1
7(�w_finf%,18,21,20,255,1
72�w_finf%,14,15,13,6,1
7<�w_csize%,56,58,57,255,1
7F�w_csize%,60,62,61,255,1
7P�-1,-1,-1,-1,-1,-1,-1
7Z
7d��cursor(h%,i%,s%,o%)
7n	��Tlx
7x
�W%,T$,I%
7�ȕW%<>-1
7��W%:�W%<>h%�
7��W%<>-1:�:�W%:�W%<-1:W%=0
7��
7��
7��W%:�W%<>-1:T$+=�(W%)
7��W%<-1:T$=�T$)
7�;�key%=13:��T$)=i%:mi%=�(W%+100):mb%=1:mh%=h%:�select:�
7�/�s%=1E9:s%=�T$:��s%=-1E9:s%=1:�s%+=�T$,�i%)
7�ȕs%>�T$:s%-=�T$:�
7�ȕs%<1:s%+=�T$:�
7�I%=��T$,s%)
7�#�o%>�$�ia(h%,I%)o%=�$�ia(h%,I%)
8�setct(h%,I%,o%)
8�
8�
8"�
8,�w_save%,2,-100
86�w_passw%,5,1,2,-103
8@�w_passw1%,1,-103
8J"�w_finf%,5,exi0%,13,exi1%,-119
8T�w_fsize%,6,7,11,-112
8^�w_csize%,61,57,-164
8h�w_index%,1,3,-111
8r�-1
8|
8�ݤleaf(T$)
8�
�I%,C%
8�$�((�T$,".")=0)�(�T$,":")=0))�=T$
8�I%=�(T$)
8��
8�C%=��T$,I%,1)
8�	I%-=1
8��(I%<=0�C%=�"."�C%=�":")
8��I%>0�=�T$,�(T$)-I%-1)
8�=T$
8�
8�3��wext(h%,x%,y%):!q%=0:q%!4=-y%:q%!8=x%:q%!12=0
8�'ș"Wimp_SetExtent",h%,q%:�force(h%)
9�getw(h%):�open%�
9�x1%-x0%>x%:x%+=x0%:�x%=x1%
9!�y1%-y0%>y%:y%=y1%-y%:�y%=y0%
9&.�open(h%,x0%,y%,x%,y1%,scx%,scy%,bhandle%)
90�
9:�
9D
9N
��process
9X-�dialreason%>=0�dialogue%>=0�ackpending%�
9bȎprocess%�
9l�1:�checkprot
9vQ�2:�stop(1,"Please place original","MultiStore disk in drive :0"):process%+=1
9��3:�checkprot
9��4:�startopen
9�process%=0
9��
9�
�newdelay
9��
9�
9���dragicon(h%,i%)
9�"�x%,y%,ys%,tx0%,ty0%,tx1%,ty1%
9�,�getw(h%):ys%=y1%-y0%:x%=bx%:y%=y0%-scy%
9�1�geti(h%,i%):q%!8+=x%:q%!12+=y%+ys%:q%!16+=x%
9�0q%!20+=y%+ys%:q%!24=0:q%!28=0:!q%=0:�drag5:�
9�
:<��drag5:�readpointer:�scrsz:tx0%=mx%-q%!8:ty0%=my%-q%!12
:=q%!24-=tx0%:q%!28-=ty0%:q%!32+=q%!16-mx%:q%!36+=q%!20-my%
:!q%!4=5:ș"Wimp_DragBox",,q%:�
: 
:*ݤlower(T$):�T$="":=""
:4
�I%,C%
:>�I%=1��T$:C%=��T$,I%)
:H"�C%>64�C%<91�T$,I%,1)=�(C%+32)
:R	�:=T$
:\
:f$��wtof(T%):�J%:wind%=-1:file%=-1
:p-�J%=0�maxw%:�w%(J%)=T%:file%=0:wind%=J%:�
:z�:�
:�
:�
��fext
:�
�x%,y%
:�1y%=�ht*linegap%+margin%*2:�y%<paneh%y%=paneh%
:�)x%=�wd*16+margin%*2:�x%<22*16x%=22*16
:�>!q%=0:q%!4=-y%:q%!8=x%:q%!12=0:ș"Wimp_SetExtent",w%(0),q%
:��getw(w%(0))
:��x1%-x0%>x%:x%+=x0%:�x%=x1%
:�!�y1%-y0%>y%:y%=y1%-y%:�y%=y0%
:�1�open(w%(0),x0%,y%,x%,y1%,scx%,scy%,bhandle%)
:��
:�
:�"ݤht:șswi%,sd57_%,"height"�G%
;!ݤwd:șswi%,sd57_%,"width"�G%
;=G%
;
;$5��updchr:q%!4=margin%+�v_(12)*16-16:q%!12=q%!4+16
;.!��updline:q%!4=-1E9:q%!12=1E9
;80q%!8=-margin%-linegap%*�v_(13):q%!16=q%!8+32
;B!q%=w%(0):�redraw(�):�
;L
;V��startopen
;`%T$=�ArfVar("MultiStore$Function")
;j
Ȏ�T$�
;t�1:�makeform
;~�
;�*unset MultiStore$Function
;�process%+=1:�
;�
;���ready
;��
;�
;�
��closeok
;��fn$<>unt$�
;�'�stop(2,"","Close file "+�filename)
;��
;�Aw_aband%=�crwind(tw_aband%):�dialogue(w_aband%):dialreason%=1
;��
<�
<

<ݤfilename
<șswi%,stat_%�G%
<(=¤leaf($sd%),10)
<2
<<��swpane
<F"�flgx(f_pane%):�flg(f_pane%)�
<P�getw(w%(0))
<Z3�open(w%(0),x0%,y0%,x1%,y1%,scx%,scy%,bhandle%)
<d�
<n�getw(w%(1))
<x;�open(w%(1),x0%,y1%-paneh%,x0%+panew%,y1%,scx%,scy%,-2)
<��closew(w%(1))
<��
<��
<�
<���forcecard:�force(w%(0)):�
<�
<�$ݤhdbyte(T%):șswi%,sd13_%,T%�G%
<�=G%
<�
<�&��fieldlist:�w%(2)<=0:�makeflist:�
<��front(w%(2),-1,-1):�
<�
<�"��index:�w%(3)<=0:�makeilist:�
=�front(w%(3),-1,-1):�
=
=��carddr
="�wtof(mh%):�file%>=0�
=,Ȏwind%�
=6�
=@�
=J
Ȏmh%�
=T%:�savereq("Card",&FFF,�wd*�ht,1)
=^�
=h�
=r�
=|
=�
��carddr1
=�+tx0%=!q%:tx1%=q%!8:ty0%=q%!4:ty1%=q%!12
=�4�(tx0%-tx1%)<10��(ty0%-ty1%)<10:mb%=1:�select:�
=�;�cxconv(tx0%):�cxconv(tx1%):�cyconv(ty0%):�cyconv(ty1%)
=��tx0%>tx1%:Ȕtx0%,tx1%
=��ty0%>ty1%:Ȕty0%,ty1%
=�4�savew(f_cd$,&FFF,2,(tx1%-tx0%+1)*(ty1%-ty0%+1))
=��
=�
=���fielddr:�X%,Y%
=��wtof(mh%):�file%>=0�
=�Ȏwind%�
=��0
>=X%=mx%:Y%=my%:�cxconv(X%):�cyconv(Y%):șswi%,sd44_%,X%,Y%
>�matchct:șswi%,sd70_%�G%
>(�G%>0�G%<>menufield%�copyfield(G%):�
>&@tx0%=mx%-tx0%+8:ty0%=my%-ty0%+16:�cxconv(tx0%):�cyconv(ty0%)
>0JX%=tx0%:Y%=ty0%:�forcefield(menufield%):șswi%,sd21_%,X%,Y%,menufield%
>:%�updatefield(menufield%):�matchct
>D=�2:�yconv(my%,�v_(7),mh%):șswi%,fnumber_%,my%,menufield%
>N�force(mh%):�matchct
>X�3:�newindex(menufield%)
>b�
>l�
>vF�mh%=w_index%�mi%=3:�seti(mh%,3,�addfield($�ia(mh%,3),menufield%))
>��
>��
>�
>���textdr:�X%,Y%,I%,T$
>��wtof(mh%):�file%>=0�
>�Ȏwind%�
>��0
>�@tx0%=mx%-tx0%+8:ty0%=my%-ty0%+16:�cxconv(tx0%):�cyconv(ty0%)
>�+X%=�v_(12):Y%=�v_(13):$sd%=ĩtext$," ")
>�"șswi%,text_%,$sd%,txtx%,txty%
>�*�updline:șswi%,text_%,text$,tx0%,ty0%
>�șswi%,sd38_%,255
>��updline:�matchct
?�
?�
?�
? �
?*
?4!��savedata:�q%!12<>saveref%:�
?>file$=�zts(q%+44)
?H>�savereason%=100:mi%=12:�seti(w_fsize%,11,file$):�mfsize:�
?R�savedata1:�
?\
?f ��savedata1:�closew(w_save%)
?p,outfile%=0:outfile%=�file$:�outfile%=0:�
?z�
?���:��:�#outfile%:�err(0)
?�Ȏsavereason%�
?��1:�savecard:�newfn(f_cd$)
?��2:�savecard1:�newfn(f_cd$)
?��3:�saveflist:�newfn(f_fl$)
?��
?���:�#outfile%
?�/�"settype "+file$+" "+�~savetype%:�loadmess
?�savereason%=-1:�nomenu
?��
?�
?���savecard:�I%
?�0�:��:��:șswi%,sd38_%,255:�matchct:�err(0)
@șswi%,sd38_%,fieldchr%
@�I%=1��ht:șswi%,gline_%,I%
@%�dprint($sd%):�:șswi%,sd38_%,255
@$�matchct:�
@.
@8��savecard1:�I%
@B0�:��:��:șswi%,sd38_%,255:�matchct:�err(0)
@Lșswi%,sd38_%,fieldchr%
@V#�I%=ty0%�ty1%:șswi%,gline_%,I%
@`8�dprint(�$sd%,tx0%,tx1%-tx0%+1)):�:șswi%,sd38_%,255
@j�matchct:�
@t
@~��saveflist:�I%
@�1�v_(7)=0:�dprint("No fields in this file"):�
@�'�I%=1��v_(7):șswi%,sd17_%,11,I%�G%
@��dprint(�$sd%)):�:�
@�
@�1ݤmousei:�Y%,T%:Y%=my%:T%=�nindices:�T%<=0:=0
@��yconv(Y%,T%,mh%):=Y%
@�
@�$��dragfield:�fieldsz(menufield%)
@�9!q%=w%(0):q%!8=bx%+tx0%:q%!12=by%+ty0%:q%!16=bx%+tx1%
@�2q%!20=by%+ty1%:q%!24=0:q%!28=0:q%!4=5:�drag5:�
@�
@�5��dragtext:�L%,x%,y%,T$,T%:�getw(w%(0)):!q%=w%(0)
A9X%=�v_(12):Y%=�v_(13):L%=-1:tx0%=X%:șswi%,gline_%,Y%
A
4G%=?(sd%+tx0%-1):ȕtx0%>1��(G%=32�L%=32)�G%<>255
ACtx0%-=1:L%=G%:G%=?(sd%+tx0%-1):�:tx0%-=(G%=32)+(L%=32)+(G%=255)
A"L%=-1:tx1%=X%:G%=?(sd%+tx1%-1)
A((ȕtx1%<�v_(6)��(G%=32�L%=32)�G%<>255
A2Ctx1%+=1:L%=G%:G%=?(sd%+tx1%-1):�:tx1%+=(G%=32)+(L%=32)+(G%=255)
A<>G%=?(sd%+X%-1):�tx0%>tx1%�tx0%=tx1%�G%=32:dragreason%=-1:�
AFșswi%,sd44_%,X%,Y%
AP5text$=�$sd%,tx0%,tx1%-tx0%+1):txtx%=tx0%:txty%=Y%
AZ0tx0%=margin%+16*tx0%-16:tx1%=margin%+16*tx1%
Ad7ty0%=-margin%-linegap%*�v_(13):ty1%=ty0%+linegap%+4
An/q%!8=bx%+tx0%:q%!12=by%+ty0%:q%!16=bx%+tx1%
Ax2q%!20=by%+ty1%:q%!24=0:q%!28=0:q%!4=5:�drag5:�
A�
A���dragfield1:�Y%
A�<�getw(w%(2)):Y%=by%-menufield%*linegap%-margin%+linegap%
A�Aq%!8=bx%+margin%:!q%=w%(2):q%!12=Y%-32:q%!16=bx%+ex1%-margin%
A�,q%!20=Y%:q%!24=0:q%!28=0:q%!4=5:�drag5:�
A�
A���dragcard:�dialogue:�
A�!q%=w%(0):�getw(!q%)
A�*q%!8=mx%:q%!12=my%:q%!16=mx%:q%!20=my%
A�>q%!24=bx%+ex0%+margin%:q%!28=by%+ey1%-margin%-�ht*linegap%
A�!q%!32=bx%+ex0%+margin%+�wd*16
A�6q%!36=by%+ey1%-margin%:q%!4=6:ș"Wimp_DragBox",,q%
A��
B
B)��cxconv(� X%):�xconv(X%,�wd,w%(0)):�
B)��cyconv(� Y%):�yconv(Y%,�ht,w%(0)):�
B"
B,!��yconv(� Y%,T%,h%):�getw(h%)
B68Y%=(by%-Y%-margin%)�linegap%+1:�Y%<1Y%=1��Y%>T%Y%=T%
B@�
BJ
BT!��xconv(� X%,T%,h%):�getw(h%)
B^2X%=(X%-bx%-margin%)�16+1:�X%<1X%=1��X%>T%X%=T%
Bh�
Br
B|��savew(f$,T%,r%,s%)
B��saveset(f$,T%,r%,s%)
B��dialogue(w_save%):�
B�
B���saveset(f$,T%,r%,s%)
B�&savereason%=r%:savet%=T%:saves%=s%
B�>�seti(w_save%,2,f$):$�va(w_save%,3)="sfile_"+�"00"+�~T%,3)
B��
B�
B���CLOSE
B�&�v_(1)>0:closeok%=�:�closefile(�)
B��
B�
B�
��prequit
C�v_(1)>0�ackrec:�qquit
C�
C
C&8��ackrec:q%!12=ref%:ș"Wimp_SendMessage",19,q%,task%
C0�
C:
CD��qquit:�fn$<>unt$�
CN'�stop(6,"Close files and quit",as$)
CX�
CbAw_aband%=�crwind(tw_aband%):�dialogue(w_aband%):dialreason%=2
Cl�
Cv�
C�
C�%ݤfname(T%):șswi%,sd17_%,9,T%�G%
C�	=$sd%
C�
C�3ݤfname1(T%):�T%<0:="N%":�șswi%,sd17_%,4,T%�G%
C�.�(G%�7)=7:="@"+�fname(T%):�="#"+�fname(T%)
C�
C���flg0(T%):flg%=flg%��T%:�
C���flg1(T%):flg%=flg%�T%:�
C���flgx(T%):flg%=flg%�T%:�
C�+��flgm(M%,F%):flg%=(flg%��M%)�(F%�M%):�
C�/��flg(T%,F%):flg%=(flg%��T%)�((F%<>0)�T%):�
C�ݤflg(T%)=(flg%�T%)<>0
D
Dݤev(A$,s%,u%)
D$sd%="N":�s%$sd%+="S"
D �u%$sd%+="U"
D*șswi%,expand_%,A$,$sd%
D4
=�$sd%
D>
DH��wtidy
DR,�I%:�I%=2�maxw%:�w%(I%)>0�closew(w%(I%))
D\�:�
Df
Dp��buzz2:șswi%,beep_%
Dz�
D�
D���finfo(f%)
D�*�L%,T$,T%:T%=menufield%:dialreason%=f%
D�@w_finf%=�crwind(tw_finf%):�getw(w%(0)):șswi%,sd17_%,1,T%�G%
D�L%=G%:șswi%,sd17_%,9,T%�G%
D�T$=$sd%:�T$="?"T$=""
D�șswi%,sd17_%,10,T%�G%
D�șswi%,sd17_%,4,T%�G%
D�*�unselall(w_finf%):�seti(w_finf%,5,T$)
D�.�seti(w_finf%,2,�T%):�seti(w_finf%,20,�L%)
D� �$sd%,"K"):�seli(w_finf%,6)
D��G%�8:�seli(w_finf%,7)
D��G%�128:�seli(w_finf%,8)
E�G%�64:�seli(w_finf%,9)
EG%=G%�7:ȎG%�
E�0:�seli(w_finf%,11)
E$�7:�seli(w_finf%,10):G%=0
E.:�seli(w_finf%,12)
E8�:�seti(w_finf%,13,�G%)
EB	�f%�
ELexi0%=-1:exi1%=-1:��@~E
EV-�T%=0�6:�L%:�iset(w_finf%,L%,&40F000,0):�
E`�:exi0%=2:exi1%=20
Ej�
Et�dialogue(w_finf%):�
E~�6,18,20,21,2,3,4
E�
E���copyfield(t%)
E�7�L%,T$,T%:T%=menufield%:menufield%=t%:dialreason%=�
E�@w_finf%=�crwind(tw_finf%):�getw(w%(0)):șswi%,sd17_%,1,T%�G%
E�L%=G%:șswi%,sd17_%,9,T%�G%
E�T$=$sd%:�T$="?"T$=""
E�T$=�newfd(T$)
E�șswi%,sd17_%,10,T%�G%
E�șswi%,sd17_%,4,T%�G%
E�*�unselall(w_finf%):�seti(w_finf%,5,T$)
E�.�seti(w_finf%,2,�t%):�seti(w_finf%,20,�L%)
E� �$sd%,"K"):�seli(w_finf%,6)
F�G%�8:�seli(w_finf%,7)
F
�G%�128:�seli(w_finf%,8)
F�G%�64:�seli(w_finf%,9)
FG%=G%�7:ȎG%�
F(�0:�seli(w_finf%,11)
F2�7:�seli(w_finf%,10):G%=0
F<:�seli(w_finf%,12)
FF�:�seti(w_finf%,13,�G%)
FPexi0%=2:exi1%=20
FZ�
Fd�dialogue(w_finf%):�
Fn
Fx��scrsz
F�H!workbuf%=4:workbuf%!4=5:workbuf%!8=11:workbuf%!12=12:workbuf%!16=-1
F�0ș"OS_ReadVduVariables",workbuf%,workbuf%+24
F�Iq%!32=(workbuf%!32)<<(workbuf%!24):q%!36=(workbuf%!36)<<(workbuf%!28)
F��
F�
F���findfield:�X%,Y%
F�.�getw(w%(0)):șswi%,sd17_%,2,menufield%�G%
F�'X%=G%:șswi%,sd17_%,3,menufield%�G%
F�Y%=G%:șswi%,sd44_%,X%,Y%
F�9Y%=-Y%*linegap%-margin%+linegap%/2:X%=X%*16+margin%-8
F��matchct:�getw(w%(0))
F�*ȗ�bx%+X%,by%+Y%:�front(w%(0),-1,-1):�
F�
G*��scrollto(X%,Y%,h%):�h%<0�:��getw(h%)
G8�X%>=x0%-bx%�X%<=x1%-bx%�Y%<=y1%-by%-32�Y%>=y0%-by%�
G,scx%=X%-(x1%-x0%)�2:scy%=�Y%-(y1%-y0%)�2
G"�scx%<0scx%=0
G,�scy%<0scy%=0
G61�open(h%,x0%,y0%,x1%,y1%,scx%,-scy%,bhandle%)
G@�
GJ
GT/��findct:�getct:�scrollto(q%!8,q%!12,!q%):�
G^
Gh*��status:w_status%=�crwind(tw_status%)
Gr�I%,T%,T$,s$:s$=�12," ")
G|�unselall(w_status%):T%=0
G��v_(1)=1�
G�T$=��filename+�11," "),11)
G�5T$+=�s$+Ôfsize%(0),10)+" (CREATING) (CREATING) "
G�)�T%<8:�seti(w_status%,T%+15,T$):T%+=1
G��
G�,ȕT%<8:�seti(w_status%,T%+15,""):T%+=1:�
G�#�stopboxes%:�seli(w_status%,23)
G��sound%:�seli(w_status%,24)
G�!�shadows%:�seli(w_status%,25)
G��pix%:�seli(w_status%,28)
G�$�sprsz%<=0:�shadei(w_status%,28)
G��dialogue(w_status%):�
G�
H��oscli(T$):�T$=42:�T$:�
H#�I%,J%:ș"Wimp_CommandWindow",1
H�normpoint:mode%=�:�12
H&
*fx229
H0�T$=""�
H:�novars
HD�
HN#���=17�T$="":�endoscli:�:��:�
HX�T$="":�"*"T$
Hb
Ȏ � �
Hl � �T$=63��v_(1)=0:�(�T$,2))
Hv&� �T$=63��v_(1)>0:�ev(�T$,2),0,0)
H��T$
H��
H�
�T$=""
H���
H��
H��
H���:��:�endoscli:�err(0)
H�"�=0:�T$:ș"OS_Byte",&86�,I%,J%
H�2�<150�I%+J%<>0���0<0:�''"Press a key... ";:�
H��
H��endoscli:�
H�
H���endoscli:*fx229,1
Iș"Wimp_CommandWindow",-1
I'ș"Wimp_SetMode",mode%:�:�force(-1)
I
�sdvars:�
I 
I*)��updatefield(T%):�X%,L%:�fieldsz(T%)
I4B!q%=w%(0):q%!4=tx0%:q%!8=ty0%:q%!12=tx1%:q%!16=ty1%:�redraw(�)
I>�
IH
IR(��forcefield(T%):�X%,L%:�fieldsz(T%)
I\4ș"Wimp_ForceRedraw",w%(0),tx0%,ty0%,tx1%,ty1%:�
If
Ip0ݤshowbranch:�readpointer:�mb%<>1�mi%<>-3:=�
Iz)�T$,t$:T$=fn$::t$=�leaf(T$):�t$=T$:=�
I�(�"*filer_opendir "+�T$,�T$-�t$-1):=�
I�
I���walign:�X%,Y%
I�X%=panew%+8:Y%=900-paneh%
I�1�open(w%(0),X%,Y%,X%+paneh%,Y%+paneh%,0,0,-1)
I��I%:�I%=2�maxw%:�w%(I%)>0�
I�8�align1(I%):�open(w%(I%),tx0%,ty0%,tx1%,ty1%,0,0,-1)
I�	�:�:�
I�
I�&��releasepr:�pstream%>0:�#pstream%
I�printer%=-2:pstream%=0:�
I�
I�
��asccard
J�h%,I%,T%:T%=�file$:�T%=0:�
J(I%=1:h%=�ht:ȕI%<=h%���#T%:$sd%=�#T%
Jșswi%,sd00_%,sd%,I%
J$"I%+=1:�:�#T%:șswi%,sd38_%,255
J.șswi%,sd38_%
J8�forcecard:�noscrap:�
JB
JL)��getpass:w_passw%=�crwind(tw_passw%)
JV5�seti(w_passw%,0,"File "+�filename+", password:")
J`B�seti(w_passw%,1,""):�seti(w_passw%,2,""):�seti(w_passw%,5,"")
Jj�dialogue(w_passw%):�
Jt
J~,��getpass1:w_passw1%=�crwind(tw_passw1%)
J�0�seti(w_passw1%,1,""):�dialogue(w_passw1%):�
J�
J�4��newfn(� T$):�u(file$)<>"<WIMP$SCRAP>"T$=file$
J��
J�
J���readparams:�I%,F%
J�4stopboxes%=�:sound%=�:shadows%=�:tools%=�:pix%=�
J�@sprsz%=0:dplen%=66:dpwid%=79:f_cd$="Card":f_cf$="MStoreFile"
J�-f_fl$="FieldList":fieldchr%=35:encrypt%=�
J�F%=�(�dir+"Params")
J�'�F%:ȕ��#F%:�readparam(�#F%):�:�#F%
J��sprsz%>50�
K+sprsz%=50:� sprbuf% sprsz%,colours% 366
K
=!sprbuf%=sprsz%:sprbuf%!16=0:ș"OS_SpriteOp",&109,sprbuf%
K�
Ksprsz%=0
K(�
K2%pix%=sprsz%>0:�encrypt%encrypt%=1
K<�readflags:�
KF
KP��readparam(T$)
KZT$=�s1(T$):�T$=""��T$=�";"�
Kd)�V$,T%,on,off:on=�:T%=�T$," "):�T%=0�
Kn&V$=�T$,T%):T$=�T$,T%-1):V$=�s1(V$)
KxT%=�V$,";"):�T%V$=�V$,T%-1)
K��:��:��:�
K�Ȏ�lower(T$)�
K��"shadow":shadows%=�V$
K��"stopboxes":stopboxes%=�V$
K��"sound":sound%=�V$
K��"tools":tools%=�V$
K��"fncard":f_cd$=V$
K��"fncreate":f_cf$=V$
K��"fnfields":f_fl$=V$
K��"clearpass":clearpass%=�V$
K��"pagelen":dplen%=�V$
K��"pagewid":dpwid%=�V$
K��"pictures":sprsz%=�V$
L�"encrypt":encrypt%=�V$
LF�"fieldchar":fieldchr%=�V$:�fieldchr%<32�fieldchr%=127fieldchr%=35
L�:�
L"
L,!ݤs1(T$):ȕ�T$=32:T$=�T$,2):�
L6ȕ�T$)=" ":T$=�T$):�:=T$
L@
LJ��swap7:�force(w%(0))
LTșswi%,sd57_%,"bit7"�G%
L^#G%=G%�1:șswi%,sd58_%,G%,"bit7"
Lhșswi%,sd57_%,"bit7"�G%
Lr"�flg(f_7bit%,G%):șswi%,sd39_%
L|�
L�
L�)ݤnindices:șswi%,sd57_%,"indices"�G%
L�=G%
L�
L���mstore(A$,T$):�T%,B%
L��:��:��:�err(60)
L�%T$=�dir+T$:T%=�(T$):�T%=0�err(59)
L�:B%=�#T%:�#T%:�s(A$)>""�"*Set MultiStore$Function "+A$
L��writeflags:��
L�'��error(�,�$,�,�):�report:�quit(�)
L�1�delw(w_stop%):�delw(w_save%):�delw(w_pinfo%)
L�%�delw(w_pinfo2%):�delw(w_shadow%)
L��normpoint
M"�novars:Z%=taskhandle%:�(T$):�
M
M ��pdriver:�v_(1)=1�err(103)
M&�mstore("1","MultiStore"):�
M0
M:"��checkopen:�v_(1)=1�err(104)
MD�
MN
MX"��makeform:�v_(1)<>0�err(100)
Mb�I%,g%,h%,X%,Y%,T$
Mlșswi%,format_%,"Untitled"
Mv$șswi%,sd58_%,encrypt%,"Encrypt"
M�#w%(0)=�crwind(tw%(0)):�makepane
M�$�initfile:�fext:�initpane:�title
M�)X%=h%*80+panew%+8:Y%=900-h%*40-paneh%
M�1�open(w%(0),X%,Y%,X%+paneh%,Y%+paneh%,0,0,-1)
M�șswi%,sd57_%,"bit7"�G%
M�.�flg(f_7bit%,G%):șswi%,sd14_%,id_exb%,&35
M��setws:fn$=unt$
M�'�matchct:�forcecard:�updfds:�updixs
M��
M�
M�
��glayout
M��
M�(��:��:�=&80301�getpass1:�:��err(0)
N șswi%,password_%,�su(pass$)
Npass$=""
Nșswi%,glayout_%,file$
N �initpane:�fext:�forcecard
N*�matchct:�updfds:�updixs
N4�
N>
NH
��matchct
NRbș"Wimp_SetCaretPosition",w%(0),-1,�v_(12)*16+margin%-16,-margin%-linegap%*�v_(13),&1000020,-1
N\ �showcurs:�showfld:�findct:�
Nf
Np��insln:șswi%,sd61_%
Nz%�fext:�resize:�setct(w%(0),-1,-1)
N�\ș "Wimp_BlockCopy",w%(0),-1E9,-1E9,1E9,-margin%-(�v_(13)-1)*linegap%,-1E9,-1E9-linegap%
N��matchct:�updline:�
N�
N���delln
N�%�setct(w%(0),-1,-1):șswi%,sd62_%
N�Xș "Wimp_BlockCopy",w%(0),-1E9,-1E9,1E9,-margin%-�v_(13)*linegap%,-1E9,-1E9+linegap%
N��fext:�resize:�matchct:�
N�
N���copyln:�T%,I%,J%,X%,Y%,T$
N�T%=�$t_copies%:�T%<1�T%>99�
N��:��:��:�copied:�err(113)
N��I%=1�T%
N�Y%=�v_(13)+1
O�Y%>�v_(5)�
Oșswi%,height_%,Y%
O�
O$șswi%,sd44_%,�v_(12),Y%
O.șswi%,sd61_%
O8�
OBșswi%,gline_%,Y%-1
OLșswi%,text_%,$sd%,1,Y%
OVșswi%,sd44_%,�v_(12),Y%
O`J%=1:ȕJ%<=�v_(7)
Ojșswi%,sd17_%,3,J%�G%
Ot
�G%=Y%-1�
O~șswi%,sd17_%,2,J%�G%
O�X%=G%:șswi%,sd17_%,9,J%�G%
O�T$=$sd%:�:T$=�newfd(T$)
O�șswi%,sd67_%,T$�G%
O��G%=0��T$>0
O�șswi%,sd17_%,1,J%�G%
O�+șswi%,field_%,�v_(7)+1,T$,G%,X%,Y%�,G%
O�șswi%,sd17_%,4,J%�G%
O�șswi%,sd18_%,G%,4,�v_(7)
O��showfld
O��
O��0=27:�err(114)
O�J%+=1:�
Pșswi%,sd44_%,�v_(12),Y%
P
�
P
�copied:�
P
P("��copied:�w%(2)>0�force(w%(2))
P2%�fext:�resize:�setct(w%(0),-1,-1)
P<!�updfds:�forcecard:�matchct:�
PF
PP��setbytes(s%):�chkresize
PZ�s%=0:�setform:�
Pd!s%=(s%<<10):�s%<8000:�buzz2:�
Pnfsize%(1)=-s%:fsize%(0)=5
Pxșswi%,create_%,fn$,s%�G%
P��created:�
P�
P���setcards(s%):�chkresize
P��s%=0:�setform:�
P��T%:�s%<2�s%>2^31:�buzz2:�
P�fsize%(0)=-s%:fsize%(1)=5
P��resize:T%=�fsize%(1)
P�șswi%,create_%,fn$,T%�G%
P��created:�
P�
P�
��setform
P�fsize%(0)=0:fsize%(1)=0
P�șswi%,create_%,fn$�G%
Qșswi%,format_%,fn$
Q�resize:�title:�
Q
Q"'��created:�setws:�title:fsize%(0)=0
Q,$fsize%(1)=�ext:fsize%(0)=�ncards
Q6�
Q@
QJ��setws
QTȎ�hdbyte(&35)�
Q^%�id_bbc%:șswi%,wsbytes_%,2500�G%
Qh%�id_exb%:șswi%,wsbytes_%,3500�G%
Qr&�id_wcia%:șswi%,wsbytes_%,2500�G%
Q|�
Q��
Q�
Q���title
Q�4�T$:T$="File":�fsize%(0)=0�fsize%(1)=0:T$="Form"
Q�)T$+="="+�filename:�settitle(w%(0),T$)
Q��
Q�
Q���resize
Q��fsize%(0)<>0�fsize%(1)<>0�
Q�2�fsize%(0)<0fsize%(1)=�fext:�fsize%(0)=�ncards
Q��
Q��initpane:�
Q�
R��chkresize
R�fn$=unt$�err(105)
R�v_(7)=0�err(106)
R&�
R0
R:&ݤfext:�fsize%(0)=0�fsize%(1)=0:=0
RD'�fsize%(0)<0:=�calcext:�=�fsize%(1)
RN
RX	ݤext
Rbșswi%,stat_%�G%
Rl=�v_(22)
Rv
R�%ݤncards:�fsize%(0)<0:=�fsize%(0)
R�șswi%,sd50_%
R�=�v_(16)
R�
R�3ݤcalcext:�C%:C%=�fsize%(0):șswi%,sd68_%,C%�G%
R�=G%
R�
R�ݤnsubs=�hdbyte(&51)
R�
R���fsize:�v_(7)=0:�err(106)
R�3w_fsize%=�crwind(tw_fsize%):�unselall(w_fsize%)
R��seti(w_fsize%,11,f_cf$)
R�!�seti(w_fsize%,6,Ôfsize%(0))
S(�seti(w_fsize%,7,�(�fsize%(1)�1024))
S!$�va(w_fsize%,10)="sfile_de8"
S�fsize%(0)=0�fsize%(1)=0�
S �seli(w_fsize%,5)
S*�
S44�fsize%(0)<0�seli(w_fsize%,3):��seli(w_fsize%,4)
S>�
SH6lcards$=$�ia(w_fsize%,6):lkbytes$=$�ia(w_fsize%,7)
SR#�dialogue(w_fsize%):�newdelay:�
S\
Sf��newdelay
Sp-�process%>0�w_fsize%>0delay%=0�delay%=2E9
Sz�
S�
S�'��fieldsz1(T%):�gx0%,gy0%,gx1%,gy1%
S���fieldsz(T%)
S��L%,X%,Y%,G%,t%
S�&�getw(w%(0)):șswi%,sd17_%,1,T%�L%
S�șswi%,sd17_%,2,T%�X%
S�șswi%,sd17_%,3,T%�Y%
S�%ș"OS_ReadModeVariable",-1,5�,,T%
S�,ty0%=(-Y%*linegap%-margin%)��((1<<T%)-1)
S�>tx0%=X%*16+margin%-16:ty1%=ty0%+linegap%:tx1%=tx0%+L%*16+2
S��
S�
S���curmouse:�X%,Y%
T)X%=mx%:Y%=my%:�cyconv(Y%):�cxconv(X%)
Tșswi%,sd44_%,X%,Y%
T�matchct:�
T$
T."��dprint1(T$):�#outfile%,T$;:�
T8
TB&��dprint(T$):�dprint1(T$):�dnewl:�
TL
TV��dnewl:�#outfile%,"":�
T`
Tj;��fspec:w_fspec%=�crwind(tw_fspec%):�unselall(w_fspec%)
Tt0�seli(w_fspec%,�fspec):�dialogue(w_fspec%):�
T~
T�ݤfspec:�hdbyte(0)=&EA:=0
T�
=�nsubs+1
T�
T�'��csize:w_csize%=�crwind(tw_csize%)
T��seti(w_csize%,61,äv_(6))
T��seti(w_csize%,57,äv_(5))
T��dialogue(w_csize%):�
T�
T���settab
T�șswi%,sd14_%,�v_(12),&10
T�șswi%,sd14_%,�v_(13),&11
T�H�stop(0,"The TAB position has now been","set to the caret position")
U�
U

U��delfield
Ușswi%,sd70_%�G%
U(�G%<=0�err(107)
U2șswi%,sd17_%,9,G%�G%
U<menufield%=G%
UF9�stop(102,"Field "+�G%+":"+$sd%,rl$+"delete field ?")
UP�
UZ
Ud��checkconv(T$):�T%,B%
Un�:��:��:�#T%:�
Ux file$=T$:T%=�(file$):�T%=0:�
U�#B%=�#T%:�B%<>234�B%<>235:�#T%:�
U�B%=�#T%+�#T%+�#T%+�#T%:�#T%
U���
U� �B%=0B%=ft_form%�B%=ft_data%
U�Gmenufield%=B%:�stop(36,"Wrong file type","Convert to MultiStore ?")
U��
U�
U� ��updfds:�w%(2)>0:�makeflist
U� ��updixs:�w%(3)>0:�makeilist
U��
U�
U�$��openfile:�fsize%(0)=0�err(108)
U�0�closefile(�):�mstore("2:"+fn$,"MultiStore")
V�
V
V$��markfld(G%):�w%(2)<=0�G%=lcf%�
V"�G%>0�updfld1(G%)
V,�lcf%>0�updfld1(lcf%)
V6�
V@
VJ��updfld1(T%)
VT.!q%=w%(2):q%!4=0:q%!8=-margin%-T%*linegap%
V^0q%!12=1E9:q%!16=q%!8+linegap%+4:�redraw(�):�
Vh
Vr+��settitle(h%,T$):$�ta(h%)=T$:�getw(h%)
V|2ș"Wimp_ForceRedraw",-1,x0%,y1%+4,x1%,y1%+44:�
V�
V���transfer:�T$
V�8�v_(1)<>0�(fn$=unt$��v_(7)=0�fsize%(0)=0):�err(109)
V�%�v_(1)>0T$=","+fn$:�closefile(�)
V�!�mstore("1:"+T$,"MSTransfer")
V�
V�"��fastsort:�v_(1)<>0�err(110)
V��mstore("","MSFastSort"):�
V�
V�+ݤindexname(T%):șswi%,istat_%,T%�G%,P%
V�	=$sd%
V�
V���newindex(T%):�f%,T$,t$
Wf%=%100010011:�T%>0�
Wt$=�fname1(T%):�I%,J%,K%
W,T$=�u(�fname(T%)):K%=�nindices:I%=1:J%=1
W&ȕI%<=K%
W0șswi%,istat_%,I%�G%,P%
W:șswi%,upper_%
WD�T$=$sd%�J%=1:J%=2
WN8�$sd%,�T$)=T$:�$sd%,�T$+2)>=J%:J%=��$sd%,�T$+2)+1
WX	I%+=1
Wb�:�J%>1T$+="-"+�"00"+�J%,3)
Wl'f%=%100010011:șswi%,sd17_%,4,T%�G%
Wv7�(G%�7)<>7:f%=%000000000:�(G%�7)<>0f%=f%�%010000000
W��
W��iwind(T$,t$,f%,0):�
W�
W���iwind(T$,t$,f%,r%):�T%,I%
W�3w_index%=�crwind(tw_index%):�unselall(w_index%)
W�-�seti(w_index%,1,T$):�seti(w_index%,3,t$)
W�-�+1:�I%=4�11:�T%:�f%�T%�seli(w_index%,I%)
W�*�:dialreason%=r%:�dialogue(w_index%):�
W��1,2,4,8,16,64,256,128
W�
W�/��editindex:șswi%,istat_%,menuindex%�G%,P%
W�!�iwind($sd%,$(sd%+16),G%,1):�
W�
X��delindex
X�T%:T%=menuindex%�(1<<27)
X"șswi%,makeindex_%,"","","",T%
X �makeilist:�
X*
X4ݤnewfd(A$)
X>�I%,T%,t%:I%=�A$
XH0ȕI%>0��A$,I%,1)>="0"��A$,I%,1)<="9":I%-=1:�
XR�I%=�A$:T%=4-I%:�T%=�A$-I%
X\t%=��A$,I%+1)+1:A$=�A$,I%)
Xf0�T%<4�t%>��"9999",T%):T%+=1:�A$+T%>4A$=�A$)
Xp=A$+�"000"+�t%,T%)
Xz
X���checktype:�A%
X�VA%=�ia(w_fsize%,6):�lcards$<>$A%:�unselall(w_fsize%):�seli(w_fsize%,3):lcards$=$A%
X�XA%=�ia(w_fsize%,7):�lkbytes$<>$A%:�unselall(w_fsize%):�seli(w_fsize%,4):lkbytes$=$A%
X��
X�
X���writeflags:�T$
X�JT$=�flgstr(sound%)+�flgstr(stopboxes%)+�flgstr(shadows%)+�flgstr(pix%)
X�"�"*Set MultiStore$Flags "+T$:�
X�
X�ݤflgstr(T%):�T%:="*":�="-"
X�
X���strflg(T$,� T%)
X��T$="*":T%=�:��T$="-"T%=�
Y�
Y
Y2��readflags:�T$:T$=�ArfVar("MultiStore$Flags")
Y$7�strflg(�T$,1),sound%):�strflg(�T$,2,1),stopboxes%)
Y.5�strflg(�T$,3,1),shadows%):�strflg(�T$,4,1),pix%)
Y8*unset MultiStore$Flags
YB�
YL
YV��novars
Y`�
Yj
Yt��picpath:�T$:�file$>230:�
Y~;T$=�ArfVar("MultiStorePics$Path"):秤u(T$),�u(file$)):�
Y�file$+=".":ȕ�T$+�file$>229
Y�%�:T$=�T$):��T$)=","�T$="":T$=�T$)
Y��:�T$>"":file$+=","
Y�(�"Set MultiStorePics$Path "+file$+T$
Y�+�I%=0�maxf%:�w%(I%,0)>0�force(w%(I%,0))
Y��:�
Y�
Y�ݤaddfield(T$,T%)
Y�(�C%,t$,A$:t$=T$:ȕ�t$)=" ":t$=�t$):�
Y��t$="":=�fname1(T%)
Y�%��t$)="@"��t$)="#":=t$+�fname(T%)
Y�!C%=�:�+1:�:�A$:C%=�t$,�A$)=A$
Z�C%�A$="****":�C%T$+="+"
Z
 �T$,"@"):=T$+"@"+�fname(T%)
Z �T$,"#"):=T$+"#"+�fname(T%)
Z=T$+�fname1(T%)
Z(,�+,-,*,/,AND,OR,NOT,>,<,=,(,",",":",****
�

00000000  0d 00 0a 20 f4 3e 20 3c  4d 75 6c 74 69 53 74 6f  |... .> <MultiSto|
00000010  72 65 24 44 69 72 3e 2e  4d 53 43 72 65 61 74 65  |re$Dir>.MSCreate|
00000020  0d 00 14 3f f4 20 20 42  79 20 4d 65 72 6c 79 6e  |...?.  By Merlyn|
00000030  20 4b 6c 69 6e 65 20 66  6f 72 20 43 6f 70 79 72  | Kline for Copyr|
00000040  69 67 68 74 20 28 63 29  20 4d 69 6e 65 72 76 61  |ight (c) Minerva|
00000050  20 53 6f 66 74 77 61 72  65 2c 20 31 39 38 39 0d  | Software, 1989.|
00000060  00 1e 18 3a 20 20 20 20  76 65 72 73 69 6f 6e 24  |...:    version$|
00000070  3d 22 32 2e 30 32 22 0d  00 28 04 0d 00 32 17 ee  |="2.02"..(...2..|
00000080  85 3a f2 65 72 72 6f 72  28 9f 2c f6 24 2c 9e 2c  |.:.error(.,.$,.,|
00000090  b9 29 0d 00 3c 09 f2 69  6e 69 74 0d 00 46 33 ee  |.)..<..init..F3.|
000000a0  85 3a f2 65 72 72 6f 72  28 9f 2c f6 24 2c 9e 2c  |.:.error(.,.$,.,|
000000b0  70 72 6f 63 65 73 73 25  3c 34 80 70 72 6f 63 65  |process%<4.proce|
000000c0  73 73 25 3e 30 29 3a f2  72 65 70 6f 72 74 0d 00  |ss%>0):.report..|
000000d0  50 0e f2 6e 6f 72 6d 70  6f 69 6e 74 0d 00 5a 04  |P..normpoint..Z.|
000000e0  0d 00 64 05 f5 0d 00 6e  18 e7 70 72 6f 63 65 73  |..d....n..proces|
000000f0  73 25 3e 30 3a f2 70 72  6f 63 65 73 73 0d 00 78  |s%>0:.process..x|
00000100  28 c8 99 22 57 69 6d 70  5f 50 6f 6c 6c 49 64 6c  |(.."Wimp_PollIdl|
00000110  65 22 2c 2c 71 25 2c 64  65 6c 61 79 25 b8 72 65  |e",,q%,delay%.re|
00000120  61 73 6f 6e 25 0d 00 82  32 e7 74 61 73 6b 68 61  |ason%...2.taskha|
00000130  6e 64 6c 65 25 3e 30 3a  c8 99 73 77 69 25 2c 73  |ndle%>0:..swi%,s|
00000140  65 6c 65 63 74 74 61 73  6b 5f 25 2c 74 61 73 6b  |electtask_%,task|
00000150  68 61 6e 64 6c 65 25 0d  00 8c 15 f2 72 65 73 70  |handle%.....resp|
00000160  6f 6e 64 28 72 65 61 73  6f 6e 25 29 0d 00 96 0a  |ond(reason%)....|
00000170  fd 71 75 69 74 25 0d 00  a0 13 f2 43 4c 4f 53 45  |.quit%.....CLOSE|
00000180  3a f2 71 75 69 74 28 a3  29 0d 00 aa 05 e0 0d 00  |:.quit(.).......|
00000190  b4 04 0d 00 be 16 dd f2  72 65 73 70 6f 6e 64 28  |........respond(|
000001a0  72 65 61 73 6f 6e 25 29  0d 00 c8 17 e7 72 65 61  |reason%).....rea|
000001b0  73 6f 6e 25 3a f2 77 61  69 74 70 6f 69 6e 74 0d  |son%:.waitpoint.|
000001c0  00 d2 0e c8 8e 72 65 61  73 6f 6e 25 ca 0d 00 dc  |.....reason%....|
000001d0  11 c9 20 30 3a f2 62 61  63 6b 67 72 6e 64 0d 00  |.. 0:.backgrnd..|
000001e0  e6 12 c9 20 31 3a f2 72  65 64 72 61 77 28 a3 29  |... 1:.redraw(.)|
000001f0  0d 00 f0 3a c9 20 32 3a  f2 6f 70 65 6e 28 21 71  |...:. 2:.open(!q|
00000200  25 2c 71 25 21 34 2c 71  25 21 38 2c 71 25 21 31  |%,q%!4,q%!8,q%!1|
00000210  32 2c 71 25 21 31 36 2c  71 25 21 32 30 2c 71 25  |2,q%!16,q%!20,q%|
00000220  21 32 34 2c 71 25 21 32  38 29 0d 00 fa 14 c9 20  |!24,q%!28)..... |
00000230  33 3a f2 63 6c 6f 73 65  77 28 21 71 25 29 0d 01  |3:.closew(!q%)..|
00000240  04 2f c9 20 36 3a f2 6d  6f 75 73 65 28 21 71 25  |./. 6:.mouse(!q%|
00000250  2c 71 25 21 34 2c 71 25  21 38 2c 71 25 21 31 32  |,q%!4,q%!8,q%!12|
00000260  2c 71 25 21 31 36 2c 71  25 21 32 30 29 0d 01 0e  |,q%!16,q%!20)...|
00000270  10 c9 20 37 3a f2 65 6e  64 64 72 61 67 0d 01 18  |.. 7:.enddrag...|
00000280  33 c9 20 38 3a f2 6b 65  79 28 21 71 25 2c 71 25  |3. 8:.key(!q%,q%|
00000290  21 34 2c 71 25 21 38 2c  71 25 21 31 32 2c 71 25  |!4,q%!8,q%!12,q%|
000002a0  21 31 36 2c 71 25 21 32  30 2c 71 25 21 32 34 29  |!16,q%!20,q%!24)|
000002b0  0d 01 22 13 c9 20 39 3a  f2 6d 65 6e 75 73 65 6c  |..".. 9:.menusel|
000002c0  65 63 74 0d 01 2c 12 c9  31 37 2c 31 38 3a f2 75  |ect..,..17,18:.u|
000002d0  6d 65 73 73 31 0d 01 36  0f c9 31 39 3a f2 75 6d  |mess1..6..19:.um|
000002e0  65 73 73 32 0d 01 40 05  cb 0d 01 4a 0e f2 6e 6f  |ess2..@....J..no|
000002f0  72 6d 70 6f 69 6e 74 0d  01 54 05 e1 0d 01 5e 04  |rmpoint..T....^.|
00000300  0d 01 68 19 dd f2 71 75  69 74 28 54 25 29 3a f2  |..h...quit(T%):.|
00000310  6e 6f 72 6d 70 6f 69 6e  74 0d 01 72 31 24 71 25  |normpoint..r1$q%|
00000320  3d 22 54 41 53 4b 22 3a  c8 99 22 57 69 6d 70 5f  |="TASK":.."Wimp_|
00000330  43 6c 6f 73 65 44 6f 77  6e 22 2c 74 61 73 6b 68  |CloseDown",taskh|
00000340  61 6e 64 6c 65 25 2c 21  71 25 0d 01 7c 0b f2 6e  |andle%,!q%..|..n|
00000350  6f 76 61 72 73 0d 01 86  16 e7 54 25 84 a4 64 65  |ovars.....T%..de|
00000360  62 75 67 3a f2 74 69 64  79 3a e0 0d 01 90 21 c8  |bug:.tidy:....!.|
00000370  99 73 77 69 25 2c 6b 69  6c 6c 74 61 73 6b 5f 25  |.swi%,killtask_%|
00000380  2c 74 61 73 6b 68 61 6e  64 6c 65 25 0d 01 9a 06  |,taskhandle%....|
00000390  c8 98 0d 01 a4 04 0d 01  ae 11 dd a4 74 61 73 6b  |............task|
000003a0  3d 6f 74 61 73 6b 25 0d  01 b8 04 0d 01 c2 1d dd  |=otask%.........|
000003b0  f2 69 6e 69 74 3a 6f 74  61 73 6b 25 3d 5a 25 3a  |.init:otask%=Z%:|
000003c0  f2 73 77 69 6e 75 6d 73  0d 01 cc 2c 61 70 70 6c  |.swinums...,appl|
000003d0  24 3d 22 4d 75 6c 74 69  53 74 6f 72 65 22 3a 70  |$="MultiStore":p|
000003e0  73 74 72 65 61 6d 25 3d  30 3a f2 72 65 6c 65 61  |stream%=0:.relea|
000003f0  73 65 70 72 0d 01 d6 27  de 20 71 25 20 32 35 30  |sepr...'. q% 250|
00000400  30 2c 20 77 6f 72 6b 62  75 66 25 20 31 35 30 30  |0, workbuf% 1500|
00000410  2c 64 69 61 6c 63 74 25  20 32 34 0d 01 e0 37 77  |,dialct% 24...7w|
00000420  61 69 74 65 72 25 3d 30  3a 66 69 6c 65 25 3d 2d  |aiter%=0:file%=-|
00000430  31 3a 76 25 3d a4 69 6e  69 74 77 69 6d 70 3a e7  |1:v%=.initwimp:.|
00000440  76 25 3c 31 38 30 3a eb  31 32 3a f2 65 72 72 28  |v%<180:.12:.err(|
00000450  32 29 0d 01 ea 21 f2 77  61 69 74 70 6f 69 6e 74  |2)...!.waitpoint|
00000460  3a c8 9b 28 a4 64 69 72  2b 22 42 61 73 65 4c 69  |:..(.dir+"BaseLi|
00000470  62 22 29 0d 01 f4 1f c8  9b 28 a4 64 69 72 2b 22  |b")......(.dir+"|
00000480  53 77 69 4c 69 73 74 22  29 3a f2 73 77 69 6c 69  |SwiList"):.swili|
00000490  73 74 0d 01 fe 27 71 75  69 74 25 3d a3 3a 64 69  |st...'quit%=.:di|
000004a0  61 6c 72 65 61 73 6f 6e  25 3d 2d 31 3a 64 69 61  |alreason%=-1:dia|
000004b0  6c 6f 67 75 65 25 3d 2d  31 0d 02 08 1c 61 63 6b  |logue%=-1....ack|
000004c0  70 65 6e 64 69 6e 67 25  3d a3 3a 61 63 6b 72 65  |pending%=.:ackre|
000004d0  66 25 3d 2d 31 0d 02 12  1f 64 72 61 67 72 65 61  |f%=-1....dragrea|
000004e0  73 6f 6e 25 3d 2d 31 3a  64 69 61 6c 6f 67 75 65  |son%=-1:dialogue|
000004f0  25 3d 2d 31 0d 02 1c 12  73 61 76 65 72 65 61 73  |%=-1....savereas|
00000500  6f 6e 25 3d 2d 31 0d 02  26 19 66 69 6c 65 32 25  |on%=-1..&.file2%|
00000510  3d 2d 31 3a 72 65 61 73  6f 6e 32 25 3d 2d 31 0d  |=-1:reason2%=-1.|
00000520  02 30 1c 6d 65 6e 75 66  69 6c 65 25 3d 2d 31 3a  |.0.menufile%=-1:|
00000530  6d 65 6e 75 73 75 62 25  3d 2d 31 0d 02 3a 0e 63  |menusub%=-1..:.c|
00000540  6c 6f 73 65 6f 6b 25 3d  a3 0d 02 44 29 73 62 66  |loseok%=...D)sbf|
00000550  69 6c 65 25 3d 2d 31 3a  70 61 73 73 24 3d 22 22  |ile%=-1:pass$=""|
00000560  3a 65 78 69 30 25 3d 2d  31 3a 65 78 69 31 25 3d  |:exi0%=-1:exi1%=|
00000570  2d 31 0d 02 4e 22 c8 99  22 4f 53 5f 42 79 74 65  |-1..N".."OS_Byte|
00000580  22 2c 31 38 32 2c 30 2c  32 35 35 20 b8 2c 70 74  |",182,0,255 .,pt|
00000590  65 72 6d 25 0d 02 58 30  e7 28 70 74 65 72 6d 25  |erm%..X0.(pterm%|
000005a0  80 26 38 30 29 3d 30 c8  99 22 4f 53 5f 42 79 74  |.&80)=0.."OS_Byt|
000005b0  65 22 2c 32 34 36 2c 30  2c 32 35 35 b8 2c 70 74  |e",246,0,255.,pt|
000005c0  65 72 6d 25 0d 02 62 20  e7 70 74 65 72 6d 25 3d  |erm%..b .pterm%=|
000005d0  31 30 70 74 65 72 6d 25  3d 31 3a 8b 70 74 65 72  |10pterm%=1:.pter|
000005e0  6d 25 3d 32 0d 02 6c 24  69 64 5f 77 63 69 61 25  |m%=2..l$id_wcia%|
000005f0  3d 34 32 3a 69 64 5f 65  78 62 25 3d 34 33 3a 69  |=42:id_exb%=43:i|
00000600  64 5f 62 62 63 25 3d 30  0d 02 76 1a de 20 65 64  |d_bbc%=0..v.. ed|
00000610  62 75 66 25 20 32 35 36  2c 65 64 76 61 6c 25 20  |buf% 256,edval% |
00000620  31 35 0d 02 80 3f 65 64  66 69 65 6c 64 25 3d 2d  |15...?edfield%=-|
00000630  31 3a 65 64 69 63 6f 6e  25 3d 2d 31 3a 65 64 72  |1:edicon%=-1:edr|
00000640  65 63 25 3d 2d 31 3a 65  64 78 25 3d 2d 31 3a 24  |ec%=-1:edx%=-1:$|
00000650  65 64 76 61 6c 25 3d 22  61 30 2d 39 5c 2d 2b 2e  |edval%="a0-9\-+.|
00000660  22 0d 02 8a 26 73 73 25  3d 31 32 3a 6c 63 25 3d  |"...&ss%=12:lc%=|
00000670  33 3a f2 72 65 61 64 70  61 72 61 6d 73 3a f2 66  |3:.readparams:.f|
00000680  69 6c 65 76 61 72 73 0d  02 94 2a f2 6c 6f 61 64  |ilevars...*.load|
00000690  73 70 72 69 74 65 73 3a  f2 64 65 66 77 73 3a f2  |sprites:.defws:.|
000006a0  64 65 66 6d 65 6e 75 73  3a f2 76 65 72 73 69 6f  |defmenus:.versio|
000006b0  6e 0d 02 9e 24 70 72 6f  63 65 73 73 25 3d 31 3a  |n...$process%=1:|
000006c0  63 68 65 63 6b 72 65 66  25 3d 2d 31 3a 64 65 6c  |checkref%=-1:del|
000006d0  61 79 25 3d 30 0d 02 a8  35 6c 61 73 74 61 63 74  |ay%=0...5lastact|
000006e0  25 3d 30 3a 63 68 75 6e  6b 25 3d 37 3a 66 6e 24  |%=0:chunk%=7:fn$|
000006f0  3d 22 22 3a 6c 63 61 72  64 73 24 3d 22 22 3a 6c  |="":lcards$="":l|
00000700  6b 62 79 74 65 73 24 3d  22 22 0d 02 b2 49 61 73  |kbytes$=""...Ias|
00000710  24 3d 22 41 72 65 20 79  6f 75 20 73 75 72 65 20  |$="Are you sure |
00000720  3f 22 3a 72 6c 24 3d 22  52 65 61 6c 6c 79 20 22  |?":rl$="Really "|
00000730  3a 72 69 24 3d 72 6c 24  2b 22 69 6e 74 65 72 72  |:ri$=rl$+"interr|
00000740  75 70 74 20 3f 22 3a 66  69 24 3d 22 46 69 6c 65  |upt ?":fi$="File|
00000750  3a 20 22 0d 02 bc 21 75  6e 74 24 3d 22 55 4e 54  |: "...!unt$="UNT|
00000760  49 54 4c 45 44 22 3a 73  79 24 3d 22 53 6f 72 72  |ITLED":sy$="Sorr|
00000770  79 21 20 22 0d 02 c6 27  ef 32 33 2c 32 35 35 2c  |y! "...'.23,255,|
00000780  30 2c 31 32 36 2c 31 32  36 2c 31 32 36 2c 31 32  |0,126,126,126,12|
00000790  36 2c 31 32 36 2c 31 32  36 2c 30 0d 02 d0 0e f2  |6,126,126,0.....|
000007a0  62 61 72 69 63 6f 6e 3a  e1 0d 02 da 04 0d 02 e4  |baricon:........|
000007b0  0d dd f2 73 77 69 6e 75  6d 73 0d 02 ee 05 e1 0d  |...swinums......|
000007c0  02 f8 04 0d 03 02 0e dd  f2 66 69 6c 65 76 61 72  |.........filevar|
000007d0  73 0d 03 0c 09 f4 20 3b  7b 6e 0d 03 16 36 f4 20  |s..... ;{n...6. |
000007e0  3b 7b 6e 20 20 77 69 6e  64 6f 77 20 68 61 6e 64  |;{n  window hand|
000007f0  6c 65 73 20 69 6e 20 77  25 28 6d 61 78 77 25 29  |les in w%(maxw%)|
00000800  20 2d 20 3c 3d 30 20 3d  20 44 65 6c 65 74 65 64  | - <=0 = Deleted|
00000810  0d 03 20 40 f4 20 3b 7b  6e 20 20 20 20 28 30 29  |.. @. ;{n    (0)|
00000820  3d 43 61 72 64 20 20 20  20 28 31 29 3d 50 61 6e  |=Card    (1)=Pan|
00000830  65 20 20 20 20 20 28 32  29 3d 46 69 65 6c 64 73  |e     (2)=Fields|
00000840  20 20 20 20 20 28 33 29  3d 49 6e 64 69 63 65 73  |     (3)=Indices|
00000850  0d 03 2a 32 f4 20 3b 7b  6e 20 20 74 77 25 28 6d  |..*2. ;{n  tw%(m|
00000860  61 78 77 25 29 20 2d 20  70 6f 69 6e 74 65 72 73  |axw%) - pointers|
00000870  20 74 6f 20 77 69 6e 64  6f 77 20 66 6f 72 6d 61  | to window forma|
00000880  74 73 0d 03 34 2c f4 20  3b 7b 6e 20 20 66 73 69  |ts..4,. ;{n  fsi|
00000890  7a 65 25 28 31 29 20 2d  20 66 69 6c 65 20 73 69  |ze%(1) - file si|
000008a0  7a 65 20 63 61 72 64 73  2c 62 79 74 65 73 0d 03  |ze cards,bytes..|
000008b0  3e 09 f4 20 3b 7b 6e 0d  03 48 30 f4 20 3b 7b 6e  |>.. ;{n..H0. ;{n|
000008c0  20 20 20 20 6d 61 78 77  25 20 20 20 3d 20 6d 61  |    maxw%   = ma|
000008d0  78 20 61 72 72 61 79 20  69 6e 64 65 78 20 28 77  |x array index (w|
000008e0  69 6e 64 6f 77 73 29 0d  03 52 09 f4 20 3b 7b 6e  |indows)..R.. ;{n|
000008f0  0d 03 5c 27 66 74 5f 66  6f 72 6d 25 3d 26 44 45  |..\'ft_form%=&DE|
00000900  37 3a 66 74 5f 64 61 74  61 25 3d 26 44 45 38 3a  |7:ft_data%=&DE8:|
00000910  6d 61 78 77 25 3d 33 0d  03 66 24 de 20 77 25 28  |maxw%=3..f$. w%(|
00000920  6d 61 78 77 25 29 2c 74  77 25 28 6d 61 78 77 25  |maxw%),tw%(maxw%|
00000930  29 2c 66 73 69 7a 65 25  28 31 29 0d 03 70 3b 66  |),fsize%(1)..p;f|
00000940  5f 66 69 6c 74 25 3d 31  3c 3c 30 30 3a 66 5f 70  |_filt%=1<<00:f_p|
00000950  61 6e 65 25 3d 31 3c 3c  30 31 3a 66 5f 6d 61 63  |ane%=1<<01:f_mac|
00000960  62 25 3d 31 3c 3c 30 32  3a 66 5f 6d 61 63 65 25  |b%=1<<02:f_mace%|
00000970  3d 31 3c 3c 30 33 0d 03  7a 3b 66 5f 66 73 70 63  |=1<<03..z;f_fspc|
00000980  25 3d 31 3c 3c 30 34 3a  66 5f 66 75 70 70 25 3d  |%=1<<04:f_fupp%=|
00000990  31 3c 3c 30 35 3a 66 5f  73 73 70 63 25 3d 31 3c  |1<<05:f_sspc%=1<|
000009a0  3c 30 36 3a 66 5f 73 75  70 70 25 3d 31 3c 3c 30  |<06:f_supp%=1<<0|
000009b0  37 0d 03 84 3b 66 5f 73  61 64 64 25 3d 31 3c 3c  |7...;f_sadd%=1<<|
000009c0  30 38 3a 66 5f 72 73 70  63 25 3d 31 3c 3c 30 39  |08:f_rspc%=1<<09|
000009d0  3a 66 5f 72 75 70 70 25  3d 31 3c 3c 31 30 3a 66  |:f_rupp%=1<<10:f|
000009e0  5f 73 72 75 70 25 3d 31  3c 3c 31 31 0d 03 8e 3b  |_srup%=1<<11...;|
000009f0  66 5f 73 74 6f 74 25 3d  31 3c 3c 31 32 3a 66 5f  |f_stot%=1<<12:f_|
00000a00  73 74 69 74 25 3d 31 3c  3c 31 33 3a 66 5f 73 64  |stit%=1<<13:f_sd|
00000a10  61 73 25 3d 31 3c 3c 31  34 3a 66 5f 77 73 70 63  |as%=1<<14:f_wspc|
00000a20  25 3d 31 3c 3c 31 35 0d  03 98 3b 66 5f 77 75 70  |%=1<<15...;f_wup|
00000a30  70 25 3d 31 3c 3c 31 36  3a 66 5f 77 62 6e 6b 25  |p%=1<<16:f_wbnk%|
00000a40  3d 31 3c 3c 31 37 3a 66  5f 37 62 69 74 25 3d 31  |=1<<17:f_7bit%=1|
00000a50  3c 3c 31 38 3a 66 5f 72  65 6a 62 25 3d 31 3c 3c  |<<18:f_rejb%=1<<|
00000a60  31 39 0d 03 a2 3b 66 5f  72 65 6a 61 25 3d 31 3c  |19...;f_reja%=1<|
00000a70  3c 32 30 3a 66 5f 72 64  73 70 25 3d 31 3c 3c 32  |<20:f_rdsp%=1<<2|
00000a80  31 3a 66 5f 72 74 70 6e  25 3d 31 3c 3c 32 32 3a  |1:f_rtpn%=1<<22:|
00000a90  66 5f 72 62 70 6e 25 3d  31 3c 3c 32 33 0d 03 ac  |f_rbpn%=1<<23...|
00000aa0  3b 66 5f 72 70 64 74 25  3d 31 3c 3c 32 34 3a 66  |;f_rpdt%=1<<24:f|
00000ab0  5f 72 74 70 67 25 3d 31  3c 3c 32 35 3a 66 5f 72  |_rtpg%=1<<25:f_r|
00000ac0  74 73 75 25 3d 31 3c 3c  32 36 3a 66 5f 72 6c 64  |tsu%=1<<26:f_rld|
00000ad0  75 25 3d 31 3c 3c 32 37  0d 03 b6 11 66 5f 72 6c  |u%=1<<27....f_rl|
00000ae0  73 75 25 3d 31 3c 3c 32  38 0d 03 c0 05 e1 0d 03  |su%=1<<28.......|
00000af0  ca 04 0d 03 d4 0c dd f2  73 64 76 61 72 73 0d 03  |........sdvars..|
00000b00  de 1c c8 99 73 77 69 25  2c 73 64 36 34 5f 25 2c  |....swi%,sd64_%,|
00000b10  33 b8 6c 69 6e 65 67 61  70 25 0d 03 e8 0d 6d 61  |3.linegap%....ma|
00000b20  72 67 69 6e 25 3d 38 0d  03 f2 31 e7 73 6f 75 6e  |rgin%=8...1.soun|
00000b30  64 25 3a c8 99 73 77 69  25 2c 6f 70 74 5f 25 2c  |d%:..swi%,opt_%,|
00000b40  31 30 b8 47 25 3a 8b c8  99 73 77 69 25 2c 6f 70  |10.G%:...swi%,op|
00000b50  74 5f 25 2c 39 b8 47 25  0d 03 fc 05 e1 0d 04 06  |t_%,9.G%........|
00000b60  04 0d 04 10 2d dd f2 63  68 65 63 6b 70 72 6f 74  |....-..checkprot|
00000b70  3a ea 54 25 3a c8 99 22  46 6c 65 78 69 46 69 6c  |:.T%:.."FlexiFil|
00000b80  65 5f 41 64 64 72 65 73  73 22 b8 73 64 25 0d 04  |e_Address".sd%..|
00000b90  1a 06 ea 85 0d 04 24 14  ee 85 ea 3a 70 72 6f 63  |......$....:proc|
00000ba0  65 73 73 25 3d 32 3a e1  0d 04 2e 1e c8 99 73 77  |ess%=2:.......sw|
00000bb0  69 25 2c 72 65 73 65 74  5f 25 2c 74 61 73 6b 68  |i%,reset_%,taskh|
00000bc0  61 6e 64 6c 65 25 0d 04  38 54 e7 70 72 6f 63 65  |andle%..8T.proce|
00000bd0  73 73 25 3d 33 f2 73 74  6f 70 28 31 2c 22 4f 4b  |ss%=3.stop(1,"OK|
00000be0  2e 20 50 6c 65 61 73 65  20 72 65 6d 6f 76 65 20  |. Please remove |
00000bf0  6f 72 69 67 69 6e 61 6c  20 26 22 2c 22 72 65 70  |original &","rep|
00000c00  6c 61 63 65 20 62 61 63  6b 75 70 20 69 66 20 6e  |lace backup if n|
00000c10  65 63 65 73 73 61 72 79  22 29 0d 04 42 1b 64 61  |ecessary")..B.da|
00000c20  74 65 24 3d a4 73 74 72  64 61 74 65 31 28 a4 6e  |te$=.strdate1(.n|
00000c30  6f 77 2c 34 29 0d 04 4c  1d f2 73 64 76 61 72 73  |ow,4)..L..sdvars|
00000c40  3a e7 a4 76 5f 28 31 29  3c 3e 30 f2 65 72 72 28  |:..v_(1)<>0.err(|
00000c50  33 29 0d 04 56 10 70 72  6f 63 65 73 73 25 3d 34  |3)..V.process%=4|
00000c60  3a e1 0d 04 60 04 0d 04  6a 0d dd f2 76 65 72 73  |:...`...j...vers|
00000c70  69 6f 6e 0d 04 74 2f ea  54 24 3a 54 24 3d 76 65  |ion..t/.T$:T$=ve|
00000c80  72 73 69 6f 6e 24 3a e7  ac a4 70 72 6f 64 3a 54  |rsion$:...prod:T|
00000c90  24 2b 3d 22 20 2a 55 4e  46 49 4e 49 53 48 45 44  |$+=" *UNFINISHED|
00000ca0  2a 22 0d 04 7e 38 f2 73  65 74 69 28 77 5f 70 69  |*"..~8.seti(w_pi|
00000cb0  6e 66 6f 25 2c 34 2c 22  76 22 2b 54 24 29 3a 24  |nfo%,4,"v"+T$):$|
00000cc0  a4 74 69 61 28 74 77 5f  73 74 61 74 75 73 25 2c  |.tia(tw_status%,|
00000cd0  31 31 29 3d 22 76 22 2b  54 24 0d 04 88 05 e1 0d  |11)="v"+T$......|
00000ce0  04 92 04 0d 04 9c 2c dd  a4 70 72 6f 64 3d c1 76  |......,..prod=.v|
00000cf0  65 72 73 69 6f 6e 24 2c  a7 76 65 72 73 69 6f 6e  |ersion$,.version|
00000d00  24 2c 22 2e 22 29 2b 31  2c 31 29 3d 22 30 22 0d  |$,".")+1,1)="0".|
00000d10  04 a6 1b dd a4 64 65 62  75 67 3d ac a4 70 72 6f  |.....debug=..pro|
00000d20  64 20 80 a6 2d 31 80 a6  2d 32 0d 04 b0 04 0d 04  |d ..-1..-2......|
00000d30  ba 3e dd a4 69 6e 69 74  77 69 6d 70 3a 66 69 72  |.>..initwimp:fir|
00000d40  73 74 25 3d a3 3a 74 61  73 6b 68 61 6e 64 6c 65  |st%=.:taskhandle|
00000d50  25 3d a4 74 61 73 6b 3a  e7 74 61 73 6b 68 61 6e  |%=.task:.taskhan|
00000d60  64 6c 65 25 3c 3e 30 3a  3d 32 30 30 0d 04 c4 47  |dle%<>0:=200...G|
00000d70  24 71 25 3d 22 54 41 53  4b 22 3a c8 99 22 57 69  |$q%="TASK":.."Wi|
00000d80  6d 70 5f 49 6e 69 74 69  61 6c 69 73 65 22 2c 32  |mp_Initialise",2|
00000d90  30 30 2c 21 71 25 2c 22  4d 75 6c 74 69 53 74 6f  |00,!q%,"MultiSto|
00000da0  72 65 22 b8 21 71 25 2c  74 61 73 6b 68 61 6e 64  |re".!q%,taskhand|
00000db0  6c 65 25 0d 04 ce 11 66  69 72 73 74 25 3d b9 3a  |le%....first%=.:|
00000dc0  3d 21 71 25 0d 04 d8 04  0d 04 e2 0a dd f2 74 69  |=!q%..........ti|
00000dd0  64 79 0d 04 ec 0e f2 6e  6f 72 6d 70 6f 69 6e 74  |dy.....normpoint|
00000de0  0d 04 f6 16 ef 34 2c 32  36 3a f1 8a 30 2c 32 29  |.....4,26:..0,2)|
00000df0  3b 3a 2a 66 78 34 0d 05  00 0c 2a 66 78 32 32 35  |;:*fx4....*fx225|
00000e00  2c 31 0d 05 0a 0a 2a 66  78 32 32 39 0d 05 14 1a  |,1....*fx229....|
00000e10  5a 25 3d 30 3a c8 99 73  77 69 25 2c 6b 69 6c 6c  |Z%=0:..swi%,kill|
00000e20  74 61 73 6b 5f 25 0d 05  1e 18 ee 85 3a f6 3a f1  |task_%......:.:.|
00000e30  22 20 22 3b 9e 3a f2 71  75 69 74 28 b9 29 0d 05  |" ";.:.quit(.)..|
00000e40  28 2b f1 3b 6d 65 6e 75  65 6e 64 25 2d 6d 65 6e  |(+.;menuend%-men|
00000e50  75 66 72 65 65 25 22 20  62 79 74 65 73 20 6d 65  |ufree%" bytes me|
00000e60  6e 75 20 73 70 61 63 65  22 0d 05 32 36 f1 3b 65  |nu space"..26.;e|
00000e70  6e 64 62 75 66 25 2d 63  75 72 62 75 66 25 22 20  |ndbuf%-curbuf%" |
00000e80  62 79 74 65 73 20 69 6e  64 69 72 65 63 74 69 6f  |bytes indirectio|
00000e90  6e 20 62 75 66 66 65 72  20 73 70 61 63 65 22 0d  |n buffer space".|
00000ea0  05 3c 27 f1 3b 74 62 65  25 2d 74 62 73 25 22 20  |.<'.;tbe%-tbs%" |
00000eb0  62 79 74 65 73 20 74 65  6d 70 6c 61 74 65 20 62  |bytes template b|
00000ec0  75 66 66 65 72 22 0d 05  46 05 e1 0d 05 50 04 0d  |uffer"..F....P..|
00000ed0  05 5a 18 dd f2 62 61 72  69 63 6f 6e 3a e7 ac 66  |.Z...baricon:..f|
00000ee0  69 72 73 74 25 3a e1 0d  05 64 2b 21 71 25 3d 2d  |irst%:...d+!q%=-|
00000ef0  31 3a 71 25 21 34 3d 30  3a 71 25 21 38 3d 30 3a  |1:q%!4=0:q%!8=0:|
00000f00  71 25 21 31 32 3d 31 30  32 3a 71 25 21 31 36 3d  |q%!12=102:q%!16=|
00000f10  36 38 0d 05 6e 30 71 25  21 32 30 3d 25 31 31 30  |68..n0q%!20=%110|
00000f20  30 30 30 30 30 30 30 30  30 31 30 3a 24 28 71 25  |00000000010:$(q%|
00000f30  2b 32 34 29 3d 22 21 22  2b c0 61 70 70 6c 24 2c  |+24)="!"+.appl$,|
00000f40  39 29 0d 05 78 24 c8 99  22 57 69 6d 70 5f 43 72  |9)..x$.."Wimp_Cr|
00000f50  65 61 74 65 49 63 6f 6e  22 2c 2c 71 25 b8 62 61  |eateIcon",,q%.ba|
00000f60  72 69 63 6f 6e 25 0d 05  82 05 e1 0d 05 8c 04 0d  |ricon%..........|
00000f70  05 96 21 dd f2 65 72 72  6f 72 28 65 72 72 25 2c  |..!..error(err%,|
00000f80  65 72 72 24 2c 65 72 6c  25 2c 71 75 69 74 25 29  |err$,erl%,quit%)|
00000f90  0d 05 a0 2a e7 a4 64 65  62 75 67 3a ef 34 2c 33  |...*..debug:.4,3|
00000fa0  30 3a f1 65 72 72 24 22  20 40 20 22 3b 65 72 6c  |0:.err$" @ ";erl|
00000fb0  25 3a f2 71 75 69 74 28  b9 29 0d 05 aa 2e f2 6e  |%:.quit(.).....n|
00000fc0  6f 72 6d 70 6f 69 6e 74  3a 64 72 61 67 72 65 61  |ormpoint:dragrea|
00000fd0  73 6f 6e 25 3d 2d 31 3a  40 25 3d 26 39 30 41 3a  |son%=-1:@%=&90A:|
00000fe0  2a 66 78 32 32 39 2c 31  0d 05 b4 10 ea 69 25 2c  |*fx229,1.....i%,|
00000ff0  65 25 2c 74 24 2c 54 24  0d 05 be 1d e7 ac a4 70  |e%,t$,T$.......p|
00001000  72 6f 64 3a 65 72 72 24  2b 3d 22 20 28 22 2b c3  |rod:err$+=" ("+.|
00001010  9e 2b 22 29 22 0d 05 c8  06 ea 85 0d 05 d2 18 ee  |.+")"...........|
00001020  85 ea 3a f2 65 72 72 6f  72 28 9f 2c f6 24 2c 9e  |..:.error(.,.$,.|
00001030  2c b9 29 0d 05 dc 39 21  71 25 3d 65 72 72 25 3a  |,.)...9!q%=err%:|
00001040  24 28 71 25 2b 34 29 3d  65 72 72 24 3a c8 99 22  |$(q%+4)=err$:.."|
00001050  57 69 6d 70 5f 52 65 70  6f 72 74 45 72 72 6f 72  |Wimp_ReportError|
00001060  22 2c 71 25 2c 31 2c 61  70 70 6c 24 0d 05 e6 13  |",q%,1,appl$....|
00001070  e7 71 75 69 74 25 3a f2  71 75 69 74 28 a3 29 0d  |.quit%:.quit(.).|
00001080  05 f0 05 e1 0d 05 fa 04  0d 06 04 2b dd f2 72 65  |...........+..re|
00001090  70 6f 72 74 3a e7 a4 64  65 62 75 67 3a ef 34 3a  |port:..debug:.4:|
000010a0  f6 3a f1 22 20 40 20 22  3b 9e 3a f2 71 75 69 74  |.:." @ ";.:.quit|
000010b0  28 b9 29 0d 06 0e 05 e1  0d 06 18 04 0d 06 22 09  |(.)...........".|
000010c0  dd a4 64 69 72 0d 06 2c  20 ea 54 24 3a 54 24 3d  |..dir.., .T$:T$=|
000010d0  a4 41 72 66 56 61 72 28  61 70 70 6c 24 2b 22 24  |.ArfVar(appl$+"$|
000010e0  44 69 72 22 29 0d 06 36  21 e7 54 24 3d 22 22 3a  |Dir")..6!.T$="":|
000010f0  54 24 3d 22 26 2e 21 22  2b c0 61 70 70 6c 24 2c  |T$="&.!"+.appl$,|
00001100  39 29 2b 22 2e 22 0d 06  40 16 e7 c2 54 24 29 3c  |9)+"."..@...T$)<|
00001110  3e 22 2e 22 3a 54 24 2b  3d 22 2e 22 0d 06 4a 07  |>".":T$+="."..J.|
00001120  3d 54 24 0d 06 54 04 0d  06 5e 17 dd a4 41 72 66  |=T$..T...^...Arf|
00001130  56 61 72 28 41 24 29 3a  ea 4c 25 2c 56 25 0d 06  |Var(A$):.L%,V%..|
00001140  68 3d c8 99 22 58 4f 53  5f 52 65 61 64 56 61 72  |h=.."XOS_ReadVar|
00001150  56 61 6c 22 2c 41 24 2c  77 6f 72 6b 62 75 66 25  |Val",A$,workbuf%|
00001160  2c 32 35 34 2c 30 2c 33  b8 2c 2c 4c 25 3b 56 25  |,254,0,3.,,L%;V%|
00001170  3a e7 56 25 80 31 3a 4c  25 3d 30 0d 06 72 1d 77  |:.V%.1:L%=0..r.w|
00001180  6f 72 6b 62 75 66 25 3f  4c 25 3d 31 33 3a 3d 24  |orkbuf%?L%=13:=$|
00001190  77 6f 72 6b 62 75 66 25  0d 06 7c 04 0d 06 86 0c  |workbuf%..|.....|
000011a0  dd f2 75 6d 65 73 73 31  0d 06 90 2d 72 65 66 25  |..umess1...-ref%|
000011b0  3d 71 25 21 38 3a 74 61  73 6b 25 3d 71 25 21 34  |=q%!8:task%=q%!4|
000011c0  3a e7 74 61 73 6b 25 3d  74 61 73 6b 68 61 6e 64  |:.task%=taskhand|
000011d0  6c 65 25 3a e1 0d 06 9a  0f 6d 65 73 73 25 3d 71  |le%:.....mess%=q|
000011e0  25 21 31 36 0d 06 a4 0c  c8 8e 6d 65 73 73 25 ca  |%!16......mess%.|
000011f0  0d 06 ae 16 c9 30 3a f2  43 4c 4f 53 45 3a f2 71  |.....0:.CLOSE:.q|
00001200  75 69 74 28 a3 29 0d 06  b8 11 c9 31 3a f2 64 61  |uit(.).....1:.da|
00001210  74 61 73 61 76 65 64 0d  06 c2 10 c9 32 3a f2 73  |tasaved.....2:.s|
00001220  61 76 65 64 61 74 61 0d  06 cc 10 c9 33 3a f2 64  |avedata.....3:.d|
00001230  61 74 61 6c 6f 61 64 0d  06 d6 14 c9 34 3a 61 63  |ataload.....4:ac|
00001240  6b 70 65 6e 64 69 6e 67  25 3d a3 0d 06 e0 10 c9  |kpending%=......|
00001250  35 3a f2 64 61 74 61 6f  70 65 6e 0d 06 ea 07 c9  |5:.dataopen.....|
00001260  36 3a 0d 06 f4 07 c9 37  3a 0d 06 fe 0f c9 38 3a  |6:.....7:.....8:|
00001270  f2 70 72 65 71 75 69 74  0d 07 08 07 c9 39 3a 0d  |.prequit.....9:.|
00001280  07 12 0a c9 26 35 30 32  3a 0d 07 1c 2d c9 26 34  |....&502:...-.&4|
00001290  30 30 43 30 3a f2 73 75  62 6d 65 6e 75 28 71 25  |00C0:.submenu(q%|
000012a0  21 32 30 2c 71 25 21 32  34 2c 71 25 21 32 38 2c  |!20,q%!24,q%!28,|
000012b0  71 25 2b 33 32 29 0d 07  26 13 c9 26 38 30 33 30  |q%+32)..&..&8030|
000012c0  30 3a f2 61 63 6b 72 65  63 0d 07 30 05 cb 0d 07  |0:.ackrec..0....|
000012d0  3a 05 e1 0d 07 44 04 0d  07 4e 0e dd f2 64 61 74  |:....D...N...dat|
000012e0  61 6f 70 65 6e 0d 07 58  28 e7 71 25 21 34 30 3d  |aopen..X(.q%!40=|
000012f0  66 74 5f 66 6f 72 6d 25  3a f2 64 61 74 61 6c 6f  |ft_form%:.datalo|
00001300  61 64 61 63 6b 3a f2 65  72 72 28 31 29 0d 07 62  |adack:.err(1)..b|
00001310  16 e7 71 25 21 34 30 3c  3e 66 74 5f 64 61 74 61  |..q%!40<>ft_data|
00001320  25 3a e1 0d 07 6c 22 f2  64 61 74 61 6c 6f 61 64  |%:...l".dataload|
00001330  61 63 6b 3a 6d 68 25 3d  2d 31 3a f2 63 68 65 63  |ack:mh%=-1:.chec|
00001340  6b 6f 70 65 6e 0d 07 76  42 e7 70 72 6f 63 65 73  |kopen..vB.proces|
00001350  73 25 3d 30 3a e7 ac a4  64 69 61 6c 6f 67 75 65  |s%=0:...dialogue|
00001360  3a f2 6d 73 74 6f 72 65  28 22 32 3a 22 2b a4 7a  |:.mstore("2:"+.z|
00001370  74 73 28 71 25 2b 34 34  29 2c 22 4d 75 6c 74 69  |ts(q%+44),"Multi|
00001380  53 74 6f 72 65 22 29 0d  07 80 05 e1 0d 07 8a 04  |Store").........|
00001390  0d 07 94 0e dd f2 64 61  74 61 6c 6f 61 64 0d 07  |......dataload..|
000013a0  9e 24 ea 54 24 3a 54 24  3d a4 7a 74 73 28 71 25  |.$.T$:T$=.zts(q%|
000013b0  2b 34 34 29 3a 64 65 6c  25 3d 71 25 21 31 32 3c  |+44):del%=q%!12<|
000013c0  3e 30 0d 07 a8 1b f2 72  65 61 64 70 6f 69 6e 74  |>0.....readpoint|
000013d0  65 72 3a f2 77 74 6f 66  28 6d 68 25 29 0d 07 b2  |er:.wtof(mh%)...|
000013e0  0a c8 8e 20 b9 20 ca 0d  07 bc 52 c9 20 71 25 21  |... . ....R. q%!|
000013f0  34 30 3d 26 31 30 30 30  3a 66 69 6c 65 24 3d a4  |40=&1000:file$=.|
00001400  7a 74 73 28 71 25 2b 34  34 29 3a f2 73 74 6f 70  |zts(q%+44):.stop|
00001410  28 33 38 2c c2 66 69 6c  65 24 2c 32 39 29 2c 72  |(38,.file$,29),r|
00001420  6c 24 2b 22 20 73 65 74  20 70 69 63 74 75 72 65  |l$+" set picture|
00001430  20 70 61 74 68 20 3f 22  29 0d 07 c6 1b c9 20 71  | path ?")..... q|
00001440  25 21 34 30 3d 66 74 5f  64 61 74 61 25 80 6d 68  |%!40=ft_data%.mh|
00001450  25 3d 2d 32 0d 07 d0 10  f2 64 61 74 61 6c 6f 61  |%=-2.....dataloa|
00001460  64 61 63 6b 0d 07 da 43  e7 70 72 6f 63 65 73 73  |dack...C.process|
00001470  25 3d 30 e7 ac a4 64 69  61 6c 6f 67 75 65 3a f2  |%=0...dialogue:.|
00001480  63 68 65 63 6b 6f 70 65  6e 3a f2 6d 73 74 6f 72  |checkopen:.mstor|
00001490  65 28 22 33 3a 22 2b 54  24 2c 22 4d 75 6c 74 69  |e("3:"+T$,"Multi|
000014a0  53 74 6f 72 65 22 29 0d  07 e4 18 c9 20 71 25 21  |Store")..... q%!|
000014b0  34 30 3d 26 46 46 44 20  80 6d 68 25 3d 2d 32 0d  |40=&FFD .mh%=-2.|
000014c0  07 ee 2a e7 70 72 6f 63  65 73 73 25 3d 30 3a e7  |..*.process%=0:.|
000014d0  ac a4 64 69 61 6c 6f 67  75 65 3a f2 63 68 65 63  |..dialogue:.chec|
000014e0  6b 63 6f 6e 76 28 54 24  29 0d 07 f8 30 c9 20 71  |kconv(T$)...0. q|
000014f0  25 21 34 30 3d 66 74 5f  66 6f 72 6d 25 80 6d 68  |%!40=ft_form%.mh|
00001500  25 3d 2d 32 3a f2 64 61  74 61 6c 6f 61 64 61 63  |%=-2:.dataloadac|
00001510  6b 3a f2 65 72 72 28 31  29 0d 08 02 78 c9 20 28  |k:.err(1)...x. (|
00001520  71 25 21 34 30 3d 66 74  5f 66 6f 72 6d 25 84 71  |q%!40=ft_form%.q|
00001530  25 21 34 30 3d 66 74 5f  64 61 74 61 25 29 80 66  |%!40=ft_data%).f|
00001540  69 6c 65 25 3e 3d 30 80  77 69 6e 64 25 3c 32 3a  |ile%>=0.wind%<2:|
00001550  f2 64 61 74 61 6c 6f 61  64 61 63 6b 3a 66 69 6c  |.dataloadack:fil|
00001560  65 24 3d 54 24 3a f2 73  74 6f 70 28 31 30 30 2c  |e$=T$:.stop(100,|
00001570  a4 6c 65 61 66 28 66 69  6c 65 24 29 2c 72 6c 24  |.leaf(file$),rl$|
00001580  2b 22 6c 6f 61 64 20 6c  61 79 6f 75 74 20 3f 22  |+"load layout ?"|
00001590  29 0d 08 0c 5d c9 20 71  25 21 34 30 3d 26 46 46  |)...]. q%!40=&FF|
000015a0  46 20 80 66 69 6c 65 25  3e 3d 30 80 77 69 6e 64  |F .file%>=0.wind|
000015b0  25 3d 30 3a f2 64 61 74  61 6c 6f 61 64 61 63 6b  |%=0:.dataloadack|
000015c0  3a 66 69 6c 65 24 3d 54  24 3a f2 73 74 6f 70 28  |:file$=T$:.stop(|
000015d0  32 36 2c 22 22 2c 72 6c  24 2b 22 6c 6f 61 64 20  |26,"",rl$+"load |
000015e0  41 53 43 49 49 20 63 61  72 64 20 3f 22 29 0d 08  |ASCII card ?")..|
000015f0  16 05 cb 0d 08 20 05 e1  0d 08 2a 04 0d 08 34 0d  |..... ....*...4.|
00001600  dd f2 6e 6f 73 63 72 61  70 0d 08 3e 1e e7 64 65  |..noscrap..>..de|
00001610  6c 25 3a 2a 72 65 6d 6f  76 65 20 3c 57 69 6d 70  |l%:*remove <Wimp|
00001620  24 53 63 72 61 70 3e 0d  08 48 05 e1 0d 08 52 04  |$Scrap>..H....R.|
00001630  0d 08 5c 1c dd f2 64 61  74 61 73 61 76 65 64 3a  |..\...datasaved:|
00001640  e7 a4 64 69 61 6c 6f 67  75 65 3a e1 0d 08 66 1b  |..dialogue:...f.|
00001650  f2 72 65 61 64 70 6f 69  6e 74 65 72 3a f2 77 74  |.readpointer:.wt|
00001660  6f 66 28 6d 68 25 29 0d  08 70 0a c8 8e 20 b9 20  |of(mh%)..p... . |
00001670  ca 0d 08 7a 41 c9 20 71  25 21 34 30 3d 26 46 46  |...zA. q%!40=&FF|
00001680  46 20 80 66 69 6c 65 25  3e 3d 30 80 28 77 69 6e  |F .file%>=0.(win|
00001690  64 25 3d 36 84 77 69 6e  64 25 3d 37 84 77 69 6e  |d%=6.wind%=7.win|
000016a0  64 25 3d 30 29 3a f2 64  61 74 61 73 61 76 65 61  |d%=0):.datasavea|
000016b0  63 6b 0d 08 84 05 cb 0d  08 8e 05 e1 0d 08 98 04  |ck..............|
000016c0  0d 08 a2 0d dd f2 65 72  72 28 45 25 29 0d 08 ac  |......err(E%)...|
000016d0  39 ea 54 24 2c 41 24 3a  e7 66 69 6c 65 25 3e 3d  |9.T$,A$:.file%>=|
000016e0  30 41 24 3d 22 2c 20 22  2b 66 69 24 2b a4 66 69  |0A$=", "+fi$+.fi|
000016f0  6c 65 6e 61 6d 65 2b 22  20 2d 20 22 3a 8b 41 24  |lename+" - ":.A$|
00001700  3d 22 20 2d 20 22 0d 08  b6 14 40 25 3d 26 39 30  |=" - "....@%=&90|
00001710  41 3a 2a 66 78 32 32 39  2c 31 0d 08 c0 09 c8 8e  |A:*fx229,1......|
00001720  45 25 ca 0d 08 ca 0c c9  30 3a 54 24 3d f6 24 0d  |E%......0:T$=.$.|
00001730  08 d4 30 c9 31 3a 54 24  3d 22 54 6f 20 75 73 65  |..0.1:T$="To use|
00001740  20 61 20 66 6f 72 6d 61  74 2c 20 64 72 61 67 20  | a format, drag |
00001750  69 74 20 6f 6e 74 6f 20  61 20 63 61 72 64 22 0d  |it onto a card".|
00001760  08 de 2d c9 32 3a 54 24  3d 22 4d 75 73 74 20 62  |..-.2:T$="Must b|
00001770  65 20 76 65 72 73 69 6f  6e 20 31 2e 38 20 57 49  |e version 1.8 WI|
00001780  4d 50 20 6f 72 20 6c 61  74 65 72 22 0d 08 e8 2b  |MP or later"...+|
00001790  c9 33 3a 54 24 3d 73 79  24 2b 22 54 6f 6f 20 6d  |.3:T$=sy$+"Too m|
000017a0  61 6e 79 20 66 69 6c 65  73 20 61 6c 72 65 61 64  |any files alread|
000017b0  79 20 6f 70 65 6e 22 0d  08 f2 3e c9 34 3a 54 24  |y open"...>.4:T$|
000017c0  3d 73 79 24 2b 22 59 6f  75 20 63 61 6e 20 6f 6e  |=sy$+"You can on|
000017d0  6c 79 20 72 75 6e 20 6f  6e 65 20 52 41 4d 4d 61  |ly run one RAMMa|
000017e0  6e 61 67 65 72 20 74 61  73 6b 20 61 74 20 61 20  |nager task at a |
000017f0  74 69 6d 65 22 0d 08 fc  48 c9 35 3a 54 24 3d 22  |time"...H.5:T$="|
00001800  54 6f 20 73 61 76 65 2c  20 64 72 61 67 20 74 68  |To save, drag th|
00001810  65 20 69 63 6f 6e 20 74  6f 20 61 20 64 69 72 65  |e icon to a dire|
00001820  63 74 6f 72 79 20 76 69  65 77 65 72 20 6f 72 20  |ctory viewer or |
00001830  61 6e 6f 74 68 65 72 20  74 61 73 6b 22 0d 09 06  |another task"...|
00001840  63 c9 36 3a 54 24 3d 22  43 6f 75 6c 64 6e 27 74  |c.6:T$="Couldn't|
00001850  20 6f 70 65 6e 20 66 69  6c 65 3a 20 22 2b f6 24  | open file: "+.$|
00001860  3a e7 f6 24 3d 22 44 61  74 61 20 6c 6f 73 74 22  |:..$="Data lost"|
00001870  3a 54 24 2b 3d 22 20 28  45 6e 73 75 72 65 20 74  |:T$+=" (Ensure t|
00001880  68 65 20 64 69 73 63 20  69 73 20 6e 6f 74 20 77  |he disc is not w|
00001890  72 69 74 65 20 70 72 6f  74 65 63 74 65 64 29 22  |rite protected)"|
000018a0  0d 09 10 25 c9 37 3a 54  24 3d 22 43 6f 75 6c 64  |...%.7:T$="Could|
000018b0  6e 27 74 20 6f 70 65 6e  20 66 6f 72 6d 61 74 3a  |n't open format:|
000018c0  20 22 2b f6 24 0d 09 1a  28 c9 31 30 3a 54 24 3d  | "+.$...(.10:T$=|
000018d0  22 55 6e 62 61 6c 61 6e  63 65 64 20 71 75 6f 74  |"Unbalanced quot|
000018e0  65 20 6d 61 72 6b 73 20  28 22 22 29 22 0d 09 24  |e marks ("")"..$|
000018f0  20 c9 31 31 3a 54 24 3d  22 55 6e 62 61 6c 61 6e  | .11:T$="Unbalan|
00001900  63 65 64 20 62 72 61 63  6b 65 74 73 22 0d 09 2e  |ced brackets"...|
00001910  31 c9 31 36 3a 54 24 3d  22 46 69 65 6c 64 20 6e  |1.16:T$="Field n|
00001920  61 6d 65 73 20 6d 75 73  74 20 73 74 61 72 74 20  |ames must start |
00001930  77 69 74 68 20 61 20 6c  65 74 74 65 72 22 0d 09  |with a letter"..|
00001940  38 26 c9 32 34 3a 54 24  3d 22 46 69 65 6c 64 20  |8&.24:T$="Field |
00001950  61 73 73 69 67 6e 6d 65  6e 74 20 65 78 70 65 63  |assignment expec|
00001960  74 65 64 22 0d 09 42 25  c9 32 35 3a 54 24 3d 22  |ted"..B%.25:T$="|
00001970  46 69 65 6c 64 20 6e 61  6d 65 20 6e 6f 74 20 73  |Field name not s|
00001980  70 65 63 69 66 69 65 64  22 0d 09 4c 23 c9 34 31  |pecified"..L#.41|
00001990  3a 54 24 3d 22 50 72 69  6e 74 65 72 20 61 6c 72  |:T$="Printer alr|
000019a0  65 61 64 79 20 69 6e 20  75 73 65 22 0d 09 56 39  |eady in use"..V9|
000019b0  c9 34 36 3a 54 24 3d 22  45 78 70 6f 72 74 69 6e  |.46:T$="Exportin|
000019c0  67 20 72 65 70 6f 72 74  22 2b 41 24 2b f6 24 2b  |g report"+A$+.$+|
000019d0  22 20 28 65 78 70 6f 72  74 20 63 61 6e 63 65 6c  |" (export cancel|
000019e0  6c 65 64 29 22 0d 09 60  45 c9 34 37 3a 54 24 3d  |led)"..`E.47:T$=|
000019f0  22 54 68 65 20 74 77 6f  20 6e 65 77 20 70 61 73  |"The two new pas|
00001a00  73 77 6f 72 64 73 20 6d  75 73 74 20 62 65 20 69  |swords must be i|
00001a10  64 65 6e 74 69 63 61 6c  2e 20 50 6c 65 61 73 65  |dentical. Please|
00001a20  20 72 65 2d 65 6e 74 65  72 22 0d 09 6a 31 c9 35  | re-enter"..j1.5|
00001a30  30 3a 54 24 3d 22 43 61  6e 27 74 20 72 65 63 6f  |0:T$="Can't reco|
00001a40  67 6e 69 73 65 20 66 6f  72 6d 61 74 20 6f 66 20  |gnise format of |
00001a50  73 65 74 75 70 20 66 69  6c 65 22 0d 09 74 3c c9  |setup file"..t<.|
00001a60  35 31 3a 54 24 3d 22 59  6f 75 20 6d 75 73 74 20  |51:T$="You must |
00001a70  73 70 65 63 69 66 79 20  74 68 65 20 63 75 72 72  |specify the curr|
00001a80  65 6e 74 20 70 61 73 73  77 6f 72 64 20 63 6f 72  |ent password cor|
00001a90  72 65 63 74 6c 79 22 0d  09 7e 1e c9 35 39 3a 54  |rectly"..~..59:T|
00001aa0  24 3d 22 50 72 6f 67 72  61 6d 20 6e 6f 74 20 66  |$="Program not f|
00001ab0  6f 75 6e 64 22 0d 09 88  30 c9 36 30 3a 54 24 3d  |ound"...0.60:T$=|
00001ac0  f6 24 2b 22 20 2d 20 43  61 6e 27 74 20 6c 6f 61  |.$+" - Can't loa|
00001ad0  64 20 72 65 71 75 65 73  74 65 64 20 73 6f 66 74  |d requested soft|
00001ae0  77 61 72 65 22 0d 09 92  45 c9 31 30 30 3a 54 24  |ware"...E.100:T$|
00001af0  3d 73 79 24 2b 22 59 6f  75 20 63 61 6e 27 74 20  |=sy$+"You can't |
00001b00  63 72 65 61 74 65 20 61  20 66 69 6c 65 2f 66 6f  |create a file/fo|
00001b10  72 6d 61 74 20 77 68 65  6e 20 6f 74 68 65 72 73  |rmat when others|
00001b20  20 61 72 65 20 6f 70 65  6e 22 0d 09 9c 4b c9 31  | are open"...K.1|
00001b30  30 31 3a 54 24 3d 22 50  6c 65 61 73 65 20 73 70  |01:T$="Please sp|
00001b40  65 63 69 66 79 20 66 75  6c 6c 20 70 61 74 68 6e  |ecify full pathn|
00001b50  61 6d 65 20 6f 72 20 64  72 61 67 20 69 63 6f 6e  |ame or drag icon|
00001b60  20 74 6f 20 64 69 72 65  63 74 6f 72 79 20 76 69  | to directory vi|
00001b70  65 77 65 72 22 0d 09 a6  4a c9 31 30 32 3a 54 24  |ewer"...J.102:T$|
00001b80  3d 22 50 6c 65 61 73 65  20 64 72 61 67 20 74 68  |="Please drag th|
00001b90  65 20 69 63 6f 6e 20 74  6f 20 61 20 64 69 72 65  |e icon to a dire|
00001ba0  63 74 6f 72 79 20 76 69  65 77 65 72 2c 20 4e 4f  |ctory viewer, NO|
00001bb0  54 20 61 6e 6f 74 68 65  72 20 74 61 73 6b 22 0d  |T another task".|
00001bc0  09 b0 47 c9 31 30 33 3a  54 24 3d 73 79 24 2b 22  |..G.103:T$=sy$+"|
00001bd0  4e 6f 20 61 63 63 65 73  73 20 74 6f 20 74 68 65  |No access to the|
00001be0  20 70 72 69 6e 74 65 72  20 64 72 69 76 65 72 20  | printer driver |
00001bf0  77 68 69 6c 65 20 63 72  65 61 74 69 6e 67 20 61  |while creating a|
00001c00  20 66 69 6c 65 22 0d 09  ba 42 c9 31 30 34 3a 54  | file"...B.104:T|
00001c10  24 3d 73 79 24 2b 22 59  6f 75 20 63 61 6e 27 74  |$=sy$+"You can't|
00001c20  20 6f 70 65 6e 20 61 20  66 69 6c 65 20 77 68 69  | open a file whi|
00001c30  6c 65 20 79 6f 75 20 61  72 65 20 63 72 65 61 74  |le you are creat|
00001c40  69 6e 67 20 6f 6e 65 22  0d 09 c4 44 c9 31 30 35  |ing one"...D.105|
00001c50  3a 54 24 3d 73 79 24 2b  22 59 6f 75 20 6d 75 73  |:T$=sy$+"You mus|
00001c60  74 20 73 61 76 65 20 74  68 65 20 66 69 6c 65 20  |t save the file |
00001c70  62 65 66 6f 72 65 20 79  6f 75 20 63 61 6e 20 73  |before you can s|
00001c80  65 74 20 74 68 65 20 73  69 7a 65 22 0d 09 ce 48  |et the size"...H|
00001c90  c9 31 30 36 3a 54 24 3d  22 50 6c 65 61 73 65 20  |.106:T$="Please |
00001ca0  64 65 73 69 67 6e 20 74  68 65 20 63 61 72 64 20  |design the card |
00001cb0  6c 61 79 6f 75 74 20 62  65 66 6f 72 65 20 73 65  |layout before se|
00001cc0  74 74 69 6e 67 20 74 68  65 20 66 69 6c 65 20 73  |tting the file s|
00001cd0  69 7a 65 22 0d 09 d8 3a  c9 31 30 37 3a 54 24 3d  |ize"...:.107:T$=|
00001ce0  22 54 68 65 20 63 61 72  65 74 20 6d 75 73 74 20  |"The caret must |
00001cf0  62 65 20 69 6e 20 74 68  65 20 66 69 65 6c 64 20  |be in the field |
00001d00  74 6f 20 62 65 20 64 65  6c 65 74 65 64 22 0d 09  |to be deleted"..|
00001d10  e2 2a c9 31 30 38 3a 54  24 3d 22 54 68 69 73 20  |.*.108:T$="This |
00001d20  69 73 20 61 20 66 6f 72  6d 61 74 2c 20 6e 6f 74  |is a format, not|
00001d30  20 61 20 66 69 6c 65 22  0d 09 ec 4a c9 31 30 39  | a file"...J.109|
00001d40  3a 54 24 3d 73 79 24 2b  22 59 6f 75 20 63 61 6e  |:T$=sy$+"You can|
00001d50  27 74 20 74 72 61 6e 73  66 65 72 20 63 61 72 64  |'t transfer card|
00001d60  73 20 69 6e 74 6f 20 61  20 66 6f 72 6d 61 74 20  |s into a format |
00001d70  6f 72 20 75 6e 64 65 66  69 6e 65 64 20 66 69 6c  |or undefined fil|
00001d80  65 22 0d 09 f6 42 c9 31  31 30 3a 54 24 3d 73 79  |e"...B.110:T$=sy|
00001d90  24 2b 22 59 6f 75 20 63  61 6e 27 74 20 73 6f 72  |$+"You can't sor|
00001da0  74 20 61 20 66 69 6c 65  20 77 68 69 6c 65 20 79  |t a file while y|
00001db0  6f 75 20 61 72 65 20 63  72 65 61 74 69 6e 67 20  |ou are creating |
00001dc0  69 74 21 22 0d 0a 00 32  c9 31 31 31 3a 54 24 3d  |it!"...2.111:T$=|
00001dd0  22 49 6e 64 65 78 20 6e  61 6d 65 73 20 6d 75 73  |"Index names mus|
00001de0  74 20 73 74 61 72 74 20  77 69 74 68 20 61 20 6c  |t start with a l|
00001df0  65 74 74 65 72 22 0d 0a  0a 3e c9 31 31 32 3a 54  |etter"...>.112:T|
00001e00  24 3d 22 50 6c 65 61 73  65 20 65 6e 74 65 72 20  |$="Please enter |
00001e10  61 20 73 75 69 74 61 62  6c 65 20 65 78 70 72 65  |a suitable expre|
00001e20  73 73 69 6f 6e 20 66 6f  72 20 74 68 65 20 69 6e  |ssion for the in|
00001e30  64 65 78 22 0d 0a 14 26  c9 31 31 33 3a 54 24 3d  |dex"...&.113:T$=|
00001e40  f6 24 2b 22 20 2d 20 63  6f 70 79 20 6e 6f 74 20  |.$+" - copy not |
00001e50  63 6f 6d 70 6c 65 74 65  64 22 0d 0a 1e 1e c9 31  |completed".....1|
00001e60  31 34 3a 54 24 3d 22 43  6f 70 79 20 69 6e 74 65  |14:T$="Copy inte|
00001e70  72 72 75 70 74 65 64 22  0d 0a 28 2b c9 31 31 35  |rrupted"..(+.115|
00001e80  3a 54 24 3d 22 50 6c 65  61 73 65 20 75 73 65 20  |:T$="Please use |
00001e90  75 6e 69 71 75 65 20 66  69 65 6c 64 20 6e 61 6d  |unique field nam|
00001ea0  65 73 22 0d 0a 32 31 c9  31 31 36 3a 54 24 3d 22  |es"..21.116:T$="|
00001eb0  53 6f 72 72 79 20 2d 20  42 42 43 20 66 69 6c 65  |Sorry - BBC file|
00001ec0  73 20 61 72 65 20 6e 6f  74 20 61 76 61 69 6c 61  |s are not availa|
00001ed0  62 6c 65 22 0d 0a 3c 26  7f 3a 54 24 3d 22 55 6e  |ble"..<&.:T$="Un|
00001ee0  72 65 63 6f 67 6e 69 73  65 64 20 69 6e 74 65 72  |recognised inter|
00001ef0  6e 61 6c 20 65 72 72 6f  72 22 0d 0a 46 05 cb 0d  |nal error"..F...|
00001f00  0a 50 25 e7 a4 64 65 62  75 67 3a 54 24 2b 3d 22  |.P%..debug:T$+="|
00001f10  20 28 22 2b c3 9e 2b 22  29 20 5b 22 2b c3 45 25  | ("+..+") ["+.E%|
00001f20  2b 22 5d 22 0d 0a 5a 0a  85 39 39 2c 54 24 0d 0a  |+"]"..Z..99,T$..|
00001f30  64 04 0d 0a 6e 0e dd f2  69 6e 69 74 66 69 6c 65  |d...n...initfile|
00001f40  0d 0a 78 37 66 6c 67 25  3d 30 3a e7 74 6f 6f 6c  |..x7flg%=0:.tool|
00001f50  73 25 3a 66 6c 67 25 3d  66 5f 70 61 6e 65 25 3a  |s%:flg%=f_pane%:|
00001f60  66 73 69 7a 65 25 28 30  29 3d 30 3a 66 73 69 7a  |fsize%(0)=0:fsiz|
00001f70  65 25 28 31 29 3d 30 0d  0a 82 05 e1 0d 0a 8c 04  |e%(1)=0.........|
00001f80  0d 0a 96 13 dd f2 63 6c  6f 73 65 66 69 6c 65 28  |......closefile(|
00001f90  54 25 29 0d 0a a0 08 e7  54 25 8c 0d 0a aa 15 c8  |T%).....T%......|
00001fa0  99 73 77 69 25 2c 63 6c  6f 73 65 5f 25 b8 53 25  |.swi%,close_%.S%|
00001fb0  0d 0a b4 05 cc 0d 0a be  14 c8 99 73 77 69 25 2c  |...........swi%,|
00001fc0  61 62 61 6e 64 6f 6e 5f  25 0d 0a c8 0b f2 72 65  |abandon_%.....re|
00001fd0  6d 6f 76 65 0d 0a d2 05  cd 0d 0a dc 15 f2 72 65  |move..........re|
00001fe0  61 64 79 3a f2 64 65 6c  66 69 6c 65 77 73 0d 0a  |ady:.delfilews..|
00001ff0  e6 19 77 25 28 30 29 3d  2d 31 45 39 3a 63 6c 6f  |..w%(0)=-1E9:clo|
00002000  73 65 6f 6b 25 3d a3 0d  0a f0 05 e1 0d 0a fa 04  |seok%=..........|
00002010  0d 0b 04 18 dd f2 72 65  6d 6f 76 65 3a ea 85 3a  |......remove:..:|
00002020  ee 85 ea 3a f7 85 3a e1  0d 0b 0e 1e e7 66 6e 24  |...:..:......fn$|
00002030  3c 3e 75 6e 74 24 3a ff  22 2a 72 65 6d 6f 76 65  |<>unt$:."*remove|
00002040  20 22 2b 66 6e 24 0d 0b  18 05 e1 0d 0b 22 04 0d  | "+fn$......."..|
00002050  0b 2c 20 dd f2 61 6c 69  67 6e 28 49 25 29 3a e7  |., ..align(I%):.|
00002060  74 78 31 25 2d 74 78 30  25 3e 31 30 38 3a e1 0d  |tx1%-tx0%>108:..|
00002070  0b 36 10 dd f2 61 6c 69  67 6e 31 28 49 25 29 0d  |.6...align1(I%).|
00002080  0b 40 28 74 78 30 25 3d  49 25 2a 34 30 2d 34 30  |.@(tx0%=I%*40-40|
00002090  2b 70 61 6e 65 77 25 2b  38 3a 74 78 31 25 3d 74  |+panew%+8:tx1%=t|
000020a0  78 30 25 2b 34 34 30 0d  0b 4a 23 74 79 31 25 3d  |x0%+440..J#ty1%=|
000020b0  39 30 30 2d 49 25 2a 34  30 2b 34 30 3a 74 79 30  |900-I%*40+40:ty0|
000020c0  25 3d 74 79 31 25 2d 33  32 30 0d 0b 54 05 e1 0d  |%=ty1%-320..T...|
000020d0  0b 5e 04 0d 0b 68 0e dd  f2 6d 61 6b 65 70 61 6e  |.^...h...makepan|
000020e0  65 0d 0b 72 23 ea 50 25  3a 50 25 3d a4 63 72 77  |e..r#.P%:P%=.crw|
000020f0  69 6e 64 28 74 77 25 28  31 29 29 3a 77 25 28 31  |ind(tw%(1)):w%(1|
00002100  29 3d 50 25 0d 0b 7c 43  f2 67 65 74 77 28 50 25  |)=P%..|C.getw(P%|
00002110  29 3a 70 61 6e 65 68 25  3d 79 31 25 2d 79 30 25  |):paneh%=y1%-y0%|
00002120  3a 70 61 6e 65 77 25 3d  78 31 25 2d 78 30 25 3a  |:panew%=x1%-x0%:|
00002130  f2 77 65 78 74 28 50 25  2c 70 61 6e 65 77 25 2c  |.wext(P%,panew%,|
00002140  70 61 6e 65 68 25 29 0d  0b 86 05 e1 0d 0b 90 04  |paneh%).........|
00002150  0d 0b 9a 1c dd f2 6d 61  6b 65 66 6c 69 73 74 3a  |......makeflist:|
00002160  ea 58 25 2c 59 25 2c 50  25 2c 54 25 0d 0b a4 36  |.X%,Y%,P%,T%...6|
00002170  50 25 3d a4 6d 61 6b 65  77 69 6e 64 28 32 29 3a  |P%=.makewind(2):|
00002180  54 25 3d a4 74 61 28 50  25 29 3a 24 54 25 3d 22  |T%=.ta(P%):$T%="|
00002190  46 69 65 6c 64 73 3d 22  2b a4 66 69 6c 65 6e 61  |Fields="+.filena|
000021a0  6d 65 0d 0b ae 20 54 25  3d a9 24 54 25 2b 34 3a  |me... T%=.$T%+4:|
000021b0  c8 99 73 77 69 25 2c 73  64 36 34 5f 25 2c 31 b8  |..swi%,sd64_%,1.|
000021c0  47 25 0d 0b b8 0f e7 47  25 3c 54 25 47 25 3d 54  |G%.....G%<T%G%=T|
000021d0  25 0d 0b c2 15 58 25 3d  47 25 3a e7 58 25 3c 32  |%....X%=G%:.X%<2|
000021e0  31 58 25 3d 32 31 0d 0b  cc 17 59 25 3d a4 76 5f  |1X%=21....Y%=.v_|
000021f0  28 37 29 3a e7 59 25 3c  32 59 25 3d 32 0d 0b d6  |(7):.Y%<2Y%=2...|
00002200  33 f2 77 65 78 74 28 50  25 2c 58 25 2a 31 36 2b  |3.wext(P%,X%*16+|
00002210  6d 61 72 67 69 6e 25 2a  32 2c 59 25 2a 6c 69 6e  |margin%*2,Y%*lin|
00002220  65 67 61 70 25 2b 6d 61  72 67 69 6e 25 2a 32 29  |egap%+margin%*2)|
00002230  0d 0b e0 05 e1 0d 0b ea  04 0d 0b f4 1c dd f2 6d  |...............m|
00002240  61 6b 65 69 6c 69 73 74  3a ea 58 25 2c 59 25 2c  |akeilist:.X%,Y%,|
00002250  54 25 2c 50 25 0d 0b fe  37 50 25 3d a4 6d 61 6b  |T%,P%...7P%=.mak|
00002260  65 77 69 6e 64 28 33 29  3a 54 25 3d a4 74 61 28  |ewind(3):T%=.ta(|
00002270  50 25 29 3a 24 54 25 3d  22 49 6e 64 69 63 65 73  |P%):$T%="Indices|
00002280  3d 22 2b a4 66 69 6c 65  6e 61 6d 65 0d 0c 08 20  |="+.filename... |
00002290  54 25 3d a9 24 54 25 2b  34 3a c8 99 73 77 69 25  |T%=.$T%+4:..swi%|
000022a0  2c 73 64 36 34 5f 25 2c  32 b8 47 25 0d 0c 12 0f  |,sd64_%,2.G%....|
000022b0  e7 47 25 3c 54 25 47 25  3d 54 25 0d 0c 1c 15 58  |.G%<T%G%=T%....X|
000022c0  25 3d 47 25 3a e7 58 25  3c 32 33 58 25 3d 32 33  |%=G%:.X%<23X%=23|
000022d0  0d 0c 26 1a 59 25 3d a4  6e 69 6e 64 69 63 65 73  |..&.Y%=.nindices|
000022e0  3a e7 59 25 3c 32 59 25  3d 32 0d 0c 30 35 f2 77  |:.Y%<2Y%=2..05.w|
000022f0  65 78 74 28 50 25 2c 58  25 2a 31 36 2b 6d 61 72  |ext(P%,X%*16+mar|
00002300  67 69 6e 25 2a 32 2c 59  25 2a 6c 69 6e 65 67 61  |gin%*2,Y%*linega|
00002310  70 25 2b 6d 61 72 67 69  6e 25 2a 32 29 3a e1 0d  |p%+margin%*2):..|
00002320  0c 3a 04 0d 0c 44 1c dd  a4 6d 61 6b 65 77 69 6e  |.:...D...makewin|
00002330  64 28 54 25 29 3a ea 50  25 2c 49 25 2c 4b 25 0d  |d(T%):.P%,I%,K%.|
00002340  0c 4e 34 4b 25 3d 77 25  28 54 25 29 3e 30 3a e7  |.N4K%=w%(T%)>0:.|
00002350  4b 25 f2 67 65 74 77 28  77 25 28 54 25 29 29 8b  |K%.getw(w%(T%)).|
00002360  f2 72 65 61 64 62 6c 6f  63 6b 28 74 77 25 28 54  |.readblock(tw%(T|
00002370  25 29 29 0d 0c 58 32 74  78 30 25 3d 78 30 25 3a  |%))..X2tx0%=x0%:|
00002380  74 79 30 25 3d 79 30 25  3a 74 78 31 25 3d 78 31  |ty0%=y0%:tx1%=x1|
00002390  25 3a 74 79 31 25 3d 79  31 25 3a f2 61 6c 69 67  |%:ty1%=y1%:.alig|
000023a0  6e 28 54 25 29 0d 0c 62  2f f2 64 65 6c 66 69 6c  |n(T%)..b/.delfil|
000023b0  65 77 28 54 25 29 3a 50  25 3d a4 63 72 77 69 6e  |ew(T%):P%=.crwin|
000023c0  64 28 74 77 25 28 54 25  29 29 3a 77 25 28 54 25  |d(tw%(T%)):w%(T%|
000023d0  29 3d 50 25 0d 0c 6c 2c  f2 6f 70 65 6e 28 50 25  |)=P%..l,.open(P%|
000023e0  2c 74 78 30 25 2c 74 79  30 25 2c 74 78 31 25 2c  |,tx0%,ty0%,tx1%,|
000023f0  74 79 31 25 2c 30 2c 30  2c 2d 31 29 3a 3d 50 25  |ty1%,0,0,-1):=P%|
00002400  0d 0c 76 04 0d 0c 80 31  dd a4 63 72 77 69 6e 64  |..v....1..crwind|
00002410  28 54 25 29 3a c8 99 22  57 69 6d 70 5f 43 72 65  |(T%):.."Wimp_Cre|
00002420  61 74 65 57 69 6e 64 6f  77 22 2c 2c 54 25 b8 54  |ateWindow",,T%.T|
00002430  25 3a 3d 54 25 0d 0c 8a  04 0d 0c 94 0e dd f2 69  |%:=T%..........i|
00002440  6e 69 74 70 61 6e 65 0d  0c 9e 1b 6c 63 78 25 3d  |nitpane....lcx%=|
00002450  2d 31 3a 6c 63 79 25 3d  2d 31 3a 6c 63 66 25 3d  |-1:lcy%=-1:lcf%=|
00002460  2d 31 0d 0c a8 20 f2 73  68 6f 77 63 75 72 73 3a  |-1... .showcurs:|
00002470  f2 73 68 6f 77 66 6c 64  3a f2 73 68 6f 77 73 69  |.showfld:.showsi|
00002480  7a 65 0d 0c b2 05 e1 0d  0c bc 04 0d 0c c6 2b dd  |ze............+.|
00002490  f2 73 68 6f 77 63 75 72  73 3a ea 58 25 2c 59 25  |.showcurs:.X%,Y%|
000024a0  3a 58 25 3d a4 76 5f 28  31 32 29 3a 59 25 3d a4  |:X%=.v_(12):Y%=.|
000024b0  76 5f 28 31 33 29 0d 0c  d0 16 e7 58 25 3d 6c 63  |v_(13).....X%=lc|
000024c0  78 25 80 59 25 3d 6c 63  79 25 3a e1 0d 0c da 31  |x%.Y%=lcy%:....1|
000024d0  f2 73 65 74 69 28 77 25  28 31 29 2c 31 35 2c c3  |.seti(w%(1),15,.|
000024e0  58 25 2b 22 2c 22 2b c3  59 25 29 3a 6c 63 78 25  |X%+","+.Y%):lcx%|
000024f0  3d 58 25 3a 6c 63 79 25  3d 59 25 3a e1 0d 0c e4  |=X%:lcy%=Y%:....|
00002500  04 0d 0c ee 1e dd f2 73  68 6f 77 66 6c 64 3a c8  |.......showfld:.|
00002510  99 73 77 69 25 2c 73 64  37 30 5f 25 b8 47 25 0d  |.swi%,sd70_%.G%.|
00002520  0c f8 0e e7 47 25 3d 6c  63 66 25 3a e1 0d 0d 02  |....G%=lcf%:....|
00002530  0a ea 54 25 2c 54 24 0d  0d 0c 10 54 25 3d 47 25  |..T%,T$....T%=G%|
00002540  3a e7 47 25 3e 30 8c 0d  0d 16 1a c8 99 73 77 69  |:.G%>0.......swi|
00002550  25 2c 73 64 31 37 5f 25  2c 31 31 2c 47 25 b8 47  |%,sd17_%,11,G%.G|
00002560  25 0d 0d 20 10 54 24 3d  c0 24 73 64 25 2c 31 36  |%.. .T$=.$sd%,16|
00002570  29 0d 0d 2a 05 cd 0d 0d  34 2d f2 6d 61 72 6b 66  |)..*....4-.markf|
00002580  6c 64 28 54 25 29 3a f2  73 65 74 69 28 77 25 28  |ld(T%):.seti(w%(|
00002590  31 29 2c 31 37 2c 54 24  29 3a 6c 63 66 25 3d 54  |1),17,T$):lcf%=T|
000025a0  25 3a e1 0d 0d 3e 04 0d  0d 48 0e dd f2 73 68 6f  |%:...>...H...sho|
000025b0  77 73 69 7a 65 0d 0d 52  0e c8 8e a4 66 73 70 65  |wsize..R....fspe|
000025c0  63 20 ca 0d 0d 5c 26 c9  30 3a f2 73 65 74 69 28  |c ...\&.0:.seti(|
000025d0  77 25 28 31 29 2c 35 2c  22 42 42 43 20 43 6f 6d  |w%(1),5,"BBC Com|
000025e0  70 61 74 61 62 6c 65 22  29 0d 0d 66 22 c9 31 3a  |patable")..f".1:|
000025f0  f2 73 65 74 69 28 77 25  28 31 29 2c 35 2c 22 4e  |.seti(w%(1),5,"N|
00002600  6f 20 53 75 62 73 65 74  73 22 29 0d 0d 70 23 c9  |o Subsets")..p#.|
00002610  35 3a f2 73 65 74 69 28  77 25 28 31 29 2c 35 2c  |5:.seti(w%(1),5,|
00002620  22 32 34 20 2b 20 38 20  42 69 74 73 22 29 0d 0d  |"24 + 8 Bits")..|
00002630  7a 2f 7f 3a f2 73 65 74  69 28 77 25 28 31 29 2c  |z/.:.seti(w%(1),|
00002640  35 2c c3 28 28 a4 66 73  70 65 63 2d 31 29 2a 38  |5,.((.fspec-1)*8|
00002650  29 2b 22 20 53 75 62 73  65 74 73 22 29 0d 0d 84  |)+" Subsets")...|
00002660  05 cb 0d 0d 8e 1f e7 66  73 69 7a 65 25 28 30 29  |.......fsize%(0)|
00002670  3c 3e 30 84 66 73 69 7a  65 25 28 31 29 3c 3e 30  |<>0.fsize%(1)<>0|
00002680  8c 0d 0d 98 2a f2 73 65  74 69 28 77 25 28 31 29  |....*.seti(w%(1)|
00002690  2c 31 32 2c c3 28 94 66  73 69 7a 65 25 28 31 29  |,12,.(.fsize%(1)|
000026a0  81 31 30 32 34 29 2b 22  4b 22 29 0d 0d a2 26 f2  |.1024)+"K")...&.|
000026b0  73 65 74 69 28 77 25 28  31 29 2c 31 33 2c c3 94  |seti(w%(1),13,..|
000026c0  66 73 69 7a 65 25 28 30  29 2b 22 20 43 64 73 22  |fsize%(0)+" Cds"|
000026d0  29 0d 0d ac 05 cc 0d 0d  b6 39 f2 73 65 74 69 28  |)........9.seti(|
000026e0  77 25 28 31 29 2c 31 32  2c 22 28 46 6f 72 6d 61  |w%(1),12,"(Forma|
000026f0  74 29 22 29 3a f2 73 65  74 69 28 77 25 28 31 29  |t)"):.seti(w%(1)|
00002700  2c 31 33 2c 22 28 46 6f  72 6d 61 74 29 22 29 0d  |,13,"(Format)").|
00002710  0d c0 05 cd 0d 0d ca 05  e1 0d 0d d4 04 0d 0d de  |................|
00002720  28 dd f2 64 65 6c 66 69  6c 65 77 73 3a ea 49 25  |(..delfilews:.I%|
00002730  3a e7 77 25 28 30 29 3e  30 f2 64 65 6c 77 28 77  |:.w%(0)>0.delw(w|
00002740  25 28 30 29 29 0d 0d e8  21 e3 49 25 3d 31 b8 6d  |%(0))...!.I%=1.m|
00002750  61 78 77 25 3a f2 64 65  6c 66 69 6c 65 77 28 49  |axw%:.delfilew(I|
00002760  25 29 3a ed 3a e1 0d 0d  f2 04 0d 0d fc 12 dd f2  |%):.:...........|
00002770  64 65 6c 66 69 6c 65 77  28 49 25 29 0d 0e 06 34  |delfilew(I%)...4|
00002780  e7 77 25 28 49 25 29 3e  30 3a f2 63 6c 6f 73 65  |.w%(I%)>0:.close|
00002790  77 28 77 25 28 49 25 29  29 3a e7 77 25 28 49 25  |w(w%(I%)):.w%(I%|
000027a0  29 3e 30 f2 64 65 6c 77  28 77 25 28 49 25 29 29  |)>0.delw(w%(I%))|
000027b0  0d 0e 10 05 e1 0d 0e 1a  04 0d 0e 24 0c dd f2 75  |...........$...u|
000027c0  6d 65 73 73 32 0d 0e 2e  0c c8 8e 71 25 21 31 36  |mess2......q%!16|
000027d0  ca 0d 0e 38 24 c9 36 3a  e7 71 25 21 38 3d 6c 6f  |...8$.6:.q%!8=lo|
000027e0  61 64 72 65 66 25 3a f2  64 61 74 61 73 61 76 65  |adref%:.datasave|
000027f0  61 63 6b 3a e1 0d 0e 42  05 cb 0d 0e 4c 05 e1 0d  |ack:...B....L...|
00002800  0e 56 04 0d 0e 60 12 dd  f2 62 61 63 6b 67 72 6e  |.V...`...backgrn|
00002810  64 3a ea 54 25 0d 0e 6a  19 e7 77 5f 66 73 69 7a  |d:.T%..j..w_fsiz|
00002820  65 25 3e 30 f2 63 68 65  63 6b 74 79 70 65 0d 0e  |e%>0.checktype..|
00002830  74 1e e7 61 63 6b 70 65  6e 64 69 6e 67 25 3a 61  |t..ackpending%:a|
00002840  63 6b 70 65 6e 64 69 6e  67 25 3d a3 0d 0e 7e 05  |ckpending%=...~.|
00002850  e1 0d 0e 88 04 0d 0e 92  12 dd f2 74 65 6d 70 6c  |...........templ|
00002860  61 74 65 28 54 24 29 0d  0e 9c 15 f2 74 65 6d 70  |ate(T$).....temp|
00002870  6c 61 74 65 31 28 54 24  2c 71 25 29 0d 0e a6 05  |late1(T$,q%)....|
00002880  e1 0d 0e b0 04 0d 0e ba  2f dd f2 74 65 6d 70 6c  |......../..templ|
00002890  61 74 65 31 28 54 24 2c  71 25 29 3a 54 24 3d a4  |ate1(T$,q%):T$=.|
000028a0  6c 6f 77 65 72 28 54 24  29 3a ea 20 49 25 2c 54  |lower(T$):. I%,T|
000028b0  25 2c 4c 25 0d 0e c4 35  49 25 3d 74 65 6d 70 25  |%,L%...5I%=temp%|
000028c0  2b 31 36 3a c8 95 21 49  25 3e 30 80 a4 6c 6f 77  |+16:..!I%>0..low|
000028d0  65 72 28 24 28 49 25 2b  31 32 29 29 3c 3e 54 24  |er($(I%+12))<>T$|
000028e0  3a 49 25 2b 3d 32 34 3a  ce 0d 0e ce 2d e7 21 49  |:I%+=24:....-.!I|
000028f0  25 3c 3d 30 3a 85 39 39  2c 22 54 65 6d 70 6c 61  |%<=0:.99,"Templa|
00002900  74 65 20 27 22 2b 54 24  2b 22 27 20 6e 6f 74 20  |te '"+T$+"' not |
00002910  66 6f 75 6e 64 22 0d 0e  d8 43 54 25 3d 74 65 6d  |found"...CT%=tem|
00002920  70 25 2b 21 49 25 3a 4c  25 3d 49 25 21 34 3a e3  |p%+!I%:L%=I%!4:.|
00002930  49 25 3d 30 b8 4c 25 88  34 3a 71 25 21 49 25 3d  |I%=0.L%.4:q%!I%=|
00002940  54 25 21 49 25 3a ed 3a  54 25 3d 71 25 2b 38 38  |T%!I%:.:T%=q%+88|
00002950  2b 71 25 21 38 34 2a 33  32 0d 0e e2 14 e7 28 71  |+q%!84*32.....(q|
00002960  25 21 35 36 29 80 28 31  3c 3c 38 29 8c 0d 0e ec  |%!56).(1<<8)....|
00002970  33 71 25 21 37 32 3d a4  77 6f 72 6b 73 70 61 63  |3q%!72=.workspac|
00002980  65 28 71 25 21 38 30 29  3a 24 28 71 25 21 37 32  |e(q%!80):$(q%!72|
00002990  29 3d 24 54 25 3a 54 25  2b 3d a9 24 54 25 2b 31  |)=$T%:T%+=.$T%+1|
000029a0  0d 0e f6 3d e7 71 25 21  37 36 3e 30 3a 71 25 21  |...=.q%!76>0:q%!|
000029b0  37 36 3d a4 77 6f 72 6b  73 70 61 63 65 28 a9 24  |76=.workspace(.$|
000029c0  54 25 2b 31 29 3a 24 28  71 25 21 37 36 29 3d 24  |T%+1):$(q%!76)=$|
000029d0  54 25 3a 54 25 2b 3d a9  24 54 25 2b 31 0d 0f 00  |T%:T%+=.$T%+1...|
000029e0  05 cd 0d 0f 0a 0d e7 71  25 21 38 34 3e 30 8c 0d  |.......q%!84>0..|
000029f0  0f 14 1f e3 49 25 3d 71  25 2b 38 38 b8 71 25 2b  |....I%=q%+88.q%+|
00002a00  38 34 2b 71 25 21 38 34  2a 33 32 88 33 32 0d 0f  |84+q%!84*32.32..|
00002a10  1e 14 e7 28 49 25 21 31  36 29 80 28 31 3c 3c 38  |...(I%!16).(1<<8|
00002a20  29 8c 0d 0f 28 33 49 25  21 32 30 3d a4 77 6f 72  |)...(3I%!20=.wor|
00002a30  6b 73 70 61 63 65 28 49  25 21 32 38 29 3a 24 28  |kspace(I%!28):$(|
00002a40  49 25 21 32 30 29 3d 24  54 25 3a 54 25 2b 3d a9  |I%!20)=$T%:T%+=.|
00002a50  24 54 25 2b 31 0d 0f 32  3d e7 49 25 21 32 34 3e  |$T%+1..2=.I%!24>|
00002a60  30 3a 49 25 21 32 34 3d  a4 77 6f 72 6b 73 70 61  |0:I%!24=.workspa|
00002a70  63 65 28 a9 24 54 25 2b  31 29 3a 24 28 49 25 21  |ce(.$T%+1):$(I%!|
00002a80  32 34 29 3d 24 54 25 3a  54 25 2b 3d a9 24 54 25  |24)=$T%:T%+=.$T%|
00002a90  2b 31 0d 0f 3c 05 cd 0d  0f 46 05 ed 0d 0f 50 05  |+1..<....F....P.|
00002aa0  cd 0d 0f 5a 12 71 25 21  36 34 3d 73 70 72 69 74  |...Z.q%!64=sprit|
00002ab0  65 73 25 0d 0f 64 05 e1  0d 0f 6e 04 0d 0f 78 24  |es%..d....n...x$|
00002ac0  dd f2 6f 70 65 6e 74 65  6d 70 6c 61 74 65 28 41  |..opentemplate(A|
00002ad0  24 29 3a 74 65 6d 70 25  3d 93 2d 33 30 30 30 30  |$):temp%=.-30000|
00002ae0  0d 0f 82 1d ff 22 4c 6f  61 64 20 22 2b 41 24 2b  |....."Load "+A$+|
00002af0  22 20 22 2b c3 7e 74 65  6d 70 25 3a e1 0d 0f 8c  |" "+.~temp%:....|
00002b00  04 0d 0f 96 12 dd a4 74  65 6d 70 6c 61 74 65 28  |.......template(|
00002b10  54 24 29 0d 0f a0 17 f2  74 65 6d 70 6c 61 74 65  |T$).....template|
00002b20  31 28 54 24 2c 74 62 73  25 29 0d 0f aa 1f 54 25  |1(T$,tbs%)....T%|
00002b30  3d 74 62 73 25 3a 74 62  73 25 2b 3d 38 38 2b 74  |=tbs%:tbs%+=88+t|
00002b40  62 73 25 21 38 34 2a 33  32 0d 0f b4 29 e7 74 62  |bs%!84*32...).tb|
00002b50  73 25 3e 74 62 65 25 3a  85 39 39 2c 22 54 65 6d  |s%>tbe%:.99,"Tem|
00002b60  70 6c 61 74 65 20 62 75  66 66 65 72 20 66 75 6c  |plate buffer ful|
00002b70  6c 22 0d 0f be 07 3d 54  25 0d 0f c8 04 0d 0f d2  |l"....=T%.......|
00002b80  0b dd f2 64 65 66 77 73  0d 0f dc 07 ea 49 25 0d  |...defws.....I%.|
00002b90  0f e6 0f 62 75 66 73 7a  25 3d 26 46 30 30 0d 0f  |...bufsz%=&F00..|
00002ba0  f0 3b de 20 62 75 66 66  65 72 25 20 62 75 66 73  |.;. buffer% bufs|
00002bb0  7a 25 3a 63 75 72 62 75  66 25 3d 62 75 66 66 65  |z%:curbuf%=buffe|
00002bc0  72 25 3a 65 6e 64 62 75  66 25 3d 62 75 66 66 65  |r%:endbuf%=buffe|
00002bd0  72 25 2b 62 75 66 73 7a  25 0d 0f fa 20 f2 6f 70  |r%+bufsz%... .op|
00002be0  65 6e 74 65 6d 70 6c 61  74 65 28 a4 64 69 72 2b  |entemplate(.dir+|
00002bf0  22 4d 53 46 72 6d 33 22  29 0d 10 04 3a f2 74 65  |"MSFrm3")...:.te|
00002c00  6d 70 6c 61 74 65 28 22  73 74 6f 70 62 6f 78 22  |mplate("stopbox"|
00002c10  29 3a c8 99 22 57 69 6d  70 5f 43 72 65 61 74 65  |):.."Wimp_Create|
00002c20  57 69 6e 64 6f 77 22 2c  2c 71 25 b8 77 5f 73 74  |Window",,q%.w_st|
00002c30  6f 70 25 0d 10 0e 15 f2  74 65 6d 70 6c 61 74 65  |op%.....template|
00002c40  28 22 73 61 76 65 22 29  0d 10 18 2d 71 25 21 36  |("save")...-q%!6|
00002c50  34 3d 31 3a c8 99 22 57  69 6d 70 5f 43 72 65 61  |4=1:.."Wimp_Crea|
00002c60  74 65 57 69 6e 64 6f 77  22 2c 2c 71 25 b8 77 5f  |teWindow",,q%.w_|
00002c70  73 61 76 65 25 0d 10 22  3c f2 74 65 6d 70 6c 61  |save%.."<.templa|
00002c80  74 65 28 22 50 72 6f 67  49 6e 66 6f 22 29 3a c8  |te("ProgInfo"):.|
00002c90  99 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  |."Wimp_CreateWin|
00002ca0  64 6f 77 22 2c 2c 71 25  b8 77 5f 70 69 6e 66 6f  |dow",,q%.w_pinfo|
00002cb0  25 0d 10 2c 3e f2 74 65  6d 70 6c 61 74 65 28 22  |%..,>.template("|
00002cc0  50 72 6f 67 49 6e 66 6f  32 22 29 3a c8 99 22 57  |ProgInfo2"):.."W|
00002cd0  69 6d 70 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |imp_CreateWindow|
00002ce0  22 2c 2c 71 25 b8 77 5f  70 69 6e 66 6f 32 25 0d  |",,q%.w_pinfo2%.|
00002cf0  10 36 3b f2 74 65 6d 70  6c 61 74 65 28 22 73 68  |.6;.template("sh|
00002d00  61 64 6f 77 22 29 3a c8  99 22 57 69 6d 70 5f 43  |adow"):.."Wimp_C|
00002d10  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 71 25  |reateWindow",,q%|
00002d20  b8 77 5f 73 68 61 64 6f  77 25 0d 10 40 10 62 75  |.w_shadow%..@.bu|
00002d30  66 73 7a 25 3d 26 31 46  30 30 0d 10 4a 36 de 20  |fsz%=&1F00..J6. |
00002d40  74 65 6d 70 6c 61 74 65  25 20 62 75 66 73 7a 25  |template% bufsz%|
00002d50  3a 74 62 73 25 3d 74 65  6d 70 6c 61 74 65 25 3a  |:tbs%=template%:|
00002d60  74 62 65 25 3d 74 62 73  25 2b 62 75 66 73 7a 25  |tbe%=tbs%+bufsz%|
00002d70  0d 10 54 1c 74 77 25 28  30 29 3d a4 74 65 6d 70  |..T.tw%(0)=.temp|
00002d80  6c 61 74 65 28 22 66 69  6c 65 22 29 0d 10 5e 20  |late("file")..^ |
00002d90  74 77 25 28 31 29 3d a4  74 65 6d 70 6c 61 74 65  |tw%(1)=.template|
00002da0  28 22 66 69 6c 65 70 61  6e 65 22 29 0d 10 68 21  |("filepane")..h!|
00002db0  74 77 25 28 32 29 3d a4  74 65 6d 70 6c 61 74 65  |tw%(2)=.template|
00002dc0  28 22 46 69 65 6c 64 4c  69 73 74 22 29 0d 10 72  |("FieldList")..r|
00002dd0  21 74 77 25 28 33 29 3d  a4 74 65 6d 70 6c 61 74  |!tw%(3)=.templat|
00002de0  65 28 22 46 69 65 6c 64  4c 69 73 74 22 29 0d 10  |e("FieldList")..|
00002df0  7c 20 f2 6f 70 65 6e 74  65 6d 70 6c 61 74 65 28  || .opentemplate(|
00002e00  a4 64 69 72 2b 22 4d 53  46 72 6d 34 22 29 0d 10  |.dir+"MSFrm4")..|
00002e10  86 3d 74 77 5f 66 73 69  7a 65 25 3d a4 74 65 6d  |.=tw_fsize%=.tem|
00002e20  70 6c 61 74 65 28 22 46  53 69 7a 65 22 29 3a 77  |plate("FSize"):w|
00002e30  5f 66 73 69 7a 65 25 3d  2d 31 45 39 3a 74 77 5f  |_fsize%=-1E9:tw_|
00002e40  66 73 69 7a 65 25 21 36  34 3d 31 0d 10 90 30 74  |fsize%!64=1...0t|
00002e50  77 5f 66 69 6e 66 25 3d  a4 74 65 6d 70 6c 61 74  |w_finf%=.templat|
00002e60  65 28 22 46 69 65 6c 64  49 6e 66 6f 22 29 3a 77  |e("FieldInfo"):w|
00002e70  5f 66 69 6e 66 25 3d 2d  31 45 39 0d 10 9a 31 74  |_finf%=-1E9...1t|
00002e80  77 5f 73 74 61 74 75 73  25 3d a4 74 65 6d 70 6c  |w_status%=.templ|
00002e90  61 74 65 28 22 53 74 61  74 75 73 22 29 3a 77 5f  |ate("Status"):w_|
00002ea0  73 74 61 74 75 73 25 3d  2d 31 45 39 0d 10 a4 2e  |status%=-1E9....|
00002eb0  74 77 5f 6d 65 73 73 25  3d a4 74 65 6d 70 6c 61  |tw_mess%=.templa|
00002ec0  74 65 28 22 6d 65 73 73  61 67 65 22 29 3a 77 5f  |te("message"):w_|
00002ed0  6d 65 73 73 25 3d 2d 31  45 39 0d 10 ae 31 74 77  |mess%=-1E9...1tw|
00002ee0  5f 70 61 73 73 77 25 3d  a4 74 65 6d 70 6c 61 74  |_passw%=.templat|
00002ef0  65 28 22 70 61 73 73 77  6f 72 64 22 29 3a 77 5f  |e("password"):w_|
00002f00  70 61 73 73 77 25 3d 2d  31 45 39 0d 10 b8 30 74  |passw%=-1E9...0t|
00002f10  77 5f 61 62 61 6e 64 25  3d a4 74 65 6d 70 6c 61  |w_aband%=.templa|
00002f20  74 65 28 22 61 62 61 6e  64 6f 6e 22 29 3a 77 5f  |te("abandon"):w_|
00002f30  61 62 61 6e 64 25 3d 2d  31 45 39 0d 10 c2 31 74  |aband%=-1E9...1t|
00002f40  77 5f 66 73 70 65 63 25  3d a4 74 65 6d 70 6c 61  |w_fspec%=.templa|
00002f50  74 65 28 22 66 69 6c 65  73 70 65 63 22 29 3a 77  |te("filespec"):w|
00002f60  5f 66 73 70 65 63 25 3d  2d 31 45 39 0d 10 cc 31  |_fspec%=-1E9...1|
00002f70  74 77 5f 63 73 69 7a 65  25 3d a4 74 65 6d 70 6c  |tw_csize%=.templ|
00002f80  61 74 65 28 22 63 61 72  64 73 69 7a 65 22 29 3a  |ate("cardsize"):|
00002f90  77 5f 63 73 69 7a 65 25  3d 2d 31 45 39 0d 10 d6  |w_csize%=-1E9...|
00002fa0  2e 74 77 5f 69 6e 64 65  78 25 3d a4 74 65 6d 70  |.tw_index%=.temp|
00002fb0  6c 61 74 65 28 22 69 6e  64 65 78 22 29 3a 77 5f  |late("index"):w_|
00002fc0  69 6e 64 65 78 25 3d 2d  31 45 39 0d 10 e0 34 74  |index%=-1E9...4t|
00002fd0  77 5f 70 61 73 73 77 31  25 3d a4 74 65 6d 70 6c  |w_passw1%=.templ|
00002fe0  61 74 65 28 22 70 61 73  73 77 6f 72 64 31 22 29  |ate("password1")|
00002ff0  3a 77 5f 70 61 73 73 77  31 25 3d 2d 31 45 39 0d  |:w_passw1%=-1E9.|
00003000  10 ea 05 e1 0d 10 f4 04  0d 10 fe 11 dd f2 6c 6f  |..............lo|
00003010  61 64 73 70 72 69 74 65  73 0d 11 08 12 73 73 69  |adsprites....ssi|
00003020  7a 65 25 3d 31 36 2a 31  30 32 34 0d 11 12 14 de  |ze%=16*1024.....|
00003030  73 70 72 69 74 65 73 25  20 73 73 69 7a 65 25 0d  |sprites% ssize%.|
00003040  11 1c 32 21 73 70 72 69  74 65 73 25 3d 73 73 69  |..2!sprites%=ssi|
00003050  7a 65 25 3a c8 99 22 4f  53 5f 53 70 72 69 74 65  |ze%:.."OS_Sprite|
00003060  4f 70 22 2c 26 31 30 39  2c 73 70 72 69 74 65 73  |Op",&109,sprites|
00003070  25 0d 11 26 2e c8 99 22  4f 53 5f 53 70 72 69 74  |%..&..."OS_Sprit|
00003080  65 4f 70 22 2c 26 31 30  41 2c 73 70 72 69 74 65  |eOp",&10A,sprite|
00003090  73 25 2c a4 64 69 72 2b  22 4d 53 53 70 72 22 0d  |s%,.dir+"MSSpr".|
000030a0  11 30 05 e1 0d 11 3a 04  0d 11 44 0e dd f2 64 65  |.0....:...D...de|
000030b0  66 6d 65 6e 75 73 0d 11  4e 07 ea 74 24 0d 11 58  |fmenus..N..t$..X|
000030c0  1c de 20 6d 6c 69 73 74  25 20 33 32 2c 66 75 6e  |.. mlist% 32,fun|
000030d0  63 74 69 6f 6e 25 20 35  31 0d 11 62 0f 62 75 66  |ction% 51..b.buf|
000030e0  73 7a 25 3d 31 31 30 30  0d 11 6c 43 de 20 6d 65  |sz%=1100..lC. me|
000030f0  6e 75 66 72 65 65 25 20  62 75 66 73 7a 25 3a 6d  |nufree% bufsz%:m|
00003100  65 6e 75 70 74 72 25 3d  6d 65 6e 75 66 72 65 65  |enuptr%=menufree|
00003110  25 3a 6d 65 6e 75 65 6e  64 25 3d 6d 65 6e 75 66  |%:menuend%=menuf|
00003120  72 65 65 25 2b 62 75 66  73 7a 25 0d 11 76 1c 6d  |ree%+bufsz%..v.m|
00003130  65 6e 75 73 74 61 72 74  25 3d 6d 65 6e 75 66 72  |enustart%=menufr|
00003140  65 65 25 3a f7 2b 32 0d  11 80 1b f3 74 24 3a 6d  |ee%:.+2.....t$:m|
00003150  5f 6d 61 69 6e 25 3d a4  63 72 6d 65 6e 75 28 74  |_main%=.crmenu(t|
00003160  24 29 0d 11 8a 4e dc 22  23 4d 75 6c 74 69 53 74  |$)...N."#MultiSt|
00003170  6f 72 65 2c 49 6e 66 6f  3e 77 5f 70 69 6e 66 6f  |ore,Info>w_pinfo|
00003180  25 2c 54 72 61 6e 73 66  65 72 2c 46 61 73 74 20  |%,Transfer,Fast |
00003190  53 6f 72 74 2c 43 72 65  61 74 65 2c 53 74 61 74  |Sort,Create,Stat|
000031a0  75 73 2c 50 72 69 6e 74  65 72 2c 51 75 69 74 22  |us,Printer,Quit"|
000031b0  0d 11 94 1b f3 74 24 3a  6d 5f 77 69 6e 64 25 3d  |.....t$:m_wind%=|
000031c0  a4 63 72 6d 65 6e 75 28  74 24 29 0d 11 9e 23 dc  |.crmenu(t$)...#.|
000031d0  22 23 57 69 6e 64 6f 77  2c 46 69 65 6c 64 2c 49  |"#Window,Field,I|
000031e0  6e 64 65 78 23 2c 54 69  64 79 20 55 70 22 0d 11  |ndex#,Tidy Up"..|
000031f0  a8 1b f3 74 24 3a 6d 5f  66 69 6c 65 25 3d a4 63  |...t$:m_file%=.c|
00003200  72 6d 65 6e 75 28 74 24  29 0d 11 b2 1e dc 22 23  |rmenu(t$)....."#|
00003210  46 69 6c 65 2c 53 69 7a  65 2c 4f 70 65 6e 2c 41  |File,Size,Open,A|
00003220  62 61 6e 64 6f 6e 22 0d  11 bc 2b de 20 74 5f 63  |bandon"...+. t_c|
00003230  6f 70 69 65 73 25 20 33  3a f3 74 24 3a 6d 5f 63  |opies% 3:.t$:m_c|
00003240  6f 70 69 65 73 25 3d a4  63 72 6d 65 6e 75 28 74  |opies%=.crmenu(t|
00003250  24 29 0d 11 c6 1c dc 22  23 43 6f 70 69 65 73 2c  |$)....."#Copies,|
00003260  24 74 5f 63 6f 70 69 65  73 25 28 33 29 22 0d 11  |$t_copies%(3)"..|
00003270  d0 1c f3 74 24 3a 6d 5f  63 61 72 64 31 25 3d a4  |...t$:m_card1%=.|
00003280  63 72 6d 65 6e 75 28 74  24 29 0d 11 da 4c dc 22  |crmenu(t$)...L."|
00003290  23 43 61 72 64 2c 44 65  6c 2e 4c 69 6e 65 2c 49  |#Card,Del.Line,I|
000032a0  6e 73 2e 4c 69 6e 65 2c  43 6f 70 79 20 4c 69 6e  |ns.Line,Copy Lin|
000032b0  65 3e 6d 5f 63 6f 70 69  65 73 25 2c 43 6c 65 61  |e>m_copies%,Clea|
000032c0  72 2c 53 69 7a 65 2c 45  78 70 6f 72 74 3e 77 5f  |r,Size,Export>w_|
000032d0  73 61 76 65 25 22 0d 11  e4 1b f3 74 24 3a 6d 5f  |save%".....t$:m_|
000032e0  63 61 72 64 25 3d a4 63  72 6d 65 6e 75 28 74 24  |card%=.crmenu(t$|
000032f0  29 0d 11 ee 45 dc 22 23  43 61 72 64 2c 54 6f 6f  |)...E."#Card,Too|
00003300  6c 73 3e 77 5f 70 69 6e  66 6f 25 2c 43 61 72 64  |ls>w_pinfo%,Card|
00003310  3e 6d 5f 63 61 72 64 31  25 2c 46 69 6c 65 3e 6d  |>m_card1%,File>m|
00003320  5f 66 69 6c 65 25 2c 57  69 6e 64 6f 77 3e 6d 5f  |_file%,Window>m_|
00003330  77 69 6e 64 25 22 0d 11  f8 1d f3 74 24 3a 6d 5f  |wind%".....t$:m_|
00003340  73 74 61 74 75 73 25 3d  a4 63 72 6d 65 6e 75 28  |status%=.crmenu(|
00003350  74 24 29 0d 12 02 49 dc  22 23 53 74 61 74 75 73  |t$)...I."#Status|
00003360  6d 65 6e 75 2e 2e 2c 41  6c 69 67 6e 20 57 69 6e  |menu..,Align Win|
00003370  64 6f 77 73 2c 55 70 64  61 74 65 20 4d 65 64 69  |dows,Update Medi|
00003380  61 2c 50 61 73 73 77 6f  72 64 2c 45 78 74 65 6e  |a,Password,Exten|
00003390  64 65 64 20 43 68 61 72  73 65 74 22 0d 12 0c 1c  |ded Charset"....|
000033a0  f3 74 24 3a 6d 5f 69 6e  64 65 78 25 3d a4 63 72  |.t$:m_index%=.cr|
000033b0  6d 65 6e 75 28 74 24 29  0d 12 16 20 dc 22 23 49  |menu(t$)... ."#I|
000033c0  6e 64 65 78 2c 43 72 65  61 74 65 2c 45 64 69 74  |ndex,Create,Edit|
000033d0  2c 44 65 6c 65 74 65 22  0d 12 20 1d f3 74 24 3a  |,Delete".. ..t$:|
000033e0  6d 5f 66 69 65 6c 64 73  25 3d a4 63 72 6d 65 6e  |m_fields%=.crmen|
000033f0  75 28 74 24 29 0d 12 2a  21 dc 22 23 46 69 65 6c  |u(t$)..*!."#Fiel|
00003400  64 20 4c 69 73 74 2c 45  78 70 6f 72 74 3e 77 5f  |d List,Export>w_|
00003410  73 61 76 65 25 22 0d 12  34 05 e1 0d 12 3e 04 0d  |save%"..4....>..|
00003420  12 48 15 dd f2 66 72 6f  6e 74 28 68 25 2c 58 25  |.H...front(h%,X%|
00003430  2c 59 25 29 0d 12 52 0d  f2 67 65 74 77 28 68 25  |,Y%)..R..getw(h%|
00003440  29 0d 12 5c 1c e7 58 25  3e 3d 30 78 31 25 2b 3d  |)..\..X%>=0x1%+=|
00003450  58 25 2d 78 30 25 3a 78  30 25 3d 58 25 0d 12 66  |X%-x0%:x0%=X%..f|
00003460  1c e7 59 25 3e 3d 30 79  31 25 2b 3d 59 25 2d 79  |..Y%>=0y1%+=Y%-y|
00003470  30 25 3a 79 30 25 3d 59  25 0d 12 70 2a f2 6f 70  |0%:y0%=Y%..p*.op|
00003480  65 6e 28 68 25 2c 78 30  25 2c 79 30 25 2c 78 31  |en(h%,x0%,y0%,x1|
00003490  25 2c 79 31 25 2c 73 63  78 25 2c 73 63 79 25 2c  |%,y1%,scx%,scy%,|
000034a0  2d 31 29 0d 12 7a 05 e1  0d 12 84 04 0d 12 8e 34  |-1)..z.........4|
000034b0  dd f2 6f 70 65 6e 28 6f  68 25 2c 6f 78 30 25 2c  |..open(oh%,ox0%,|
000034c0  6f 79 30 25 2c 6f 78 31  25 2c 6f 79 31 25 2c 6f  |oy0%,ox1%,oy1%,o|
000034d0  73 63 78 25 2c 6f 73 63  79 25 2c 6f 62 68 25 29  |scx%,oscy%,obh%)|
000034e0  0d 12 98 07 ea 4f 25 0d  12 a2 27 21 71 25 3d 6f  |.....O%...'!q%=o|
000034f0  68 25 3a c8 99 22 57 69  6d 70 5f 47 65 74 57 69  |h%:.."Wimp_GetWi|
00003500  6e 64 6f 77 53 74 61 74  65 22 2c 2c 71 25 0d 12  |ndowState",,q%..|
00003510  ac 19 f2 77 74 6f 66 28  6f 68 25 29 3a e7 66 69  |...wtof(oh%):.fi|
00003520  6c 65 25 3e 3d 30 8c 0d  12 b6 0c c8 8e 77 69 6e  |le%>=0.......win|
00003530  64 25 ca 0d 12 c0 10 c9  30 3a f2 6f 70 65 6e 70  |d%......0:.openp|
00003540  61 6e 65 0d 12 ca 0f 7f  3a f2 77 69 6d 70 6f 70  |ane.....:.wimpop|
00003550  65 6e 0d 12 d4 05 cb 0d  12 de 05 cc 0d 12 e8 0a  |en..............|
00003560  c8 8e 6f 68 25 ca 0d 12  f2 0f 7f 3a f2 77 69 6d  |..oh%......:.wim|
00003570  70 6f 70 65 6e 0d 12 fc  05 cb 0d 13 06 05 cd 0d  |popen...........|
00003580  13 10 65 e7 6f 68 25 3d  64 69 61 6c 6f 67 75 65  |..e.oh%=dialogue|
00003590  25 80 73 68 61 64 6f 77  73 25 3a f2 67 65 74 77  |%.shadows%:.getw|
000035a0  28 6f 68 25 29 3a f2 6f  70 65 6e 28 77 5f 73 68  |(oh%):.open(w_sh|
000035b0  61 64 6f 77 25 2c 78 30  25 2b 73 73 25 2c 79 30  |adow%,x0%+ss%,y0|
000035c0  25 2d 73 73 25 2c 78 31  25 2b 73 73 25 2c 79 31  |%-ss%,x1%+ss%,y1|
000035d0  25 2d 73 73 25 2c 30 2c  30 2c 64 69 61 6c 6f 67  |%-ss%,0,0,dialog|
000035e0  75 65 25 29 0d 13 1a 0c  6f 70 65 6e 25 3d 4f 25  |ue%)....open%=O%|
000035f0  0d 13 24 05 e1 0d 13 2e  04 0d 13 38 0e dd f2 77  |..$........8...w|
00003600  69 6d 70 6f 70 65 6e 0d  13 42 35 21 71 25 3d 6f  |impopen..B5!q%=o|
00003610  68 25 3a 71 25 21 34 3d  6f 78 30 25 3a 71 25 21  |h%:q%!4=ox0%:q%!|
00003620  38 3d 6f 79 30 25 3a 71  25 21 31 32 3d 6f 78 31  |8=oy0%:q%!12=ox1|
00003630  25 3a 71 25 21 31 36 3d  6f 79 31 25 0d 13 4c 3e  |%:q%!16=oy1%..L>|
00003640  71 25 21 32 30 3d 6f 73  63 78 25 3a 71 25 21 32  |q%!20=oscx%:q%!2|
00003650  34 3d 6f 73 63 79 25 3a  71 25 21 32 38 3d 6f 62  |4=oscy%:q%!28=ob|
00003660  68 25 3a c8 99 22 57 69  6d 70 5f 4f 70 65 6e 57  |h%:.."Wimp_OpenW|
00003670  69 6e 64 6f 77 22 2c 2c  71 25 0d 13 56 05 e1 0d  |indow",,q%..V...|
00003680  13 60 04 0d 13 6a 0e dd  f2 6f 70 65 6e 70 61 6e  |.`...j...openpan|
00003690  65 0d 13 74 1f e7 ac a4  66 6c 67 28 66 5f 70 61  |e..t....flg(f_pa|
000036a0  6e 65 25 29 3a f2 77 69  6d 70 6f 70 65 6e 3a e1  |ne%):.wimpopen:.|
000036b0  0d 13 7e 13 ea 50 25 2c  66 25 3a 50 25 3d 77 25  |..~..P%,f%:P%=w%|
000036c0  28 31 29 0d 13 88 22 66  25 3d 6f 79 31 25 2d 70  |(1)..."f%=oy1%-p|
000036d0  61 6e 65 68 25 3a e7 66  25 3c 6f 79 30 25 66 25  |aneh%:.f%<oy0%f%|
000036e0  3d 6f 79 30 25 0d 13 92  0d f2 67 65 74 77 28 50  |=oy0%.....getw(P|
000036f0  25 29 0d 13 9c 1e e7 62  68 61 6e 64 6c 65 25 3d  |%).....bhandle%=|
00003700  6f 62 68 25 84 6f 62 68  25 3d 77 25 28 30 29 8c  |obh%.obh%=w%(0).|
00003710  0d 13 a6 0b 6f 62 68 25  3d 50 25 0d 13 b0 3a e7  |....obh%=P%...:.|
00003720  ac 6f 70 65 6e 25 f2 6f  70 65 6e 28 50 25 2c 6f  |.open%.open(P%,o|
00003730  78 30 25 2d 70 61 6e 65  77 25 2d 34 2c 66 25 2c  |x0%-panew%-4,f%,|
00003740  6f 78 30 25 2d 34 2c 6f  79 31 25 2c 30 2c 30 2c  |ox0%-4,oy1%,0,0,|
00003750  6f 62 68 25 29 0d 13 ba  05 cd 0d 13 c4 2c f2 67  |obh%)........,.g|
00003760  65 74 77 28 50 25 29 3a  66 25 3d 6f 79 31 25 2d  |etw(P%):f%=oy1%-|
00003770  70 61 6e 65 68 25 3a e7  66 25 3c 6f 79 30 25 66  |paneh%:.f%<oy0%f|
00003780  25 3d 6f 79 30 25 0d 13  ce 0d f2 77 69 6d 70 6f  |%=oy0%.....wimpo|
00003790  70 65 6e 0d 13 d8 27 f2  67 65 74 77 28 77 25 28  |pen...'.getw(w%(|
000037a0  30 29 29 3a e7 6f 62 68  25 3d 2d 32 3a 6f 62 68  |0)):.obh%=-2:obh|
000037b0  25 3d 62 68 61 6e 64 6c  65 25 0d 13 e2 22 66 25  |%=bhandle%..."f%|
000037c0  3d 6f 79 31 25 2d 70 61  6e 65 68 25 3a e7 66 25  |=oy1%-paneh%:.f%|
000037d0  3c 6f 79 30 25 66 25 3d  6f 79 30 25 0d 13 ec 30  |<oy0%f%=oy0%...0|
000037e0  f2 6f 70 65 6e 28 50 25  2c 78 30 25 2d 70 61 6e  |.open(P%,x0%-pan|
000037f0  65 77 25 2d 34 2c 66 25  2c 78 30 25 2d 34 2c 79  |ew%-4,f%,x0%-4,y|
00003800  31 25 2c 30 2c 30 2c 6f  62 68 25 29 0d 13 f6 05  |1%,0,0,obh%)....|
00003810  e1 0d 14 00 04 0d 14 0a  11 dd f2 63 6c 6f 73 65  |...........close|
00003820  77 28 21 71 25 29 0d 14  14 07 ea 49 25 0d 14 1e  |w(!q%).....I%...|
00003830  0e f2 77 74 6f 66 28 21  71 25 29 0d 14 28 0e e7  |..wtof(!q%)..(..|
00003840  66 69 6c 65 25 3e 3d 30  8c 0d 14 32 0c c8 8e 77  |file%>=0...2...w|
00003850  69 6e 64 25 ca 0d 14 3c  2c c9 30 3a e7 a4 73 68  |ind%...<,.0:..sh|
00003860  6f 77 62 72 61 6e 63 68  3a e1 3a 8b e7 ac 63 6c  |owbranch:.:...cl|
00003870  6f 73 65 6f 6b 25 3a f2  63 6c 6f 73 65 6f 6b 3a  |oseok%:.closeok:|
00003880  e1 0d 14 46 05 cb 0d 14  50 05 cd 0d 14 5a 1c e7  |...F....P....Z..|
00003890  21 71 25 3d 64 69 61 6c  6f 67 75 65 25 3a f2 74  |!q%=dialogue%:.t|
000038a0  69 64 79 64 69 61 6c 0d  14 64 1c c8 99 22 57 69  |idydial..d..."Wi|
000038b0  6d 70 5f 43 6c 6f 73 65  57 69 6e 64 6f 77 22 2c  |mp_CloseWindow",|
000038c0  2c 71 25 0d 14 6e 21 f2  6e 6f 64 69 61 6c 3a f2  |,q%..n!.nodial:.|
000038d0  77 74 6f 66 28 21 71 25  29 3a e7 66 69 6c 65 25  |wtof(!q%):.file%|
000038e0  3e 3d 30 8c 0d 14 78 0c  c8 8e 77 69 6e 64 25 ca  |>=0...x...wind%.|
000038f0  0d 14 82 14 c9 30 3a f2  63 6c 6f 73 65 66 69 6c  |.....0:.closefil|
00003900  65 28 b9 29 0d 14 8c 19  c9 32 2c 33 3a f2 64 65  |e(.).....2,3:.de|
00003910  6c 77 28 77 25 28 77 69  6e 64 25 29 29 0d 14 96  |lw(w%(wind%))...|
00003920  05 cb 0d 14 a0 05 cc 0d  14 aa 0a c8 8e 21 71 25  |.............!q%|
00003930  ca 0d 14 b4 19 c9 77 5f  73 74 6f 70 25 3a 73 74  |......w_stop%:st|
00003940  6f 70 66 69 6c 65 25 3d  2d 31 0d 14 be 1f c9 77  |opfile%=-1.....w|
00003950  5f 73 74 61 74 75 73 25  3a f2 64 65 6c 77 28 77  |_status%:.delw(w|
00003960  5f 73 74 61 74 75 73 25  29 0d 14 c8 1d c9 77 5f  |_status%).....w_|
00003970  70 61 73 73 77 25 3a f2  64 65 6c 77 28 77 5f 70  |passw%:.delw(w_p|
00003980  61 73 73 77 25 29 0d 14  d2 1b c9 77 5f 6d 65 73  |assw%).....w_mes|
00003990  73 25 3a f2 64 65 6c 77  28 77 5f 6d 65 73 73 25  |s%:.delw(w_mess%|
000039a0  29 0d 14 dc 1b c9 77 5f  66 69 6e 66 25 3a f2 64  |).....w_finf%:.d|
000039b0  65 6c 77 28 77 5f 66 69  6e 66 25 29 0d 14 e6 27  |elw(w_finf%)...'|
000039c0  c9 77 5f 66 73 69 7a 65  25 3a f2 64 65 6c 77 28  |.w_fsize%:.delw(|
000039d0  77 5f 66 73 69 7a 65 25  29 3a f2 6e 65 77 64 65  |w_fsize%):.newde|
000039e0  6c 61 79 0d 14 f0 1d c9  77 5f 61 62 61 6e 64 25  |lay.....w_aband%|
000039f0  3a f2 64 65 6c 77 28 77  5f 61 62 61 6e 64 25 29  |:.delw(w_aband%)|
00003a00  0d 14 fa 1d c9 77 5f 66  73 70 65 63 25 3a f2 64  |.....w_fspec%:.d|
00003a10  65 6c 77 28 77 5f 66 73  70 65 63 25 29 0d 15 04  |elw(w_fspec%)...|
00003a20  1d c9 77 5f 63 73 69 7a  65 25 3a f2 64 65 6c 77  |..w_csize%:.delw|
00003a30  28 77 5f 63 73 69 7a 65  25 29 0d 15 0e 1d c9 77  |(w_csize%).....w|
00003a40  5f 69 6e 64 65 78 25 3a  f2 64 65 6c 77 28 77 5f  |_index%:.delw(w_|
00003a50  69 6e 64 65 78 25 29 0d  15 18 1f c9 77 5f 70 61  |index%).....w_pa|
00003a60  73 73 77 31 25 3a f2 64  65 6c 77 28 77 5f 70 61  |ssw1%:.delw(w_pa|
00003a70  73 73 77 31 25 29 0d 15  22 05 cb 0d 15 2c 05 cd  |ssw1%).."....,..|
00003a80  0d 15 36 05 e1 0d 15 40  04 0d 15 4a 19 dd f2 74  |..6....@...J...t|
00003a90  69 64 79 64 69 61 6c 3a  f2 72 65 73 74 6f 72 65  |idydial:.restore|
00003aa0  63 74 0d 15 54 44 64 69  61 6c 72 65 61 73 6f 6e  |ct..TDdialreason|
00003ab0  25 3d 2d 31 3a 64 69 61  6c 6f 67 75 65 25 3d 2d  |%=-1:dialogue%=-|
00003ac0  31 3a f2 63 6c 6f 73 65  77 28 77 5f 73 68 61 64  |1:.closew(w_shad|
00003ad0  6f 77 25 29 3a 65 78 69  30 25 3d 2d 31 3a 65 78  |ow%):exi0%=-1:ex|
00003ae0  69 31 25 3d 2d 31 0d 15  5e 05 e1 0d 15 68 04 0d  |i1%=-1..^....h..|
00003af0  15 72 0f dd f2 72 65 73  74 6f 72 65 63 74 0d 15  |.r...restorect..|
00003b00  7c 0f ea 85 3a ee 85 ea  3a f7 85 3a e1 0d 15 86  ||...:...:..:....|
00003b10  28 c8 99 20 22 57 69 6d  70 5f 47 65 74 43 61 72  |(.. "Wimp_GetCar|
00003b20  65 74 50 6f 73 69 74 69  6f 6e 22 2c 2c 77 6f 72  |etPosition",,wor|
00003b30  6b 62 75 66 25 0d 15 90  70 e7 21 77 6f 72 6b 62  |kbuf%...p.!workb|
00003b40  75 66 25 3d 64 69 61 6c  6f 67 75 65 25 c8 99 20  |uf%=dialogue%.. |
00003b50  22 57 69 6d 70 5f 53 65  74 43 61 72 65 74 50 6f  |"Wimp_SetCaretPo|
00003b60  73 69 74 69 6f 6e 22 2c  21 64 69 61 6c 63 74 25  |sition",!dialct%|
00003b70  2c 64 69 61 6c 63 74 25  21 34 2c 64 69 61 6c 63  |,dialct%!4,dialc|
00003b80  74 25 21 38 2c 64 69 61  6c 63 74 25 21 31 32 2c  |t%!8,dialct%!12,|
00003b90  64 69 61 6c 63 74 25 21  31 36 2c 64 69 61 6c 63  |dialct%!16,dialc|
00003ba0  74 25 21 32 30 0d 15 9a  05 e1 0d 15 a4 04 0d 15  |t%!20...........|
00003bb0  ae 3b dd f2 64 65 6c 77  28 f8 20 54 25 29 3a 21  |.;..delw(. T%):!|
00003bc0  71 25 3d 54 25 3a c8 99  22 57 69 6d 70 5f 44 65  |q%=T%:.."Wimp_De|
00003bd0  6c 65 74 65 57 69 6e 64  6f 77 22 2c 2c 71 25 3a  |leteWindow",,q%:|
00003be0  54 25 3d 2d 31 45 39 3a  e1 0d 15 b8 04 0d 15 c2  |T%=-1E9:........|
00003bf0  2a dd a4 69 61 28 68 25  2c 69 25 29 3a f2 67 65  |*..ia(h%,i%):.ge|
00003c00  74 69 28 68 25 2c 69 25  29 3a f2 63 68 6b 69 69  |ti(h%,i%):.chkii|
00003c10  3a 3d 71 25 21 32 38 0d  15 cc 2a dd a4 76 61 28  |:=q%!28...*..va(|
00003c20  68 25 2c 69 25 29 3a f2  67 65 74 69 28 68 25 2c  |h%,i%):.geti(h%,|
00003c30  69 25 29 3a f2 63 68 6b  69 69 3a 3d 71 25 21 33  |i%):.chkii:=q%!3|
00003c40  32 0d 15 d6 2a dd a4 69  6c 28 68 25 2c 69 25 29  |2...*..il(h%,i%)|
00003c50  3a f2 67 65 74 69 28 68  25 2c 69 25 29 3a f2 63  |:.geti(h%,i%):.c|
00003c60  68 6b 69 69 3a 3d 71 25  21 33 36 0d 15 e0 04 0d  |hkii:=q%!36.....|
00003c70  15 ea 31 dd a4 74 69 61  28 54 25 2c 69 25 29 3a  |..1..tia(T%,i%):|
00003c80  ea 71 25 3a 71 25 3d 54  25 2b 33 32 2a 69 25 2b  |.q%:q%=T%+32*i%+|
00003c90  38 38 3a f2 63 68 6b 69  69 3a 3d 71 25 21 32 30  |88:.chkii:=q%!20|
00003ca0  0d 15 f4 04 0d 15 fe 33  dd f2 63 68 6b 69 69 3a  |.......3..chkii:|
00003cb0  e7 28 71 25 21 32 34 80  26 31 30 30 29 3d 30 85  |.(q%!24.&100)=0.|
00003cc0  31 2c 22 49 63 6f 6e 20  6e 6f 74 20 69 6e 64 69  |1,"Icon not indi|
00003cd0  72 65 63 74 65 64 22 0d  16 08 05 e1 0d 16 12 04  |rected".........|
00003ce0  0d 16 1c 3c dd f2 67 65  74 69 28 68 25 2c 69 25  |...<..geti(h%,i%|
00003cf0  29 3a 21 71 25 3d 68 25  3a 71 25 21 34 3d 69 25  |):!q%=h%:q%!4=i%|
00003d00  3a c8 99 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |:.."Wimp_GetIcon|
00003d10  53 74 61 74 65 22 2c 2c  71 25 3a e1 0d 16 26 04  |State",,q%:...&.|
00003d20  0d 16 30 2e dd a4 74 61  28 68 25 29 3a 21 71 25  |..0...ta(h%):!q%|
00003d30  3d 68 25 3a c8 99 22 57  69 6d 70 5f 47 65 74 57  |=h%:.."Wimp_GetW|
00003d40  69 6e 64 6f 77 49 6e 66  6f 22 2c 2c 71 25 0d 16  |indowInfo",,q%..|
00003d50  3a 2c e7 28 71 25 21 36  30 80 26 31 30 30 29 3d  |:,.(q%!60.&100)=|
00003d60  30 85 31 2c 22 54 69 74  6c 65 20 6e 6f 74 20 69  |0.1,"Title not i|
00003d70  6e 64 69 72 65 63 74 65  64 22 0d 16 44 0a 3d 71  |ndirected"..D.=q|
00003d80  25 21 37 36 0d 16 4e 04  0d 16 58 14 dd f2 73 74  |%!76..N...X...st|
00003d90  6f 70 28 72 25 2c 54 24  2c 55 24 29 0d 16 62 1f  |op(r%,T$,U$)..b.|
00003da0  64 69 61 6c 72 65 61 73  6f 6e 25 3d 72 25 3a 73  |dialreason%=r%:s|
00003db0  74 6f 70 66 69 6c 65 25  3d 54 25 0d 16 6c 23 e7  |topfile%=T%..l#.|
00003dc0  a6 2d 33 84 ac 73 74 6f  70 62 6f 78 65 73 25 3a  |.-3..stopboxes%:|
00003dd0  6d 69 25 3d 33 3a f2 6d  73 74 6f 70 3a e1 0d 16  |mi%=3:.mstop:...|
00003de0  76 2b f2 73 65 74 69 28  77 5f 73 74 6f 70 25 2c  |v+.seti(w_stop%,|
00003df0  30 2c 54 24 29 3a f2 73  65 74 69 28 77 5f 73 74  |0,T$):.seti(w_st|
00003e00  6f 70 25 2c 31 2c 55 24  29 0d 16 80 29 f2 75 6e  |op%,1,U$)...).un|
00003e10  73 65 6c 61 6c 6c 28 77  5f 73 74 6f 70 25 29 3a  |selall(w_stop%):|
00003e20  f2 64 69 61 6c 6f 67 75  65 28 77 5f 73 74 6f 70  |.dialogue(w_stop|
00003e30  25 29 0d 16 8a 1f 64 69  61 6c 72 65 61 73 6f 6e  |%)....dialreason|
00003e40  25 3d 72 25 3a 73 74 6f  70 66 69 6c 65 25 3d 54  |%=r%:stopfile%=T|
00003e50  25 0d 16 94 05 e1 0d 16  9e 04 0d 16 a8 12 dd f2  |%...............|
00003e60  64 69 61 6c 6f 67 75 65  28 68 25 29 0d 16 b2 12  |dialogue(h%)....|
00003e70  ea 58 25 2c 59 25 3a f2  6e 6f 64 69 61 6c 0d 16  |.X%,Y%:.nodial..|
00003e80  bc 27 c8 99 20 22 57 69  6d 70 5f 47 65 74 43 61  |.'.. "Wimp_GetCa|
00003e90  72 65 74 50 6f 73 69 74  69 6f 6e 22 2c 2c 64 69  |retPosition",,di|
00003ea0  61 6c 63 74 25 0d 16 c6  3d 64 69 61 6c 66 69 6c  |alct%...=dialfil|
00003eb0  65 25 3d 66 69 6c 65 25  3a f2 6e 6f 6d 65 6e 75  |e%=file%:.nomenu|
00003ec0  3a f2 72 65 61 64 70 6f  69 6e 74 65 72 3a 58 25  |:.readpointer:X%|
00003ed0  3d 6d 78 25 2d 32 30 30  3a 59 25 3d 6d 79 25 2d  |=mx%-200:Y%=my%-|
00003ee0  38 35 0d 16 d0 0d e7 58  25 3c 30 58 25 3d 30 0d  |85.....X%<0X%=0.|
00003ef0  16 da 0f e7 59 25 3c 39  36 59 25 3d 39 36 0d 16  |....Y%<96Y%=96..|
00003f00  e4 32 64 69 61 6c 6f 67  75 65 25 3d 68 25 3a f2  |.2dialogue%=h%:.|
00003f10  66 72 6f 6e 74 28 68 25  2c 58 25 2c 59 25 29 3a  |front(h%,X%,Y%):|
00003f20  f2 73 65 74 63 74 28 68  25 2c 2d 31 2c 2d 31 29  |.setct(h%,-1,-1)|
00003f30  0d 16 ee 0b f7 8d 54 6c  78 3a f5 0d 16 f8 34 f3  |......Tlx:....4.|
00003f40  68 25 3a e7 68 25 3d 64  69 61 6c 6f 67 75 65 25  |h%:.h%=dialogue%|
00003f50  3a f3 58 25 3a f2 73 65  74 63 74 28 68 25 2c 58  |:.X%:.setct(h%,X|
00003f60  25 2c a9 24 a4 69 61 28  68 25 2c 58 25 29 29 0d  |%,.$.ia(h%,X%)).|
00003f70  17 02 1d e7 68 25 3c 3e  2d 31 3a f5 3a f3 58 25  |....h%<>-1:.:.X%|
00003f80  3a fd 58 25 3c 2d 31 3a  68 25 3d 30 0d 17 0c 18  |:.X%<-1:h%=0....|
00003f90  fd 68 25 3d 64 69 61 6c  6f 67 75 65 25 84 68 25  |.h%=dialogue%.h%|
00003fa0  3c 30 3a e1 0d 17 16 04  0d 17 20 21 dd f2 72 65  |<0:....... !..re|
00003fb0  61 64 70 6f 69 6e 74 65  72 3a ea 71 25 3a 71 25  |adpointer:.q%:q%|
00003fc0  3d 77 6f 72 6b 62 75 66  25 0d 17 2a 1f c8 99 22  |=workbuf%..*..."|
00003fd0  57 69 6d 70 5f 47 65 74  50 6f 69 6e 74 65 72 49  |Wimp_GetPointerI|
00003fe0  6e 66 6f 22 2c 2c 71 25  0d 17 34 31 6d 78 25 3d  |nfo",,q%..41mx%=|
00003ff0  21 71 25 3a 6d 79 25 3d  71 25 21 34 3a 6d 62 25  |!q%:my%=q%!4:mb%|
00004000  3d 71 25 21 38 3a 6d 68  25 3d 71 25 21 31 32 3a  |=q%!8:mh%=q%!12:|
00004010  6d 69 25 3d 71 25 21 31  36 0d 17 3e 05 e1 0d 17  |mi%=q%!16..>....|
00004020  48 04 0d 17 52 15 dd a4  64 69 61 6c 6f 67 75 65  |H...R...dialogue|
00004030  3a ea 66 69 6c 65 25 0d  17 5c 36 e7 64 69 61 6c  |:.file%..\6.dial|
00004040  6f 67 75 65 25 3e 3d 30  80 6d 68 25 3c 3e 64 69  |ogue%>=0.mh%<>di|
00004050  61 6c 6f 67 75 65 25 80  6d 68 25 3c 3e 77 5f 73  |alogue%.mh%<>w_s|
00004060  68 61 64 6f 77 25 f2 6e  6f 64 69 61 6c 0d 17 66  |hadow%.nodial..f|
00004070  06 3d a3 0d 17 70 04 0d  17 7a 24 dd f2 6d 6f 75  |.=...p...z$..mou|
00004080  73 65 28 6d 78 25 2c 6d  79 25 2c 6d 62 25 2c 6d  |se(mx%,my%,mb%,m|
00004090  68 25 2c 6d 69 25 2c 6d  6f 25 29 0d 17 84 1d e7  |h%,mi%,mo%).....|
000040a0  64 72 61 67 72 65 61 73  6f 6e 25 3e 3d 30 84 6d  |dragreason%>=0.m|
000040b0  62 25 3e 32 35 35 3a e1  0d 17 8e 37 f2 77 74 6f  |b%>255:....7.wto|
000040c0  66 28 6d 68 25 29 3a e7  66 69 6c 65 25 3e 3d 30  |f(mh%):.file%>=0|
000040d0  80 77 69 6e 64 25 3d 36  80 28 6d 62 25 3d 31 84  |.wind%=6.(mb%=1.|
000040e0  6d 62 25 3d 34 29 80 6d  69 25 3c 31 39 3a e1 0d  |mb%=4).mi%<19:..|
000040f0  17 98 18 e7 6d 62 25 3c  31 36 3a e7 a4 64 69 61  |....mb%<16:..dia|
00004100  6c 6f 67 75 65 3a e1 0d  17 a2 33 77 5f 69 6e 66  |logue:....3w_inf|
00004110  6f 25 3d 77 5f 70 69 6e  66 6f 25 3a e7 6d 62 25  |o%=w_pinfo%:.mb%|
00004120  3d 37 3a 6d 62 25 3d 32  3a 77 5f 69 6e 66 6f 25  |=7:mb%=2:w_info%|
00004130  3d 77 5f 70 69 6e 66 6f  32 25 0d 17 ac 0a c8 8e  |=w_pinfo2%......|
00004140  6d 62 25 ca 0d 17 b6 0c  c9 32 3a f2 6d 65 6e 75  |mb%......2:.menu|
00004150  0d 17 c0 10 c9 31 2c 34  3a f2 73 65 6c 65 63 74  |.....1,4:.select|
00004160  0d 17 ca 15 c9 31 36 2c  36 34 3a f2 73 74 61 72  |.....16,64:.star|
00004170  74 64 72 61 67 0d 17 d4  05 cb 0d 17 de 05 e1 0d  |tdrag...........|
00004180  17 e8 04 0d 17 f2 36 dd  f2 73 65 74 69 28 68 25  |......6..seti(h%|
00004190  2c 69 25 2c 54 24 29 3a  54 24 3d c0 54 24 2c a4  |,i%,T$):T$=.T$,.|
000041a0  69 6c 28 68 25 2c 69 25  29 29 3a 24 a4 69 61 28  |il(h%,i%)):$.ia(|
000041b0  68 25 2c 69 25 29 3d 54  24 0d 17 fc 3c f2 69 63  |h%,i%)=T$...<.ic|
000041c0  6f 6e 75 70 64 28 68 25  2c 69 25 29 3a f2 67 65  |onupd(h%,i%):.ge|
000041d0  74 63 74 3a e7 21 71 25  3d 68 25 80 71 25 21 34  |tct:.!q%=h%.q%!4|
000041e0  3d 69 25 3a f2 73 65 74  63 74 28 68 25 2c 69 25  |=i%:.setct(h%,i%|
000041f0  2c a9 54 24 29 0d 18 06  05 e1 0d 18 10 04 0d 18  |,.T$)...........|
00004200  1a 27 dd f2 69 73 65 74  28 68 25 2c 69 25 2c 42  |.'..iset(h%,i%,B|
00004210  25 2c 45 25 29 3a ea 71  25 3a 71 25 3d 77 6f 72  |%,E%):.q%:q%=wor|
00004220  6b 62 75 66 25 0d 18 24  3f 21 71 25 3d 68 25 3a  |kbuf%..$?!q%=h%:|
00004230  71 25 21 34 3d 69 25 3a  71 25 21 31 32 3d 42 25  |q%!4=i%:q%!12=B%|
00004240  3a 71 25 21 38 3d 45 25  3a c8 99 22 57 69 6d 70  |:q%!8=E%:.."Wimp|
00004250  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00004260  71 25 3a e1 0d 18 2e 04  0d 18 38 27 dd f2 69 63  |q%:.......8'..ic|
00004270  6f 6e 75 70 64 28 68 25  2c 69 25 29 3a f2 69 73  |onupd(h%,i%):.is|
00004280  65 74 28 68 25 2c 69 25  2c 30 2c 30 29 3a e1 0d  |et(h%,i%,0,0):..|
00004290  18 42 04 0d 18 4c 0f dd  f2 66 6f 72 63 65 28 68  |.B...L...force(h|
000042a0  25 29 0d 18 56 09 c8 8e  68 25 ca 0d 18 60 2e 7f  |%)..V...h%...`..|
000042b0  c8 99 22 57 69 6d 70 5f  46 6f 72 63 65 52 65 64  |.."Wimp_ForceRed|
000042c0  72 61 77 22 2c 68 25 2c  2d 31 45 39 2c 2d 31 45  |raw",h%,-1E9,-1E|
000042d0  39 2c 31 45 39 2c 31 45  39 0d 18 6a 05 cb 0d 18  |9,1E9,1E9..j....|
000042e0  74 05 e1 0d 18 7e 04 0d  18 88 13 dd f2 72 65 61  |t....~.......rea|
000042f0  64 62 6c 6f 63 6b 28 70  25 29 0d 18 92 37 78 30  |dblock(p%)...7x0|
00004300  25 3d 21 70 25 3a 79 30  25 3d 70 25 21 34 3a 78  |%=!p%:y0%=p%!4:x|
00004310  31 25 3d 70 25 21 38 3a  79 31 25 3d 70 25 21 31  |1%=p%!8:y1%=p%!1|
00004320  32 3a f4 20 70 68 79 73  69 63 61 6c 20 61 72 65  |2:. physical are|
00004330  61 0d 18 9c 46 73 63 78  25 3d 70 25 21 31 36 3a  |a...Fscx%=p%!16:|
00004340  73 63 79 25 3d 70 25 21  32 30 3a 62 68 61 6e 64  |scy%=p%!20:bhand|
00004350  6c 65 25 3d 70 25 21 32  34 3a f4 20 73 63 72 6f  |le%=p%!24:. scro|
00004360  6c 6c 20 6f 66 66 73 65  74 73 2c 20 73 74 61 63  |ll offsets, stac|
00004370  6b 20 64 65 70 74 68 0d  18 a6 4a 62 78 25 3d 78  |k depth...Jbx%=x|
00004380  30 25 2d 73 63 78 25 3a  62 79 25 3d 79 31 25 2d  |0%-scx%:by%=y1%-|
00004390  73 63 79 25 3a f4 20 63  61 6c 63 75 6c 61 74 65  |scy%:. calculate|
000043a0  20 70 68 79 73 69 63 61  6c 20 63 6f 2d 6f 72 64  | physical co-ord|
000043b0  73 20 6f 66 20 6c 6f 67  69 63 61 6c 20 61 72 65  |s of logical are|
000043c0  61 0d 18 b0 3e 65 78 30  25 3d 70 25 21 34 30 3a  |a...>ex0%=p%!40:|
000043d0  65 79 30 25 3d 70 25 21  34 34 3a 65 78 31 25 3d  |ey0%=p%!44:ex1%=|
000043e0  70 25 21 34 38 3a 65 79  31 25 3d 70 25 21 35 32  |p%!48:ey1%=p%!52|
000043f0  3a f4 20 6c 6f 67 69 63  61 6c 20 61 72 65 61 0d  |:. logical area.|
00004400  18 ba 41 67 78 30 25 3d  70 25 21 32 34 3a 67 79  |..Agx0%=p%!24:gy|
00004410  30 25 3d 70 25 21 32 38  3a 67 78 31 25 3d 70 25  |0%=p%!28:gx1%=p%|
00004420  21 33 32 3a 67 79 31 25  3d 70 25 21 33 36 3a f4  |!32:gy1%=p%!36:.|
00004430  20 67 72 61 70 68 69 63  73 20 77 69 6e 64 6f 77  | graphics window|
00004440  0d 18 c4 2e 6f 70 65 6e  25 3d 28 70 25 21 32 38  |....open%=(p%!28|
00004450  80 26 31 30 30 30 30 29  3c 3e 30 3a f4 20 77 69  |.&10000)<>0:. wi|
00004460  6e 64 6f 77 20 6f 70 65  6e 20 66 6c 61 67 0d 18  |ndow open flag..|
00004470  ce 05 e1 0d 18 d8 04 0d  18 e2 0e dd f2 67 65 74  |.............get|
00004480  77 28 68 25 29 0d 18 ec  25 21 71 25 3d 68 25 3a  |w(h%)...%!q%=h%:|
00004490  c8 99 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |.."Wimp_GetWindo|
000044a0  77 49 6e 66 6f 22 2c 2c  71 25 0d 18 f6 14 f2 72  |wInfo",,q%.....r|
000044b0  65 61 64 62 6c 6f 63 6b  28 71 25 2b 34 29 0d 19  |eadblock(q%+4)..|
000044c0  00 05 e1 0d 19 0a 04 0d  19 14 0c dd f2 73 65 6c  |.............sel|
000044d0  65 63 74 0d 19 1e 17 e7  a4 6e 75 6d 69 28 6d 68  |ect......numi(mh|
000044e0  25 2c 6d 69 25 2c 6d 62  25 29 0d 19 28 0e e7 66  |%,mi%,mb%)..(..f|
000044f0  69 6c 65 25 3e 3d 30 8c  0d 19 32 0c c8 8e 77 69  |ile%>=0...2...wi|
00004500  6e 64 25 ca 0d 19 3c 0d  c9 30 3a f2 6d 63 61 72  |nd%...<..0:.mcar|
00004510  64 0d 19 46 0d c9 31 3a  f2 6d 70 61 6e 65 0d 19  |d..F..1:.mpane..|
00004520  50 0e c9 32 3a f2 6d 66  6c 69 73 74 0d 19 5a 05  |P..2:.mflist..Z.|
00004530  cb 0d 19 64 05 cc 0d 19  6e 0a c8 8e 6d 68 25 ca  |...d....n...mh%.|
00004540  0d 19 78 2a c9 2d 32 3a  e7 6d 62 25 3d 31 80 a6  |..x*.-2:.mb%=1..|
00004550  2d 31 80 a6 2d 32 3a f2  6f 73 63 6c 69 28 22 22  |-1..-2:.oscli(""|
00004560  29 3a 8b f2 73 74 61 74  75 73 0d 19 82 13 c9 77  |):..status.....w|
00004570  5f 73 74 6f 70 25 3a f2  6d 73 74 6f 70 0d 19 8c  |_stop%:.mstop...|
00004580  13 c9 77 5f 73 61 76 65  25 3a f2 6d 73 61 76 65  |..w_save%:.msave|
00004590  0d 19 96 13 c9 77 5f 66  69 6e 66 25 3a f2 6d 66  |.....w_finf%:.mf|
000045a0  69 6e 66 0d 19 a0 17 c9  77 5f 73 74 61 74 75 73  |inf.....w_status|
000045b0  25 3a f2 6d 73 74 61 74  75 73 0d 19 aa 24 c9 77  |%:.mstatus...$.w|
000045c0  5f 6d 65 73 73 25 3a e7  6d 69 25 3d 36 3a f2 63  |_mess%:.mi%=6:.c|
000045d0  6c 6f 73 65 77 28 77 5f  6d 65 73 73 25 29 0d 19  |losew(w_mess%)..|
000045e0  b4 15 c9 77 5f 70 61 73  73 77 25 3a f2 6d 70 61  |...w_passw%:.mpa|
000045f0  73 73 77 0d 19 be 15 c9  77 5f 66 73 69 7a 65 25  |ssw.....w_fsize%|
00004600  3a f2 6d 66 73 69 7a 65  0d 19 c8 15 c9 77 5f 61  |:.mfsize.....w_a|
00004610  62 61 6e 64 25 3a f2 6d  61 62 61 6e 64 0d 19 d2  |band%:.maband...|
00004620  15 c9 77 5f 66 73 70 65  63 25 3a f2 6d 66 73 70  |..w_fspec%:.mfsp|
00004630  65 63 0d 19 dc 15 c9 77  5f 63 73 69 7a 65 25 3a  |ec.....w_csize%:|
00004640  f2 6d 63 73 69 7a 65 0d  19 e6 15 c9 77 5f 69 6e  |.mcsize.....w_in|
00004650  64 65 78 25 3a f2 6d 69  6e 64 65 78 0d 19 f0 17  |dex%:.mindex....|
00004660  c9 77 5f 70 61 73 73 77  31 25 3a f2 6d 70 61 73  |.w_passw1%:.mpas|
00004670  73 77 31 0d 19 fa 05 cb  0d 1a 04 05 cd 0d 1a 0e  |sw1.............|
00004680  05 e1 0d 1a 18 04 0d 1a  22 1f dd f2 6d 69 6e 64  |........"...mind|
00004690  65 78 3a e7 6d 69 25 3c  3e 31 33 80 6d 69 25 3c  |ex:.mi%<>13.mi%<|
000046a0  3e 31 32 3a e1 0d 1a 2c  0c e7 6d 69 25 3d 31 33  |>12:...,..mi%=13|
000046b0  8c 0d 1a 36 13 ea 54 24  2c 74 24 2c 49 25 2c 66  |...6..T$,t$,I%,f|
000046c0  25 2c 54 25 0d 1a 40 3a  54 24 3d a4 73 28 24 a4  |%,T%..@:T$=.s($.|
000046d0  69 61 28 77 5f 69 6e 64  65 78 25 2c 31 29 29 3a  |ia(w_index%,1)):|
000046e0  e7 97 54 24 3c 33 33 84  97 54 24 3d 34 38 84 bb  |..T$<33..T$=48..|
000046f0  54 24 3e 30 3a f2 65 72  72 28 31 31 31 29 0d 1a  |T$>0:.err(111)..|
00004700  4a 2d 74 24 3d a4 73 28  24 a4 69 61 28 77 5f 69  |J-t$=.s($.ia(w_i|
00004710  6e 64 65 78 25 2c 33 29  29 3a e7 97 74 24 3c 33  |ndex%,3)):..t$<3|
00004720  33 3a f2 65 72 72 28 31  31 32 29 0d 1a 54 20 66  |3:.err(112)..T f|
00004730  25 3d 30 3a f2 77 63 68  69 28 77 5f 69 6e 64 65  |%=0:.wchi(w_inde|
00004740  78 25 29 3a 49 25 3d 71  25 3a f5 0d 1a 5e 0a c8  |x%):I%=q%:...^..|
00004750  8e 21 49 25 ca 0d 1a 68  0e c9 34 3a 66 25 3d 66  |.!I%...h..4:f%=f|
00004760  25 84 31 0d 1a 72 0e c9  35 3a 66 25 3d 66 25 84  |%.1..r..5:f%=f%.|
00004770  32 0d 1a 7c 0e c9 36 3a  66 25 3d 66 25 84 34 0d  |2..|..6:f%=f%.4.|
00004780  1a 86 0e c9 37 3a 66 25  3d 66 25 84 38 0d 1a 90  |....7:f%=f%.8...|
00004790  0f c9 38 3a 66 25 3d 66  25 84 31 36 0d 1a 9a 0f  |..8:f%=f%.16....|
000047a0  c9 39 3a 66 25 3d 66 25  84 36 34 0d 1a a4 11 c9  |.9:f%=f%.64.....|
000047b0  31 30 3a 66 25 3d 66 25  84 32 35 36 0d 1a ae 11  |10:f%=f%.256....|
000047c0  c9 31 31 3a 66 25 3d 66  25 84 31 32 38 0d 1a b8  |.11:f%=f%.128...|
000047d0  05 cb 0d 1a c2 12 49 25  2b 3d 34 3a fd 49 25 21  |......I%+=4:.I%!|
000047e0  2d 34 3c 30 0d 1a cc 26  54 25 3d 2d 31 3a e7 64  |-4<0...&T%=-1:.d|
000047f0  69 61 6c 72 65 61 73 6f  6e 25 3d 31 3a 54 25 3d  |ialreason%=1:T%=|
00004800  6d 65 6e 75 69 6e 64 65  78 25 0d 1a d6 22 c8 99  |menuindex%..."..|
00004810  73 77 69 25 2c 6d 61 6b  65 69 6e 64 65 78 5f 25  |swi%,makeindex_%|
00004820  2c 54 24 2c 74 24 2c 66  25 2c 54 25 0d 1a e0 05  |,T$,t$,f%,T%....|
00004830  cd 0d 1a ea 18 f2 6d 61  6b 65 69 6c 69 73 74 3a  |......makeilist:|
00004840  f2 6e 6f 64 69 61 6c 3a  e1 0d 1a f4 04 0d 1a fe  |.nodial:........|
00004850  0b dd f2 6d 63 61 72 64  0d 1b 08 1e ea 58 25 2c  |...mcard.....X%,|
00004860  59 25 3a f2 63 75 72 6d  6f 75 73 65 3a e7 6d 62  |Y%:.curmouse:.mb|
00004870  25 3c 3e 31 3a e1 0d 1b  12 14 c8 99 73 77 69 25  |%<>1:.......swi%|
00004880  2c 73 64 37 30 5f 25 b8  47 25 0d 1b 1c 23 e7 47  |,sd70_%.G%...#.G|
00004890  25 3e 30 3a 6d 65 6e 75  66 69 65 6c 64 25 3d 47  |%>0:menufield%=G|
000048a0  25 3a f2 66 69 6e 66 6f  28 b9 29 3a e1 0d 1b 26  |%:.finfo(.):...&|
000048b0  2a 58 25 3d a4 76 5f 28  31 32 29 3a 59 25 3d a4  |*X%=.v_(12):Y%=.|
000048c0  76 5f 28 31 33 29 3a c8  99 73 77 69 25 2c 73 64  |v_(13):..swi%,sd|
000048d0  31 31 5f 25 b8 47 25 0d  1b 30 14 e7 47 25 3c 3e  |11_%.G%..0..G%<>|
000048e0  36 34 80 47 25 3c 3e 34  33 3a e1 0d 1b 3a 17 c8  |64.G%<>43:...:..|
000048f0  99 73 77 69 25 2c 73 64  34 34 5f 25 2c 58 25 2c  |.swi%,sd44_%,X%,|
00004900  59 25 0d 1b 44 24 c8 99  73 77 69 25 2c 66 69 65  |Y%..D$..swi%,fie|
00004910  6c 64 5f 25 2c a4 76 5f  28 37 29 2b 31 2c 22 3f  |ld_%,.v_(7)+1,"?|
00004920  22 2c 2c 2c 2c 37 0d 1b  4e 17 c8 99 73 77 69 25  |",,,,7..N...swi%|
00004930  2c 73 64 34 34 5f 25 2c  58 25 2c 59 25 0d 1b 58  |,sd44_%,X%,Y%..X|
00004940  1d f2 6d 61 74 63 68 63  74 3a f2 75 70 64 6c 69  |..matchct:.updli|
00004950  6e 65 3a f2 72 65 73 69  7a 65 0d 1b 62 26 f2 69  |ne:.resize..b&.i|
00004960  6e 69 74 70 61 6e 65 3a  f2 75 70 64 66 64 73 3a  |nitpane:.updfds:|
00004970  c8 99 73 77 69 25 2c 73  64 37 30 5f 25 b8 47 25  |..swi%,sd70_%.G%|
00004980  0d 1b 6c 21 e7 47 25 3e  30 3a 6d 65 6e 75 66 69  |..l!.G%>0:menufi|
00004990  65 6c 64 25 3d 47 25 3a  f2 66 69 6e 66 6f 28 b9  |eld%=G%:.finfo(.|
000049a0  29 0d 1b 76 05 e1 0d 1b  80 04 0d 1b 8a 2d dd f2  |)..v.........-..|
000049b0  6d 66 6c 69 73 74 3a ea  59 25 3a 59 25 3d 6d 79  |mflist:.Y%:Y%=my|
000049c0  25 3a f2 79 63 6f 6e 76  28 59 25 2c a4 76 5f 28  |%:.yconv(Y%,.v_(|
000049d0  37 29 2c 6d 68 25 29 0d  1b 94 2e 6d 65 6e 75 66  |7),mh%)....menuf|
000049e0  69 65 6c 64 25 3d 59 25  3a e7 6d 62 25 3d 31 3a  |ield%=Y%:.mb%=1:|
000049f0  f2 66 69 6e 66 6f 28 b9  29 3a 8b f2 66 69 6e 64  |.finfo(.):..find|
00004a00  66 69 65 6c 64 0d 1b 9e  05 e1 0d 1b a8 04 0d 1b  |field...........|
00004a10  b2 0b dd f2 6d 70 61 6e  65 0d 1b bc 0a c8 8e 6d  |....mpane......m|
00004a20  69 25 ca 0d 1b c6 0d c9  30 3a f2 63 73 69 7a 65  |i%......0:.csize|
00004a30  0d 1b d0 0e c9 31 3a f2  73 65 74 74 61 62 0d 1b  |.....1:.settab..|
00004a40  da 10 c9 32 3a f2 64 65  6c 66 69 65 6c 64 0d 1b  |...2:.delfield..|
00004a50  e4 2b c9 33 3a f2 73 74  6f 70 28 31 30 33 2c 22  |.+.3:.stop(103,"|
00004a60  22 2c 72 6c 24 2b 22 64  65 73 74 72 6f 79 20 6c  |",rl$+"destroy l|
00004a70  61 79 6f 75 74 20 3f 22  29 0d 1b ee 0f c9 34 2c  |ayout ?").....4,|
00004a80  35 3a f2 66 73 70 65 63  0d 1b f8 14 c9 31 32 2c  |5:.fspec.....12,|
00004a90  31 33 2c 31 39 3a f2 66  73 69 7a 65 0d 1c 02 05  |13,19:.fsize....|
00004aa0  cb 0d 1c 0c 05 e1 0d 1c  16 04 0d 1c 20 0d dd f2  |............ ...|
00004ab0  6d 70 61 73 73 77 31 0d  1c 2a 12 e7 6d 69 25 3c  |mpassw1..*..mi%<|
00004ac0  32 84 6d 69 25 3e 33 3a  e1 0d 1c 34 3c e7 6d 69  |2.mi%>3:...4<.mi|
00004ad0  25 3d 33 3a 70 61 73 73  24 3d 24 a4 69 61 28 77  |%=3:pass$=$.ia(w|
00004ae0  5f 70 61 73 73 77 31 25  2c 31 29 3a f2 6e 6f 64  |_passw1%,1):.nod|
00004af0  69 61 6c 3a f2 67 6c 61  79 6f 75 74 3a 8b f2 6e  |ial:.glayout:..n|
00004b00  6f 64 69 61 6c 0d 1c 3e  05 e1 0d 1c 48 04 0d 1c  |odial..>....H...|
00004b10  52 19 dd f2 6d 73 74 6f  70 3a e7 6d 69 25 3c 33  |R...mstop:.mi%<3|
00004b20  84 6d 69 25 3e 34 e1 0d  1c 5c 25 ea 54 25 3a 54  |.mi%>4...\%.T%:T|
00004b30  25 3d 64 69 61 6c 72 65  61 73 6f 6e 25 3a 64 69  |%=dialreason%:di|
00004b40  61 6c 72 65 61 73 6f 6e  25 3d 2d 31 0d 1c 66 0b  |alreason%=-1..f.|
00004b50  e7 6d 69 25 3d 33 8c 0d  1c 70 14 f2 63 6c 6f 73  |.mi%=3...p..clos|
00004b60  65 77 28 77 5f 73 74 6f  70 25 29 0d 1c 7a 09 c8  |ew(w_stop%)..z..|
00004b70  8e 54 25 ca 0d 1c 84 20  c9 32 3a 63 6c 6f 73 65  |.T%.... .2:close|
00004b80  6f 6b 25 3d b9 3a f2 63  6c 6f 73 65 77 28 77 25  |ok%=.:.closew(w%|
00004b90  28 30 29 29 0d 1c 8e 16  c9 36 3a f2 43 4c 4f 53  |(0)).....6:.CLOS|
00004ba0  45 3a f2 71 75 69 74 28  a3 29 0d 1c 98 14 c9 32  |E:.quit(.).....2|
00004bb0  30 3a 73 74 6f 70 62 6f  78 65 73 25 3d a3 0d 1c  |0:stopboxes%=...|
00004bc0  a2 10 c9 32 36 3a f2 61  73 63 63 61 72 64 0d 1c  |...26:.asccard..|
00004bd0  ac 1b c9 32 37 3a c8 99  73 77 69 25 2c 73 65 74  |...27:..swi%,set|
00004be0  70 61 73 73 5f 25 2c 22  22 0d 1c b6 2b c9 33 36  |pass_%,""...+.36|
00004bf0  3a ff 22 2a 73 65 74 74  79 70 65 20 22 2b 66 69  |:."*settype "+fi|
00004c00  6c 65 24 2b 22 20 22 2b  c3 7e 6d 65 6e 75 66 69  |le$+" "+.~menufi|
00004c10  65 6c 64 25 0d 1c c0 44  e7 6d 65 6e 75 66 69 65  |eld%...D.menufie|
00004c20  6c 64 25 3d 66 74 5f 64  61 74 61 25 3a f2 63 68  |ld%=ft_data%:.ch|
00004c30  65 63 6b 6f 70 65 6e 3a  f2 6d 73 74 6f 72 65 28  |eckopen:.mstore(|
00004c40  22 33 3a 22 2b 66 69 6c  65 24 2c 22 4d 75 6c 74  |"3:"+file$,"Mult|
00004c50  69 53 74 6f 72 65 22 29  0d 1c ca 10 c9 33 38 3a  |iStore").....38:|
00004c60  f2 70 69 63 70 61 74 68  0d 1c d4 1b c9 31 30 30  |.picpath.....100|
00004c70  3a f2 6e 6f 64 69 61 6c  3a f2 67 6c 61 79 6f 75  |:.nodial:.glayou|
00004c80  74 3a e1 0d 1c de 12 c9  31 30 31 3a f2 65 72 72  |t:......101:.err|
00004c90  28 31 31 36 29 0d 1c e8  1d c9 31 30 32 3a c8 99  |(116).....102:..|
00004ca0  73 77 69 25 2c 64 65 6c  66 69 65 6c 64 5f 25 b8  |swi%,delfield_%.|
00004cb0  47 25 0d 1c f2 25 f2 75  70 64 6c 69 6e 65 3a f2  |G%...%.updline:.|
00004cc0  72 65 73 69 7a 65 3a f2  6d 61 74 63 68 63 74 3a  |resize:.matchct:|
00004cd0  f2 75 70 64 66 64 73 0d  1c fc 17 c9 31 30 33 3a  |.updfds.....103:|
00004ce0  c8 99 73 77 69 25 2c 63  6c 65 61 72 5f 25 0d 1d  |..swi%,clear_%..|
00004cf0  06 1a f2 72 65 73 69 7a  65 3a f2 66 65 78 74 3a  |...resize:.fext:|
00004d00  f2 6d 61 74 63 68 63 74  0d 1d 10 1e f2 66 6f 72  |.matchct.....for|
00004d10  63 65 63 61 72 64 3a f2  75 70 64 66 64 73 3a f2  |cecard:.updfds:.|
00004d20  75 70 64 69 78 73 0d 1d  1a 16 c9 31 30 34 3a f2  |updixs.....104:.|
00004d30  63 6c 6f 73 65 66 69 6c  65 28 a3 29 0d 1d 24 12  |closefile(.)..$.|
00004d40  c9 31 30 35 3a f2 64 65  6c 69 6e 64 65 78 0d 1d  |.105:.delindex..|
00004d50  2e 05 cb 0d 1d 38 05 cc  0d 1d 42 19 e7 54 25 3d  |.....8....B..T%=|
00004d60  31 3a f2 43 4c 4f 53 45  3a f2 71 75 69 74 28 a3  |1:.CLOSE:.quit(.|
00004d70  29 0d 1d 4c 05 cd 0d 1d  56 16 f2 63 6c 6f 73 65  |)..L....V..close|
00004d80  77 28 77 5f 73 74 6f 70  25 29 3a e1 0d 1d 60 04  |w(w_stop%):...`.|
00004d90  0d 1d 6a 0b dd f2 6d 73  61 76 65 0d 1d 74 0c e7  |..j...msave..t..|
00004da0  6d 69 25 3c 3e 30 e1 0d  1d 7e 30 ea 54 24 3a 54  |mi%<>0...~0.T$:T|
00004db0  24 3d 24 a4 69 61 28 77  5f 73 61 76 65 25 2c 32  |$=$.ia(w_save%,2|
00004dc0  29 3a e7 54 24 3d a4 6c  65 61 66 28 54 24 29 3a  |):.T$=.leaf(T$):|
00004dd0  f2 65 72 72 28 35 29 0d  1d 88 31 73 61 76 65 74  |.err(5)...1savet|
00004de0  79 70 65 25 3d 73 61 76  65 74 25 3a 74 61 73 6b  |ype%=savet%:task|
00004df0  25 3d 2d 31 3a 66 69 6c  65 24 3d 54 24 3a f2 73  |%=-1:file$=T$:.s|
00004e00  61 76 65 64 61 74 61 31  0d 1d 92 05 e1 0d 1d 9c  |avedata1........|
00004e10  04 0d 1d a6 0b dd f2 6d  66 69 6e 66 0d 1d b0 0a  |.......mfinf....|
00004e20  c8 8e 6d 69 25 ca 0d 1d  ba 18 c9 31 37 3a f2 63  |..mi%......17:.c|
00004e30  6c 6f 73 65 77 28 77 5f  66 69 6e 66 25 29 0d 1d  |losew(w_finf%)..|
00004e40  c4 29 c9 37 3a f2 67 65  74 69 28 77 5f 66 69 6e  |.).7:.geti(w_fin|
00004e50  66 25 2c 37 29 3a e7 28  71 25 21 32 34 29 80 28  |f%,7):.(q%!24).(|
00004e60  31 3c 3c 32 31 29 8c 0d  1d ce 2b f2 67 65 74 69  |1<<21)....+.geti|
00004e70  28 77 5f 66 69 6e 66 25  2c 31 32 29 3a e7 28 28  |(w_finf%,12):.((|
00004e80  71 25 21 32 34 29 80 28  31 3c 3c 32 31 29 29 3d  |q%!24).(1<<21))=|
00004e90  30 8c 0d 1d d8 29 f2 75  6e 73 65 6c 69 28 77 5f  |0....).unseli(w_|
00004ea0  66 69 6e 66 25 2c 31 30  29 3a f2 73 65 6c 69 28  |finf%,10):.seli(|
00004eb0  77 5f 66 69 6e 66 25 2c  31 31 29 0d 1d e2 05 cd  |w_finf%,11).....|
00004ec0  0d 1d ec 05 cd 0d 1d f6  0d c9 31 33 2c 31 34 2c  |..........13,14,|
00004ed0  31 35 0d 1e 00 3d f2 75  6e 73 65 6c 69 28 77 5f  |15...=.unseli(w_|
00004ee0  66 69 6e 66 25 2c 31 30  29 3a f2 75 6e 73 65 6c  |finf%,10):.unsel|
00004ef0  69 28 77 5f 66 69 6e 66  25 2c 31 31 29 3a f2 73  |i(w_finf%,11):.s|
00004f00  65 6c 69 28 77 5f 66 69  6e 66 25 2c 31 32 29 0d  |eli(w_finf%,12).|
00004f10  1e 0a 07 c9 31 39 0d 1e  14 16 ea 54 24 2c 54 25  |....19.....T$,T%|
00004f20  2c 42 25 2c 4c 25 2c 4b  25 2c 49 25 0d 1e 1e 19  |,B%,L%,K%,I%....|
00004f30  e7 77 25 28 32 29 3e 30  f2 66 6f 72 63 65 28 77  |.w%(2)>0.force(w|
00004f40  25 28 32 29 29 0d 1e 28  42 54 24 3d 24 a4 69 61  |%(2))..(BT$=$.ia|
00004f50  28 77 5f 66 69 6e 66 25  2c 35 29 3a 54 25 3d bb  |(w_finf%,5):T%=.|
00004f60  24 a4 69 61 28 77 5f 66  69 6e 66 25 2c 32 29 3a  |$.ia(w_finf%,2):|
00004f70  e7 54 25 3c 31 54 25 3d  31 8b e7 54 25 3e 32 35  |.T%<1T%=1..T%>25|
00004f80  35 54 25 3d 32 35 35 0d  1e 32 24 42 25 3d 97 a4  |5T%=255..2$B%=..|
00004f90  75 70 28 54 24 29 3a e7  42 25 3c 36 35 84 42 25  |up(T$):.B%<65.B%|
00004fa0  3e 39 30 f2 65 72 72 28  31 36 29 0d 1e 3c 30 4c  |>90.err(16)..<0L|
00004fb0  25 3d bb 24 a4 69 61 28  77 5f 66 69 6e 66 25 2c  |%=.$.ia(w_finf%,|
00004fc0  32 30 29 3a e7 4c 25 3c  31 4c 25 3d 31 8b e7 4c  |20):.L%<1L%=1..L|
00004fd0  25 3e 32 35 35 4c 25 3d  32 35 35 0d 1e 46 2c 42  |%>255L%=255..F,B|
00004fe0  25 3d bb 24 a4 69 61 28  77 5f 66 69 6e 66 25 2c  |%=.$.ia(w_finf%,|
00004ff0  31 33 29 3a e7 42 25 3c  30 42 25 3d 30 8b e7 42  |13):.B%<0B%=0..B|
00005000  25 3e 36 42 25 3d 36 0d  1e 50 1f 4b 25 3d a3 3a  |%>6B%=6..P.K%=.:|
00005010  f2 77 63 68 69 28 77 5f  66 69 6e 66 25 29 3a 49  |.wchi(w_finf%):I|
00005020  25 3d 71 25 3a f5 0d 1e  5a 0a c8 8e 21 49 25 ca  |%=q%:...Z...!I%.|
00005030  0d 1e 64 0b c9 36 3a 4b  25 3d b9 0d 1e 6e 0e c9  |..d..6:K%=...n..|
00005040  37 3a 42 25 3d 42 25 84  38 0d 1e 78 10 c9 38 3a  |7:B%=B%.8..x..8:|
00005050  42 25 3d 42 25 84 31 32  38 0d 1e 82 0f c9 39 3a  |B%=B%.128.....9:|
00005060  42 25 3d 42 25 84 36 34  0d 1e 8c 0f c9 31 30 3a  |B%=B%.64.....10:|
00005070  42 25 3d 42 25 84 37 0d  1e 96 10 c9 31 31 3a 42  |B%=B%.7.....11:B|
00005080  25 3d 42 25 80 ac 37 0d  1e a0 05 cb 0d 1e aa 12  |%=B%..7.........|
00005090  49 25 2b 3d 34 3a fd 49  25 21 2d 34 3c 30 0d 1e  |I%+=4:.I%!-4<0..|
000050a0  b4 21 c8 99 73 77 69 25  2c 73 64 31 38 5f 25 2c  |.!..swi%,sd18_%,|
000050b0  42 25 2c 34 2c 6d 65 6e  75 66 69 65 6c 64 25 0d  |B%,4,menufield%.|
000050c0  1e be 17 c8 99 73 77 69  25 2c 73 64 36 37 5f 25  |.....swi%,sd67_%|
000050d0  2c 54 24 b8 47 25 0d 1e  c8 37 e7 47 25 3c 3e 6d  |,T$.G%...7.G%<>m|
000050e0  65 6e 75 66 69 65 6c 64  25 80 47 25 3e 30 f2 73  |enufield%.G%>0.s|
000050f0  65 74 63 74 28 77 5f 66  69 6e 66 25 2c 35 2c a9  |etct(w_finf%,5,.|
00005100  54 24 29 3a f2 65 72 72  28 31 31 35 29 0d 1e d2  |T$):.err(115)...|
00005110  1f c8 99 73 77 69 25 2c  73 64 32 30 5f 25 2c 54  |...swi%,sd20_%,T|
00005120  24 2c 6d 65 6e 75 66 69  65 6c 64 25 0d 1e dc 11  |$,menufield%....|
00005130  e7 64 69 61 6c 72 65 61  73 6f 6e 25 8c 0d 1e e6  |.dialreason%....|
00005140  23 e7 4b 25 3a c8 99 73  77 69 25 2c 6d 61 6b 65  |#.K%:..swi%,make|
00005150  6b 65 79 5f 25 2c 6d 65  6e 75 66 69 65 6c 64 25  |key_%,menufield%|
00005160  0d 1e f0 26 e7 ac 4b 25  3a c8 99 73 77 69 25 2c  |...&..K%:..swi%,|
00005170  72 65 6d 6f 76 65 6b 65  79 5f 25 2c 6d 65 6e 75  |removekey_%,menu|
00005180  66 69 65 6c 64 25 0d 1e  fa 22 c8 99 73 77 69 25  |field%..."..swi%|
00005190  2c 66 6c 65 6e 67 74 68  5f 25 2c 4c 25 2c 6d 65  |,flength_%,L%,me|
000051a0  6e 75 66 69 65 6c 64 25  0d 1f 04 32 e7 54 25 3c  |nufield%...2.T%<|
000051b0  3e 6d 65 6e 75 66 69 65  6c 64 25 3a c8 99 73 77  |>menufield%:..sw|
000051c0  69 25 2c 66 6e 75 6d 62  65 72 5f 25 2c 54 25 2c  |i%,fnumber_%,T%,|
000051d0  6d 65 6e 75 66 69 65 6c  64 25 0d 1f 0e 11 6d 65  |menufield%....me|
000051e0  6e 75 66 69 65 6c 64 25  3d 54 25 0d 1f 18 05 cd  |nufield%=T%.....|
000051f0  0d 1f 22 37 f2 6e 6f 64  69 61 6c 3a f2 72 65 73  |.."7.nodial:.res|
00005200  69 7a 65 3a f2 69 6e 69  74 70 61 6e 65 3a f2 75  |ize:.initpane:.u|
00005210  70 64 6c 69 6e 65 3a f2  75 70 64 66 64 73 3a f2  |pdline:.updfds:.|
00005220  6d 61 74 63 68 63 74 0d  1f 2c 05 cb 0d 1f 36 05  |matchct..,....6.|
00005230  e1 0d 1f 40 04 0d 1f 4a  0d dd f2 6d 73 74 61 74  |...@...J...mstat|
00005240  75 73 0d 1f 54 0d ea 54  25 2c 49 25 2c 41 25 0d  |us..T..T%,I%,A%.|
00005250  1f 5e 0a c8 8e 6d 69 25  ca 0d 1f 68 24 c9 31 35  |.^...mi%...h$.15|
00005260  3a e7 77 25 28 30 29 3e  30 3a f2 66 72 6f 6e 74  |:.w%(0)>0:.front|
00005270  28 77 25 28 30 29 2c 2d  31 2c 2d 31 29 0d 1f 72  |(w%(0),-1,-1)..r|
00005280  07 c9 31 32 0d 1f 7c 07  c9 31 33 0d 1f 86 1e 73  |..12..|..13....s|
00005290  6f 75 6e 64 25 3d a3 3a  73 68 61 64 6f 77 73 25  |ound%=.:shadows%|
000052a0  3d a3 3a 70 69 78 25 3d  a3 0d 1f 90 1c f2 77 63  |=.:pix%=......wc|
000052b0  68 69 28 77 5f 73 74 61  74 75 73 25 29 3a 49 25  |hi(w_status%):I%|
000052c0  3d 71 25 3a f5 0d 1f 9a  0a c8 8e 21 49 25 ca 0d  |=q%:.......!I%..|
000052d0  1f a4 10 c9 32 34 3a 73  6f 75 6e 64 25 3d b9 0d  |....24:sound%=..|
000052e0  1f ae 12 c9 32 35 3a 73  68 61 64 6f 77 73 25 3d  |....25:shadows%=|
000052f0  b9 0d 1f b8 0c c9 32 33  3a 41 25 3d b9 0d 1f c2  |......23:A%=....|
00005300  0e c9 32 38 3a 70 69 78  25 3d b9 0d 1f cc 05 cb  |..28:pix%=......|
00005310  0d 1f d6 12 49 25 2b 3d  34 3a fd 49 25 21 2d 34  |....I%+=4:.I%!-4|
00005320  3c 30 0d 1f e0 31 e7 73  6f 75 6e 64 25 3a c8 99  |<0...1.sound%:..|
00005330  73 77 69 25 2c 6f 70 74  5f 25 2c 31 30 b8 47 25  |swi%,opt_%,10.G%|
00005340  3a 8b c8 99 73 77 69 25  2c 6f 70 74 5f 25 2c 39  |:...swi%,opt_%,9|
00005350  b8 47 25 0d 1f ea 14 e7  41 25 3c 3e 73 74 6f 70  |.G%.....A%<>stop|
00005360  62 6f 78 65 73 25 8c 0d  1f f4 43 e7 41 25 73 74  |boxes%....C.A%st|
00005370  6f 70 62 6f 78 65 73 25  3d b9 3a 8b f2 73 74 6f  |opboxes%=.:..sto|
00005380  70 28 32 30 2c 72 6c 24  2b 22 64 69 73 61 62 6c  |p(20,rl$+"disabl|
00005390  65 20 74 68 65 73 65 22  2c 22 73 74 6f 70 20 62  |e these","stop b|
000053a0  6f 78 65 73 20 3f 22 29  3a e1 0d 1f fe 05 cd 0d  |oxes ?"):.......|
000053b0  20 08 06 7f e1 0d 20 12  05 cb 0d 20 1c 18 f2 63  | ..... .... ...c|
000053c0  6c 6f 73 65 77 28 77 5f  73 74 61 74 75 73 25 29  |losew(w_status%)|
000053d0  3a e1 0d 20 26 04 0d 20  30 25 dd f2 6d 70 61 73  |:.. &.. 0%..mpas|
000053e0  73 77 3a e7 6d 69 25 3d  34 3a f2 63 6c 6f 73 65  |sw:.mi%=4:.close|
000053f0  77 28 77 5f 70 61 73 73  77 25 29 0d 20 3a 0c e7  |w(w_passw%). :..|
00005400  6d 69 25 3c 3e 33 e1 0d  20 44 37 ea 54 24 2c 74  |mi%<>3.. D7.T$,t|
00005410  24 3a 54 24 3d a4 73 75  28 24 a4 69 61 28 77 5f  |$:T$=.su($.ia(w_|
00005420  70 61 73 73 77 25 2c 35  29 29 3a c8 99 73 77 69  |passw%,5)):..swi|
00005430  25 2c 73 64 36 33 5f 25  2c 54 24 b8 47 25 0d 20  |%,sd63_%,T$.G%. |
00005440  4e 37 e7 47 25 3d 32 3a  f2 73 65 74 63 74 28 77  |N7.G%=2:.setct(w|
00005450  5f 70 61 73 73 77 25 2c  35 2c a9 24 a4 69 61 28  |_passw%,5,.$.ia(|
00005460  77 5f 70 61 73 73 77 25  2c 35 29 29 3a f2 65 72  |w_passw%,5)):.er|
00005470  72 28 35 31 29 0d 20 58  35 54 24 3d a4 73 75 28  |r(51). X5T$=.su(|
00005480  24 a4 69 61 28 77 5f 70  61 73 73 77 25 2c 31 29  |$.ia(w_passw%,1)|
00005490  29 3a 74 24 3d a4 73 75  28 24 a4 69 61 28 77 5f  |):t$=.su($.ia(w_|
000054a0  70 61 73 73 77 25 2c 32  29 29 0d 20 62 14 e7 54  |passw%,2)). b..T|
000054b0  24 3c 3e 74 24 3a f2 65  72 72 28 34 37 29 0d 20  |$<>t$:.err(47). |
000054c0  6c 3c e7 54 24 3d 22 22  3a f2 73 74 6f 70 28 32  |l<.T$="":.stop(2|
000054d0  37 2c 66 69 24 2b a4 66  69 6c 65 6e 61 6d 65 2c  |7,fi$+.filename,|
000054e0  72 6c 24 2b 22 64 65 6c  65 74 65 20 70 61 73 73  |rl$+"delete pass|
000054f0  77 6f 72 64 20 3f 22 29  3a e1 0d 20 76 17 c8 99  |word ?"):.. v...|
00005500  73 77 69 25 2c 73 65 74  70 61 73 73 5f 25 2c 54  |swi%,setpass_%,T|
00005510  24 0d 20 80 17 f2 63 6c  6f 73 65 77 28 77 5f 70  |$. ...closew(w_p|
00005520  61 73 73 77 25 29 3a e1  0d 20 8a 04 0d 20 94 0c  |assw%):.. ... ..|
00005530  dd f2 6d 66 73 69 7a 65  0d 20 9e 0d ea 54 24 2c  |..mfsize. ...T$,|
00005540  54 25 2c 74 25 0d 20 a8  06 ea 85 0d 20 b2 2b ee  |T%,t%. ..... .+.|
00005550  85 ea 3a f7 85 3a f2 73  65 74 69 28 77 5f 66 73  |..:..:.seti(w_fs|
00005560  69 7a 65 25 2c 31 31 2c  66 5f 63 66 24 29 3a f2  |ize%,11,f_cf$):.|
00005570  65 72 72 28 30 29 0d 20  bc 0a c8 8e 6d 69 25 ca  |err(0). ....mi%.|
00005580  0d 20 c6 07 c9 31 32 0d  20 d0 18 54 24 3d 24 a4  |. ...12. ..T$=$.|
00005590  69 61 28 77 5f 66 73 69  7a 65 25 2c 31 31 29 0d  |ia(w_fsize%,11).|
000055a0  20 da 21 e7 a7 a4 75 28  54 24 29 2c 22 24 53 43  | .!...u(T$),"$SC|
000055b0  52 41 50 3e 22 29 3a f2  65 72 72 28 31 30 32 29  |RAP>"):.err(102)|
000055c0  0d 20 e4 24 e7 54 24 3d  a4 6c 65 61 66 28 54 24  |. .$.T$=.leaf(T$|
000055d0  29 3a 66 5f 63 66 24 3d  54 24 3a f2 65 72 72 28  |):f_cf$=T$:.err(|
000055e0  31 30 31 29 0d 20 ee 38  f2 72 65 6d 6f 76 65 3a  |101). .8.remove:|
000055f0  66 5f 63 66 24 3d 54 24  3a 66 6e 24 3d 54 24 3a  |f_cf$=T$:fn$=T$:|
00005600  54 25 3d 71 25 3a f2 77  63 68 69 28 77 5f 66 73  |T%=q%:.wchi(w_fs|
00005610  69 7a 65 25 29 3a 74 25  3d 32 3a f5 0d 20 f8 0a  |ize%):t%=2:.. ..|
00005620  c8 8e 21 54 25 ca 0d 21  02 0b c9 33 3a 74 25 3d  |..!T%..!...3:t%=|
00005630  30 0d 21 0c 0b c9 34 3a  74 25 3d 31 0d 21 16 05  |0.!...4:t%=1.!..|
00005640  cb 0d 21 20 12 54 25 2b  3d 34 3a fd 54 25 21 2d  |..! .T%+=4:.T%!-|
00005650  34 3c 30 0d 21 2a 09 c8  8e 74 25 ca 0d 21 34 23  |4<0.!*...t%..!4#|
00005660  c9 30 3a f2 73 65 74 63  61 72 64 73 28 bb 24 a4  |.0:.setcards(.$.|
00005670  69 61 28 77 5f 66 73 69  7a 65 25 2c 36 29 29 0d  |ia(w_fsize%,6)).|
00005680  21 3e 23 c9 31 3a f2 73  65 74 62 79 74 65 73 28  |!>#.1:.setbytes(|
00005690  bb 24 a4 69 61 28 77 5f  66 73 69 7a 65 25 2c 37  |.$.ia(w_fsize%,7|
000056a0  29 29 0d 21 48 0f c9 32  3a f2 73 65 74 66 6f 72  |)).!H..2:.setfor|
000056b0  6d 0d 21 52 05 cb 0d 21  5c 15 f2 6e 6f 64 69 61  |m.!R...!\..nodia|
000056c0  6c 3a f2 73 68 6f 77 73  69 7a 65 0d 21 66 32 c9  |l:.showsize.!f2.|
000056d0  36 2c 37 3a f2 75 6e 73  65 6c 61 6c 6c 28 77 5f  |6,7:.unselall(w_|
000056e0  66 73 69 7a 65 25 29 3a  f2 73 65 6c 69 28 77 5f  |fsize%):.seli(w_|
000056f0  66 73 69 7a 65 25 2c 6d  69 25 2d 33 29 0d 21 70  |fsize%,mi%-3).!p|
00005700  35 c9 33 2c 34 3a f2 73  65 74 63 74 28 77 5f 66  |5.3,4:.setct(w_f|
00005710  73 69 7a 65 25 2c 6d 69  25 2b 33 2c a9 24 a4 69  |size%,mi%+3,.$.i|
00005720  61 28 77 5f 66 73 69 7a  65 25 2c 6d 69 25 2b 33  |a(w_fsize%,mi%+3|
00005730  29 29 0d 21 7a 0f c9 31  33 3a f2 6e 6f 64 69 61  |)).!z..13:.nodia|
00005740  6c 0d 21 84 05 cb 0d 21  8e 05 e1 0d 21 98 04 0d  |l.!....!....!...|
00005750  21 a2 1f dd f2 6d 61 62  61 6e 64 3a ea 54 25 3a  |!....maband:.T%:|
00005760  54 25 3d 64 69 61 6c 72  65 61 73 6f 6e 25 0d 21  |T%=dialreason%.!|
00005770  ac 0a c8 8e 6d 69 25 ca  0d 21 b6 0d c9 33 3a f2  |....mi%..!...3:.|
00005780  66 73 69 7a 65 0d 21 c0  2a c9 34 3a f2 6e 6f 64  |fsize.!.*.4:.nod|
00005790  69 61 6c 3a f2 63 6c 6f  73 65 66 69 6c 65 28 a3  |ial:.closefile(.|
000057a0  29 3a e7 54 25 3d 32 f2  71 75 69 74 28 a3 29 0d  |):.T%=2.quit(.).|
000057b0  21 ca 05 cb 0d 21 d4 05  e1 0d 21 de 04 0d 21 e8  |!....!....!...!.|
000057c0  13 dd f2 6d 66 73 70 65  63 3a ea 54 25 2c 74 25  |...mfspec:.T%,t%|
000057d0  0d 21 f2 0a c8 8e 6d 69  25 ca 0d 21 fc 36 c9 36  |.!....mi%..!.6.6|
000057e0  3a 74 25 3d a4 66 73 70  65 63 3a f2 77 63 68 69  |:t%=.fspec:.wchi|
000057f0  28 77 5f 66 73 70 65 63  25 29 3a 54 25 3d 21 71  |(w_fspec%):T%=!q|
00005800  25 3a e7 54 25 3e 3d 30  80 54 25 3c 3e 74 25 8c  |%:.T%>=0.T%<>t%.|
00005810  0d 22 06 0b e7 54 25 3c  3e 30 8c 0d 22 10 1a c8  |."...T%<>0.."...|
00005820  99 73 77 69 25 2c 73 75  62 62 79 74 65 73 5f 25  |.swi%,subbytes_%|
00005830  2c 54 25 2d 31 0d 22 1a  0b f2 72 65 73 69 7a 65  |,T%-1."...resize|
00005840  0d 22 24 05 cc 0d 22 2e  38 f2 73 74 6f 70 28 31  |."$...".8.stop(1|
00005850  30 31 2c 72 6c 24 2b 22  6d 61 6b 65 20 74 68 69  |01,rl$+"make thi|
00005860  73 20 66 69 6c 65 22 2c  22 42 42 43 20 63 6f 6d  |s file","BBC com|
00005870  70 61 74 61 62 6c 65 20  3f 22 29 3a e1 0d 22 38  |patable ?"):.."8|
00005880  05 cd 0d 22 42 05 cd 0d  22 4c 0b f2 6e 6f 64 69  |..."B..."L..nodi|
00005890  61 6c 0d 22 56 0e c9 37  3a f2 6e 6f 64 69 61 6c  |al."V..7:.nodial|
000058a0  0d 22 60 07 cb 3a e1 0d  22 6a 04 0d 22 74 16 dd  |."`..:.."j.."t..|
000058b0  f2 6d 63 73 69 7a 65 3a  ea 77 25 2c 68 25 2c 49  |.mcsize:.w%,h%,I|
000058c0  25 0d 22 7e 0a c8 8e 6d  69 25 ca 0d 22 88 0f c9  |%."~...mi%.."...|
000058d0  36 35 3a f2 6e 6f 64 69  61 6c 0d 22 92 07 c9 36  |65:.nodial."...6|
000058e0  34 0d 22 9c 19 77 25 3d  bb 24 a4 69 61 28 77 5f  |4."..w%=.$.ia(w_|
000058f0  63 73 69 7a 65 25 2c 36  31 29 0d 22 a6 19 68 25  |csize%,61)."..h%|
00005900  3d bb 24 a4 69 61 28 77  5f 63 73 69 7a 65 25 2c  |=.$.ia(w_csize%,|
00005910  35 37 29 0d 22 b0 0b e3  49 25 3d 31 b8 32 0d 22  |57)."...I%=1.2."|
00005920  ba 15 c8 99 73 77 69 25  2c 77 69 64 74 68 5f 25  |....swi%,width_%|
00005930  2c 77 25 0d 22 c4 16 c8  99 73 77 69 25 2c 68 65  |,w%."....swi%,he|
00005940  69 67 68 74 5f 25 2c 68  25 0d 22 ce 05 ed 0d 22  |ight_%,h%."...."|
00005950  d8 2d f2 66 65 78 74 3a  f2 66 6f 72 63 65 63 61  |.-.fext:.forceca|
00005960  72 64 3a f2 6d 61 74 63  68 63 74 3a f2 72 65 73  |rd:.matchct:.res|
00005970  69 7a 65 3a f2 6e 6f 64  69 61 6c 0d 22 e2 21 e7  |ize:.nodial.".!.|
00005980  a4 76 5f 28 35 29 3c 3e  68 25 84 a4 76 5f 28 36  |.v_(5)<>h%..v_(6|
00005990  29 3c 3e 77 25 3a f2 62  75 7a 7a 32 0d 22 ec 07  |)<>w%:.buzz2."..|
000059a0  cb 3a e1 0d 22 f6 04 0d  23 00 0f dd f2 73 74 61  |.:.."...#....sta|
000059b0  72 74 64 72 61 67 0d 23  0a 22 64 72 61 67 72 65  |rtdrag.#."dragre|
000059c0  61 73 6f 6e 25 3d 2d 31  3a 64 72 61 67 62 75 74  |ason%=-1:dragbut|
000059d0  74 6f 6e 25 3d 6d 62 25  0d 23 14 19 f2 77 74 6f  |ton%=mb%.#...wto|
000059e0  66 28 6d 68 25 29 3a e7  66 69 6c 65 25 3e 3d 30  |f(mh%):.file%>=0|
000059f0  8c 0d 23 1e 0c c8 8e 77  69 6e 64 25 ca 0d 23 28  |..#....wind%..#(|
00005a00  06 c9 30 0d 23 32 0c e7  6d 62 25 3d 31 36 8c 0d  |..0.#2..mb%=16..|
00005a10  23 3c 1b 64 72 61 67 72  65 61 73 6f 6e 25 3d 34  |#<.dragreason%=4|
00005a20  3a f2 64 72 61 67 63 61  72 64 0d 23 46 05 cc 0d  |:.dragcard.#F...|
00005a30  23 50 1e f2 63 75 72 6d  6f 75 73 65 3a c8 99 73  |#P..curmouse:..s|
00005a40  77 69 25 2c 73 64 37 30  5f 25 b8 47 25 0d 23 5a  |wi%,sd70_%.G%.#Z|
00005a50  11 6d 65 6e 75 66 69 65  6c 64 25 3d 47 25 0d 23  |.menufield%=G%.#|
00005a60  64 3c e7 47 25 3e 30 64  72 61 67 72 65 61 73 6f  |d<.G%>0dragreaso|
00005a70  6e 25 3d 33 3a f2 64 72  61 67 66 69 65 6c 64 3a  |n%=3:.dragfield:|
00005a80  8b 64 72 61 67 72 65 61  73 6f 6e 25 3d 31 30 31  |.dragreason%=101|
00005a90  3a f2 64 72 61 67 74 65  78 74 0d 23 6e 05 cd 0d  |:.dragtext.#n...|
00005aa0  23 78 06 c9 31 0d 23 82  0a c8 8e 6d 69 25 ca 0d  |#x..1.#....mi%..|
00005ab0  23 8c 27 c9 36 3a 64 72  61 67 72 65 61 73 6f 6e  |#.'.6:dragreason|
00005ac0  25 3d 31 3a f2 64 72 61  67 69 63 6f 6e 28 6d 68  |%=1:.dragicon(mh|
00005ad0  25 2c 6d 69 25 29 0d 23  96 05 cb 0d 23 a0 06 c9  |%,mi%).#....#...|
00005ae0  32 0d 23 aa 30 6d 65 6e  75 66 69 65 6c 64 25 3d  |2.#.0menufield%=|
00005af0  6d 79 25 3a f2 79 63 6f  6e 76 28 6d 65 6e 75 66  |my%:.yconv(menuf|
00005b00  69 65 6c 64 25 2c a4 76  5f 28 37 29 2c 6d 68 25  |ield%,.v_(7),mh%|
00005b10  29 0d 23 b4 1d 64 72 61  67 72 65 61 73 6f 6e 25  |).#..dragreason%|
00005b20  3d 33 3a f2 64 72 61 67  66 69 65 6c 64 31 0d 23  |=3:.dragfield1.#|
00005b30  be 05 cb 0d 23 c8 05 cc  0d 23 d2 0a c8 8e 6d 68  |....#....#....mh|
00005b40  25 ca 0d 23 dc 36 c9 77  5f 73 61 76 65 25 3a e7  |%..#.6.w_save%:.|
00005b50  6d 69 25 3d 33 3a 64 72  61 67 72 65 61 73 6f 6e  |mi%=3:dragreason|
00005b60  25 3d 35 3a f2 64 72 61  67 69 63 6f 6e 28 77 5f  |%=5:.dragicon(w_|
00005b70  73 61 76 65 25 2c 33 29  0d 23 e6 38 c9 77 5f 66  |save%,3).#.8.w_f|
00005b80  73 69 7a 65 25 3a e7 6d  69 25 3d 31 30 3a 64 72  |size%:.mi%=10:dr|
00005b90  61 67 72 65 61 73 6f 6e  25 3d 31 30 30 3a f2 64  |agreason%=100:.d|
00005ba0  72 61 67 69 63 6f 6e 28  6d 68 25 2c 6d 69 25 29  |ragicon(mh%,mi%)|
00005bb0  0d 23 f0 05 cb 0d 23 fa  05 cd 0d 24 04 05 e1 0d  |.#....#....$....|
00005bc0  24 0e 04 0d 24 18 0d dd  f2 65 6e 64 64 72 61 67  |$...$....enddrag|
00005bd0  0d 24 22 10 f2 72 65 61  64 70 6f 69 6e 74 65 72  |.$"..readpointer|
00005be0  0d 24 2c 0d e7 6d 68 25  3c 3e 2d 31 8c 0d 24 36  |.$,..mh%<>-1..$6|
00005bf0  07 ea 54 24 0d 24 40 12  c8 8e 64 72 61 67 72 65  |..T$.$@...dragre|
00005c00  61 73 6f 6e 25 ca 0d 24  4a 0e c9 31 3a f2 63 61  |ason%..$J..1:.ca|
00005c10  72 64 64 72 0d 24 54 0f  c9 33 3a f2 66 69 65 6c  |rddr.$T..3:.fiel|
00005c20  64 64 72 0d 24 5e 0f c9  34 3a f2 63 61 72 64 64  |ddr.$^..4:.cardd|
00005c30  72 31 0d 24 68 41 c9 35  3a f2 73 61 76 65 72 65  |r1.$hA.5:.savere|
00005c40  71 28 a4 6c 65 61 66 28  24 a4 69 61 28 77 5f 73  |q(.leaf($.ia(w_s|
00005c50  61 76 65 25 2c 32 29 29  2c 73 61 76 65 74 25 2c  |ave%,2)),savet%,|
00005c60  73 61 76 65 73 25 2c 73  61 76 65 72 65 61 73 6f  |saves%,savereaso|
00005c70  6e 25 29 0d 24 72 39 c9  31 30 30 3a f2 73 61 76  |n%).$r9.100:.sav|
00005c80  65 72 65 71 28 a4 6c 65  61 66 28 24 a4 69 61 28  |ereq(.leaf($.ia(|
00005c90  77 5f 66 73 69 7a 65 25  2c 31 31 29 29 2c 26 44  |w_fsize%,11)),&D|
00005ca0  45 37 2c a4 65 78 74 2c  31 30 30 29 0d 24 7c 10  |E7,.ext,100).$|.|
00005cb0  c9 31 30 31 3a f2 74 65  78 74 64 72 0d 24 86 05  |.101:.textdr.$..|
00005cc0  cb 0d 24 90 05 cc 0d 24  9a 1b e7 64 72 61 67 72  |..$....$...dragr|
00005cd0  65 61 73 6f 6e 25 3d 34  3a f2 63 61 72 64 64 72  |eason%=4:.carddr|
00005ce0  31 0d 24 a4 05 cd 0d 24  ae 1f 64 72 61 67 72 65  |1.$....$..dragre|
00005cf0  61 73 6f 6e 25 3d 2d 31  3a 6d 65 6e 75 66 69 6c  |ason%=-1:menufil|
00005d00  65 25 3d 2d 31 0d 24 b8  05 e1 0d 24 c2 04 0d 24  |e%=-1.$....$...$|
00005d10  cc 2c dd f2 75 6e 73 65  6c 69 28 68 25 2c 69 25  |.,..unseli(h%,i%|
00005d20  29 3a f2 69 73 65 74 28  68 25 2c 69 25 2c 26 32  |):.iset(h%,i%,&2|
00005d30  30 30 30 30 30 2c 30 29  3a e1 0d 24 d6 04 0d 24  |00000,0):..$...$|
00005d40  e0 30 dd f2 73 65 6c 69  28 68 25 2c 69 25 29 3a  |.0..seli(h%,i%):|
00005d50  f2 69 73 65 74 28 68 25  2c 69 25 2c 26 32 30 30  |.iset(h%,i%,&200|
00005d60  30 30 30 2c 26 32 30 30  30 30 30 29 3a e1 0d 24  |000,&200000):..$|
00005d70  ea 32 dd f2 73 68 61 64  65 69 28 68 25 2c 69 25  |.2..shadei(h%,i%|
00005d80  29 3a f2 69 73 65 74 28  68 25 2c 69 25 2c 26 34  |):.iset(h%,i%,&4|
00005d90  30 30 30 30 30 2c 26 34  30 30 30 30 30 29 3a e1  |00000,&400000):.|
00005da0  0d 24 f4 04 0d 24 fe 12  dd f2 75 6e 73 65 6c 61  |.$...$....unsela|
00005db0  6c 6c 28 68 25 29 0d 25  08 14 ea 49 25 2c 69 25  |ll(h%).%...I%,i%|
00005dc0  3a f2 77 63 68 69 28 68  25 29 0d 25 12 28 49 25  |:.wchi(h%).%.(I%|
00005dd0  3d 71 25 3a f5 3a 69 25  3d 21 49 25 3a e7 69 25  |=q%:.:i%=!I%:.i%|
00005de0  3e 3d 30 3a f2 75 6e 73  65 6c 69 28 68 25 2c 69  |>=0:.unseli(h%,i|
00005df0  25 29 0d 25 1c 11 49 25  2b 3d 34 3a fd 69 25 3c  |%).%..I%+=4:.i%<|
00005e00  30 3a e1 0d 25 26 04 0d  25 30 37 dd f2 77 63 68  |0:..%&..%07..wch|
00005e10  69 28 68 25 29 3a c8 99  22 57 69 6d 70 5f 57 68  |i(h%):.."Wimp_Wh|
00005e20  69 63 68 49 63 6f 6e 22  2c 68 25 2c 71 25 2c 26  |ichIcon",h%,q%,&|
00005e30  32 30 30 30 30 30 2c 26  32 30 30 30 30 30 0d 25  |200000,&200000.%|
00005e40  3a 05 e1 0d 25 44 04 0d  25 4e 0a dd f2 6d 65 6e  |:...%D..%N...men|
00005e50  75 0d 25 58 19 f2 77 74  6f 66 28 6d 68 25 29 3a  |u.%X..wtof(mh%):|
00005e60  e7 66 69 6c 65 25 3e 3d  30 8c 0d 25 62 0c c8 8e  |.file%>=0..%b...|
00005e70  77 69 6e 64 25 ca 0d 25  6c 12 c9 30 2c 31 3a f2  |wind%..%l..0,1:.|
00005e80  63 61 72 64 6d 65 6e 75  0d 25 76 19 c9 32 3a f2  |cardmenu.%v..2:.|
00005e90  70 6f 70 28 6d 5f 66 69  65 6c 64 73 25 2c 2d 31  |pop(m_fields%,-1|
00005ea0  29 0d 25 80 18 c9 33 3a  f2 70 6f 70 28 6d 5f 69  |).%...3:.pop(m_i|
00005eb0  6e 64 65 78 25 2c 2d 31  29 0d 25 8a 05 cb 0d 25  |ndex%,-1).%....%|
00005ec0  94 05 cc 0d 25 9e 0a c8  8e 6d 68 25 ca 0d 25 a8  |....%....mh%..%.|
00005ed0  24 c9 2d 32 3a 6d 79 25  3d 36 34 2b 37 2a 34 34  |$.-2:my%=64+7*44|
00005ee0  3a f2 70 6f 70 28 6d 5f  6d 61 69 6e 25 2c 2d 31  |:.pop(m_main%,-1|
00005ef0  29 0d 25 b2 18 c9 77 5f  73 74 61 74 75 73 25 3a  |).%...w_status%:|
00005f00  f2 73 74 61 74 6d 65 6e  75 0d 25 bc 05 cb 0d 25  |.statmenu.%....%|
00005f10  c6 05 cd 0d 25 d0 05 e1  0d 25 da 04 0d 25 e4 21  |....%....%...%.!|
00005f20  dd f2 63 61 72 64 6d 65  6e 75 3a f2 70 6f 70 28  |..cardmenu:.pop(|
00005f30  6d 5f 63 61 72 64 25 2c  2d 31 29 3a e1 0d 25 ee  |m_card%,-1):..%.|
00005f40  04 0d 25 f8 31 dd f2 73  74 61 74 6d 65 6e 75 3a  |..%.1..statmenu:|
00005f50  e7 a4 76 5f 28 31 29 3d  31 80 6d 69 25 3d 31 35  |..v_(1)=1.mi%=15|
00005f60  f2 70 6f 70 28 6d 5f 73  74 61 74 75 73 25 2c 2d  |.pop(m_status%,-|
00005f70  31 29 0d 26 02 05 e1 0d  26 0c 04 0d 26 16 1a dd  |1).&....&...&...|
00005f80  a4 70 61 72 28 74 24 2c  73 24 2c f8 20 69 25 29  |.par(t$,s$,. i%)|
00005f90  3a ea 69 31 25 0d 26 20  1e 69 31 25 3d 69 25 2b  |:.i1%.& .i1%=i%+|
00005fa0  31 3a 69 25 3d a7 74 24  2b 73 24 2c 73 24 2c 69  |1:i%=.t$+s$,s$,i|
00005fb0  31 25 29 0d 26 2a 14 3d  c1 74 24 2c 69 31 25 2c  |1%).&*.=.t$,i1%,|
00005fc0  69 25 2d 69 31 25 29 0d  26 34 04 0d 26 3e 13 dd  |i%-i1%).&4..&>..|
00005fd0  a4 63 72 6d 65 6e 75 28  6d 65 6e 75 24 29 0d 26  |.crmenu(menu$).&|
00005fe0  48 2e e7 6d 65 6e 75 66  72 65 65 25 2b 32 38 3e  |H..menufree%+28>|
00005ff0  6d 65 6e 75 65 6e 64 25  85 39 39 2c 22 4d 65 6e  |menuend%.99,"Men|
00006000  75 20 61 72 65 61 20 66  75 6c 6c 22 0d 26 52 08  |u area full".&R.|
00006010  ea 20 6d 25 0d 26 5c 16  6d 65 6e 75 70 74 72 25  |. m%.&\.menuptr%|
00006020  3d 6d 65 6e 75 66 72 65  65 25 0d 26 66 08 69 25  |=menufree%.&f.i%|
00006030  3d 30 0d 26 70 43 e7 20  c0 6d 65 6e 75 24 2c 31  |=0.&pC. .menu$,1|
00006040  29 3d 22 23 22 69 25 3d  31 3a 6d 65 6e 75 74 69  |)="#"i%=1:menuti|
00006050  74 6c 65 24 3d a4 70 61  72 28 6d 65 6e 75 24 2c  |tle$=.par(menu$,|
00006060  22 2c 22 2c 69 25 29 8b  6d 65 6e 75 74 69 74 6c  |",",i%).menutitl|
00006070  65 24 3d 22 22 0d 26 7a  18 24 6d 65 6e 75 70 74  |e$="".&z.$menupt|
00006080  72 25 3d 6d 65 6e 75 74  69 74 6c 65 24 0d 26 84  |r%=menutitle$.&.|
00006090  3b 6d 65 6e 75 70 74 72  25 3f 31 32 3d 37 3a 6d  |;menuptr%?12=7:m|
000060a0  65 6e 75 70 74 72 25 3f  31 33 3d 32 3a 6d 65 6e  |enuptr%?13=2:men|
000060b0  75 70 74 72 25 3f 31 34  3d 37 3a 6d 65 6e 75 70  |uptr%?14=7:menup|
000060c0  74 72 25 3f 31 35 3d 30  0d 26 8e 33 6d 65 6e 75  |tr%?15=0.&.3menu|
000060d0  70 74 72 25 21 31 36 3d  31 39 36 2d 32 34 3a 6d  |ptr%!16=196-24:m|
000060e0  65 6e 75 70 74 72 25 21  32 30 3d 34 34 3a 6d 65  |enuptr%!20=44:me|
000060f0  6e 75 70 74 72 25 21 32  34 3d 30 0d 26 98 22 6d  |nuptr%!24=0.&."m|
00006100  65 6e 75 70 74 72 25 2b  3d 32 38 3a 6d 61 78 78  |enuptr%+=28:maxx|
00006110  25 3d a9 6d 65 6e 75 74  69 74 6c 65 24 0d 26 a2  |%=.menutitle$.&.|
00006120  1d f5 69 74 65 6d 24 3d  a4 70 61 72 28 6d 65 6e  |..item$=.par(men|
00006130  75 24 2c 22 2c 22 2c 69  25 29 0d 26 ac 14 f2 6d  |u$,",",i%).&...m|
00006140  65 6e 75 69 74 65 6d 28  69 74 65 6d 24 29 0d 26  |enuitem(item$).&|
00006150  b6 0e fd 20 69 74 65 6d  24 3d 22 22 0d 26 c0 24  |... item$="".&.$|
00006160  6d 25 3d 6d 65 6e 75 66  72 65 65 25 3a 6d 25 21  |m%=menufree%:m%!|
00006170  31 36 3d 28 6d 61 78 78  25 2a 38 2b 36 29 2a 32  |16=(maxx%*8+6)*2|
00006180  0d 26 ca 16 6d 65 6e 75  66 72 65 65 25 3d 6d 65  |.&..menufree%=me|
00006190  6e 75 70 74 72 25 0d 26  d4 07 3d 6d 25 0d 26 de  |nuptr%.&..=m%.&.|
000061a0  04 0d 26 e8 15 dd f2 6d  65 6e 75 69 74 65 6d 28  |..&....menuitem(|
000061b0  74 65 78 74 24 29 0d 26  f2 2e e7 74 65 78 74 24  |text$).&...text$|
000061c0  3d 22 22 6d 65 6e 75 70  74 72 25 21 2d 32 34 3d  |=""menuptr%!-24=|
000061d0  28 6d 65 6e 75 70 74 72  25 21 2d 32 34 29 84 26  |(menuptr%!-24).&|
000061e0  38 30 3a e1 0d 26 fc 2e  e7 6d 65 6e 75 70 74 72  |80:..&...menuptr|
000061f0  25 2b 32 34 3e 6d 65 6e  75 65 6e 64 25 8c 85 39  |%+24>menuend%..9|
00006200  39 2c 22 4d 65 6e 75 20  61 72 65 61 20 66 75 6c  |9,"Menu area ful|
00006210  6c 22 0d 27 06 0c ea 69  25 2c 66 6c 67 25 0d 27  |l".'...i%,flg%.'|
00006220  10 0c 66 6c 67 25 3d 26  30 30 0d 27 1a 12 69 25  |..flg%=&00.'..i%|
00006230  3d a7 74 65 78 74 24 2c  22 3e 22 29 0d 27 24 3c  |=.text$,">").'$<|
00006240  e7 69 25 3e 30 73 75 62  70 74 72 25 3d a0 c1 74  |.i%>0subptr%=..t|
00006250  65 78 74 24 2c 69 25 2b  31 29 3a 74 65 78 74 24  |ext$,i%+1):text$|
00006260  3d c0 74 65 78 74 24 2c  69 25 2d 31 29 8b 73 75  |=.text$,i%-1).su|
00006270  62 70 74 72 25 3d 2d 31  0d 27 2e 12 69 25 3d a7  |bptr%=-1.'..i%=.|
00006280  74 65 78 74 24 2c 22 7d  22 29 0d 27 38 3b e7 69  |text$,"}").'8;.i|
00006290  25 3e 30 73 75 62 70 74  72 25 3d a0 c1 74 65 78  |%>0subptr%=..tex|
000062a0  74 24 2c 69 25 2b 31 29  3a 74 65 78 74 24 3d c0  |t$,i%+1):text$=.|
000062b0  74 65 78 74 24 2c 69 25  2d 31 29 3a 66 6c 67 25  |text$,i%-1):flg%|
000062c0  2b 3d 26 30 38 0d 27 42  29 e7 c2 74 65 78 74 24  |+=&08.'B)..text$|
000062d0  2c 31 29 3d 22 23 22 74  65 78 74 24 3d c0 74 65  |,1)="#"text$=.te|
000062e0  78 74 24 29 3a 66 6c 67  25 2b 3d 26 30 32 0d 27  |xt$):flg%+=&02.'|
000062f0  4c 3b 6d 65 6e 75 70 74  72 25 21 30 3d 66 6c 67  |L;menuptr%!0=flg|
00006300  25 3a 6d 65 6e 75 70 74  72 25 21 34 3d 73 75 62  |%:menuptr%!4=sub|
00006310  70 74 72 25 3a 6d 65 6e  75 70 74 72 25 21 38 3d  |ptr%:menuptr%!8=|
00006320  26 30 37 30 30 30 30 32  31 0d 27 56 13 e7 c0 74  |&07000021.'V...t|
00006330  65 78 74 24 2c 31 29 3d  22 24 22 8c 0d 27 60 32  |ext$,1)="$"..'`2|
00006340  21 6d 65 6e 75 70 74 72  25 2b 3d 26 30 34 3a 6d  |!menuptr%+=&04:m|
00006350  65 6e 75 70 74 72 25 21  38 2b 3d 26 31 30 30 3a  |enuptr%!8+=&100:|
00006360  69 25 3d a7 74 65 78 74  24 2c 22 28 22 29 0d 27  |i%=.text$,"(").'|
00006370  6a 33 e7 69 25 3e 30 8c  4c 25 3d bb c1 74 65 78  |j3.i%>0.L%=..tex|
00006380  74 24 2c 69 25 2b 31 29  3a 74 65 78 74 24 3d c0  |t$,i%+1):text$=.|
00006390  74 65 78 74 24 2c 69 25  2d 31 29 8b 4c 25 3d 31  |text$,i%-1).L%=1|
000063a0  32 0d 27 74 38 6d 65 6e  75 70 74 72 25 21 31 32  |2.'t8menuptr%!12|
000063b0  3d a0 c1 74 65 78 74 24  2c 32 29 3a 6d 65 6e 75  |=..text$,2):menu|
000063c0  70 74 72 25 21 31 36 3d  2d 31 3a 6d 65 6e 75 70  |ptr%!16=-1:menup|
000063d0  74 72 25 21 32 30 3d 4c  25 0d 27 7e 12 74 65 78  |tr%!20=L%.'~.tex|
000063e0  74 24 3d c4 4c 25 2c 22  20 22 29 0d 27 88 05 cc  |t$=.L%," ").'...|
000063f0  0d 27 92 10 e7 a9 74 65  78 74 24 3c 3d 31 32 8c  |.'....text$<=12.|
00006400  0d 27 9c 18 24 28 6d 65  6e 75 70 74 72 25 2b 31  |.'..$(menuptr%+1|
00006410  32 29 3d 74 65 78 74 24  0d 27 a6 05 cc 0d 27 b0  |2)=text$.'....'.|
00006420  25 49 25 3d a4 77 6f 72  6b 73 70 61 63 65 28 a9  |%I%=.workspace(.|
00006430  74 65 78 74 24 2b 31 29  3a 24 49 25 3d 74 65 78  |text$+1):$I%=tex|
00006440  74 24 0d 27 ba 36 6d 65  6e 75 70 74 72 25 21 31  |t$.'.6menuptr%!1|
00006450  32 3d 49 25 3a 6d 65 6e  75 70 74 72 25 21 31 36  |2=I%:menuptr%!16|
00006460  3d 2d 31 3a 6d 65 6e 75  70 74 72 25 21 32 30 3d  |=-1:menuptr%!20=|
00006470  a9 74 65 78 74 24 2b 31  0d 27 c4 20 6d 65 6e 75  |.text$+1.'. menu|
00006480  70 74 72 25 21 38 3d 6d  65 6e 75 70 74 72 25 21  |ptr%!8=menuptr%!|
00006490  38 20 84 20 26 31 30 30  0d 27 ce 05 cd 0d 27 d8  |8 . &100.'....'.|
000064a0  1d e7 a9 74 65 78 74 24  3e 6d 61 78 78 25 6d 61  |...text$>maxx%ma|
000064b0  78 78 25 3d a9 74 65 78  74 24 0d 27 e2 05 cd 0d  |xx%=.text$.'....|
000064c0  27 ec 10 6d 65 6e 75 70  74 72 25 2b 3d 32 34 0d  |'..menuptr%+=24.|
000064d0  27 f6 05 e1 0d 28 00 04  0d 28 0a 13 dd a4 77 6f  |'....(...(....wo|
000064e0  72 6b 73 70 61 63 65 28  4c 25 29 0d 28 14 32 e7  |rkspace(L%).(.2.|
000064f0  20 63 75 72 62 75 66 25  2b 4c 25 3e 65 6e 64 62  | curbuf%+L%>endb|
00006500  75 66 25 85 39 39 2c 22  4e 6f 20 6d 6f 72 65 20  |uf%.99,"No more |
00006510  62 75 66 66 65 72 20 73  70 61 63 65 22 0d 28 1e  |buffer space".(.|
00006520  1b 63 75 72 62 75 66 25  2b 3d 4c 25 3a 3d 63 75  |.curbuf%+=L%:=cu|
00006530  72 62 75 66 25 2d 4c 25  0d 28 28 04 0d 28 32 17  |rbuf%-L%.((..(2.|
00006540  dd f2 70 72 65 70 28 6d  65 6e 75 25 2c 74 72 65  |..prep(menu%,tre|
00006550  65 25 29 0d 28 3c 1a ea  49 25 2c 54 24 3a f2 63  |e%).(<..I%,T$:.c|
00006560  6c 65 61 72 74 73 28 6d  65 6e 75 25 29 0d 28 46  |learts(menu%).(F|
00006570  0c c8 8e 6d 65 6e 75 25  ca 0d 28 50 15 c9 6d 5f  |...menu%..(P..m_|
00006580  6d 61 69 6e 25 3a f2 6d  70 5f 6d 61 69 6e 0d 28  |main%:.mp_main.(|
00006590  5a 15 c9 6d 5f 63 61 72  64 25 3a f2 6d 70 5f 63  |Z..m_card%:.mp_c|
000065a0  61 72 64 0d 28 64 17 c9  6d 5f 63 61 72 64 31 25  |ard.(d..m_card1%|
000065b0  3a f2 6d 70 5f 63 61 72  64 31 0d 28 6e 15 c9 6d  |:.mp_card1.(n..m|
000065c0  5f 66 69 6c 65 25 3a f2  6d 70 5f 66 69 6c 65 0d  |_file%:.mp_file.|
000065d0  28 78 15 c9 6d 5f 77 69  6e 64 25 3a f2 6d 70 5f  |(x..m_wind%:.mp_|
000065e0  77 69 6e 64 0d 28 82 19  c9 6d 5f 73 74 61 74 75  |wind.(...m_statu|
000065f0  73 25 3a f2 6d 70 5f 73  74 61 74 75 73 0d 28 8c  |s%:.mp_status.(.|
00006600  17 c9 6d 5f 69 6e 64 65  78 25 3a f2 6d 70 5f 69  |..m_index%:.mp_i|
00006610  6e 64 65 78 0d 28 96 19  c9 6d 5f 66 69 65 6c 64  |ndex.(...m_field|
00006620  73 25 3a f2 6d 70 5f 66  69 65 6c 64 73 0d 28 a0  |s%:.mp_fields.(.|
00006630  05 cb 0d 28 aa 05 e1 0d  28 b4 04 0d 28 be 0e dd  |...(....(...(...|
00006640  f2 6d 70 5f 69 6e 64 65  78 0d 28 c8 16 6d 65 6e  |.mp_index.(..men|
00006650  75 69 6e 64 65 78 25 3d  a4 6d 6f 75 73 65 69 0d  |uindex%=.mousei.|
00006660  28 d2 31 e7 6d 65 6e 75  69 6e 64 65 78 25 3c 3d  |(.1.menuindex%<=|
00006670  30 f2 73 68 61 64 65 28  6d 65 6e 75 25 2c 31 29  |0.shade(menu%,1)|
00006680  3a f2 73 68 61 64 65 28  6d 65 6e 75 25 2c 32 29  |:.shade(menu%,2)|
00006690  0d 28 dc 05 e1 0d 28 e6  04 0d 28 f0 0d dd f2 6d  |.(....(...(....m|
000066a0  70 5f 63 61 72 64 0d 28  fa 16 54 25 3d 6d 65 6e  |p_card.(..T%=men|
000066b0  75 25 2b 32 38 2b 30 2a  32 34 2b 34 0d 29 04 34  |u%+28+0*24+4.).4|
000066c0  e7 a4 66 6c 67 28 66 5f  70 61 6e 65 25 29 3a f2  |..flg(f_pane%):.|
000066d0  74 69 63 6b 28 6d 65 6e  75 25 2c 30 29 3a 21 54  |tick(menu%,0):!T|
000066e0  25 3d 2d 31 3a 8b 3a 21  54 25 3d 77 25 28 31 29  |%=-1:.:!T%=w%(1)|
000066f0  0d 29 0e 2d f2 70 72 65  70 28 6d 5f 66 69 6c 65  |.).-.prep(m_file|
00006700  25 2c 74 72 65 65 25 29  3a f2 70 72 65 70 28 6d  |%,tree%):.prep(m|
00006710  5f 77 69 6e 64 25 2c 74  72 65 65 25 29 0d 29 18  |_wind%,tree%).).|
00006720  22 f2 70 72 65 70 28 6d  5f 63 61 72 64 31 25 2c  |".prep(m_card1%,|
00006730  74 72 65 65 25 29 3a f2  6d 61 74 63 68 63 74 0d  |tree%):.matchct.|
00006740  29 22 05 e1 0d 29 2c 04  0d 29 36 1c dd f2 6d 70  |)"...),..)6...mp|
00006750  5f 66 69 65 6c 64 73 3a  e7 a4 76 5f 28 31 29 3c  |_fields:..v_(1)<|
00006760  3e 31 3a e1 0d 29 40 16  c8 99 73 77 69 25 2c 73  |>1:..)@...swi%,s|
00006770  64 36 34 5f 25 2c 31 b8  47 25 0d 29 4a 2d f2 73  |d64_%,1.G%.)J-.s|
00006780  61 76 65 73 65 74 28 66  5f 66 6c 24 2c 26 46 46  |aveset(f_fl$,&FF|
00006790  46 2c 33 2c a4 76 5f 28  37 29 2a 47 25 2b a4 76  |F,3,.v_(7)*G%+.v|
000067a0  5f 28 37 29 29 3a e1 0d  29 54 04 0d 29 5e 0e dd  |_(7)):..)T..)^..|
000067b0  f2 6d 70 5f 63 61 72 64  31 0d 29 68 12 24 74 5f  |.mp_card1.)h.$t_|
000067c0  63 6f 70 69 65 73 25 3d  22 31 22 0d 29 72 22 f2  |copies%="1".)r".|
000067d0  73 61 76 65 73 65 74 28  66 5f 63 64 24 2c 26 46  |saveset(f_cd$,&F|
000067e0  46 46 2c 31 2c a4 77 64  2a a4 68 74 29 0d 29 7c  |FF,1,.wd*.ht).)||
000067f0  05 e1 0d 29 86 04 0d 29  90 0d dd f2 6d 70 5f 66  |...)...)....mp_f|
00006800  69 6c 65 0d 29 9a 2c e7  a4 76 5f 28 37 29 3d 30  |ile.).,..v_(7)=0|
00006810  f2 73 68 61 64 65 28 6d  65 6e 75 25 2c 30 29 3a  |.shade(menu%,0):|
00006820  f2 73 68 61 64 65 28 6d  65 6e 75 25 2c 31 29 0d  |.shade(menu%,1).|
00006830  29 a4 29 e7 66 6e 24 3d  75 6e 74 24 84 66 73 69  |).).fn$=unt$.fsi|
00006840  7a 65 25 28 30 29 3d 30  3a f2 73 68 61 64 65 28  |ze%(0)=0:.shade(|
00006850  6d 65 6e 75 25 2c 31 29  0d 29 ae 05 e1 0d 29 b8  |menu%,1).)....).|
00006860  04 0d 29 c2 0d dd f2 6d  70 5f 77 69 6e 64 0d 29  |..)....mp_wind.)|
00006870  cc 1a e7 77 25 28 32 29  3e 30 f2 74 69 63 6b 28  |...w%(2)>0.tick(|
00006880  6d 65 6e 75 25 2c 30 29  0d 29 d6 1a e7 77 25 28  |menu%,0).)...w%(|
00006890  33 29 3e 30 f2 74 69 63  6b 28 6d 65 6e 75 25 2c  |3)>0.tick(menu%,|
000068a0  31 29 0d 29 e0 05 e1 0d  29 ea 04 0d 29 f4 0d dd  |1).)....)...)...|
000068b0  f2 6d 70 5f 6d 61 69 6e  0d 29 fe 3e e7 a4 76 5f  |.mp_main.).>..v_|
000068c0  28 31 29 3c 3e 30 80 28  66 6e 24 3d 75 6e 74 24  |(1)<>0.(fn$=unt$|
000068d0  84 a4 76 5f 28 37 29 3d  30 84 66 73 69 7a 65 25  |..v_(7)=0.fsize%|
000068e0  28 30 29 3d 30 29 3a f2  73 68 61 64 65 28 6d 65  |(0)=0):.shade(me|
000068f0  6e 75 25 2c 31 29 0d 2a  08 4c e7 a4 76 5f 28 31  |nu%,1).*.L..v_(1|
00006900  29 3e 30 3a f2 73 68 61  64 65 28 6d 65 6e 75 25  |)>0:.shade(menu%|
00006910  2c 32 29 3a f2 73 68 61  64 65 28 6d 65 6e 75 25  |,2):.shade(menu%|
00006920  2c 33 29 3a f2 74 69 63  6b 28 6d 65 6e 75 25 2c  |,3):.tick(menu%,|
00006930  33 29 3a f2 73 68 61 64  65 28 6d 65 6e 75 25 2c  |3):.shade(menu%,|
00006940  35 29 0d 2a 12 05 e1 0d  2a 1c 04 0d 2a 26 0f dd  |5).*....*...*&..|
00006950  f2 6d 70 5f 73 74 61 74  75 73 0d 2a 30 14 24 6d  |.mp_status.*0.$m|
00006960  65 6e 75 25 3d a4 66 69  6c 65 6e 61 6d 65 0d 2a  |enu%=.filename.*|
00006970  3a 21 e7 ac a4 66 6c 67  28 66 5f 37 62 69 74 25  |:!...flg(f_7bit%|
00006980  29 f2 74 69 63 6b 28 6d  65 6e 75 25 2c 33 29 0d  |).tick(menu%,3).|
00006990  2a 44 05 e1 0d 2a 4e 04  0d 2a 58 24 dd f2 70 6f  |*D...*N..*X$..po|
000069a0  70 28 6d 65 6e 75 25 2c  74 72 65 65 25 29 3a e7  |p(menu%,tree%):.|
000069b0  70 72 6f 63 65 73 73 25  3e 30 3a e1 0d 2a 62 0e  |process%>0:..*b.|
000069c0  e7 6d 65 6e 75 25 3c 30  3a e1 0d 2a 6c 16 f2 70  |.menu%<0:..*l..p|
000069d0  72 65 70 28 6d 65 6e 75  25 2c 74 72 65 65 25 29  |rep(menu%,tree%)|
000069e0  0d 2a 76 2c c8 99 22 57  69 6d 70 5f 43 72 65 61  |.*v,.."Wimp_Crea|
000069f0  74 65 4d 65 6e 75 22 2c  2c 6d 65 6e 75 25 2c 6d  |teMenu",,menu%,m|
00006a00  78 25 2d 35 30 2c 6d 79  25 2b 33 32 0d 2a 80 13  |x%-50,my%+32.*..|
00006a10  6f 70 65 6e 6d 65 6e 75  25 3d 6d 65 6e 75 25 0d  |openmenu%=menu%.|
00006a20  2a 8a 05 e1 0d 2a 94 04  0d 2a 9e 0c dd f2 6e 6f  |*....*...*....no|
00006a30  6d 65 6e 75 0d 2a a8 28  c8 99 22 57 69 6d 70 5f  |menu.*.(.."Wimp_|
00006a40  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 2d 31 3a  |CreateMenu",,-1:|
00006a50  6f 70 65 6e 6d 65 6e 75  25 3d 2d 31 0d 2a b2 05  |openmenu%=-1.*..|
00006a60  e1 0d 2a bc 04 0d 2a c6  2b dd f2 6e 6f 64 69 61  |..*...*.+..nodia|
00006a70  6c 3a e7 64 69 61 6c 6f  67 75 65 25 3e 30 f2 63  |l:.dialogue%>0.c|
00006a80  6c 6f 73 65 77 28 64 69  61 6c 6f 67 75 65 25 29  |losew(dialogue%)|
00006a90  0d 2a d0 05 e1 0d 2a da  04 0d 2a e4 10 dd f2 6d  |.*....*...*....m|
00006aa0  65 6e 75 73 65 6c 65 63  74 0d 2a ee 07 ea 49 25  |enuselect.*...I%|
00006ab0  0d 2a f8 2d 49 25 3d 30  3a f5 6d 6c 69 73 74 25  |.*.-I%=0:.mlist%|
00006ac0  21 49 25 3d 71 25 21 49  25 3a 49 25 2b 3d 34 3a  |!I%=q%!I%:I%+=4:|
00006ad0  fd 71 25 21 28 49 25 2d  34 29 3d 2d 31 0d 2b 02  |.q%!(I%-4)=-1.+.|
00006ae0  10 f2 72 65 61 64 70 6f  69 6e 74 65 72 0d 2b 0c  |..readpointer.+.|
00006af0  10 c8 8e 6f 70 65 6e 6d  65 6e 75 25 ca 0d 2b 16  |...openmenu%..+.|
00006b00  14 c9 6d 5f 6d 61 69 6e  25 3a f2 6d 5f 6d 61 69  |..m_main%:.m_mai|
00006b10  6e 0d 2b 20 14 c9 6d 5f  63 61 72 64 25 3a f2 6d  |n.+ ..m_card%:.m|
00006b20  5f 63 61 72 64 0d 2b 2a  18 c9 6d 5f 73 74 61 74  |_card.+*..m_stat|
00006b30  75 73 25 3a f2 6d 5f 73  74 61 74 75 73 0d 2b 34  |us%:.m_status.+4|
00006b40  16 c9 6d 5f 69 6e 64 65  78 25 3a f2 6d 5f 69 6e  |..m_index%:.m_in|
00006b50  64 65 78 0d 2b 3e 18 c9  6d 5f 66 69 65 6c 64 73  |dex.+>..m_fields|
00006b60  25 3a f2 6d 5f 66 69 65  6c 64 73 0d 2b 48 05 cb  |%:.m_fields.+H..|
00006b70  0d 2b 52 0b e7 6d 62 25  3d 31 8c 0d 2b 5c 23 f2  |.+R..mb%=1..+\#.|
00006b80  70 6f 70 28 6f 70 65 6e  6d 65 6e 75 25 2c 6d 6c  |pop(openmenu%,ml|
00006b90  69 73 74 25 29 3a 8b f2  6e 6f 6d 65 6e 75 0d 2b  |ist%):..nomenu.+|
00006ba0  66 05 cd 0d 2b 70 05 cd  0d 2b 7a 05 e1 0d 2b 84  |f...+p...+z...+.|
00006bb0  04 0d 2b 8e 0e dd f2 6d  5f 66 69 65 6c 64 73 0d  |..+....m_fields.|
00006bc0  2b 98 05 e1 0d 2b a2 04  0d 2b ac 0c dd f2 6d 5f  |+....+...+....m_|
00006bd0  6d 61 69 6e 0d 2b b6 0e  c8 8e 21 6d 6c 69 73 74  |main.+....!mlist|
00006be0  25 ca 0d 2b c0 19 c9 30  3a f2 64 69 61 6c 6f 67  |%..+...0:.dialog|
00006bf0  75 65 28 77 5f 69 6e 66  6f 25 29 0d 2b ca 10 c9  |ue(w_info%).+...|
00006c00  31 3a f2 74 72 61 6e 73  66 65 72 0d 2b d4 10 c9  |1:.transfer.+...|
00006c10  32 3a f2 66 61 73 74 73  6f 72 74 0d 2b de 10 c9  |2:.fastsort.+...|
00006c20  33 3a f2 6d 61 6b 65 66  6f 72 6d 0d 2b e8 0e c9  |3:.makeform.+...|
00006c30  34 3a f2 73 74 61 74 75  73 0d 2b f2 0f c9 35 3a  |4:.status.+...5:|
00006c40  f2 70 64 72 69 76 65 72  0d 2b fc 21 c9 36 3a e7  |.pdriver.+.!.6:.|
00006c50  a4 76 5f 28 31 29 3d 30  3a f2 71 75 69 74 28 a3  |.v_(1)=0:.quit(.|
00006c60  29 3a 8b f2 71 71 75 69  74 0d 2c 06 05 cb 0d 2c  |):..qquit.,....,|
00006c70  10 05 e1 0d 2c 1a 04 0d  2c 24 0d dd f2 6d 5f 69  |....,...,$...m_i|
00006c80  6e 64 65 78 0d 2c 2e 0e  c8 8e 21 6d 6c 69 73 74  |ndex.,....!mlist|
00006c90  25 ca 0d 2c 38 14 c9 30  3a f2 6e 65 77 69 6e 64  |%..,8..0:.newind|
00006ca0  65 78 28 2d 31 29 0d 2c  42 11 c9 31 3a f2 65 64  |ex(-1).,B..1:.ed|
00006cb0  69 74 69 6e 64 65 78 0d  2c 4c 47 c9 32 3a f2 73  |itindex.,LG.2:.s|
00006cc0  74 6f 70 28 31 30 35 2c  22 49 6e 64 65 78 3a 20  |top(105,"Index: |
00006cd0  22 2b a4 69 6e 64 65 78  6e 61 6d 65 28 6d 65 6e  |"+.indexname(men|
00006ce0  75 69 6e 64 65 78 25 29  2c 72 6c 24 2b 22 64 65  |uindex%),rl$+"de|
00006cf0  6c 65 74 65 20 69 6e 64  65 78 20 3f 22 29 0d 2c  |lete index ?").,|
00006d00  56 05 cb 0d 2c 60 05 e1  0d 2c 6a 04 0d 2c 74 0c  |V...,`...,j..,t.|
00006d10  dd f2 6d 5f 63 61 72 64  0d 2c 7e 0e c8 8e 21 6d  |..m_card.,~...!m|
00006d20  6c 69 73 74 25 ca 0d 2c  88 0e c9 30 3a f2 73 77  |list%..,...0:.sw|
00006d30  70 61 6e 65 0d 2c 92 0f  c9 31 3a f2 6d 5f 63 61  |pane.,...1:.m_ca|
00006d40  72 64 31 0d 2c 9c 0e c9  32 3a f2 6d 5f 66 69 6c  |rd1.,...2:.m_fil|
00006d50  65 0d 2c a6 0e c9 33 3a  f2 6d 5f 77 69 6e 64 0d  |e.,...3:.m_wind.|
00006d60  2c b0 05 cb 0d 2c ba 05  e1 0d 2c c4 04 0d 2c ce  |,....,....,...,.|
00006d70  0c dd f2 6d 5f 77 69 6e  64 0d 2c d8 13 ea 54 25  |...m_wind.,...T%|
00006d80  3a 54 25 3d 6d 6c 69 73  74 25 21 34 0d 2c e2 35  |:T%=mlist%!4.,.5|
00006d90  e7 54 25 3e 2d 31 80 54  25 3c 6d 61 78 77 25 2d  |.T%>-1.T%<maxw%-|
00006da0  31 3a e7 77 25 28 54 25  2b 32 29 3e 30 3a f2 63  |1:.w%(T%+2)>0:.c|
00006db0  6c 6f 73 65 77 28 77 25  28 54 25 2b 32 29 29 3a  |losew(w%(T%+2)):|
00006dc0  e1 0d 2c ec 09 c8 8e 54  25 ca 0d 2c f6 11 c9 30  |..,....T%..,...0|
00006dd0  3a f2 66 69 65 6c 64 6c  69 73 74 0d 2d 00 0d c9  |:.fieldlist.-...|
00006de0  31 3a f2 69 6e 64 65 78  0d 2d 0a 0d c9 32 3a f2  |1:.index.-...2:.|
00006df0  77 74 69 64 79 0d 2d 14  05 cb 0d 2d 1e 05 e1 0d  |wtidy.-....-....|
00006e00  2d 28 04 0d 2d 32 0c dd  f2 6d 5f 66 69 6c 65 0d  |-(..-2...m_file.|
00006e10  2d 3c 0f c8 8e 6d 6c 69  73 74 25 21 34 ca 0d 2d  |-<...mlist%!4..-|
00006e20  46 0d c9 30 3a f2 66 73  69 7a 65 0d 2d 50 10 c9  |F..0:.fsize.-P..|
00006e30  31 3a f2 6f 70 65 6e 66  69 6c 65 0d 2d 5a 06 c9  |1:.openfile.-Z..|
00006e40  32 0d 2d 64 0e e7 a4 76  5f 28 37 29 3d 30 8c 0d  |2.-d...v_(7)=0..|
00006e50  2d 6e 11 f2 63 6c 6f 73  65 66 69 6c 65 28 a3 29  |-n..closefile(.)|
00006e60  0d 2d 78 05 cc 0d 2d 82  28 f2 73 74 6f 70 28 31  |.-x...-.(.stop(1|
00006e70  30 34 2c 22 22 2c 72 6c  24 2b 22 61 62 61 6e 64  |04,"",rl$+"aband|
00006e80  6f 6e 20 6c 61 79 6f 75  74 20 3f 22 29 0d 2d 8c  |on layout ?").-.|
00006e90  05 cd 0d 2d 96 05 cb 0d  2d a0 05 e1 0d 2d aa 04  |...-....-....-..|
00006ea0  0d 2d b4 0d dd f2 6d 5f  63 61 72 64 31 0d 2d be  |.-....m_card1.-.|
00006eb0  0f c8 8e 6d 6c 69 73 74  25 21 34 ca 0d 2d c8 0d  |...mlist%!4..-..|
00006ec0  c9 30 3a f2 64 65 6c 6c  6e 0d 2d d2 0d c9 31 3a  |.0:.delln.-...1:|
00006ed0  f2 69 6e 73 6c 6e 0d 2d  dc 0e c9 32 3a f2 63 6f  |.insln.-...2:.co|
00006ee0  70 79 6c 6e 0d 2d e6 2b  c9 33 3a f2 73 74 6f 70  |pyln.-.+.3:.stop|
00006ef0  28 31 30 33 2c 22 22 2c  72 6c 24 2b 22 64 65 73  |(103,"",rl$+"des|
00006f00  74 72 6f 79 20 6c 61 79  6f 75 74 20 3f 22 29 0d  |troy layout ?").|
00006f10  2d f0 0d c9 34 3a f2 63  73 69 7a 65 0d 2d fa 05  |-...4:.csize.-..|
00006f20  cb 0d 2e 04 05 e1 0d 2e  0e 04 0d 2e 18 0e dd f2  |................|
00006f30  6d 5f 73 74 61 74 75 73  0d 2e 22 0e c8 8e 21 6d  |m_status.."...!m|
00006f40  6c 69 73 74 25 ca 0d 2e  2c 0e c9 30 3a f2 77 61  |list%...,..0:.wa|
00006f50  6c 69 67 6e 0d 2e 36 14  c9 31 3a c8 99 73 77 69  |lign..6..1:..swi|
00006f60  25 2c 73 64 34 33 5f 25  0d 2e 40 0f c9 32 3a f2  |%,sd43_%..@..2:.|
00006f70  67 65 74 70 61 73 73 0d  2e 4a 0d c9 33 3a f2 73  |getpass..J..3:.s|
00006f80  77 61 70 37 0d 2e 54 05  cb 0d 2e 5e 05 e1 0d 2e  |wap7..T....^....|
00006f90  68 04 0d 2e 72 1d dd f2  73 75 62 6d 65 6e 75 28  |h...r...submenu(|
00006fa0  6d 65 6e 75 25 2c 58 25  2c 59 25 2c 71 25 29 0d  |menu%,X%,Y%,q%).|
00006fb0  2e 7c 07 ea 49 25 0d 2e  86 2d 49 25 3d 30 3a f5  |.|..I%...-I%=0:.|
00006fc0  6d 6c 69 73 74 25 21 49  25 3d 71 25 21 49 25 3a  |mlist%!I%=q%!I%:|
00006fd0  49 25 2b 3d 34 3a fd 71  25 21 28 49 25 2d 34 29  |I%+=4:.q%!(I%-4)|
00006fe0  3d 2d 31 0d 2e 90 1b f2  70 72 65 70 28 6f 70 65  |=-1.....prep(ope|
00006ff0  6e 6d 65 6e 75 25 2c 6d  6c 69 73 74 25 29 0d 2e  |nmenu%,mlist%)..|
00007000  9a 27 c8 99 22 57 69 6d  70 5f 43 72 65 61 74 65  |.'.."Wimp_Create|
00007010  53 75 62 4d 65 6e 75 22  2c 2c 6d 65 6e 75 25 2c  |SubMenu",,menu%,|
00007020  58 25 2c 59 25 0d 2e a4  05 e1 0d 2e ae 04 0d 2e  |X%,Y%...........|
00007030  b8 20 dd f2 63 6c 65 61  72 74 73 28 6d 68 25 29  |. ..clearts(mh%)|
00007040  3a ea 49 25 3a 49 25 3d  6d 68 25 2b 32 38 0d 2e  |:.I%:I%=mh%+28..|
00007050  c2 22 e7 6d 68 25 3c 6d  65 6e 75 73 74 61 72 74  |.".mh%<menustart|
00007060  25 84 6d 68 25 3e 6d 65  6e 75 65 6e 64 25 3a e1  |%.mh%>menuend%:.|
00007070  0d 2e cc 05 f5 0d 2e d6  22 21 49 25 3d 21 49 25  |........"!I%=!I%|
00007080  80 ac 31 3a 49 25 21 38  3d 49 25 21 38 80 ac 26  |..1:I%!8=I%!8..&|
00007090  34 30 30 30 30 30 3a 0d  2e e0 16 49 25 2b 3d 32  |400000:....I%+=2|
000070a0  34 3a fd 49 25 21 2d 32  34 80 26 38 30 0d 2e ea  |4:.I%!-24.&80...|
000070b0  05 e1 0d 2e f4 04 0d 2e  fe 13 dd f2 73 68 61 64  |............shad|
000070c0  65 28 6d 68 25 2c 49 25  29 0d 2f 08 2f 6d 68 25  |e(mh%,I%)././mh%|
000070d0  21 28 32 38 2b 38 2b 32  34 2a 49 25 29 3d 6d 68  |!(28+8+24*I%)=mh|
000070e0  25 21 28 32 38 2b 38 2b  32 34 2a 49 25 29 84 26  |%!(28+8+24*I%).&|
000070f0  34 30 30 30 30 30 3a e1  0d 2f 12 04 0d 2f 1c 12  |400000:../.../..|
00007100  dd f2 74 69 63 6b 28 6d  68 25 2c 49 25 29 0d 2f  |..tick(mh%,I%)./|
00007110  26 27 6d 68 25 21 28 32  38 2b 32 34 2a 49 25 29  |&'mh%!(28+24*I%)|
00007120  3d 6d 68 25 21 28 32 38  2b 32 34 2a 49 25 29 84  |=mh%!(28+24*I%).|
00007130  26 30 31 3a e1 0d 2f 30  05 20 0d 2f 3a 15 dd f2  |&01:../0. ./:...|
00007140  72 65 64 72 61 77 28 75  70 64 61 74 65 25 29 0d  |redraw(update%).|
00007150  2f 44 14 ea 68 25 2c 54  25 3a e7 75 70 64 61 74  |/D..h%,T%:.updat|
00007160  65 25 8c 0d 2f 4e 25 c8  99 22 57 69 6d 70 5f 55  |e%../N%.."Wimp_U|
00007170  70 64 61 74 65 57 69 6e  64 6f 77 22 2c 2c 71 25  |pdateWindow",,q%|
00007180  20 b8 20 6d 6f 72 65 25  0d 2f 58 05 cc 0d 2f 62  | . more%./X.../b|
00007190  25 c8 99 22 57 69 6d 70  5f 52 65 64 72 61 77 57  |%.."Wimp_RedrawW|
000071a0  69 6e 64 6f 77 22 2c 2c  71 25 20 b8 20 6d 6f 72  |indow",,q% . mor|
000071b0  65 25 0d 2f 6c 05 cd 0d  2f 76 25 68 25 3d 21 71  |e%./l.../v%h%=!q|
000071c0  25 3a f2 77 74 6f 66 28  68 25 29 3a f2 72 65 61  |%:.wtof(h%):.rea|
000071d0  64 62 6c 6f 63 6b 28 71  25 2b 34 29 0d 2f 80 0c  |dblock(q%+4)./..|
000071e0  c8 95 20 6d 6f 72 65 25  0d 2f 8a 14 54 25 3d a3  |.. more%./..T%=.|
000071f0  3a ea 85 3a ee 85 ea 3a  54 25 3d b9 0d 2f 94 08  |:..:...:T%=../..|
00007200  e7 54 25 8c 0d 2f 9e 22  e7 a6 2d 33 3a f2 72 65  |.T%../."..-3:.re|
00007210  63 74 66 69 6c 6c 28 f6  24 29 3a 8b f7 85 3a f2  |ctfill(.$):...:.|
00007220  65 72 72 28 30 29 0d 2f  a8 05 cc 0d 2f b2 0e e7  |err(0)./..../...|
00007230  66 69 6c 65 25 3e 3d 30  8c 0d 2f bc 0c c8 8e 77  |file%>=0../....w|
00007240  69 6e 64 25 ca 0d 2f c6  10 c9 30 3a f2 64 72 61  |ind%../...0:.dra|
00007250  77 63 61 72 64 0d 2f d0  11 c9 32 3a f2 64 72 61  |wcard./...2:.dra|
00007260  77 66 6c 69 73 74 0d 2f  da 11 c9 33 3a f2 64 72  |wflist./...3:.dr|
00007270  61 77 69 6c 69 73 74 0d  2f e4 05 cb 0d 2f ee 05  |awilist./..../..|
00007280  cc 0d 2f f8 05 cd 0d 30  02 05 cd 0d 30 0c 06 f7  |../....0....0...|
00007290  85 0d 30 16 1f 21 71 25  3d 68 25 3a 6d 6f 72 65  |..0..!q%=h%:more|
000072a0  25 3d a4 6e 65 78 74 72  65 63 74 61 6e 67 6c 65  |%=.nextrectangle|
000072b0  0d 30 20 05 ce 0d 30 2a  05 e1 0d 30 34 04 0d 30  |.0 ...0*...04..0|
000072c0  3e 0e dd f2 64 72 61 77  63 61 72 64 0d 30 48 1b  |>...drawcard.0H.|
000072d0  f2 67 63 6f 6c 28 30 2c  37 29 3a f2 67 63 6f 6c  |.gcol(0,7):.gcol|
000072e0  28 30 2c 31 32 38 29 0d  30 52 2c ec 62 78 25 2b  |(0,128).0R,.bx%+|
000072f0  6d 61 72 67 69 6e 25 2c  62 79 25 2d 6d 61 72 67  |margin%,by%-marg|
00007300  69 6e 25 3a c8 99 73 77  69 25 2c 77 69 6d 70 5f  |in%:..swi%,wimp_|
00007310  25 2c 31 0d 30 5c 05 e1  0d 30 66 04 0d 30 70 39  |%,1.0\...0f..0p9|
00007320  dd f2 64 72 61 77 66 6c  69 73 74 3a ea 54 25 2c  |..drawflist:.T%,|
00007330  58 25 2c 59 25 2c 78 25  2c 79 25 3a 54 25 3d 26  |X%,Y%,x%,y%:T%=&|
00007340  31 30 30 30 30 3a e7 75  70 64 61 74 65 25 54 25  |10000:.update%T%|
00007350  3d 54 25 84 31 0d 30 7a  32 e7 a4 76 5f 28 37 29  |=T%.1.0z2..v_(7)|
00007360  3d 30 f2 72 65 63 74 66  69 6c 6c 28 22 4e 6f 20  |=0.rectfill("No |
00007370  66 69 65 6c 64 73 20 69  6e 20 74 68 69 73 20 66  |fields in this f|
00007380  69 6c 65 22 29 3a e1 0d  30 84 2f ec 62 78 25 2b  |ile"):..0./.bx%+|
00007390  6d 61 72 67 69 6e 25 2c  62 79 25 2d 6d 61 72 67  |margin%,by%-marg|
000073a0  69 6e 25 2d 34 3a c8 99  73 77 69 25 2c 77 69 6d  |in%-4:..swi%,wim|
000073b0  70 5f 25 2c 54 25 0d 30  8e 14 c8 99 73 77 69 25  |p_%,T%.0....swi%|
000073c0  2c 73 64 37 30 5f 25 b8  47 25 0d 30 98 0a e7 47  |,sd70_%.G%.0...G|
000073d0  25 3e 30 8c 0d 30 a2 41  58 25 3d 62 78 25 3a 59  |%>0..0.AX%=bx%:Y|
000073e0  25 3d 62 79 25 2d 6d 61  72 67 69 6e 25 2d 47 25  |%=by%-margin%-G%|
000073f0  2a 6c 69 6e 65 67 61 70  25 3a 79 25 3d 59 25 2b  |*linegap%:y%=Y%+|
00007400  6c 69 6e 65 67 61 70 25  2b 33 3a 78 25 3d 58 25  |linegap%+3:x%=X%|
00007410  2b 35 30 30 30 0d 30 ac  13 e7 58 25 3c 67 78 30  |+5000.0...X%<gx0|
00007420  25 58 25 3d 67 78 30 25  0d 30 b6 15 e7 78 25 3e  |%X%=gx0%.0...x%>|
00007430  67 78 31 25 78 25 3d 67  78 31 25 2d 31 0d 30 c0  |gx1%x%=gx1%-1.0.|
00007440  13 e7 59 25 3c 67 79 30  25 59 25 3d 67 79 30 25  |..Y%<gy0%Y%=gy0%|
00007450  0d 30 ca 15 e7 79 25 3e  67 79 31 25 79 25 3d 67  |.0...y%>gy1%y%=g|
00007460  79 31 25 2d 31 0d 30 d4  6c e7 79 25 3e 3d 59 25  |y1%-1.0.l.y%>=Y%|
00007470  80 78 25 3e 3d 58 25 ef  32 34 2c 58 25 3b 59 25  |.x%>=X%.24,X%;Y%|
00007480  3b 78 25 3b 79 25 3b 3a  f2 67 63 6f 6c 28 30 2c  |;x%;y%;:.gcol(0,|
00007490  31 32 38 2b 37 29 3a f2  67 63 6f 6c 28 30 2c 31  |128+7):.gcol(0,1|
000074a0  29 3a ec 62 78 25 2b 6d  61 72 67 69 6e 25 2c 62  |):.bx%+margin%,b|
000074b0  79 25 2d 6d 61 72 67 69  6e 25 2d 34 3a c8 99 73  |y%-margin%-4:..s|
000074c0  77 69 25 2c 77 69 6d 70  5f 25 2c 26 31 30 30 30  |wi%,wimp_%,&1000|
000074d0  31 0d 30 de 05 cd 0d 30  e8 05 e1 0d 30 f2 04 0d  |1.0....0....0...|
000074e0  30 fc 2d dd f2 64 72 61  77 69 6c 69 73 74 3a ea  |0.-..drawilist:.|
000074f0  54 25 3a 54 25 3d 26 32  30 30 30 30 3a e7 75 70  |T%:T%=&20000:.up|
00007500  64 61 74 65 25 54 25 3d  54 25 84 31 0d 31 06 36  |date%T%=T%.1.1.6|
00007510  e7 a4 6e 69 6e 64 69 63  65 73 3d 30 f2 72 65 63  |..nindices=0.rec|
00007520  74 66 69 6c 6c 28 22 4e  6f 20 69 6e 64 69 63 65  |tfill("No indice|
00007530  73 20 69 6e 20 74 68 69  73 20 66 69 6c 65 22 29  |s in this file")|
00007540  3a e1 0d 31 10 2f ec 62  78 25 2b 6d 61 72 67 69  |:..1./.bx%+margi|
00007550  6e 25 2c 62 79 25 2d 6d  61 72 67 69 6e 25 2d 34  |n%,by%-margin%-4|
00007560  3a c8 99 73 77 69 25 2c  77 69 6d 70 5f 25 2c 54  |:..swi%,wimp_%,T|
00007570  25 0d 31 1a 05 e1 0d 31  24 04 0d 31 2e 34 dd a4  |%.1....1$..1.4..|
00007580  6e 65 78 74 72 65 63 74  61 6e 67 6c 65 3a ea 54  |nextrectangle:.T|
00007590  25 3a c8 99 22 57 69 6d  70 5f 47 65 74 52 65 63  |%:.."Wimp_GetRec|
000075a0  74 61 6e 67 6c 65 22 2c  2c 71 25 b8 54 25 0d 31  |tangle",,q%.T%.1|
000075b0  38 18 f2 72 65 61 64 62  6c 6f 63 6b 28 71 25 2b  |8..readblock(q%+|
000075c0  34 29 3a 3d 54 25 0d 31  42 04 0d 31 4c 12 dd f2  |4):=T%.1B..1L...|
000075d0  72 65 63 74 66 69 6c 6c  28 54 24 29 0d 31 56 1e  |rectfill(T$).1V.|
000075e0  f2 67 63 6f 6c 28 30 2c  33 29 3a ea 49 25 2c 4a  |.gcol(0,3):.I%,J|
000075f0  25 2c 4c 25 2c 58 25 2c  59 25 0d 31 60 10 4c 25  |%,L%,X%,Y%.1`.L%|
00007600  3d a9 54 24 2a 31 36 2b  34 38 0d 31 6a 2c 58 25  |=.T$*16+48.1j,X%|
00007610  3d 62 78 25 2b 6d 61 72  67 69 6e 25 3a 4a 25 3d  |=bx%+margin%:J%=|
00007620  67 78 30 25 2d 58 25 3a  58 25 3d 58 25 2d 4a 25  |gx0%-X%:X%=X%-J%|
00007630  2b 4a 25 83 4c 25 0d 31  74 3d 4a 25 3d 62 79 25  |+J%.L%.1t=J%=by%|
00007640  2d 67 79 31 25 2d 6d 61  72 67 69 6e 25 3a 4a 25  |-gy1%-margin%:J%|
00007650  3d 4a 25 2d 4a 25 83 6c  69 6e 65 67 61 70 25 3a  |=J%-J%.linegap%:|
00007660  59 25 3d 62 79 25 2d 6d  61 72 67 69 6e 25 2d 34  |Y%=by%-margin%-4|
00007670  2d 4a 25 0d 31 7e 19 e3  4a 25 3d 59 25 b8 67 79  |-J%.1~..J%=Y%.gy|
00007680  30 25 88 2d 6c 69 6e 65  67 61 70 25 0d 31 88 25  |0%.-linegap%.1.%|
00007690  ec 58 25 2c 4a 25 3a e3  49 25 3d 58 25 b8 67 78  |.X%,J%:.I%=X%.gx|
000076a0  31 25 88 4c 25 3a f1 54  24 22 20 2d 20 22 3b 3a  |1%.L%:.T$" - ";:|
000076b0  ed 0d 31 92 07 ed 3a e1  0d 31 9c 04 0d 31 a6 0f  |..1...:..1...1..|
000076c0  dd f2 77 61 69 74 70 6f  69 6e 74 0d 31 b0 0e 77  |..waitpoint.1..w|
000076d0  61 69 74 65 72 25 2b 3d  31 0d 31 ba 14 c8 99 22  |aiter%+=1.1...."|
000076e0  48 6f 75 72 67 6c 61 73  73 5f 4f 6e 22 0d 31 c4  |Hourglass_On".1.|
000076f0  05 e1 0d 31 ce 04 0d 31  d8 0f dd f2 6e 6f 72 6d  |...1...1....norm|
00007700  70 6f 69 6e 74 0d 31 e2  38 c8 95 77 61 69 74 65  |point.1.8..waite|
00007710  72 25 3e 30 3a c8 99 22  48 6f 75 72 67 6c 61 73  |r%>0:.."Hourglas|
00007720  73 5f 4f 66 66 22 3a 77  61 69 74 65 72 25 2d 3d  |s_Off":waiter%-=|
00007730  31 3a ce 3a 77 61 69 74  65 72 25 3d 30 0d 31 ec  |1:.:waiter%=0.1.|
00007740  05 e1 0d 31 f6 04 0d 32  00 11 dd f2 67 63 6f 6c  |...1...2....gcol|
00007750  28 6d 25 2c 63 25 29 0d  32 0a 21 c8 99 22 57 69  |(m%,c%).2.!.."Wi|
00007760  6d 70 5f 53 65 74 43 6f  6c 6f 75 72 22 2c 28 6d  |mp_SetColour",(m|
00007770  25 3c 3c 34 29 2b 63 25  0d 32 14 05 e1 0d 32 1e  |%<<4)+c%.2....2.|
00007780  04 0d 32 28 11 dd f2 64  61 74 61 6c 6f 61 64 61  |..2(...dataloada|
00007790  63 6b 0d 32 32 1d 21 71  25 3d 32 30 3a 71 25 21  |ck.22.!q%=20:q%!|
000077a0  31 32 3d 72 65 66 25 3a  71 25 21 31 36 3d 34 0d  |12=ref%:q%!16=4.|
000077b0  32 3c 24 c8 99 22 57 69  6d 70 5f 53 65 6e 64 4d  |2<$.."Wimp_SendM|
000077c0  65 73 73 61 67 65 22 2c  31 37 2c 71 25 2c 74 61  |essage",17,q%,ta|
000077d0  73 6b 25 0d 32 46 05 e1  0d 32 50 04 0d 32 5a 11  |sk%.2F...2P..2Z.|
000077e0  dd f2 64 61 74 61 73 61  76 65 61 63 6b 0d 32 64  |..datasaveack.2d|
000077f0  3c e7 a4 41 72 66 56 61  72 28 22 57 69 6d 70 24  |<..ArfVar("Wimp$|
00007800  53 63 72 61 70 22 29 3d  22 22 3a 85 39 39 2c 22  |Scrap")="":.99,"|
00007810  3c 57 69 6d 70 24 53 63  72 61 70 3e 20 6e 6f 74  |<Wimp$Scrap> not|
00007820  20 64 65 66 69 6e 65 64  22 0d 32 6e 41 21 71 25  | defined".2nA!q%|
00007830  3d 36 30 3a 71 25 21 31  32 3d 72 65 66 25 3a 71  |=60:q%!12=ref%:q|
00007840  25 21 31 36 3d 32 3a 71  25 21 33 36 3d 2d 31 3a  |%!16=2:q%!36=-1:|
00007850  24 28 71 25 2b 34 34 29  3d 22 3c 57 69 6d 70 24  |$(q%+44)="<Wimp$|
00007860  53 63 72 61 70 3e 22 2b  bd 30 0d 32 78 31 c8 99  |Scrap>"+.0.2x1..|
00007870  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
00007880  65 22 2c 31 37 2c 71 25  2c 74 61 73 6b 25 3a 61  |e",17,q%,task%:a|
00007890  63 6b 72 65 66 25 3d 71  25 21 38 0d 32 82 05 e1  |ckref%=q%!8.2...|
000078a0  0d 32 8c 04 0d 32 96 1a  dd f2 73 61 76 65 72 65  |.2...2....savere|
000078b0  71 28 54 24 2c 74 25 2c  73 25 2c 72 25 29 0d 32  |q(T$,t%,s%,r%).2|
000078c0  a0 3a 73 61 76 65 72 65  61 73 6f 6e 25 3d 72 25  |.:savereason%=r%|
000078d0  3a 71 25 21 33 32 3d 6d  79 25 3a 71 25 21 32 38  |:q%!32=my%:q%!28|
000078e0  3d 6d 78 25 3a 71 25 21  32 34 3d 6d 69 25 3a 71  |=mx%:q%!24=mi%:q|
000078f0  25 21 32 30 3d 6d 68 25  0d 32 aa 38 71 25 21 31  |%!20=mh%.2.8q%!1|
00007900  36 3d 31 3a 71 25 21 31  32 3d 30 3a 71 25 21 33  |6=1:q%!12=0:q%!3|
00007910  36 3d 73 25 3a 71 25 21  34 30 3d 74 25 3a 21 71  |6=s%:q%!40=t%:!q|
00007920  25 3d 28 a9 54 24 2b 35  33 29 80 26 46 46 46 43  |%=(.T$+53).&FFFC|
00007930  0d 32 b4 39 24 28 71 25  2b 34 34 29 3d 54 24 2b  |.2.9$(q%+44)=T$+|
00007940  c4 35 2c bd 30 29 3a c8  99 22 57 69 6d 70 5f 53  |.5,.0):.."Wimp_S|
00007950  65 6e 64 4d 65 73 73 61  67 65 22 2c 31 37 2c 71  |endMessage",17,q|
00007960  25 2c 6d 68 25 2c 6d 69  25 0d 32 be 20 73 61 76  |%,mh%,mi%.2. sav|
00007970  65 72 65 66 25 3d 71 25  21 38 3a 73 61 76 65 74  |eref%=q%!8:savet|
00007980  79 70 65 25 3d 74 25 3a  e1 0d 32 c8 04 0d 32 d2  |ype%=t%:..2...2.|
00007990  26 dd f2 6c 6f 61 64 6d  65 73 73 3a f2 72 65 61  |&..loadmess:.rea|
000079a0  64 70 6f 69 6e 74 65 72  3a e7 74 61 73 6b 25 3c  |dpointer:.task%<|
000079b0  30 3a e1 0d 32 dc 2b 24  28 71 25 2b 34 34 29 3d  |0:..2.+$(q%+44)=|
000079c0  66 69 6c 65 24 2b bd 30  3a 21 71 25 3d 28 a9 66  |file$+.0:!q%=(.f|
000079d0  69 6c 65 24 2b 34 39 29  80 26 46 46 46 43 0d 32  |ile$+49).&FFFC.2|
000079e0  e6 26 71 25 21 31 32 3d  72 65 66 25 3a 71 25 21  |.&q%!12=ref%:q%!|
000079f0  31 36 3d 33 3a 71 25 21  34 30 3d 73 61 76 65 74  |16=3:q%!40=savet|
00007a00  79 70 65 25 0d 32 f0 3f  71 25 21 32 30 3d 6d 68  |ype%.2.?q%!20=mh|
00007a10  25 3a 71 25 21 32 34 3d  6d 69 25 3a 71 25 21 32  |%:q%!24=mi%:q%!2|
00007a20  38 3d 6d 78 25 3a 71 25  21 33 32 3d 6d 79 25 3a  |8=mx%:q%!32=my%:|
00007a30  71 25 21 33 36 3d a4 66  73 69 7a 65 28 66 69 6c  |q%!36=.fsize(fil|
00007a40  65 24 29 0d 32 fa 24 c8  99 22 57 69 6d 70 5f 53  |e$).2.$.."Wimp_S|
00007a50  65 6e 64 4d 65 73 73 61  67 65 22 2c 31 37 2c 71  |endMessage",17,q|
00007a60  25 2c 74 61 73 6b 25 0d  33 04 13 61 63 6b 70 65  |%,task%.3..ackpe|
00007a70  6e 64 69 6e 67 25 3d b9  3a e1 0d 33 0e 04 0d 33  |nding%=.:..3...3|
00007a80  18 26 dd a4 66 73 69 7a  65 28 54 24 29 3a ea 54  |.&..fsize(T$):.T|
00007a90  25 2c 73 25 3a 54 25 3d  8e 54 24 3a e7 54 25 3d  |%,s%:T%=.T$:.T%=|
00007aa0  30 3a 3d 30 0d 33 22 14  73 25 3d a2 23 54 25 3a  |0:=0.3".s%=.#T%:|
00007ab0  d9 23 54 25 3a 3d 73 25  0d 33 2c 05 20 0d 33 36  |.#T%:=s%.3,. .36|
00007ac0  11 dd a4 7a 74 73 28 54  25 29 3a ea 54 24 0d 33  |...zts(T%):.T$.3|
00007ad0  40 1d c8 95 3f 54 25 3c  3e 30 3a 54 24 2b 3d bd  |@...?T%<>0:T$+=.|
00007ae0  3f 54 25 3a 54 25 2b 3d  31 3a ce 0d 33 4a 07 3d  |?T%:T%+=1:..3J.=|
00007af0  54 24 0d 33 54 04 0d 33  5e 29 dd f2 6b 65 79 28  |T$.3T..3^)..key(|
00007b00  68 25 2c 69 63 6f 6e 25  2c 78 25 2c 79 25 2c 63  |h%,icon%,x%,y%,c|
00007b10  61 72 68 25 2c 6f 66 66  25 2c 6b 65 79 25 29 0d  |arh%,off%,key%).|
00007b20  33 68 28 f2 77 74 6f 66  28 68 25 29 3a e7 66 69  |3h(.wtof(h%):.fi|
00007b30  6c 65 25 3e 3d 30 3a f2  63 61 72 64 6b 65 79 28  |le%>=0:.cardkey(|
00007b40  6b 65 79 25 29 3a e1 0d  33 72 0c ea 46 25 3a 46  |key%):..3r..F%:F|
00007b50  25 3d b9 0d 33 7c 0b c8  8e 6b 65 79 25 ca 0d 33  |%=..3|...key%..3|
00007b60  86 13 c9 39 2c 26 31 38  41 3a f2 66 69 6e 64 63  |...9,&18A:.findc|
00007b70  74 0d 33 90 1d c9 31 33  3a f2 63 75 72 73 6f 72  |t.3...13:.cursor|
00007b80  28 68 25 2c 69 63 6f 6e  25 2c 31 2c 30 29 0d 33  |(h%,icon%,1,0).3|
00007b90  9a 11 c9 31 39 3a f2 73  77 61 70 63 61 73 65 0d  |...19:.swapcase.|
00007ba0  33 a4 22 c9 32 37 3a e7  64 69 61 6c 6f 67 75 65  |3.".27:.dialogue|
00007bb0  25 3e 3d 30 f2 6e 6f 64  69 61 6c 3a 8b 46 25 3d  |%>=0.nodial:.F%=|
00007bc0  a3 0d 33 ae 1a c9 26 31  38 31 3a e7 ac a4 70 72  |..3...&181:...pr|
00007bd0  6f 64 3a f2 71 75 69 74  28 b9 29 0d 33 b8 23 c9  |od:.quit(.).3.#.|
00007be0  26 31 38 46 3a f2 63 75  72 73 6f 72 28 68 25 2c  |&18F:.cursor(h%,|
00007bf0  69 63 6f 6e 25 2c 2d 31  2c 6f 66 66 25 29 0d 33  |icon%,-1,off%).3|
00007c00  c2 22 c9 26 31 38 45 3a  f2 63 75 72 73 6f 72 28  |.".&18E:.cursor(|
00007c10  68 25 2c 69 63 6f 6e 25  2c 31 2c 6f 66 66 25 29  |h%,icon%,1,off%)|
00007c20  0d 33 cc 23 c9 26 31 39  46 3a f2 63 75 72 73 6f  |.3.#.&19F:.curso|
00007c30  72 28 68 25 2c 69 63 6f  6e 25 2c 2d 35 2c 6f 66  |r(h%,icon%,-5,of|
00007c40  66 25 29 0d 33 d6 22 c9  26 31 39 45 3a f2 63 75  |f%).3.".&19E:.cu|
00007c50  72 73 6f 72 28 68 25 2c  69 63 6f 6e 25 2c 35 2c  |rsor(h%,icon%,5,|
00007c60  6f 66 66 25 29 0d 33 e0  28 c9 26 31 41 46 2c 33  |off%).3.(.&1AF,3|
00007c70  30 3a f2 63 75 72 73 6f  72 28 68 25 2c 69 63 6f  |0:.cursor(h%,ico|
00007c80  6e 25 2c 2d 31 45 39 2c  6f 66 66 25 29 0d 33 ea  |n%,-1E9,off%).3.|
00007c90  24 c9 26 31 41 45 3a f2  63 75 72 73 6f 72 28 68  |$.&1AE:.cursor(h|
00007ca0  25 2c 69 63 6f 6e 25 2c  31 45 39 2c 6f 66 66 25  |%,icon%,1E9,off%|
00007cb0  29 0d 33 f4 09 7f 46 25  3d a3 0d 33 fe 05 cb 0d  |).3...F%=..3....|
00007cc0  34 08 09 e7 46 25 3a e1  0d 34 12 1c c8 99 22 57  |4...F%:..4...."W|
00007cd0  69 6d 70 5f 50 72 6f 63  65 73 73 4b 65 79 22 2c  |imp_ProcessKey",|
00007ce0  6b 65 79 25 0d 34 1c 05  e1 0d 34 26 04 0d 34 30  |key%.4....4&..40|
00007cf0  13 dd f2 63 61 72 64 6b  65 79 28 6b 65 79 25 29  |...cardkey(key%)|
00007d00  0d 34 3a 30 ea 46 25 2c  58 25 2c 59 25 2c 54 25  |.4:0.F%,X%,Y%,T%|
00007d10  3a 46 25 3d b9 3a 58 25  3d a4 76 5f 28 31 32 29  |:F%=.:X%=.v_(12)|
00007d20  3a 59 25 3d a4 76 5f 28  31 33 29 3a 54 25 3d 30  |:Y%=.v_(13):T%=0|
00007d30  0d 34 44 0b c8 8e 6b 65  79 25 ca 0d 34 4e 13 c9  |.4D...key%..4N..|
00007d40  39 2c 26 31 38 41 3a f2  66 69 6e 64 63 74 0d 34  |9,&18A:.findct.4|
00007d50  58 12 c9 31 33 3a 58 25  3d 31 3a 59 25 2b 3d 31  |X..13:X%=1:Y%+=1|
00007d60  0d 34 62 18 c9 31 39 3a  c8 99 73 77 69 25 2c 73  |.4b..19:..swi%,s|
00007d70  64 31 31 5f 25 b8 47 25  0d 34 6c 3c e7 47 25 3e  |d11_%.G%.4l<.G%>|
00007d80  36 34 80 47 25 3c 39 31  6b 65 79 25 3d 47 25 2b  |64.G%<91key%=G%+|
00007d90  33 32 3a 8b e7 47 25 3e  39 36 80 47 25 3c 31 32  |32:..G%>96.G%<12|
00007da0  33 6b 65 79 25 3d 47 25  2d 33 32 3a 8b 6b 65 79  |3key%=G%-32:.key|
00007db0  25 3d 47 25 0d 34 76 1a  c9 26 31 38 31 3a e7 ac  |%=G%.4v..&181:..|
00007dc0  a4 70 72 6f 64 3a f2 71  75 69 74 28 b9 29 0d 34  |.prod:.quit(.).4|
00007dd0  80 0f c9 26 31 38 46 3a  59 25 2d 3d 31 0d 34 8a  |...&18F:Y%-=1.4.|
00007de0  0f c9 26 31 38 45 3a 59  25 2b 3d 31 0d 34 94 0f  |..&18E:Y%+=1.4..|
00007df0  c9 26 31 39 46 3a 59 25  2d 3d 35 0d 34 9e 0f c9  |.&19F:Y%-=5.4...|
00007e00  26 31 39 45 3a 59 25 2b  3d 35 0d 34 a8 11 c9 26  |&19E:Y%+=5.4...&|
00007e10  31 41 46 2c 33 30 3a 59  25 3d 31 0d 34 b2 13 c9  |1AF,30:Y%=1.4...|
00007e20  26 31 41 45 3a 59 25 3d  a4 76 5f 28 35 29 0d 34  |&1AE:Y%=.v_(5).4|
00007e30  bc 0f c9 26 31 38 43 3a  58 25 2d 3d 31 0d 34 c6  |...&18C:X%-=1.4.|
00007e40  0f c9 26 31 38 44 3a 58  25 2b 3d 31 0d 34 d0 0f  |..&18D:X%+=1.4..|
00007e50  c9 26 31 39 43 3a 58 25  2d 3d 35 0d 34 da 0f c9  |.&19C:X%-=5.4...|
00007e60  26 31 39 44 3a 58 25 2b  3d 35 0d 34 e4 0e c9 26  |&19D:X%+=5.4...&|
00007e70  31 41 43 3a 58 25 3d 31  0d 34 ee 13 c9 26 31 41  |1AC:X%=1.4...&1A|
00007e80  44 3a 58 25 3d a4 76 5f  28 36 29 0d 34 f8 1f c9  |D:X%=.v_(6).4...|
00007e90  26 31 39 42 2c 26 31 43  44 3a c8 99 73 77 69 25  |&19B,&1CD:..swi%|
00007ea0  2c 73 64 37 30 5f 25 b8  47 25 0d 35 02 17 54 25  |,sd70_%.G%.5..T%|
00007eb0  3d 47 25 3a c8 99 73 77  69 25 2c 73 64 31 35 5f  |=G%:..swi%,sd15_|
00007ec0  25 0d 35 0c 19 f2 75 70  64 6c 69 6e 65 3a e7 54  |%.5...updline:.T|
00007ed0  25 3e 30 f2 72 65 73 69  7a 65 0d 35 16 08 54 25  |%>0.resize.5..T%|
00007ee0  3d 30 0d 35 20 1f c9 31  32 37 3a 58 25 2d 3d 31  |=0.5 ..127:X%-=1|
00007ef0  3a c8 99 73 77 69 25 2c  73 64 37 30 5f 25 b8 47  |:..swi%,sd70_%.G|
00007f00  25 0d 35 2a 17 54 25 3d  47 25 3a c8 99 73 77 69  |%.5*.T%=G%:..swi|
00007f10  25 2c 73 64 31 36 5f 25  0d 35 34 19 f2 75 70 64  |%,sd16_%.54..upd|
00007f20  6c 69 6e 65 3a e7 54 25  3e 30 f2 72 65 73 69 7a  |line:.T%>0.resiz|
00007f30  65 0d 35 3e 08 54 25 3d  31 0d 35 48 15 c9 26 31  |e.5>.T%=1.5H..&1|
00007f40  41 42 2c 26 31 45 44 3a  f2 69 6e 73 6c 6e 0d 35  |AB,&1ED:.insln.5|
00007f50  52 0e c9 32 35 3a f2 64  65 6c 6c 6e 0d 35 5c 09  |R..25:.delln.5\.|
00007f60  7f 46 25 3d a3 0d 35 66  05 cb 0d 35 70 20 e7 6b  |.F%=..5f...5p .k|
00007f70  65 79 25 3e 33 31 80 6b  65 79 25 3c 32 35 35 80  |ey%>31.key%<255.|
00007f80  6b 65 79 25 3c 3e 31 32  37 8c 0d 35 7a 1c 58 25  |key%<>127..5z.X%|
00007f90  2b 3d 31 3a c8 99 73 77  69 25 2c 73 64 31 32 5f  |+=1:..swi%,sd12_|
00007fa0  25 2c 6b 65 79 25 0d 35  84 0b f2 75 70 64 63 68  |%,key%.5...updch|
00007fb0  72 0d 35 8e 05 cd 0d 35  98 22 e7 58 25 3c 31 58  |r.5....5.".X%<1X|
00007fc0  25 3d 31 3a 8b e7 58 25  3e a4 76 5f 28 36 29 58  |%=1:..X%>.v_(6)X|
00007fd0  25 3d a4 76 5f 28 36 29  0d 35 a2 22 e7 59 25 3c  |%=.v_(6).5.".Y%<|
00007fe0  31 59 25 3d 31 3a 8b e7  59 25 3e a4 76 5f 28 35  |1Y%=1:..Y%>.v_(5|
00007ff0  29 59 25 3d a4 76 5f 28  35 29 0d 35 ac 20 e7 54  |)Y%=.v_(5).5. .T|
00008000  25 84 58 25 3c 3e a4 76  5f 28 31 32 29 84 59 25  |%.X%<>.v_(12).Y%|
00008010  3c 3e a4 76 5f 28 31 33  29 8c 0d 35 b6 17 c8 99  |<>.v_(13)..5....|
00008020  73 77 69 25 2c 73 64 34  34 5f 25 2c 58 25 2c 59  |swi%,sd44_%,X%,Y|
00008030  25 0d 35 c0 0c f2 6d 61  74 63 68 63 74 0d 35 ca  |%.5...matchct.5.|
00008040  05 cd 0d 35 d4 09 e7 46  25 3a e1 0d 35 de 1c c8  |...5...F%:..5...|
00008050  99 22 57 69 6d 70 5f 50  72 6f 63 65 73 73 4b 65  |."Wimp_ProcessKe|
00008060  79 22 2c 6b 65 79 25 0d  35 e8 05 e1 0d 35 f2 04  |y",key%.5....5..|
00008070  0d 35 fc 2c dd f2 73 77  61 70 63 61 73 65 3a f2  |.5.,..swapcase:.|
00008080  67 65 74 63 74 3a 54 25  3d 71 25 21 32 30 2b a4  |getct:T%=q%!20+.|
00008090  69 61 28 21 71 25 2c 71  25 21 34 29 0d 36 06 33  |ia(!q%,q%!4).6.3|
000080a0  e7 3f 54 25 3c 31 32 33  80 3f 54 25 3e 39 36 20  |.?T%<123.?T%>96 |
000080b0  3f 54 25 2d 3d 33 32 3a  8b e7 3f 54 25 3c 39 31  |?T%-=32:..?T%<91|
000080c0  80 3f 54 25 3e 36 34 20  3f 54 25 2b 3d 33 32 0d  |.?T%>64 ?T%+=32.|
000080d0  36 10 2a f2 67 65 74 63  74 3a e7 3f 54 25 3e 33  |6.*.getct:.?T%>3|
000080e0  31 f2 73 65 74 63 74 28  21 71 25 2c 71 25 21 34  |1.setct(!q%,q%!4|
000080f0  2c 71 25 21 32 30 2b 31  29 0d 36 1a 1f f2 67 65  |,q%!20+1).6...ge|
00008100  74 63 74 3a f2 69 63 6f  6e 75 70 64 28 21 71 25  |tct:.iconupd(!q%|
00008110  2c 71 25 21 34 29 3a e1  0d 36 24 04 0d 36 2e 2b  |,q%!4):..6$..6.+|
00008120  dd f2 67 65 74 63 74 3a  c8 99 22 57 69 6d 70 5f  |..getct:.."Wimp_|
00008130  47 65 74 43 61 72 65 74  50 6f 73 69 74 69 6f 6e  |GetCaretPosition|
00008140  22 2c 2c 71 25 3a e1 0d  36 38 04 0d 36 42 3d dd  |",,q%:..68..6B=.|
00008150  f2 73 65 74 63 74 28 68  25 2c 69 25 2c 6f 25 29  |.setct(h%,i%,o%)|
00008160  3a c8 99 22 57 69 6d 70  5f 53 65 74 43 61 72 65  |:.."Wimp_SetCare|
00008170  74 50 6f 73 69 74 69 6f  6e 22 2c 68 25 2c 69 25  |tPosition",h%,i%|
00008180  2c 2c 2c 2d 31 2c 6f 25  0d 36 4c 11 e7 69 25 3e  |,,,-1,o%.6L..i%>|
00008190  3d 30 f2 66 69 6e 64 63  74 0d 36 56 05 e1 0d 36  |=0.findct.6V...6|
000081a0  60 04 0d 36 6a 14 dd a4  6e 75 6d 69 28 68 25 2c  |`..6j...numi(h%,|
000081b0  69 25 2c 62 25 29 0d 36  74 09 f7 8d 54 5e 77 0d  |i%,b%).6t...T^w.|
000081c0  36 7e 1f ea 55 25 2c 44  25 2c 4e 25 2c 54 25 2c  |6~..U%,D%,N%,T%,|
000081d0  42 25 2c 57 25 2c 46 25  2c 53 25 2c 56 25 0d 36  |B%,W%,F%,S%,V%.6|
000081e0  88 11 c8 95 57 25 3c 3e  2d 31 80 46 25 3d a3 0d  |....W%<>-1.F%=..|
000081f0  36 92 17 f3 57 25 3a f3  55 25 2c 44 25 2c 4e 25  |6...W%:.U%,D%,N%|
00008200  2c 54 25 2c 42 25 0d 36  9c 0b e7 57 25 3d 68 25  |,T%,B%.6...W%=h%|
00008210  8c 0d 36 a6 11 e7 69 25  3d 55 25 84 69 25 3d 44  |..6...i%=U%.i%=D|
00008220  25 8c 0d 36 b0 08 46 25  3d b9 0d 36 ba 13 56 25  |%..6..F%=..6..V%|
00008230  3d bb 24 a4 69 61 28 57  25 2c 4e 25 29 0d 36 c4  |=.$.ia(W%,N%).6.|
00008240  15 53 25 3d 31 3a e7 69  25 3d 44 25 3a 53 25 3d  |.S%=1:.i%=D%:S%=|
00008250  2d 31 0d 36 ce 12 e7 62  25 3d 31 3a 53 25 3d 53  |-1.6...b%=1:S%=S|
00008260  25 2a 31 30 0d 36 d8 17  56 25 2b 3d 53 25 3a e7  |%*10.6..V%+=S%:.|
00008270  56 25 3c 42 25 3a 56 25  3d 42 25 0d 36 e2 0f e7  |V%<B%:V%=B%.6...|
00008280  56 25 3e 54 25 56 25 3d  54 25 0d 36 ec 14 f2 73  |V%>T%V%=T%.6...s|
00008290  65 74 69 28 57 25 2c 4e  25 2c c3 56 25 29 0d 36  |eti(W%,N%,.V%).6|
000082a0  f6 05 cd 0d 37 00 05 cd  0d 37 0a 05 ce 0d 37 14  |....7....7....7.|
000082b0  07 3d 46 25 0d 37 1e 18  dc 77 5f 66 69 6e 66 25  |.=F%.7...w_finf%|
000082c0  2c 33 2c 34 2c 32 2c 32  35 35 2c 31 0d 37 28 1b  |,3,4,2,255,1.7(.|
000082d0  dc 77 5f 66 69 6e 66 25  2c 31 38 2c 32 31 2c 32  |.w_finf%,18,21,2|
000082e0  30 2c 32 35 35 2c 31 0d  37 32 19 dc 77 5f 66 69  |0,255,1.72..w_fi|
000082f0  6e 66 25 2c 31 34 2c 31  35 2c 31 33 2c 36 2c 31  |nf%,14,15,13,6,1|
00008300  0d 37 3c 1c dc 77 5f 63  73 69 7a 65 25 2c 35 36  |.7<..w_csize%,56|
00008310  2c 35 38 2c 35 37 2c 32  35 35 2c 31 0d 37 46 1c  |,58,57,255,1.7F.|
00008320  dc 77 5f 63 73 69 7a 65  25 2c 36 30 2c 36 32 2c  |.w_csize%,60,62,|
00008330  36 31 2c 32 35 35 2c 31  0d 37 50 19 dc 2d 31 2c  |61,255,1.7P..-1,|
00008340  2d 31 2c 2d 31 2c 2d 31  2c 2d 31 2c 2d 31 2c 2d  |-1,-1,-1,-1,-1,-|
00008350  31 0d 37 5a 04 0d 37 64  19 dd f2 63 75 72 73 6f  |1.7Z..7d...curso|
00008360  72 28 68 25 2c 69 25 2c  73 25 2c 6f 25 29 0d 37  |r(h%,i%,s%,o%).7|
00008370  6e 09 f7 8d 54 6c 78 0d  37 78 0d ea 57 25 2c 54  |n...Tlx.7x..W%,T|
00008380  24 2c 49 25 0d 37 82 0c  c8 95 57 25 3c 3e 2d 31  |$,I%.7....W%<>-1|
00008390  0d 37 8c 10 f3 57 25 3a  e7 57 25 3c 3e 68 25 8c  |.7...W%:.W%<>h%.|
000083a0  0d 37 96 1d e7 57 25 3c  3e 2d 31 3a f5 3a f3 57  |.7...W%<>-1:.:.W|
000083b0  25 3a fd 57 25 3c 2d 31  3a 57 25 3d 30 0d 37 a0  |%:.W%<-1:W%=0.7.|
000083c0  05 cc 0d 37 aa 05 f5 0d  37 b4 19 f3 57 25 3a e7  |...7....7...W%:.|
000083d0  57 25 3c 3e 2d 31 3a 54  24 2b 3d bd 28 57 25 29  |W%<>-1:T$+=.(W%)|
000083e0  0d 37 be 12 fd 57 25 3c  2d 31 3a 54 24 3d c0 54  |.7...W%<-1:T$=.T|
000083f0  24 29 0d 37 c8 3b e7 6b  65 79 25 3d 31 33 3a e7  |$).7.;.key%=13:.|
00008400  97 c2 54 24 29 3d 69 25  3a 6d 69 25 3d 94 28 57  |..T$)=i%:mi%=.(W|
00008410  25 2b 31 30 30 29 3a 6d  62 25 3d 31 3a 6d 68 25  |%+100):mb%=1:mh%|
00008420  3d 68 25 3a f2 73 65 6c  65 63 74 3a e1 0d 37 d2  |=h%:.select:..7.|
00008430  2f e7 73 25 3d 31 45 39  3a 73 25 3d a9 54 24 3a  |/.s%=1E9:s%=.T$:|
00008440  8b e7 73 25 3d 2d 31 45  39 3a 73 25 3d 31 3a 8b  |..s%=-1E9:s%=1:.|
00008450  73 25 2b 3d a7 54 24 2c  bd 69 25 29 0d 37 dc 16  |s%+=.T$,.i%).7..|
00008460  c8 95 73 25 3e a9 54 24  3a 73 25 2d 3d a9 54 24  |..s%>.T$:s%-=.T$|
00008470  3a ce 0d 37 e6 14 c8 95  73 25 3c 31 3a 73 25 2b  |:..7....s%<1:s%+|
00008480  3d a9 54 24 3a ce 0d 37  f0 0f 49 25 3d 97 c1 54  |=.T$:..7..I%=..T|
00008490  24 2c 73 25 29 0d 37 fa  23 e7 6f 25 3e a9 24 a4  |$,s%).7.#.o%>.$.|
000084a0  69 61 28 68 25 2c 49 25  29 6f 25 3d a9 24 a4 69  |ia(h%,I%)o%=.$.i|
000084b0  61 28 68 25 2c 49 25 29  0d 38 04 14 f2 73 65 74  |a(h%,I%).8...set|
000084c0  63 74 28 68 25 2c 49 25  2c 6f 25 29 0d 38 0e 05  |ct(h%,I%,o%).8..|
000084d0  cd 0d 38 18 05 ce 0d 38  22 05 e1 0d 38 2c 13 dc  |..8....8"...8,..|
000084e0  77 5f 73 61 76 65 25 2c  32 2c 2d 31 30 30 0d 38  |w_save%,2,-100.8|
000084f0  36 18 dc 77 5f 70 61 73  73 77 25 2c 35 2c 31 2c  |6..w_passw%,5,1,|
00008500  32 2c 2d 31 30 33 0d 38  40 15 dc 77 5f 70 61 73  |2,-103.8@..w_pas|
00008510  73 77 31 25 2c 31 2c 2d  31 30 33 0d 38 4a 22 dc  |sw1%,1,-103.8J".|
00008520  77 5f 66 69 6e 66 25 2c  35 2c 65 78 69 30 25 2c  |w_finf%,5,exi0%,|
00008530  31 33 2c 65 78 69 31 25  2c 2d 31 31 39 0d 38 54  |13,exi1%,-119.8T|
00008540  19 dc 77 5f 66 73 69 7a  65 25 2c 36 2c 37 2c 31  |..w_fsize%,6,7,1|
00008550  31 2c 2d 31 31 32 0d 38  5e 18 dc 77 5f 63 73 69  |1,-112.8^..w_csi|
00008560  7a 65 25 2c 36 31 2c 35  37 2c 2d 31 36 34 0d 38  |ze%,61,57,-164.8|
00008570  68 16 dc 77 5f 69 6e 64  65 78 25 2c 31 2c 33 2c  |h..w_index%,1,3,|
00008580  2d 31 31 31 0d 38 72 07  dc 2d 31 0d 38 7c 04 0d  |-111.8r..-1.8|..|
00008590  38 86 0e dd a4 6c 65 61  66 28 54 24 29 0d 38 90  |8....leaf(T$).8.|
000085a0  0a ea 49 25 2c 43 25 0d  38 9a 24 e7 28 28 a7 54  |..I%,C%.8.$.((.T|
000085b0  24 2c 22 2e 22 29 3d 30  29 80 28 a7 54 24 2c 22  |$,".")=0).(.T$,"|
000085c0  3a 22 29 3d 30 29 29 8c  3d 54 24 0d 38 a4 0c 49  |:")=0)).=T$.8..I|
000085d0  25 3d a9 28 54 24 29 0d  38 ae 05 f5 0d 38 b8 11  |%=.(T$).8....8..|
000085e0  43 25 3d 97 c1 54 24 2c  49 25 2c 31 29 0d 38 c2  |C%=..T$,I%,1).8.|
000085f0  09 49 25 2d 3d 31 0d 38  cc 1c fd 28 49 25 3c 3d  |.I%-=1.8...(I%<=|
00008600  30 84 43 25 3d 97 22 2e  22 84 43 25 3d 97 22 3a  |0.C%=.".".C%=.":|
00008610  22 29 0d 38 d6 1a e7 49  25 3e 30 8c 3d c2 54 24  |").8...I%>0.=.T$|
00008620  2c a9 28 54 24 29 2d 49  25 2d 31 29 0d 38 e0 07  |,.(T$)-I%-1).8..|
00008630  3d 54 24 0d 38 ea 04 0d  38 f4 33 dd f2 77 65 78  |=T$.8...8.3..wex|
00008640  74 28 68 25 2c 78 25 2c  79 25 29 3a 21 71 25 3d  |t(h%,x%,y%):!q%=|
00008650  30 3a 71 25 21 34 3d 2d  79 25 3a 71 25 21 38 3d  |0:q%!4=-y%:q%!8=|
00008660  78 25 3a 71 25 21 31 32  3d 30 0d 38 fe 27 c8 99  |x%:q%!12=0.8.'..|
00008670  22 57 69 6d 70 5f 53 65  74 45 78 74 65 6e 74 22  |"Wimp_SetExtent"|
00008680  2c 68 25 2c 71 25 3a f2  66 6f 72 63 65 28 68 25  |,h%,q%:.force(h%|
00008690  29 0d 39 08 15 f2 67 65  74 77 28 68 25 29 3a e7  |).9...getw(h%):.|
000086a0  6f 70 65 6e 25 8c 0d 39  12 1f e7 78 31 25 2d 78  |open%..9...x1%-x|
000086b0  30 25 3e 78 25 3a 78 25  2b 3d 78 30 25 3a 8b 78  |0%>x%:x%+=x0%:.x|
000086c0  25 3d 78 31 25 0d 39 1c  21 e7 79 31 25 2d 79 30  |%=x1%.9.!.y1%-y0|
000086d0  25 3e 79 25 3a 79 25 3d  79 31 25 2d 79 25 3a 8b  |%>y%:y%=y1%-y%:.|
000086e0  79 25 3d 79 30 25 0d 39  26 2e f2 6f 70 65 6e 28  |y%=y0%.9&..open(|
000086f0  68 25 2c 78 30 25 2c 79  25 2c 78 25 2c 79 31 25  |h%,x0%,y%,x%,y1%|
00008700  2c 73 63 78 25 2c 73 63  79 25 2c 62 68 61 6e 64  |,scx%,scy%,bhand|
00008710  6c 65 25 29 0d 39 30 05  cd 0d 39 3a 05 e1 0d 39  |le%).90...9:...9|
00008720  44 04 0d 39 4e 0d dd f2  70 72 6f 63 65 73 73 0d  |D..9N...process.|
00008730  39 58 2d e7 64 69 61 6c  72 65 61 73 6f 6e 25 3e  |9X-.dialreason%>|
00008740  3d 30 84 64 69 61 6c 6f  67 75 65 25 3e 3d 30 84  |=0.dialogue%>=0.|
00008750  61 63 6b 70 65 6e 64 69  6e 67 25 e1 0d 39 62 0f  |ackpending%..9b.|
00008760  c8 8e 70 72 6f 63 65 73  73 25 ca 0d 39 6c 11 c9  |..process%..9l..|
00008770  31 3a f2 63 68 65 63 6b  70 72 6f 74 0d 39 76 51  |1:.checkprot.9vQ|
00008780  c9 32 3a f2 73 74 6f 70  28 31 2c 22 50 6c 65 61  |.2:.stop(1,"Plea|
00008790  73 65 20 70 6c 61 63 65  20 6f 72 69 67 69 6e 61  |se place origina|
000087a0  6c 22 2c 22 4d 75 6c 74  69 53 74 6f 72 65 20 64  |l","MultiStore d|
000087b0  69 73 6b 20 69 6e 20 64  72 69 76 65 20 3a 30 22  |isk in drive :0"|
000087c0  29 3a 70 72 6f 63 65 73  73 25 2b 3d 31 0d 39 80  |):process%+=1.9.|
000087d0  11 c9 33 3a f2 63 68 65  63 6b 70 72 6f 74 0d 39  |..3:.checkprot.9|
000087e0  8a 11 c9 34 3a f2 73 74  61 72 74 6f 70 65 6e 0d  |...4:.startopen.|
000087f0  39 94 0f 7f 70 72 6f 63  65 73 73 25 3d 30 0d 39  |9...process%=0.9|
00008800  9e 05 cb 0d 39 a8 0d f2  6e 65 77 64 65 6c 61 79  |....9...newdelay|
00008810  0d 39 b2 05 e1 0d 39 bc  04 0d 39 c6 15 dd f2 64  |.9....9...9....d|
00008820  72 61 67 69 63 6f 6e 28  68 25 2c 69 25 29 0d 39  |ragicon(h%,i%).9|
00008830  d0 22 ea 78 25 2c 79 25  2c 79 73 25 2c 74 78 30  |.".x%,y%,ys%,tx0|
00008840  25 2c 74 79 30 25 2c 74  78 31 25 2c 74 79 31 25  |%,ty0%,tx1%,ty1%|
00008850  0d 39 da 2c f2 67 65 74  77 28 68 25 29 3a 79 73  |.9.,.getw(h%):ys|
00008860  25 3d 79 31 25 2d 79 30  25 3a 78 25 3d 62 78 25  |%=y1%-y0%:x%=bx%|
00008870  3a 79 25 3d 79 30 25 2d  73 63 79 25 0d 39 e4 31  |:y%=y0%-scy%.9.1|
00008880  f2 67 65 74 69 28 68 25  2c 69 25 29 3a 71 25 21  |.geti(h%,i%):q%!|
00008890  38 2b 3d 78 25 3a 71 25  21 31 32 2b 3d 79 25 2b  |8+=x%:q%!12+=y%+|
000088a0  79 73 25 3a 71 25 21 31  36 2b 3d 78 25 0d 39 ee  |ys%:q%!16+=x%.9.|
000088b0  30 71 25 21 32 30 2b 3d  79 25 2b 79 73 25 3a 71  |0q%!20+=y%+ys%:q|
000088c0  25 21 32 34 3d 30 3a 71  25 21 32 38 3d 30 3a 21  |%!24=0:q%!28=0:!|
000088d0  71 25 3d 30 3a f2 64 72  61 67 35 3a e1 0d 39 f8  |q%=0:.drag5:..9.|
000088e0  04 0d 3a 02 3c dd f2 64  72 61 67 35 3a f2 72 65  |..:.<..drag5:.re|
000088f0  61 64 70 6f 69 6e 74 65  72 3a f2 73 63 72 73 7a  |adpointer:.scrsz|
00008900  3a 74 78 30 25 3d 6d 78  25 2d 71 25 21 38 3a 74  |:tx0%=mx%-q%!8:t|
00008910  79 30 25 3d 6d 79 25 2d  71 25 21 31 32 0d 3a 0c  |y0%=my%-q%!12.:.|
00008920  3d 71 25 21 32 34 2d 3d  74 78 30 25 3a 71 25 21  |=q%!24-=tx0%:q%!|
00008930  32 38 2d 3d 74 79 30 25  3a 71 25 21 33 32 2b 3d  |28-=ty0%:q%!32+=|
00008940  71 25 21 31 36 2d 6d 78  25 3a 71 25 21 33 36 2b  |q%!16-mx%:q%!36+|
00008950  3d 71 25 21 32 30 2d 6d  79 25 0d 3a 16 21 71 25  |=q%!20-my%.:.!q%|
00008960  21 34 3d 35 3a c8 99 22  57 69 6d 70 5f 44 72 61  |!4=5:.."Wimp_Dra|
00008970  67 42 6f 78 22 2c 2c 71  25 3a e1 0d 3a 20 04 0d  |gBox",,q%:..: ..|
00008980  3a 2a 1a dd a4 6c 6f 77  65 72 28 54 24 29 3a e7  |:*...lower(T$):.|
00008990  54 24 3d 22 22 3a 3d 22  22 0d 3a 34 0a ea 49 25  |T$="":="".:4..I%|
000089a0  2c 43 25 0d 3a 3e 19 e3  49 25 3d 31 b8 a9 54 24  |,C%.:>..I%=1..T$|
000089b0  3a 43 25 3d 97 c1 54 24  2c 49 25 29 0d 3a 48 22  |:C%=..T$,I%).:H"|
000089c0  e7 43 25 3e 36 34 80 43  25 3c 39 31 c1 54 24 2c  |.C%>64.C%<91.T$,|
000089d0  49 25 2c 31 29 3d bd 28  43 25 2b 33 32 29 0d 3a  |I%,1)=.(C%+32).:|
000089e0  52 09 ed 3a 3d 54 24 0d  3a 5c 04 0d 3a 66 24 dd  |R..:=T$.:\..:f$.|
000089f0  f2 77 74 6f 66 28 54 25  29 3a ea 4a 25 3a 77 69  |.wtof(T%):.J%:wi|
00008a00  6e 64 25 3d 2d 31 3a 66  69 6c 65 25 3d 2d 31 0d  |nd%=-1:file%=-1.|
00008a10  3a 70 2d e3 4a 25 3d 30  b8 6d 61 78 77 25 3a e7  |:p-.J%=0.maxw%:.|
00008a20  77 25 28 4a 25 29 3d 54  25 3a 66 69 6c 65 25 3d  |w%(J%)=T%:file%=|
00008a30  30 3a 77 69 6e 64 25 3d  4a 25 3a e1 0d 3a 7a 07  |0:wind%=J%:..:z.|
00008a40  ed 3a e1 0d 3a 84 04 0d  3a 8e 0a dd f2 66 65 78  |.:..:...:....fex|
00008a50  74 0d 3a 98 0a ea 78 25  2c 79 25 0d 3a a2 31 79  |t.:...x%,y%.:.1y|
00008a60  25 3d a4 68 74 2a 6c 69  6e 65 67 61 70 25 2b 6d  |%=.ht*linegap%+m|
00008a70  61 72 67 69 6e 25 2a 32  3a e7 79 25 3c 70 61 6e  |argin%*2:.y%<pan|
00008a80  65 68 25 79 25 3d 70 61  6e 65 68 25 0d 3a ac 29  |eh%y%=paneh%.:.)|
00008a90  78 25 3d a4 77 64 2a 31  36 2b 6d 61 72 67 69 6e  |x%=.wd*16+margin|
00008aa0  25 2a 32 3a e7 78 25 3c  32 32 2a 31 36 78 25 3d  |%*2:.x%<22*16x%=|
00008ab0  32 32 2a 31 36 0d 3a b6  3e 21 71 25 3d 30 3a 71  |22*16.:.>!q%=0:q|
00008ac0  25 21 34 3d 2d 79 25 3a  71 25 21 38 3d 78 25 3a  |%!4=-y%:q%!8=x%:|
00008ad0  71 25 21 31 32 3d 30 3a  c8 99 22 57 69 6d 70 5f  |q%!12=0:.."Wimp_|
00008ae0  53 65 74 45 78 74 65 6e  74 22 2c 77 25 28 30 29  |SetExtent",w%(0)|
00008af0  2c 71 25 0d 3a c0 10 f2  67 65 74 77 28 77 25 28  |,q%.:...getw(w%(|
00008b00  30 29 29 0d 3a ca 1f e7  78 31 25 2d 78 30 25 3e  |0)).:...x1%-x0%>|
00008b10  78 25 3a 78 25 2b 3d 78  30 25 3a 8b 78 25 3d 78  |x%:x%+=x0%:.x%=x|
00008b20  31 25 0d 3a d4 21 e7 79  31 25 2d 79 30 25 3e 79  |1%.:.!.y1%-y0%>y|
00008b30  25 3a 79 25 3d 79 31 25  2d 79 25 3a 8b 79 25 3d  |%:y%=y1%-y%:.y%=|
00008b40  79 30 25 0d 3a de 31 f2  6f 70 65 6e 28 77 25 28  |y0%.:.1.open(w%(|
00008b50  30 29 2c 78 30 25 2c 79  25 2c 78 25 2c 79 31 25  |0),x0%,y%,x%,y1%|
00008b60  2c 73 63 78 25 2c 73 63  79 25 2c 62 68 61 6e 64  |,scx%,scy%,bhand|
00008b70  6c 65 25 29 0d 3a e8 05  e1 0d 3a f2 04 0d 3a fc  |le%).:....:...:.|
00008b80  22 dd a4 68 74 3a c8 99  73 77 69 25 2c 73 64 35  |"..ht:..swi%,sd5|
00008b90  37 5f 25 2c 22 68 65 69  67 68 74 22 b8 47 25 0d  |7_%,"height".G%.|
00008ba0  3b 06 21 dd a4 77 64 3a  c8 99 73 77 69 25 2c 73  |;.!..wd:..swi%,s|
00008bb0  64 35 37 5f 25 2c 22 77  69 64 74 68 22 b8 47 25  |d57_%,"width".G%|
00008bc0  0d 3b 10 07 3d 47 25 0d  3b 1a 04 0d 3b 24 35 dd  |.;..=G%.;...;$5.|
00008bd0  f2 75 70 64 63 68 72 3a  71 25 21 34 3d 6d 61 72  |.updchr:q%!4=mar|
00008be0  67 69 6e 25 2b a4 76 5f  28 31 32 29 2a 31 36 2d  |gin%+.v_(12)*16-|
00008bf0  31 36 3a 71 25 21 31 32  3d 71 25 21 34 2b 31 36  |16:q%!12=q%!4+16|
00008c00  0d 3b 2e 21 dd f2 75 70  64 6c 69 6e 65 3a 71 25  |.;.!..updline:q%|
00008c10  21 34 3d 2d 31 45 39 3a  71 25 21 31 32 3d 31 45  |!4=-1E9:q%!12=1E|
00008c20  39 0d 3b 38 30 71 25 21  38 3d 2d 6d 61 72 67 69  |9.;80q%!8=-margi|
00008c30  6e 25 2d 6c 69 6e 65 67  61 70 25 2a a4 76 5f 28  |n%-linegap%*.v_(|
00008c40  31 33 29 3a 71 25 21 31  36 3d 71 25 21 38 2b 33  |13):q%!16=q%!8+3|
00008c50  32 0d 3b 42 1a 21 71 25  3d 77 25 28 30 29 3a f2  |2.;B.!q%=w%(0):.|
00008c60  72 65 64 72 61 77 28 b9  29 3a e1 0d 3b 4c 04 0d  |redraw(.):..;L..|
00008c70  3b 56 0f dd f2 73 74 61  72 74 6f 70 65 6e 0d 3b  |;V...startopen.;|
00008c80  60 25 54 24 3d a4 41 72  66 56 61 72 28 22 4d 75  |`%T$=.ArfVar("Mu|
00008c90  6c 74 69 53 74 6f 72 65  24 46 75 6e 63 74 69 6f  |ltiStore$Functio|
00008ca0  6e 22 29 0d 3b 6a 0a c8  8e bb 54 24 ca 0d 3b 74  |n").;j....T$..;t|
00008cb0  10 c9 31 3a f2 6d 61 6b  65 66 6f 72 6d 0d 3b 7e  |..1:.makeform.;~|
00008cc0  05 cb 0d 3b 88 1e 2a 75  6e 73 65 74 20 4d 75 6c  |...;..*unset Mul|
00008cd0  74 69 53 74 6f 72 65 24  46 75 6e 63 74 69 6f 6e  |tiStore$Function|
00008ce0  0d 3b 92 11 70 72 6f 63  65 73 73 25 2b 3d 31 3a  |.;..process%+=1:|
00008cf0  e1 0d 3b 9c 04 0d 3b a6  0b dd f2 72 65 61 64 79  |..;...;....ready|
00008d00  0d 3b b0 05 e1 0d 3b ba  04 0d 3b c4 0d dd f2 63  |.;....;...;....c|
00008d10  6c 6f 73 65 6f 6b 0d 3b  ce 0f e7 66 6e 24 3c 3e  |loseok.;...fn$<>|
00008d20  75 6e 74 24 8c 0d 3b d8  27 f2 73 74 6f 70 28 32  |unt$..;.'.stop(2|
00008d30  2c 22 22 2c 22 43 6c 6f  73 65 20 66 69 6c 65 20  |,"","Close file |
00008d40  22 2b a4 66 69 6c 65 6e  61 6d 65 29 0d 3b e2 05  |"+.filename).;..|
00008d50  cc 0d 3b ec 41 77 5f 61  62 61 6e 64 25 3d a4 63  |..;.Aw_aband%=.c|
00008d60  72 77 69 6e 64 28 74 77  5f 61 62 61 6e 64 25 29  |rwind(tw_aband%)|
00008d70  3a f2 64 69 61 6c 6f 67  75 65 28 77 5f 61 62 61  |:.dialogue(w_aba|
00008d80  6e 64 25 29 3a 64 69 61  6c 72 65 61 73 6f 6e 25  |nd%):dialreason%|
00008d90  3d 31 0d 3b f6 05 cd 0d  3c 00 05 e1 0d 3c 0a 04  |=1.;....<....<..|
00008da0  0d 3c 14 0e dd a4 66 69  6c 65 6e 61 6d 65 0d 3c  |.<....filename.<|
00008db0  1e 14 c8 99 73 77 69 25  2c 73 74 61 74 5f 25 b8  |....swi%,stat_%.|
00008dc0  47 25 0d 3c 28 15 3d c2  a4 6c 65 61 66 28 24 73  |G%.<(.=..leaf($s|
00008dd0  64 25 29 2c 31 30 29 0d  3c 32 04 0d 3c 3c 0c dd  |d%),10).<2..<<..|
00008de0  f2 73 77 70 61 6e 65 0d  3c 46 22 f2 66 6c 67 78  |.swpane.<F".flgx|
00008df0  28 66 5f 70 61 6e 65 25  29 3a e7 a4 66 6c 67 28  |(f_pane%):..flg(|
00008e00  66 5f 70 61 6e 65 25 29  8c 0d 3c 50 10 f2 67 65  |f_pane%)..<P..ge|
00008e10  74 77 28 77 25 28 30 29  29 0d 3c 5a 33 f2 6f 70  |tw(w%(0)).<Z3.op|
00008e20  65 6e 28 77 25 28 30 29  2c 78 30 25 2c 79 30 25  |en(w%(0),x0%,y0%|
00008e30  2c 78 31 25 2c 79 31 25  2c 73 63 78 25 2c 73 63  |,x1%,y1%,scx%,sc|
00008e40  79 25 2c 62 68 61 6e 64  6c 65 25 29 0d 3c 64 05  |y%,bhandle%).<d.|
00008e50  cc 0d 3c 6e 10 f2 67 65  74 77 28 77 25 28 31 29  |..<n..getw(w%(1)|
00008e60  29 0d 3c 78 3b f2 6f 70  65 6e 28 77 25 28 31 29  |).<x;.open(w%(1)|
00008e70  2c 78 30 25 2c 79 31 25  2d 70 61 6e 65 68 25 2c  |,x0%,y1%-paneh%,|
00008e80  78 30 25 2b 70 61 6e 65  77 25 2c 79 31 25 2c 73  |x0%+panew%,y1%,s|
00008e90  63 78 25 2c 73 63 79 25  2c 2d 32 29 0d 3c 82 12  |cx%,scy%,-2).<..|
00008ea0  f2 63 6c 6f 73 65 77 28  77 25 28 31 29 29 0d 3c  |.closew(w%(1)).<|
00008eb0  8c 05 cd 0d 3c 96 05 e1  0d 3c a0 04 0d 3c aa 1f  |....<....<...<..|
00008ec0  dd f2 66 6f 72 63 65 63  61 72 64 3a f2 66 6f 72  |..forcecard:.for|
00008ed0  63 65 28 77 25 28 30 29  29 3a e1 0d 3c b4 04 0d  |ce(w%(0)):..<...|
00008ee0  3c be 24 dd a4 68 64 62  79 74 65 28 54 25 29 3a  |<.$..hdbyte(T%):|
00008ef0  c8 99 73 77 69 25 2c 73  64 31 33 5f 25 2c 54 25  |..swi%,sd13_%,T%|
00008f00  b8 47 25 0d 3c c8 07 3d  47 25 0d 3c d2 04 0d 3c  |.G%.<..=G%.<...<|
00008f10  dc 26 dd f2 66 69 65 6c  64 6c 69 73 74 3a e7 77  |.&..fieldlist:.w|
00008f20  25 28 32 29 3c 3d 30 3a  f2 6d 61 6b 65 66 6c 69  |%(2)<=0:.makefli|
00008f30  73 74 3a e1 0d 3c e6 19  f2 66 72 6f 6e 74 28 77  |st:..<...front(w|
00008f40  25 28 32 29 2c 2d 31 2c  2d 31 29 3a e1 0d 3c f0  |%(2),-1,-1):..<.|
00008f50  04 0d 3c fa 22 dd f2 69  6e 64 65 78 3a e7 77 25  |..<."..index:.w%|
00008f60  28 33 29 3c 3d 30 3a f2  6d 61 6b 65 69 6c 69 73  |(3)<=0:.makeilis|
00008f70  74 3a e1 0d 3d 04 19 f2  66 72 6f 6e 74 28 77 25  |t:..=...front(w%|
00008f80  28 33 29 2c 2d 31 2c 2d  31 29 3a e1 0d 3d 0e 04  |(3),-1,-1):..=..|
00008f90  0d 3d 18 0c dd f2 63 61  72 64 64 72 0d 3d 22 19  |.=....carddr.=".|
00008fa0  f2 77 74 6f 66 28 6d 68  25 29 3a e7 66 69 6c 65  |.wtof(mh%):.file|
00008fb0  25 3e 3d 30 8c 0d 3d 2c  0c c8 8e 77 69 6e 64 25  |%>=0..=,...wind%|
00008fc0  ca 0d 3d 36 05 cb 0d 3d  40 05 cc 0d 3d 4a 0a c8  |..=6...=@...=J..|
00008fd0  8e 6d 68 25 ca 0d 3d 54  25 7f 3a f2 73 61 76 65  |.mh%..=T%.:.save|
00008fe0  72 65 71 28 22 43 61 72  64 22 2c 26 46 46 46 2c  |req("Card",&FFF,|
00008ff0  a4 77 64 2a a4 68 74 2c  31 29 0d 3d 5e 05 cb 0d  |.wd*.ht,1).=^...|
00009000  3d 68 05 cd 0d 3d 72 05  e1 0d 3d 7c 04 0d 3d 86  |=h...=r...=|..=.|
00009010  0d dd f2 63 61 72 64 64  72 31 0d 3d 90 2b 74 78  |...carddr1.=.+tx|
00009020  30 25 3d 21 71 25 3a 74  78 31 25 3d 71 25 21 38  |0%=!q%:tx1%=q%!8|
00009030  3a 74 79 30 25 3d 71 25  21 34 3a 74 79 31 25 3d  |:ty0%=q%!4:ty1%=|
00009040  71 25 21 31 32 0d 3d 9a  34 e7 94 28 74 78 30 25  |q%!12.=.4..(tx0%|
00009050  2d 74 78 31 25 29 3c 31  30 80 94 28 74 79 30 25  |-tx1%)<10..(ty0%|
00009060  2d 74 79 31 25 29 3c 31  30 3a 6d 62 25 3d 31 3a  |-ty1%)<10:mb%=1:|
00009070  f2 73 65 6c 65 63 74 3a  e1 0d 3d a4 3b f2 63 78  |.select:..=.;.cx|
00009080  63 6f 6e 76 28 74 78 30  25 29 3a f2 63 78 63 6f  |conv(tx0%):.cxco|
00009090  6e 76 28 74 78 31 25 29  3a f2 63 79 63 6f 6e 76  |nv(tx1%):.cyconv|
000090a0  28 74 79 30 25 29 3a f2  63 79 63 6f 6e 76 28 74  |(ty0%):.cyconv(t|
000090b0  79 31 25 29 0d 3d ae 1a  e7 74 78 30 25 3e 74 78  |y1%).=...tx0%>tx|
000090c0  31 25 3a c8 94 74 78 30  25 2c 74 78 31 25 0d 3d  |1%:..tx0%,tx1%.=|
000090d0  b8 1a e7 74 79 30 25 3e  74 79 31 25 3a c8 94 74  |...ty0%>ty1%:..t|
000090e0  79 30 25 2c 74 79 31 25  0d 3d c2 34 f2 73 61 76  |y0%,ty1%.=.4.sav|
000090f0  65 77 28 66 5f 63 64 24  2c 26 46 46 46 2c 32 2c  |ew(f_cd$,&FFF,2,|
00009100  28 74 78 31 25 2d 74 78  30 25 2b 31 29 2a 28 74  |(tx1%-tx0%+1)*(t|
00009110  79 31 25 2d 74 79 30 25  2b 31 29 29 0d 3d cc 05  |y1%-ty0%+1)).=..|
00009120  e1 0d 3d d6 04 0d 3d e0  14 dd f2 66 69 65 6c 64  |..=...=....field|
00009130  64 72 3a ea 58 25 2c 59  25 0d 3d ea 19 f2 77 74  |dr:.X%,Y%.=...wt|
00009140  6f 66 28 6d 68 25 29 3a  e7 66 69 6c 65 25 3e 3d  |of(mh%):.file%>=|
00009150  30 8c 0d 3d f4 0c c8 8e  77 69 6e 64 25 ca 0d 3d  |0..=....wind%..=|
00009160  fe 06 c9 30 0d 3e 08 3d  58 25 3d 6d 78 25 3a 59  |...0.>.=X%=mx%:Y|
00009170  25 3d 6d 79 25 3a f2 63  78 63 6f 6e 76 28 58 25  |%=my%:.cxconv(X%|
00009180  29 3a f2 63 79 63 6f 6e  76 28 59 25 29 3a c8 99  |):.cyconv(Y%):..|
00009190  73 77 69 25 2c 73 64 34  34 5f 25 2c 58 25 2c 59  |swi%,sd44_%,X%,Y|
000091a0  25 0d 3e 12 1d f2 6d 61  74 63 68 63 74 3a c8 99  |%.>...matchct:..|
000091b0  73 77 69 25 2c 73 64 37  30 5f 25 b8 47 25 0d 3e  |swi%,sd70_%.G%.>|
000091c0  1c 28 e7 47 25 3e 30 80  47 25 3c 3e 6d 65 6e 75  |.(.G%>0.G%<>menu|
000091d0  66 69 65 6c 64 25 f2 63  6f 70 79 66 69 65 6c 64  |field%.copyfield|
000091e0  28 47 25 29 3a e1 0d 3e  26 40 74 78 30 25 3d 6d  |(G%):..>&@tx0%=m|
000091f0  78 25 2d 74 78 30 25 2b  38 3a 74 79 30 25 3d 6d  |x%-tx0%+8:ty0%=m|
00009200  79 25 2d 74 79 30 25 2b  31 36 3a f2 63 78 63 6f  |y%-ty0%+16:.cxco|
00009210  6e 76 28 74 78 30 25 29  3a f2 63 79 63 6f 6e 76  |nv(tx0%):.cyconv|
00009220  28 74 79 30 25 29 0d 3e  30 4a 58 25 3d 74 78 30  |(ty0%).>0JX%=tx0|
00009230  25 3a 59 25 3d 74 79 30  25 3a f2 66 6f 72 63 65  |%:Y%=ty0%:.force|
00009240  66 69 65 6c 64 28 6d 65  6e 75 66 69 65 6c 64 25  |field(menufield%|
00009250  29 3a c8 99 73 77 69 25  2c 73 64 32 31 5f 25 2c  |):..swi%,sd21_%,|
00009260  58 25 2c 59 25 2c 6d 65  6e 75 66 69 65 6c 64 25  |X%,Y%,menufield%|
00009270  0d 3e 3a 25 f2 75 70 64  61 74 65 66 69 65 6c 64  |.>:%.updatefield|
00009280  28 6d 65 6e 75 66 69 65  6c 64 25 29 3a f2 6d 61  |(menufield%):.ma|
00009290  74 63 68 63 74 0d 3e 44  3d c9 32 3a f2 79 63 6f  |tchct.>D=.2:.yco|
000092a0  6e 76 28 6d 79 25 2c a4  76 5f 28 37 29 2c 6d 68  |nv(my%,.v_(7),mh|
000092b0  25 29 3a c8 99 73 77 69  25 2c 66 6e 75 6d 62 65  |%):..swi%,fnumbe|
000092c0  72 5f 25 2c 6d 79 25 2c  6d 65 6e 75 66 69 65 6c  |r_%,my%,menufiel|
000092d0  64 25 0d 3e 4e 18 f2 66  6f 72 63 65 28 6d 68 25  |d%.>N..force(mh%|
000092e0  29 3a f2 6d 61 74 63 68  63 74 0d 3e 58 1c c9 33  |):.matchct.>X..3|
000092f0  3a f2 6e 65 77 69 6e 64  65 78 28 6d 65 6e 75 66  |:.newindex(menuf|
00009300  69 65 6c 64 25 29 0d 3e  62 05 cb 0d 3e 6c 05 cc  |ield%).>b...>l..|
00009310  0d 3e 76 46 e7 6d 68 25  3d 77 5f 69 6e 64 65 78  |.>vF.mh%=w_index|
00009320  25 80 6d 69 25 3d 33 3a  f2 73 65 74 69 28 6d 68  |%.mi%=3:.seti(mh|
00009330  25 2c 33 2c a4 61 64 64  66 69 65 6c 64 28 24 a4  |%,3,.addfield($.|
00009340  69 61 28 6d 68 25 2c 33  29 2c 6d 65 6e 75 66 69  |ia(mh%,3),menufi|
00009350  65 6c 64 25 29 29 0d 3e  80 05 cd 0d 3e 8a 05 e1  |eld%)).>....>...|
00009360  0d 3e 94 04 0d 3e 9e 19  dd f2 74 65 78 74 64 72  |.>...>....textdr|
00009370  3a ea 58 25 2c 59 25 2c  49 25 2c 54 24 0d 3e a8  |:.X%,Y%,I%,T$.>.|
00009380  19 f2 77 74 6f 66 28 6d  68 25 29 3a e7 66 69 6c  |..wtof(mh%):.fil|
00009390  65 25 3e 3d 30 8c 0d 3e  b2 0c c8 8e 77 69 6e 64  |e%>=0..>....wind|
000093a0  25 ca 0d 3e bc 06 c9 30  0d 3e c6 40 74 78 30 25  |%..>...0.>.@tx0%|
000093b0  3d 6d 78 25 2d 74 78 30  25 2b 38 3a 74 79 30 25  |=mx%-tx0%+8:ty0%|
000093c0  3d 6d 79 25 2d 74 79 30  25 2b 31 36 3a f2 63 78  |=my%-ty0%+16:.cx|
000093d0  63 6f 6e 76 28 74 78 30  25 29 3a f2 63 79 63 6f  |conv(tx0%):.cyco|
000093e0  6e 76 28 74 79 30 25 29  0d 3e d0 2b 58 25 3d a4  |nv(ty0%).>.+X%=.|
000093f0  76 5f 28 31 32 29 3a 59  25 3d a4 76 5f 28 31 33  |v_(12):Y%=.v_(13|
00009400  29 3a 24 73 64 25 3d c4  a9 74 65 78 74 24 2c 22  |):$sd%=..text$,"|
00009410  20 22 29 0d 3e da 22 c8  99 73 77 69 25 2c 74 65  | ").>."..swi%,te|
00009420  78 74 5f 25 2c 24 73 64  25 2c 74 78 74 78 25 2c  |xt_%,$sd%,txtx%,|
00009430  74 78 74 79 25 0d 3e e4  2a f2 75 70 64 6c 69 6e  |txty%.>.*.updlin|
00009440  65 3a c8 99 73 77 69 25  2c 74 65 78 74 5f 25 2c  |e:..swi%,text_%,|
00009450  74 65 78 74 24 2c 74 78  30 25 2c 74 79 30 25 0d  |text$,tx0%,ty0%.|
00009460  3e ee 15 c8 99 73 77 69  25 2c 73 64 33 38 5f 25  |>....swi%,sd38_%|
00009470  2c 32 35 35 0d 3e f8 15  f2 75 70 64 6c 69 6e 65  |,255.>...updline|
00009480  3a f2 6d 61 74 63 68 63  74 0d 3f 02 05 cb 0d 3f  |:.matchct.?....?|
00009490  0c 05 cc 0d 3f 16 05 cd  0d 3f 20 05 e1 0d 3f 2a  |....?....? ...?*|
000094a0  04 0d 3f 34 21 dd f2 73  61 76 65 64 61 74 61 3a  |..?4!..savedata:|
000094b0  e7 71 25 21 31 32 3c 3e  73 61 76 65 72 65 66 25  |.q%!12<>saveref%|
000094c0  3a e1 0d 3f 3e 15 66 69  6c 65 24 3d a4 7a 74 73  |:..?>.file$=.zts|
000094d0  28 71 25 2b 34 34 29 0d  3f 48 3e e7 73 61 76 65  |(q%+44).?H>.save|
000094e0  72 65 61 73 6f 6e 25 3d  31 30 30 3a 6d 69 25 3d  |reason%=100:mi%=|
000094f0  31 32 3a f2 73 65 74 69  28 77 5f 66 73 69 7a 65  |12:.seti(w_fsize|
00009500  25 2c 31 31 2c 66 69 6c  65 24 29 3a f2 6d 66 73  |%,11,file$):.mfs|
00009510  69 7a 65 3a e1 0d 3f 52  10 f2 73 61 76 65 64 61  |ize:..?R..saveda|
00009520  74 61 31 3a e1 0d 3f 5c  04 0d 3f 66 20 dd f2 73  |ta1:..?\..?f ..s|
00009530  61 76 65 64 61 74 61 31  3a f2 63 6c 6f 73 65 77  |avedata1:.closew|
00009540  28 77 5f 73 61 76 65 25  29 0d 3f 70 2c 6f 75 74  |(w_save%).?p,out|
00009550  66 69 6c 65 25 3d 30 3a  6f 75 74 66 69 6c 65 25  |file%=0:outfile%|
00009560  3d ae 66 69 6c 65 24 3a  e7 6f 75 74 66 69 6c 65  |=.file$:.outfile|
00009570  25 3d 30 3a e1 0d 3f 7a  06 ea 85 0d 3f 84 1d ee  |%=0:..?z....?...|
00009580  85 ea 3a f7 85 3a d9 23  6f 75 74 66 69 6c 65 25  |..:..:.#outfile%|
00009590  3a f2 65 72 72 28 30 29  0d 3f 8e 12 c8 8e 73 61  |:.err(0).?....sa|
000095a0  76 65 72 65 61 73 6f 6e  25 ca 0d 3f 98 1e c9 31  |vereason%..?...1|
000095b0  3a f2 73 61 76 65 63 61  72 64 3a f2 6e 65 77 66  |:.savecard:.newf|
000095c0  6e 28 66 5f 63 64 24 29  0d 3f a2 1f c9 32 3a f2  |n(f_cd$).?...2:.|
000095d0  73 61 76 65 63 61 72 64  31 3a f2 6e 65 77 66 6e  |savecard1:.newfn|
000095e0  28 66 5f 63 64 24 29 0d  3f ac 1f c9 33 3a f2 73  |(f_cd$).?...3:.s|
000095f0  61 76 65 66 6c 69 73 74  3a f2 6e 65 77 66 6e 28  |aveflist:.newfn(|
00009600  66 5f 66 6c 24 29 0d 3f  b6 05 cb 0d 3f c0 11 f7  |f_fl$).?....?...|
00009610  85 3a d9 23 6f 75 74 66  69 6c 65 25 0d 3f ca 2f  |.:.#outfile%.?./|
00009620  ff 22 73 65 74 74 79 70  65 20 22 2b 66 69 6c 65  |."settype "+file|
00009630  24 2b 22 20 22 2b c3 7e  73 61 76 65 74 79 70 65  |$+" "+.~savetype|
00009640  25 3a f2 6c 6f 61 64 6d  65 73 73 0d 3f d4 1a 73  |%:.loadmess.?..s|
00009650  61 76 65 72 65 61 73 6f  6e 25 3d 2d 31 3a f2 6e  |avereason%=-1:.n|
00009660  6f 6d 65 6e 75 0d 3f de  05 e1 0d 3f e8 04 0d 3f  |omenu.?....?...?|
00009670  f2 12 dd f2 73 61 76 65  63 61 72 64 3a ea 49 25  |....savecard:.I%|
00009680  0d 3f fc 30 ea 85 3a ee  85 ea 3a f7 85 3a c8 99  |.?.0..:...:..:..|
00009690  73 77 69 25 2c 73 64 33  38 5f 25 2c 32 35 35 3a  |swi%,sd38_%,255:|
000096a0  f2 6d 61 74 63 68 63 74  3a f2 65 72 72 28 30 29  |.matchct:.err(0)|
000096b0  0d 40 06 1b c8 99 73 77  69 25 2c 73 64 33 38 5f  |.@....swi%,sd38_|
000096c0  25 2c 66 69 65 6c 64 63  68 72 25 0d 40 10 1f e3  |%,fieldchr%.@...|
000096d0  49 25 3d 31 b8 a4 68 74  3a c8 99 73 77 69 25 2c  |I%=1..ht:..swi%,|
000096e0  67 6c 69 6e 65 5f 25 2c  49 25 0d 40 1a 25 f2 64  |gline_%,I%.@.%.d|
000096f0  70 72 69 6e 74 28 24 73  64 25 29 3a ed 3a c8 99  |print($sd%):.:..|
00009700  73 77 69 25 2c 73 64 33  38 5f 25 2c 32 35 35 0d  |swi%,sd38_%,255.|
00009710  40 24 0e f2 6d 61 74 63  68 63 74 3a e1 0d 40 2e  |@$..matchct:..@.|
00009720  04 0d 40 38 13 dd f2 73  61 76 65 63 61 72 64 31  |..@8...savecard1|
00009730  3a ea 49 25 0d 40 42 30  ea 85 3a ee 85 ea 3a f7  |:.I%.@B0..:...:.|
00009740  85 3a c8 99 73 77 69 25  2c 73 64 33 38 5f 25 2c  |.:..swi%,sd38_%,|
00009750  32 35 35 3a f2 6d 61 74  63 68 63 74 3a f2 65 72  |255:.matchct:.er|
00009760  72 28 30 29 0d 40 4c 1b  c8 99 73 77 69 25 2c 73  |r(0).@L...swi%,s|
00009770  64 33 38 5f 25 2c 66 69  65 6c 64 63 68 72 25 0d  |d38_%,fieldchr%.|
00009780  40 56 23 e3 49 25 3d 74  79 30 25 b8 74 79 31 25  |@V#.I%=ty0%.ty1%|
00009790  3a c8 99 73 77 69 25 2c  67 6c 69 6e 65 5f 25 2c  |:..swi%,gline_%,|
000097a0  49 25 0d 40 60 38 f2 64  70 72 69 6e 74 28 c1 24  |I%.@`8.dprint(.$|
000097b0  73 64 25 2c 74 78 30 25  2c 74 78 31 25 2d 74 78  |sd%,tx0%,tx1%-tx|
000097c0  30 25 2b 31 29 29 3a ed  3a c8 99 73 77 69 25 2c  |0%+1)):.:..swi%,|
000097d0  73 64 33 38 5f 25 2c 32  35 35 0d 40 6a 0e f2 6d  |sd38_%,255.@j..m|
000097e0  61 74 63 68 63 74 3a e1  0d 40 74 04 0d 40 7e 13  |atchct:..@t..@~.|
000097f0  dd f2 73 61 76 65 66 6c  69 73 74 3a ea 49 25 0d  |..saveflist:.I%.|
00009800  40 88 31 e7 a4 76 5f 28  37 29 3d 30 3a f2 64 70  |@.1..v_(7)=0:.dp|
00009810  72 69 6e 74 28 22 4e 6f  20 66 69 65 6c 64 73 20  |rint("No fields |
00009820  69 6e 20 74 68 69 73 20  66 69 6c 65 22 29 3a e1  |in this file"):.|
00009830  0d 40 92 27 e3 49 25 3d  31 b8 a4 76 5f 28 37 29  |.@.'.I%=1..v_(7)|
00009840  3a c8 99 73 77 69 25 2c  73 64 31 37 5f 25 2c 31  |:..swi%,sd17_%,1|
00009850  31 2c 49 25 b8 47 25 0d  40 9c 17 f2 64 70 72 69  |1,I%.G%.@...dpri|
00009860  6e 74 28 c0 24 73 64 25  29 29 3a ed 3a e1 0d 40  |nt(.$sd%)):.:..@|
00009870  a6 04 0d 40 b0 31 dd a4  6d 6f 75 73 65 69 3a ea  |...@.1..mousei:.|
00009880  59 25 2c 54 25 3a 59 25  3d 6d 79 25 3a 54 25 3d  |Y%,T%:Y%=my%:T%=|
00009890  a4 6e 69 6e 64 69 63 65  73 3a e7 54 25 3c 3d 30  |.nindices:.T%<=0|
000098a0  3a 3d 30 0d 40 ba 19 f2  79 63 6f 6e 76 28 59 25  |:=0.@...yconv(Y%|
000098b0  2c 54 25 2c 6d 68 25 29  3a 3d 59 25 0d 40 c4 04  |,T%,mh%):=Y%.@..|
000098c0  0d 40 ce 24 dd f2 64 72  61 67 66 69 65 6c 64 3a  |.@.$..dragfield:|
000098d0  f2 66 69 65 6c 64 73 7a  28 6d 65 6e 75 66 69 65  |.fieldsz(menufie|
000098e0  6c 64 25 29 0d 40 d8 39  21 71 25 3d 77 25 28 30  |ld%).@.9!q%=w%(0|
000098f0  29 3a 71 25 21 38 3d 62  78 25 2b 74 78 30 25 3a  |):q%!8=bx%+tx0%:|
00009900  71 25 21 31 32 3d 62 79  25 2b 74 79 30 25 3a 71  |q%!12=by%+ty0%:q|
00009910  25 21 31 36 3d 62 78 25  2b 74 78 31 25 0d 40 e2  |%!16=bx%+tx1%.@.|
00009920  32 71 25 21 32 30 3d 62  79 25 2b 74 79 31 25 3a  |2q%!20=by%+ty1%:|
00009930  71 25 21 32 34 3d 30 3a  71 25 21 32 38 3d 30 3a  |q%!24=0:q%!28=0:|
00009940  71 25 21 34 3d 35 3a f2  64 72 61 67 35 3a e1 0d  |q%!4=5:.drag5:..|
00009950  40 ec 04 0d 40 f6 35 dd  f2 64 72 61 67 74 65 78  |@...@.5..dragtex|
00009960  74 3a ea 4c 25 2c 78 25  2c 79 25 2c 54 24 2c 54  |t:.L%,x%,y%,T$,T|
00009970  25 3a f2 67 65 74 77 28  77 25 28 30 29 29 3a 21  |%:.getw(w%(0)):!|
00009980  71 25 3d 77 25 28 30 29  0d 41 00 39 58 25 3d a4  |q%=w%(0).A.9X%=.|
00009990  76 5f 28 31 32 29 3a 59  25 3d a4 76 5f 28 31 33  |v_(12):Y%=.v_(13|
000099a0  29 3a 4c 25 3d 2d 31 3a  74 78 30 25 3d 58 25 3a  |):L%=-1:tx0%=X%:|
000099b0  c8 99 73 77 69 25 2c 67  6c 69 6e 65 5f 25 2c 59  |..swi%,gline_%,Y|
000099c0  25 0d 41 0a 34 47 25 3d  3f 28 73 64 25 2b 74 78  |%.A.4G%=?(sd%+tx|
000099d0  30 25 2d 31 29 3a c8 95  74 78 30 25 3e 31 80 ac  |0%-1):..tx0%>1..|
000099e0  28 47 25 3d 33 32 80 4c  25 3d 33 32 29 80 47 25  |(G%=32.L%=32).G%|
000099f0  3c 3e 32 35 35 0d 41 14  43 74 78 30 25 2d 3d 31  |<>255.A.Ctx0%-=1|
00009a00  3a 4c 25 3d 47 25 3a 47  25 3d 3f 28 73 64 25 2b  |:L%=G%:G%=?(sd%+|
00009a10  74 78 30 25 2d 31 29 3a  ce 3a 74 78 30 25 2d 3d  |tx0%-1):.:tx0%-=|
00009a20  28 47 25 3d 33 32 29 2b  28 4c 25 3d 33 32 29 2b  |(G%=32)+(L%=32)+|
00009a30  28 47 25 3d 32 35 35 29  0d 41 1e 22 4c 25 3d 2d  |(G%=255).A."L%=-|
00009a40  31 3a 74 78 31 25 3d 58  25 3a 47 25 3d 3f 28 73  |1:tx1%=X%:G%=?(s|
00009a50  64 25 2b 74 78 31 25 2d  31 29 0d 41 28 28 c8 95  |d%+tx1%-1).A((..|
00009a60  74 78 31 25 3c a4 76 5f  28 36 29 80 ac 28 47 25  |tx1%<.v_(6)..(G%|
00009a70  3d 33 32 80 4c 25 3d 33  32 29 80 47 25 3c 3e 32  |=32.L%=32).G%<>2|
00009a80  35 35 0d 41 32 43 74 78  31 25 2b 3d 31 3a 4c 25  |55.A2Ctx1%+=1:L%|
00009a90  3d 47 25 3a 47 25 3d 3f  28 73 64 25 2b 74 78 31  |=G%:G%=?(sd%+tx1|
00009aa0  25 2d 31 29 3a ce 3a 74  78 31 25 2b 3d 28 47 25  |%-1):.:tx1%+=(G%|
00009ab0  3d 33 32 29 2b 28 4c 25  3d 33 32 29 2b 28 47 25  |=32)+(L%=32)+(G%|
00009ac0  3d 32 35 35 29 0d 41 3c  3e 47 25 3d 3f 28 73 64  |=255).A<>G%=?(sd|
00009ad0  25 2b 58 25 2d 31 29 3a  e7 74 78 30 25 3e 74 78  |%+X%-1):.tx0%>tx|
00009ae0  31 25 84 74 78 30 25 3d  74 78 31 25 80 47 25 3d  |1%.tx0%=tx1%.G%=|
00009af0  33 32 3a 64 72 61 67 72  65 61 73 6f 6e 25 3d 2d  |32:dragreason%=-|
00009b00  31 3a e1 0d 41 46 17 c8  99 73 77 69 25 2c 73 64  |1:..AF...swi%,sd|
00009b10  34 34 5f 25 2c 58 25 2c  59 25 0d 41 50 35 74 65  |44_%,X%,Y%.AP5te|
00009b20  78 74 24 3d c1 24 73 64  25 2c 74 78 30 25 2c 74  |xt$=.$sd%,tx0%,t|
00009b30  78 31 25 2d 74 78 30 25  2b 31 29 3a 74 78 74 78  |x1%-tx0%+1):txtx|
00009b40  25 3d 74 78 30 25 3a 74  78 74 79 25 3d 59 25 0d  |%=tx0%:txty%=Y%.|
00009b50  41 5a 30 74 78 30 25 3d  6d 61 72 67 69 6e 25 2b  |AZ0tx0%=margin%+|
00009b60  31 36 2a 74 78 30 25 2d  31 36 3a 74 78 31 25 3d  |16*tx0%-16:tx1%=|
00009b70  6d 61 72 67 69 6e 25 2b  31 36 2a 74 78 31 25 0d  |margin%+16*tx1%.|
00009b80  41 64 37 74 79 30 25 3d  2d 6d 61 72 67 69 6e 25  |Ad7ty0%=-margin%|
00009b90  2d 6c 69 6e 65 67 61 70  25 2a a4 76 5f 28 31 33  |-linegap%*.v_(13|
00009ba0  29 3a 74 79 31 25 3d 74  79 30 25 2b 6c 69 6e 65  |):ty1%=ty0%+line|
00009bb0  67 61 70 25 2b 34 0d 41  6e 2f 71 25 21 38 3d 62  |gap%+4.An/q%!8=b|
00009bc0  78 25 2b 74 78 30 25 3a  71 25 21 31 32 3d 62 79  |x%+tx0%:q%!12=by|
00009bd0  25 2b 74 79 30 25 3a 71  25 21 31 36 3d 62 78 25  |%+ty0%:q%!16=bx%|
00009be0  2b 74 78 31 25 0d 41 78  32 71 25 21 32 30 3d 62  |+tx1%.Ax2q%!20=b|
00009bf0  79 25 2b 74 79 31 25 3a  71 25 21 32 34 3d 30 3a  |y%+ty1%:q%!24=0:|
00009c00  71 25 21 32 38 3d 30 3a  71 25 21 34 3d 35 3a f2  |q%!28=0:q%!4=5:.|
00009c10  64 72 61 67 35 3a e1 0d  41 82 04 0d 41 8c 14 dd  |drag5:..A...A...|
00009c20  f2 64 72 61 67 66 69 65  6c 64 31 3a ea 59 25 0d  |.dragfield1:.Y%.|
00009c30  41 96 3c f2 67 65 74 77  28 77 25 28 32 29 29 3a  |A.<.getw(w%(2)):|
00009c40  59 25 3d 62 79 25 2d 6d  65 6e 75 66 69 65 6c 64  |Y%=by%-menufield|
00009c50  25 2a 6c 69 6e 65 67 61  70 25 2d 6d 61 72 67 69  |%*linegap%-margi|
00009c60  6e 25 2b 6c 69 6e 65 67  61 70 25 0d 41 a0 41 71  |n%+linegap%.A.Aq|
00009c70  25 21 38 3d 62 78 25 2b  6d 61 72 67 69 6e 25 3a  |%!8=bx%+margin%:|
00009c80  21 71 25 3d 77 25 28 32  29 3a 71 25 21 31 32 3d  |!q%=w%(2):q%!12=|
00009c90  59 25 2d 33 32 3a 71 25  21 31 36 3d 62 78 25 2b  |Y%-32:q%!16=bx%+|
00009ca0  65 78 31 25 2d 6d 61 72  67 69 6e 25 0d 41 aa 2c  |ex1%-margin%.A.,|
00009cb0  71 25 21 32 30 3d 59 25  3a 71 25 21 32 34 3d 30  |q%!20=Y%:q%!24=0|
00009cc0  3a 71 25 21 32 38 3d 30  3a 71 25 21 34 3d 35 3a  |:q%!28=0:q%!4=5:|
00009cd0  f2 64 72 61 67 35 3a e1  0d 41 b4 04 0d 41 be 1b  |.drag5:..A...A..|
00009ce0  dd f2 64 72 61 67 63 61  72 64 3a e7 a4 64 69 61  |..dragcard:..dia|
00009cf0  6c 6f 67 75 65 3a e1 0d  41 c8 18 21 71 25 3d 77  |logue:..A..!q%=w|
00009d00  25 28 30 29 3a f2 67 65  74 77 28 21 71 25 29 0d  |%(0):.getw(!q%).|
00009d10  41 d2 2a 71 25 21 38 3d  6d 78 25 3a 71 25 21 31  |A.*q%!8=mx%:q%!1|
00009d20  32 3d 6d 79 25 3a 71 25  21 31 36 3d 6d 78 25 3a  |2=my%:q%!16=mx%:|
00009d30  71 25 21 32 30 3d 6d 79  25 0d 41 dc 3e 71 25 21  |q%!20=my%.A.>q%!|
00009d40  32 34 3d 62 78 25 2b 65  78 30 25 2b 6d 61 72 67  |24=bx%+ex0%+marg|
00009d50  69 6e 25 3a 71 25 21 32  38 3d 62 79 25 2b 65 79  |in%:q%!28=by%+ey|
00009d60  31 25 2d 6d 61 72 67 69  6e 25 2d a4 68 74 2a 6c  |1%-margin%-.ht*l|
00009d70  69 6e 65 67 61 70 25 0d  41 e6 21 71 25 21 33 32  |inegap%.A.!q%!32|
00009d80  3d 62 78 25 2b 65 78 30  25 2b 6d 61 72 67 69 6e  |=bx%+ex0%+margin|
00009d90  25 2b a4 77 64 2a 31 36  0d 41 f0 36 71 25 21 33  |%+.wd*16.A.6q%!3|
00009da0  36 3d 62 79 25 2b 65 79  31 25 2d 6d 61 72 67 69  |6=by%+ey1%-margi|
00009db0  6e 25 3a 71 25 21 34 3d  36 3a c8 99 22 57 69 6d  |n%:q%!4=6:.."Wim|
00009dc0  70 5f 44 72 61 67 42 6f  78 22 2c 2c 71 25 0d 41  |p_DragBox",,q%.A|
00009dd0  fa 05 e1 0d 42 04 04 0d  42 0e 29 dd f2 63 78 63  |....B...B.)..cxc|
00009de0  6f 6e 76 28 f8 20 58 25  29 3a f2 78 63 6f 6e 76  |onv(. X%):.xconv|
00009df0  28 58 25 2c a4 77 64 2c  77 25 28 30 29 29 3a e1  |(X%,.wd,w%(0)):.|
00009e00  0d 42 18 29 dd f2 63 79  63 6f 6e 76 28 f8 20 59  |.B.)..cyconv(. Y|
00009e10  25 29 3a f2 79 63 6f 6e  76 28 59 25 2c a4 68 74  |%):.yconv(Y%,.ht|
00009e20  2c 77 25 28 30 29 29 3a  e1 0d 42 22 04 0d 42 2c  |,w%(0)):..B"..B,|
00009e30  21 dd f2 79 63 6f 6e 76  28 f8 20 59 25 2c 54 25  |!..yconv(. Y%,T%|
00009e40  2c 68 25 29 3a f2 67 65  74 77 28 68 25 29 0d 42  |,h%):.getw(h%).B|
00009e50  36 38 59 25 3d 28 62 79  25 2d 59 25 2d 6d 61 72  |68Y%=(by%-Y%-mar|
00009e60  67 69 6e 25 29 81 6c 69  6e 65 67 61 70 25 2b 31  |gin%).linegap%+1|
00009e70  3a e7 59 25 3c 31 59 25  3d 31 8b e7 59 25 3e 54  |:.Y%<1Y%=1..Y%>T|
00009e80  25 59 25 3d 54 25 0d 42  40 05 e1 0d 42 4a 04 0d  |%Y%=T%.B@...BJ..|
00009e90  42 54 21 dd f2 78 63 6f  6e 76 28 f8 20 58 25 2c  |BT!..xconv(. X%,|
00009ea0  54 25 2c 68 25 29 3a f2  67 65 74 77 28 68 25 29  |T%,h%):.getw(h%)|
00009eb0  0d 42 5e 32 58 25 3d 28  58 25 2d 62 78 25 2d 6d  |.B^2X%=(X%-bx%-m|
00009ec0  61 72 67 69 6e 25 29 81  31 36 2b 31 3a e7 58 25  |argin%).16+1:.X%|
00009ed0  3c 31 58 25 3d 31 8b e7  58 25 3e 54 25 58 25 3d  |<1X%=1..X%>T%X%=|
00009ee0  54 25 0d 42 68 05 e1 0d  42 72 04 0d 42 7c 18 dd  |T%.Bh...Br..B|..|
00009ef0  f2 73 61 76 65 77 28 66  24 2c 54 25 2c 72 25 2c  |.savew(f$,T%,r%,|
00009f00  73 25 29 0d 42 86 19 f2  73 61 76 65 73 65 74 28  |s%).B...saveset(|
00009f10  66 24 2c 54 25 2c 72 25  2c 73 25 29 0d 42 90 18  |f$,T%,r%,s%).B..|
00009f20  f2 64 69 61 6c 6f 67 75  65 28 77 5f 73 61 76 65  |.dialogue(w_save|
00009f30  25 29 3a e1 0d 42 9a 04  0d 42 a4 1a dd f2 73 61  |%):..B...B....sa|
00009f40  76 65 73 65 74 28 66 24  2c 54 25 2c 72 25 2c 73  |veset(f$,T%,r%,s|
00009f50  25 29 0d 42 ae 26 73 61  76 65 72 65 61 73 6f 6e  |%).B.&savereason|
00009f60  25 3d 72 25 3a 73 61 76  65 74 25 3d 54 25 3a 73  |%=r%:savet%=T%:s|
00009f70  61 76 65 73 25 3d 73 25  0d 42 b8 3e f2 73 65 74  |aves%=s%.B.>.set|
00009f80  69 28 77 5f 73 61 76 65  25 2c 32 2c 66 24 29 3a  |i(w_save%,2,f$):|
00009f90  24 a4 76 61 28 77 5f 73  61 76 65 25 2c 33 29 3d  |$.va(w_save%,3)=|
00009fa0  22 73 66 69 6c 65 5f 22  2b c2 22 30 30 22 2b c3  |"sfile_"+."00"+.|
00009fb0  7e 54 25 2c 33 29 0d 42  c2 05 e1 0d 42 cc 04 0d  |~T%,3).B....B...|
00009fc0  42 d6 0b dd f2 43 4c 4f  53 45 0d 42 e0 26 e7 a4  |B....CLOSE.B.&..|
00009fd0  76 5f 28 31 29 3e 30 3a  63 6c 6f 73 65 6f 6b 25  |v_(1)>0:closeok%|
00009fe0  3d b9 3a f2 63 6c 6f 73  65 66 69 6c 65 28 b9 29  |=.:.closefile(.)|
00009ff0  0d 42 ea 05 e1 0d 42 f4  04 0d 42 fe 0d dd f2 70  |.B....B...B....p|
0000a000  72 65 71 75 69 74 0d 43  08 1b e7 a4 76 5f 28 31  |requit.C....v_(1|
0000a010  29 3e 30 f2 61 63 6b 72  65 63 3a f2 71 71 75 69  |)>0.ackrec:.qqui|
0000a020  74 0d 43 12 05 e1 0d 43  1c 04 0d 43 26 38 dd f2  |t.C....C...C&8..|
0000a030  61 63 6b 72 65 63 3a 71  25 21 31 32 3d 72 65 66  |ackrec:q%!12=ref|
0000a040  25 3a c8 99 22 57 69 6d  70 5f 53 65 6e 64 4d 65  |%:.."Wimp_SendMe|
0000a050  73 73 61 67 65 22 2c 31  39 2c 71 25 2c 74 61 73  |ssage",19,q%,tas|
0000a060  6b 25 0d 43 30 05 e1 0d  43 3a 04 0d 43 44 17 dd  |k%.C0...C:..CD..|
0000a070  f2 71 71 75 69 74 3a e7  66 6e 24 3c 3e 75 6e 74  |.qquit:.fn$<>unt|
0000a080  24 8c 0d 43 4e 27 f2 73  74 6f 70 28 36 2c 22 43  |$..CN'.stop(6,"C|
0000a090  6c 6f 73 65 20 66 69 6c  65 73 20 61 6e 64 20 71  |lose files and q|
0000a0a0  75 69 74 22 2c 61 73 24  29 0d 43 58 05 cc 0d 43  |uit",as$).CX...C|
0000a0b0  62 41 77 5f 61 62 61 6e  64 25 3d a4 63 72 77 69  |bAw_aband%=.crwi|
0000a0c0  6e 64 28 74 77 5f 61 62  61 6e 64 25 29 3a f2 64  |nd(tw_aband%):.d|
0000a0d0  69 61 6c 6f 67 75 65 28  77 5f 61 62 61 6e 64 25  |ialogue(w_aband%|
0000a0e0  29 3a 64 69 61 6c 72 65  61 73 6f 6e 25 3d 32 0d  |):dialreason%=2.|
0000a0f0  43 6c 05 cd 0d 43 76 05  e1 0d 43 80 04 0d 43 8a  |Cl...Cv...C...C.|
0000a100  25 dd a4 66 6e 61 6d 65  28 54 25 29 3a c8 99 73  |%..fname(T%):..s|
0000a110  77 69 25 2c 73 64 31 37  5f 25 2c 39 2c 54 25 b8  |wi%,sd17_%,9,T%.|
0000a120  47 25 0d 43 94 09 3d 24  73 64 25 0d 43 9e 04 0d  |G%.C..=$sd%.C...|
0000a130  43 a8 33 dd a4 66 6e 61  6d 65 31 28 54 25 29 3a  |C.3..fname1(T%):|
0000a140  e7 54 25 3c 30 3a 3d 22  4e 25 22 3a 8b c8 99 73  |.T%<0:="N%":...s|
0000a150  77 69 25 2c 73 64 31 37  5f 25 2c 34 2c 54 25 b8  |wi%,sd17_%,4,T%.|
0000a160  47 25 0d 43 b2 2e e7 28  47 25 80 37 29 3d 37 3a  |G%.C...(G%.7)=7:|
0000a170  3d 22 40 22 2b a4 66 6e  61 6d 65 28 54 25 29 3a  |="@"+.fname(T%):|
0000a180  8b 3d 22 23 22 2b a4 66  6e 61 6d 65 28 54 25 29  |.="#"+.fname(T%)|
0000a190  0d 43 bc 04 0d 43 c6 1e  dd f2 66 6c 67 30 28 54  |.C...C....flg0(T|
0000a1a0  25 29 3a 66 6c 67 25 3d  66 6c 67 25 80 ac 54 25  |%):flg%=flg%..T%|
0000a1b0  3a e1 0d 43 d0 1d dd f2  66 6c 67 31 28 54 25 29  |:..C....flg1(T%)|
0000a1c0  3a 66 6c 67 25 3d 66 6c  67 25 84 54 25 3a e1 0d  |:flg%=flg%.T%:..|
0000a1d0  43 da 1d dd f2 66 6c 67  78 28 54 25 29 3a 66 6c  |C....flgx(T%):fl|
0000a1e0  67 25 3d 66 6c 67 25 82  54 25 3a e1 0d 43 e4 2b  |g%=flg%.T%:..C.+|
0000a1f0  dd f2 66 6c 67 6d 28 4d  25 2c 46 25 29 3a 66 6c  |..flgm(M%,F%):fl|
0000a200  67 25 3d 28 66 6c 67 25  80 ac 4d 25 29 84 28 46  |g%=(flg%..M%).(F|
0000a210  25 80 4d 25 29 3a e1 0d  43 ee 2f dd f2 66 6c 67  |%.M%):..C./..flg|
0000a220  28 54 25 2c 46 25 29 3a  66 6c 67 25 3d 28 66 6c  |(T%,F%):flg%=(fl|
0000a230  67 25 80 ac 54 25 29 84  28 28 46 25 3c 3e 30 29  |g%..T%).((F%<>0)|
0000a240  80 54 25 29 3a e1 0d 43  f8 1a dd a4 66 6c 67 28  |.T%):..C....flg(|
0000a250  54 25 29 3d 28 66 6c 67  25 80 54 25 29 3c 3e 30  |T%)=(flg%.T%)<>0|
0000a260  0d 44 02 04 0d 44 0c 12  dd a4 65 76 28 41 24 2c  |.D...D....ev(A$,|
0000a270  73 25 2c 75 25 29 0d 44  16 19 24 73 64 25 3d 22  |s%,u%).D..$sd%="|
0000a280  4e 22 3a e7 73 25 24 73  64 25 2b 3d 22 53 22 0d  |N":.s%$sd%+="S".|
0000a290  44 20 10 e7 75 25 24 73  64 25 2b 3d 22 55 22 0d  |D ..u%$sd%+="U".|
0000a2a0  44 2a 1b c8 99 73 77 69  25 2c 65 78 70 61 6e 64  |D*...swi%,expand|
0000a2b0  5f 25 2c 41 24 2c 24 73  64 25 0d 44 34 0a 3d a0  |_%,A$,$sd%.D4.=.|
0000a2c0  24 73 64 25 0d 44 3e 04  0d 44 48 0b dd f2 77 74  |$sd%.D>..DH...wt|
0000a2d0  69 64 79 0d 44 52 2c ea  49 25 3a e3 49 25 3d 32  |idy.DR,.I%:.I%=2|
0000a2e0  b8 6d 61 78 77 25 3a e7  77 25 28 49 25 29 3e 30  |.maxw%:.w%(I%)>0|
0000a2f0  f2 63 6c 6f 73 65 77 28  77 25 28 49 25 29 29 0d  |.closew(w%(I%)).|
0000a300  44 5c 07 ed 3a e1 0d 44  66 04 0d 44 70 19 dd f2  |D\..:..Df..Dp...|
0000a310  62 75 7a 7a 32 3a c8 99  73 77 69 25 2c 62 65 65  |buzz2:..swi%,bee|
0000a320  70 5f 25 0d 44 7a 05 e1  0d 44 84 04 0d 44 8e 0f  |p_%.Dz...D...D..|
0000a330  dd f2 66 69 6e 66 6f 28  66 25 29 0d 44 98 2a ea  |..finfo(f%).D.*.|
0000a340  4c 25 2c 54 24 2c 54 25  3a 54 25 3d 6d 65 6e 75  |L%,T$,T%:T%=menu|
0000a350  66 69 65 6c 64 25 3a 64  69 61 6c 72 65 61 73 6f  |field%:dialreaso|
0000a360  6e 25 3d 66 25 0d 44 a2  40 77 5f 66 69 6e 66 25  |n%=f%.D.@w_finf%|
0000a370  3d a4 63 72 77 69 6e 64  28 74 77 5f 66 69 6e 66  |=.crwind(tw_finf|
0000a380  25 29 3a f2 67 65 74 77  28 77 25 28 30 29 29 3a  |%):.getw(w%(0)):|
0000a390  c8 99 73 77 69 25 2c 73  64 31 37 5f 25 2c 31 2c  |..swi%,sd17_%,1,|
0000a3a0  54 25 b8 47 25 0d 44 ac  1f 4c 25 3d 47 25 3a c8  |T%.G%.D..L%=G%:.|
0000a3b0  99 73 77 69 25 2c 73 64  31 37 5f 25 2c 39 2c 54  |.swi%,sd17_%,9,T|
0000a3c0  25 b8 47 25 0d 44 b6 18  54 24 3d 24 73 64 25 3a  |%.G%.D..T$=$sd%:|
0000a3d0  e7 54 24 3d 22 3f 22 54  24 3d 22 22 0d 44 c0 1a  |.T$="?"T$="".D..|
0000a3e0  c8 99 73 77 69 25 2c 73  64 31 37 5f 25 2c 31 30  |..swi%,sd17_%,10|
0000a3f0  2c 54 25 b8 47 25 0d 44  ca 19 c8 99 73 77 69 25  |,T%.G%.D....swi%|
0000a400  2c 73 64 31 37 5f 25 2c  34 2c 54 25 b8 47 25 0d  |,sd17_%,4,T%.G%.|
0000a410  44 d4 2a f2 75 6e 73 65  6c 61 6c 6c 28 77 5f 66  |D.*.unselall(w_f|
0000a420  69 6e 66 25 29 3a f2 73  65 74 69 28 77 5f 66 69  |inf%):.seti(w_fi|
0000a430  6e 66 25 2c 35 2c 54 24  29 0d 44 de 2e f2 73 65  |nf%,5,T$).D...se|
0000a440  74 69 28 77 5f 66 69 6e  66 25 2c 32 2c c3 54 25  |ti(w_finf%,2,.T%|
0000a450  29 3a f2 73 65 74 69 28  77 5f 66 69 6e 66 25 2c  |):.seti(w_finf%,|
0000a460  32 30 2c c3 4c 25 29 0d  44 e8 20 e7 a7 24 73 64  |20,.L%).D. ..$sd|
0000a470  25 2c 22 4b 22 29 3a f2  73 65 6c 69 28 77 5f 66  |%,"K"):.seli(w_f|
0000a480  69 6e 66 25 2c 36 29 0d  44 f2 1a e7 47 25 80 38  |inf%,6).D...G%.8|
0000a490  3a f2 73 65 6c 69 28 77  5f 66 69 6e 66 25 2c 37  |:.seli(w_finf%,7|
0000a4a0  29 0d 44 fc 1c e7 47 25  80 31 32 38 3a f2 73 65  |).D...G%.128:.se|
0000a4b0  6c 69 28 77 5f 66 69 6e  66 25 2c 38 29 0d 45 06  |li(w_finf%,8).E.|
0000a4c0  1b e7 47 25 80 36 34 3a  f2 73 65 6c 69 28 77 5f  |..G%.64:.seli(w_|
0000a4d0  66 69 6e 66 25 2c 39 29  0d 45 10 11 47 25 3d 47  |finf%,9).E..G%=G|
0000a4e0  25 80 37 3a c8 8e 47 25  ca 0d 45 1a 18 c9 30 3a  |%.7:..G%..E...0:|
0000a4f0  f2 73 65 6c 69 28 77 5f  66 69 6e 66 25 2c 31 31  |.seli(w_finf%,11|
0000a500  29 0d 45 24 1d c9 37 3a  f2 73 65 6c 69 28 77 5f  |).E$..7:.seli(w_|
0000a510  66 69 6e 66 25 2c 31 30  29 3a 47 25 3d 30 0d 45  |finf%,10):G%=0.E|
0000a520  2e 17 7f 3a f2 73 65 6c  69 28 77 5f 66 69 6e 66  |...:.seli(w_finf|
0000a530  25 2c 31 32 29 0d 45 38  1b cb 3a f2 73 65 74 69  |%,12).E8..:.seti|
0000a540  28 77 5f 66 69 6e 66 25  2c 31 33 2c c3 47 25 29  |(w_finf%,13,.G%)|
0000a550  0d 45 42 09 e7 ac 66 25  8c 0d 45 4c 1b 65 78 69  |.EB...f%..EL.exi|
0000a560  30 25 3d 2d 31 3a 65 78  69 31 25 3d 2d 31 3a f7  |0%=-1:exi1%=-1:.|
0000a570  8d 40 7e 45 0d 45 56 2d  e3 54 25 3d 30 b8 36 3a  |.@~E.EV-.T%=0.6:|
0000a580  f3 4c 25 3a f2 69 73 65  74 28 77 5f 66 69 6e 66  |.L%:.iset(w_finf|
0000a590  25 2c 4c 25 2c 26 34 30  46 30 30 30 2c 30 29 3a  |%,L%,&40F000,0):|
0000a5a0  ed 0d 45 60 16 cc 3a 65  78 69 30 25 3d 32 3a 65  |..E`..:exi0%=2:e|
0000a5b0  78 69 31 25 3d 32 30 0d  45 6a 05 cd 0d 45 74 18  |xi1%=20.Ej...Et.|
0000a5c0  f2 64 69 61 6c 6f 67 75  65 28 77 5f 66 69 6e 66  |.dialogue(w_finf|
0000a5d0  25 29 3a e1 0d 45 7e 15  dc 36 2c 31 38 2c 32 30  |%):..E~..6,18,20|
0000a5e0  2c 32 31 2c 32 2c 33 2c  34 0d 45 88 04 0d 45 92  |,21,2,3,4.E...E.|
0000a5f0  13 dd f2 63 6f 70 79 66  69 65 6c 64 28 74 25 29  |...copyfield(t%)|
0000a600  0d 45 9c 37 ea 4c 25 2c  54 24 2c 54 25 3a 54 25  |.E.7.L%,T$,T%:T%|
0000a610  3d 6d 65 6e 75 66 69 65  6c 64 25 3a 6d 65 6e 75  |=menufield%:menu|
0000a620  66 69 65 6c 64 25 3d 74  25 3a 64 69 61 6c 72 65  |field%=t%:dialre|
0000a630  61 73 6f 6e 25 3d b9 0d  45 a6 40 77 5f 66 69 6e  |ason%=..E.@w_fin|
0000a640  66 25 3d a4 63 72 77 69  6e 64 28 74 77 5f 66 69  |f%=.crwind(tw_fi|
0000a650  6e 66 25 29 3a f2 67 65  74 77 28 77 25 28 30 29  |nf%):.getw(w%(0)|
0000a660  29 3a c8 99 73 77 69 25  2c 73 64 31 37 5f 25 2c  |):..swi%,sd17_%,|
0000a670  31 2c 54 25 b8 47 25 0d  45 b0 1f 4c 25 3d 47 25  |1,T%.G%.E..L%=G%|
0000a680  3a c8 99 73 77 69 25 2c  73 64 31 37 5f 25 2c 39  |:..swi%,sd17_%,9|
0000a690  2c 54 25 b8 47 25 0d 45  ba 18 54 24 3d 24 73 64  |,T%.G%.E..T$=$sd|
0000a6a0  25 3a e7 54 24 3d 22 3f  22 54 24 3d 22 22 0d 45  |%:.T$="?"T$="".E|
0000a6b0  c4 11 54 24 3d a4 6e 65  77 66 64 28 54 24 29 0d  |..T$=.newfd(T$).|
0000a6c0  45 ce 1a c8 99 73 77 69  25 2c 73 64 31 37 5f 25  |E....swi%,sd17_%|
0000a6d0  2c 31 30 2c 54 25 b8 47  25 0d 45 d8 19 c8 99 73  |,10,T%.G%.E....s|
0000a6e0  77 69 25 2c 73 64 31 37  5f 25 2c 34 2c 54 25 b8  |wi%,sd17_%,4,T%.|
0000a6f0  47 25 0d 45 e2 2a f2 75  6e 73 65 6c 61 6c 6c 28  |G%.E.*.unselall(|
0000a700  77 5f 66 69 6e 66 25 29  3a f2 73 65 74 69 28 77  |w_finf%):.seti(w|
0000a710  5f 66 69 6e 66 25 2c 35  2c 54 24 29 0d 45 ec 2e  |_finf%,5,T$).E..|
0000a720  f2 73 65 74 69 28 77 5f  66 69 6e 66 25 2c 32 2c  |.seti(w_finf%,2,|
0000a730  c3 74 25 29 3a f2 73 65  74 69 28 77 5f 66 69 6e  |.t%):.seti(w_fin|
0000a740  66 25 2c 32 30 2c c3 4c  25 29 0d 45 f6 20 e7 a7  |f%,20,.L%).E. ..|
0000a750  24 73 64 25 2c 22 4b 22  29 3a f2 73 65 6c 69 28  |$sd%,"K"):.seli(|
0000a760  77 5f 66 69 6e 66 25 2c  36 29 0d 46 00 1a e7 47  |w_finf%,6).F...G|
0000a770  25 80 38 3a f2 73 65 6c  69 28 77 5f 66 69 6e 66  |%.8:.seli(w_finf|
0000a780  25 2c 37 29 0d 46 0a 1c  e7 47 25 80 31 32 38 3a  |%,7).F...G%.128:|
0000a790  f2 73 65 6c 69 28 77 5f  66 69 6e 66 25 2c 38 29  |.seli(w_finf%,8)|
0000a7a0  0d 46 14 1b e7 47 25 80  36 34 3a f2 73 65 6c 69  |.F...G%.64:.seli|
0000a7b0  28 77 5f 66 69 6e 66 25  2c 39 29 0d 46 1e 11 47  |(w_finf%,9).F..G|
0000a7c0  25 3d 47 25 80 37 3a c8  8e 47 25 ca 0d 46 28 18  |%=G%.7:..G%..F(.|
0000a7d0  c9 30 3a f2 73 65 6c 69  28 77 5f 66 69 6e 66 25  |.0:.seli(w_finf%|
0000a7e0  2c 31 31 29 0d 46 32 1d  c9 37 3a f2 73 65 6c 69  |,11).F2..7:.seli|
0000a7f0  28 77 5f 66 69 6e 66 25  2c 31 30 29 3a 47 25 3d  |(w_finf%,10):G%=|
0000a800  30 0d 46 3c 17 7f 3a f2  73 65 6c 69 28 77 5f 66  |0.F<..:.seli(w_f|
0000a810  69 6e 66 25 2c 31 32 29  0d 46 46 1b cb 3a f2 73  |inf%,12).FF..:.s|
0000a820  65 74 69 28 77 5f 66 69  6e 66 25 2c 31 33 2c c3  |eti(w_finf%,13,.|
0000a830  47 25 29 0d 46 50 14 65  78 69 30 25 3d 32 3a 65  |G%).FP.exi0%=2:e|
0000a840  78 69 31 25 3d 32 30 0d  46 5a 05 cd 0d 46 64 18  |xi1%=20.FZ...Fd.|
0000a850  f2 64 69 61 6c 6f 67 75  65 28 77 5f 66 69 6e 66  |.dialogue(w_finf|
0000a860  25 29 3a e1 0d 46 6e 04  0d 46 78 0b dd f2 73 63  |%):..Fn..Fx...sc|
0000a870  72 73 7a 0d 46 82 48 21  77 6f 72 6b 62 75 66 25  |rsz.F.H!workbuf%|
0000a880  3d 34 3a 77 6f 72 6b 62  75 66 25 21 34 3d 35 3a  |=4:workbuf%!4=5:|
0000a890  77 6f 72 6b 62 75 66 25  21 38 3d 31 31 3a 77 6f  |workbuf%!8=11:wo|
0000a8a0  72 6b 62 75 66 25 21 31  32 3d 31 32 3a 77 6f 72  |rkbuf%!12=12:wor|
0000a8b0  6b 62 75 66 25 21 31 36  3d 2d 31 0d 46 8c 30 c8  |kbuf%!16=-1.F.0.|
0000a8c0  99 22 4f 53 5f 52 65 61  64 56 64 75 56 61 72 69  |."OS_ReadVduVari|
0000a8d0  61 62 6c 65 73 22 2c 77  6f 72 6b 62 75 66 25 2c  |ables",workbuf%,|
0000a8e0  77 6f 72 6b 62 75 66 25  2b 32 34 0d 46 96 49 71  |workbuf%+24.F.Iq|
0000a8f0  25 21 33 32 3d 28 77 6f  72 6b 62 75 66 25 21 33  |%!32=(workbuf%!3|
0000a900  32 29 3c 3c 28 77 6f 72  6b 62 75 66 25 21 32 34  |2)<<(workbuf%!24|
0000a910  29 3a 71 25 21 33 36 3d  28 77 6f 72 6b 62 75 66  |):q%!36=(workbuf|
0000a920  25 21 33 36 29 3c 3c 28  77 6f 72 6b 62 75 66 25  |%!36)<<(workbuf%|
0000a930  21 32 38 29 0d 46 a0 05  e1 0d 46 aa 04 0d 46 b4  |!28).F....F...F.|
0000a940  16 dd f2 66 69 6e 64 66  69 65 6c 64 3a ea 58 25  |...findfield:.X%|
0000a950  2c 59 25 0d 46 be 2e f2  67 65 74 77 28 77 25 28  |,Y%.F...getw(w%(|
0000a960  30 29 29 3a c8 99 73 77  69 25 2c 73 64 31 37 5f  |0)):..swi%,sd17_|
0000a970  25 2c 32 2c 6d 65 6e 75  66 69 65 6c 64 25 b8 47  |%,2,menufield%.G|
0000a980  25 0d 46 c8 27 58 25 3d  47 25 3a c8 99 73 77 69  |%.F.'X%=G%:..swi|
0000a990  25 2c 73 64 31 37 5f 25  2c 33 2c 6d 65 6e 75 66  |%,sd17_%,3,menuf|
0000a9a0  69 65 6c 64 25 b8 47 25  0d 46 d2 1d 59 25 3d 47  |ield%.G%.F..Y%=G|
0000a9b0  25 3a c8 99 73 77 69 25  2c 73 64 34 34 5f 25 2c  |%:..swi%,sd44_%,|
0000a9c0  58 25 2c 59 25 0d 46 dc  39 59 25 3d 2d 59 25 2a  |X%,Y%.F.9Y%=-Y%*|
0000a9d0  6c 69 6e 65 67 61 70 25  2d 6d 61 72 67 69 6e 25  |linegap%-margin%|
0000a9e0  2b 6c 69 6e 65 67 61 70  25 2f 32 3a 58 25 3d 58  |+linegap%/2:X%=X|
0000a9f0  25 2a 31 36 2b 6d 61 72  67 69 6e 25 2d 38 0d 46  |%*16+margin%-8.F|
0000aa00  e6 19 f2 6d 61 74 63 68  63 74 3a f2 67 65 74 77  |...matchct:.getw|
0000aa10  28 77 25 28 30 29 29 0d  46 f0 2a c8 97 b8 62 78  |(w%(0)).F.*...bx|
0000aa20  25 2b 58 25 2c 62 79 25  2b 59 25 3a f2 66 72 6f  |%+X%,by%+Y%:.fro|
0000aa30  6e 74 28 77 25 28 30 29  2c 2d 31 2c 2d 31 29 3a  |nt(w%(0),-1,-1):|
0000aa40  e1 0d 46 fa 04 0d 47 04  2a dd f2 73 63 72 6f 6c  |..F...G.*..scrol|
0000aa50  6c 74 6f 28 58 25 2c 59  25 2c 68 25 29 3a e7 68  |lto(X%,Y%,h%):.h|
0000aa60  25 3c 30 e1 3a 8b f2 67  65 74 77 28 68 25 29 0d  |%<0.:..getw(h%).|
0000aa70  47 0e 38 e7 58 25 3e 3d  78 30 25 2d 62 78 25 80  |G.8.X%>=x0%-bx%.|
0000aa80  58 25 3c 3d 78 31 25 2d  62 78 25 80 59 25 3c 3d  |X%<=x1%-bx%.Y%<=|
0000aa90  79 31 25 2d 62 79 25 2d  33 32 80 59 25 3e 3d 79  |y1%-by%-32.Y%>=y|
0000aaa0  30 25 2d 62 79 25 e1 0d  47 18 2c 73 63 78 25 3d  |0%-by%..G.,scx%=|
0000aab0  58 25 2d 28 78 31 25 2d  78 30 25 29 81 32 3a 73  |X%-(x1%-x0%).2:s|
0000aac0  63 79 25 3d 94 59 25 2d  28 79 31 25 2d 79 30 25  |cy%=.Y%-(y1%-y0%|
0000aad0  29 81 32 0d 47 22 11 e7  73 63 78 25 3c 30 73 63  |).2.G"..scx%<0sc|
0000aae0  78 25 3d 30 0d 47 2c 11  e7 73 63 79 25 3c 30 73  |x%=0.G,..scy%<0s|
0000aaf0  63 79 25 3d 30 0d 47 36  31 f2 6f 70 65 6e 28 68  |cy%=0.G61.open(h|
0000ab00  25 2c 78 30 25 2c 79 30  25 2c 78 31 25 2c 79 31  |%,x0%,y0%,x1%,y1|
0000ab10  25 2c 73 63 78 25 2c 2d  73 63 79 25 2c 62 68 61  |%,scx%,-scy%,bha|
0000ab20  6e 64 6c 65 25 29 0d 47  40 05 e1 0d 47 4a 04 0d  |ndle%).G@...GJ..|
0000ab30  47 54 2f dd f2 66 69 6e  64 63 74 3a f2 67 65 74  |GT/..findct:.get|
0000ab40  63 74 3a f2 73 63 72 6f  6c 6c 74 6f 28 71 25 21  |ct:.scrollto(q%!|
0000ab50  38 2c 71 25 21 31 32 2c  21 71 25 29 3a e1 0d 47  |8,q%!12,!q%):..G|
0000ab60  5e 04 0d 47 68 2a dd f2  73 74 61 74 75 73 3a 77  |^..Gh*..status:w|
0000ab70  5f 73 74 61 74 75 73 25  3d a4 63 72 77 69 6e 64  |_status%=.crwind|
0000ab80  28 74 77 5f 73 74 61 74  75 73 25 29 0d 47 72 1c  |(tw_status%).Gr.|
0000ab90  ea 49 25 2c 54 25 2c 54  24 2c 73 24 3a 73 24 3d  |.I%,T%,T$,s$:s$=|
0000aba0  c4 31 32 2c 22 20 22 29  0d 47 7c 1d f2 75 6e 73  |.12," ").G|..uns|
0000abb0  65 6c 61 6c 6c 28 77 5f  73 74 61 74 75 73 25 29  |elall(w_status%)|
0000abc0  3a 54 25 3d 30 0d 47 86  0e e7 a4 76 5f 28 31 29  |:T%=0.G....v_(1)|
0000abd0  3d 31 8c 0d 47 90 1e 54  24 3d c0 a4 66 69 6c 65  |=1..G..T$=..file|
0000abe0  6e 61 6d 65 2b c4 31 31  2c 22 20 22 29 2c 31 31  |name+.11," "),11|
0000abf0  29 0d 47 9a 35 54 24 2b  3d c2 73 24 2b c3 94 66  |).G.5T$+=.s$+..f|
0000ac00  73 69 7a 65 25 28 30 29  2c 31 30 29 2b 22 20 28  |size%(0),10)+" (|
0000ac10  43 52 45 41 54 49 4e 47  29 20 28 43 52 45 41 54  |CREATING) (CREAT|
0000ac20  49 4e 47 29 20 22 0d 47  a4 29 e7 54 25 3c 38 3a  |ING) ".G.).T%<8:|
0000ac30  f2 73 65 74 69 28 77 5f  73 74 61 74 75 73 25 2c  |.seti(w_status%,|
0000ac40  54 25 2b 31 35 2c 54 24  29 3a 54 25 2b 3d 31 0d  |T%+15,T$):T%+=1.|
0000ac50  47 ae 05 cd 0d 47 b8 2c  c8 95 54 25 3c 38 3a f2  |G....G.,..T%<8:.|
0000ac60  73 65 74 69 28 77 5f 73  74 61 74 75 73 25 2c 54  |seti(w_status%,T|
0000ac70  25 2b 31 35 2c 22 22 29  3a 54 25 2b 3d 31 3a ce  |%+15,""):T%+=1:.|
0000ac80  0d 47 c2 23 e7 73 74 6f  70 62 6f 78 65 73 25 3a  |.G.#.stopboxes%:|
0000ac90  f2 73 65 6c 69 28 77 5f  73 74 61 74 75 73 25 2c  |.seli(w_status%,|
0000aca0  32 33 29 0d 47 cc 1f e7  73 6f 75 6e 64 25 3a f2  |23).G...sound%:.|
0000acb0  73 65 6c 69 28 77 5f 73  74 61 74 75 73 25 2c 32  |seli(w_status%,2|
0000acc0  34 29 0d 47 d6 21 e7 73  68 61 64 6f 77 73 25 3a  |4).G.!.shadows%:|
0000acd0  f2 73 65 6c 69 28 77 5f  73 74 61 74 75 73 25 2c  |.seli(w_status%,|
0000ace0  32 35 29 0d 47 e0 1d e7  70 69 78 25 3a f2 73 65  |25).G...pix%:.se|
0000acf0  6c 69 28 77 5f 73 74 61  74 75 73 25 2c 32 38 29  |li(w_status%,28)|
0000ad00  0d 47 ea 24 e7 73 70 72  73 7a 25 3c 3d 30 3a f2  |.G.$.sprsz%<=0:.|
0000ad10  73 68 61 64 65 69 28 77  5f 73 74 61 74 75 73 25  |shadei(w_status%|
0000ad20  2c 32 38 29 0d 47 f4 1a  f2 64 69 61 6c 6f 67 75  |,28).G...dialogu|
0000ad30  65 28 77 5f 73 74 61 74  75 73 25 29 3a e1 0d 47  |e(w_status%):..G|
0000ad40  fe 04 0d 48 08 1d dd f2  6f 73 63 6c 69 28 54 24  |...H....oscli(T$|
0000ad50  29 3a e7 97 54 24 3d 34  32 3a ff 54 24 3a e1 0d  |):..T$=42:.T$:..|
0000ad60  48 12 23 ea 49 25 2c 4a  25 3a c8 99 22 57 69 6d  |H.#.I%,J%:.."Wim|
0000ad70  70 5f 43 6f 6d 6d 61 6e  64 57 69 6e 64 6f 77 22  |p_CommandWindow"|
0000ad80  2c 31 0d 48 1c 1a f2 6e  6f 72 6d 70 6f 69 6e 74  |,1.H...normpoint|
0000ad90  3a 6d 6f 64 65 25 3d eb  3a eb 31 32 0d 48 26 0a  |:mode%=.:.12.H&.|
0000ada0  2a 66 78 32 32 39 0d 48  30 0b e7 54 24 3d 22 22  |*fx229.H0..T$=""|
0000adb0  8c 0d 48 3a 0b f2 6e 6f  76 61 72 73 0d 48 44 06  |..H:..novars.HD.|
0000adc0  ea 85 0d 48 4e 23 ee 85  ea e7 9f 3d 31 37 80 54  |...HN#.....=17.T|
0000add0  24 3d 22 22 3a f2 65 6e  64 6f 73 63 6c 69 3a e1  |$="":.endoscli:.|
0000ade0  3a 8b f6 3a f1 0d 48 58  12 f5 54 24 3d 22 22 3a  |:..:..HX..T$="":|
0000adf0  e8 86 22 2a 22 54 24 0d  48 62 0a c8 8e 20 b9 20  |.."*"T$.Hb... . |
0000ae00  ca 0d 48 6c 20 c9 20 97  54 24 3d 36 33 80 a4 76  |..Hl . .T$=63..v|
0000ae10  5f 28 31 29 3d 30 3a f1  a0 28 c1 54 24 2c 32 29  |_(1)=0:..(.T$,2)|
0000ae20  29 0d 48 76 26 c9 20 97  54 24 3d 36 33 80 a4 76  |).Hv&. .T$=63..v|
0000ae30  5f 28 31 29 3e 30 3a f1  a4 65 76 28 c1 54 24 2c  |_(1)>0:..ev(.T$,|
0000ae40  32 29 2c 30 2c 30 29 0d  48 80 08 7f ff 54 24 0d  |2),0,0).H....T$.|
0000ae50  48 8a 05 cb 0d 48 94 0a  fd 54 24 3d 22 22 0d 48  |H....H...T$="".H|
0000ae60  9e 06 f7 85 0d 48 a8 05  cc 0d 48 b2 06 ea 85 0d  |.....H....H.....|
0000ae70  48 bc 1c ee 85 ea 3a f7  85 3a f2 65 6e 64 6f 73  |H.....:..:.endos|
0000ae80  63 6c 69 3a f2 65 72 72  28 30 29 0d 48 c6 22 d1  |cli:.err(0).H.".|
0000ae90  3d 30 3a ff 54 24 3a c8  99 22 4f 53 5f 42 79 74  |=0:.T$:.."OS_Byt|
0000aea0  65 22 2c 26 38 36 b8 2c  49 25 2c 4a 25 0d 48 d0  |e",&86.,I%,J%.H.|
0000aeb0  32 e7 91 3c 31 35 30 80  49 25 2b 4a 25 3c 3e 30  |2..<150.I%+J%<>0|
0000aec0  f5 fd a6 30 3c 30 3a f1  27 27 22 50 72 65 73 73  |...0<0:.''"Press|
0000aed0  20 61 20 6b 65 79 2e 2e  2e 20 22 3b 3a e7 a5 0d  | a key... ";:...|
0000aee0  48 da 05 cd 0d 48 e4 0f  f2 65 6e 64 6f 73 63 6c  |H....H...endoscl|
0000aef0  69 3a e1 0d 48 ee 04 0d  48 f8 17 dd f2 65 6e 64  |i:..H...H....end|
0000af00  6f 73 63 6c 69 3a 2a 66  78 32 32 39 2c 31 0d 49  |oscli:*fx229,1.I|
0000af10  02 1d c8 99 22 57 69 6d  70 5f 43 6f 6d 6d 61 6e  |...."Wimp_Comman|
0000af20  64 57 69 6e 64 6f 77 22  2c 2d 31 0d 49 0c 27 c8  |dWindow",-1.I.'.|
0000af30  99 22 57 69 6d 70 5f 53  65 74 4d 6f 64 65 22 2c  |."Wimp_SetMode",|
0000af40  6d 6f 64 65 25 3a 87 3a  f2 66 6f 72 63 65 28 2d  |mode%:.:.force(-|
0000af50  31 29 0d 49 16 0d f2 73  64 76 61 72 73 3a e1 0d  |1).I...sdvars:..|
0000af60  49 20 04 0d 49 2a 29 dd  f2 75 70 64 61 74 65 66  |I ..I*)..updatef|
0000af70  69 65 6c 64 28 54 25 29  3a ea 58 25 2c 4c 25 3a  |ield(T%):.X%,L%:|
0000af80  f2 66 69 65 6c 64 73 7a  28 54 25 29 0d 49 34 42  |.fieldsz(T%).I4B|
0000af90  21 71 25 3d 77 25 28 30  29 3a 71 25 21 34 3d 74  |!q%=w%(0):q%!4=t|
0000afa0  78 30 25 3a 71 25 21 38  3d 74 79 30 25 3a 71 25  |x0%:q%!8=ty0%:q%|
0000afb0  21 31 32 3d 74 78 31 25  3a 71 25 21 31 36 3d 74  |!12=tx1%:q%!16=t|
0000afc0  79 31 25 3a f2 72 65 64  72 61 77 28 b9 29 0d 49  |y1%:.redraw(.).I|
0000afd0  3e 05 e1 0d 49 48 04 0d  49 52 28 dd f2 66 6f 72  |>...IH..IR(..for|
0000afe0  63 65 66 69 65 6c 64 28  54 25 29 3a ea 58 25 2c  |cefield(T%):.X%,|
0000aff0  4c 25 3a f2 66 69 65 6c  64 73 7a 28 54 25 29 0d  |L%:.fieldsz(T%).|
0000b000  49 5c 34 c8 99 22 57 69  6d 70 5f 46 6f 72 63 65  |I\4.."Wimp_Force|
0000b010  52 65 64 72 61 77 22 2c  77 25 28 30 29 2c 74 78  |Redraw",w%(0),tx|
0000b020  30 25 2c 74 79 30 25 2c  74 78 31 25 2c 74 79 31  |0%,ty0%,tx1%,ty1|
0000b030  25 3a e1 0d 49 66 04 0d  49 70 30 dd a4 73 68 6f  |%:..If..Ip0..sho|
0000b040  77 62 72 61 6e 63 68 3a  f2 72 65 61 64 70 6f 69  |wbranch:.readpoi|
0000b050  6e 74 65 72 3a e7 6d 62  25 3c 3e 31 84 6d 69 25  |nter:.mb%<>1.mi%|
0000b060  3c 3e 2d 33 3a 3d a3 0d  49 7a 29 ea 54 24 2c 74  |<>-3:=..Iz).T$,t|
0000b070  24 3a 54 24 3d 66 6e 24  3a 3a 74 24 3d a4 6c 65  |$:T$=fn$::t$=.le|
0000b080  61 66 28 54 24 29 3a e7  74 24 3d 54 24 3a 3d b9  |af(T$):.t$=T$:=.|
0000b090  0d 49 84 28 ff 22 2a 66  69 6c 65 72 5f 6f 70 65  |.I.(."*filer_ope|
0000b0a0  6e 64 69 72 20 22 2b c0  54 24 2c a9 54 24 2d a9  |ndir "+.T$,.T$-.|
0000b0b0  74 24 2d 31 29 3a 3d b9  0d 49 8e 04 0d 49 98 13  |t$-1):=..I...I..|
0000b0c0  dd f2 77 61 6c 69 67 6e  3a ea 58 25 2c 59 25 0d  |..walign:.X%,Y%.|
0000b0d0  49 a2 1d 58 25 3d 70 61  6e 65 77 25 2b 38 3a 59  |I..X%=panew%+8:Y|
0000b0e0  25 3d 39 30 30 2d 70 61  6e 65 68 25 0d 49 ac 31  |%=900-paneh%.I.1|
0000b0f0  f2 6f 70 65 6e 28 77 25  28 30 29 2c 58 25 2c 59  |.open(w%(0),X%,Y|
0000b100  25 2c 58 25 2b 70 61 6e  65 68 25 2c 59 25 2b 70  |%,X%+paneh%,Y%+p|
0000b110  61 6e 65 68 25 2c 30 2c  30 2c 2d 31 29 0d 49 b6  |aneh%,0,0,-1).I.|
0000b120  1e ea 49 25 3a e3 49 25  3d 32 b8 6d 61 78 77 25  |..I%:.I%=2.maxw%|
0000b130  3a e7 77 25 28 49 25 29  3e 30 8c 0d 49 c0 38 f2  |:.w%(I%)>0..I.8.|
0000b140  61 6c 69 67 6e 31 28 49  25 29 3a f2 6f 70 65 6e  |align1(I%):.open|
0000b150  28 77 25 28 49 25 29 2c  74 78 30 25 2c 74 79 30  |(w%(I%),tx0%,ty0|
0000b160  25 2c 74 78 31 25 2c 74  79 31 25 2c 30 2c 30 2c  |%,tx1%,ty1%,0,0,|
0000b170  2d 31 29 0d 49 ca 09 cd  3a ed 3a e1 0d 49 d4 04  |-1).I...:.:..I..|
0000b180  0d 49 de 26 dd f2 72 65  6c 65 61 73 65 70 72 3a  |.I.&..releasepr:|
0000b190  e7 70 73 74 72 65 61 6d  25 3e 30 3a d9 23 70 73  |.pstream%>0:.#ps|
0000b1a0  74 72 65 61 6d 25 0d 49  e8 1c 70 72 69 6e 74 65  |tream%.I..printe|
0000b1b0  72 25 3d 2d 32 3a 70 73  74 72 65 61 6d 25 3d 30  |r%=-2:pstream%=0|
0000b1c0  3a e1 0d 49 f2 04 0d 49  fc 0d dd f2 61 73 63 63  |:..I...I....ascc|
0000b1d0  61 72 64 0d 4a 06 1f ea  68 25 2c 49 25 2c 54 25  |ard.J...h%,I%,T%|
0000b1e0  3a 54 25 3d 8e 66 69 6c  65 24 3a e7 54 25 3d 30  |:T%=.file$:.T%=0|
0000b1f0  3a e1 0d 4a 10 28 49 25  3d 31 3a 68 25 3d a4 68  |:..J.(I%=1:h%=.h|
0000b200  74 3a c8 95 49 25 3c 3d  68 25 80 ac c5 23 54 25  |t:..I%<=h%...#T%|
0000b210  3a 24 73 64 25 3d be 23  54 25 0d 4a 1a 18 c8 99  |:$sd%=.#T%.J....|
0000b220  73 77 69 25 2c 73 64 30  30 5f 25 2c 73 64 25 2c  |swi%,sd00_%,sd%,|
0000b230  49 25 0d 4a 24 22 49 25  2b 3d 31 3a ce 3a d9 23  |I%.J$"I%+=1:.:.#|
0000b240  54 25 3a c8 99 73 77 69  25 2c 73 64 33 38 5f 25  |T%:..swi%,sd38_%|
0000b250  2c 32 35 35 0d 4a 2e 11  c8 99 73 77 69 25 2c 73  |,255.J....swi%,s|
0000b260  64 33 38 5f 25 0d 4a 38  19 f2 66 6f 72 63 65 63  |d38_%.J8..forcec|
0000b270  61 72 64 3a f2 6e 6f 73  63 72 61 70 3a e1 0d 4a  |ard:.noscrap:..J|
0000b280  42 04 0d 4a 4c 29 dd f2  67 65 74 70 61 73 73 3a  |B..JL)..getpass:|
0000b290  77 5f 70 61 73 73 77 25  3d a4 63 72 77 69 6e 64  |w_passw%=.crwind|
0000b2a0  28 74 77 5f 70 61 73 73  77 25 29 0d 4a 56 35 f2  |(tw_passw%).JV5.|
0000b2b0  73 65 74 69 28 77 5f 70  61 73 73 77 25 2c 30 2c  |seti(w_passw%,0,|
0000b2c0  22 46 69 6c 65 20 22 2b  a4 66 69 6c 65 6e 61 6d  |"File "+.filenam|
0000b2d0  65 2b 22 2c 20 70 61 73  73 77 6f 72 64 3a 22 29  |e+", password:")|
0000b2e0  0d 4a 60 42 f2 73 65 74  69 28 77 5f 70 61 73 73  |.J`B.seti(w_pass|
0000b2f0  77 25 2c 31 2c 22 22 29  3a f2 73 65 74 69 28 77  |w%,1,""):.seti(w|
0000b300  5f 70 61 73 73 77 25 2c  32 2c 22 22 29 3a f2 73  |_passw%,2,""):.s|
0000b310  65 74 69 28 77 5f 70 61  73 73 77 25 2c 35 2c 22  |eti(w_passw%,5,"|
0000b320  22 29 0d 4a 6a 19 f2 64  69 61 6c 6f 67 75 65 28  |").Jj..dialogue(|
0000b330  77 5f 70 61 73 73 77 25  29 3a e1 0d 4a 74 04 0d  |w_passw%):..Jt..|
0000b340  4a 7e 2c dd f2 67 65 74  70 61 73 73 31 3a 77 5f  |J~,..getpass1:w_|
0000b350  70 61 73 73 77 31 25 3d  a4 63 72 77 69 6e 64 28  |passw1%=.crwind(|
0000b360  74 77 5f 70 61 73 73 77  31 25 29 0d 4a 88 30 f2  |tw_passw1%).J.0.|
0000b370  73 65 74 69 28 77 5f 70  61 73 73 77 31 25 2c 31  |seti(w_passw1%,1|
0000b380  2c 22 22 29 3a f2 64 69  61 6c 6f 67 75 65 28 77  |,""):.dialogue(w|
0000b390  5f 70 61 73 73 77 31 25  29 3a e1 0d 4a 92 04 0d  |_passw1%):..J...|
0000b3a0  4a 9c 34 dd f2 6e 65 77  66 6e 28 f8 20 54 24 29  |J.4..newfn(. T$)|
0000b3b0  3a e7 a4 75 28 66 69 6c  65 24 29 3c 3e 22 3c 57  |:..u(file$)<>"<W|
0000b3c0  49 4d 50 24 53 43 52 41  50 3e 22 54 24 3d 66 69  |IMP$SCRAP>"T$=fi|
0000b3d0  6c 65 24 0d 4a a6 05 e1  0d 4a b0 04 0d 4a ba 17  |le$.J....J...J..|
0000b3e0  dd f2 72 65 61 64 70 61  72 61 6d 73 3a ea 49 25  |..readparams:.I%|
0000b3f0  2c 46 25 0d 4a c4 34 73  74 6f 70 62 6f 78 65 73  |,F%.J.4stopboxes|
0000b400  25 3d b9 3a 73 6f 75 6e  64 25 3d b9 3a 73 68 61  |%=.:sound%=.:sha|
0000b410  64 6f 77 73 25 3d b9 3a  74 6f 6f 6c 73 25 3d b9  |dows%=.:tools%=.|
0000b420  3a 70 69 78 25 3d a3 0d  4a ce 40 73 70 72 73 7a  |:pix%=..J.@sprsz|
0000b430  25 3d 30 3a 64 70 6c 65  6e 25 3d 36 36 3a 64 70  |%=0:dplen%=66:dp|
0000b440  77 69 64 25 3d 37 39 3a  66 5f 63 64 24 3d 22 43  |wid%=79:f_cd$="C|
0000b450  61 72 64 22 3a 66 5f 63  66 24 3d 22 4d 53 74 6f  |ard":f_cf$="MSto|
0000b460  72 65 46 69 6c 65 22 0d  4a d8 2d 66 5f 66 6c 24  |reFile".J.-f_fl$|
0000b470  3d 22 46 69 65 6c 64 4c  69 73 74 22 3a 66 69 65  |="FieldList":fie|
0000b480  6c 64 63 68 72 25 3d 33  35 3a 65 6e 63 72 79 70  |ldchr%=35:encryp|
0000b490  74 25 3d a3 0d 4a e2 17  46 25 3d 8e 28 a4 64 69  |t%=..J..F%=.(.di|
0000b4a0  72 2b 22 50 61 72 61 6d  73 22 29 0d 4a ec 27 e7  |r+"Params").J.'.|
0000b4b0  46 25 3a c8 95 ac c5 23  46 25 3a f2 72 65 61 64  |F%:....#F%:.read|
0000b4c0  70 61 72 61 6d 28 be 23  46 25 29 3a ce 3a d9 23  |param(.#F%):.:.#|
0000b4d0  46 25 0d 4a f6 0f e7 73  70 72 73 7a 25 3e 35 30  |F%.J...sprsz%>50|
0000b4e0  8c 0d 4b 00 2b 73 70 72  73 7a 25 3d 35 30 3a de  |..K.+sprsz%=50:.|
0000b4f0  20 73 70 72 62 75 66 25  20 73 70 72 73 7a 25 2c  | sprbuf% sprsz%,|
0000b500  63 6f 6c 6f 75 72 73 25  20 33 36 36 0d 4b 0a 3d  |colours% 366.K.=|
0000b510  21 73 70 72 62 75 66 25  3d 73 70 72 73 7a 25 3a  |!sprbuf%=sprsz%:|
0000b520  73 70 72 62 75 66 25 21  31 36 3d 30 3a c8 99 22  |sprbuf%!16=0:.."|
0000b530  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 30  |OS_SpriteOp",&10|
0000b540  39 2c 73 70 72 62 75 66  25 0d 4b 14 05 cc 0d 4b  |9,sprbuf%.K....K|
0000b550  1e 0c 73 70 72 73 7a 25  3d 30 0d 4b 28 05 cd 0d  |..sprsz%=0.K(...|
0000b560  4b 32 25 70 69 78 25 3d  73 70 72 73 7a 25 3e 30  |K2%pix%=sprsz%>0|
0000b570  3a e7 65 6e 63 72 79 70  74 25 65 6e 63 72 79 70  |:.encrypt%encryp|
0000b580  74 25 3d 31 0d 4b 3c 10  f2 72 65 61 64 66 6c 61  |t%=1.K<..readfla|
0000b590  67 73 3a e1 0d 4b 46 04  0d 4b 50 13 dd f2 72 65  |gs:..KF..KP...re|
0000b5a0  61 64 70 61 72 61 6d 28  54 24 29 0d 4b 5a 1f 54  |adparam(T$).KZ.T|
0000b5b0  24 3d a4 73 31 28 54 24  29 3a e7 54 24 3d 22 22  |$=.s1(T$):.T$=""|
0000b5c0  84 97 54 24 3d 97 22 3b  22 e1 0d 4b 64 29 ea 56  |..T$=.";"..Kd).V|
0000b5d0  24 2c 54 25 2c 6f 6e 2c  6f 66 66 3a 6f 6e 3d b9  |$,T%,on,off:on=.|
0000b5e0  3a 54 25 3d a7 54 24 2c  22 20 22 29 3a e7 54 25  |:T%=.T$," "):.T%|
0000b5f0  3d 30 e1 0d 4b 6e 26 56  24 3d c1 54 24 2c 54 25  |=0..Kn&V$=.T$,T%|
0000b600  29 3a 54 24 3d c0 54 24  2c 54 25 2d 31 29 3a 56  |):T$=.T$,T%-1):V|
0000b610  24 3d a4 73 31 28 56 24  29 0d 4b 78 1f 54 25 3d  |$=.s1(V$).Kx.T%=|
0000b620  a7 56 24 2c 22 3b 22 29  3a e7 54 25 56 24 3d c0  |.V$,";"):.T%V$=.|
0000b630  56 24 2c 54 25 2d 31 29  0d 4b 82 0f ea 85 3a ee  |V$,T%-1).K....:.|
0000b640  85 ea 3a f7 85 3a e1 0d  4b 8c 11 c8 8e a4 6c 6f  |..:..:..K.....lo|
0000b650  77 65 72 28 54 24 29 ca  0d 4b 96 1a c9 22 73 68  |wer(T$)..K..."sh|
0000b660  61 64 6f 77 22 3a 73 68  61 64 6f 77 73 25 3d a0  |adow":shadows%=.|
0000b670  56 24 0d 4b a0 1f c9 22  73 74 6f 70 62 6f 78 65  |V$.K..."stopboxe|
0000b680  73 22 3a 73 74 6f 70 62  6f 78 65 73 25 3d a0 56  |s":stopboxes%=.V|
0000b690  24 0d 4b aa 17 c9 22 73  6f 75 6e 64 22 3a 73 6f  |$.K..."sound":so|
0000b6a0  75 6e 64 25 3d a0 56 24  0d 4b b4 17 c9 22 74 6f  |und%=.V$.K..."to|
0000b6b0  6f 6c 73 22 3a 74 6f 6f  6c 73 25 3d a0 56 24 0d  |ols":tools%=.V$.|
0000b6c0  4b be 16 c9 22 66 6e 63  61 72 64 22 3a 66 5f 63  |K..."fncard":f_c|
0000b6d0  64 24 3d 56 24 0d 4b c8  18 c9 22 66 6e 63 72 65  |d$=V$.K..."fncre|
0000b6e0  61 74 65 22 3a 66 5f 63  66 24 3d 56 24 0d 4b d2  |ate":f_cf$=V$.K.|
0000b6f0  18 c9 22 66 6e 66 69 65  6c 64 73 22 3a 66 5f 66  |.."fnfields":f_f|
0000b700  6c 24 3d 56 24 0d 4b dc  1f c9 22 63 6c 65 61 72  |l$=V$.K..."clear|
0000b710  70 61 73 73 22 3a 63 6c  65 61 72 70 61 73 73 25  |pass":clearpass%|
0000b720  3d a0 56 24 0d 4b e6 19  c9 22 70 61 67 65 6c 65  |=.V$.K..."pagele|
0000b730  6e 22 3a 64 70 6c 65 6e  25 3d a0 56 24 0d 4b f0  |n":dplen%=.V$.K.|
0000b740  19 c9 22 70 61 67 65 77  69 64 22 3a 64 70 77 69  |.."pagewid":dpwi|
0000b750  64 25 3d a0 56 24 0d 4b  fa 1a c9 22 70 69 63 74  |d%=.V$.K..."pict|
0000b760  75 72 65 73 22 3a 73 70  72 73 7a 25 3d a0 56 24  |ures":sprsz%=.V$|
0000b770  0d 4c 04 1b c9 22 65 6e  63 72 79 70 74 22 3a 65  |.L..."encrypt":e|
0000b780  6e 63 72 79 70 74 25 3d  a0 56 24 0d 4c 0e 46 c9  |ncrypt%=.V$.L.F.|
0000b790  22 66 69 65 6c 64 63 68  61 72 22 3a 66 69 65 6c  |"fieldchar":fiel|
0000b7a0  64 63 68 72 25 3d 97 56  24 3a e7 66 69 65 6c 64  |dchr%=.V$:.field|
0000b7b0  63 68 72 25 3c 33 32 84  66 69 65 6c 64 63 68 72  |chr%<32.fieldchr|
0000b7c0  25 3d 31 32 37 66 69 65  6c 64 63 68 72 25 3d 33  |%=127fieldchr%=3|
0000b7d0  35 0d 4c 18 07 cb 3a e1  0d 4c 22 04 0d 4c 2c 21  |5.L...:..L"..L,!|
0000b7e0  dd a4 73 31 28 54 24 29  3a c8 95 97 54 24 3d 33  |..s1(T$):...T$=3|
0000b7f0  32 3a 54 24 3d c1 54 24  2c 32 29 3a ce 0d 4c 36  |2:T$=.T$,2):..L6|
0000b800  1c c8 95 c2 54 24 29 3d  22 20 22 3a 54 24 3d c0  |....T$)=" ":T$=.|
0000b810  54 24 29 3a ce 3a 3d 54  24 0d 4c 40 04 0d 4c 4a  |T$):.:=T$.L@..LJ|
0000b820  19 dd f2 73 77 61 70 37  3a f2 66 6f 72 63 65 28  |...swap7:.force(|
0000b830  77 25 28 30 29 29 0d 4c  54 1b c8 99 73 77 69 25  |w%(0)).LT...swi%|
0000b840  2c 73 64 35 37 5f 25 2c  22 62 69 74 37 22 b8 47  |,sd57_%,"bit7".G|
0000b850  25 0d 4c 5e 23 47 25 3d  47 25 82 31 3a c8 99 73  |%.L^#G%=G%.1:..s|
0000b860  77 69 25 2c 73 64 35 38  5f 25 2c 47 25 2c 22 62  |wi%,sd58_%,G%,"b|
0000b870  69 74 37 22 0d 4c 68 1b  c8 99 73 77 69 25 2c 73  |it7".Lh...swi%,s|
0000b880  64 35 37 5f 25 2c 22 62  69 74 37 22 b8 47 25 0d  |d57_%,"bit7".G%.|
0000b890  4c 72 22 f2 66 6c 67 28  66 5f 37 62 69 74 25 2c  |Lr".flg(f_7bit%,|
0000b8a0  47 25 29 3a c8 99 73 77  69 25 2c 73 64 33 39 5f  |G%):..swi%,sd39_|
0000b8b0  25 0d 4c 7c 05 e1 0d 4c  86 04 0d 4c 90 29 dd a4  |%.L|...L...L.)..|
0000b8c0  6e 69 6e 64 69 63 65 73  3a c8 99 73 77 69 25 2c  |nindices:..swi%,|
0000b8d0  73 64 35 37 5f 25 2c 22  69 6e 64 69 63 65 73 22  |sd57_%,"indices"|
0000b8e0  b8 47 25 0d 4c 9a 07 3d  47 25 0d 4c a4 04 0d 4c  |.G%.L..=G%.L...L|
0000b8f0  ae 1a dd f2 6d 73 74 6f  72 65 28 41 24 2c 54 24  |....mstore(A$,T$|
0000b900  29 3a ea 54 25 2c 42 25  0d 4c b8 16 ea 85 3a ee  |):.T%,B%.L....:.|
0000b910  85 ea 3a f7 85 3a f2 65  72 72 28 36 30 29 0d 4c  |..:..:.err(60).L|
0000b920  c2 25 54 24 3d a4 64 69  72 2b 54 24 3a 54 25 3d  |.%T$=.dir+T$:T%=|
0000b930  8e 28 54 24 29 3a e7 54  25 3d 30 f2 65 72 72 28  |.(T$):.T%=0.err(|
0000b940  35 39 29 0d 4c cc 3a 42  25 3d 9a 23 54 25 3a d9  |59).L.:B%=.#T%:.|
0000b950  23 54 25 3a e7 a4 73 28  41 24 29 3e 22 22 ff 22  |#T%:..s(A$)>""."|
0000b960  2a 53 65 74 20 4d 75 6c  74 69 53 74 6f 72 65 24  |*Set MultiStore$|
0000b970  46 75 6e 63 74 69 6f 6e  20 22 2b 41 24 0d 4c d6  |Function "+A$.L.|
0000b980  12 f2 77 72 69 74 65 66  6c 61 67 73 3a f7 85 0d  |..writeflags:...|
0000b990  4c e0 27 ee 85 f2 65 72  72 6f 72 28 9f 2c f6 24  |L.'...error(.,.$|
0000b9a0  2c 9e 2c b9 29 3a f2 72  65 70 6f 72 74 3a f2 71  |,.,.):.report:.q|
0000b9b0  75 69 74 28 a3 29 0d 4c  ea 31 f2 64 65 6c 77 28  |uit(.).L.1.delw(|
0000b9c0  77 5f 73 74 6f 70 25 29  3a f2 64 65 6c 77 28 77  |w_stop%):.delw(w|
0000b9d0  5f 73 61 76 65 25 29 3a  f2 64 65 6c 77 28 77 5f  |_save%):.delw(w_|
0000b9e0  70 69 6e 66 6f 25 29 0d  4c f4 25 f2 64 65 6c 77  |pinfo%).L.%.delw|
0000b9f0  28 77 5f 70 69 6e 66 6f  32 25 29 3a f2 64 65 6c  |(w_pinfo2%):.del|
0000ba00  77 28 77 5f 73 68 61 64  6f 77 25 29 0d 4c fe 0e  |w(w_shadow%).L..|
0000ba10  f2 6e 6f 72 6d 70 6f 69  6e 74 0d 4d 08 22 f2 6e  |.normpoint.M.".n|
0000ba20  6f 76 61 72 73 3a 5a 25  3d 74 61 73 6b 68 61 6e  |ovars:Z%=taskhan|
0000ba30  64 6c 65 25 3a d7 28 54  24 29 3a e0 0d 4d 12 04  |dle%:.(T$):..M..|
0000ba40  0d 4d 1c 20 dd f2 70 64  72 69 76 65 72 3a e7 a4  |.M. ..pdriver:..|
0000ba50  76 5f 28 31 29 3d 31 f2  65 72 72 28 31 30 33 29  |v_(1)=1.err(103)|
0000ba60  0d 4d 26 1f f2 6d 73 74  6f 72 65 28 22 31 22 2c  |.M&..mstore("1",|
0000ba70  22 4d 75 6c 74 69 53 74  6f 72 65 22 29 3a e1 0d  |"MultiStore"):..|
0000ba80  4d 30 04 0d 4d 3a 22 dd  f2 63 68 65 63 6b 6f 70  |M0..M:"..checkop|
0000ba90  65 6e 3a e7 a4 76 5f 28  31 29 3d 31 f2 65 72 72  |en:..v_(1)=1.err|
0000baa0  28 31 30 34 29 0d 4d 44  05 e1 0d 4d 4e 04 0d 4d  |(104).MD...MN..M|
0000bab0  58 22 dd f2 6d 61 6b 65  66 6f 72 6d 3a e7 a4 76  |X"..makeform:..v|
0000bac0  5f 28 31 29 3c 3e 30 f2  65 72 72 28 31 30 30 29  |_(1)<>0.err(100)|
0000bad0  0d 4d 62 16 ea 49 25 2c  67 25 2c 68 25 2c 58 25  |.Mb..I%,g%,h%,X%|
0000bae0  2c 59 25 2c 54 24 0d 4d  6c 1e c8 99 73 77 69 25  |,Y%,T$.Ml...swi%|
0000baf0  2c 66 6f 72 6d 61 74 5f  25 2c 22 55 6e 74 69 74  |,format_%,"Untit|
0000bb00  6c 65 64 22 0d 4d 76 24  c8 99 73 77 69 25 2c 73  |led".Mv$..swi%,s|
0000bb10  64 35 38 5f 25 2c 65 6e  63 72 79 70 74 25 2c 22  |d58_%,encrypt%,"|
0000bb20  45 6e 63 72 79 70 74 22  0d 4d 80 23 77 25 28 30  |Encrypt".M.#w%(0|
0000bb30  29 3d a4 63 72 77 69 6e  64 28 74 77 25 28 30 29  |)=.crwind(tw%(0)|
0000bb40  29 3a f2 6d 61 6b 65 70  61 6e 65 0d 4d 8a 24 f2  |):.makepane.M.$.|
0000bb50  69 6e 69 74 66 69 6c 65  3a f2 66 65 78 74 3a f2  |initfile:.fext:.|
0000bb60  69 6e 69 74 70 61 6e 65  3a f2 74 69 74 6c 65 0d  |initpane:.title.|
0000bb70  4d 94 29 58 25 3d 68 25  2a 38 30 2b 70 61 6e 65  |M.)X%=h%*80+pane|
0000bb80  77 25 2b 38 3a 59 25 3d  39 30 30 2d 68 25 2a 34  |w%+8:Y%=900-h%*4|
0000bb90  30 2d 70 61 6e 65 68 25  0d 4d 9e 31 f2 6f 70 65  |0-paneh%.M.1.ope|
0000bba0  6e 28 77 25 28 30 29 2c  58 25 2c 59 25 2c 58 25  |n(w%(0),X%,Y%,X%|
0000bbb0  2b 70 61 6e 65 68 25 2c  59 25 2b 70 61 6e 65 68  |+paneh%,Y%+paneh|
0000bbc0  25 2c 30 2c 30 2c 2d 31  29 0d 4d a8 1b c8 99 73  |%,0,0,-1).M....s|
0000bbd0  77 69 25 2c 73 64 35 37  5f 25 2c 22 62 69 74 37  |wi%,sd57_%,"bit7|
0000bbe0  22 b8 47 25 0d 4d b2 2e  f2 66 6c 67 28 66 5f 37  |".G%.M...flg(f_7|
0000bbf0  62 69 74 25 2c 47 25 29  3a c8 99 73 77 69 25 2c  |bit%,G%):..swi%,|
0000bc00  73 64 31 34 5f 25 2c 69  64 5f 65 78 62 25 2c 26  |sd14_%,id_exb%,&|
0000bc10  33 35 0d 4d bc 13 f2 73  65 74 77 73 3a 66 6e 24  |35.M...setws:fn$|
0000bc20  3d 75 6e 74 24 0d 4d c6  27 f2 6d 61 74 63 68 63  |=unt$.M.'.matchc|
0000bc30  74 3a f2 66 6f 72 63 65  63 61 72 64 3a f2 75 70  |t:.forcecard:.up|
0000bc40  64 66 64 73 3a f2 75 70  64 69 78 73 0d 4d d0 05  |dfds:.updixs.M..|
0000bc50  e1 0d 4d da 04 0d 4d e4  0d dd f2 67 6c 61 79 6f  |..M...M....glayo|
0000bc60  75 74 0d 4d ee 06 ea 85  0d 4d f8 28 ee 85 ea 3a  |ut.M.....M.(...:|
0000bc70  f7 85 3a e7 9f 3d 26 38  30 33 30 31 f2 67 65 74  |..:..=&80301.get|
0000bc80  70 61 73 73 31 3a e1 3a  8b f2 65 72 72 28 30 29  |pass1:.:..err(0)|
0000bc90  0d 4e 02 20 c8 99 73 77  69 25 2c 70 61 73 73 77  |.N. ..swi%,passw|
0000bca0  6f 72 64 5f 25 2c a4 73  75 28 70 61 73 73 24 29  |ord_%,.su(pass$)|
0000bcb0  0d 4e 0c 0c 70 61 73 73  24 3d 22 22 0d 4e 16 1a  |.N..pass$="".N..|
0000bcc0  c8 99 73 77 69 25 2c 67  6c 61 79 6f 75 74 5f 25  |..swi%,glayout_%|
0000bcd0  2c 66 69 6c 65 24 0d 4e  20 1e f2 69 6e 69 74 70  |,file$.N ..initp|
0000bce0  61 6e 65 3a f2 66 65 78  74 3a f2 66 6f 72 63 65  |ane:.fext:.force|
0000bcf0  63 61 72 64 0d 4e 2a 1c  f2 6d 61 74 63 68 63 74  |card.N*..matchct|
0000bd00  3a f2 75 70 64 66 64 73  3a f2 75 70 64 69 78 73  |:.updfds:.updixs|
0000bd10  0d 4e 34 05 e1 0d 4e 3e  04 0d 4e 48 0d dd f2 6d  |.N4...N>..NH...m|
0000bd20  61 74 63 68 63 74 0d 4e  52 62 c8 99 22 57 69 6d  |atchct.NRb.."Wim|
0000bd30  70 5f 53 65 74 43 61 72  65 74 50 6f 73 69 74 69  |p_SetCaretPositi|
0000bd40  6f 6e 22 2c 77 25 28 30  29 2c 2d 31 2c a4 76 5f  |on",w%(0),-1,.v_|
0000bd50  28 31 32 29 2a 31 36 2b  6d 61 72 67 69 6e 25 2d  |(12)*16+margin%-|
0000bd60  31 36 2c 2d 6d 61 72 67  69 6e 25 2d 6c 69 6e 65  |16,-margin%-line|
0000bd70  67 61 70 25 2a a4 76 5f  28 31 33 29 2c 26 31 30  |gap%*.v_(13),&10|
0000bd80  30 30 30 32 30 2c 2d 31  0d 4e 5c 20 f2 73 68 6f  |00020,-1.N\ .sho|
0000bd90  77 63 75 72 73 3a f2 73  68 6f 77 66 6c 64 3a f2  |wcurs:.showfld:.|
0000bda0  66 69 6e 64 63 74 3a e1  0d 4e 66 04 0d 4e 70 19  |findct:..Nf..Np.|
0000bdb0  dd f2 69 6e 73 6c 6e 3a  c8 99 73 77 69 25 2c 73  |..insln:..swi%,s|
0000bdc0  64 36 31 5f 25 0d 4e 7a  25 f2 66 65 78 74 3a f2  |d61_%.Nz%.fext:.|
0000bdd0  72 65 73 69 7a 65 3a f2  73 65 74 63 74 28 77 25  |resize:.setct(w%|
0000bde0  28 30 29 2c 2d 31 2c 2d  31 29 0d 4e 84 5c c8 99  |(0),-1,-1).N.\..|
0000bdf0  20 22 57 69 6d 70 5f 42  6c 6f 63 6b 43 6f 70 79  | "Wimp_BlockCopy|
0000be00  22 2c 77 25 28 30 29 2c  2d 31 45 39 2c 2d 31 45  |",w%(0),-1E9,-1E|
0000be10  39 2c 31 45 39 2c 2d 6d  61 72 67 69 6e 25 2d 28  |9,1E9,-margin%-(|
0000be20  a4 76 5f 28 31 33 29 2d  31 29 2a 6c 69 6e 65 67  |.v_(13)-1)*lineg|
0000be30  61 70 25 2c 2d 31 45 39  2c 2d 31 45 39 2d 6c 69  |ap%,-1E9,-1E9-li|
0000be40  6e 65 67 61 70 25 0d 4e  8e 17 f2 6d 61 74 63 68  |negap%.N...match|
0000be50  63 74 3a f2 75 70 64 6c  69 6e 65 3a e1 0d 4e 98  |ct:.updline:..N.|
0000be60  04 0d 4e a2 0b dd f2 64  65 6c 6c 6e 0d 4e ac 25  |..N....delln.N.%|
0000be70  f2 73 65 74 63 74 28 77  25 28 30 29 2c 2d 31 2c  |.setct(w%(0),-1,|
0000be80  2d 31 29 3a c8 99 73 77  69 25 2c 73 64 36 32 5f  |-1):..swi%,sd62_|
0000be90  25 0d 4e b6 58 c8 99 20  22 57 69 6d 70 5f 42 6c  |%.N.X.. "Wimp_Bl|
0000bea0  6f 63 6b 43 6f 70 79 22  2c 77 25 28 30 29 2c 2d  |ockCopy",w%(0),-|
0000beb0  31 45 39 2c 2d 31 45 39  2c 31 45 39 2c 2d 6d 61  |1E9,-1E9,1E9,-ma|
0000bec0  72 67 69 6e 25 2d a4 76  5f 28 31 33 29 2a 6c 69  |rgin%-.v_(13)*li|
0000bed0  6e 65 67 61 70 25 2c 2d  31 45 39 2c 2d 31 45 39  |negap%,-1E9,-1E9|
0000bee0  2b 6c 69 6e 65 67 61 70  25 0d 4e c0 1c f2 66 65  |+linegap%.N...fe|
0000bef0  78 74 3a f2 72 65 73 69  7a 65 3a f2 6d 61 74 63  |xt:.resize:.matc|
0000bf00  68 63 74 3a e1 0d 4e ca  04 0d 4e d4 1f dd f2 63  |hct:..N...N....c|
0000bf10  6f 70 79 6c 6e 3a ea 54  25 2c 49 25 2c 4a 25 2c  |opyln:.T%,I%,J%,|
0000bf20  58 25 2c 59 25 2c 54 24  0d 4e de 1f 54 25 3d bb  |X%,Y%,T$.N..T%=.|
0000bf30  24 74 5f 63 6f 70 69 65  73 25 3a e7 54 25 3c 31  |$t_copies%:.T%<1|
0000bf40  84 54 25 3e 39 39 e1 0d  4e e8 1f ea 85 3a ee 85  |.T%>99..N....:..|
0000bf50  ea 3a f7 85 3a f2 63 6f  70 69 65 64 3a f2 65 72  |.:..:.copied:.er|
0000bf60  72 28 31 31 33 29 0d 4e  f2 0c e3 49 25 3d 31 b8  |r(113).N...I%=1.|
0000bf70  54 25 0d 4e fc 10 59 25  3d a4 76 5f 28 31 33 29  |T%.N..Y%=.v_(13)|
0000bf80  2b 31 0d 4f 06 0f e7 59  25 3e a4 76 5f 28 35 29  |+1.O...Y%>.v_(5)|
0000bf90  8c 0d 4f 10 16 c8 99 73  77 69 25 2c 68 65 69 67  |..O....swi%,heig|
0000bfa0  68 74 5f 25 2c 59 25 0d  4f 1a 05 cc 0d 4f 24 1c  |ht_%,Y%.O....O$.|
0000bfb0  c8 99 73 77 69 25 2c 73  64 34 34 5f 25 2c a4 76  |..swi%,sd44_%,.v|
0000bfc0  5f 28 31 32 29 2c 59 25  0d 4f 2e 11 c8 99 73 77  |_(12),Y%.O....sw|
0000bfd0  69 25 2c 73 64 36 31 5f  25 0d 4f 38 05 cd 0d 4f  |i%,sd61_%.O8...O|
0000bfe0  42 17 c8 99 73 77 69 25  2c 67 6c 69 6e 65 5f 25  |B...swi%,gline_%|
0000bff0  2c 59 25 2d 31 0d 4f 4c  1b c8 99 73 77 69 25 2c  |,Y%-1.OL...swi%,|
0000c000  74 65 78 74 5f 25 2c 24  73 64 25 2c 31 2c 59 25  |text_%,$sd%,1,Y%|
0000c010  0d 4f 56 1c c8 99 73 77  69 25 2c 73 64 34 34 5f  |.OV...swi%,sd44_|
0000c020  25 2c a4 76 5f 28 31 32  29 2c 59 25 0d 4f 60 15  |%,.v_(12),Y%.O`.|
0000c030  4a 25 3d 31 3a c8 95 4a  25 3c 3d a4 76 5f 28 37  |J%=1:..J%<=.v_(7|
0000c040  29 0d 4f 6a 19 c8 99 73  77 69 25 2c 73 64 31 37  |).Oj...swi%,sd17|
0000c050  5f 25 2c 33 2c 4a 25 b8  47 25 0d 4f 74 0d e7 47  |_%,3,J%.G%.Ot..G|
0000c060  25 3d 59 25 2d 31 8c 0d  4f 7e 19 c8 99 73 77 69  |%=Y%-1..O~...swi|
0000c070  25 2c 73 64 31 37 5f 25  2c 32 2c 4a 25 b8 47 25  |%,sd17_%,2,J%.G%|
0000c080  0d 4f 88 1f 58 25 3d 47  25 3a c8 99 73 77 69 25  |.O..X%=G%:..swi%|
0000c090  2c 73 64 31 37 5f 25 2c  39 2c 4a 25 b8 47 25 0d  |,sd17_%,9,J%.G%.|
0000c0a0  4f 92 1b 54 24 3d 24 73  64 25 3a f5 3a 54 24 3d  |O..T$=$sd%:.:T$=|
0000c0b0  a4 6e 65 77 66 64 28 54  24 29 0d 4f 9c 17 c8 99  |.newfd(T$).O....|
0000c0c0  73 77 69 25 2c 73 64 36  37 5f 25 2c 54 24 b8 47  |swi%,sd67_%,T$.G|
0000c0d0  25 0d 4f a6 0f fd 47 25  3d 30 84 bb 54 24 3e 30  |%.O...G%=0..T$>0|
0000c0e0  0d 4f b0 19 c8 99 73 77  69 25 2c 73 64 31 37 5f  |.O....swi%,sd17_|
0000c0f0  25 2c 31 2c 4a 25 b8 47  25 0d 4f ba 2b c8 99 73  |%,1,J%.G%.O.+..s|
0000c100  77 69 25 2c 66 69 65 6c  64 5f 25 2c a4 76 5f 28  |wi%,field_%,.v_(|
0000c110  37 29 2b 31 2c 54 24 2c  47 25 2c 58 25 2c 59 25  |7)+1,T$,G%,X%,Y%|
0000c120  b8 2c 47 25 0d 4f c4 19  c8 99 73 77 69 25 2c 73  |.,G%.O....swi%,s|
0000c130  64 31 37 5f 25 2c 34 2c  4a 25 b8 47 25 0d 4f ce  |d17_%,4,J%.G%.O.|
0000c140  1d c8 99 73 77 69 25 2c  73 64 31 38 5f 25 2c 47  |...swi%,sd18_%,G|
0000c150  25 2c 34 2c a4 76 5f 28  37 29 0d 4f d8 0c f2 73  |%,4,.v_(7).O...s|
0000c160  68 6f 77 66 6c 64 0d 4f  e2 05 cd 0d 4f ec 14 e7  |howfld.O....O...|
0000c170  a6 30 3d 32 37 3a f2 65  72 72 28 31 31 34 29 0d  |.0=27:.err(114).|
0000c180  4f f6 0b 4a 25 2b 3d 31  3a ce 0d 50 00 1c c8 99  |O..J%+=1:..P....|
0000c190  73 77 69 25 2c 73 64 34  34 5f 25 2c a4 76 5f 28  |swi%,sd44_%,.v_(|
0000c1a0  31 32 29 2c 59 25 0d 50  0a 05 ed 0d 50 14 0d f2  |12),Y%.P....P...|
0000c1b0  63 6f 70 69 65 64 3a e1  0d 50 1e 04 0d 50 28 22  |copied:..P...P("|
0000c1c0  dd f2 63 6f 70 69 65 64  3a e7 77 25 28 32 29 3e  |..copied:.w%(2)>|
0000c1d0  30 f2 66 6f 72 63 65 28  77 25 28 32 29 29 0d 50  |0.force(w%(2)).P|
0000c1e0  32 25 f2 66 65 78 74 3a  f2 72 65 73 69 7a 65 3a  |2%.fext:.resize:|
0000c1f0  f2 73 65 74 63 74 28 77  25 28 30 29 2c 2d 31 2c  |.setct(w%(0),-1,|
0000c200  2d 31 29 0d 50 3c 21 f2  75 70 64 66 64 73 3a f2  |-1).P<!.updfds:.|
0000c210  66 6f 72 63 65 63 61 72  64 3a f2 6d 61 74 63 68  |forcecard:.match|
0000c220  63 74 3a e1 0d 50 46 04  0d 50 50 1d dd f2 73 65  |ct:..PF..PP...se|
0000c230  74 62 79 74 65 73 28 73  25 29 3a f2 63 68 6b 72  |tbytes(s%):.chkr|
0000c240  65 73 69 7a 65 0d 50 5a  14 e7 73 25 3d 30 3a f2  |esize.PZ..s%=0:.|
0000c250  73 65 74 66 6f 72 6d 3a  e1 0d 50 64 21 73 25 3d  |setform:..Pd!s%=|
0000c260  28 73 25 3c 3c 31 30 29  3a e7 73 25 3c 38 30 30  |(s%<<10):.s%<800|
0000c270  30 3a f2 62 75 7a 7a 32  3a e1 0d 50 6e 1d 66 73  |0:.buzz2:..Pn.fs|
0000c280  69 7a 65 25 28 31 29 3d  2d 73 25 3a 66 73 69 7a  |ize%(1)=-s%:fsiz|
0000c290  65 25 28 30 29 3d 35 0d  50 78 1d c8 99 73 77 69  |e%(0)=5.Px...swi|
0000c2a0  25 2c 63 72 65 61 74 65  5f 25 2c 66 6e 24 2c 73  |%,create_%,fn$,s|
0000c2b0  25 b8 47 25 0d 50 82 0e  f2 63 72 65 61 74 65 64  |%.G%.P...created|
0000c2c0  3a e1 0d 50 8c 04 0d 50  96 1d dd f2 73 65 74 63  |:..P...P....setc|
0000c2d0  61 72 64 73 28 73 25 29  3a f2 63 68 6b 72 65 73  |ards(s%):.chkres|
0000c2e0  69 7a 65 0d 50 a0 14 e7  73 25 3d 30 3a f2 73 65  |ize.P...s%=0:.se|
0000c2f0  74 66 6f 72 6d 3a e1 0d  50 aa 1e ea 54 25 3a e7  |tform:..P...T%:.|
0000c300  73 25 3c 32 84 73 25 3e  32 5e 33 31 3a f2 62 75  |s%<2.s%>2^31:.bu|
0000c310  7a 7a 32 3a e1 0d 50 b4  1d 66 73 69 7a 65 25 28  |zz2:..P..fsize%(|
0000c320  30 29 3d 2d 73 25 3a 66  73 69 7a 65 25 28 31 29  |0)=-s%:fsize%(1)|
0000c330  3d 35 0d 50 be 19 f2 72  65 73 69 7a 65 3a 54 25  |=5.P...resize:T%|
0000c340  3d 94 66 73 69 7a 65 25  28 31 29 0d 50 c8 1d c8  |=.fsize%(1).P...|
0000c350  99 73 77 69 25 2c 63 72  65 61 74 65 5f 25 2c 66  |.swi%,create_%,f|
0000c360  6e 24 2c 54 25 b8 47 25  0d 50 d2 0e f2 63 72 65  |n$,T%.G%.P...cre|
0000c370  61 74 65 64 3a e1 0d 50  dc 04 0d 50 e6 0d dd f2  |ated:..P...P....|
0000c380  73 65 74 66 6f 72 6d 0d  50 f0 1b 66 73 69 7a 65  |setform.P..fsize|
0000c390  25 28 30 29 3d 30 3a 66  73 69 7a 65 25 28 31 29  |%(0)=0:fsize%(1)|
0000c3a0  3d 30 0d 50 fa 1a c8 99  73 77 69 25 2c 63 72 65  |=0.P....swi%,cre|
0000c3b0  61 74 65 5f 25 2c 66 6e  24 b8 47 25 0d 51 04 17  |ate_%,fn$.G%.Q..|
0000c3c0  c8 99 73 77 69 25 2c 66  6f 72 6d 61 74 5f 25 2c  |..swi%,format_%,|
0000c3d0  66 6e 24 0d 51 0e 14 f2  72 65 73 69 7a 65 3a f2  |fn$.Q...resize:.|
0000c3e0  74 69 74 6c 65 3a e1 0d  51 18 04 0d 51 22 27 dd  |title:..Q...Q"'.|
0000c3f0  f2 63 72 65 61 74 65 64  3a f2 73 65 74 77 73 3a  |.created:.setws:|
0000c400  f2 74 69 74 6c 65 3a 66  73 69 7a 65 25 28 30 29  |.title:fsize%(0)|
0000c410  3d 30 0d 51 2c 24 66 73  69 7a 65 25 28 31 29 3d  |=0.Q,$fsize%(1)=|
0000c420  a4 65 78 74 3a 66 73 69  7a 65 25 28 30 29 3d a4  |.ext:fsize%(0)=.|
0000c430  6e 63 61 72 64 73 0d 51  36 05 e1 0d 51 40 04 0d  |ncards.Q6...Q@..|
0000c440  51 4a 0b dd f2 73 65 74  77 73 0d 51 54 13 c8 8e  |QJ...setws.QT...|
0000c450  a4 68 64 62 79 74 65 28  26 33 35 29 ca 0d 51 5e  |.hdbyte(&35)..Q^|
0000c460  25 c9 69 64 5f 62 62 63  25 3a c8 99 73 77 69 25  |%.id_bbc%:..swi%|
0000c470  2c 77 73 62 79 74 65 73  5f 25 2c 32 35 30 30 b8  |,wsbytes_%,2500.|
0000c480  47 25 0d 51 68 25 c9 69  64 5f 65 78 62 25 3a c8  |G%.Qh%.id_exb%:.|
0000c490  99 73 77 69 25 2c 77 73  62 79 74 65 73 5f 25 2c  |.swi%,wsbytes_%,|
0000c4a0  33 35 30 30 b8 47 25 0d  51 72 26 c9 69 64 5f 77  |3500.G%.Qr&.id_w|
0000c4b0  63 69 61 25 3a c8 99 73  77 69 25 2c 77 73 62 79  |cia%:..swi%,wsby|
0000c4c0  74 65 73 5f 25 2c 32 35  30 30 b8 47 25 0d 51 7c  |tes_%,2500.G%.Q||
0000c4d0  05 cb 0d 51 86 05 e1 0d  51 90 04 0d 51 9a 0b dd  |...Q....Q...Q...|
0000c4e0  f2 74 69 74 6c 65 0d 51  a4 34 ea 54 24 3a 54 24  |.title.Q.4.T$:T$|
0000c4f0  3d 22 46 69 6c 65 22 3a  e7 66 73 69 7a 65 25 28  |="File":.fsize%(|
0000c500  30 29 3d 30 80 66 73 69  7a 65 25 28 31 29 3d 30  |0)=0.fsize%(1)=0|
0000c510  3a 54 24 3d 22 46 6f 72  6d 22 0d 51 ae 29 54 24  |:T$="Form".Q.)T$|
0000c520  2b 3d 22 3d 22 2b a4 66  69 6c 65 6e 61 6d 65 3a  |+="="+.filename:|
0000c530  f2 73 65 74 74 69 74 6c  65 28 77 25 28 30 29 2c  |.settitle(w%(0),|
0000c540  54 24 29 0d 51 b8 05 e1  0d 51 c2 04 0d 51 cc 0c  |T$).Q....Q...Q..|
0000c550  dd f2 72 65 73 69 7a 65  0d 51 d6 1f e7 66 73 69  |..resize.Q...fsi|
0000c560  7a 65 25 28 30 29 3c 3e  30 80 66 73 69 7a 65 25  |ze%(0)<>0.fsize%|
0000c570  28 31 29 3c 3e 30 8c 0d  51 e0 32 e7 66 73 69 7a  |(1)<>0..Q.2.fsiz|
0000c580  65 25 28 30 29 3c 30 66  73 69 7a 65 25 28 31 29  |e%(0)<0fsize%(1)|
0000c590  3d a4 66 65 78 74 3a 8b  66 73 69 7a 65 25 28 30  |=.fext:.fsize%(0|
0000c5a0  29 3d a4 6e 63 61 72 64  73 0d 51 ea 05 cd 0d 51  |)=.ncards.Q....Q|
0000c5b0  f4 0f f2 69 6e 69 74 70  61 6e 65 3a e1 0d 51 fe  |...initpane:..Q.|
0000c5c0  04 0d 52 08 0f dd f2 63  68 6b 72 65 73 69 7a 65  |..R....chkresize|
0000c5d0  0d 52 12 16 e7 66 6e 24  3d 75 6e 74 24 f2 65 72  |.R...fn$=unt$.er|
0000c5e0  72 28 31 30 35 29 0d 52  1c 16 e7 a4 76 5f 28 37  |r(105).R....v_(7|
0000c5f0  29 3d 30 f2 65 72 72 28  31 30 36 29 0d 52 26 05  |)=0.err(106).R&.|
0000c600  e1 0d 52 30 04 0d 52 3a  26 dd a4 66 65 78 74 3a  |..R0..R:&..fext:|
0000c610  e7 66 73 69 7a 65 25 28  30 29 3d 30 80 66 73 69  |.fsize%(0)=0.fsi|
0000c620  7a 65 25 28 31 29 3d 30  3a 3d 30 0d 52 44 27 e7  |ze%(1)=0:=0.RD'.|
0000c630  66 73 69 7a 65 25 28 30  29 3c 30 3a 3d a4 63 61  |fsize%(0)<0:=.ca|
0000c640  6c 63 65 78 74 3a 8b 3d  94 66 73 69 7a 65 25 28  |lcext:.=.fsize%(|
0000c650  31 29 0d 52 4e 04 0d 52  58 09 dd a4 65 78 74 0d  |1).RN..RX...ext.|
0000c660  52 62 14 c8 99 73 77 69  25 2c 73 74 61 74 5f 25  |Rb...swi%,stat_%|
0000c670  b8 47 25 0d 52 6c 0c 3d  a4 76 5f 28 32 32 29 0d  |.G%.Rl.=.v_(22).|
0000c680  52 76 04 0d 52 80 25 dd  a4 6e 63 61 72 64 73 3a  |Rv..R.%..ncards:|
0000c690  e7 66 73 69 7a 65 25 28  30 29 3c 30 3a 3d 94 66  |.fsize%(0)<0:=.f|
0000c6a0  73 69 7a 65 25 28 30 29  0d 52 8a 11 c8 99 73 77  |size%(0).R....sw|
0000c6b0  69 25 2c 73 64 35 30 5f  25 0d 52 94 0c 3d a4 76  |i%,sd50_%.R..=.v|
0000c6c0  5f 28 31 36 29 0d 52 9e  04 0d 52 a8 33 dd a4 63  |_(16).R...R.3..c|
0000c6d0  61 6c 63 65 78 74 3a ea  43 25 3a 43 25 3d 94 66  |alcext:.C%:C%=.f|
0000c6e0  73 69 7a 65 25 28 30 29  3a c8 99 73 77 69 25 2c  |size%(0):..swi%,|
0000c6f0  73 64 36 38 5f 25 2c 43  25 b8 47 25 0d 52 b2 07  |sd68_%,C%.G%.R..|
0000c700  3d 47 25 0d 52 bc 04 0d  52 c6 18 dd a4 6e 73 75  |=G%.R...R....nsu|
0000c710  62 73 3d a4 68 64 62 79  74 65 28 26 35 31 29 0d  |bs=.hdbyte(&51).|
0000c720  52 d0 04 0d 52 da 1f dd  f2 66 73 69 7a 65 3a e7  |R...R....fsize:.|
0000c730  a4 76 5f 28 37 29 3d 30  3a f2 65 72 72 28 31 30  |.v_(7)=0:.err(10|
0000c740  36 29 0d 52 e4 33 77 5f  66 73 69 7a 65 25 3d a4  |6).R.3w_fsize%=.|
0000c750  63 72 77 69 6e 64 28 74  77 5f 66 73 69 7a 65 25  |crwind(tw_fsize%|
0000c760  29 3a f2 75 6e 73 65 6c  61 6c 6c 28 77 5f 66 73  |):.unselall(w_fs|
0000c770  69 7a 65 25 29 0d 52 ee  1c f2 73 65 74 69 28 77  |ize%).R...seti(w|
0000c780  5f 66 73 69 7a 65 25 2c  31 31 2c 66 5f 63 66 24  |_fsize%,11,f_cf$|
0000c790  29 0d 52 f8 21 f2 73 65  74 69 28 77 5f 66 73 69  |).R.!.seti(w_fsi|
0000c7a0  7a 65 25 2c 36 2c c3 94  66 73 69 7a 65 25 28 30  |ze%,6,..fsize%(0|
0000c7b0  29 29 0d 53 02 28 f2 73  65 74 69 28 77 5f 66 73  |)).S.(.seti(w_fs|
0000c7c0  69 7a 65 25 2c 37 2c c3  28 94 66 73 69 7a 65 25  |ize%,7,.(.fsize%|
0000c7d0  28 31 29 81 31 30 32 34  29 29 0d 53 0c 21 24 a4  |(1).1024)).S.!$.|
0000c7e0  76 61 28 77 5f 66 73 69  7a 65 25 2c 31 30 29 3d  |va(w_fsize%,10)=|
0000c7f0  22 73 66 69 6c 65 5f 64  65 38 22 0d 53 16 1d e7  |"sfile_de8".S...|
0000c800  66 73 69 7a 65 25 28 30  29 3d 30 80 66 73 69 7a  |fsize%(0)=0.fsiz|
0000c810  65 25 28 31 29 3d 30 8c  0d 53 20 15 f2 73 65 6c  |e%(1)=0..S ..sel|
0000c820  69 28 77 5f 66 73 69 7a  65 25 2c 35 29 0d 53 2a  |i(w_fsize%,5).S*|
0000c830  05 cc 0d 53 34 34 e7 66  73 69 7a 65 25 28 30 29  |...S44.fsize%(0)|
0000c840  3c 30 f2 73 65 6c 69 28  77 5f 66 73 69 7a 65 25  |<0.seli(w_fsize%|
0000c850  2c 33 29 3a 8b f2 73 65  6c 69 28 77 5f 66 73 69  |,3):..seli(w_fsi|
0000c860  7a 65 25 2c 34 29 0d 53  3e 05 cd 0d 53 48 36 6c  |ze%,4).S>...SH6l|
0000c870  63 61 72 64 73 24 3d 24  a4 69 61 28 77 5f 66 73  |cards$=$.ia(w_fs|
0000c880  69 7a 65 25 2c 36 29 3a  6c 6b 62 79 74 65 73 24  |ize%,6):lkbytes$|
0000c890  3d 24 a4 69 61 28 77 5f  66 73 69 7a 65 25 2c 37  |=$.ia(w_fsize%,7|
0000c8a0  29 0d 53 52 23 f2 64 69  61 6c 6f 67 75 65 28 77  |).SR#.dialogue(w|
0000c8b0  5f 66 73 69 7a 65 25 29  3a f2 6e 65 77 64 65 6c  |_fsize%):.newdel|
0000c8c0  61 79 3a e1 0d 53 5c 04  0d 53 66 0e dd f2 6e 65  |ay:..S\..Sf...ne|
0000c8d0  77 64 65 6c 61 79 0d 53  70 2d e7 70 72 6f 63 65  |wdelay.Sp-.proce|
0000c8e0  73 73 25 3e 30 84 77 5f  66 73 69 7a 65 25 3e 30  |ss%>0.w_fsize%>0|
0000c8f0  64 65 6c 61 79 25 3d 30  8b 64 65 6c 61 79 25 3d  |delay%=0.delay%=|
0000c900  32 45 39 0d 53 7a 05 e1  0d 53 84 04 0d 53 8e 27  |2E9.Sz...S...S.'|
0000c910  dd f2 66 69 65 6c 64 73  7a 31 28 54 25 29 3a ea  |..fieldsz1(T%):.|
0000c920  67 78 30 25 2c 67 79 30  25 2c 67 78 31 25 2c 67  |gx0%,gy0%,gx1%,g|
0000c930  79 31 25 0d 53 98 11 dd  f2 66 69 65 6c 64 73 7a  |y1%.S....fieldsz|
0000c940  28 54 25 29 0d 53 a2 13  ea 4c 25 2c 58 25 2c 59  |(T%).S...L%,X%,Y|
0000c950  25 2c 47 25 2c 74 25 0d  53 ac 26 f2 67 65 74 77  |%,G%,t%.S.&.getw|
0000c960  28 77 25 28 30 29 29 3a  c8 99 73 77 69 25 2c 73  |(w%(0)):..swi%,s|
0000c970  64 31 37 5f 25 2c 31 2c  54 25 b8 4c 25 0d 53 b6  |d17_%,1,T%.L%.S.|
0000c980  19 c8 99 73 77 69 25 2c  73 64 31 37 5f 25 2c 32  |...swi%,sd17_%,2|
0000c990  2c 54 25 b8 58 25 0d 53  c0 19 c8 99 73 77 69 25  |,T%.X%.S....swi%|
0000c9a0  2c 73 64 31 37 5f 25 2c  33 2c 54 25 b8 59 25 0d  |,sd17_%,3,T%.Y%.|
0000c9b0  53 ca 25 c8 99 22 4f 53  5f 52 65 61 64 4d 6f 64  |S.%.."OS_ReadMod|
0000c9c0  65 56 61 72 69 61 62 6c  65 22 2c 2d 31 2c 35 b8  |eVariable",-1,5.|
0000c9d0  2c 2c 54 25 0d 53 d4 2c  74 79 30 25 3d 28 2d 59  |,,T%.S.,ty0%=(-Y|
0000c9e0  25 2a 6c 69 6e 65 67 61  70 25 2d 6d 61 72 67 69  |%*linegap%-margi|
0000c9f0  6e 25 29 80 ac 28 28 31  3c 3c 54 25 29 2d 31 29  |n%)..((1<<T%)-1)|
0000ca00  0d 53 de 3e 74 78 30 25  3d 58 25 2a 31 36 2b 6d  |.S.>tx0%=X%*16+m|
0000ca10  61 72 67 69 6e 25 2d 31  36 3a 74 79 31 25 3d 74  |argin%-16:ty1%=t|
0000ca20  79 30 25 2b 6c 69 6e 65  67 61 70 25 3a 74 78 31  |y0%+linegap%:tx1|
0000ca30  25 3d 74 78 30 25 2b 4c  25 2a 31 36 2b 32 0d 53  |%=tx0%+L%*16+2.S|
0000ca40  e8 05 e1 0d 53 f2 04 0d  53 fc 15 dd f2 63 75 72  |....S...S....cur|
0000ca50  6d 6f 75 73 65 3a ea 58  25 2c 59 25 0d 54 06 29  |mouse:.X%,Y%.T.)|
0000ca60  58 25 3d 6d 78 25 3a 59  25 3d 6d 79 25 3a f2 63  |X%=mx%:Y%=my%:.c|
0000ca70  79 63 6f 6e 76 28 59 25  29 3a f2 63 78 63 6f 6e  |yconv(Y%):.cxcon|
0000ca80  76 28 58 25 29 0d 54 10  17 c8 99 73 77 69 25 2c  |v(X%).T....swi%,|
0000ca90  73 64 34 34 5f 25 2c 58  25 2c 59 25 0d 54 1a 0e  |sd44_%,X%,Y%.T..|
0000caa0  f2 6d 61 74 63 68 63 74  3a e1 0d 54 24 04 0d 54  |.matchct:..T$..T|
0000cab0  2e 22 dd f2 64 70 72 69  6e 74 31 28 54 24 29 3a  |."..dprint1(T$):|
0000cac0  d5 23 6f 75 74 66 69 6c  65 25 2c 54 24 3b 3a e1  |.#outfile%,T$;:.|
0000cad0  0d 54 38 04 0d 54 42 26  dd f2 64 70 72 69 6e 74  |.T8..TB&..dprint|
0000cae0  28 54 24 29 3a f2 64 70  72 69 6e 74 31 28 54 24  |(T$):.dprint1(T$|
0000caf0  29 3a f2 64 6e 65 77 6c  3a e1 0d 54 4c 04 0d 54  |):.dnewl:..TL..T|
0000cb00  56 1b dd f2 64 6e 65 77  6c 3a d5 23 6f 75 74 66  |V...dnewl:.#outf|
0000cb10  69 6c 65 25 2c 22 22 3a  e1 0d 54 60 04 0d 54 6a  |ile%,"":..T`..Tj|
0000cb20  3b dd f2 66 73 70 65 63  3a 77 5f 66 73 70 65 63  |;..fspec:w_fspec|
0000cb30  25 3d a4 63 72 77 69 6e  64 28 74 77 5f 66 73 70  |%=.crwind(tw_fsp|
0000cb40  65 63 25 29 3a f2 75 6e  73 65 6c 61 6c 6c 28 77  |ec%):.unselall(w|
0000cb50  5f 66 73 70 65 63 25 29  0d 54 74 30 f2 73 65 6c  |_fspec%).Tt0.sel|
0000cb60  69 28 77 5f 66 73 70 65  63 25 2c a4 66 73 70 65  |i(w_fspec%,.fspe|
0000cb70  63 29 3a f2 64 69 61 6c  6f 67 75 65 28 77 5f 66  |c):.dialogue(w_f|
0000cb80  73 70 65 63 25 29 3a e1  0d 54 7e 04 0d 54 88 1e  |spec%):..T~..T..|
0000cb90  dd a4 66 73 70 65 63 3a  e7 a4 68 64 62 79 74 65  |..fspec:..hdbyte|
0000cba0  28 30 29 3d 26 45 41 3a  3d 30 0d 54 92 0d 3d a4  |(0)=&EA:=0.T..=.|
0000cbb0  6e 73 75 62 73 2b 31 0d  54 9c 04 0d 54 a6 27 dd  |nsubs+1.T...T.'.|
0000cbc0  f2 63 73 69 7a 65 3a 77  5f 63 73 69 7a 65 25 3d  |.csize:w_csize%=|
0000cbd0  a4 63 72 77 69 6e 64 28  74 77 5f 63 73 69 7a 65  |.crwind(tw_csize|
0000cbe0  25 29 0d 54 b0 1e f2 73  65 74 69 28 77 5f 63 73  |%).T...seti(w_cs|
0000cbf0  69 7a 65 25 2c 36 31 2c  c3 a4 76 5f 28 36 29 29  |ize%,61,..v_(6))|
0000cc00  0d 54 ba 1e f2 73 65 74  69 28 77 5f 63 73 69 7a  |.T...seti(w_csiz|
0000cc10  65 25 2c 35 37 2c c3 a4  76 5f 28 35 29 29 0d 54  |e%,57,..v_(5)).T|
0000cc20  c4 19 f2 64 69 61 6c 6f  67 75 65 28 77 5f 63 73  |...dialogue(w_cs|
0000cc30  69 7a 65 25 29 3a e1 0d  54 ce 04 0d 54 d8 0c dd  |ize%):..T...T...|
0000cc40  f2 73 65 74 74 61 62 0d  54 e2 1d c8 99 73 77 69  |.settab.T....swi|
0000cc50  25 2c 73 64 31 34 5f 25  2c a4 76 5f 28 31 32 29  |%,sd14_%,.v_(12)|
0000cc60  2c 26 31 30 0d 54 ec 1d  c8 99 73 77 69 25 2c 73  |,&10.T....swi%,s|
0000cc70  64 31 34 5f 25 2c a4 76  5f 28 31 33 29 2c 26 31  |d14_%,.v_(13),&1|
0000cc80  31 0d 54 f6 48 f2 73 74  6f 70 28 30 2c 22 54 68  |1.T.H.stop(0,"Th|
0000cc90  65 20 54 41 42 20 70 6f  73 69 74 69 6f 6e 20 68  |e TAB position h|
0000cca0  61 73 20 6e 6f 77 20 62  65 65 6e 22 2c 22 73 65  |as now been","se|
0000ccb0  74 20 74 6f 20 74 68 65  20 63 61 72 65 74 20 70  |t to the caret p|
0000ccc0  6f 73 69 74 69 6f 6e 22  29 0d 55 00 05 e1 0d 55  |osition").U....U|
0000ccd0  0a 04 0d 55 14 0e dd f2  64 65 6c 66 69 65 6c 64  |...U....delfield|
0000cce0  0d 55 1e 14 c8 99 73 77  69 25 2c 73 64 37 30 5f  |.U....swi%,sd70_|
0000ccf0  25 b8 47 25 0d 55 28 13  e7 47 25 3c 3d 30 f2 65  |%.G%.U(..G%<=0.e|
0000cd00  72 72 28 31 30 37 29 0d  55 32 19 c8 99 73 77 69  |rr(107).U2...swi|
0000cd10  25 2c 73 64 31 37 5f 25  2c 39 2c 47 25 b8 47 25  |%,sd17_%,9,G%.G%|
0000cd20  0d 55 3c 11 6d 65 6e 75  66 69 65 6c 64 25 3d 47  |.U<.menufield%=G|
0000cd30  25 0d 55 46 39 f2 73 74  6f 70 28 31 30 32 2c 22  |%.UF9.stop(102,"|
0000cd40  46 69 65 6c 64 20 22 2b  c3 47 25 2b 22 3a 22 2b  |Field "+.G%+":"+|
0000cd50  24 73 64 25 2c 72 6c 24  2b 22 64 65 6c 65 74 65  |$sd%,rl$+"delete|
0000cd60  20 66 69 65 6c 64 20 3f  22 29 0d 55 50 05 e1 0d  | field ?").UP...|
0000cd70  55 5a 04 0d 55 64 1a dd  f2 63 68 65 63 6b 63 6f  |UZ..Ud...checkco|
0000cd80  6e 76 28 54 24 29 3a ea  54 25 2c 42 25 0d 55 6e  |nv(T$):.T%,B%.Un|
0000cd90  14 ea 85 3a ee 85 ea 3a  f7 85 3a d9 23 54 25 3a  |...:...:..:.#T%:|
0000cda0  e1 0d 55 78 20 66 69 6c  65 24 3d 54 24 3a 54 25  |..Ux file$=T$:T%|
0000cdb0  3d 8e 28 66 69 6c 65 24  29 3a e7 54 25 3d 30 3a  |=.(file$):.T%=0:|
0000cdc0  e1 0d 55 82 23 42 25 3d  9a 23 54 25 3a e7 42 25  |..U.#B%=.#T%:.B%|
0000cdd0  3c 3e 32 33 34 80 42 25  3c 3e 32 33 35 3a d9 23  |<>234.B%<>235:.#|
0000cde0  54 25 3a e1 0d 55 8c 1f  42 25 3d 9a 23 54 25 2b  |T%:..U..B%=.#T%+|
0000cdf0  9a 23 54 25 2b 9a 23 54  25 2b 9a 23 54 25 3a d9  |.#T%+.#T%+.#T%:.|
0000ce00  23 54 25 0d 55 96 06 f7  85 0d 55 a0 20 e7 42 25  |#T%.U.....U. .B%|
0000ce10  3d 30 42 25 3d 66 74 5f  66 6f 72 6d 25 8b 42 25  |=0B%=ft_form%.B%|
0000ce20  3d 66 74 5f 64 61 74 61  25 0d 55 aa 47 6d 65 6e  |=ft_data%.U.Gmen|
0000ce30  75 66 69 65 6c 64 25 3d  42 25 3a f2 73 74 6f 70  |ufield%=B%:.stop|
0000ce40  28 33 36 2c 22 57 72 6f  6e 67 20 66 69 6c 65 20  |(36,"Wrong file |
0000ce50  74 79 70 65 22 2c 22 43  6f 6e 76 65 72 74 20 74  |type","Convert t|
0000ce60  6f 20 4d 75 6c 74 69 53  74 6f 72 65 20 3f 22 29  |o MultiStore ?")|
0000ce70  0d 55 b4 05 e1 0d 55 be  04 0d 55 c8 20 dd f2 75  |.U....U...U. ..u|
0000ce80  70 64 66 64 73 3a e7 77  25 28 32 29 3e 30 3a f2  |pdfds:.w%(2)>0:.|
0000ce90  6d 61 6b 65 66 6c 69 73  74 0d 55 d2 20 dd f2 75  |makeflist.U. ..u|
0000cea0  70 64 69 78 73 3a e7 77  25 28 33 29 3e 30 3a f2  |pdixs:.w%(3)>0:.|
0000ceb0  6d 61 6b 65 69 6c 69 73  74 0d 55 dc 05 e1 0d 55  |makeilist.U....U|
0000cec0  e6 04 0d 55 f0 24 dd f2  6f 70 65 6e 66 69 6c 65  |...U.$..openfile|
0000ced0  3a e7 66 73 69 7a 65 25  28 30 29 3d 30 f2 65 72  |:.fsize%(0)=0.er|
0000cee0  72 28 31 30 38 29 0d 55  fa 30 f2 63 6c 6f 73 65  |r(108).U.0.close|
0000cef0  66 69 6c 65 28 b9 29 3a  f2 6d 73 74 6f 72 65 28  |file(.):.mstore(|
0000cf00  22 32 3a 22 2b 66 6e 24  2c 22 4d 75 6c 74 69 53  |"2:"+fn$,"MultiS|
0000cf10  74 6f 72 65 22 29 0d 56  04 05 e1 0d 56 0e 04 0d  |tore").V....V...|
0000cf20  56 18 24 dd f2 6d 61 72  6b 66 6c 64 28 47 25 29  |V.$..markfld(G%)|
0000cf30  3a e7 77 25 28 32 29 3c  3d 30 84 47 25 3d 6c 63  |:.w%(2)<=0.G%=lc|
0000cf40  66 25 e1 0d 56 22 15 e7  47 25 3e 30 f2 75 70 64  |f%..V"..G%>0.upd|
0000cf50  66 6c 64 31 28 47 25 29  0d 56 2c 19 e7 6c 63 66  |fld1(G%).V,..lcf|
0000cf60  25 3e 30 f2 75 70 64 66  6c 64 31 28 6c 63 66 25  |%>0.updfld1(lcf%|
0000cf70  29 0d 56 36 05 e1 0d 56  40 04 0d 56 4a 11 dd f2  |).V6...V@..VJ...|
0000cf80  75 70 64 66 6c 64 31 28  54 25 29 0d 56 54 2e 21  |updfld1(T%).VT.!|
0000cf90  71 25 3d 77 25 28 32 29  3a 71 25 21 34 3d 30 3a  |q%=w%(2):q%!4=0:|
0000cfa0  71 25 21 38 3d 2d 6d 61  72 67 69 6e 25 2d 54 25  |q%!8=-margin%-T%|
0000cfb0  2a 6c 69 6e 65 67 61 70  25 0d 56 5e 30 71 25 21  |*linegap%.V^0q%!|
0000cfc0  31 32 3d 31 45 39 3a 71  25 21 31 36 3d 71 25 21  |12=1E9:q%!16=q%!|
0000cfd0  38 2b 6c 69 6e 65 67 61  70 25 2b 34 3a f2 72 65  |8+linegap%+4:.re|
0000cfe0  64 72 61 77 28 b9 29 3a  e1 0d 56 68 04 0d 56 72  |draw(.):..Vh..Vr|
0000cff0  2b dd f2 73 65 74 74 69  74 6c 65 28 68 25 2c 54  |+..settitle(h%,T|
0000d000  24 29 3a 24 a4 74 61 28  68 25 29 3d 54 24 3a f2  |$):$.ta(h%)=T$:.|
0000d010  67 65 74 77 28 68 25 29  0d 56 7c 32 c8 99 22 57  |getw(h%).V|2.."W|
0000d020  69 6d 70 5f 46 6f 72 63  65 52 65 64 72 61 77 22  |imp_ForceRedraw"|
0000d030  2c 2d 31 2c 78 30 25 2c  79 31 25 2b 34 2c 78 31  |,-1,x0%,y1%+4,x1|
0000d040  25 2c 79 31 25 2b 34 34  3a e1 0d 56 86 04 0d 56  |%,y1%+44:..V...V|
0000d050  90 12 dd f2 74 72 61 6e  73 66 65 72 3a ea 54 24  |....transfer:.T$|
0000d060  0d 56 9a 38 e7 a4 76 5f  28 31 29 3c 3e 30 80 28  |.V.8..v_(1)<>0.(|
0000d070  66 6e 24 3d 75 6e 74 24  84 a4 76 5f 28 37 29 3d  |fn$=unt$..v_(7)=|
0000d080  30 84 66 73 69 7a 65 25  28 30 29 3d 30 29 3a f2  |0.fsize%(0)=0):.|
0000d090  65 72 72 28 31 30 39 29  0d 56 a4 25 e7 a4 76 5f  |err(109).V.%..v_|
0000d0a0  28 31 29 3e 30 54 24 3d  22 2c 22 2b 66 6e 24 3a  |(1)>0T$=","+fn$:|
0000d0b0  f2 63 6c 6f 73 65 66 69  6c 65 28 b9 29 0d 56 ae  |.closefile(.).V.|
0000d0c0  21 f2 6d 73 74 6f 72 65  28 22 31 3a 22 2b 54 24  |!.mstore("1:"+T$|
0000d0d0  2c 22 4d 53 54 72 61 6e  73 66 65 72 22 29 0d 56  |,"MSTransfer").V|
0000d0e0  b8 04 0d 56 c2 22 dd f2  66 61 73 74 73 6f 72 74  |...V."..fastsort|
0000d0f0  3a e7 a4 76 5f 28 31 29  3c 3e 30 f2 65 72 72 28  |:..v_(1)<>0.err(|
0000d100  31 31 30 29 0d 56 cc 1e  f2 6d 73 74 6f 72 65 28  |110).V...mstore(|
0000d110  22 22 2c 22 4d 53 46 61  73 74 53 6f 72 74 22 29  |"","MSFastSort")|
0000d120  3a e1 0d 56 d6 04 0d 56  e0 2b dd a4 69 6e 64 65  |:..V...V.+..inde|
0000d130  78 6e 61 6d 65 28 54 25  29 3a c8 99 73 77 69 25  |xname(T%):..swi%|
0000d140  2c 69 73 74 61 74 5f 25  2c 54 25 b8 47 25 2c 50  |,istat_%,T%.G%,P|
0000d150  25 0d 56 ea 09 3d 24 73  64 25 0d 56 f4 04 0d 56  |%.V..=$sd%.V...V|
0000d160  fe 1c dd f2 6e 65 77 69  6e 64 65 78 28 54 25 29  |....newindex(T%)|
0000d170  3a ea 66 25 2c 54 24 2c  74 24 0d 57 08 18 66 25  |:.f%,T$,t$.W..f%|
0000d180  3d 25 31 30 30 30 31 30  30 31 31 3a e7 54 25 3e  |=%100010011:.T%>|
0000d190  30 8c 0d 57 12 1c 74 24  3d a4 66 6e 61 6d 65 31  |0..W..t$=.fname1|
0000d1a0  28 54 25 29 3a ea 49 25  2c 4a 25 2c 4b 25 0d 57  |(T%):.I%,J%,K%.W|
0000d1b0  1c 2c 54 24 3d a4 75 28  a4 66 6e 61 6d 65 28 54  |.,T$=.u(.fname(T|
0000d1c0  25 29 29 3a 4b 25 3d a4  6e 69 6e 64 69 63 65 73  |%)):K%=.nindices|
0000d1d0  3a 49 25 3d 31 3a 4a 25  3d 31 0d 57 26 0c c8 95  |:I%=1:J%=1.W&...|
0000d1e0  49 25 3c 3d 4b 25 0d 57  30 1b c8 99 73 77 69 25  |I%<=K%.W0...swi%|
0000d1f0  2c 69 73 74 61 74 5f 25  2c 49 25 b8 47 25 2c 50  |,istat_%,I%.G%,P|
0000d200  25 0d 57 3a 12 c8 99 73  77 69 25 2c 75 70 70 65  |%.W:...swi%,uppe|
0000d210  72 5f 25 0d 57 44 16 e7  54 24 3d 24 73 64 25 80  |r_%.WD..T$=$sd%.|
0000d220  4a 25 3d 31 3a 4a 25 3d  32 0d 57 4e 38 e7 c0 24  |J%=1:J%=2.WN8..$|
0000d230  73 64 25 2c a9 54 24 29  3d 54 24 3a e7 bb c1 24  |sd%,.T$)=T$:...$|
0000d240  73 64 25 2c a9 54 24 2b  32 29 3e 3d 4a 25 3a 4a  |sd%,.T$+2)>=J%:J|
0000d250  25 3d bb c1 24 73 64 25  2c a9 54 24 2b 32 29 2b  |%=..$sd%,.T$+2)+|
0000d260  31 0d 57 58 09 49 25 2b  3d 31 0d 57 62 1f ce 3a  |1.WX.I%+=1.Wb..:|
0000d270  e7 4a 25 3e 31 54 24 2b  3d 22 2d 22 2b c2 22 30  |.J%>1T$+="-"+."0|
0000d280  30 22 2b c3 4a 25 2c 33  29 0d 57 6c 27 66 25 3d  |0"+.J%,3).Wl'f%=|
0000d290  25 31 30 30 30 31 30 30  31 31 3a c8 99 73 77 69  |%100010011:..swi|
0000d2a0  25 2c 73 64 31 37 5f 25  2c 34 2c 54 25 b8 47 25  |%,sd17_%,4,T%.G%|
0000d2b0  0d 57 76 37 e7 28 47 25  80 37 29 3c 3e 37 3a 66  |.Wv7.(G%.7)<>7:f|
0000d2c0  25 3d 25 30 30 30 30 30  30 30 30 30 3a e7 28 47  |%=%000000000:.(G|
0000d2d0  25 80 37 29 3c 3e 30 66  25 3d 66 25 84 25 30 31  |%.7)<>0f%=f%.%01|
0000d2e0  30 30 30 30 30 30 30 0d  57 80 05 cd 0d 57 8a 18  |0000000.W....W..|
0000d2f0  f2 69 77 69 6e 64 28 54  24 2c 74 24 2c 66 25 2c  |.iwind(T$,t$,f%,|
0000d300  30 29 3a e1 0d 57 94 04  0d 57 9e 1f dd f2 69 77  |0):..W...W....iw|
0000d310  69 6e 64 28 54 24 2c 74  24 2c 66 25 2c 72 25 29  |ind(T$,t$,f%,r%)|
0000d320  3a ea 54 25 2c 49 25 0d  57 a8 33 77 5f 69 6e 64  |:.T%,I%.W.3w_ind|
0000d330  65 78 25 3d a4 63 72 77  69 6e 64 28 74 77 5f 69  |ex%=.crwind(tw_i|
0000d340  6e 64 65 78 25 29 3a f2  75 6e 73 65 6c 61 6c 6c  |ndex%):.unselall|
0000d350  28 77 5f 69 6e 64 65 78  25 29 0d 57 b2 2d f2 73  |(w_index%).W.-.s|
0000d360  65 74 69 28 77 5f 69 6e  64 65 78 25 2c 31 2c 54  |eti(w_index%,1,T|
0000d370  24 29 3a f2 73 65 74 69  28 77 5f 69 6e 64 65 78  |$):.seti(w_index|
0000d380  25 2c 33 2c 74 24 29 0d  57 bc 2d f7 2b 31 3a e3  |%,3,t$).W.-.+1:.|
0000d390  49 25 3d 34 b8 31 31 3a  f3 54 25 3a e7 66 25 80  |I%=4.11:.T%:.f%.|
0000d3a0  54 25 f2 73 65 6c 69 28  77 5f 69 6e 64 65 78 25  |T%.seli(w_index%|
0000d3b0  2c 49 25 29 0d 57 c6 2a  ed 3a 64 69 61 6c 72 65  |,I%).W.*.:dialre|
0000d3c0  61 73 6f 6e 25 3d 72 25  3a f2 64 69 61 6c 6f 67  |ason%=r%:.dialog|
0000d3d0  75 65 28 77 5f 69 6e 64  65 78 25 29 3a e1 0d 57  |ue(w_index%):..W|
0000d3e0  d0 1a dc 31 2c 32 2c 34  2c 38 2c 31 36 2c 36 34  |...1,2,4,8,16,64|
0000d3f0  2c 32 35 36 2c 31 32 38  0d 57 da 04 0d 57 e4 2f  |,256,128.W...W./|
0000d400  dd f2 65 64 69 74 69 6e  64 65 78 3a c8 99 73 77  |..editindex:..sw|
0000d410  69 25 2c 69 73 74 61 74  5f 25 2c 6d 65 6e 75 69  |i%,istat_%,menui|
0000d420  6e 64 65 78 25 b8 47 25  2c 50 25 0d 57 ee 21 f2  |ndex%.G%,P%.W.!.|
0000d430  69 77 69 6e 64 28 24 73  64 25 2c 24 28 73 64 25  |iwind($sd%,$(sd%|
0000d440  2b 31 36 29 2c 47 25 2c  31 29 3a e1 0d 57 f8 04  |+16),G%,1):..W..|
0000d450  0d 58 02 0e dd f2 64 65  6c 69 6e 64 65 78 0d 58  |.X....delindex.X|
0000d460  0c 1d ea 54 25 3a 54 25  3d 6d 65 6e 75 69 6e 64  |...T%:T%=menuind|
0000d470  65 78 25 84 28 31 3c 3c  32 37 29 0d 58 16 22 c8  |ex%.(1<<27).X.".|
0000d480  99 73 77 69 25 2c 6d 61  6b 65 69 6e 64 65 78 5f  |.swi%,makeindex_|
0000d490  25 2c 22 22 2c 22 22 2c  22 22 2c 54 25 0d 58 20  |%,"","","",T%.X |
0000d4a0  10 f2 6d 61 6b 65 69 6c  69 73 74 3a e1 0d 58 2a  |..makeilist:..X*|
0000d4b0  04 0d 58 34 0f dd a4 6e  65 77 66 64 28 41 24 29  |..X4...newfd(A$)|
0000d4c0  0d 58 3e 14 ea 49 25 2c  54 25 2c 74 25 3a 49 25  |.X>..I%,T%,t%:I%|
0000d4d0  3d a9 41 24 0d 58 48 30  c8 95 49 25 3e 30 80 c1  |=.A$.XH0..I%>0..|
0000d4e0  41 24 2c 49 25 2c 31 29  3e 3d 22 30 22 80 c1 41  |A$,I%,1)>="0"..A|
0000d4f0  24 2c 49 25 2c 31 29 3c  3d 22 39 22 3a 49 25 2d  |$,I%,1)<="9":I%-|
0000d500  3d 31 3a ce 0d 58 52 1e  e7 49 25 3d a9 41 24 3a  |=1:..XR..I%=.A$:|
0000d510  54 25 3d 34 2d 49 25 3a  8b 54 25 3d a9 41 24 2d  |T%=4-I%:.T%=.A$-|
0000d520  49 25 0d 58 5c 1e 74 25  3d bb c1 41 24 2c 49 25  |I%.X\.t%=..A$,I%|
0000d530  2b 31 29 2b 31 3a 41 24  3d c0 41 24 2c 49 25 29  |+1)+1:A$=.A$,I%)|
0000d540  0d 58 66 30 e7 54 25 3c  34 80 74 25 3e bb c0 22  |.Xf0.T%<4.t%>.."|
0000d550  39 39 39 39 22 2c 54 25  29 3a 54 25 2b 3d 31 3a  |9999",T%):T%+=1:|
0000d560  e7 a9 41 24 2b 54 25 3e  34 41 24 3d c0 41 24 29  |..A$+T%>4A$=.A$)|
0000d570  0d 58 70 16 3d 41 24 2b  c2 22 30 30 30 22 2b c3  |.Xp.=A$+."000"+.|
0000d580  74 25 2c 54 25 29 0d 58  7a 04 0d 58 84 13 dd f2  |t%,T%).Xz..X....|
0000d590  63 68 65 63 6b 74 79 70  65 3a ea 41 25 0d 58 8e  |checktype:.A%.X.|
0000d5a0  56 41 25 3d a4 69 61 28  77 5f 66 73 69 7a 65 25  |VA%=.ia(w_fsize%|
0000d5b0  2c 36 29 3a e7 6c 63 61  72 64 73 24 3c 3e 24 41  |,6):.lcards$<>$A|
0000d5c0  25 3a f2 75 6e 73 65 6c  61 6c 6c 28 77 5f 66 73  |%:.unselall(w_fs|
0000d5d0  69 7a 65 25 29 3a f2 73  65 6c 69 28 77 5f 66 73  |ize%):.seli(w_fs|
0000d5e0  69 7a 65 25 2c 33 29 3a  6c 63 61 72 64 73 24 3d  |ize%,3):lcards$=|
0000d5f0  24 41 25 0d 58 98 58 41  25 3d a4 69 61 28 77 5f  |$A%.X.XA%=.ia(w_|
0000d600  66 73 69 7a 65 25 2c 37  29 3a e7 6c 6b 62 79 74  |fsize%,7):.lkbyt|
0000d610  65 73 24 3c 3e 24 41 25  3a f2 75 6e 73 65 6c 61  |es$<>$A%:.unsela|
0000d620  6c 6c 28 77 5f 66 73 69  7a 65 25 29 3a f2 73 65  |ll(w_fsize%):.se|
0000d630  6c 69 28 77 5f 66 73 69  7a 65 25 2c 34 29 3a 6c  |li(w_fsize%,4):l|
0000d640  6b 62 79 74 65 73 24 3d  24 41 25 0d 58 a2 05 e1  |kbytes$=$A%.X...|
0000d650  0d 58 ac 04 0d 58 b6 14  dd f2 77 72 69 74 65 66  |.X...X....writef|
0000d660  6c 61 67 73 3a ea 54 24  0d 58 c0 4a 54 24 3d a4  |lags:.T$.X.JT$=.|
0000d670  66 6c 67 73 74 72 28 73  6f 75 6e 64 25 29 2b a4  |flgstr(sound%)+.|
0000d680  66 6c 67 73 74 72 28 73  74 6f 70 62 6f 78 65 73  |flgstr(stopboxes|
0000d690  25 29 2b a4 66 6c 67 73  74 72 28 73 68 61 64 6f  |%)+.flgstr(shado|
0000d6a0  77 73 25 29 2b a4 66 6c  67 73 74 72 28 70 69 78  |ws%)+.flgstr(pix|
0000d6b0  25 29 0d 58 ca 22 ff 22  2a 53 65 74 20 4d 75 6c  |%).X."."*Set Mul|
0000d6c0  74 69 53 74 6f 72 65 24  46 6c 61 67 73 20 22 2b  |tiStore$Flags "+|
0000d6d0  54 24 3a e1 0d 58 d4 04  0d 58 de 1f dd a4 66 6c  |T$:..X...X....fl|
0000d6e0  67 73 74 72 28 54 25 29  3a e7 54 25 3a 3d 22 2a  |gstr(T%):.T%:="*|
0000d6f0  22 3a 8b 3d 22 2d 22 0d  58 e8 04 0d 58 f2 15 dd  |":.="-".X...X...|
0000d700  f2 73 74 72 66 6c 67 28  54 24 2c f8 20 54 25 29  |.strflg(T$,. T%)|
0000d710  0d 58 fc 1d e7 54 24 3d  22 2a 22 3a 54 25 3d b9  |.X...T$="*":T%=.|
0000d720  3a 8b e7 54 24 3d 22 2d  22 54 25 3d a3 0d 59 06  |:..T$="-"T%=..Y.|
0000d730  05 e1 0d 59 10 04 0d 59  1a 32 dd f2 72 65 61 64  |...Y...Y.2..read|
0000d740  66 6c 61 67 73 3a ea 54  24 3a 54 24 3d a4 41 72  |flags:.T$:T$=.Ar|
0000d750  66 56 61 72 28 22 4d 75  6c 74 69 53 74 6f 72 65  |fVar("MultiStore|
0000d760  24 46 6c 61 67 73 22 29  0d 59 24 37 f2 73 74 72  |$Flags").Y$7.str|
0000d770  66 6c 67 28 c0 54 24 2c  31 29 2c 73 6f 75 6e 64  |flg(.T$,1),sound|
0000d780  25 29 3a f2 73 74 72 66  6c 67 28 c1 54 24 2c 32  |%):.strflg(.T$,2|
0000d790  2c 31 29 2c 73 74 6f 70  62 6f 78 65 73 25 29 0d  |,1),stopboxes%).|
0000d7a0  59 2e 35 f2 73 74 72 66  6c 67 28 c1 54 24 2c 33  |Y.5.strflg(.T$,3|
0000d7b0  2c 31 29 2c 73 68 61 64  6f 77 73 25 29 3a f2 73  |,1),shadows%):.s|
0000d7c0  74 72 66 6c 67 28 c1 54  24 2c 34 2c 31 29 2c 70  |trflg(.T$,4,1),p|
0000d7d0  69 78 25 29 0d 59 38 1b  2a 75 6e 73 65 74 20 4d  |ix%).Y8.*unset M|
0000d7e0  75 6c 74 69 53 74 6f 72  65 24 46 6c 61 67 73 0d  |ultiStore$Flags.|
0000d7f0  59 42 05 e1 0d 59 4c 04  0d 59 56 0c dd f2 6e 6f  |YB...YL..YV...no|
0000d800  76 61 72 73 0d 59 60 05  e1 0d 59 6a 04 0d 59 74  |vars.Y`...Yj..Yt|
0000d810  1f dd f2 70 69 63 70 61  74 68 3a ea 54 24 3a e7  |...picpath:.T$:.|
0000d820  a9 66 69 6c 65 24 3e 32  33 30 3a e1 0d 59 7e 3b  |.file$>230:..Y~;|
0000d830  54 24 3d a4 41 72 66 56  61 72 28 22 4d 75 6c 74  |T$=.ArfVar("Mult|
0000d840  69 53 74 6f 72 65 50 69  63 73 24 50 61 74 68 22  |iStorePics$Path"|
0000d850  29 3a e7 a7 a4 75 28 54  24 29 2c a4 75 28 66 69  |):...u(T$),.u(fi|
0000d860  6c 65 24 29 29 3a e1 0d  59 88 1f 66 69 6c 65 24  |le$)):..Y..file$|
0000d870  2b 3d 22 2e 22 3a c8 95  a9 54 24 2b a9 66 69 6c  |+=".":...T$+.fil|
0000d880  65 24 3e 32 32 39 0d 59  92 25 f5 3a 54 24 3d c0  |e$>229.Y.%.:T$=.|
0000d890  54 24 29 3a fd c2 54 24  29 3d 22 2c 22 84 54 24  |T$):..T$)=",".T$|
0000d8a0  3d 22 22 3a 54 24 3d c0  54 24 29 0d 59 9c 17 ce  |="":T$=.T$).Y...|
0000d8b0  3a e7 54 24 3e 22 22 3a  66 69 6c 65 24 2b 3d 22  |:.T$>"":file$+="|
0000d8c0  2c 22 0d 59 a6 28 ff 22  53 65 74 20 4d 75 6c 74  |,".Y.(."Set Mult|
0000d8d0  69 53 74 6f 72 65 50 69  63 73 24 50 61 74 68 20  |iStorePics$Path |
0000d8e0  22 2b 66 69 6c 65 24 2b  54 24 0d 59 b0 2b e3 49  |"+file$+T$.Y.+.I|
0000d8f0  25 3d 30 b8 6d 61 78 66  25 3a e7 77 25 28 49 25  |%=0.maxf%:.w%(I%|
0000d900  2c 30 29 3e 30 f2 66 6f  72 63 65 28 77 25 28 49  |,0)>0.force(w%(I|
0000d910  25 2c 30 29 29 0d 59 ba  07 ed 3a e1 0d 59 c4 04  |%,0)).Y...:..Y..|
0000d920  0d 59 ce 15 dd a4 61 64  64 66 69 65 6c 64 28 54  |.Y....addfield(T|
0000d930  24 2c 54 25 29 0d 59 d8  28 ea 43 25 2c 74 24 2c  |$,T%).Y.(.C%,t$,|
0000d940  41 24 3a 74 24 3d 54 24  3a c8 95 c2 74 24 29 3d  |A$:t$=T$:...t$)=|
0000d950  22 20 22 3a 74 24 3d c0  74 24 29 3a ce 0d 59 e2  |" ":t$=.t$):..Y.|
0000d960  17 e7 74 24 3d 22 22 3a  3d a4 66 6e 61 6d 65 31  |..t$="":=.fname1|
0000d970  28 54 25 29 0d 59 ec 25  e7 c2 74 24 29 3d 22 40  |(T%).Y.%..t$)="@|
0000d980  22 84 c2 74 24 29 3d 22  23 22 3a 3d 74 24 2b a4  |"..t$)="#":=t$+.|
0000d990  66 6e 61 6d 65 28 54 25  29 0d 59 f6 21 43 25 3d  |fname(T%).Y.!C%=|
0000d9a0  a3 3a f7 2b 31 3a f5 3a  f3 41 24 3a 43 25 3d c2  |.:.+1:.:.A$:C%=.|
0000d9b0  74 24 2c a9 41 24 29 3d  41 24 0d 5a 00 1d fd 43  |t$,.A$)=A$.Z...C|
0000d9c0  25 84 41 24 3d 22 2a 2a  2a 2a 22 3a e7 ac 43 25  |%.A$="****":..C%|
0000d9d0  54 24 2b 3d 22 2b 22 0d  5a 0a 20 e7 a7 54 24 2c  |T$+="+".Z. ..T$,|
0000d9e0  22 40 22 29 3a 3d 54 24  2b 22 40 22 2b a4 66 6e  |"@"):=T$+"@"+.fn|
0000d9f0  61 6d 65 28 54 25 29 0d  5a 14 20 e7 a7 54 24 2c  |ame(T%).Z. ..T$,|
0000da00  22 23 22 29 3a 3d 54 24  2b 22 23 22 2b a4 66 6e  |"#"):=T$+"#"+.fn|
0000da10  61 6d 65 28 54 25 29 0d  5a 1e 13 3d 54 24 2b a4  |ame(T%).Z..=T$+.|
0000da20  66 6e 61 6d 65 31 28 54  25 29 0d 5a 28 2c dc 2b  |fname1(T%).Z(,.+|
0000da30  2c 2d 2c 2a 2c 2f 2c 41  4e 44 2c 4f 52 2c 4e 4f  |,-,*,/,AND,OR,NO|
0000da40  54 2c 3e 2c 3c 2c 3d 2c  28 2c 22 2c 22 2c 22 3a  |T,>,<,=,(,",",":|
0000da50  22 2c 2a 2a 2a 2a 0d ff                           |",****..|
0000da58