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

� 4:�ptrexit(!q%)

� 5:�ptrenter(!q%)

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

"� 7:�enddrag

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

6� 9:�menuselect

@�10

J�11

T�12

^�17,18:�umess1

h�19:�umess2

r�

|�normpoint

��

�

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

�@�(�-3��debug):$q%="TASK":ș"Wimp_CloseDown",taskhandle%,!q%

��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
&4quit%=�:dialreason%=-1:dialogue%=-1:dialfile%=-1
0ackpending%=�:ackref%=-1
:dragreason%=-1:help$=""
Dsavereason%=-1:savefile%=-1
Nfile2%=-1:reason2%=-1
Xmenufile%=-1:menusub%=-1
bcloseok%=�
lsbfile%=-1:pass$=""
v-pdriver%=�:ș"OS_Byte",182,0,255 �,pterm%
w0�(pterm%�&80)=0ș"OS_Byte",246,0,255�,pterm%
� �pterm%=10pterm%=1:�pterm%=2
�$id_wcia%=42:id_exb%=43:id_bbc%=0
�exi0%=-1:exi1%=-1:links%=0
�� edbuf% 256,edval% 15
�Jedfield%=-1:edfile%=-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
�$stopfile%=-1:lastact%=0:chunk%=7
�Ias$="Are you sure ?":rl$="Really ":ri$=rl$+"interrupt ?":fi$="File: "
�(sy$="Sorry! ":lastspr$="":copying%=0
�?source%=0:target%=1:tcd%=�:tws%=�:tns%=�:tsb%=�:expfield%=0
�'�23,255,0,126,126,126,126,126,126,0
�baricon:�


��swinums
 charswi%=&C0000
*�
4
>��filevars
H	� ;{n
R<� ;{n  window handles in w%(maxf%,maxw%) - <=0 = Deleted
\D� ;{n    (,0)=Card     (,1)=Pane     (,2)=Subsets    (,3)=Report
fC� ;{n    (,4)=Fields   (,5)=Indices  (,6)=Notepad    (,7)=Macro
p;� ;{n  tw%(maxf%,maxw%)   template pointers for windows
z2� ;{n  h%(maxf%)=File handles     0 = not open
�D� ;{n  f%(maxf%)=Format handles   0 = not open, -ve = not linked
�.� ;{n  s%(maxf%)=status (0=card displayed)
�2� ;{n                   (1=no cards in subset)
�:� ;{n                   (2=background action going on)
�%� ;{n  s$(maxf%)=fast find string
�.� ;{n+ d$(maxf%,23)=23 subset descriptions
�'� ;{n+ f$(maxf%)=filter expressions
�?� ;{n+ fx$(maxf%)=filters after expansion for abbreviations
�'� ;{n+ e$(maxf%)=search expressions
�8� ;{n+ w$(maxf%,14)=wordprocessor output expressions
�� ;{n+ wo%(maxf%)
�8� ;{n  ex$(maxf%)=search expressions after expansion
� � ;{n  fn$(maxf%)=file names
 � ;{n+ r%(maxf%)=report mode
I� ;{n  a%(maxf%)=background action in this file, -ve=linked to action
8� ;{n  e%(maxf%,2)=background activity status stuff:
$9� ;{n  fc%(maxf%)=fast find, number found last search
.$� ;{n  fl%(maxf%)=boolean flags:
82� ;{n+ t%(maxf%,3)=global variables for macros
B2� ;{n+ l$(maxf%)=link expression for this file
LD� ;{n+ lx$(maxf%)=expanded link expression. Also, link file name
V� ;{n+ lk$(maxf%)=link key
`"� ;{n+ st%(maxf%,2)=file stats
j	� ;{n
t.� ;{n    maxf%   = max array index (files)
~0� ;{n    maxw%   = max array index (windows)
�	� ;{n
�'ft_form%=&DE7:ft_data%=&DE8:maxw%=7
�H� w%(maxf%,maxw%),h%(maxf%),f%(maxf%),s%(maxf%),s$(maxf%),fc%(maxf%)
�H� fl%(maxf%),a%(maxf%),d$(maxf%,23),f$(maxf%),fx$(maxf%),t%(maxf%,3)
�A� tw%(maxf%,maxw%),e$(maxf%),ex$(maxf%),e%(maxf%,2),r%(maxf%)
�J� fn$(maxf%),l$(maxf%),lx$(maxf%),lk$(maxf%),w$(maxf%,14),st%(maxf%,2)
�H� wo%(maxf%),o$(maxf%),o%(maxf%,6),r$(maxf%),sr$(maxf%),ll%(maxf%,5)
�?� lf%(maxf%,15),p%(maxf%,4),p$(maxf%,7),c$(maxf%,maxcol%,1)
�� c%(maxf%,maxcol%)
�;f_filt%=1<<00:f_pane%=1<<01:f_macb%=1<<02:f_mace%=1<<03
�;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
2[f_reps%=f_rldu%�f_rlsu%�f_rejb%�f_reja%�f_rdsp%�f_rtpn%�f_rbpn%�f_rpdt%�f_rtpg%�f_rtsu%
<!f_save%=-1��(f_pane%�f_sadd%)
FKf_dflt%=f_fspc%�f_fupp%�f_sspc%�f_supp%�f_stot%�f_stit%�f_sdas%�f_wspc%
P�
Z
d��sdvars
nșswi%,sd64_%,3�linegap%
xmargin%=8:�v_(1)=1:�err(3)
�1�sound%:șswi%,opt_%,10�G%:�șswi%,opt_%,9�G%
�8date%=�nyear(�now)*10000+�nmon(�now)*100+�nday(�now)
��
�
�-��checkprot:�T%:ș"FlexiFile_Address"�sd%
��
���:process%=2:�
�șswi%,reset_%,taskhandle%
�W�process%=3�stop(1,"OK. Please remove original &","replace backup if necessary",-1)
�<T%=�now:date$=�strdate(�nday(T%),�nmon(T%),�nyear(T%),4)
��sdvars
�process%=4:�
�

��version
/�T$:T$=version$:笤prod:T$+=" *UNFINISHED*"
8�seti(w_pinfo%,4,"v"+T$):$�tia(tw_status%,11)="v"+T$
"�
,
6,ݤprod=�version$,�version$,".")+1,1)="0"
@#��debug:�-1���prod:�quit(�):��
Jݤdebug=��prod ��-1��-2
T
^>ݤinitwimp:first%=�:taskhandle%=�task:�taskhandle%<>0:=200
hG$q%="TASK":ș"Wimp_Initialise",200,!q%,"MultiStore"�!q%,taskhandle%
rfirst%=�:=!q%
|
�
��tidy
��normpoint
��4,26:�0,2);:*fx4
�*fx225,1
�
*fx229
�Z%=0:șswi%,killtask_%
��:�:�" ";�:�quit(�)
�+�;menuend%-menufree%" bytes menu space"
�6�;endbuf%-curbuf%" bytes indirection buffer space"
�'�;tbe%-tbs%" bytes template buffer"
��
�
���baricon:�first%:�
+!q%=-1:q%!4=0:q%!8=0:q%!12=102:q%!16=68
0q%!20=%11000000000010:$(q%+24)="!"+�appl$,9)
$ș"Wimp_CreateIcon",,q%�baricon%
&�
0
:��strip(� T$)
D$sd%=T$:șswi%,strip_%
NT$=$sd%
X�
b
l��upper(� T$)
v$sd%=T$:șswi%,upper_%
�
T$=$sd%:�
�
�!��error(err%,err$,erl%,quit%)
�+�debug:�4,30:�err$" @ ";erl%;:�quit(�)
�.�normpoint:dragreason%=-1:@%=&90A:*fx229,1
��i%,e%,t$,T$
�笤prod:err$+=" ("+Þ+")"
��
���:�error(�,�$,�,�)
�9!q%=err%:$(q%+4)=err$:ș"Wimp_ReportError",q%,1,appl$
��quit%:�quit(�)
��
�
+��report:�debug:�4:�:�" @ ";�:�quit(�)
�

 	ݤdir
* �T$:T$=�ArfVar(appl$+"$Dir")
4!�T$="":T$="&.!"+�appl$,9)+"."
>��T$)<>".":T$+="."
H=T$
R
\ݤArfVar(A$):�L%,V%
f=ș"XOS_ReadVarVal",A$,workbuf%,254,0,3�,,L%;V%:�V%�1:L%=0
pworkbuf%?L%=13:=$workbuf%
z
���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
	.�
	8�
	B
	L��dataopen
	V(�q%!40=ft_form%:�dataloadack:�err(1)
	`�q%!40<>ft_data%:�
	j"�dataloadack:mh%=-1:�checkopen
	tB�process%=0:笤dialogue:�mstore("2:"+�zts(q%+44),"MultiStore")
	~�
	�
	�"��checkopen:�v_(1)>0�err(104)
	��
	�
	���dataload
	��copying%>0�buzz1:�
	�del%=q%!12<>0
	��readpointer:�wtof(mh%)
	�
Ȏ � �
	�U� q%!40=&1000:file$=�zts(q%+44):�stop(38,�file$,29),rl$+" set picture path ?",-1)
	�� q%!40=ft_data%�mh%=-2
	��dataloadack
L�process%=0笤dialogue:�checkopen:�mstore("3:"+�zts(q%+44),"MultiStore")

$� q%!40=ft_data%�mh%=w_transfer%
)�mi%=1�mi%=2:�opensource(�zts(q%+44))
)�mi%=3�mi%=4:�opentarget(�zts(q%+44))
(� q%!40=&FFD �mh%=-2
23�process%=0:笤dialogue:�checkconv(�zts(q%+44))
<� q%!40=ft_form%
F4�dataloadack:�wtof(mh%):�wind%>1�file%<0:�err(1)
P
�err(203)
Zr� q%!40=&FFF �file%>=0�wind%=6:�dataloadack:file$=�zts(q%+44):�stop(14,fi$+�filename,rl$+"load notes ?",file%)
dr� q%!40=&FFF �file%>=0�wind%=7:�dataloadack:file$=�zts(q%+44):�stop(19,fi$+�filename,rl$+"load macro ?",file%)
n;� q%!40=&D7B:�dataloadack:file$=�zts(q%+44):�checksetup
x�
��
�
�
��noscrap
��del%:*remove <Wimp$Scrap>
��
�
���datasaved:�dialogue:�
��readpointer:�wtof(mh%)
�
Ȏ � �
�A� q%!40=&FFF �file%>=0�(wind%=6�wind%=7�wind%=0):�datasaveack
��
��
�

��err(E%)
9�T$,A$:�file%>=0A$=", "+fi$+�filename+" - ":�A$=" - "
@%=&90A:*fx229,1
"	ȎE%�
,�0:T$=�$
60�1:T$="To use a format, drag it onto a card"
@-�2:T$="Must be version 1.8 WIMP or later"
J.�3:T$="Sorry! Too many files already open"
TA�4:T$="Sorry! 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"
hc�6:T$="Couldn't open file: "+�$:�$="Data lost":T$+=" (Ensure the disc is not write protected)"
r%�7:T$="Couldn't open format: "+�$
|#�8:T$="Filter expression"+A$+�$
�#�9:T$="Search expression"+A$+�$
�(�10:T$="Unbalanced quote marks ("")"
� �11:T$="Unbalanced brackets"
�.�12:T$="No cards to search in this subset"
�F�13:T$="The name should be 2-4 characters and start with a letter"
�D�14:T$="Please specify the maximum value to store in the subset"
�"�15:T$="Subset already exists"
�1�16:T$="Field names must start with a letter"
�,�17:T$="Copying/combining subsets"+A$+�$
� �18:T$="English query"+A$+�$
�%�19:T$="Can't understand meaning"
�'�20:T$="Macro line "+�(er%+1)+A$+�$
�6�21:T$="Missing THEN or GO clause in IF statement"
-�22:T$="Invalid macro line number for GO"
(�23:T$="Illegal variable assignment"
&�24:T$="Field assignment expected"
&%�25:T$="Field name not specified"
0-�26:T$="Subset value assignment expected"
:-�27:T$="Subset name/letter not specified"
D'�28:T$="Invalid subset name/letter"
N1�29:T$="Illegal notepad reference identifier"
X9�30:T$="Abbreviated expression too complex to expand"
b%�31:T$="Illegal pattern matching"
l>�32:T$="Validating card"+A$+�$+" (Filter/Subset disabled)"
v+�33:T$="Illegal global variable number"
�"�34:T$="Sort expression"+A$+�$
�+�35:T$="Expression should not be blank"
�7�36:T$="Fast find"+A$+"couldn't find matching card"
�"�37:T$="Link expression"+A$+�$
��38:T$="Link file not open"
�-�39:T$="You can't link to an active file"
�1�40:T$="You can't have a circular link setup"
�#�41:T$="Printer already in use"
�9�42:T$="Printer in use by file "+�ofilename(printer%)
�2�43:T$="Printing"+A$+�$+" (Report terminated)"
�+�44:T$="Simple report definition"+A$+�$
�!�45:T$="Report formula"+A$+�$
�9�46:T$="Exporting report"+A$+�$+" (export cancelled)"

E�47:T$="The two new passwords must be identical. Please re-enter"

*�48:T$="Not a suitable printer driver"

1�49:T$="You can't load that setup file there"

 1�50:T$="Can't recognise format of setup file"

*<�51:T$="You must specify the current password correctly"

4>�54:T$="Plotting picture"+A$+�$+" (release ALT to redraw)"

>�59:T$="Program not found"

H4�60:T$=�$+" - Can't load file creation software"

R=�61:T$="Sorry! Not enough subsets available for a search"

\2�62:T$=�$+" - Can't load file system software"

fI�100:T$=sy$+"You can't create a file/format while transferring cards"

pJ�103:T$=sy$+"No access to the printer driver while transferring cards"

zH�104:T$=sy$+"You can't access files directly during a card transfer"

�*�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!"

���200:T$="Please open both source and target files before proceeding (by dragging to the correct place on the transfer window)"

�2�201:T$="You already have a source file open!"

�2�202:T$="You already have a target file open!"

�=�203:T$=sy$+"You can't use formats in card transfer mode"

�@�204:T$="Field expression, field: "+�fname(menufield%)+A$+�$

�&�205:T$="Invalid field references"

�E�206:T$="No transfer defined - please select objects to transfer"

�.�207:T$="Couldn't transfer workspace: "+�$

�#�208:T$=�$+" - transfer failed"

�4�209:T$="Couldn't transfer numeric subsets: "+�$
)�210:T$="Couldn't transfer card: "+�$
2�211:T$=sy$+"that's not a Transfer setup file"
K�212:T$="Please open both source and target files before loading setup"
$(�213:T$=�$+" - failed to load setup"
.>�214:T$=sy$+"You can't copy the subsets without the cards"
8I�215:T$="Please close source/target files before cancelling transfer"
B�
L%�debug:T$+=" ("+Þ+") ["+�E%+"]"
V
�99,T$
`
j%��openfile(f$):�I%,T%:T%=opening%
t0w_open%=�crwind(tw_open%):�unselall(w_open%)
~�seli(w_open%,1-7*(T%=1))
�.�T%=0�seli(w_open%,0):��shadei(w_open%,16)
�!�I%=0�8:�shadei(w_open%,I%):�
�6file$=f$:�seti(w_open%,13,f$):�seti(w_open%,14,"")
�@$�ta(w_open%)="Open Source":�T%=1$�ta(w_open%)="Open Target"
��dialogue(w_open%):�
�
���openfile1(f$,m%,d%,p$,r%)
��I%,g%,h%,X%,Y%,T$
��
���:��:�loaderr:�
�p$=�su(p$)
��w%(opening%,0)>0�err(3)
Ah%=opening%:T$=f$:m%=�(99/(maxf%+1)+(99-(99/(maxf%+1)))*m%/7)

-w%(h%,0)=�crwind(tw%(h%,0)):�makepane(h%)
�p$=""p$=�pwcode(pass$)
)pass$=�pwcode(p$):�clearpass%pass$=""
(șswi%,password_%,p$
2%g%=0:șswi%,open_%,T$,m%,d%,r%�G%
<%g%=G%:�g%�?sd%<>13��warnfile:g%=�
F$h%(h%)=�v_(2):�initfile:�default
Pșswi%,selectkey_%,"?"
Zșswi%,sd45_%,"N"
d)T$="Source=":�opening%=1:T$="Target="
n9�sdfile(h%):$�ta(w%(h%,0))=T$+�filename:�fext:�readws
x�opening%=0�initpane
�)X%=h%*80+panew%+8:Y%=900-h%*40-paneh%
�>�open(w%(h%,0),X%,Y%,X%+paneh%,Y%+paneh%,0,0,-1):�validrec
�șswi%,sd57_%,"bit7"�G%
��flg(f_7bit%,G%):fn$(h%)=f$
��opening%=1�
�)I%=4:�makeflist(h%):șswi%,subset_%,0
�șswi%,order_%�N%
��
�I%=2
��
�#�seti(w_transfer%,I%,�filename)
�(�v_(1)<>4:�front(w_transfer%,-1,-1)
��g%�dialogue(w_mess%)
�

��warnfile
"*�T%,t%,I%,T$:w_mess%=�crwind(tw_mess%)
,�+1:�I%=0�7:�T$
6)�g%�(2^I%):�seti(w_mess%,T%,T$):T%+=1
@�:�$sd%>""�
JJ�seti(w_mess%,T%,"Password violations have occured as follows:"):T%+=1
Tt%=sd%:�
^>�t%<sd%+192:�$t%>"":�seti(w_mess%,T%,"  Using "+$t%):T%+=1
ht%+=64:�t%=sd%+192
r�
|)ȕT%<6:�seti(w_mess%,T%,""):T%+=1:�:�
�>�"** This file MAY be CORRUPTED due to illegal closure **"
�<�"  ** This file has been accessed by older software **"
�	�,,,,
�
���initfile
�*f%(h%)=0:s%(h%)=0:s$(h%)="":fc%(h%)=-1
�?a%(h%)=0:f$(h%)="":fx$(h%)="":e$(h%)="":ex$(h%)="":r%(h%)=1
�8o$(h%)="":o%(h%,0)=3:r$(h%)="":�I%=0�3:t%(h%,I%)=0:�
�.l$(h%)="":lk$(h%)="":lx$(h%)="":sr$(h%)=""
�%fn$(h%)="":p%(h%,0)=0:p$(h%,0)=""
�6�I%=0�23:d$(h%,I%)="":�:�I%=0�18:�note(h%,I%,""):�
�)�I%=0�29:�macln(h%,I%,""):�:wo%(h%)=0
�3�I%=0�15:lf%(h%,I%)=0:�:�I%=0�14:w$(h%,I%)="":�
Lll%(h%,0)=30:ll%(h%,1)=4:ll%(h%,2)=4:ll%(h%,3)=9:ll%(h%,4)=2:ll%(h%,5)=1
3fl%(h%)=f_dflt%:�tools%:fl%(h%)=fl%(h%)�f_pane%
�
&
0��loaderr:�I%
:�normpoint:�h%>=0�
D�g%:�delw(w_mess%)
N�w%(h%,0)>0�delw(w%(h%,0))
X�w%(h%,1)>0�delw(w%(h%,1))
b�h%(h%)>0:�closefile(h%)
l�=&80301�
vDw_open%=�crwind(tw_open%):�unselall(w_open%):�seli(w_open%,m%+1)
�8�d%�seli(w_open%,0):�opening%<>0:�shadei(w_open%,16)
�!�I%=0�8:�shadei(w_open%,I%):�
�6file$=f$:�seti(w_open%,13,f$):�seti(w_open%,14,"")
�F$�ta(w_open%)="Open Source":�opening%=1$�ta(w_open%)="Open Target"
�!�dialogue(w_open%):file%=-1:�
��
��
�file%=-1:�err(6):�
�
���closefile(h%):�I%
��sdfile(h%):�ready:�writews
��closeform:�delfilews(h%)
�5h%(h%)=0:s%(h%)=0:f%(h%)=0:a%(h%)=0:w%(h%,0)=-1E9
)closeok%=�:file%=-1:șswi%,close_%�S%
�readtran:�transfer:�

 #��align(h%,I%):�tx1%-tx0%>108:�
*��align1(h%,I%)
4.tx0%=h%*80+I%*40-40+panew%+8:tx1%=tx0%+440
>)ty1%=900-h%*40-I%*40+40:ty0%=ty1%-320
H�
R
\��makepane(h%)
f)�P%:P%=�crwind(tw%(h%,1)):w%(h%,1)=P%
pC�getw(P%):paneh%=y1%-y0%:panew%=x1%-x0%:�wext(P%,panew%,paneh%)
z�h%=target%:�delw(w%(h%,1))
��
�
���makesubs(h%)
��P%,T$,I%,J%,K%,T%
�:K%=w%(h%,2)>0:�K%�getw(w%(h%,2))��readblock(tw%(h%,2))
�4tx0%=x0%:ty0%=y0%:tx1%=x1%:ty1%=y1%:�align(h%,2)
�A�delfilew(h%,2):P%=�crwind(tw%(h%,2)):w%(h%,2)=P%:�sdfile(h%)
�*$�ta(w%(h%,2))="Subsets of "+�filename
�T$=�substr:�I%=0�23
�<�T$,I%+1,1)<>".":�loseicon(P%,I%+5):�loseicon(P%,I%+29)
��
�*ȕT$>""��T$)<>".":T$=�T$):�:T$=�T$,24)
�+C%=((�T$-1)�6+1)*56+62:�K%:C%=ty1%-ty0%
4T%=(3-(�T$-1)�6)*56:J%=0:�I%=0�9:T$=�subname(I%)
�seti(P%,I%+53,T$):�T$=""�
�loseicon(P%,I%+53)
$�
..�geti(P%,I%+53):�delicon(P%,I%+53):J%=I%+1
8:q%!4=!q%:q%!12+=T%:q%!20+=T%:ș"Wimp_CreateIcon",,q%+4
B�
L �:�geti(P%,4):�delicon(P%,4)
V:q%!4=!q%:q%!12+=T%:q%!20+=T%:ș"Wimp_CreateIcon",,q%+4
`8T%+=((10-J%)�5)*64:�getw(P%):�wext(P%,ex1%,-ey0%-T%)
jC�showsub1:�open(w%(h%,2),tx0%,ty1%-C%,tx1%+x1%-x0%,ty1%,0,0,-1)
t�
~
���makeflist(h%):�X%,Y%,T%
�=�P%:P%=�makewind(h%,4):T%=�ta(P%):$T%="Fields="+�filename
�*T%=�$T%+4:�formstat:șswi%,sd64_%,1�G%
��G%<T%G%=T%
�,X%=G%:�h%=target%:fwid%=X%*16+margin%+16
��h%=target%X%=255
�=Y%=�v_(7):�wext(P%,X%*16+margin%*2,Y%*linegap%+margin%*2)
��
�
���makeilist(h%):�X%,Y%,T%
�>�P%:P%=�makewind(h%,5):T%=�ta(P%):$T%="Indices="+�filename
� T%=�$T%+4:șswi%,sd64_%,2�G%
�G%<T%G%=T%

X%=G%:Y%=�nindices
5�wext(P%,X%*16+margin%*2,Y%*linegap%+margin%*2):�

(��makenotes(h%)
28�P%:P%=�makewind(h%,6):$�ta(P%)="Notepad="+�filename
<�
F
P��makemacro(h%)
Z6�P%:P%=�makewind(h%,7):$�ta(P%)="Macro="+�filename
d�
n
xݤmakewind(h%,T%):�P%,I%,K%
�=K%=w%(h%,T%)>0:�K%�getw(w%(h%,T%))��readblock(tw%(h%,T%))
�5tx0%=x0%:ty0%=y0%:tx1%=x1%:ty1%=y1%:�align(h%,T%)
�D�delfilew(h%,T%):P%=�crwind(tw%(h%,T%)):w%(h%,T%)=P%:�sdfile(h%)
�,�open(P%,tx0%,ty0%,tx1%,ty1%,0,0,-1):=P%
�
�1ݤcrwind(T%):ș"Wimp_CreateWindow",,T%�T%:=T%
�
���initpane
�)�graph:�seti(w%(file%,1),7,s$(file%))
�7�showsub:�showindex:�showfilter:�showfound:�showmac
��
�
���graph:�file%<>source%:�
�P%,T%:T%=file%:P%=w%(T%,1)
1�geti(P%,12):ș"Wimp_DeleteIcon",,q%:q%!4=!q%
1q%!16=6+(326-6)*�v_(17)/(�v_(16)-(�v_(16)=0))
"ș"Wimp_CreateIcon",,q%+4
,+ș"Wimp_ForceRedraw",P%,6,-216,326,-196
6�shownum:�
@
J
��shownum
T5�P%,T%,T$:T%=file%:�sdfile(T%):P%=w%(T%,1):�P%<0�
^N%=�v_(15):R%=�v_(17)
h(�geti(P%,13):ș"Wimp_DeleteIcon",,q%
r�badrec(N%)�
|T$="??????????":q%!16=10
��
�,T$="C"+�"0000000000"+�N%,�(R%-(R%<1))+1)
��N%=0:T$="Default"
�,q%!16=6+(326-6)*N%/(�v_(16)-(�v_(16)=0))
��
�Iq%!4=!q%:q%!8=q%!16-4:q%!12=-216:q%!20=-196:ș"Wimp_CreateIcon",,q%+4
�#�seti(P%,14,T$):�iconupd(P%,12)
��
�
�'��showsub:�P%:P%=w%(file%,1):�P%<0�
�%�seti(P%,17,�subdesc):�showsub1:�
�
���showsub1:�P%
P%=w%(file%,2):�P%>0�
'�subdisp1:�unselall(P%):�v_(11)=0�
�seli(P%,1)
&�
0�seli(P%,(�v_(11)�31)+28)
:(�subset%>31:�seli(P%,(�v_(11)�31)+4)
D�
N�
X�
b
l,��showindex:�P%,T%:P%=w%(file%,1):�P%<0�
vșswi%,istat_%,-1�G%,T%
��T%<=0$sd%=" * No Index *"
��seti(P%,16,$sd%):�
�
���showfilter
� �P%,T$:P%=w%(file%,1):�P%<0�
�@�flg(f_filt%)T$=�trunc(f$(file%),19):�T$="   * No Filter *"
��seti(P%,21,T$)
��
�
�
��showmac
� �P%,T$:P%=w%(file%,1):�P%<0�
�*�macmode:�seli(P%,18):��unseli(P%,18)
��

1ݤtrunc(T$,T%):�T$<=T%:=T$:�=�T$,T%-3)+"..."

 )��showfound:�P%:P%=w%(file%,1):�P%<0�
*#�seti(P%,23,""):�seti(P%,19,"")
4�
>
H2��delfilews(h%):�I%:�w%(h%,0)>0�delw(w%(h%,0))
R$�I%=1�maxw%:�delfilew(h%,I%):�:�
\
f��delfilew(h%,I%)
p@�w%(h%,I%)>0:�closew(w%(h%,I%)):�w%(h%,I%)>0�delw(w%(h%,I%))
z�
�
���umess2
�Ȏq%!16�
�$�6:�q%!8=loadref%:�datasaveack:�
��
��
�
���backgrnd:�T%
��ackpending%:ackpending%=�
��sbfile%>=0:�subdisp
�L%=lastact%:�
�L%=(L%+1)�(maxf%+1)
�)�L%=lastact%�(a%(L%)>0�L%<>stopfile%)
(�a%(L%)=0�L%=stopfile%�dialogue%>0:�
*lastact%=L%:�sdfile(L%):T%=�:Ȏa%(L%)�
�1:�copynext
$�
.(T%=(�-T%+4)�5:�T%<0T%=0:��T%>50T%=50
8.ș"OS_ReadMonotonicTime"�delay%:delay%+=T%
B�
L
V/��template1(T$,q%):T$=�lower(T$):� I%,T%,L%
`5I%=temp%+16:ȕ!I%>0��lower($(I%+12))<>T$:I%+=24:�
j-�!I%<=0:�99,"Template '"+T$+"' not found"
tCT%=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
�=�I%!24>0:I%!24=�workspace(�$T%+1):$(I%!24)=$T%:T%+=�$T%+1
��
��
��
�q%!64=sprites%
�


$��opentemplate(A$):temp%=�-30000
�"Load "+A$+" "+�~temp%:�
(
2��template(T$)
<�template1(T$,q%)
F�
P
Zݤtemplate(T$)
d�template1(T$,tbs%)
nT%=tbs%:tbs%+=88+tbs%!84*32
x)�tbs%>tbe%:�99,"Template buffer full"
�=T%
�
���defws
��I%
�bufsz%=&3000
�;� buffer% bufsz%:curbuf%=buffer%:endbuf%=buffer%+bufsz%
� �opentemplate(�dir+"MSFrm5")
�:�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%
�;�template("shadow"):ș"Wimp_CreateWindow",,q%�w_shadow%
bufsz%=&4500
6� template% bufsz%:tbs%=template%:tbe%=tbs%+bufsz%
�I%=0�maxf%
"tw%(I%,0)=�template("file")
,#tw%(I%,1)=�template("filepane")
6"tw%(I%,2)=�template("subsets")
@$tw%(I%,3)=�template("FieldList")
J$tw%(I%,4)=�template("FieldList")
T$tw%(I%,5)=�template("FieldList")
^"tw%(I%,6)=�template("Notepad")
h tw%(I%,7)=�template("Macro")
r�
| �opentemplate(�dir+"MSFrm6")
�1tw_expr%=�template("expression"):w_expr%=-1E9
�.tw_nums%=�template("numeric"):w_nums%=-1E9
�+tw_open%=�template("open"):w_open%=-1E9
�1tw_status%=�template("Status"):w_status%=-1E9
�.tw_mess%=�template("message"):w_mess%=-1E9
�7tw_transfer%=�template("transfer"):w_transfer%=-1E9
�7tw_transexp%=�template("transexp"):w_transexp%=-1E9
��
�
���loadsprites
�ssize%=16*1024
��sprites% ssize%
�2!sprites%=ssize%:ș"OS_SpriteOp",&109,sprites%
.ș"OS_SpriteOp",&10A,sprites%,�dir+"MSSpr"
�

&��defmenus
0�t$
:� mlist% 32,function% 51
Dbufsz%=&900
NC� menufree% bufsz%:menuptr%=menufree%:menuend%=menufree%+bufsz%
Xmenustart%=menufree%:�+2
b�t$:m_npad%=�crmenu(t$)
l+�"#Notepad,Clear,Export>w_save%,Update"
v�t$:m_main%=�crmenu(t$)
�N�"#MultiStore,Info>w_pinfo%,Transfer,Fast Sort,Create,Status,Printer,Quit"
��t$:m_macro1%=�crmenu(t$)
�'�"#Macro,Use#,Clear,Export>w_save%"
��t$:m_wind%=�crmenu(t$)
�8�"#Window,Subset,Field,Index,Notepad,Macro#,Tidy Up"
��t$:m_card%=�crmenu(t$)
�8�"#Card,Tools>w_pinfo%,Macro,Default,Window>m_wind%"
��t$:m_rtype%=�crmenu(t$)
�5�"#Type,Cards,Sheet,Formula,Labels,Wordpro,Paged"
��t$:m_rset1%=�crmenu(t$)
�%�"#Setup,Edit,Clear,Save}w_save%"
��t$:m_report%=�crmenu(t$)
�@�"#Report,Type>m_rtype%,Setup>m_rset1%,Print,Export}w_save%"
�t$:m_status%=�crmenu(t$)
_�"#Statusmenu..,Align Windows,Read Workspace,Write Workspace,Update Media,Extended Charset"
�t$:m_index%=�crmenu(t$)
 ,�"#Index,Ascending,Descending#,No Index"
*�t$:m_transfer%=�crmenu(t$)
4N�"#Transfer,Swap Files,Open Target,Clear Setup,Default,Save Setup>w_save%"
>�
H
R��front(h%,X%,Y%)
\
�getw(h%)
f�X%>=0x1%+=X%-x0%:x0%=X%
p�Y%>=0y1%+=Y%-y0%:y0%=Y%
z*�open(h%,x0%,y0%,x1%,y1%,scx%,scy%,-1)
��
�
�
��top(h%)
�6�getw(h%):�open(h%,x0%,y0%,x1%,y1%,scx%,scy%,-1):�
�
�4��open(oh%,ox0%,oy0%,ox1%,oy1%,oscx%,oscy%,obh%)
��O%,f%:f%=file%
�'!q%=oh%:ș"Wimp_GetWindowState",,q%
��wtof(oh%):�file%>=0�
�Ȏwind%�
�*�0:�file%<>target%�openpane:��wimpopen
�:�wimpopen
��
�

Ȏoh%�
:�wimpopen
$�
.�
8e�oh%=dialogue%�shadows%:�getw(oh%):�open(w_shadow%,x0%+ss%,y0%-ss%,x1%+ss%,y1%-ss%,0,0,dialogue%)
Bopen%=O%:�f%>=0:�sdfile(f%)
L�
V
`��wimpopen
j5!q%=oh%:q%!4=ox0%:q%!8=oy0%:q%!12=ox1%:q%!16=oy1%
t>q%!20=oscx%:q%!24=oscy%:q%!28=obh%:ș"Wimp_OpenWindow",,q%
~�
�
���openpane
�笤flg(f_pane%):�wimpopen:�
��P%,f%:P%=w%(file%,1)
�"f%=oy1%-paneh%:�f%<oy0%f%=oy0%
�
�getw(P%)
�$�bhandle%=obh%�obh%=w%(file%,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%(file%,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%)
�
(
2��closew(!q%)
<�I%,f%:f%=file%
F�wtof(!q%)
P�file%>=0�
ZȎwind%�
d,�0:�showbranch:�:��closeok%:�closeok:�
n9�3:�file%=edfile%:�edrec%>=0:�endedit:!q%=w%(file%,3)
x�
��
��!q%=dialogue%:�tidydial
�ș"Wimp_CloseWindow",,q%
�!�nodial:�wtof(!q%):�file%>=0�
�Ȏwind%�
��0:�closefile(file%)
�'�2,3,4,5,6,7:�delw(w%(file%,wind%))
��
��
�
Ȏ!q%�
��w_stop%:stopfile%=-1
��w_expr%:�delw(w_expr%)
��w_open%:�delw(w_open%)
�w_nums%:�delw(w_nums%)
�w_status%:�delw(w_status%)
�w_mess%:�delw(w_mess%)
"#�w_transfer%:�delw(w_transfer%)
,#�w_transexp%:�delw(w_transexp%)
6�
@�
J�
T
^��tidydial:�restorect
hDdialreason%=-1:dialogue%=-1:�closew(w_shadow%):exi0%=-1:exi1%=-1
rdialfile%=-1:�
|
���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"
 �
 &
 0<��geti(h%,i%):!q%=h%:q%!4=i%:ș"Wimp_GetIconState",,q%:�
 :
 D.ݤta(h%):!q%=h%:ș"Wimp_GetWindowInfo",,q%
 N,�(q%!60�&100)=0�1,"Title not indirected"
 X
=q%!76
 b
 l��stop(r%,T$,U$,T%)
 vdialreason%=r%:stopfile%=T%
 �#�-3��stopboxes%:mi%=3:�mstop:�
 �+�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
 �dialogue%=h%
!�front(h%,X%,Y%)
!�setct(h%,-1,-1)
!��@bC:�
! ;�readh(h%):�h%=dialogue%:�X%:�setct(h%,X%,�$�ia(h%,X%))
!*�h%<>-1:�:�X%:�X%<-1:h%=0
!4�h%=dialogue%�h%<0
!>�
!H
!R!��readpointer:�q%:q%=workbuf%
!\ș"Wimp_GetPointerInfo",,q%
!f1mx%=!q%:my%=q%!4:mb%=q%!8:mh%=q%!12:mi%=q%!16
!p�
!z
!�ݤdialogue:�file%
!�6�dialogue%>=0�mh%<>dialogue%�mh%<>w_shadow%�nodial
!�=�
!�
!�$��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%
!�B�copying%>0:�mh%<>dialogue%�(mh%<>w_transfer%�mi%<>16)�buzz1:�
!�
Ȏmb%�
!��2:�menu
!��1,4:�select
"�16,64:�startdrag
"�
"�
"$
".6��seti(h%,i%,T$):T$=�T$,�il(h%,i%)):$�ia(h%,i%)=T$
"8<�iconupd(h%,i%):�getct:�!q%=h%�q%!4=i%:�setct(h%,i%,�T$)
"B�
"L
"V'��iset(h%,i%,B%,E%):�q%:q%=workbuf%
"`?!q%=h%:q%!4=i%:q%!12=B%:q%!8=E%:ș"Wimp_SetIconState",,q%:�
"j
"t'��iconupd(h%,i%):�iset(h%,i%,0,0):�
"~
"���force(h%)
"�	Ȏh%�
"�.ș"Wimp_ForceRedraw",h%,-1E9,-1E9,1E9,1E9
"��
"��
"�
"���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%
#2�readblock(q%+4)
#<�
#F
#P��select
#Z�numi(mh%,mi%,mb%)
#d�file%>=0�
#nȎwind%�
#x�0:�file%=target%�
#�
�ready
#��
#�
�1:�mpane
#�
�2:�msubs
#��4:�mflist
#��5:�milist
#��
#��
#�3�mh%=dialogue%:�dialfile%>=0:�sdfile(dialfile%)
#�
Ȏmh%�
#�*�-2:�mb%=1��-1��-2:�oscli(""):��status
#��w_open%:�mopen
#��w_stop%:�mstop
$�w_save%:�msave
$�w_expr%:�mexpr
$�w_status%:�mstatus
$"$�w_mess%:�mi%=6:�closew(w_mess%)
$,�w_transfer%:�mtransfer
$6�w_transexp%:�mtransexp
$@�
$J�
$T�
$^
$h0��milist:�Y%:Y%=my%:�yconv(Y%,�nindices,mh%)
$r�Y%>0:�selindex(Y%,0)
$|�
$�
$�-��mflist:�Y%:Y%=my%:�yconv(Y%,�v_(7),mh%)
$�;menufield%=Y%:expfield%=Y%:�mb%<>1�findfield:��fieldexp
$��
$�
$���mpane
$�
Ȏmi%�
$��0:�bof
$��1:�back
$�
�2:�pause
$��3:�fwd
$��4:�eof
$�
�5:�ffind
%�6:�nextmatch
%�12:�gauge
%�14:�cardnum
%&*�18:�mb%=4�emacro:��s%(file%)=0:�macro
%0 �17:�mb%=1:�selsub(0):��subs
%:%�16:�mb%=1:�selindex(0,0):��index
%D�21:�filter
%N�
%X�
%b
%l��filter
%v$笤deadfile(%11111111111111110)�
%��mb%=1:�nofilt:��expr(0)
%��
%��
%�
%���msubs
%�#�deadfile(%11111111111111110)�
%�%�T%:T%=�itos:�T%>=0:�selsub(T%):�
%��
%�
%���mstop
%��mi%<3�mi%>4�
%�5�T%,U%:U%=stopfile%:T%=dialreason%:dialreason%=-1
%��mi%=3�
&'�closew(w_stop%):�U%>=0:�sdfile(U%)
&	ȎT%�
&&�2:closeok%=�:�closew(w%(file%,0))
& �6:�CLOSE:�quit(�)
&*�14:�loadnotes
&4�17:�clearnpad
&>�18:�clearmacro
&H�19:�loadmacro
&R�20:stopboxes%=�
&\�22:�updcards
&f�26:�asccard
&p�27:șswi%,setpass_%,""
&z�28:�loadsetup
&�&�29:p$(file%,0)="":�makerep(file%)
&�&�30:ll%(file%,0)=0:�makerep(file%)
&�%�31:wo%(file%)=-1:�makerep(file%)
&�.�32:șswi%,sd21_%,tx0%,ty0%,menufield%,sd$
&��forcecard
&��33:�r_clear:�forcerep
&��34:�delcol(menucol%)
&��35:�inscol(menucol%)
&�+�36:�"*settype "+file$+" "+�~menufield%
&��38:�picpath
&��200:�endact
&��201:�loadsetup
&��202:�clear
'�203:�default
'�
'�
'$�T%=1:�CLOSE:�quit(�)
'.�
'8�closew(w_stop%):�
'B
'L��msave
'V�mi%<>0�
'`0�T$:T$=$�ia(w_save%,2):�T$=�leaf(T$):�err(5)
'j1savetype%=savet%:task%=-1:file$=T$:�savedata1
't�
'~
'���mnums:�mi%<>4�mi%<>5:�
'��T%,B%,T$:�mi%=5�
'�&B%=�$�ia(w_nums%,3):�B%=0:�err(14)
'�%T%=0:ȕ2^T%<=B%:T%+=1:�:B%=2^T%-1
'�=T$=�up(�s($�ia(w_nums%,2))):�T$<2��T$>90��T$<65:�err(13)
'�Ȏdialreason%�
'��0
'�T%=�:�
'���:T%=�
'��T%:șswi%,nameread_%,T$�G%
'���:�T%:�err(15)
'�#T%=0:ȕ�subname(T%)<>"":T%+=1:�
("șswi%,namewrite_%,T$,B%,-1�G%
(
�1
(�submax(menusub%-256)<>B%�
(,șswi%,namewrite_%,T$,B%,menusub%-156�G%
((�
(2!șswi%,sd53_%,menusub%-256�G%
(<,șswi%,namewrite_%,T$,G%,menusub%-256�G%
(F�
(P�
(Z�makesubs(file%):�showsub
(d�
(n�closew(w_nums%):�
(x
(�#��mopen:�mi%=11�closew(w_open%)
(�
�mi%<>12�
(��I%,m%,d%,r%,p$
(�.p$=$�ia(w_open%,14):�wchi(w_open%):I%=q%:�
(��!I%=0:d%=�
(��!I%>0�!I%<9:m%=!I%-1
(��!I%=16:r%=�
(�:I%+=4:�I%!-4<0:file$=$�ia(w_open%,13):�closew(w_open%)
(�#�openfile1(file$,m%,d%,p$,r%):�
(�
(���mexpr
(�0�A%,T$,c%,s%,u%,I%,Q%,B%:�unseli(w_expr%,29)
(�<A%=�ia(w_expr%,17):�sdfile(dialfile%):�qbscan($A%,Q%,B%)
)
Ȏmi%�
)�2,3,4,5,6,7,8,9
)>�$A%>""��Q%$sd%=�"+-*/=<><()",mi%-1,1):�$sd%<>�$A%)T$=$sd%
)"�mi%=7:�T$>"":T$+=">"
),�seti(w_expr%,17,$A%+T$)
)6
�10,11
)@N�(($A%>""�B%>0)�mi%=10)��Q%:$sd%=�"()",mi%-9,1):�seti(w_expr%,17,$A%+$sd%)
)J
�12,13
)TT$=$A%:�$A%>""��Q%�
)^$sd%=�$A%):șswi%,upper_%
)h7�($sd%>="A"�$sd%<="Z")�($sd%>="0"�$sd%<="9")T$+=" "
)r�mi%=12T$+="AND"�T$+="OR"
)|�
)��seti(w_expr%,17,T$)
)�R�14:�$A%>""��Q%T$=$A%+"=""**""":�seti(w_expr%,17,T$):�setct(w_expr%,17,�$A%-2)
)�Q�15:�$A%>""��Q%T$=$A%+"~=""""":�seti(w_expr%,17,T$):�setct(w_expr%,17,�$A%-1)
)��20,21:�subs
)��22:�nodial
)��26:�nofilt:�nodial
)�B�29:�$A%=""�seti(w_expr%,17,ex$):�ex$=$A%:�seti(w_expr%,17,"")
)��23
)��wchi(w_expr%):I%=q%:�
)�
Ȏ!I%�
)��1:s%=�
)��0:u%=�
)��28:c%=�
*�
*I%+=4:�I%!-4=-1
*�conv($A%):�u%:�upplit($A%)
*&�seti(w_expr%,17,$A%)
*0Ȏdialreason%�
*:�0:�setfilt
*D�1:�search
*N
�2:�rset2
*X�
*b�nodial
*l�
*v�iconupd(w_expr%,17)
*��
*�
*�
��mstatus
*�
�T%,I%,A%
*�
Ȏmi%�
*��15,16,17,18,19,20,21,22
*�-T%=�statf:�T%>=0�front(w%(T%,0),-1,-1):��
*��12
*��13
*�sound%=�:shadows%=�:pix%=�
*��wchi(w_status%):I%=q%:�
*�
Ȏ!I%�
*��24:sound%=�
+�25:shadows%=�
+�23:A%=�
+�28:pix%=�
+ �
+*I%+=4:�I%!-4<0
+41�sound%:șswi%,opt_%,10�G%:�șswi%,opt_%,9�G%
+>�
+H�A%<>stopboxes%�
+RF�A%stopboxes%=�:��stop(20,rl$+"disable these","stop boxes ?",-1):�
+\�
+f�
+p�
+z�closew(w_status%):�
+�
+���mtransfer
+�
Ȏmi%�
+��15:�dotransfer
+�3�2:�w%(source%,0)>0:�front(w%(source%,0),-1,-1)
+�3�4:�w%(target%,0)>0:�front(w%(target%,0),-1,-1)
+��16:�endtransfer
+�!�-1:�front(w_transfer%,-1,-1)
+��
+��
+�
+���mtransexp:�mi%<>3�mi%<>4�
+�5�mi%=3:�T$:T$=�s($�ia(w_transexp%,1)):�setexp(T$)
,�closew(w_transexp%):�
,
,��setexp(T$)
,$�T$=""�
,.&fd$(expfield%)="":fd%(expfield%)=0
,8�
,B�sdfile(source%)
,L!t$=�x8(T$):fdx$(expfield%)=t$
,V,�:��:��:menufield%=expfield%:�err(204)
,`șswi%,sd59_%,T$�G%
,j�G%=-1:�err(205)
,t��
,~
�G%<0�
,�fd%(expfield%)=G%�&FFFFFF
,�-fd$(expfield%)="@"+�fname(fd%(expfield%))
,��
,�'fd%(expfield%)=-1:fd$(expfield%)=T$
,��
,��
,��updexp(expfield%)
,��
,�
,���startdrag
,�/dragreason%=-1:dragbutton%=mb%:menufile%=-1
,��wtof(mh%):�file%>=0�
-menufile%=file%
-
Ȏwind%�
-�0
-1�file%=source%���deadfile(%1111111101011111)�
-(<menufield%=�mousef:�menufield%>0dragreason%=3:�dragfield
-2�
-<�1
-F
Ȏmi%�
-PF�14:笤deadfile(-1):menufield%=-1:dragreason%=3:�dragicon(mh%,mi%)
-ZF�22:笤deadfile(%1111111101111111)dragreason%=1:�dragicon(mh%,mi%)
-d�
-n�2
-x`笤deadfile(%11111111111111110):menusub%=�itos:�menusub%>=0:dragreason%=2:�dragicon(mh%,mi%)
-��4
-��file%=source%�
-�:menufield%=my%:�formstat:�yconv(menufield%,�v_(7),mh%)
-�dragreason%=3:�dragfield1
-��
-�>�6:�mi%<19:dragreason%=6:menufield%=mi%:�dragicon(mh%,mi%)
-��
-��
-�
Ȏmh%�
-�6�w_save%:�mi%=3:dragreason%=5:�dragicon(w_save%,3)
-��
-��
-��
.
.
��enddrag
.1�readpointer:�menufile%>=0:�sdfile(menufile%)
."
�mh%<>-1�
.,Ȏdragreason%�
.6�1:�carddr
.@�2:�subsdr
.J�3:�fielddr
.T�4:�carddr1
.^K�5:�savereq(�leaf($�ia(w_save%,2)),savet%,saves%,savereason%,savefile%)
.h�6:�notedr
.r�
.|�
.�dragreason%=-1:menufile%=-1
.��
.�
.�,��unseli(h%,i%):�iset(h%,i%,&200000,0):�
.�0��seli(h%,i%):�iset(h%,i%,&200000,&200000):�
.�2��shadei(h%,i%):�iset(h%,i%,&400000,&400000):�
.�
.���unselall(h%)
.��I%,i%:�wchi(h%)
.�(I%=q%:�:i%=!I%:�i%>=0:�unseli(h%,i%)
.�I%+=4:�i%<0:�
.�
.�7��wchi(h%):ș"Wimp_WhichIcon",h%,q%,&200000,&200000
/�
/
/
��menu
/&)�wtof(mh%):menufile%=file%:�file%>=0�
/0Ȏwind%�
/:�0,1:�cardmenu
/D�5:�pop(m_index%,-1)
/N�6:�pop(m_npad%,-1)
/X�7:�pop(m_macro1%,-1)
/b�
/l�
/v
Ȏmh%�
/�1�-2:my%=64+7*44:menufile%=-1:�pop(m_main%,-1)
/��w_status%:�statmenu
/�%�w_transfer%:�pop(m_transfer%,-1)
/��
/��
/��
/�
/���cardmenu
/�:笤flg(f_pane%)��deadfile1(%11111111101111110)�ready:�
/�<�s%(file%)<>0��v_(15)<>0:�deadfile(%11111111101111110)�
/��pop(m_card%,-1):�
/�
/�.��statmenu:menufile%=�statf:�menufile%<0:�
0�pop(m_status%,-1):�
0
0ݤpar(t$,s$,� i%):�i1%
0 i1%=i%+1:i%=�t$+s$,s$,i1%)
0*=�t$,i1%,i%-i1%)
04
0>ݤcrmenu(menu$)
0H.�menufree%+28>menuend%�99,"Menu area full"
0R� m%
0\menuptr%=menufree%
0fi%=0
0pC� �menu$,1)="#"i%=1:menutitle$=�par(menu$,",",i%)�menutitle$=""
0z$menuptr%=menutitle$
0�;menuptr%?12=7:menuptr%?13=2:menuptr%?14=7:menuptr%?15=0
0�3menuptr%!16=196-24:menuptr%!20=44:menuptr%!24=0
0�"menuptr%+=28:maxx%=�menutitle$
0��item$=�par(menu$,",",i%)
0��menuitem(item$)
0�� item$=""
0�$m%=menufree%:m%!16=(maxx%*8+6)*2
0�menufree%=menuptr%
0�=m%
0�
0���menuitem(text$)
0�.�text$=""menuptr%!-24=(menuptr%!-24)�&80:�
0�.�menuptr%+24>menuend%��99,"Menu area full"
1�i%,flg%
1flg%=&00
1i%=�text$,">")
1$<�i%>0subptr%=��text$,i%+1):text$=�text$,i%-1)�subptr%=-1
1.i%=�text$,"}")
18;�i%>0subptr%=��text$,i%+1):text$=�text$,i%-1):flg%+=&08
1B)��text$,1)="#"text$=�text$):flg%+=&02
1L;menuptr%!0=flg%:menuptr%!4=subptr%:menuptr%!8=&07000021
1V�text$,1)="$"�
1`2!menuptr%+=&04:menuptr%!8+=&100:i%=�text$,"(")
1j3�i%>0�L%=��text$,i%+1):text$=�text$,i%-1)�L%=12
1t8menuptr%!12=��text$,2):menuptr%!16=-1:menuptr%!20=L%
1~text$=�L%," ")
1��
1��text$<=12�
1�$(menuptr%+12)=text$
1��
1�%I%=�workspace(�text$+1):$I%=text$
1�6menuptr%!12=I%:menuptr%!16=-1:menuptr%!20=�text$+1
1� menuptr%!8=menuptr%!8 � &100
1��
1��text$>maxx%maxx%=�text$
1��
1�menuptr%+=24
1��
2
2
ݤworkspace(L%)
22� curbuf%+L%>endbuf%�99,"No more buffer space"
2curbuf%+=L%:=curbuf%-L%
2(
22��prep(menu%,tree%)
2<
�I%,T$
2F4�clearts(menu%):�menufile%>=0:�sdfile(menufile%)
2PȎmenu%�
2Z�m_card%:�mp_card
2d�m_macro1%:�mp_macro1
2n�m_wind%:�mp_wind
2x�m_npad%:�mp_npad
2��m_main%:�mp_main
2��m_status%:�mp_status
2��m_report%:�mp_report
2��m_rtype%:�mp_rtype
2��m_rset1%:�mp_rset1
2��m_index%:�mp_index
2��m_transfer%:�mp_transfer
2��
2��
2�
2���mp_transfer
2�N�v_(1)<>4:�shade(menu%,0):�shade(menu%,2):�shade(menu%,3):�shade(menu%,4)
2�$�w%(target%,0)<=0�shade(menu%,1)
39�saveset(f_tf$,&D7B,200,-1,Ǝ�fd$()+maxfields%*2+200)
3�
3
3"��mp_index:�I%
3,3menuindex%=my%:�yconv(menuindex%,�nindices,mh%)
36,�nindices<=0:�I%=0�2:�shade(menu%,I%):�
3@�
3J
3T
��mp_card
3^�T%:T%=menu%+28+0*24+4
3h�menufile%=target%�
3r�shade(menu%,0)
3|�
3��shade(menu%,2)
3�:�flg(f_pane%):�tick(menu%,0):!T%=-1:�:!T%=w%(file%,1)
3��
3��macmode:�tick(menu%,1)
3��defon:�tick(menu%,2)
3��prep(m_wind%,tree%):�
3�
3���mp_macro1
3�Ȏ�macmode �
3��f_macb%:�tick(menu%,0)
3��f_mace%:�tick(menu%,0)
3��
3�*�saveset(f_mc$,&FFF,6,menufile%,80*30)
4�
4�
4
4&'��mp_file:�v_(1)<4:�shade(menu%,3)
40>�readonly:�shade(menu%,0):�shade(menu%,1):�shade(menu%,2)
4:�
4D
4N
��mp_wind
4X=�I%:�I%=0�maxw%-2:�w%(file%,I%+2)>0�tick(menu%,I%+(I%>0))
4b5�menufile%=target%�shade(menu%,0):�shade(menu%,2)
4l�:�
4v
4� ��mp_status:$menu%=�filename
4�șswi%,sd57_%,"type"�G%
4�I�G%<>id_wcia%�G%<>id_bbc%�G%<>id_exb%:�shade(menu%,1):�shade(menu%,2)
4�șswi%,sd57_%,"bit7"�G%
4��G%=0�tick(menu%,4)
4��
4�
4�
��mp_nums
4��nnums=10:�shade(menu%,0)
4�1�menusub%<255:�shade(menu%,2):�shade(menu%,1)
4��
4�
4�
��mp_npad
5*�saveset(f_np$,&FFF,5,menufile%,80*19)
5�
5
5 
��mp_main
5* �w_transfer%>0�tick(menu%,1)
54G�v_(1)>0:�shade(menu%,3):�shade(menu%,5):�v_(1)>2:�shade(menu%,2)
5>�
5H
5R$��pop(menu%,tree%):�process%>0:�
5\�menu%<0:�
5f�prep(menu%,tree%)
5p,ș"Wimp_CreateMenu",,menu%,mx%-50,my%+32
5zopenmenu%=menu%
5��
5�
5���nomenu
5�5ș"Wimp_CreateMenu",,-1:menufile%=-1:openmenu%=-1
5��
5�
5�+��nodial:�dialogue%>0�closew(dialogue%)
5��
5�
5���menuselect
5��I%
5�-I%=0:�mlist%!I%=q%!I%:I%+=4:�q%!(I%-4)=-1
5�1�readpointer:�menufile%>=0:�sdfile(menufile%)
6Ȏopenmenu%�
6�m_main%:�m_main
6�m_card%:�m_card
6$�m_npad%:�m_npad
6.�m_macro1%:�m_macro1
68�m_status%:�m_status
6B�m_index%:�m_index
6L�m_transfer%:�m_transfer
6V�
6`�mb%=1�
6j$�menufile%>=0:�sdfile(menufile%)
6t#�pop(openmenu%,mlist%):��nomenu
6~�
6��
6��
6�
6�
��m_index
6�Ȏ!mlist%�
6�&�0,1:�selindex(menuindex%,!mlist%)
6��2:�selindex(0,0)
6��
6��
6�
6���m_main
6�Ȏ!mlist%�
7�0:�dialogue(w_info%)
7
�1:�readtran:�transfer
7�2:�fastsort
7�3:�create
7(�4:�status
72�5:�pdriver
7<!�6:�v_(1)=0:�quit(�):��qquit
7F�
7P�
7Z
7d��m_transfer
7nȎ!mlist%�
7x�0:�swap
7��1:�targetopen
7�*�2:�stop(202,"",rl$+"clear setup?",-1)
7�+�3:�stop(203,"",rl$+"set defaults?",-1)
7��
7��
7�
7���m_card
7�Ȏ!mlist%�
7��0:�swpane
7��1:�swmacro
7��2:�swdefault
7��3:�m_wind
7��
8�
8
8��m_macro1
8"Ȏ!mlist%�
8,8�0:fl%(file%)=(fl%(file%)��f_macb%)�f_mace%:�showmac
86<�1:�stop(18,fi$+�filename,rl$+"clear macro ?",menufile%)
8@�
8J�
8T
8^��m_wind
8h�T%:T%=mlist%!4:T%-=T%>0
8rA�T%>-1�T%<maxw%-1:�w%(file%,T%+2)>0:�closew(w%(file%,T%+2)):�
8|	ȎT%�
8��0:�subs
8��2:�fieldlist
8�
�3:�index
8��4:�notepad
8�
�5:�macro
8�
�6:�wtidy
8��
8��
8�
8���m_status:�f%,T%:f%=�
8�Ȏ!mlist%�
8��0:�nodial:�walign
8��1:�readws:�newnotes
9�2:�writews
9�3:șswi%,sd43_%
9
�4:�swap7
9&	f%=�
90�
9:�f%:�nodial
9D�
9N
9X��m_format
9bȎmlist%!4�
9l�-1,0:�link
9v�1:�closeform
9��
9��
9�
9���m_npad
9�Ȏ!mlist%�
9�>�0:�stop(17,fi$+�filename,rl$+"clear notepad ?",menufile%)
9��2:�newnotes
9��
9��
9�
9���submenu(menu%,X%,Y%,q%)
9��I%
9�-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
:4"�mh%<menustart%�mh%>menuend%:�
:>�
:H"!I%=!I%��1:I%!8=I%!8��&400000:
:RI%+=24:�I%!-24�&80
:\�
:f
:p��shade(mh%,I%)
:z/mh%!(28+8+24*I%)=mh%!(28+8+24*I%)�&400000:�
:�
:���tick(mh%,I%)
:�'mh%!(28+24*I%)=mh%!(28+24*I%)�&01:�
:�
:�ݤfiletype(T$)
:�#�T%,U%:ș"OS_File",5,T$ �U%,,T%
:�
�T%=0:=-1
:�=(T%�&FFF00)>>8
:� 
:���redraw(update%)
:��h%,T%:�update%�
:�%ș"Wimp_UpdateWindow",,q% � more%
:��
;%ș"Wimp_RedrawWindow",,q% � more%
;�
;%h%=!q%:�wtof(h%):�readblock(q%+4)
;$ȕ more%
;.T%=�:�:��:T%=�
;8�T%�
;B"�-3:�rectfill(�$):���:�err(0)
;L�
;V�file%>=0�
;`Ȏwind%�
;j�0:�drawcard
;t�4:�drawflist
;~�5:�drawilist
;��
;��
;��
;��
;���
;�!q%=h%:more%=�nextrectangle
;��
;��
;�
;���drawcard
;�Ȏs%(file%)�
;��0
<+�T%:�update%T%=6:�șswi%,gline_%:�:T%=2
<
*�gcol(0,7):�gcol(0,130+��flg(f_7bit%))
<1�bx%+margin%,by%-margin%:șswi%,wimp_%,T%,sd$
<+�1:�rectfill("No cards in this subset")
<(�2:�rectfill(�actdesc)
<2�
<<�
<F
<P/��drawflist:�T%:T%=&10000:�update%T%=T%�1:�
<Z2�v_(7)=0�rectfill("No fields in this file"):�
<d3�bx%+margin%,by%-margin%-4:șswi%,wimp_%,T%,sd$
<n�file%=target%�
<x
�X%,Y%,J%
<�X%=bx%+fwid%:�X%<=gx1%�
<�=J%=by%-gy1%-margin%:J%=J%-J%�linegap%:Y%=by%-margin%-4-J%
<�$J%=(by%-margin%-4-Y%)�linegap%+1
<��
<�:�fd$(J%)>""�16*�fd$(J%)+X%+32>gx0%�X%,Y%:�"= "fd$(J%);
<�Y%-=linegap%:J%+=1:�Y%<gy0%
<��
<��
<��
<�
<�-��drawilist:�T%:T%=&20000:�update%T%=T%�1
<�6�nindices=0�rectfill("No indices in this file"):�
<�3�bx%+margin%,by%-margin%-4:șswi%,wimp_%,T%,sd$
=�
=
=4ݤnextrectangle:�T%:ș"Wimp_GetRectangle",,q%�T%
="�readblock(q%+4):=T%
=,
=6��rectfill(T$)
=@�gcol(0,3):�I%,J%,L%,X%,Y%
=JL%=�T$*16+48
=T,X%=bx%+margin%:J%=gx0%-X%:X%=X%-J%+J%�L%
=^=J%=by%-gy1%-margin%:J%=J%-J%�linegap%:Y%=by%-margin%-4-J%
=h�J%=Y%�gy0%�-linegap%
=r%�X%,J%:�I%=X%�gx1%�L%:�T$" - ";:�
=|�:�
=�
=���printcard(T$,Y%,h%)
=��gcol(0,3):�I%,J%,L%,X%
=�5L%=�T$*16+48:J%=�(Y%-gy0%)�linegap%+1:�h%>J%h%=J%
=�,X%=bx%+margin%:J%=gx0%-X%:X%=X%-J%+J%�L%
=�%�J%=Y%�Y%-h%*linegap%+1�-linegap%
=�%�X%,J%:�I%=X%�gx1%�L%:�T$" - ";:�
=��:�
=�
=�ݤinbox(X%,Y%,W%,H%)
=��W%<0:X%+=W%:W%=-W%
=��H%<0:Y%+=H%:H%=-H%
=��gx0%>X%+W%:=�
>�gx1%<X%:=�
>�gy0%>Y%+H%:=�
>�gy1%<Y%:=�
>&=�
>0
>:��print(X%,Y%,T$)
>D)�inbox(X%,Y%,16*�T$,-32):�X%,Y%:�T$;
>N�
>X
>b*ݤp(T$):�I%:I%=�T$,"."):�I%=0:I%=�T$+1
>l�I%>8�7:I%=8
>v#=�(�T$,I%-1)+�T$+"000",I%+1,2))
>�
>�'ݤ`(T%):�T$,S%:S%=�T%:T%=�T%:T$=�T%
>�ȕ�T$<3:T$="0"+T$:�
>�%=�"-",S%+2)+�T$,�T$-2)+"."+�T$,2)
>�
>���waitpoint
>�waiter%+=1
>�ș"Hourglass_On"
>��
>�
>���normpoint
>�8ȕwaiter%>0:ș"Hourglass_Off":waiter%-=1:�:waiter%=0
>��
?
?��gcol(m%,c%)
?!ș"Wimp_SetColour",(m%<<4)+c%
? �
?*
?4
��help
?>�
?H
?R��dataloadack
?\!q%=20:q%!12=ref%:q%!16=4
?f$ș"Wimp_SendMessage",17,q%,task%
?p�
?z
?���datasaveack
?�<�ArfVar("Wimp$Scrap")="":�99,"<Wimp$Scrap> not defined"
?�A!q%=60:q%!12=ref%:q%!16=2:q%!36=-1:$(q%+44)="<Wimp$Scrap>"+�0
?�1ș"Wimp_SendMessage",17,q%,task%:ackref%=q%!8
?��
?�
?���savereq(T$,t%,s%,r%,f%)
?�savereason%=r%:savefile%=f%
?�+q%!32=my%:q%!28=mx%:q%!24=mi%:q%!20=mh%
?�8q%!16=1:q%!12=0:q%!36=s%:q%!40=t%:!q%=(�T$+49)�&FFFC
?�5$(q%+44)=T$+�0:ș"Wimp_SendMessage",17,q%,mh%,mi%
?� saveref%=q%!8:savetype%=t%:�
?�
@&��loadmess:�readpointer:�task%<0:�
@+$(q%+44)=file$+�0:!q%=(�file$+49)�&FFFC
@&q%!12=ref%:q%!16=3:q%!40=savetype%
@$?q%!20=mh%:q%!24=mi%:q%!28=mx%:q%!32=my%:q%!36=�fsize(file$)
@.$ș"Wimp_SendMessage",17,q%,task%
@8ackpending%=�:�
@B
@L&ݤfsize(T$):�T%,s%:T%=�T$:�T%=0:=0
@Vs%=�#T%:�#T%:=s%
@` 
@jݤzts(T%):�T$
@tȕ?T%<>0:T$+=�?T%:T%+=1:�
@~=T$
@�
@�)��key(h%,icon%,x%,y%,carh%,off%,key%)
@�
�wtof(h%)
@��F%:F%=�
@�Ȏkey%�
@��9,&18A:�findct
@��13:�cursor(h%,icon%,1,0)
@��19:�swapcase
@�"�27:�dialogue%>=0�nodial:�F%=�
@��&181:笤prod:�quit(�)
@�#�&18F:�cursor(h%,icon%,-1,off%)
@�"�&18E:�cursor(h%,icon%,1,off%)
A#�&19F:�cursor(h%,icon%,-5,off%)
A
"�&19E:�cursor(h%,icon%,5,off%)
A(�&1AF,30:�cursor(h%,icon%,-1E9,off%)
A$�&1AE:�cursor(h%,icon%,1E9,off%)
A(	F%=�
A2�
A<	�F%:�
AFș"Wimp_ProcessKey",key%
AP�
AZ
Ad,��swapcase:�getct:T%=q%!20+�ia(!q%,q%!4)
An3�?T%<123�?T%>96 ?T%-=32:��?T%<91�?T%>64 ?T%+=32
Ax*�getct:�?T%>31�setct(!q%,q%!4,q%!20+1)
A��getct:�iconupd(!q%,q%!4):�
A�
A�+��getct:ș"Wimp_GetCaretPosition",,q%:�
A�
A�=��setct(h%,i%,o%):ș"Wimp_SetCaretPosition",h%,i%,,,-1,o%
A��i%>=0�findct
A��
A�
A�ݤnumi(h%,i%,b%)
A�	��pFB
A��U%,D%,N%,T%,B%,W%,F%,S%,V%
A�ȕW%<>-1�F%=�
A��readh(W%):�U%,D%,N%,T%,B%
B�W%=h%�
B�i%=U%�i%=D%�
BF%=�
B"V%=�$�ia(W%,N%)
B,S%=1:�i%=D%:S%=-1
B6�b%=1:S%=S%*10
B@V%+=S%:�V%<B%:V%=B%
BJ�V%>T%V%=T%
BT�seti(W%,N%,�V%)
B^�
Bh�
Br�
B|=F%
B��-1,-1,-1,-1,-1,-1,-1
B�
B���cursor(h%,i%,s%,o%)
B�	��@bC
B�
�W%,T$,I%
B�ȕW%<>-1
B��readh(W%):�W%<>h%�
B��W%<>-1:�:�W%:�W%<-1:W%=0
B��
B��
B��W%:�W%<>-1:T$+=�(W%)
B��W%<-1:T$=�T$)
B�;�key%=13:��T$)=i%:mi%=�(W%+100):mb%=1:mh%=h%:�select:�
C/�s%=1E9:s%=�T$:��s%=-1E9:s%=1:�s%+=�T$,�i%)
Cȕs%>�T$:s%-=�T$:�
Cȕs%<1:s%+=�T$:�
C&I%=��T$,s%)
C0#�o%>�$�ia(h%,I%)o%=�$�ia(h%,I%)
C:�setct(h%,I%,o%)
CD�
CN�
CX�
Cb�w_expr%,17,exi0%,-123
Cl�w_nums%,2,3,-105
Cv�w_open%,14,-112
C��w_transexp%,1,-103
C��w_save%,2,-100
C�F�"w%(file%,6)",0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,-100
C�g�"w%(file%,7)",0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,-100
C��-1
C�
C���readh(� T%)
C�-�T$:�T$:�file%<0��T$,"file%")T%=1:�T%=�T$
C��
C�
C�ݤleaf(T$)
C�
�I%,C%
C�$�((�T$,".")=0)�(�T$,":")=0))�=T$
DI%=�(T$)
D�
DC%=��T$,I%,1)
D 	I%-=1
D*�(I%<=0�C%=�"."�C%=�":")
D4�I%>0�=�T$,�(T$)-I%-1)
D>=T$
DH
DR3��wext(h%,x%,y%):!q%=0:q%!4=-y%:q%!8=x%:q%!12=0
D\'ș"Wimp_SetExtent",h%,q%:�force(h%)
Df�getw(h%):�open%�
Dp�x1%-x0%>x%:x%+=x0%:�x%=x1%
Dz!�y1%-y0%>y%:y%=y1%-y%:�y%=y0%
D�.�open(h%,x0%,y%,x%,y1%,scx%,scy%,bhandle%)
D��
D��
D�
D�
��process
D�/�dialreason%>=0�dialogue%>=0�ackpending%>0�
D�Ȏprocess%�
D��1:�checkprot
D�T�2:�stop(1,"Please place original","MultiStore disk in drive :0",-1):process%+=1
D��3:�checkprot
D��4:�transfer:�startopen(0)
D��5:�startopen(1)
D�4process%=0:�newdelay:*unset MultiStore$Function
E�
E�
E
E$��dragicon(h%,i%)
E."�x%,y%,ys%,tx0%,ty0%,tx1%,ty1%
E8,�getw(h%):ys%=y1%-y0%:x%=bx%:y%=y0%-scy%
EB1�geti(h%,i%):q%!8+=x%:q%!12+=y%+ys%:q%!16+=x%
EL0q%!20+=y%+ys%:q%!24=0:q%!28=0:!q%=0:�drag5:�
EV
E`<��drag5:�readpointer:�scrsz:tx0%=mx%-q%!8:ty0%=my%-q%!12
Ej=q%!24-=tx0%:q%!28-=ty0%:q%!32+=q%!16-mx%:q%!36+=q%!20-my%
Et!q%!4=5:ș"Wimp_DragBox",,q%:�
E~
E�ݤlower(T$):�T$="":=""
E�
�I%,C%
E��I%=1��T$:C%=��T$,I%)
E�"�C%>64�C%<91�T$,I%,1)=�(C%+32)
E�	�:=T$
E�
E���wtof(T%)
E�
�I%,J%
E�wind%=-1:file%=-1
E��I%=0�maxf%
E��J%=0�maxw%
E�4�w%(I%,J%)=T%:file%=I%:wind%=J%:�sdfile(file%):�
F�
F
�:�
F
F-ݤformhand(T%):�f%(T%)>0:=f%(T%):�=h%(T%)
F(
F2
��fext
F<
�x%,y%
FF1y%=�ht*linegap%+margin%*2:�y%<paneh%y%=paneh%
FP)x%=�wd*16+margin%*2:�x%<22*16x%=22*16
FZ�wext(w%(file%,0),x%,y%):�
Fd
Fn ݤint(t):�t>2E9:=�t*2E9:�=t
Fx
F���sdfile(T%)
F�C�G%:file%=T%:sd$=äformhand(T%):sdf$=�h%(T%):șswi%,file_%,sdf$
F�șswi%,sd13_%,0�G%
F��
F�
F�%��formstat:șswi%,sd13_%,0,sd$�G%
F��
F�
F�*ݤbadrec(T%):=(T%�&7FFFFF00)=&7FFFFF00
F�
F���validrec1:�vr(�,�)
F���validrec2:�vr(�,�)
F���validrec:�vr(�,�)
G�
G
G��vr(T%,U%)
G"�file%=target%�
G,șswi%,grec_%,0�N%
G6șswi%,sd38_%,255
G@șswi%,sd38_%,255
GJ�
GT)�sd35:�G%:笤okcard:�newcard(T%,U%):�
G^�
Gh�flg(f_macb%)�
Gr�bmacro:�sd35:�G%�
G|&笤okcard:�newcard(T%,U%):�:�G%=-1
G��
G��
G�	�G%=0
G��newcard(T%,U%)
G��
G��
G�
G���validaterec:�vrr(�):�
G���validaterec1:�vrr(�):�
G�
G���vrr(T%):�sd35:�G%=0:�
G��vr(T%,�):�
G�
H��revalidate
H4�s%(file%)=1s%(file%)=0:�validrec2:��validaterec
H�forcerep:�
H&
H0ݤokcard
H:�g%
HD#�:��:��:�checksubset:�err(32)
HN
*fx229
HX�
Hb�validr1
Hl2�badrec(�v_(15))g%=0:��sd35:g%=G%:�G%:�sdnext
Hv�g%=0:*fx229,1
H�)=�(�badrec(�v_(15))��badrec(�v_(14)))
H�
H�
��validr1
H�D%=�v_(14):N%=�v_(15)
H��D%=0�N%=0�
H�șswi%,first_%�,N%
H�!�sdnext:D%=�v_(14):N%=�v_(15)
H��
H�笤badrec(D%):�
H��badrec(N%)�
H�
Ȏ N%�1 �
H�� 1
H�șswi%,first_%�,N%
I�sdnext
I� 0
Ișswi%,grec_%,�v_(17)�N%
I șswi%,dir_%,0
I*�sd35:�G%�sdnext
I4�
I>D%=�v_(14):N%=�v_(15)
IH0笤badrec(N%):șswi%,sd30_%,N%�G%:D%=�v_(14)
IR�
I\�N%>�v_(17)�
Ifșswi%,first_%�,N%
Ip�sdnext
Iz�
I�șswi%,sd30_%,N%�G%
I��
I�D%=�v_(14):N%=�v_(15)
I��
I��
I�
I�
��sd35
I�D%=�v_(14):N%=�v_(15)
I��N%=0�D%=0:G%=1:�
I��badrec(N%)�
I��badrec(D%):G%=1:�G%=0
I��
I�șswi%,sd35_%,N%�G%
J�G%=0G%=�filter
J�
J�
J$
J.ݤfilter:笤flg(f_filt%):=0
J8�
JB��:��:�nofilt:�err(8)
JL7�ev(fx$(file%),�flg(f_fspc%),�flg(f_fupp%)):=0:�=1
JV
J`��sdnext
Jjșswi%,sd23_%�N%
Jt�
J~șswi%,next_%�N%
J�!�badrec(N%)��0=27G%=0:��sd35
J��G%=0:�
J�
J���fwd:�deadfile(-1):�
J��n%:șswi%,sd23_%�N%
J�șswi%,dir_%,1
J�<n%=�v_(15):�sdnext:�badrec(�v_(15)):șswi%,grec_%,n%�N%
J��validrec:�
J�
J���back:�deadfile(-1):�
J��n%:șswi%,sd23_%�N%
J�șswi%,dir_%,0
K<n%=�v_(15):�sdnext:�badrec(�v_(15)):șswi%,grec_%,n%�N%
K
�validrec:�
K
K��bof:�deadfile(-1):�
K(șswi%,first_%�,N%
K2�sdnext:�validrec:�
K<
KF��pause:�ready:�
KP
KZ��eof:�deadfile(-1):�
Kdșswi%,grec_%,�v_(17)�N%
Kn�validrec:�
Kx
K���cardnum:�deadfile(-1):�
K�șswi%,sd23_%�N%
K��checksubset:�
K�
K���gauge:�deadfile(-1):�
K��T%:�getw(w%(file%,1))
K�FT%=(�v_(16)+(�v_(16)>0))*(mx%-x0%)/(326-6)+1:�T%>�v_(17)T%=�v_(17)
K�șswi%,sd23_%
K��T%=�v_(15)�
K�șswi%,grec_%,T%�N%
K��validrec:�
K�
K���ffind:�deadfile(-1):�
L2�T$:T$=$�ia(w%(file%,1),7):�strip(T$):�T$="":�
L*�T$,"=")=0���T$,2)>0�(�T$=35��T$=64)�
L
Ȏ�T$�
L" �35:șswi%,grec_%,��T$,2)�N%
L,"�64:șswi%,locate_%,��T$,2)�D%
L6�
L@�validrec:�
LJ�
LTs$(file%)=T$:�dup(T$,0):�
L^
Lh��ffound
Lr"�seti(w%(file%,1),7,s$(file%))
L|.笤badrec(�v_(15)):�checksubset:��validrec
L��
L�
L� ��nextmatch:�deadfile(-1):�
L��T$:�s$(file%)=""�
L�șswi%,gfield_%,1
L�șswi%,strip_%
L�șswi%,upper_%
L�s$(file%)=$sd%
L��
L�#T$=s$(file%):�dup(T$,�v_(14)):�
L�
L�)��dup1(T$,T%):�f$,t$,I%,d%:d%=�v_(14)
L�!�strip(T$):I%=�T$,"="):�I%>0�
Mt$=�T$,I%-1):T$=�T$,I%+1)
M�t$,"{")>0��t$)="}"�
Mf$=�t$,�t$,"{")+1):f$=�f$)
M&t$=�t$,�t$,"{")-1)
M0�
M:�
MD șswi%,seek_%,T$,T%,t$,f$�G%
MN3�G%=0:�d%>0:笤badrec(d%):șswi%,locate_%,d%�D%
MX�
Mb
Ml��dup(T$,T%):�dup1(T$,T%)
Mv�G%=0:�err(36)
M�
�ffound:�
M�
M���checksubset
M�șswi%,sd23_%�N%
M��sd35:�G%�
M�$�flg0(f_filt%):șswi%,subset_%,0
M�"�showfilter:�showsub:�forcerep
M��
M�
�validrec
M��
M�
M���newcard(T%,U%)
M��f%,I%:f%=file%
N�s%(file%)=0�
N)�(�badrec(�v_(14))��badrec(�v_(15)))�
Ns%(file%)=1:�forcecard
N �
N*0�U%�update(w%(file%,0)):��force(w%(file%,0))
N4�
N>�
NH�shownum:�
NR
N\��update(h%)
Nf
!q%=h%
Np	Ȏh%�
Nz,q%!4=-1E9:q%!8=-1E9:q%!12=1E9:q%!16=1E9
N��
N��redraw(�)
N��
N�
N�.ݤnnums:�T%,I%:�I%=0�9:șswi%,sd53_%,I%�G%
N��$sd%>""T%+=1
N�	�:=T%
N�
N�-ݤsubmax(s%):șswi%,sd53_%,s%�G%:�G%=0:=0
N�ȕ(G%�1)=0:G%=G%>>>1:�:=G%
N�
N�6ݤsubnum(T$):�I%:T$=�su(T$):�T$=94:T$=�su(�T$,2))
N�/�T$=1��T$>65��T$<66+�submax(file%)�=�T$-65
O�I%=0�9:șswi%,sd53_%,I%�G%
Oșswi%,upper_%
O�$sd%=T$:=I%+256
O$	�:=-1
O.
O8ݤsubstr:șswi%,sd53_%�G%
OB=$(sd%+16)
OL
OV%ݤsubname(s%):șswi%,sd53_%,s%�G%
O`	=$sd%
Oj
Ot*ݤsubdesc:�T$,T%:T%=�v_(11):�T%=32T%=0
O~=�subdesc1(T%)
O�
O�ݤsubdesc1(T%)
O��T%=0:="All Cards"
O�)�T%>255:="Numeric: "+�subname(T%-256)
O�#T$="":�T%>31:T%=T%�31:T$="NOT "
O�=T$+"Subset "+�(T%+65)
O�
O�ݤsubdesc2(T%)
O��T$
O�
Ȏ � �
O�&�T%=0�T%=32:T$="All cards in file"
O��T%>32�T%<64
PT$=d$(file%,T%-33)
P
4�T$="":T$=�subdesc1(T%):��T$<21T$="NOT("+T$+")"
P9�T%>0�T%<32:T$=d$(file%,T%-1):�T$="":T$=�subdesc1(T%)
P2�T%>255:T$="Numeric subset: "+�subname(T%-256)
P(
T$=""
P2�
P<=T$
PF
PPݤsubdesc3(T%)
PZ�T%>255:=�subname(T%-256)
Pd�T%<31:=�(T%+65)
Pn="NOT-"+�((T%�31)+65)
Px
P�0ݤsubdesc4(T%):�T%>255:="^"+�subname(T%-256)
P��T%<31:="^"+�(T%+65)
P�="(^"+�(T%+33)+"=0)"
P�
P���startopen(T%):�waitpoint
P��T$:process%+=1
P�%T$=�ArfVar("MultiStore$Function")
P�
Ȏ�T$�
P��1:�openst(T%,�T$,3))
P��
P��normpoint:�
P�
P���ready
Q�a%(file%)<=0�
Q
Ȏ � �
Qɤv_(15)=0:�validrec
Q"�
Q,�
Q6Ȏa%(file%)�
Q@!�1,2:a%(file%)=0:�validaterec
QJ5�3:�stop(7,"Searching file "+�filename,ri$,file%)
QT"�4:�stop(9,�actdesc,ri$,file%)
Q^%�5,6:�stop(13,�actdesc,ri$,file%)
Qh#�7:�stop(16,�actdesc,ri$,file%)
Qr#�8:�stop(23,�actdesc,ri$,file%)
Q|#�9:�stop(24,�actdesc,ri$,file%)
Q�$�10:�stop(25,�actdesc,ri$,file%)
Q��
Q��
Q��newdelay:�
Q�
Q�!��closeok:�copying%>0�buzz1:�
Q�-�stop(2,"","Close file "+�filename,file%)
Q��
Q�
Q�ݤfilename
Q�șswi%,stat_%�G%
Q�=¤leaf($sd%),10)
Q�
Rݤofilename(I%):�I%<0:=""
R�f%,T$:f%=file%
R.�sdfile(I%):T$=�filename:�f%>0=�sdfile(f%)
R&=T$
R0
R:��swpane
RD"�flgx(f_pane%):�flg(f_pane%)�
RN�getw(w%(file%,0))
RX9�open(w%(file%,0),x0%,y0%,x1%,y1%,scx%,scy%,bhandle%)
Rb�
Rl�getw(w%(file%,1))
RvA�open(w%(file%,1),x0%,y1%-paneh%,x0%+panew%,y1%,scx%,scy%,-2)
R��closew(w%(file%,1))
R��
R��
R�
R�%��forcecard:�force(w%(file%,0)):�
R�
R�0��forcerep:�w%(file%,3)>0�force(w%(file%,3))
R��
R�
R�ݤdeadfile(f%)
R��T%:T%=�deadfile1(f%):�T%�
R�	�buzz
R��
S&�ready:T%=�deadfile1(f%):�T%:�buzz
S�
S=T%
S 
S*ݤdeadfile1(f%)
S4�I%
S>�I%=0�30
SH�f%�(2^I%)�
SR	ȎI%�
S\�0,1,2,3:�s%(file%)=I%+1:=�
Sf;�4:�a%(file%)<3�a%(file%)>0:�ready:=�:��a%(file%)<>0:=�
Sp�5:�v_(15)=0:=�
Sz#�6:�a%(file%)<>8�a%(file%)>2:=�
S��
S��
S��
S�=�
S�
S�*ݤmacmode=fl%(file%)�(f_macb%�f_mace%)
S�
S�ݤdefon=(�hdbyte1(29)�64)>0
S�
S�(ݤhdbyte(T%):șswi%,sd13_%,T%,sd$�G%
S�%ݤhdbyte1(T%):șswi%,sd13_%,T%�G%
S�=G%
S�
T
��swmacro
T;�macmode:�flg0(f_macb%):�flg0(f_mace%):��flg1(f_mace%)
T�showmac:�
T$
T.��swdefault
T8
�defon �
TBșswi%,default_%,"Off"
TL�
TVșswi%,default_%,0
T`�
Tj�
Tt
T~��qbscan(T$,� Q%,� B%)
T�*�I%,T%:Q%=�:B%=0:�I%=1��T$:T%=��T$,I%)
T��T%=34:Q%=�Q%
T�	�Q%�
T�"�T%=�"(":B%+=1:��T%=�")":B%-=1
T��
T��:�
T�
T���ptrexit(h%)
T�-�sbfile%>=0:�subdisp:sbfile%=-1:�newdelay
T��
T�
T���ptrenter(h%)
U�wtof(h%):�file%>=0�
U
-�wind%=2:sbfile%=file%:�subdisp:�newdelay
U�
U�
U(
U20��subdisp1:�sbfile%:sbfile%=file%:�subdisp:�
U<
UF��subdisp:�sbfile%<0:�
UP!�T$,T%,C%:�w%(sbfile%,2)<=0:�
UZ�readpointer:�wtof(mh%)
Ud:T%=&F000000:�wind%=2�file%=sbfile%:T$=�subdesc2(�itos)
UnHC%=&3000000:�T$=""C%=&7000000:�sdfile(sbfile%):T$=�subdesc2(�v_(11))
Ux�geti(w%(sbfile%,2),0)
U�0�(q%!24�T%)<>C%:�iset(w%(sbfile%,2),0,T%,C%)
U�8�T$<>$�ia(w%(sbfile%,2),0):�seti(w%(sbfile%,2),0,T$)
U��
U�
U�
��subs
U�&�w%(file%,2)<=0:�makesubs(file%):�
U��front(w%(file%,2),-1,-1)
U��
U�
U�
��notepad
U�'�w%(file%,6)<=0:�makenotes(file%):�
U��front(w%(file%,6),-1,-1)
U��
V
V��macro
V'�w%(file%,7)<=0:�makemacro(file%):�
V"�front(w%(file%,7),-1,-1)
V,�
V6
V@��fieldlist
VJ'�w%(file%,4)<=0:�makeflist(file%):�
VT�front(w%(file%,4),-1,-1)
V^�
Vh
Vr��index
V|'�w%(file%,5)<=0:�makeilist(file%):�
V��front(w%(file%,5),-1,-1)
V��
V�
V�=��delicon(h%,i%):!q%=h%:q%!4=i%:ș"Wimp_DeleteIcon",,q%:�
V�
V�2��loseicon(h%,i%):�geti(h%,i%):�delicon(h%,i%)
V�7q%!4=!q%:q%!8=-1E9:q%!12=-1E9:q%!16=-1E9:q%!20=-1E9
V�ș"Wimp_CreateIcon",,q%+4:�
V�
V���carddr
V��wtof(mh%):�file%>=0�
V��file%=menufile%�
V�Ȏwind%�
W9�2:T%=�itos:�T%>0�T%<255:�subbyte(T%,-1):�validaterec
W�
W�
W&Ȏwind%�
W0�0,1:�copycard
W:�
WD�
WN�
WX
Ȏmh%�
Wb>:�sdfile(menufile%):�savereq("Card",&FFF,�wd*�ht,1,file%)
Wl�
Wv�
W��
W�
W�
��carddr1
W�+tx0%=!q%:tx1%=q%!8:ty0%=q%!4:ty1%=q%!12
W�4�(tx0%-tx1%)<10��(ty0%-ty1%)<10:mb%=1:�select:�
W�;�cxconv(tx0%):�cxconv(tx1%):�cyconv(ty0%):�cyconv(ty1%)
W��tx0%>tx1%:Ȕtx0%,tx1%
W��ty0%>ty1%:Ȕty0%,ty1%
W�:�savew(f_cd$,&FFF,2,file%,(tx1%-tx0%+1)*(ty1%-ty0%+1))
W��
W�
W���fielddr:�f%
W��wtof(mh%):�file%>=0�
XȎwind%�
X �4:�file%=target%:�targfield
X:�enterfield
X �
X*�
X4Y笤enterfield:�menufield%>0:�menufile%=source%:�savereq("Field",&FFF,255,3,menufile%)
X>�
XH�
XR
X\��notedr
Xf�wtof(mh%)
Xp5笤enternote:�savereq("Note",&FFF,80,4,menufile%)
Xz�
X�
X���subsdr
X�	� ;{{
X�
�T%,T$
X�#�subdisp1:�wtof(mh%):�file%>=0�
X��file%=menufile%�
X�Ȏwind%�
X��0,1:�selsub(menusub%)
X�:�entersub
X��
X��
X��
X�
Ȏmh%�
Y:笤entersub
Y�
Y�
Y$�
Y.
Y8ݤenterfield
YB�W%,T%,T$,t$:��pZ[
YL�:�readh(W%):�W%<>mh%�
YV�W%<>-1:�:�W%,T%:�W%<0:W%=0
Y`�
Yj�:�W%,T%:�W%=mi%�W%<0
Yt�W%=mi%�
Y~	ȎT%�
Y��1,4
Y�9�wtof(mh%):�file%<0:�mh%=dialogue%:�sdfile(dialfile%)
Y��sdfile(menufile%)
Y�6�seti(mh%,mi%,�addfield($�ia(mh%,mi%),menufield%))
Y�N�6,8:�sdfile(menufile%):�seti(mh%,mi%,�addfield($�ia(mh%,mi%),menufield%))
Y��
Y��
Y�=�
Y��
Y�	�W%<0
Y�=�
Y�
Zݤenternote
Z

� ;{{{
Z�W%,T%:��pZ[
Z�:�readh(W%):�W%<>mh%�
Z(�W%<>-1:�:�W%,T%:�W%<0:W%=0
Z2�
Z<�:�W%,T%:�W%=mi%�W%<0
ZF�W%=mi%�
ZP	ȎT%�
ZZ�1,4,6,7,8
Zd4�dragbutton%=64�(�thisfile(mh%,menufile%)�T%=6)�
ZnZ�mi%<>menufield%�mh%<>w%(menufile%,6)�seti(mh%,mi%,$�ia(mh%,mi%)+"'"+�(menufield%+65))
Zx�
Z�.�seti(mh%,mi%,�note(menufile%,menufield%))
Z��
Z��
Z��
Z�=�
Z��
Z�	�W%<0
Z�=�
Z�
Z�ݤentersub
Z��W%,T%:��pZ[
Z��:�readh(W%):�W%<>mh%�
Z��W%<>-1:�:�W%,T%:�W%<0:W%=0
[�
[�:�W%,T%:�W%=mi%�W%<0
[�W%=mi%�
["	ȎT%�
[,�1
[6`�thisfile(mh%,menufile%)�sdfile(menufile%):�seti(mh%,mi%,$�ia(mh%,mi%)+�subdesc4(menusub%))
[@�2:�sfsub(menusub%)
[J�3:�stsub(menusub%)
[TJ�6:�sdfile(menufile%):�seti(mh%,mi%,$�ia(mh%,mi%)+�subdesc4(menusub%))
[^�
[h�
[r=�
[|�
[�	�W%<0
[�=�
[�!�w_expr%,17,1,20,2,21,3,-1,-1
[��w_transexp%,1,8,-1,-1
[���"w%(file%,7)",0,1,1,1,2,1,3,1,4,1,5,1,6,1,7,1,8,1,9,1,10,1,11,1,12,1,13,1,14,1,15,1,16,1,17,1,18,1,19,1,20,1,21,1,22,1,23,1,24,1,25,1,26,1,27,1,28,1,29,1,-1,-1
[�m�"w%(file%,6)",0,1,1,1,2,1,3,1,4,1,5,1,6,1,7,1,8,1,9,1,10,1,11,1,12,1,13,1,14,1,15,1,16,1,17,1,18,1,-1,-1
[��-1
[�
[���newdelay
[��I%:delay%=2E9
[��process%>0:delay%=0
[�#�I%=0�maxf%:�a%(I%)<>0:delay%=0
[�%�:�sbfile%>=0�copying%>0:delay%=0
\�
\
\��savedata
\&�q%!12<>saveref%:�
\0"file$=�zts(q%+44):�savedata1:�
\:
\D ��savedata1:�closew(w_save%)
\N$�savefile%>=0:�sdfile(savefile%)
\X,outfile%=0:outfile%=�file$:�outfile%=0:�
\b�
\l��:��:�#outfile%:�err(0)
\vȎsavereason%�
\��1:�savecard:�newfn(f_cd$)
\��2:�savecard1:�newfn(f_cd$)
\��3:�savefield
\��4:�savenote
\��5:�savenotes:�newfn(f_np$)
\��6:�savemacro:�newfn(f_mc$)
\��7
\��8:�savesetup
\��9
\��200:�savesetup
\��
\���:�#outfile%
\�/�"settype "+file$+" "+�~savetype%:�loadmess
]'savereason%=-1:savefile%=-1:�nomenu
]�
]
] .��savecard:�deadfile(%1111111101111111):�
]*'�I%:�I%=1��ht:șswi%,gline_%,I%,sd$
]4�dprint($sd%):�:�
]>
]H/��savecard1:�deadfile(%1111111101111111):�
]R+�I%:�I%=ty0%�ty1%:șswi%,gline_%,I%,sd$
]\(�dprint(�$sd%,tx0%,tx1%-tx0%+1)):�:�
]f
]p2��savefield:�dprint(�s(�gfield(menufield%))):�
]z
]�5��savenote:�dprint(�s(�note(file%,menufield%))):�
]�
]���savenotes
]�1�I%:�I%=0�18:�dprint(�s(�note(file%,I%))):�:�
]�
]���savemacro
]�2�I%:�I%=0�29:�dprint(�s(�macln(file%,I%))):�:�
]�
]�
ݤitos
]��mi%>4�mi%<29:=mi%-4+32
]��mi%>28�mi%<53:=mi%-28
]�
�mi%=1:=0
]��mi%>52�mi%<63:=mi%-53+256
^=-1
^
^9ݤmousef:�X%,Y%:X%=mx%:Y%=my%:�cyconv(Y%):�cxconv(X%)
^$�:��:�sdfile(file%):=0
^.șswi%,sd52_%,X%,Y%,sd$�G%
^8�sdfile(file%):=G%
^B
^L$��dragfield:�fieldsz(menufield%)
^V?!q%=w%(file%,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:�
^j
^t��dragfield1:�Y%
^~B�getw(w%(file%,4)):Y%=by%-menufield%*linegap%-margin%+linegap%
^�Gq%!8=bx%+margin%:!q%=w%(file%,4):q%!12=Y%-32:q%!16=bx%+ex1%-margin%
^�,q%!20=Y%:q%!24=0:q%!28=0:q%!4=5:�drag5:�
^�
^���dragcard:�dialogue:�
^�!q%=w%(file%,0):�getw(!q%)
^�*q%!8=mx%:q%!12=my%:q%!16=mx%:q%!20=my%
^�>q%!24=bx%+ex0%+margin%:q%!28=by%+ey1%-margin%-�ht*linegap%
^�!q%!32=bx%+ex0%+margin%+�wd*16
^�6q%!36=by%+ey1%-margin%:q%!4=6:ș"Wimp_DragBox",,q%
^��
^�
^���selsub(s%):�s%>255�s%<0:�
_�s%=�v_(11)�s%(file%)<>1:�
_
�zfound:șswi%,subset_%,s%
_�revalidate:�showsub:�
_
_(/��cxconv(� X%):�xconv(X%,�wd,w%(file%,0)):�
_2/��cyconv(� Y%):�yconv(Y%,�ht,w%(file%,0)):�
_<
_F!��yconv(� Y%,T%,h%):�getw(h%)
_P8Y%=(by%-Y%-margin%)�linegap%+1:�Y%<1Y%=1��Y%>T%Y%=T%
_Z�
_d
_n!��xconv(� X%,T%,h%):�getw(h%)
_x2X%=(X%-bx%-margin%)�16+1:�X%<1X%=1��X%>T%X%=T%
_��
_�
_���savew(f$,T%,r%,f%,s%)
_��saveset(f$,T%,r%,f%,s%)
_��dialogue(w_save%):�
_�
_���saveset(f$,T%,r%,f%,s%)
_�3savereason%=r%:savefile%=f%:savet%=T%:saves%=s%
_�>�seti(w_save%,2,f$):$�va(w_save%,3)="sfile_"+�"00"+�~T%,3)
_��
_�
_���CLOSE
_��I%
`�I%=0�maxf%
`'�h%(I%)>0:closeok%=�:�closefile(I%)
`�:�
`"
`,
��prequit
`6�v_(1)>0�ackrec:�qquit
`@�
`J
`T8��ackrec:q%!12=ref%:ș"Wimp_SendMessage",19,q%,task%
`^2��qquit:�stop(6,"Close files and quit",as$,-1)
`h�
`r
`|��openform
`�#�deadfile(%11111111101111110)�
`��T$:T$=�zts(q%+44)
`��closeform
`��:��:��:�err(7)
`�șswi%,oform_%,T$
`�șswi%,stat_%,"F"�G%
`�f%(file%)=-�v_(2)
`�	�link
`��
`�
`���closeform:�f%(file%)=0:�
`��f%(file%)>0:�link
`�+șswi%,cform_%,f%(file%)�S%:f%(file%)=0
a�
a
a
��link
a&f%(file%)=-f%(file%)
a0�f%(file%)<0�
a:șswi%,sform_%,h%(file%)
aD�
aN&șswi%,lform_%,f%(file%),h%(file%)
aX�
ab�sdfile(file%):�fext
al#�w%(file%,4)>0�makeflist(file%)
av�
a�
a�ݤgfield(T%)
a�șswi%,sd17_%,9,T%,sd$�G%
a�șswi%,gfield_%,$sd%
a�	=$sd%
a�
a�)ݤfname(T%):șswi%,sd17_%,9,T%,sd$�G%
a�	=$sd%
a�
a�7ݤfname1(T%):�T%<0:="N%":�șswi%,sd17_%,4,T%,sd$�G%
a�.�(G%�7)=7:="@"+�fname(T%):�="#"+�fname(T%)
a�
a�&ݤfnum(T$):șswi%,sd67_%,T$,sd$�G%
b=G%
b
b��expr(r%)
b "dialreason%=r%:dialfile%=file%
b*�T%,T$,A$,t$,s%,u%
b4=T$=�filename:w_expr%=�crwind(tw_expr%):�unselall(w_expr%)
b>	Ȏr%�
bH�0
bR+T$="Filter expression for file "+T$+":"
b\0A$=f$(file%):$�ta(w_expr%)="Filter":exi0%=17
bf%�s%=18�21:�loseicon(w_expr%,s%):�
bp/�loseicon(w_expr%,25):�loseicon(w_expr%,27)
bz;�loseicon(w_expr%,28):s%=�flg(f_fspc%):u%=�flg(f_fupp%)
b��
b�4�seti(w_expr%,16,T$):�seti(w_expr%,17,A$):ex$=A$
b��s%�seli(w_expr%,1)
b��u%�seli(w_expr%,0)
b��dialogue(w_expr%):�
b�
b�*��flg0(T%):fl%(file%)=fl%(file%)��T%:�
b�)��flg1(T%):fl%(file%)=fl%(file%)�T%:�
b�)��flgx(T%):fl%(file%)=fl%(file%)�T%:�
b�7��flgm(M%,F%):fl%(file%)=(fl%(file%)��M%)�(F%�M%):�
b�;��flg(T%,F%):fl%(file%)=(fl%(file%)��T%)�((F%<>0)�T%):�
b� ݤflg(T%)=(fl%(file%)�T%)<>0
b�
c
��setfilt
c�T$:T$=�x1($A%)
cA�flg(f_fupp%,u%):�flg(f_fspc%,s%):f$(file%)=$A%:fx$(file%)=T$
c$8�flg(f_filt%,T$<>""):�showfilter:�revalidate:�zfound
c.�
c8
cB��nofilt:�flg0(f_filt%)
cL%�zfound:�revalidate:�showfilter:�
cV
c`ݤx1(T$):�:��:��:�err(8)
cjݤx2(T$):�:��:��:�err(9)
ctݤx3(T$):�:��:��:�err(34)
c~ݤx4(T$):�:��:��:�err(37)
c�ݤx5(T$):�:��:��:�err(44)
c�ݤx6(T$):�:��:��:�err(45)
c�ݤx7(T$):�:��:��:�err(52)
c� ݤx8(T$):�:��:��:�err(204)
c�=�x(T$)
c�
c�&ݤx(A$):�strip(A$):�A$="":�err(35)
c�;�Q%,B%,I%,z$:�qbscan(A$,Q%,B%):�Q%�err(10):��B%�err(11)
c� z$=A$:ȕ�z$,"'"):I%=�z$,"'")
c�J%=(��z$,I%+1))�&DF
c��J%<65�J%>83:�err(29)
c�0�z$+�$�tia(tw%(file%,6),J%-65)>250:�err(30)
d4z$=�z$,I%-1)+$�tia(tw%(file%,6),J%-65)+�z$,I%+2)
d
/�:A$=�X(z$):�strip(A$):�A$="":�err(35):�=A$
d
dݤX(A$):�z$,J%,I%:z$=A$
d( ȕ�A$,"=""*"):I%=�A$,"=""*")
d2 z$=�A$,I%-1)+","""+�A$,I%+3)
d<#J%=�z$,�34,I%+2):�J%=0:�err(10)
dF/�z$,J%-1,1)="*":z$=�z$,J%-2)+�z$,J%):J%-=1
dP"z$=�z$,J%)+")"+�z$,J%+1):J%=I%
dZ�:I%=I%-1:�I%<0:�err(31)
dd��z$,I%,1)="@"
dnz$=�z$,I%-1)+"FNi("+�z$,I%)
dxA$=z$:�:=A$
d�
d�ݤev(A$,s%,u%)
d�$sd%="N":�s%$sd%+="S"
d��u%$sd%+="U"
d�șswi%,expand_%,A$,$sd%
d�N%=�v_(15):D%=�v_(14)
d�
=�$sd%
d�
d�%ݤev1(A$)=�ev(�x(A$),macs%,macu%)
d�
d�+ݤev2(A$,s%,u%)=�ev3(A$,s%,u%,&102050F)
d�
d�ݤev5(A$)=�ev(�x(A$),�,�)
e
eݤev3(A$,s%,u%,A%)
e
�U%:�
e"%��:��:@%=&90A:U%=�:�<>6:�err(0)
e,�U%�
e6$sd%=�ev(A$,s%,u%)
e@�
eJ4@%=A%:$sd%=�"               "+äev(A$,s%,u%),15)
eT�s%:șswi%,strip_%
e^�
eh@%=&90A:=$sd%
er
e|��wtidy
e�8�I%:�I%=2�maxw%:�w%(file%,I%)>0�closew(w%(file%,I%))
e��:�
e�
e���buzz1:șswi%,beep_%,100
e���buzz:șswi%,beep_%,150
e���buzz2:șswi%,beep_%
e��
e�
e���subbyte(T%,g%)
e��T%>255�
e�șswi%,sd53_%,T%-256�G%
e�șswi%,sd51_%,G%
e��
f�T%>31T%-=32:g%=(g%=0)
fșswi%,sd37_%,T%�G%
f�
f&șswi%,sd34_%,g%,-1�G%
f0șswi%,sd37_%�G%
f:�
fD
fN3��zfound:�fc%(file%)>=0fc%(file%)=-1:�showfound
fX�
fb
fl"ݤactdesc="Transferring cards"
fv
f���endact:�copying%=0:�
f�8s%(source%)=0:a%(source%)=0:s%(target%)=0:copying%=0
f��file%=printer%:�releasepr
f�1�sdfile(target%):�forcecard:șswi%,sd38_%,255
f�+�sdfile(source%):�validrec2:�newdelay:�
f�
f�6ݤnote(T%,I%):�q%:q%=workbuf%:=$�tia(tw%(T%,6),I%)
f�
f�$��note(T%,I%,T$):�q%:q%=workbuf%
f�@�w%(T%,6)>0�seti(w%(T%,6),I%,T$)�$�tia(tw%(T%,6),I%)=�T$,80)
f��
f�
f�ݤmacln(T%,I%):�I%>29:=""
g(�q%:q%=workbuf%:=$�tia(tw%(T%,7),I%)
g
g.��macln(T%,I%,T$):�q%:q%=workbuf%:�I%>29:�
g @�w%(T%,7)>0�seti(w%(T%,7),I%,T$)�$�tia(tw%(T%,7),I%)=�T$,80)
g*�
g4
g>(��loadnotes:�I%,T%:T%=�file$:�T%=0:�
gH&ȕ��#T%�I%<19:�note(file%,I%,�#T%)
gR3I%+=1:�:�#T%:ȕI%<19:�note(file%,I%,""):I%+=1:�
g\&�noscrap:�newfn(f_np$):�newnotes:�
gf
gp(��loadmacro:�I%,T%:T%=�file$:�T%=0:�
gz'ȕ��#T%�I%<30:�macln(file%,I%,�#T%)
g�4I%+=1:�:�#T%:ȕI%<30:�macln(file%,I%,""):I%+=1:�
g�&�noscrap:�newfn(f_mc$):�newnotes:�
g�
g�ݤsetuptype(f$)
g�)�A%,B%,I%,F%,T%,T$:F%=�(f$):�F%=0:=-1
g��
g�0�#F%=0:�I%=1�4:A%=�#F%:B%=(A%<<24)+(B%>>8):�
g��B%=&55010001:�#F%:=0
g�"�B%=&6C72654D:B%=�#F%:�#F%:=B%
g��#F%=0:T%=�:��:��:T%=�
g��T%�#F%,T$
g��T%�
g�'�T$="Delta+Mailshot Labels":�#F%:=1
h(�T$="Delta+Mailshot Wordpro":�#F%:=2
h'�T$="Delta+Mailshot Report":�#F%:=3
h�
h$�#F%:=-1
h.
h8ݤsetupdesc(T%)
hB	ȎT%�
hL�0:="Printer Driver"
hV�1:="Old Delta+ Labels"
h`�2:="Old Delta+ Wordpro"
hj�3:="Old Delta+ Report"
ht�4:="MultiStore Labels"
h~�5:="MultiStore Wordpro"
h��6:="MultiStore Report"
h��7:="MultiStore Transfer"
h��:="Unrecognised Format"
h�
h�3��clearnpad:�I%:�I%=0�18:�note(file%,I%,""):�:�
h�
h�5��clearmacro:�I%:�I%=0�29:�macln(file%,I%,""):�:�
h�
h�4ݤthisfile(w%,h%):�w%=dialogue%:�h%=dialfile%:=�
h�$�I%:�I%=0�maxw%:�w%(h%,I%)=w%:=�
h��:=�
h�
i��scrsz
i
H!workbuf%=4:workbuf%!4=5:workbuf%!8=11:workbuf%!12=12:workbuf%!16=-1
i0ș"OS_ReadVduVariables",workbuf%,workbuf%+24
iIq%!32=(workbuf%!32)<<(workbuf%!24):q%!36=(workbuf%!36)<<(workbuf%!28)
i(�
i2
i<.��findfield:�X%,Y%:�file%=edfile%:�fedit:�
iF8�getw(w%(file%,0)):șswi%,sd17_%,2,menufield%,sd$�G%
iP+X%=G%:șswi%,sd17_%,3,menufield%,sd$�G%
iZ9Y%=-G%*linegap%-margin%+linegap%/2:X%=X%*16+margin%-8
id3�scrollto(X%,Y%,w%(file%,0)):�getw(w%(file%,0))
in0ȗ�bx%+X%,by%+Y%:�front(w%(file%,0),-1,-1):�
ix
i�*��scrollto(X%,Y%,h%):�h%<0�:��getw(h%)
i�8�X%>=x0%-bx%�X%<=x1%-bx%�Y%<=y1%-by%-32�Y%>=y0%-by%�
i�,scx%=X%-(x1%-x0%)�2:scy%=�Y%-(y1%-y0%)�2
i��scx%<0scx%=0
i��scy%<0scy%=0
i�1�open(h%,x0%,y0%,x1%,y1%,scx%,-scy%,bhandle%)
i��
i�
i�/��findct:�getct:�scrollto(q%!8,q%!12,!q%):�
i�
i�*��status:w_status%=�crwind(tw_status%)
i��I%,T%,T$,s$:s$=�12," ")
i�)�unselall(w_status%):T%=0:�I%=0�maxf%
j�w%(I%,0)>0�
j*�sdfile(I%):T$=��filename+�11," "),11)
j-T$+=�s$+äv_(16),10)+�s$+äv_(17),11)+" "
j"0�file%=source%T$+="(SOURCE)":�T$+="(TARGET)"
j,)�T%<8:�seti(w_status%,T%+15,T$):T%+=1
j6�
j@.�:ȕT%<8:�seti(w_status%,T%+15,""):T%+=1:�
jJ#�stopboxes%:�seli(w_status%,23)
jT�sound%:�seli(w_status%,24)
j^!�shadows%:�seli(w_status%,25)
jh�pix%:�seli(w_status%,28)
jr#�sprsz%<=0�shadei(w_status%,28)
j|�dialogue(w_status%):�
j�
j���copycard:�copying%>0�
j��:��:��:�copied:�err(0)
j�7�sdfile(target%):macro%=�flg(f_mace%)��flg(f_macb%)
j��copycd(�)
j���copied
j�&�sdfile(target%):șswi%,sd38_%,255
j��
j�
j���conv(� T$)
j��strip(T$):�T$<>63:�
j�"T$=�su(�T$,2)):�T%,Q%,A%,A$,B$
j�#�remove(T$,"#"):�remove(T$,"@")
k�:��:��:�err(18)
k.�qbscan(T$,Q%,A%):�Q%�err(10):��A%�err(11)
kT%=�T$," "):�T%<2�err(19)
k&A$=�T$,T%-1):�T%>5A$=�T$,4)
k0T$=�T$,T%+1)
k:&T%=�T$:Q%=32:��T$)=34:Q%=34:T%-=1
kD�:�T%<1�err(19)
kNT%-=1:���T$,T%+1)=Q%
kX1$sd%=�su(�T$,T%)):T$=�T$,T%+2):�Q%=34:T$=�T$)
kb	B$=""
kl�$sd%,5)="SOUND":B$="~="
kv,�$sd%,7)="CONTAIN":B$="=":T$="*"+T$+"*"
k��$sd%,"EQU")>0:B$+="="
k��$sd%,"IS")>0:B$="="+B$
k��$sd%,"LESS")>0:B$="<"+B$
k��$sd%,"GREA")>0:B$=">"+B$
k�(�$sd%,"IS")>0:B$=�B$):�B$="":B$="="
k��B$<1��B$>2:�err(19)
k���B$)="~":B$=�B$)+"="
k�șswi%,sd17_%,4,A$,sd$�G%
k�>�(G%�7)=7:T$="@"+A$+B$+""""+�s(T$)+"""":�T$="#"+A$+B$+ûT$
k�"�$sd%,"NOT"):T$="NOT("+T$+")"
k��
k�
k���remove(� T$,t$):�I%
l*�I%=�T$,t$):�I%:T$=�T$,I%-1)+�T$,I%+1)
l�I%=0:�
l
l -��domacro:�deadfile(%1111111101101101):�
l*��domacro1
l4D�a%,b%,c%,d%,e%,f%,g%,h%,i%,j%,k%,l%,m%,n%,a$,b$,t1%,t2%,t3%,t4%
l>�@%,K%,J%,x%,A$,T$,p$,c$
lHCt1%=t%(file%,0):t2%=t%(file%,1):t3%=t%(file%,2):t4%=t%(file%,3)
lRp$="":a$="":b$="":er%=0
l\�:��:��:�err(20)
lf�er%=0�29:�er%=27:�26,4:� �
lpc$=$�tia(tw%(file%,7),er%)
lzȕc$>""
l�
*fx229
l�&A$=c$:�c$,":"):A$=�c$,�c$,":")-1)
l�
Ȏ � �
l�+� 42=�A$:$sd%=p$:�oscli(�c$,2)):p$=$sd%
l��A$,2)="IF"
l�/A$=�A$,3):K%=�A$,"GO"):�K%=0K%=-�A$,"THEN")
l��K%=0�err(21)�
l�#T$=�A$,�K%-1):�macu%�upplit(T$)
l��ev1(T$)�
l�
�K%>0�
l�*U%=�ev1(�A$,K%+2)):�U%<1�U%>30�err(22)
l�er%=U%-2:c$=""
l��
mc$=":"+�s(�c$,�K%+6))
m�
m�
m$	c$=""
m.�
m8!�A$,3)="a$=":a$=�ev5(�A$,4))
mB!�A$,3)="b$=":b$=�ev5(�A$,4))
mL"�A$,4)="PASS":p$=�ev5(�A$,5))
mV�A$,4)="END":er%=999:c$=""
m`�A$,3)="REM":c$=""
mjɧA$,"%=")>0:x%=�A$,"%=")
mt�x%=3��A$,1)="t"�
m~#J%=��A$,2,1):�J%<1�J%>4�err(33)
m�(K%=�ev1(�A$,x%+2)):t%(file%,J%-1)=K%
m�Ct1%=t%(file%,0):t2%=t%(file%,1):t3%=t%(file%,2):t4%=t%(file%,3)
m��
m�,�A$,x%-1)<�"a"���A$,x%-1)>�"n"�err(23)
m�%�setvar(�A$-�"a",�ev1(�A$,x%+2)))
m��
m�0�A$,1)="@"��A$,1)="#":x%=�A$,"="):�setfield
m�#�A$,1)="^":x%=�A$,"="):�setsub
m��
m�&�c$,":")c$=�c$,�c$,":")+1):�c$=""
m�*fx229,1
m��
n�
n
�
n
n"��setfield:�readonly:�buzz1:�
n(�T$,exp$,U%,@%:exp$=A$
n2!�x%=0�err(24):�:�x%<3�err(25)
n<XT$=�exp$,2,x%-2):șswi%,sd17_%,4,T$�G%:G%=G%�7:�G%=0:@%=&100000A:�@%=&102000A+G%*256
nFU%=�:A$=�x(�exp$,x%+1)):�
nP%��:��:@%=&90A:U%=�:�<>6:�err(0)
nZ+�U%:$sd%=�ev(A$,�,�):�$sd%=äev(A$,�,�)
nd�U%:��
nnT$=�exp$,2,x%-2)
nxșswi%,pfield_%,T$
n��
n�
n�/��setsub:�T$:�x%=0PRCerr(26):��x%<3�err(27)
n�0T$=�A$,2,x%-2):T$=�su(�T$,4)):a%=�subnum(T$)
n�-�a%<=0�err(28):��zfound:�macu%�upplit(A$)
n�"�subbyte(a%,�ev1(�A$,x%+1))):�
n� 
n���oscli(T$):�T$=42:�T$:�
n�#�I%,J%:ș"Wimp_CommandWindow",1
n��normpoint:mode%=�:�12
n�
*fx229
n��T$=""�
n��novars
o�
o#���=17�T$="":�endoscli:�:��:�
o�T$="":�"*"T$
o"
Ȏ � �
o, � �T$=63��v_(1)=0:�(�T$,2))
o6&� �T$=63��v_(1)>0:�ev(�T$,2),0,0)
o@�T$
oJ�
oT
�T$=""
o^��
oh�
or�
o|��:��:�endoscli:�err(0)
o�"�=0:�T$:ș"OS_Byte",&86�,I%,J%
o�2�<150�I%+J%<>0���0<0:�''"Press a key... ";:�
o��
o��endoscli:�
o�
o���endoscli
o�*fx229,1
o�ș"Wimp_CommandWindow",-1
o�'ș"Wimp_SetMode",mode%:�:�force(-1)
o��
o�
o�,��emacro:�deadfile(%1111111101111111):�
o�笤flg(f_macb%):�domacro
p�forcecardrep:�validrec:�
p
p��bmacro
p&F�:��:��:�flg(f_macb%,�):�showmac:�forcecardrep:�validrec:�err(0)
p0�domacro:�forcecardrep:�
p:
pD'��fieldsz1(T%):�gx0%,gy0%,gx1%,gy1%
pN��fieldsz(T%)
pX�L%,X%,Y%,G%,t%
pb,�getw(w%(file%,0)):șswi%,sd17_%,1,T%�L%
plșswi%,sd17_%,2,T%�X%
pvșswi%,sd17_%,3,T%�Y%
p�%ș"OS_ReadModeVariable",-1,5�,,T%
p�,ty0%=(-Y%*linegap%-margin%)��((1<<T%)-1)
p�>tx0%=X%*16+margin%-16:ty1%=ty0%+linegap%:tx1%=tx0%+L%*16+2
p��
p�
p�)��updatefield(T%):�X%,L%:�fieldsz(T%)
p�H!q%=w%(file%,0):q%!4=tx0%:q%!8=ty0%:q%!12=tx1%:q%!16=ty1%:�redraw(�)
p��
p�
p�0ݤshowbranch:�readpointer:�mb%<>1�mi%<>-3:=�
p�/�T$,t$:T$=fn$(file%):t$=�leaf(T$):�t$=T$:=�
p�(�"*filer_opendir "+�T$,�T$-�t$-1):=�
p�
q��readws:�T$,T%,I%,c%
q;c%=�hdbyte1(53):�c%<>id_bbc%�c%<>id_wcia%�c%<>id_exb%:�
qșswi%,sd24_%
q �c%=id_exb%�readexbws:�
q*5r$(file%)=�gs:�I%=0�18:�note(file%,I%,��gs,69)):�
q4e$(file%)=��gs,70)
q>'�flg(f_rspc%,�gb):�flg(f_rupp%,�gb)
qH)�flg(f_sspc%,�gb2):�flg(f_supp%,�gb2)
qR'T%=�v_(7)+5:�T%>30�c%=id_wcia%T%=30
q\#�I%=0�T%:�macln(file%,I%,�gs):�
qfșswi%,sd25_%�G%
qp/�G%=11:�flg(f_macb%,�):��G%:�flg(f_mace%,�)
qz�
q�
q���readexbws:�I%,T%
q�"�I%=0�18:�note(file%,I%,�gs):�
q�#�I%=0�29:�macln(file%,I%,�gs):�
q�<�I%=0�23:d$(file%,I%)=�gs:�:f$(file%)=�gs:fx$(file%)=�gs
q�?e$(file%)=�gs:�I%=0�14:w$(file%,I%)=�gs:�:wo%(file%)=�gw(0)
q�r%(file%)=�gw(0)
q�;fl%(file%)=(fl%(file%)��f_save%)�(�gw(f_dflt%)�f_save%)
q�B�I%=0�3:t%(file%,I%)=�gw(0):�:o$(file%)=�gs:o%(file%,0)=�gw(0)
q�=r$(file%)=�gs:sr$(file%)=�gs:l$(file%)=�gs:lk$(file%)=�gs
q�lx$(file%)=�gs
q�"�I%=0�5:ll%(file%,I%)=�gw(0):�
q�#�I%=0�15:lf%(file%,I%)=�gw(0):�
r<�I%=0�4:p%(file%,I%)=�gw(0):�:�I%=0�7:p$(file%,I%)=�gs:�
rT%=�gw(0):�I%=0�T%
r�I%<=maxcol%�
r$=c$(file%,I%,0)=�gs:c$(file%,I%,1)=�gs:c%(file%,I%)=�gw(0)
r.�
r8!$sd%=�gs:$sd%=�gs:!sd%=�gw(0)
rB�
rL�
rV:st%(file%,0)=��gs:st%(file%,1)=��gs:st%(file%,2)=�/100
r`�
rj
rt��writews:�readonly:�
r~
�T$,I%,c%
r�;c%=�hdbyte(&35):�c%<>id_bbc%�c%<>id_wcia%�c%<>id_exb%:�
r�șswi%,sd24_%
r��c%=id_exb%:�writeexbws:�
r� $sd%=r$(file%):șswi%,sd28_%
r�N�I%=0�18:$sd%=�note(file%,I%):șswi%,sd28_%:�:$sd%=e$(file%):șswi%,sd28_%
r�+�wsb(�flg(f_rspc%)):�wsb(�flg(f_rupp%))
r�+�wsb(�flg(f_sspc%)):�wsb(�flg(f_supp%))
r�'T%=�v_(7)+5:�T%>30�c%=id_wcia%T%=30
r�2�I%=0�T%:$sd%=�macln(file%,I%):șswi%,sd28_%:�
r�2T%=0:�flg(f_mace%):T%=1:��flg(f_macb%):T%=11
r�șswi%,sd26_%,T%
r��
s
s
��writeexbws:�I%
s#�I%=0�18:�ws(�note(file%,I%)):�
s$�I%=0�29:�ws(�macln(file%,I%)):�
s(?�I%=0�23:�ws(d$(file%,I%)):�:�ws(f$(file%)):�ws(fx$(file%))
s2/�ws(e$(file%)):�I%=0�14:�ws(w$(file%,I%)):�
s<5�wsw(wo%(file%)):�wsw(r%(file%)):�wsw(fl%(file%))
sF/�I%=0�3:�wsw(t%(file%,I%)):�:�ws(o$(file%))
sP4�wsw(o%(file%,0)):�ws(r$(file%)):�ws(sr$(file%))
sZ2�ws(l$(file%)):�ws(lk$(file%)):�ws(lx$(file%))
sd!�I%=0�5:�wsw(ll%(file%,I%)):�
sn"�I%=0�15:�wsw(lf%(file%,I%)):�
sx<�I%=0�4:�wsw(p%(file%,I%)):�:�I%=0�7:�ws(p$(file%,I%)):�
s��wsw(maxcol%):�I%=0�maxcol%
s�>�ws(c$(file%,I%,0)):�ws(c$(file%,I%,1)):�wsw(c%(file%,I%))
s�9�:st%(file%,1)+=�/100-st%(file%,2):st%(file%,2)=�/100
s�9st%(file%,0)+=1:�ws(�st%(file%,0)):�ws(�st%(file%,1))
s��
s�
s�"ݤgb:șswi%,sd25_%�G%:=(G%=11)
s�#ݤgb2:șswi%,sd25_%�G%:=(G%<>0)
s�ݤgs:șswi%,sd27_%:=$sd%
s�"��ws(T$):$sd%=T$:șswi%,sd28_%
s�2��wsb(T%):�T%șswi%,sd26_%,11:�șswi%,sd26_%,0
s��
s�
t,ݤgw(A%):�T%,I%:�I%=0�3:șswi%,sd25_%�G%
t1T%=T%�((G%�255)<<(I%*8)):�:�T%=&0d0d0d0dT%=A%
t=T%
t"
t,4��wsw(T%):�I%:�I%=0�3:G%=T%�255:șswi%,sd26_%,G%
t6T%=(T%>>8):�:�
t@
tJݤstatf
tT,�T%,I%:I%=14:T%=-1:�:T%+=1:�T%>maxf%:=-1
t^�w%(T%,0)>0:I%+=1
th,�I%=mi%:�w%(T%,0)>0:�sdfile(T%):=T%:�=-1
tr
t|��walign:�X%,Y%
t�%�menufile%<0�:��sdfile(menufile%)
t�/X%=file%*80+panew%+8:Y%=900-file%*40-paneh%
t�7�open(w%(file%,0),X%,Y%,X%+paneh%,Y%+paneh%,0,0,-1)
t�$�I%:�I%=2�maxw%:�w%(file%,I%)>0�
t�D�align1(file%,I%):�open(w%(file%,I%),tx0%,ty0%,tx1%,ty1%,0,0,-1)
t�	�:�:�
t�
t���grabpr
t�/�printer%>=0:�err(42):��pstream%>0:�err(41)
t�/pstream%=�("Printer:"):�pstream%=0:�err(41)
t�printer%=file%:�
t�
t�&��releasepr:�pstream%>0:�#pstream%
uprinter%=-2:pstream%=0:�
u
u��pprint1(T$)
u&�
u0/��:��:ș"Hourglass_Off":�"fx229,1":�err(0)
u:ș"Hourglass_On":*fx229
uD�#pstream%,T$;
uN!��:ș"Hourglass_Off":*fx229,1
uX�
ub
ul&��pprint(T$):�pprint1(T$):�pnewl:�
uv
u�-��ppage:�pdriver%:�pprint1(PDff$):��pnewl
u��manual%:�
u�F!q%=99:$(q%+4)="Please load a new sheet of paper into the printer"
u�!ș "Wimp_ReportError",q%,17:�
u�
u���pnewl
u��
u�/��:��:ș"Hourglass_Off":�"fx229,1":�err(0)
u�ș"Hourglass_On":*fx229
u��pterm%>0:�#pstream%,13
u��pterm%<>1:�#pstream%,10
u�!��:ș"Hourglass_Off":*fx229,1
u��
v
v"��dprint1(T$):�#outfile%,T$;:�
v
v &��dprint(T$):�dprint1(T$):�dnewl:�
v*
v44��ofont(T%,O%):�pdriver%�oprint1(PDfont$(T%),O%)
v>�
vH
vR��dnewl:�#outfile%,"":�
v\
vf"��onewl(T%):�T%:�dnewl:��pnewl
vp0��oprint(T$,T%):�T%:�dprint(T$):��pprint(T$)
vz3��oprint1(T$,T%):�T%:�dprint1(T$):��pprint1(T$)
v��
v�
v�
��asccard
v��h%,I%,T%:T%=�file$:�T%=0:�
v�(I%=1:h%=�ht:ȕI%<=h%���#T%:$sd%=�#T%
v�șswi%,sd00_%,sd%,I%
v�"I%+=1:�:�#T%:șswi%,sd38_%,255
v�șswi%,sd38_%
v��forcecard:�noscrap:�
v�
v�)��getpass:w_passw%=�crwind(tw_passw%)
v�5�seti(w_passw%,0,"File "+�filename+", password:")
v�B�seti(w_passw%,1,""):�seti(w_passw%,2,""):�seti(w_passw%,5,"")
w�dialogue(w_passw%):�
w
w4��newfn(� T$):�u(file$)<>"<WIMP$SCRAP>"T$=file$
w$�
w.
w8��readparams:�I%,F%
wBDmaxf%=1:maxacr%=4:maxcol%=29:avchar%=65:manual%=�:maxfields%=250
wL4stopboxes%=�:sound%=�:shadows%=�:tools%=�:pix%=�
wV-clearpass%=�:sprsz%=0:dplen%=66:dpwid%=79
w`Gf_la$="LabelSet":f_wp$="WordSet":f_rp$="ReportSet":f_tf$="TransSet"
wj=f_np$="Notepad":f_mc$="Macro":f_rx$="Report":f_cd$="Card"
wtmacs%=�:macu%=�
w~F%=�(�dir+"Params")
w�'�F%:ȕ��#F%:�readparam(�#F%):�:�#F%
w�5�fd$(maxfields%),fd%(maxfields%),fdx$(maxfields%)
w�pix%=sprsz%>50:�readflags:�
w�
w���readparam(T$)
w�T$=�s1(T$):�T$=""��T$=�";"�
w�)�V$,T%,on,off:on=�:T%=�T$," "):�T%=0�
w�&V$=�T$,T%):T$=�T$,T%-1):V$=�s1(V$)
w�T%=�V$,";"):�T%V$=�V$,T%-1)
w��:��:��:�
w�Ȏ�lower(T$)�
w��"shadow":shadows%=�V$
x�"stopboxes":stopboxes%=�V$
x
�"sound":sound%=�V$
x�"tools":tools%=�V$
x�"fnprinter":f_pd$=V$
x(�"fnlabel":f_la$=V$
x2�"fnwordpro":f_wp$=V$
x<�"fnrepset":f_rp$=V$
xF�"fnnotepad":f_np$=V$
xP�"fnmacro":f_mc$=V$
xZ�"fnreport":f_rx$=V$
xd�"fncard":f_cd$=V$
xn�"fntransfer":f_tf$=V$
xx�"clearpass":clearpass%=�V$
x��"pagelen":dplen%=�V$
x��"pagewid":dpwid%=�V$
x��"pictures":sprsz%=�V$
x��"labels":maxacr%=�V$
x��"columns":maxcol%=�V$-1
x�<�"average":avchar%=�V$:�avchar%<32�avchar%=127avchar%=65
x��"manual":manual%=�V$
x��"transfds":maxfields%=�V$
x��"macroupp":macu%=�V$
x��"macrospc":macs%=�V$
x��:�
x�
x�!ݤs1(T$):ȕ�T$=32:T$=�T$,2):�
yȕ�T$)=" ":T$=�T$):�:=T$
y
y��swap7:�force(w%(file%,0))
y"șswi%,sd57_%,"bit7"�G%
y,#G%=G%�1:șswi%,sd58_%,G%,"bit7"
y6șswi%,sd57_%,"bit7"�G%
y@"�flg(f_7bit%,G%):șswi%,sd39_%
yJ�
yT
y^ݤpwcode(T$):�T$="":=""
yh�A%,B%,I%:�I%=1��T$
yr"�T$,I%,1)=�(��T$,I%)�(I%+173))
y|	�:=T$
y�
y�,ݤpicfield(T%):șswi%,sd17_%,9,T%,sd$�G%
y�șswi%,upper_%
y�%=�$sd%,3)="PIC"�sd%?3>47�sd%?3<58
y�
y�#ݤreadonly:șswi%,sd13_%,&E6�G%
y�=(G%�32)<>0
y�
y�)ݤnindices:șswi%,sd57_%,"indices"�G%
y�=G%
y�
y�%��upplit(� A$):�Q%,I%,C%:�A$="":�
y�&�I%=1��A$:C%=��A$,I%):�C%=34Q%=�Q%
z&�Q%�C%>96�C%<123�A$,I%,1)=�(C%-32)
z�:�
z
z&��newnotes
z0�newfilt:�validrec:�
z:
zD
��newfilt
zN�:��:��:�nofilt:�
zX5�T$:T$=�x1(f$(file%)):fx$(file%)=T$:�showfilter:�
zb
zl��create:�T%,B%,T$
zv�v_(1)>0�err(100)
z��:��:��:�err(60)
z�-T$=�dir+"MSCreate":T%=�(T$):�T%=0�err(59)
z�B%=�#T%:�#T%:�writeflags:��
z�'��error(�,�$,�,�):�report:�quit(�)
z�1�delw(w_stop%):�delw(w_save%):�delw(w_pinfo%)
z�%�delw(w_pinfo2%):�delw(w_shadow%)
z�$�w_transfer%>0�delw(w_transfer%)
z�)�normpoint:*Set MultiStore$Function 1
z�"Z%=taskhandle%:�novars:�(T$):�
z�
z���transfer
z�3�w_transfer%<0w_transfer%=�crwind(tw_transfer%)
z��unselall(w_transfer%)
{G�seti(w_transfer%,2,"(NOT OPEN)"):�seti(w_transfer%,4,"(NOT OPEN)")
{=�w%(source%,0)>0:�seti(w_transfer%,2,�ofilename(source%))
{=�w%(target%,0)>0:�seti(w_transfer%,4,�ofilename(target%))
{ �tcd%:�seli(w_transfer%,0)
{*�tws%:�seli(w_transfer%,10)
{4�tns%:�seli(w_transfer%,11)
{>�tsb%:�seli(w_transfer%,12)
{H�front(w_transfer%,-1,-1):�
{R
{\��checkconv(T$):�T%,B%
{f�:��:��:�#T%:�
{p file$=T$:T%=�(file$):�T%=0:�
{z#B%=�#T%:�B%<>234�B%<>235:�#T%:�
{�B%=�#T%+�#T%+�#T%+�#T%:�#T%
{���
{� �B%=0B%=ft_form%�B%=ft_data%
{�Jmenufield%=B%:�stop(36,"Wrong file type","Convert to MultiStore ?",-1)
{��
{�
{� ��pdriver:�v_(1)>0�err(103)
{��mstore("1","MultiStore"):�
{�
{�2��endtransfer:�v_(1)=0:�closew(w_transfer%):�
{�"�v_(1)>0�copying%<=0�err(215)
{�9�copying%>0:�stop(200,"",rl$+"Interrupt transfer",-1)
{��
|
|��mstore(A$,T$):�T%,B%
|�:��:��:�err(60)
|$%T$=�dir+T$:T%=�(T$):�T%=0�err(59)
|.;B%=�#T%:�#T%:�s(A$)>"":�"*Set MultiStore$Function "+A$
|8�writeflags:��
|B'��error(�,�$,�,�):�report:�quit(�)
|L1�delw(w_stop%):�delw(w_save%):�delw(w_pinfo%)
|V%�delw(w_pinfo2%):�delw(w_shadow%)
|`$�w_transfer%>0�delw(w_transfer%)
|j�normpoint
|t"Z%=taskhandle%:�novars:�(T$):�
|~
|���opensource(T$):�T$="":�
|��w%(source%,0)>0�err(201)
|�opening%=source%
|�/�-3:�openfile(T$):��openfile1(T$,0,�,"",�)
|��
|�
|���opentarget(T$):�T$="":�
|��w%(target%,0)>0�err(202)
|�opening%=target%
|�/�-3:�openfile(T$):��openfile1(T$,7,�,"",�)
|��
|�
}��openst(T%,T$)
}
!�I%:I%=�T$,","):�I%=0I%=�T$+1
}7�T%=0�opensource(�T$,I%-1)):��opentarget(�T$,I%+1))
}�
}(
}2��dotransfer:�copying%>0�
}<�v_(1)<>4�err(200)
}F/�readtran:�tcd%=� �tws%=� �tns%=�:�err(206)
}P�tcd%=� �tsb%=�:�err(214)
}Z>copying%=1:�sdfile(source%):a%(file%)=1:șswi%,first_%�,N%
}d�shownum:�writews
}n&�w%(file%,6)>0�closew(w%(file%,6))
}x&�w%(file%,7)>0�closew(w%(file%,7))
}�s%(file%)=2:�forcecard
}�7�sdfile(target%):macro%=�flg(f_mace%)��flg(f_macb%)
}��selindex(0,0)
}��selsub(0)
}�&�w%(file%,6)>0�closew(w%(file%,6))
}�&�w%(file%,7)>0�closew(w%(file%,7))
}�$s%(file%)=2:�forcecard:�newdelay
}��
}�
}���readtran:�w_transfer%<0�
}�#�I%:tcd%=�:tws%=�:tns%=�:tsb%=�
}�%�wchi(w_transfer%):I%=q%:�:Ȏ!I%�
}�
�0:tcd%=�
~�10:tws%=�
~�11:tns%=�
~�12:tsb%=�
~"�
~,I%+=4:�I%!-4<0:�
~6
~@&ݤht:șswi%,sd57_%,"height",sd$�G%
~J%ݤwd:șswi%,sd57_%,"width",sd$�G%
~T�sdfile(file%):=G%
~^
~h
��default
~r5�I%,T%,T$:�I%=0�maxfields%:fd$(I%)="":fd%(I%)=0:�
~|�v_(1)=4�
~��sdfile(target%)
~�)T%=�v_(7):�T%>maxfields%T%=maxfields%
~��I%=1�T%
~�3�sdfile(target%):T$=�fname(I%):�sdfile(source%)
~�;fd%(I%)=�fnum(T$):�fd%(I%)>0fd$(I%)="@"+�fname(fd%(I%))
~��
~��
~�)�w%(target%,4)>0�force(w%(target%,4))
~��
~�
~���targfield:�Y%
~�;Y%=my%:�yconv(Y%,�v_(7),w%(target%,4)):�sdfile(source%)
~�@fd$(Y%)=�fname1(menufield%):fd%(Y%)=menufield%:�updexp(Y%):�

��updexp(Y%)
!�sdfile(target%):�Y%>�v_(7):�
&c!q%=w%(target%,4):q%!4=fwid%:q%!8=-margin%-Y%*linegap%:q%!12=1E9:q%!16=q%!8+linegap%:�redraw(�)
0�
:
D+��selindex(I%,f%):�T$:T$="A":�f%:T$="D"
N
�I%>0�
Xșswi%,order_%,I%,T$�N%
b�
lșswi%,order_%�N%
v�
�(�showindex:�chkmv:�validrec:�graph:�
�
�#��clrmv:șswi%,sd58_%,0,"moved"
��
�
�$��chkmv:șswi%,sd57_%,"moved"�G%
��G%=0:�
��clrmv:�
�
�!��fieldexp:�v_(1)<>4:�buzz:�
�)�T$:w_transexp%=�crwind(tw_transexp%)
�(�seti(w_transexp%,1,fd$(menufield%))
�<T$=$�ia(w_transexp%,0):T$=�T$,32)+�fname(menufield%)+":"
�4�seti(w_transexp%,0,T$):�dialogue(w_transexp%):�
�
���copynext
� �
�*��:��:�endact:�err(208)
�4Ȏcopying%�
�>�1:�copyws:copying%+=1
�H�2:�copynums:copying%+=1
�R�tcd%:�endact
�\�3:�copycd(�)
�f�
�p�
�z
����copyws:�tws%:�
���T$
���
����:��:�err(207)
��,�sdfile(source%):T$=sd$:�sdfile(target%)
��șswi%,sd60_%,1,T$,sd$
��șswi%,sd57_%,"type",T$�G%
��șswi%,sd58_%,G%,"type"
��.�readws:macro%=�flg(f_mace%)��flg(f_macb%)
���
��
��!��copynums:�I%,T%,T$:�tns%:�
���:��:��:�err(209)
�0�I%=0�9:�sdfile(source%):șswi%,sd53_%,I%�G%
�AT%=G%:T$=$sd%:�sdfile(target%):șswi%,namewrite_%,T$,T%,I%�G%
��:�
�$
�.(��copycd(f%):�I%,T%,s$,t$,menufield%
�8�:��:��:�err(210)
�B&�sdfile(source%):s$=sd$:�f%�sdnext
�L�badrec(�v_(15)):�endact:�
�V?�shownum:�sdfile(target%):T%=�v_(7):t$=sd$:�sdfile(source%)
�`șswi%,add_%,t$�N%
�j�menufield%=1�T%
�tȎ�fd%(menufield%)�
�~4�-1:$sd%=�fieldval:șswi%,pfield_%,menufield%,t$
��,�1:I%=fd%(menufield%):șswi%,gfield_%,I%
��!șswi%,pfield_%,menufield%,t$
���
���
��
�tsb%�
��șswi%,sd33_%,-1�G%
��șswi%,sd34_%,G%,-1,t$�G%
���
��%�macro%�sdfile(target%):�domacro1
���
��
��"ݤfieldval:�:��:��:�err(204)
�=�ev2(fdx$(menufield%),0,0)
�

���swap:�readtran
�-�T$:T$="1:"+fn$(target%)+","+fn$(source%)
�(7�CLOSE:�"*set MultiStore$Function "+T$:process%=4:�
�2
�<��targetopen
�F2�CLOSE:�mstore("2:"+fn$(target%),"MultiStore")
�P�
�Z
�d��fastsort:�T$
�n)T$=fn$(target%):�T$=""T$=fn$(source%)
�x(�CLOSE:�mstore("1:"+T$,"MSFastSort")
���
��
����savesetup
��#�#outfile%,"Merl";:�#outfile%,7
��"�#outfile%,tcd%,tws%,tns%,tsb%
��)�I%=1�maxfields%:�#outfile%,fd$(I%):�
���
��
��/��checksetup:�setuptype(file$)<>7�err(211)
���v_(1)<>4:�err(212)
��(�stop(201,"",rl$+"load setup?",-1):�
��
����loadsetup:�T%,I%,T$
�infile%=�file$:�infile%=0:�
�!�:��:��:�#infile%:�err(213)
��I%=1�5:T%=�#infile%:�
�"+�#infile%,tcd%,tws%,tns%,tsb%:�transfer
�,1I%=1:ȕI%<=maxfields%���#infile%:�#infile%,T$
�6.expfield%=I%:�setexp(T$):I%+=1:�:�#infile%
�@0��:ȕI%<=maxfields%:expfield%=I%:�setexp("")
�J
I%+=1:�:�
�T
�^3��clear:�expfield%=1�maxfields%:�setexp(""):�:�
�h
�r2��readflags:�T$:T$=�ArfVar("MultiStore$Flags")
�|7�strflg(�T$,1),sound%):�strflg(�T$,2,1),stopboxes%)
��5�strflg(�T$,3,1),shadows%):�strflg(�T$,4,1),pix%)
��*unset MultiStore$Flags
���
��
����writeflags:�T$
��JT$=�flgstr(sound%)+�flgstr(stopboxes%)+�flgstr(shadows%)+�flgstr(pix%)
��"�"*Set MultiStore$Flags "+T$:�
��
��ݤflgstr(T%):�T%:="*":�="-"
��
����strflg(T$,� T%)
���T$="*":T%=�:��T$="-"T%=�
���
�
�2��readflags:�T$:T$=�arfvar("MultiStore$Flags")
�7�strflg(�T$,1),sound%):�strflg(�T$,2,1),stopboxes%)
�&5�strflg(�T$,3,1),shadows%):�strflg(�T$,4,1),pix%)
�0*unset MultiStore$Flags
�:�
�D
�N��novars
�X�
�b
�l��picpath:�T$:�file$>230:�
�v;T$=�ArfVar("MultiStorePics$Path"):秤u(T$),�u(file$)):�
��file$+=".":ȕ�T$+�file$>229
��%�:T$=�T$):��T$)=","�T$="":T$=�T$)
���:�T$>"":file$+=","
��(�"Set MultiStorePics$Path "+file$+T$
��+�I%=0�maxf%:�w%(I%,0)>0�force(w%(I%,0))
���:�
��
��ݤaddfield(T$,T%)
��(�C%,t$,A$:t$=T$:ȕ�t$)=" ":t$=�t$):�
���t$="":=�fname1(T%)
��%��t$)="@"��t$)="#":=t$+�fname(T%)
��!C%=�:�+1:�:�A$:C%=�t$,�A$)=A$
���C%�A$="****":�C%T$+="+"
� �T$,"@"):=T$+"@"+�fname(T%)
� �T$,"#"):=T$+"#"+�fname(T%)
�=T$+�fname1(T%)
� ,�+,-,*,/,AND,OR,NOT,>,<,=,(,",",":",****
�*
�4��setvar(A%,V%)
�>	ȎA%�
�H
� 0:a%=V%
�R
� 1:b%=V%
�\
� 2:c%=V%
�f
� 3:d%=V%
�p
� 4:e%=V%
�z
� 5:f%=V%
��
� 6:g%=V%
��
� 7:h%=V%
��
� 8:i%=V%
��
� 9:j%=V%
��
�10:k%=V%
��
�11:l%=V%
��
�12:m%=V%
��
�13:n%=V%
���
���
�

00000000  0d 00 0a 22 f4 3e 20 3c  4d 75 6c 74 69 53 74 6f  |...".> <MultiSto|
00000010  72 65 24 44 69 72 3e 2e  4d 53 54 72 61 6e 73 66  |re$Dir>.MSTransf|
00000020  65 72 0d 00 14 3f f4 20  20 42 79 20 4d 65 72 6c  |er...?.  By Merl|
00000030  79 6e 20 4b 6c 69 6e 65  20 66 6f 72 20 43 6f 70  |yn Kline for Cop|
00000040  79 72 69 67 68 74 20 28  63 29 20 4d 69 6e 65 72  |yright (c) Miner|
00000050  76 61 20 53 6f 66 74 77  61 72 65 2c 20 31 39 38  |va Software, 198|
00000060  39 0d 00 1e 18 3a 20 20  20 20 76 65 72 73 69 6f  |9....:    versio|
00000070  6e 24 3d 22 32 2e 30 32  22 0d 00 28 04 0d 00 32  |n$="2.02"..(...2|
00000080  17 ee 85 3a f2 65 72 72  6f 72 28 9f 2c f6 24 2c  |...:.error(.,.$,|
00000090  9e 2c b9 29 0d 00 3c 09  f2 69 6e 69 74 0d 00 46  |.,.)..<..init..F|
000000a0  33 ee 85 3a f2 65 72 72  6f 72 28 9f 2c f6 24 2c  |3..:.error(.,.$,|
000000b0  9e 2c 70 72 6f 63 65 73  73 25 3c 34 80 70 72 6f  |.,process%<4.pro|
000000c0  63 65 73 73 25 3e 30 29  3a f2 72 65 70 6f 72 74  |cess%>0):.report|
000000d0  0d 00 50 0e f2 6e 6f 72  6d 70 6f 69 6e 74 0d 00  |..P..normpoint..|
000000e0  5a 04 0d 00 64 05 f5 0d  00 6e 18 e7 70 72 6f 63  |Z...d....n..proc|
000000f0  65 73 73 25 3e 30 3a f2  70 72 6f 63 65 73 73 0d  |ess%>0:.process.|
00000100  00 78 28 c8 99 22 57 69  6d 70 5f 50 6f 6c 6c 49  |.x(.."Wimp_PollI|
00000110  64 6c 65 22 2c 2c 71 25  2c 64 65 6c 61 79 25 b8  |dle",,q%,delay%.|
00000120  72 65 61 73 6f 6e 25 0d  00 82 32 e7 74 61 73 6b  |reason%...2.task|
00000130  68 61 6e 64 6c 65 25 3e  30 3a c8 99 73 77 69 25  |handle%>0:..swi%|
00000140  2c 73 65 6c 65 63 74 74  61 73 6b 5f 25 2c 74 61  |,selecttask_%,ta|
00000150  73 6b 68 61 6e 64 6c 65  25 0d 00 8c 15 f2 72 65  |skhandle%.....re|
00000160  73 70 6f 6e 64 28 72 65  61 73 6f 6e 25 29 0d 00  |spond(reason%)..|
00000170  96 0a fd 71 75 69 74 25  0d 00 a0 13 f2 43 4c 4f  |...quit%.....CLO|
00000180  53 45 3a f2 71 75 69 74  28 a3 29 0d 00 aa 05 e0  |SE:.quit(.).....|
00000190  0d 00 b4 04 0d 00 be 16  dd f2 72 65 73 70 6f 6e  |..........respon|
000001a0  64 28 72 65 61 73 6f 6e  25 29 0d 00 c8 17 e7 72  |d(reason%).....r|
000001b0  65 61 73 6f 6e 25 3a f2  77 61 69 74 70 6f 69 6e  |eason%:.waitpoin|
000001c0  74 0d 00 d2 0e c8 8e 72  65 61 73 6f 6e 25 ca 0d  |t......reason%..|
000001d0  00 dc 11 c9 20 30 3a f2  62 61 63 6b 67 72 6e 64  |.... 0:.backgrnd|
000001e0  0d 00 e6 12 c9 20 31 3a  f2 72 65 64 72 61 77 28  |..... 1:.redraw(|
000001f0  a3 29 0d 00 f0 3a c9 20  32 3a f2 6f 70 65 6e 28  |.)...:. 2:.open(|
00000200  21 71 25 2c 71 25 21 34  2c 71 25 21 38 2c 71 25  |!q%,q%!4,q%!8,q%|
00000210  21 31 32 2c 71 25 21 31  36 2c 71 25 21 32 30 2c  |!12,q%!16,q%!20,|
00000220  71 25 21 32 34 2c 71 25  21 32 38 29 0d 00 fa 14  |q%!24,q%!28)....|
00000230  c9 20 33 3a f2 63 6c 6f  73 65 77 28 21 71 25 29  |. 3:.closew(!q%)|
00000240  0d 01 04 15 c9 20 34 3a  f2 70 74 72 65 78 69 74  |..... 4:.ptrexit|
00000250  28 21 71 25 29 0d 01 0e  16 c9 20 35 3a f2 70 74  |(!q%)..... 5:.pt|
00000260  72 65 6e 74 65 72 28 21  71 25 29 0d 01 18 2f c9  |renter(!q%).../.|
00000270  20 36 3a f2 6d 6f 75 73  65 28 21 71 25 2c 71 25  | 6:.mouse(!q%,q%|
00000280  21 34 2c 71 25 21 38 2c  71 25 21 31 32 2c 71 25  |!4,q%!8,q%!12,q%|
00000290  21 31 36 2c 71 25 21 32  30 29 0d 01 22 10 c9 20  |!16,q%!20)..".. |
000002a0  37 3a f2 65 6e 64 64 72  61 67 0d 01 2c 33 c9 20  |7:.enddrag..,3. |
000002b0  38 3a f2 6b 65 79 28 21  71 25 2c 71 25 21 34 2c  |8:.key(!q%,q%!4,|
000002c0  71 25 21 38 2c 71 25 21  31 32 2c 71 25 21 31 36  |q%!8,q%!12,q%!16|
000002d0  2c 71 25 21 32 30 2c 71  25 21 32 34 29 0d 01 36  |,q%!20,q%!24)..6|
000002e0  13 c9 20 39 3a f2 6d 65  6e 75 73 65 6c 65 63 74  |.. 9:.menuselect|
000002f0  0d 01 40 07 c9 31 30 0d  01 4a 07 c9 31 31 0d 01  |..@..10..J..11..|
00000300  54 07 c9 31 32 0d 01 5e  12 c9 31 37 2c 31 38 3a  |T..12..^..17,18:|
00000310  f2 75 6d 65 73 73 31 0d  01 68 0f c9 31 39 3a f2  |.umess1..h..19:.|
00000320  75 6d 65 73 73 32 0d 01  72 05 cb 0d 01 7c 0e f2  |umess2..r....|..|
00000330  6e 6f 72 6d 70 6f 69 6e  74 0d 01 86 05 e1 0d 01  |normpoint.......|
00000340  90 04 0d 01 9a 21 dd f2  71 75 69 74 28 54 25 29  |.....!..quit(T%)|
00000350  3a f2 6e 6f 72 6d 70 6f  69 6e 74 3a f2 6e 6f 76  |:.normpoint:.nov|
00000360  61 72 73 0d 01 a4 40 e7  ac 28 a6 2d 33 80 a4 64  |ars...@..(.-3..d|
00000370  65 62 75 67 29 3a 24 71  25 3d 22 54 41 53 4b 22  |ebug):$q%="TASK"|
00000380  3a c8 99 22 57 69 6d 70  5f 43 6c 6f 73 65 44 6f  |:.."Wimp_CloseDo|
00000390  77 6e 22 2c 74 61 73 6b  68 61 6e 64 6c 65 25 2c  |wn",taskhandle%,|
000003a0  21 71 25 0d 01 ae 16 e7  54 25 84 a4 64 65 62 75  |!q%.....T%..debu|
000003b0  67 3a f2 74 69 64 79 3a  e0 0d 01 b8 21 c8 99 73  |g:.tidy:....!..s|
000003c0  77 69 25 2c 6b 69 6c 6c  74 61 73 6b 5f 25 2c 74  |wi%,killtask_%,t|
000003d0  61 73 6b 68 61 6e 64 6c  65 25 0d 01 c2 06 c8 98  |askhandle%......|
000003e0  0d 01 cc 04 0d 01 d6 11  dd a4 74 61 73 6b 3d 6f  |..........task=o|
000003f0  74 61 73 6b 25 0d 01 e0  04 0d 01 ea 1d dd f2 69  |task%..........i|
00000400  6e 69 74 3a 6f 74 61 73  6b 25 3d 5a 25 3a f2 73  |nit:otask%=Z%:.s|
00000410  77 69 6e 75 6d 73 0d 01  f4 2c 61 70 70 6c 24 3d  |winums...,appl$=|
00000420  22 4d 75 6c 74 69 53 74  6f 72 65 22 3a 70 73 74  |"MultiStore":pst|
00000430  72 65 61 6d 25 3d 30 3a  f2 72 65 6c 65 61 73 65  |ream%=0:.release|
00000440  70 72 0d 01 fe 27 de 20  71 25 20 32 35 30 30 2c  |pr...'. q% 2500,|
00000450  20 77 6f 72 6b 62 75 66  25 20 31 35 30 30 2c 64  | workbuf% 1500,d|
00000460  69 61 6c 63 74 25 20 32  34 0d 02 08 37 77 61 69  |ialct% 24...7wai|
00000470  74 65 72 25 3d 30 3a 66  69 6c 65 25 3d 2d 31 3a  |ter%=0:file%=-1:|
00000480  76 25 3d a4 69 6e 69 74  77 69 6d 70 3a e7 76 25  |v%=.initwimp:.v%|
00000490  3c 31 38 30 3a eb 31 32  3a f2 65 72 72 28 32 29  |<180:.12:.err(2)|
000004a0  0d 02 12 21 f2 77 61 69  74 70 6f 69 6e 74 3a c8  |...!.waitpoint:.|
000004b0  9b 28 a4 64 69 72 2b 22  42 61 73 65 4c 69 62 22  |.(.dir+"BaseLib"|
000004c0  29 0d 02 1c 1f c8 9b 28  a4 64 69 72 2b 22 53 77  |)......(.dir+"Sw|
000004d0  69 4c 69 73 74 22 29 3a  f2 73 77 69 6c 69 73 74  |iList"):.swilist|
000004e0  0d 02 26 34 71 75 69 74  25 3d a3 3a 64 69 61 6c  |..&4quit%=.:dial|
000004f0  72 65 61 73 6f 6e 25 3d  2d 31 3a 64 69 61 6c 6f  |reason%=-1:dialo|
00000500  67 75 65 25 3d 2d 31 3a  64 69 61 6c 66 69 6c 65  |gue%=-1:dialfile|
00000510  25 3d 2d 31 0d 02 30 1c  61 63 6b 70 65 6e 64 69  |%=-1..0.ackpendi|
00000520  6e 67 25 3d a3 3a 61 63  6b 72 65 66 25 3d 2d 31  |ng%=.:ackref%=-1|
00000530  0d 02 3a 1b 64 72 61 67  72 65 61 73 6f 6e 25 3d  |..:.dragreason%=|
00000540  2d 31 3a 68 65 6c 70 24  3d 22 22 0d 02 44 1f 73  |-1:help$=""..D.s|
00000550  61 76 65 72 65 61 73 6f  6e 25 3d 2d 31 3a 73 61  |avereason%=-1:sa|
00000560  76 65 66 69 6c 65 25 3d  2d 31 0d 02 4e 19 66 69  |vefile%=-1..N.fi|
00000570  6c 65 32 25 3d 2d 31 3a  72 65 61 73 6f 6e 32 25  |le2%=-1:reason2%|
00000580  3d 2d 31 0d 02 58 1c 6d  65 6e 75 66 69 6c 65 25  |=-1..X.menufile%|
00000590  3d 2d 31 3a 6d 65 6e 75  73 75 62 25 3d 2d 31 0d  |=-1:menusub%=-1.|
000005a0  02 62 0e 63 6c 6f 73 65  6f 6b 25 3d a3 0d 02 6c  |.b.closeok%=...l|
000005b0  17 73 62 66 69 6c 65 25  3d 2d 31 3a 70 61 73 73  |.sbfile%=-1:pass|
000005c0  24 3d 22 22 0d 02 76 2d  70 64 72 69 76 65 72 25  |$=""..v-pdriver%|
000005d0  3d b9 3a c8 99 22 4f 53  5f 42 79 74 65 22 2c 31  |=.:.."OS_Byte",1|
000005e0  38 32 2c 30 2c 32 35 35  20 b8 2c 70 74 65 72 6d  |82,0,255 .,pterm|
000005f0  25 0d 02 77 30 e7 28 70  74 65 72 6d 25 80 26 38  |%..w0.(pterm%.&8|
00000600  30 29 3d 30 c8 99 22 4f  53 5f 42 79 74 65 22 2c  |0)=0.."OS_Byte",|
00000610  32 34 36 2c 30 2c 32 35  35 b8 2c 70 74 65 72 6d  |246,0,255.,pterm|
00000620  25 0d 02 80 20 e7 70 74  65 72 6d 25 3d 31 30 70  |%... .pterm%=10p|
00000630  74 65 72 6d 25 3d 31 3a  8b 70 74 65 72 6d 25 3d  |term%=1:.pterm%=|
00000640  32 0d 02 8a 24 69 64 5f  77 63 69 61 25 3d 34 32  |2...$id_wcia%=42|
00000650  3a 69 64 5f 65 78 62 25  3d 34 33 3a 69 64 5f 62  |:id_exb%=43:id_b|
00000660  62 63 25 3d 30 0d 02 94  1e 65 78 69 30 25 3d 2d  |bc%=0....exi0%=-|
00000670  31 3a 65 78 69 31 25 3d  2d 31 3a 6c 69 6e 6b 73  |1:exi1%=-1:links|
00000680  25 3d 30 0d 02 9e 1a de  20 65 64 62 75 66 25 20  |%=0..... edbuf% |
00000690  32 35 36 2c 65 64 76 61  6c 25 20 31 35 0d 02 a8  |256,edval% 15...|
000006a0  4a 65 64 66 69 65 6c 64  25 3d 2d 31 3a 65 64 66  |Jedfield%=-1:edf|
000006b0  69 6c 65 25 3d 2d 31 3a  65 64 69 63 6f 6e 25 3d  |ile%=-1:edicon%=|
000006c0  2d 31 3a 65 64 72 65 63  25 3d 2d 31 3a 65 64 78  |-1:edrec%=-1:edx|
000006d0  25 3d 2d 31 3a 24 65 64  76 61 6c 25 3d 22 61 30  |%=-1:$edval%="a0|
000006e0  2d 39 5c 2d 2b 2e 22 0d  02 b2 26 73 73 25 3d 31  |-9\-+."...&ss%=1|
000006f0  32 3a 6c 63 25 3d 33 3a  f2 72 65 61 64 70 61 72  |2:lc%=3:.readpar|
00000700  61 6d 73 3a f2 66 69 6c  65 76 61 72 73 0d 02 bc  |ams:.filevars...|
00000710  2a f2 6c 6f 61 64 73 70  72 69 74 65 73 3a f2 64  |*.loadsprites:.d|
00000720  65 66 77 73 3a f2 64 65  66 6d 65 6e 75 73 3a f2  |efws:.defmenus:.|
00000730  76 65 72 73 69 6f 6e 0d  02 c6 24 70 72 6f 63 65  |version...$proce|
00000740  73 73 25 3d 31 3a 63 68  65 63 6b 72 65 66 25 3d  |ss%=1:checkref%=|
00000750  2d 31 3a 64 65 6c 61 79  25 3d 30 0d 02 d0 24 73  |-1:delay%=0...$s|
00000760  74 6f 70 66 69 6c 65 25  3d 2d 31 3a 6c 61 73 74  |topfile%=-1:last|
00000770  61 63 74 25 3d 30 3a 63  68 75 6e 6b 25 3d 37 0d  |act%=0:chunk%=7.|
00000780  02 da 49 61 73 24 3d 22  41 72 65 20 79 6f 75 20  |..Ias$="Are you |
00000790  73 75 72 65 20 3f 22 3a  72 6c 24 3d 22 52 65 61  |sure ?":rl$="Rea|
000007a0  6c 6c 79 20 22 3a 72 69  24 3d 72 6c 24 2b 22 69  |lly ":ri$=rl$+"i|
000007b0  6e 74 65 72 72 75 70 74  20 3f 22 3a 66 69 24 3d  |nterrupt ?":fi$=|
000007c0  22 46 69 6c 65 3a 20 22  0d 02 e4 28 73 79 24 3d  |"File: "...(sy$=|
000007d0  22 53 6f 72 72 79 21 20  22 3a 6c 61 73 74 73 70  |"Sorry! ":lastsp|
000007e0  72 24 3d 22 22 3a 63 6f  70 79 69 6e 67 25 3d 30  |r$="":copying%=0|
000007f0  0d 02 ee 3f 73 6f 75 72  63 65 25 3d 30 3a 74 61  |...?source%=0:ta|
00000800  72 67 65 74 25 3d 31 3a  74 63 64 25 3d b9 3a 74  |rget%=1:tcd%=.:t|
00000810  77 73 25 3d b9 3a 74 6e  73 25 3d b9 3a 74 73 62  |ws%=.:tns%=.:tsb|
00000820  25 3d b9 3a 65 78 70 66  69 65 6c 64 25 3d 30 0d  |%=.:expfield%=0.|
00000830  02 f8 27 ef 32 33 2c 32  35 35 2c 30 2c 31 32 36  |..'.23,255,0,126|
00000840  2c 31 32 36 2c 31 32 36  2c 31 32 36 2c 31 32 36  |,126,126,126,126|
00000850  2c 31 32 36 2c 30 0d 03  02 0e f2 62 61 72 69 63  |,126,0.....baric|
00000860  6f 6e 3a e1 0d 03 0c 04  0d 03 16 0d dd f2 73 77  |on:...........sw|
00000870  69 6e 75 6d 73 0d 03 20  13 63 68 61 72 73 77 69  |inums.. .charswi|
00000880  25 3d 26 43 30 30 30 30  0d 03 2a 05 e1 0d 03 34  |%=&C0000..*....4|
00000890  04 0d 03 3e 0e dd f2 66  69 6c 65 76 61 72 73 0d  |...>...filevars.|
000008a0  03 48 09 f4 20 3b 7b 6e  0d 03 52 3c f4 20 3b 7b  |.H.. ;{n..R<. ;{|
000008b0  6e 20 20 77 69 6e 64 6f  77 20 68 61 6e 64 6c 65  |n  window handle|
000008c0  73 20 69 6e 20 77 25 28  6d 61 78 66 25 2c 6d 61  |s in w%(maxf%,ma|
000008d0  78 77 25 29 20 2d 20 3c  3d 30 20 3d 20 44 65 6c  |xw%) - <=0 = Del|
000008e0  65 74 65 64 0d 03 5c 44  f4 20 3b 7b 6e 20 20 20  |eted..\D. ;{n   |
000008f0  20 28 2c 30 29 3d 43 61  72 64 20 20 20 20 20 28  | (,0)=Card     (|
00000900  2c 31 29 3d 50 61 6e 65  20 20 20 20 20 28 2c 32  |,1)=Pane     (,2|
00000910  29 3d 53 75 62 73 65 74  73 20 20 20 20 28 2c 33  |)=Subsets    (,3|
00000920  29 3d 52 65 70 6f 72 74  0d 03 66 43 f4 20 3b 7b  |)=Report..fC. ;{|
00000930  6e 20 20 20 20 28 2c 34  29 3d 46 69 65 6c 64 73  |n    (,4)=Fields|
00000940  20 20 20 28 2c 35 29 3d  49 6e 64 69 63 65 73 20  |   (,5)=Indices |
00000950  20 28 2c 36 29 3d 4e 6f  74 65 70 61 64 20 20 20  | (,6)=Notepad   |
00000960  20 28 2c 37 29 3d 4d 61  63 72 6f 0d 03 70 3b f4  | (,7)=Macro..p;.|
00000970  20 3b 7b 6e 20 20 74 77  25 28 6d 61 78 66 25 2c  | ;{n  tw%(maxf%,|
00000980  6d 61 78 77 25 29 20 20  20 74 65 6d 70 6c 61 74  |maxw%)   templat|
00000990  65 20 70 6f 69 6e 74 65  72 73 20 66 6f 72 20 77  |e pointers for w|
000009a0  69 6e 64 6f 77 73 0d 03  7a 32 f4 20 3b 7b 6e 20  |indows..z2. ;{n |
000009b0  20 68 25 28 6d 61 78 66  25 29 3d 46 69 6c 65 20  | h%(maxf%)=File |
000009c0  68 61 6e 64 6c 65 73 20  20 20 20 20 30 20 3d 20  |handles     0 = |
000009d0  6e 6f 74 20 6f 70 65 6e  0d 03 84 44 f4 20 3b 7b  |not open...D. ;{|
000009e0  6e 20 20 66 25 28 6d 61  78 66 25 29 3d 46 6f 72  |n  f%(maxf%)=For|
000009f0  6d 61 74 20 68 61 6e 64  6c 65 73 20 20 20 30 20  |mat handles   0 |
00000a00  3d 20 6e 6f 74 20 6f 70  65 6e 2c 20 2d 76 65 20  |= not open, -ve |
00000a10  3d 20 6e 6f 74 20 6c 69  6e 6b 65 64 0d 03 8e 2e  |= not linked....|
00000a20  f4 20 3b 7b 6e 20 20 73  25 28 6d 61 78 66 25 29  |. ;{n  s%(maxf%)|
00000a30  3d 73 74 61 74 75 73 20  28 30 3d 63 61 72 64 20  |=status (0=card |
00000a40  64 69 73 70 6c 61 79 65  64 29 0d 03 98 32 f4 20  |displayed)...2. |
00000a50  3b 7b 6e 20 20 20 20 20  20 20 20 20 20 20 20 20  |;{n             |
00000a60  20 20 20 20 20 20 28 31  3d 6e 6f 20 63 61 72 64  |      (1=no card|
00000a70  73 20 69 6e 20 73 75 62  73 65 74 29 0d 03 a2 3a  |s in subset)...:|
00000a80  f4 20 3b 7b 6e 20 20 20  20 20 20 20 20 20 20 20  |. ;{n           |
00000a90  20 20 20 20 20 20 20 20  28 32 3d 62 61 63 6b 67  |        (2=backg|
00000aa0  72 6f 75 6e 64 20 61 63  74 69 6f 6e 20 67 6f 69  |round action goi|
00000ab0  6e 67 20 6f 6e 29 0d 03  ac 25 f4 20 3b 7b 6e 20  |ng on)...%. ;{n |
00000ac0  20 73 24 28 6d 61 78 66  25 29 3d 66 61 73 74 20  | s$(maxf%)=fast |
00000ad0  66 69 6e 64 20 73 74 72  69 6e 67 0d 03 b6 2e f4  |find string.....|
00000ae0  20 3b 7b 6e 2b 20 64 24  28 6d 61 78 66 25 2c 32  | ;{n+ d$(maxf%,2|
00000af0  33 29 3d 32 33 20 73 75  62 73 65 74 20 64 65 73  |3)=23 subset des|
00000b00  63 72 69 70 74 69 6f 6e  73 0d 03 c0 27 f4 20 3b  |criptions...'. ;|
00000b10  7b 6e 2b 20 66 24 28 6d  61 78 66 25 29 3d 66 69  |{n+ f$(maxf%)=fi|
00000b20  6c 74 65 72 20 65 78 70  72 65 73 73 69 6f 6e 73  |lter expressions|
00000b30  0d 03 ca 3f f4 20 3b 7b  6e 2b 20 66 78 24 28 6d  |...?. ;{n+ fx$(m|
00000b40  61 78 66 25 29 3d 66 69  6c 74 65 72 73 20 61 66  |axf%)=filters af|
00000b50  74 65 72 20 65 78 70 61  6e 73 69 6f 6e 20 66 6f  |ter expansion fo|
00000b60  72 20 61 62 62 72 65 76  69 61 74 69 6f 6e 73 0d  |r abbreviations.|
00000b70  03 d4 27 f4 20 3b 7b 6e  2b 20 65 24 28 6d 61 78  |..'. ;{n+ e$(max|
00000b80  66 25 29 3d 73 65 61 72  63 68 20 65 78 70 72 65  |f%)=search expre|
00000b90  73 73 69 6f 6e 73 0d 03  de 38 f4 20 3b 7b 6e 2b  |ssions...8. ;{n+|
00000ba0  20 77 24 28 6d 61 78 66  25 2c 31 34 29 3d 77 6f  | w$(maxf%,14)=wo|
00000bb0  72 64 70 72 6f 63 65 73  73 6f 72 20 6f 75 74 70  |rdprocessor outp|
00000bc0  75 74 20 65 78 70 72 65  73 73 69 6f 6e 73 0d 03  |ut expressions..|
00000bd0  e8 15 f4 20 3b 7b 6e 2b  20 77 6f 25 28 6d 61 78  |... ;{n+ wo%(max|
00000be0  66 25 29 0d 03 f2 38 f4  20 3b 7b 6e 20 20 65 78  |f%)...8. ;{n  ex|
00000bf0  24 28 6d 61 78 66 25 29  3d 73 65 61 72 63 68 20  |$(maxf%)=search |
00000c00  65 78 70 72 65 73 73 69  6f 6e 73 20 61 66 74 65  |expressions afte|
00000c10  72 20 65 78 70 61 6e 73  69 6f 6e 0d 03 fc 20 f4  |r expansion... .|
00000c20  20 3b 7b 6e 20 20 66 6e  24 28 6d 61 78 66 25 29  | ;{n  fn$(maxf%)|
00000c30  3d 66 69 6c 65 20 6e 61  6d 65 73 0d 04 06 20 f4  |=file names... .|
00000c40  20 3b 7b 6e 2b 20 72 25  28 6d 61 78 66 25 29 3d  | ;{n+ r%(maxf%)=|
00000c50  72 65 70 6f 72 74 20 6d  6f 64 65 0d 04 10 49 f4  |report mode...I.|
00000c60  20 3b 7b 6e 20 20 61 25  28 6d 61 78 66 25 29 3d  | ;{n  a%(maxf%)=|
00000c70  62 61 63 6b 67 72 6f 75  6e 64 20 61 63 74 69 6f  |background actio|
00000c80  6e 20 69 6e 20 74 68 69  73 20 66 69 6c 65 2c 20  |n in this file, |
00000c90  2d 76 65 3d 6c 69 6e 6b  65 64 20 74 6f 20 61 63  |-ve=linked to ac|
00000ca0  74 69 6f 6e 0d 04 1a 38  f4 20 3b 7b 6e 20 20 65  |tion...8. ;{n  e|
00000cb0  25 28 6d 61 78 66 25 2c  32 29 3d 62 61 63 6b 67  |%(maxf%,2)=backg|
00000cc0  72 6f 75 6e 64 20 61 63  74 69 76 69 74 79 20 73  |round activity s|
00000cd0  74 61 74 75 73 20 73 74  75 66 66 3a 0d 04 24 39  |tatus stuff:..$9|
00000ce0  f4 20 3b 7b 6e 20 20 66  63 25 28 6d 61 78 66 25  |. ;{n  fc%(maxf%|
00000cf0  29 3d 66 61 73 74 20 66  69 6e 64 2c 20 6e 75 6d  |)=fast find, num|
00000d00  62 65 72 20 66 6f 75 6e  64 20 6c 61 73 74 20 73  |ber found last s|
00000d10  65 61 72 63 68 0d 04 2e  24 f4 20 3b 7b 6e 20 20  |earch...$. ;{n  |
00000d20  66 6c 25 28 6d 61 78 66  25 29 3d 62 6f 6f 6c 65  |fl%(maxf%)=boole|
00000d30  61 6e 20 66 6c 61 67 73  3a 0d 04 38 32 f4 20 3b  |an flags:..82. ;|
00000d40  7b 6e 2b 20 74 25 28 6d  61 78 66 25 2c 33 29 3d  |{n+ t%(maxf%,3)=|
00000d50  67 6c 6f 62 61 6c 20 76  61 72 69 61 62 6c 65 73  |global variables|
00000d60  20 66 6f 72 20 6d 61 63  72 6f 73 0d 04 42 32 f4  | for macros..B2.|
00000d70  20 3b 7b 6e 2b 20 6c 24  28 6d 61 78 66 25 29 3d  | ;{n+ l$(maxf%)=|
00000d80  6c 69 6e 6b 20 65 78 70  72 65 73 73 69 6f 6e 20  |link expression |
00000d90  66 6f 72 20 74 68 69 73  20 66 69 6c 65 0d 04 4c  |for this file..L|
00000da0  44 f4 20 3b 7b 6e 2b 20  6c 78 24 28 6d 61 78 66  |D. ;{n+ lx$(maxf|
00000db0  25 29 3d 65 78 70 61 6e  64 65 64 20 6c 69 6e 6b  |%)=expanded link|
00000dc0  20 65 78 70 72 65 73 73  69 6f 6e 2e 20 41 6c 73  | expression. Als|
00000dd0  6f 2c 20 6c 69 6e 6b 20  66 69 6c 65 20 6e 61 6d  |o, link file nam|
00000de0  65 0d 04 56 1e f4 20 3b  7b 6e 2b 20 6c 6b 24 28  |e..V.. ;{n+ lk$(|
00000df0  6d 61 78 66 25 29 3d 6c  69 6e 6b 20 6b 65 79 0d  |maxf%)=link key.|
00000e00  04 60 22 f4 20 3b 7b 6e  2b 20 73 74 25 28 6d 61  |.`". ;{n+ st%(ma|
00000e10  78 66 25 2c 32 29 3d 66  69 6c 65 20 73 74 61 74  |xf%,2)=file stat|
00000e20  73 0d 04 6a 09 f4 20 3b  7b 6e 0d 04 74 2e f4 20  |s..j.. ;{n..t.. |
00000e30  3b 7b 6e 20 20 20 20 6d  61 78 66 25 20 20 20 3d  |;{n    maxf%   =|
00000e40  20 6d 61 78 20 61 72 72  61 79 20 69 6e 64 65 78  | max array index|
00000e50  20 28 66 69 6c 65 73 29  0d 04 7e 30 f4 20 3b 7b  | (files)..~0. ;{|
00000e60  6e 20 20 20 20 6d 61 78  77 25 20 20 20 3d 20 6d  |n    maxw%   = m|
00000e70  61 78 20 61 72 72 61 79  20 69 6e 64 65 78 20 28  |ax array index (|
00000e80  77 69 6e 64 6f 77 73 29  0d 04 88 09 f4 20 3b 7b  |windows)..... ;{|
00000e90  6e 0d 04 92 27 66 74 5f  66 6f 72 6d 25 3d 26 44  |n...'ft_form%=&D|
00000ea0  45 37 3a 66 74 5f 64 61  74 61 25 3d 26 44 45 38  |E7:ft_data%=&DE8|
00000eb0  3a 6d 61 78 77 25 3d 37  0d 04 9c 48 de 20 77 25  |:maxw%=7...H. w%|
00000ec0  28 6d 61 78 66 25 2c 6d  61 78 77 25 29 2c 68 25  |(maxf%,maxw%),h%|
00000ed0  28 6d 61 78 66 25 29 2c  66 25 28 6d 61 78 66 25  |(maxf%),f%(maxf%|
00000ee0  29 2c 73 25 28 6d 61 78  66 25 29 2c 73 24 28 6d  |),s%(maxf%),s$(m|
00000ef0  61 78 66 25 29 2c 66 63  25 28 6d 61 78 66 25 29  |axf%),fc%(maxf%)|
00000f00  0d 04 a6 48 de 20 66 6c  25 28 6d 61 78 66 25 29  |...H. fl%(maxf%)|
00000f10  2c 61 25 28 6d 61 78 66  25 29 2c 64 24 28 6d 61  |,a%(maxf%),d$(ma|
00000f20  78 66 25 2c 32 33 29 2c  66 24 28 6d 61 78 66 25  |xf%,23),f$(maxf%|
00000f30  29 2c 66 78 24 28 6d 61  78 66 25 29 2c 74 25 28  |),fx$(maxf%),t%(|
00000f40  6d 61 78 66 25 2c 33 29  0d 04 b0 41 de 20 74 77  |maxf%,3)...A. tw|
00000f50  25 28 6d 61 78 66 25 2c  6d 61 78 77 25 29 2c 65  |%(maxf%,maxw%),e|
00000f60  24 28 6d 61 78 66 25 29  2c 65 78 24 28 6d 61 78  |$(maxf%),ex$(max|
00000f70  66 25 29 2c 65 25 28 6d  61 78 66 25 2c 32 29 2c  |f%),e%(maxf%,2),|
00000f80  72 25 28 6d 61 78 66 25  29 0d 04 ba 4a de 20 66  |r%(maxf%)...J. f|
00000f90  6e 24 28 6d 61 78 66 25  29 2c 6c 24 28 6d 61 78  |n$(maxf%),l$(max|
00000fa0  66 25 29 2c 6c 78 24 28  6d 61 78 66 25 29 2c 6c  |f%),lx$(maxf%),l|
00000fb0  6b 24 28 6d 61 78 66 25  29 2c 77 24 28 6d 61 78  |k$(maxf%),w$(max|
00000fc0  66 25 2c 31 34 29 2c 73  74 25 28 6d 61 78 66 25  |f%,14),st%(maxf%|
00000fd0  2c 32 29 0d 04 c4 48 de  20 77 6f 25 28 6d 61 78  |,2)...H. wo%(max|
00000fe0  66 25 29 2c 6f 24 28 6d  61 78 66 25 29 2c 6f 25  |f%),o$(maxf%),o%|
00000ff0  28 6d 61 78 66 25 2c 36  29 2c 72 24 28 6d 61 78  |(maxf%,6),r$(max|
00001000  66 25 29 2c 73 72 24 28  6d 61 78 66 25 29 2c 6c  |f%),sr$(maxf%),l|
00001010  6c 25 28 6d 61 78 66 25  2c 35 29 0d 04 ce 3f de  |l%(maxf%,5)...?.|
00001020  20 6c 66 25 28 6d 61 78  66 25 2c 31 35 29 2c 70  | lf%(maxf%,15),p|
00001030  25 28 6d 61 78 66 25 2c  34 29 2c 70 24 28 6d 61  |%(maxf%,4),p$(ma|
00001040  78 66 25 2c 37 29 2c 63  24 28 6d 61 78 66 25 2c  |xf%,7),c$(maxf%,|
00001050  6d 61 78 63 6f 6c 25 2c  31 29 0d 04 d8 17 de 20  |maxcol%,1)..... |
00001060  63 25 28 6d 61 78 66 25  2c 6d 61 78 63 6f 6c 25  |c%(maxf%,maxcol%|
00001070  29 0d 04 e2 3b 66 5f 66  69 6c 74 25 3d 31 3c 3c  |)...;f_filt%=1<<|
00001080  30 30 3a 66 5f 70 61 6e  65 25 3d 31 3c 3c 30 31  |00:f_pane%=1<<01|
00001090  3a 66 5f 6d 61 63 62 25  3d 31 3c 3c 30 32 3a 66  |:f_macb%=1<<02:f|
000010a0  5f 6d 61 63 65 25 3d 31  3c 3c 30 33 0d 04 ec 3b  |_mace%=1<<03...;|
000010b0  66 5f 66 73 70 63 25 3d  31 3c 3c 30 34 3a 66 5f  |f_fspc%=1<<04:f_|
000010c0  66 75 70 70 25 3d 31 3c  3c 30 35 3a 66 5f 73 73  |fupp%=1<<05:f_ss|
000010d0  70 63 25 3d 31 3c 3c 30  36 3a 66 5f 73 75 70 70  |pc%=1<<06:f_supp|
000010e0  25 3d 31 3c 3c 30 37 0d  04 f6 3b 66 5f 73 61 64  |%=1<<07...;f_sad|
000010f0  64 25 3d 31 3c 3c 30 38  3a 66 5f 72 73 70 63 25  |d%=1<<08:f_rspc%|
00001100  3d 31 3c 3c 30 39 3a 66  5f 72 75 70 70 25 3d 31  |=1<<09:f_rupp%=1|
00001110  3c 3c 31 30 3a 66 5f 73  72 75 70 25 3d 31 3c 3c  |<<10:f_srup%=1<<|
00001120  31 31 0d 05 00 3b 66 5f  73 74 6f 74 25 3d 31 3c  |11...;f_stot%=1<|
00001130  3c 31 32 3a 66 5f 73 74  69 74 25 3d 31 3c 3c 31  |<12:f_stit%=1<<1|
00001140  33 3a 66 5f 73 64 61 73  25 3d 31 3c 3c 31 34 3a  |3:f_sdas%=1<<14:|
00001150  66 5f 77 73 70 63 25 3d  31 3c 3c 31 35 0d 05 0a  |f_wspc%=1<<15...|
00001160  3b 66 5f 77 75 70 70 25  3d 31 3c 3c 31 36 3a 66  |;f_wupp%=1<<16:f|
00001170  5f 77 62 6e 6b 25 3d 31  3c 3c 31 37 3a 66 5f 37  |_wbnk%=1<<17:f_7|
00001180  62 69 74 25 3d 31 3c 3c  31 38 3a 66 5f 72 65 6a  |bit%=1<<18:f_rej|
00001190  62 25 3d 31 3c 3c 31 39  0d 05 14 3b 66 5f 72 65  |b%=1<<19...;f_re|
000011a0  6a 61 25 3d 31 3c 3c 32  30 3a 66 5f 72 64 73 70  |ja%=1<<20:f_rdsp|
000011b0  25 3d 31 3c 3c 32 31 3a  66 5f 72 74 70 6e 25 3d  |%=1<<21:f_rtpn%=|
000011c0  31 3c 3c 32 32 3a 66 5f  72 62 70 6e 25 3d 31 3c  |1<<22:f_rbpn%=1<|
000011d0  3c 32 33 0d 05 1e 3b 66  5f 72 70 64 74 25 3d 31  |<23...;f_rpdt%=1|
000011e0  3c 3c 32 34 3a 66 5f 72  74 70 67 25 3d 31 3c 3c  |<<24:f_rtpg%=1<<|
000011f0  32 35 3a 66 5f 72 74 73  75 25 3d 31 3c 3c 32 36  |25:f_rtsu%=1<<26|
00001200  3a 66 5f 72 6c 64 75 25  3d 31 3c 3c 32 37 0d 05  |:f_rldu%=1<<27..|
00001210  28 11 66 5f 72 6c 73 75  25 3d 31 3c 3c 32 38 0d  |(.f_rlsu%=1<<28.|
00001220  05 32 5b 66 5f 72 65 70  73 25 3d 66 5f 72 6c 64  |.2[f_reps%=f_rld|
00001230  75 25 84 66 5f 72 6c 73  75 25 84 66 5f 72 65 6a  |u%.f_rlsu%.f_rej|
00001240  62 25 84 66 5f 72 65 6a  61 25 84 66 5f 72 64 73  |b%.f_reja%.f_rds|
00001250  70 25 84 66 5f 72 74 70  6e 25 84 66 5f 72 62 70  |p%.f_rtpn%.f_rbp|
00001260  6e 25 84 66 5f 72 70 64  74 25 84 66 5f 72 74 70  |n%.f_rpdt%.f_rtp|
00001270  67 25 84 66 5f 72 74 73  75 25 0d 05 3c 21 66 5f  |g%.f_rtsu%..<!f_|
00001280  73 61 76 65 25 3d 2d 31  80 ac 28 66 5f 70 61 6e  |save%=-1..(f_pan|
00001290  65 25 84 66 5f 73 61 64  64 25 29 0d 05 46 4b 66  |e%.f_sadd%)..FKf|
000012a0  5f 64 66 6c 74 25 3d 66  5f 66 73 70 63 25 84 66  |_dflt%=f_fspc%.f|
000012b0  5f 66 75 70 70 25 84 66  5f 73 73 70 63 25 84 66  |_fupp%.f_sspc%.f|
000012c0  5f 73 75 70 70 25 84 66  5f 73 74 6f 74 25 84 66  |_supp%.f_stot%.f|
000012d0  5f 73 74 69 74 25 84 66  5f 73 64 61 73 25 84 66  |_stit%.f_sdas%.f|
000012e0  5f 77 73 70 63 25 0d 05  50 05 e1 0d 05 5a 04 0d  |_wspc%..P....Z..|
000012f0  05 64 0c dd f2 73 64 76  61 72 73 0d 05 6e 1c c8  |.d...sdvars..n..|
00001300  99 73 77 69 25 2c 73 64  36 34 5f 25 2c 33 b8 6c  |.swi%,sd64_%,3.l|
00001310  69 6e 65 67 61 70 25 0d  05 78 1f 6d 61 72 67 69  |inegap%..x.margi|
00001320  6e 25 3d 38 3a e7 a4 76  5f 28 31 29 3d 31 3a f2  |n%=8:..v_(1)=1:.|
00001330  65 72 72 28 33 29 0d 05  82 31 e7 73 6f 75 6e 64  |err(3)...1.sound|
00001340  25 3a c8 99 73 77 69 25  2c 6f 70 74 5f 25 2c 31  |%:..swi%,opt_%,1|
00001350  30 b8 47 25 3a 8b c8 99  73 77 69 25 2c 6f 70 74  |0.G%:...swi%,opt|
00001360  5f 25 2c 39 b8 47 25 0d  05 8c 38 64 61 74 65 25  |_%,9.G%...8date%|
00001370  3d a4 6e 79 65 61 72 28  a4 6e 6f 77 29 2a 31 30  |=.nyear(.now)*10|
00001380  30 30 30 2b a4 6e 6d 6f  6e 28 a4 6e 6f 77 29 2a  |000+.nmon(.now)*|
00001390  31 30 30 2b a4 6e 64 61  79 28 a4 6e 6f 77 29 0d  |100+.nday(.now).|
000013a0  05 96 05 e1 0d 05 a0 04  0d 05 aa 2d dd f2 63 68  |...........-..ch|
000013b0  65 63 6b 70 72 6f 74 3a  ea 54 25 3a c8 99 22 46  |eckprot:.T%:.."F|
000013c0  6c 65 78 69 46 69 6c 65  5f 41 64 64 72 65 73 73  |lexiFile_Address|
000013d0  22 b8 73 64 25 0d 05 b4  06 ea 85 0d 05 be 14 ee  |".sd%...........|
000013e0  85 ea 3a 70 72 6f 63 65  73 73 25 3d 32 3a e1 0d  |..:process%=2:..|
000013f0  05 c8 1e c8 99 73 77 69  25 2c 72 65 73 65 74 5f  |.....swi%,reset_|
00001400  25 2c 74 61 73 6b 68 61  6e 64 6c 65 25 0d 05 d2  |%,taskhandle%...|
00001410  57 e7 70 72 6f 63 65 73  73 25 3d 33 f2 73 74 6f  |W.process%=3.sto|
00001420  70 28 31 2c 22 4f 4b 2e  20 50 6c 65 61 73 65 20  |p(1,"OK. Please |
00001430  72 65 6d 6f 76 65 20 6f  72 69 67 69 6e 61 6c 20  |remove original |
00001440  26 22 2c 22 72 65 70 6c  61 63 65 20 62 61 63 6b  |&","replace back|
00001450  75 70 20 69 66 20 6e 65  63 65 73 73 61 72 79 22  |up if necessary"|
00001460  2c 2d 31 29 0d 05 dc 3c  54 25 3d a4 6e 6f 77 3a  |,-1)...<T%=.now:|
00001470  64 61 74 65 24 3d a4 73  74 72 64 61 74 65 28 a4  |date$=.strdate(.|
00001480  6e 64 61 79 28 54 25 29  2c a4 6e 6d 6f 6e 28 54  |nday(T%),.nmon(T|
00001490  25 29 2c a4 6e 79 65 61  72 28 54 25 29 2c 34 29  |%),.nyear(T%),4)|
000014a0  0d 05 e6 0b f2 73 64 76  61 72 73 0d 05 f0 10 70  |.....sdvars....p|
000014b0  72 6f 63 65 73 73 25 3d  34 3a e1 0d 05 fa 04 0d  |rocess%=4:......|
000014c0  06 04 0d dd f2 76 65 72  73 69 6f 6e 0d 06 0e 2f  |.....version.../|
000014d0  ea 54 24 3a 54 24 3d 76  65 72 73 69 6f 6e 24 3a  |.T$:T$=version$:|
000014e0  e7 ac a4 70 72 6f 64 3a  54 24 2b 3d 22 20 2a 55  |...prod:T$+=" *U|
000014f0  4e 46 49 4e 49 53 48 45  44 2a 22 0d 06 18 38 f2  |NFINISHED*"...8.|
00001500  73 65 74 69 28 77 5f 70  69 6e 66 6f 25 2c 34 2c  |seti(w_pinfo%,4,|
00001510  22 76 22 2b 54 24 29 3a  24 a4 74 69 61 28 74 77  |"v"+T$):$.tia(tw|
00001520  5f 73 74 61 74 75 73 25  2c 31 31 29 3d 22 76 22  |_status%,11)="v"|
00001530  2b 54 24 0d 06 22 05 e1  0d 06 2c 04 0d 06 36 2c  |+T$.."....,...6,|
00001540  dd a4 70 72 6f 64 3d c1  76 65 72 73 69 6f 6e 24  |..prod=.version$|
00001550  2c a7 76 65 72 73 69 6f  6e 24 2c 22 2e 22 29 2b  |,.version$,".")+|
00001560  31 2c 31 29 3d 22 30 22  0d 06 40 23 dd f2 64 65  |1,1)="0"..@#..de|
00001570  62 75 67 3a e7 a6 2d 31  80 ac a4 70 72 6f 64 3a  |bug:..-1...prod:|
00001580  f2 71 75 69 74 28 b9 29  3a 8b e1 0d 06 4a 1b dd  |.quit(.):....J..|
00001590  a4 64 65 62 75 67 3d ac  a4 70 72 6f 64 20 80 a6  |.debug=..prod ..|
000015a0  2d 31 80 a6 2d 32 0d 06  54 04 0d 06 5e 3e dd a4  |-1..-2..T...^>..|
000015b0  69 6e 69 74 77 69 6d 70  3a 66 69 72 73 74 25 3d  |initwimp:first%=|
000015c0  a3 3a 74 61 73 6b 68 61  6e 64 6c 65 25 3d a4 74  |.:taskhandle%=.t|
000015d0  61 73 6b 3a e7 74 61 73  6b 68 61 6e 64 6c 65 25  |ask:.taskhandle%|
000015e0  3c 3e 30 3a 3d 32 30 30  0d 06 68 47 24 71 25 3d  |<>0:=200..hG$q%=|
000015f0  22 54 41 53 4b 22 3a c8  99 22 57 69 6d 70 5f 49  |"TASK":.."Wimp_I|
00001600  6e 69 74 69 61 6c 69 73  65 22 2c 32 30 30 2c 21  |nitialise",200,!|
00001610  71 25 2c 22 4d 75 6c 74  69 53 74 6f 72 65 22 b8  |q%,"MultiStore".|
00001620  21 71 25 2c 74 61 73 6b  68 61 6e 64 6c 65 25 0d  |!q%,taskhandle%.|
00001630  06 72 11 66 69 72 73 74  25 3d b9 3a 3d 21 71 25  |.r.first%=.:=!q%|
00001640  0d 06 7c 04 0d 06 86 0a  dd f2 74 69 64 79 0d 06  |..|.......tidy..|
00001650  90 0e f2 6e 6f 72 6d 70  6f 69 6e 74 0d 06 9a 16  |...normpoint....|
00001660  ef 34 2c 32 36 3a f1 8a  30 2c 32 29 3b 3a 2a 66  |.4,26:..0,2);:*f|
00001670  78 34 0d 06 a4 0c 2a 66  78 32 32 35 2c 31 0d 06  |x4....*fx225,1..|
00001680  ae 0a 2a 66 78 32 32 39  0d 06 b8 1a 5a 25 3d 30  |..*fx229....Z%=0|
00001690  3a c8 99 73 77 69 25 2c  6b 69 6c 6c 74 61 73 6b  |:..swi%,killtask|
000016a0  5f 25 0d 06 c2 18 ee 85  3a f6 3a f1 22 20 22 3b  |_%......:.:." ";|
000016b0  9e 3a f2 71 75 69 74 28  b9 29 0d 06 cc 2b f1 3b  |.:.quit(.)...+.;|
000016c0  6d 65 6e 75 65 6e 64 25  2d 6d 65 6e 75 66 72 65  |menuend%-menufre|
000016d0  65 25 22 20 62 79 74 65  73 20 6d 65 6e 75 20 73  |e%" bytes menu s|
000016e0  70 61 63 65 22 0d 06 d6  36 f1 3b 65 6e 64 62 75  |pace"...6.;endbu|
000016f0  66 25 2d 63 75 72 62 75  66 25 22 20 62 79 74 65  |f%-curbuf%" byte|
00001700  73 20 69 6e 64 69 72 65  63 74 69 6f 6e 20 62 75  |s indirection bu|
00001710  66 66 65 72 20 73 70 61  63 65 22 0d 06 e0 27 f1  |ffer space"...'.|
00001720  3b 74 62 65 25 2d 74 62  73 25 22 20 62 79 74 65  |;tbe%-tbs%" byte|
00001730  73 20 74 65 6d 70 6c 61  74 65 20 62 75 66 66 65  |s template buffe|
00001740  72 22 0d 06 ea 05 e1 0d  06 f4 04 0d 06 fe 18 dd  |r"..............|
00001750  f2 62 61 72 69 63 6f 6e  3a e7 ac 66 69 72 73 74  |.baricon:..first|
00001760  25 3a e1 0d 07 08 2b 21  71 25 3d 2d 31 3a 71 25  |%:....+!q%=-1:q%|
00001770  21 34 3d 30 3a 71 25 21  38 3d 30 3a 71 25 21 31  |!4=0:q%!8=0:q%!1|
00001780  32 3d 31 30 32 3a 71 25  21 31 36 3d 36 38 0d 07  |2=102:q%!16=68..|
00001790  12 30 71 25 21 32 30 3d  25 31 31 30 30 30 30 30  |.0q%!20=%1100000|
000017a0  30 30 30 30 30 31 30 3a  24 28 71 25 2b 32 34 29  |0000010:$(q%+24)|
000017b0  3d 22 21 22 2b c0 61 70  70 6c 24 2c 39 29 0d 07  |="!"+.appl$,9)..|
000017c0  1c 24 c8 99 22 57 69 6d  70 5f 43 72 65 61 74 65  |.$.."Wimp_Create|
000017d0  49 63 6f 6e 22 2c 2c 71  25 b8 62 61 72 69 63 6f  |Icon",,q%.barico|
000017e0  6e 25 0d 07 26 05 e1 0d  07 30 04 0d 07 3a 11 dd  |n%..&....0...:..|
000017f0  f2 73 74 72 69 70 28 f8  20 54 24 29 0d 07 44 1a  |.strip(. T$)..D.|
00001800  24 73 64 25 3d 54 24 3a  c8 99 73 77 69 25 2c 73  |$sd%=T$:..swi%,s|
00001810  74 72 69 70 5f 25 0d 07  4e 0b 54 24 3d 24 73 64  |trip_%..N.T$=$sd|
00001820  25 0d 07 58 05 e1 0d 07  62 04 0d 07 6c 11 dd f2  |%..X....b...l...|
00001830  75 70 70 65 72 28 f8 20  54 24 29 0d 07 76 1a 24  |upper(. T$)..v.$|
00001840  73 64 25 3d 54 24 3a c8  99 73 77 69 25 2c 75 70  |sd%=T$:..swi%,up|
00001850  70 65 72 5f 25 0d 07 80  0d 54 24 3d 24 73 64 25  |per_%....T$=$sd%|
00001860  3a e1 0d 07 8a 04 0d 07  94 21 dd f2 65 72 72 6f  |:........!..erro|
00001870  72 28 65 72 72 25 2c 65  72 72 24 2c 65 72 6c 25  |r(err%,err$,erl%|
00001880  2c 71 75 69 74 25 29 0d  07 9e 2b e7 a4 64 65 62  |,quit%)...+..deb|
00001890  75 67 3a ef 34 2c 33 30  3a f1 65 72 72 24 22 20  |ug:.4,30:.err$" |
000018a0  40 20 22 3b 65 72 6c 25  3b 3a f2 71 75 69 74 28  |@ ";erl%;:.quit(|
000018b0  b9 29 0d 07 a8 2e f2 6e  6f 72 6d 70 6f 69 6e 74  |.).....normpoint|
000018c0  3a 64 72 61 67 72 65 61  73 6f 6e 25 3d 2d 31 3a  |:dragreason%=-1:|
000018d0  40 25 3d 26 39 30 41 3a  2a 66 78 32 32 39 2c 31  |@%=&90A:*fx229,1|
000018e0  0d 07 b2 10 ea 69 25 2c  65 25 2c 74 24 2c 54 24  |.....i%,e%,t$,T$|
000018f0  0d 07 bc 1d e7 ac a4 70  72 6f 64 3a 65 72 72 24  |.......prod:err$|
00001900  2b 3d 22 20 28 22 2b c3  9e 2b 22 29 22 0d 07 c6  |+=" ("+..+")"...|
00001910  06 ea 85 0d 07 d0 18 ee  85 ea 3a f2 65 72 72 6f  |..........:.erro|
00001920  72 28 9f 2c f6 24 2c 9e  2c b9 29 0d 07 da 39 21  |r(.,.$,.,.)...9!|
00001930  71 25 3d 65 72 72 25 3a  24 28 71 25 2b 34 29 3d  |q%=err%:$(q%+4)=|
00001940  65 72 72 24 3a c8 99 22  57 69 6d 70 5f 52 65 70  |err$:.."Wimp_Rep|
00001950  6f 72 74 45 72 72 6f 72  22 2c 71 25 2c 31 2c 61  |ortError",q%,1,a|
00001960  70 70 6c 24 0d 07 e4 13  e7 71 75 69 74 25 3a f2  |ppl$.....quit%:.|
00001970  71 75 69 74 28 a3 29 0d  07 ee 05 e1 0d 07 f8 04  |quit(.).........|
00001980  0d 08 02 2b dd f2 72 65  70 6f 72 74 3a e7 a4 64  |...+..report:..d|
00001990  65 62 75 67 3a ef 34 3a  f6 3a f1 22 20 40 20 22  |ebug:.4:.:." @ "|
000019a0  3b 9e 3a f2 71 75 69 74  28 b9 29 0d 08 0c 05 e1  |;.:.quit(.).....|
000019b0  0d 08 16 04 0d 08 20 09  dd a4 64 69 72 0d 08 2a  |...... ...dir..*|
000019c0  20 ea 54 24 3a 54 24 3d  a4 41 72 66 56 61 72 28  | .T$:T$=.ArfVar(|
000019d0  61 70 70 6c 24 2b 22 24  44 69 72 22 29 0d 08 34  |appl$+"$Dir")..4|
000019e0  21 e7 54 24 3d 22 22 3a  54 24 3d 22 26 2e 21 22  |!.T$="":T$="&.!"|
000019f0  2b c0 61 70 70 6c 24 2c  39 29 2b 22 2e 22 0d 08  |+.appl$,9)+"."..|
00001a00  3e 16 e7 c2 54 24 29 3c  3e 22 2e 22 3a 54 24 2b  |>...T$)<>".":T$+|
00001a10  3d 22 2e 22 0d 08 48 07  3d 54 24 0d 08 52 04 0d  |="."..H.=T$..R..|
00001a20  08 5c 17 dd a4 41 72 66  56 61 72 28 41 24 29 3a  |.\...ArfVar(A$):|
00001a30  ea 4c 25 2c 56 25 0d 08  66 3d c8 99 22 58 4f 53  |.L%,V%..f=.."XOS|
00001a40  5f 52 65 61 64 56 61 72  56 61 6c 22 2c 41 24 2c  |_ReadVarVal",A$,|
00001a50  77 6f 72 6b 62 75 66 25  2c 32 35 34 2c 30 2c 33  |workbuf%,254,0,3|
00001a60  b8 2c 2c 4c 25 3b 56 25  3a e7 56 25 80 31 3a 4c  |.,,L%;V%:.V%.1:L|
00001a70  25 3d 30 0d 08 70 1d 77  6f 72 6b 62 75 66 25 3f  |%=0..p.workbuf%?|
00001a80  4c 25 3d 31 33 3a 3d 24  77 6f 72 6b 62 75 66 25  |L%=13:=$workbuf%|
00001a90  0d 08 7a 04 0d 08 84 0c  dd f2 75 6d 65 73 73 31  |..z.......umess1|
00001aa0  0d 08 8e 2d 72 65 66 25  3d 71 25 21 38 3a 74 61  |...-ref%=q%!8:ta|
00001ab0  73 6b 25 3d 71 25 21 34  3a e7 74 61 73 6b 25 3d  |sk%=q%!4:.task%=|
00001ac0  74 61 73 6b 68 61 6e 64  6c 65 25 3a e1 0d 08 98  |taskhandle%:....|
00001ad0  0f 6d 65 73 73 25 3d 71  25 21 31 36 0d 08 a2 0c  |.mess%=q%!16....|
00001ae0  c8 8e 6d 65 73 73 25 ca  0d 08 ac 16 c9 30 3a f2  |..mess%......0:.|
00001af0  43 4c 4f 53 45 3a f2 71  75 69 74 28 a3 29 0d 08  |CLOSE:.quit(.)..|
00001b00  b6 11 c9 31 3a f2 64 61  74 61 73 61 76 65 64 0d  |...1:.datasaved.|
00001b10  08 c0 10 c9 32 3a f2 73  61 76 65 64 61 74 61 0d  |....2:.savedata.|
00001b20  08 ca 10 c9 33 3a f2 64  61 74 61 6c 6f 61 64 0d  |....3:.dataload.|
00001b30  08 d4 14 c9 34 3a 61 63  6b 70 65 6e 64 69 6e 67  |....4:ackpending|
00001b40  25 3d a3 0d 08 de 10 c9  35 3a f2 64 61 74 61 6f  |%=......5:.datao|
00001b50  70 65 6e 0d 08 e8 07 c9  36 3a 0d 08 f2 07 c9 37  |pen.....6:.....7|
00001b60  3a 0d 08 fc 0f c9 38 3a  f2 70 72 65 71 75 69 74  |:.....8:.prequit|
00001b70  0d 09 06 07 c9 39 3a 0d  09 10 0a c9 26 35 30 32  |.....9:.....&502|
00001b80  3a 0d 09 1a 2d c9 26 34  30 30 43 30 3a f2 73 75  |:...-.&400C0:.su|
00001b90  62 6d 65 6e 75 28 71 25  21 32 30 2c 71 25 21 32  |bmenu(q%!20,q%!2|
00001ba0  34 2c 71 25 21 32 38 2c  71 25 2b 33 32 29 0d 09  |4,q%!28,q%+32)..|
00001bb0  24 13 c9 26 38 30 33 30  30 3a f2 61 63 6b 72 65  |$..&80300:.ackre|
00001bc0  63 0d 09 2e 05 cb 0d 09  38 05 e1 0d 09 42 04 0d  |c.......8....B..|
00001bd0  09 4c 0e dd f2 64 61 74  61 6f 70 65 6e 0d 09 56  |.L...dataopen..V|
00001be0  28 e7 71 25 21 34 30 3d  66 74 5f 66 6f 72 6d 25  |(.q%!40=ft_form%|
00001bf0  3a f2 64 61 74 61 6c 6f  61 64 61 63 6b 3a f2 65  |:.dataloadack:.e|
00001c00  72 72 28 31 29 0d 09 60  16 e7 71 25 21 34 30 3c  |rr(1)..`..q%!40<|
00001c10  3e 66 74 5f 64 61 74 61  25 3a e1 0d 09 6a 22 f2  |>ft_data%:...j".|
00001c20  64 61 74 61 6c 6f 61 64  61 63 6b 3a 6d 68 25 3d  |dataloadack:mh%=|
00001c30  2d 31 3a f2 63 68 65 63  6b 6f 70 65 6e 0d 09 74  |-1:.checkopen..t|
00001c40  42 e7 70 72 6f 63 65 73  73 25 3d 30 3a e7 ac a4  |B.process%=0:...|
00001c50  64 69 61 6c 6f 67 75 65  3a f2 6d 73 74 6f 72 65  |dialogue:.mstore|
00001c60  28 22 32 3a 22 2b a4 7a  74 73 28 71 25 2b 34 34  |("2:"+.zts(q%+44|
00001c70  29 2c 22 4d 75 6c 74 69  53 74 6f 72 65 22 29 0d  |),"MultiStore").|
00001c80  09 7e 05 e1 0d 09 88 04  0d 09 92 22 dd f2 63 68  |.~........."..ch|
00001c90  65 63 6b 6f 70 65 6e 3a  e7 a4 76 5f 28 31 29 3e  |eckopen:..v_(1)>|
00001ca0  30 f2 65 72 72 28 31 30  34 29 0d 09 9c 05 e1 0d  |0.err(104)......|
00001cb0  09 a6 04 0d 09 b0 0e dd  f2 64 61 74 61 6c 6f 61  |.........dataloa|
00001cc0  64 0d 09 ba 17 e7 63 6f  70 79 69 6e 67 25 3e 30  |d.....copying%>0|
00001cd0  f2 62 75 7a 7a 31 3a e1  0d 09 c4 11 64 65 6c 25  |.buzz1:.....del%|
00001ce0  3d 71 25 21 31 32 3c 3e  30 0d 09 ce 1b f2 72 65  |=q%!12<>0.....re|
00001cf0  61 64 70 6f 69 6e 74 65  72 3a f2 77 74 6f 66 28  |adpointer:.wtof(|
00001d00  6d 68 25 29 0d 09 d8 0a  c8 8e 20 b9 20 ca 0d 09  |mh%)...... . ...|
00001d10  e2 55 c9 20 71 25 21 34  30 3d 26 31 30 30 30 3a  |.U. q%!40=&1000:|
00001d20  66 69 6c 65 24 3d a4 7a  74 73 28 71 25 2b 34 34  |file$=.zts(q%+44|
00001d30  29 3a f2 73 74 6f 70 28  33 38 2c c2 66 69 6c 65  |):.stop(38,.file|
00001d40  24 2c 32 39 29 2c 72 6c  24 2b 22 20 73 65 74 20  |$,29),rl$+" set |
00001d50  70 69 63 74 75 72 65 20  70 61 74 68 20 3f 22 2c  |picture path ?",|
00001d60  2d 31 29 0d 09 ec 1b c9  20 71 25 21 34 30 3d 66  |-1)..... q%!40=f|
00001d70  74 5f 64 61 74 61 25 80  6d 68 25 3d 2d 32 0d 09  |t_data%.mh%=-2..|
00001d80  f6 10 f2 64 61 74 61 6c  6f 61 64 61 63 6b 0d 0a  |...dataloadack..|
00001d90  00 4c e7 70 72 6f 63 65  73 73 25 3d 30 e7 ac a4  |.L.process%=0...|
00001da0  64 69 61 6c 6f 67 75 65  3a f2 63 68 65 63 6b 6f  |dialogue:.checko|
00001db0  70 65 6e 3a f2 6d 73 74  6f 72 65 28 22 33 3a 22  |pen:.mstore("3:"|
00001dc0  2b a4 7a 74 73 28 71 25  2b 34 34 29 2c 22 4d 75  |+.zts(q%+44),"Mu|
00001dd0  6c 74 69 53 74 6f 72 65  22 29 0d 0a 0a 24 c9 20  |ltiStore")...$. |
00001de0  71 25 21 34 30 3d 66 74  5f 64 61 74 61 25 80 6d  |q%!40=ft_data%.m|
00001df0  68 25 3d 77 5f 74 72 61  6e 73 66 65 72 25 0d 0a  |h%=w_transfer%..|
00001e00  14 29 e7 6d 69 25 3d 31  84 6d 69 25 3d 32 3a f2  |.).mi%=1.mi%=2:.|
00001e10  6f 70 65 6e 73 6f 75 72  63 65 28 a4 7a 74 73 28  |opensource(.zts(|
00001e20  71 25 2b 34 34 29 29 0d  0a 1e 29 e7 6d 69 25 3d  |q%+44))...).mi%=|
00001e30  33 84 6d 69 25 3d 34 3a  f2 6f 70 65 6e 74 61 72  |3.mi%=4:.opentar|
00001e40  67 65 74 28 a4 7a 74 73  28 71 25 2b 34 34 29 29  |get(.zts(q%+44))|
00001e50  0d 0a 28 18 c9 20 71 25  21 34 30 3d 26 46 46 44  |..(.. q%!40=&FFD|
00001e60  20 80 6d 68 25 3d 2d 32  0d 0a 32 33 e7 70 72 6f  | .mh%=-2..23.pro|
00001e70  63 65 73 73 25 3d 30 3a  e7 ac a4 64 69 61 6c 6f  |cess%=0:...dialo|
00001e80  67 75 65 3a f2 63 68 65  63 6b 63 6f 6e 76 28 a4  |gue:.checkconv(.|
00001e90  7a 74 73 28 71 25 2b 34  34 29 29 0d 0a 3c 14 c9  |zts(q%+44))..<..|
00001ea0  20 71 25 21 34 30 3d 66  74 5f 66 6f 72 6d 25 0d  | q%!40=ft_form%.|
00001eb0  0a 46 34 f2 64 61 74 61  6c 6f 61 64 61 63 6b 3a  |.F4.dataloadack:|
00001ec0  f2 77 74 6f 66 28 6d 68  25 29 3a e7 77 69 6e 64  |.wtof(mh%):.wind|
00001ed0  25 3e 31 84 66 69 6c 65  25 3c 30 3a f2 65 72 72  |%>1.file%<0:.err|
00001ee0  28 31 29 0d 0a 50 0d f2  65 72 72 28 32 30 33 29  |(1)..P..err(203)|
00001ef0  0d 0a 5a 72 c9 20 71 25  21 34 30 3d 26 46 46 46  |..Zr. q%!40=&FFF|
00001f00  20 80 66 69 6c 65 25 3e  3d 30 80 77 69 6e 64 25  | .file%>=0.wind%|
00001f10  3d 36 3a f2 64 61 74 61  6c 6f 61 64 61 63 6b 3a  |=6:.dataloadack:|
00001f20  66 69 6c 65 24 3d a4 7a  74 73 28 71 25 2b 34 34  |file$=.zts(q%+44|
00001f30  29 3a f2 73 74 6f 70 28  31 34 2c 66 69 24 2b a4  |):.stop(14,fi$+.|
00001f40  66 69 6c 65 6e 61 6d 65  2c 72 6c 24 2b 22 6c 6f  |filename,rl$+"lo|
00001f50  61 64 20 6e 6f 74 65 73  20 3f 22 2c 66 69 6c 65  |ad notes ?",file|
00001f60  25 29 0d 0a 64 72 c9 20  71 25 21 34 30 3d 26 46  |%)..dr. q%!40=&F|
00001f70  46 46 20 80 66 69 6c 65  25 3e 3d 30 80 77 69 6e  |FF .file%>=0.win|
00001f80  64 25 3d 37 3a f2 64 61  74 61 6c 6f 61 64 61 63  |d%=7:.dataloadac|
00001f90  6b 3a 66 69 6c 65 24 3d  a4 7a 74 73 28 71 25 2b  |k:file$=.zts(q%+|
00001fa0  34 34 29 3a f2 73 74 6f  70 28 31 39 2c 66 69 24  |44):.stop(19,fi$|
00001fb0  2b a4 66 69 6c 65 6e 61  6d 65 2c 72 6c 24 2b 22  |+.filename,rl$+"|
00001fc0  6c 6f 61 64 20 6d 61 63  72 6f 20 3f 22 2c 66 69  |load macro ?",fi|
00001fd0  6c 65 25 29 0d 0a 6e 3b  c9 20 71 25 21 34 30 3d  |le%)..n;. q%!40=|
00001fe0  26 44 37 42 3a f2 64 61  74 61 6c 6f 61 64 61 63  |&D7B:.dataloadac|
00001ff0  6b 3a 66 69 6c 65 24 3d  a4 7a 74 73 28 71 25 2b  |k:file$=.zts(q%+|
00002000  34 34 29 3a f2 63 68 65  63 6b 73 65 74 75 70 0d  |44):.checksetup.|
00002010  0a 78 05 cb 0d 0a 82 05  e1 0d 0a 8c 04 0d 0a 96  |.x..............|
00002020  0d dd f2 6e 6f 73 63 72  61 70 0d 0a a0 1e e7 64  |...noscrap.....d|
00002030  65 6c 25 3a 2a 72 65 6d  6f 76 65 20 3c 57 69 6d  |el%:*remove <Wim|
00002040  70 24 53 63 72 61 70 3e  0d 0a aa 05 e1 0d 0a b4  |p$Scrap>........|
00002050  04 0d 0a be 1c dd f2 64  61 74 61 73 61 76 65 64  |.......datasaved|
00002060  3a e7 a4 64 69 61 6c 6f  67 75 65 3a e1 0d 0a c8  |:..dialogue:....|
00002070  1b f2 72 65 61 64 70 6f  69 6e 74 65 72 3a f2 77  |..readpointer:.w|
00002080  74 6f 66 28 6d 68 25 29  0d 0a d2 0a c8 8e 20 b9  |tof(mh%)...... .|
00002090  20 ca 0d 0a dc 41 c9 20  71 25 21 34 30 3d 26 46  | ....A. q%!40=&F|
000020a0  46 46 20 80 66 69 6c 65  25 3e 3d 30 80 28 77 69  |FF .file%>=0.(wi|
000020b0  6e 64 25 3d 36 84 77 69  6e 64 25 3d 37 84 77 69  |nd%=6.wind%=7.wi|
000020c0  6e 64 25 3d 30 29 3a f2  64 61 74 61 73 61 76 65  |nd%=0):.datasave|
000020d0  61 63 6b 0d 0a e6 05 cb  0d 0a f0 05 e1 0d 0a fa  |ack.............|
000020e0  04 0d 0b 04 0d dd f2 65  72 72 28 45 25 29 0d 0b  |.......err(E%)..|
000020f0  0e 39 ea 54 24 2c 41 24  3a e7 66 69 6c 65 25 3e  |.9.T$,A$:.file%>|
00002100  3d 30 41 24 3d 22 2c 20  22 2b 66 69 24 2b a4 66  |=0A$=", "+fi$+.f|
00002110  69 6c 65 6e 61 6d 65 2b  22 20 2d 20 22 3a 8b 41  |ilename+" - ":.A|
00002120  24 3d 22 20 2d 20 22 0d  0b 18 14 40 25 3d 26 39  |$=" - "....@%=&9|
00002130  30 41 3a 2a 66 78 32 32  39 2c 31 0d 0b 22 09 c8  |0A:*fx229,1.."..|
00002140  8e 45 25 ca 0d 0b 2c 0c  c9 30 3a 54 24 3d f6 24  |.E%...,..0:T$=.$|
00002150  0d 0b 36 30 c9 31 3a 54  24 3d 22 54 6f 20 75 73  |..60.1:T$="To us|
00002160  65 20 61 20 66 6f 72 6d  61 74 2c 20 64 72 61 67  |e a format, drag|
00002170  20 69 74 20 6f 6e 74 6f  20 61 20 63 61 72 64 22  | it onto a card"|
00002180  0d 0b 40 2d c9 32 3a 54  24 3d 22 4d 75 73 74 20  |..@-.2:T$="Must |
00002190  62 65 20 76 65 72 73 69  6f 6e 20 31 2e 38 20 57  |be version 1.8 W|
000021a0  49 4d 50 20 6f 72 20 6c  61 74 65 72 22 0d 0b 4a  |IMP or later"..J|
000021b0  2e c9 33 3a 54 24 3d 22  53 6f 72 72 79 21 20 54  |..3:T$="Sorry! T|
000021c0  6f 6f 20 6d 61 6e 79 20  66 69 6c 65 73 20 61 6c  |oo many files al|
000021d0  72 65 61 64 79 20 6f 70  65 6e 22 0d 0b 54 41 c9  |ready open"..TA.|
000021e0  34 3a 54 24 3d 22 53 6f  72 72 79 21 20 59 6f 75  |4:T$="Sorry! You|
000021f0  20 63 61 6e 20 6f 6e 6c  79 20 72 75 6e 20 6f 6e  | can only run on|
00002200  65 20 52 41 4d 4d 61 6e  61 67 65 72 20 74 61 73  |e RAMManager tas|
00002210  6b 20 61 74 20 61 20 74  69 6d 65 22 0d 0b 5e 48  |k at a time"..^H|
00002220  c9 35 3a 54 24 3d 22 54  6f 20 73 61 76 65 2c 20  |.5:T$="To save, |
00002230  64 72 61 67 20 74 68 65  20 69 63 6f 6e 20 74 6f  |drag the icon to|
00002240  20 61 20 64 69 72 65 63  74 6f 72 79 20 76 69 65  | a directory vie|
00002250  77 65 72 20 6f 72 20 61  6e 6f 74 68 65 72 20 74  |wer or another t|
00002260  61 73 6b 22 0d 0b 68 63  c9 36 3a 54 24 3d 22 43  |ask"..hc.6:T$="C|
00002270  6f 75 6c 64 6e 27 74 20  6f 70 65 6e 20 66 69 6c  |ouldn't open fil|
00002280  65 3a 20 22 2b f6 24 3a  e7 f6 24 3d 22 44 61 74  |e: "+.$:..$="Dat|
00002290  61 20 6c 6f 73 74 22 3a  54 24 2b 3d 22 20 28 45  |a lost":T$+=" (E|
000022a0  6e 73 75 72 65 20 74 68  65 20 64 69 73 63 20 69  |nsure the disc i|
000022b0  73 20 6e 6f 74 20 77 72  69 74 65 20 70 72 6f 74  |s not write prot|
000022c0  65 63 74 65 64 29 22 0d  0b 72 25 c9 37 3a 54 24  |ected)"..r%.7:T$|
000022d0  3d 22 43 6f 75 6c 64 6e  27 74 20 6f 70 65 6e 20  |="Couldn't open |
000022e0  66 6f 72 6d 61 74 3a 20  22 2b f6 24 0d 0b 7c 23  |format: "+.$..|#|
000022f0  c9 38 3a 54 24 3d 22 46  69 6c 74 65 72 20 65 78  |.8:T$="Filter ex|
00002300  70 72 65 73 73 69 6f 6e  22 2b 41 24 2b f6 24 0d  |pression"+A$+.$.|
00002310  0b 86 23 c9 39 3a 54 24  3d 22 53 65 61 72 63 68  |..#.9:T$="Search|
00002320  20 65 78 70 72 65 73 73  69 6f 6e 22 2b 41 24 2b  | expression"+A$+|
00002330  f6 24 0d 0b 90 28 c9 31  30 3a 54 24 3d 22 55 6e  |.$...(.10:T$="Un|
00002340  62 61 6c 61 6e 63 65 64  20 71 75 6f 74 65 20 6d  |balanced quote m|
00002350  61 72 6b 73 20 28 22 22  29 22 0d 0b 9a 20 c9 31  |arks ("")"... .1|
00002360  31 3a 54 24 3d 22 55 6e  62 61 6c 61 6e 63 65 64  |1:T$="Unbalanced|
00002370  20 62 72 61 63 6b 65 74  73 22 0d 0b a4 2e c9 31  | brackets".....1|
00002380  32 3a 54 24 3d 22 4e 6f  20 63 61 72 64 73 20 74  |2:T$="No cards t|
00002390  6f 20 73 65 61 72 63 68  20 69 6e 20 74 68 69 73  |o search in this|
000023a0  20 73 75 62 73 65 74 22  0d 0b ae 46 c9 31 33 3a  | subset"...F.13:|
000023b0  54 24 3d 22 54 68 65 20  6e 61 6d 65 20 73 68 6f  |T$="The name sho|
000023c0  75 6c 64 20 62 65 20 32  2d 34 20 63 68 61 72 61  |uld be 2-4 chara|
000023d0  63 74 65 72 73 20 61 6e  64 20 73 74 61 72 74 20  |cters and start |
000023e0  77 69 74 68 20 61 20 6c  65 74 74 65 72 22 0d 0b  |with a letter"..|
000023f0  b8 44 c9 31 34 3a 54 24  3d 22 50 6c 65 61 73 65  |.D.14:T$="Please|
00002400  20 73 70 65 63 69 66 79  20 74 68 65 20 6d 61 78  | specify the max|
00002410  69 6d 75 6d 20 76 61 6c  75 65 20 74 6f 20 73 74  |imum value to st|
00002420  6f 72 65 20 69 6e 20 74  68 65 20 73 75 62 73 65  |ore in the subse|
00002430  74 22 0d 0b c2 22 c9 31  35 3a 54 24 3d 22 53 75  |t"...".15:T$="Su|
00002440  62 73 65 74 20 61 6c 72  65 61 64 79 20 65 78 69  |bset already exi|
00002450  73 74 73 22 0d 0b cc 31  c9 31 36 3a 54 24 3d 22  |sts"...1.16:T$="|
00002460  46 69 65 6c 64 20 6e 61  6d 65 73 20 6d 75 73 74  |Field names must|
00002470  20 73 74 61 72 74 20 77  69 74 68 20 61 20 6c 65  | start with a le|
00002480  74 74 65 72 22 0d 0b d6  2c c9 31 37 3a 54 24 3d  |tter"...,.17:T$=|
00002490  22 43 6f 70 79 69 6e 67  2f 63 6f 6d 62 69 6e 69  |"Copying/combini|
000024a0  6e 67 20 73 75 62 73 65  74 73 22 2b 41 24 2b f6  |ng subsets"+A$+.|
000024b0  24 0d 0b e0 20 c9 31 38  3a 54 24 3d 22 45 6e 67  |$... .18:T$="Eng|
000024c0  6c 69 73 68 20 71 75 65  72 79 22 2b 41 24 2b f6  |lish query"+A$+.|
000024d0  24 0d 0b ea 25 c9 31 39  3a 54 24 3d 22 43 61 6e  |$...%.19:T$="Can|
000024e0  27 74 20 75 6e 64 65 72  73 74 61 6e 64 20 6d 65  |'t understand me|
000024f0  61 6e 69 6e 67 22 0d 0b  f4 27 c9 32 30 3a 54 24  |aning"...'.20:T$|
00002500  3d 22 4d 61 63 72 6f 20  6c 69 6e 65 20 22 2b c3  |="Macro line "+.|
00002510  28 65 72 25 2b 31 29 2b  41 24 2b f6 24 0d 0b fe  |(er%+1)+A$+.$...|
00002520  36 c9 32 31 3a 54 24 3d  22 4d 69 73 73 69 6e 67  |6.21:T$="Missing|
00002530  20 54 48 45 4e 20 6f 72  20 47 4f 20 63 6c 61 75  | THEN or GO clau|
00002540  73 65 20 69 6e 20 49 46  20 73 74 61 74 65 6d 65  |se in IF stateme|
00002550  6e 74 22 0d 0c 08 2d c9  32 32 3a 54 24 3d 22 49  |nt"...-.22:T$="I|
00002560  6e 76 61 6c 69 64 20 6d  61 63 72 6f 20 6c 69 6e  |nvalid macro lin|
00002570  65 20 6e 75 6d 62 65 72  20 66 6f 72 20 47 4f 22  |e number for GO"|
00002580  0d 0c 12 28 c9 32 33 3a  54 24 3d 22 49 6c 6c 65  |...(.23:T$="Ille|
00002590  67 61 6c 20 76 61 72 69  61 62 6c 65 20 61 73 73  |gal variable ass|
000025a0  69 67 6e 6d 65 6e 74 22  0d 0c 1c 26 c9 32 34 3a  |ignment"...&.24:|
000025b0  54 24 3d 22 46 69 65 6c  64 20 61 73 73 69 67 6e  |T$="Field assign|
000025c0  6d 65 6e 74 20 65 78 70  65 63 74 65 64 22 0d 0c  |ment expected"..|
000025d0  26 25 c9 32 35 3a 54 24  3d 22 46 69 65 6c 64 20  |&%.25:T$="Field |
000025e0  6e 61 6d 65 20 6e 6f 74  20 73 70 65 63 69 66 69  |name not specifi|
000025f0  65 64 22 0d 0c 30 2d c9  32 36 3a 54 24 3d 22 53  |ed"..0-.26:T$="S|
00002600  75 62 73 65 74 20 76 61  6c 75 65 20 61 73 73 69  |ubset value assi|
00002610  67 6e 6d 65 6e 74 20 65  78 70 65 63 74 65 64 22  |gnment expected"|
00002620  0d 0c 3a 2d c9 32 37 3a  54 24 3d 22 53 75 62 73  |..:-.27:T$="Subs|
00002630  65 74 20 6e 61 6d 65 2f  6c 65 74 74 65 72 20 6e  |et name/letter n|
00002640  6f 74 20 73 70 65 63 69  66 69 65 64 22 0d 0c 44  |ot specified"..D|
00002650  27 c9 32 38 3a 54 24 3d  22 49 6e 76 61 6c 69 64  |'.28:T$="Invalid|
00002660  20 73 75 62 73 65 74 20  6e 61 6d 65 2f 6c 65 74  | subset name/let|
00002670  74 65 72 22 0d 0c 4e 31  c9 32 39 3a 54 24 3d 22  |ter"..N1.29:T$="|
00002680  49 6c 6c 65 67 61 6c 20  6e 6f 74 65 70 61 64 20  |Illegal notepad |
00002690  72 65 66 65 72 65 6e 63  65 20 69 64 65 6e 74 69  |reference identi|
000026a0  66 69 65 72 22 0d 0c 58  39 c9 33 30 3a 54 24 3d  |fier"..X9.30:T$=|
000026b0  22 41 62 62 72 65 76 69  61 74 65 64 20 65 78 70  |"Abbreviated exp|
000026c0  72 65 73 73 69 6f 6e 20  74 6f 6f 20 63 6f 6d 70  |ression too comp|
000026d0  6c 65 78 20 74 6f 20 65  78 70 61 6e 64 22 0d 0c  |lex to expand"..|
000026e0  62 25 c9 33 31 3a 54 24  3d 22 49 6c 6c 65 67 61  |b%.31:T$="Illega|
000026f0  6c 20 70 61 74 74 65 72  6e 20 6d 61 74 63 68 69  |l pattern matchi|
00002700  6e 67 22 0d 0c 6c 3e c9  33 32 3a 54 24 3d 22 56  |ng"..l>.32:T$="V|
00002710  61 6c 69 64 61 74 69 6e  67 20 63 61 72 64 22 2b  |alidating card"+|
00002720  41 24 2b f6 24 2b 22 20  28 46 69 6c 74 65 72 2f  |A$+.$+" (Filter/|
00002730  53 75 62 73 65 74 20 64  69 73 61 62 6c 65 64 29  |Subset disabled)|
00002740  22 0d 0c 76 2b c9 33 33  3a 54 24 3d 22 49 6c 6c  |"..v+.33:T$="Ill|
00002750  65 67 61 6c 20 67 6c 6f  62 61 6c 20 76 61 72 69  |egal global vari|
00002760  61 62 6c 65 20 6e 75 6d  62 65 72 22 0d 0c 80 22  |able number"..."|
00002770  c9 33 34 3a 54 24 3d 22  53 6f 72 74 20 65 78 70  |.34:T$="Sort exp|
00002780  72 65 73 73 69 6f 6e 22  2b 41 24 2b f6 24 0d 0c  |ression"+A$+.$..|
00002790  8a 2b c9 33 35 3a 54 24  3d 22 45 78 70 72 65 73  |.+.35:T$="Expres|
000027a0  73 69 6f 6e 20 73 68 6f  75 6c 64 20 6e 6f 74 20  |sion should not |
000027b0  62 65 20 62 6c 61 6e 6b  22 0d 0c 94 37 c9 33 36  |be blank"...7.36|
000027c0  3a 54 24 3d 22 46 61 73  74 20 66 69 6e 64 22 2b  |:T$="Fast find"+|
000027d0  41 24 2b 22 63 6f 75 6c  64 6e 27 74 20 66 69 6e  |A$+"couldn't fin|
000027e0  64 20 6d 61 74 63 68 69  6e 67 20 63 61 72 64 22  |d matching card"|
000027f0  0d 0c 9e 22 c9 33 37 3a  54 24 3d 22 4c 69 6e 6b  |...".37:T$="Link|
00002800  20 65 78 70 72 65 73 73  69 6f 6e 22 2b 41 24 2b  | expression"+A$+|
00002810  f6 24 0d 0c a8 1f c9 33  38 3a 54 24 3d 22 4c 69  |.$.....38:T$="Li|
00002820  6e 6b 20 66 69 6c 65 20  6e 6f 74 20 6f 70 65 6e  |nk file not open|
00002830  22 0d 0c b2 2d c9 33 39  3a 54 24 3d 22 59 6f 75  |"...-.39:T$="You|
00002840  20 63 61 6e 27 74 20 6c  69 6e 6b 20 74 6f 20 61  | can't link to a|
00002850  6e 20 61 63 74 69 76 65  20 66 69 6c 65 22 0d 0c  |n active file"..|
00002860  bc 31 c9 34 30 3a 54 24  3d 22 59 6f 75 20 63 61  |.1.40:T$="You ca|
00002870  6e 27 74 20 68 61 76 65  20 61 20 63 69 72 63 75  |n't have a circu|
00002880  6c 61 72 20 6c 69 6e 6b  20 73 65 74 75 70 22 0d  |lar link setup".|
00002890  0c c6 23 c9 34 31 3a 54  24 3d 22 50 72 69 6e 74  |..#.41:T$="Print|
000028a0  65 72 20 61 6c 72 65 61  64 79 20 69 6e 20 75 73  |er already in us|
000028b0  65 22 0d 0c d0 39 c9 34  32 3a 54 24 3d 22 50 72  |e"...9.42:T$="Pr|
000028c0  69 6e 74 65 72 20 69 6e  20 75 73 65 20 62 79 20  |inter in use by |
000028d0  66 69 6c 65 20 22 2b a4  6f 66 69 6c 65 6e 61 6d  |file "+.ofilenam|
000028e0  65 28 70 72 69 6e 74 65  72 25 29 0d 0c da 32 c9  |e(printer%)...2.|
000028f0  34 33 3a 54 24 3d 22 50  72 69 6e 74 69 6e 67 22  |43:T$="Printing"|
00002900  2b 41 24 2b f6 24 2b 22  20 28 52 65 70 6f 72 74  |+A$+.$+" (Report|
00002910  20 74 65 72 6d 69 6e 61  74 65 64 29 22 0d 0c e4  | terminated)"...|
00002920  2b c9 34 34 3a 54 24 3d  22 53 69 6d 70 6c 65 20  |+.44:T$="Simple |
00002930  72 65 70 6f 72 74 20 64  65 66 69 6e 69 74 69 6f  |report definitio|
00002940  6e 22 2b 41 24 2b f6 24  0d 0c ee 21 c9 34 35 3a  |n"+A$+.$...!.45:|
00002950  54 24 3d 22 52 65 70 6f  72 74 20 66 6f 72 6d 75  |T$="Report formu|
00002960  6c 61 22 2b 41 24 2b f6  24 0d 0c f8 39 c9 34 36  |la"+A$+.$...9.46|
00002970  3a 54 24 3d 22 45 78 70  6f 72 74 69 6e 67 20 72  |:T$="Exporting r|
00002980  65 70 6f 72 74 22 2b 41  24 2b f6 24 2b 22 20 28  |eport"+A$+.$+" (|
00002990  65 78 70 6f 72 74 20 63  61 6e 63 65 6c 6c 65 64  |export cancelled|
000029a0  29 22 0d 0d 02 45 c9 34  37 3a 54 24 3d 22 54 68  |)"...E.47:T$="Th|
000029b0  65 20 74 77 6f 20 6e 65  77 20 70 61 73 73 77 6f  |e two new passwo|
000029c0  72 64 73 20 6d 75 73 74  20 62 65 20 69 64 65 6e  |rds must be iden|
000029d0  74 69 63 61 6c 2e 20 50  6c 65 61 73 65 20 72 65  |tical. Please re|
000029e0  2d 65 6e 74 65 72 22 0d  0d 0c 2a c9 34 38 3a 54  |-enter"...*.48:T|
000029f0  24 3d 22 4e 6f 74 20 61  20 73 75 69 74 61 62 6c  |$="Not a suitabl|
00002a00  65 20 70 72 69 6e 74 65  72 20 64 72 69 76 65 72  |e printer driver|
00002a10  22 0d 0d 16 31 c9 34 39  3a 54 24 3d 22 59 6f 75  |"...1.49:T$="You|
00002a20  20 63 61 6e 27 74 20 6c  6f 61 64 20 74 68 61 74  | can't load that|
00002a30  20 73 65 74 75 70 20 66  69 6c 65 20 74 68 65 72  | setup file ther|
00002a40  65 22 0d 0d 20 31 c9 35  30 3a 54 24 3d 22 43 61  |e".. 1.50:T$="Ca|
00002a50  6e 27 74 20 72 65 63 6f  67 6e 69 73 65 20 66 6f  |n't recognise fo|
00002a60  72 6d 61 74 20 6f 66 20  73 65 74 75 70 20 66 69  |rmat of setup fi|
00002a70  6c 65 22 0d 0d 2a 3c c9  35 31 3a 54 24 3d 22 59  |le"..*<.51:T$="Y|
00002a80  6f 75 20 6d 75 73 74 20  73 70 65 63 69 66 79 20  |ou must specify |
00002a90  74 68 65 20 63 75 72 72  65 6e 74 20 70 61 73 73  |the current pass|
00002aa0  77 6f 72 64 20 63 6f 72  72 65 63 74 6c 79 22 0d  |word correctly".|
00002ab0  0d 34 3e c9 35 34 3a 54  24 3d 22 50 6c 6f 74 74  |.4>.54:T$="Plott|
00002ac0  69 6e 67 20 70 69 63 74  75 72 65 22 2b 41 24 2b  |ing picture"+A$+|
00002ad0  f6 24 2b 22 20 28 72 65  6c 65 61 73 65 20 41 4c  |.$+" (release AL|
00002ae0  54 20 74 6f 20 72 65 64  72 61 77 29 22 0d 0d 3e  |T to redraw)"..>|
00002af0  1e c9 35 39 3a 54 24 3d  22 50 72 6f 67 72 61 6d  |..59:T$="Program|
00002b00  20 6e 6f 74 20 66 6f 75  6e 64 22 0d 0d 48 34 c9  | not found"..H4.|
00002b10  36 30 3a 54 24 3d f6 24  2b 22 20 2d 20 43 61 6e  |60:T$=.$+" - Can|
00002b20  27 74 20 6c 6f 61 64 20  66 69 6c 65 20 63 72 65  |'t load file cre|
00002b30  61 74 69 6f 6e 20 73 6f  66 74 77 61 72 65 22 0d  |ation software".|
00002b40  0d 52 3d c9 36 31 3a 54  24 3d 22 53 6f 72 72 79  |.R=.61:T$="Sorry|
00002b50  21 20 4e 6f 74 20 65 6e  6f 75 67 68 20 73 75 62  |! Not enough sub|
00002b60  73 65 74 73 20 61 76 61  69 6c 61 62 6c 65 20 66  |sets available f|
00002b70  6f 72 20 61 20 73 65 61  72 63 68 22 0d 0d 5c 32  |or a search"..\2|
00002b80  c9 36 32 3a 54 24 3d f6  24 2b 22 20 2d 20 43 61  |.62:T$=.$+" - Ca|
00002b90  6e 27 74 20 6c 6f 61 64  20 66 69 6c 65 20 73 79  |n't load file sy|
00002ba0  73 74 65 6d 20 73 6f 66  74 77 61 72 65 22 0d 0d  |stem software"..|
00002bb0  66 49 c9 31 30 30 3a 54  24 3d 73 79 24 2b 22 59  |fI.100:T$=sy$+"Y|
00002bc0  6f 75 20 63 61 6e 27 74  20 63 72 65 61 74 65 20  |ou can't create |
00002bd0  61 20 66 69 6c 65 2f 66  6f 72 6d 61 74 20 77 68  |a file/format wh|
00002be0  69 6c 65 20 74 72 61 6e  73 66 65 72 72 69 6e 67  |ile transferring|
00002bf0  20 63 61 72 64 73 22 0d  0d 70 4a c9 31 30 33 3a  | cards"..pJ.103:|
00002c00  54 24 3d 73 79 24 2b 22  4e 6f 20 61 63 63 65 73  |T$=sy$+"No acces|
00002c10  73 20 74 6f 20 74 68 65  20 70 72 69 6e 74 65 72  |s to the printer|
00002c20  20 64 72 69 76 65 72 20  77 68 69 6c 65 20 74 72  | driver while tr|
00002c30  61 6e 73 66 65 72 72 69  6e 67 20 63 61 72 64 73  |ansferring cards|
00002c40  22 0d 0d 7a 48 c9 31 30  34 3a 54 24 3d 73 79 24  |"..zH.104:T$=sy$|
00002c50  2b 22 59 6f 75 20 63 61  6e 27 74 20 61 63 63 65  |+"You can't acce|
00002c60  73 73 20 66 69 6c 65 73  20 64 69 72 65 63 74 6c  |ss files directl|
00002c70  79 20 64 75 72 69 6e 67  20 61 20 63 61 72 64 20  |y during a card |
00002c80  74 72 61 6e 73 66 65 72  22 0d 0d 84 2a c9 31 30  |transfer"...*.10|
00002c90  38 3a 54 24 3d 22 54 68  69 73 20 69 73 20 61 20  |8:T$="This is a |
00002ca0  66 6f 72 6d 61 74 2c 20  6e 6f 74 20 61 20 66 69  |format, not a fi|
00002cb0  6c 65 22 0d 0d 8e 4a c9  31 30 39 3a 54 24 3d 73  |le"...J.109:T$=s|
00002cc0  79 24 2b 22 59 6f 75 20  63 61 6e 27 74 20 74 72  |y$+"You can't tr|
00002cd0  61 6e 73 66 65 72 20 63  61 72 64 73 20 69 6e 74  |ansfer cards int|
00002ce0  6f 20 61 20 66 6f 72 6d  61 74 20 6f 72 20 75 6e  |o a format or un|
00002cf0  64 65 66 69 6e 65 64 20  66 69 6c 65 22 0d 0d 98  |defined file"...|
00002d00  42 c9 31 31 30 3a 54 24  3d 73 79 24 2b 22 59 6f  |B.110:T$=sy$+"Yo|
00002d10  75 20 63 61 6e 27 74 20  73 6f 72 74 20 61 20 66  |u can't sort a f|
00002d20  69 6c 65 20 77 68 69 6c  65 20 79 6f 75 20 61 72  |ile while you ar|
00002d30  65 20 63 72 65 61 74 69  6e 67 20 69 74 21 22 0d  |e creating it!".|
00002d40  0d a2 82 c9 32 30 30 3a  54 24 3d 22 50 6c 65 61  |....200:T$="Plea|
00002d50  73 65 20 6f 70 65 6e 20  62 6f 74 68 20 73 6f 75  |se open both sou|
00002d60  72 63 65 20 61 6e 64 20  74 61 72 67 65 74 20 66  |rce and target f|
00002d70  69 6c 65 73 20 62 65 66  6f 72 65 20 70 72 6f 63  |iles before proc|
00002d80  65 65 64 69 6e 67 20 28  62 79 20 64 72 61 67 67  |eeding (by dragg|
00002d90  69 6e 67 20 74 6f 20 74  68 65 20 63 6f 72 72 65  |ing to the corre|
00002da0  63 74 20 70 6c 61 63 65  20 6f 6e 20 74 68 65 20  |ct place on the |
00002db0  74 72 61 6e 73 66 65 72  20 77 69 6e 64 6f 77 29  |transfer window)|
00002dc0  22 0d 0d ac 32 c9 32 30  31 3a 54 24 3d 22 59 6f  |"...2.201:T$="Yo|
00002dd0  75 20 61 6c 72 65 61 64  79 20 68 61 76 65 20 61  |u already have a|
00002de0  20 73 6f 75 72 63 65 20  66 69 6c 65 20 6f 70 65  | source file ope|
00002df0  6e 21 22 0d 0d b6 32 c9  32 30 32 3a 54 24 3d 22  |n!"...2.202:T$="|
00002e00  59 6f 75 20 61 6c 72 65  61 64 79 20 68 61 76 65  |You already have|
00002e10  20 61 20 74 61 72 67 65  74 20 66 69 6c 65 20 6f  | a target file o|
00002e20  70 65 6e 21 22 0d 0d c0  3d c9 32 30 33 3a 54 24  |pen!"...=.203:T$|
00002e30  3d 73 79 24 2b 22 59 6f  75 20 63 61 6e 27 74 20  |=sy$+"You can't |
00002e40  75 73 65 20 66 6f 72 6d  61 74 73 20 69 6e 20 63  |use formats in c|
00002e50  61 72 64 20 74 72 61 6e  73 66 65 72 20 6d 6f 64  |ard transfer mod|
00002e60  65 22 0d 0d ca 40 c9 32  30 34 3a 54 24 3d 22 46  |e"...@.204:T$="F|
00002e70  69 65 6c 64 20 65 78 70  72 65 73 73 69 6f 6e 2c  |ield expression,|
00002e80  20 66 69 65 6c 64 3a 20  22 2b a4 66 6e 61 6d 65  | field: "+.fname|
00002e90  28 6d 65 6e 75 66 69 65  6c 64 25 29 2b 41 24 2b  |(menufield%)+A$+|
00002ea0  f6 24 0d 0d d4 26 c9 32  30 35 3a 54 24 3d 22 49  |.$...&.205:T$="I|
00002eb0  6e 76 61 6c 69 64 20 66  69 65 6c 64 20 72 65 66  |nvalid field ref|
00002ec0  65 72 65 6e 63 65 73 22  0d 0d de 45 c9 32 30 36  |erences"...E.206|
00002ed0  3a 54 24 3d 22 4e 6f 20  74 72 61 6e 73 66 65 72  |:T$="No transfer|
00002ee0  20 64 65 66 69 6e 65 64  20 2d 20 70 6c 65 61 73  | defined - pleas|
00002ef0  65 20 73 65 6c 65 63 74  20 6f 62 6a 65 63 74 73  |e select objects|
00002f00  20 74 6f 20 74 72 61 6e  73 66 65 72 22 0d 0d e8  | to transfer"...|
00002f10  2e c9 32 30 37 3a 54 24  3d 22 43 6f 75 6c 64 6e  |..207:T$="Couldn|
00002f20  27 74 20 74 72 61 6e 73  66 65 72 20 77 6f 72 6b  |'t transfer work|
00002f30  73 70 61 63 65 3a 20 22  2b f6 24 0d 0d f2 23 c9  |space: "+.$...#.|
00002f40  32 30 38 3a 54 24 3d f6  24 2b 22 20 2d 20 74 72  |208:T$=.$+" - tr|
00002f50  61 6e 73 66 65 72 20 66  61 69 6c 65 64 22 0d 0d  |ansfer failed"..|
00002f60  fc 34 c9 32 30 39 3a 54  24 3d 22 43 6f 75 6c 64  |.4.209:T$="Could|
00002f70  6e 27 74 20 74 72 61 6e  73 66 65 72 20 6e 75 6d  |n't transfer num|
00002f80  65 72 69 63 20 73 75 62  73 65 74 73 3a 20 22 2b  |eric subsets: "+|
00002f90  f6 24 0d 0e 06 29 c9 32  31 30 3a 54 24 3d 22 43  |.$...).210:T$="C|
00002fa0  6f 75 6c 64 6e 27 74 20  74 72 61 6e 73 66 65 72  |ouldn't transfer|
00002fb0  20 63 61 72 64 3a 20 22  2b f6 24 0d 0e 10 32 c9  | card: "+.$...2.|
00002fc0  32 31 31 3a 54 24 3d 73  79 24 2b 22 74 68 61 74  |211:T$=sy$+"that|
00002fd0  27 73 20 6e 6f 74 20 61  20 54 72 61 6e 73 66 65  |'s not a Transfe|
00002fe0  72 20 73 65 74 75 70 20  66 69 6c 65 22 0d 0e 1a  |r setup file"...|
00002ff0  4b c9 32 31 32 3a 54 24  3d 22 50 6c 65 61 73 65  |K.212:T$="Please|
00003000  20 6f 70 65 6e 20 62 6f  74 68 20 73 6f 75 72 63  | open both sourc|
00003010  65 20 61 6e 64 20 74 61  72 67 65 74 20 66 69 6c  |e and target fil|
00003020  65 73 20 62 65 66 6f 72  65 20 6c 6f 61 64 69 6e  |es before loadin|
00003030  67 20 73 65 74 75 70 22  0d 0e 24 28 c9 32 31 33  |g setup"..$(.213|
00003040  3a 54 24 3d f6 24 2b 22  20 2d 20 66 61 69 6c 65  |:T$=.$+" - faile|
00003050  64 20 74 6f 20 6c 6f 61  64 20 73 65 74 75 70 22  |d to load setup"|
00003060  0d 0e 2e 3e c9 32 31 34  3a 54 24 3d 73 79 24 2b  |...>.214:T$=sy$+|
00003070  22 59 6f 75 20 63 61 6e  27 74 20 63 6f 70 79 20  |"You can't copy |
00003080  74 68 65 20 73 75 62 73  65 74 73 20 77 69 74 68  |the subsets with|
00003090  6f 75 74 20 74 68 65 20  63 61 72 64 73 22 0d 0e  |out the cards"..|
000030a0  38 49 c9 32 31 35 3a 54  24 3d 22 50 6c 65 61 73  |8I.215:T$="Pleas|
000030b0  65 20 63 6c 6f 73 65 20  73 6f 75 72 63 65 2f 74  |e close source/t|
000030c0  61 72 67 65 74 20 66 69  6c 65 73 20 62 65 66 6f  |arget files befo|
000030d0  72 65 20 63 61 6e 63 65  6c 6c 69 6e 67 20 74 72  |re cancelling tr|
000030e0  61 6e 73 66 65 72 22 0d  0e 42 05 cb 0d 0e 4c 25  |ansfer"..B....L%|
000030f0  e7 a4 64 65 62 75 67 3a  54 24 2b 3d 22 20 28 22  |..debug:T$+=" ("|
00003100  2b c3 9e 2b 22 29 20 5b  22 2b c3 45 25 2b 22 5d  |+..+") ["+.E%+"]|
00003110  22 0d 0e 56 0a 85 39 39  2c 54 24 0d 0e 60 04 0d  |"..V..99,T$..`..|
00003120  0e 6a 25 dd f2 6f 70 65  6e 66 69 6c 65 28 66 24  |.j%..openfile(f$|
00003130  29 3a ea 49 25 2c 54 25  3a 54 25 3d 6f 70 65 6e  |):.I%,T%:T%=open|
00003140  69 6e 67 25 0d 0e 74 30  77 5f 6f 70 65 6e 25 3d  |ing%..t0w_open%=|
00003150  a4 63 72 77 69 6e 64 28  74 77 5f 6f 70 65 6e 25  |.crwind(tw_open%|
00003160  29 3a f2 75 6e 73 65 6c  61 6c 6c 28 77 5f 6f 70  |):.unselall(w_op|
00003170  65 6e 25 29 0d 0e 7e 1d  f2 73 65 6c 69 28 77 5f  |en%)..~..seli(w_|
00003180  6f 70 65 6e 25 2c 31 2d  37 2a 28 54 25 3d 31 29  |open%,1-7*(T%=1)|
00003190  29 0d 0e 88 2e e7 54 25  3d 30 f2 73 65 6c 69 28  |).....T%=0.seli(|
000031a0  77 5f 6f 70 65 6e 25 2c  30 29 3a 8b f2 73 68 61  |w_open%,0):..sha|
000031b0  64 65 69 28 77 5f 6f 70  65 6e 25 2c 31 36 29 0d  |dei(w_open%,16).|
000031c0  0e 92 21 e3 49 25 3d 30  b8 38 3a f2 73 68 61 64  |..!.I%=0.8:.shad|
000031d0  65 69 28 77 5f 6f 70 65  6e 25 2c 49 25 29 3a ed  |ei(w_open%,I%):.|
000031e0  0d 0e 9c 36 66 69 6c 65  24 3d 66 24 3a f2 73 65  |...6file$=f$:.se|
000031f0  74 69 28 77 5f 6f 70 65  6e 25 2c 31 33 2c 66 24  |ti(w_open%,13,f$|
00003200  29 3a f2 73 65 74 69 28  77 5f 6f 70 65 6e 25 2c  |):.seti(w_open%,|
00003210  31 34 2c 22 22 29 0d 0e  a6 40 24 a4 74 61 28 77  |14,"")...@$.ta(w|
00003220  5f 6f 70 65 6e 25 29 3d  22 4f 70 65 6e 20 53 6f  |_open%)="Open So|
00003230  75 72 63 65 22 3a e7 54  25 3d 31 24 a4 74 61 28  |urce":.T%=1$.ta(|
00003240  77 5f 6f 70 65 6e 25 29  3d 22 4f 70 65 6e 20 54  |w_open%)="Open T|
00003250  61 72 67 65 74 22 0d 0e  b0 18 f2 64 69 61 6c 6f  |arget".....dialo|
00003260  67 75 65 28 77 5f 6f 70  65 6e 25 29 3a e1 0d 0e  |gue(w_open%):...|
00003270  ba 04 0d 0e c4 1f dd f2  6f 70 65 6e 66 69 6c 65  |........openfile|
00003280  31 28 66 24 2c 6d 25 2c  64 25 2c 70 24 2c 72 25  |1(f$,m%,d%,p$,r%|
00003290  29 0d 0e ce 16 ea 49 25  2c 67 25 2c 68 25 2c 58  |).....I%,g%,h%,X|
000032a0  25 2c 59 25 2c 54 24 0d  0e d8 06 ea 85 0d 0e e2  |%,Y%,T$.........|
000032b0  15 ee 85 ea 3a f7 85 3a  f2 6c 6f 61 64 65 72 72  |....:..:.loaderr|
000032c0  3a e1 0d 0e ec 0e 70 24  3d a4 73 75 28 70 24 29  |:.....p$=.su(p$)|
000032d0  0d 0e f6 1c e7 77 25 28  6f 70 65 6e 69 6e 67 25  |.....w%(opening%|
000032e0  2c 30 29 3e 30 f2 65 72  72 28 33 29 0d 0f 00 41  |,0)>0.err(3)...A|
000032f0  68 25 3d 6f 70 65 6e 69  6e 67 25 3a 54 24 3d 66  |h%=opening%:T$=f|
00003300  24 3a 6d 25 3d a8 28 39  39 2f 28 6d 61 78 66 25  |$:m%=.(99/(maxf%|
00003310  2b 31 29 2b 28 39 39 2d  28 39 39 2f 28 6d 61 78  |+1)+(99-(99/(max|
00003320  66 25 2b 31 29 29 29 2a  6d 25 2f 37 29 0d 0f 0a  |f%+1)))*m%/7)...|
00003330  2d 77 25 28 68 25 2c 30  29 3d a4 63 72 77 69 6e  |-w%(h%,0)=.crwin|
00003340  64 28 74 77 25 28 68 25  2c 30 29 29 3a f2 6d 61  |d(tw%(h%,0)):.ma|
00003350  6b 65 70 61 6e 65 28 68  25 29 0d 0f 14 1b e7 70  |kepane(h%).....p|
00003360  24 3d 22 22 70 24 3d a4  70 77 63 6f 64 65 28 70  |$=""p$=.pwcode(p|
00003370  61 73 73 24 29 0d 0f 1e  29 70 61 73 73 24 3d a4  |ass$)...)pass$=.|
00003380  70 77 63 6f 64 65 28 70  24 29 3a e7 63 6c 65 61  |pwcode(p$):.clea|
00003390  72 70 61 73 73 25 70 61  73 73 24 3d 22 22 0d 0f  |rpass%pass$=""..|
000033a0  28 18 c8 99 73 77 69 25  2c 70 61 73 73 77 6f 72  |(...swi%,passwor|
000033b0  64 5f 25 2c 70 24 0d 0f  32 25 67 25 3d 30 3a c8  |d_%,p$..2%g%=0:.|
000033c0  99 73 77 69 25 2c 6f 70  65 6e 5f 25 2c 54 24 2c  |.swi%,open_%,T$,|
000033d0  6d 25 2c 64 25 2c 72 25  b8 47 25 0d 0f 3c 25 67  |m%,d%,r%.G%..<%g|
000033e0  25 3d 47 25 3a e7 67 25  84 3f 73 64 25 3c 3e 31  |%=G%:.g%.?sd%<>1|
000033f0  33 8c f2 77 61 72 6e 66  69 6c 65 3a 67 25 3d b9  |3..warnfile:g%=.|
00003400  0d 0f 46 24 68 25 28 68  25 29 3d a4 76 5f 28 32  |..F$h%(h%)=.v_(2|
00003410  29 3a f2 69 6e 69 74 66  69 6c 65 3a f2 64 65 66  |):.initfile:.def|
00003420  61 75 6c 74 0d 0f 50 1a  c8 99 73 77 69 25 2c 73  |ault..P...swi%,s|
00003430  65 6c 65 63 74 6b 65 79  5f 25 2c 22 3f 22 0d 0f  |electkey_%,"?"..|
00003440  5a 15 c8 99 73 77 69 25  2c 73 64 34 35 5f 25 2c  |Z...swi%,sd45_%,|
00003450  22 4e 22 0d 0f 64 29 54  24 3d 22 53 6f 75 72 63  |"N"..d)T$="Sourc|
00003460  65 3d 22 3a e7 6f 70 65  6e 69 6e 67 25 3d 31 3a  |e=":.opening%=1:|
00003470  54 24 3d 22 54 61 72 67  65 74 3d 22 0d 0f 6e 39  |T$="Target="..n9|
00003480  f2 73 64 66 69 6c 65 28  68 25 29 3a 24 a4 74 61  |.sdfile(h%):$.ta|
00003490  28 77 25 28 68 25 2c 30  29 29 3d 54 24 2b a4 66  |(w%(h%,0))=T$+.f|
000034a0  69 6c 65 6e 61 6d 65 3a  f2 66 65 78 74 3a f2 72  |ilename:.fext:.r|
000034b0  65 61 64 77 73 0d 0f 78  18 e7 6f 70 65 6e 69 6e  |eadws..x..openin|
000034c0  67 25 3d 30 f2 69 6e 69  74 70 61 6e 65 0d 0f 82  |g%=0.initpane...|
000034d0  29 58 25 3d 68 25 2a 38  30 2b 70 61 6e 65 77 25  |)X%=h%*80+panew%|
000034e0  2b 38 3a 59 25 3d 39 30  30 2d 68 25 2a 34 30 2d  |+8:Y%=900-h%*40-|
000034f0  70 61 6e 65 68 25 0d 0f  8c 3e f2 6f 70 65 6e 28  |paneh%...>.open(|
00003500  77 25 28 68 25 2c 30 29  2c 58 25 2c 59 25 2c 58  |w%(h%,0),X%,Y%,X|
00003510  25 2b 70 61 6e 65 68 25  2c 59 25 2b 70 61 6e 65  |%+paneh%,Y%+pane|
00003520  68 25 2c 30 2c 30 2c 2d  31 29 3a f2 76 61 6c 69  |h%,0,0,-1):.vali|
00003530  64 72 65 63 0d 0f 96 1b  c8 99 73 77 69 25 2c 73  |drec......swi%,s|
00003540  64 35 37 5f 25 2c 22 62  69 74 37 22 b8 47 25 0d  |d57_%,"bit7".G%.|
00003550  0f a0 1f f2 66 6c 67 28  66 5f 37 62 69 74 25 2c  |....flg(f_7bit%,|
00003560  47 25 29 3a 66 6e 24 28  68 25 29 3d 66 24 0d 0f  |G%):fn$(h%)=f$..|
00003570  aa 10 e7 6f 70 65 6e 69  6e 67 25 3d 31 8c 0d 0f  |...opening%=1...|
00003580  b4 29 49 25 3d 34 3a f2  6d 61 6b 65 66 6c 69 73  |.)I%=4:.makeflis|
00003590  74 28 68 25 29 3a c8 99  73 77 69 25 2c 73 75 62  |t(h%):..swi%,sub|
000035a0  73 65 74 5f 25 2c 30 0d  0f be 15 c8 99 73 77 69  |set_%,0......swi|
000035b0  25 2c 6f 72 64 65 72 5f  25 b8 4e 25 0d 0f c8 05  |%,order_%.N%....|
000035c0  cc 0d 0f d2 08 49 25 3d  32 0d 0f dc 05 cd 0d 0f  |.....I%=2.......|
000035d0  e6 23 f2 73 65 74 69 28  77 5f 74 72 61 6e 73 66  |.#.seti(w_transf|
000035e0  65 72 25 2c 49 25 2c a4  66 69 6c 65 6e 61 6d 65  |er%,I%,.filename|
000035f0  29 0d 0f f0 28 e7 a4 76  5f 28 31 29 3c 3e 34 3a  |)...(..v_(1)<>4:|
00003600  f2 66 72 6f 6e 74 28 77  5f 74 72 61 6e 73 66 65  |.front(w_transfe|
00003610  72 25 2c 2d 31 2c 2d 31  29 0d 0f fa 19 e7 67 25  |r%,-1,-1).....g%|
00003620  f2 64 69 61 6c 6f 67 75  65 28 77 5f 6d 65 73 73  |.dialogue(w_mess|
00003630  25 29 0d 10 04 05 e1 0d  10 0e 04 0d 10 18 0e dd  |%)..............|
00003640  f2 77 61 72 6e 66 69 6c  65 0d 10 22 2a ea 54 25  |.warnfile.."*.T%|
00003650  2c 74 25 2c 49 25 2c 54  24 3a 77 5f 6d 65 73 73  |,t%,I%,T$:w_mess|
00003660  25 3d a4 63 72 77 69 6e  64 28 74 77 5f 6d 65 73  |%=.crwind(tw_mes|
00003670  73 25 29 0d 10 2c 13 f7  2b 31 3a e3 49 25 3d 30  |s%)..,..+1:.I%=0|
00003680  b8 37 3a f3 54 24 0d 10  36 29 e7 67 25 80 28 32  |.7:.T$..6).g%.(2|
00003690  5e 49 25 29 3a f2 73 65  74 69 28 77 5f 6d 65 73  |^I%):.seti(w_mes|
000036a0  73 25 2c 54 25 2c 54 24  29 3a 54 25 2b 3d 31 0d  |s%,T%,T$):T%+=1.|
000036b0  10 40 0f ed 3a e7 24 73  64 25 3e 22 22 8c 0d 10  |.@..:.$sd%>""...|
000036c0  4a 4a f2 73 65 74 69 28  77 5f 6d 65 73 73 25 2c  |JJ.seti(w_mess%,|
000036d0  54 25 2c 22 50 61 73 73  77 6f 72 64 20 76 69 6f  |T%,"Password vio|
000036e0  6c 61 74 69 6f 6e 73 20  68 61 76 65 20 6f 63 63  |lations have occ|
000036f0  75 72 65 64 20 61 73 20  66 6f 6c 6c 6f 77 73 3a  |ured as follows:|
00003700  22 29 3a 54 25 2b 3d 31  0d 10 54 0c 74 25 3d 73  |"):T%+=1..T.t%=s|
00003710  64 25 3a f5 0d 10 5e 3e  e7 74 25 3c 73 64 25 2b  |d%:...^>.t%<sd%+|
00003720  31 39 32 3a e7 24 74 25  3e 22 22 3a f2 73 65 74  |192:.$t%>"":.set|
00003730  69 28 77 5f 6d 65 73 73  25 2c 54 25 2c 22 20 20  |i(w_mess%,T%,"  |
00003740  55 73 69 6e 67 20 22 2b  24 74 25 29 3a 54 25 2b  |Using "+$t%):T%+|
00003750  3d 31 0d 10 68 16 74 25  2b 3d 36 34 3a fd 74 25  |=1..h.t%+=64:.t%|
00003760  3d 73 64 25 2b 31 39 32  0d 10 72 05 cd 0d 10 7c  |=sd%+192..r....||
00003770  29 c8 95 54 25 3c 36 3a  f2 73 65 74 69 28 77 5f  |)..T%<6:.seti(w_|
00003780  6d 65 73 73 25 2c 54 25  2c 22 22 29 3a 54 25 2b  |mess%,T%,""):T%+|
00003790  3d 31 3a ce 3a e1 0d 10  86 3e dc 22 2a 2a 20 54  |=1:.:....>."** T|
000037a0  68 69 73 20 66 69 6c 65  20 4d 41 59 20 62 65 20  |his file MAY be |
000037b0  43 4f 52 52 55 50 54 45  44 20 64 75 65 20 74 6f  |CORRUPTED due to|
000037c0  20 69 6c 6c 65 67 61 6c  20 63 6c 6f 73 75 72 65  | illegal closure|
000037d0  20 2a 2a 22 0d 10 90 3c  dc 22 20 20 2a 2a 20 54  | **"...<."  ** T|
000037e0  68 69 73 20 66 69 6c 65  20 68 61 73 20 62 65 65  |his file has bee|
000037f0  6e 20 61 63 63 65 73 73  65 64 20 62 79 20 6f 6c  |n accessed by ol|
00003800  64 65 72 20 73 6f 66 74  77 61 72 65 20 2a 2a 22  |der software **"|
00003810  0d 10 9a 09 dc 2c 2c 2c  2c 0d 10 a4 04 0d 10 ae  |.....,,,,.......|
00003820  0e dd f2 69 6e 69 74 66  69 6c 65 0d 10 b8 2a 66  |...initfile...*f|
00003830  25 28 68 25 29 3d 30 3a  73 25 28 68 25 29 3d 30  |%(h%)=0:s%(h%)=0|
00003840  3a 73 24 28 68 25 29 3d  22 22 3a 66 63 25 28 68  |:s$(h%)="":fc%(h|
00003850  25 29 3d 2d 31 0d 10 c2  3f 61 25 28 68 25 29 3d  |%)=-1...?a%(h%)=|
00003860  30 3a 66 24 28 68 25 29  3d 22 22 3a 66 78 24 28  |0:f$(h%)="":fx$(|
00003870  68 25 29 3d 22 22 3a 65  24 28 68 25 29 3d 22 22  |h%)="":e$(h%)=""|
00003880  3a 65 78 24 28 68 25 29  3d 22 22 3a 72 25 28 68  |:ex$(h%)="":r%(h|
00003890  25 29 3d 31 0d 10 cc 38  6f 24 28 68 25 29 3d 22  |%)=1...8o$(h%)="|
000038a0  22 3a 6f 25 28 68 25 2c  30 29 3d 33 3a 72 24 28  |":o%(h%,0)=3:r$(|
000038b0  68 25 29 3d 22 22 3a e3  49 25 3d 30 b8 33 3a 74  |h%)="":.I%=0.3:t|
000038c0  25 28 68 25 2c 49 25 29  3d 30 3a ed 0d 10 d6 2e  |%(h%,I%)=0:.....|
000038d0  6c 24 28 68 25 29 3d 22  22 3a 6c 6b 24 28 68 25  |l$(h%)="":lk$(h%|
000038e0  29 3d 22 22 3a 6c 78 24  28 68 25 29 3d 22 22 3a  |)="":lx$(h%)="":|
000038f0  73 72 24 28 68 25 29 3d  22 22 0d 10 e0 25 66 6e  |sr$(h%)=""...%fn|
00003900  24 28 68 25 29 3d 22 22  3a 70 25 28 68 25 2c 30  |$(h%)="":p%(h%,0|
00003910  29 3d 30 3a 70 24 28 68  25 2c 30 29 3d 22 22 0d  |)=0:p$(h%,0)="".|
00003920  10 ea 36 e3 49 25 3d 30  b8 32 33 3a 64 24 28 68  |..6.I%=0.23:d$(h|
00003930  25 2c 49 25 29 3d 22 22  3a ed 3a e3 49 25 3d 30  |%,I%)="":.:.I%=0|
00003940  b8 31 38 3a f2 6e 6f 74  65 28 68 25 2c 49 25 2c  |.18:.note(h%,I%,|
00003950  22 22 29 3a ed 0d 10 f4  29 e3 49 25 3d 30 b8 32  |""):....).I%=0.2|
00003960  39 3a f2 6d 61 63 6c 6e  28 68 25 2c 49 25 2c 22  |9:.macln(h%,I%,"|
00003970  22 29 3a ed 3a 77 6f 25  28 68 25 29 3d 30 0d 10  |"):.:wo%(h%)=0..|
00003980  fe 33 e3 49 25 3d 30 b8  31 35 3a 6c 66 25 28 68  |.3.I%=0.15:lf%(h|
00003990  25 2c 49 25 29 3d 30 3a  ed 3a e3 49 25 3d 30 b8  |%,I%)=0:.:.I%=0.|
000039a0  31 34 3a 77 24 28 68 25  2c 49 25 29 3d 22 22 3a  |14:w$(h%,I%)="":|
000039b0  ed 0d 11 08 4c 6c 6c 25  28 68 25 2c 30 29 3d 33  |....Lll%(h%,0)=3|
000039c0  30 3a 6c 6c 25 28 68 25  2c 31 29 3d 34 3a 6c 6c  |0:ll%(h%,1)=4:ll|
000039d0  25 28 68 25 2c 32 29 3d  34 3a 6c 6c 25 28 68 25  |%(h%,2)=4:ll%(h%|
000039e0  2c 33 29 3d 39 3a 6c 6c  25 28 68 25 2c 34 29 3d  |,3)=9:ll%(h%,4)=|
000039f0  32 3a 6c 6c 25 28 68 25  2c 35 29 3d 31 0d 11 12  |2:ll%(h%,5)=1...|
00003a00  33 66 6c 25 28 68 25 29  3d 66 5f 64 66 6c 74 25  |3fl%(h%)=f_dflt%|
00003a10  3a e7 74 6f 6f 6c 73 25  3a 66 6c 25 28 68 25 29  |:.tools%:fl%(h%)|
00003a20  3d 66 6c 25 28 68 25 29  84 66 5f 70 61 6e 65 25  |=fl%(h%).f_pane%|
00003a30  0d 11 1c 05 e1 0d 11 26  04 0d 11 30 11 dd f2 6c  |.......&...0...l|
00003a40  6f 61 64 65 72 72 3a ea  49 25 0d 11 3a 16 f2 6e  |oaderr:.I%..:..n|
00003a50  6f 72 6d 70 6f 69 6e 74  3a e7 68 25 3e 3d 30 8c  |ormpoint:.h%>=0.|
00003a60  0d 11 44 16 e7 67 25 3a  f2 64 65 6c 77 28 77 5f  |..D..g%:.delw(w_|
00003a70  6d 65 73 73 25 29 0d 11  4e 1e e7 77 25 28 68 25  |mess%)..N..w%(h%|
00003a80  2c 30 29 3e 30 f2 64 65  6c 77 28 77 25 28 68 25  |,0)>0.delw(w%(h%|
00003a90  2c 30 29 29 0d 11 58 1e  e7 77 25 28 68 25 2c 31  |,0))..X..w%(h%,1|
00003aa0  29 3e 30 f2 64 65 6c 77  28 77 25 28 68 25 2c 31  |)>0.delw(w%(h%,1|
00003ab0  29 29 0d 11 62 1c e7 68  25 28 68 25 29 3e 30 3a  |))..b..h%(h%)>0:|
00003ac0  f2 63 6c 6f 73 65 66 69  6c 65 28 68 25 29 0d 11  |.closefile(h%)..|
00003ad0  6c 0e e7 9f 3d 26 38 30  33 30 31 8c 0d 11 76 44  |l...=&80301...vD|
00003ae0  77 5f 6f 70 65 6e 25 3d  a4 63 72 77 69 6e 64 28  |w_open%=.crwind(|
00003af0  74 77 5f 6f 70 65 6e 25  29 3a f2 75 6e 73 65 6c  |tw_open%):.unsel|
00003b00  61 6c 6c 28 77 5f 6f 70  65 6e 25 29 3a f2 73 65  |all(w_open%):.se|
00003b10  6c 69 28 77 5f 6f 70 65  6e 25 2c 6d 25 2b 31 29  |li(w_open%,m%+1)|
00003b20  0d 11 80 38 e7 64 25 f2  73 65 6c 69 28 77 5f 6f  |...8.d%.seli(w_o|
00003b30  70 65 6e 25 2c 30 29 3a  e7 6f 70 65 6e 69 6e 67  |pen%,0):.opening|
00003b40  25 3c 3e 30 3a f2 73 68  61 64 65 69 28 77 5f 6f  |%<>0:.shadei(w_o|
00003b50  70 65 6e 25 2c 31 36 29  0d 11 8a 21 e3 49 25 3d  |pen%,16)...!.I%=|
00003b60  30 b8 38 3a f2 73 68 61  64 65 69 28 77 5f 6f 70  |0.8:.shadei(w_op|
00003b70  65 6e 25 2c 49 25 29 3a  ed 0d 11 94 36 66 69 6c  |en%,I%):....6fil|
00003b80  65 24 3d 66 24 3a f2 73  65 74 69 28 77 5f 6f 70  |e$=f$:.seti(w_op|
00003b90  65 6e 25 2c 31 33 2c 66  24 29 3a f2 73 65 74 69  |en%,13,f$):.seti|
00003ba0  28 77 5f 6f 70 65 6e 25  2c 31 34 2c 22 22 29 0d  |(w_open%,14,"").|
00003bb0  11 9e 46 24 a4 74 61 28  77 5f 6f 70 65 6e 25 29  |..F$.ta(w_open%)|
00003bc0  3d 22 4f 70 65 6e 20 53  6f 75 72 63 65 22 3a e7  |="Open Source":.|
00003bd0  6f 70 65 6e 69 6e 67 25  3d 31 24 a4 74 61 28 77  |opening%=1$.ta(w|
00003be0  5f 6f 70 65 6e 25 29 3d  22 4f 70 65 6e 20 54 61  |_open%)="Open Ta|
00003bf0  72 67 65 74 22 0d 11 a8  21 f2 64 69 61 6c 6f 67  |rget"...!.dialog|
00003c00  75 65 28 77 5f 6f 70 65  6e 25 29 3a 66 69 6c 65  |ue(w_open%):file|
00003c10  25 3d 2d 31 3a e1 0d 11  b2 05 cd 0d 11 bc 05 cd  |%=-1:...........|
00003c20  0d 11 c6 16 66 69 6c 65  25 3d 2d 31 3a f2 65 72  |....file%=-1:.er|
00003c30  72 28 36 29 3a e1 0d 11  d0 04 0d 11 da 17 dd f2  |r(6):...........|
00003c40  63 6c 6f 73 65 66 69 6c  65 28 68 25 29 3a ea 49  |closefile(h%):.I|
00003c50  25 0d 11 e4 1f f2 73 64  66 69 6c 65 28 68 25 29  |%.....sdfile(h%)|
00003c60  3a f2 72 65 61 64 79 3a  f2 77 72 69 74 65 77 73  |:.ready:.writews|
00003c70  0d 11 ee 1d f2 63 6c 6f  73 65 66 6f 72 6d 3a f2  |.....closeform:.|
00003c80  64 65 6c 66 69 6c 65 77  73 28 68 25 29 0d 11 f8  |delfilews(h%)...|
00003c90  35 68 25 28 68 25 29 3d  30 3a 73 25 28 68 25 29  |5h%(h%)=0:s%(h%)|
00003ca0  3d 30 3a 66 25 28 68 25  29 3d 30 3a 61 25 28 68  |=0:f%(h%)=0:a%(h|
00003cb0  25 29 3d 30 3a 77 25 28  68 25 2c 30 29 3d 2d 31  |%)=0:w%(h%,0)=-1|
00003cc0  45 39 0d 12 02 29 63 6c  6f 73 65 6f 6b 25 3d a3  |E9...)closeok%=.|
00003cd0  3a 66 69 6c 65 25 3d 2d  31 3a c8 99 73 77 69 25  |:file%=-1:..swi%|
00003ce0  2c 63 6c 6f 73 65 5f 25  b8 53 25 0d 12 0c 19 f2  |,close_%.S%.....|
00003cf0  72 65 61 64 74 72 61 6e  3a f2 74 72 61 6e 73 66  |readtran:.transf|
00003d00  65 72 3a e1 0d 12 16 04  0d 12 20 23 dd f2 61 6c  |er:....... #..al|
00003d10  69 67 6e 28 68 25 2c 49  25 29 3a e7 74 78 31 25  |ign(h%,I%):.tx1%|
00003d20  2d 74 78 30 25 3e 31 30  38 3a e1 0d 12 2a 13 dd  |-tx0%>108:...*..|
00003d30  f2 61 6c 69 67 6e 31 28  68 25 2c 49 25 29 0d 12  |.align1(h%,I%)..|
00003d40  34 2e 74 78 30 25 3d 68  25 2a 38 30 2b 49 25 2a  |4.tx0%=h%*80+I%*|
00003d50  34 30 2d 34 30 2b 70 61  6e 65 77 25 2b 38 3a 74  |40-40+panew%+8:t|
00003d60  78 31 25 3d 74 78 30 25  2b 34 34 30 0d 12 3e 29  |x1%=tx0%+440..>)|
00003d70  74 79 31 25 3d 39 30 30  2d 68 25 2a 34 30 2d 49  |ty1%=900-h%*40-I|
00003d80  25 2a 34 30 2b 34 30 3a  74 79 30 25 3d 74 79 31  |%*40+40:ty0%=ty1|
00003d90  25 2d 33 32 30 0d 12 48  05 e1 0d 12 52 04 0d 12  |%-320..H....R...|
00003da0  5c 12 dd f2 6d 61 6b 65  70 61 6e 65 28 68 25 29  |\...makepane(h%)|
00003db0  0d 12 66 29 ea 50 25 3a  50 25 3d a4 63 72 77 69  |..f).P%:P%=.crwi|
00003dc0  6e 64 28 74 77 25 28 68  25 2c 31 29 29 3a 77 25  |nd(tw%(h%,1)):w%|
00003dd0  28 68 25 2c 31 29 3d 50  25 0d 12 70 43 f2 67 65  |(h%,1)=P%..pC.ge|
00003de0  74 77 28 50 25 29 3a 70  61 6e 65 68 25 3d 79 31  |tw(P%):paneh%=y1|
00003df0  25 2d 79 30 25 3a 70 61  6e 65 77 25 3d 78 31 25  |%-y0%:panew%=x1%|
00003e00  2d 78 30 25 3a f2 77 65  78 74 28 50 25 2c 70 61  |-x0%:.wext(P%,pa|
00003e10  6e 65 77 25 2c 70 61 6e  65 68 25 29 0d 12 7a 1f  |new%,paneh%)..z.|
00003e20  e7 68 25 3d 74 61 72 67  65 74 25 3a f2 64 65 6c  |.h%=target%:.del|
00003e30  77 28 77 25 28 68 25 2c  31 29 29 0d 12 84 05 e1  |w(w%(h%,1)).....|
00003e40  0d 12 8e 04 0d 12 98 12  dd f2 6d 61 6b 65 73 75  |..........makesu|
00003e50  62 73 28 68 25 29 0d 12  a2 16 ea 50 25 2c 54 24  |bs(h%).....P%,T$|
00003e60  2c 49 25 2c 4a 25 2c 4b  25 2c 54 25 0d 12 ac 3a  |,I%,J%,K%,T%...:|
00003e70  4b 25 3d 77 25 28 68 25  2c 32 29 3e 30 3a e7 4b  |K%=w%(h%,2)>0:.K|
00003e80  25 f2 67 65 74 77 28 77  25 28 68 25 2c 32 29 29  |%.getw(w%(h%,2))|
00003e90  8b f2 72 65 61 64 62 6c  6f 63 6b 28 74 77 25 28  |..readblock(tw%(|
00003ea0  68 25 2c 32 29 29 0d 12  b6 34 74 78 30 25 3d 78  |h%,2))...4tx0%=x|
00003eb0  30 25 3a 74 79 30 25 3d  79 30 25 3a 74 78 31 25  |0%:ty0%=y0%:tx1%|
00003ec0  3d 78 31 25 3a 74 79 31  25 3d 79 31 25 3a f2 61  |=x1%:ty1%=y1%:.a|
00003ed0  6c 69 67 6e 28 68 25 2c  32 29 0d 12 c0 41 f2 64  |lign(h%,2)...A.d|
00003ee0  65 6c 66 69 6c 65 77 28  68 25 2c 32 29 3a 50 25  |elfilew(h%,2):P%|
00003ef0  3d a4 63 72 77 69 6e 64  28 74 77 25 28 68 25 2c  |=.crwind(tw%(h%,|
00003f00  32 29 29 3a 77 25 28 68  25 2c 32 29 3d 50 25 3a  |2)):w%(h%,2)=P%:|
00003f10  f2 73 64 66 69 6c 65 28  68 25 29 0d 12 ca 2a 24  |.sdfile(h%)...*$|
00003f20  a4 74 61 28 77 25 28 68  25 2c 32 29 29 3d 22 53  |.ta(w%(h%,2))="S|
00003f30  75 62 73 65 74 73 20 6f  66 20 22 2b a4 66 69 6c  |ubsets of "+.fil|
00003f40  65 6e 61 6d 65 0d 12 d4  17 54 24 3d a4 73 75 62  |ename....T$=.sub|
00003f50  73 74 72 3a e3 49 25 3d  30 b8 32 33 0d 12 de 3c  |str:.I%=0.23...<|
00003f60  e7 c1 54 24 2c 49 25 2b  31 2c 31 29 3c 3e 22 2e  |..T$,I%+1,1)<>".|
00003f70  22 3a f2 6c 6f 73 65 69  63 6f 6e 28 50 25 2c 49  |":.loseicon(P%,I|
00003f80  25 2b 35 29 3a f2 6c 6f  73 65 69 63 6f 6e 28 50  |%+5):.loseicon(P|
00003f90  25 2c 49 25 2b 32 39 29  0d 12 e8 05 ed 0d 12 f2  |%,I%+29)........|
00003fa0  2a c8 95 54 24 3e 22 22  80 c2 54 24 29 3c 3e 22  |*..T$>""..T$)<>"|
00003fb0  2e 22 3a 54 24 3d c0 54  24 29 3a ce 3a 54 24 3d  |.":T$=.T$):.:T$=|
00003fc0  c0 54 24 2c 32 34 29 0d  12 fc 2b 43 25 3d 28 28  |.T$,24)...+C%=((|
00003fd0  a9 54 24 2d 31 29 81 36  2b 31 29 2a 35 36 2b 36  |.T$-1).6+1)*56+6|
00003fe0  32 3a e7 4b 25 3a 43 25  3d 74 79 31 25 2d 74 79  |2:.K%:C%=ty1%-ty|
00003ff0  30 25 0d 13 06 34 54 25  3d 28 33 2d 28 a9 54 24  |0%...4T%=(3-(.T$|
00004000  2d 31 29 81 36 29 2a 35  36 3a 4a 25 3d 30 3a e3  |-1).6)*56:J%=0:.|
00004010  49 25 3d 30 b8 39 3a 54  24 3d a4 73 75 62 6e 61  |I%=0.9:T$=.subna|
00004020  6d 65 28 49 25 29 0d 13  10 1e f2 73 65 74 69 28  |me(I%).....seti(|
00004030  50 25 2c 49 25 2b 35 33  2c 54 24 29 3a e7 54 24  |P%,I%+53,T$):.T$|
00004040  3d 22 22 8c 0d 13 1a 17  f2 6c 6f 73 65 69 63 6f  |=""......loseico|
00004050  6e 28 50 25 2c 49 25 2b  35 33 29 0d 13 24 05 cc  |n(P%,I%+53)..$..|
00004060  0d 13 2e 2e f2 67 65 74  69 28 50 25 2c 49 25 2b  |.....geti(P%,I%+|
00004070  35 33 29 3a f2 64 65 6c  69 63 6f 6e 28 50 25 2c  |53):.delicon(P%,|
00004080  49 25 2b 35 33 29 3a 4a  25 3d 49 25 2b 31 0d 13  |I%+53):J%=I%+1..|
00004090  38 3a 71 25 21 34 3d 21  71 25 3a 71 25 21 31 32  |8:q%!4=!q%:q%!12|
000040a0  2b 3d 54 25 3a 71 25 21  32 30 2b 3d 54 25 3a c8  |+=T%:q%!20+=T%:.|
000040b0  99 22 57 69 6d 70 5f 43  72 65 61 74 65 49 63 6f  |."Wimp_CreateIco|
000040c0  6e 22 2c 2c 71 25 2b 34  0d 13 42 05 cd 0d 13 4c  |n",,q%+4..B....L|
000040d0  20 ed 3a f2 67 65 74 69  28 50 25 2c 34 29 3a f2  | .:.geti(P%,4):.|
000040e0  64 65 6c 69 63 6f 6e 28  50 25 2c 34 29 0d 13 56  |delicon(P%,4)..V|
000040f0  3a 71 25 21 34 3d 21 71  25 3a 71 25 21 31 32 2b  |:q%!4=!q%:q%!12+|
00004100  3d 54 25 3a 71 25 21 32  30 2b 3d 54 25 3a c8 99  |=T%:q%!20+=T%:..|
00004110  22 57 69 6d 70 5f 43 72  65 61 74 65 49 63 6f 6e  |"Wimp_CreateIcon|
00004120  22 2c 2c 71 25 2b 34 0d  13 60 38 54 25 2b 3d 28  |",,q%+4..`8T%+=(|
00004130  28 31 30 2d 4a 25 29 81  35 29 2a 36 34 3a f2 67  |(10-J%).5)*64:.g|
00004140  65 74 77 28 50 25 29 3a  f2 77 65 78 74 28 50 25  |etw(P%):.wext(P%|
00004150  2c 65 78 31 25 2c 2d 65  79 30 25 2d 54 25 29 0d  |,ex1%,-ey0%-T%).|
00004160  13 6a 43 f2 73 68 6f 77  73 75 62 31 3a f2 6f 70  |.jC.showsub1:.op|
00004170  65 6e 28 77 25 28 68 25  2c 32 29 2c 74 78 30 25  |en(w%(h%,2),tx0%|
00004180  2c 74 79 31 25 2d 43 25  2c 74 78 31 25 2b 78 31  |,ty1%-C%,tx1%+x1|
00004190  25 2d 78 30 25 2c 74 79  31 25 2c 30 2c 30 2c 2d  |%-x0%,ty1%,0,0,-|
000041a0  31 29 0d 13 74 05 e1 0d  13 7e 04 0d 13 88 1d dd  |1)..t....~......|
000041b0  f2 6d 61 6b 65 66 6c 69  73 74 28 68 25 29 3a ea  |.makeflist(h%):.|
000041c0  58 25 2c 59 25 2c 54 25  0d 13 92 3d ea 50 25 3a  |X%,Y%,T%...=.P%:|
000041d0  50 25 3d a4 6d 61 6b 65  77 69 6e 64 28 68 25 2c  |P%=.makewind(h%,|
000041e0  34 29 3a 54 25 3d a4 74  61 28 50 25 29 3a 24 54  |4):T%=.ta(P%):$T|
000041f0  25 3d 22 46 69 65 6c 64  73 3d 22 2b a4 66 69 6c  |%="Fields="+.fil|
00004200  65 6e 61 6d 65 0d 13 9c  2a 54 25 3d a9 24 54 25  |ename...*T%=.$T%|
00004210  2b 34 3a f2 66 6f 72 6d  73 74 61 74 3a c8 99 73  |+4:.formstat:..s|
00004220  77 69 25 2c 73 64 36 34  5f 25 2c 31 b8 47 25 0d  |wi%,sd64_%,1.G%.|
00004230  13 a6 0f e7 47 25 3c 54  25 47 25 3d 54 25 0d 13  |....G%<T%G%=T%..|
00004240  b0 2c 58 25 3d 47 25 3a  e7 68 25 3d 74 61 72 67  |.,X%=G%:.h%=targ|
00004250  65 74 25 3a 66 77 69 64  25 3d 58 25 2a 31 36 2b  |et%:fwid%=X%*16+|
00004260  6d 61 72 67 69 6e 25 2b  31 36 0d 13 ba 15 e7 68  |margin%+16.....h|
00004270  25 3d 74 61 72 67 65 74  25 58 25 3d 32 35 35 0d  |%=target%X%=255.|
00004280  13 c4 3d 59 25 3d a4 76  5f 28 37 29 3a f2 77 65  |..=Y%=.v_(7):.we|
00004290  78 74 28 50 25 2c 58 25  2a 31 36 2b 6d 61 72 67  |xt(P%,X%*16+marg|
000042a0  69 6e 25 2a 32 2c 59 25  2a 6c 69 6e 65 67 61 70  |in%*2,Y%*linegap|
000042b0  25 2b 6d 61 72 67 69 6e  25 2a 32 29 0d 13 ce 05  |%+margin%*2)....|
000042c0  e1 0d 13 d8 04 0d 13 e2  1d dd f2 6d 61 6b 65 69  |...........makei|
000042d0  6c 69 73 74 28 68 25 29  3a ea 58 25 2c 59 25 2c  |list(h%):.X%,Y%,|
000042e0  54 25 0d 13 ec 3e ea 50  25 3a 50 25 3d a4 6d 61  |T%...>.P%:P%=.ma|
000042f0  6b 65 77 69 6e 64 28 68  25 2c 35 29 3a 54 25 3d  |kewind(h%,5):T%=|
00004300  a4 74 61 28 50 25 29 3a  24 54 25 3d 22 49 6e 64  |.ta(P%):$T%="Ind|
00004310  69 63 65 73 3d 22 2b a4  66 69 6c 65 6e 61 6d 65  |ices="+.filename|
00004320  0d 13 f6 20 54 25 3d a9  24 54 25 2b 34 3a c8 99  |... T%=.$T%+4:..|
00004330  73 77 69 25 2c 73 64 36  34 5f 25 2c 32 b8 47 25  |swi%,sd64_%,2.G%|
00004340  0d 14 00 0f e7 47 25 3c  54 25 47 25 3d 54 25 0d  |.....G%<T%G%=T%.|
00004350  14 0a 16 58 25 3d 47 25  3a 59 25 3d a4 6e 69 6e  |...X%=G%:Y%=.nin|
00004360  64 69 63 65 73 0d 14 14  35 f2 77 65 78 74 28 50  |dices...5.wext(P|
00004370  25 2c 58 25 2a 31 36 2b  6d 61 72 67 69 6e 25 2a  |%,X%*16+margin%*|
00004380  32 2c 59 25 2a 6c 69 6e  65 67 61 70 25 2b 6d 61  |2,Y%*linegap%+ma|
00004390  72 67 69 6e 25 2a 32 29  3a e1 0d 14 1e 04 0d 14  |rgin%*2):.......|
000043a0  28 13 dd f2 6d 61 6b 65  6e 6f 74 65 73 28 68 25  |(...makenotes(h%|
000043b0  29 0d 14 32 38 ea 50 25  3a 50 25 3d a4 6d 61 6b  |)..28.P%:P%=.mak|
000043c0  65 77 69 6e 64 28 68 25  2c 36 29 3a 24 a4 74 61  |ewind(h%,6):$.ta|
000043d0  28 50 25 29 3d 22 4e 6f  74 65 70 61 64 3d 22 2b  |(P%)="Notepad="+|
000043e0  a4 66 69 6c 65 6e 61 6d  65 0d 14 3c 05 e1 0d 14  |.filename..<....|
000043f0  46 04 0d 14 50 13 dd f2  6d 61 6b 65 6d 61 63 72  |F...P...makemacr|
00004400  6f 28 68 25 29 0d 14 5a  36 ea 50 25 3a 50 25 3d  |o(h%)..Z6.P%:P%=|
00004410  a4 6d 61 6b 65 77 69 6e  64 28 68 25 2c 37 29 3a  |.makewind(h%,7):|
00004420  24 a4 74 61 28 50 25 29  3d 22 4d 61 63 72 6f 3d  |$.ta(P%)="Macro=|
00004430  22 2b a4 66 69 6c 65 6e  61 6d 65 0d 14 64 05 e1  |"+.filename..d..|
00004440  0d 14 6e 04 0d 14 78 1f  dd a4 6d 61 6b 65 77 69  |..n...x...makewi|
00004450  6e 64 28 68 25 2c 54 25  29 3a ea 50 25 2c 49 25  |nd(h%,T%):.P%,I%|
00004460  2c 4b 25 0d 14 82 3d 4b  25 3d 77 25 28 68 25 2c  |,K%...=K%=w%(h%,|
00004470  54 25 29 3e 30 3a e7 4b  25 f2 67 65 74 77 28 77  |T%)>0:.K%.getw(w|
00004480  25 28 68 25 2c 54 25 29  29 8b f2 72 65 61 64 62  |%(h%,T%))..readb|
00004490  6c 6f 63 6b 28 74 77 25  28 68 25 2c 54 25 29 29  |lock(tw%(h%,T%))|
000044a0  0d 14 8c 35 74 78 30 25  3d 78 30 25 3a 74 79 30  |...5tx0%=x0%:ty0|
000044b0  25 3d 79 30 25 3a 74 78  31 25 3d 78 31 25 3a 74  |%=y0%:tx1%=x1%:t|
000044c0  79 31 25 3d 79 31 25 3a  f2 61 6c 69 67 6e 28 68  |y1%=y1%:.align(h|
000044d0  25 2c 54 25 29 0d 14 96  44 f2 64 65 6c 66 69 6c  |%,T%)...D.delfil|
000044e0  65 77 28 68 25 2c 54 25  29 3a 50 25 3d a4 63 72  |ew(h%,T%):P%=.cr|
000044f0  77 69 6e 64 28 74 77 25  28 68 25 2c 54 25 29 29  |wind(tw%(h%,T%))|
00004500  3a 77 25 28 68 25 2c 54  25 29 3d 50 25 3a f2 73  |:w%(h%,T%)=P%:.s|
00004510  64 66 69 6c 65 28 68 25  29 0d 14 a0 2c f2 6f 70  |dfile(h%)...,.op|
00004520  65 6e 28 50 25 2c 74 78  30 25 2c 74 79 30 25 2c  |en(P%,tx0%,ty0%,|
00004530  74 78 31 25 2c 74 79 31  25 2c 30 2c 30 2c 2d 31  |tx1%,ty1%,0,0,-1|
00004540  29 3a 3d 50 25 0d 14 aa  04 0d 14 b4 31 dd a4 63  |):=P%.......1..c|
00004550  72 77 69 6e 64 28 54 25  29 3a c8 99 22 57 69 6d  |rwind(T%):.."Wim|
00004560  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
00004570  2c 54 25 b8 54 25 3a 3d  54 25 0d 14 be 04 0d 14  |,T%.T%:=T%......|
00004580  c8 0e dd f2 69 6e 69 74  70 61 6e 65 0d 14 d2 29  |....initpane...)|
00004590  f2 67 72 61 70 68 3a f2  73 65 74 69 28 77 25 28  |.graph:.seti(w%(|
000045a0  66 69 6c 65 25 2c 31 29  2c 37 2c 73 24 28 66 69  |file%,1),7,s$(fi|
000045b0  6c 65 25 29 29 0d 14 dc  37 f2 73 68 6f 77 73 75  |le%))...7.showsu|
000045c0  62 3a f2 73 68 6f 77 69  6e 64 65 78 3a f2 73 68  |b:.showindex:.sh|
000045d0  6f 77 66 69 6c 74 65 72  3a f2 73 68 6f 77 66 6f  |owfilter:.showfo|
000045e0  75 6e 64 3a f2 73 68 6f  77 6d 61 63 0d 14 e6 05  |und:.showmac....|
000045f0  e1 0d 14 f0 04 0d 14 fa  1d dd f2 67 72 61 70 68  |...........graph|
00004600  3a e7 66 69 6c 65 25 3c  3e 73 6f 75 72 63 65 25  |:.file%<>source%|
00004610  3a e1 0d 15 04 1f ea 50  25 2c 54 25 3a 54 25 3d  |:......P%,T%:T%=|
00004620  66 69 6c 65 25 3a 50 25  3d 77 25 28 54 25 2c 31  |file%:P%=w%(T%,1|
00004630  29 0d 15 0e 31 f2 67 65  74 69 28 50 25 2c 31 32  |)...1.geti(P%,12|
00004640  29 3a c8 99 22 57 69 6d  70 5f 44 65 6c 65 74 65  |):.."Wimp_Delete|
00004650  49 63 6f 6e 22 2c 2c 71  25 3a 71 25 21 34 3d 21  |Icon",,q%:q%!4=!|
00004660  71 25 0d 15 18 31 71 25  21 31 36 3d 36 2b 28 33  |q%...1q%!16=6+(3|
00004670  32 36 2d 36 29 2a a4 76  5f 28 31 37 29 2f 28 a4  |26-6)*.v_(17)/(.|
00004680  76 5f 28 31 36 29 2d 28  a4 76 5f 28 31 36 29 3d  |v_(16)-(.v_(16)=|
00004690  30 29 29 0d 15 22 1d c8  99 22 57 69 6d 70 5f 43  |0)).."..."Wimp_C|
000046a0  72 65 61 74 65 49 63 6f  6e 22 2c 2c 71 25 2b 34  |reateIcon",,q%+4|
000046b0  0d 15 2c 2b c8 99 22 57  69 6d 70 5f 46 6f 72 63  |..,+.."Wimp_Forc|
000046c0  65 52 65 64 72 61 77 22  2c 50 25 2c 36 2c 2d 32  |eRedraw",P%,6,-2|
000046d0  31 36 2c 33 32 36 2c 2d  31 39 36 0d 15 36 0e f2  |16,326,-196..6..|
000046e0  73 68 6f 77 6e 75 6d 3a  e1 0d 15 40 04 0d 15 4a  |shownum:...@...J|
000046f0  0d dd f2 73 68 6f 77 6e  75 6d 0d 15 54 35 ea 50  |...shownum..T5.P|
00004700  25 2c 54 25 2c 54 24 3a  54 25 3d 66 69 6c 65 25  |%,T%,T$:T%=file%|
00004710  3a f2 73 64 66 69 6c 65  28 54 25 29 3a 50 25 3d  |:.sdfile(T%):P%=|
00004720  77 25 28 54 25 2c 31 29  3a e7 50 25 3c 30 e1 0d  |w%(T%,1):.P%<0..|
00004730  15 5e 19 4e 25 3d a4 76  5f 28 31 35 29 3a 52 25  |.^.N%=.v_(15):R%|
00004740  3d a4 76 5f 28 31 37 29  0d 15 68 28 f2 67 65 74  |=.v_(17)..h(.get|
00004750  69 28 50 25 2c 31 33 29  3a c8 99 22 57 69 6d 70  |i(P%,13):.."Wimp|
00004760  5f 44 65 6c 65 74 65 49  63 6f 6e 22 2c 2c 71 25  |_DeleteIcon",,q%|
00004770  0d 15 72 11 e7 a4 62 61  64 72 65 63 28 4e 25 29  |..r...badrec(N%)|
00004780  8c 0d 15 7c 1c 54 24 3d  22 3f 3f 3f 3f 3f 3f 3f  |...|.T$="???????|
00004790  3f 3f 3f 22 3a 71 25 21  31 36 3d 31 30 0d 15 86  |???":q%!16=10...|
000047a0  05 cc 0d 15 90 2c 54 24  3d 22 43 22 2b c2 22 30  |.....,T$="C"+."0|
000047b0  30 30 30 30 30 30 30 30  30 22 2b c3 4e 25 2c ab  |000000000"+.N%,.|
000047c0  28 52 25 2d 28 52 25 3c  31 29 29 2b 31 29 0d 15  |(R%-(R%<1))+1)..|
000047d0  9a 16 e7 4e 25 3d 30 3a  54 24 3d 22 44 65 66 61  |...N%=0:T$="Defa|
000047e0  75 6c 74 22 0d 15 a4 2c  71 25 21 31 36 3d 36 2b  |ult"...,q%!16=6+|
000047f0  28 33 32 36 2d 36 29 2a  4e 25 2f 28 a4 76 5f 28  |(326-6)*N%/(.v_(|
00004800  31 36 29 2d 28 a4 76 5f  28 31 36 29 3d 30 29 29  |16)-(.v_(16)=0))|
00004810  0d 15 ae 05 cd 0d 15 b8  49 71 25 21 34 3d 21 71  |........Iq%!4=!q|
00004820  25 3a 71 25 21 38 3d 71  25 21 31 36 2d 34 3a 71  |%:q%!8=q%!16-4:q|
00004830  25 21 31 32 3d 2d 32 31  36 3a 71 25 21 32 30 3d  |%!12=-216:q%!20=|
00004840  2d 31 39 36 3a c8 99 22  57 69 6d 70 5f 43 72 65  |-196:.."Wimp_Cre|
00004850  61 74 65 49 63 6f 6e 22  2c 2c 71 25 2b 34 0d 15  |ateIcon",,q%+4..|
00004860  c2 23 f2 73 65 74 69 28  50 25 2c 31 34 2c 54 24  |.#.seti(P%,14,T$|
00004870  29 3a f2 69 63 6f 6e 75  70 64 28 50 25 2c 31 32  |):.iconupd(P%,12|
00004880  29 0d 15 cc 05 e1 0d 15  d6 04 0d 15 e0 27 dd f2  |)............'..|
00004890  73 68 6f 77 73 75 62 3a  ea 50 25 3a 50 25 3d 77  |showsub:.P%:P%=w|
000048a0  25 28 66 69 6c 65 25 2c  31 29 3a e7 50 25 3c 30  |%(file%,1):.P%<0|
000048b0  e1 0d 15 ea 25 f2 73 65  74 69 28 50 25 2c 31 37  |....%.seti(P%,17|
000048c0  2c a4 73 75 62 64 65 73  63 29 3a f2 73 68 6f 77  |,.subdesc):.show|
000048d0  73 75 62 31 3a e1 0d 15  f4 04 0d 15 fe 12 dd f2  |sub1:...........|
000048e0  73 68 6f 77 73 75 62 31  3a ea 50 25 0d 16 08 19  |showsub1:.P%....|
000048f0  50 25 3d 77 25 28 66 69  6c 65 25 2c 32 29 3a e7  |P%=w%(file%,2):.|
00004900  50 25 3e 30 8c 0d 16 12  27 f2 73 75 62 64 69 73  |P%>0....'.subdis|
00004910  70 31 3a f2 75 6e 73 65  6c 61 6c 6c 28 50 25 29  |p1:.unselall(P%)|
00004920  3a e7 a4 76 5f 28 31 31  29 3d 30 8c 0d 16 1c 0f  |:..v_(11)=0.....|
00004930  f2 73 65 6c 69 28 50 25  2c 31 29 0d 16 26 05 cc  |.seli(P%,1)..&..|
00004940  0d 16 30 1d f2 73 65 6c  69 28 50 25 2c 28 a4 76  |..0..seli(P%,(.v|
00004950  5f 28 31 31 29 80 33 31  29 2b 32 38 29 0d 16 3a  |_(11).31)+28)..:|
00004960  28 e7 73 75 62 73 65 74  25 3e 33 31 3a f2 73 65  |(.subset%>31:.se|
00004970  6c 69 28 50 25 2c 28 a4  76 5f 28 31 31 29 80 33  |li(P%,(.v_(11).3|
00004980  31 29 2b 34 29 0d 16 44  05 cd 0d 16 4e 05 cd 0d  |1)+4)..D....N...|
00004990  16 58 05 e1 0d 16 62 04  0d 16 6c 2c dd f2 73 68  |.X....b...l,..sh|
000049a0  6f 77 69 6e 64 65 78 3a  ea 50 25 2c 54 25 3a 50  |owindex:.P%,T%:P|
000049b0  25 3d 77 25 28 66 69 6c  65 25 2c 31 29 3a e7 50  |%=w%(file%,1):.P|
000049c0  25 3c 30 e1 0d 16 76 1b  c8 99 73 77 69 25 2c 69  |%<0...v...swi%,i|
000049d0  73 74 61 74 5f 25 2c 2d  31 b8 47 25 2c 54 25 0d  |stat_%,-1.G%,T%.|
000049e0  16 80 1e e7 54 25 3c 3d  30 24 73 64 25 3d 22 20  |....T%<=0$sd%=" |
000049f0  2a 20 4e 6f 20 49 6e 64  65 78 20 2a 22 0d 16 8a  |* No Index *"...|
00004a00  17 f2 73 65 74 69 28 50  25 2c 31 36 2c 24 73 64  |..seti(P%,16,$sd|
00004a10  25 29 3a e1 0d 16 94 04  0d 16 9e 10 dd f2 73 68  |%):...........sh|
00004a20  6f 77 66 69 6c 74 65 72  0d 16 a8 20 ea 50 25 2c  |owfilter... .P%,|
00004a30  54 24 3a 50 25 3d 77 25  28 66 69 6c 65 25 2c 31  |T$:P%=w%(file%,1|
00004a40  29 3a e7 50 25 3c 30 e1  0d 16 b2 40 e7 a4 66 6c  |):.P%<0....@..fl|
00004a50  67 28 66 5f 66 69 6c 74  25 29 54 24 3d a4 74 72  |g(f_filt%)T$=.tr|
00004a60  75 6e 63 28 66 24 28 66  69 6c 65 25 29 2c 31 39  |unc(f$(file%),19|
00004a70  29 3a 8b 54 24 3d 22 20  20 20 2a 20 4e 6f 20 46  |):.T$="   * No F|
00004a80  69 6c 74 65 72 20 2a 22  0d 16 bc 13 f2 73 65 74  |ilter *".....set|
00004a90  69 28 50 25 2c 32 31 2c  54 24 29 0d 16 c6 05 e1  |i(P%,21,T$).....|
00004aa0  0d 16 d0 04 0d 16 da 0d  dd f2 73 68 6f 77 6d 61  |..........showma|
00004ab0  63 0d 16 e4 20 ea 50 25  2c 54 24 3a 50 25 3d 77  |c... .P%,T$:P%=w|
00004ac0  25 28 66 69 6c 65 25 2c  31 29 3a e7 50 25 3c 30  |%(file%,1):.P%<0|
00004ad0  e1 0d 16 ee 2a e7 a4 6d  61 63 6d 6f 64 65 3a f2  |....*..macmode:.|
00004ae0  73 65 6c 69 28 50 25 2c  31 38 29 3a 8b f2 75 6e  |seli(P%,18):..un|
00004af0  73 65 6c 69 28 50 25 2c  31 38 29 0d 16 f8 05 e1  |seli(P%,18).....|
00004b00  0d 17 02 04 0d 17 0c 31  dd a4 74 72 75 6e 63 28  |.......1..trunc(|
00004b10  54 24 2c 54 25 29 3a e7  a9 54 24 3c 3d 54 25 3a  |T$,T%):..T$<=T%:|
00004b20  3d 54 24 3a 8b 3d c0 54  24 2c 54 25 2d 33 29 2b  |=T$:.=.T$,T%-3)+|
00004b30  22 2e 2e 2e 22 0d 17 16  04 0d 17 20 29 dd f2 73  |"..."...... )..s|
00004b40  68 6f 77 66 6f 75 6e 64  3a ea 50 25 3a 50 25 3d  |howfound:.P%:P%=|
00004b50  77 25 28 66 69 6c 65 25  2c 31 29 3a e7 50 25 3c  |w%(file%,1):.P%<|
00004b60  30 e1 0d 17 2a 23 f2 73  65 74 69 28 50 25 2c 32  |0...*#.seti(P%,2|
00004b70  33 2c 22 22 29 3a f2 73  65 74 69 28 50 25 2c 31  |3,""):.seti(P%,1|
00004b80  39 2c 22 22 29 0d 17 34  05 e1 0d 17 3e 04 0d 17  |9,"")..4....>...|
00004b90  48 32 dd f2 64 65 6c 66  69 6c 65 77 73 28 68 25  |H2..delfilews(h%|
00004ba0  29 3a ea 49 25 3a e7 77  25 28 68 25 2c 30 29 3e  |):.I%:.w%(h%,0)>|
00004bb0  30 f2 64 65 6c 77 28 77  25 28 68 25 2c 30 29 29  |0.delw(w%(h%,0))|
00004bc0  0d 17 52 24 e3 49 25 3d  31 b8 6d 61 78 77 25 3a  |..R$.I%=1.maxw%:|
00004bd0  f2 64 65 6c 66 69 6c 65  77 28 68 25 2c 49 25 29  |.delfilew(h%,I%)|
00004be0  3a ed 3a e1 0d 17 5c 04  0d 17 66 15 dd f2 64 65  |:.:...\...f...de|
00004bf0  6c 66 69 6c 65 77 28 68  25 2c 49 25 29 0d 17 70  |lfilew(h%,I%)..p|
00004c00  40 e7 77 25 28 68 25 2c  49 25 29 3e 30 3a f2 63  |@.w%(h%,I%)>0:.c|
00004c10  6c 6f 73 65 77 28 77 25  28 68 25 2c 49 25 29 29  |losew(w%(h%,I%))|
00004c20  3a e7 77 25 28 68 25 2c  49 25 29 3e 30 f2 64 65  |:.w%(h%,I%)>0.de|
00004c30  6c 77 28 77 25 28 68 25  2c 49 25 29 29 0d 17 7a  |lw(w%(h%,I%))..z|
00004c40  05 e1 0d 17 84 04 0d 17  8e 0c dd f2 75 6d 65 73  |............umes|
00004c50  73 32 0d 17 98 0c c8 8e  71 25 21 31 36 ca 0d 17  |s2......q%!16...|
00004c60  a2 24 c9 36 3a e7 71 25  21 38 3d 6c 6f 61 64 72  |.$.6:.q%!8=loadr|
00004c70  65 66 25 3a f2 64 61 74  61 73 61 76 65 61 63 6b  |ef%:.datasaveack|
00004c80  3a e1 0d 17 ac 05 cb 0d  17 b6 05 e1 0d 17 c0 04  |:...............|
00004c90  0d 17 ca 12 dd f2 62 61  63 6b 67 72 6e 64 3a ea  |......backgrnd:.|
00004ca0  54 25 0d 17 d4 1e e7 61  63 6b 70 65 6e 64 69 6e  |T%.....ackpendin|
00004cb0  67 25 3a 61 63 6b 70 65  6e 64 69 6e 67 25 3d a3  |g%:ackpending%=.|
00004cc0  0d 17 de 18 e7 73 62 66  69 6c 65 25 3e 3d 30 3a  |.....sbfile%>=0:|
00004cd0  f2 73 75 62 64 69 73 70  0d 17 e8 11 4c 25 3d 6c  |.subdisp....L%=l|
00004ce0  61 73 74 61 63 74 25 3a  f5 0d 17 f2 17 4c 25 3d  |astact%:.....L%=|
00004cf0  28 4c 25 2b 31 29 83 28  6d 61 78 66 25 2b 31 29  |(L%+1).(maxf%+1)|
00004d00  0d 17 fc 29 fd 4c 25 3d  6c 61 73 74 61 63 74 25  |...).L%=lastact%|
00004d10  84 28 61 25 28 4c 25 29  3e 30 80 4c 25 3c 3e 73  |.(a%(L%)>0.L%<>s|
00004d20  74 6f 70 66 69 6c 65 25  29 0d 18 06 28 e7 61 25  |topfile%)...(.a%|
00004d30  28 4c 25 29 3d 30 84 4c  25 3d 73 74 6f 70 66 69  |(L%)=0.L%=stopfi|
00004d40  6c 65 25 84 64 69 61 6c  6f 67 75 65 25 3e 30 3a  |le%.dialogue%>0:|
00004d50  e1 0d 18 10 2a 6c 61 73  74 61 63 74 25 3d 4c 25  |....*lastact%=L%|
00004d60  3a f2 73 64 66 69 6c 65  28 4c 25 29 3a 54 25 3d  |:.sdfile(L%):T%=|
00004d70  91 3a c8 8e 61 25 28 4c  25 29 ca 0d 18 1a 10 c9  |.:..a%(L%)......|
00004d80  31 3a f2 63 6f 70 79 6e  65 78 74 0d 18 24 05 cb  |1:.copynext..$..|
00004d90  0d 18 2e 28 54 25 3d 28  91 2d 54 25 2b 34 29 81  |...(T%=(.-T%+4).|
00004da0  35 3a e7 54 25 3c 30 54  25 3d 30 3a 8b e7 54 25  |5:.T%<0T%=0:..T%|
00004db0  3e 35 30 54 25 3d 35 30  0d 18 38 2e c8 99 22 4f  |>50T%=50..8..."O|
00004dc0  53 5f 52 65 61 64 4d 6f  6e 6f 74 6f 6e 69 63 54  |S_ReadMonotonicT|
00004dd0  69 6d 65 22 b8 64 65 6c  61 79 25 3a 64 65 6c 61  |ime".delay%:dela|
00004de0  79 25 2b 3d 54 25 0d 18  42 05 e1 0d 18 4c 04 0d  |y%+=T%..B....L..|
00004df0  18 56 2f dd f2 74 65 6d  70 6c 61 74 65 31 28 54  |.V/..template1(T|
00004e00  24 2c 71 25 29 3a 54 24  3d a4 6c 6f 77 65 72 28  |$,q%):T$=.lower(|
00004e10  54 24 29 3a ea 20 49 25  2c 54 25 2c 4c 25 0d 18  |T$):. I%,T%,L%..|
00004e20  60 35 49 25 3d 74 65 6d  70 25 2b 31 36 3a c8 95  |`5I%=temp%+16:..|
00004e30  21 49 25 3e 30 80 a4 6c  6f 77 65 72 28 24 28 49  |!I%>0..lower($(I|
00004e40  25 2b 31 32 29 29 3c 3e  54 24 3a 49 25 2b 3d 32  |%+12))<>T$:I%+=2|
00004e50  34 3a ce 0d 18 6a 2d e7  21 49 25 3c 3d 30 3a 85  |4:...j-.!I%<=0:.|
00004e60  39 39 2c 22 54 65 6d 70  6c 61 74 65 20 27 22 2b  |99,"Template '"+|
00004e70  54 24 2b 22 27 20 6e 6f  74 20 66 6f 75 6e 64 22  |T$+"' not found"|
00004e80  0d 18 74 43 54 25 3d 74  65 6d 70 25 2b 21 49 25  |..tCT%=temp%+!I%|
00004e90  3a 4c 25 3d 49 25 21 34  3a e3 49 25 3d 30 b8 4c  |:L%=I%!4:.I%=0.L|
00004ea0  25 88 34 3a 71 25 21 49  25 3d 54 25 21 49 25 3a  |%.4:q%!I%=T%!I%:|
00004eb0  ed 3a 54 25 3d 71 25 2b  38 38 2b 71 25 21 38 34  |.:T%=q%+88+q%!84|
00004ec0  2a 33 32 0d 18 7e 14 e7  28 71 25 21 35 36 29 80  |*32..~..(q%!56).|
00004ed0  28 31 3c 3c 38 29 8c 0d  18 88 33 71 25 21 37 32  |(1<<8)....3q%!72|
00004ee0  3d a4 77 6f 72 6b 73 70  61 63 65 28 71 25 21 38  |=.workspace(q%!8|
00004ef0  30 29 3a 24 28 71 25 21  37 32 29 3d 24 54 25 3a  |0):$(q%!72)=$T%:|
00004f00  54 25 2b 3d a9 24 54 25  2b 31 0d 18 92 3d e7 71  |T%+=.$T%+1...=.q|
00004f10  25 21 37 36 3e 30 3a 71  25 21 37 36 3d a4 77 6f  |%!76>0:q%!76=.wo|
00004f20  72 6b 73 70 61 63 65 28  a9 24 54 25 2b 31 29 3a  |rkspace(.$T%+1):|
00004f30  24 28 71 25 21 37 36 29  3d 24 54 25 3a 54 25 2b  |$(q%!76)=$T%:T%+|
00004f40  3d a9 24 54 25 2b 31 0d  18 9c 05 cd 0d 18 a6 0d  |=.$T%+1.........|
00004f50  e7 71 25 21 38 34 3e 30  8c 0d 18 b0 1f e3 49 25  |.q%!84>0......I%|
00004f60  3d 71 25 2b 38 38 b8 71  25 2b 38 34 2b 71 25 21  |=q%+88.q%+84+q%!|
00004f70  38 34 2a 33 32 88 33 32  0d 18 ba 14 e7 28 49 25  |84*32.32.....(I%|
00004f80  21 31 36 29 80 28 31 3c  3c 38 29 8c 0d 18 c4 33  |!16).(1<<8)....3|
00004f90  49 25 21 32 30 3d a4 77  6f 72 6b 73 70 61 63 65  |I%!20=.workspace|
00004fa0  28 49 25 21 32 38 29 3a  24 28 49 25 21 32 30 29  |(I%!28):$(I%!20)|
00004fb0  3d 24 54 25 3a 54 25 2b  3d a9 24 54 25 2b 31 0d  |=$T%:T%+=.$T%+1.|
00004fc0  18 ce 3d e7 49 25 21 32  34 3e 30 3a 49 25 21 32  |..=.I%!24>0:I%!2|
00004fd0  34 3d a4 77 6f 72 6b 73  70 61 63 65 28 a9 24 54  |4=.workspace(.$T|
00004fe0  25 2b 31 29 3a 24 28 49  25 21 32 34 29 3d 24 54  |%+1):$(I%!24)=$T|
00004ff0  25 3a 54 25 2b 3d a9 24  54 25 2b 31 0d 18 d8 05  |%:T%+=.$T%+1....|
00005000  cd 0d 18 e2 05 ed 0d 18  ec 05 cd 0d 18 f6 12 71  |...............q|
00005010  25 21 36 34 3d 73 70 72  69 74 65 73 25 0d 19 00  |%!64=sprites%...|
00005020  05 e1 0d 19 0a 04 0d 19  14 24 dd f2 6f 70 65 6e  |.........$..open|
00005030  74 65 6d 70 6c 61 74 65  28 41 24 29 3a 74 65 6d  |template(A$):tem|
00005040  70 25 3d 93 2d 33 30 30  30 30 0d 19 1e 1d ff 22  |p%=.-30000....."|
00005050  4c 6f 61 64 20 22 2b 41  24 2b 22 20 22 2b c3 7e  |Load "+A$+" "+.~|
00005060  74 65 6d 70 25 3a e1 0d  19 28 04 0d 19 32 12 dd  |temp%:...(...2..|
00005070  f2 74 65 6d 70 6c 61 74  65 28 54 24 29 0d 19 3c  |.template(T$)..<|
00005080  15 f2 74 65 6d 70 6c 61  74 65 31 28 54 24 2c 71  |..template1(T$,q|
00005090  25 29 0d 19 46 05 e1 0d  19 50 04 0d 19 5a 12 dd  |%)..F....P...Z..|
000050a0  a4 74 65 6d 70 6c 61 74  65 28 54 24 29 0d 19 64  |.template(T$)..d|
000050b0  17 f2 74 65 6d 70 6c 61  74 65 31 28 54 24 2c 74  |..template1(T$,t|
000050c0  62 73 25 29 0d 19 6e 1f  54 25 3d 74 62 73 25 3a  |bs%)..n.T%=tbs%:|
000050d0  74 62 73 25 2b 3d 38 38  2b 74 62 73 25 21 38 34  |tbs%+=88+tbs%!84|
000050e0  2a 33 32 0d 19 78 29 e7  74 62 73 25 3e 74 62 65  |*32..x).tbs%>tbe|
000050f0  25 3a 85 39 39 2c 22 54  65 6d 70 6c 61 74 65 20  |%:.99,"Template |
00005100  62 75 66 66 65 72 20 66  75 6c 6c 22 0d 19 82 07  |buffer full"....|
00005110  3d 54 25 0d 19 8c 04 0d  19 96 0b dd f2 64 65 66  |=T%..........def|
00005120  77 73 0d 19 a0 07 ea 49  25 0d 19 aa 10 62 75 66  |ws.....I%....buf|
00005130  73 7a 25 3d 26 33 30 30  30 0d 19 b4 3b de 20 62  |sz%=&3000...;. b|
00005140  75 66 66 65 72 25 20 62  75 66 73 7a 25 3a 63 75  |uffer% bufsz%:cu|
00005150  72 62 75 66 25 3d 62 75  66 66 65 72 25 3a 65 6e  |rbuf%=buffer%:en|
00005160  64 62 75 66 25 3d 62 75  66 66 65 72 25 2b 62 75  |dbuf%=buffer%+bu|
00005170  66 73 7a 25 0d 19 be 20  f2 6f 70 65 6e 74 65 6d  |fsz%... .opentem|
00005180  70 6c 61 74 65 28 a4 64  69 72 2b 22 4d 53 46 72  |plate(.dir+"MSFr|
00005190  6d 35 22 29 0d 19 c8 3a  f2 74 65 6d 70 6c 61 74  |m5")...:.templat|
000051a0  65 28 22 73 74 6f 70 62  6f 78 22 29 3a c8 99 22  |e("stopbox"):.."|
000051b0  57 69 6d 70 5f 43 72 65  61 74 65 57 69 6e 64 6f  |Wimp_CreateWindo|
000051c0  77 22 2c 2c 71 25 b8 77  5f 73 74 6f 70 25 0d 19  |w",,q%.w_stop%..|
000051d0  d2 15 f2 74 65 6d 70 6c  61 74 65 28 22 73 61 76  |...template("sav|
000051e0  65 22 29 0d 19 dc 2d 71  25 21 36 34 3d 31 3a c8  |e")...-q%!64=1:.|
000051f0  99 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  |."Wimp_CreateWin|
00005200  64 6f 77 22 2c 2c 71 25  b8 77 5f 73 61 76 65 25  |dow",,q%.w_save%|
00005210  0d 19 e6 3c f2 74 65 6d  70 6c 61 74 65 28 22 50  |...<.template("P|
00005220  72 6f 67 49 6e 66 6f 22  29 3a c8 99 22 57 69 6d  |rogInfo"):.."Wim|
00005230  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
00005240  2c 71 25 b8 77 5f 70 69  6e 66 6f 25 0d 19 f0 3e  |,q%.w_pinfo%...>|
00005250  f2 74 65 6d 70 6c 61 74  65 28 22 50 72 6f 67 49  |.template("ProgI|
00005260  6e 66 6f 32 22 29 3a c8  99 22 57 69 6d 70 5f 43  |nfo2"):.."Wimp_C|
00005270  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 71 25  |reateWindow",,q%|
00005280  b8 77 5f 70 69 6e 66 6f  32 25 0d 19 fa 3b f2 74  |.w_pinfo2%...;.t|
00005290  65 6d 70 6c 61 74 65 28  22 73 68 61 64 6f 77 22  |emplate("shadow"|
000052a0  29 3a c8 99 22 57 69 6d  70 5f 43 72 65 61 74 65  |):.."Wimp_Create|
000052b0  57 69 6e 64 6f 77 22 2c  2c 71 25 b8 77 5f 73 68  |Window",,q%.w_sh|
000052c0  61 64 6f 77 25 0d 1a 04  10 62 75 66 73 7a 25 3d  |adow%....bufsz%=|
000052d0  26 34 35 30 30 0d 1a 0e  36 de 20 74 65 6d 70 6c  |&4500...6. templ|
000052e0  61 74 65 25 20 62 75 66  73 7a 25 3a 74 62 73 25  |ate% bufsz%:tbs%|
000052f0  3d 74 65 6d 70 6c 61 74  65 25 3a 74 62 65 25 3d  |=template%:tbe%=|
00005300  74 62 73 25 2b 62 75 66  73 7a 25 0d 1a 18 0f e3  |tbs%+bufsz%.....|
00005310  49 25 3d 30 b8 6d 61 78  66 25 0d 1a 22 1f 74 77  |I%=0.maxf%..".tw|
00005320  25 28 49 25 2c 30 29 3d  a4 74 65 6d 70 6c 61 74  |%(I%,0)=.templat|
00005330  65 28 22 66 69 6c 65 22  29 0d 1a 2c 23 74 77 25  |e("file")..,#tw%|
00005340  28 49 25 2c 31 29 3d a4  74 65 6d 70 6c 61 74 65  |(I%,1)=.template|
00005350  28 22 66 69 6c 65 70 61  6e 65 22 29 0d 1a 36 22  |("filepane")..6"|
00005360  74 77 25 28 49 25 2c 32  29 3d a4 74 65 6d 70 6c  |tw%(I%,2)=.templ|
00005370  61 74 65 28 22 73 75 62  73 65 74 73 22 29 0d 1a  |ate("subsets")..|
00005380  40 24 74 77 25 28 49 25  2c 33 29 3d a4 74 65 6d  |@$tw%(I%,3)=.tem|
00005390  70 6c 61 74 65 28 22 46  69 65 6c 64 4c 69 73 74  |plate("FieldList|
000053a0  22 29 0d 1a 4a 24 74 77  25 28 49 25 2c 34 29 3d  |")..J$tw%(I%,4)=|
000053b0  a4 74 65 6d 70 6c 61 74  65 28 22 46 69 65 6c 64  |.template("Field|
000053c0  4c 69 73 74 22 29 0d 1a  54 24 74 77 25 28 49 25  |List")..T$tw%(I%|
000053d0  2c 35 29 3d a4 74 65 6d  70 6c 61 74 65 28 22 46  |,5)=.template("F|
000053e0  69 65 6c 64 4c 69 73 74  22 29 0d 1a 5e 22 74 77  |ieldList")..^"tw|
000053f0  25 28 49 25 2c 36 29 3d  a4 74 65 6d 70 6c 61 74  |%(I%,6)=.templat|
00005400  65 28 22 4e 6f 74 65 70  61 64 22 29 0d 1a 68 20  |e("Notepad")..h |
00005410  74 77 25 28 49 25 2c 37  29 3d a4 74 65 6d 70 6c  |tw%(I%,7)=.templ|
00005420  61 74 65 28 22 4d 61 63  72 6f 22 29 0d 1a 72 05  |ate("Macro")..r.|
00005430  ed 0d 1a 7c 20 f2 6f 70  65 6e 74 65 6d 70 6c 61  |...| .opentempla|
00005440  74 65 28 a4 64 69 72 2b  22 4d 53 46 72 6d 36 22  |te(.dir+"MSFrm6"|
00005450  29 0d 1a 86 31 74 77 5f  65 78 70 72 25 3d a4 74  |)...1tw_expr%=.t|
00005460  65 6d 70 6c 61 74 65 28  22 65 78 70 72 65 73 73  |emplate("express|
00005470  69 6f 6e 22 29 3a 77 5f  65 78 70 72 25 3d 2d 31  |ion"):w_expr%=-1|
00005480  45 39 0d 1a 90 2e 74 77  5f 6e 75 6d 73 25 3d a4  |E9....tw_nums%=.|
00005490  74 65 6d 70 6c 61 74 65  28 22 6e 75 6d 65 72 69  |template("numeri|
000054a0  63 22 29 3a 77 5f 6e 75  6d 73 25 3d 2d 31 45 39  |c"):w_nums%=-1E9|
000054b0  0d 1a 9a 2b 74 77 5f 6f  70 65 6e 25 3d a4 74 65  |...+tw_open%=.te|
000054c0  6d 70 6c 61 74 65 28 22  6f 70 65 6e 22 29 3a 77  |mplate("open"):w|
000054d0  5f 6f 70 65 6e 25 3d 2d  31 45 39 0d 1a a4 31 74  |_open%=-1E9...1t|
000054e0  77 5f 73 74 61 74 75 73  25 3d a4 74 65 6d 70 6c  |w_status%=.templ|
000054f0  61 74 65 28 22 53 74 61  74 75 73 22 29 3a 77 5f  |ate("Status"):w_|
00005500  73 74 61 74 75 73 25 3d  2d 31 45 39 0d 1a ae 2e  |status%=-1E9....|
00005510  74 77 5f 6d 65 73 73 25  3d a4 74 65 6d 70 6c 61  |tw_mess%=.templa|
00005520  74 65 28 22 6d 65 73 73  61 67 65 22 29 3a 77 5f  |te("message"):w_|
00005530  6d 65 73 73 25 3d 2d 31  45 39 0d 1a b8 37 74 77  |mess%=-1E9...7tw|
00005540  5f 74 72 61 6e 73 66 65  72 25 3d a4 74 65 6d 70  |_transfer%=.temp|
00005550  6c 61 74 65 28 22 74 72  61 6e 73 66 65 72 22 29  |late("transfer")|
00005560  3a 77 5f 74 72 61 6e 73  66 65 72 25 3d 2d 31 45  |:w_transfer%=-1E|
00005570  39 0d 1a c2 37 74 77 5f  74 72 61 6e 73 65 78 70  |9...7tw_transexp|
00005580  25 3d a4 74 65 6d 70 6c  61 74 65 28 22 74 72 61  |%=.template("tra|
00005590  6e 73 65 78 70 22 29 3a  77 5f 74 72 61 6e 73 65  |nsexp"):w_transe|
000055a0  78 70 25 3d 2d 31 45 39  0d 1a cc 05 e1 0d 1a d6  |xp%=-1E9........|
000055b0  04 0d 1a e0 11 dd f2 6c  6f 61 64 73 70 72 69 74  |.......loadsprit|
000055c0  65 73 0d 1a ea 12 73 73  69 7a 65 25 3d 31 36 2a  |es....ssize%=16*|
000055d0  31 30 32 34 0d 1a f4 14  de 73 70 72 69 74 65 73  |1024.....sprites|
000055e0  25 20 73 73 69 7a 65 25  0d 1a fe 32 21 73 70 72  |% ssize%...2!spr|
000055f0  69 74 65 73 25 3d 73 73  69 7a 65 25 3a c8 99 22  |ites%=ssize%:.."|
00005600  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 30  |OS_SpriteOp",&10|
00005610  39 2c 73 70 72 69 74 65  73 25 0d 1b 08 2e c8 99  |9,sprites%......|
00005620  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00005630  30 41 2c 73 70 72 69 74  65 73 25 2c a4 64 69 72  |0A,sprites%,.dir|
00005640  2b 22 4d 53 53 70 72 22  0d 1b 12 05 e1 0d 1b 1c  |+"MSSpr"........|
00005650  04 0d 1b 26 0e dd f2 64  65 66 6d 65 6e 75 73 0d  |...&...defmenus.|
00005660  1b 30 07 ea 74 24 0d 1b  3a 1c de 20 6d 6c 69 73  |.0..t$..:.. mlis|
00005670  74 25 20 33 32 2c 66 75  6e 63 74 69 6f 6e 25 20  |t% 32,function% |
00005680  35 31 0d 1b 44 0f 62 75  66 73 7a 25 3d 26 39 30  |51..D.bufsz%=&90|
00005690  30 0d 1b 4e 43 de 20 6d  65 6e 75 66 72 65 65 25  |0..NC. menufree%|
000056a0  20 62 75 66 73 7a 25 3a  6d 65 6e 75 70 74 72 25  | bufsz%:menuptr%|
000056b0  3d 6d 65 6e 75 66 72 65  65 25 3a 6d 65 6e 75 65  |=menufree%:menue|
000056c0  6e 64 25 3d 6d 65 6e 75  66 72 65 65 25 2b 62 75  |nd%=menufree%+bu|
000056d0  66 73 7a 25 0d 1b 58 1c  6d 65 6e 75 73 74 61 72  |fsz%..X.menustar|
000056e0  74 25 3d 6d 65 6e 75 66  72 65 65 25 3a f7 2b 32  |t%=menufree%:.+2|
000056f0  0d 1b 62 1b f3 74 24 3a  6d 5f 6e 70 61 64 25 3d  |..b..t$:m_npad%=|
00005700  a4 63 72 6d 65 6e 75 28  74 24 29 0d 1b 6c 2b dc  |.crmenu(t$)..l+.|
00005710  22 23 4e 6f 74 65 70 61  64 2c 43 6c 65 61 72 2c  |"#Notepad,Clear,|
00005720  45 78 70 6f 72 74 3e 77  5f 73 61 76 65 25 2c 55  |Export>w_save%,U|
00005730  70 64 61 74 65 22 0d 1b  76 1b f3 74 24 3a 6d 5f  |pdate"..v..t$:m_|
00005740  6d 61 69 6e 25 3d a4 63  72 6d 65 6e 75 28 74 24  |main%=.crmenu(t$|
00005750  29 0d 1b 80 4e dc 22 23  4d 75 6c 74 69 53 74 6f  |)...N."#MultiSto|
00005760  72 65 2c 49 6e 66 6f 3e  77 5f 70 69 6e 66 6f 25  |re,Info>w_pinfo%|
00005770  2c 54 72 61 6e 73 66 65  72 2c 46 61 73 74 20 53  |,Transfer,Fast S|
00005780  6f 72 74 2c 43 72 65 61  74 65 2c 53 74 61 74 75  |ort,Create,Statu|
00005790  73 2c 50 72 69 6e 74 65  72 2c 51 75 69 74 22 0d  |s,Printer,Quit".|
000057a0  1b 8a 1d f3 74 24 3a 6d  5f 6d 61 63 72 6f 31 25  |....t$:m_macro1%|
000057b0  3d a4 63 72 6d 65 6e 75  28 74 24 29 0d 1b 94 27  |=.crmenu(t$)...'|
000057c0  dc 22 23 4d 61 63 72 6f  2c 55 73 65 23 2c 43 6c  |."#Macro,Use#,Cl|
000057d0  65 61 72 2c 45 78 70 6f  72 74 3e 77 5f 73 61 76  |ear,Export>w_sav|
000057e0  65 25 22 0d 1b 9e 1b f3  74 24 3a 6d 5f 77 69 6e  |e%".....t$:m_win|
000057f0  64 25 3d a4 63 72 6d 65  6e 75 28 74 24 29 0d 1b  |d%=.crmenu(t$)..|
00005800  a8 38 dc 22 23 57 69 6e  64 6f 77 2c 53 75 62 73  |.8."#Window,Subs|
00005810  65 74 2c 46 69 65 6c 64  2c 49 6e 64 65 78 2c 4e  |et,Field,Index,N|
00005820  6f 74 65 70 61 64 2c 4d  61 63 72 6f 23 2c 54 69  |otepad,Macro#,Ti|
00005830  64 79 20 55 70 22 0d 1b  b2 1b f3 74 24 3a 6d 5f  |dy Up".....t$:m_|
00005840  63 61 72 64 25 3d a4 63  72 6d 65 6e 75 28 74 24  |card%=.crmenu(t$|
00005850  29 0d 1b bc 38 dc 22 23  43 61 72 64 2c 54 6f 6f  |)...8."#Card,Too|
00005860  6c 73 3e 77 5f 70 69 6e  66 6f 25 2c 4d 61 63 72  |ls>w_pinfo%,Macr|
00005870  6f 2c 44 65 66 61 75 6c  74 2c 57 69 6e 64 6f 77  |o,Default,Window|
00005880  3e 6d 5f 77 69 6e 64 25  22 0d 1b c6 1c f3 74 24  |>m_wind%".....t$|
00005890  3a 6d 5f 72 74 79 70 65  25 3d a4 63 72 6d 65 6e  |:m_rtype%=.crmen|
000058a0  75 28 74 24 29 0d 1b d0  35 dc 22 23 54 79 70 65  |u(t$)...5."#Type|
000058b0  2c 43 61 72 64 73 2c 53  68 65 65 74 2c 46 6f 72  |,Cards,Sheet,For|
000058c0  6d 75 6c 61 2c 4c 61 62  65 6c 73 2c 57 6f 72 64  |mula,Labels,Word|
000058d0  70 72 6f 2c 50 61 67 65  64 22 0d 1b da 1c f3 74  |pro,Paged".....t|
000058e0  24 3a 6d 5f 72 73 65 74  31 25 3d a4 63 72 6d 65  |$:m_rset1%=.crme|
000058f0  6e 75 28 74 24 29 0d 1b  e4 25 dc 22 23 53 65 74  |nu(t$)...%."#Set|
00005900  75 70 2c 45 64 69 74 2c  43 6c 65 61 72 2c 53 61  |up,Edit,Clear,Sa|
00005910  76 65 7d 77 5f 73 61 76  65 25 22 0d 1b ee 1d f3  |ve}w_save%".....|
00005920  74 24 3a 6d 5f 72 65 70  6f 72 74 25 3d a4 63 72  |t$:m_report%=.cr|
00005930  6d 65 6e 75 28 74 24 29  0d 1b f8 40 dc 22 23 52  |menu(t$)...@."#R|
00005940  65 70 6f 72 74 2c 54 79  70 65 3e 6d 5f 72 74 79  |eport,Type>m_rty|
00005950  70 65 25 2c 53 65 74 75  70 3e 6d 5f 72 73 65 74  |pe%,Setup>m_rset|
00005960  31 25 2c 50 72 69 6e 74  2c 45 78 70 6f 72 74 7d  |1%,Print,Export}|
00005970  77 5f 73 61 76 65 25 22  0d 1c 02 1d f3 74 24 3a  |w_save%".....t$:|
00005980  6d 5f 73 74 61 74 75 73  25 3d a4 63 72 6d 65 6e  |m_status%=.crmen|
00005990  75 28 74 24 29 0d 1c 0c  5f dc 22 23 53 74 61 74  |u(t$)..._."#Stat|
000059a0  75 73 6d 65 6e 75 2e 2e  2c 41 6c 69 67 6e 20 57  |usmenu..,Align W|
000059b0  69 6e 64 6f 77 73 2c 52  65 61 64 20 57 6f 72 6b  |indows,Read Work|
000059c0  73 70 61 63 65 2c 57 72  69 74 65 20 57 6f 72 6b  |space,Write Work|
000059d0  73 70 61 63 65 2c 55 70  64 61 74 65 20 4d 65 64  |space,Update Med|
000059e0  69 61 2c 45 78 74 65 6e  64 65 64 20 43 68 61 72  |ia,Extended Char|
000059f0  73 65 74 22 0d 1c 16 1c  f3 74 24 3a 6d 5f 69 6e  |set".....t$:m_in|
00005a00  64 65 78 25 3d a4 63 72  6d 65 6e 75 28 74 24 29  |dex%=.crmenu(t$)|
00005a10  0d 1c 20 2c dc 22 23 49  6e 64 65 78 2c 41 73 63  |.. ,."#Index,Asc|
00005a20  65 6e 64 69 6e 67 2c 44  65 73 63 65 6e 64 69 6e  |ending,Descendin|
00005a30  67 23 2c 4e 6f 20 49 6e  64 65 78 22 0d 1c 2a 1f  |g#,No Index"..*.|
00005a40  f3 74 24 3a 6d 5f 74 72  61 6e 73 66 65 72 25 3d  |.t$:m_transfer%=|
00005a50  a4 63 72 6d 65 6e 75 28  74 24 29 0d 1c 34 4e dc  |.crmenu(t$)..4N.|
00005a60  22 23 54 72 61 6e 73 66  65 72 2c 53 77 61 70 20  |"#Transfer,Swap |
00005a70  46 69 6c 65 73 2c 4f 70  65 6e 20 54 61 72 67 65  |Files,Open Targe|
00005a80  74 2c 43 6c 65 61 72 20  53 65 74 75 70 2c 44 65  |t,Clear Setup,De|
00005a90  66 61 75 6c 74 2c 53 61  76 65 20 53 65 74 75 70  |fault,Save Setup|
00005aa0  3e 77 5f 73 61 76 65 25  22 0d 1c 3e 05 e1 0d 1c  |>w_save%"..>....|
00005ab0  48 04 0d 1c 52 15 dd f2  66 72 6f 6e 74 28 68 25  |H...R...front(h%|
00005ac0  2c 58 25 2c 59 25 29 0d  1c 5c 0d f2 67 65 74 77  |,X%,Y%)..\..getw|
00005ad0  28 68 25 29 0d 1c 66 1c  e7 58 25 3e 3d 30 78 31  |(h%)..f..X%>=0x1|
00005ae0  25 2b 3d 58 25 2d 78 30  25 3a 78 30 25 3d 58 25  |%+=X%-x0%:x0%=X%|
00005af0  0d 1c 70 1c e7 59 25 3e  3d 30 79 31 25 2b 3d 59  |..p..Y%>=0y1%+=Y|
00005b00  25 2d 79 30 25 3a 79 30  25 3d 59 25 0d 1c 7a 2a  |%-y0%:y0%=Y%..z*|
00005b10  f2 6f 70 65 6e 28 68 25  2c 78 30 25 2c 79 30 25  |.open(h%,x0%,y0%|
00005b20  2c 78 31 25 2c 79 31 25  2c 73 63 78 25 2c 73 63  |,x1%,y1%,scx%,sc|
00005b30  79 25 2c 2d 31 29 0d 1c  84 05 e1 0d 1c 8e 04 0d  |y%,-1)..........|
00005b40  1c 98 0d dd f2 74 6f 70  28 68 25 29 0d 1c a2 36  |.....top(h%)...6|
00005b50  f2 67 65 74 77 28 68 25  29 3a f2 6f 70 65 6e 28  |.getw(h%):.open(|
00005b60  68 25 2c 78 30 25 2c 79  30 25 2c 78 31 25 2c 79  |h%,x0%,y0%,x1%,y|
00005b70  31 25 2c 73 63 78 25 2c  73 63 79 25 2c 2d 31 29  |1%,scx%,scy%,-1)|
00005b80  3a e1 0d 1c ac 04 0d 1c  b6 34 dd f2 6f 70 65 6e  |:........4..open|
00005b90  28 6f 68 25 2c 6f 78 30  25 2c 6f 79 30 25 2c 6f  |(oh%,ox0%,oy0%,o|
00005ba0  78 31 25 2c 6f 79 31 25  2c 6f 73 63 78 25 2c 6f  |x1%,oy1%,oscx%,o|
00005bb0  73 63 79 25 2c 6f 62 68  25 29 0d 1c c0 13 ea 4f  |scy%,obh%).....O|
00005bc0  25 2c 66 25 3a 66 25 3d  66 69 6c 65 25 0d 1c ca  |%,f%:f%=file%...|
00005bd0  27 21 71 25 3d 6f 68 25  3a c8 99 22 57 69 6d 70  |'!q%=oh%:.."Wimp|
00005be0  5f 47 65 74 57 69 6e 64  6f 77 53 74 61 74 65 22  |_GetWindowState"|
00005bf0  2c 2c 71 25 0d 1c d4 19  f2 77 74 6f 66 28 6f 68  |,,q%.....wtof(oh|
00005c00  25 29 3a e7 66 69 6c 65  25 3e 3d 30 8c 0d 1c de  |%):.file%>=0....|
00005c10  0c c8 8e 77 69 6e 64 25  ca 0d 1c e8 2a c9 30 3a  |...wind%....*.0:|
00005c20  e7 66 69 6c 65 25 3c 3e  74 61 72 67 65 74 25 f2  |.file%<>target%.|
00005c30  6f 70 65 6e 70 61 6e 65  3a 8b f2 77 69 6d 70 6f  |openpane:..wimpo|
00005c40  70 65 6e 0d 1c f2 0f 7f  3a f2 77 69 6d 70 6f 70  |pen.....:.wimpop|
00005c50  65 6e 0d 1c fc 05 cb 0d  1d 06 05 cc 0d 1d 10 0a  |en..............|
00005c60  c8 8e 6f 68 25 ca 0d 1d  1a 0f 7f 3a f2 77 69 6d  |..oh%......:.wim|
00005c70  70 6f 70 65 6e 0d 1d 24  05 cb 0d 1d 2e 05 cd 0d  |popen..$........|
00005c80  1d 38 65 e7 6f 68 25 3d  64 69 61 6c 6f 67 75 65  |.8e.oh%=dialogue|
00005c90  25 80 73 68 61 64 6f 77  73 25 3a f2 67 65 74 77  |%.shadows%:.getw|
00005ca0  28 6f 68 25 29 3a f2 6f  70 65 6e 28 77 5f 73 68  |(oh%):.open(w_sh|
00005cb0  61 64 6f 77 25 2c 78 30  25 2b 73 73 25 2c 79 30  |adow%,x0%+ss%,y0|
00005cc0  25 2d 73 73 25 2c 78 31  25 2b 73 73 25 2c 79 31  |%-ss%,x1%+ss%,y1|
00005cd0  25 2d 73 73 25 2c 30 2c  30 2c 64 69 61 6c 6f 67  |%-ss%,0,0,dialog|
00005ce0  75 65 25 29 0d 1d 42 1f  6f 70 65 6e 25 3d 4f 25  |ue%)..B.open%=O%|
00005cf0  3a e7 66 25 3e 3d 30 3a  f2 73 64 66 69 6c 65 28  |:.f%>=0:.sdfile(|
00005d00  66 25 29 0d 1d 4c 05 e1  0d 1d 56 04 0d 1d 60 0e  |f%)..L....V...`.|
00005d10  dd f2 77 69 6d 70 6f 70  65 6e 0d 1d 6a 35 21 71  |..wimpopen..j5!q|
00005d20  25 3d 6f 68 25 3a 71 25  21 34 3d 6f 78 30 25 3a  |%=oh%:q%!4=ox0%:|
00005d30  71 25 21 38 3d 6f 79 30  25 3a 71 25 21 31 32 3d  |q%!8=oy0%:q%!12=|
00005d40  6f 78 31 25 3a 71 25 21  31 36 3d 6f 79 31 25 0d  |ox1%:q%!16=oy1%.|
00005d50  1d 74 3e 71 25 21 32 30  3d 6f 73 63 78 25 3a 71  |.t>q%!20=oscx%:q|
00005d60  25 21 32 34 3d 6f 73 63  79 25 3a 71 25 21 32 38  |%!24=oscy%:q%!28|
00005d70  3d 6f 62 68 25 3a c8 99  22 57 69 6d 70 5f 4f 70  |=obh%:.."Wimp_Op|
00005d80  65 6e 57 69 6e 64 6f 77  22 2c 2c 71 25 0d 1d 7e  |enWindow",,q%..~|
00005d90  05 e1 0d 1d 88 04 0d 1d  92 0e dd f2 6f 70 65 6e  |............open|
00005da0  70 61 6e 65 0d 1d 9c 1f  e7 ac a4 66 6c 67 28 66  |pane.......flg(f|
00005db0  5f 70 61 6e 65 25 29 3a  f2 77 69 6d 70 6f 70 65  |_pane%):.wimpope|
00005dc0  6e 3a e1 0d 1d a6 19 ea  50 25 2c 66 25 3a 50 25  |n:......P%,f%:P%|
00005dd0  3d 77 25 28 66 69 6c 65  25 2c 31 29 0d 1d b0 22  |=w%(file%,1)..."|
00005de0  66 25 3d 6f 79 31 25 2d  70 61 6e 65 68 25 3a e7  |f%=oy1%-paneh%:.|
00005df0  66 25 3c 6f 79 30 25 66  25 3d 6f 79 30 25 0d 1d  |f%<oy0%f%=oy0%..|
00005e00  ba 0d f2 67 65 74 77 28  50 25 29 0d 1d c4 24 e7  |...getw(P%)...$.|
00005e10  62 68 61 6e 64 6c 65 25  3d 6f 62 68 25 84 6f 62  |bhandle%=obh%.ob|
00005e20  68 25 3d 77 25 28 66 69  6c 65 25 2c 30 29 8c 0d  |h%=w%(file%,0)..|
00005e30  1d ce 0b 6f 62 68 25 3d  50 25 0d 1d d8 3a e7 ac  |...obh%=P%...:..|
00005e40  6f 70 65 6e 25 f2 6f 70  65 6e 28 50 25 2c 6f 78  |open%.open(P%,ox|
00005e50  30 25 2d 70 61 6e 65 77  25 2d 34 2c 66 25 2c 6f  |0%-panew%-4,f%,o|
00005e60  78 30 25 2d 34 2c 6f 79  31 25 2c 30 2c 30 2c 6f  |x0%-4,oy1%,0,0,o|
00005e70  62 68 25 29 0d 1d e2 05  cd 0d 1d ec 2c f2 67 65  |bh%)........,.ge|
00005e80  74 77 28 50 25 29 3a 66  25 3d 6f 79 31 25 2d 70  |tw(P%):f%=oy1%-p|
00005e90  61 6e 65 68 25 3a e7 66  25 3c 6f 79 30 25 66 25  |aneh%:.f%<oy0%f%|
00005ea0  3d 6f 79 30 25 0d 1d f6  0d f2 77 69 6d 70 6f 70  |=oy0%.....wimpop|
00005eb0  65 6e 0d 1e 00 2d f2 67  65 74 77 28 77 25 28 66  |en...-.getw(w%(f|
00005ec0  69 6c 65 25 2c 30 29 29  3a e7 6f 62 68 25 3d 2d  |ile%,0)):.obh%=-|
00005ed0  32 3a 6f 62 68 25 3d 62  68 61 6e 64 6c 65 25 0d  |2:obh%=bhandle%.|
00005ee0  1e 0a 22 66 25 3d 6f 79  31 25 2d 70 61 6e 65 68  |.."f%=oy1%-paneh|
00005ef0  25 3a e7 66 25 3c 6f 79  30 25 66 25 3d 6f 79 30  |%:.f%<oy0%f%=oy0|
00005f00  25 0d 1e 14 30 f2 6f 70  65 6e 28 50 25 2c 78 30  |%...0.open(P%,x0|
00005f10  25 2d 70 61 6e 65 77 25  2d 34 2c 66 25 2c 78 30  |%-panew%-4,f%,x0|
00005f20  25 2d 34 2c 79 31 25 2c  30 2c 30 2c 6f 62 68 25  |%-4,y1%,0,0,obh%|
00005f30  29 0d 1e 1e 05 e1 0d 1e  28 04 0d 1e 32 11 dd f2  |).......(...2...|
00005f40  63 6c 6f 73 65 77 28 21  71 25 29 0d 1e 3c 13 ea  |closew(!q%)..<..|
00005f50  49 25 2c 66 25 3a 66 25  3d 66 69 6c 65 25 0d 1e  |I%,f%:f%=file%..|
00005f60  46 0e f2 77 74 6f 66 28  21 71 25 29 0d 1e 50 0e  |F..wtof(!q%)..P.|
00005f70  e7 66 69 6c 65 25 3e 3d  30 8c 0d 1e 5a 0c c8 8e  |.file%>=0...Z...|
00005f80  77 69 6e 64 25 ca 0d 1e  64 2c c9 30 3a e7 a4 73  |wind%...d,.0:..s|
00005f90  68 6f 77 62 72 61 6e 63  68 3a e1 3a 8b e7 ac 63  |howbranch:.:...c|
00005fa0  6c 6f 73 65 6f 6b 25 3a  f2 63 6c 6f 73 65 6f 6b  |loseok%:.closeok|
00005fb0  3a e1 0d 1e 6e 39 c9 33  3a e7 66 69 6c 65 25 3d  |:...n9.3:.file%=|
00005fc0  65 64 66 69 6c 65 25 3a  e7 65 64 72 65 63 25 3e  |edfile%:.edrec%>|
00005fd0  3d 30 3a f2 65 6e 64 65  64 69 74 3a 21 71 25 3d  |=0:.endedit:!q%=|
00005fe0  77 25 28 66 69 6c 65 25  2c 33 29 0d 1e 78 05 cb  |w%(file%,3)..x..|
00005ff0  0d 1e 82 05 cd 0d 1e 8c  1c e7 21 71 25 3d 64 69  |..........!q%=di|
00006000  61 6c 6f 67 75 65 25 3a  f2 74 69 64 79 64 69 61  |alogue%:.tidydia|
00006010  6c 0d 1e 96 1c c8 99 22  57 69 6d 70 5f 43 6c 6f  |l......"Wimp_Clo|
00006020  73 65 57 69 6e 64 6f 77  22 2c 2c 71 25 0d 1e a0  |seWindow",,q%...|
00006030  21 f2 6e 6f 64 69 61 6c  3a f2 77 74 6f 66 28 21  |!.nodial:.wtof(!|
00006040  71 25 29 3a e7 66 69 6c  65 25 3e 3d 30 8c 0d 1e  |q%):.file%>=0...|
00006050  aa 0c c8 8e 77 69 6e 64  25 ca 0d 1e b4 18 c9 30  |....wind%......0|
00006060  3a f2 63 6c 6f 73 65 66  69 6c 65 28 66 69 6c 65  |:.closefile(file|
00006070  25 29 0d 1e be 27 c9 32  2c 33 2c 34 2c 35 2c 36  |%)...'.2,3,4,5,6|
00006080  2c 37 3a f2 64 65 6c 77  28 77 25 28 66 69 6c 65  |,7:.delw(w%(file|
00006090  25 2c 77 69 6e 64 25 29  29 0d 1e c8 05 cb 0d 1e  |%,wind%)).......|
000060a0  d2 05 cc 0d 1e dc 0a c8  8e 21 71 25 ca 0d 1e e6  |.........!q%....|
000060b0  19 c9 77 5f 73 74 6f 70  25 3a 73 74 6f 70 66 69  |..w_stop%:stopfi|
000060c0  6c 65 25 3d 2d 31 0d 1e  f0 1b c9 77 5f 65 78 70  |le%=-1.....w_exp|
000060d0  72 25 3a f2 64 65 6c 77  28 77 5f 65 78 70 72 25  |r%:.delw(w_expr%|
000060e0  29 0d 1e fa 1b c9 77 5f  6f 70 65 6e 25 3a f2 64  |).....w_open%:.d|
000060f0  65 6c 77 28 77 5f 6f 70  65 6e 25 29 0d 1f 04 1b  |elw(w_open%)....|
00006100  c9 77 5f 6e 75 6d 73 25  3a f2 64 65 6c 77 28 77  |.w_nums%:.delw(w|
00006110  5f 6e 75 6d 73 25 29 0d  1f 0e 1f c9 77 5f 73 74  |_nums%).....w_st|
00006120  61 74 75 73 25 3a f2 64  65 6c 77 28 77 5f 73 74  |atus%:.delw(w_st|
00006130  61 74 75 73 25 29 0d 1f  18 1b c9 77 5f 6d 65 73  |atus%).....w_mes|
00006140  73 25 3a f2 64 65 6c 77  28 77 5f 6d 65 73 73 25  |s%:.delw(w_mess%|
00006150  29 0d 1f 22 23 c9 77 5f  74 72 61 6e 73 66 65 72  |).."#.w_transfer|
00006160  25 3a f2 64 65 6c 77 28  77 5f 74 72 61 6e 73 66  |%:.delw(w_transf|
00006170  65 72 25 29 0d 1f 2c 23  c9 77 5f 74 72 61 6e 73  |er%)..,#.w_trans|
00006180  65 78 70 25 3a f2 64 65  6c 77 28 77 5f 74 72 61  |exp%:.delw(w_tra|
00006190  6e 73 65 78 70 25 29 0d  1f 36 05 cb 0d 1f 40 05  |nsexp%)..6....@.|
000061a0  cd 0d 1f 4a 05 e1 0d 1f  54 04 0d 1f 5e 19 dd f2  |...J....T...^...|
000061b0  74 69 64 79 64 69 61 6c  3a f2 72 65 73 74 6f 72  |tidydial:.restor|
000061c0  65 63 74 0d 1f 68 44 64  69 61 6c 72 65 61 73 6f  |ect..hDdialreaso|
000061d0  6e 25 3d 2d 31 3a 64 69  61 6c 6f 67 75 65 25 3d  |n%=-1:dialogue%=|
000061e0  2d 31 3a f2 63 6c 6f 73  65 77 28 77 5f 73 68 61  |-1:.closew(w_sha|
000061f0  64 6f 77 25 29 3a 65 78  69 30 25 3d 2d 31 3a 65  |dow%):exi0%=-1:e|
00006200  78 69 31 25 3d 2d 31 0d  1f 72 12 64 69 61 6c 66  |xi1%=-1..r.dialf|
00006210  69 6c 65 25 3d 2d 31 3a  e1 0d 1f 7c 04 0d 1f 86  |ile%=-1:...|....|
00006220  0f dd f2 72 65 73 74 6f  72 65 63 74 0d 1f 90 0f  |...restorect....|
00006230  ea 85 3a ee 85 ea 3a f7  85 3a e1 0d 1f 9a 28 c8  |..:...:..:....(.|
00006240  99 20 22 57 69 6d 70 5f  47 65 74 43 61 72 65 74  |. "Wimp_GetCaret|
00006250  50 6f 73 69 74 69 6f 6e  22 2c 2c 77 6f 72 6b 62  |Position",,workb|
00006260  75 66 25 0d 1f a4 70 e7  21 77 6f 72 6b 62 75 66  |uf%...p.!workbuf|
00006270  25 3d 64 69 61 6c 6f 67  75 65 25 c8 99 20 22 57  |%=dialogue%.. "W|
00006280  69 6d 70 5f 53 65 74 43  61 72 65 74 50 6f 73 69  |imp_SetCaretPosi|
00006290  74 69 6f 6e 22 2c 21 64  69 61 6c 63 74 25 2c 64  |tion",!dialct%,d|
000062a0  69 61 6c 63 74 25 21 34  2c 64 69 61 6c 63 74 25  |ialct%!4,dialct%|
000062b0  21 38 2c 64 69 61 6c 63  74 25 21 31 32 2c 64 69  |!8,dialct%!12,di|
000062c0  61 6c 63 74 25 21 31 36  2c 64 69 61 6c 63 74 25  |alct%!16,dialct%|
000062d0  21 32 30 0d 1f ae 05 e1  0d 1f b8 04 0d 1f c2 3b  |!20............;|
000062e0  dd f2 64 65 6c 77 28 f8  20 54 25 29 3a 21 71 25  |..delw(. T%):!q%|
000062f0  3d 54 25 3a c8 99 22 57  69 6d 70 5f 44 65 6c 65  |=T%:.."Wimp_Dele|
00006300  74 65 57 69 6e 64 6f 77  22 2c 2c 71 25 3a 54 25  |teWindow",,q%:T%|
00006310  3d 2d 31 45 39 3a e1 0d  1f cc 04 0d 1f d6 2a dd  |=-1E9:........*.|
00006320  a4 69 61 28 68 25 2c 69  25 29 3a f2 67 65 74 69  |.ia(h%,i%):.geti|
00006330  28 68 25 2c 69 25 29 3a  f2 63 68 6b 69 69 3a 3d  |(h%,i%):.chkii:=|
00006340  71 25 21 32 38 0d 1f e0  2a dd a4 76 61 28 68 25  |q%!28...*..va(h%|
00006350  2c 69 25 29 3a f2 67 65  74 69 28 68 25 2c 69 25  |,i%):.geti(h%,i%|
00006360  29 3a f2 63 68 6b 69 69  3a 3d 71 25 21 33 32 0d  |):.chkii:=q%!32.|
00006370  1f ea 2a dd a4 69 6c 28  68 25 2c 69 25 29 3a f2  |..*..il(h%,i%):.|
00006380  67 65 74 69 28 68 25 2c  69 25 29 3a f2 63 68 6b  |geti(h%,i%):.chk|
00006390  69 69 3a 3d 71 25 21 33  36 0d 1f f4 04 0d 1f fe  |ii:=q%!36.......|
000063a0  31 dd a4 74 69 61 28 54  25 2c 69 25 29 3a ea 71  |1..tia(T%,i%):.q|
000063b0  25 3a 71 25 3d 54 25 2b  33 32 2a 69 25 2b 38 38  |%:q%=T%+32*i%+88|
000063c0  3a f2 63 68 6b 69 69 3a  3d 71 25 21 32 30 0d 20  |:.chkii:=q%!20. |
000063d0  08 04 0d 20 12 33 dd f2  63 68 6b 69 69 3a e7 28  |... .3..chkii:.(|
000063e0  71 25 21 32 34 80 26 31  30 30 29 3d 30 85 31 2c  |q%!24.&100)=0.1,|
000063f0  22 49 63 6f 6e 20 6e 6f  74 20 69 6e 64 69 72 65  |"Icon not indire|
00006400  63 74 65 64 22 0d 20 1c  05 e1 0d 20 26 04 0d 20  |cted". .... &.. |
00006410  30 3c dd f2 67 65 74 69  28 68 25 2c 69 25 29 3a  |0<..geti(h%,i%):|
00006420  21 71 25 3d 68 25 3a 71  25 21 34 3d 69 25 3a c8  |!q%=h%:q%!4=i%:.|
00006430  99 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  |."Wimp_GetIconSt|
00006440  61 74 65 22 2c 2c 71 25  3a e1 0d 20 3a 04 0d 20  |ate",,q%:.. :.. |
00006450  44 2e dd a4 74 61 28 68  25 29 3a 21 71 25 3d 68  |D...ta(h%):!q%=h|
00006460  25 3a c8 99 22 57 69 6d  70 5f 47 65 74 57 69 6e  |%:.."Wimp_GetWin|
00006470  64 6f 77 49 6e 66 6f 22  2c 2c 71 25 0d 20 4e 2c  |dowInfo",,q%. N,|
00006480  e7 28 71 25 21 36 30 80  26 31 30 30 29 3d 30 85  |.(q%!60.&100)=0.|
00006490  31 2c 22 54 69 74 6c 65  20 6e 6f 74 20 69 6e 64  |1,"Title not ind|
000064a0  69 72 65 63 74 65 64 22  0d 20 58 0a 3d 71 25 21  |irected". X.=q%!|
000064b0  37 36 0d 20 62 04 0d 20  6c 17 dd f2 73 74 6f 70  |76. b.. l...stop|
000064c0  28 72 25 2c 54 24 2c 55  24 2c 54 25 29 0d 20 76  |(r%,T$,U$,T%). v|
000064d0  1f 64 69 61 6c 72 65 61  73 6f 6e 25 3d 72 25 3a  |.dialreason%=r%:|
000064e0  73 74 6f 70 66 69 6c 65  25 3d 54 25 0d 20 80 23  |stopfile%=T%. .#|
000064f0  e7 a6 2d 33 84 ac 73 74  6f 70 62 6f 78 65 73 25  |..-3..stopboxes%|
00006500  3a 6d 69 25 3d 33 3a f2  6d 73 74 6f 70 3a e1 0d  |:mi%=3:.mstop:..|
00006510  20 8a 2b f2 73 65 74 69  28 77 5f 73 74 6f 70 25  | .+.seti(w_stop%|
00006520  2c 30 2c 54 24 29 3a f2  73 65 74 69 28 77 5f 73  |,0,T$):.seti(w_s|
00006530  74 6f 70 25 2c 31 2c 55  24 29 0d 20 94 29 f2 75  |top%,1,U$). .).u|
00006540  6e 73 65 6c 61 6c 6c 28  77 5f 73 74 6f 70 25 29  |nselall(w_stop%)|
00006550  3a f2 64 69 61 6c 6f 67  75 65 28 77 5f 73 74 6f  |:.dialogue(w_sto|
00006560  70 25 29 0d 20 9e 1f 64  69 61 6c 72 65 61 73 6f  |p%). ..dialreaso|
00006570  6e 25 3d 72 25 3a 73 74  6f 70 66 69 6c 65 25 3d  |n%=r%:stopfile%=|
00006580  54 25 0d 20 a8 05 e1 0d  20 b2 04 0d 20 bc 12 dd  |T%. .... ... ...|
00006590  f2 64 69 61 6c 6f 67 75  65 28 68 25 29 0d 20 c6  |.dialogue(h%). .|
000065a0  12 ea 58 25 2c 59 25 3a  f2 6e 6f 64 69 61 6c 0d  |..X%,Y%:.nodial.|
000065b0  20 d0 27 c8 99 20 22 57  69 6d 70 5f 47 65 74 43  | .'.. "Wimp_GetC|
000065c0  61 72 65 74 50 6f 73 69  74 69 6f 6e 22 2c 2c 64  |aretPosition",,d|
000065d0  69 61 6c 63 74 25 0d 20  da 3d 64 69 61 6c 66 69  |ialct%. .=dialfi|
000065e0  6c 65 25 3d 66 69 6c 65  25 3a f2 6e 6f 6d 65 6e  |le%=file%:.nomen|
000065f0  75 3a f2 72 65 61 64 70  6f 69 6e 74 65 72 3a 58  |u:.readpointer:X|
00006600  25 3d 6d 78 25 2d 32 30  30 3a 59 25 3d 6d 79 25  |%=mx%-200:Y%=my%|
00006610  2d 38 35 0d 20 e4 0d e7  58 25 3c 30 58 25 3d 30  |-85. ...X%<0X%=0|
00006620  0d 20 ee 0f e7 59 25 3c  39 36 59 25 3d 39 36 0d  |. ...Y%<96Y%=96.|
00006630  20 f8 10 64 69 61 6c 6f  67 75 65 25 3d 68 25 0d  | ..dialogue%=h%.|
00006640  21 02 14 f2 66 72 6f 6e  74 28 68 25 2c 58 25 2c  |!...front(h%,X%,|
00006650  59 25 29 0d 21 0c 14 f2  73 65 74 63 74 28 68 25  |Y%).!...setct(h%|
00006660  2c 2d 31 2c 2d 31 29 0d  21 16 0b f7 8d 40 62 43  |,-1,-1).!....@bC|
00006670  3a f5 0d 21 20 3b f2 72  65 61 64 68 28 68 25 29  |:..! ;.readh(h%)|
00006680  3a e7 68 25 3d 64 69 61  6c 6f 67 75 65 25 3a f3  |:.h%=dialogue%:.|
00006690  58 25 3a f2 73 65 74 63  74 28 68 25 2c 58 25 2c  |X%:.setct(h%,X%,|
000066a0  a9 24 a4 69 61 28 68 25  2c 58 25 29 29 0d 21 2a  |.$.ia(h%,X%)).!*|
000066b0  1d e7 68 25 3c 3e 2d 31  3a f5 3a f3 58 25 3a fd  |..h%<>-1:.:.X%:.|
000066c0  58 25 3c 2d 31 3a 68 25  3d 30 0d 21 34 16 fd 68  |X%<-1:h%=0.!4..h|
000066d0  25 3d 64 69 61 6c 6f 67  75 65 25 84 68 25 3c 30  |%=dialogue%.h%<0|
000066e0  0d 21 3e 05 e1 0d 21 48  04 0d 21 52 21 dd f2 72  |.!>...!H..!R!..r|
000066f0  65 61 64 70 6f 69 6e 74  65 72 3a ea 71 25 3a 71  |eadpointer:.q%:q|
00006700  25 3d 77 6f 72 6b 62 75  66 25 0d 21 5c 1f c8 99  |%=workbuf%.!\...|
00006710  22 57 69 6d 70 5f 47 65  74 50 6f 69 6e 74 65 72  |"Wimp_GetPointer|
00006720  49 6e 66 6f 22 2c 2c 71  25 0d 21 66 31 6d 78 25  |Info",,q%.!f1mx%|
00006730  3d 21 71 25 3a 6d 79 25  3d 71 25 21 34 3a 6d 62  |=!q%:my%=q%!4:mb|
00006740  25 3d 71 25 21 38 3a 6d  68 25 3d 71 25 21 31 32  |%=q%!8:mh%=q%!12|
00006750  3a 6d 69 25 3d 71 25 21  31 36 0d 21 70 05 e1 0d  |:mi%=q%!16.!p...|
00006760  21 7a 04 0d 21 84 15 dd  a4 64 69 61 6c 6f 67 75  |!z..!....dialogu|
00006770  65 3a ea 66 69 6c 65 25  0d 21 8e 36 e7 64 69 61  |e:.file%.!.6.dia|
00006780  6c 6f 67 75 65 25 3e 3d  30 80 6d 68 25 3c 3e 64  |logue%>=0.mh%<>d|
00006790  69 61 6c 6f 67 75 65 25  80 6d 68 25 3c 3e 77 5f  |ialogue%.mh%<>w_|
000067a0  73 68 61 64 6f 77 25 f2  6e 6f 64 69 61 6c 0d 21  |shadow%.nodial.!|
000067b0  98 06 3d a3 0d 21 a2 04  0d 21 ac 24 dd f2 6d 6f  |..=..!...!.$..mo|
000067c0  75 73 65 28 6d 78 25 2c  6d 79 25 2c 6d 62 25 2c  |use(mx%,my%,mb%,|
000067d0  6d 68 25 2c 6d 69 25 2c  6d 6f 25 29 0d 21 b6 1d  |mh%,mi%,mo%).!..|
000067e0  e7 64 72 61 67 72 65 61  73 6f 6e 25 3e 3d 30 84  |.dragreason%>=0.|
000067f0  6d 62 25 3e 32 35 35 3a  e1 0d 21 c0 37 f2 77 74  |mb%>255:..!.7.wt|
00006800  6f 66 28 6d 68 25 29 3a  e7 66 69 6c 65 25 3e 3d  |of(mh%):.file%>=|
00006810  30 80 77 69 6e 64 25 3d  36 80 28 6d 62 25 3d 31  |0.wind%=6.(mb%=1|
00006820  84 6d 62 25 3d 34 29 80  6d 69 25 3c 31 39 3a e1  |.mb%=4).mi%<19:.|
00006830  0d 21 ca 18 e7 6d 62 25  3c 31 36 3a e7 a4 64 69  |.!...mb%<16:..di|
00006840  61 6c 6f 67 75 65 3a e1  0d 21 d4 33 77 5f 69 6e  |alogue:..!.3w_in|
00006850  66 6f 25 3d 77 5f 70 69  6e 66 6f 25 3a e7 6d 62  |fo%=w_pinfo%:.mb|
00006860  25 3d 37 3a 6d 62 25 3d  32 3a 77 5f 69 6e 66 6f  |%=7:mb%=2:w_info|
00006870  25 3d 77 5f 70 69 6e 66  6f 32 25 0d 21 de 42 e7  |%=w_pinfo2%.!.B.|
00006880  63 6f 70 79 69 6e 67 25  3e 30 3a e7 6d 68 25 3c  |copying%>0:.mh%<|
00006890  3e 64 69 61 6c 6f 67 75  65 25 80 28 6d 68 25 3c  |>dialogue%.(mh%<|
000068a0  3e 77 5f 74 72 61 6e 73  66 65 72 25 84 6d 69 25  |>w_transfer%.mi%|
000068b0  3c 3e 31 36 29 f2 62 75  7a 7a 31 3a e1 0d 21 e8  |<>16).buzz1:..!.|
000068c0  0a c8 8e 6d 62 25 ca 0d  21 f2 0c c9 32 3a f2 6d  |...mb%..!...2:.m|
000068d0  65 6e 75 0d 21 fc 10 c9  31 2c 34 3a f2 73 65 6c  |enu.!...1,4:.sel|
000068e0  65 63 74 0d 22 06 15 c9  31 36 2c 36 34 3a f2 73  |ect."...16,64:.s|
000068f0  74 61 72 74 64 72 61 67  0d 22 10 05 cb 0d 22 1a  |tartdrag."....".|
00006900  05 e1 0d 22 24 04 0d 22  2e 36 dd f2 73 65 74 69  |..."$..".6..seti|
00006910  28 68 25 2c 69 25 2c 54  24 29 3a 54 24 3d c0 54  |(h%,i%,T$):T$=.T|
00006920  24 2c a4 69 6c 28 68 25  2c 69 25 29 29 3a 24 a4  |$,.il(h%,i%)):$.|
00006930  69 61 28 68 25 2c 69 25  29 3d 54 24 0d 22 38 3c  |ia(h%,i%)=T$."8<|
00006940  f2 69 63 6f 6e 75 70 64  28 68 25 2c 69 25 29 3a  |.iconupd(h%,i%):|
00006950  f2 67 65 74 63 74 3a e7  21 71 25 3d 68 25 80 71  |.getct:.!q%=h%.q|
00006960  25 21 34 3d 69 25 3a f2  73 65 74 63 74 28 68 25  |%!4=i%:.setct(h%|
00006970  2c 69 25 2c a9 54 24 29  0d 22 42 05 e1 0d 22 4c  |,i%,.T$)."B..."L|
00006980  04 0d 22 56 27 dd f2 69  73 65 74 28 68 25 2c 69  |.."V'..iset(h%,i|
00006990  25 2c 42 25 2c 45 25 29  3a ea 71 25 3a 71 25 3d  |%,B%,E%):.q%:q%=|
000069a0  77 6f 72 6b 62 75 66 25  0d 22 60 3f 21 71 25 3d  |workbuf%."`?!q%=|
000069b0  68 25 3a 71 25 21 34 3d  69 25 3a 71 25 21 31 32  |h%:q%!4=i%:q%!12|
000069c0  3d 42 25 3a 71 25 21 38  3d 45 25 3a c8 99 22 57  |=B%:q%!8=E%:.."W|
000069d0  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
000069e0  22 2c 2c 71 25 3a e1 0d  22 6a 04 0d 22 74 27 dd  |",,q%:.."j.."t'.|
000069f0  f2 69 63 6f 6e 75 70 64  28 68 25 2c 69 25 29 3a  |.iconupd(h%,i%):|
00006a00  f2 69 73 65 74 28 68 25  2c 69 25 2c 30 2c 30 29  |.iset(h%,i%,0,0)|
00006a10  3a e1 0d 22 7e 04 0d 22  88 0f dd f2 66 6f 72 63  |:.."~.."....forc|
00006a20  65 28 68 25 29 0d 22 92  09 c8 8e 68 25 ca 0d 22  |e(h%)."....h%.."|
00006a30  9c 2e 7f c8 99 22 57 69  6d 70 5f 46 6f 72 63 65  |....."Wimp_Force|
00006a40  52 65 64 72 61 77 22 2c  68 25 2c 2d 31 45 39 2c  |Redraw",h%,-1E9,|
00006a50  2d 31 45 39 2c 31 45 39  2c 31 45 39 0d 22 a6 05  |-1E9,1E9,1E9."..|
00006a60  cb 0d 22 b0 05 e1 0d 22  ba 04 0d 22 c4 13 dd f2  |.."...."..."....|
00006a70  72 65 61 64 62 6c 6f 63  6b 28 70 25 29 0d 22 ce  |readblock(p%).".|
00006a80  37 78 30 25 3d 21 70 25  3a 79 30 25 3d 70 25 21  |7x0%=!p%:y0%=p%!|
00006a90  34 3a 78 31 25 3d 70 25  21 38 3a 79 31 25 3d 70  |4:x1%=p%!8:y1%=p|
00006aa0  25 21 31 32 3a f4 20 70  68 79 73 69 63 61 6c 20  |%!12:. physical |
00006ab0  61 72 65 61 0d 22 d8 46  73 63 78 25 3d 70 25 21  |area.".Fscx%=p%!|
00006ac0  31 36 3a 73 63 79 25 3d  70 25 21 32 30 3a 62 68  |16:scy%=p%!20:bh|
00006ad0  61 6e 64 6c 65 25 3d 70  25 21 32 34 3a f4 20 73  |andle%=p%!24:. s|
00006ae0  63 72 6f 6c 6c 20 6f 66  66 73 65 74 73 2c 20 73  |croll offsets, s|
00006af0  74 61 63 6b 20 64 65 70  74 68 0d 22 e2 4a 62 78  |tack depth.".Jbx|
00006b00  25 3d 78 30 25 2d 73 63  78 25 3a 62 79 25 3d 79  |%=x0%-scx%:by%=y|
00006b10  31 25 2d 73 63 79 25 3a  f4 20 63 61 6c 63 75 6c  |1%-scy%:. calcul|
00006b20  61 74 65 20 70 68 79 73  69 63 61 6c 20 63 6f 2d  |ate physical co-|
00006b30  6f 72 64 73 20 6f 66 20  6c 6f 67 69 63 61 6c 20  |ords of logical |
00006b40  61 72 65 61 0d 22 ec 3e  65 78 30 25 3d 70 25 21  |area.".>ex0%=p%!|
00006b50  34 30 3a 65 79 30 25 3d  70 25 21 34 34 3a 65 78  |40:ey0%=p%!44:ex|
00006b60  31 25 3d 70 25 21 34 38  3a 65 79 31 25 3d 70 25  |1%=p%!48:ey1%=p%|
00006b70  21 35 32 3a f4 20 6c 6f  67 69 63 61 6c 20 61 72  |!52:. logical ar|
00006b80  65 61 0d 22 f6 41 67 78  30 25 3d 70 25 21 32 34  |ea.".Agx0%=p%!24|
00006b90  3a 67 79 30 25 3d 70 25  21 32 38 3a 67 78 31 25  |:gy0%=p%!28:gx1%|
00006ba0  3d 70 25 21 33 32 3a 67  79 31 25 3d 70 25 21 33  |=p%!32:gy1%=p%!3|
00006bb0  36 3a f4 20 67 72 61 70  68 69 63 73 20 77 69 6e  |6:. graphics win|
00006bc0  64 6f 77 0d 23 00 2e 6f  70 65 6e 25 3d 28 70 25  |dow.#..open%=(p%|
00006bd0  21 32 38 80 26 31 30 30  30 30 29 3c 3e 30 3a f4  |!28.&10000)<>0:.|
00006be0  20 77 69 6e 64 6f 77 20  6f 70 65 6e 20 66 6c 61  | window open fla|
00006bf0  67 0d 23 0a 05 e1 0d 23  14 04 0d 23 1e 0e dd f2  |g.#....#...#....|
00006c00  67 65 74 77 28 68 25 29  0d 23 28 25 21 71 25 3d  |getw(h%).#(%!q%=|
00006c10  68 25 3a c8 99 22 57 69  6d 70 5f 47 65 74 57 69  |h%:.."Wimp_GetWi|
00006c20  6e 64 6f 77 49 6e 66 6f  22 2c 2c 71 25 0d 23 32  |ndowInfo",,q%.#2|
00006c30  14 f2 72 65 61 64 62 6c  6f 63 6b 28 71 25 2b 34  |..readblock(q%+4|
00006c40  29 0d 23 3c 05 e1 0d 23  46 04 0d 23 50 0c dd f2  |).#<...#F..#P...|
00006c50  73 65 6c 65 63 74 0d 23  5a 17 e7 a4 6e 75 6d 69  |select.#Z...numi|
00006c60  28 6d 68 25 2c 6d 69 25  2c 6d 62 25 29 0d 23 64  |(mh%,mi%,mb%).#d|
00006c70  0e e7 66 69 6c 65 25 3e  3d 30 8c 0d 23 6e 0c c8  |..file%>=0..#n..|
00006c80  8e 77 69 6e 64 25 ca 0d  23 78 16 c9 30 3a e7 66  |.wind%..#x..0:.f|
00006c90  69 6c 65 25 3d 74 61 72  67 65 74 25 8c 0d 23 82  |ile%=target%..#.|
00006ca0  0a f2 72 65 61 64 79 0d  23 8c 05 cd 0d 23 96 0d  |..ready.#....#..|
00006cb0  c9 31 3a f2 6d 70 61 6e  65 0d 23 a0 0d c9 32 3a  |.1:.mpane.#...2:|
00006cc0  f2 6d 73 75 62 73 0d 23  aa 0e c9 34 3a f2 6d 66  |.msubs.#...4:.mf|
00006cd0  6c 69 73 74 0d 23 b4 0e  c9 35 3a f2 6d 69 6c 69  |list.#...5:.mili|
00006ce0  73 74 0d 23 be 05 cb 0d  23 c8 05 cc 0d 23 d2 33  |st.#....#....#.3|
00006cf0  e7 6d 68 25 3d 64 69 61  6c 6f 67 75 65 25 3a e7  |.mh%=dialogue%:.|
00006d00  64 69 61 6c 66 69 6c 65  25 3e 3d 30 3a f2 73 64  |dialfile%>=0:.sd|
00006d10  66 69 6c 65 28 64 69 61  6c 66 69 6c 65 25 29 0d  |file(dialfile%).|
00006d20  23 dc 0a c8 8e 6d 68 25  ca 0d 23 e6 2a c9 2d 32  |#....mh%..#.*.-2|
00006d30  3a e7 6d 62 25 3d 31 80  a6 2d 31 80 a6 2d 32 3a  |:.mb%=1..-1..-2:|
00006d40  f2 6f 73 63 6c 69 28 22  22 29 3a 8b f2 73 74 61  |.oscli(""):..sta|
00006d50  74 75 73 0d 23 f0 13 c9  77 5f 6f 70 65 6e 25 3a  |tus.#...w_open%:|
00006d60  f2 6d 6f 70 65 6e 0d 23  fa 13 c9 77 5f 73 74 6f  |.mopen.#...w_sto|
00006d70  70 25 3a f2 6d 73 74 6f  70 0d 24 04 13 c9 77 5f  |p%:.mstop.$...w_|
00006d80  73 61 76 65 25 3a f2 6d  73 61 76 65 0d 24 0e 13  |save%:.msave.$..|
00006d90  c9 77 5f 65 78 70 72 25  3a f2 6d 65 78 70 72 0d  |.w_expr%:.mexpr.|
00006da0  24 18 17 c9 77 5f 73 74  61 74 75 73 25 3a f2 6d  |$...w_status%:.m|
00006db0  73 74 61 74 75 73 0d 24  22 24 c9 77 5f 6d 65 73  |status.$"$.w_mes|
00006dc0  73 25 3a e7 6d 69 25 3d  36 3a f2 63 6c 6f 73 65  |s%:.mi%=6:.close|
00006dd0  77 28 77 5f 6d 65 73 73  25 29 0d 24 2c 1b c9 77  |w(w_mess%).$,..w|
00006de0  5f 74 72 61 6e 73 66 65  72 25 3a f2 6d 74 72 61  |_transfer%:.mtra|
00006df0  6e 73 66 65 72 0d 24 36  1b c9 77 5f 74 72 61 6e  |nsfer.$6..w_tran|
00006e00  73 65 78 70 25 3a f2 6d  74 72 61 6e 73 65 78 70  |sexp%:.mtransexp|
00006e10  0d 24 40 05 cb 0d 24 4a  05 cd 0d 24 54 05 e1 0d  |.$@...$J...$T...|
00006e20  24 5e 04 0d 24 68 30 dd  f2 6d 69 6c 69 73 74 3a  |$^..$h0..milist:|
00006e30  ea 59 25 3a 59 25 3d 6d  79 25 3a f2 79 63 6f 6e  |.Y%:Y%=my%:.ycon|
00006e40  76 28 59 25 2c a4 6e 69  6e 64 69 63 65 73 2c 6d  |v(Y%,.nindices,m|
00006e50  68 25 29 0d 24 72 19 e7  59 25 3e 30 3a f2 73 65  |h%).$r..Y%>0:.se|
00006e60  6c 69 6e 64 65 78 28 59  25 2c 30 29 0d 24 7c 05  |lindex(Y%,0).$|.|
00006e70  e1 0d 24 86 04 0d 24 90  2d dd f2 6d 66 6c 69 73  |..$...$.-..mflis|
00006e80  74 3a ea 59 25 3a 59 25  3d 6d 79 25 3a f2 79 63  |t:.Y%:Y%=my%:.yc|
00006e90  6f 6e 76 28 59 25 2c a4  76 5f 28 37 29 2c 6d 68  |onv(Y%,.v_(7),mh|
00006ea0  25 29 0d 24 9a 3b 6d 65  6e 75 66 69 65 6c 64 25  |%).$.;menufield%|
00006eb0  3d 59 25 3a 65 78 70 66  69 65 6c 64 25 3d 59 25  |=Y%:expfield%=Y%|
00006ec0  3a e7 6d 62 25 3c 3e 31  f2 66 69 6e 64 66 69 65  |:.mb%<>1.findfie|
00006ed0  6c 64 3a 8b f2 66 69 65  6c 64 65 78 70 0d 24 a4  |ld:..fieldexp.$.|
00006ee0  05 e1 0d 24 ae 04 0d 24  b8 0b dd f2 6d 70 61 6e  |...$...$....mpan|
00006ef0  65 0d 24 c2 0a c8 8e 6d  69 25 ca 0d 24 cc 0b c9  |e.$....mi%..$...|
00006f00  30 3a f2 62 6f 66 0d 24  d6 0c c9 31 3a f2 62 61  |0:.bof.$...1:.ba|
00006f10  63 6b 0d 24 e0 0d c9 32  3a f2 70 61 75 73 65 0d  |ck.$...2:.pause.|
00006f20  24 ea 0b c9 33 3a f2 66  77 64 0d 24 f4 0b c9 34  |$...3:.fwd.$...4|
00006f30  3a f2 65 6f 66 0d 24 fe  0d c9 35 3a f2 66 66 69  |:.eof.$...5:.ffi|
00006f40  6e 64 0d 25 08 11 c9 36  3a f2 6e 65 78 74 6d 61  |nd.%...6:.nextma|
00006f50  74 63 68 0d 25 12 0e c9  31 32 3a f2 67 61 75 67  |tch.%...12:.gaug|
00006f60  65 0d 25 1c 10 c9 31 34  3a f2 63 61 72 64 6e 75  |e.%...14:.cardnu|
00006f70  6d 0d 25 26 2a c9 31 38  3a e7 6d 62 25 3d 34 f2  |m.%&*.18:.mb%=4.|
00006f80  65 6d 61 63 72 6f 3a 8b  e7 73 25 28 66 69 6c 65  |emacro:..s%(file|
00006f90  25 29 3d 30 3a f2 6d 61  63 72 6f 0d 25 30 20 c9  |%)=0:.macro.%0 .|
00006fa0  31 37 3a e7 6d 62 25 3d  31 3a f2 73 65 6c 73 75  |17:.mb%=1:.selsu|
00006fb0  62 28 30 29 3a 8b f2 73  75 62 73 0d 25 3a 25 c9  |b(0):..subs.%:%.|
00006fc0  31 36 3a e7 6d 62 25 3d  31 3a f2 73 65 6c 69 6e  |16:.mb%=1:.selin|
00006fd0  64 65 78 28 30 2c 30 29  3a 8b f2 69 6e 64 65 78  |dex(0,0):..index|
00006fe0  0d 25 44 0f c9 32 31 3a  f2 66 69 6c 74 65 72 0d  |.%D..21:.filter.|
00006ff0  25 4e 05 cb 0d 25 58 05  e1 0d 25 62 04 0d 25 6c  |%N...%X...%b..%l|
00007000  0c dd f2 66 69 6c 74 65  72 0d 25 76 24 e7 ac a4  |...filter.%v$...|
00007010  64 65 61 64 66 69 6c 65  28 25 31 31 31 31 31 31  |deadfile(%111111|
00007020  31 31 31 31 31 31 31 31  31 31 30 29 8c 0d 25 80  |11111111110)..%.|
00007030  1c e7 6d 62 25 3d 31 3a  f2 6e 6f 66 69 6c 74 3a  |..mb%=1:.nofilt:|
00007040  8b f2 65 78 70 72 28 30  29 0d 25 8a 05 cd 0d 25  |..expr(0).%....%|
00007050  94 05 e1 0d 25 9e 04 0d  25 a8 0b dd f2 6d 73 75  |....%...%....msu|
00007060  62 73 0d 25 b2 23 e7 a4  64 65 61 64 66 69 6c 65  |bs.%.#..deadfile|
00007070  28 25 31 31 31 31 31 31  31 31 31 31 31 31 31 31  |(%11111111111111|
00007080  31 31 30 29 e1 0d 25 bc  25 ea 54 25 3a 54 25 3d  |110)..%.%.T%:T%=|
00007090  a4 69 74 6f 73 3a e7 54  25 3e 3d 30 3a f2 73 65  |.itos:.T%>=0:.se|
000070a0  6c 73 75 62 28 54 25 29  3a e1 0d 25 c6 05 e1 0d  |lsub(T%):..%....|
000070b0  25 d0 04 0d 25 da 0b dd  f2 6d 73 74 6f 70 0d 25  |%...%....mstop.%|
000070c0  e4 11 e7 6d 69 25 3c 33  84 6d 69 25 3e 34 e1 0d  |...mi%<3.mi%>4..|
000070d0  25 ee 35 ea 54 25 2c 55  25 3a 55 25 3d 73 74 6f  |%.5.T%,U%:U%=sto|
000070e0  70 66 69 6c 65 25 3a 54  25 3d 64 69 61 6c 72 65  |pfile%:T%=dialre|
000070f0  61 73 6f 6e 25 3a 64 69  61 6c 72 65 61 73 6f 6e  |ason%:dialreason|
00007100  25 3d 2d 31 0d 25 f8 0b  e7 6d 69 25 3d 33 8c 0d  |%=-1.%...mi%=3..|
00007110  26 02 27 f2 63 6c 6f 73  65 77 28 77 5f 73 74 6f  |&.'.closew(w_sto|
00007120  70 25 29 3a e7 55 25 3e  3d 30 3a f2 73 64 66 69  |p%):.U%>=0:.sdfi|
00007130  6c 65 28 55 25 29 0d 26  0c 09 c8 8e 54 25 ca 0d  |le(U%).&....T%..|
00007140  26 16 26 c9 32 3a 63 6c  6f 73 65 6f 6b 25 3d b9  |&.&.2:closeok%=.|
00007150  3a f2 63 6c 6f 73 65 77  28 77 25 28 66 69 6c 65  |:.closew(w%(file|
00007160  25 2c 30 29 29 0d 26 20  16 c9 36 3a f2 43 4c 4f  |%,0)).& ..6:.CLO|
00007170  53 45 3a f2 71 75 69 74  28 a3 29 0d 26 2a 12 c9  |SE:.quit(.).&*..|
00007180  31 34 3a f2 6c 6f 61 64  6e 6f 74 65 73 0d 26 34  |14:.loadnotes.&4|
00007190  12 c9 31 37 3a f2 63 6c  65 61 72 6e 70 61 64 0d  |..17:.clearnpad.|
000071a0  26 3e 13 c9 31 38 3a f2  63 6c 65 61 72 6d 61 63  |&>..18:.clearmac|
000071b0  72 6f 0d 26 48 12 c9 31  39 3a f2 6c 6f 61 64 6d  |ro.&H..19:.loadm|
000071c0  61 63 72 6f 0d 26 52 14  c9 32 30 3a 73 74 6f 70  |acro.&R..20:stop|
000071d0  62 6f 78 65 73 25 3d a3  0d 26 5c 11 c9 32 32 3a  |boxes%=..&\..22:|
000071e0  f2 75 70 64 63 61 72 64  73 0d 26 66 10 c9 32 36  |.updcards.&f..26|
000071f0  3a f2 61 73 63 63 61 72  64 0d 26 70 1b c9 32 37  |:.asccard.&p..27|
00007200  3a c8 99 73 77 69 25 2c  73 65 74 70 61 73 73 5f  |:..swi%,setpass_|
00007210  25 2c 22 22 0d 26 7a 12  c9 32 38 3a f2 6c 6f 61  |%,"".&z..28:.loa|
00007220  64 73 65 74 75 70 0d 26  84 26 c9 32 39 3a 70 24  |dsetup.&.&.29:p$|
00007230  28 66 69 6c 65 25 2c 30  29 3d 22 22 3a f2 6d 61  |(file%,0)="":.ma|
00007240  6b 65 72 65 70 28 66 69  6c 65 25 29 0d 26 8e 26  |kerep(file%).&.&|
00007250  c9 33 30 3a 6c 6c 25 28  66 69 6c 65 25 2c 30 29  |.30:ll%(file%,0)|
00007260  3d 30 3a f2 6d 61 6b 65  72 65 70 28 66 69 6c 65  |=0:.makerep(file|
00007270  25 29 0d 26 98 25 c9 33  31 3a 77 6f 25 28 66 69  |%).&.%.31:wo%(fi|
00007280  6c 65 25 29 3d 2d 31 3a  f2 6d 61 6b 65 72 65 70  |le%)=-1:.makerep|
00007290  28 66 69 6c 65 25 29 0d  26 a2 2e c9 33 32 3a c8  |(file%).&...32:.|
000072a0  99 73 77 69 25 2c 73 64  32 31 5f 25 2c 74 78 30  |.swi%,sd21_%,tx0|
000072b0  25 2c 74 79 30 25 2c 6d  65 6e 75 66 69 65 6c 64  |%,ty0%,menufield|
000072c0  25 2c 73 64 24 0d 26 ac  0e f2 66 6f 72 63 65 63  |%,sd$.&...forcec|
000072d0  61 72 64 0d 26 b6 1a c9  33 33 3a f2 72 5f 63 6c  |ard.&...33:.r_cl|
000072e0  65 61 72 3a f2 66 6f 72  63 65 72 65 70 0d 26 c0  |ear:.forcerep.&.|
000072f0  19 c9 33 34 3a f2 64 65  6c 63 6f 6c 28 6d 65 6e  |..34:.delcol(men|
00007300  75 63 6f 6c 25 29 0d 26  ca 19 c9 33 35 3a f2 69  |ucol%).&...35:.i|
00007310  6e 73 63 6f 6c 28 6d 65  6e 75 63 6f 6c 25 29 0d  |nscol(menucol%).|
00007320  26 d4 2b c9 33 36 3a ff  22 2a 73 65 74 74 79 70  |&.+.36:."*settyp|
00007330  65 20 22 2b 66 69 6c 65  24 2b 22 20 22 2b c3 7e  |e "+file$+" "+.~|
00007340  6d 65 6e 75 66 69 65 6c  64 25 0d 26 de 10 c9 33  |menufield%.&...3|
00007350  38 3a f2 70 69 63 70 61  74 68 0d 26 e8 10 c9 32  |8:.picpath.&...2|
00007360  30 30 3a f2 65 6e 64 61  63 74 0d 26 f2 13 c9 32  |00:.endact.&...2|
00007370  30 31 3a f2 6c 6f 61 64  73 65 74 75 70 0d 26 fc  |01:.loadsetup.&.|
00007380  0f c9 32 30 32 3a f2 63  6c 65 61 72 0d 27 06 11  |..202:.clear.'..|
00007390  c9 32 30 33 3a f2 64 65  66 61 75 6c 74 0d 27 10  |.203:.default.'.|
000073a0  05 cb 0d 27 1a 05 cc 0d  27 24 19 e7 54 25 3d 31  |...'....'$..T%=1|
000073b0  3a f2 43 4c 4f 53 45 3a  f2 71 75 69 74 28 a3 29  |:.CLOSE:.quit(.)|
000073c0  0d 27 2e 05 cd 0d 27 38  16 f2 63 6c 6f 73 65 77  |.'....'8..closew|
000073d0  28 77 5f 73 74 6f 70 25  29 3a e1 0d 27 42 04 0d  |(w_stop%):..'B..|
000073e0  27 4c 0b dd f2 6d 73 61  76 65 0d 27 56 0c e7 6d  |'L...msave.'V..m|
000073f0  69 25 3c 3e 30 e1 0d 27  60 30 ea 54 24 3a 54 24  |i%<>0..'`0.T$:T$|
00007400  3d 24 a4 69 61 28 77 5f  73 61 76 65 25 2c 32 29  |=$.ia(w_save%,2)|
00007410  3a e7 54 24 3d a4 6c 65  61 66 28 54 24 29 3a f2  |:.T$=.leaf(T$):.|
00007420  65 72 72 28 35 29 0d 27  6a 31 73 61 76 65 74 79  |err(5).'j1savety|
00007430  70 65 25 3d 73 61 76 65  74 25 3a 74 61 73 6b 25  |pe%=savet%:task%|
00007440  3d 2d 31 3a 66 69 6c 65  24 3d 54 24 3a f2 73 61  |=-1:file$=T$:.sa|
00007450  76 65 64 61 74 61 31 0d  27 74 05 e1 0d 27 7e 04  |vedata1.'t...'~.|
00007460  0d 27 88 1c dd f2 6d 6e  75 6d 73 3a e7 6d 69 25  |.'....mnums:.mi%|
00007470  3c 3e 34 80 6d 69 25 3c  3e 35 3a e1 0d 27 92 15  |<>4.mi%<>5:..'..|
00007480  ea 54 25 2c 42 25 2c 54  24 3a e7 6d 69 25 3d 35  |.T%,B%,T$:.mi%=5|
00007490  8c 0d 27 9c 26 42 25 3d  bb 24 a4 69 61 28 77 5f  |..'.&B%=.$.ia(w_|
000074a0  6e 75 6d 73 25 2c 33 29  3a e7 42 25 3d 30 3a f2  |nums%,3):.B%=0:.|
000074b0  65 72 72 28 31 34 29 0d  27 a6 25 54 25 3d 30 3a  |err(14).'.%T%=0:|
000074c0  c8 95 32 5e 54 25 3c 3d  42 25 3a 54 25 2b 3d 31  |..2^T%<=B%:T%+=1|
000074d0  3a ce 3a 42 25 3d 32 5e  54 25 2d 31 0d 27 b0 3d  |:.:B%=2^T%-1.'.=|
000074e0  54 24 3d a4 75 70 28 a4  73 28 24 a4 69 61 28 77  |T$=.up(.s($.ia(w|
000074f0  5f 6e 75 6d 73 25 2c 32  29 29 29 3a e7 a9 54 24  |_nums%,2))):..T$|
00007500  3c 32 84 97 54 24 3e 39  30 84 97 54 24 3c 36 35  |<2..T$>90..T$<65|
00007510  3a f2 65 72 72 28 31 33  29 0d 27 ba 12 c8 8e 64  |:.err(13).'....d|
00007520  69 61 6c 72 65 61 73 6f  6e 25 ca 0d 27 c4 06 c9  |ialreason%..'...|
00007530  30 0d 27 ce 0b 54 25 3d  b9 3a ea 85 0d 27 d8 0c  |0.'..T%=.:...'..|
00007540  ee 85 ea 3a 54 25 3d a3  0d 27 e2 1f e7 54 25 3a  |...:T%=..'...T%:|
00007550  c8 99 73 77 69 25 2c 6e  61 6d 65 72 65 61 64 5f  |..swi%,nameread_|
00007560  25 2c 54 24 b8 47 25 0d  27 ec 13 f7 85 3a e7 54  |%,T$.G%.'....:.T|
00007570  25 3a f2 65 72 72 28 31  35 29 0d 27 f6 23 54 25  |%:.err(15).'.#T%|
00007580  3d 30 3a c8 95 a4 73 75  62 6e 61 6d 65 28 54 25  |=0:...subname(T%|
00007590  29 3c 3e 22 22 3a 54 25  2b 3d 31 3a ce 0d 28 00  |)<>"":T%+=1:..(.|
000075a0  22 c8 99 73 77 69 25 2c  6e 61 6d 65 77 72 69 74  |"..swi%,namewrit|
000075b0  65 5f 25 2c 54 24 2c 42  25 2c 2d 31 b8 47 25 0d  |e_%,T$,B%,-1.G%.|
000075c0  28 0a 06 c9 31 0d 28 14  1f e7 a4 73 75 62 6d 61  |(...1.(....subma|
000075d0  78 28 6d 65 6e 75 73 75  62 25 2d 32 35 36 29 3c  |x(menusub%-256)<|
000075e0  3e 42 25 8c 0d 28 1e 2c  c8 99 73 77 69 25 2c 6e  |>B%..(.,..swi%,n|
000075f0  61 6d 65 77 72 69 74 65  5f 25 2c 54 24 2c 42 25  |amewrite_%,T$,B%|
00007600  2c 6d 65 6e 75 73 75 62  25 2d 31 35 36 b8 47 25  |,menusub%-156.G%|
00007610  0d 28 28 05 cc 0d 28 32  21 c8 99 73 77 69 25 2c  |.((...(2!..swi%,|
00007620  73 64 35 33 5f 25 2c 6d  65 6e 75 73 75 62 25 2d  |sd53_%,menusub%-|
00007630  32 35 36 b8 47 25 0d 28  3c 2c c8 99 73 77 69 25  |256.G%.(<,..swi%|
00007640  2c 6e 61 6d 65 77 72 69  74 65 5f 25 2c 54 24 2c  |,namewrite_%,T$,|
00007650  47 25 2c 6d 65 6e 75 73  75 62 25 2d 32 35 36 b8  |G%,menusub%-256.|
00007660  47 25 0d 28 46 05 cd 0d  28 50 05 cb 0d 28 5a 1d  |G%.(F...(P...(Z.|
00007670  f2 6d 61 6b 65 73 75 62  73 28 66 69 6c 65 25 29  |.makesubs(file%)|
00007680  3a f2 73 68 6f 77 73 75  62 0d 28 64 05 cd 0d 28  |:.showsub.(d...(|
00007690  6e 16 f2 63 6c 6f 73 65  77 28 77 5f 6e 75 6d 73  |n..closew(w_nums|
000076a0  25 29 3a e1 0d 28 78 04  0d 28 82 23 dd f2 6d 6f  |%):..(x..(.#..mo|
000076b0  70 65 6e 3a e7 6d 69 25  3d 31 31 f2 63 6c 6f 73  |pen:.mi%=11.clos|
000076c0  65 77 28 77 5f 6f 70 65  6e 25 29 0d 28 8c 0d e7  |ew(w_open%).(...|
000076d0  6d 69 25 3c 3e 31 32 e1  0d 28 96 13 ea 49 25 2c  |mi%<>12..(...I%,|
000076e0  6d 25 2c 64 25 2c 72 25  2c 70 24 0d 28 a0 2e 70  |m%,d%,r%,p$.(..p|
000076f0  24 3d 24 a4 69 61 28 77  5f 6f 70 65 6e 25 2c 31  |$=$.ia(w_open%,1|
00007700  34 29 3a f2 77 63 68 69  28 77 5f 6f 70 65 6e 25  |4):.wchi(w_open%|
00007710  29 3a 49 25 3d 71 25 3a  f5 0d 28 aa 0f e7 21 49  |):I%=q%:..(...!I|
00007720  25 3d 30 3a 64 25 3d b9  0d 28 b4 19 e7 21 49 25  |%=0:d%=..(...!I%|
00007730  3e 30 80 21 49 25 3c 39  3a 6d 25 3d 21 49 25 2d  |>0.!I%<9:m%=!I%-|
00007740  31 0d 28 be 10 e7 21 49  25 3d 31 36 3a 72 25 3d  |1.(...!I%=16:r%=|
00007750  b9 0d 28 c8 3a 49 25 2b  3d 34 3a fd 49 25 21 2d  |..(.:I%+=4:.I%!-|
00007760  34 3c 30 3a 66 69 6c 65  24 3d 24 a4 69 61 28 77  |4<0:file$=$.ia(w|
00007770  5f 6f 70 65 6e 25 2c 31  33 29 3a f2 63 6c 6f 73  |_open%,13):.clos|
00007780  65 77 28 77 5f 6f 70 65  6e 25 29 0d 28 d2 23 f2  |ew(w_open%).(.#.|
00007790  6f 70 65 6e 66 69 6c 65  31 28 66 69 6c 65 24 2c  |openfile1(file$,|
000077a0  6d 25 2c 64 25 2c 70 24  2c 72 25 29 3a e1 0d 28  |m%,d%,p$,r%):..(|
000077b0  dc 04 0d 28 e6 0b dd f2  6d 65 78 70 72 0d 28 f0  |...(....mexpr.(.|
000077c0  30 ea 41 25 2c 54 24 2c  63 25 2c 73 25 2c 75 25  |0.A%,T$,c%,s%,u%|
000077d0  2c 49 25 2c 51 25 2c 42  25 3a f2 75 6e 73 65 6c  |,I%,Q%,B%:.unsel|
000077e0  69 28 77 5f 65 78 70 72  25 2c 32 39 29 0d 28 fa  |i(w_expr%,29).(.|
000077f0  3c 41 25 3d a4 69 61 28  77 5f 65 78 70 72 25 2c  |<A%=.ia(w_expr%,|
00007800  31 37 29 3a f2 73 64 66  69 6c 65 28 64 69 61 6c  |17):.sdfile(dial|
00007810  66 69 6c 65 25 29 3a f2  71 62 73 63 61 6e 28 24  |file%):.qbscan($|
00007820  41 25 2c 51 25 2c 42 25  29 0d 29 04 0a c8 8e 6d  |A%,Q%,B%).)....m|
00007830  69 25 ca 0d 29 0e 14 c9  32 2c 33 2c 34 2c 35 2c  |i%..)...2,3,4,5,|
00007840  36 2c 37 2c 38 2c 39 0d  29 18 3e e7 24 41 25 3e  |6,7,8,9.).>.$A%>|
00007850  22 22 80 ac 51 25 24 73  64 25 3d c1 22 2b 2d 2a  |""..Q%$sd%=."+-*|
00007860  2f 3d 3c 3e 3c 28 29 22  2c 6d 69 25 2d 31 2c 31  |/=<><()",mi%-1,1|
00007870  29 3a e7 24 73 64 25 3c  3e c2 24 41 25 29 54 24  |):.$sd%<>.$A%)T$|
00007880  3d 24 73 64 25 0d 29 22  19 e7 6d 69 25 3d 37 3a  |=$sd%.)"..mi%=7:|
00007890  e7 54 24 3e 22 22 3a 54  24 2b 3d 22 3e 22 0d 29  |.T$>"":T$+=">".)|
000078a0  2c 1c f2 73 65 74 69 28  77 5f 65 78 70 72 25 2c  |,..seti(w_expr%,|
000078b0  31 37 2c 24 41 25 2b 54  24 29 0d 29 36 0a c9 31  |17,$A%+T$).)6..1|
000078c0  30 2c 31 31 0d 29 40 4e  e7 28 28 24 41 25 3e 22  |0,11.)@N.(($A%>"|
000078d0  22 80 42 25 3e 30 29 84  6d 69 25 3d 31 30 29 80  |".B%>0).mi%=10).|
000078e0  ac 51 25 3a 24 73 64 25  3d c1 22 28 29 22 2c 6d  |.Q%:$sd%=."()",m|
000078f0  69 25 2d 39 2c 31 29 3a  f2 73 65 74 69 28 77 5f  |i%-9,1):.seti(w_|
00007900  65 78 70 72 25 2c 31 37  2c 24 41 25 2b 24 73 64  |expr%,17,$A%+$sd|
00007910  25 29 0d 29 4a 0a c9 31  32 2c 31 33 0d 29 54 17  |%).)J..12,13.)T.|
00007920  54 24 3d 24 41 25 3a e7  24 41 25 3e 22 22 80 ac  |T$=$A%:.$A%>""..|
00007930  51 25 8c 0d 29 5e 1d 24  73 64 25 3d c2 24 41 25  |Q%..)^.$sd%=.$A%|
00007940  29 3a c8 99 73 77 69 25  2c 75 70 70 65 72 5f 25  |):..swi%,upper_%|
00007950  0d 29 68 37 e7 28 24 73  64 25 3e 3d 22 41 22 80  |.)h7.($sd%>="A".|
00007960  24 73 64 25 3c 3d 22 5a  22 29 84 28 24 73 64 25  |$sd%<="Z").($sd%|
00007970  3e 3d 22 30 22 80 24 73  64 25 3c 3d 22 39 22 29  |>="0".$sd%<="9")|
00007980  54 24 2b 3d 22 20 22 0d  29 72 1d e7 6d 69 25 3d  |T$+=" ".)r..mi%=|
00007990  31 32 54 24 2b 3d 22 41  4e 44 22 8b 54 24 2b 3d  |12T$+="AND".T$+=|
000079a0  22 4f 52 22 0d 29 7c 05  cd 0d 29 86 18 f2 73 65  |"OR".)|...)...se|
000079b0  74 69 28 77 5f 65 78 70  72 25 2c 31 37 2c 54 24  |ti(w_expr%,17,T$|
000079c0  29 0d 29 90 52 c9 31 34  3a e7 24 41 25 3e 22 22  |).).R.14:.$A%>""|
000079d0  80 ac 51 25 54 24 3d 24  41 25 2b 22 3d 22 22 2a  |..Q%T$=$A%+"=""*|
000079e0  2a 22 22 22 3a f2 73 65  74 69 28 77 5f 65 78 70  |*""":.seti(w_exp|
000079f0  72 25 2c 31 37 2c 54 24  29 3a f2 73 65 74 63 74  |r%,17,T$):.setct|
00007a00  28 77 5f 65 78 70 72 25  2c 31 37 2c a9 24 41 25  |(w_expr%,17,.$A%|
00007a10  2d 32 29 0d 29 9a 51 c9  31 35 3a e7 24 41 25 3e  |-2).).Q.15:.$A%>|
00007a20  22 22 80 ac 51 25 54 24  3d 24 41 25 2b 22 7e 3d  |""..Q%T$=$A%+"~=|
00007a30  22 22 22 22 22 3a f2 73  65 74 69 28 77 5f 65 78  |""""":.seti(w_ex|
00007a40  70 72 25 2c 31 37 2c 54  24 29 3a f2 73 65 74 63  |pr%,17,T$):.setc|
00007a50  74 28 77 5f 65 78 70 72  25 2c 31 37 2c a9 24 41  |t(w_expr%,17,.$A|
00007a60  25 2d 31 29 0d 29 a4 10  c9 32 30 2c 32 31 3a f2  |%-1).)...20,21:.|
00007a70  73 75 62 73 0d 29 ae 0f  c9 32 32 3a f2 6e 6f 64  |subs.)...22:.nod|
00007a80  69 61 6c 0d 29 b8 17 c9  32 36 3a f2 6e 6f 66 69  |ial.)...26:.nofi|
00007a90  6c 74 3a f2 6e 6f 64 69  61 6c 0d 29 c2 42 c9 32  |lt:.nodial.).B.2|
00007aa0  39 3a e7 24 41 25 3d 22  22 f2 73 65 74 69 28 77  |9:.$A%="".seti(w|
00007ab0  5f 65 78 70 72 25 2c 31  37 2c 65 78 24 29 3a 8b  |_expr%,17,ex$):.|
00007ac0  65 78 24 3d 24 41 25 3a  f2 73 65 74 69 28 77 5f  |ex$=$A%:.seti(w_|
00007ad0  65 78 70 72 25 2c 31 37  2c 22 22 29 0d 29 cc 07  |expr%,17,"").)..|
00007ae0  c9 32 33 0d 29 d6 1a f2  77 63 68 69 28 77 5f 65  |.23.)...wchi(w_e|
00007af0  78 70 72 25 29 3a 49 25  3d 71 25 3a f5 0d 29 e0  |xpr%):I%=q%:..).|
00007b00  0a c8 8e 21 49 25 ca 0d  29 ea 0b c9 31 3a 73 25  |...!I%..)...1:s%|
00007b10  3d b9 0d 29 f4 0b c9 30  3a 75 25 3d b9 0d 29 fe  |=..)...0:u%=..).|
00007b20  0c c9 32 38 3a 63 25 3d  b9 0d 2a 08 05 cb 0d 2a  |..28:c%=..*....*|
00007b30  12 13 49 25 2b 3d 34 3a  fd 49 25 21 2d 34 3d 2d  |..I%+=4:.I%!-4=-|
00007b40  31 0d 2a 1c 1f f2 63 6f  6e 76 28 24 41 25 29 3a  |1.*...conv($A%):|
00007b50  e7 75 25 3a f2 75 70 70  6c 69 74 28 24 41 25 29  |.u%:.upplit($A%)|
00007b60  0d 2a 26 19 f2 73 65 74  69 28 77 5f 65 78 70 72  |.*&..seti(w_expr|
00007b70  25 2c 31 37 2c 24 41 25  29 0d 2a 30 12 c8 8e 64  |%,17,$A%).*0...d|
00007b80  69 61 6c 72 65 61 73 6f  6e 25 ca 0d 2a 3a 0f c9  |ialreason%..*:..|
00007b90  30 3a f2 73 65 74 66 69  6c 74 0d 2a 44 0e c9 31  |0:.setfilt.*D..1|
00007ba0  3a f2 73 65 61 72 63 68  0d 2a 4e 0d c9 32 3a f2  |:.search.*N..2:.|
00007bb0  72 73 65 74 32 0d 2a 58  05 cb 0d 2a 62 0b f2 6e  |rset2.*X...*b..n|
00007bc0  6f 64 69 61 6c 0d 2a 6c  05 cb 0d 2a 76 18 f2 69  |odial.*l...*v..i|
00007bd0  63 6f 6e 75 70 64 28 77  5f 65 78 70 72 25 2c 31  |conupd(w_expr%,1|
00007be0  37 29 0d 2a 80 05 e1 0d  2a 8a 04 0d 2a 94 0d dd  |7).*....*...*...|
00007bf0  f2 6d 73 74 61 74 75 73  0d 2a 9e 0d ea 54 25 2c  |.mstatus.*...T%,|
00007c00  49 25 2c 41 25 0d 2a a8  0a c8 8e 6d 69 25 ca 0d  |I%,A%.*....mi%..|
00007c10  2a b2 1c c9 31 35 2c 31  36 2c 31 37 2c 31 38 2c  |*...15,16,17,18,|
00007c20  31 39 2c 32 30 2c 32 31  2c 32 32 0d 2a bc 2d 54  |19,20,21,22.*.-T|
00007c30  25 3d a4 73 74 61 74 66  3a e7 54 25 3e 3d 30 f2  |%=.statf:.T%>=0.|
00007c40  66 72 6f 6e 74 28 77 25  28 54 25 2c 30 29 2c 2d  |front(w%(T%,0),-|
00007c50  31 2c 2d 31 29 3a 8b e1  0d 2a c6 07 c9 31 32 0d  |1,-1):...*...12.|
00007c60  2a d0 07 c9 31 33 0d 2a  da 1e 73 6f 75 6e 64 25  |*...13.*..sound%|
00007c70  3d a3 3a 73 68 61 64 6f  77 73 25 3d a3 3a 70 69  |=.:shadows%=.:pi|
00007c80  78 25 3d a3 0d 2a e4 1c  f2 77 63 68 69 28 77 5f  |x%=..*...wchi(w_|
00007c90  73 74 61 74 75 73 25 29  3a 49 25 3d 71 25 3a f5  |status%):I%=q%:.|
00007ca0  0d 2a ee 0a c8 8e 21 49  25 ca 0d 2a f8 10 c9 32  |.*....!I%..*...2|
00007cb0  34 3a 73 6f 75 6e 64 25  3d b9 0d 2b 02 12 c9 32  |4:sound%=..+...2|
00007cc0  35 3a 73 68 61 64 6f 77  73 25 3d b9 0d 2b 0c 0c  |5:shadows%=..+..|
00007cd0  c9 32 33 3a 41 25 3d b9  0d 2b 16 0e c9 32 38 3a  |.23:A%=..+...28:|
00007ce0  70 69 78 25 3d b9 0d 2b  20 05 cb 0d 2b 2a 12 49  |pix%=..+ ...+*.I|
00007cf0  25 2b 3d 34 3a fd 49 25  21 2d 34 3c 30 0d 2b 34  |%+=4:.I%!-4<0.+4|
00007d00  31 e7 73 6f 75 6e 64 25  3a c8 99 73 77 69 25 2c  |1.sound%:..swi%,|
00007d10  6f 70 74 5f 25 2c 31 30  b8 47 25 3a 8b c8 99 73  |opt_%,10.G%:...s|
00007d20  77 69 25 2c 6f 70 74 5f  25 2c 39 b8 47 25 0d 2b  |wi%,opt_%,9.G%.+|
00007d30  3e 05 cd 0d 2b 48 14 e7  41 25 3c 3e 73 74 6f 70  |>...+H..A%<>stop|
00007d40  62 6f 78 65 73 25 8c 0d  2b 52 46 e7 41 25 73 74  |boxes%..+RF.A%st|
00007d50  6f 70 62 6f 78 65 73 25  3d b9 3a 8b f2 73 74 6f  |opboxes%=.:..sto|
00007d60  70 28 32 30 2c 72 6c 24  2b 22 64 69 73 61 62 6c  |p(20,rl$+"disabl|
00007d70  65 20 74 68 65 73 65 22  2c 22 73 74 6f 70 20 62  |e these","stop b|
00007d80  6f 78 65 73 20 3f 22 2c  2d 31 29 3a e1 0d 2b 5c  |oxes ?",-1):..+\|
00007d90  05 cd 0d 2b 66 06 7f e1  0d 2b 70 05 cb 0d 2b 7a  |...+f....+p...+z|
00007da0  18 f2 63 6c 6f 73 65 77  28 77 5f 73 74 61 74 75  |..closew(w_statu|
00007db0  73 25 29 3a e1 0d 2b 84  04 0d 2b 8e 0f dd f2 6d  |s%):..+...+....m|
00007dc0  74 72 61 6e 73 66 65 72  0d 2b 98 0a c8 8e 6d 69  |transfer.+....mi|
00007dd0  25 ca 0d 2b a2 13 c9 31  35 3a f2 64 6f 74 72 61  |%..+...15:.dotra|
00007de0  6e 73 66 65 72 0d 2b ac  33 c9 32 3a e7 77 25 28  |nsfer.+.3.2:.w%(|
00007df0  73 6f 75 72 63 65 25 2c  30 29 3e 30 3a f2 66 72  |source%,0)>0:.fr|
00007e00  6f 6e 74 28 77 25 28 73  6f 75 72 63 65 25 2c 30  |ont(w%(source%,0|
00007e10  29 2c 2d 31 2c 2d 31 29  0d 2b b6 33 c9 34 3a e7  |),-1,-1).+.3.4:.|
00007e20  77 25 28 74 61 72 67 65  74 25 2c 30 29 3e 30 3a  |w%(target%,0)>0:|
00007e30  f2 66 72 6f 6e 74 28 77  25 28 74 61 72 67 65 74  |.front(w%(target|
00007e40  25 2c 30 29 2c 2d 31 2c  2d 31 29 0d 2b c0 14 c9  |%,0),-1,-1).+...|
00007e50  31 36 3a f2 65 6e 64 74  72 61 6e 73 66 65 72 0d  |16:.endtransfer.|
00007e60  2b ca 21 c9 2d 31 3a f2  66 72 6f 6e 74 28 77 5f  |+.!.-1:.front(w_|
00007e70  74 72 61 6e 73 66 65 72  25 2c 2d 31 2c 2d 31 29  |transfer%,-1,-1)|
00007e80  0d 2b d4 05 cb 0d 2b de  05 e1 0d 2b e8 04 0d 2b  |.+....+....+...+|
00007e90  f2 1f dd f2 6d 74 72 61  6e 73 65 78 70 3a e7 6d  |....mtransexp:.m|
00007ea0  69 25 3c 3e 33 80 6d 69  25 3c 3e 34 e1 0d 2b fc  |i%<>3.mi%<>4..+.|
00007eb0  35 e7 6d 69 25 3d 33 3a  ea 54 24 3a 54 24 3d a4  |5.mi%=3:.T$:T$=.|
00007ec0  73 28 24 a4 69 61 28 77  5f 74 72 61 6e 73 65 78  |s($.ia(w_transex|
00007ed0  70 25 2c 31 29 29 3a f2  73 65 74 65 78 70 28 54  |p%,1)):.setexp(T|
00007ee0  24 29 0d 2c 06 1a f2 63  6c 6f 73 65 77 28 77 5f  |$).,...closew(w_|
00007ef0  74 72 61 6e 73 65 78 70  25 29 3a e1 0d 2c 10 04  |transexp%):..,..|
00007f00  0d 2c 1a 10 dd f2 73 65  74 65 78 70 28 54 24 29  |.,....setexp(T$)|
00007f10  0d 2c 24 0b e7 54 24 3d  22 22 8c 0d 2c 2e 26 66  |.,$..T$=""..,.&f|
00007f20  64 24 28 65 78 70 66 69  65 6c 64 25 29 3d 22 22  |d$(expfield%)=""|
00007f30  3a 66 64 25 28 65 78 70  66 69 65 6c 64 25 29 3d  |:fd%(expfield%)=|
00007f40  30 0d 2c 38 05 cc 0d 2c  42 14 f2 73 64 66 69 6c  |0.,8...,B..sdfil|
00007f50  65 28 73 6f 75 72 63 65  25 29 0d 2c 4c 21 74 24  |e(source%).,L!t$|
00007f60  3d a4 78 38 28 54 24 29  3a 66 64 78 24 28 65 78  |=.x8(T$):fdx$(ex|
00007f70  70 66 69 65 6c 64 25 29  3d 74 24 0d 2c 56 2c ea  |pfield%)=t$.,V,.|
00007f80  85 3a ee 85 ea 3a f7 85  3a 6d 65 6e 75 66 69 65  |.:...:..:menufie|
00007f90  6c 64 25 3d 65 78 70 66  69 65 6c 64 25 3a f2 65  |ld%=expfield%:.e|
00007fa0  72 72 28 32 30 34 29 0d  2c 60 17 c8 99 73 77 69  |rr(204).,`...swi|
00007fb0  25 2c 73 64 35 39 5f 25  2c 54 24 b8 47 25 0d 2c  |%,sd59_%,T$.G%.,|
00007fc0  6a 14 e7 47 25 3d 2d 31  3a f2 65 72 72 28 32 30  |j..G%=-1:.err(20|
00007fd0  35 29 0d 2c 74 06 f7 85  0d 2c 7e 0a e7 47 25 3c  |5).,t....,~..G%<|
00007fe0  30 8c 0d 2c 88 1d 66 64  25 28 65 78 70 66 69 65  |0..,..fd%(expfie|
00007ff0  6c 64 25 29 3d 47 25 80  26 46 46 46 46 46 46 0d  |ld%)=G%.&FFFFFF.|
00008000  2c 92 2d 66 64 24 28 65  78 70 66 69 65 6c 64 25  |,.-fd$(expfield%|
00008010  29 3d 22 40 22 2b a4 66  6e 61 6d 65 28 66 64 25  |)="@"+.fname(fd%|
00008020  28 65 78 70 66 69 65 6c  64 25 29 29 0d 2c 9c 05  |(expfield%)).,..|
00008030  cc 0d 2c a6 27 66 64 25  28 65 78 70 66 69 65 6c  |..,.'fd%(expfiel|
00008040  64 25 29 3d 2d 31 3a 66  64 24 28 65 78 70 66 69  |d%)=-1:fd$(expfi|
00008050  65 6c 64 25 29 3d 54 24  0d 2c b0 05 cd 0d 2c ba  |eld%)=T$.,....,.|
00008060  05 cd 0d 2c c4 16 f2 75  70 64 65 78 70 28 65 78  |...,...updexp(ex|
00008070  70 66 69 65 6c 64 25 29  0d 2c ce 05 e1 0d 2c d8  |pfield%).,....,.|
00008080  04 0d 2c e2 0f dd f2 73  74 61 72 74 64 72 61 67  |..,....startdrag|
00008090  0d 2c ec 2f 64 72 61 67  72 65 61 73 6f 6e 25 3d  |.,./dragreason%=|
000080a0  2d 31 3a 64 72 61 67 62  75 74 74 6f 6e 25 3d 6d  |-1:dragbutton%=m|
000080b0  62 25 3a 6d 65 6e 75 66  69 6c 65 25 3d 2d 31 0d  |b%:menufile%=-1.|
000080c0  2c f6 19 f2 77 74 6f 66  28 6d 68 25 29 3a e7 66  |,...wtof(mh%):.f|
000080d0  69 6c 65 25 3e 3d 30 8c  0d 2d 00 13 6d 65 6e 75  |ile%>=0..-..menu|
000080e0  66 69 6c 65 25 3d 66 69  6c 65 25 0d 2d 0a 0c c8  |file%=file%.-...|
000080f0  8e 77 69 6e 64 25 ca 0d  2d 14 06 c9 30 0d 2d 1e  |.wind%..-...0.-.|
00008100  31 e7 66 69 6c 65 25 3d  73 6f 75 72 63 65 25 80  |1.file%=source%.|
00008110  ac a4 64 65 61 64 66 69  6c 65 28 25 31 31 31 31  |..deadfile(%1111|
00008120  31 31 31 31 30 31 30 31  31 31 31 31 29 8c 0d 2d  |111101011111)..-|
00008130  28 3c 6d 65 6e 75 66 69  65 6c 64 25 3d a4 6d 6f  |(<menufield%=.mo|
00008140  75 73 65 66 3a e7 6d 65  6e 75 66 69 65 6c 64 25  |usef:.menufield%|
00008150  3e 30 64 72 61 67 72 65  61 73 6f 6e 25 3d 33 3a  |>0dragreason%=3:|
00008160  f2 64 72 61 67 66 69 65  6c 64 0d 2d 32 05 cd 0d  |.dragfield.-2...|
00008170  2d 3c 06 c9 31 0d 2d 46  0a c8 8e 6d 69 25 ca 0d  |-<..1.-F...mi%..|
00008180  2d 50 46 c9 31 34 3a e7  ac a4 64 65 61 64 66 69  |-PF.14:...deadfi|
00008190  6c 65 28 2d 31 29 3a 6d  65 6e 75 66 69 65 6c 64  |le(-1):menufield|
000081a0  25 3d 2d 31 3a 64 72 61  67 72 65 61 73 6f 6e 25  |%=-1:dragreason%|
000081b0  3d 33 3a f2 64 72 61 67  69 63 6f 6e 28 6d 68 25  |=3:.dragicon(mh%|
000081c0  2c 6d 69 25 29 0d 2d 5a  46 c9 32 32 3a e7 ac a4  |,mi%).-ZF.22:...|
000081d0  64 65 61 64 66 69 6c 65  28 25 31 31 31 31 31 31  |deadfile(%111111|
000081e0  31 31 30 31 31 31 31 31  31 31 29 64 72 61 67 72  |1101111111)dragr|
000081f0  65 61 73 6f 6e 25 3d 31  3a f2 64 72 61 67 69 63  |eason%=1:.dragic|
00008200  6f 6e 28 6d 68 25 2c 6d  69 25 29 0d 2d 64 05 cb  |on(mh%,mi%).-d..|
00008210  0d 2d 6e 06 c9 32 0d 2d  78 60 e7 ac a4 64 65 61  |.-n..2.-x`...dea|
00008220  64 66 69 6c 65 28 25 31  31 31 31 31 31 31 31 31  |dfile(%111111111|
00008230  31 31 31 31 31 31 31 30  29 3a 6d 65 6e 75 73 75  |11111110):menusu|
00008240  62 25 3d a4 69 74 6f 73  3a e7 6d 65 6e 75 73 75  |b%=.itos:.menusu|
00008250  62 25 3e 3d 30 3a 64 72  61 67 72 65 61 73 6f 6e  |b%>=0:dragreason|
00008260  25 3d 32 3a f2 64 72 61  67 69 63 6f 6e 28 6d 68  |%=2:.dragicon(mh|
00008270  25 2c 6d 69 25 29 0d 2d  82 06 c9 34 0d 2d 8c 13  |%,mi%).-...4.-..|
00008280  e7 66 69 6c 65 25 3d 73  6f 75 72 63 65 25 8c 0d  |.file%=source%..|
00008290  2d 96 3a 6d 65 6e 75 66  69 65 6c 64 25 3d 6d 79  |-.:menufield%=my|
000082a0  25 3a f2 66 6f 72 6d 73  74 61 74 3a f2 79 63 6f  |%:.formstat:.yco|
000082b0  6e 76 28 6d 65 6e 75 66  69 65 6c 64 25 2c a4 76  |nv(menufield%,.v|
000082c0  5f 28 37 29 2c 6d 68 25  29 0d 2d a0 1d 64 72 61  |_(7),mh%).-..dra|
000082d0  67 72 65 61 73 6f 6e 25  3d 33 3a f2 64 72 61 67  |greason%=3:.drag|
000082e0  66 69 65 6c 64 31 0d 2d  aa 05 cd 0d 2d b4 3e c9  |field1.-....-.>.|
000082f0  36 3a e7 6d 69 25 3c 31  39 3a 64 72 61 67 72 65  |6:.mi%<19:dragre|
00008300  61 73 6f 6e 25 3d 36 3a  6d 65 6e 75 66 69 65 6c  |ason%=6:menufiel|
00008310  64 25 3d 6d 69 25 3a f2  64 72 61 67 69 63 6f 6e  |d%=mi%:.dragicon|
00008320  28 6d 68 25 2c 6d 69 25  29 0d 2d be 05 cb 0d 2d  |(mh%,mi%).-....-|
00008330  c8 05 cc 0d 2d d2 0a c8  8e 6d 68 25 ca 0d 2d dc  |....-....mh%..-.|
00008340  36 c9 77 5f 73 61 76 65  25 3a e7 6d 69 25 3d 33  |6.w_save%:.mi%=3|
00008350  3a 64 72 61 67 72 65 61  73 6f 6e 25 3d 35 3a f2  |:dragreason%=5:.|
00008360  64 72 61 67 69 63 6f 6e  28 77 5f 73 61 76 65 25  |dragicon(w_save%|
00008370  2c 33 29 0d 2d e6 05 cb  0d 2d f0 05 cd 0d 2d fa  |,3).-....-....-.|
00008380  05 e1 0d 2e 04 04 0d 2e  0e 0d dd f2 65 6e 64 64  |............endd|
00008390  72 61 67 0d 2e 18 31 f2  72 65 61 64 70 6f 69 6e  |rag...1.readpoin|
000083a0  74 65 72 3a e7 6d 65 6e  75 66 69 6c 65 25 3e 3d  |ter:.menufile%>=|
000083b0  30 3a f2 73 64 66 69 6c  65 28 6d 65 6e 75 66 69  |0:.sdfile(menufi|
000083c0  6c 65 25 29 0d 2e 22 0d  e7 6d 68 25 3c 3e 2d 31  |le%).."..mh%<>-1|
000083d0  8c 0d 2e 2c 12 c8 8e 64  72 61 67 72 65 61 73 6f  |...,...dragreaso|
000083e0  6e 25 ca 0d 2e 36 0e c9  31 3a f2 63 61 72 64 64  |n%...6..1:.cardd|
000083f0  72 0d 2e 40 0e c9 32 3a  f2 73 75 62 73 64 72 0d  |r..@..2:.subsdr.|
00008400  2e 4a 0f c9 33 3a f2 66  69 65 6c 64 64 72 0d 2e  |.J..3:.fielddr..|
00008410  54 0f c9 34 3a f2 63 61  72 64 64 72 31 0d 2e 5e  |T..4:.carddr1..^|
00008420  4b c9 35 3a f2 73 61 76  65 72 65 71 28 a4 6c 65  |K.5:.savereq(.le|
00008430  61 66 28 24 a4 69 61 28  77 5f 73 61 76 65 25 2c  |af($.ia(w_save%,|
00008440  32 29 29 2c 73 61 76 65  74 25 2c 73 61 76 65 73  |2)),savet%,saves|
00008450  25 2c 73 61 76 65 72 65  61 73 6f 6e 25 2c 73 61  |%,savereason%,sa|
00008460  76 65 66 69 6c 65 25 29  0d 2e 68 0e c9 36 3a f2  |vefile%)..h..6:.|
00008470  6e 6f 74 65 64 72 0d 2e  72 05 cb 0d 2e 7c 05 cd  |notedr..r....|..|
00008480  0d 2e 86 1f 64 72 61 67  72 65 61 73 6f 6e 25 3d  |....dragreason%=|
00008490  2d 31 3a 6d 65 6e 75 66  69 6c 65 25 3d 2d 31 0d  |-1:menufile%=-1.|
000084a0  2e 90 05 e1 0d 2e 9a 04  0d 2e a4 2c dd f2 75 6e  |...........,..un|
000084b0  73 65 6c 69 28 68 25 2c  69 25 29 3a f2 69 73 65  |seli(h%,i%):.ise|
000084c0  74 28 68 25 2c 69 25 2c  26 32 30 30 30 30 30 2c  |t(h%,i%,&200000,|
000084d0  30 29 3a e1 0d 2e ae 30  dd f2 73 65 6c 69 28 68  |0):....0..seli(h|
000084e0  25 2c 69 25 29 3a f2 69  73 65 74 28 68 25 2c 69  |%,i%):.iset(h%,i|
000084f0  25 2c 26 32 30 30 30 30  30 2c 26 32 30 30 30 30  |%,&200000,&20000|
00008500  30 29 3a e1 0d 2e b8 32  dd f2 73 68 61 64 65 69  |0):....2..shadei|
00008510  28 68 25 2c 69 25 29 3a  f2 69 73 65 74 28 68 25  |(h%,i%):.iset(h%|
00008520  2c 69 25 2c 26 34 30 30  30 30 30 2c 26 34 30 30  |,i%,&400000,&400|
00008530  30 30 30 29 3a e1 0d 2e  c2 04 0d 2e cc 12 dd f2  |000):...........|
00008540  75 6e 73 65 6c 61 6c 6c  28 68 25 29 0d 2e d6 14  |unselall(h%)....|
00008550  ea 49 25 2c 69 25 3a f2  77 63 68 69 28 68 25 29  |.I%,i%:.wchi(h%)|
00008560  0d 2e e0 28 49 25 3d 71  25 3a f5 3a 69 25 3d 21  |...(I%=q%:.:i%=!|
00008570  49 25 3a e7 69 25 3e 3d  30 3a f2 75 6e 73 65 6c  |I%:.i%>=0:.unsel|
00008580  69 28 68 25 2c 69 25 29  0d 2e ea 11 49 25 2b 3d  |i(h%,i%)....I%+=|
00008590  34 3a fd 69 25 3c 30 3a  e1 0d 2e f4 04 0d 2e fe  |4:.i%<0:........|
000085a0  37 dd f2 77 63 68 69 28  68 25 29 3a c8 99 22 57  |7..wchi(h%):.."W|
000085b0  69 6d 70 5f 57 68 69 63  68 49 63 6f 6e 22 2c 68  |imp_WhichIcon",h|
000085c0  25 2c 71 25 2c 26 32 30  30 30 30 30 2c 26 32 30  |%,q%,&200000,&20|
000085d0  30 30 30 30 0d 2f 08 05  e1 0d 2f 12 04 0d 2f 1c  |0000./..../.../.|
000085e0  0a dd f2 6d 65 6e 75 0d  2f 26 29 f2 77 74 6f 66  |...menu./&).wtof|
000085f0  28 6d 68 25 29 3a 6d 65  6e 75 66 69 6c 65 25 3d  |(mh%):menufile%=|
00008600  66 69 6c 65 25 3a e7 66  69 6c 65 25 3e 3d 30 8c  |file%:.file%>=0.|
00008610  0d 2f 30 0c c8 8e 77 69  6e 64 25 ca 0d 2f 3a 12  |./0...wind%../:.|
00008620  c9 30 2c 31 3a f2 63 61  72 64 6d 65 6e 75 0d 2f  |.0,1:.cardmenu./|
00008630  44 18 c9 35 3a f2 70 6f  70 28 6d 5f 69 6e 64 65  |D..5:.pop(m_inde|
00008640  78 25 2c 2d 31 29 0d 2f  4e 17 c9 36 3a f2 70 6f  |x%,-1)./N..6:.po|
00008650  70 28 6d 5f 6e 70 61 64  25 2c 2d 31 29 0d 2f 58  |p(m_npad%,-1)./X|
00008660  19 c9 37 3a f2 70 6f 70  28 6d 5f 6d 61 63 72 6f  |..7:.pop(m_macro|
00008670  31 25 2c 2d 31 29 0d 2f  62 05 cb 0d 2f 6c 05 cc  |1%,-1)./b.../l..|
00008680  0d 2f 76 0a c8 8e 6d 68  25 ca 0d 2f 80 31 c9 2d  |./v...mh%../.1.-|
00008690  32 3a 6d 79 25 3d 36 34  2b 37 2a 34 34 3a 6d 65  |2:my%=64+7*44:me|
000086a0  6e 75 66 69 6c 65 25 3d  2d 31 3a f2 70 6f 70 28  |nufile%=-1:.pop(|
000086b0  6d 5f 6d 61 69 6e 25 2c  2d 31 29 0d 2f 8a 18 c9  |m_main%,-1)./...|
000086c0  77 5f 73 74 61 74 75 73  25 3a f2 73 74 61 74 6d  |w_status%:.statm|
000086d0  65 6e 75 0d 2f 94 25 c9  77 5f 74 72 61 6e 73 66  |enu./.%.w_transf|
000086e0  65 72 25 3a f2 70 6f 70  28 6d 5f 74 72 61 6e 73  |er%:.pop(m_trans|
000086f0  66 65 72 25 2c 2d 31 29  0d 2f 9e 05 cb 0d 2f a8  |fer%,-1)./..../.|
00008700  05 cd 0d 2f b2 05 e1 0d  2f bc 04 0d 2f c6 0e dd  |.../..../.../...|
00008710  f2 63 61 72 64 6d 65 6e  75 0d 2f d0 3a e7 ac a4  |.cardmenu./.:...|
00008720  66 6c 67 28 66 5f 70 61  6e 65 25 29 80 a4 64 65  |flg(f_pane%)..de|
00008730  61 64 66 69 6c 65 31 28  25 31 31 31 31 31 31 31  |adfile1(%1111111|
00008740  31 31 30 31 31 31 31 31  31 30 29 f2 72 65 61 64  |1101111110).read|
00008750  79 3a e1 0d 2f da 3c e7  73 25 28 66 69 6c 65 25  |y:../.<.s%(file%|
00008760  29 3c 3e 30 84 a4 76 5f  28 31 35 29 3c 3e 30 3a  |)<>0..v_(15)<>0:|
00008770  e7 a4 64 65 61 64 66 69  6c 65 28 25 31 31 31 31  |..deadfile(%1111|
00008780  31 31 31 31 31 30 31 31  31 31 31 31 30 29 e1 0d  |1111101111110)..|
00008790  2f e4 16 f2 70 6f 70 28  6d 5f 63 61 72 64 25 2c  |/...pop(m_card%,|
000087a0  2d 31 29 3a e1 0d 2f ee  04 0d 2f f8 2e dd f2 73  |-1):../.../....s|
000087b0  74 61 74 6d 65 6e 75 3a  6d 65 6e 75 66 69 6c 65  |tatmenu:menufile|
000087c0  25 3d a4 73 74 61 74 66  3a e7 6d 65 6e 75 66 69  |%=.statf:.menufi|
000087d0  6c 65 25 3c 30 3a e1 0d  30 02 18 f2 70 6f 70 28  |le%<0:..0...pop(|
000087e0  6d 5f 73 74 61 74 75 73  25 2c 2d 31 29 3a e1 0d  |m_status%,-1):..|
000087f0  30 0c 04 0d 30 16 1a dd  a4 70 61 72 28 74 24 2c  |0...0....par(t$,|
00008800  73 24 2c f8 20 69 25 29  3a ea 69 31 25 0d 30 20  |s$,. i%):.i1%.0 |
00008810  1e 69 31 25 3d 69 25 2b  31 3a 69 25 3d a7 74 24  |.i1%=i%+1:i%=.t$|
00008820  2b 73 24 2c 73 24 2c 69  31 25 29 0d 30 2a 14 3d  |+s$,s$,i1%).0*.=|
00008830  c1 74 24 2c 69 31 25 2c  69 25 2d 69 31 25 29 0d  |.t$,i1%,i%-i1%).|
00008840  30 34 04 0d 30 3e 13 dd  a4 63 72 6d 65 6e 75 28  |04..0>...crmenu(|
00008850  6d 65 6e 75 24 29 0d 30  48 2e e7 6d 65 6e 75 66  |menu$).0H..menuf|
00008860  72 65 65 25 2b 32 38 3e  6d 65 6e 75 65 6e 64 25  |ree%+28>menuend%|
00008870  85 39 39 2c 22 4d 65 6e  75 20 61 72 65 61 20 66  |.99,"Menu area f|
00008880  75 6c 6c 22 0d 30 52 08  ea 20 6d 25 0d 30 5c 16  |ull".0R.. m%.0\.|
00008890  6d 65 6e 75 70 74 72 25  3d 6d 65 6e 75 66 72 65  |menuptr%=menufre|
000088a0  65 25 0d 30 66 08 69 25  3d 30 0d 30 70 43 e7 20  |e%.0f.i%=0.0pC. |
000088b0  c0 6d 65 6e 75 24 2c 31  29 3d 22 23 22 69 25 3d  |.menu$,1)="#"i%=|
000088c0  31 3a 6d 65 6e 75 74 69  74 6c 65 24 3d a4 70 61  |1:menutitle$=.pa|
000088d0  72 28 6d 65 6e 75 24 2c  22 2c 22 2c 69 25 29 8b  |r(menu$,",",i%).|
000088e0  6d 65 6e 75 74 69 74 6c  65 24 3d 22 22 0d 30 7a  |menutitle$="".0z|
000088f0  18 24 6d 65 6e 75 70 74  72 25 3d 6d 65 6e 75 74  |.$menuptr%=menut|
00008900  69 74 6c 65 24 0d 30 84  3b 6d 65 6e 75 70 74 72  |itle$.0.;menuptr|
00008910  25 3f 31 32 3d 37 3a 6d  65 6e 75 70 74 72 25 3f  |%?12=7:menuptr%?|
00008920  31 33 3d 32 3a 6d 65 6e  75 70 74 72 25 3f 31 34  |13=2:menuptr%?14|
00008930  3d 37 3a 6d 65 6e 75 70  74 72 25 3f 31 35 3d 30  |=7:menuptr%?15=0|
00008940  0d 30 8e 33 6d 65 6e 75  70 74 72 25 21 31 36 3d  |.0.3menuptr%!16=|
00008950  31 39 36 2d 32 34 3a 6d  65 6e 75 70 74 72 25 21  |196-24:menuptr%!|
00008960  32 30 3d 34 34 3a 6d 65  6e 75 70 74 72 25 21 32  |20=44:menuptr%!2|
00008970  34 3d 30 0d 30 98 22 6d  65 6e 75 70 74 72 25 2b  |4=0.0."menuptr%+|
00008980  3d 32 38 3a 6d 61 78 78  25 3d a9 6d 65 6e 75 74  |=28:maxx%=.menut|
00008990  69 74 6c 65 24 0d 30 a2  1d f5 69 74 65 6d 24 3d  |itle$.0...item$=|
000089a0  a4 70 61 72 28 6d 65 6e  75 24 2c 22 2c 22 2c 69  |.par(menu$,",",i|
000089b0  25 29 0d 30 ac 14 f2 6d  65 6e 75 69 74 65 6d 28  |%).0...menuitem(|
000089c0  69 74 65 6d 24 29 0d 30  b6 0e fd 20 69 74 65 6d  |item$).0... item|
000089d0  24 3d 22 22 0d 30 c0 24  6d 25 3d 6d 65 6e 75 66  |$="".0.$m%=menuf|
000089e0  72 65 65 25 3a 6d 25 21  31 36 3d 28 6d 61 78 78  |ree%:m%!16=(maxx|
000089f0  25 2a 38 2b 36 29 2a 32  0d 30 ca 16 6d 65 6e 75  |%*8+6)*2.0..menu|
00008a00  66 72 65 65 25 3d 6d 65  6e 75 70 74 72 25 0d 30  |free%=menuptr%.0|
00008a10  d4 07 3d 6d 25 0d 30 de  04 0d 30 e8 15 dd f2 6d  |..=m%.0...0....m|
00008a20  65 6e 75 69 74 65 6d 28  74 65 78 74 24 29 0d 30  |enuitem(text$).0|
00008a30  f2 2e e7 74 65 78 74 24  3d 22 22 6d 65 6e 75 70  |...text$=""menup|
00008a40  74 72 25 21 2d 32 34 3d  28 6d 65 6e 75 70 74 72  |tr%!-24=(menuptr|
00008a50  25 21 2d 32 34 29 84 26  38 30 3a e1 0d 30 fc 2e  |%!-24).&80:..0..|
00008a60  e7 6d 65 6e 75 70 74 72  25 2b 32 34 3e 6d 65 6e  |.menuptr%+24>men|
00008a70  75 65 6e 64 25 8c 85 39  39 2c 22 4d 65 6e 75 20  |uend%..99,"Menu |
00008a80  61 72 65 61 20 66 75 6c  6c 22 0d 31 06 0c ea 69  |area full".1...i|
00008a90  25 2c 66 6c 67 25 0d 31  10 0c 66 6c 67 25 3d 26  |%,flg%.1..flg%=&|
00008aa0  30 30 0d 31 1a 12 69 25  3d a7 74 65 78 74 24 2c  |00.1..i%=.text$,|
00008ab0  22 3e 22 29 0d 31 24 3c  e7 69 25 3e 30 73 75 62  |">").1$<.i%>0sub|
00008ac0  70 74 72 25 3d a0 c1 74  65 78 74 24 2c 69 25 2b  |ptr%=..text$,i%+|
00008ad0  31 29 3a 74 65 78 74 24  3d c0 74 65 78 74 24 2c  |1):text$=.text$,|
00008ae0  69 25 2d 31 29 8b 73 75  62 70 74 72 25 3d 2d 31  |i%-1).subptr%=-1|
00008af0  0d 31 2e 12 69 25 3d a7  74 65 78 74 24 2c 22 7d  |.1..i%=.text$,"}|
00008b00  22 29 0d 31 38 3b e7 69  25 3e 30 73 75 62 70 74  |").18;.i%>0subpt|
00008b10  72 25 3d a0 c1 74 65 78  74 24 2c 69 25 2b 31 29  |r%=..text$,i%+1)|
00008b20  3a 74 65 78 74 24 3d c0  74 65 78 74 24 2c 69 25  |:text$=.text$,i%|
00008b30  2d 31 29 3a 66 6c 67 25  2b 3d 26 30 38 0d 31 42  |-1):flg%+=&08.1B|
00008b40  29 e7 c2 74 65 78 74 24  2c 31 29 3d 22 23 22 74  |)..text$,1)="#"t|
00008b50  65 78 74 24 3d c0 74 65  78 74 24 29 3a 66 6c 67  |ext$=.text$):flg|
00008b60  25 2b 3d 26 30 32 0d 31  4c 3b 6d 65 6e 75 70 74  |%+=&02.1L;menupt|
00008b70  72 25 21 30 3d 66 6c 67  25 3a 6d 65 6e 75 70 74  |r%!0=flg%:menupt|
00008b80  72 25 21 34 3d 73 75 62  70 74 72 25 3a 6d 65 6e  |r%!4=subptr%:men|
00008b90  75 70 74 72 25 21 38 3d  26 30 37 30 30 30 30 32  |uptr%!8=&0700002|
00008ba0  31 0d 31 56 13 e7 c0 74  65 78 74 24 2c 31 29 3d  |1.1V...text$,1)=|
00008bb0  22 24 22 8c 0d 31 60 32  21 6d 65 6e 75 70 74 72  |"$"..1`2!menuptr|
00008bc0  25 2b 3d 26 30 34 3a 6d  65 6e 75 70 74 72 25 21  |%+=&04:menuptr%!|
00008bd0  38 2b 3d 26 31 30 30 3a  69 25 3d a7 74 65 78 74  |8+=&100:i%=.text|
00008be0  24 2c 22 28 22 29 0d 31  6a 33 e7 69 25 3e 30 8c  |$,"(").1j3.i%>0.|
00008bf0  4c 25 3d bb c1 74 65 78  74 24 2c 69 25 2b 31 29  |L%=..text$,i%+1)|
00008c00  3a 74 65 78 74 24 3d c0  74 65 78 74 24 2c 69 25  |:text$=.text$,i%|
00008c10  2d 31 29 8b 4c 25 3d 31  32 0d 31 74 38 6d 65 6e  |-1).L%=12.1t8men|
00008c20  75 70 74 72 25 21 31 32  3d a0 c1 74 65 78 74 24  |uptr%!12=..text$|
00008c30  2c 32 29 3a 6d 65 6e 75  70 74 72 25 21 31 36 3d  |,2):menuptr%!16=|
00008c40  2d 31 3a 6d 65 6e 75 70  74 72 25 21 32 30 3d 4c  |-1:menuptr%!20=L|
00008c50  25 0d 31 7e 12 74 65 78  74 24 3d c4 4c 25 2c 22  |%.1~.text$=.L%,"|
00008c60  20 22 29 0d 31 88 05 cc  0d 31 92 10 e7 a9 74 65  | ").1....1....te|
00008c70  78 74 24 3c 3d 31 32 8c  0d 31 9c 18 24 28 6d 65  |xt$<=12..1..$(me|
00008c80  6e 75 70 74 72 25 2b 31  32 29 3d 74 65 78 74 24  |nuptr%+12)=text$|
00008c90  0d 31 a6 05 cc 0d 31 b0  25 49 25 3d a4 77 6f 72  |.1....1.%I%=.wor|
00008ca0  6b 73 70 61 63 65 28 a9  74 65 78 74 24 2b 31 29  |kspace(.text$+1)|
00008cb0  3a 24 49 25 3d 74 65 78  74 24 0d 31 ba 36 6d 65  |:$I%=text$.1.6me|
00008cc0  6e 75 70 74 72 25 21 31  32 3d 49 25 3a 6d 65 6e  |nuptr%!12=I%:men|
00008cd0  75 70 74 72 25 21 31 36  3d 2d 31 3a 6d 65 6e 75  |uptr%!16=-1:menu|
00008ce0  70 74 72 25 21 32 30 3d  a9 74 65 78 74 24 2b 31  |ptr%!20=.text$+1|
00008cf0  0d 31 c4 20 6d 65 6e 75  70 74 72 25 21 38 3d 6d  |.1. menuptr%!8=m|
00008d00  65 6e 75 70 74 72 25 21  38 20 84 20 26 31 30 30  |enuptr%!8 . &100|
00008d10  0d 31 ce 05 cd 0d 31 d8  1d e7 a9 74 65 78 74 24  |.1....1....text$|
00008d20  3e 6d 61 78 78 25 6d 61  78 78 25 3d a9 74 65 78  |>maxx%maxx%=.tex|
00008d30  74 24 0d 31 e2 05 cd 0d  31 ec 10 6d 65 6e 75 70  |t$.1....1..menup|
00008d40  74 72 25 2b 3d 32 34 0d  31 f6 05 e1 0d 32 00 04  |tr%+=24.1....2..|
00008d50  0d 32 0a 13 dd a4 77 6f  72 6b 73 70 61 63 65 28  |.2....workspace(|
00008d60  4c 25 29 0d 32 14 32 e7  20 63 75 72 62 75 66 25  |L%).2.2. curbuf%|
00008d70  2b 4c 25 3e 65 6e 64 62  75 66 25 85 39 39 2c 22  |+L%>endbuf%.99,"|
00008d80  4e 6f 20 6d 6f 72 65 20  62 75 66 66 65 72 20 73  |No more buffer s|
00008d90  70 61 63 65 22 0d 32 1e  1b 63 75 72 62 75 66 25  |pace".2..curbuf%|
00008da0  2b 3d 4c 25 3a 3d 63 75  72 62 75 66 25 2d 4c 25  |+=L%:=curbuf%-L%|
00008db0  0d 32 28 04 0d 32 32 17  dd f2 70 72 65 70 28 6d  |.2(..22...prep(m|
00008dc0  65 6e 75 25 2c 74 72 65  65 25 29 0d 32 3c 0a ea  |enu%,tree%).2<..|
00008dd0  49 25 2c 54 24 0d 32 46  34 f2 63 6c 65 61 72 74  |I%,T$.2F4.cleart|
00008de0  73 28 6d 65 6e 75 25 29  3a e7 6d 65 6e 75 66 69  |s(menu%):.menufi|
00008df0  6c 65 25 3e 3d 30 3a f2  73 64 66 69 6c 65 28 6d  |le%>=0:.sdfile(m|
00008e00  65 6e 75 66 69 6c 65 25  29 0d 32 50 0c c8 8e 6d  |enufile%).2P...m|
00008e10  65 6e 75 25 ca 0d 32 5a  15 c9 6d 5f 63 61 72 64  |enu%..2Z..m_card|
00008e20  25 3a f2 6d 70 5f 63 61  72 64 0d 32 64 19 c9 6d  |%:.mp_card.2d..m|
00008e30  5f 6d 61 63 72 6f 31 25  3a f2 6d 70 5f 6d 61 63  |_macro1%:.mp_mac|
00008e40  72 6f 31 0d 32 6e 15 c9  6d 5f 77 69 6e 64 25 3a  |ro1.2n..m_wind%:|
00008e50  f2 6d 70 5f 77 69 6e 64  0d 32 78 15 c9 6d 5f 6e  |.mp_wind.2x..m_n|
00008e60  70 61 64 25 3a f2 6d 70  5f 6e 70 61 64 0d 32 82  |pad%:.mp_npad.2.|
00008e70  15 c9 6d 5f 6d 61 69 6e  25 3a f2 6d 70 5f 6d 61  |..m_main%:.mp_ma|
00008e80  69 6e 0d 32 8c 19 c9 6d  5f 73 74 61 74 75 73 25  |in.2...m_status%|
00008e90  3a f2 6d 70 5f 73 74 61  74 75 73 0d 32 96 19 c9  |:.mp_status.2...|
00008ea0  6d 5f 72 65 70 6f 72 74  25 3a f2 6d 70 5f 72 65  |m_report%:.mp_re|
00008eb0  70 6f 72 74 0d 32 a0 17  c9 6d 5f 72 74 79 70 65  |port.2...m_rtype|
00008ec0  25 3a f2 6d 70 5f 72 74  79 70 65 0d 32 aa 17 c9  |%:.mp_rtype.2...|
00008ed0  6d 5f 72 73 65 74 31 25  3a f2 6d 70 5f 72 73 65  |m_rset1%:.mp_rse|
00008ee0  74 31 0d 32 b4 17 c9 6d  5f 69 6e 64 65 78 25 3a  |t1.2...m_index%:|
00008ef0  f2 6d 70 5f 69 6e 64 65  78 0d 32 be 1d c9 6d 5f  |.mp_index.2...m_|
00008f00  74 72 61 6e 73 66 65 72  25 3a f2 6d 70 5f 74 72  |transfer%:.mp_tr|
00008f10  61 6e 73 66 65 72 0d 32  c8 05 cb 0d 32 d2 05 e1  |ansfer.2....2...|
00008f20  0d 32 dc 04 0d 32 e6 11  dd f2 6d 70 5f 74 72 61  |.2...2....mp_tra|
00008f30  6e 73 66 65 72 0d 32 f0  4e e7 a4 76 5f 28 31 29  |nsfer.2.N..v_(1)|
00008f40  3c 3e 34 3a f2 73 68 61  64 65 28 6d 65 6e 75 25  |<>4:.shade(menu%|
00008f50  2c 30 29 3a f2 73 68 61  64 65 28 6d 65 6e 75 25  |,0):.shade(menu%|
00008f60  2c 32 29 3a f2 73 68 61  64 65 28 6d 65 6e 75 25  |,2):.shade(menu%|
00008f70  2c 33 29 3a f2 73 68 61  64 65 28 6d 65 6e 75 25  |,3):.shade(menu%|
00008f80  2c 34 29 0d 32 fa 24 e7  77 25 28 74 61 72 67 65  |,4).2.$.w%(targe|
00008f90  74 25 2c 30 29 3c 3d 30  f2 73 68 61 64 65 28 6d  |t%,0)<=0.shade(m|
00008fa0  65 6e 75 25 2c 31 29 0d  33 04 39 f2 73 61 76 65  |enu%,1).3.9.save|
00008fb0  73 65 74 28 66 5f 74 66  24 2c 26 44 37 42 2c 32  |set(f_tf$,&D7B,2|
00008fc0  30 30 2c 2d 31 2c c6 8e  a9 66 64 24 28 29 2b 6d  |00,-1,...fd$()+m|
00008fd0  61 78 66 69 65 6c 64 73  25 2a 32 2b 32 30 30 29  |axfields%*2+200)|
00008fe0  0d 33 0e 05 e1 0d 33 18  04 0d 33 22 12 dd f2 6d  |.3....3...3"...m|
00008ff0  70 5f 69 6e 64 65 78 3a  ea 49 25 0d 33 2c 33 6d  |p_index:.I%.3,3m|
00009000  65 6e 75 69 6e 64 65 78  25 3d 6d 79 25 3a f2 79  |enuindex%=my%:.y|
00009010  63 6f 6e 76 28 6d 65 6e  75 69 6e 64 65 78 25 2c  |conv(menuindex%,|
00009020  a4 6e 69 6e 64 69 63 65  73 2c 6d 68 25 29 0d 33  |.nindices,mh%).3|
00009030  36 2c e7 a4 6e 69 6e 64  69 63 65 73 3c 3d 30 3a  |6,..nindices<=0:|
00009040  e3 49 25 3d 30 b8 32 3a  f2 73 68 61 64 65 28 6d  |.I%=0.2:.shade(m|
00009050  65 6e 75 25 2c 49 25 29  3a ed 0d 33 40 05 e1 0d  |enu%,I%):..3@...|
00009060  33 4a 04 0d 33 54 0d dd  f2 6d 70 5f 63 61 72 64  |3J..3T...mp_card|
00009070  0d 33 5e 1a ea 54 25 3a  54 25 3d 6d 65 6e 75 25  |.3^..T%:T%=menu%|
00009080  2b 32 38 2b 30 2a 32 34  2b 34 0d 33 68 17 e7 6d  |+28+0*24+4.3h..m|
00009090  65 6e 75 66 69 6c 65 25  3d 74 61 72 67 65 74 25  |enufile%=target%|
000090a0  8c 0d 33 72 13 f2 73 68  61 64 65 28 6d 65 6e 75  |..3r..shade(menu|
000090b0  25 2c 30 29 0d 33 7c 05  cc 0d 33 86 13 f2 73 68  |%,0).3|...3...sh|
000090c0  61 64 65 28 6d 65 6e 75  25 2c 32 29 0d 33 90 3a  |ade(menu%,2).3.:|
000090d0  e7 a4 66 6c 67 28 66 5f  70 61 6e 65 25 29 3a f2  |..flg(f_pane%):.|
000090e0  74 69 63 6b 28 6d 65 6e  75 25 2c 30 29 3a 21 54  |tick(menu%,0):!T|
000090f0  25 3d 2d 31 3a 8b 3a 21  54 25 3d 77 25 28 66 69  |%=-1:.:!T%=w%(fi|
00009100  6c 65 25 2c 31 29 0d 33  9a 05 cd 0d 33 a4 1c e7  |le%,1).3....3...|
00009110  a4 6d 61 63 6d 6f 64 65  3a f2 74 69 63 6b 28 6d  |.macmode:.tick(m|
00009120  65 6e 75 25 2c 31 29 0d  33 ae 1a e7 a4 64 65 66  |enu%,1).3....def|
00009130  6f 6e 3a f2 74 69 63 6b  28 6d 65 6e 75 25 2c 32  |on:.tick(menu%,2|
00009140  29 0d 33 b8 1a f2 70 72  65 70 28 6d 5f 77 69 6e  |).3...prep(m_win|
00009150  64 25 2c 74 72 65 65 25  29 3a e1 0d 33 c2 04 0d  |d%,tree%):..3...|
00009160  33 cc 0f dd f2 6d 70 5f  6d 61 63 72 6f 31 0d 33  |3....mp_macro1.3|
00009170  d6 10 c8 8e a4 6d 61 63  6d 6f 64 65 20 ca 0d 33  |.....macmode ..3|
00009180  e0 1b c9 66 5f 6d 61 63  62 25 3a f2 74 69 63 6b  |...f_macb%:.tick|
00009190  28 6d 65 6e 75 25 2c 30  29 0d 33 ea 1b c9 66 5f  |(menu%,0).3...f_|
000091a0  6d 61 63 65 25 3a f2 74  69 63 6b 28 6d 65 6e 75  |mace%:.tick(menu|
000091b0  25 2c 30 29 0d 33 f4 05  cb 0d 33 fe 2a f2 73 61  |%,0).3....3.*.sa|
000091c0  76 65 73 65 74 28 66 5f  6d 63 24 2c 26 46 46 46  |veset(f_mc$,&FFF|
000091d0  2c 36 2c 6d 65 6e 75 66  69 6c 65 25 2c 38 30 2a  |,6,menufile%,80*|
000091e0  33 30 29 0d 34 08 05 cb  0d 34 12 05 e1 0d 34 1c  |30).4....4....4.|
000091f0  04 0d 34 26 27 dd f2 6d  70 5f 66 69 6c 65 3a e7  |..4&'..mp_file:.|
00009200  a4 76 5f 28 31 29 3c 34  3a f2 73 68 61 64 65 28  |.v_(1)<4:.shade(|
00009210  6d 65 6e 75 25 2c 33 29  0d 34 30 3e e7 a4 72 65  |menu%,3).40>..re|
00009220  61 64 6f 6e 6c 79 3a f2  73 68 61 64 65 28 6d 65  |adonly:.shade(me|
00009230  6e 75 25 2c 30 29 3a f2  73 68 61 64 65 28 6d 65  |nu%,0):.shade(me|
00009240  6e 75 25 2c 31 29 3a f2  73 68 61 64 65 28 6d 65  |nu%,1):.shade(me|
00009250  6e 75 25 2c 32 29 0d 34  3a 05 e1 0d 34 44 04 0d  |nu%,2).4:...4D..|
00009260  34 4e 0d dd f2 6d 70 5f  77 69 6e 64 0d 34 58 3d  |4N...mp_wind.4X=|
00009270  ea 49 25 3a e3 49 25 3d  30 b8 6d 61 78 77 25 2d  |.I%:.I%=0.maxw%-|
00009280  32 3a e7 77 25 28 66 69  6c 65 25 2c 49 25 2b 32  |2:.w%(file%,I%+2|
00009290  29 3e 30 f2 74 69 63 6b  28 6d 65 6e 75 25 2c 49  |)>0.tick(menu%,I|
000092a0  25 2b 28 49 25 3e 30 29  29 0d 34 62 35 e7 6d 65  |%+(I%>0)).4b5.me|
000092b0  6e 75 66 69 6c 65 25 3d  74 61 72 67 65 74 25 f2  |nufile%=target%.|
000092c0  73 68 61 64 65 28 6d 65  6e 75 25 2c 30 29 3a f2  |shade(menu%,0):.|
000092d0  73 68 61 64 65 28 6d 65  6e 75 25 2c 32 29 0d 34  |shade(menu%,2).4|
000092e0  6c 07 ed 3a e1 0d 34 76  04 0d 34 80 20 dd f2 6d  |l..:..4v..4. ..m|
000092f0  70 5f 73 74 61 74 75 73  3a 24 6d 65 6e 75 25 3d  |p_status:$menu%=|
00009300  a4 66 69 6c 65 6e 61 6d  65 0d 34 8a 1b c8 99 73  |.filename.4....s|
00009310  77 69 25 2c 73 64 35 37  5f 25 2c 22 74 79 70 65  |wi%,sd57_%,"type|
00009320  22 b8 47 25 0d 34 94 49  e7 47 25 3c 3e 69 64 5f  |".G%.4.I.G%<>id_|
00009330  77 63 69 61 25 80 47 25  3c 3e 69 64 5f 62 62 63  |wcia%.G%<>id_bbc|
00009340  25 80 47 25 3c 3e 69 64  5f 65 78 62 25 3a f2 73  |%.G%<>id_exb%:.s|
00009350  68 61 64 65 28 6d 65 6e  75 25 2c 31 29 3a f2 73  |hade(menu%,1):.s|
00009360  68 61 64 65 28 6d 65 6e  75 25 2c 32 29 0d 34 9e  |hade(menu%,2).4.|
00009370  1b c8 99 73 77 69 25 2c  73 64 35 37 5f 25 2c 22  |...swi%,sd57_%,"|
00009380  62 69 74 37 22 b8 47 25  0d 34 a8 17 e7 47 25 3d  |bit7".G%.4...G%=|
00009390  30 f2 74 69 63 6b 28 6d  65 6e 75 25 2c 34 29 0d  |0.tick(menu%,4).|
000093a0  34 b2 05 e1 0d 34 bc 04  0d 34 c6 0d dd f2 6d 70  |4....4...4....mp|
000093b0  5f 6e 75 6d 73 0d 34 d0  1e e7 a4 6e 6e 75 6d 73  |_nums.4....nnums|
000093c0  3d 31 30 3a f2 73 68 61  64 65 28 6d 65 6e 75 25  |=10:.shade(menu%|
000093d0  2c 30 29 0d 34 da 31 e7  6d 65 6e 75 73 75 62 25  |,0).4.1.menusub%|
000093e0  3c 32 35 35 3a f2 73 68  61 64 65 28 6d 65 6e 75  |<255:.shade(menu|
000093f0  25 2c 32 29 3a f2 73 68  61 64 65 28 6d 65 6e 75  |%,2):.shade(menu|
00009400  25 2c 31 29 0d 34 e4 05  e1 0d 34 ee 04 0d 34 f8  |%,1).4....4...4.|
00009410  0d dd f2 6d 70 5f 6e 70  61 64 0d 35 02 2a f2 73  |...mp_npad.5.*.s|
00009420  61 76 65 73 65 74 28 66  5f 6e 70 24 2c 26 46 46  |aveset(f_np$,&FF|
00009430  46 2c 35 2c 6d 65 6e 75  66 69 6c 65 25 2c 38 30  |F,5,menufile%,80|
00009440  2a 31 39 29 0d 35 0c 05  e1 0d 35 16 04 0d 35 20  |*19).5....5...5 |
00009450  0d dd f2 6d 70 5f 6d 61  69 6e 0d 35 2a 20 e7 77  |...mp_main.5* .w|
00009460  5f 74 72 61 6e 73 66 65  72 25 3e 30 f2 74 69 63  |_transfer%>0.tic|
00009470  6b 28 6d 65 6e 75 25 2c  31 29 0d 35 34 47 e7 a4  |k(menu%,1).54G..|
00009480  76 5f 28 31 29 3e 30 3a  f2 73 68 61 64 65 28 6d  |v_(1)>0:.shade(m|
00009490  65 6e 75 25 2c 33 29 3a  f2 73 68 61 64 65 28 6d  |enu%,3):.shade(m|
000094a0  65 6e 75 25 2c 35 29 3a  e7 a4 76 5f 28 31 29 3e  |enu%,5):..v_(1)>|
000094b0  32 3a f2 73 68 61 64 65  28 6d 65 6e 75 25 2c 32  |2:.shade(menu%,2|
000094c0  29 0d 35 3e 05 e1 0d 35  48 04 0d 35 52 24 dd f2  |).5>...5H..5R$..|
000094d0  70 6f 70 28 6d 65 6e 75  25 2c 74 72 65 65 25 29  |pop(menu%,tree%)|
000094e0  3a e7 70 72 6f 63 65 73  73 25 3e 30 3a e1 0d 35  |:.process%>0:..5|
000094f0  5c 0e e7 6d 65 6e 75 25  3c 30 3a e1 0d 35 66 16  |\..menu%<0:..5f.|
00009500  f2 70 72 65 70 28 6d 65  6e 75 25 2c 74 72 65 65  |.prep(menu%,tree|
00009510  25 29 0d 35 70 2c c8 99  22 57 69 6d 70 5f 43 72  |%).5p,.."Wimp_Cr|
00009520  65 61 74 65 4d 65 6e 75  22 2c 2c 6d 65 6e 75 25  |eateMenu",,menu%|
00009530  2c 6d 78 25 2d 35 30 2c  6d 79 25 2b 33 32 0d 35  |,mx%-50,my%+32.5|
00009540  7a 13 6f 70 65 6e 6d 65  6e 75 25 3d 6d 65 6e 75  |z.openmenu%=menu|
00009550  25 0d 35 84 05 e1 0d 35  8e 04 0d 35 98 0c dd f2  |%.5....5...5....|
00009560  6e 6f 6d 65 6e 75 0d 35  a2 35 c8 99 22 57 69 6d  |nomenu.5.5.."Wim|
00009570  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 2d  |p_CreateMenu",,-|
00009580  31 3a 6d 65 6e 75 66 69  6c 65 25 3d 2d 31 3a 6f  |1:menufile%=-1:o|
00009590  70 65 6e 6d 65 6e 75 25  3d 2d 31 0d 35 ac 05 e1  |penmenu%=-1.5...|
000095a0  0d 35 b6 04 0d 35 c0 2b  dd f2 6e 6f 64 69 61 6c  |.5...5.+..nodial|
000095b0  3a e7 64 69 61 6c 6f 67  75 65 25 3e 30 f2 63 6c  |:.dialogue%>0.cl|
000095c0  6f 73 65 77 28 64 69 61  6c 6f 67 75 65 25 29 0d  |osew(dialogue%).|
000095d0  35 ca 05 e1 0d 35 d4 04  0d 35 de 10 dd f2 6d 65  |5....5...5....me|
000095e0  6e 75 73 65 6c 65 63 74  0d 35 e8 07 ea 49 25 0d  |nuselect.5...I%.|
000095f0  35 f2 2d 49 25 3d 30 3a  f5 6d 6c 69 73 74 25 21  |5.-I%=0:.mlist%!|
00009600  49 25 3d 71 25 21 49 25  3a 49 25 2b 3d 34 3a fd  |I%=q%!I%:I%+=4:.|
00009610  71 25 21 28 49 25 2d 34  29 3d 2d 31 0d 35 fc 31  |q%!(I%-4)=-1.5.1|
00009620  f2 72 65 61 64 70 6f 69  6e 74 65 72 3a e7 6d 65  |.readpointer:.me|
00009630  6e 75 66 69 6c 65 25 3e  3d 30 3a f2 73 64 66 69  |nufile%>=0:.sdfi|
00009640  6c 65 28 6d 65 6e 75 66  69 6c 65 25 29 0d 36 06  |le(menufile%).6.|
00009650  10 c8 8e 6f 70 65 6e 6d  65 6e 75 25 ca 0d 36 10  |...openmenu%..6.|
00009660  14 c9 6d 5f 6d 61 69 6e  25 3a f2 6d 5f 6d 61 69  |..m_main%:.m_mai|
00009670  6e 0d 36 1a 14 c9 6d 5f  63 61 72 64 25 3a f2 6d  |n.6...m_card%:.m|
00009680  5f 63 61 72 64 0d 36 24  14 c9 6d 5f 6e 70 61 64  |_card.6$..m_npad|
00009690  25 3a f2 6d 5f 6e 70 61  64 0d 36 2e 18 c9 6d 5f  |%:.m_npad.6...m_|
000096a0  6d 61 63 72 6f 31 25 3a  f2 6d 5f 6d 61 63 72 6f  |macro1%:.m_macro|
000096b0  31 0d 36 38 18 c9 6d 5f  73 74 61 74 75 73 25 3a  |1.68..m_status%:|
000096c0  f2 6d 5f 73 74 61 74 75  73 0d 36 42 16 c9 6d 5f  |.m_status.6B..m_|
000096d0  69 6e 64 65 78 25 3a f2  6d 5f 69 6e 64 65 78 0d  |index%:.m_index.|
000096e0  36 4c 1c c9 6d 5f 74 72  61 6e 73 66 65 72 25 3a  |6L..m_transfer%:|
000096f0  f2 6d 5f 74 72 61 6e 73  66 65 72 0d 36 56 05 cb  |.m_transfer.6V..|
00009700  0d 36 60 0b e7 6d 62 25  3d 31 8c 0d 36 6a 24 e7  |.6`..mb%=1..6j$.|
00009710  6d 65 6e 75 66 69 6c 65  25 3e 3d 30 3a f2 73 64  |menufile%>=0:.sd|
00009720  66 69 6c 65 28 6d 65 6e  75 66 69 6c 65 25 29 0d  |file(menufile%).|
00009730  36 74 23 f2 70 6f 70 28  6f 70 65 6e 6d 65 6e 75  |6t#.pop(openmenu|
00009740  25 2c 6d 6c 69 73 74 25  29 3a 8b f2 6e 6f 6d 65  |%,mlist%):..nome|
00009750  6e 75 0d 36 7e 05 cd 0d  36 88 05 cd 0d 36 92 05  |nu.6~...6....6..|
00009760  e1 0d 36 9c 04 0d 36 a6  0d dd f2 6d 5f 69 6e 64  |..6...6....m_ind|
00009770  65 78 0d 36 b0 0e c8 8e  21 6d 6c 69 73 74 25 ca  |ex.6....!mlist%.|
00009780  0d 36 ba 26 c9 30 2c 31  3a f2 73 65 6c 69 6e 64  |.6.&.0,1:.selind|
00009790  65 78 28 6d 65 6e 75 69  6e 64 65 78 25 2c 21 6d  |ex(menuindex%,!m|
000097a0  6c 69 73 74 25 29 0d 36  c4 15 c9 32 3a f2 73 65  |list%).6...2:.se|
000097b0  6c 69 6e 64 65 78 28 30  2c 30 29 0d 36 ce 05 cb  |lindex(0,0).6...|
000097c0  0d 36 d8 05 e1 0d 36 e2  04 0d 36 ec 0c dd f2 6d  |.6....6...6....m|
000097d0  5f 6d 61 69 6e 0d 36 f6  0e c8 8e 21 6d 6c 69 73  |_main.6....!mlis|
000097e0  74 25 ca 0d 37 00 19 c9  30 3a f2 64 69 61 6c 6f  |t%..7...0:.dialo|
000097f0  67 75 65 28 77 5f 69 6e  66 6f 25 29 0d 37 0a 1a  |gue(w_info%).7..|
00009800  c9 31 3a f2 72 65 61 64  74 72 61 6e 3a f2 74 72  |.1:.readtran:.tr|
00009810  61 6e 73 66 65 72 0d 37  14 10 c9 32 3a f2 66 61  |ansfer.7...2:.fa|
00009820  73 74 73 6f 72 74 0d 37  1e 0e c9 33 3a f2 63 72  |stsort.7...3:.cr|
00009830  65 61 74 65 0d 37 28 0e  c9 34 3a f2 73 74 61 74  |eate.7(..4:.stat|
00009840  75 73 0d 37 32 0f c9 35  3a f2 70 64 72 69 76 65  |us.72..5:.pdrive|
00009850  72 0d 37 3c 21 c9 36 3a  e7 a4 76 5f 28 31 29 3d  |r.7<!.6:..v_(1)=|
00009860  30 3a f2 71 75 69 74 28  a3 29 3a 8b f2 71 71 75  |0:.quit(.):..qqu|
00009870  69 74 0d 37 46 05 cb 0d  37 50 05 e1 0d 37 5a 04  |it.7F...7P...7Z.|
00009880  0d 37 64 10 dd f2 6d 5f  74 72 61 6e 73 66 65 72  |.7d...m_transfer|
00009890  0d 37 6e 0e c8 8e 21 6d  6c 69 73 74 25 ca 0d 37  |.7n...!mlist%..7|
000098a0  78 0c c9 30 3a f2 73 77  61 70 0d 37 82 12 c9 31  |x..0:.swap.7...1|
000098b0  3a f2 74 61 72 67 65 74  6f 70 65 6e 0d 37 8c 2a  |:.targetopen.7.*|
000098c0  c9 32 3a f2 73 74 6f 70  28 32 30 32 2c 22 22 2c  |.2:.stop(202,"",|
000098d0  72 6c 24 2b 22 63 6c 65  61 72 20 73 65 74 75 70  |rl$+"clear setup|
000098e0  3f 22 2c 2d 31 29 0d 37  96 2b c9 33 3a f2 73 74  |?",-1).7.+.3:.st|
000098f0  6f 70 28 32 30 33 2c 22  22 2c 72 6c 24 2b 22 73  |op(203,"",rl$+"s|
00009900  65 74 20 64 65 66 61 75  6c 74 73 3f 22 2c 2d 31  |et defaults?",-1|
00009910  29 0d 37 a0 05 cb 0d 37  aa 05 e1 0d 37 b4 04 0d  |).7....7....7...|
00009920  37 be 0c dd f2 6d 5f 63  61 72 64 0d 37 c8 0e c8  |7....m_card.7...|
00009930  8e 21 6d 6c 69 73 74 25  ca 0d 37 d2 0e c9 30 3a  |.!mlist%..7...0:|
00009940  f2 73 77 70 61 6e 65 0d  37 dc 0f c9 31 3a f2 73  |.swpane.7...1:.s|
00009950  77 6d 61 63 72 6f 0d 37  e6 11 c9 32 3a f2 73 77  |wmacro.7...2:.sw|
00009960  64 65 66 61 75 6c 74 0d  37 f0 0e c9 33 3a f2 6d  |default.7...3:.m|
00009970  5f 77 69 6e 64 0d 37 fa  05 cb 0d 38 04 05 e1 0d  |_wind.7....8....|
00009980  38 0e 04 0d 38 18 0e dd  f2 6d 5f 6d 61 63 72 6f  |8...8....m_macro|
00009990  31 0d 38 22 0e c8 8e 21  6d 6c 69 73 74 25 ca 0d  |1.8"...!mlist%..|
000099a0  38 2c 38 c9 30 3a 66 6c  25 28 66 69 6c 65 25 29  |8,8.0:fl%(file%)|
000099b0  3d 28 66 6c 25 28 66 69  6c 65 25 29 80 ac 66 5f  |=(fl%(file%)..f_|
000099c0  6d 61 63 62 25 29 82 66  5f 6d 61 63 65 25 3a f2  |macb%).f_mace%:.|
000099d0  73 68 6f 77 6d 61 63 0d  38 36 3c c9 31 3a f2 73  |showmac.86<.1:.s|
000099e0  74 6f 70 28 31 38 2c 66  69 24 2b a4 66 69 6c 65  |top(18,fi$+.file|
000099f0  6e 61 6d 65 2c 72 6c 24  2b 22 63 6c 65 61 72 20  |name,rl$+"clear |
00009a00  6d 61 63 72 6f 20 3f 22  2c 6d 65 6e 75 66 69 6c  |macro ?",menufil|
00009a10  65 25 29 0d 38 40 05 cb  0d 38 4a 05 e1 0d 38 54  |e%).8@...8J...8T|
00009a20  04 0d 38 5e 0c dd f2 6d  5f 77 69 6e 64 0d 38 68  |..8^...m_wind.8h|
00009a30  1c ea 54 25 3a 54 25 3d  6d 6c 69 73 74 25 21 34  |..T%:T%=mlist%!4|
00009a40  3a 54 25 2d 3d 54 25 3e  30 0d 38 72 41 e7 54 25  |:T%-=T%>0.8rA.T%|
00009a50  3e 2d 31 80 54 25 3c 6d  61 78 77 25 2d 31 3a e7  |>-1.T%<maxw%-1:.|
00009a60  77 25 28 66 69 6c 65 25  2c 54 25 2b 32 29 3e 30  |w%(file%,T%+2)>0|
00009a70  3a f2 63 6c 6f 73 65 77  28 77 25 28 66 69 6c 65  |:.closew(w%(file|
00009a80  25 2c 54 25 2b 32 29 29  3a e1 0d 38 7c 09 c8 8e  |%,T%+2)):..8|...|
00009a90  54 25 ca 0d 38 86 0c c9  30 3a f2 73 75 62 73 0d  |T%..8...0:.subs.|
00009aa0  38 90 11 c9 32 3a f2 66  69 65 6c 64 6c 69 73 74  |8...2:.fieldlist|
00009ab0  0d 38 9a 0d c9 33 3a f2  69 6e 64 65 78 0d 38 a4  |.8...3:.index.8.|
00009ac0  0f c9 34 3a f2 6e 6f 74  65 70 61 64 0d 38 ae 0d  |..4:.notepad.8..|
00009ad0  c9 35 3a f2 6d 61 63 72  6f 0d 38 b8 0d c9 36 3a  |.5:.macro.8...6:|
00009ae0  f2 77 74 69 64 79 0d 38  c2 05 cb 0d 38 cc 05 e1  |.wtidy.8....8...|
00009af0  0d 38 d6 04 0d 38 e0 1a  dd f2 6d 5f 73 74 61 74  |.8...8....m_stat|
00009b00  75 73 3a ea 66 25 2c 54  25 3a 66 25 3d b9 0d 38  |us:.f%,T%:f%=..8|
00009b10  ea 0e c8 8e 21 6d 6c 69  73 74 25 ca 0d 38 f4 16  |....!mlist%..8..|
00009b20  c9 30 3a f2 6e 6f 64 69  61 6c 3a f2 77 61 6c 69  |.0:.nodial:.wali|
00009b30  67 6e 0d 38 fe 18 c9 31  3a f2 72 65 61 64 77 73  |gn.8...1:.readws|
00009b40  3a f2 6e 65 77 6e 6f 74  65 73 0d 39 08 0f c9 32  |:.newnotes.9...2|
00009b50  3a f2 77 72 69 74 65 77  73 0d 39 12 14 c9 33 3a  |:.writews.9...3:|
00009b60  c8 99 73 77 69 25 2c 73  64 34 33 5f 25 0d 39 1c  |..swi%,sd43_%.9.|
00009b70  0d c9 34 3a f2 73 77 61  70 37 0d 39 26 09 7f 66  |..4:.swap7.9&..f|
00009b80  25 3d a3 0d 39 30 05 cb  0d 39 3a 0f e7 66 25 3a  |%=..90...9:..f%:|
00009b90  f2 6e 6f 64 69 61 6c 0d  39 44 05 e1 0d 39 4e 04  |.nodial.9D...9N.|
00009ba0  0d 39 58 0e dd f2 6d 5f  66 6f 72 6d 61 74 0d 39  |.9X...m_format.9|
00009bb0  62 0f c8 8e 6d 6c 69 73  74 25 21 34 ca 0d 39 6c  |b...mlist%!4..9l|
00009bc0  0f c9 2d 31 2c 30 3a f2  6c 69 6e 6b 0d 39 76 11  |..-1,0:.link.9v.|
00009bd0  c9 31 3a f2 63 6c 6f 73  65 66 6f 72 6d 0d 39 80  |.1:.closeform.9.|
00009be0  05 cb 0d 39 8a 05 e1 0d  39 94 04 0d 39 9e 0c dd  |...9....9...9...|
00009bf0  f2 6d 5f 6e 70 61 64 0d  39 a8 0e c8 8e 21 6d 6c  |.m_npad.9....!ml|
00009c00  69 73 74 25 ca 0d 39 b2  3e c9 30 3a f2 73 74 6f  |ist%..9.>.0:.sto|
00009c10  70 28 31 37 2c 66 69 24  2b a4 66 69 6c 65 6e 61  |p(17,fi$+.filena|
00009c20  6d 65 2c 72 6c 24 2b 22  63 6c 65 61 72 20 6e 6f  |me,rl$+"clear no|
00009c30  74 65 70 61 64 20 3f 22  2c 6d 65 6e 75 66 69 6c  |tepad ?",menufil|
00009c40  65 25 29 0d 39 bc 10 c9  32 3a f2 6e 65 77 6e 6f  |e%).9...2:.newno|
00009c50  74 65 73 0d 39 c6 05 cb  0d 39 d0 05 e1 0d 39 da  |tes.9....9....9.|
00009c60  04 0d 39 e4 1d dd f2 73  75 62 6d 65 6e 75 28 6d  |..9....submenu(m|
00009c70  65 6e 75 25 2c 58 25 2c  59 25 2c 71 25 29 0d 39  |enu%,X%,Y%,q%).9|
00009c80  ee 07 ea 49 25 0d 39 f8  2d 49 25 3d 30 3a f5 6d  |...I%.9.-I%=0:.m|
00009c90  6c 69 73 74 25 21 49 25  3d 71 25 21 49 25 3a 49  |list%!I%=q%!I%:I|
00009ca0  25 2b 3d 34 3a fd 71 25  21 28 49 25 2d 34 29 3d  |%+=4:.q%!(I%-4)=|
00009cb0  2d 31 0d 3a 02 1b f2 70  72 65 70 28 6f 70 65 6e  |-1.:...prep(open|
00009cc0  6d 65 6e 75 25 2c 6d 6c  69 73 74 25 29 0d 3a 0c  |menu%,mlist%).:.|
00009cd0  27 c8 99 22 57 69 6d 70  5f 43 72 65 61 74 65 53  |'.."Wimp_CreateS|
00009ce0  75 62 4d 65 6e 75 22 2c  2c 6d 65 6e 75 25 2c 58  |ubMenu",,menu%,X|
00009cf0  25 2c 59 25 0d 3a 16 05  e1 0d 3a 20 04 0d 3a 2a  |%,Y%.:....: ..:*|
00009d00  20 dd f2 63 6c 65 61 72  74 73 28 6d 68 25 29 3a  | ..clearts(mh%):|
00009d10  ea 49 25 3a 49 25 3d 6d  68 25 2b 32 38 0d 3a 34  |.I%:I%=mh%+28.:4|
00009d20  22 e7 6d 68 25 3c 6d 65  6e 75 73 74 61 72 74 25  |".mh%<menustart%|
00009d30  84 6d 68 25 3e 6d 65 6e  75 65 6e 64 25 3a e1 0d  |.mh%>menuend%:..|
00009d40  3a 3e 05 f5 0d 3a 48 22  21 49 25 3d 21 49 25 80  |:>...:H"!I%=!I%.|
00009d50  ac 31 3a 49 25 21 38 3d  49 25 21 38 80 ac 26 34  |.1:I%!8=I%!8..&4|
00009d60  30 30 30 30 30 3a 0d 3a  52 16 49 25 2b 3d 32 34  |00000:.:R.I%+=24|
00009d70  3a fd 49 25 21 2d 32 34  80 26 38 30 0d 3a 5c 05  |:.I%!-24.&80.:\.|
00009d80  e1 0d 3a 66 04 0d 3a 70  13 dd f2 73 68 61 64 65  |..:f..:p...shade|
00009d90  28 6d 68 25 2c 49 25 29  0d 3a 7a 2f 6d 68 25 21  |(mh%,I%).:z/mh%!|
00009da0  28 32 38 2b 38 2b 32 34  2a 49 25 29 3d 6d 68 25  |(28+8+24*I%)=mh%|
00009db0  21 28 32 38 2b 38 2b 32  34 2a 49 25 29 84 26 34  |!(28+8+24*I%).&4|
00009dc0  30 30 30 30 30 3a e1 0d  3a 84 04 0d 3a 8e 12 dd  |00000:..:...:...|
00009dd0  f2 74 69 63 6b 28 6d 68  25 2c 49 25 29 0d 3a 98  |.tick(mh%,I%).:.|
00009de0  27 6d 68 25 21 28 32 38  2b 32 34 2a 49 25 29 3d  |'mh%!(28+24*I%)=|
00009df0  6d 68 25 21 28 32 38 2b  32 34 2a 49 25 29 84 26  |mh%!(28+24*I%).&|
00009e00  30 31 3a e1 0d 3a a2 04  0d 3a ac 12 dd a4 66 69  |01:..:...:....fi|
00009e10  6c 65 74 79 70 65 28 54  24 29 0d 3a b6 23 ea 54  |letype(T$).:.#.T|
00009e20  25 2c 55 25 3a c8 99 22  4f 53 5f 46 69 6c 65 22  |%,U%:.."OS_File"|
00009e30  2c 35 2c 54 24 20 b8 55  25 2c 2c 54 25 0d 3a c0  |,5,T$ .U%,,T%.:.|
00009e40  0d e7 54 25 3d 30 3a 3d  2d 31 0d 3a ca 13 3d 28  |..T%=0:=-1.:..=(|
00009e50  54 25 80 26 46 46 46 30  30 29 3e 3e 38 0d 3a d4  |T%.&FFF00)>>8.:.|
00009e60  05 20 0d 3a de 15 dd f2  72 65 64 72 61 77 28 75  |. .:....redraw(u|
00009e70  70 64 61 74 65 25 29 0d  3a e8 14 ea 68 25 2c 54  |pdate%).:...h%,T|
00009e80  25 3a e7 75 70 64 61 74  65 25 8c 0d 3a f2 25 c8  |%:.update%..:.%.|
00009e90  99 22 57 69 6d 70 5f 55  70 64 61 74 65 57 69 6e  |."Wimp_UpdateWin|
00009ea0  64 6f 77 22 2c 2c 71 25  20 b8 20 6d 6f 72 65 25  |dow",,q% . more%|
00009eb0  0d 3a fc 05 cc 0d 3b 06  25 c8 99 22 57 69 6d 70  |.:....;.%.."Wimp|
00009ec0  5f 52 65 64 72 61 77 57  69 6e 64 6f 77 22 2c 2c  |_RedrawWindow",,|
00009ed0  71 25 20 b8 20 6d 6f 72  65 25 0d 3b 10 05 cd 0d  |q% . more%.;....|
00009ee0  3b 1a 25 68 25 3d 21 71  25 3a f2 77 74 6f 66 28  |;.%h%=!q%:.wtof(|
00009ef0  68 25 29 3a f2 72 65 61  64 62 6c 6f 63 6b 28 71  |h%):.readblock(q|
00009f00  25 2b 34 29 0d 3b 24 0c  c8 95 20 6d 6f 72 65 25  |%+4).;$... more%|
00009f10  0d 3b 2e 14 54 25 3d a3  3a ea 85 3a ee 85 ea 3a  |.;..T%=.:..:...:|
00009f20  54 25 3d b9 0d 3b 38 08  e7 54 25 8c 0d 3b 42 22  |T%=..;8..T%..;B"|
00009f30  e7 a6 2d 33 3a f2 72 65  63 74 66 69 6c 6c 28 f6  |..-3:.rectfill(.|
00009f40  24 29 3a 8b f7 85 3a f2  65 72 72 28 30 29 0d 3b  |$):...:.err(0).;|
00009f50  4c 05 cc 0d 3b 56 0e e7  66 69 6c 65 25 3e 3d 30  |L...;V..file%>=0|
00009f60  8c 0d 3b 60 0c c8 8e 77  69 6e 64 25 ca 0d 3b 6a  |..;`...wind%..;j|
00009f70  10 c9 30 3a f2 64 72 61  77 63 61 72 64 0d 3b 74  |..0:.drawcard.;t|
00009f80  11 c9 34 3a f2 64 72 61  77 66 6c 69 73 74 0d 3b  |..4:.drawflist.;|
00009f90  7e 11 c9 35 3a f2 64 72  61 77 69 6c 69 73 74 0d  |~..5:.drawilist.|
00009fa0  3b 88 05 cb 0d 3b 92 05  cc 0d 3b 9c 05 cd 0d 3b  |;....;....;....;|
00009fb0  a6 05 cd 0d 3b b0 06 f7  85 0d 3b ba 1f 21 71 25  |....;.....;..!q%|
00009fc0  3d 68 25 3a 6d 6f 72 65  25 3d a4 6e 65 78 74 72  |=h%:more%=.nextr|
00009fd0  65 63 74 61 6e 67 6c 65  0d 3b c4 05 ce 0d 3b ce  |ectangle.;....;.|
00009fe0  05 e1 0d 3b d8 04 0d 3b  e2 0e dd f2 64 72 61 77  |...;...;....draw|
00009ff0  63 61 72 64 0d 3b ec 10  c8 8e 73 25 28 66 69 6c  |card.;....s%(fil|
0000a000  65 25 29 ca 0d 3b f6 06  c9 30 0d 3c 00 2b ea 54  |e%)..;...0.<.+.T|
0000a010  25 3a e7 75 70 64 61 74  65 25 54 25 3d 36 3a 8b  |%:.update%T%=6:.|
0000a020  c8 99 73 77 69 25 2c 67  6c 69 6e 65 5f 25 3a da  |..swi%,gline_%:.|
0000a030  3a 54 25 3d 32 0d 3c 0a  2a f2 67 63 6f 6c 28 30  |:T%=2.<.*.gcol(0|
0000a040  2c 37 29 3a f2 67 63 6f  6c 28 30 2c 31 33 30 2b  |,7):.gcol(0,130+|
0000a050  ac a4 66 6c 67 28 66 5f  37 62 69 74 25 29 29 0d  |..flg(f_7bit%)).|
0000a060  3c 14 31 ec 62 78 25 2b  6d 61 72 67 69 6e 25 2c  |<.1.bx%+margin%,|
0000a070  62 79 25 2d 6d 61 72 67  69 6e 25 3a c8 99 73 77  |by%-margin%:..sw|
0000a080  69 25 2c 77 69 6d 70 5f  25 2c 54 25 2c 73 64 24  |i%,wimp_%,T%,sd$|
0000a090  0d 3c 1e 2b c9 31 3a f2  72 65 63 74 66 69 6c 6c  |.<.+.1:.rectfill|
0000a0a0  28 22 4e 6f 20 63 61 72  64 73 20 69 6e 20 74 68  |("No cards in th|
0000a0b0  69 73 20 73 75 62 73 65  74 22 29 0d 3c 28 1a c9  |is subset").<(..|
0000a0c0  32 3a f2 72 65 63 74 66  69 6c 6c 28 a4 61 63 74  |2:.rectfill(.act|
0000a0d0  64 65 73 63 29 0d 3c 32  05 cb 0d 3c 3c 05 e1 0d  |desc).<2...<<...|
0000a0e0  3c 46 04 0d 3c 50 2f dd  f2 64 72 61 77 66 6c 69  |<F..<P/..drawfli|
0000a0f0  73 74 3a ea 54 25 3a 54  25 3d 26 31 30 30 30 30  |st:.T%:T%=&10000|
0000a100  3a e7 75 70 64 61 74 65  25 54 25 3d 54 25 84 31  |:.update%T%=T%.1|
0000a110  3a da 0d 3c 5a 32 e7 a4  76 5f 28 37 29 3d 30 f2  |:..<Z2..v_(7)=0.|
0000a120  72 65 63 74 66 69 6c 6c  28 22 4e 6f 20 66 69 65  |rectfill("No fie|
0000a130  6c 64 73 20 69 6e 20 74  68 69 73 20 66 69 6c 65  |lds in this file|
0000a140  22 29 3a e1 0d 3c 64 33  ec 62 78 25 2b 6d 61 72  |"):..<d3.bx%+mar|
0000a150  67 69 6e 25 2c 62 79 25  2d 6d 61 72 67 69 6e 25  |gin%,by%-margin%|
0000a160  2d 34 3a c8 99 73 77 69  25 2c 77 69 6d 70 5f 25  |-4:..swi%,wimp_%|
0000a170  2c 54 25 2c 73 64 24 0d  3c 6e 13 e7 66 69 6c 65  |,T%,sd$.<n..file|
0000a180  25 3d 74 61 72 67 65 74  25 8c 0d 3c 78 0d ea 58  |%=target%..<x..X|
0000a190  25 2c 59 25 2c 4a 25 0d  3c 82 1b 58 25 3d 62 78  |%,Y%,J%.<..X%=bx|
0000a1a0  25 2b 66 77 69 64 25 3a  e7 58 25 3c 3d 67 78 31  |%+fwid%:.X%<=gx1|
0000a1b0  25 8c 0d 3c 8c 3d 4a 25  3d 62 79 25 2d 67 79 31  |%..<.=J%=by%-gy1|
0000a1c0  25 2d 6d 61 72 67 69 6e  25 3a 4a 25 3d 4a 25 2d  |%-margin%:J%=J%-|
0000a1d0  4a 25 83 6c 69 6e 65 67  61 70 25 3a 59 25 3d 62  |J%.linegap%:Y%=b|
0000a1e0  79 25 2d 6d 61 72 67 69  6e 25 2d 34 2d 4a 25 0d  |y%-margin%-4-J%.|
0000a1f0  3c 96 24 4a 25 3d 28 62  79 25 2d 6d 61 72 67 69  |<.$J%=(by%-margi|
0000a200  6e 25 2d 34 2d 59 25 29  81 6c 69 6e 65 67 61 70  |n%-4-Y%).linegap|
0000a210  25 2b 31 0d 3c a0 05 f5  0d 3c aa 3a e7 66 64 24  |%+1.<....<.:.fd$|
0000a220  28 4a 25 29 3e 22 22 80  31 36 2a a9 66 64 24 28  |(J%)>"".16*.fd$(|
0000a230  4a 25 29 2b 58 25 2b 33  32 3e 67 78 30 25 ec 58  |J%)+X%+32>gx0%.X|
0000a240  25 2c 59 25 3a f1 22 3d  20 22 66 64 24 28 4a 25  |%,Y%:."= "fd$(J%|
0000a250  29 3b 0d 3c b4 1f 59 25  2d 3d 6c 69 6e 65 67 61  |);.<..Y%-=linega|
0000a260  70 25 3a 4a 25 2b 3d 31  3a fd 59 25 3c 67 79 30  |p%:J%+=1:.Y%<gy0|
0000a270  25 0d 3c be 05 cd 0d 3c  c8 05 cd 0d 3c d2 05 e1  |%.<....<....<...|
0000a280  0d 3c dc 04 0d 3c e6 2d  dd f2 64 72 61 77 69 6c  |.<...<.-..drawil|
0000a290  69 73 74 3a ea 54 25 3a  54 25 3d 26 32 30 30 30  |ist:.T%:T%=&2000|
0000a2a0  30 3a e7 75 70 64 61 74  65 25 54 25 3d 54 25 84  |0:.update%T%=T%.|
0000a2b0  31 0d 3c f0 36 e7 a4 6e  69 6e 64 69 63 65 73 3d  |1.<.6..nindices=|
0000a2c0  30 f2 72 65 63 74 66 69  6c 6c 28 22 4e 6f 20 69  |0.rectfill("No i|
0000a2d0  6e 64 69 63 65 73 20 69  6e 20 74 68 69 73 20 66  |ndices in this f|
0000a2e0  69 6c 65 22 29 3a e1 0d  3c fa 33 ec 62 78 25 2b  |ile"):..<.3.bx%+|
0000a2f0  6d 61 72 67 69 6e 25 2c  62 79 25 2d 6d 61 72 67  |margin%,by%-marg|
0000a300  69 6e 25 2d 34 3a c8 99  73 77 69 25 2c 77 69 6d  |in%-4:..swi%,wim|
0000a310  70 5f 25 2c 54 25 2c 73  64 24 0d 3d 04 05 e1 0d  |p_%,T%,sd$.=....|
0000a320  3d 0e 04 0d 3d 18 34 dd  a4 6e 65 78 74 72 65 63  |=...=.4..nextrec|
0000a330  74 61 6e 67 6c 65 3a ea  54 25 3a c8 99 22 57 69  |tangle:.T%:.."Wi|
0000a340  6d 70 5f 47 65 74 52 65  63 74 61 6e 67 6c 65 22  |mp_GetRectangle"|
0000a350  2c 2c 71 25 b8 54 25 0d  3d 22 18 f2 72 65 61 64  |,,q%.T%.="..read|
0000a360  62 6c 6f 63 6b 28 71 25  2b 34 29 3a 3d 54 25 0d  |block(q%+4):=T%.|
0000a370  3d 2c 04 0d 3d 36 12 dd  f2 72 65 63 74 66 69 6c  |=,..=6...rectfil|
0000a380  6c 28 54 24 29 0d 3d 40  1e f2 67 63 6f 6c 28 30  |l(T$).=@..gcol(0|
0000a390  2c 33 29 3a ea 49 25 2c  4a 25 2c 4c 25 2c 58 25  |,3):.I%,J%,L%,X%|
0000a3a0  2c 59 25 0d 3d 4a 10 4c  25 3d a9 54 24 2a 31 36  |,Y%.=J.L%=.T$*16|
0000a3b0  2b 34 38 0d 3d 54 2c 58  25 3d 62 78 25 2b 6d 61  |+48.=T,X%=bx%+ma|
0000a3c0  72 67 69 6e 25 3a 4a 25  3d 67 78 30 25 2d 58 25  |rgin%:J%=gx0%-X%|
0000a3d0  3a 58 25 3d 58 25 2d 4a  25 2b 4a 25 83 4c 25 0d  |:X%=X%-J%+J%.L%.|
0000a3e0  3d 5e 3d 4a 25 3d 62 79  25 2d 67 79 31 25 2d 6d  |=^=J%=by%-gy1%-m|
0000a3f0  61 72 67 69 6e 25 3a 4a  25 3d 4a 25 2d 4a 25 83  |argin%:J%=J%-J%.|
0000a400  6c 69 6e 65 67 61 70 25  3a 59 25 3d 62 79 25 2d  |linegap%:Y%=by%-|
0000a410  6d 61 72 67 69 6e 25 2d  34 2d 4a 25 0d 3d 68 19  |margin%-4-J%.=h.|
0000a420  e3 4a 25 3d 59 25 b8 67  79 30 25 88 2d 6c 69 6e  |.J%=Y%.gy0%.-lin|
0000a430  65 67 61 70 25 0d 3d 72  25 ec 58 25 2c 4a 25 3a  |egap%.=r%.X%,J%:|
0000a440  e3 49 25 3d 58 25 b8 67  78 31 25 88 4c 25 3a f1  |.I%=X%.gx1%.L%:.|
0000a450  54 24 22 20 2d 20 22 3b  3a ed 0d 3d 7c 07 ed 3a  |T$" - ";:..=|..:|
0000a460  e1 0d 3d 86 04 0d 3d 90  19 dd f2 70 72 69 6e 74  |..=...=....print|
0000a470  63 61 72 64 28 54 24 2c  59 25 2c 68 25 29 0d 3d  |card(T$,Y%,h%).=|
0000a480  9a 1b f2 67 63 6f 6c 28  30 2c 33 29 3a ea 49 25  |...gcol(0,3):.I%|
0000a490  2c 4a 25 2c 4c 25 2c 58  25 0d 3d a4 35 4c 25 3d  |,J%,L%,X%.=.5L%=|
0000a4a0  a9 54 24 2a 31 36 2b 34  38 3a 4a 25 3d 94 28 59  |.T$*16+48:J%=.(Y|
0000a4b0  25 2d 67 79 30 25 29 81  6c 69 6e 65 67 61 70 25  |%-gy0%).linegap%|
0000a4c0  2b 31 3a e7 68 25 3e 4a  25 68 25 3d 4a 25 0d 3d  |+1:.h%>J%h%=J%.=|
0000a4d0  ae 2c 58 25 3d 62 78 25  2b 6d 61 72 67 69 6e 25  |.,X%=bx%+margin%|
0000a4e0  3a 4a 25 3d 67 78 30 25  2d 58 25 3a 58 25 3d 58  |:J%=gx0%-X%:X%=X|
0000a4f0  25 2d 4a 25 2b 4a 25 83  4c 25 0d 3d b8 25 e3 4a  |%-J%+J%.L%.=.%.J|
0000a500  25 3d 59 25 b8 59 25 2d  68 25 2a 6c 69 6e 65 67  |%=Y%.Y%-h%*lineg|
0000a510  61 70 25 2b 31 88 2d 6c  69 6e 65 67 61 70 25 0d  |ap%+1.-linegap%.|
0000a520  3d c2 25 ec 58 25 2c 4a  25 3a e3 49 25 3d 58 25  |=.%.X%,J%:.I%=X%|
0000a530  b8 67 78 31 25 88 4c 25  3a f1 54 24 22 20 2d 20  |.gx1%.L%:.T$" - |
0000a540  22 3b 3a ed 0d 3d cc 07  ed 3a e1 0d 3d d6 04 0d  |";:..=...:..=...|
0000a550  3d e0 18 dd a4 69 6e 62  6f 78 28 58 25 2c 59 25  |=....inbox(X%,Y%|
0000a560  2c 57 25 2c 48 25 29 0d  3d ea 17 e7 57 25 3c 30  |,W%,H%).=...W%<0|
0000a570  3a 58 25 2b 3d 57 25 3a  57 25 3d 2d 57 25 0d 3d  |:X%+=W%:W%=-W%.=|
0000a580  f4 17 e7 48 25 3c 30 3a  59 25 2b 3d 48 25 3a 48  |...H%<0:Y%+=H%:H|
0000a590  25 3d 2d 48 25 0d 3d fe  12 e7 67 78 30 25 3e 58  |%=-H%.=...gx0%>X|
0000a5a0  25 2b 57 25 3a 3d a3 0d  3e 08 0f e7 67 78 31 25  |%+W%:=..>...gx1%|
0000a5b0  3c 58 25 3a 3d a3 0d 3e  12 12 e7 67 79 30 25 3e  |<X%:=..>...gy0%>|
0000a5c0  59 25 2b 48 25 3a 3d a3  0d 3e 1c 0f e7 67 79 31  |Y%+H%:=..>...gy1|
0000a5d0  25 3c 59 25 3a 3d a3 0d  3e 26 06 3d b9 0d 3e 30  |%<Y%:=..>&.=..>0|
0000a5e0  04 0d 3e 3a 15 dd f2 70  72 69 6e 74 28 58 25 2c  |..>:...print(X%,|
0000a5f0  59 25 2c 54 24 29 0d 3e  44 29 e7 a4 69 6e 62 6f  |Y%,T$).>D)..inbo|
0000a600  78 28 58 25 2c 59 25 2c  31 36 2a a9 54 24 2c 2d  |x(X%,Y%,16*.T$,-|
0000a610  33 32 29 3a ec 58 25 2c  59 25 3a f1 54 24 3b 0d  |32):.X%,Y%:.T$;.|
0000a620  3e 4e 05 e1 0d 3e 58 04  0d 3e 62 2a dd a4 70 28  |>N...>X..>b*..p(|
0000a630  54 24 29 3a ea 49 25 3a  49 25 3d a7 54 24 2c 22  |T$):.I%:I%=.T$,"|
0000a640  2e 22 29 3a e7 49 25 3d  30 3a 49 25 3d a9 54 24  |."):.I%=0:I%=.T$|
0000a650  2b 31 0d 3e 6c 10 e7 49  25 3e 38 ef 37 3a 49 25  |+1.>l..I%>8.7:I%|
0000a660  3d 38 0d 3e 76 23 3d bb  28 c0 54 24 2c 49 25 2d  |=8.>v#=.(.T$,I%-|
0000a670  31 29 2b c1 54 24 2b 22  30 30 30 22 2c 49 25 2b  |1)+.T$+"000",I%+|
0000a680  31 2c 32 29 29 0d 3e 80  04 0d 3e 8a 27 dd a4 60  |1,2)).>...>.'..`|
0000a690  28 54 25 29 3a ea 54 24  2c 53 25 3a 53 25 3d b4  |(T%):.T$,S%:S%=.|
0000a6a0  54 25 3a 54 25 3d 94 54  25 3a 54 24 3d c3 54 25  |T%:T%=.T%:T$=.T%|
0000a6b0  0d 3e 94 17 c8 95 a9 54  24 3c 33 3a 54 24 3d 22  |.>.....T$<3:T$="|
0000a6c0  30 22 2b 54 24 3a ce 0d  3e 9e 25 3d c1 22 2d 22  |0"+T$:..>.%=."-"|
0000a6d0  2c 53 25 2b 32 29 2b c0  54 24 2c a9 54 24 2d 32  |,S%+2)+.T$,.T$-2|
0000a6e0  29 2b 22 2e 22 2b c2 54  24 2c 32 29 0d 3e a8 04  |)+"."+.T$,2).>..|
0000a6f0  0d 3e b2 0f dd f2 77 61  69 74 70 6f 69 6e 74 0d  |.>....waitpoint.|
0000a700  3e bc 0e 77 61 69 74 65  72 25 2b 3d 31 0d 3e c6  |>..waiter%+=1.>.|
0000a710  14 c8 99 22 48 6f 75 72  67 6c 61 73 73 5f 4f 6e  |..."Hourglass_On|
0000a720  22 0d 3e d0 05 e1 0d 3e  da 04 0d 3e e4 0f dd f2  |".>....>...>....|
0000a730  6e 6f 72 6d 70 6f 69 6e  74 0d 3e ee 38 c8 95 77  |normpoint.>.8..w|
0000a740  61 69 74 65 72 25 3e 30  3a c8 99 22 48 6f 75 72  |aiter%>0:.."Hour|
0000a750  67 6c 61 73 73 5f 4f 66  66 22 3a 77 61 69 74 65  |glass_Off":waite|
0000a760  72 25 2d 3d 31 3a ce 3a  77 61 69 74 65 72 25 3d  |r%-=1:.:waiter%=|
0000a770  30 0d 3e f8 05 e1 0d 3f  02 04 0d 3f 0c 11 dd f2  |0.>....?...?....|
0000a780  67 63 6f 6c 28 6d 25 2c  63 25 29 0d 3f 16 21 c8  |gcol(m%,c%).?.!.|
0000a790  99 22 57 69 6d 70 5f 53  65 74 43 6f 6c 6f 75 72  |."Wimp_SetColour|
0000a7a0  22 2c 28 6d 25 3c 3c 34  29 2b 63 25 0d 3f 20 05  |",(m%<<4)+c%.? .|
0000a7b0  e1 0d 3f 2a 04 0d 3f 34  0a dd f2 68 65 6c 70 0d  |..?*..?4...help.|
0000a7c0  3f 3e 05 e1 0d 3f 48 04  0d 3f 52 11 dd f2 64 61  |?>...?H..?R...da|
0000a7d0  74 61 6c 6f 61 64 61 63  6b 0d 3f 5c 1d 21 71 25  |taloadack.?\.!q%|
0000a7e0  3d 32 30 3a 71 25 21 31  32 3d 72 65 66 25 3a 71  |=20:q%!12=ref%:q|
0000a7f0  25 21 31 36 3d 34 0d 3f  66 24 c8 99 22 57 69 6d  |%!16=4.?f$.."Wim|
0000a800  70 5f 53 65 6e 64 4d 65  73 73 61 67 65 22 2c 31  |p_SendMessage",1|
0000a810  37 2c 71 25 2c 74 61 73  6b 25 0d 3f 70 05 e1 0d  |7,q%,task%.?p...|
0000a820  3f 7a 04 0d 3f 84 11 dd  f2 64 61 74 61 73 61 76  |?z..?....datasav|
0000a830  65 61 63 6b 0d 3f 8e 3c  e7 a4 41 72 66 56 61 72  |eack.?.<..ArfVar|
0000a840  28 22 57 69 6d 70 24 53  63 72 61 70 22 29 3d 22  |("Wimp$Scrap")="|
0000a850  22 3a 85 39 39 2c 22 3c  57 69 6d 70 24 53 63 72  |":.99,"<Wimp$Scr|
0000a860  61 70 3e 20 6e 6f 74 20  64 65 66 69 6e 65 64 22  |ap> not defined"|
0000a870  0d 3f 98 41 21 71 25 3d  36 30 3a 71 25 21 31 32  |.?.A!q%=60:q%!12|
0000a880  3d 72 65 66 25 3a 71 25  21 31 36 3d 32 3a 71 25  |=ref%:q%!16=2:q%|
0000a890  21 33 36 3d 2d 31 3a 24  28 71 25 2b 34 34 29 3d  |!36=-1:$(q%+44)=|
0000a8a0  22 3c 57 69 6d 70 24 53  63 72 61 70 3e 22 2b bd  |"<Wimp$Scrap>"+.|
0000a8b0  30 0d 3f a2 31 c8 99 22  57 69 6d 70 5f 53 65 6e  |0.?.1.."Wimp_Sen|
0000a8c0  64 4d 65 73 73 61 67 65  22 2c 31 37 2c 71 25 2c  |dMessage",17,q%,|
0000a8d0  74 61 73 6b 25 3a 61 63  6b 72 65 66 25 3d 71 25  |task%:ackref%=q%|
0000a8e0  21 38 0d 3f ac 05 e1 0d  3f b6 04 0d 3f c0 1d dd  |!8.?....?...?...|
0000a8f0  f2 73 61 76 65 72 65 71  28 54 24 2c 74 25 2c 73  |.savereq(T$,t%,s|
0000a900  25 2c 72 25 2c 66 25 29  0d 3f ca 1f 73 61 76 65  |%,r%,f%).?..save|
0000a910  72 65 61 73 6f 6e 25 3d  72 25 3a 73 61 76 65 66  |reason%=r%:savef|
0000a920  69 6c 65 25 3d 66 25 0d  3f d4 2b 71 25 21 33 32  |ile%=f%.?.+q%!32|
0000a930  3d 6d 79 25 3a 71 25 21  32 38 3d 6d 78 25 3a 71  |=my%:q%!28=mx%:q|
0000a940  25 21 32 34 3d 6d 69 25  3a 71 25 21 32 30 3d 6d  |%!24=mi%:q%!20=m|
0000a950  68 25 0d 3f de 38 71 25  21 31 36 3d 31 3a 71 25  |h%.?.8q%!16=1:q%|
0000a960  21 31 32 3d 30 3a 71 25  21 33 36 3d 73 25 3a 71  |!12=0:q%!36=s%:q|
0000a970  25 21 34 30 3d 74 25 3a  21 71 25 3d 28 a9 54 24  |%!40=t%:!q%=(.T$|
0000a980  2b 34 39 29 80 26 46 46  46 43 0d 3f e8 35 24 28  |+49).&FFFC.?.5$(|
0000a990  71 25 2b 34 34 29 3d 54  24 2b bd 30 3a c8 99 22  |q%+44)=T$+.0:.."|
0000a9a0  57 69 6d 70 5f 53 65 6e  64 4d 65 73 73 61 67 65  |Wimp_SendMessage|
0000a9b0  22 2c 31 37 2c 71 25 2c  6d 68 25 2c 6d 69 25 0d  |",17,q%,mh%,mi%.|
0000a9c0  3f f2 20 73 61 76 65 72  65 66 25 3d 71 25 21 38  |?. saveref%=q%!8|
0000a9d0  3a 73 61 76 65 74 79 70  65 25 3d 74 25 3a e1 0d  |:savetype%=t%:..|
0000a9e0  3f fc 04 0d 40 06 26 dd  f2 6c 6f 61 64 6d 65 73  |?...@.&..loadmes|
0000a9f0  73 3a f2 72 65 61 64 70  6f 69 6e 74 65 72 3a e7  |s:.readpointer:.|
0000aa00  74 61 73 6b 25 3c 30 3a  e1 0d 40 10 2b 24 28 71  |task%<0:..@.+$(q|
0000aa10  25 2b 34 34 29 3d 66 69  6c 65 24 2b bd 30 3a 21  |%+44)=file$+.0:!|
0000aa20  71 25 3d 28 a9 66 69 6c  65 24 2b 34 39 29 80 26  |q%=(.file$+49).&|
0000aa30  46 46 46 43 0d 40 1a 26  71 25 21 31 32 3d 72 65  |FFFC.@.&q%!12=re|
0000aa40  66 25 3a 71 25 21 31 36  3d 33 3a 71 25 21 34 30  |f%:q%!16=3:q%!40|
0000aa50  3d 73 61 76 65 74 79 70  65 25 0d 40 24 3f 71 25  |=savetype%.@$?q%|
0000aa60  21 32 30 3d 6d 68 25 3a  71 25 21 32 34 3d 6d 69  |!20=mh%:q%!24=mi|
0000aa70  25 3a 71 25 21 32 38 3d  6d 78 25 3a 71 25 21 33  |%:q%!28=mx%:q%!3|
0000aa80  32 3d 6d 79 25 3a 71 25  21 33 36 3d a4 66 73 69  |2=my%:q%!36=.fsi|
0000aa90  7a 65 28 66 69 6c 65 24  29 0d 40 2e 24 c8 99 22  |ze(file$).@.$.."|
0000aaa0  57 69 6d 70 5f 53 65 6e  64 4d 65 73 73 61 67 65  |Wimp_SendMessage|
0000aab0  22 2c 31 37 2c 71 25 2c  74 61 73 6b 25 0d 40 38  |",17,q%,task%.@8|
0000aac0  13 61 63 6b 70 65 6e 64  69 6e 67 25 3d b9 3a e1  |.ackpending%=.:.|
0000aad0  0d 40 42 04 0d 40 4c 26  dd a4 66 73 69 7a 65 28  |.@B..@L&..fsize(|
0000aae0  54 24 29 3a ea 54 25 2c  73 25 3a 54 25 3d 8e 54  |T$):.T%,s%:T%=.T|
0000aaf0  24 3a e7 54 25 3d 30 3a  3d 30 0d 40 56 14 73 25  |$:.T%=0:=0.@V.s%|
0000ab00  3d a2 23 54 25 3a d9 23  54 25 3a 3d 73 25 0d 40  |=.#T%:.#T%:=s%.@|
0000ab10  60 05 20 0d 40 6a 11 dd  a4 7a 74 73 28 54 25 29  |`. .@j...zts(T%)|
0000ab20  3a ea 54 24 0d 40 74 1d  c8 95 3f 54 25 3c 3e 30  |:.T$.@t...?T%<>0|
0000ab30  3a 54 24 2b 3d bd 3f 54  25 3a 54 25 2b 3d 31 3a  |:T$+=.?T%:T%+=1:|
0000ab40  ce 0d 40 7e 07 3d 54 24  0d 40 88 04 0d 40 92 29  |..@~.=T$.@...@.)|
0000ab50  dd f2 6b 65 79 28 68 25  2c 69 63 6f 6e 25 2c 78  |..key(h%,icon%,x|
0000ab60  25 2c 79 25 2c 63 61 72  68 25 2c 6f 66 66 25 2c  |%,y%,carh%,off%,|
0000ab70  6b 65 79 25 29 0d 40 9c  0d f2 77 74 6f 66 28 68  |key%).@...wtof(h|
0000ab80  25 29 0d 40 a6 0c ea 46  25 3a 46 25 3d b9 0d 40  |%).@...F%:F%=..@|
0000ab90  b0 0b c8 8e 6b 65 79 25  ca 0d 40 ba 13 c9 39 2c  |....key%..@...9,|
0000aba0  26 31 38 41 3a f2 66 69  6e 64 63 74 0d 40 c4 1d  |&18A:.findct.@..|
0000abb0  c9 31 33 3a f2 63 75 72  73 6f 72 28 68 25 2c 69  |.13:.cursor(h%,i|
0000abc0  63 6f 6e 25 2c 31 2c 30  29 0d 40 ce 11 c9 31 39  |con%,1,0).@...19|
0000abd0  3a f2 73 77 61 70 63 61  73 65 0d 40 d8 22 c9 32  |:.swapcase.@.".2|
0000abe0  37 3a e7 64 69 61 6c 6f  67 75 65 25 3e 3d 30 f2  |7:.dialogue%>=0.|
0000abf0  6e 6f 64 69 61 6c 3a 8b  46 25 3d a3 0d 40 e2 1a  |nodial:.F%=..@..|
0000ac00  c9 26 31 38 31 3a e7 ac  a4 70 72 6f 64 3a f2 71  |.&181:...prod:.q|
0000ac10  75 69 74 28 b9 29 0d 40  ec 23 c9 26 31 38 46 3a  |uit(.).@.#.&18F:|
0000ac20  f2 63 75 72 73 6f 72 28  68 25 2c 69 63 6f 6e 25  |.cursor(h%,icon%|
0000ac30  2c 2d 31 2c 6f 66 66 25  29 0d 40 f6 22 c9 26 31  |,-1,off%).@.".&1|
0000ac40  38 45 3a f2 63 75 72 73  6f 72 28 68 25 2c 69 63  |8E:.cursor(h%,ic|
0000ac50  6f 6e 25 2c 31 2c 6f 66  66 25 29 0d 41 00 23 c9  |on%,1,off%).A.#.|
0000ac60  26 31 39 46 3a f2 63 75  72 73 6f 72 28 68 25 2c  |&19F:.cursor(h%,|
0000ac70  69 63 6f 6e 25 2c 2d 35  2c 6f 66 66 25 29 0d 41  |icon%,-5,off%).A|
0000ac80  0a 22 c9 26 31 39 45 3a  f2 63 75 72 73 6f 72 28  |.".&19E:.cursor(|
0000ac90  68 25 2c 69 63 6f 6e 25  2c 35 2c 6f 66 66 25 29  |h%,icon%,5,off%)|
0000aca0  0d 41 14 28 c9 26 31 41  46 2c 33 30 3a f2 63 75  |.A.(.&1AF,30:.cu|
0000acb0  72 73 6f 72 28 68 25 2c  69 63 6f 6e 25 2c 2d 31  |rsor(h%,icon%,-1|
0000acc0  45 39 2c 6f 66 66 25 29  0d 41 1e 24 c9 26 31 41  |E9,off%).A.$.&1A|
0000acd0  45 3a f2 63 75 72 73 6f  72 28 68 25 2c 69 63 6f  |E:.cursor(h%,ico|
0000ace0  6e 25 2c 31 45 39 2c 6f  66 66 25 29 0d 41 28 09  |n%,1E9,off%).A(.|
0000acf0  7f 46 25 3d a3 0d 41 32  05 cb 0d 41 3c 09 e7 46  |.F%=..A2...A<..F|
0000ad00  25 3a e1 0d 41 46 1c c8  99 22 57 69 6d 70 5f 50  |%:..AF..."Wimp_P|
0000ad10  72 6f 63 65 73 73 4b 65  79 22 2c 6b 65 79 25 0d  |rocessKey",key%.|
0000ad20  41 50 05 e1 0d 41 5a 04  0d 41 64 2c dd f2 73 77  |AP...AZ..Ad,..sw|
0000ad30  61 70 63 61 73 65 3a f2  67 65 74 63 74 3a 54 25  |apcase:.getct:T%|
0000ad40  3d 71 25 21 32 30 2b a4  69 61 28 21 71 25 2c 71  |=q%!20+.ia(!q%,q|
0000ad50  25 21 34 29 0d 41 6e 33  e7 3f 54 25 3c 31 32 33  |%!4).An3.?T%<123|
0000ad60  80 3f 54 25 3e 39 36 20  3f 54 25 2d 3d 33 32 3a  |.?T%>96 ?T%-=32:|
0000ad70  8b e7 3f 54 25 3c 39 31  80 3f 54 25 3e 36 34 20  |..?T%<91.?T%>64 |
0000ad80  3f 54 25 2b 3d 33 32 0d  41 78 2a f2 67 65 74 63  |?T%+=32.Ax*.getc|
0000ad90  74 3a e7 3f 54 25 3e 33  31 f2 73 65 74 63 74 28  |t:.?T%>31.setct(|
0000ada0  21 71 25 2c 71 25 21 34  2c 71 25 21 32 30 2b 31  |!q%,q%!4,q%!20+1|
0000adb0  29 0d 41 82 1f f2 67 65  74 63 74 3a f2 69 63 6f  |).A...getct:.ico|
0000adc0  6e 75 70 64 28 21 71 25  2c 71 25 21 34 29 3a e1  |nupd(!q%,q%!4):.|
0000add0  0d 41 8c 04 0d 41 96 2b  dd f2 67 65 74 63 74 3a  |.A...A.+..getct:|
0000ade0  c8 99 22 57 69 6d 70 5f  47 65 74 43 61 72 65 74  |.."Wimp_GetCaret|
0000adf0  50 6f 73 69 74 69 6f 6e  22 2c 2c 71 25 3a e1 0d  |Position",,q%:..|
0000ae00  41 a0 04 0d 41 aa 3d dd  f2 73 65 74 63 74 28 68  |A...A.=..setct(h|
0000ae10  25 2c 69 25 2c 6f 25 29  3a c8 99 22 57 69 6d 70  |%,i%,o%):.."Wimp|
0000ae20  5f 53 65 74 43 61 72 65  74 50 6f 73 69 74 69 6f  |_SetCaretPositio|
0000ae30  6e 22 2c 68 25 2c 69 25  2c 2c 2c 2d 31 2c 6f 25  |n",h%,i%,,,-1,o%|
0000ae40  0d 41 b4 11 e7 69 25 3e  3d 30 f2 66 69 6e 64 63  |.A...i%>=0.findc|
0000ae50  74 0d 41 be 05 e1 0d 41  c8 04 0d 41 d2 14 dd a4  |t.A....A...A....|
0000ae60  6e 75 6d 69 28 68 25 2c  69 25 2c 62 25 29 0d 41  |numi(h%,i%,b%).A|
0000ae70  dc 09 f7 8d 70 46 42 0d  41 e6 1f ea 55 25 2c 44  |....pFB.A...U%,D|
0000ae80  25 2c 4e 25 2c 54 25 2c  42 25 2c 57 25 2c 46 25  |%,N%,T%,B%,W%,F%|
0000ae90  2c 53 25 2c 56 25 0d 41  f0 11 c8 95 57 25 3c 3e  |,S%,V%.A....W%<>|
0000aea0  2d 31 80 46 25 3d a3 0d  41 fa 1e f2 72 65 61 64  |-1.F%=..A...read|
0000aeb0  68 28 57 25 29 3a f3 55  25 2c 44 25 2c 4e 25 2c  |h(W%):.U%,D%,N%,|
0000aec0  54 25 2c 42 25 0d 42 04  0b e7 57 25 3d 68 25 8c  |T%,B%.B...W%=h%.|
0000aed0  0d 42 0e 11 e7 69 25 3d  55 25 84 69 25 3d 44 25  |.B...i%=U%.i%=D%|
0000aee0  8c 0d 42 18 08 46 25 3d  b9 0d 42 22 13 56 25 3d  |..B..F%=..B".V%=|
0000aef0  bb 24 a4 69 61 28 57 25  2c 4e 25 29 0d 42 2c 15  |.$.ia(W%,N%).B,.|
0000af00  53 25 3d 31 3a e7 69 25  3d 44 25 3a 53 25 3d 2d  |S%=1:.i%=D%:S%=-|
0000af10  31 0d 42 36 12 e7 62 25  3d 31 3a 53 25 3d 53 25  |1.B6..b%=1:S%=S%|
0000af20  2a 31 30 0d 42 40 17 56  25 2b 3d 53 25 3a e7 56  |*10.B@.V%+=S%:.V|
0000af30  25 3c 42 25 3a 56 25 3d  42 25 0d 42 4a 0f e7 56  |%<B%:V%=B%.BJ..V|
0000af40  25 3e 54 25 56 25 3d 54  25 0d 42 54 14 f2 73 65  |%>T%V%=T%.BT..se|
0000af50  74 69 28 57 25 2c 4e 25  2c c3 56 25 29 0d 42 5e  |ti(W%,N%,.V%).B^|
0000af60  05 cd 0d 42 68 05 cd 0d  42 72 05 ce 0d 42 7c 07  |...Bh...Br...B|.|
0000af70  3d 46 25 0d 42 86 19 dc  2d 31 2c 2d 31 2c 2d 31  |=F%.B...-1,-1,-1|
0000af80  2c 2d 31 2c 2d 31 2c 2d  31 2c 2d 31 0d 42 90 04  |,-1,-1,-1,-1.B..|
0000af90  0d 42 9a 19 dd f2 63 75  72 73 6f 72 28 68 25 2c  |.B....cursor(h%,|
0000afa0  69 25 2c 73 25 2c 6f 25  29 0d 42 a4 09 f7 8d 40  |i%,s%,o%).B....@|
0000afb0  62 43 0d 42 ae 0d ea 57  25 2c 54 24 2c 49 25 0d  |bC.B...W%,T$,I%.|
0000afc0  42 b8 0c c8 95 57 25 3c  3e 2d 31 0d 42 c2 17 f2  |B....W%<>-1.B...|
0000afd0  72 65 61 64 68 28 57 25  29 3a e7 57 25 3c 3e 68  |readh(W%):.W%<>h|
0000afe0  25 8c 0d 42 cc 1d e7 57  25 3c 3e 2d 31 3a f5 3a  |%..B...W%<>-1:.:|
0000aff0  f3 57 25 3a fd 57 25 3c  2d 31 3a 57 25 3d 30 0d  |.W%:.W%<-1:W%=0.|
0000b000  42 d6 05 cc 0d 42 e0 05  f5 0d 42 ea 19 f3 57 25  |B....B....B...W%|
0000b010  3a e7 57 25 3c 3e 2d 31  3a 54 24 2b 3d bd 28 57  |:.W%<>-1:T$+=.(W|
0000b020  25 29 0d 42 f4 12 fd 57  25 3c 2d 31 3a 54 24 3d  |%).B...W%<-1:T$=|
0000b030  c0 54 24 29 0d 42 fe 3b  e7 6b 65 79 25 3d 31 33  |.T$).B.;.key%=13|
0000b040  3a e7 97 c2 54 24 29 3d  69 25 3a 6d 69 25 3d 94  |:...T$)=i%:mi%=.|
0000b050  28 57 25 2b 31 30 30 29  3a 6d 62 25 3d 31 3a 6d  |(W%+100):mb%=1:m|
0000b060  68 25 3d 68 25 3a f2 73  65 6c 65 63 74 3a e1 0d  |h%=h%:.select:..|
0000b070  43 08 2f e7 73 25 3d 31  45 39 3a 73 25 3d a9 54  |C./.s%=1E9:s%=.T|
0000b080  24 3a 8b e7 73 25 3d 2d  31 45 39 3a 73 25 3d 31  |$:..s%=-1E9:s%=1|
0000b090  3a 8b 73 25 2b 3d a7 54  24 2c bd 69 25 29 0d 43  |:.s%+=.T$,.i%).C|
0000b0a0  12 16 c8 95 73 25 3e a9  54 24 3a 73 25 2d 3d a9  |....s%>.T$:s%-=.|
0000b0b0  54 24 3a ce 0d 43 1c 14  c8 95 73 25 3c 31 3a 73  |T$:..C....s%<1:s|
0000b0c0  25 2b 3d a9 54 24 3a ce  0d 43 26 0f 49 25 3d 97  |%+=.T$:..C&.I%=.|
0000b0d0  c1 54 24 2c 73 25 29 0d  43 30 23 e7 6f 25 3e a9  |.T$,s%).C0#.o%>.|
0000b0e0  24 a4 69 61 28 68 25 2c  49 25 29 6f 25 3d a9 24  |$.ia(h%,I%)o%=.$|
0000b0f0  a4 69 61 28 68 25 2c 49  25 29 0d 43 3a 14 f2 73  |.ia(h%,I%).C:..s|
0000b100  65 74 63 74 28 68 25 2c  49 25 2c 6f 25 29 0d 43  |etct(h%,I%,o%).C|
0000b110  44 05 cd 0d 43 4e 05 ce  0d 43 58 05 e1 0d 43 62  |D...CN...CX...Cb|
0000b120  1a dc 77 5f 65 78 70 72  25 2c 31 37 2c 65 78 69  |..w_expr%,17,exi|
0000b130  30 25 2c 2d 31 32 33 0d  43 6c 15 dc 77 5f 6e 75  |0%,-123.Cl..w_nu|
0000b140  6d 73 25 2c 32 2c 33 2c  2d 31 30 35 0d 43 76 14  |ms%,2,3,-105.Cv.|
0000b150  dc 77 5f 6f 70 65 6e 25  2c 31 34 2c 2d 31 31 32  |.w_open%,14,-112|
0000b160  0d 43 80 17 dc 77 5f 74  72 61 6e 73 65 78 70 25  |.C...w_transexp%|
0000b170  2c 31 2c 2d 31 30 33 0d  43 8a 13 dc 77 5f 73 61  |,1,-103.C...w_sa|
0000b180  76 65 25 2c 32 2c 2d 31  30 30 0d 43 94 46 dc 22  |ve%,2,-100.C.F."|
0000b190  77 25 28 66 69 6c 65 25  2c 36 29 22 2c 30 2c 31  |w%(file%,6)",0,1|
0000b1a0  2c 32 2c 33 2c 34 2c 35  2c 36 2c 37 2c 38 2c 39  |,2,3,4,5,6,7,8,9|
0000b1b0  2c 31 30 2c 31 31 2c 31  32 2c 31 33 2c 31 34 2c  |,10,11,12,13,14,|
0000b1c0  31 35 2c 31 36 2c 31 37  2c 31 38 2c 2d 31 30 30  |15,16,17,18,-100|
0000b1d0  0d 43 9e 67 dc 22 77 25  28 66 69 6c 65 25 2c 37  |.C.g."w%(file%,7|
0000b1e0  29 22 2c 30 2c 31 2c 32  2c 33 2c 34 2c 35 2c 36  |)",0,1,2,3,4,5,6|
0000b1f0  2c 37 2c 38 2c 39 2c 31  30 2c 31 31 2c 31 32 2c  |,7,8,9,10,11,12,|
0000b200  31 33 2c 31 34 2c 31 35  2c 31 36 2c 31 37 2c 31  |13,14,15,16,17,1|
0000b210  38 2c 31 39 2c 32 30 2c  32 31 2c 32 32 2c 32 33  |8,19,20,21,22,23|
0000b220  2c 32 34 2c 32 35 2c 32  36 2c 32 37 2c 32 38 2c  |,24,25,26,27,28,|
0000b230  32 39 2c 2d 31 30 30 0d  43 a8 07 dc 2d 31 0d 43  |29,-100.C...-1.C|
0000b240  b2 04 0d 43 bc 11 dd f2  72 65 61 64 68 28 f8 20  |...C....readh(. |
0000b250  54 25 29 0d 43 c6 2d ea  54 24 3a f3 54 24 3a e7  |T%).C.-.T$:.T$:.|
0000b260  66 69 6c 65 25 3c 30 80  a7 54 24 2c 22 66 69 6c  |file%<0..T$,"fil|
0000b270  65 25 22 29 54 25 3d 31  3a 8b 54 25 3d a0 54 24  |e%")T%=1:.T%=.T$|
0000b280  0d 43 d0 05 e1 0d 43 da  04 0d 43 e4 0e dd a4 6c  |.C....C...C....l|
0000b290  65 61 66 28 54 24 29 0d  43 ee 0a ea 49 25 2c 43  |eaf(T$).C...I%,C|
0000b2a0  25 0d 43 f8 24 e7 28 28  a7 54 24 2c 22 2e 22 29  |%.C.$.((.T$,".")|
0000b2b0  3d 30 29 80 28 a7 54 24  2c 22 3a 22 29 3d 30 29  |=0).(.T$,":")=0)|
0000b2c0  29 8c 3d 54 24 0d 44 02  0c 49 25 3d a9 28 54 24  |).=T$.D..I%=.(T$|
0000b2d0  29 0d 44 0c 05 f5 0d 44  16 11 43 25 3d 97 c1 54  |).D....D..C%=..T|
0000b2e0  24 2c 49 25 2c 31 29 0d  44 20 09 49 25 2d 3d 31  |$,I%,1).D .I%-=1|
0000b2f0  0d 44 2a 1c fd 28 49 25  3c 3d 30 84 43 25 3d 97  |.D*..(I%<=0.C%=.|
0000b300  22 2e 22 84 43 25 3d 97  22 3a 22 29 0d 44 34 1a  |".".C%=.":").D4.|
0000b310  e7 49 25 3e 30 8c 3d c2  54 24 2c a9 28 54 24 29  |.I%>0.=.T$,.(T$)|
0000b320  2d 49 25 2d 31 29 0d 44  3e 07 3d 54 24 0d 44 48  |-I%-1).D>.=T$.DH|
0000b330  04 0d 44 52 33 dd f2 77  65 78 74 28 68 25 2c 78  |..DR3..wext(h%,x|
0000b340  25 2c 79 25 29 3a 21 71  25 3d 30 3a 71 25 21 34  |%,y%):!q%=0:q%!4|
0000b350  3d 2d 79 25 3a 71 25 21  38 3d 78 25 3a 71 25 21  |=-y%:q%!8=x%:q%!|
0000b360  31 32 3d 30 0d 44 5c 27  c8 99 22 57 69 6d 70 5f  |12=0.D\'.."Wimp_|
0000b370  53 65 74 45 78 74 65 6e  74 22 2c 68 25 2c 71 25  |SetExtent",h%,q%|
0000b380  3a f2 66 6f 72 63 65 28  68 25 29 0d 44 66 15 f2  |:.force(h%).Df..|
0000b390  67 65 74 77 28 68 25 29  3a e7 6f 70 65 6e 25 8c  |getw(h%):.open%.|
0000b3a0  0d 44 70 1f e7 78 31 25  2d 78 30 25 3e 78 25 3a  |.Dp..x1%-x0%>x%:|
0000b3b0  78 25 2b 3d 78 30 25 3a  8b 78 25 3d 78 31 25 0d  |x%+=x0%:.x%=x1%.|
0000b3c0  44 7a 21 e7 79 31 25 2d  79 30 25 3e 79 25 3a 79  |Dz!.y1%-y0%>y%:y|
0000b3d0  25 3d 79 31 25 2d 79 25  3a 8b 79 25 3d 79 30 25  |%=y1%-y%:.y%=y0%|
0000b3e0  0d 44 84 2e f2 6f 70 65  6e 28 68 25 2c 78 30 25  |.D...open(h%,x0%|
0000b3f0  2c 79 25 2c 78 25 2c 79  31 25 2c 73 63 78 25 2c  |,y%,x%,y1%,scx%,|
0000b400  73 63 79 25 2c 62 68 61  6e 64 6c 65 25 29 0d 44  |scy%,bhandle%).D|
0000b410  8e 05 cd 0d 44 98 05 e1  0d 44 a2 04 0d 44 ac 0d  |....D....D...D..|
0000b420  dd f2 70 72 6f 63 65 73  73 0d 44 b6 2f e7 64 69  |..process.D./.di|
0000b430  61 6c 72 65 61 73 6f 6e  25 3e 3d 30 84 64 69 61  |alreason%>=0.dia|
0000b440  6c 6f 67 75 65 25 3e 3d  30 84 61 63 6b 70 65 6e  |logue%>=0.ackpen|
0000b450  64 69 6e 67 25 3e 30 e1  0d 44 c0 0f c8 8e 70 72  |ding%>0..D....pr|
0000b460  6f 63 65 73 73 25 ca 0d  44 ca 11 c9 31 3a f2 63  |ocess%..D...1:.c|
0000b470  68 65 63 6b 70 72 6f 74  0d 44 d4 54 c9 32 3a f2  |heckprot.D.T.2:.|
0000b480  73 74 6f 70 28 31 2c 22  50 6c 65 61 73 65 20 70  |stop(1,"Please p|
0000b490  6c 61 63 65 20 6f 72 69  67 69 6e 61 6c 22 2c 22  |lace original","|
0000b4a0  4d 75 6c 74 69 53 74 6f  72 65 20 64 69 73 6b 20  |MultiStore disk |
0000b4b0  69 6e 20 64 72 69 76 65  20 3a 30 22 2c 2d 31 29  |in drive :0",-1)|
0000b4c0  3a 70 72 6f 63 65 73 73  25 2b 3d 31 0d 44 de 11  |:process%+=1.D..|
0000b4d0  c9 33 3a f2 63 68 65 63  6b 70 72 6f 74 0d 44 e8  |.3:.checkprot.D.|
0000b4e0  1e c9 34 3a f2 74 72 61  6e 73 66 65 72 3a f2 73  |..4:.transfer:.s|
0000b4f0  74 61 72 74 6f 70 65 6e  28 30 29 0d 44 f2 14 c9  |tartopen(0).D...|
0000b500  35 3a f2 73 74 61 72 74  6f 70 65 6e 28 31 29 0d  |5:.startopen(1).|
0000b510  44 fc 34 7f 70 72 6f 63  65 73 73 25 3d 30 3a f2  |D.4.process%=0:.|
0000b520  6e 65 77 64 65 6c 61 79  3a 2a 75 6e 73 65 74 20  |newdelay:*unset |
0000b530  4d 75 6c 74 69 53 74 6f  72 65 24 46 75 6e 63 74  |MultiStore$Funct|
0000b540  69 6f 6e 0d 45 06 05 cb  0d 45 10 05 e1 0d 45 1a  |ion.E....E....E.|
0000b550  04 0d 45 24 15 dd f2 64  72 61 67 69 63 6f 6e 28  |..E$...dragicon(|
0000b560  68 25 2c 69 25 29 0d 45  2e 22 ea 78 25 2c 79 25  |h%,i%).E.".x%,y%|
0000b570  2c 79 73 25 2c 74 78 30  25 2c 74 79 30 25 2c 74  |,ys%,tx0%,ty0%,t|
0000b580  78 31 25 2c 74 79 31 25  0d 45 38 2c f2 67 65 74  |x1%,ty1%.E8,.get|
0000b590  77 28 68 25 29 3a 79 73  25 3d 79 31 25 2d 79 30  |w(h%):ys%=y1%-y0|
0000b5a0  25 3a 78 25 3d 62 78 25  3a 79 25 3d 79 30 25 2d  |%:x%=bx%:y%=y0%-|
0000b5b0  73 63 79 25 0d 45 42 31  f2 67 65 74 69 28 68 25  |scy%.EB1.geti(h%|
0000b5c0  2c 69 25 29 3a 71 25 21  38 2b 3d 78 25 3a 71 25  |,i%):q%!8+=x%:q%|
0000b5d0  21 31 32 2b 3d 79 25 2b  79 73 25 3a 71 25 21 31  |!12+=y%+ys%:q%!1|
0000b5e0  36 2b 3d 78 25 0d 45 4c  30 71 25 21 32 30 2b 3d  |6+=x%.EL0q%!20+=|
0000b5f0  79 25 2b 79 73 25 3a 71  25 21 32 34 3d 30 3a 71  |y%+ys%:q%!24=0:q|
0000b600  25 21 32 38 3d 30 3a 21  71 25 3d 30 3a f2 64 72  |%!28=0:!q%=0:.dr|
0000b610  61 67 35 3a e1 0d 45 56  04 0d 45 60 3c dd f2 64  |ag5:..EV..E`<..d|
0000b620  72 61 67 35 3a f2 72 65  61 64 70 6f 69 6e 74 65  |rag5:.readpointe|
0000b630  72 3a f2 73 63 72 73 7a  3a 74 78 30 25 3d 6d 78  |r:.scrsz:tx0%=mx|
0000b640  25 2d 71 25 21 38 3a 74  79 30 25 3d 6d 79 25 2d  |%-q%!8:ty0%=my%-|
0000b650  71 25 21 31 32 0d 45 6a  3d 71 25 21 32 34 2d 3d  |q%!12.Ej=q%!24-=|
0000b660  74 78 30 25 3a 71 25 21  32 38 2d 3d 74 79 30 25  |tx0%:q%!28-=ty0%|
0000b670  3a 71 25 21 33 32 2b 3d  71 25 21 31 36 2d 6d 78  |:q%!32+=q%!16-mx|
0000b680  25 3a 71 25 21 33 36 2b  3d 71 25 21 32 30 2d 6d  |%:q%!36+=q%!20-m|
0000b690  79 25 0d 45 74 21 71 25  21 34 3d 35 3a c8 99 22  |y%.Et!q%!4=5:.."|
0000b6a0  57 69 6d 70 5f 44 72 61  67 42 6f 78 22 2c 2c 71  |Wimp_DragBox",,q|
0000b6b0  25 3a e1 0d 45 7e 04 0d  45 88 1a dd a4 6c 6f 77  |%:..E~..E....low|
0000b6c0  65 72 28 54 24 29 3a e7  54 24 3d 22 22 3a 3d 22  |er(T$):.T$="":="|
0000b6d0  22 0d 45 92 0a ea 49 25  2c 43 25 0d 45 9c 19 e3  |".E...I%,C%.E...|
0000b6e0  49 25 3d 31 b8 a9 54 24  3a 43 25 3d 97 c1 54 24  |I%=1..T$:C%=..T$|
0000b6f0  2c 49 25 29 0d 45 a6 22  e7 43 25 3e 36 34 80 43  |,I%).E.".C%>64.C|
0000b700  25 3c 39 31 c1 54 24 2c  49 25 2c 31 29 3d bd 28  |%<91.T$,I%,1)=.(|
0000b710  43 25 2b 33 32 29 0d 45  b0 09 ed 3a 3d 54 24 0d  |C%+32).E...:=T$.|
0000b720  45 ba 04 0d 45 c4 0e dd  f2 77 74 6f 66 28 54 25  |E...E....wtof(T%|
0000b730  29 0d 45 ce 0a ea 49 25  2c 4a 25 0d 45 d8 15 77  |).E...I%,J%.E..w|
0000b740  69 6e 64 25 3d 2d 31 3a  66 69 6c 65 25 3d 2d 31  |ind%=-1:file%=-1|
0000b750  0d 45 e2 0f e3 49 25 3d  30 b8 6d 61 78 66 25 0d  |.E...I%=0.maxf%.|
0000b760  45 ec 0f e3 4a 25 3d 30  b8 6d 61 78 77 25 0d 45  |E...J%=0.maxw%.E|
0000b770  f6 34 e7 77 25 28 49 25  2c 4a 25 29 3d 54 25 3a  |.4.w%(I%,J%)=T%:|
0000b780  66 69 6c 65 25 3d 49 25  3a 77 69 6e 64 25 3d 4a  |file%=I%:wind%=J|
0000b790  25 3a f2 73 64 66 69 6c  65 28 66 69 6c 65 25 29  |%:.sdfile(file%)|
0000b7a0  3a e1 0d 46 00 05 ed 0d  46 0a 07 ed 3a e1 0d 46  |:..F....F...:..F|
0000b7b0  14 04 0d 46 1e 2d dd a4  66 6f 72 6d 68 61 6e 64  |...F.-..formhand|
0000b7c0  28 54 25 29 3a e7 66 25  28 54 25 29 3e 30 3a 3d  |(T%):.f%(T%)>0:=|
0000b7d0  66 25 28 54 25 29 3a 8b  3d 68 25 28 54 25 29 0d  |f%(T%):.=h%(T%).|
0000b7e0  46 28 04 0d 46 32 0a dd  f2 66 65 78 74 0d 46 3c  |F(..F2...fext.F<|
0000b7f0  0a ea 78 25 2c 79 25 0d  46 46 31 79 25 3d a4 68  |..x%,y%.FF1y%=.h|
0000b800  74 2a 6c 69 6e 65 67 61  70 25 2b 6d 61 72 67 69  |t*linegap%+margi|
0000b810  6e 25 2a 32 3a e7 79 25  3c 70 61 6e 65 68 25 79  |n%*2:.y%<paneh%y|
0000b820  25 3d 70 61 6e 65 68 25  0d 46 50 29 78 25 3d a4  |%=paneh%.FP)x%=.|
0000b830  77 64 2a 31 36 2b 6d 61  72 67 69 6e 25 2a 32 3a  |wd*16+margin%*2:|
0000b840  e7 78 25 3c 32 32 2a 31  36 78 25 3d 32 32 2a 31  |.x%<22*16x%=22*1|
0000b850  36 0d 46 5a 1e f2 77 65  78 74 28 77 25 28 66 69  |6.FZ..wext(w%(fi|
0000b860  6c 65 25 2c 30 29 2c 78  25 2c 79 25 29 3a e1 0d  |le%,0),x%,y%):..|
0000b870  46 64 04 0d 46 6e 20 dd  a4 69 6e 74 28 74 29 3a  |Fd..Fn ..int(t):|
0000b880  e7 94 74 3e 32 45 39 3a  3d b4 74 2a 32 45 39 3a  |..t>2E9:=.t*2E9:|
0000b890  8b 3d 74 0d 46 78 04 0d  46 82 10 dd f2 73 64 66  |.=t.Fx..F....sdf|
0000b8a0  69 6c 65 28 54 25 29 0d  46 8c 43 ea 47 25 3a 66  |ile(T%).F.C.G%:f|
0000b8b0  69 6c 65 25 3d 54 25 3a  73 64 24 3d c3 a4 66 6f  |ile%=T%:sd$=..fo|
0000b8c0  72 6d 68 61 6e 64 28 54  25 29 3a 73 64 66 24 3d  |rmhand(T%):sdf$=|
0000b8d0  c3 68 25 28 54 25 29 3a  c8 99 73 77 69 25 2c 66  |.h%(T%):..swi%,f|
0000b8e0  69 6c 65 5f 25 2c 73 64  66 24 0d 46 96 16 c8 99  |ile_%,sdf$.F....|
0000b8f0  73 77 69 25 2c 73 64 31  33 5f 25 2c 30 b8 47 25  |swi%,sd13_%,0.G%|
0000b900  0d 46 a0 05 e1 0d 46 aa  04 0d 46 b4 25 dd f2 66  |.F....F...F.%..f|
0000b910  6f 72 6d 73 74 61 74 3a  c8 99 73 77 69 25 2c 73  |ormstat:..swi%,s|
0000b920  64 31 33 5f 25 2c 30 2c  73 64 24 b8 47 25 0d 46  |d13_%,0,sd$.G%.F|
0000b930  be 05 e1 0d 46 c8 04 0d  46 d2 2a dd a4 62 61 64  |....F...F.*..bad|
0000b940  72 65 63 28 54 25 29 3a  3d 28 54 25 80 26 37 46  |rec(T%):=(T%.&7F|
0000b950  46 46 46 46 30 30 29 3d  26 37 46 46 46 46 46 30  |FFFF00)=&7FFFFF0|
0000b960  30 0d 46 dc 04 0d 46 e6  18 dd f2 76 61 6c 69 64  |0.F...F....valid|
0000b970  72 65 63 31 3a f2 76 72  28 a3 2c b9 29 0d 46 f0  |rec1:.vr(.,.).F.|
0000b980  18 dd f2 76 61 6c 69 64  72 65 63 32 3a f2 76 72  |...validrec2:.vr|
0000b990  28 b9 2c a3 29 0d 46 fa  17 dd f2 76 61 6c 69 64  |(.,.).F....valid|
0000b9a0  72 65 63 3a f2 76 72 28  b9 2c b9 29 0d 47 04 05  |rec:.vr(.,.).G..|
0000b9b0  e1 0d 47 0e 04 0d 47 18  0f dd f2 76 72 28 54 25  |..G...G....vr(T%|
0000b9c0  2c 55 25 29 0d 47 22 13  e7 66 69 6c 65 25 3d 74  |,U%).G"..file%=t|
0000b9d0  61 72 67 65 74 25 8c 0d  47 2c 16 c8 99 73 77 69  |arget%..G,...swi|
0000b9e0  25 2c 67 72 65 63 5f 25  2c 30 b8 4e 25 0d 47 36  |%,grec_%,0.N%.G6|
0000b9f0  15 c8 99 73 77 69 25 2c  73 64 33 38 5f 25 2c 32  |...swi%,sd38_%,2|
0000ba00  35 35 0d 47 40 15 c8 99  73 77 69 25 2c 73 64 33  |55.G@...swi%,sd3|
0000ba10  38 5f 25 2c 32 35 35 0d  47 4a 05 cc 0d 47 54 29  |8_%,255.GJ...GT)|
0000ba20  f2 73 64 33 35 3a e7 47  25 3a e7 ac a4 6f 6b 63  |.sd35:.G%:...okc|
0000ba30  61 72 64 3a f2 6e 65 77  63 61 72 64 28 54 25 2c  |ard:.newcard(T%,|
0000ba40  55 25 29 3a e1 0d 47 5e  05 f5 0d 47 68 13 e7 a4  |U%):..G^...Gh...|
0000ba50  66 6c 67 28 66 5f 6d 61  63 62 25 29 8c 0d 47 72  |flg(f_macb%)..Gr|
0000ba60  16 f2 62 6d 61 63 72 6f  3a f2 73 64 33 35 3a e7  |..bmacro:.sd35:.|
0000ba70  47 25 8c 0d 47 7c 26 e7  ac a4 6f 6b 63 61 72 64  |G%..G|&...okcard|
0000ba80  3a f2 6e 65 77 63 61 72  64 28 54 25 2c 55 25 29  |:.newcard(T%,U%)|
0000ba90  3a e1 3a 8b 47 25 3d 2d  31 0d 47 86 05 cd 0d 47  |:.:.G%=-1.G....G|
0000baa0  90 05 cd 0d 47 9a 09 fd  47 25 3d 30 0d 47 a4 13  |....G...G%=0.G..|
0000bab0  f2 6e 65 77 63 61 72 64  28 54 25 2c 55 25 29 0d  |.newcard(T%,U%).|
0000bac0  47 ae 05 cd 0d 47 b8 05  e1 0d 47 c2 04 0d 47 cc  |G....G....G...G.|
0000bad0  1b dd f2 76 61 6c 69 64  61 74 65 72 65 63 3a f2  |...validaterec:.|
0000bae0  76 72 72 28 b9 29 3a e1  0d 47 d6 1c dd f2 76 61  |vrr(.):..G....va|
0000baf0  6c 69 64 61 74 65 72 65  63 31 3a f2 76 72 72 28  |lidaterec1:.vrr(|
0000bb00  a3 29 3a e1 0d 47 e0 04  0d 47 ea 1b dd f2 76 72  |.):..G...G....vr|
0000bb10  72 28 54 25 29 3a f2 73  64 33 35 3a e7 47 25 3d  |r(T%):.sd35:.G%=|
0000bb20  30 3a e1 0d 47 f4 0f f2  76 72 28 54 25 2c b9 29  |0:..G...vr(T%,.)|
0000bb30  3a e1 0d 47 fe 04 0d 48  08 10 dd f2 72 65 76 61  |:..G...H....reva|
0000bb40  6c 69 64 61 74 65 0d 48  12 34 e7 73 25 28 66 69  |lidate.H.4.s%(fi|
0000bb50  6c 65 25 29 3d 31 73 25  28 66 69 6c 65 25 29 3d  |le%)=1s%(file%)=|
0000bb60  30 3a f2 76 61 6c 69 64  72 65 63 32 3a 8b f2 76  |0:.validrec2:..v|
0000bb70  61 6c 69 64 61 74 65 72  65 63 0d 48 1c 0f f2 66  |alidaterec.H...f|
0000bb80  6f 72 63 65 72 65 70 3a  e1 0d 48 26 04 0d 48 30  |orcerep:..H&..H0|
0000bb90  0c dd a4 6f 6b 63 61 72  64 0d 48 3a 07 ea 67 25  |...okcard.H:..g%|
0000bba0  0d 48 44 23 ea 85 3a ee  85 ea 3a f7 85 3a f2 63  |.HD#..:...:..:.c|
0000bbb0  68 65 63 6b 73 75 62 73  65 74 3a f2 65 72 72 28  |hecksubset:.err(|
0000bbc0  33 32 29 0d 48 4e 0a 2a  66 78 32 32 39 0d 48 58  |32).HN.*fx229.HX|
0000bbd0  05 f5 0d 48 62 0c f2 76  61 6c 69 64 72 31 0d 48  |...Hb..validr1.H|
0000bbe0  6c 32 e7 a4 62 61 64 72  65 63 28 a4 76 5f 28 31  |l2..badrec(.v_(1|
0000bbf0  35 29 29 67 25 3d 30 3a  8b f2 73 64 33 35 3a 67  |5))g%=0:..sd35:g|
0000bc00  25 3d 47 25 3a e7 47 25  3a f2 73 64 6e 65 78 74  |%=G%:.G%:.sdnext|
0000bc10  0d 48 76 12 fd 67 25 3d  30 3a 2a 66 78 32 32 39  |.Hv..g%=0:*fx229|
0000bc20  2c 31 0d 48 80 29 3d ac  28 a4 62 61 64 72 65 63  |,1.H.)=.(.badrec|
0000bc30  28 a4 76 5f 28 31 35 29  29 80 a4 62 61 64 72 65  |(.v_(15))..badre|
0000bc40  63 28 a4 76 5f 28 31 34  29 29 29 0d 48 8a 04 0d  |c(.v_(14))).H...|
0000bc50  48 94 0d dd f2 76 61 6c  69 64 72 31 0d 48 9e 19  |H....validr1.H..|
0000bc60  44 25 3d a4 76 5f 28 31  34 29 3a 4e 25 3d a4 76  |D%=.v_(14):N%=.v|
0000bc70  5f 28 31 35 29 0d 48 a8  0f e7 44 25 3d 30 84 4e  |_(15).H...D%=0.N|
0000bc80  25 3d 30 8c 0d 48 b2 16  c8 99 73 77 69 25 2c 66  |%=0..H....swi%,f|
0000bc90  69 72 73 74 5f 25 b8 2c  4e 25 0d 48 bc 21 f2 73  |irst_%.,N%.H.!.s|
0000bca0  64 6e 65 78 74 3a 44 25  3d a4 76 5f 28 31 34 29  |dnext:D%=.v_(14)|
0000bcb0  3a 4e 25 3d a4 76 5f 28  31 35 29 0d 48 c6 05 cd  |:N%=.v_(15).H...|
0000bcc0  0d 48 d0 13 e7 ac a4 62  61 64 72 65 63 28 44 25  |.H.....badrec(D%|
0000bcd0  29 3a e1 0d 48 da 11 e7  a4 62 61 64 72 65 63 28  |):..H....badrec(|
0000bce0  4e 25 29 8c 0d 48 e4 0d  c8 8e 20 4e 25 80 31 20  |N%)..H.... N%.1 |
0000bcf0  ca 0d 48 ee 07 c9 20 31  0d 48 f8 16 c8 99 73 77  |..H... 1.H....sw|
0000bd00  69 25 2c 66 69 72 73 74  5f 25 b8 2c 4e 25 0d 49  |i%,first_%.,N%.I|
0000bd10  02 0b f2 73 64 6e 65 78  74 0d 49 0c 07 c9 20 30  |...sdnext.I... 0|
0000bd20  0d 49 16 1c c8 99 73 77  69 25 2c 67 72 65 63 5f  |.I....swi%,grec_|
0000bd30  25 2c a4 76 5f 28 31 37  29 b8 4e 25 0d 49 20 12  |%,.v_(17).N%.I .|
0000bd40  c8 99 73 77 69 25 2c 64  69 72 5f 25 2c 30 0d 49  |..swi%,dir_%,0.I|
0000bd50  2a 14 f2 73 64 33 35 3a  e7 47 25 f2 73 64 6e 65  |*..sd35:.G%.sdne|
0000bd60  78 74 0d 49 34 05 cb 0d  49 3e 19 44 25 3d a4 76  |xt.I4...I>.D%=.v|
0000bd70  5f 28 31 34 29 3a 4e 25  3d a4 76 5f 28 31 35 29  |_(14):N%=.v_(15)|
0000bd80  0d 49 48 30 e7 ac a4 62  61 64 72 65 63 28 4e 25  |.IH0...badrec(N%|
0000bd90  29 3a c8 99 73 77 69 25  2c 73 64 33 30 5f 25 2c  |):..swi%,sd30_%,|
0000bda0  4e 25 b8 47 25 3a 44 25  3d a4 76 5f 28 31 34 29  |N%.G%:D%=.v_(14)|
0000bdb0  0d 49 52 05 cc 0d 49 5c  10 e7 4e 25 3e a4 76 5f  |.IR...I\..N%>.v_|
0000bdc0  28 31 37 29 8c 0d 49 66  16 c8 99 73 77 69 25 2c  |(17)..If...swi%,|
0000bdd0  66 69 72 73 74 5f 25 b8  2c 4e 25 0d 49 70 0b f2  |first_%.,N%.Ip..|
0000bde0  73 64 6e 65 78 74 0d 49  7a 05 cc 0d 49 84 17 c8  |sdnext.Iz...I...|
0000bdf0  99 73 77 69 25 2c 73 64  33 30 5f 25 2c 4e 25 b8  |.swi%,sd30_%,N%.|
0000be00  47 25 0d 49 8e 05 cd 0d  49 98 19 44 25 3d a4 76  |G%.I....I..D%=.v|
0000be10  5f 28 31 34 29 3a 4e 25  3d a4 76 5f 28 31 35 29  |_(14):N%=.v_(15)|
0000be20  0d 49 a2 05 cd 0d 49 ac  05 e1 0d 49 b6 04 0d 49  |.I....I....I...I|
0000be30  c0 0a dd f2 73 64 33 35  0d 49 ca 19 44 25 3d a4  |....sd35.I..D%=.|
0000be40  76 5f 28 31 34 29 3a 4e  25 3d a4 76 5f 28 31 35  |v_(14):N%=.v_(15|
0000be50  29 0d 49 d4 15 e7 4e 25  3d 30 84 44 25 3d 30 3a  |).I...N%=0.D%=0:|
0000be60  47 25 3d 31 3a e1 0d 49  de 11 e7 a4 62 61 64 72  |G%=1:..I....badr|
0000be70  65 63 28 4e 25 29 8c 0d  49 e8 1b e7 a4 62 61 64  |ec(N%)..I....bad|
0000be80  72 65 63 28 44 25 29 3a  47 25 3d 31 3a 8b 47 25  |rec(D%):G%=1:.G%|
0000be90  3d 30 0d 49 f2 05 cc 0d  49 fc 17 c8 99 73 77 69  |=0.I....I....swi|
0000bea0  25 2c 73 64 33 35 5f 25  2c 4e 25 b8 47 25 0d 4a  |%,sd35_%,N%.G%.J|
0000beb0  06 13 e7 47 25 3d 30 47  25 3d a4 66 69 6c 74 65  |...G%=0G%=.filte|
0000bec0  72 0d 4a 10 05 cd 0d 4a  1a 05 e1 0d 4a 24 04 0d  |r.J....J....J$..|
0000bed0  4a 2e 1f dd a4 66 69 6c  74 65 72 3a e7 ac a4 66  |J....filter:...f|
0000bee0  6c 67 28 66 5f 66 69 6c  74 25 29 3a 3d 30 0d 4a  |lg(f_filt%):=0.J|
0000bef0  38 06 ea 85 0d 4a 42 1a  ee 85 ea 3a f7 85 3a f2  |8....JB....:..:.|
0000bf00  6e 6f 66 69 6c 74 3a f2  65 72 72 28 38 29 0d 4a  |nofilt:.err(8).J|
0000bf10  4c 37 e7 a4 65 76 28 66  78 24 28 66 69 6c 65 25  |L7..ev(fx$(file%|
0000bf20  29 2c a4 66 6c 67 28 66  5f 66 73 70 63 25 29 2c  |),.flg(f_fspc%),|
0000bf30  a4 66 6c 67 28 66 5f 66  75 70 70 25 29 29 3a 3d  |.flg(f_fupp%)):=|
0000bf40  30 3a 8b 3d 31 0d 4a 56  04 0d 4a 60 0c dd f2 73  |0:.=1.JV..J`...s|
0000bf50  64 6e 65 78 74 0d 4a 6a  14 c8 99 73 77 69 25 2c  |dnext.Jj...swi%,|
0000bf60  73 64 32 33 5f 25 b8 4e  25 0d 4a 74 05 f5 0d 4a  |sd23_%.N%.Jt...J|
0000bf70  7e 14 c8 99 73 77 69 25  2c 6e 65 78 74 5f 25 b8  |~...swi%,next_%.|
0000bf80  4e 25 0d 4a 88 21 e7 a4  62 61 64 72 65 63 28 4e  |N%.J.!..badrec(N|
0000bf90  25 29 84 a6 30 3d 32 37  47 25 3d 30 3a 8b f2 73  |%)..0=27G%=0:..s|
0000bfa0  64 33 35 0d 4a 92 0b fd  47 25 3d 30 3a e1 0d 4a  |d35.J...G%=0:..J|
0000bfb0  9c 04 0d 4a a6 1a dd f2  66 77 64 3a e7 a4 64 65  |...J....fwd:..de|
0000bfc0  61 64 66 69 6c 65 28 2d  31 29 3a e1 0d 4a b0 18  |adfile(-1):..J..|
0000bfd0  ea 6e 25 3a c8 99 73 77  69 25 2c 73 64 32 33 5f  |.n%:..swi%,sd23_|
0000bfe0  25 b8 4e 25 0d 4a ba 12  c8 99 73 77 69 25 2c 64  |%.N%.J....swi%,d|
0000bff0  69 72 5f 25 2c 31 0d 4a  c4 3c 6e 25 3d a4 76 5f  |ir_%,1.J.<n%=.v_|
0000c000  28 31 35 29 3a f2 73 64  6e 65 78 74 3a e7 a4 62  |(15):.sdnext:..b|
0000c010  61 64 72 65 63 28 a4 76  5f 28 31 35 29 29 3a c8  |adrec(.v_(15)):.|
0000c020  99 73 77 69 25 2c 67 72  65 63 5f 25 2c 6e 25 b8  |.swi%,grec_%,n%.|
0000c030  4e 25 0d 4a ce 0f f2 76  61 6c 69 64 72 65 63 3a  |N%.J...validrec:|
0000c040  e1 0d 4a d8 04 0d 4a e2  1b dd f2 62 61 63 6b 3a  |..J...J....back:|
0000c050  e7 a4 64 65 61 64 66 69  6c 65 28 2d 31 29 3a e1  |..deadfile(-1):.|
0000c060  0d 4a ec 18 ea 6e 25 3a  c8 99 73 77 69 25 2c 73  |.J...n%:..swi%,s|
0000c070  64 32 33 5f 25 b8 4e 25  0d 4a f6 12 c8 99 73 77  |d23_%.N%.J....sw|
0000c080  69 25 2c 64 69 72 5f 25  2c 30 0d 4b 00 3c 6e 25  |i%,dir_%,0.K.<n%|
0000c090  3d a4 76 5f 28 31 35 29  3a f2 73 64 6e 65 78 74  |=.v_(15):.sdnext|
0000c0a0  3a e7 a4 62 61 64 72 65  63 28 a4 76 5f 28 31 35  |:..badrec(.v_(15|
0000c0b0  29 29 3a c8 99 73 77 69  25 2c 67 72 65 63 5f 25  |)):..swi%,grec_%|
0000c0c0  2c 6e 25 b8 4e 25 0d 4b  0a 0f f2 76 61 6c 69 64  |,n%.N%.K...valid|
0000c0d0  72 65 63 3a e1 0d 4b 14  04 0d 4b 1e 1a dd f2 62  |rec:..K...K....b|
0000c0e0  6f 66 3a e7 a4 64 65 61  64 66 69 6c 65 28 2d 31  |of:..deadfile(-1|
0000c0f0  29 3a e1 0d 4b 28 16 c8  99 73 77 69 25 2c 66 69  |):..K(...swi%,fi|
0000c100  72 73 74 5f 25 b8 2c 4e  25 0d 4b 32 17 f2 73 64  |rst_%.,N%.K2..sd|
0000c110  6e 65 78 74 3a f2 76 61  6c 69 64 72 65 63 3a e1  |next:.validrec:.|
0000c120  0d 4b 3c 04 0d 4b 46 14  dd f2 70 61 75 73 65 3a  |.K<..KF...pause:|
0000c130  f2 72 65 61 64 79 3a e1  0d 4b 50 04 0d 4b 5a 1a  |.ready:..KP..KZ.|
0000c140  dd f2 65 6f 66 3a e7 a4  64 65 61 64 66 69 6c 65  |..eof:..deadfile|
0000c150  28 2d 31 29 3a e1 0d 4b  64 1c c8 99 73 77 69 25  |(-1):..Kd...swi%|
0000c160  2c 67 72 65 63 5f 25 2c  a4 76 5f 28 31 37 29 b8  |,grec_%,.v_(17).|
0000c170  4e 25 0d 4b 6e 0f f2 76  61 6c 69 64 72 65 63 3a  |N%.Kn..validrec:|
0000c180  e1 0d 4b 78 04 0d 4b 82  1e dd f2 63 61 72 64 6e  |..Kx..K....cardn|
0000c190  75 6d 3a e7 a4 64 65 61  64 66 69 6c 65 28 2d 31  |um:..deadfile(-1|
0000c1a0  29 3a e1 0d 4b 8c 14 c8  99 73 77 69 25 2c 73 64  |):..K....swi%,sd|
0000c1b0  32 33 5f 25 b8 4e 25 0d  4b 96 12 f2 63 68 65 63  |23_%.N%.K...chec|
0000c1c0  6b 73 75 62 73 65 74 3a  e1 0d 4b a0 04 0d 4b aa  |ksubset:..K...K.|
0000c1d0  1c dd f2 67 61 75 67 65  3a e7 a4 64 65 61 64 66  |...gauge:..deadf|
0000c1e0  69 6c 65 28 2d 31 29 3a  e1 0d 4b b4 1a ea 54 25  |ile(-1):..K...T%|
0000c1f0  3a f2 67 65 74 77 28 77  25 28 66 69 6c 65 25 2c  |:.getw(w%(file%,|
0000c200  31 29 29 0d 4b be 46 54  25 3d 28 a4 76 5f 28 31  |1)).K.FT%=(.v_(1|
0000c210  36 29 2b 28 a4 76 5f 28  31 36 29 3e 30 29 29 2a  |6)+(.v_(16)>0))*|
0000c220  28 6d 78 25 2d 78 30 25  29 2f 28 33 32 36 2d 36  |(mx%-x0%)/(326-6|
0000c230  29 2b 31 3a e7 54 25 3e  a4 76 5f 28 31 37 29 54  |)+1:.T%>.v_(17)T|
0000c240  25 3d a4 76 5f 28 31 37  29 0d 4b c8 11 c8 99 73  |%=.v_(17).K....s|
0000c250  77 69 25 2c 73 64 32 33  5f 25 0d 4b d2 10 e7 54  |wi%,sd23_%.K...T|
0000c260  25 3d a4 76 5f 28 31 35  29 e1 0d 4b dc 17 c8 99  |%=.v_(15)..K....|
0000c270  73 77 69 25 2c 67 72 65  63 5f 25 2c 54 25 b8 4e  |swi%,grec_%,T%.N|
0000c280  25 0d 4b e6 0f f2 76 61  6c 69 64 72 65 63 3a e1  |%.K...validrec:.|
0000c290  0d 4b f0 04 0d 4b fa 1c  dd f2 66 66 69 6e 64 3a  |.K...K....ffind:|
0000c2a0  e7 a4 64 65 61 64 66 69  6c 65 28 2d 31 29 3a e1  |..deadfile(-1):.|
0000c2b0  0d 4c 04 32 ea 54 24 3a  54 24 3d 24 a4 69 61 28  |.L.2.T$:T$=$.ia(|
0000c2c0  77 25 28 66 69 6c 65 25  2c 31 29 2c 37 29 3a f2  |w%(file%,1),7):.|
0000c2d0  73 74 72 69 70 28 54 24  29 3a e7 54 24 3d 22 22  |strip(T$):.T$=""|
0000c2e0  3a e1 0d 4c 0e 2a e7 a7  54 24 2c 22 3d 22 29 3d  |:..L.*..T$,"=")=|
0000c2f0  30 80 bb c1 54 24 2c 32  29 3e 30 80 28 97 54 24  |0...T$,2)>0.(.T$|
0000c300  3d 33 35 84 97 54 24 3d  36 34 29 8c 0d 4c 18 0a  |=35..T$=64)..L..|
0000c310  c8 8e 97 54 24 ca 0d 4c  22 20 c9 33 35 3a c8 99  |...T$..L" .35:..|
0000c320  73 77 69 25 2c 67 72 65  63 5f 25 2c bb c1 54 24  |swi%,grec_%,..T$|
0000c330  2c 32 29 b8 4e 25 0d 4c  2c 22 c9 36 34 3a c8 99  |,2).N%.L,".64:..|
0000c340  73 77 69 25 2c 6c 6f 63  61 74 65 5f 25 2c bb c1  |swi%,locate_%,..|
0000c350  54 24 2c 32 29 b8 44 25  0d 4c 36 05 cb 0d 4c 40  |T$,2).D%.L6...L@|
0000c360  0f f2 76 61 6c 69 64 72  65 63 3a e1 0d 4c 4a 05  |..validrec:..LJ.|
0000c370  cd 0d 4c 54 1d 73 24 28  66 69 6c 65 25 29 3d 54  |..LT.s$(file%)=T|
0000c380  24 3a f2 64 75 70 28 54  24 2c 30 29 3a e1 0d 4c  |$:.dup(T$,0):..L|
0000c390  5e 04 0d 4c 68 0c dd f2  66 66 6f 75 6e 64 0d 4c  |^..Lh...ffound.L|
0000c3a0  72 22 f2 73 65 74 69 28  77 25 28 66 69 6c 65 25  |r".seti(w%(file%|
0000c3b0  2c 31 29 2c 37 2c 73 24  28 66 69 6c 65 25 29 29  |,1),7,s$(file%))|
0000c3c0  0d 4c 7c 2e e7 ac a4 62  61 64 72 65 63 28 a4 76  |.L|....badrec(.v|
0000c3d0  5f 28 31 35 29 29 3a f2  63 68 65 63 6b 73 75 62  |_(15)):.checksub|
0000c3e0  73 65 74 3a 8b f2 76 61  6c 69 64 72 65 63 0d 4c  |set:..validrec.L|
0000c3f0  86 05 e1 0d 4c 90 04 0d  4c 9a 20 dd f2 6e 65 78  |....L...L. ..nex|
0000c400  74 6d 61 74 63 68 3a e7  a4 64 65 61 64 66 69 6c  |tmatch:..deadfil|
0000c410  65 28 2d 31 29 3a e1 0d  4c a4 16 ea 54 24 3a e7  |e(-1):..L...T$:.|
0000c420  73 24 28 66 69 6c 65 25  29 3d 22 22 8c 0d 4c ae  |s$(file%)=""..L.|
0000c430  15 c8 99 73 77 69 25 2c  67 66 69 65 6c 64 5f 25  |...swi%,gfield_%|
0000c440  2c 31 0d 4c b8 12 c8 99  73 77 69 25 2c 73 74 72  |,1.L....swi%,str|
0000c450  69 70 5f 25 0d 4c c2 12  c8 99 73 77 69 25 2c 75  |ip_%.L....swi%,u|
0000c460  70 70 65 72 5f 25 0d 4c  cc 12 73 24 28 66 69 6c  |pper_%.L..s$(fil|
0000c470  65 25 29 3d 24 73 64 25  0d 4c d6 05 cd 0d 4c e0  |e%)=$sd%.L....L.|
0000c480  23 54 24 3d 73 24 28 66  69 6c 65 25 29 3a f2 64  |#T$=s$(file%):.d|
0000c490  75 70 28 54 24 2c a4 76  5f 28 31 34 29 29 3a e1  |up(T$,.v_(14)):.|
0000c4a0  0d 4c ea 04 0d 4c f4 29  dd f2 64 75 70 31 28 54  |.L...L.)..dup1(T|
0000c4b0  24 2c 54 25 29 3a ea 66  24 2c 74 24 2c 49 25 2c  |$,T%):.f$,t$,I%,|
0000c4c0  64 25 3a 64 25 3d a4 76  5f 28 31 34 29 0d 4c fe  |d%:d%=.v_(14).L.|
0000c4d0  21 f2 73 74 72 69 70 28  54 24 29 3a 49 25 3d a7  |!.strip(T$):I%=.|
0000c4e0  54 24 2c 22 3d 22 29 3a  e7 49 25 3e 30 8c 0d 4d  |T$,"="):.I%>0..M|
0000c4f0  08 1d 74 24 3d c0 54 24  2c 49 25 2d 31 29 3a 54  |..t$=.T$,I%-1):T|
0000c500  24 3d c1 54 24 2c 49 25  2b 31 29 0d 4d 12 19 e7  |$=.T$,I%+1).M...|
0000c510  a7 74 24 2c 22 7b 22 29  3e 30 80 c2 74 24 29 3d  |.t$,"{")>0..t$)=|
0000c520  22 7d 22 8c 0d 4d 1c 1e  66 24 3d c1 74 24 2c a7  |"}"..M..f$=.t$,.|
0000c530  74 24 2c 22 7b 22 29 2b  31 29 3a 66 24 3d c0 66  |t$,"{")+1):f$=.f|
0000c540  24 29 0d 4d 26 16 74 24  3d c0 74 24 2c a7 74 24  |$).M&.t$=.t$,.t$|
0000c550  2c 22 7b 22 29 2d 31 29  0d 4d 30 05 cd 0d 4d 3a  |,"{")-1).M0...M:|
0000c560  05 cd 0d 4d 44 20 c8 99  73 77 69 25 2c 73 65 65  |...MD ..swi%,see|
0000c570  6b 5f 25 2c 54 24 2c 54  25 2c 74 24 2c 66 24 b8  |k_%,T$,T%,t$,f$.|
0000c580  47 25 0d 4d 4e 33 e7 47  25 3d 30 3a e7 64 25 3e  |G%.MN3.G%=0:.d%>|
0000c590  30 3a e7 ac a4 62 61 64  72 65 63 28 64 25 29 3a  |0:...badrec(d%):|
0000c5a0  c8 99 73 77 69 25 2c 6c  6f 63 61 74 65 5f 25 2c  |..swi%,locate_%,|
0000c5b0  64 25 b8 44 25 0d 4d 58  05 e1 0d 4d 62 04 0d 4d  |d%.D%.MX...Mb..M|
0000c5c0  6c 1d dd f2 64 75 70 28  54 24 2c 54 25 29 3a f2  |l...dup(T$,T%):.|
0000c5d0  64 75 70 31 28 54 24 2c  54 25 29 0d 4d 76 12 e7  |dup1(T$,T%).Mv..|
0000c5e0  47 25 3d 30 3a f2 65 72  72 28 33 36 29 0d 4d 80  |G%=0:.err(36).M.|
0000c5f0  0d f2 66 66 6f 75 6e 64  3a e1 0d 4d 8a 04 0d 4d  |..ffound:..M...M|
0000c600  94 11 dd f2 63 68 65 63  6b 73 75 62 73 65 74 0d  |....checksubset.|
0000c610  4d 9e 14 c8 99 73 77 69  25 2c 73 64 32 33 5f 25  |M....swi%,sd23_%|
0000c620  b8 4e 25 0d 4d a8 0e f2  73 64 33 35 3a e7 47 25  |.N%.M...sd35:.G%|
0000c630  8c 0d 4d b2 24 f2 66 6c  67 30 28 66 5f 66 69 6c  |..M.$.flg0(f_fil|
0000c640  74 25 29 3a c8 99 73 77  69 25 2c 73 75 62 73 65  |t%):..swi%,subse|
0000c650  74 5f 25 2c 30 0d 4d bc  22 f2 73 68 6f 77 66 69  |t_%,0.M.".showfi|
0000c660  6c 74 65 72 3a f2 73 68  6f 77 73 75 62 3a f2 66  |lter:.showsub:.f|
0000c670  6f 72 63 65 72 65 70 0d  4d c6 05 cd 0d 4d d0 0d  |orcerep.M....M..|
0000c680  f2 76 61 6c 69 64 72 65  63 0d 4d da 05 e1 0d 4d  |.validrec.M....M|
0000c690  e4 04 0d 4d ee 14 dd f2  6e 65 77 63 61 72 64 28  |...M....newcard(|
0000c6a0  54 25 2c 55 25 29 0d 4d  f8 13 ea 66 25 2c 49 25  |T%,U%).M...f%,I%|
0000c6b0  3a 66 25 3d 66 69 6c 65  25 0d 4e 02 11 e7 73 25  |:f%=file%.N...s%|
0000c6c0  28 66 69 6c 65 25 29 3d  30 8c 0d 4e 0c 29 e7 28  |(file%)=0..N.).(|
0000c6d0  a4 62 61 64 72 65 63 28  a4 76 5f 28 31 34 29 29  |.badrec(.v_(14))|
0000c6e0  80 a4 62 61 64 72 65 63  28 a4 76 5f 28 31 35 29  |..badrec(.v_(15)|
0000c6f0  29 29 8c 0d 4e 16 1a 73  25 28 66 69 6c 65 25 29  |))..N..s%(file%)|
0000c700  3d 31 3a f2 66 6f 72 63  65 63 61 72 64 0d 4e 20  |=1:.forcecard.N |
0000c710  05 cc 0d 4e 2a 30 e7 55  25 f2 75 70 64 61 74 65  |...N*0.U%.update|
0000c720  28 77 25 28 66 69 6c 65  25 2c 30 29 29 3a 8b f2  |(w%(file%,0)):..|
0000c730  66 6f 72 63 65 28 77 25  28 66 69 6c 65 25 2c 30  |force(w%(file%,0|
0000c740  29 29 0d 4e 34 05 cd 0d  4e 3e 05 cd 0d 4e 48 0e  |)).N4...N>...NH.|
0000c750  f2 73 68 6f 77 6e 75 6d  3a e1 0d 4e 52 04 0d 4e  |.shownum:..NR..N|
0000c760  5c 10 dd f2 75 70 64 61  74 65 28 68 25 29 0d 4e  |\...update(h%).N|
0000c770  66 0a 21 71 25 3d 68 25  0d 4e 70 09 c8 8e 68 25  |f.!q%=h%.Np...h%|
0000c780  ca 0d 4e 7a 2c 7f 71 25  21 34 3d 2d 31 45 39 3a  |..Nz,.q%!4=-1E9:|
0000c790  71 25 21 38 3d 2d 31 45  39 3a 71 25 21 31 32 3d  |q%!8=-1E9:q%!12=|
0000c7a0  31 45 39 3a 71 25 21 31  36 3d 31 45 39 0d 4e 84  |1E9:q%!16=1E9.N.|
0000c7b0  05 cb 0d 4e 8e 0e f2 72  65 64 72 61 77 28 b9 29  |...N...redraw(.)|
0000c7c0  0d 4e 98 05 e1 0d 4e a2  04 0d 4e ac 2e dd a4 6e  |.N....N...N....n|
0000c7d0  6e 75 6d 73 3a ea 54 25  2c 49 25 3a e3 49 25 3d  |nums:.T%,I%:.I%=|
0000c7e0  30 b8 39 3a c8 99 73 77  69 25 2c 73 64 35 33 5f  |0.9:..swi%,sd53_|
0000c7f0  25 2c 49 25 b8 47 25 0d  4e b6 11 e7 24 73 64 25  |%,I%.G%.N...$sd%|
0000c800  3e 22 22 54 25 2b 3d 31  0d 4e c0 09 ed 3a 3d 54  |>""T%+=1.N...:=T|
0000c810  25 0d 4e ca 04 0d 4e d4  2d dd a4 73 75 62 6d 61  |%.N...N.-..subma|
0000c820  78 28 73 25 29 3a c8 99  73 77 69 25 2c 73 64 35  |x(s%):..swi%,sd5|
0000c830  33 5f 25 2c 73 25 b8 47  25 3a e7 47 25 3d 30 3a  |3_%,s%.G%:.G%=0:|
0000c840  3d 30 0d 4e de 1e c8 95  28 47 25 80 31 29 3d 30  |=0.N....(G%.1)=0|
0000c850  3a 47 25 3d 47 25 3e 3e  3e 31 3a ce 3a 3d 47 25  |:G%=G%>>>1:.:=G%|
0000c860  0d 4e e8 04 0d 4e f2 36  dd a4 73 75 62 6e 75 6d  |.N...N.6..subnum|
0000c870  28 54 24 29 3a ea 49 25  3a 54 24 3d a4 73 75 28  |(T$):.I%:T$=.su(|
0000c880  54 24 29 3a e7 97 54 24  3d 39 34 3a 54 24 3d a4  |T$):..T$=94:T$=.|
0000c890  73 75 28 c1 54 24 2c 32  29 29 0d 4e fc 2f e7 a9  |su(.T$,2)).N./..|
0000c8a0  54 24 3d 31 80 97 54 24  3e 36 35 80 97 54 24 3c  |T$=1..T$>65..T$<|
0000c8b0  36 36 2b a4 73 75 62 6d  61 78 28 66 69 6c 65 25  |66+.submax(file%|
0000c8c0  29 8c 3d 97 54 24 2d 36  35 0d 4f 06 1f e3 49 25  |).=.T$-65.O...I%|
0000c8d0  3d 30 b8 39 3a c8 99 73  77 69 25 2c 73 64 35 33  |=0.9:..swi%,sd53|
0000c8e0  5f 25 2c 49 25 b8 47 25  0d 4f 10 12 c8 99 73 77  |_%,I%.G%.O....sw|
0000c8f0  69 25 2c 75 70 70 65 72  5f 25 0d 4f 1a 14 e7 24  |i%,upper_%.O...$|
0000c900  73 64 25 3d 54 24 3a 3d  49 25 2b 32 35 36 0d 4f  |sd%=T$:=I%+256.O|
0000c910  24 09 ed 3a 3d 2d 31 0d  4f 2e 04 0d 4f 38 1d dd  |$..:=-1.O...O8..|
0000c920  a4 73 75 62 73 74 72 3a  c8 99 73 77 69 25 2c 73  |.substr:..swi%,s|
0000c930  64 35 33 5f 25 b8 47 25  0d 4f 42 0e 3d 24 28 73  |d53_%.G%.OB.=$(s|
0000c940  64 25 2b 31 36 29 0d 4f  4c 04 0d 4f 56 25 dd a4  |d%+16).OL..OV%..|
0000c950  73 75 62 6e 61 6d 65 28  73 25 29 3a c8 99 73 77  |subname(s%):..sw|
0000c960  69 25 2c 73 64 35 33 5f  25 2c 73 25 b8 47 25 0d  |i%,sd53_%,s%.G%.|
0000c970  4f 60 09 3d 24 73 64 25  0d 4f 6a 04 0d 4f 74 2a  |O`.=$sd%.Oj..Ot*|
0000c980  dd a4 73 75 62 64 65 73  63 3a ea 54 24 2c 54 25  |..subdesc:.T$,T%|
0000c990  3a 54 25 3d a4 76 5f 28  31 31 29 3a e7 54 25 3d  |:T%=.v_(11):.T%=|
0000c9a0  33 32 54 25 3d 30 0d 4f  7e 12 3d a4 73 75 62 64  |32T%=0.O~.=.subd|
0000c9b0  65 73 63 31 28 54 25 29  0d 4f 88 04 0d 4f 92 12  |esc1(T%).O...O..|
0000c9c0  dd a4 73 75 62 64 65 73  63 31 28 54 25 29 0d 4f  |..subdesc1(T%).O|
0000c9d0  9c 16 e7 54 25 3d 30 3a  3d 22 41 6c 6c 20 43 61  |...T%=0:="All Ca|
0000c9e0  72 64 73 22 0d 4f a6 29  e7 54 25 3e 32 35 35 3a  |rds".O.).T%>255:|
0000c9f0  3d 22 4e 75 6d 65 72 69  63 3a 20 22 2b a4 73 75  |="Numeric: "+.su|
0000ca00  62 6e 61 6d 65 28 54 25  2d 32 35 36 29 0d 4f b0  |bname(T%-256).O.|
0000ca10  23 54 24 3d 22 22 3a e7  54 25 3e 33 31 3a 54 25  |#T$="":.T%>31:T%|
0000ca20  3d 54 25 80 33 31 3a 54  24 3d 22 4e 4f 54 20 22  |=T%.31:T$="NOT "|
0000ca30  0d 4f ba 1a 3d 54 24 2b  22 53 75 62 73 65 74 20  |.O..=T$+"Subset |
0000ca40  22 2b bd 28 54 25 2b 36  35 29 0d 4f c4 04 0d 4f  |"+.(T%+65).O...O|
0000ca50  ce 12 dd a4 73 75 62 64  65 73 63 32 28 54 25 29  |....subdesc2(T%)|
0000ca60  0d 4f d8 07 ea 54 24 0d  4f e2 0a c8 8e 20 b9 20  |.O...T$.O.... . |
0000ca70  ca 0d 4f ec 26 c9 54 25  3d 30 84 54 25 3d 33 32  |..O.&.T%=0.T%=32|
0000ca80  3a 54 24 3d 22 41 6c 6c  20 63 61 72 64 73 20 69  |:T$="All cards i|
0000ca90  6e 20 66 69 6c 65 22 0d  4f f6 10 c9 54 25 3e 33  |n file".O...T%>3|
0000caa0  32 80 54 25 3c 36 34 0d  50 00 16 54 24 3d 64 24  |2.T%<64.P..T$=d$|
0000cab0  28 66 69 6c 65 25 2c 54  25 2d 33 33 29 0d 50 0a  |(file%,T%-33).P.|
0000cac0  34 e7 54 24 3d 22 22 3a  54 24 3d a4 73 75 62 64  |4.T$="":T$=.subd|
0000cad0  65 73 63 31 28 54 25 29  3a 8b e7 a9 54 24 3c 32  |esc1(T%):...T$<2|
0000cae0  31 54 24 3d 22 4e 4f 54  28 22 2b 54 24 2b 22 29  |1T$="NOT("+T$+")|
0000caf0  22 0d 50 14 39 c9 54 25  3e 30 80 54 25 3c 33 32  |".P.9.T%>0.T%<32|
0000cb00  3a 54 24 3d 64 24 28 66  69 6c 65 25 2c 54 25 2d  |:T$=d$(file%,T%-|
0000cb10  31 29 3a e7 54 24 3d 22  22 3a 54 24 3d a4 73 75  |1):.T$="":T$=.su|
0000cb20  62 64 65 73 63 31 28 54  25 29 0d 50 1e 32 c9 54  |bdesc1(T%).P.2.T|
0000cb30  25 3e 32 35 35 3a 54 24  3d 22 4e 75 6d 65 72 69  |%>255:T$="Numeri|
0000cb40  63 20 73 75 62 73 65 74  3a 20 22 2b a4 73 75 62  |c subset: "+.sub|
0000cb50  6e 61 6d 65 28 54 25 2d  32 35 36 29 0d 50 28 0a  |name(T%-256).P(.|
0000cb60  7f 54 24 3d 22 22 0d 50  32 05 cb 0d 50 3c 07 3d  |.T$="".P2...P<.=|
0000cb70  54 24 0d 50 46 04 0d 50  50 12 dd a4 73 75 62 64  |T$.PF..PP...subd|
0000cb80  65 73 63 33 28 54 25 29  0d 50 5a 1d e7 54 25 3e  |esc3(T%).PZ..T%>|
0000cb90  32 35 35 3a 3d a4 73 75  62 6e 61 6d 65 28 54 25  |255:=.subname(T%|
0000cba0  2d 32 35 36 29 0d 50 64  14 e7 54 25 3c 33 31 3a  |-256).Pd..T%<31:|
0000cbb0  3d bd 28 54 25 2b 36 35  29 0d 50 6e 19 3d 22 4e  |=.(T%+65).Pn.="N|
0000cbc0  4f 54 2d 22 2b bd 28 28  54 25 80 33 31 29 2b 36  |OT-"+.((T%.31)+6|
0000cbd0  35 29 0d 50 78 04 0d 50  82 30 dd a4 73 75 62 64  |5).Px..P.0..subd|
0000cbe0  65 73 63 34 28 54 25 29  3a e7 54 25 3e 32 35 35  |esc4(T%):.T%>255|
0000cbf0  3a 3d 22 5e 22 2b a4 73  75 62 6e 61 6d 65 28 54  |:="^"+.subname(T|
0000cc00  25 2d 32 35 36 29 0d 50  8c 18 e7 54 25 3c 33 31  |%-256).P...T%<31|
0000cc10  3a 3d 22 5e 22 2b bd 28  54 25 2b 36 35 29 0d 50  |:="^"+.(T%+65).P|
0000cc20  96 18 3d 22 28 5e 22 2b  bd 28 54 25 2b 33 33 29  |..="(^"+.(T%+33)|
0000cc30  2b 22 3d 30 29 22 0d 50  a0 04 0d 50 aa 1e dd f2  |+"=0)".P...P....|
0000cc40  73 74 61 72 74 6f 70 65  6e 28 54 25 29 3a f2 77  |startopen(T%):.w|
0000cc50  61 69 74 70 6f 69 6e 74  0d 50 b4 13 ea 54 24 3a  |aitpoint.P...T$:|
0000cc60  70 72 6f 63 65 73 73 25  2b 3d 31 0d 50 be 25 54  |process%+=1.P.%T|
0000cc70  24 3d a4 41 72 66 56 61  72 28 22 4d 75 6c 74 69  |$=.ArfVar("Multi|
0000cc80  53 74 6f 72 65 24 46 75  6e 63 74 69 6f 6e 22 29  |Store$Function")|
0000cc90  0d 50 c8 0a c8 8e bb 54  24 ca 0d 50 d2 19 c9 31  |.P.....T$..P...1|
0000cca0  3a f2 6f 70 65 6e 73 74  28 54 25 2c c1 54 24 2c  |:.openst(T%,.T$,|
0000ccb0  33 29 29 0d 50 dc 05 cb  0d 50 e6 10 f2 6e 6f 72  |3)).P....P...nor|
0000ccc0  6d 70 6f 69 6e 74 3a e1  0d 50 f0 04 0d 50 fa 0b  |mpoint:..P...P..|
0000ccd0  dd f2 72 65 61 64 79 0d  51 04 12 e7 61 25 28 66  |..ready.Q...a%(f|
0000cce0  69 6c 65 25 29 3c 3d 30  8c 0d 51 0e 0a c8 8e 20  |ile%)<=0..Q.... |
0000ccf0  b9 20 ca 0d 51 18 18 c9  a4 76 5f 28 31 35 29 3d  |. ..Q....v_(15)=|
0000cd00  30 3a f2 76 61 6c 69 64  72 65 63 0d 51 22 05 cb  |0:.validrec.Q"..|
0000cd10  0d 51 2c 05 cc 0d 51 36  10 c8 8e 61 25 28 66 69  |.Q,...Q6...a%(fi|
0000cd20  6c 65 25 29 ca 0d 51 40  21 c9 31 2c 32 3a 61 25  |le%)..Q@!.1,2:a%|
0000cd30  28 66 69 6c 65 25 29 3d  30 3a f2 76 61 6c 69 64  |(file%)=0:.valid|
0000cd40  61 74 65 72 65 63 0d 51  4a 35 c9 33 3a f2 73 74  |aterec.QJ5.3:.st|
0000cd50  6f 70 28 37 2c 22 53 65  61 72 63 68 69 6e 67 20  |op(7,"Searching |
0000cd60  66 69 6c 65 20 22 2b a4  66 69 6c 65 6e 61 6d 65  |file "+.filename|
0000cd70  2c 72 69 24 2c 66 69 6c  65 25 29 0d 51 54 22 c9  |,ri$,file%).QT".|
0000cd80  34 3a f2 73 74 6f 70 28  39 2c a4 61 63 74 64 65  |4:.stop(9,.actde|
0000cd90  73 63 2c 72 69 24 2c 66  69 6c 65 25 29 0d 51 5e  |sc,ri$,file%).Q^|
0000cda0  25 c9 35 2c 36 3a f2 73  74 6f 70 28 31 33 2c a4  |%.5,6:.stop(13,.|
0000cdb0  61 63 74 64 65 73 63 2c  72 69 24 2c 66 69 6c 65  |actdesc,ri$,file|
0000cdc0  25 29 0d 51 68 23 c9 37  3a f2 73 74 6f 70 28 31  |%).Qh#.7:.stop(1|
0000cdd0  36 2c a4 61 63 74 64 65  73 63 2c 72 69 24 2c 66  |6,.actdesc,ri$,f|
0000cde0  69 6c 65 25 29 0d 51 72  23 c9 38 3a f2 73 74 6f  |ile%).Qr#.8:.sto|
0000cdf0  70 28 32 33 2c a4 61 63  74 64 65 73 63 2c 72 69  |p(23,.actdesc,ri|
0000ce00  24 2c 66 69 6c 65 25 29  0d 51 7c 23 c9 39 3a f2  |$,file%).Q|#.9:.|
0000ce10  73 74 6f 70 28 32 34 2c  a4 61 63 74 64 65 73 63  |stop(24,.actdesc|
0000ce20  2c 72 69 24 2c 66 69 6c  65 25 29 0d 51 86 24 c9  |,ri$,file%).Q.$.|
0000ce30  31 30 3a f2 73 74 6f 70  28 32 35 2c a4 61 63 74  |10:.stop(25,.act|
0000ce40  64 65 73 63 2c 72 69 24  2c 66 69 6c 65 25 29 0d  |desc,ri$,file%).|
0000ce50  51 90 05 cb 0d 51 9a 05  cd 0d 51 a4 0f f2 6e 65  |Q....Q....Q...ne|
0000ce60  77 64 65 6c 61 79 3a e1  0d 51 ae 04 0d 51 b8 21  |wdelay:..Q...Q.!|
0000ce70  dd f2 63 6c 6f 73 65 6f  6b 3a e7 63 6f 70 79 69  |..closeok:.copyi|
0000ce80  6e 67 25 3e 30 f2 62 75  7a 7a 31 3a e1 0d 51 c2  |ng%>0.buzz1:..Q.|
0000ce90  2d f2 73 74 6f 70 28 32  2c 22 22 2c 22 43 6c 6f  |-.stop(2,"","Clo|
0000cea0  73 65 20 66 69 6c 65 20  22 2b a4 66 69 6c 65 6e  |se file "+.filen|
0000ceb0  61 6d 65 2c 66 69 6c 65  25 29 0d 51 cc 05 e1 0d  |ame,file%).Q....|
0000cec0  51 d6 04 0d 51 e0 0e dd  a4 66 69 6c 65 6e 61 6d  |Q...Q....filenam|
0000ced0  65 0d 51 ea 14 c8 99 73  77 69 25 2c 73 74 61 74  |e.Q....swi%,stat|
0000cee0  5f 25 b8 47 25 0d 51 f4  15 3d c2 a4 6c 65 61 66  |_%.G%.Q..=..leaf|
0000cef0  28 24 73 64 25 29 2c 31  30 29 0d 51 fe 04 0d 52  |($sd%),10).Q...R|
0000cf00  08 1d dd a4 6f 66 69 6c  65 6e 61 6d 65 28 49 25  |....ofilename(I%|
0000cf10  29 3a e7 49 25 3c 30 3a  3d 22 22 0d 52 12 13 ea  |):.I%<0:="".R...|
0000cf20  66 25 2c 54 24 3a 66 25  3d 66 69 6c 65 25 0d 52  |f%,T$:f%=file%.R|
0000cf30  1c 2e f2 73 64 66 69 6c  65 28 49 25 29 3a 54 24  |...sdfile(I%):T$|
0000cf40  3d a4 66 69 6c 65 6e 61  6d 65 3a e7 66 25 3e 30  |=.filename:.f%>0|
0000cf50  3d f2 73 64 66 69 6c 65  28 66 25 29 0d 52 26 07  |=.sdfile(f%).R&.|
0000cf60  3d 54 24 0d 52 30 04 0d  52 3a 0c dd f2 73 77 70  |=T$.R0..R:...swp|
0000cf70  61 6e 65 0d 52 44 22 f2  66 6c 67 78 28 66 5f 70  |ane.RD".flgx(f_p|
0000cf80  61 6e 65 25 29 3a e7 a4  66 6c 67 28 66 5f 70 61  |ane%):..flg(f_pa|
0000cf90  6e 65 25 29 8c 0d 52 4e  16 f2 67 65 74 77 28 77  |ne%)..RN..getw(w|
0000cfa0  25 28 66 69 6c 65 25 2c  30 29 29 0d 52 58 39 f2  |%(file%,0)).RX9.|
0000cfb0  6f 70 65 6e 28 77 25 28  66 69 6c 65 25 2c 30 29  |open(w%(file%,0)|
0000cfc0  2c 78 30 25 2c 79 30 25  2c 78 31 25 2c 79 31 25  |,x0%,y0%,x1%,y1%|
0000cfd0  2c 73 63 78 25 2c 73 63  79 25 2c 62 68 61 6e 64  |,scx%,scy%,bhand|
0000cfe0  6c 65 25 29 0d 52 62 05  cc 0d 52 6c 16 f2 67 65  |le%).Rb...Rl..ge|
0000cff0  74 77 28 77 25 28 66 69  6c 65 25 2c 31 29 29 0d  |tw(w%(file%,1)).|
0000d000  52 76 41 f2 6f 70 65 6e  28 77 25 28 66 69 6c 65  |RvA.open(w%(file|
0000d010  25 2c 31 29 2c 78 30 25  2c 79 31 25 2d 70 61 6e  |%,1),x0%,y1%-pan|
0000d020  65 68 25 2c 78 30 25 2b  70 61 6e 65 77 25 2c 79  |eh%,x0%+panew%,y|
0000d030  31 25 2c 73 63 78 25 2c  73 63 79 25 2c 2d 32 29  |1%,scx%,scy%,-2)|
0000d040  0d 52 80 18 f2 63 6c 6f  73 65 77 28 77 25 28 66  |.R...closew(w%(f|
0000d050  69 6c 65 25 2c 31 29 29  0d 52 8a 05 cd 0d 52 94  |ile%,1)).R....R.|
0000d060  05 e1 0d 52 9e 04 0d 52  a8 25 dd f2 66 6f 72 63  |...R...R.%..forc|
0000d070  65 63 61 72 64 3a f2 66  6f 72 63 65 28 77 25 28  |ecard:.force(w%(|
0000d080  66 69 6c 65 25 2c 30 29  29 3a e1 0d 52 b2 04 0d  |file%,0)):..R...|
0000d090  52 bc 30 dd f2 66 6f 72  63 65 72 65 70 3a e7 77  |R.0..forcerep:.w|
0000d0a0  25 28 66 69 6c 65 25 2c  33 29 3e 30 f2 66 6f 72  |%(file%,3)>0.for|
0000d0b0  63 65 28 77 25 28 66 69  6c 65 25 2c 33 29 29 0d  |ce(w%(file%,3)).|
0000d0c0  52 c6 05 e1 0d 52 d0 04  0d 52 da 12 dd a4 64 65  |R....R...R....de|
0000d0d0  61 64 66 69 6c 65 28 66  25 29 0d 52 e4 1e ea 54  |adfile(f%).R...T|
0000d0e0  25 3a 54 25 3d a4 64 65  61 64 66 69 6c 65 31 28  |%:T%=.deadfile1(|
0000d0f0  66 25 29 3a e7 54 25 8c  0d 52 ee 09 f2 62 75 7a  |f%):.T%..R...buz|
0000d100  7a 0d 52 f8 05 cc 0d 53  02 26 f2 72 65 61 64 79  |z.R....S.&.ready|
0000d110  3a 54 25 3d a4 64 65 61  64 66 69 6c 65 31 28 66  |:T%=.deadfile1(f|
0000d120  25 29 3a e7 54 25 3a f2  62 75 7a 7a 0d 53 0c 05  |%):.T%:.buzz.S..|
0000d130  cd 0d 53 16 07 3d 54 25  0d 53 20 04 0d 53 2a 13  |..S..=T%.S ..S*.|
0000d140  dd a4 64 65 61 64 66 69  6c 65 31 28 66 25 29 0d  |..deadfile1(f%).|
0000d150  53 34 07 ea 49 25 0d 53  3e 0c e3 49 25 3d 30 b8  |S4..I%.S>..I%=0.|
0000d160  33 30 0d 53 48 0f e7 66  25 80 28 32 5e 49 25 29  |30.SH..f%.(2^I%)|
0000d170  8c 0d 53 52 09 c8 8e 49  25 ca 0d 53 5c 1f c9 30  |..SR...I%..S\..0|
0000d180  2c 31 2c 32 2c 33 3a e7  73 25 28 66 69 6c 65 25  |,1,2,3:.s%(file%|
0000d190  29 3d 49 25 2b 31 3a 3d  b9 0d 53 66 3b c9 34 3a  |)=I%+1:=..Sf;.4:|
0000d1a0  e7 61 25 28 66 69 6c 65  25 29 3c 33 80 61 25 28  |.a%(file%)<3.a%(|
0000d1b0  66 69 6c 65 25 29 3e 30  3a f2 72 65 61 64 79 3a  |file%)>0:.ready:|
0000d1c0  3d a3 3a 8b e7 61 25 28  66 69 6c 65 25 29 3c 3e  |=.:..a%(file%)<>|
0000d1d0  30 3a 3d b9 0d 53 70 14  c9 35 3a e7 a4 76 5f 28  |0:=..Sp..5:..v_(|
0000d1e0  31 35 29 3d 30 3a 3d b9  0d 53 7a 23 c9 36 3a e7  |15)=0:=..Sz#.6:.|
0000d1f0  61 25 28 66 69 6c 65 25  29 3c 3e 38 80 61 25 28  |a%(file%)<>8.a%(|
0000d200  66 69 6c 65 25 29 3e 32  3a 3d b9 0d 53 84 05 cb  |file%)>2:=..S...|
0000d210  0d 53 8e 05 cd 0d 53 98  05 ed 0d 53 a2 06 3d a3  |.S....S....S..=.|
0000d220  0d 53 ac 04 0d 53 b6 2a  dd a4 6d 61 63 6d 6f 64  |.S...S.*..macmod|
0000d230  65 3d 66 6c 25 28 66 69  6c 65 25 29 80 28 66 5f  |e=fl%(file%).(f_|
0000d240  6d 61 63 62 25 84 66 5f  6d 61 63 65 25 29 0d 53  |macb%.f_mace%).S|
0000d250  c0 04 0d 53 ca 1f dd a4  64 65 66 6f 6e 3d 28 a4  |...S....defon=(.|
0000d260  68 64 62 79 74 65 31 28  32 39 29 80 36 34 29 3e  |hdbyte1(29).64)>|
0000d270  30 0d 53 d4 04 0d 53 de  28 dd a4 68 64 62 79 74  |0.S...S.(..hdbyt|
0000d280  65 28 54 25 29 3a c8 99  73 77 69 25 2c 73 64 31  |e(T%):..swi%,sd1|
0000d290  33 5f 25 2c 54 25 2c 73  64 24 b8 47 25 0d 53 e8  |3_%,T%,sd$.G%.S.|
0000d2a0  25 dd a4 68 64 62 79 74  65 31 28 54 25 29 3a c8  |%..hdbyte1(T%):.|
0000d2b0  99 73 77 69 25 2c 73 64  31 33 5f 25 2c 54 25 b8  |.swi%,sd13_%,T%.|
0000d2c0  47 25 0d 53 f2 07 3d 47  25 0d 53 fc 04 0d 54 06  |G%.S..=G%.S...T.|
0000d2d0  0d dd f2 73 77 6d 61 63  72 6f 0d 54 10 3b e7 a4  |...swmacro.T.;..|
0000d2e0  6d 61 63 6d 6f 64 65 3a  f2 66 6c 67 30 28 66 5f  |macmode:.flg0(f_|
0000d2f0  6d 61 63 62 25 29 3a f2  66 6c 67 30 28 66 5f 6d  |macb%):.flg0(f_m|
0000d300  61 63 65 25 29 3a 8b f2  66 6c 67 31 28 66 5f 6d  |ace%):..flg1(f_m|
0000d310  61 63 65 25 29 0d 54 1a  0e f2 73 68 6f 77 6d 61  |ace%).T...showma|
0000d320  63 3a e1 0d 54 24 04 0d  54 2e 0f dd f2 73 77 64  |c:..T$..T....swd|
0000d330  65 66 61 75 6c 74 0d 54  38 0d e7 a4 64 65 66 6f  |efault.T8...defo|
0000d340  6e 20 8c 0d 54 42 1a c8  99 73 77 69 25 2c 64 65  |n ..TB...swi%,de|
0000d350  66 61 75 6c 74 5f 25 2c  22 4f 66 66 22 0d 54 4c  |fault_%,"Off".TL|
0000d360  05 cc 0d 54 56 16 c8 99  73 77 69 25 2c 64 65 66  |...TV...swi%,def|
0000d370  61 75 6c 74 5f 25 2c 30  0d 54 60 05 cd 0d 54 6a  |ault_%,0.T`...Tj|
0000d380  05 e1 0d 54 74 04 0d 54  7e 1a dd f2 71 62 73 63  |...Tt..T~...qbsc|
0000d390  61 6e 28 54 24 2c f8 20  51 25 2c f8 20 42 25 29  |an(T$,. Q%,. B%)|
0000d3a0  0d 54 88 2a ea 49 25 2c  54 25 3a 51 25 3d a3 3a  |.T.*.I%,T%:Q%=.:|
0000d3b0  42 25 3d 30 3a e3 49 25  3d 31 b8 a9 54 24 3a 54  |B%=0:.I%=1..T$:T|
0000d3c0  25 3d 97 c1 54 24 2c 49  25 29 0d 54 92 11 e7 54  |%=..T$,I%).T...T|
0000d3d0  25 3d 33 34 3a 51 25 3d  ac 51 25 0d 54 9c 09 e7  |%=34:Q%=.Q%.T...|
0000d3e0  ac 51 25 8c 0d 54 a6 22  e7 54 25 3d 97 22 28 22  |.Q%..T.".T%=."("|
0000d3f0  3a 42 25 2b 3d 31 3a 8b  e7 54 25 3d 97 22 29 22  |:B%+=1:..T%=.")"|
0000d400  3a 42 25 2d 3d 31 0d 54  b0 05 cd 0d 54 ba 07 ed  |:B%-=1.T....T...|
0000d410  3a e1 0d 54 c4 04 0d 54  ce 11 dd f2 70 74 72 65  |:..T...T....ptre|
0000d420  78 69 74 28 68 25 29 0d  54 d8 2d e7 73 62 66 69  |xit(h%).T.-.sbfi|
0000d430  6c 65 25 3e 3d 30 3a f2  73 75 62 64 69 73 70 3a  |le%>=0:.subdisp:|
0000d440  73 62 66 69 6c 65 25 3d  2d 31 3a f2 6e 65 77 64  |sbfile%=-1:.newd|
0000d450  65 6c 61 79 0d 54 e2 05  e1 0d 54 ec 04 0d 54 f6  |elay.T....T...T.|
0000d460  12 dd f2 70 74 72 65 6e  74 65 72 28 68 25 29 0d  |...ptrenter(h%).|
0000d470  55 00 18 f2 77 74 6f 66  28 68 25 29 3a e7 66 69  |U...wtof(h%):.fi|
0000d480  6c 65 25 3e 3d 30 8c 0d  55 0a 2d e7 77 69 6e 64  |le%>=0..U.-.wind|
0000d490  25 3d 32 3a 73 62 66 69  6c 65 25 3d 66 69 6c 65  |%=2:sbfile%=file|
0000d4a0  25 3a f2 73 75 62 64 69  73 70 3a f2 6e 65 77 64  |%:.subdisp:.newd|
0000d4b0  65 6c 61 79 0d 55 14 05  cd 0d 55 1e 05 e1 0d 55  |elay.U....U....U|
0000d4c0  28 04 0d 55 32 30 dd f2  73 75 62 64 69 73 70 31  |(..U20..subdisp1|
0000d4d0  3a ea 73 62 66 69 6c 65  25 3a 73 62 66 69 6c 65  |:.sbfile%:sbfile|
0000d4e0  25 3d 66 69 6c 65 25 3a  f2 73 75 62 64 69 73 70  |%=file%:.subdisp|
0000d4f0  3a e1 0d 55 3c 04 0d 55  46 1a dd f2 73 75 62 64  |:..U<..UF...subd|
0000d500  69 73 70 3a e7 73 62 66  69 6c 65 25 3c 30 3a e1  |isp:.sbfile%<0:.|
0000d510  0d 55 50 21 ea 54 24 2c  54 25 2c 43 25 3a e7 77  |.UP!.T$,T%,C%:.w|
0000d520  25 28 73 62 66 69 6c 65  25 2c 32 29 3c 3d 30 3a  |%(sbfile%,2)<=0:|
0000d530  e1 0d 55 5a 1b f2 72 65  61 64 70 6f 69 6e 74 65  |..UZ..readpointe|
0000d540  72 3a f2 77 74 6f 66 28  6d 68 25 29 0d 55 64 3a  |r:.wtof(mh%).Ud:|
0000d550  54 25 3d 26 46 30 30 30  30 30 30 3a e7 77 69 6e  |T%=&F000000:.win|
0000d560  64 25 3d 32 80 66 69 6c  65 25 3d 73 62 66 69 6c  |d%=2.file%=sbfil|
0000d570  65 25 3a 54 24 3d a4 73  75 62 64 65 73 63 32 28  |e%:T$=.subdesc2(|
0000d580  a4 69 74 6f 73 29 0d 55  6e 48 43 25 3d 26 33 30  |.itos).UnHC%=&30|
0000d590  30 30 30 30 30 3a e7 54  24 3d 22 22 43 25 3d 26  |00000:.T$=""C%=&|
0000d5a0  37 30 30 30 30 30 30 3a  f2 73 64 66 69 6c 65 28  |7000000:.sdfile(|
0000d5b0  73 62 66 69 6c 65 25 29  3a 54 24 3d a4 73 75 62  |sbfile%):T$=.sub|
0000d5c0  64 65 73 63 32 28 a4 76  5f 28 31 31 29 29 0d 55  |desc2(.v_(11)).U|
0000d5d0  78 1a f2 67 65 74 69 28  77 25 28 73 62 66 69 6c  |x..geti(w%(sbfil|
0000d5e0  65 25 2c 32 29 2c 30 29  0d 55 82 30 e7 28 71 25  |e%,2),0).U.0.(q%|
0000d5f0  21 32 34 80 54 25 29 3c  3e 43 25 3a f2 69 73 65  |!24.T%)<>C%:.ise|
0000d600  74 28 77 25 28 73 62 66  69 6c 65 25 2c 32 29 2c  |t(w%(sbfile%,2),|
0000d610  30 2c 54 25 2c 43 25 29  0d 55 8c 38 e7 54 24 3c  |0,T%,C%).U.8.T$<|
0000d620  3e 24 a4 69 61 28 77 25  28 73 62 66 69 6c 65 25  |>$.ia(w%(sbfile%|
0000d630  2c 32 29 2c 30 29 3a f2  73 65 74 69 28 77 25 28  |,2),0):.seti(w%(|
0000d640  73 62 66 69 6c 65 25 2c  32 29 2c 30 2c 54 24 29  |sbfile%,2),0,T$)|
0000d650  0d 55 96 05 e1 0d 55 a0  04 0d 55 aa 0a dd f2 73  |.U....U...U....s|
0000d660  75 62 73 0d 55 b4 26 e7  77 25 28 66 69 6c 65 25  |ubs.U.&.w%(file%|
0000d670  2c 32 29 3c 3d 30 3a f2  6d 61 6b 65 73 75 62 73  |,2)<=0:.makesubs|
0000d680  28 66 69 6c 65 25 29 3a  e1 0d 55 be 1d f2 66 72  |(file%):..U...fr|
0000d690  6f 6e 74 28 77 25 28 66  69 6c 65 25 2c 32 29 2c  |ont(w%(file%,2),|
0000d6a0  2d 31 2c 2d 31 29 0d 55  c8 05 e1 0d 55 d2 04 0d  |-1,-1).U....U...|
0000d6b0  55 dc 0d dd f2 6e 6f 74  65 70 61 64 0d 55 e6 27  |U....notepad.U.'|
0000d6c0  e7 77 25 28 66 69 6c 65  25 2c 36 29 3c 3d 30 3a  |.w%(file%,6)<=0:|
0000d6d0  f2 6d 61 6b 65 6e 6f 74  65 73 28 66 69 6c 65 25  |.makenotes(file%|
0000d6e0  29 3a e1 0d 55 f0 1d f2  66 72 6f 6e 74 28 77 25  |):..U...front(w%|
0000d6f0  28 66 69 6c 65 25 2c 36  29 2c 2d 31 2c 2d 31 29  |(file%,6),-1,-1)|
0000d700  0d 55 fa 05 e1 0d 56 04  04 0d 56 0e 0b dd f2 6d  |.U....V...V....m|
0000d710  61 63 72 6f 0d 56 18 27  e7 77 25 28 66 69 6c 65  |acro.V.'.w%(file|
0000d720  25 2c 37 29 3c 3d 30 3a  f2 6d 61 6b 65 6d 61 63  |%,7)<=0:.makemac|
0000d730  72 6f 28 66 69 6c 65 25  29 3a e1 0d 56 22 1d f2  |ro(file%):..V"..|
0000d740  66 72 6f 6e 74 28 77 25  28 66 69 6c 65 25 2c 37  |front(w%(file%,7|
0000d750  29 2c 2d 31 2c 2d 31 29  0d 56 2c 05 e1 0d 56 36  |),-1,-1).V,...V6|
0000d760  04 0d 56 40 0f dd f2 66  69 65 6c 64 6c 69 73 74  |..V@...fieldlist|
0000d770  0d 56 4a 27 e7 77 25 28  66 69 6c 65 25 2c 34 29  |.VJ'.w%(file%,4)|
0000d780  3c 3d 30 3a f2 6d 61 6b  65 66 6c 69 73 74 28 66  |<=0:.makeflist(f|
0000d790  69 6c 65 25 29 3a e1 0d  56 54 1d f2 66 72 6f 6e  |ile%):..VT..fron|
0000d7a0  74 28 77 25 28 66 69 6c  65 25 2c 34 29 2c 2d 31  |t(w%(file%,4),-1|
0000d7b0  2c 2d 31 29 0d 56 5e 05  e1 0d 56 68 04 0d 56 72  |,-1).V^...Vh..Vr|
0000d7c0  0b dd f2 69 6e 64 65 78  0d 56 7c 27 e7 77 25 28  |...index.V|'.w%(|
0000d7d0  66 69 6c 65 25 2c 35 29  3c 3d 30 3a f2 6d 61 6b  |file%,5)<=0:.mak|
0000d7e0  65 69 6c 69 73 74 28 66  69 6c 65 25 29 3a e1 0d  |eilist(file%):..|
0000d7f0  56 86 1d f2 66 72 6f 6e  74 28 77 25 28 66 69 6c  |V...front(w%(fil|
0000d800  65 25 2c 35 29 2c 2d 31  2c 2d 31 29 0d 56 90 05  |e%,5),-1,-1).V..|
0000d810  e1 0d 56 9a 04 0d 56 a4  3d dd f2 64 65 6c 69 63  |..V...V.=..delic|
0000d820  6f 6e 28 68 25 2c 69 25  29 3a 21 71 25 3d 68 25  |on(h%,i%):!q%=h%|
0000d830  3a 71 25 21 34 3d 69 25  3a c8 99 22 57 69 6d 70  |:q%!4=i%:.."Wimp|
0000d840  5f 44 65 6c 65 74 65 49  63 6f 6e 22 2c 2c 71 25  |_DeleteIcon",,q%|
0000d850  3a e1 0d 56 ae 04 0d 56  b8 32 dd f2 6c 6f 73 65  |:..V...V.2..lose|
0000d860  69 63 6f 6e 28 68 25 2c  69 25 29 3a f2 67 65 74  |icon(h%,i%):.get|
0000d870  69 28 68 25 2c 69 25 29  3a f2 64 65 6c 69 63 6f  |i(h%,i%):.delico|
0000d880  6e 28 68 25 2c 69 25 29  0d 56 c2 37 71 25 21 34  |n(h%,i%).V.7q%!4|
0000d890  3d 21 71 25 3a 71 25 21  38 3d 2d 31 45 39 3a 71  |=!q%:q%!8=-1E9:q|
0000d8a0  25 21 31 32 3d 2d 31 45  39 3a 71 25 21 31 36 3d  |%!12=-1E9:q%!16=|
0000d8b0  2d 31 45 39 3a 71 25 21  32 30 3d 2d 31 45 39 0d  |-1E9:q%!20=-1E9.|
0000d8c0  56 cc 1f c8 99 22 57 69  6d 70 5f 43 72 65 61 74  |V...."Wimp_Creat|
0000d8d0  65 49 63 6f 6e 22 2c 2c  71 25 2b 34 3a e1 0d 56  |eIcon",,q%+4:..V|
0000d8e0  d6 04 0d 56 e0 0c dd f2  63 61 72 64 64 72 0d 56  |...V....carddr.V|
0000d8f0  ea 19 f2 77 74 6f 66 28  6d 68 25 29 3a e7 66 69  |...wtof(mh%):.fi|
0000d900  6c 65 25 3e 3d 30 8c 0d  56 f4 15 e7 66 69 6c 65  |le%>=0..V...file|
0000d910  25 3d 6d 65 6e 75 66 69  6c 65 25 8c 0d 56 fe 0c  |%=menufile%..V..|
0000d920  c8 8e 77 69 6e 64 25 ca  0d 57 08 39 c9 32 3a 54  |..wind%..W.9.2:T|
0000d930  25 3d a4 69 74 6f 73 3a  e7 54 25 3e 30 80 54 25  |%=.itos:.T%>0.T%|
0000d940  3c 32 35 35 3a f2 73 75  62 62 79 74 65 28 54 25  |<255:.subbyte(T%|
0000d950  2c 2d 31 29 3a f2 76 61  6c 69 64 61 74 65 72 65  |,-1):.validatere|
0000d960  63 0d 57 12 05 cb 0d 57  1c 05 cc 0d 57 26 0c c8  |c.W....W....W&..|
0000d970  8e 77 69 6e 64 25 ca 0d  57 30 12 c9 30 2c 31 3a  |.wind%..W0..0,1:|
0000d980  f2 63 6f 70 79 63 61 72  64 0d 57 3a 05 cb 0d 57  |.copycard.W:...W|
0000d990  44 05 cd 0d 57 4e 05 cc  0d 57 58 0a c8 8e 6d 68  |D...WN...WX...mh|
0000d9a0  25 ca 0d 57 62 3e 7f 3a  f2 73 64 66 69 6c 65 28  |%..Wb>.:.sdfile(|
0000d9b0  6d 65 6e 75 66 69 6c 65  25 29 3a f2 73 61 76 65  |menufile%):.save|
0000d9c0  72 65 71 28 22 43 61 72  64 22 2c 26 46 46 46 2c  |req("Card",&FFF,|
0000d9d0  a4 77 64 2a a4 68 74 2c  31 2c 66 69 6c 65 25 29  |.wd*.ht,1,file%)|
0000d9e0  0d 57 6c 05 cb 0d 57 76  05 cd 0d 57 80 05 e1 0d  |.Wl...Wv...W....|
0000d9f0  57 8a 04 0d 57 94 0d dd  f2 63 61 72 64 64 72 31  |W...W....carddr1|
0000da00  0d 57 9e 2b 74 78 30 25  3d 21 71 25 3a 74 78 31  |.W.+tx0%=!q%:tx1|
0000da10  25 3d 71 25 21 38 3a 74  79 30 25 3d 71 25 21 34  |%=q%!8:ty0%=q%!4|
0000da20  3a 74 79 31 25 3d 71 25  21 31 32 0d 57 a8 34 e7  |:ty1%=q%!12.W.4.|
0000da30  94 28 74 78 30 25 2d 74  78 31 25 29 3c 31 30 80  |.(tx0%-tx1%)<10.|
0000da40  94 28 74 79 30 25 2d 74  79 31 25 29 3c 31 30 3a  |.(ty0%-ty1%)<10:|
0000da50  6d 62 25 3d 31 3a f2 73  65 6c 65 63 74 3a e1 0d  |mb%=1:.select:..|
0000da60  57 b2 3b f2 63 78 63 6f  6e 76 28 74 78 30 25 29  |W.;.cxconv(tx0%)|
0000da70  3a f2 63 78 63 6f 6e 76  28 74 78 31 25 29 3a f2  |:.cxconv(tx1%):.|
0000da80  63 79 63 6f 6e 76 28 74  79 30 25 29 3a f2 63 79  |cyconv(ty0%):.cy|
0000da90  63 6f 6e 76 28 74 79 31  25 29 0d 57 bc 1a e7 74  |conv(ty1%).W...t|
0000daa0  78 30 25 3e 74 78 31 25  3a c8 94 74 78 30 25 2c  |x0%>tx1%:..tx0%,|
0000dab0  74 78 31 25 0d 57 c6 1a  e7 74 79 30 25 3e 74 79  |tx1%.W...ty0%>ty|
0000dac0  31 25 3a c8 94 74 79 30  25 2c 74 79 31 25 0d 57  |1%:..ty0%,ty1%.W|
0000dad0  d0 3a f2 73 61 76 65 77  28 66 5f 63 64 24 2c 26  |.:.savew(f_cd$,&|
0000dae0  46 46 46 2c 32 2c 66 69  6c 65 25 2c 28 74 78 31  |FFF,2,file%,(tx1|
0000daf0  25 2d 74 78 30 25 2b 31  29 2a 28 74 79 31 25 2d  |%-tx0%+1)*(ty1%-|
0000db00  74 79 30 25 2b 31 29 29  0d 57 da 05 e1 0d 57 e4  |ty0%+1)).W....W.|
0000db10  04 0d 57 ee 11 dd f2 66  69 65 6c 64 64 72 3a ea  |..W....fielddr:.|
0000db20  66 25 0d 57 f8 19 f2 77  74 6f 66 28 6d 68 25 29  |f%.W...wtof(mh%)|
0000db30  3a e7 66 69 6c 65 25 3e  3d 30 8c 0d 58 02 0c c8  |:.file%>=0..X...|
0000db40  8e 77 69 6e 64 25 ca 0d  58 0c 20 c9 34 3a e7 66  |.wind%..X. .4:.f|
0000db50  69 6c 65 25 3d 74 61 72  67 65 74 25 3a f2 74 61  |ile%=target%:.ta|
0000db60  72 67 66 69 65 6c 64 0d  58 16 12 7f 3a e7 a4 65  |rgfield.X...:..e|
0000db70  6e 74 65 72 66 69 65 6c  64 0d 58 20 05 cb 0d 58  |nterfield.X ...X|
0000db80  2a 05 cc 0d 58 34 59 e7  ac a4 65 6e 74 65 72 66  |*...X4Y...enterf|
0000db90  69 65 6c 64 3a e7 6d 65  6e 75 66 69 65 6c 64 25  |ield:.menufield%|
0000dba0  3e 30 3a e7 6d 65 6e 75  66 69 6c 65 25 3d 73 6f  |>0:.menufile%=so|
0000dbb0  75 72 63 65 25 3a f2 73  61 76 65 72 65 71 28 22  |urce%:.savereq("|
0000dbc0  46 69 65 6c 64 22 2c 26  46 46 46 2c 32 35 35 2c  |Field",&FFF,255,|
0000dbd0  33 2c 6d 65 6e 75 66 69  6c 65 25 29 0d 58 3e 05  |3,menufile%).X>.|
0000dbe0  cd 0d 58 48 05 e1 0d 58  52 04 0d 58 5c 0c dd f2  |..XH...XR..X\...|
0000dbf0  6e 6f 74 65 64 72 0d 58  66 0e f2 77 74 6f 66 28  |notedr.Xf..wtof(|
0000dc00  6d 68 25 29 0d 58 70 35  e7 ac a4 65 6e 74 65 72  |mh%).Xp5...enter|
0000dc10  6e 6f 74 65 3a f2 73 61  76 65 72 65 71 28 22 4e  |note:.savereq("N|
0000dc20  6f 74 65 22 2c 26 46 46  46 2c 38 30 2c 34 2c 6d  |ote",&FFF,80,4,m|
0000dc30  65 6e 75 66 69 6c 65 25  29 0d 58 7a 05 e1 0d 58  |enufile%).Xz...X|
0000dc40  84 04 0d 58 8e 0c dd f2  73 75 62 73 64 72 0d 58  |...X....subsdr.X|
0000dc50  98 09 f4 20 3b 7b 7b 0d  58 a2 0a ea 54 25 2c 54  |... ;{{.X...T%,T|
0000dc60  24 0d 58 ac 23 f2 73 75  62 64 69 73 70 31 3a f2  |$.X.#.subdisp1:.|
0000dc70  77 74 6f 66 28 6d 68 25  29 3a e7 66 69 6c 65 25  |wtof(mh%):.file%|
0000dc80  3e 3d 30 8c 0d 58 b6 15  e7 66 69 6c 65 25 3d 6d  |>=0..X...file%=m|
0000dc90  65 6e 75 66 69 6c 65 25  8c 0d 58 c0 0c c8 8e 77  |enufile%..X....w|
0000dca0  69 6e 64 25 ca 0d 58 ca  1a c9 30 2c 31 3a f2 73  |ind%..X...0,1:.s|
0000dcb0  65 6c 73 75 62 28 6d 65  6e 75 73 75 62 25 29 0d  |elsub(menusub%).|
0000dcc0  58 d4 10 7f 3a e7 a4 65  6e 74 65 72 73 75 62 0d  |X...:..entersub.|
0000dcd0  58 de 05 cb 0d 58 e8 05  cd 0d 58 f2 05 cc 0d 58  |X....X....X....X|
0000dce0  fc 0a c8 8e 6d 68 25 ca  0d 59 06 11 7f 3a e7 ac  |....mh%..Y...:..|
0000dcf0  a4 65 6e 74 65 72 73 75  62 0d 59 10 05 cb 0d 59  |.entersub.Y....Y|
0000dd00  1a 05 cd 0d 59 24 05 e1  0d 59 2e 04 0d 59 38 10  |....Y$...Y...Y8.|
0000dd10  dd a4 65 6e 74 65 72 66  69 65 6c 64 0d 59 42 16  |..enterfield.YB.|
0000dd20  ea 57 25 2c 54 25 2c 54  24 2c 74 24 3a f7 8d 70  |.W%,T%,T$,t$:..p|
0000dd30  5a 5b 0d 59 4c 1a f5 3a  f2 72 65 61 64 68 28 57  |Z[.YL..:.readh(W|
0000dd40  25 29 3a e7 57 25 3c 3e  6d 68 25 8c 0d 59 56 1f  |%):.W%<>mh%..YV.|
0000dd50  e7 57 25 3c 3e 2d 31 3a  f5 3a f3 57 25 2c 54 25  |.W%<>-1:.:.W%,T%|
0000dd60  3a fd 57 25 3c 30 3a 57  25 3d 30 0d 59 60 05 cc  |:.W%<0:W%=0.Y`..|
0000dd70  0d 59 6a 19 f5 3a f3 57  25 2c 54 25 3a fd 57 25  |.Yj..:.W%,T%:.W%|
0000dd80  3d 6d 69 25 84 57 25 3c  30 0d 59 74 0c e7 57 25  |=mi%.W%<0.Yt..W%|
0000dd90  3d 6d 69 25 8c 0d 59 7e  09 c8 8e 54 25 ca 0d 59  |=mi%..Y~...T%..Y|
0000dda0  88 08 c9 31 2c 34 0d 59  92 39 f2 77 74 6f 66 28  |...1,4.Y.9.wtof(|
0000ddb0  6d 68 25 29 3a e7 66 69  6c 65 25 3c 30 3a e7 6d  |mh%):.file%<0:.m|
0000ddc0  68 25 3d 64 69 61 6c 6f  67 75 65 25 3a f2 73 64  |h%=dialogue%:.sd|
0000ddd0  66 69 6c 65 28 64 69 61  6c 66 69 6c 65 25 29 0d  |file(dialfile%).|
0000dde0  59 9c 16 f2 73 64 66 69  6c 65 28 6d 65 6e 75 66  |Y...sdfile(menuf|
0000ddf0  69 6c 65 25 29 0d 59 a6  36 f2 73 65 74 69 28 6d  |ile%).Y.6.seti(m|
0000de00  68 25 2c 6d 69 25 2c a4  61 64 64 66 69 65 6c 64  |h%,mi%,.addfield|
0000de10  28 24 a4 69 61 28 6d 68  25 2c 6d 69 25 29 2c 6d  |($.ia(mh%,mi%),m|
0000de20  65 6e 75 66 69 65 6c 64  25 29 29 0d 59 b0 4e c9  |enufield%)).Y.N.|
0000de30  36 2c 38 3a f2 73 64 66  69 6c 65 28 6d 65 6e 75  |6,8:.sdfile(menu|
0000de40  66 69 6c 65 25 29 3a f2  73 65 74 69 28 6d 68 25  |file%):.seti(mh%|
0000de50  2c 6d 69 25 2c a4 61 64  64 66 69 65 6c 64 28 24  |,mi%,.addfield($|
0000de60  a4 69 61 28 6d 68 25 2c  6d 69 25 29 2c 6d 65 6e  |.ia(mh%,mi%),men|
0000de70  75 66 69 65 6c 64 25 29  29 0d 59 ba 05 cb 0d 59  |ufield%)).Y....Y|
0000de80  c4 05 cd 0d 59 ce 06 3d  b9 0d 59 d8 05 cd 0d 59  |....Y..=..Y....Y|
0000de90  e2 09 fd 57 25 3c 30 0d  59 ec 06 3d a3 0d 59 f6  |...W%<0.Y..=..Y.|
0000dea0  04 0d 5a 00 0f dd a4 65  6e 74 65 72 6e 6f 74 65  |..Z....enternote|
0000deb0  0d 5a 0a 0a f4 20 3b 7b  7b 7b 0d 5a 14 10 ea 57  |.Z... ;{{{.Z...W|
0000dec0  25 2c 54 25 3a f7 8d 70  5a 5b 0d 5a 1e 1a f5 3a  |%,T%:..pZ[.Z...:|
0000ded0  f2 72 65 61 64 68 28 57  25 29 3a e7 57 25 3c 3e  |.readh(W%):.W%<>|
0000dee0  6d 68 25 8c 0d 5a 28 1f  e7 57 25 3c 3e 2d 31 3a  |mh%..Z(..W%<>-1:|
0000def0  f5 3a f3 57 25 2c 54 25  3a fd 57 25 3c 30 3a 57  |.:.W%,T%:.W%<0:W|
0000df00  25 3d 30 0d 5a 32 05 cc  0d 5a 3c 19 f5 3a f3 57  |%=0.Z2...Z<..:.W|
0000df10  25 2c 54 25 3a fd 57 25  3d 6d 69 25 84 57 25 3c  |%,T%:.W%=mi%.W%<|
0000df20  30 0d 5a 46 0c e7 57 25  3d 6d 69 25 8c 0d 5a 50  |0.ZF..W%=mi%..ZP|
0000df30  09 c8 8e 54 25 ca 0d 5a  5a 0e c9 31 2c 34 2c 36  |...T%..ZZ..1,4,6|
0000df40  2c 37 2c 38 0d 5a 64 34  e7 64 72 61 67 62 75 74  |,7,8.Zd4.dragbut|
0000df50  74 6f 6e 25 3d 36 34 80  28 a4 74 68 69 73 66 69  |ton%=64.(.thisfi|
0000df60  6c 65 28 6d 68 25 2c 6d  65 6e 75 66 69 6c 65 25  |le(mh%,menufile%|
0000df70  29 84 54 25 3d 36 29 8c  0d 5a 6e 5a e7 6d 69 25  |).T%=6)..ZnZ.mi%|
0000df80  3c 3e 6d 65 6e 75 66 69  65 6c 64 25 84 6d 68 25  |<>menufield%.mh%|
0000df90  3c 3e 77 25 28 6d 65 6e  75 66 69 6c 65 25 2c 36  |<>w%(menufile%,6|
0000dfa0  29 f2 73 65 74 69 28 6d  68 25 2c 6d 69 25 2c 24  |).seti(mh%,mi%,$|
0000dfb0  a4 69 61 28 6d 68 25 2c  6d 69 25 29 2b 22 27 22  |.ia(mh%,mi%)+"'"|
0000dfc0  2b bd 28 6d 65 6e 75 66  69 65 6c 64 25 2b 36 35  |+.(menufield%+65|
0000dfd0  29 29 0d 5a 78 05 cc 0d  5a 82 2e f2 73 65 74 69  |)).Zx...Z...seti|
0000dfe0  28 6d 68 25 2c 6d 69 25  2c a4 6e 6f 74 65 28 6d  |(mh%,mi%,.note(m|
0000dff0  65 6e 75 66 69 6c 65 25  2c 6d 65 6e 75 66 69 65  |enufile%,menufie|
0000e000  6c 64 25 29 29 0d 5a 8c  05 cd 0d 5a 96 05 cb 0d  |ld%)).Z....Z....|
0000e010  5a a0 05 cd 0d 5a aa 06  3d b9 0d 5a b4 05 cd 0d  |Z....Z..=..Z....|
0000e020  5a be 09 fd 57 25 3c 30  0d 5a c8 06 3d a3 0d 5a  |Z...W%<0.Z..=..Z|
0000e030  d2 04 0d 5a dc 0e dd a4  65 6e 74 65 72 73 75 62  |...Z....entersub|
0000e040  0d 5a e6 10 ea 57 25 2c  54 25 3a f7 8d 70 5a 5b  |.Z...W%,T%:..pZ[|
0000e050  0d 5a f0 1a f5 3a f2 72  65 61 64 68 28 57 25 29  |.Z...:.readh(W%)|
0000e060  3a e7 57 25 3c 3e 6d 68  25 8c 0d 5a fa 1f e7 57  |:.W%<>mh%..Z...W|
0000e070  25 3c 3e 2d 31 3a f5 3a  f3 57 25 2c 54 25 3a fd  |%<>-1:.:.W%,T%:.|
0000e080  57 25 3c 30 3a 57 25 3d  30 0d 5b 04 05 cc 0d 5b  |W%<0:W%=0.[....[|
0000e090  0e 19 f5 3a f3 57 25 2c  54 25 3a fd 57 25 3d 6d  |...:.W%,T%:.W%=m|
0000e0a0  69 25 84 57 25 3c 30 0d  5b 18 0c e7 57 25 3d 6d  |i%.W%<0.[...W%=m|
0000e0b0  69 25 8c 0d 5b 22 09 c8  8e 54 25 ca 0d 5b 2c 06  |i%..["...T%..[,.|
0000e0c0  c9 31 0d 5b 36 60 e7 a4  74 68 69 73 66 69 6c 65  |.1.[6`..thisfile|
0000e0d0  28 6d 68 25 2c 6d 65 6e  75 66 69 6c 65 25 29 f2  |(mh%,menufile%).|
0000e0e0  73 64 66 69 6c 65 28 6d  65 6e 75 66 69 6c 65 25  |sdfile(menufile%|
0000e0f0  29 3a f2 73 65 74 69 28  6d 68 25 2c 6d 69 25 2c  |):.seti(mh%,mi%,|
0000e100  24 a4 69 61 28 6d 68 25  2c 6d 69 25 29 2b a4 73  |$.ia(mh%,mi%)+.s|
0000e110  75 62 64 65 73 63 34 28  6d 65 6e 75 73 75 62 25  |ubdesc4(menusub%|
0000e120  29 29 0d 5b 40 17 c9 32  3a f2 73 66 73 75 62 28  |)).[@..2:.sfsub(|
0000e130  6d 65 6e 75 73 75 62 25  29 0d 5b 4a 17 c9 33 3a  |menusub%).[J..3:|
0000e140  f2 73 74 73 75 62 28 6d  65 6e 75 73 75 62 25 29  |.stsub(menusub%)|
0000e150  0d 5b 54 4a c9 36 3a f2  73 64 66 69 6c 65 28 6d  |.[TJ.6:.sdfile(m|
0000e160  65 6e 75 66 69 6c 65 25  29 3a f2 73 65 74 69 28  |enufile%):.seti(|
0000e170  6d 68 25 2c 6d 69 25 2c  24 a4 69 61 28 6d 68 25  |mh%,mi%,$.ia(mh%|
0000e180  2c 6d 69 25 29 2b a4 73  75 62 64 65 73 63 34 28  |,mi%)+.subdesc4(|
0000e190  6d 65 6e 75 73 75 62 25  29 29 0d 5b 5e 05 cb 0d  |menusub%)).[^...|
0000e1a0  5b 68 05 cd 0d 5b 72 06  3d b9 0d 5b 7c 05 cd 0d  |[h...[r.=..[|...|
0000e1b0  5b 86 09 fd 57 25 3c 30  0d 5b 90 06 3d a3 0d 5b  |[...W%<0.[..=..[|
0000e1c0  9a 21 dc 77 5f 65 78 70  72 25 2c 31 37 2c 31 2c  |.!.w_expr%,17,1,|
0000e1d0  32 30 2c 32 2c 32 31 2c  33 2c 2d 31 2c 2d 31 0d  |20,2,21,3,-1,-1.|
0000e1e0  5b a4 1a dc 77 5f 74 72  61 6e 73 65 78 70 25 2c  |[...w_transexp%,|
0000e1f0  31 2c 38 2c 2d 31 2c 2d  31 0d 5b ae a4 dc 22 77  |1,8,-1,-1.[..."w|
0000e200  25 28 66 69 6c 65 25 2c  37 29 22 2c 30 2c 31 2c  |%(file%,7)",0,1,|
0000e210  31 2c 31 2c 32 2c 31 2c  33 2c 31 2c 34 2c 31 2c  |1,1,2,1,3,1,4,1,|
0000e220  35 2c 31 2c 36 2c 31 2c  37 2c 31 2c 38 2c 31 2c  |5,1,6,1,7,1,8,1,|
0000e230  39 2c 31 2c 31 30 2c 31  2c 31 31 2c 31 2c 31 32  |9,1,10,1,11,1,12|
0000e240  2c 31 2c 31 33 2c 31 2c  31 34 2c 31 2c 31 35 2c  |,1,13,1,14,1,15,|
0000e250  31 2c 31 36 2c 31 2c 31  37 2c 31 2c 31 38 2c 31  |1,16,1,17,1,18,1|
0000e260  2c 31 39 2c 31 2c 32 30  2c 31 2c 32 31 2c 31 2c  |,19,1,20,1,21,1,|
0000e270  32 32 2c 31 2c 32 33 2c  31 2c 32 34 2c 31 2c 32  |22,1,23,1,24,1,2|
0000e280  35 2c 31 2c 32 36 2c 31  2c 32 37 2c 31 2c 32 38  |5,1,26,1,27,1,28|
0000e290  2c 31 2c 32 39 2c 31 2c  2d 31 2c 2d 31 0d 5b b8  |,1,29,1,-1,-1.[.|
0000e2a0  6d dc 22 77 25 28 66 69  6c 65 25 2c 36 29 22 2c  |m."w%(file%,6)",|
0000e2b0  30 2c 31 2c 31 2c 31 2c  32 2c 31 2c 33 2c 31 2c  |0,1,1,1,2,1,3,1,|
0000e2c0  34 2c 31 2c 35 2c 31 2c  36 2c 31 2c 37 2c 31 2c  |4,1,5,1,6,1,7,1,|
0000e2d0  38 2c 31 2c 39 2c 31 2c  31 30 2c 31 2c 31 31 2c  |8,1,9,1,10,1,11,|
0000e2e0  31 2c 31 32 2c 31 2c 31  33 2c 31 2c 31 34 2c 31  |1,12,1,13,1,14,1|
0000e2f0  2c 31 35 2c 31 2c 31 36  2c 31 2c 31 37 2c 31 2c  |,15,1,16,1,17,1,|
0000e300  31 38 2c 31 2c 2d 31 2c  2d 31 0d 5b c2 07 dc 2d  |18,1,-1,-1.[...-|
0000e310  31 0d 5b cc 04 0d 5b d6  0e dd f2 6e 65 77 64 65  |1.[...[....newde|
0000e320  6c 61 79 0d 5b e0 12 ea  49 25 3a 64 65 6c 61 79  |lay.[...I%:delay|
0000e330  25 3d 32 45 39 0d 5b ea  18 e7 70 72 6f 63 65 73  |%=2E9.[...proces|
0000e340  73 25 3e 30 3a 64 65 6c  61 79 25 3d 30 0d 5b f4  |s%>0:delay%=0.[.|
0000e350  23 e3 49 25 3d 30 b8 6d  61 78 66 25 3a e7 61 25  |#.I%=0.maxf%:.a%|
0000e360  28 49 25 29 3c 3e 30 3a  64 65 6c 61 79 25 3d 30  |(I%)<>0:delay%=0|
0000e370  0d 5b fe 25 ed 3a e7 73  62 66 69 6c 65 25 3e 3d  |.[.%.:.sbfile%>=|
0000e380  30 84 63 6f 70 79 69 6e  67 25 3e 30 3a 64 65 6c  |0.copying%>0:del|
0000e390  61 79 25 3d 30 0d 5c 08  05 e1 0d 5c 12 04 0d 5c  |ay%=0.\....\...\|
0000e3a0  1c 0e dd f2 73 61 76 65  64 61 74 61 0d 5c 26 16  |....savedata.\&.|
0000e3b0  e7 71 25 21 31 32 3c 3e  73 61 76 65 72 65 66 25  |.q%!12<>saveref%|
0000e3c0  3a e1 0d 5c 30 22 66 69  6c 65 24 3d a4 7a 74 73  |:..\0"file$=.zts|
0000e3d0  28 71 25 2b 34 34 29 3a  f2 73 61 76 65 64 61 74  |(q%+44):.savedat|
0000e3e0  61 31 3a e1 0d 5c 3a 04  0d 5c 44 20 dd f2 73 61  |a1:..\:..\D ..sa|
0000e3f0  76 65 64 61 74 61 31 3a  f2 63 6c 6f 73 65 77 28  |vedata1:.closew(|
0000e400  77 5f 73 61 76 65 25 29  0d 5c 4e 24 e7 73 61 76  |w_save%).\N$.sav|
0000e410  65 66 69 6c 65 25 3e 3d  30 3a f2 73 64 66 69 6c  |efile%>=0:.sdfil|
0000e420  65 28 73 61 76 65 66 69  6c 65 25 29 0d 5c 58 2c  |e(savefile%).\X,|
0000e430  6f 75 74 66 69 6c 65 25  3d 30 3a 6f 75 74 66 69  |outfile%=0:outfi|
0000e440  6c 65 25 3d ae 66 69 6c  65 24 3a e7 6f 75 74 66  |le%=.file$:.outf|
0000e450  69 6c 65 25 3d 30 3a e1  0d 5c 62 06 ea 85 0d 5c  |ile%=0:..\b....\|
0000e460  6c 1d ee 85 ea 3a f7 85  3a d9 23 6f 75 74 66 69  |l....:..:.#outfi|
0000e470  6c 65 25 3a f2 65 72 72  28 30 29 0d 5c 76 12 c8  |le%:.err(0).\v..|
0000e480  8e 73 61 76 65 72 65 61  73 6f 6e 25 ca 0d 5c 80  |.savereason%..\.|
0000e490  1e c9 31 3a f2 73 61 76  65 63 61 72 64 3a f2 6e  |..1:.savecard:.n|
0000e4a0  65 77 66 6e 28 66 5f 63  64 24 29 0d 5c 8a 1f c9  |ewfn(f_cd$).\...|
0000e4b0  32 3a f2 73 61 76 65 63  61 72 64 31 3a f2 6e 65  |2:.savecard1:.ne|
0000e4c0  77 66 6e 28 66 5f 63 64  24 29 0d 5c 94 11 c9 33  |wfn(f_cd$).\...3|
0000e4d0  3a f2 73 61 76 65 66 69  65 6c 64 0d 5c 9e 10 c9  |:.savefield.\...|
0000e4e0  34 3a f2 73 61 76 65 6e  6f 74 65 0d 5c a8 1f c9  |4:.savenote.\...|
0000e4f0  35 3a f2 73 61 76 65 6e  6f 74 65 73 3a f2 6e 65  |5:.savenotes:.ne|
0000e500  77 66 6e 28 66 5f 6e 70  24 29 0d 5c b2 1f c9 36  |wfn(f_np$).\...6|
0000e510  3a f2 73 61 76 65 6d 61  63 72 6f 3a f2 6e 65 77  |:.savemacro:.new|
0000e520  66 6e 28 66 5f 6d 63 24  29 0d 5c bc 06 c9 37 0d  |fn(f_mc$).\...7.|
0000e530  5c c6 11 c9 38 3a f2 73  61 76 65 73 65 74 75 70  |\...8:.savesetup|
0000e540  0d 5c d0 06 c9 39 0d 5c  da 13 c9 32 30 30 3a f2  |.\...9.\...200:.|
0000e550  73 61 76 65 73 65 74 75  70 0d 5c e4 05 cb 0d 5c  |savesetup.\....\|
0000e560  ee 11 f7 85 3a d9 23 6f  75 74 66 69 6c 65 25 0d  |....:.#outfile%.|
0000e570  5c f8 2f ff 22 73 65 74  74 79 70 65 20 22 2b 66  |\./."settype "+f|
0000e580  69 6c 65 24 2b 22 20 22  2b c3 7e 73 61 76 65 74  |ile$+" "+.~savet|
0000e590  79 70 65 25 3a f2 6c 6f  61 64 6d 65 73 73 0d 5d  |ype%:.loadmess.]|
0000e5a0  02 27 73 61 76 65 72 65  61 73 6f 6e 25 3d 2d 31  |.'savereason%=-1|
0000e5b0  3a 73 61 76 65 66 69 6c  65 25 3d 2d 31 3a f2 6e  |:savefile%=-1:.n|
0000e5c0  6f 6d 65 6e 75 0d 5d 0c  05 e1 0d 5d 16 04 0d 5d  |omenu.]....]...]|
0000e5d0  20 2e dd f2 73 61 76 65  63 61 72 64 3a e7 a4 64  | ...savecard:..d|
0000e5e0  65 61 64 66 69 6c 65 28  25 31 31 31 31 31 31 31  |eadfile(%1111111|
0000e5f0  31 30 31 31 31 31 31 31  31 29 3a e1 0d 5d 2a 27  |101111111):..]*'|
0000e600  ea 49 25 3a e3 49 25 3d  31 b8 a4 68 74 3a c8 99  |.I%:.I%=1..ht:..|
0000e610  73 77 69 25 2c 67 6c 69  6e 65 5f 25 2c 49 25 2c  |swi%,gline_%,I%,|
0000e620  73 64 24 0d 5d 34 15 f2  64 70 72 69 6e 74 28 24  |sd$.]4..dprint($|
0000e630  73 64 25 29 3a ed 3a e1  0d 5d 3e 04 0d 5d 48 2f  |sd%):.:..]>..]H/|
0000e640  dd f2 73 61 76 65 63 61  72 64 31 3a e7 a4 64 65  |..savecard1:..de|
0000e650  61 64 66 69 6c 65 28 25  31 31 31 31 31 31 31 31  |adfile(%11111111|
0000e660  30 31 31 31 31 31 31 31  29 3a e1 0d 5d 52 2b ea  |01111111):..]R+.|
0000e670  49 25 3a e3 49 25 3d 74  79 30 25 b8 74 79 31 25  |I%:.I%=ty0%.ty1%|
0000e680  3a c8 99 73 77 69 25 2c  67 6c 69 6e 65 5f 25 2c  |:..swi%,gline_%,|
0000e690  49 25 2c 73 64 24 0d 5d  5c 28 f2 64 70 72 69 6e  |I%,sd$.]\(.dprin|
0000e6a0  74 28 c1 24 73 64 25 2c  74 78 30 25 2c 74 78 31  |t(.$sd%,tx0%,tx1|
0000e6b0  25 2d 74 78 30 25 2b 31  29 29 3a ed 3a e1 0d 5d  |%-tx0%+1)):.:..]|
0000e6c0  66 04 0d 5d 70 32 dd f2  73 61 76 65 66 69 65 6c  |f..]p2..savefiel|
0000e6d0  64 3a f2 64 70 72 69 6e  74 28 a4 73 28 a4 67 66  |d:.dprint(.s(.gf|
0000e6e0  69 65 6c 64 28 6d 65 6e  75 66 69 65 6c 64 25 29  |ield(menufield%)|
0000e6f0  29 29 3a e1 0d 5d 7a 04  0d 5d 84 35 dd f2 73 61  |)):..]z..].5..sa|
0000e700  76 65 6e 6f 74 65 3a f2  64 70 72 69 6e 74 28 a4  |venote:.dprint(.|
0000e710  73 28 a4 6e 6f 74 65 28  66 69 6c 65 25 2c 6d 65  |s(.note(file%,me|
0000e720  6e 75 66 69 65 6c 64 25  29 29 29 3a e1 0d 5d 8e  |nufield%))):..].|
0000e730  04 0d 5d 98 0f dd f2 73  61 76 65 6e 6f 74 65 73  |..]....savenotes|
0000e740  0d 5d a2 31 ea 49 25 3a  e3 49 25 3d 30 b8 31 38  |.].1.I%:.I%=0.18|
0000e750  3a f2 64 70 72 69 6e 74  28 a4 73 28 a4 6e 6f 74  |:.dprint(.s(.not|
0000e760  65 28 66 69 6c 65 25 2c  49 25 29 29 29 3a ed 3a  |e(file%,I%))):.:|
0000e770  e1 0d 5d ac 04 0d 5d b6  0f dd f2 73 61 76 65 6d  |..]...]....savem|
0000e780  61 63 72 6f 0d 5d c0 32  ea 49 25 3a e3 49 25 3d  |acro.].2.I%:.I%=|
0000e790  30 b8 32 39 3a f2 64 70  72 69 6e 74 28 a4 73 28  |0.29:.dprint(.s(|
0000e7a0  a4 6d 61 63 6c 6e 28 66  69 6c 65 25 2c 49 25 29  |.macln(file%,I%)|
0000e7b0  29 29 3a ed 3a e1 0d 5d  ca 04 0d 5d d4 0a dd a4  |)):.:..]...]....|
0000e7c0  69 74 6f 73 0d 5d de 1b  e7 6d 69 25 3e 34 80 6d  |itos.]...mi%>4.m|
0000e7d0  69 25 3c 32 39 3a 3d 6d  69 25 2d 34 2b 33 32 0d  |i%<29:=mi%-4+32.|
0000e7e0  5d e8 1a e7 6d 69 25 3e  32 38 80 6d 69 25 3c 35  |]...mi%>28.mi%<5|
0000e7f0  33 3a 3d 6d 69 25 2d 32  38 0d 5d f2 0d e7 6d 69  |3:=mi%-28.]...mi|
0000e800  25 3d 31 3a 3d 30 0d 5d  fc 1e e7 6d 69 25 3e 35  |%=1:=0.]...mi%>5|
0000e810  32 80 6d 69 25 3c 36 33  3a 3d 6d 69 25 2d 35 33  |2.mi%<63:=mi%-53|
0000e820  2b 32 35 36 0d 5e 06 07  3d 2d 31 0d 5e 10 04 0d  |+256.^..=-1.^...|
0000e830  5e 1a 39 dd a4 6d 6f 75  73 65 66 3a ea 58 25 2c  |^.9..mousef:.X%,|
0000e840  59 25 3a 58 25 3d 6d 78  25 3a 59 25 3d 6d 79 25  |Y%:X%=mx%:Y%=my%|
0000e850  3a f2 63 79 63 6f 6e 76  28 59 25 29 3a f2 63 78  |:.cyconv(Y%):.cx|
0000e860  63 6f 6e 76 28 58 25 29  0d 5e 24 1c ea 85 3a ee  |conv(X%).^$...:.|
0000e870  85 ea 3a f2 73 64 66 69  6c 65 28 66 69 6c 65 25  |..:.sdfile(file%|
0000e880  29 3a 3d 30 0d 5e 2e 1e  c8 99 73 77 69 25 2c 73  |):=0.^....swi%,s|
0000e890  64 35 32 5f 25 2c 58 25  2c 59 25 2c 73 64 24 b8  |d52_%,X%,Y%,sd$.|
0000e8a0  47 25 0d 5e 38 16 f2 73  64 66 69 6c 65 28 66 69  |G%.^8..sdfile(fi|
0000e8b0  6c 65 25 29 3a 3d 47 25  0d 5e 42 04 0d 5e 4c 24  |le%):=G%.^B..^L$|
0000e8c0  dd f2 64 72 61 67 66 69  65 6c 64 3a f2 66 69 65  |..dragfield:.fie|
0000e8d0  6c 64 73 7a 28 6d 65 6e  75 66 69 65 6c 64 25 29  |ldsz(menufield%)|
0000e8e0  0d 5e 56 3f 21 71 25 3d  77 25 28 66 69 6c 65 25  |.^V?!q%=w%(file%|
0000e8f0  2c 30 29 3a 71 25 21 38  3d 62 78 25 2b 74 78 30  |,0):q%!8=bx%+tx0|
0000e900  25 3a 71 25 21 31 32 3d  62 79 25 2b 74 79 30 25  |%:q%!12=by%+ty0%|
0000e910  3a 71 25 21 31 36 3d 62  78 25 2b 74 78 31 25 0d  |:q%!16=bx%+tx1%.|
0000e920  5e 60 32 71 25 21 32 30  3d 62 79 25 2b 74 79 31  |^`2q%!20=by%+ty1|
0000e930  25 3a 71 25 21 32 34 3d  30 3a 71 25 21 32 38 3d  |%:q%!24=0:q%!28=|
0000e940  30 3a 71 25 21 34 3d 35  3a f2 64 72 61 67 35 3a  |0:q%!4=5:.drag5:|
0000e950  e1 0d 5e 6a 04 0d 5e 74  14 dd f2 64 72 61 67 66  |..^j..^t...dragf|
0000e960  69 65 6c 64 31 3a ea 59  25 0d 5e 7e 42 f2 67 65  |ield1:.Y%.^~B.ge|
0000e970  74 77 28 77 25 28 66 69  6c 65 25 2c 34 29 29 3a  |tw(w%(file%,4)):|
0000e980  59 25 3d 62 79 25 2d 6d  65 6e 75 66 69 65 6c 64  |Y%=by%-menufield|
0000e990  25 2a 6c 69 6e 65 67 61  70 25 2d 6d 61 72 67 69  |%*linegap%-margi|
0000e9a0  6e 25 2b 6c 69 6e 65 67  61 70 25 0d 5e 88 47 71  |n%+linegap%.^.Gq|
0000e9b0  25 21 38 3d 62 78 25 2b  6d 61 72 67 69 6e 25 3a  |%!8=bx%+margin%:|
0000e9c0  21 71 25 3d 77 25 28 66  69 6c 65 25 2c 34 29 3a  |!q%=w%(file%,4):|
0000e9d0  71 25 21 31 32 3d 59 25  2d 33 32 3a 71 25 21 31  |q%!12=Y%-32:q%!1|
0000e9e0  36 3d 62 78 25 2b 65 78  31 25 2d 6d 61 72 67 69  |6=bx%+ex1%-margi|
0000e9f0  6e 25 0d 5e 92 2c 71 25  21 32 30 3d 59 25 3a 71  |n%.^.,q%!20=Y%:q|
0000ea00  25 21 32 34 3d 30 3a 71  25 21 32 38 3d 30 3a 71  |%!24=0:q%!28=0:q|
0000ea10  25 21 34 3d 35 3a f2 64  72 61 67 35 3a e1 0d 5e  |%!4=5:.drag5:..^|
0000ea20  9c 04 0d 5e a6 1b dd f2  64 72 61 67 63 61 72 64  |...^....dragcard|
0000ea30  3a e7 a4 64 69 61 6c 6f  67 75 65 3a e1 0d 5e b0  |:..dialogue:..^.|
0000ea40  1e 21 71 25 3d 77 25 28  66 69 6c 65 25 2c 30 29  |.!q%=w%(file%,0)|
0000ea50  3a f2 67 65 74 77 28 21  71 25 29 0d 5e ba 2a 71  |:.getw(!q%).^.*q|
0000ea60  25 21 38 3d 6d 78 25 3a  71 25 21 31 32 3d 6d 79  |%!8=mx%:q%!12=my|
0000ea70  25 3a 71 25 21 31 36 3d  6d 78 25 3a 71 25 21 32  |%:q%!16=mx%:q%!2|
0000ea80  30 3d 6d 79 25 0d 5e c4  3e 71 25 21 32 34 3d 62  |0=my%.^.>q%!24=b|
0000ea90  78 25 2b 65 78 30 25 2b  6d 61 72 67 69 6e 25 3a  |x%+ex0%+margin%:|
0000eaa0  71 25 21 32 38 3d 62 79  25 2b 65 79 31 25 2d 6d  |q%!28=by%+ey1%-m|
0000eab0  61 72 67 69 6e 25 2d a4  68 74 2a 6c 69 6e 65 67  |argin%-.ht*lineg|
0000eac0  61 70 25 0d 5e ce 21 71  25 21 33 32 3d 62 78 25  |ap%.^.!q%!32=bx%|
0000ead0  2b 65 78 30 25 2b 6d 61  72 67 69 6e 25 2b a4 77  |+ex0%+margin%+.w|
0000eae0  64 2a 31 36 0d 5e d8 36  71 25 21 33 36 3d 62 79  |d*16.^.6q%!36=by|
0000eaf0  25 2b 65 79 31 25 2d 6d  61 72 67 69 6e 25 3a 71  |%+ey1%-margin%:q|
0000eb00  25 21 34 3d 36 3a c8 99  22 57 69 6d 70 5f 44 72  |%!4=6:.."Wimp_Dr|
0000eb10  61 67 42 6f 78 22 2c 2c  71 25 0d 5e e2 05 e1 0d  |agBox",,q%.^....|
0000eb20  5e ec 04 0d 5e f6 1f dd  f2 73 65 6c 73 75 62 28  |^...^....selsub(|
0000eb30  73 25 29 3a e7 73 25 3e  32 35 35 84 73 25 3c 30  |s%):.s%>255.s%<0|
0000eb40  3a e1 0d 5f 00 1e e7 73  25 3d a4 76 5f 28 31 31  |:.._...s%=.v_(11|
0000eb50  29 80 73 25 28 66 69 6c  65 25 29 3c 3e 31 3a e1  |).s%(file%)<>1:.|
0000eb60  0d 5f 0a 1e f2 7a 66 6f  75 6e 64 3a c8 99 73 77  |._...zfound:..sw|
0000eb70  69 25 2c 73 75 62 73 65  74 5f 25 2c 73 25 0d 5f  |i%,subset_%,s%._|
0000eb80  14 1a f2 72 65 76 61 6c  69 64 61 74 65 3a f2 73  |...revalidate:.s|
0000eb90  68 6f 77 73 75 62 3a e1  0d 5f 1e 04 0d 5f 28 2f  |howsub:.._..._(/|
0000eba0  dd f2 63 78 63 6f 6e 76  28 f8 20 58 25 29 3a f2  |..cxconv(. X%):.|
0000ebb0  78 63 6f 6e 76 28 58 25  2c a4 77 64 2c 77 25 28  |xconv(X%,.wd,w%(|
0000ebc0  66 69 6c 65 25 2c 30 29  29 3a e1 0d 5f 32 2f dd  |file%,0)):.._2/.|
0000ebd0  f2 63 79 63 6f 6e 76 28  f8 20 59 25 29 3a f2 79  |.cyconv(. Y%):.y|
0000ebe0  63 6f 6e 76 28 59 25 2c  a4 68 74 2c 77 25 28 66  |conv(Y%,.ht,w%(f|
0000ebf0  69 6c 65 25 2c 30 29 29  3a e1 0d 5f 3c 04 0d 5f  |ile%,0)):.._<.._|
0000ec00  46 21 dd f2 79 63 6f 6e  76 28 f8 20 59 25 2c 54  |F!..yconv(. Y%,T|
0000ec10  25 2c 68 25 29 3a f2 67  65 74 77 28 68 25 29 0d  |%,h%):.getw(h%).|
0000ec20  5f 50 38 59 25 3d 28 62  79 25 2d 59 25 2d 6d 61  |_P8Y%=(by%-Y%-ma|
0000ec30  72 67 69 6e 25 29 81 6c  69 6e 65 67 61 70 25 2b  |rgin%).linegap%+|
0000ec40  31 3a e7 59 25 3c 31 59  25 3d 31 8b e7 59 25 3e  |1:.Y%<1Y%=1..Y%>|
0000ec50  54 25 59 25 3d 54 25 0d  5f 5a 05 e1 0d 5f 64 04  |T%Y%=T%._Z..._d.|
0000ec60  0d 5f 6e 21 dd f2 78 63  6f 6e 76 28 f8 20 58 25  |._n!..xconv(. X%|
0000ec70  2c 54 25 2c 68 25 29 3a  f2 67 65 74 77 28 68 25  |,T%,h%):.getw(h%|
0000ec80  29 0d 5f 78 32 58 25 3d  28 58 25 2d 62 78 25 2d  |)._x2X%=(X%-bx%-|
0000ec90  6d 61 72 67 69 6e 25 29  81 31 36 2b 31 3a e7 58  |margin%).16+1:.X|
0000eca0  25 3c 31 58 25 3d 31 8b  e7 58 25 3e 54 25 58 25  |%<1X%=1..X%>T%X%|
0000ecb0  3d 54 25 0d 5f 82 05 e1  0d 5f 8c 04 0d 5f 96 1b  |=T%._...._..._..|
0000ecc0  dd f2 73 61 76 65 77 28  66 24 2c 54 25 2c 72 25  |..savew(f$,T%,r%|
0000ecd0  2c 66 25 2c 73 25 29 0d  5f a0 1c f2 73 61 76 65  |,f%,s%)._...save|
0000ece0  73 65 74 28 66 24 2c 54  25 2c 72 25 2c 66 25 2c  |set(f$,T%,r%,f%,|
0000ecf0  73 25 29 0d 5f aa 18 f2  64 69 61 6c 6f 67 75 65  |s%)._...dialogue|
0000ed00  28 77 5f 73 61 76 65 25  29 3a e1 0d 5f b4 04 0d  |(w_save%):.._...|
0000ed10  5f be 1d dd f2 73 61 76  65 73 65 74 28 66 24 2c  |_....saveset(f$,|
0000ed20  54 25 2c 72 25 2c 66 25  2c 73 25 29 0d 5f c8 33  |T%,r%,f%,s%)._.3|
0000ed30  73 61 76 65 72 65 61 73  6f 6e 25 3d 72 25 3a 73  |savereason%=r%:s|
0000ed40  61 76 65 66 69 6c 65 25  3d 66 25 3a 73 61 76 65  |avefile%=f%:save|
0000ed50  74 25 3d 54 25 3a 73 61  76 65 73 25 3d 73 25 0d  |t%=T%:saves%=s%.|
0000ed60  5f d2 3e f2 73 65 74 69  28 77 5f 73 61 76 65 25  |_.>.seti(w_save%|
0000ed70  2c 32 2c 66 24 29 3a 24  a4 76 61 28 77 5f 73 61  |,2,f$):$.va(w_sa|
0000ed80  76 65 25 2c 33 29 3d 22  73 66 69 6c 65 5f 22 2b  |ve%,3)="sfile_"+|
0000ed90  c2 22 30 30 22 2b c3 7e  54 25 2c 33 29 0d 5f dc  |."00"+.~T%,3)._.|
0000eda0  05 e1 0d 5f e6 04 0d 5f  f0 0b dd f2 43 4c 4f 53  |..._..._....CLOS|
0000edb0  45 0d 5f fa 07 ea 49 25  0d 60 04 0f e3 49 25 3d  |E._...I%.`...I%=|
0000edc0  30 b8 6d 61 78 66 25 0d  60 0e 27 e7 68 25 28 49  |0.maxf%.`.'.h%(I|
0000edd0  25 29 3e 30 3a 63 6c 6f  73 65 6f 6b 25 3d b9 3a  |%)>0:closeok%=.:|
0000ede0  f2 63 6c 6f 73 65 66 69  6c 65 28 49 25 29 0d 60  |.closefile(I%).`|
0000edf0  18 07 ed 3a e1 0d 60 22  04 0d 60 2c 0d dd f2 70  |...:..`"..`,...p|
0000ee00  72 65 71 75 69 74 0d 60  36 1b e7 a4 76 5f 28 31  |requit.`6...v_(1|
0000ee10  29 3e 30 f2 61 63 6b 72  65 63 3a f2 71 71 75 69  |)>0.ackrec:.qqui|
0000ee20  74 0d 60 40 05 e1 0d 60  4a 04 0d 60 54 38 dd f2  |t.`@...`J..`T8..|
0000ee30  61 63 6b 72 65 63 3a 71  25 21 31 32 3d 72 65 66  |ackrec:q%!12=ref|
0000ee40  25 3a c8 99 22 57 69 6d  70 5f 53 65 6e 64 4d 65  |%:.."Wimp_SendMe|
0000ee50  73 73 61 67 65 22 2c 31  39 2c 71 25 2c 74 61 73  |ssage",19,q%,tas|
0000ee60  6b 25 0d 60 5e 32 dd f2  71 71 75 69 74 3a f2 73  |k%.`^2..qquit:.s|
0000ee70  74 6f 70 28 36 2c 22 43  6c 6f 73 65 20 66 69 6c  |top(6,"Close fil|
0000ee80  65 73 20 61 6e 64 20 71  75 69 74 22 2c 61 73 24  |es and quit",as$|
0000ee90  2c 2d 31 29 0d 60 68 05  e1 0d 60 72 04 0d 60 7c  |,-1).`h...`r..`||
0000eea0  0e dd f2 6f 70 65 6e 66  6f 72 6d 0d 60 86 23 e7  |...openform.`.#.|
0000eeb0  a4 64 65 61 64 66 69 6c  65 28 25 31 31 31 31 31  |.deadfile(%11111|
0000eec0  31 31 31 31 30 31 31 31  31 31 31 30 29 e1 0d 60  |111101111110)..`|
0000eed0  90 16 ea 54 24 3a 54 24  3d a4 7a 74 73 28 71 25  |...T$:T$=.zts(q%|
0000eee0  2b 34 34 29 0d 60 9a 0e  f2 63 6c 6f 73 65 66 6f  |+44).`...closefo|
0000eef0  72 6d 0d 60 a4 15 ea 85  3a ee 85 ea 3a f7 85 3a  |rm.`....:...:..:|
0000ef00  f2 65 72 72 28 37 29 0d  60 ae 15 c8 99 73 77 69  |.err(7).`....swi|
0000ef10  25 2c 6f 66 6f 72 6d 5f  25 2c 54 24 0d 60 b8 18  |%,oform_%,T$.`..|
0000ef20  c8 99 73 77 69 25 2c 73  74 61 74 5f 25 2c 22 46  |..swi%,stat_%,"F|
0000ef30  22 b8 47 25 0d 60 c2 15  66 25 28 66 69 6c 65 25  |".G%.`..f%(file%|
0000ef40  29 3d 2d a4 76 5f 28 32  29 0d 60 cc 09 f2 6c 69  |)=-.v_(2).`...li|
0000ef50  6e 6b 0d 60 d6 05 e1 0d  60 e0 04 0d 60 ea 1e dd  |nk.`....`...`...|
0000ef60  f2 63 6c 6f 73 65 66 6f  72 6d 3a e7 66 25 28 66  |.closeform:.f%(f|
0000ef70  69 6c 65 25 29 3d 30 3a  e1 0d 60 f4 16 e7 66 25  |ile%)=0:..`...f%|
0000ef80  28 66 69 6c 65 25 29 3e  30 3a f2 6c 69 6e 6b 0d  |(file%)>0:.link.|
0000ef90  60 fe 2b c8 99 73 77 69  25 2c 63 66 6f 72 6d 5f  |`.+..swi%,cform_|
0000efa0  25 2c 66 25 28 66 69 6c  65 25 29 b8 53 25 3a 66  |%,f%(file%).S%:f|
0000efb0  25 28 66 69 6c 65 25 29  3d 30 0d 61 08 05 e1 0d  |%(file%)=0.a....|
0000efc0  61 12 04 0d 61 1c 0a dd  f2 6c 69 6e 6b 0d 61 26  |a...a....link.a&|
0000efd0  18 66 25 28 66 69 6c 65  25 29 3d 2d 66 25 28 66  |.f%(file%)=-f%(f|
0000efe0  69 6c 65 25 29 0d 61 30  11 e7 66 25 28 66 69 6c  |ile%).a0..f%(fil|
0000eff0  65 25 29 3c 30 8c 0d 61  3a 1c c8 99 73 77 69 25  |e%)<0..a:...swi%|
0000f000  2c 73 66 6f 72 6d 5f 25  2c 68 25 28 66 69 6c 65  |,sform_%,h%(file|
0000f010  25 29 0d 61 44 05 cc 0d  61 4e 26 c8 99 73 77 69  |%).aD...aN&..swi|
0000f020  25 2c 6c 66 6f 72 6d 5f  25 2c 66 25 28 66 69 6c  |%,lform_%,f%(fil|
0000f030  65 25 29 2c 68 25 28 66  69 6c 65 25 29 0d 61 58  |e%),h%(file%).aX|
0000f040  05 cd 0d 61 62 18 f2 73  64 66 69 6c 65 28 66 69  |...ab..sdfile(fi|
0000f050  6c 65 25 29 3a f2 66 65  78 74 0d 61 6c 23 e7 77  |le%):.fext.al#.w|
0000f060  25 28 66 69 6c 65 25 2c  34 29 3e 30 f2 6d 61 6b  |%(file%,4)>0.mak|
0000f070  65 66 6c 69 73 74 28 66  69 6c 65 25 29 0d 61 76  |eflist(file%).av|
0000f080  05 e1 0d 61 80 04 0d 61  8a 10 dd a4 67 66 69 65  |...a...a....gfie|
0000f090  6c 64 28 54 25 29 0d 61  94 1d c8 99 73 77 69 25  |ld(T%).a....swi%|
0000f0a0  2c 73 64 31 37 5f 25 2c  39 2c 54 25 2c 73 64 24  |,sd17_%,9,T%,sd$|
0000f0b0  b8 47 25 0d 61 9e 18 c8  99 73 77 69 25 2c 67 66  |.G%.a....swi%,gf|
0000f0c0  69 65 6c 64 5f 25 2c 24  73 64 25 0d 61 a8 09 3d  |ield_%,$sd%.a..=|
0000f0d0  24 73 64 25 0d 61 b2 04  0d 61 bc 29 dd a4 66 6e  |$sd%.a...a.)..fn|
0000f0e0  61 6d 65 28 54 25 29 3a  c8 99 73 77 69 25 2c 73  |ame(T%):..swi%,s|
0000f0f0  64 31 37 5f 25 2c 39 2c  54 25 2c 73 64 24 b8 47  |d17_%,9,T%,sd$.G|
0000f100  25 0d 61 c6 09 3d 24 73  64 25 0d 61 d0 04 0d 61  |%.a..=$sd%.a...a|
0000f110  da 37 dd a4 66 6e 61 6d  65 31 28 54 25 29 3a e7  |.7..fname1(T%):.|
0000f120  54 25 3c 30 3a 3d 22 4e  25 22 3a 8b c8 99 73 77  |T%<0:="N%":...sw|
0000f130  69 25 2c 73 64 31 37 5f  25 2c 34 2c 54 25 2c 73  |i%,sd17_%,4,T%,s|
0000f140  64 24 b8 47 25 0d 61 e4  2e e7 28 47 25 80 37 29  |d$.G%.a...(G%.7)|
0000f150  3d 37 3a 3d 22 40 22 2b  a4 66 6e 61 6d 65 28 54  |=7:="@"+.fname(T|
0000f160  25 29 3a 8b 3d 22 23 22  2b a4 66 6e 61 6d 65 28  |%):.="#"+.fname(|
0000f170  54 25 29 0d 61 ee 04 0d  61 f8 26 dd a4 66 6e 75  |T%).a...a.&..fnu|
0000f180  6d 28 54 24 29 3a c8 99  73 77 69 25 2c 73 64 36  |m(T$):..swi%,sd6|
0000f190  37 5f 25 2c 54 24 2c 73  64 24 b8 47 25 0d 62 02  |7_%,T$,sd$.G%.b.|
0000f1a0  07 3d 47 25 0d 62 0c 04  0d 62 16 0e dd f2 65 78  |.=G%.b...b....ex|
0000f1b0  70 72 28 72 25 29 0d 62  20 22 64 69 61 6c 72 65  |pr(r%).b "dialre|
0000f1c0  61 73 6f 6e 25 3d 72 25  3a 64 69 61 6c 66 69 6c  |ason%=r%:dialfil|
0000f1d0  65 25 3d 66 69 6c 65 25  0d 62 2a 16 ea 54 25 2c  |e%=file%.b*..T%,|
0000f1e0  54 24 2c 41 24 2c 74 24  2c 73 25 2c 75 25 0d 62  |T$,A$,t$,s%,u%.b|
0000f1f0  34 3d 54 24 3d a4 66 69  6c 65 6e 61 6d 65 3a 77  |4=T$=.filename:w|
0000f200  5f 65 78 70 72 25 3d a4  63 72 77 69 6e 64 28 74  |_expr%=.crwind(t|
0000f210  77 5f 65 78 70 72 25 29  3a f2 75 6e 73 65 6c 61  |w_expr%):.unsela|
0000f220  6c 6c 28 77 5f 65 78 70  72 25 29 0d 62 3e 09 c8  |ll(w_expr%).b>..|
0000f230  8e 72 25 ca 0d 62 48 06  c9 30 0d 62 52 2b 54 24  |.r%..bH..0.bR+T$|
0000f240  3d 22 46 69 6c 74 65 72  20 65 78 70 72 65 73 73  |="Filter express|
0000f250  69 6f 6e 20 66 6f 72 20  66 69 6c 65 20 22 2b 54  |ion for file "+T|
0000f260  24 2b 22 3a 22 0d 62 5c  30 41 24 3d 66 24 28 66  |$+":".b\0A$=f$(f|
0000f270  69 6c 65 25 29 3a 24 a4  74 61 28 77 5f 65 78 70  |ile%):$.ta(w_exp|
0000f280  72 25 29 3d 22 46 69 6c  74 65 72 22 3a 65 78 69  |r%)="Filter":exi|
0000f290  30 25 3d 31 37 0d 62 66  25 e3 73 25 3d 31 38 b8  |0%=17.bf%.s%=18.|
0000f2a0  32 31 3a f2 6c 6f 73 65  69 63 6f 6e 28 77 5f 65  |21:.loseicon(w_e|
0000f2b0  78 70 72 25 2c 73 25 29  3a ed 0d 62 70 2f f2 6c  |xpr%,s%):..bp/.l|
0000f2c0  6f 73 65 69 63 6f 6e 28  77 5f 65 78 70 72 25 2c  |oseicon(w_expr%,|
0000f2d0  32 35 29 3a f2 6c 6f 73  65 69 63 6f 6e 28 77 5f  |25):.loseicon(w_|
0000f2e0  65 78 70 72 25 2c 32 37  29 0d 62 7a 3b f2 6c 6f  |expr%,27).bz;.lo|
0000f2f0  73 65 69 63 6f 6e 28 77  5f 65 78 70 72 25 2c 32  |seicon(w_expr%,2|
0000f300  38 29 3a 73 25 3d a4 66  6c 67 28 66 5f 66 73 70  |8):s%=.flg(f_fsp|
0000f310  63 25 29 3a 75 25 3d a4  66 6c 67 28 66 5f 66 75  |c%):u%=.flg(f_fu|
0000f320  70 70 25 29 0d 62 84 05  cb 0d 62 8e 34 f2 73 65  |pp%).b....b.4.se|
0000f330  74 69 28 77 5f 65 78 70  72 25 2c 31 36 2c 54 24  |ti(w_expr%,16,T$|
0000f340  29 3a f2 73 65 74 69 28  77 5f 65 78 70 72 25 2c  |):.seti(w_expr%,|
0000f350  31 37 2c 41 24 29 3a 65  78 24 3d 41 24 0d 62 98  |17,A$):ex$=A$.b.|
0000f360  17 e7 73 25 f2 73 65 6c  69 28 77 5f 65 78 70 72  |..s%.seli(w_expr|
0000f370  25 2c 31 29 0d 62 a2 17  e7 75 25 f2 73 65 6c 69  |%,1).b...u%.seli|
0000f380  28 77 5f 65 78 70 72 25  2c 30 29 0d 62 ac 18 f2  |(w_expr%,0).b...|
0000f390  64 69 61 6c 6f 67 75 65  28 77 5f 65 78 70 72 25  |dialogue(w_expr%|
0000f3a0  29 3a e1 0d 62 b6 04 0d  62 c0 2a dd f2 66 6c 67  |):..b...b.*..flg|
0000f3b0  30 28 54 25 29 3a 66 6c  25 28 66 69 6c 65 25 29  |0(T%):fl%(file%)|
0000f3c0  3d 66 6c 25 28 66 69 6c  65 25 29 80 ac 54 25 3a  |=fl%(file%)..T%:|
0000f3d0  e1 0d 62 ca 29 dd f2 66  6c 67 31 28 54 25 29 3a  |..b.)..flg1(T%):|
0000f3e0  66 6c 25 28 66 69 6c 65  25 29 3d 66 6c 25 28 66  |fl%(file%)=fl%(f|
0000f3f0  69 6c 65 25 29 84 54 25  3a e1 0d 62 d4 29 dd f2  |ile%).T%:..b.)..|
0000f400  66 6c 67 78 28 54 25 29  3a 66 6c 25 28 66 69 6c  |flgx(T%):fl%(fil|
0000f410  65 25 29 3d 66 6c 25 28  66 69 6c 65 25 29 82 54  |e%)=fl%(file%).T|
0000f420  25 3a e1 0d 62 de 37 dd  f2 66 6c 67 6d 28 4d 25  |%:..b.7..flgm(M%|
0000f430  2c 46 25 29 3a 66 6c 25  28 66 69 6c 65 25 29 3d  |,F%):fl%(file%)=|
0000f440  28 66 6c 25 28 66 69 6c  65 25 29 80 ac 4d 25 29  |(fl%(file%)..M%)|
0000f450  84 28 46 25 80 4d 25 29  3a e1 0d 62 e8 3b dd f2  |.(F%.M%):..b.;..|
0000f460  66 6c 67 28 54 25 2c 46  25 29 3a 66 6c 25 28 66  |flg(T%,F%):fl%(f|
0000f470  69 6c 65 25 29 3d 28 66  6c 25 28 66 69 6c 65 25  |ile%)=(fl%(file%|
0000f480  29 80 ac 54 25 29 84 28  28 46 25 3c 3e 30 29 80  |)..T%).((F%<>0).|
0000f490  54 25 29 3a e1 0d 62 f2  20 dd a4 66 6c 67 28 54  |T%):..b. ..flg(T|
0000f4a0  25 29 3d 28 66 6c 25 28  66 69 6c 65 25 29 80 54  |%)=(fl%(file%).T|
0000f4b0  25 29 3c 3e 30 0d 62 fc  04 0d 63 06 0d dd f2 73  |%)<>0.b...c....s|
0000f4c0  65 74 66 69 6c 74 0d 63  10 13 ea 54 24 3a 54 24  |etfilt.c...T$:T$|
0000f4d0  3d a4 78 31 28 24 41 25  29 0d 63 1a 41 f2 66 6c  |=.x1($A%).c.A.fl|
0000f4e0  67 28 66 5f 66 75 70 70  25 2c 75 25 29 3a f2 66  |g(f_fupp%,u%):.f|
0000f4f0  6c 67 28 66 5f 66 73 70  63 25 2c 73 25 29 3a 66  |lg(f_fspc%,s%):f|
0000f500  24 28 66 69 6c 65 25 29  3d 24 41 25 3a 66 78 24  |$(file%)=$A%:fx$|
0000f510  28 66 69 6c 65 25 29 3d  54 24 0d 63 24 38 f2 66  |(file%)=T$.c$8.f|
0000f520  6c 67 28 66 5f 66 69 6c  74 25 2c 54 24 3c 3e 22  |lg(f_filt%,T$<>"|
0000f530  22 29 3a f2 73 68 6f 77  66 69 6c 74 65 72 3a f2  |"):.showfilter:.|
0000f540  72 65 76 61 6c 69 64 61  74 65 3a f2 7a 66 6f 75  |revalidate:.zfou|
0000f550  6e 64 0d 63 2e 05 e1 0d  63 38 04 0d 63 42 1b dd  |nd.c....c8..cB..|
0000f560  f2 6e 6f 66 69 6c 74 3a  f2 66 6c 67 30 28 66 5f  |.nofilt:.flg0(f_|
0000f570  66 69 6c 74 25 29 0d 63  4c 25 f2 7a 66 6f 75 6e  |filt%).cL%.zfoun|
0000f580  64 3a f2 72 65 76 61 6c  69 64 61 74 65 3a f2 73  |d:.revalidate:.s|
0000f590  68 6f 77 66 69 6c 74 65  72 3a e1 0d 63 56 04 0d  |howfilter:..cV..|
0000f5a0  63 60 1e dd a4 78 31 28  54 24 29 3a ea 85 3a ee  |c`...x1(T$):..:.|
0000f5b0  85 ea 3a f7 85 3a f2 65  72 72 28 38 29 0d 63 6a  |..:..:.err(8).cj|
0000f5c0  1e dd a4 78 32 28 54 24  29 3a ea 85 3a ee 85 ea  |...x2(T$):..:...|
0000f5d0  3a f7 85 3a f2 65 72 72  28 39 29 0d 63 74 1f dd  |:..:.err(9).ct..|
0000f5e0  a4 78 33 28 54 24 29 3a  ea 85 3a ee 85 ea 3a f7  |.x3(T$):..:...:.|
0000f5f0  85 3a f2 65 72 72 28 33  34 29 0d 63 7e 1f dd a4  |.:.err(34).c~...|
0000f600  78 34 28 54 24 29 3a ea  85 3a ee 85 ea 3a f7 85  |x4(T$):..:...:..|
0000f610  3a f2 65 72 72 28 33 37  29 0d 63 88 1f dd a4 78  |:.err(37).c....x|
0000f620  35 28 54 24 29 3a ea 85  3a ee 85 ea 3a f7 85 3a  |5(T$):..:...:..:|
0000f630  f2 65 72 72 28 34 34 29  0d 63 92 1f dd a4 78 36  |.err(44).c....x6|
0000f640  28 54 24 29 3a ea 85 3a  ee 85 ea 3a f7 85 3a f2  |(T$):..:...:..:.|
0000f650  65 72 72 28 34 35 29 0d  63 9c 1f dd a4 78 37 28  |err(45).c....x7(|
0000f660  54 24 29 3a ea 85 3a ee  85 ea 3a f7 85 3a f2 65  |T$):..:...:..:.e|
0000f670  72 72 28 35 32 29 0d 63  a6 20 dd a4 78 38 28 54  |rr(52).c. ..x8(T|
0000f680  24 29 3a ea 85 3a ee 85  ea 3a f7 85 3a f2 65 72  |$):..:...:..:.er|
0000f690  72 28 32 30 34 29 0d 63  b0 0b 3d a4 78 28 54 24  |r(204).c..=.x(T$|
0000f6a0  29 0d 63 ba 04 0d 63 c4  26 dd a4 78 28 41 24 29  |).c...c.&..x(A$)|
0000f6b0  3a f2 73 74 72 69 70 28  41 24 29 3a e7 41 24 3d  |:.strip(A$):.A$=|
0000f6c0  22 22 3a f2 65 72 72 28  33 35 29 0d 63 ce 3b ea  |"":.err(35).c.;.|
0000f6d0  51 25 2c 42 25 2c 49 25  2c 7a 24 3a f2 71 62 73  |Q%,B%,I%,z$:.qbs|
0000f6e0  63 61 6e 28 41 24 2c 51  25 2c 42 25 29 3a e7 51  |can(A$,Q%,B%):.Q|
0000f6f0  25 f2 65 72 72 28 31 30  29 3a 8b e7 42 25 f2 65  |%.err(10):..B%.e|
0000f700  72 72 28 31 31 29 0d 63  d8 20 7a 24 3d 41 24 3a  |rr(11).c. z$=A$:|
0000f710  c8 95 a7 7a 24 2c 22 27  22 29 3a 49 25 3d a7 7a  |...z$,"'"):I%=.z|
0000f720  24 2c 22 27 22 29 0d 63  e2 17 4a 25 3d 28 97 c1  |$,"'").c..J%=(..|
0000f730  7a 24 2c 49 25 2b 31 29  29 80 26 44 46 0d 63 ec  |z$,I%+1)).&DF.c.|
0000f740  19 e7 4a 25 3c 36 35 84  4a 25 3e 38 33 3a f2 65  |..J%<65.J%>83:.e|
0000f750  72 72 28 32 39 29 0d 63  f6 30 e7 a9 7a 24 2b a9  |rr(29).c.0..z$+.|
0000f760  24 a4 74 69 61 28 74 77  25 28 66 69 6c 65 25 2c  |$.tia(tw%(file%,|
0000f770  36 29 2c 4a 25 2d 36 35  29 3e 32 35 30 3a f2 65  |6),J%-65)>250:.e|
0000f780  72 72 28 33 30 29 0d 64  00 34 7a 24 3d c0 7a 24  |rr(30).d.4z$=.z$|
0000f790  2c 49 25 2d 31 29 2b 24  a4 74 69 61 28 74 77 25  |,I%-1)+$.tia(tw%|
0000f7a0  28 66 69 6c 65 25 2c 36  29 2c 4a 25 2d 36 35 29  |(file%,6),J%-65)|
0000f7b0  2b c1 7a 24 2c 49 25 2b  32 29 0d 64 0a 2f ce 3a  |+.z$,I%+2).d./.:|
0000f7c0  41 24 3d a4 58 28 7a 24  29 3a f2 73 74 72 69 70  |A$=.X(z$):.strip|
0000f7d0  28 41 24 29 3a e7 41 24  3d 22 22 3a f2 65 72 72  |(A$):.A$="":.err|
0000f7e0  28 33 35 29 3a 8b 3d 41  24 0d 64 14 04 0d 64 1e  |(35):.=A$.d...d.|
0000f7f0  1b dd a4 58 28 41 24 29  3a ea 7a 24 2c 4a 25 2c  |...X(A$):.z$,J%,|
0000f800  49 25 3a 7a 24 3d 41 24  0d 64 28 20 c8 95 a7 41  |I%:z$=A$.d( ...A|
0000f810  24 2c 22 3d 22 22 2a 22  29 3a 49 25 3d a7 41 24  |$,"=""*"):I%=.A$|
0000f820  2c 22 3d 22 22 2a 22 29  0d 64 32 20 7a 24 3d c0  |,"=""*").d2 z$=.|
0000f830  41 24 2c 49 25 2d 31 29  2b 22 2c 22 22 22 2b c1  |A$,I%-1)+","""+.|
0000f840  41 24 2c 49 25 2b 33 29  0d 64 3c 23 4a 25 3d a7  |A$,I%+3).d<#J%=.|
0000f850  7a 24 2c bd 33 34 2c 49  25 2b 32 29 3a e7 4a 25  |z$,.34,I%+2):.J%|
0000f860  3d 30 3a f2 65 72 72 28  31 30 29 0d 64 46 2f e7  |=0:.err(10).dF/.|
0000f870  c1 7a 24 2c 4a 25 2d 31  2c 31 29 3d 22 2a 22 3a  |.z$,J%-1,1)="*":|
0000f880  7a 24 3d c0 7a 24 2c 4a  25 2d 32 29 2b c1 7a 24  |z$=.z$,J%-2)+.z$|
0000f890  2c 4a 25 29 3a 4a 25 2d  3d 31 0d 64 50 22 7a 24  |,J%):J%-=1.dP"z$|
0000f8a0  3d c0 7a 24 2c 4a 25 29  2b 22 29 22 2b c1 7a 24  |=.z$,J%)+")"+.z$|
0000f8b0  2c 4a 25 2b 31 29 3a 4a  25 3d 49 25 0d 64 5a 1c  |,J%+1):J%=I%.dZ.|
0000f8c0  f5 3a 49 25 3d 49 25 2d  31 3a e7 49 25 3c 30 3a  |.:I%=I%-1:.I%<0:|
0000f8d0  f2 65 72 72 28 33 31 29  0d 64 64 12 fd c1 7a 24  |.err(31).dd...z$|
0000f8e0  2c 49 25 2c 31 29 3d 22  40 22 0d 64 6e 1f 7a 24  |,I%,1)="@".dn.z$|
0000f8f0  3d c0 7a 24 2c 49 25 2d  31 29 2b 22 46 4e 69 28  |=.z$,I%-1)+"FNi(|
0000f900  22 2b c1 7a 24 2c 49 25  29 0d 64 78 0f 41 24 3d  |"+.z$,I%).dx.A$=|
0000f910  7a 24 3a ce 3a 3d 41 24  0d 64 82 04 0d 64 8c 12  |z$:.:=A$.d...d..|
0000f920  dd a4 65 76 28 41 24 2c  73 25 2c 75 25 29 0d 64  |..ev(A$,s%,u%).d|
0000f930  96 19 24 73 64 25 3d 22  4e 22 3a e7 73 25 24 73  |..$sd%="N":.s%$s|
0000f940  64 25 2b 3d 22 53 22 0d  64 a0 10 e7 75 25 24 73  |d%+="S".d...u%$s|
0000f950  64 25 2b 3d 22 55 22 0d  64 aa 1b c8 99 73 77 69  |d%+="U".d....swi|
0000f960  25 2c 65 78 70 61 6e 64  5f 25 2c 41 24 2c 24 73  |%,expand_%,A$,$s|
0000f970  64 25 0d 64 b4 19 4e 25  3d a4 76 5f 28 31 35 29  |d%.d..N%=.v_(15)|
0000f980  3a 44 25 3d a4 76 5f 28  31 34 29 0d 64 be 0a 3d  |:D%=.v_(14).d..=|
0000f990  a0 24 73 64 25 0d 64 c8  04 0d 64 d2 25 dd a4 65  |.$sd%.d...d.%..e|
0000f9a0  76 31 28 41 24 29 3d a4  65 76 28 a4 78 28 41 24  |v1(A$)=.ev(.x(A$|
0000f9b0  29 2c 6d 61 63 73 25 2c  6d 61 63 75 25 29 0d 64  |),macs%,macu%).d|
0000f9c0  dc 04 0d 64 e6 2b dd a4  65 76 32 28 41 24 2c 73  |...d.+..ev2(A$,s|
0000f9d0  25 2c 75 25 29 3d a4 65  76 33 28 41 24 2c 73 25  |%,u%)=.ev3(A$,s%|
0000f9e0  2c 75 25 2c 26 31 30 32  30 35 30 46 29 0d 64 f0  |,u%,&102050F).d.|
0000f9f0  04 0d 64 fa 1d dd a4 65  76 35 28 41 24 29 3d a4  |..d....ev5(A$)=.|
0000fa00  65 76 28 a4 78 28 41 24  29 2c b9 2c a3 29 0d 65  |ev(.x(A$),.,.).e|
0000fa10  04 04 0d 65 0e 16 dd a4  65 76 33 28 41 24 2c 73  |...e....ev3(A$,s|
0000fa20  25 2c 75 25 2c 41 25 29  0d 65 18 0a ea 55 25 3a  |%,u%,A%).e...U%:|
0000fa30  ea 85 0d 65 22 25 ee 85  ea 3a f7 85 3a 40 25 3d  |...e"%...:..:@%=|
0000fa40  26 39 30 41 3a 55 25 3d  b9 3a e7 9f 3c 3e 36 3a  |&90A:U%=.:..<>6:|
0000fa50  f2 65 72 72 28 30 29 0d  65 2c 08 e7 55 25 8c 0d  |.err(0).e,..U%..|
0000fa60  65 36 16 24 73 64 25 3d  a4 65 76 28 41 24 2c 73  |e6.$sd%=.ev(A$,s|
0000fa70  25 2c 75 25 29 0d 65 40  05 cc 0d 65 4a 34 40 25  |%,u%).e@...eJ4@%|
0000fa80  3d 41 25 3a 24 73 64 25  3d c2 22 20 20 20 20 20  |=A%:$sd%=."     |
0000fa90  20 20 20 20 20 20 20 20  20 20 22 2b c3 a4 65 76  |          "+..ev|
0000faa0  28 41 24 2c 73 25 2c 75  25 29 2c 31 35 29 0d 65  |(A$,s%,u%),15).e|
0000fab0  54 16 e7 73 25 3a c8 99  73 77 69 25 2c 73 74 72  |T..s%:..swi%,str|
0000fac0  69 70 5f 25 0d 65 5e 05  cd 0d 65 68 11 40 25 3d  |ip_%.e^...eh.@%=|
0000fad0  26 39 30 41 3a 3d 24 73  64 25 0d 65 72 04 0d 65  |&90A:=$sd%.er..e|
0000fae0  7c 0b dd f2 77 74 69 64  79 0d 65 86 38 ea 49 25  ||...wtidy.e.8.I%|
0000faf0  3a e3 49 25 3d 32 b8 6d  61 78 77 25 3a e7 77 25  |:.I%=2.maxw%:.w%|
0000fb00  28 66 69 6c 65 25 2c 49  25 29 3e 30 f2 63 6c 6f  |(file%,I%)>0.clo|
0000fb10  73 65 77 28 77 25 28 66  69 6c 65 25 2c 49 25 29  |sew(w%(file%,I%)|
0000fb20  29 0d 65 90 07 ed 3a e1  0d 65 9a 04 0d 65 a4 1d  |).e...:..e...e..|
0000fb30  dd f2 62 75 7a 7a 31 3a  c8 99 73 77 69 25 2c 62  |..buzz1:..swi%,b|
0000fb40  65 65 70 5f 25 2c 31 30  30 0d 65 ae 1c dd f2 62  |eep_%,100.e....b|
0000fb50  75 7a 7a 3a c8 99 73 77  69 25 2c 62 65 65 70 5f  |uzz:..swi%,beep_|
0000fb60  25 2c 31 35 30 0d 65 b8  19 dd f2 62 75 7a 7a 32  |%,150.e....buzz2|
0000fb70  3a c8 99 73 77 69 25 2c  62 65 65 70 5f 25 0d 65  |:..swi%,beep_%.e|
0000fb80  c2 05 e1 0d 65 cc 04 0d  65 d6 14 dd f2 73 75 62  |....e...e....sub|
0000fb90  62 79 74 65 28 54 25 2c  67 25 29 0d 65 e0 0c e7  |byte(T%,g%).e...|
0000fba0  54 25 3e 32 35 35 8c 0d  65 ea 1b c8 99 73 77 69  |T%>255..e....swi|
0000fbb0  25 2c 73 64 35 33 5f 25  2c 54 25 2d 32 35 36 b8  |%,sd53_%,T%-256.|
0000fbc0  47 25 0d 65 f4 14 c8 99  73 77 69 25 2c 73 64 35  |G%.e....swi%,sd5|
0000fbd0  31 5f 25 2c 47 25 0d 65  fe 05 cc 0d 66 08 1a e7  |1_%,G%.e....f...|
0000fbe0  54 25 3e 33 31 54 25 2d  3d 33 32 3a 67 25 3d 28  |T%>31T%-=32:g%=(|
0000fbf0  67 25 3d 30 29 0d 66 12  17 c8 99 73 77 69 25 2c  |g%=0).f....swi%,|
0000fc00  73 64 33 37 5f 25 2c 54  25 b8 47 25 0d 66 1c 05  |sd37_%,T%.G%.f..|
0000fc10  cd 0d 66 26 1a c8 99 73  77 69 25 2c 73 64 33 34  |..f&...swi%,sd34|
0000fc20  5f 25 2c 67 25 2c 2d 31  b8 47 25 0d 66 30 14 c8  |_%,g%,-1.G%.f0..|
0000fc30  99 73 77 69 25 2c 73 64  33 37 5f 25 b8 47 25 0d  |.swi%,sd37_%.G%.|
0000fc40  66 3a 05 e1 0d 66 44 04  0d 66 4e 33 dd f2 7a 66  |f:...fD..fN3..zf|
0000fc50  6f 75 6e 64 3a e7 66 63  25 28 66 69 6c 65 25 29  |ound:.fc%(file%)|
0000fc60  3e 3d 30 66 63 25 28 66  69 6c 65 25 29 3d 2d 31  |>=0fc%(file%)=-1|
0000fc70  3a f2 73 68 6f 77 66 6f  75 6e 64 0d 66 58 05 e1  |:.showfound.fX..|
0000fc80  0d 66 62 04 0d 66 6c 22  dd a4 61 63 74 64 65 73  |.fb..fl"..actdes|
0000fc90  63 3d 22 54 72 61 6e 73  66 65 72 72 69 6e 67 20  |c="Transferring |
0000fca0  63 61 72 64 73 22 0d 66  76 04 0d 66 80 1a dd f2  |cards".fv..f....|
0000fcb0  65 6e 64 61 63 74 3a e7  63 6f 70 79 69 6e 67 25  |endact:.copying%|
0000fcc0  3d 30 3a e1 0d 66 8a 38  73 25 28 73 6f 75 72 63  |=0:..f.8s%(sourc|
0000fcd0  65 25 29 3d 30 3a 61 25  28 73 6f 75 72 63 65 25  |e%)=0:a%(source%|
0000fce0  29 3d 30 3a 73 25 28 74  61 72 67 65 74 25 29 3d  |)=0:s%(target%)=|
0000fcf0  30 3a 63 6f 70 79 69 6e  67 25 3d 30 0d 66 94 1e  |0:copying%=0.f..|
0000fd00  e7 66 69 6c 65 25 3d 70  72 69 6e 74 65 72 25 3a  |.file%=printer%:|
0000fd10  f2 72 65 6c 65 61 73 65  70 72 0d 66 9e 31 f2 73  |.releasepr.f.1.s|
0000fd20  64 66 69 6c 65 28 74 61  72 67 65 74 25 29 3a f2  |dfile(target%):.|
0000fd30  66 6f 72 63 65 63 61 72  64 3a c8 99 73 77 69 25  |forcecard:..swi%|
0000fd40  2c 73 64 33 38 5f 25 2c  32 35 35 0d 66 a8 2b f2  |,sd38_%,255.f.+.|
0000fd50  73 64 66 69 6c 65 28 73  6f 75 72 63 65 25 29 3a  |sdfile(source%):|
0000fd60  f2 76 61 6c 69 64 72 65  63 32 3a f2 6e 65 77 64  |.validrec2:.newd|
0000fd70  65 6c 61 79 3a e1 0d 66  b2 04 0d 66 bc 36 dd a4  |elay:..f...f.6..|
0000fd80  6e 6f 74 65 28 54 25 2c  49 25 29 3a ea 71 25 3a  |note(T%,I%):.q%:|
0000fd90  71 25 3d 77 6f 72 6b 62  75 66 25 3a 3d 24 a4 74  |q%=workbuf%:=$.t|
0000fda0  69 61 28 74 77 25 28 54  25 2c 36 29 2c 49 25 29  |ia(tw%(T%,6),I%)|
0000fdb0  0d 66 c6 04 0d 66 d0 24  dd f2 6e 6f 74 65 28 54  |.f...f.$..note(T|
0000fdc0  25 2c 49 25 2c 54 24 29  3a ea 71 25 3a 71 25 3d  |%,I%,T$):.q%:q%=|
0000fdd0  77 6f 72 6b 62 75 66 25  0d 66 da 40 e7 77 25 28  |workbuf%.f.@.w%(|
0000fde0  54 25 2c 36 29 3e 30 f2  73 65 74 69 28 77 25 28  |T%,6)>0.seti(w%(|
0000fdf0  54 25 2c 36 29 2c 49 25  2c 54 24 29 8b 24 a4 74  |T%,6),I%,T$).$.t|
0000fe00  69 61 28 74 77 25 28 54  25 2c 36 29 2c 49 25 29  |ia(tw%(T%,6),I%)|
0000fe10  3d c0 54 24 2c 38 30 29  0d 66 e4 05 e1 0d 66 ee  |=.T$,80).f....f.|
0000fe20  04 0d 66 f8 1d dd a4 6d  61 63 6c 6e 28 54 25 2c  |..f....macln(T%,|
0000fe30  49 25 29 3a e7 49 25 3e  32 39 3a 3d 22 22 0d 67  |I%):.I%>29:="".g|
0000fe40  02 28 ea 71 25 3a 71 25  3d 77 6f 72 6b 62 75 66  |.(.q%:q%=workbuf|
0000fe50  25 3a 3d 24 a4 74 69 61  28 74 77 25 28 54 25 2c  |%:=$.tia(tw%(T%,|
0000fe60  37 29 2c 49 25 29 0d 67  0c 04 0d 67 16 2e dd f2  |7),I%).g...g....|
0000fe70  6d 61 63 6c 6e 28 54 25  2c 49 25 2c 54 24 29 3a  |macln(T%,I%,T$):|
0000fe80  ea 71 25 3a 71 25 3d 77  6f 72 6b 62 75 66 25 3a  |.q%:q%=workbuf%:|
0000fe90  e7 49 25 3e 32 39 3a e1  0d 67 20 40 e7 77 25 28  |.I%>29:..g @.w%(|
0000fea0  54 25 2c 37 29 3e 30 f2  73 65 74 69 28 77 25 28  |T%,7)>0.seti(w%(|
0000feb0  54 25 2c 37 29 2c 49 25  2c 54 24 29 8b 24 a4 74  |T%,7),I%,T$).$.t|
0000fec0  69 61 28 74 77 25 28 54  25 2c 37 29 2c 49 25 29  |ia(tw%(T%,7),I%)|
0000fed0  3d c0 54 24 2c 38 30 29  0d 67 2a 05 e1 0d 67 34  |=.T$,80).g*...g4|
0000fee0  04 0d 67 3e 28 dd f2 6c  6f 61 64 6e 6f 74 65 73  |..g>(..loadnotes|
0000fef0  3a ea 49 25 2c 54 25 3a  54 25 3d 8e 66 69 6c 65  |:.I%,T%:T%=.file|
0000ff00  24 3a e7 54 25 3d 30 3a  e1 0d 67 48 26 c8 95 ac  |$:.T%=0:..gH&...|
0000ff10  c5 23 54 25 80 49 25 3c  31 39 3a f2 6e 6f 74 65  |.#T%.I%<19:.note|
0000ff20  28 66 69 6c 65 25 2c 49  25 2c be 23 54 25 29 0d  |(file%,I%,.#T%).|
0000ff30  67 52 33 49 25 2b 3d 31  3a ce 3a d9 23 54 25 3a  |gR3I%+=1:.:.#T%:|
0000ff40  c8 95 49 25 3c 31 39 3a  f2 6e 6f 74 65 28 66 69  |..I%<19:.note(fi|
0000ff50  6c 65 25 2c 49 25 2c 22  22 29 3a 49 25 2b 3d 31  |le%,I%,""):I%+=1|
0000ff60  3a ce 0d 67 5c 26 f2 6e  6f 73 63 72 61 70 3a f2  |:..g\&.noscrap:.|
0000ff70  6e 65 77 66 6e 28 66 5f  6e 70 24 29 3a f2 6e 65  |newfn(f_np$):.ne|
0000ff80  77 6e 6f 74 65 73 3a e1  0d 67 66 04 0d 67 70 28  |wnotes:..gf..gp(|
0000ff90  dd f2 6c 6f 61 64 6d 61  63 72 6f 3a ea 49 25 2c  |..loadmacro:.I%,|
0000ffa0  54 25 3a 54 25 3d 8e 66  69 6c 65 24 3a e7 54 25  |T%:T%=.file$:.T%|
0000ffb0  3d 30 3a e1 0d 67 7a 27  c8 95 ac c5 23 54 25 80  |=0:..gz'....#T%.|
0000ffc0  49 25 3c 33 30 3a f2 6d  61 63 6c 6e 28 66 69 6c  |I%<30:.macln(fil|
0000ffd0  65 25 2c 49 25 2c be 23  54 25 29 0d 67 84 34 49  |e%,I%,.#T%).g.4I|
0000ffe0  25 2b 3d 31 3a ce 3a d9  23 54 25 3a c8 95 49 25  |%+=1:.:.#T%:..I%|
0000fff0  3c 33 30 3a f2 6d 61 63  6c 6e 28 66 69 6c 65 25  |<30:.macln(file%|
00010000  2c 49 25 2c 22 22 29 3a  49 25 2b 3d 31 3a ce 0d  |,I%,""):I%+=1:..|
00010010  67 8e 26 f2 6e 6f 73 63  72 61 70 3a f2 6e 65 77  |g.&.noscrap:.new|
00010020  66 6e 28 66 5f 6d 63 24  29 3a f2 6e 65 77 6e 6f  |fn(f_mc$):.newno|
00010030  74 65 73 3a e1 0d 67 98  04 0d 67 a2 13 dd a4 73  |tes:..g...g....s|
00010040  65 74 75 70 74 79 70 65  28 66 24 29 0d 67 ac 29  |etuptype(f$).g.)|
00010050  ea 41 25 2c 42 25 2c 49  25 2c 46 25 2c 54 25 2c  |.A%,B%,I%,F%,T%,|
00010060  54 24 3a 46 25 3d ad 28  66 24 29 3a e7 46 25 3d  |T$:F%=.(f$):.F%=|
00010070  30 3a 3d 2d 31 0d 67 b6  06 ea 85 0d 67 c0 30 cf  |0:=-1.g.....g.0.|
00010080  23 46 25 3d 30 3a e3 49  25 3d 31 b8 34 3a 41 25  |#F%=0:.I%=1.4:A%|
00010090  3d 9a 23 46 25 3a 42 25  3d 28 41 25 3c 3c 32 34  |=.#F%:B%=(A%<<24|
000100a0  29 2b 28 42 25 3e 3e 38  29 3a ed 0d 67 ca 19 e7  |)+(B%>>8):..g...|
000100b0  42 25 3d 26 35 35 30 31  30 30 30 31 3a d9 23 46  |B%=&55010001:.#F|
000100c0  25 3a 3d 30 0d 67 d4 22  e7 42 25 3d 26 36 43 37  |%:=0.g.".B%=&6C7|
000100d0  32 36 35 34 44 3a 42 25  3d 9a 23 46 25 3a d9 23  |2654D:B%=.#F%:.#|
000100e0  46 25 3a 3d 42 25 0d 67  de 1b cf 23 46 25 3d 30  |F%:=B%.g...#F%=0|
000100f0  3a 54 25 3d b9 3a ee 85  ea 3a f7 85 3a 54 25 3d  |:T%=.:...:..:T%=|
00010100  a3 0d 67 e8 0e e7 54 25  e8 23 46 25 2c 54 24 0d  |..g...T%.#F%,T$.|
00010110  67 f2 08 e7 54 25 8c 0d  67 fc 27 e7 54 24 3d 22  |g...T%..g.'.T$="|
00010120  44 65 6c 74 61 2b 4d 61  69 6c 73 68 6f 74 20 4c  |Delta+Mailshot L|
00010130  61 62 65 6c 73 22 3a d9  23 46 25 3a 3d 31 0d 68  |abels":.#F%:=1.h|
00010140  06 28 e7 54 24 3d 22 44  65 6c 74 61 2b 4d 61 69  |.(.T$="Delta+Mai|
00010150  6c 73 68 6f 74 20 57 6f  72 64 70 72 6f 22 3a d9  |lshot Wordpro":.|
00010160  23 46 25 3a 3d 32 0d 68  10 27 e7 54 24 3d 22 44  |#F%:=2.h.'.T$="D|
00010170  65 6c 74 61 2b 4d 61 69  6c 73 68 6f 74 20 52 65  |elta+Mailshot Re|
00010180  70 6f 72 74 22 3a d9 23  46 25 3a 3d 33 0d 68 1a  |port":.#F%:=3.h.|
00010190  05 cd 0d 68 24 0c d9 23  46 25 3a 3d 2d 31 0d 68  |...h$..#F%:=-1.h|
000101a0  2e 04 0d 68 38 13 dd a4  73 65 74 75 70 64 65 73  |...h8...setupdes|
000101b0  63 28 54 25 29 0d 68 42  09 c8 8e 54 25 ca 0d 68  |c(T%).hB...T%..h|
000101c0  4c 18 c9 30 3a 3d 22 50  72 69 6e 74 65 72 20 44  |L..0:="Printer D|
000101d0  72 69 76 65 72 22 0d 68  56 1b c9 31 3a 3d 22 4f  |river".hV..1:="O|
000101e0  6c 64 20 44 65 6c 74 61  2b 20 4c 61 62 65 6c 73  |ld Delta+ Labels|
000101f0  22 0d 68 60 1c c9 32 3a  3d 22 4f 6c 64 20 44 65  |".h`..2:="Old De|
00010200  6c 74 61 2b 20 57 6f 72  64 70 72 6f 22 0d 68 6a  |lta+ Wordpro".hj|
00010210  1b c9 33 3a 3d 22 4f 6c  64 20 44 65 6c 74 61 2b  |..3:="Old Delta+|
00010220  20 52 65 70 6f 72 74 22  0d 68 74 1b c9 34 3a 3d  | Report".ht..4:=|
00010230  22 4d 75 6c 74 69 53 74  6f 72 65 20 4c 61 62 65  |"MultiStore Labe|
00010240  6c 73 22 0d 68 7e 1c c9  35 3a 3d 22 4d 75 6c 74  |ls".h~..5:="Mult|
00010250  69 53 74 6f 72 65 20 57  6f 72 64 70 72 6f 22 0d  |iStore Wordpro".|
00010260  68 88 1b c9 36 3a 3d 22  4d 75 6c 74 69 53 74 6f  |h...6:="MultiSto|
00010270  72 65 20 52 65 70 6f 72  74 22 0d 68 92 1d c9 37  |re Report".h...7|
00010280  3a 3d 22 4d 75 6c 74 69  53 74 6f 72 65 20 54 72  |:="MultiStore Tr|
00010290  61 6e 73 66 65 72 22 0d  68 9c 1c cb 3a 3d 22 55  |ansfer".h...:="U|
000102a0  6e 72 65 63 6f 67 6e 69  73 65 64 20 46 6f 72 6d  |nrecognised Form|
000102b0  61 74 22 0d 68 a6 04 0d  68 b0 33 dd f2 63 6c 65  |at".h...h.3..cle|
000102c0  61 72 6e 70 61 64 3a ea  49 25 3a e3 49 25 3d 30  |arnpad:.I%:.I%=0|
000102d0  b8 31 38 3a f2 6e 6f 74  65 28 66 69 6c 65 25 2c  |.18:.note(file%,|
000102e0  49 25 2c 22 22 29 3a ed  3a e1 0d 68 ba 04 0d 68  |I%,""):.:..h...h|
000102f0  c4 35 dd f2 63 6c 65 61  72 6d 61 63 72 6f 3a ea  |.5..clearmacro:.|
00010300  49 25 3a e3 49 25 3d 30  b8 32 39 3a f2 6d 61 63  |I%:.I%=0.29:.mac|
00010310  6c 6e 28 66 69 6c 65 25  2c 49 25 2c 22 22 29 3a  |ln(file%,I%,""):|
00010320  ed 3a e1 0d 68 ce 04 0d  68 d8 34 dd a4 74 68 69  |.:..h...h.4..thi|
00010330  73 66 69 6c 65 28 77 25  2c 68 25 29 3a e7 77 25  |sfile(w%,h%):.w%|
00010340  3d 64 69 61 6c 6f 67 75  65 25 3a e7 68 25 3d 64  |=dialogue%:.h%=d|
00010350  69 61 6c 66 69 6c 65 25  3a 3d b9 0d 68 e2 24 ea  |ialfile%:=..h.$.|
00010360  49 25 3a e3 49 25 3d 30  b8 6d 61 78 77 25 3a e7  |I%:.I%=0.maxw%:.|
00010370  77 25 28 68 25 2c 49 25  29 3d 77 25 3a 3d b9 0d  |w%(h%,I%)=w%:=..|
00010380  68 ec 08 ed 3a 3d a3 0d  68 f6 04 0d 69 00 0b dd  |h...:=..h...i...|
00010390  f2 73 63 72 73 7a 0d 69  0a 48 21 77 6f 72 6b 62  |.scrsz.i.H!workb|
000103a0  75 66 25 3d 34 3a 77 6f  72 6b 62 75 66 25 21 34  |uf%=4:workbuf%!4|
000103b0  3d 35 3a 77 6f 72 6b 62  75 66 25 21 38 3d 31 31  |=5:workbuf%!8=11|
000103c0  3a 77 6f 72 6b 62 75 66  25 21 31 32 3d 31 32 3a  |:workbuf%!12=12:|
000103d0  77 6f 72 6b 62 75 66 25  21 31 36 3d 2d 31 0d 69  |workbuf%!16=-1.i|
000103e0  14 30 c8 99 22 4f 53 5f  52 65 61 64 56 64 75 56  |.0.."OS_ReadVduV|
000103f0  61 72 69 61 62 6c 65 73  22 2c 77 6f 72 6b 62 75  |ariables",workbu|
00010400  66 25 2c 77 6f 72 6b 62  75 66 25 2b 32 34 0d 69  |f%,workbuf%+24.i|
00010410  1e 49 71 25 21 33 32 3d  28 77 6f 72 6b 62 75 66  |.Iq%!32=(workbuf|
00010420  25 21 33 32 29 3c 3c 28  77 6f 72 6b 62 75 66 25  |%!32)<<(workbuf%|
00010430  21 32 34 29 3a 71 25 21  33 36 3d 28 77 6f 72 6b  |!24):q%!36=(work|
00010440  62 75 66 25 21 33 36 29  3c 3c 28 77 6f 72 6b 62  |buf%!36)<<(workb|
00010450  75 66 25 21 32 38 29 0d  69 28 05 e1 0d 69 32 04  |uf%!28).i(...i2.|
00010460  0d 69 3c 2e dd f2 66 69  6e 64 66 69 65 6c 64 3a  |.i<...findfield:|
00010470  ea 58 25 2c 59 25 3a e7  66 69 6c 65 25 3d 65 64  |.X%,Y%:.file%=ed|
00010480  66 69 6c 65 25 3a f2 66  65 64 69 74 3a e1 0d 69  |file%:.fedit:..i|
00010490  46 38 f2 67 65 74 77 28  77 25 28 66 69 6c 65 25  |F8.getw(w%(file%|
000104a0  2c 30 29 29 3a c8 99 73  77 69 25 2c 73 64 31 37  |,0)):..swi%,sd17|
000104b0  5f 25 2c 32 2c 6d 65 6e  75 66 69 65 6c 64 25 2c  |_%,2,menufield%,|
000104c0  73 64 24 b8 47 25 0d 69  50 2b 58 25 3d 47 25 3a  |sd$.G%.iP+X%=G%:|
000104d0  c8 99 73 77 69 25 2c 73  64 31 37 5f 25 2c 33 2c  |..swi%,sd17_%,3,|
000104e0  6d 65 6e 75 66 69 65 6c  64 25 2c 73 64 24 b8 47  |menufield%,sd$.G|
000104f0  25 0d 69 5a 39 59 25 3d  2d 47 25 2a 6c 69 6e 65  |%.iZ9Y%=-G%*line|
00010500  67 61 70 25 2d 6d 61 72  67 69 6e 25 2b 6c 69 6e  |gap%-margin%+lin|
00010510  65 67 61 70 25 2f 32 3a  58 25 3d 58 25 2a 31 36  |egap%/2:X%=X%*16|
00010520  2b 6d 61 72 67 69 6e 25  2d 38 0d 69 64 33 f2 73  |+margin%-8.id3.s|
00010530  63 72 6f 6c 6c 74 6f 28  58 25 2c 59 25 2c 77 25  |crollto(X%,Y%,w%|
00010540  28 66 69 6c 65 25 2c 30  29 29 3a f2 67 65 74 77  |(file%,0)):.getw|
00010550  28 77 25 28 66 69 6c 65  25 2c 30 29 29 0d 69 6e  |(w%(file%,0)).in|
00010560  30 c8 97 b8 62 78 25 2b  58 25 2c 62 79 25 2b 59  |0...bx%+X%,by%+Y|
00010570  25 3a f2 66 72 6f 6e 74  28 77 25 28 66 69 6c 65  |%:.front(w%(file|
00010580  25 2c 30 29 2c 2d 31 2c  2d 31 29 3a e1 0d 69 78  |%,0),-1,-1):..ix|
00010590  04 0d 69 82 2a dd f2 73  63 72 6f 6c 6c 74 6f 28  |..i.*..scrollto(|
000105a0  58 25 2c 59 25 2c 68 25  29 3a e7 68 25 3c 30 e1  |X%,Y%,h%):.h%<0.|
000105b0  3a 8b f2 67 65 74 77 28  68 25 29 0d 69 8c 38 e7  |:..getw(h%).i.8.|
000105c0  58 25 3e 3d 78 30 25 2d  62 78 25 80 58 25 3c 3d  |X%>=x0%-bx%.X%<=|
000105d0  78 31 25 2d 62 78 25 80  59 25 3c 3d 79 31 25 2d  |x1%-bx%.Y%<=y1%-|
000105e0  62 79 25 2d 33 32 80 59  25 3e 3d 79 30 25 2d 62  |by%-32.Y%>=y0%-b|
000105f0  79 25 e1 0d 69 96 2c 73  63 78 25 3d 58 25 2d 28  |y%..i.,scx%=X%-(|
00010600  78 31 25 2d 78 30 25 29  81 32 3a 73 63 79 25 3d  |x1%-x0%).2:scy%=|
00010610  94 59 25 2d 28 79 31 25  2d 79 30 25 29 81 32 0d  |.Y%-(y1%-y0%).2.|
00010620  69 a0 11 e7 73 63 78 25  3c 30 73 63 78 25 3d 30  |i...scx%<0scx%=0|
00010630  0d 69 aa 11 e7 73 63 79  25 3c 30 73 63 79 25 3d  |.i...scy%<0scy%=|
00010640  30 0d 69 b4 31 f2 6f 70  65 6e 28 68 25 2c 78 30  |0.i.1.open(h%,x0|
00010650  25 2c 79 30 25 2c 78 31  25 2c 79 31 25 2c 73 63  |%,y0%,x1%,y1%,sc|
00010660  78 25 2c 2d 73 63 79 25  2c 62 68 61 6e 64 6c 65  |x%,-scy%,bhandle|
00010670  25 29 0d 69 be 05 e1 0d  69 c8 04 0d 69 d2 2f dd  |%).i....i...i./.|
00010680  f2 66 69 6e 64 63 74 3a  f2 67 65 74 63 74 3a f2  |.findct:.getct:.|
00010690  73 63 72 6f 6c 6c 74 6f  28 71 25 21 38 2c 71 25  |scrollto(q%!8,q%|
000106a0  21 31 32 2c 21 71 25 29  3a e1 0d 69 dc 04 0d 69  |!12,!q%):..i...i|
000106b0  e6 2a dd f2 73 74 61 74  75 73 3a 77 5f 73 74 61  |.*..status:w_sta|
000106c0  74 75 73 25 3d a4 63 72  77 69 6e 64 28 74 77 5f  |tus%=.crwind(tw_|
000106d0  73 74 61 74 75 73 25 29  0d 69 f0 1c ea 49 25 2c  |status%).i...I%,|
000106e0  54 25 2c 54 24 2c 73 24  3a 73 24 3d c4 31 32 2c  |T%,T$,s$:s$=.12,|
000106f0  22 20 22 29 0d 69 fa 29  f2 75 6e 73 65 6c 61 6c  |" ").i.).unselal|
00010700  6c 28 77 5f 73 74 61 74  75 73 25 29 3a 54 25 3d  |l(w_status%):T%=|
00010710  30 3a e3 49 25 3d 30 b8  6d 61 78 66 25 0d 6a 04  |0:.I%=0.maxf%.j.|
00010720  10 e7 77 25 28 49 25 2c  30 29 3e 30 8c 0d 6a 0e  |..w%(I%,0)>0..j.|
00010730  2a f2 73 64 66 69 6c 65  28 49 25 29 3a 54 24 3d  |*.sdfile(I%):T$=|
00010740  c0 a4 66 69 6c 65 6e 61  6d 65 2b c4 31 31 2c 22  |..filename+.11,"|
00010750  20 22 29 2c 31 31 29 0d  6a 18 2d 54 24 2b 3d c2  | "),11).j.-T$+=.|
00010760  73 24 2b c3 a4 76 5f 28  31 36 29 2c 31 30 29 2b  |s$+..v_(16),10)+|
00010770  c2 73 24 2b c3 a4 76 5f  28 31 37 29 2c 31 31 29  |.s$+..v_(17),11)|
00010780  2b 22 20 22 0d 6a 22 30  e7 66 69 6c 65 25 3d 73  |+" ".j"0.file%=s|
00010790  6f 75 72 63 65 25 54 24  2b 3d 22 28 53 4f 55 52  |ource%T$+="(SOUR|
000107a0  43 45 29 22 3a 8b 54 24  2b 3d 22 28 54 41 52 47  |CE)":.T$+="(TARG|
000107b0  45 54 29 22 0d 6a 2c 29  e7 54 25 3c 38 3a f2 73  |ET)".j,).T%<8:.s|
000107c0  65 74 69 28 77 5f 73 74  61 74 75 73 25 2c 54 25  |eti(w_status%,T%|
000107d0  2b 31 35 2c 54 24 29 3a  54 25 2b 3d 31 0d 6a 36  |+15,T$):T%+=1.j6|
000107e0  05 cd 0d 6a 40 2e ed 3a  c8 95 54 25 3c 38 3a f2  |...j@..:..T%<8:.|
000107f0  73 65 74 69 28 77 5f 73  74 61 74 75 73 25 2c 54  |seti(w_status%,T|
00010800  25 2b 31 35 2c 22 22 29  3a 54 25 2b 3d 31 3a ce  |%+15,""):T%+=1:.|
00010810  0d 6a 4a 23 e7 73 74 6f  70 62 6f 78 65 73 25 3a  |.jJ#.stopboxes%:|
00010820  f2 73 65 6c 69 28 77 5f  73 74 61 74 75 73 25 2c  |.seli(w_status%,|
00010830  32 33 29 0d 6a 54 1f e7  73 6f 75 6e 64 25 3a f2  |23).jT..sound%:.|
00010840  73 65 6c 69 28 77 5f 73  74 61 74 75 73 25 2c 32  |seli(w_status%,2|
00010850  34 29 0d 6a 5e 21 e7 73  68 61 64 6f 77 73 25 3a  |4).j^!.shadows%:|
00010860  f2 73 65 6c 69 28 77 5f  73 74 61 74 75 73 25 2c  |.seli(w_status%,|
00010870  32 35 29 0d 6a 68 1d e7  70 69 78 25 3a f2 73 65  |25).jh..pix%:.se|
00010880  6c 69 28 77 5f 73 74 61  74 75 73 25 2c 32 38 29  |li(w_status%,28)|
00010890  0d 6a 72 23 e7 73 70 72  73 7a 25 3c 3d 30 f2 73  |.jr#.sprsz%<=0.s|
000108a0  68 61 64 65 69 28 77 5f  73 74 61 74 75 73 25 2c  |hadei(w_status%,|
000108b0  32 38 29 0d 6a 7c 1a f2  64 69 61 6c 6f 67 75 65  |28).j|..dialogue|
000108c0  28 77 5f 73 74 61 74 75  73 25 29 3a e1 0d 6a 86  |(w_status%):..j.|
000108d0  04 0d 6a 90 1b dd f2 63  6f 70 79 63 61 72 64 3a  |..j....copycard:|
000108e0  e7 63 6f 70 79 69 6e 67  25 3e 30 e1 0d 6a 9a 1d  |.copying%>0..j..|
000108f0  ea 85 3a ee 85 ea 3a f7  85 3a f2 63 6f 70 69 65  |..:...:..:.copie|
00010900  64 3a f2 65 72 72 28 30  29 0d 6a a4 37 f2 73 64  |d:.err(0).j.7.sd|
00010910  66 69 6c 65 28 74 61 72  67 65 74 25 29 3a 6d 61  |file(target%):ma|
00010920  63 72 6f 25 3d a4 66 6c  67 28 66 5f 6d 61 63 65  |cro%=.flg(f_mace|
00010930  25 29 84 a4 66 6c 67 28  66 5f 6d 61 63 62 25 29  |%)..flg(f_macb%)|
00010940  0d 6a ae 0e f2 63 6f 70  79 63 64 28 a3 29 0d 6a  |.j...copycd(.).j|
00010950  b8 0c dd f2 63 6f 70 69  65 64 0d 6a c2 26 f2 73  |....copied.j.&.s|
00010960  64 66 69 6c 65 28 74 61  72 67 65 74 25 29 3a c8  |dfile(target%):.|
00010970  99 73 77 69 25 2c 73 64  33 38 5f 25 2c 32 35 35  |.swi%,sd38_%,255|
00010980  0d 6a cc 05 e1 0d 6a d6  04 0d 6a e0 10 dd f2 63  |.j....j...j....c|
00010990  6f 6e 76 28 f8 20 54 24  29 0d 6a ea 19 f2 73 74  |onv(. T$).j...st|
000109a0  72 69 70 28 54 24 29 3a  e7 97 54 24 3c 3e 36 33  |rip(T$):..T$<>63|
000109b0  3a e1 0d 6a f4 22 54 24  3d a4 73 75 28 c1 54 24  |:..j."T$=.su(.T$|
000109c0  2c 32 29 29 3a ea 54 25  2c 51 25 2c 41 25 2c 41  |,2)):.T%,Q%,A%,A|
000109d0  24 2c 42 24 0d 6a fe 23  f2 72 65 6d 6f 76 65 28  |$,B$.j.#.remove(|
000109e0  54 24 2c 22 23 22 29 3a  f2 72 65 6d 6f 76 65 28  |T$,"#"):.remove(|
000109f0  54 24 2c 22 40 22 29 0d  6b 08 16 ea 85 3a ee 85  |T$,"@").k....:..|
00010a00  ea 3a f7 85 3a f2 65 72  72 28 31 38 29 0d 6b 12  |.:..:.err(18).k.|
00010a10  2e f2 71 62 73 63 61 6e  28 54 24 2c 51 25 2c 41  |..qbscan(T$,Q%,A|
00010a20  25 29 3a e7 51 25 f2 65  72 72 28 31 30 29 3a 8b  |%):.Q%.err(10):.|
00010a30  e7 41 25 f2 65 72 72 28  31 31 29 0d 6b 1c 1d 54  |.A%.err(11).k..T|
00010a40  25 3d a7 54 24 2c 22 20  22 29 3a e7 54 25 3c 32  |%=.T$," "):.T%<2|
00010a50  f2 65 72 72 28 31 39 29  0d 6b 26 1f 41 24 3d c0  |.err(19).k&.A$=.|
00010a60  54 24 2c 54 25 2d 31 29  3a e7 54 25 3e 35 41 24  |T$,T%-1):.T%>5A$|
00010a70  3d c0 54 24 2c 34 29 0d  6b 30 10 54 24 3d c1 54  |=.T$,4).k0.T$=.T|
00010a80  24 2c 54 25 2b 31 29 0d  6b 3a 26 54 25 3d a9 54  |$,T%+1).k:&T%=.T|
00010a90  24 3a 51 25 3d 33 32 3a  e7 97 c2 54 24 29 3d 33  |$:Q%=32:...T$)=3|
00010aa0  34 3a 51 25 3d 33 34 3a  54 25 2d 3d 31 0d 6b 44  |4:Q%=34:T%-=1.kD|
00010ab0  13 f5 3a e7 54 25 3c 31  f2 65 72 72 28 31 39 29  |..:.T%<1.err(19)|
00010ac0  0d 6b 4e 18 54 25 2d 3d  31 3a fd 97 c1 54 24 2c  |.kN.T%-=1:...T$,|
00010ad0  54 25 2b 31 29 3d 51 25  0d 6b 58 31 24 73 64 25  |T%+1)=Q%.kX1$sd%|
00010ae0  3d a4 73 75 28 c0 54 24  2c 54 25 29 29 3a 54 24  |=.su(.T$,T%)):T$|
00010af0  3d c1 54 24 2c 54 25 2b  32 29 3a e7 51 25 3d 33  |=.T$,T%+2):.Q%=3|
00010b00  34 3a 54 24 3d c0 54 24  29 0d 6b 62 09 42 24 3d  |4:T$=.T$).kb.B$=|
00010b10  22 22 0d 6b 6c 1d e7 c0  24 73 64 25 2c 35 29 3d  |"".kl...$sd%,5)=|
00010b20  22 53 4f 55 4e 44 22 3a  42 24 3d 22 7e 3d 22 0d  |"SOUND":B$="~=".|
00010b30  6b 76 2c e7 c0 24 73 64  25 2c 37 29 3d 22 43 4f  |kv,..$sd%,7)="CO|
00010b40  4e 54 41 49 4e 22 3a 42  24 3d 22 3d 22 3a 54 24  |NTAIN":B$="=":T$|
00010b50  3d 22 2a 22 2b 54 24 2b  22 2a 22 0d 6b 80 1b e7  |="*"+T$+"*".k...|
00010b60  a7 24 73 64 25 2c 22 45  51 55 22 29 3e 30 3a 42  |.$sd%,"EQU")>0:B|
00010b70  24 2b 3d 22 3d 22 0d 6b  8a 1c e7 a7 24 73 64 25  |$+="=".k....$sd%|
00010b80  2c 22 49 53 22 29 3e 30  3a 42 24 3d 22 3d 22 2b  |,"IS")>0:B$="="+|
00010b90  42 24 0d 6b 94 1e e7 a7  24 73 64 25 2c 22 4c 45  |B$.k....$sd%,"LE|
00010ba0  53 53 22 29 3e 30 3a 42  24 3d 22 3c 22 2b 42 24  |SS")>0:B$="<"+B$|
00010bb0  0d 6b 9e 1e e7 a7 24 73  64 25 2c 22 47 52 45 41  |.k....$sd%,"GREA|
00010bc0  22 29 3e 30 3a 42 24 3d  22 3e 22 2b 42 24 0d 6b  |")>0:B$=">"+B$.k|
00010bd0  a8 28 e7 a7 24 73 64 25  2c 22 49 53 22 29 3e 30  |.(..$sd%,"IS")>0|
00010be0  3a 42 24 3d c0 42 24 29  3a e7 42 24 3d 22 22 3a  |:B$=.B$):.B$="":|
00010bf0  42 24 3d 22 3d 22 0d 6b  b2 19 e7 a9 42 24 3c 31  |B$="=".k....B$<1|
00010c00  84 a9 42 24 3e 32 3a f2  65 72 72 28 31 39 29 0d  |..B$>2:.err(19).|
00010c10  6b bc 19 e7 c2 42 24 29  3d 22 7e 22 3a 42 24 3d  |k....B$)="~":B$=|
00010c20  c0 42 24 29 2b 22 3d 22  0d 6b c6 1d c8 99 73 77  |.B$)+"=".k....sw|
00010c30  69 25 2c 73 64 31 37 5f  25 2c 34 2c 41 24 2c 73  |i%,sd17_%,4,A$,s|
00010c40  64 24 b8 47 25 0d 6b d0  3e e7 28 47 25 80 37 29  |d$.G%.k.>.(G%.7)|
00010c50  3d 37 3a 54 24 3d 22 40  22 2b 41 24 2b 42 24 2b  |=7:T$="@"+A$+B$+|
00010c60  22 22 22 22 2b a4 73 28  54 24 29 2b 22 22 22 22  |""""+.s(T$)+""""|
00010c70  3a 8b 54 24 3d 22 23 22  2b 41 24 2b 42 24 2b c3  |:.T$="#"+A$+B$+.|
00010c80  bb 54 24 0d 6b da 22 e7  a7 24 73 64 25 2c 22 4e  |.T$.k."..$sd%,"N|
00010c90  4f 54 22 29 3a 54 24 3d  22 4e 4f 54 28 22 2b 54  |OT"):T$="NOT("+T|
00010ca0  24 2b 22 29 22 0d 6b e4  05 e1 0d 6b ee 04 0d 6b  |$+")".k....k...k|
00010cb0  f8 19 dd f2 72 65 6d 6f  76 65 28 f8 20 54 24 2c  |....remove(. T$,|
00010cc0  74 24 29 3a ea 49 25 0d  6c 02 2a f5 49 25 3d a7  |t$):.I%.l.*.I%=.|
00010cd0  54 24 2c 74 24 29 3a e7  49 25 3a 54 24 3d c0 54  |T$,t$):.I%:T$=.T|
00010ce0  24 2c 49 25 2d 31 29 2b  c1 54 24 2c 49 25 2b 31  |$,I%-1)+.T$,I%+1|
00010cf0  29 0d 6c 0c 0b fd 49 25  3d 30 3a e1 0d 6c 16 04  |).l...I%=0:..l..|
00010d00  0d 6c 20 2d dd f2 64 6f  6d 61 63 72 6f 3a e7 a4  |.l -..domacro:..|
00010d10  64 65 61 64 66 69 6c 65  28 25 31 31 31 31 31 31  |deadfile(%111111|
00010d20  31 31 30 31 31 30 31 31  30 31 29 3a e1 0d 6c 2a  |1101101101):..l*|
00010d30  0e dd f2 64 6f 6d 61 63  72 6f 31 0d 6c 34 44 ea  |...domacro1.l4D.|
00010d40  61 25 2c 62 25 2c 63 25  2c 64 25 2c 65 25 2c 66  |a%,b%,c%,d%,e%,f|
00010d50  25 2c 67 25 2c 68 25 2c  69 25 2c 6a 25 2c 6b 25  |%,g%,h%,i%,j%,k%|
00010d60  2c 6c 25 2c 6d 25 2c 6e  25 2c 61 24 2c 62 24 2c  |,l%,m%,n%,a$,b$,|
00010d70  74 31 25 2c 74 32 25 2c  74 33 25 2c 74 34 25 0d  |t1%,t2%,t3%,t4%.|
00010d80  6c 3e 1c ea 40 25 2c 4b  25 2c 4a 25 2c 78 25 2c  |l>..@%,K%,J%,x%,|
00010d90  41 24 2c 54 24 2c 70 24  2c 63 24 0d 6c 48 43 74  |A$,T$,p$,c$.lHCt|
00010da0  31 25 3d 74 25 28 66 69  6c 65 25 2c 30 29 3a 74  |1%=t%(file%,0):t|
00010db0  32 25 3d 74 25 28 66 69  6c 65 25 2c 31 29 3a 74  |2%=t%(file%,1):t|
00010dc0  33 25 3d 74 25 28 66 69  6c 65 25 2c 32 29 3a 74  |3%=t%(file%,2):t|
00010dd0  34 25 3d 74 25 28 66 69  6c 65 25 2c 33 29 0d 6c  |4%=t%(file%,3).l|
00010de0  52 1b 70 24 3d 22 22 3a  61 24 3d 22 22 3a 62 24  |R.p$="":a$="":b$|
00010df0  3d 22 22 3a 65 72 25 3d  30 0d 6c 5c 16 ea 85 3a  |="":er%=0.l\...:|
00010e00  ee 85 ea 3a f7 85 3a f2  65 72 72 28 32 30 29 0d  |...:..:.err(20).|
00010e10  6c 66 1f e3 65 72 25 3d  30 b8 32 39 3a e7 65 72  |lf..er%=0.29:.er|
00010e20  25 3d 32 37 3a ef 32 36  2c 34 3a fc 20 ee 0d 6c  |%=27:.26,4:. ..l|
00010e30  70 1e 63 24 3d 24 a4 74  69 61 28 74 77 25 28 66  |p.c$=$.tia(tw%(f|
00010e40  69 6c 65 25 2c 37 29 2c  65 72 25 29 0d 6c 7a 0b  |ile%,7),er%).lz.|
00010e50  c8 95 63 24 3e 22 22 0d  6c 84 0a 2a 66 78 32 32  |..c$>"".l..*fx22|
00010e60  39 0d 6c 8e 26 41 24 3d  63 24 3a e7 a7 63 24 2c  |9.l.&A$=c$:..c$,|
00010e70  22 3a 22 29 3a 41 24 3d  c0 63 24 2c a7 63 24 2c  |":"):A$=.c$,.c$,|
00010e80  22 3a 22 29 2d 31 29 0d  6c 98 0a c8 8e 20 b9 20  |":")-1).l.... . |
00010e90  ca 0d 6c a2 2b c9 20 34  32 3d 97 41 24 3a 24 73  |..l.+. 42=.A$:$s|
00010ea0  64 25 3d 70 24 3a f2 6f  73 63 6c 69 28 c1 63 24  |d%=p$:.oscli(.c$|
00010eb0  2c 32 29 29 3a 70 24 3d  24 73 64 25 0d 6c ac 10  |,2)):p$=$sd%.l..|
00010ec0  c9 c0 41 24 2c 32 29 3d  22 49 46 22 0d 6c b6 2f  |..A$,2)="IF".l./|
00010ed0  41 24 3d c1 41 24 2c 33  29 3a 4b 25 3d a7 41 24  |A$=.A$,3):K%=.A$|
00010ee0  2c 22 47 4f 22 29 3a e7  4b 25 3d 30 4b 25 3d 2d  |,"GO"):.K%=0K%=-|
00010ef0  a7 41 24 2c 22 54 48 45  4e 22 29 0d 6c c0 12 e7  |.A$,"THEN").l...|
00010f00  4b 25 3d 30 f2 65 72 72  28 32 31 29 8b 0d 6c ca  |K%=0.err(21)..l.|
00010f10  23 54 24 3d c0 41 24 2c  94 4b 25 2d 31 29 3a e7  |#T$=.A$,.K%-1):.|
00010f20  6d 61 63 75 25 f2 75 70  70 6c 69 74 28 54 24 29  |macu%.upplit(T$)|
00010f30  0d 6c d4 0e e7 a4 65 76  31 28 54 24 29 8c 0d 6c  |.l....ev1(T$)..l|
00010f40  de 0a e7 4b 25 3e 30 8c  0d 6c e8 2a 55 25 3d a4  |...K%>0..l.*U%=.|
00010f50  65 76 31 28 c1 41 24 2c  4b 25 2b 32 29 29 3a e7  |ev1(.A$,K%+2)):.|
00010f60  55 25 3c 31 84 55 25 3e  33 30 f2 65 72 72 28 32  |U%<1.U%>30.err(2|
00010f70  32 29 0d 6c f2 12 65 72  25 3d 55 25 2d 32 3a 63  |2).l..er%=U%-2:c|
00010f80  24 3d 22 22 0d 6c fc 05  cc 0d 6d 06 19 63 24 3d  |$="".l....m..c$=|
00010f90  22 3a 22 2b a4 73 28 c1  63 24 2c 94 4b 25 2b 36  |":"+.s(.c$,.K%+6|
00010fa0  29 29 0d 6d 10 05 cd 0d  6d 1a 05 cc 0d 6d 24 09  |)).m....m....m$.|
00010fb0  63 24 3d 22 22 0d 6d 2e  05 cd 0d 6d 38 21 c9 c0  |c$="".m....m8!..|
00010fc0  41 24 2c 33 29 3d 22 61  24 3d 22 3a 61 24 3d a4  |A$,3)="a$=":a$=.|
00010fd0  65 76 35 28 c1 41 24 2c  34 29 29 0d 6d 42 21 c9  |ev5(.A$,4)).mB!.|
00010fe0  c0 41 24 2c 33 29 3d 22  62 24 3d 22 3a 62 24 3d  |.A$,3)="b$=":b$=|
00010ff0  a4 65 76 35 28 c1 41 24  2c 34 29 29 0d 6d 4c 22  |.ev5(.A$,4)).mL"|
00011000  c9 c0 41 24 2c 34 29 3d  22 50 41 53 53 22 3a 70  |..A$,4)="PASS":p|
00011010  24 3d a4 65 76 35 28 c1  41 24 2c 35 29 29 0d 6d  |$=.ev5(.A$,5)).m|
00011020  56 1f c9 c0 41 24 2c 34  29 3d 22 45 4e 44 22 3a  |V...A$,4)="END":|
00011030  65 72 25 3d 39 39 39 3a  63 24 3d 22 22 0d 6d 60  |er%=999:c$="".m`|
00011040  17 c9 c0 41 24 2c 33 29  3d 22 52 45 4d 22 3a 63  |...A$,3)="REM":c|
00011050  24 3d 22 22 0d 6d 6a 1d  c9 a7 41 24 2c 22 25 3d  |$="".mj...A$,"%=|
00011060  22 29 3e 30 3a 78 25 3d  a7 41 24 2c 22 25 3d 22  |")>0:x%=.A$,"%="|
00011070  29 0d 6d 74 15 e7 78 25  3d 33 80 c0 41 24 2c 31  |).mt..x%=3..A$,1|
00011080  29 3d 22 74 22 8c 0d 6d  7e 23 4a 25 3d bb c1 41  |)="t"..m~#J%=..A|
00011090  24 2c 32 2c 31 29 3a e7  4a 25 3c 31 84 4a 25 3e  |$,2,1):.J%<1.J%>|
000110a0  34 f2 65 72 72 28 33 33  29 0d 6d 88 28 4b 25 3d  |4.err(33).m.(K%=|
000110b0  a4 65 76 31 28 c1 41 24  2c 78 25 2b 32 29 29 3a  |.ev1(.A$,x%+2)):|
000110c0  74 25 28 66 69 6c 65 25  2c 4a 25 2d 31 29 3d 4b  |t%(file%,J%-1)=K|
000110d0  25 0d 6d 92 43 74 31 25  3d 74 25 28 66 69 6c 65  |%.m.Ct1%=t%(file|
000110e0  25 2c 30 29 3a 74 32 25  3d 74 25 28 66 69 6c 65  |%,0):t2%=t%(file|
000110f0  25 2c 31 29 3a 74 33 25  3d 74 25 28 66 69 6c 65  |%,1):t3%=t%(file|
00011100  25 2c 32 29 3a 74 34 25  3d 74 25 28 66 69 6c 65  |%,2):t4%=t%(file|
00011110  25 2c 33 29 0d 6d 9c 05  cc 0d 6d a6 2c e7 97 c1  |%,3).m....m.,...|
00011120  41 24 2c 78 25 2d 31 29  3c 97 22 61 22 84 97 c1  |A$,x%-1)<."a"...|
00011130  41 24 2c 78 25 2d 31 29  3e 97 22 6e 22 f2 65 72  |A$,x%-1)>."n".er|
00011140  72 28 32 33 29 0d 6d b0  25 f2 73 65 74 76 61 72  |r(23).m.%.setvar|
00011150  28 97 41 24 2d 97 22 61  22 2c a4 65 76 31 28 c1  |(.A$-."a",.ev1(.|
00011160  41 24 2c 78 25 2b 32 29  29 29 0d 6d ba 05 cd 0d  |A$,x%+2))).m....|
00011170  6d c4 30 c9 c0 41 24 2c  31 29 3d 22 40 22 84 c0  |m.0..A$,1)="@"..|
00011180  41 24 2c 31 29 3d 22 23  22 3a 78 25 3d a7 41 24  |A$,1)="#":x%=.A$|
00011190  2c 22 3d 22 29 3a f2 73  65 74 66 69 65 6c 64 0d  |,"="):.setfield.|
000111a0  6d ce 23 c9 c0 41 24 2c  31 29 3d 22 5e 22 3a 78  |m.#..A$,1)="^":x|
000111b0  25 3d a7 41 24 2c 22 3d  22 29 3a f2 73 65 74 73  |%=.A$,"="):.sets|
000111c0  75 62 0d 6d d8 05 cb 0d  6d e2 26 e7 a7 63 24 2c  |ub.m....m.&..c$,|
000111d0  22 3a 22 29 63 24 3d c1  63 24 2c a7 63 24 2c 22  |":")c$=.c$,.c$,"|
000111e0  3a 22 29 2b 31 29 3a 8b  63 24 3d 22 22 0d 6d ec  |:")+1):.c$="".m.|
000111f0  0c 2a 66 78 32 32 39 2c  31 0d 6d f6 05 ce 0d 6e  |.*fx229,1.m....n|
00011200  00 05 ed 0d 6e 0a 05 e1  0d 6e 14 04 0d 6e 1e 22  |....n....n...n."|
00011210  dd f2 73 65 74 66 69 65  6c 64 3a e7 a4 72 65 61  |..setfield:..rea|
00011220  64 6f 6e 6c 79 3a f2 62  75 7a 7a 31 3a e1 0d 6e  |donly:.buzz1:..n|
00011230  28 1a ea 54 24 2c 65 78  70 24 2c 55 25 2c 40 25  |(..T$,exp$,U%,@%|
00011240  3a 65 78 70 24 3d 41 24  0d 6e 32 21 e7 78 25 3d  |:exp$=A$.n2!.x%=|
00011250  30 f2 65 72 72 28 32 34  29 3a 8b 3a e7 78 25 3c  |0.err(24):.:.x%<|
00011260  33 f2 65 72 72 28 32 35  29 0d 6e 3c 58 54 24 3d  |3.err(25).n<XT$=|
00011270  c1 65 78 70 24 2c 32 2c  78 25 2d 32 29 3a c8 99  |.exp$,2,x%-2):..|
00011280  73 77 69 25 2c 73 64 31  37 5f 25 2c 34 2c 54 24  |swi%,sd17_%,4,T$|
00011290  b8 47 25 3a 47 25 3d 47  25 80 37 3a e7 47 25 3d  |.G%:G%=G%.7:.G%=|
000112a0  30 3a 40 25 3d 26 31 30  30 30 30 30 41 3a 8b 40  |0:@%=&100000A:.@|
000112b0  25 3d 26 31 30 32 30 30  30 41 2b 47 25 2a 32 35  |%=&102000A+G%*25|
000112c0  36 0d 6e 46 1e 55 25 3d  a3 3a 41 24 3d a4 78 28  |6.nF.U%=.:A$=.x(|
000112d0  c1 65 78 70 24 2c 78 25  2b 31 29 29 3a ea 85 0d  |.exp$,x%+1)):...|
000112e0  6e 50 25 ee 85 ea 3a f7  85 3a 40 25 3d 26 39 30  |nP%...:..:@%=&90|
000112f0  41 3a 55 25 3d b9 3a e7  9f 3c 3e 36 3a f2 65 72  |A:U%=.:..<>6:.er|
00011300  72 28 30 29 0d 6e 5a 2b  e7 55 25 3a 24 73 64 25  |r(0).nZ+.U%:$sd%|
00011310  3d a4 65 76 28 41 24 2c  b9 2c a3 29 3a 8b 24 73  |=.ev(A$,.,.):.$s|
00011320  64 25 3d c3 a4 65 76 28  41 24 2c b9 2c a3 29 0d  |d%=..ev(A$,.,.).|
00011330  6e 64 0b e7 ac 55 25 3a  f7 85 0d 6e 6e 14 54 24  |nd...U%:...nn.T$|
00011340  3d c1 65 78 70 24 2c 32  2c 78 25 2d 32 29 0d 6e  |=.exp$,2,x%-2).n|
00011350  78 16 c8 99 73 77 69 25  2c 70 66 69 65 6c 64 5f  |x...swi%,pfield_|
00011360  25 2c 54 24 0d 6e 82 05  e1 0d 6e 8c 04 0d 6e 96  |%,T$.n....n...n.|
00011370  2f dd f2 73 65 74 73 75  62 3a ea 54 24 3a e7 78  |/..setsub:.T$:.x|
00011380  25 3d 30 50 52 43 65 72  72 28 32 36 29 3a 8b e7  |%=0PRCerr(26):..|
00011390  78 25 3c 33 f2 65 72 72  28 32 37 29 0d 6e a0 30  |x%<3.err(27).n.0|
000113a0  54 24 3d c1 41 24 2c 32  2c 78 25 2d 32 29 3a 54  |T$=.A$,2,x%-2):T|
000113b0  24 3d a4 73 75 28 c0 54  24 2c 34 29 29 3a 61 25  |$=.su(.T$,4)):a%|
000113c0  3d a4 73 75 62 6e 75 6d  28 54 24 29 0d 6e aa 2d  |=.subnum(T$).n.-|
000113d0  e7 61 25 3c 3d 30 f2 65  72 72 28 32 38 29 3a 8b  |.a%<=0.err(28):.|
000113e0  f2 7a 66 6f 75 6e 64 3a  e7 6d 61 63 75 25 f2 75  |.zfound:.macu%.u|
000113f0  70 70 6c 69 74 28 41 24  29 0d 6e b4 22 f2 73 75  |pplit(A$).n.".su|
00011400  62 62 79 74 65 28 61 25  2c a4 65 76 31 28 c1 41  |bbyte(a%,.ev1(.A|
00011410  24 2c 78 25 2b 31 29 29  29 3a e1 0d 6e be 05 20  |$,x%+1))):..n.. |
00011420  0d 6e c8 1d dd f2 6f 73  63 6c 69 28 54 24 29 3a  |.n....oscli(T$):|
00011430  e7 97 54 24 3d 34 32 3a  ff 54 24 3a e1 0d 6e d2  |..T$=42:.T$:..n.|
00011440  23 ea 49 25 2c 4a 25 3a  c8 99 22 57 69 6d 70 5f  |#.I%,J%:.."Wimp_|
00011450  43 6f 6d 6d 61 6e 64 57  69 6e 64 6f 77 22 2c 31  |CommandWindow",1|
00011460  0d 6e dc 1a f2 6e 6f 72  6d 70 6f 69 6e 74 3a 6d  |.n...normpoint:m|
00011470  6f 64 65 25 3d eb 3a eb  31 32 0d 6e e6 0a 2a 66  |ode%=.:.12.n..*f|
00011480  78 32 32 39 0d 6e f0 0b  e7 54 24 3d 22 22 8c 0d  |x229.n...T$=""..|
00011490  6e fa 0b f2 6e 6f 76 61  72 73 0d 6f 04 06 ea 85  |n...novars.o....|
000114a0  0d 6f 0e 23 ee 85 ea e7  9f 3d 31 37 80 54 24 3d  |.o.#.....=17.T$=|
000114b0  22 22 3a f2 65 6e 64 6f  73 63 6c 69 3a e1 3a 8b  |"":.endoscli:.:.|
000114c0  f6 3a f1 0d 6f 18 12 f5  54 24 3d 22 22 3a e8 86  |.:..o...T$="":..|
000114d0  22 2a 22 54 24 0d 6f 22  0a c8 8e 20 b9 20 ca 0d  |"*"T$.o"... . ..|
000114e0  6f 2c 20 c9 20 97 54 24  3d 36 33 80 a4 76 5f 28  |o, . .T$=63..v_(|
000114f0  31 29 3d 30 3a f1 a0 28  c1 54 24 2c 32 29 29 0d  |1)=0:..(.T$,2)).|
00011500  6f 36 26 c9 20 97 54 24  3d 36 33 80 a4 76 5f 28  |o6&. .T$=63..v_(|
00011510  31 29 3e 30 3a f1 a4 65  76 28 c1 54 24 2c 32 29  |1)>0:..ev(.T$,2)|
00011520  2c 30 2c 30 29 0d 6f 40  08 7f ff 54 24 0d 6f 4a  |,0,0).o@...T$.oJ|
00011530  05 cb 0d 6f 54 0a fd 54  24 3d 22 22 0d 6f 5e 06  |...oT..T$="".o^.|
00011540  f7 85 0d 6f 68 05 cc 0d  6f 72 06 ea 85 0d 6f 7c  |...oh...or....o||
00011550  1c ee 85 ea 3a f7 85 3a  f2 65 6e 64 6f 73 63 6c  |....:..:.endoscl|
00011560  69 3a f2 65 72 72 28 30  29 0d 6f 86 22 d1 3d 30  |i:.err(0).o.".=0|
00011570  3a ff 54 24 3a c8 99 22  4f 53 5f 42 79 74 65 22  |:.T$:.."OS_Byte"|
00011580  2c 26 38 36 b8 2c 49 25  2c 4a 25 0d 6f 90 32 e7  |,&86.,I%,J%.o.2.|
00011590  91 3c 31 35 30 80 49 25  2b 4a 25 3c 3e 30 f5 fd  |.<150.I%+J%<>0..|
000115a0  a6 30 3c 30 3a f1 27 27  22 50 72 65 73 73 20 61  |.0<0:.''"Press a|
000115b0  20 6b 65 79 2e 2e 2e 20  22 3b 3a e7 a5 0d 6f 9a  | key... ";:...o.|
000115c0  05 cd 0d 6f a4 0f f2 65  6e 64 6f 73 63 6c 69 3a  |...o...endoscli:|
000115d0  e1 0d 6f ae 04 0d 6f b8  0e dd f2 65 6e 64 6f 73  |..o...o....endos|
000115e0  63 6c 69 0d 6f c2 0c 2a  66 78 32 32 39 2c 31 0d  |cli.o..*fx229,1.|
000115f0  6f cc 1d c8 99 22 57 69  6d 70 5f 43 6f 6d 6d 61  |o...."Wimp_Comma|
00011600  6e 64 57 69 6e 64 6f 77  22 2c 2d 31 0d 6f d6 27  |ndWindow",-1.o.'|
00011610  c8 99 22 57 69 6d 70 5f  53 65 74 4d 6f 64 65 22  |.."Wimp_SetMode"|
00011620  2c 6d 6f 64 65 25 3a 87  3a f2 66 6f 72 63 65 28  |,mode%:.:.force(|
00011630  2d 31 29 0d 6f e0 05 e1  0d 6f ea 04 0d 6f f4 2c  |-1).o....o...o.,|
00011640  dd f2 65 6d 61 63 72 6f  3a e7 a4 64 65 61 64 66  |..emacro:..deadf|
00011650  69 6c 65 28 25 31 31 31  31 31 31 31 31 30 31 31  |ile(%11111111011|
00011660  31 31 31 31 31 29 3a e1  0d 6f fe 1c e7 ac a4 66  |11111):..o.....f|
00011670  6c 67 28 66 5f 6d 61 63  62 25 29 3a f2 64 6f 6d  |lg(f_macb%):.dom|
00011680  61 63 72 6f 0d 70 08 1d  f2 66 6f 72 63 65 63 61  |acro.p...forceca|
00011690  72 64 72 65 70 3a f2 76  61 6c 69 64 72 65 63 3a  |rdrep:.validrec:|
000116a0  e1 0d 70 12 04 0d 70 1c  0c dd f2 62 6d 61 63 72  |..p...p....bmacr|
000116b0  6f 0d 70 26 46 ea 85 3a  ee 85 ea 3a f7 85 3a f2  |o.p&F..:...:..:.|
000116c0  66 6c 67 28 66 5f 6d 61  63 62 25 2c a3 29 3a f2  |flg(f_macb%,.):.|
000116d0  73 68 6f 77 6d 61 63 3a  f2 66 6f 72 63 65 63 61  |showmac:.forceca|
000116e0  72 64 72 65 70 3a f2 76  61 6c 69 64 72 65 63 3a  |rdrep:.validrec:|
000116f0  f2 65 72 72 28 30 29 0d  70 30 1c f2 64 6f 6d 61  |.err(0).p0..doma|
00011700  63 72 6f 3a f2 66 6f 72  63 65 63 61 72 64 72 65  |cro:.forcecardre|
00011710  70 3a e1 0d 70 3a 04 0d  70 44 27 dd f2 66 69 65  |p:..p:..pD'..fie|
00011720  6c 64 73 7a 31 28 54 25  29 3a ea 67 78 30 25 2c  |ldsz1(T%):.gx0%,|
00011730  67 79 30 25 2c 67 78 31  25 2c 67 79 31 25 0d 70  |gy0%,gx1%,gy1%.p|
00011740  4e 11 dd f2 66 69 65 6c  64 73 7a 28 54 25 29 0d  |N...fieldsz(T%).|
00011750  70 58 13 ea 4c 25 2c 58  25 2c 59 25 2c 47 25 2c  |pX..L%,X%,Y%,G%,|
00011760  74 25 0d 70 62 2c f2 67  65 74 77 28 77 25 28 66  |t%.pb,.getw(w%(f|
00011770  69 6c 65 25 2c 30 29 29  3a c8 99 73 77 69 25 2c  |ile%,0)):..swi%,|
00011780  73 64 31 37 5f 25 2c 31  2c 54 25 b8 4c 25 0d 70  |sd17_%,1,T%.L%.p|
00011790  6c 19 c8 99 73 77 69 25  2c 73 64 31 37 5f 25 2c  |l...swi%,sd17_%,|
000117a0  32 2c 54 25 b8 58 25 0d  70 76 19 c8 99 73 77 69  |2,T%.X%.pv...swi|
000117b0  25 2c 73 64 31 37 5f 25  2c 33 2c 54 25 b8 59 25  |%,sd17_%,3,T%.Y%|
000117c0  0d 70 80 25 c8 99 22 4f  53 5f 52 65 61 64 4d 6f  |.p.%.."OS_ReadMo|
000117d0  64 65 56 61 72 69 61 62  6c 65 22 2c 2d 31 2c 35  |deVariable",-1,5|
000117e0  b8 2c 2c 54 25 0d 70 8a  2c 74 79 30 25 3d 28 2d  |.,,T%.p.,ty0%=(-|
000117f0  59 25 2a 6c 69 6e 65 67  61 70 25 2d 6d 61 72 67  |Y%*linegap%-marg|
00011800  69 6e 25 29 80 ac 28 28  31 3c 3c 54 25 29 2d 31  |in%)..((1<<T%)-1|
00011810  29 0d 70 94 3e 74 78 30  25 3d 58 25 2a 31 36 2b  |).p.>tx0%=X%*16+|
00011820  6d 61 72 67 69 6e 25 2d  31 36 3a 74 79 31 25 3d  |margin%-16:ty1%=|
00011830  74 79 30 25 2b 6c 69 6e  65 67 61 70 25 3a 74 78  |ty0%+linegap%:tx|
00011840  31 25 3d 74 78 30 25 2b  4c 25 2a 31 36 2b 32 0d  |1%=tx0%+L%*16+2.|
00011850  70 9e 05 e1 0d 70 a8 04  0d 70 b2 29 dd f2 75 70  |p....p...p.)..up|
00011860  64 61 74 65 66 69 65 6c  64 28 54 25 29 3a ea 58  |datefield(T%):.X|
00011870  25 2c 4c 25 3a f2 66 69  65 6c 64 73 7a 28 54 25  |%,L%:.fieldsz(T%|
00011880  29 0d 70 bc 48 21 71 25  3d 77 25 28 66 69 6c 65  |).p.H!q%=w%(file|
00011890  25 2c 30 29 3a 71 25 21  34 3d 74 78 30 25 3a 71  |%,0):q%!4=tx0%:q|
000118a0  25 21 38 3d 74 79 30 25  3a 71 25 21 31 32 3d 74  |%!8=ty0%:q%!12=t|
000118b0  78 31 25 3a 71 25 21 31  36 3d 74 79 31 25 3a f2  |x1%:q%!16=ty1%:.|
000118c0  72 65 64 72 61 77 28 b9  29 0d 70 c6 05 e1 0d 70  |redraw(.).p....p|
000118d0  d0 04 0d 70 da 30 dd a4  73 68 6f 77 62 72 61 6e  |...p.0..showbran|
000118e0  63 68 3a f2 72 65 61 64  70 6f 69 6e 74 65 72 3a  |ch:.readpointer:|
000118f0  e7 6d 62 25 3c 3e 31 84  6d 69 25 3c 3e 2d 33 3a  |.mb%<>1.mi%<>-3:|
00011900  3d a3 0d 70 e4 2f ea 54  24 2c 74 24 3a 54 24 3d  |=..p./.T$,t$:T$=|
00011910  66 6e 24 28 66 69 6c 65  25 29 3a 74 24 3d a4 6c  |fn$(file%):t$=.l|
00011920  65 61 66 28 54 24 29 3a  e7 74 24 3d 54 24 3a 3d  |eaf(T$):.t$=T$:=|
00011930  a3 0d 70 ee 28 ff 22 2a  66 69 6c 65 72 5f 6f 70  |..p.(."*filer_op|
00011940  65 6e 64 69 72 20 22 2b  c0 54 24 2c a9 54 24 2d  |endir "+.T$,.T$-|
00011950  a9 74 24 2d 31 29 3a 3d  b9 0d 70 f8 04 0d 71 02  |.t$-1):=..p...q.|
00011960  19 dd f2 72 65 61 64 77  73 3a ea 54 24 2c 54 25  |...readws:.T$,T%|
00011970  2c 49 25 2c 63 25 0d 71  0c 3b 63 25 3d a4 68 64  |,I%,c%.q.;c%=.hd|
00011980  62 79 74 65 31 28 35 33  29 3a e7 63 25 3c 3e 69  |byte1(53):.c%<>i|
00011990  64 5f 62 62 63 25 80 63  25 3c 3e 69 64 5f 77 63  |d_bbc%.c%<>id_wc|
000119a0  69 61 25 80 63 25 3c 3e  69 64 5f 65 78 62 25 3a  |ia%.c%<>id_exb%:|
000119b0  e1 0d 71 16 11 c8 99 73  77 69 25 2c 73 64 32 34  |..q....swi%,sd24|
000119c0  5f 25 0d 71 20 1b e7 63  25 3d 69 64 5f 65 78 62  |_%.q ..c%=id_exb|
000119d0  25 f2 72 65 61 64 65 78  62 77 73 3a e1 0d 71 2a  |%.readexbws:..q*|
000119e0  35 72 24 28 66 69 6c 65  25 29 3d a4 67 73 3a e3  |5r$(file%)=.gs:.|
000119f0  49 25 3d 30 b8 31 38 3a  f2 6e 6f 74 65 28 66 69  |I%=0.18:.note(fi|
00011a00  6c 65 25 2c 49 25 2c c0  a4 67 73 2c 36 39 29 29  |le%,I%,..gs,69))|
00011a10  3a ed 0d 71 34 16 65 24  28 66 69 6c 65 25 29 3d  |:..q4.e$(file%)=|
00011a20  c0 a4 67 73 2c 37 30 29  0d 71 3e 27 f2 66 6c 67  |..gs,70).q>'.flg|
00011a30  28 66 5f 72 73 70 63 25  2c a4 67 62 29 3a f2 66  |(f_rspc%,.gb):.f|
00011a40  6c 67 28 66 5f 72 75 70  70 25 2c a4 67 62 29 0d  |lg(f_rupp%,.gb).|
00011a50  71 48 29 f2 66 6c 67 28  66 5f 73 73 70 63 25 2c  |qH).flg(f_sspc%,|
00011a60  a4 67 62 32 29 3a f2 66  6c 67 28 66 5f 73 75 70  |.gb2):.flg(f_sup|
00011a70  70 25 2c a4 67 62 32 29  0d 71 52 27 54 25 3d a4  |p%,.gb2).qR'T%=.|
00011a80  76 5f 28 37 29 2b 35 3a  e7 54 25 3e 33 30 84 63  |v_(7)+5:.T%>30.c|
00011a90  25 3d 69 64 5f 77 63 69  61 25 54 25 3d 33 30 0d  |%=id_wcia%T%=30.|
00011aa0  71 5c 23 e3 49 25 3d 30  b8 54 25 3a f2 6d 61 63  |q\#.I%=0.T%:.mac|
00011ab0  6c 6e 28 66 69 6c 65 25  2c 49 25 2c a4 67 73 29  |ln(file%,I%,.gs)|
00011ac0  3a ed 0d 71 66 14 c8 99  73 77 69 25 2c 73 64 32  |:..qf...swi%,sd2|
00011ad0  35 5f 25 b8 47 25 0d 71  70 2f e7 47 25 3d 31 31  |5_%.G%.qp/.G%=11|
00011ae0  3a f2 66 6c 67 28 66 5f  6d 61 63 62 25 2c b9 29  |:.flg(f_macb%,.)|
00011af0  3a 8b e7 47 25 3a f2 66  6c 67 28 66 5f 6d 61 63  |:..G%:.flg(f_mac|
00011b00  65 25 2c b9 29 0d 71 7a  05 e1 0d 71 84 04 0d 71  |e%,.).qz...q...q|
00011b10  8e 16 dd f2 72 65 61 64  65 78 62 77 73 3a ea 49  |....readexbws:.I|
00011b20  25 2c 54 25 0d 71 98 22  e3 49 25 3d 30 b8 31 38  |%,T%.q.".I%=0.18|
00011b30  3a f2 6e 6f 74 65 28 66  69 6c 65 25 2c 49 25 2c  |:.note(file%,I%,|
00011b40  a4 67 73 29 3a ed 0d 71  a2 23 e3 49 25 3d 30 b8  |.gs):..q.#.I%=0.|
00011b50  32 39 3a f2 6d 61 63 6c  6e 28 66 69 6c 65 25 2c  |29:.macln(file%,|
00011b60  49 25 2c a4 67 73 29 3a  ed 0d 71 ac 3c e3 49 25  |I%,.gs):..q.<.I%|
00011b70  3d 30 b8 32 33 3a 64 24  28 66 69 6c 65 25 2c 49  |=0.23:d$(file%,I|
00011b80  25 29 3d a4 67 73 3a ed  3a 66 24 28 66 69 6c 65  |%)=.gs:.:f$(file|
00011b90  25 29 3d a4 67 73 3a 66  78 24 28 66 69 6c 65 25  |%)=.gs:fx$(file%|
00011ba0  29 3d a4 67 73 0d 71 b6  3f 65 24 28 66 69 6c 65  |)=.gs.q.?e$(file|
00011bb0  25 29 3d a4 67 73 3a e3  49 25 3d 30 b8 31 34 3a  |%)=.gs:.I%=0.14:|
00011bc0  77 24 28 66 69 6c 65 25  2c 49 25 29 3d a4 67 73  |w$(file%,I%)=.gs|
00011bd0  3a ed 3a 77 6f 25 28 66  69 6c 65 25 29 3d a4 67  |:.:wo%(file%)=.g|
00011be0  77 28 30 29 0d 71 c0 14  72 25 28 66 69 6c 65 25  |w(0).q..r%(file%|
00011bf0  29 3d a4 67 77 28 30 29  0d 71 ca 3b 66 6c 25 28  |)=.gw(0).q.;fl%(|
00011c00  66 69 6c 65 25 29 3d 28  66 6c 25 28 66 69 6c 65  |file%)=(fl%(file|
00011c10  25 29 80 ac 66 5f 73 61  76 65 25 29 84 28 a4 67  |%)..f_save%).(.g|
00011c20  77 28 66 5f 64 66 6c 74  25 29 80 66 5f 73 61 76  |w(f_dflt%).f_sav|
00011c30  65 25 29 0d 71 d4 42 e3  49 25 3d 30 b8 33 3a 74  |e%).q.B.I%=0.3:t|
00011c40  25 28 66 69 6c 65 25 2c  49 25 29 3d a4 67 77 28  |%(file%,I%)=.gw(|
00011c50  30 29 3a ed 3a 6f 24 28  66 69 6c 65 25 29 3d a4  |0):.:o$(file%)=.|
00011c60  67 73 3a 6f 25 28 66 69  6c 65 25 2c 30 29 3d a4  |gs:o%(file%,0)=.|
00011c70  67 77 28 30 29 0d 71 de  3d 72 24 28 66 69 6c 65  |gw(0).q.=r$(file|
00011c80  25 29 3d a4 67 73 3a 73  72 24 28 66 69 6c 65 25  |%)=.gs:sr$(file%|
00011c90  29 3d a4 67 73 3a 6c 24  28 66 69 6c 65 25 29 3d  |)=.gs:l$(file%)=|
00011ca0  a4 67 73 3a 6c 6b 24 28  66 69 6c 65 25 29 3d a4  |.gs:lk$(file%)=.|
00011cb0  67 73 0d 71 e8 12 6c 78  24 28 66 69 6c 65 25 29  |gs.q..lx$(file%)|
00011cc0  3d a4 67 73 0d 71 f2 22  e3 49 25 3d 30 b8 35 3a  |=.gs.q.".I%=0.5:|
00011cd0  6c 6c 25 28 66 69 6c 65  25 2c 49 25 29 3d a4 67  |ll%(file%,I%)=.g|
00011ce0  77 28 30 29 3a ed 0d 71  fc 23 e3 49 25 3d 30 b8  |w(0):..q.#.I%=0.|
00011cf0  31 35 3a 6c 66 25 28 66  69 6c 65 25 2c 49 25 29  |15:lf%(file%,I%)|
00011d00  3d a4 67 77 28 30 29 3a  ed 0d 72 06 3c e3 49 25  |=.gw(0):..r.<.I%|
00011d10  3d 30 b8 34 3a 70 25 28  66 69 6c 65 25 2c 49 25  |=0.4:p%(file%,I%|
00011d20  29 3d a4 67 77 28 30 29  3a ed 3a e3 49 25 3d 30  |)=.gw(0):.:.I%=0|
00011d30  b8 37 3a 70 24 28 66 69  6c 65 25 2c 49 25 29 3d  |.7:p$(file%,I%)=|
00011d40  a4 67 73 3a ed 0d 72 10  16 54 25 3d a4 67 77 28  |.gs:..r..T%=.gw(|
00011d50  30 29 3a e3 49 25 3d 30  b8 54 25 0d 72 1a 11 e7  |0):.I%=0.T%.r...|
00011d60  49 25 3c 3d 6d 61 78 63  6f 6c 25 8c 0d 72 24 3d  |I%<=maxcol%..r$=|
00011d70  63 24 28 66 69 6c 65 25  2c 49 25 2c 30 29 3d a4  |c$(file%,I%,0)=.|
00011d80  67 73 3a 63 24 28 66 69  6c 65 25 2c 49 25 2c 31  |gs:c$(file%,I%,1|
00011d90  29 3d a4 67 73 3a 63 25  28 66 69 6c 65 25 2c 49  |)=.gs:c%(file%,I|
00011da0  25 29 3d a4 67 77 28 30  29 0d 72 2e 05 cc 0d 72  |%)=.gw(0).r....r|
00011db0  38 21 24 73 64 25 3d a4  67 73 3a 24 73 64 25 3d  |8!$sd%=.gs:$sd%=|
00011dc0  a4 67 73 3a 21 73 64 25  3d a4 67 77 28 30 29 0d  |.gs:!sd%=.gw(0).|
00011dd0  72 42 05 cd 0d 72 4c 05  ed 0d 72 56 3a 73 74 25  |rB...rL...rV:st%|
00011de0  28 66 69 6c 65 25 2c 30  29 3d bb a4 67 73 3a 73  |(file%,0)=..gs:s|
00011df0  74 25 28 66 69 6c 65 25  2c 31 29 3d bb a4 67 73  |t%(file%,1)=..gs|
00011e00  3a 73 74 25 28 66 69 6c  65 25 2c 32 29 3d 91 2f  |:st%(file%,2)=./|
00011e10  31 30 30 0d 72 60 05 e1  0d 72 6a 04 0d 72 74 1a  |100.r`...rj..rt.|
00011e20  dd f2 77 72 69 74 65 77  73 3a e7 a4 72 65 61 64  |..writews:..read|
00011e30  6f 6e 6c 79 3a e1 0d 72  7e 0d ea 54 24 2c 49 25  |only:..r~..T$,I%|
00011e40  2c 63 25 0d 72 88 3b 63  25 3d a4 68 64 62 79 74  |,c%.r.;c%=.hdbyt|
00011e50  65 28 26 33 35 29 3a e7  63 25 3c 3e 69 64 5f 62  |e(&35):.c%<>id_b|
00011e60  62 63 25 80 63 25 3c 3e  69 64 5f 77 63 69 61 25  |bc%.c%<>id_wcia%|
00011e70  80 63 25 3c 3e 69 64 5f  65 78 62 25 3a e1 0d 72  |.c%<>id_exb%:..r|
00011e80  92 11 c8 99 73 77 69 25  2c 73 64 32 34 5f 25 0d  |....swi%,sd24_%.|
00011e90  72 9c 1d e7 63 25 3d 69  64 5f 65 78 62 25 3a f2  |r...c%=id_exb%:.|
00011ea0  77 72 69 74 65 65 78 62  77 73 3a e1 0d 72 a6 20  |writeexbws:..r. |
00011eb0  24 73 64 25 3d 72 24 28  66 69 6c 65 25 29 3a c8  |$sd%=r$(file%):.|
00011ec0  99 73 77 69 25 2c 73 64  32 38 5f 25 0d 72 b0 4e  |.swi%,sd28_%.r.N|
00011ed0  e3 49 25 3d 30 b8 31 38  3a 24 73 64 25 3d a4 6e  |.I%=0.18:$sd%=.n|
00011ee0  6f 74 65 28 66 69 6c 65  25 2c 49 25 29 3a c8 99  |ote(file%,I%):..|
00011ef0  73 77 69 25 2c 73 64 32  38 5f 25 3a ed 3a 24 73  |swi%,sd28_%:.:$s|
00011f00  64 25 3d 65 24 28 66 69  6c 65 25 29 3a c8 99 73  |d%=e$(file%):..s|
00011f10  77 69 25 2c 73 64 32 38  5f 25 0d 72 ba 2b f2 77  |wi%,sd28_%.r.+.w|
00011f20  73 62 28 a4 66 6c 67 28  66 5f 72 73 70 63 25 29  |sb(.flg(f_rspc%)|
00011f30  29 3a f2 77 73 62 28 a4  66 6c 67 28 66 5f 72 75  |):.wsb(.flg(f_ru|
00011f40  70 70 25 29 29 0d 72 c4  2b f2 77 73 62 28 a4 66  |pp%)).r.+.wsb(.f|
00011f50  6c 67 28 66 5f 73 73 70  63 25 29 29 3a f2 77 73  |lg(f_sspc%)):.ws|
00011f60  62 28 a4 66 6c 67 28 66  5f 73 75 70 70 25 29 29  |b(.flg(f_supp%))|
00011f70  0d 72 ce 27 54 25 3d a4  76 5f 28 37 29 2b 35 3a  |.r.'T%=.v_(7)+5:|
00011f80  e7 54 25 3e 33 30 84 63  25 3d 69 64 5f 77 63 69  |.T%>30.c%=id_wci|
00011f90  61 25 54 25 3d 33 30 0d  72 d8 32 e3 49 25 3d 30  |a%T%=30.r.2.I%=0|
00011fa0  b8 54 25 3a 24 73 64 25  3d a4 6d 61 63 6c 6e 28  |.T%:$sd%=.macln(|
00011fb0  66 69 6c 65 25 2c 49 25  29 3a c8 99 73 77 69 25  |file%,I%):..swi%|
00011fc0  2c 73 64 32 38 5f 25 3a  ed 0d 72 e2 32 54 25 3d  |,sd28_%:..r.2T%=|
00011fd0  30 3a e7 a4 66 6c 67 28  66 5f 6d 61 63 65 25 29  |0:..flg(f_mace%)|
00011fe0  3a 54 25 3d 31 3a 8b e7  a4 66 6c 67 28 66 5f 6d  |:T%=1:...flg(f_m|
00011ff0  61 63 62 25 29 3a 54 25  3d 31 31 0d 72 ec 14 c8  |acb%):T%=11.r...|
00012000  99 73 77 69 25 2c 73 64  32 36 5f 25 2c 54 25 0d  |.swi%,sd26_%,T%.|
00012010  72 f6 05 e1 0d 73 00 04  0d 73 0a 14 dd f2 77 72  |r....s...s....wr|
00012020  69 74 65 65 78 62 77 73  3a ea 49 25 0d 73 14 23  |iteexbws:.I%.s.#|
00012030  e3 49 25 3d 30 b8 31 38  3a f2 77 73 28 a4 6e 6f  |.I%=0.18:.ws(.no|
00012040  74 65 28 66 69 6c 65 25  2c 49 25 29 29 3a ed 0d  |te(file%,I%)):..|
00012050  73 1e 24 e3 49 25 3d 30  b8 32 39 3a f2 77 73 28  |s.$.I%=0.29:.ws(|
00012060  a4 6d 61 63 6c 6e 28 66  69 6c 65 25 2c 49 25 29  |.macln(file%,I%)|
00012070  29 3a ed 0d 73 28 3f e3  49 25 3d 30 b8 32 33 3a  |):..s(?.I%=0.23:|
00012080  f2 77 73 28 64 24 28 66  69 6c 65 25 2c 49 25 29  |.ws(d$(file%,I%)|
00012090  29 3a ed 3a f2 77 73 28  66 24 28 66 69 6c 65 25  |):.:.ws(f$(file%|
000120a0  29 29 3a f2 77 73 28 66  78 24 28 66 69 6c 65 25  |)):.ws(fx$(file%|
000120b0  29 29 0d 73 32 2f f2 77  73 28 65 24 28 66 69 6c  |)).s2/.ws(e$(fil|
000120c0  65 25 29 29 3a e3 49 25  3d 30 b8 31 34 3a f2 77  |e%)):.I%=0.14:.w|
000120d0  73 28 77 24 28 66 69 6c  65 25 2c 49 25 29 29 3a  |s(w$(file%,I%)):|
000120e0  ed 0d 73 3c 35 f2 77 73  77 28 77 6f 25 28 66 69  |..s<5.wsw(wo%(fi|
000120f0  6c 65 25 29 29 3a f2 77  73 77 28 72 25 28 66 69  |le%)):.wsw(r%(fi|
00012100  6c 65 25 29 29 3a f2 77  73 77 28 66 6c 25 28 66  |le%)):.wsw(fl%(f|
00012110  69 6c 65 25 29 29 0d 73  46 2f e3 49 25 3d 30 b8  |ile%)).sF/.I%=0.|
00012120  33 3a f2 77 73 77 28 74  25 28 66 69 6c 65 25 2c  |3:.wsw(t%(file%,|
00012130  49 25 29 29 3a ed 3a f2  77 73 28 6f 24 28 66 69  |I%)):.:.ws(o$(fi|
00012140  6c 65 25 29 29 0d 73 50  34 f2 77 73 77 28 6f 25  |le%)).sP4.wsw(o%|
00012150  28 66 69 6c 65 25 2c 30  29 29 3a f2 77 73 28 72  |(file%,0)):.ws(r|
00012160  24 28 66 69 6c 65 25 29  29 3a f2 77 73 28 73 72  |$(file%)):.ws(sr|
00012170  24 28 66 69 6c 65 25 29  29 0d 73 5a 32 f2 77 73  |$(file%)).sZ2.ws|
00012180  28 6c 24 28 66 69 6c 65  25 29 29 3a f2 77 73 28  |(l$(file%)):.ws(|
00012190  6c 6b 24 28 66 69 6c 65  25 29 29 3a f2 77 73 28  |lk$(file%)):.ws(|
000121a0  6c 78 24 28 66 69 6c 65  25 29 29 0d 73 64 21 e3  |lx$(file%)).sd!.|
000121b0  49 25 3d 30 b8 35 3a f2  77 73 77 28 6c 6c 25 28  |I%=0.5:.wsw(ll%(|
000121c0  66 69 6c 65 25 2c 49 25  29 29 3a ed 0d 73 6e 22  |file%,I%)):..sn"|
000121d0  e3 49 25 3d 30 b8 31 35  3a f2 77 73 77 28 6c 66  |.I%=0.15:.wsw(lf|
000121e0  25 28 66 69 6c 65 25 2c  49 25 29 29 3a ed 0d 73  |%(file%,I%)):..s|
000121f0  78 3c e3 49 25 3d 30 b8  34 3a f2 77 73 77 28 70  |x<.I%=0.4:.wsw(p|
00012200  25 28 66 69 6c 65 25 2c  49 25 29 29 3a ed 3a e3  |%(file%,I%)):.:.|
00012210  49 25 3d 30 b8 37 3a f2  77 73 28 70 24 28 66 69  |I%=0.7:.ws(p$(fi|
00012220  6c 65 25 2c 49 25 29 29  3a ed 0d 73 82 1f f2 77  |le%,I%)):..s...w|
00012230  73 77 28 6d 61 78 63 6f  6c 25 29 3a e3 49 25 3d  |sw(maxcol%):.I%=|
00012240  30 b8 6d 61 78 63 6f 6c  25 0d 73 8c 3e f2 77 73  |0.maxcol%.s.>.ws|
00012250  28 63 24 28 66 69 6c 65  25 2c 49 25 2c 30 29 29  |(c$(file%,I%,0))|
00012260  3a f2 77 73 28 63 24 28  66 69 6c 65 25 2c 49 25  |:.ws(c$(file%,I%|
00012270  2c 31 29 29 3a f2 77 73  77 28 63 25 28 66 69 6c  |,1)):.wsw(c%(fil|
00012280  65 25 2c 49 25 29 29 0d  73 96 39 ed 3a 73 74 25  |e%,I%)).s.9.:st%|
00012290  28 66 69 6c 65 25 2c 31  29 2b 3d 91 2f 31 30 30  |(file%,1)+=./100|
000122a0  2d 73 74 25 28 66 69 6c  65 25 2c 32 29 3a 73 74  |-st%(file%,2):st|
000122b0  25 28 66 69 6c 65 25 2c  32 29 3d 91 2f 31 30 30  |%(file%,2)=./100|
000122c0  0d 73 a0 39 73 74 25 28  66 69 6c 65 25 2c 30 29  |.s.9st%(file%,0)|
000122d0  2b 3d 31 3a f2 77 73 28  c3 73 74 25 28 66 69 6c  |+=1:.ws(.st%(fil|
000122e0  65 25 2c 30 29 29 3a f2  77 73 28 c3 73 74 25 28  |e%,0)):.ws(.st%(|
000122f0  66 69 6c 65 25 2c 31 29  29 0d 73 aa 05 e1 0d 73  |file%,1)).s....s|
00012300  b4 04 0d 73 be 22 dd a4  67 62 3a c8 99 73 77 69  |...s."..gb:..swi|
00012310  25 2c 73 64 32 35 5f 25  b8 47 25 3a 3d 28 47 25  |%,sd25_%.G%:=(G%|
00012320  3d 31 31 29 0d 73 c8 23  dd a4 67 62 32 3a c8 99  |=11).s.#..gb2:..|
00012330  73 77 69 25 2c 73 64 32  35 5f 25 b8 47 25 3a 3d  |swi%,sd25_%.G%:=|
00012340  28 47 25 3c 3e 30 29 0d  73 d2 1c dd a4 67 73 3a  |(G%<>0).s....gs:|
00012350  c8 99 73 77 69 25 2c 73  64 32 37 5f 25 3a 3d 24  |..swi%,sd27_%:=$|
00012360  73 64 25 0d 73 dc 22 dd  f2 77 73 28 54 24 29 3a  |sd%.s."..ws(T$):|
00012370  24 73 64 25 3d 54 24 3a  c8 99 73 77 69 25 2c 73  |$sd%=T$:..swi%,s|
00012380  64 32 38 5f 25 0d 73 e6  32 dd f2 77 73 62 28 54  |d28_%.s.2..wsb(T|
00012390  25 29 3a e7 54 25 c8 99  73 77 69 25 2c 73 64 32  |%):.T%..swi%,sd2|
000123a0  36 5f 25 2c 31 31 3a 8b  c8 99 73 77 69 25 2c 73  |6_%,11:...swi%,s|
000123b0  64 32 36 5f 25 2c 30 0d  73 f0 05 e1 0d 73 fa 04  |d26_%,0.s....s..|
000123c0  0d 74 04 2c dd a4 67 77  28 41 25 29 3a ea 54 25  |.t.,..gw(A%):.T%|
000123d0  2c 49 25 3a e3 49 25 3d  30 b8 33 3a c8 99 73 77  |,I%:.I%=0.3:..sw|
000123e0  69 25 2c 73 64 32 35 5f  25 b8 47 25 0d 74 0e 31  |i%,sd25_%.G%.t.1|
000123f0  54 25 3d 54 25 84 28 28  47 25 80 32 35 35 29 3c  |T%=T%.((G%.255)<|
00012400  3c 28 49 25 2a 38 29 29  3a ed 3a e7 54 25 3d 26  |<(I%*8)):.:.T%=&|
00012410  30 64 30 64 30 64 30 64  54 25 3d 41 25 0d 74 18  |0d0d0d0dT%=A%.t.|
00012420  07 3d 54 25 0d 74 22 04  0d 74 2c 34 dd f2 77 73  |.=T%.t"..t,4..ws|
00012430  77 28 54 25 29 3a ea 49  25 3a e3 49 25 3d 30 b8  |w(T%):.I%:.I%=0.|
00012440  33 3a 47 25 3d 54 25 80  32 35 35 3a c8 99 73 77  |3:G%=T%.255:..sw|
00012450  69 25 2c 73 64 32 36 5f  25 2c 47 25 0d 74 36 12  |i%,sd26_%,G%.t6.|
00012460  54 25 3d 28 54 25 3e 3e  38 29 3a ed 3a e1 0d 74  |T%=(T%>>8):.:..t|
00012470  40 04 0d 74 4a 0b dd a4  73 74 61 74 66 0d 74 54  |@..tJ...statf.tT|
00012480  2c ea 54 25 2c 49 25 3a  49 25 3d 31 34 3a 54 25  |,.T%,I%:I%=14:T%|
00012490  3d 2d 31 3a f5 3a 54 25  2b 3d 31 3a e7 54 25 3e  |=-1:.:T%+=1:.T%>|
000124a0  6d 61 78 66 25 3a 3d 2d  31 0d 74 5e 15 e7 77 25  |maxf%:=-1.t^..w%|
000124b0  28 54 25 2c 30 29 3e 30  3a 49 25 2b 3d 31 0d 74  |(T%,0)>0:I%+=1.t|
000124c0  68 2c fd 49 25 3d 6d 69  25 3a e7 77 25 28 54 25  |h,.I%=mi%:.w%(T%|
000124d0  2c 30 29 3e 30 3a f2 73  64 66 69 6c 65 28 54 25  |,0)>0:.sdfile(T%|
000124e0  29 3a 3d 54 25 3a 8b 3d  2d 31 0d 74 72 04 0d 74  |):=T%:.=-1.tr..t|
000124f0  7c 13 dd f2 77 61 6c 69  67 6e 3a ea 58 25 2c 59  ||...walign:.X%,Y|
00012500  25 0d 74 86 25 e7 6d 65  6e 75 66 69 6c 65 25 3c  |%.t.%.menufile%<|
00012510  30 e1 3a 8b f2 73 64 66  69 6c 65 28 6d 65 6e 75  |0.:..sdfile(menu|
00012520  66 69 6c 65 25 29 0d 74  90 2f 58 25 3d 66 69 6c  |file%).t./X%=fil|
00012530  65 25 2a 38 30 2b 70 61  6e 65 77 25 2b 38 3a 59  |e%*80+panew%+8:Y|
00012540  25 3d 39 30 30 2d 66 69  6c 65 25 2a 34 30 2d 70  |%=900-file%*40-p|
00012550  61 6e 65 68 25 0d 74 9a  37 f2 6f 70 65 6e 28 77  |aneh%.t.7.open(w|
00012560  25 28 66 69 6c 65 25 2c  30 29 2c 58 25 2c 59 25  |%(file%,0),X%,Y%|
00012570  2c 58 25 2b 70 61 6e 65  68 25 2c 59 25 2b 70 61  |,X%+paneh%,Y%+pa|
00012580  6e 65 68 25 2c 30 2c 30  2c 2d 31 29 0d 74 a4 24  |neh%,0,0,-1).t.$|
00012590  ea 49 25 3a e3 49 25 3d  32 b8 6d 61 78 77 25 3a  |.I%:.I%=2.maxw%:|
000125a0  e7 77 25 28 66 69 6c 65  25 2c 49 25 29 3e 30 8c  |.w%(file%,I%)>0.|
000125b0  0d 74 ae 44 f2 61 6c 69  67 6e 31 28 66 69 6c 65  |.t.D.align1(file|
000125c0  25 2c 49 25 29 3a f2 6f  70 65 6e 28 77 25 28 66  |%,I%):.open(w%(f|
000125d0  69 6c 65 25 2c 49 25 29  2c 74 78 30 25 2c 74 79  |ile%,I%),tx0%,ty|
000125e0  30 25 2c 74 78 31 25 2c  74 79 31 25 2c 30 2c 30  |0%,tx1%,ty1%,0,0|
000125f0  2c 2d 31 29 0d 74 b8 09  cd 3a ed 3a e1 0d 74 c2  |,-1).t...:.:..t.|
00012600  04 0d 74 cc 0c dd f2 67  72 61 62 70 72 0d 74 d6  |..t....grabpr.t.|
00012610  2f e7 70 72 69 6e 74 65  72 25 3e 3d 30 3a f2 65  |/.printer%>=0:.e|
00012620  72 72 28 34 32 29 3a 8b  e7 70 73 74 72 65 61 6d  |rr(42):..pstream|
00012630  25 3e 30 3a f2 65 72 72  28 34 31 29 0d 74 e0 2f  |%>0:.err(41).t./|
00012640  70 73 74 72 65 61 6d 25  3d ae 28 22 50 72 69 6e  |pstream%=.("Prin|
00012650  74 65 72 3a 22 29 3a e7  70 73 74 72 65 61 6d 25  |ter:"):.pstream%|
00012660  3d 30 3a f2 65 72 72 28  34 31 29 0d 74 ea 14 70  |=0:.err(41).t..p|
00012670  72 69 6e 74 65 72 25 3d  66 69 6c 65 25 3a e1 0d  |rinter%=file%:..|
00012680  74 f4 04 0d 74 fe 26 dd  f2 72 65 6c 65 61 73 65  |t...t.&..release|
00012690  70 72 3a e7 70 73 74 72  65 61 6d 25 3e 30 3a d9  |pr:.pstream%>0:.|
000126a0  23 70 73 74 72 65 61 6d  25 0d 75 08 1c 70 72 69  |#pstream%.u..pri|
000126b0  6e 74 65 72 25 3d 2d 32  3a 70 73 74 72 65 61 6d  |nter%=-2:pstream|
000126c0  25 3d 30 3a e1 0d 75 12  04 0d 75 1c 11 dd f2 70  |%=0:..u...u....p|
000126d0  70 72 69 6e 74 31 28 54  24 29 0d 75 26 06 ea 85  |print1(T$).u&...|
000126e0  0d 75 30 2f ee 85 ea 3a  f7 85 3a c8 99 22 48 6f  |.u0/...:..:.."Ho|
000126f0  75 72 67 6c 61 73 73 5f  4f 66 66 22 3a ff 22 66  |urglass_Off":."f|
00012700  78 32 32 39 2c 31 22 3a  f2 65 72 72 28 30 29 0d  |x229,1":.err(0).|
00012710  75 3a 1b c8 99 22 48 6f  75 72 67 6c 61 73 73 5f  |u:..."Hourglass_|
00012720  4f 6e 22 3a 2a 66 78 32  32 39 0d 75 44 12 d5 23  |On":*fx229.uD..#|
00012730  70 73 74 72 65 61 6d 25  2c 54 24 3b 0d 75 4e 21  |pstream%,T$;.uN!|
00012740  f7 85 3a c8 99 22 48 6f  75 72 67 6c 61 73 73 5f  |..:.."Hourglass_|
00012750  4f 66 66 22 3a 2a 66 78  32 32 39 2c 31 0d 75 58  |Off":*fx229,1.uX|
00012760  05 e1 0d 75 62 04 0d 75  6c 26 dd f2 70 70 72 69  |...ub..ul&..ppri|
00012770  6e 74 28 54 24 29 3a f2  70 70 72 69 6e 74 31 28  |nt(T$):.pprint1(|
00012780  54 24 29 3a f2 70 6e 65  77 6c 3a e1 0d 75 76 04  |T$):.pnewl:..uv.|
00012790  0d 75 80 2d dd f2 70 70  61 67 65 3a e7 70 64 72  |.u.-..ppage:.pdr|
000127a0  69 76 65 72 25 3a f2 70  70 72 69 6e 74 31 28 50  |iver%:.pprint1(P|
000127b0  44 66 66 24 29 3a 8b f2  70 6e 65 77 6c 0d 75 8a  |Dff$):..pnewl.u.|
000127c0  0f e7 ac 6d 61 6e 75 61  6c 25 3a e1 0d 75 94 46  |...manual%:..u.F|
000127d0  21 71 25 3d 39 39 3a 24  28 71 25 2b 34 29 3d 22  |!q%=99:$(q%+4)="|
000127e0  50 6c 65 61 73 65 20 6c  6f 61 64 20 61 20 6e 65  |Please load a ne|
000127f0  77 20 73 68 65 65 74 20  6f 66 20 70 61 70 65 72  |w sheet of paper|
00012800  20 69 6e 74 6f 20 74 68  65 20 70 72 69 6e 74 65  | into the printe|
00012810  72 22 0d 75 9e 21 c8 99  20 22 57 69 6d 70 5f 52  |r".u.!.. "Wimp_R|
00012820  65 70 6f 72 74 45 72 72  6f 72 22 2c 71 25 2c 31  |eportError",q%,1|
00012830  37 3a e1 0d 75 a8 04 0d  75 b2 0b dd f2 70 6e 65  |7:..u...u....pne|
00012840  77 6c 0d 75 bc 06 ea 85  0d 75 c6 2f ee 85 ea 3a  |wl.u.....u./...:|
00012850  f7 85 3a c8 99 22 48 6f  75 72 67 6c 61 73 73 5f  |..:.."Hourglass_|
00012860  4f 66 66 22 3a ff 22 66  78 32 32 39 2c 31 22 3a  |Off":."fx229,1":|
00012870  f2 65 72 72 28 30 29 0d  75 d0 1b c8 99 22 48 6f  |.err(0).u...."Ho|
00012880  75 72 67 6c 61 73 73 5f  4f 6e 22 3a 2a 66 78 32  |urglass_On":*fx2|
00012890  32 39 0d 75 da 1b e7 70  74 65 72 6d 25 3e 30 3a  |29.u...pterm%>0:|
000128a0  d5 23 70 73 74 72 65 61  6d 25 2c 31 33 0d 75 e4  |.#pstream%,13.u.|
000128b0  1c e7 70 74 65 72 6d 25  3c 3e 31 3a d5 23 70 73  |..pterm%<>1:.#ps|
000128c0  74 72 65 61 6d 25 2c 31  30 0d 75 ee 21 f7 85 3a  |tream%,10.u.!..:|
000128d0  c8 99 22 48 6f 75 72 67  6c 61 73 73 5f 4f 66 66  |.."Hourglass_Off|
000128e0  22 3a 2a 66 78 32 32 39  2c 31 0d 75 f8 05 e1 0d  |":*fx229,1.u....|
000128f0  76 02 04 0d 76 0c 22 dd  f2 64 70 72 69 6e 74 31  |v...v."..dprint1|
00012900  28 54 24 29 3a d5 23 6f  75 74 66 69 6c 65 25 2c  |(T$):.#outfile%,|
00012910  54 24 3b 3a e1 0d 76 16  04 0d 76 20 26 dd f2 64  |T$;:..v...v &..d|
00012920  70 72 69 6e 74 28 54 24  29 3a f2 64 70 72 69 6e  |print(T$):.dprin|
00012930  74 31 28 54 24 29 3a f2  64 6e 65 77 6c 3a e1 0d  |t1(T$):.dnewl:..|
00012940  76 2a 04 0d 76 34 34 dd  f2 6f 66 6f 6e 74 28 54  |v*..v44..ofont(T|
00012950  25 2c 4f 25 29 3a e7 70  64 72 69 76 65 72 25 f2  |%,O%):.pdriver%.|
00012960  6f 70 72 69 6e 74 31 28  50 44 66 6f 6e 74 24 28  |oprint1(PDfont$(|
00012970  54 25 29 2c 4f 25 29 0d  76 3e 05 e1 0d 76 48 04  |T%),O%).v>...vH.|
00012980  0d 76 52 1b dd f2 64 6e  65 77 6c 3a d5 23 6f 75  |.vR...dnewl:.#ou|
00012990  74 66 69 6c 65 25 2c 22  22 3a e1 0d 76 5c 04 0d  |tfile%,"":..v\..|
000129a0  76 66 22 dd f2 6f 6e 65  77 6c 28 54 25 29 3a e7  |vf"..onewl(T%):.|
000129b0  54 25 3a f2 64 6e 65 77  6c 3a 8b f2 70 6e 65 77  |T%:.dnewl:..pnew|
000129c0  6c 0d 76 70 30 dd f2 6f  70 72 69 6e 74 28 54 24  |l.vp0..oprint(T$|
000129d0  2c 54 25 29 3a e7 54 25  3a f2 64 70 72 69 6e 74  |,T%):.T%:.dprint|
000129e0  28 54 24 29 3a 8b f2 70  70 72 69 6e 74 28 54 24  |(T$):..pprint(T$|
000129f0  29 0d 76 7a 33 dd f2 6f  70 72 69 6e 74 31 28 54  |).vz3..oprint1(T|
00012a00  24 2c 54 25 29 3a e7 54  25 3a f2 64 70 72 69 6e  |$,T%):.T%:.dprin|
00012a10  74 31 28 54 24 29 3a 8b  f2 70 70 72 69 6e 74 31  |t1(T$):..pprint1|
00012a20  28 54 24 29 0d 76 84 05  e1 0d 76 8e 04 0d 76 98  |(T$).v....v...v.|
00012a30  0d dd f2 61 73 63 63 61  72 64 0d 76 a2 1f ea 68  |...asccard.v...h|
00012a40  25 2c 49 25 2c 54 25 3a  54 25 3d 8e 66 69 6c 65  |%,I%,T%:T%=.file|
00012a50  24 3a e7 54 25 3d 30 3a  e1 0d 76 ac 28 49 25 3d  |$:.T%=0:..v.(I%=|
00012a60  31 3a 68 25 3d a4 68 74  3a c8 95 49 25 3c 3d 68  |1:h%=.ht:..I%<=h|
00012a70  25 80 ac c5 23 54 25 3a  24 73 64 25 3d be 23 54  |%...#T%:$sd%=.#T|
00012a80  25 0d 76 b6 18 c8 99 73  77 69 25 2c 73 64 30 30  |%.v....swi%,sd00|
00012a90  5f 25 2c 73 64 25 2c 49  25 0d 76 c0 22 49 25 2b  |_%,sd%,I%.v."I%+|
00012aa0  3d 31 3a ce 3a d9 23 54  25 3a c8 99 73 77 69 25  |=1:.:.#T%:..swi%|
00012ab0  2c 73 64 33 38 5f 25 2c  32 35 35 0d 76 ca 11 c8  |,sd38_%,255.v...|
00012ac0  99 73 77 69 25 2c 73 64  33 38 5f 25 0d 76 d4 19  |.swi%,sd38_%.v..|
00012ad0  f2 66 6f 72 63 65 63 61  72 64 3a f2 6e 6f 73 63  |.forcecard:.nosc|
00012ae0  72 61 70 3a e1 0d 76 de  04 0d 76 e8 29 dd f2 67  |rap:..v...v.)..g|
00012af0  65 74 70 61 73 73 3a 77  5f 70 61 73 73 77 25 3d  |etpass:w_passw%=|
00012b00  a4 63 72 77 69 6e 64 28  74 77 5f 70 61 73 73 77  |.crwind(tw_passw|
00012b10  25 29 0d 76 f2 35 f2 73  65 74 69 28 77 5f 70 61  |%).v.5.seti(w_pa|
00012b20  73 73 77 25 2c 30 2c 22  46 69 6c 65 20 22 2b a4  |ssw%,0,"File "+.|
00012b30  66 69 6c 65 6e 61 6d 65  2b 22 2c 20 70 61 73 73  |filename+", pass|
00012b40  77 6f 72 64 3a 22 29 0d  76 fc 42 f2 73 65 74 69  |word:").v.B.seti|
00012b50  28 77 5f 70 61 73 73 77  25 2c 31 2c 22 22 29 3a  |(w_passw%,1,""):|
00012b60  f2 73 65 74 69 28 77 5f  70 61 73 73 77 25 2c 32  |.seti(w_passw%,2|
00012b70  2c 22 22 29 3a f2 73 65  74 69 28 77 5f 70 61 73  |,""):.seti(w_pas|
00012b80  73 77 25 2c 35 2c 22 22  29 0d 77 06 19 f2 64 69  |sw%,5,"").w...di|
00012b90  61 6c 6f 67 75 65 28 77  5f 70 61 73 73 77 25 29  |alogue(w_passw%)|
00012ba0  3a e1 0d 77 10 04 0d 77  1a 34 dd f2 6e 65 77 66  |:..w...w.4..newf|
00012bb0  6e 28 f8 20 54 24 29 3a  e7 a4 75 28 66 69 6c 65  |n(. T$):..u(file|
00012bc0  24 29 3c 3e 22 3c 57 49  4d 50 24 53 43 52 41 50  |$)<>"<WIMP$SCRAP|
00012bd0  3e 22 54 24 3d 66 69 6c  65 24 0d 77 24 05 e1 0d  |>"T$=file$.w$...|
00012be0  77 2e 04 0d 77 38 17 dd  f2 72 65 61 64 70 61 72  |w...w8...readpar|
00012bf0  61 6d 73 3a ea 49 25 2c  46 25 0d 77 42 44 6d 61  |ams:.I%,F%.wBDma|
00012c00  78 66 25 3d 31 3a 6d 61  78 61 63 72 25 3d 34 3a  |xf%=1:maxacr%=4:|
00012c10  6d 61 78 63 6f 6c 25 3d  32 39 3a 61 76 63 68 61  |maxcol%=29:avcha|
00012c20  72 25 3d 36 35 3a 6d 61  6e 75 61 6c 25 3d a3 3a  |r%=65:manual%=.:|
00012c30  6d 61 78 66 69 65 6c 64  73 25 3d 32 35 30 0d 77  |maxfields%=250.w|
00012c40  4c 34 73 74 6f 70 62 6f  78 65 73 25 3d b9 3a 73  |L4stopboxes%=.:s|
00012c50  6f 75 6e 64 25 3d b9 3a  73 68 61 64 6f 77 73 25  |ound%=.:shadows%|
00012c60  3d b9 3a 74 6f 6f 6c 73  25 3d b9 3a 70 69 78 25  |=.:tools%=.:pix%|
00012c70  3d a3 0d 77 56 2d 63 6c  65 61 72 70 61 73 73 25  |=..wV-clearpass%|
00012c80  3d b9 3a 73 70 72 73 7a  25 3d 30 3a 64 70 6c 65  |=.:sprsz%=0:dple|
00012c90  6e 25 3d 36 36 3a 64 70  77 69 64 25 3d 37 39 0d  |n%=66:dpwid%=79.|
00012ca0  77 60 47 66 5f 6c 61 24  3d 22 4c 61 62 65 6c 53  |w`Gf_la$="LabelS|
00012cb0  65 74 22 3a 66 5f 77 70  24 3d 22 57 6f 72 64 53  |et":f_wp$="WordS|
00012cc0  65 74 22 3a 66 5f 72 70  24 3d 22 52 65 70 6f 72  |et":f_rp$="Repor|
00012cd0  74 53 65 74 22 3a 66 5f  74 66 24 3d 22 54 72 61  |tSet":f_tf$="Tra|
00012ce0  6e 73 53 65 74 22 0d 77  6a 3d 66 5f 6e 70 24 3d  |nsSet".wj=f_np$=|
00012cf0  22 4e 6f 74 65 70 61 64  22 3a 66 5f 6d 63 24 3d  |"Notepad":f_mc$=|
00012d00  22 4d 61 63 72 6f 22 3a  66 5f 72 78 24 3d 22 52  |"Macro":f_rx$="R|
00012d10  65 70 6f 72 74 22 3a 66  5f 63 64 24 3d 22 43 61  |eport":f_cd$="Ca|
00012d20  72 64 22 0d 77 74 13 6d  61 63 73 25 3d b9 3a 6d  |rd".wt.macs%=.:m|
00012d30  61 63 75 25 3d b9 0d 77  7e 17 46 25 3d 8e 28 a4  |acu%=..w~.F%=.(.|
00012d40  64 69 72 2b 22 50 61 72  61 6d 73 22 29 0d 77 88  |dir+"Params").w.|
00012d50  27 e7 46 25 3a c8 95 ac  c5 23 46 25 3a f2 72 65  |'.F%:....#F%:.re|
00012d60  61 64 70 61 72 61 6d 28  be 23 46 25 29 3a ce 3a  |adparam(.#F%):.:|
00012d70  d9 23 46 25 0d 77 92 35  de 66 64 24 28 6d 61 78  |.#F%.w.5.fd$(max|
00012d80  66 69 65 6c 64 73 25 29  2c 66 64 25 28 6d 61 78  |fields%),fd%(max|
00012d90  66 69 65 6c 64 73 25 29  2c 66 64 78 24 28 6d 61  |fields%),fdx$(ma|
00012da0  78 66 69 65 6c 64 73 25  29 0d 77 9c 1f 70 69 78  |xfields%).w..pix|
00012db0  25 3d 73 70 72 73 7a 25  3e 35 30 3a f2 72 65 61  |%=sprsz%>50:.rea|
00012dc0  64 66 6c 61 67 73 3a e1  0d 77 a6 04 0d 77 b0 13  |dflags:..w...w..|
00012dd0  dd f2 72 65 61 64 70 61  72 61 6d 28 54 24 29 0d  |..readparam(T$).|
00012de0  77 ba 1f 54 24 3d a4 73  31 28 54 24 29 3a e7 54  |w..T$=.s1(T$):.T|
00012df0  24 3d 22 22 84 97 54 24  3d 97 22 3b 22 e1 0d 77  |$=""..T$=.";"..w|
00012e00  c4 29 ea 56 24 2c 54 25  2c 6f 6e 2c 6f 66 66 3a  |.).V$,T%,on,off:|
00012e10  6f 6e 3d b9 3a 54 25 3d  a7 54 24 2c 22 20 22 29  |on=.:T%=.T$," ")|
00012e20  3a e7 54 25 3d 30 e1 0d  77 ce 26 56 24 3d c1 54  |:.T%=0..w.&V$=.T|
00012e30  24 2c 54 25 29 3a 54 24  3d c0 54 24 2c 54 25 2d  |$,T%):T$=.T$,T%-|
00012e40  31 29 3a 56 24 3d a4 73  31 28 56 24 29 0d 77 d8  |1):V$=.s1(V$).w.|
00012e50  1f 54 25 3d a7 56 24 2c  22 3b 22 29 3a e7 54 25  |.T%=.V$,";"):.T%|
00012e60  56 24 3d c0 56 24 2c 54  25 2d 31 29 0d 77 e2 0f  |V$=.V$,T%-1).w..|
00012e70  ea 85 3a ee 85 ea 3a f7  85 3a e1 0d 77 ec 11 c8  |..:...:..:..w...|
00012e80  8e a4 6c 6f 77 65 72 28  54 24 29 ca 0d 77 f6 1a  |..lower(T$)..w..|
00012e90  c9 22 73 68 61 64 6f 77  22 3a 73 68 61 64 6f 77  |."shadow":shadow|
00012ea0  73 25 3d a0 56 24 0d 78  00 1f c9 22 73 74 6f 70  |s%=.V$.x..."stop|
00012eb0  62 6f 78 65 73 22 3a 73  74 6f 70 62 6f 78 65 73  |boxes":stopboxes|
00012ec0  25 3d a0 56 24 0d 78 0a  17 c9 22 73 6f 75 6e 64  |%=.V$.x..."sound|
00012ed0  22 3a 73 6f 75 6e 64 25  3d a0 56 24 0d 78 14 17  |":sound%=.V$.x..|
00012ee0  c9 22 74 6f 6f 6c 73 22  3a 74 6f 6f 6c 73 25 3d  |."tools":tools%=|
00012ef0  a0 56 24 0d 78 1e 19 c9  22 66 6e 70 72 69 6e 74  |.V$.x..."fnprint|
00012f00  65 72 22 3a 66 5f 70 64  24 3d 56 24 0d 78 28 17  |er":f_pd$=V$.x(.|
00012f10  c9 22 66 6e 6c 61 62 65  6c 22 3a 66 5f 6c 61 24  |."fnlabel":f_la$|
00012f20  3d 56 24 0d 78 32 19 c9  22 66 6e 77 6f 72 64 70  |=V$.x2.."fnwordp|
00012f30  72 6f 22 3a 66 5f 77 70  24 3d 56 24 0d 78 3c 18  |ro":f_wp$=V$.x<.|
00012f40  c9 22 66 6e 72 65 70 73  65 74 22 3a 66 5f 72 70  |."fnrepset":f_rp|
00012f50  24 3d 56 24 0d 78 46 19  c9 22 66 6e 6e 6f 74 65  |$=V$.xF.."fnnote|
00012f60  70 61 64 22 3a 66 5f 6e  70 24 3d 56 24 0d 78 50  |pad":f_np$=V$.xP|
00012f70  17 c9 22 66 6e 6d 61 63  72 6f 22 3a 66 5f 6d 63  |.."fnmacro":f_mc|
00012f80  24 3d 56 24 0d 78 5a 18  c9 22 66 6e 72 65 70 6f  |$=V$.xZ.."fnrepo|
00012f90  72 74 22 3a 66 5f 72 78  24 3d 56 24 0d 78 64 16  |rt":f_rx$=V$.xd.|
00012fa0  c9 22 66 6e 63 61 72 64  22 3a 66 5f 63 64 24 3d  |."fncard":f_cd$=|
00012fb0  56 24 0d 78 6e 1a c9 22  66 6e 74 72 61 6e 73 66  |V$.xn.."fntransf|
00012fc0  65 72 22 3a 66 5f 74 66  24 3d 56 24 0d 78 78 1f  |er":f_tf$=V$.xx.|
00012fd0  c9 22 63 6c 65 61 72 70  61 73 73 22 3a 63 6c 65  |."clearpass":cle|
00012fe0  61 72 70 61 73 73 25 3d  a0 56 24 0d 78 82 19 c9  |arpass%=.V$.x...|
00012ff0  22 70 61 67 65 6c 65 6e  22 3a 64 70 6c 65 6e 25  |"pagelen":dplen%|
00013000  3d a0 56 24 0d 78 8c 19  c9 22 70 61 67 65 77 69  |=.V$.x..."pagewi|
00013010  64 22 3a 64 70 77 69 64  25 3d a0 56 24 0d 78 96  |d":dpwid%=.V$.x.|
00013020  1a c9 22 70 69 63 74 75  72 65 73 22 3a 73 70 72  |.."pictures":spr|
00013030  73 7a 25 3d a0 56 24 0d  78 a0 19 c9 22 6c 61 62  |sz%=.V$.x..."lab|
00013040  65 6c 73 22 3a 6d 61 78  61 63 72 25 3d a0 56 24  |els":maxacr%=.V$|
00013050  0d 78 aa 1c c9 22 63 6f  6c 75 6d 6e 73 22 3a 6d  |.x..."columns":m|
00013060  61 78 63 6f 6c 25 3d a0  56 24 2d 31 0d 78 b4 3c  |axcol%=.V$-1.x.<|
00013070  c9 22 61 76 65 72 61 67  65 22 3a 61 76 63 68 61  |."average":avcha|
00013080  72 25 3d 97 56 24 3a e7  61 76 63 68 61 72 25 3c  |r%=.V$:.avchar%<|
00013090  33 32 84 61 76 63 68 61  72 25 3d 31 32 37 61 76  |32.avchar%=127av|
000130a0  63 68 61 72 25 3d 36 35  0d 78 be 19 c9 22 6d 61  |char%=65.x..."ma|
000130b0  6e 75 61 6c 22 3a 6d 61  6e 75 61 6c 25 3d a0 56  |nual":manual%=.V|
000130c0  24 0d 78 c8 1e c9 22 74  72 61 6e 73 66 64 73 22  |$.x..."transfds"|
000130d0  3a 6d 61 78 66 69 65 6c  64 73 25 3d a0 56 24 0d  |:maxfields%=.V$.|
000130e0  78 d2 19 c9 22 6d 61 63  72 6f 75 70 70 22 3a 6d  |x..."macroupp":m|
000130f0  61 63 75 25 3d a0 56 24  0d 78 dc 19 c9 22 6d 61  |acu%=.V$.x..."ma|
00013100  63 72 6f 73 70 63 22 3a  6d 61 63 73 25 3d a0 56  |crospc":macs%=.V|
00013110  24 0d 78 e6 07 cb 3a e1  0d 78 f0 04 0d 78 fa 21  |$.x...:..x...x.!|
00013120  dd a4 73 31 28 54 24 29  3a c8 95 97 54 24 3d 33  |..s1(T$):...T$=3|
00013130  32 3a 54 24 3d c1 54 24  2c 32 29 3a ce 0d 79 04  |2:T$=.T$,2):..y.|
00013140  1c c8 95 c2 54 24 29 3d  22 20 22 3a 54 24 3d c0  |....T$)=" ":T$=.|
00013150  54 24 29 3a ce 3a 3d 54  24 0d 79 0e 04 0d 79 18  |T$):.:=T$.y...y.|
00013160  1f dd f2 73 77 61 70 37  3a f2 66 6f 72 63 65 28  |...swap7:.force(|
00013170  77 25 28 66 69 6c 65 25  2c 30 29 29 0d 79 22 1b  |w%(file%,0)).y".|
00013180  c8 99 73 77 69 25 2c 73  64 35 37 5f 25 2c 22 62  |..swi%,sd57_%,"b|
00013190  69 74 37 22 b8 47 25 0d  79 2c 23 47 25 3d 47 25  |it7".G%.y,#G%=G%|
000131a0  82 31 3a c8 99 73 77 69  25 2c 73 64 35 38 5f 25  |.1:..swi%,sd58_%|
000131b0  2c 47 25 2c 22 62 69 74  37 22 0d 79 36 1b c8 99  |,G%,"bit7".y6...|
000131c0  73 77 69 25 2c 73 64 35  37 5f 25 2c 22 62 69 74  |swi%,sd57_%,"bit|
000131d0  37 22 b8 47 25 0d 79 40  22 f2 66 6c 67 28 66 5f  |7".G%.y@".flg(f_|
000131e0  37 62 69 74 25 2c 47 25  29 3a c8 99 73 77 69 25  |7bit%,G%):..swi%|
000131f0  2c 73 64 33 39 5f 25 0d  79 4a 05 e1 0d 79 54 04  |,sd39_%.yJ...yT.|
00013200  0d 79 5e 1b dd a4 70 77  63 6f 64 65 28 54 24 29  |.y^...pwcode(T$)|
00013210  3a e7 54 24 3d 22 22 3a  3d 22 22 0d 79 68 17 ea  |:.T$="":="".yh..|
00013220  41 25 2c 42 25 2c 49 25  3a e3 49 25 3d 31 b8 a9  |A%,B%,I%:.I%=1..|
00013230  54 24 0d 79 72 22 c1 54  24 2c 49 25 2c 31 29 3d  |T$.yr".T$,I%,1)=|
00013240  bd 28 97 c1 54 24 2c 49  25 29 82 28 49 25 2b 31  |.(..T$,I%).(I%+1|
00013250  37 33 29 29 0d 79 7c 09  ed 3a 3d 54 24 0d 79 86  |73)).y|..:=T$.y.|
00013260  04 0d 79 90 2c dd a4 70  69 63 66 69 65 6c 64 28  |..y.,..picfield(|
00013270  54 25 29 3a c8 99 73 77  69 25 2c 73 64 31 37 5f  |T%):..swi%,sd17_|
00013280  25 2c 39 2c 54 25 2c 73  64 24 b8 47 25 0d 79 9a  |%,9,T%,sd$.G%.y.|
00013290  12 c8 99 73 77 69 25 2c  75 70 70 65 72 5f 25 0d  |...swi%,upper_%.|
000132a0  79 a4 25 3d c0 24 73 64  25 2c 33 29 3d 22 50 49  |y.%=.$sd%,3)="PI|
000132b0  43 22 80 73 64 25 3f 33  3e 34 37 80 73 64 25 3f  |C".sd%?3>47.sd%?|
000132c0  33 3c 35 38 0d 79 ae 04  0d 79 b8 23 dd a4 72 65  |3<58.y...y.#..re|
000132d0  61 64 6f 6e 6c 79 3a c8  99 73 77 69 25 2c 73 64  |adonly:..swi%,sd|
000132e0  31 33 5f 25 2c 26 45 36  b8 47 25 0d 79 c2 0f 3d  |13_%,&E6.G%.y..=|
000132f0  28 47 25 80 33 32 29 3c  3e 30 0d 79 cc 04 0d 79  |(G%.32)<>0.y...y|
00013300  d6 29 dd a4 6e 69 6e 64  69 63 65 73 3a c8 99 73  |.)..nindices:..s|
00013310  77 69 25 2c 73 64 35 37  5f 25 2c 22 69 6e 64 69  |wi%,sd57_%,"indi|
00013320  63 65 73 22 b8 47 25 0d  79 e0 07 3d 47 25 0d 79  |ces".G%.y..=G%.y|
00013330  ea 04 0d 79 f4 25 dd f2  75 70 70 6c 69 74 28 f8  |...y.%..upplit(.|
00013340  20 41 24 29 3a ea 51 25  2c 49 25 2c 43 25 3a e7  | A$):.Q%,I%,C%:.|
00013350  41 24 3d 22 22 3a e1 0d  79 fe 26 e3 49 25 3d 31  |A$="":..y.&.I%=1|
00013360  b8 a9 41 24 3a 43 25 3d  97 c1 41 24 2c 49 25 29  |..A$:C%=..A$,I%)|
00013370  3a e7 43 25 3d 33 34 51  25 3d ac 51 25 0d 7a 08  |:.C%=34Q%=.Q%.z.|
00013380  26 e7 51 25 80 43 25 3e  39 36 80 43 25 3c 31 32  |&.Q%.C%>96.C%<12|
00013390  33 c1 41 24 2c 49 25 2c  31 29 3d bd 28 43 25 2d  |3.A$,I%,1)=.(C%-|
000133a0  33 32 29 0d 7a 12 07 ed  3a e1 0d 7a 1c 04 0d 7a  |32).z...:..z...z|
000133b0  26 0e dd f2 6e 65 77 6e  6f 74 65 73 0d 7a 30 18  |&...newnotes.z0.|
000133c0  f2 6e 65 77 66 69 6c 74  3a f2 76 61 6c 69 64 72  |.newfilt:.validr|
000133d0  65 63 3a e1 0d 7a 3a 04  0d 7a 44 0d dd f2 6e 65  |ec:..z:..zD...ne|
000133e0  77 66 69 6c 74 0d 7a 4e  17 ea 85 3a ee 85 ea 3a  |wfilt.zN...:...:|
000133f0  f7 85 3a f2 6e 6f 66 69  6c 74 3a e1 0d 7a 58 35  |..:.nofilt:..zX5|
00013400  ea 54 24 3a 54 24 3d a4  78 31 28 66 24 28 66 69  |.T$:T$=.x1(f$(fi|
00013410  6c 65 25 29 29 3a 66 78  24 28 66 69 6c 65 25 29  |le%)):fx$(file%)|
00013420  3d 54 24 3a f2 73 68 6f  77 66 69 6c 74 65 72 3a  |=T$:.showfilter:|
00013430  e1 0d 7a 62 04 0d 7a 6c  16 dd f2 63 72 65 61 74  |..zb..zl...creat|
00013440  65 3a ea 54 25 2c 42 25  2c 54 24 0d 7a 76 16 e7  |e:.T%,B%,T$.zv..|
00013450  a4 76 5f 28 31 29 3e 30  f2 65 72 72 28 31 30 30  |.v_(1)>0.err(100|
00013460  29 0d 7a 80 16 ea 85 3a  ee 85 ea 3a f7 85 3a f2  |).z....:...:..:.|
00013470  65 72 72 28 36 30 29 0d  7a 8a 2d 54 24 3d a4 64  |err(60).z.-T$=.d|
00013480  69 72 2b 22 4d 53 43 72  65 61 74 65 22 3a 54 25  |ir+"MSCreate":T%|
00013490  3d 8e 28 54 24 29 3a e7  54 25 3d 30 f2 65 72 72  |=.(T$):.T%=0.err|
000134a0  28 35 39 29 0d 7a 94 1f  42 25 3d 9a 23 54 25 3a  |(59).z..B%=.#T%:|
000134b0  d9 23 54 25 3a f2 77 72  69 74 65 66 6c 61 67 73  |.#T%:.writeflags|
000134c0  3a f7 85 0d 7a 9e 27 ee  85 f2 65 72 72 6f 72 28  |:...z.'...error(|
000134d0  9f 2c f6 24 2c 9e 2c b9  29 3a f2 72 65 70 6f 72  |.,.$,.,.):.repor|
000134e0  74 3a f2 71 75 69 74 28  a3 29 0d 7a a8 31 f2 64  |t:.quit(.).z.1.d|
000134f0  65 6c 77 28 77 5f 73 74  6f 70 25 29 3a f2 64 65  |elw(w_stop%):.de|
00013500  6c 77 28 77 5f 73 61 76  65 25 29 3a f2 64 65 6c  |lw(w_save%):.del|
00013510  77 28 77 5f 70 69 6e 66  6f 25 29 0d 7a b2 25 f2  |w(w_pinfo%).z.%.|
00013520  64 65 6c 77 28 77 5f 70  69 6e 66 6f 32 25 29 3a  |delw(w_pinfo2%):|
00013530  f2 64 65 6c 77 28 77 5f  73 68 61 64 6f 77 25 29  |.delw(w_shadow%)|
00013540  0d 7a bc 24 e7 77 5f 74  72 61 6e 73 66 65 72 25  |.z.$.w_transfer%|
00013550  3e 30 f2 64 65 6c 77 28  77 5f 74 72 61 6e 73 66  |>0.delw(w_transf|
00013560  65 72 25 29 0d 7a c6 29  f2 6e 6f 72 6d 70 6f 69  |er%).z.).normpoi|
00013570  6e 74 3a 2a 53 65 74 20  4d 75 6c 74 69 53 74 6f  |nt:*Set MultiSto|
00013580  72 65 24 46 75 6e 63 74  69 6f 6e 20 31 0d 7a d0  |re$Function 1.z.|
00013590  22 5a 25 3d 74 61 73 6b  68 61 6e 64 6c 65 25 3a  |"Z%=taskhandle%:|
000135a0  f2 6e 6f 76 61 72 73 3a  d7 28 54 24 29 3a e0 0d  |.novars:.(T$):..|
000135b0  7a da 04 0d 7a e4 0e dd  f2 74 72 61 6e 73 66 65  |z...z....transfe|
000135c0  72 0d 7a ee 33 e7 77 5f  74 72 61 6e 73 66 65 72  |r.z.3.w_transfer|
000135d0  25 3c 30 77 5f 74 72 61  6e 73 66 65 72 25 3d a4  |%<0w_transfer%=.|
000135e0  63 72 77 69 6e 64 28 74  77 5f 74 72 61 6e 73 66  |crwind(tw_transf|
000135f0  65 72 25 29 0d 7a f8 1a  f2 75 6e 73 65 6c 61 6c  |er%).z...unselal|
00013600  6c 28 77 5f 74 72 61 6e  73 66 65 72 25 29 0d 7b  |l(w_transfer%).{|
00013610  02 47 f2 73 65 74 69 28  77 5f 74 72 61 6e 73 66  |.G.seti(w_transf|
00013620  65 72 25 2c 32 2c 22 28  4e 4f 54 20 4f 50 45 4e  |er%,2,"(NOT OPEN|
00013630  29 22 29 3a f2 73 65 74  69 28 77 5f 74 72 61 6e  |)"):.seti(w_tran|
00013640  73 66 65 72 25 2c 34 2c  22 28 4e 4f 54 20 4f 50  |sfer%,4,"(NOT OP|
00013650  45 4e 29 22 29 0d 7b 0c  3d e7 77 25 28 73 6f 75  |EN)").{.=.w%(sou|
00013660  72 63 65 25 2c 30 29 3e  30 3a f2 73 65 74 69 28  |rce%,0)>0:.seti(|
00013670  77 5f 74 72 61 6e 73 66  65 72 25 2c 32 2c a4 6f  |w_transfer%,2,.o|
00013680  66 69 6c 65 6e 61 6d 65  28 73 6f 75 72 63 65 25  |filename(source%|
00013690  29 29 0d 7b 16 3d e7 77  25 28 74 61 72 67 65 74  |)).{.=.w%(target|
000136a0  25 2c 30 29 3e 30 3a f2  73 65 74 69 28 77 5f 74  |%,0)>0:.seti(w_t|
000136b0  72 61 6e 73 66 65 72 25  2c 34 2c a4 6f 66 69 6c  |ransfer%,4,.ofil|
000136c0  65 6e 61 6d 65 28 74 61  72 67 65 74 25 29 29 0d  |ename(target%)).|
000136d0  7b 20 1e e7 74 63 64 25  3a f2 73 65 6c 69 28 77  |{ ..tcd%:.seli(w|
000136e0  5f 74 72 61 6e 73 66 65  72 25 2c 30 29 0d 7b 2a  |_transfer%,0).{*|
000136f0  1f e7 74 77 73 25 3a f2  73 65 6c 69 28 77 5f 74  |..tws%:.seli(w_t|
00013700  72 61 6e 73 66 65 72 25  2c 31 30 29 0d 7b 34 1f  |ransfer%,10).{4.|
00013710  e7 74 6e 73 25 3a f2 73  65 6c 69 28 77 5f 74 72  |.tns%:.seli(w_tr|
00013720  61 6e 73 66 65 72 25 2c  31 31 29 0d 7b 3e 1f e7  |ansfer%,11).{>..|
00013730  74 73 62 25 3a f2 73 65  6c 69 28 77 5f 74 72 61  |tsb%:.seli(w_tra|
00013740  6e 73 66 65 72 25 2c 31  32 29 0d 7b 48 1f f2 66  |nsfer%,12).{H..f|
00013750  72 6f 6e 74 28 77 5f 74  72 61 6e 73 66 65 72 25  |ront(w_transfer%|
00013760  2c 2d 31 2c 2d 31 29 3a  e1 0d 7b 52 04 0d 7b 5c  |,-1,-1):..{R..{\|
00013770  1a dd f2 63 68 65 63 6b  63 6f 6e 76 28 54 24 29  |...checkconv(T$)|
00013780  3a ea 54 25 2c 42 25 0d  7b 66 14 ea 85 3a ee 85  |:.T%,B%.{f...:..|
00013790  ea 3a f7 85 3a d9 23 54  25 3a e1 0d 7b 70 20 66  |.:..:.#T%:..{p f|
000137a0  69 6c 65 24 3d 54 24 3a  54 25 3d 8e 28 66 69 6c  |ile$=T$:T%=.(fil|
000137b0  65 24 29 3a e7 54 25 3d  30 3a e1 0d 7b 7a 23 42  |e$):.T%=0:..{z#B|
000137c0  25 3d 9a 23 54 25 3a e7  42 25 3c 3e 32 33 34 80  |%=.#T%:.B%<>234.|
000137d0  42 25 3c 3e 32 33 35 3a  d9 23 54 25 3a e1 0d 7b  |B%<>235:.#T%:..{|
000137e0  84 1f 42 25 3d 9a 23 54  25 2b 9a 23 54 25 2b 9a  |..B%=.#T%+.#T%+.|
000137f0  23 54 25 2b 9a 23 54 25  3a d9 23 54 25 0d 7b 8e  |#T%+.#T%:.#T%.{.|
00013800  06 f7 85 0d 7b 98 20 e7  42 25 3d 30 42 25 3d 66  |....{. .B%=0B%=f|
00013810  74 5f 66 6f 72 6d 25 8b  42 25 3d 66 74 5f 64 61  |t_form%.B%=ft_da|
00013820  74 61 25 0d 7b a2 4a 6d  65 6e 75 66 69 65 6c 64  |ta%.{.Jmenufield|
00013830  25 3d 42 25 3a f2 73 74  6f 70 28 33 36 2c 22 57  |%=B%:.stop(36,"W|
00013840  72 6f 6e 67 20 66 69 6c  65 20 74 79 70 65 22 2c  |rong file type",|
00013850  22 43 6f 6e 76 65 72 74  20 74 6f 20 4d 75 6c 74  |"Convert to Mult|
00013860  69 53 74 6f 72 65 20 3f  22 2c 2d 31 29 0d 7b ac  |iStore ?",-1).{.|
00013870  05 e1 0d 7b b6 04 0d 7b  c0 20 dd f2 70 64 72 69  |...{...{. ..pdri|
00013880  76 65 72 3a e7 a4 76 5f  28 31 29 3e 30 f2 65 72  |ver:..v_(1)>0.er|
00013890  72 28 31 30 33 29 0d 7b  ca 1f f2 6d 73 74 6f 72  |r(103).{...mstor|
000138a0  65 28 22 31 22 2c 22 4d  75 6c 74 69 53 74 6f 72  |e("1","MultiStor|
000138b0  65 22 29 3a e1 0d 7b d4  04 0d 7b de 32 dd f2 65  |e"):..{...{.2..e|
000138c0  6e 64 74 72 61 6e 73 66  65 72 3a e7 a4 76 5f 28  |ndtransfer:..v_(|
000138d0  31 29 3d 30 3a f2 63 6c  6f 73 65 77 28 77 5f 74  |1)=0:.closew(w_t|
000138e0  72 61 6e 73 66 65 72 25  29 3a e1 0d 7b e8 22 e7  |ransfer%):..{.".|
000138f0  a4 76 5f 28 31 29 3e 30  80 63 6f 70 79 69 6e 67  |.v_(1)>0.copying|
00013900  25 3c 3d 30 f2 65 72 72  28 32 31 35 29 0d 7b f2  |%<=0.err(215).{.|
00013910  39 e7 63 6f 70 79 69 6e  67 25 3e 30 3a f2 73 74  |9.copying%>0:.st|
00013920  6f 70 28 32 30 30 2c 22  22 2c 72 6c 24 2b 22 49  |op(200,"",rl$+"I|
00013930  6e 74 65 72 72 75 70 74  20 74 72 61 6e 73 66 65  |nterrupt transfe|
00013940  72 22 2c 2d 31 29 0d 7b  fc 05 e1 0d 7c 06 04 0d  |r",-1).{....|...|
00013950  7c 10 1a dd f2 6d 73 74  6f 72 65 28 41 24 2c 54  ||....mstore(A$,T|
00013960  24 29 3a ea 54 25 2c 42  25 0d 7c 1a 16 ea 85 3a  |$):.T%,B%.|....:|
00013970  ee 85 ea 3a f7 85 3a f2  65 72 72 28 36 30 29 0d  |...:..:.err(60).|
00013980  7c 24 25 54 24 3d a4 64  69 72 2b 54 24 3a 54 25  ||$%T$=.dir+T$:T%|
00013990  3d 8e 28 54 24 29 3a e7  54 25 3d 30 f2 65 72 72  |=.(T$):.T%=0.err|
000139a0  28 35 39 29 0d 7c 2e 3b  42 25 3d 9a 23 54 25 3a  |(59).|.;B%=.#T%:|
000139b0  d9 23 54 25 3a e7 a4 73  28 41 24 29 3e 22 22 3a  |.#T%:..s(A$)>"":|
000139c0  ff 22 2a 53 65 74 20 4d  75 6c 74 69 53 74 6f 72  |."*Set MultiStor|
000139d0  65 24 46 75 6e 63 74 69  6f 6e 20 22 2b 41 24 0d  |e$Function "+A$.|
000139e0  7c 38 12 f2 77 72 69 74  65 66 6c 61 67 73 3a f7  ||8..writeflags:.|
000139f0  85 0d 7c 42 27 ee 85 f2  65 72 72 6f 72 28 9f 2c  |..|B'...error(.,|
00013a00  f6 24 2c 9e 2c b9 29 3a  f2 72 65 70 6f 72 74 3a  |.$,.,.):.report:|
00013a10  f2 71 75 69 74 28 a3 29  0d 7c 4c 31 f2 64 65 6c  |.quit(.).|L1.del|
00013a20  77 28 77 5f 73 74 6f 70  25 29 3a f2 64 65 6c 77  |w(w_stop%):.delw|
00013a30  28 77 5f 73 61 76 65 25  29 3a f2 64 65 6c 77 28  |(w_save%):.delw(|
00013a40  77 5f 70 69 6e 66 6f 25  29 0d 7c 56 25 f2 64 65  |w_pinfo%).|V%.de|
00013a50  6c 77 28 77 5f 70 69 6e  66 6f 32 25 29 3a f2 64  |lw(w_pinfo2%):.d|
00013a60  65 6c 77 28 77 5f 73 68  61 64 6f 77 25 29 0d 7c  |elw(w_shadow%).||
00013a70  60 24 e7 77 5f 74 72 61  6e 73 66 65 72 25 3e 30  |`$.w_transfer%>0|
00013a80  f2 64 65 6c 77 28 77 5f  74 72 61 6e 73 66 65 72  |.delw(w_transfer|
00013a90  25 29 0d 7c 6a 0e f2 6e  6f 72 6d 70 6f 69 6e 74  |%).|j..normpoint|
00013aa0  0d 7c 74 22 5a 25 3d 74  61 73 6b 68 61 6e 64 6c  |.|t"Z%=taskhandl|
00013ab0  65 25 3a f2 6e 6f 76 61  72 73 3a d7 28 54 24 29  |e%:.novars:.(T$)|
00013ac0  3a e0 0d 7c 7e 04 0d 7c  88 1d dd f2 6f 70 65 6e  |:..|~..|....open|
00013ad0  73 6f 75 72 63 65 28 54  24 29 3a e7 54 24 3d 22  |source(T$):.T$="|
00013ae0  22 3a e1 0d 7c 92 1d e7  77 25 28 73 6f 75 72 63  |":..|...w%(sourc|
00013af0  65 25 2c 30 29 3e 30 f2  65 72 72 28 32 30 31 29  |e%,0)>0.err(201)|
00013b00  0d 7c 9c 14 6f 70 65 6e  69 6e 67 25 3d 73 6f 75  |.|..opening%=sou|
00013b10  72 63 65 25 0d 7c a6 2f  e7 a6 2d 33 3a f2 6f 70  |rce%.|./..-3:.op|
00013b20  65 6e 66 69 6c 65 28 54  24 29 3a 8b f2 6f 70 65  |enfile(T$):..ope|
00013b30  6e 66 69 6c 65 31 28 54  24 2c 30 2c b9 2c 22 22  |nfile1(T$,0,.,""|
00013b40  2c a3 29 0d 7c b0 05 e1  0d 7c ba 04 0d 7c c4 1d  |,.).|....|...|..|
00013b50  dd f2 6f 70 65 6e 74 61  72 67 65 74 28 54 24 29  |..opentarget(T$)|
00013b60  3a e7 54 24 3d 22 22 3a  e1 0d 7c ce 1d e7 77 25  |:.T$="":..|...w%|
00013b70  28 74 61 72 67 65 74 25  2c 30 29 3e 30 f2 65 72  |(target%,0)>0.er|
00013b80  72 28 32 30 32 29 0d 7c  d8 14 6f 70 65 6e 69 6e  |r(202).|..openin|
00013b90  67 25 3d 74 61 72 67 65  74 25 0d 7c e2 2f e7 a6  |g%=target%.|./..|
00013ba0  2d 33 3a f2 6f 70 65 6e  66 69 6c 65 28 54 24 29  |-3:.openfile(T$)|
00013bb0  3a 8b f2 6f 70 65 6e 66  69 6c 65 31 28 54 24 2c  |:..openfile1(T$,|
00013bc0  37 2c a3 2c 22 22 2c a3  29 0d 7c ec 05 e1 0d 7c  |7,.,"",.).|....||
00013bd0  f6 04 0d 7d 00 13 dd f2  6f 70 65 6e 73 74 28 54  |...}....openst(T|
00013be0  25 2c 54 24 29 0d 7d 0a  21 ea 49 25 3a 49 25 3d  |%,T$).}.!.I%:I%=|
00013bf0  a7 54 24 2c 22 2c 22 29  3a e7 49 25 3d 30 49 25  |.T$,","):.I%=0I%|
00013c00  3d a9 54 24 2b 31 0d 7d  14 37 e7 54 25 3d 30 f2  |=.T$+1.}.7.T%=0.|
00013c10  6f 70 65 6e 73 6f 75 72  63 65 28 c0 54 24 2c 49  |opensource(.T$,I|
00013c20  25 2d 31 29 29 3a 8b f2  6f 70 65 6e 74 61 72 67  |%-1)):..opentarg|
00013c30  65 74 28 c1 54 24 2c 49  25 2b 31 29 29 0d 7d 1e  |et(.T$,I%+1)).}.|
00013c40  05 e1 0d 7d 28 04 0d 7d  32 1d dd f2 64 6f 74 72  |...}(..}2...dotr|
00013c50  61 6e 73 66 65 72 3a e7  63 6f 70 79 69 6e 67 25  |ansfer:.copying%|
00013c60  3e 30 e1 0d 7d 3c 17 e7  a4 76 5f 28 31 29 3c 3e  |>0..}<...v_(1)<>|
00013c70  34 f2 65 72 72 28 32 30  30 29 0d 7d 46 2f f2 72  |4.err(200).}F/.r|
00013c80  65 61 64 74 72 61 6e 3a  e7 74 63 64 25 3d a3 20  |eadtran:.tcd%=. |
00013c90  80 74 77 73 25 3d a3 20  80 74 6e 73 25 3d a3 3a  |.tws%=. .tns%=.:|
00013ca0  f2 65 72 72 28 32 30 36  29 0d 7d 50 1d e7 74 63  |.err(206).}P..tc|
00013cb0  64 25 3d a3 20 80 74 73  62 25 3d b9 3a f2 65 72  |d%=. .tsb%=.:.er|
00013cc0  72 28 32 31 34 29 0d 7d  5a 3e 63 6f 70 79 69 6e  |r(214).}Z>copyin|
00013cd0  67 25 3d 31 3a f2 73 64  66 69 6c 65 28 73 6f 75  |g%=1:.sdfile(sou|
00013ce0  72 63 65 25 29 3a 61 25  28 66 69 6c 65 25 29 3d  |rce%):a%(file%)=|
00013cf0  31 3a c8 99 73 77 69 25  2c 66 69 72 73 74 5f 25  |1:..swi%,first_%|
00013d00  b8 2c 4e 25 0d 7d 64 15  f2 73 68 6f 77 6e 75 6d  |.,N%.}d..shownum|
00013d10  3a f2 77 72 69 74 65 77  73 0d 7d 6e 26 e7 77 25  |:.writews.}n&.w%|
00013d20  28 66 69 6c 65 25 2c 36  29 3e 30 f2 63 6c 6f 73  |(file%,6)>0.clos|
00013d30  65 77 28 77 25 28 66 69  6c 65 25 2c 36 29 29 0d  |ew(w%(file%,6)).|
00013d40  7d 78 26 e7 77 25 28 66  69 6c 65 25 2c 37 29 3e  |}x&.w%(file%,7)>|
00013d50  30 f2 63 6c 6f 73 65 77  28 77 25 28 66 69 6c 65  |0.closew(w%(file|
00013d60  25 2c 37 29 29 0d 7d 82  1a 73 25 28 66 69 6c 65  |%,7)).}..s%(file|
00013d70  25 29 3d 32 3a f2 66 6f  72 63 65 63 61 72 64 0d  |%)=2:.forcecard.|
00013d80  7d 8c 37 f2 73 64 66 69  6c 65 28 74 61 72 67 65  |}.7.sdfile(targe|
00013d90  74 25 29 3a 6d 61 63 72  6f 25 3d a4 66 6c 67 28  |t%):macro%=.flg(|
00013da0  66 5f 6d 61 63 65 25 29  84 a4 66 6c 67 28 66 5f  |f_mace%)..flg(f_|
00013db0  6d 61 63 62 25 29 0d 7d  96 12 f2 73 65 6c 69 6e  |macb%).}...selin|
00013dc0  64 65 78 28 30 2c 30 29  0d 7d a0 0e f2 73 65 6c  |dex(0,0).}...sel|
00013dd0  73 75 62 28 30 29 0d 7d  aa 26 e7 77 25 28 66 69  |sub(0).}.&.w%(fi|
00013de0  6c 65 25 2c 36 29 3e 30  f2 63 6c 6f 73 65 77 28  |le%,6)>0.closew(|
00013df0  77 25 28 66 69 6c 65 25  2c 36 29 29 0d 7d b4 26  |w%(file%,6)).}.&|
00013e00  e7 77 25 28 66 69 6c 65  25 2c 37 29 3e 30 f2 63  |.w%(file%,7)>0.c|
00013e10  6c 6f 73 65 77 28 77 25  28 66 69 6c 65 25 2c 37  |losew(w%(file%,7|
00013e20  29 29 0d 7d be 24 73 25  28 66 69 6c 65 25 29 3d  |)).}.$s%(file%)=|
00013e30  32 3a f2 66 6f 72 63 65  63 61 72 64 3a f2 6e 65  |2:.forcecard:.ne|
00013e40  77 64 65 6c 61 79 0d 7d  c8 05 e1 0d 7d d2 04 0d  |wdelay.}....}...|
00013e50  7d dc 1e dd f2 72 65 61  64 74 72 61 6e 3a e7 77  |}....readtran:.w|
00013e60  5f 74 72 61 6e 73 66 65  72 25 3c 30 e1 0d 7d e6  |_transfer%<0..}.|
00013e70  23 ea 49 25 3a 74 63 64  25 3d a3 3a 74 77 73 25  |#.I%:tcd%=.:tws%|
00013e80  3d a3 3a 74 6e 73 25 3d  a3 3a 74 73 62 25 3d a3  |=.:tns%=.:tsb%=.|
00013e90  0d 7d f0 25 f2 77 63 68  69 28 77 5f 74 72 61 6e  |.}.%.wchi(w_tran|
00013ea0  73 66 65 72 25 29 3a 49  25 3d 71 25 3a f5 3a c8  |sfer%):I%=q%:.:.|
00013eb0  8e 21 49 25 ca 0d 7d fa  0d c9 30 3a 74 63 64 25  |.!I%..}...0:tcd%|
00013ec0  3d b9 0d 7e 04 0e c9 31  30 3a 74 77 73 25 3d b9  |=..~...10:tws%=.|
00013ed0  0d 7e 0e 0e c9 31 31 3a  74 6e 73 25 3d b9 0d 7e  |.~...11:tns%=..~|
00013ee0  18 0e c9 31 32 3a 74 73  62 25 3d b9 0d 7e 22 05  |...12:tsb%=..~".|
00013ef0  cb 0d 7e 2c 14 49 25 2b  3d 34 3a fd 49 25 21 2d  |..~,.I%+=4:.I%!-|
00013f00  34 3c 30 3a e1 0d 7e 36  04 0d 7e 40 26 dd a4 68  |4<0:..~6..~@&..h|
00013f10  74 3a c8 99 73 77 69 25  2c 73 64 35 37 5f 25 2c  |t:..swi%,sd57_%,|
00013f20  22 68 65 69 67 68 74 22  2c 73 64 24 b8 47 25 0d  |"height",sd$.G%.|
00013f30  7e 4a 25 dd a4 77 64 3a  c8 99 73 77 69 25 2c 73  |~J%..wd:..swi%,s|
00013f40  64 35 37 5f 25 2c 22 77  69 64 74 68 22 2c 73 64  |d57_%,"width",sd|
00013f50  24 b8 47 25 0d 7e 54 16  f2 73 64 66 69 6c 65 28  |$.G%.~T..sdfile(|
00013f60  66 69 6c 65 25 29 3a 3d  47 25 0d 7e 5e 04 0d 7e  |file%):=G%.~^..~|
00013f70  68 0d dd f2 64 65 66 61  75 6c 74 0d 7e 72 35 ea  |h...default.~r5.|
00013f80  49 25 2c 54 25 2c 54 24  3a e3 49 25 3d 30 b8 6d  |I%,T%,T$:.I%=0.m|
00013f90  61 78 66 69 65 6c 64 73  25 3a 66 64 24 28 49 25  |axfields%:fd$(I%|
00013fa0  29 3d 22 22 3a 66 64 25  28 49 25 29 3d 30 3a ed  |)="":fd%(I%)=0:.|
00013fb0  0d 7e 7c 0e e7 a4 76 5f  28 31 29 3d 34 8c 0d 7e  |.~|...v_(1)=4..~|
00013fc0  86 14 f2 73 64 66 69 6c  65 28 74 61 72 67 65 74  |...sdfile(target|
00013fd0  25 29 0d 7e 90 29 54 25  3d a4 76 5f 28 37 29 3a  |%).~.)T%=.v_(7):|
00013fe0  e7 54 25 3e 6d 61 78 66  69 65 6c 64 73 25 54 25  |.T%>maxfields%T%|
00013ff0  3d 6d 61 78 66 69 65 6c  64 73 25 0d 7e 9a 0c e3  |=maxfields%.~...|
00014000  49 25 3d 31 b8 54 25 0d  7e a4 33 f2 73 64 66 69  |I%=1.T%.~.3.sdfi|
00014010  6c 65 28 74 61 72 67 65  74 25 29 3a 54 24 3d a4  |le(target%):T$=.|
00014020  66 6e 61 6d 65 28 49 25  29 3a f2 73 64 66 69 6c  |fname(I%):.sdfil|
00014030  65 28 73 6f 75 72 63 65  25 29 0d 7e ae 3b 66 64  |e(source%).~.;fd|
00014040  25 28 49 25 29 3d a4 66  6e 75 6d 28 54 24 29 3a  |%(I%)=.fnum(T$):|
00014050  e7 66 64 25 28 49 25 29  3e 30 66 64 24 28 49 25  |.fd%(I%)>0fd$(I%|
00014060  29 3d 22 40 22 2b a4 66  6e 61 6d 65 28 66 64 25  |)="@"+.fname(fd%|
00014070  28 49 25 29 29 0d 7e b8  05 ed 0d 7e c2 05 cd 0d  |(I%)).~....~....|
00014080  7e cc 29 e7 77 25 28 74  61 72 67 65 74 25 2c 34  |~.).w%(target%,4|
00014090  29 3e 30 f2 66 6f 72 63  65 28 77 25 28 74 61 72  |)>0.force(w%(tar|
000140a0  67 65 74 25 2c 34 29 29  0d 7e d6 05 e1 0d 7e e0  |get%,4)).~....~.|
000140b0  04 0d 7e ea 13 dd f2 74  61 72 67 66 69 65 6c 64  |..~....targfield|
000140c0  3a ea 59 25 0d 7e f4 3b  59 25 3d 6d 79 25 3a f2  |:.Y%.~.;Y%=my%:.|
000140d0  79 63 6f 6e 76 28 59 25  2c a4 76 5f 28 37 29 2c  |yconv(Y%,.v_(7),|
000140e0  77 25 28 74 61 72 67 65  74 25 2c 34 29 29 3a f2  |w%(target%,4)):.|
000140f0  73 64 66 69 6c 65 28 73  6f 75 72 63 65 25 29 0d  |sdfile(source%).|
00014100  7e fe 40 66 64 24 28 59  25 29 3d a4 66 6e 61 6d  |~.@fd$(Y%)=.fnam|
00014110  65 31 28 6d 65 6e 75 66  69 65 6c 64 25 29 3a 66  |e1(menufield%):f|
00014120  64 25 28 59 25 29 3d 6d  65 6e 75 66 69 65 6c 64  |d%(Y%)=menufield|
00014130  25 3a f2 75 70 64 65 78  70 28 59 25 29 3a e1 0d  |%:.updexp(Y%):..|
00014140  7f 08 04 0d 7f 12 10 dd  f2 75 70 64 65 78 70 28  |.........updexp(|
00014150  59 25 29 0d 7f 1c 21 f2  73 64 66 69 6c 65 28 74  |Y%)...!.sdfile(t|
00014160  61 72 67 65 74 25 29 3a  e7 59 25 3e a4 76 5f 28  |arget%):.Y%>.v_(|
00014170  37 29 3a e1 0d 7f 26 63  21 71 25 3d 77 25 28 74  |7):...&c!q%=w%(t|
00014180  61 72 67 65 74 25 2c 34  29 3a 71 25 21 34 3d 66  |arget%,4):q%!4=f|
00014190  77 69 64 25 3a 71 25 21  38 3d 2d 6d 61 72 67 69  |wid%:q%!8=-margi|
000141a0  6e 25 2d 59 25 2a 6c 69  6e 65 67 61 70 25 3a 71  |n%-Y%*linegap%:q|
000141b0  25 21 31 32 3d 31 45 39  3a 71 25 21 31 36 3d 71  |%!12=1E9:q%!16=q|
000141c0  25 21 38 2b 6c 69 6e 65  67 61 70 25 3a f2 72 65  |%!8+linegap%:.re|
000141d0  64 72 61 77 28 b9 29 0d  7f 30 05 e1 0d 7f 3a 04  |draw(.)..0....:.|
000141e0  0d 7f 44 2b dd f2 73 65  6c 69 6e 64 65 78 28 49  |..D+..selindex(I|
000141f0  25 2c 66 25 29 3a ea 54  24 3a 54 24 3d 22 41 22  |%,f%):.T$:T$="A"|
00014200  3a e7 66 25 3a 54 24 3d  22 44 22 0d 7f 4e 0a e7  |:.f%:T$="D"..N..|
00014210  49 25 3e 30 8c 0d 7f 58  1b c8 99 73 77 69 25 2c  |I%>0...X...swi%,|
00014220  6f 72 64 65 72 5f 25 2c  49 25 2c 54 24 b8 4e 25  |order_%,I%,T$.N%|
00014230  0d 7f 62 05 cc 0d 7f 6c  15 c8 99 73 77 69 25 2c  |..b....l...swi%,|
00014240  6f 72 64 65 72 5f 25 b8  4e 25 0d 7f 76 05 cd 0d  |order_%.N%..v...|
00014250  7f 80 28 f2 73 68 6f 77  69 6e 64 65 78 3a f2 63  |..(.showindex:.c|
00014260  68 6b 6d 76 3a f2 76 61  6c 69 64 72 65 63 3a f2  |hkmv:.validrec:.|
00014270  67 72 61 70 68 3a e1 0d  7f 8a 04 0d 7f 94 23 dd  |graph:........#.|
00014280  f2 63 6c 72 6d 76 3a c8  99 73 77 69 25 2c 73 64  |.clrmv:..swi%,sd|
00014290  35 38 5f 25 2c 30 2c 22  6d 6f 76 65 64 22 0d 7f  |58_%,0,"moved"..|
000142a0  9e 05 e1 0d 7f a8 04 0d  7f b2 24 dd f2 63 68 6b  |..........$..chk|
000142b0  6d 76 3a c8 99 73 77 69  25 2c 73 64 35 37 5f 25  |mv:..swi%,sd57_%|
000142c0  2c 22 6d 6f 76 65 64 22  b8 47 25 0d 7f bc 0b e7  |,"moved".G%.....|
000142d0  47 25 3d 30 3a e1 0d 7f  c6 0c f2 63 6c 72 6d 76  |G%=0:......clrmv|
000142e0  3a e1 0d 7f d0 04 0d 7f  da 21 dd f2 66 69 65 6c  |:........!..fiel|
000142f0  64 65 78 70 3a e7 a4 76  5f 28 31 29 3c 3e 34 3a  |dexp:..v_(1)<>4:|
00014300  f2 62 75 7a 7a 3a e1 0d  7f e4 29 ea 54 24 3a 77  |.buzz:....).T$:w|
00014310  5f 74 72 61 6e 73 65 78  70 25 3d a4 63 72 77 69  |_transexp%=.crwi|
00014320  6e 64 28 74 77 5f 74 72  61 6e 73 65 78 70 25 29  |nd(tw_transexp%)|
00014330  0d 7f ee 28 f2 73 65 74  69 28 77 5f 74 72 61 6e  |...(.seti(w_tran|
00014340  73 65 78 70 25 2c 31 2c  66 64 24 28 6d 65 6e 75  |sexp%,1,fd$(menu|
00014350  66 69 65 6c 64 25 29 29  0d 7f f8 3c 54 24 3d 24  |field%))...<T$=$|
00014360  a4 69 61 28 77 5f 74 72  61 6e 73 65 78 70 25 2c  |.ia(w_transexp%,|
00014370  30 29 3a 54 24 3d c0 54  24 2c 33 32 29 2b a4 66  |0):T$=.T$,32)+.f|
00014380  6e 61 6d 65 28 6d 65 6e  75 66 69 65 6c 64 25 29  |name(menufield%)|
00014390  2b 22 3a 22 0d 80 02 34  f2 73 65 74 69 28 77 5f  |+":"...4.seti(w_|
000143a0  74 72 61 6e 73 65 78 70  25 2c 30 2c 54 24 29 3a  |transexp%,0,T$):|
000143b0  f2 64 69 61 6c 6f 67 75  65 28 77 5f 74 72 61 6e  |.dialogue(w_tran|
000143c0  73 65 78 70 25 29 3a e1  0d 80 0c 04 0d 80 16 0e  |sexp%):.........|
000143d0  dd f2 63 6f 70 79 6e 65  78 74 0d 80 20 06 ea 85  |..copynext.. ...|
000143e0  0d 80 2a 1c ee 85 ea 3a  f7 85 3a f2 65 6e 64 61  |..*....:..:.enda|
000143f0  63 74 3a f2 65 72 72 28  32 30 38 29 0d 80 34 0f  |ct:.err(208)..4.|
00014400  c8 8e 63 6f 70 79 69 6e  67 25 ca 0d 80 3e 1a c9  |..copying%...>..|
00014410  31 3a f2 63 6f 70 79 77  73 3a 63 6f 70 79 69 6e  |1:.copyws:copyin|
00014420  67 25 2b 3d 31 0d 80 48  1c c9 32 3a f2 63 6f 70  |g%+=1..H..2:.cop|
00014430  79 6e 75 6d 73 3a 63 6f  70 79 69 6e 67 25 2b 3d  |ynums:copying%+=|
00014440  31 0d 80 52 12 e7 ac 74  63 64 25 3a f2 65 6e 64  |1..R...tcd%:.end|
00014450  61 63 74 0d 80 5c 11 c9  33 3a f2 63 6f 70 79 63  |act..\..3:.copyc|
00014460  64 28 b9 29 0d 80 66 05  cb 0d 80 70 05 e1 0d 80  |d(.)..f....p....|
00014470  7a 04 0d 80 84 15 dd f2  63 6f 70 79 77 73 3a e7  |z.......copyws:.|
00014480  ac 74 77 73 25 3a e1 0d  80 8e 07 ea 54 24 0d 80  |.tws%:......T$..|
00014490  98 06 ea 85 0d 80 a2 14  ee 85 ea 3a f7 85 3a f2  |...........:..:.|
000144a0  65 72 72 28 32 30 37 29  0d 80 ac 2c f2 73 64 66  |err(207)...,.sdf|
000144b0  69 6c 65 28 73 6f 75 72  63 65 25 29 3a 54 24 3d  |ile(source%):T$=|
000144c0  73 64 24 3a f2 73 64 66  69 6c 65 28 74 61 72 67  |sd$:.sdfile(targ|
000144d0  65 74 25 29 0d 80 b6 1a  c8 99 73 77 69 25 2c 73  |et%)......swi%,s|
000144e0  64 36 30 5f 25 2c 31 2c  54 24 2c 73 64 24 0d 80  |d60_%,1,T$,sd$..|
000144f0  c0 1e c8 99 73 77 69 25  2c 73 64 35 37 5f 25 2c  |....swi%,sd57_%,|
00014500  22 74 79 70 65 22 2c 54  24 b8 47 25 0d 80 ca 1b  |"type",T$.G%....|
00014510  c8 99 73 77 69 25 2c 73  64 35 38 5f 25 2c 47 25  |..swi%,sd58_%,G%|
00014520  2c 22 74 79 70 65 22 0d  80 d4 2e f2 72 65 61 64  |,"type".....read|
00014530  77 73 3a 6d 61 63 72 6f  25 3d a4 66 6c 67 28 66  |ws:macro%=.flg(f|
00014540  5f 6d 61 63 65 25 29 84  a4 66 6c 67 28 66 5f 6d  |_mace%)..flg(f_m|
00014550  61 63 62 25 29 0d 80 de  05 e1 0d 80 e8 04 0d 80  |acb%)...........|
00014560  f2 21 dd f2 63 6f 70 79  6e 75 6d 73 3a ea 49 25  |.!..copynums:.I%|
00014570  2c 54 25 2c 54 24 3a e7  ac 74 6e 73 25 3a e1 0d  |,T%,T$:..tns%:..|
00014580  80 fc 17 ea 85 3a ee 85  ea 3a f7 85 3a f2 65 72  |.....:...:..:.er|
00014590  72 28 32 30 39 29 0d 81  06 30 e3 49 25 3d 30 b8  |r(209)...0.I%=0.|
000145a0  39 3a f2 73 64 66 69 6c  65 28 73 6f 75 72 63 65  |9:.sdfile(source|
000145b0  25 29 3a c8 99 73 77 69  25 2c 73 64 35 33 5f 25  |%):..swi%,sd53_%|
000145c0  2c 49 25 b8 47 25 0d 81  10 41 54 25 3d 47 25 3a  |,I%.G%...AT%=G%:|
000145d0  54 24 3d 24 73 64 25 3a  f2 73 64 66 69 6c 65 28  |T$=$sd%:.sdfile(|
000145e0  74 61 72 67 65 74 25 29  3a c8 99 73 77 69 25 2c  |target%):..swi%,|
000145f0  6e 61 6d 65 77 72 69 74  65 5f 25 2c 54 24 2c 54  |namewrite_%,T$,T|
00014600  25 2c 49 25 b8 47 25 0d  81 1a 07 ed 3a e1 0d 81  |%,I%.G%.....:...|
00014610  24 04 0d 81 2e 28 dd f2  63 6f 70 79 63 64 28 66  |$....(..copycd(f|
00014620  25 29 3a ea 49 25 2c 54  25 2c 73 24 2c 74 24 2c  |%):.I%,T%,s$,t$,|
00014630  6d 65 6e 75 66 69 65 6c  64 25 0d 81 38 17 ea 85  |menufield%..8...|
00014640  3a ee 85 ea 3a f7 85 3a  f2 65 72 72 28 32 31 30  |:...:..:.err(210|
00014650  29 0d 81 42 26 f2 73 64  66 69 6c 65 28 73 6f 75  |)..B&.sdfile(sou|
00014660  72 63 65 25 29 3a 73 24  3d 73 64 24 3a e7 66 25  |rce%):s$=sd$:.f%|
00014670  f2 73 64 6e 65 78 74 0d  81 4c 1f e7 a4 62 61 64  |.sdnext..L...bad|
00014680  72 65 63 28 a4 76 5f 28  31 35 29 29 3a f2 65 6e  |rec(.v_(15)):.en|
00014690  64 61 63 74 3a e1 0d 81  56 3f f2 73 68 6f 77 6e  |dact:...V?.shown|
000146a0  75 6d 3a f2 73 64 66 69  6c 65 28 74 61 72 67 65  |um:.sdfile(targe|
000146b0  74 25 29 3a 54 25 3d a4  76 5f 28 37 29 3a 74 24  |t%):T%=.v_(7):t$|
000146c0  3d 73 64 24 3a f2 73 64  66 69 6c 65 28 73 6f 75  |=sd$:.sdfile(sou|
000146d0  72 63 65 25 29 0d 81 60  16 c8 99 73 77 69 25 2c  |rce%)..`...swi%,|
000146e0  61 64 64 5f 25 2c 74 24  b8 4e 25 0d 81 6a 14 e3  |add_%,t$.N%..j..|
000146f0  6d 65 6e 75 66 69 65 6c  64 25 3d 31 b8 54 25 0d  |menufield%=1.T%.|
00014700  81 74 17 c8 8e b4 66 64  25 28 6d 65 6e 75 66 69  |.t....fd%(menufi|
00014710  65 6c 64 25 29 ca 0d 81  7e 34 c9 2d 31 3a 24 73  |eld%)...~4.-1:$s|
00014720  64 25 3d a4 66 69 65 6c  64 76 61 6c 3a c8 99 73  |d%=.fieldval:..s|
00014730  77 69 25 2c 70 66 69 65  6c 64 5f 25 2c 6d 65 6e  |wi%,pfield_%,men|
00014740  75 66 69 65 6c 64 25 2c  74 24 0d 81 88 2c c9 31  |ufield%,t$...,.1|
00014750  3a 49 25 3d 66 64 25 28  6d 65 6e 75 66 69 65 6c  |:I%=fd%(menufiel|
00014760  64 25 29 3a c8 99 73 77  69 25 2c 67 66 69 65 6c  |d%):..swi%,gfiel|
00014770  64 5f 25 2c 49 25 0d 81  92 21 c8 99 73 77 69 25  |d_%,I%...!..swi%|
00014780  2c 70 66 69 65 6c 64 5f  25 2c 6d 65 6e 75 66 69  |,pfield_%,menufi|
00014790  65 6c 64 25 2c 74 24 0d  81 9c 05 cb 0d 81 a6 05  |eld%,t$.........|
000147a0  ed 0d 81 b0 0a e7 74 73  62 25 8c 0d 81 ba 17 c8  |......tsb%......|
000147b0  99 73 77 69 25 2c 73 64  33 33 5f 25 2c 2d 31 b8  |.swi%,sd33_%,-1.|
000147c0  47 25 0d 81 c4 1d c8 99  73 77 69 25 2c 73 64 33  |G%......swi%,sd3|
000147d0  34 5f 25 2c 47 25 2c 2d  31 2c 74 24 b8 47 25 0d  |4_%,G%,-1,t$.G%.|
000147e0  81 ce 05 cd 0d 81 d8 25  e7 6d 61 63 72 6f 25 f2  |.......%.macro%.|
000147f0  73 64 66 69 6c 65 28 74  61 72 67 65 74 25 29 3a  |sdfile(target%):|
00014800  f2 64 6f 6d 61 63 72 6f  31 0d 81 e2 05 e1 0d 81  |.domacro1.......|
00014810  ec 04 0d 81 f6 22 dd a4  66 69 65 6c 64 76 61 6c  |....."..fieldval|
00014820  3a ea 85 3a ee 85 ea 3a  f7 85 3a f2 65 72 72 28  |:..:...:..:.err(|
00014830  32 30 34 29 0d 82 00 1f  3d a4 65 76 32 28 66 64  |204)....=.ev2(fd|
00014840  78 24 28 6d 65 6e 75 66  69 65 6c 64 25 29 2c 30  |x$(menufield%),0|
00014850  2c 30 29 0d 82 0a 04 0d  82 14 14 dd f2 73 77 61  |,0)..........swa|
00014860  70 3a f2 72 65 61 64 74  72 61 6e 0d 82 1e 2d ea  |p:.readtran...-.|
00014870  54 24 3a 54 24 3d 22 31  3a 22 2b 66 6e 24 28 74  |T$:T$="1:"+fn$(t|
00014880  61 72 67 65 74 25 29 2b  22 2c 22 2b 66 6e 24 28  |arget%)+","+fn$(|
00014890  73 6f 75 72 63 65 25 29  0d 82 28 37 f2 43 4c 4f  |source%)..(7.CLO|
000148a0  53 45 3a ff 22 2a 73 65  74 20 4d 75 6c 74 69 53  |SE:."*set MultiS|
000148b0  74 6f 72 65 24 46 75 6e  63 74 69 6f 6e 20 22 2b  |tore$Function "+|
000148c0  54 24 3a 70 72 6f 63 65  73 73 25 3d 34 3a e1 0d  |T$:process%=4:..|
000148d0  82 32 04 0d 82 3c 10 dd  f2 74 61 72 67 65 74 6f  |.2...<...targeto|
000148e0  70 65 6e 0d 82 46 32 f2  43 4c 4f 53 45 3a f2 6d  |pen..F2.CLOSE:.m|
000148f0  73 74 6f 72 65 28 22 32  3a 22 2b 66 6e 24 28 74  |store("2:"+fn$(t|
00014900  61 72 67 65 74 25 29 2c  22 4d 75 6c 74 69 53 74  |arget%),"MultiSt|
00014910  6f 72 65 22 29 0d 82 50  05 e1 0d 82 5a 04 0d 82  |ore")..P....Z...|
00014920  64 12 dd f2 66 61 73 74  73 6f 72 74 3a ea 54 24  |d...fastsort:.T$|
00014930  0d 82 6e 29 54 24 3d 66  6e 24 28 74 61 72 67 65  |..n)T$=fn$(targe|
00014940  74 25 29 3a e7 54 24 3d  22 22 54 24 3d 66 6e 24  |t%):.T$=""T$=fn$|
00014950  28 73 6f 75 72 63 65 25  29 0d 82 78 28 f2 43 4c  |(source%)..x(.CL|
00014960  4f 53 45 3a f2 6d 73 74  6f 72 65 28 22 31 3a 22  |OSE:.mstore("1:"|
00014970  2b 54 24 2c 22 4d 53 46  61 73 74 53 6f 72 74 22  |+T$,"MSFastSort"|
00014980  29 0d 82 82 05 e1 0d 82  8c 04 0d 82 96 0f dd f2  |)...............|
00014990  73 61 76 65 73 65 74 75  70 0d 82 a0 23 d5 23 6f  |savesetup...#.#o|
000149a0  75 74 66 69 6c 65 25 2c  22 4d 65 72 6c 22 3b 3a  |utfile%,"Merl";:|
000149b0  d5 23 6f 75 74 66 69 6c  65 25 2c 37 0d 82 aa 22  |.#outfile%,7..."|
000149c0  f1 23 6f 75 74 66 69 6c  65 25 2c 74 63 64 25 2c  |.#outfile%,tcd%,|
000149d0  74 77 73 25 2c 74 6e 73  25 2c 74 73 62 25 0d 82  |tws%,tns%,tsb%..|
000149e0  b4 29 e3 49 25 3d 31 b8  6d 61 78 66 69 65 6c 64  |.).I%=1.maxfield|
000149f0  73 25 3a f1 23 6f 75 74  66 69 6c 65 25 2c 66 64  |s%:.#outfile%,fd|
00014a00  24 28 49 25 29 3a ed 0d  82 be 05 e1 0d 82 c8 04  |$(I%):..........|
00014a10  0d 82 d2 2f dd f2 63 68  65 63 6b 73 65 74 75 70  |.../..checksetup|
00014a20  3a e7 a4 73 65 74 75 70  74 79 70 65 28 66 69 6c  |:..setuptype(fil|
00014a30  65 24 29 3c 3e 37 f2 65  72 72 28 32 31 31 29 0d  |e$)<>7.err(211).|
00014a40  82 dc 18 e7 a4 76 5f 28  31 29 3c 3e 34 3a f2 65  |.....v_(1)<>4:.e|
00014a50  72 72 28 32 31 32 29 0d  82 e6 28 f2 73 74 6f 70  |rr(212)...(.stop|
00014a60  28 32 30 31 2c 22 22 2c  72 6c 24 2b 22 6c 6f 61  |(201,"",rl$+"loa|
00014a70  64 20 73 65 74 75 70 3f  22 2c 2d 31 29 3a e1 0d  |d setup?",-1):..|
00014a80  82 f0 04 0d 82 fa 19 dd  f2 6c 6f 61 64 73 65 74  |.........loadset|
00014a90  75 70 3a ea 54 25 2c 49  25 2c 54 24 0d 83 04 1f  |up:.T%,I%,T$....|
00014aa0  69 6e 66 69 6c 65 25 3d  8e 66 69 6c 65 24 3a e7  |infile%=.file$:.|
00014ab0  69 6e 66 69 6c 65 25 3d  30 3a e1 0d 83 0e 21 ea  |infile%=0:....!.|
00014ac0  85 3a ee 85 ea 3a f7 85  3a d9 23 69 6e 66 69 6c  |.:...:..:.#infil|
00014ad0  65 25 3a f2 65 72 72 28  32 31 33 29 0d 83 18 1a  |e%:.err(213)....|
00014ae0  e3 49 25 3d 31 b8 35 3a  54 25 3d 9a 23 69 6e 66  |.I%=1.5:T%=.#inf|
00014af0  69 6c 65 25 3a ed 0d 83  22 2b e8 23 69 6e 66 69  |ile%:..."+.#infi|
00014b00  6c 65 25 2c 74 63 64 25  2c 74 77 73 25 2c 74 6e  |le%,tcd%,tws%,tn|
00014b10  73 25 2c 74 73 62 25 3a  f2 74 72 61 6e 73 66 65  |s%,tsb%:.transfe|
00014b20  72 0d 83 2c 31 49 25 3d  31 3a c8 95 49 25 3c 3d  |r..,1I%=1:..I%<=|
00014b30  6d 61 78 66 69 65 6c 64  73 25 80 ac c5 23 69 6e  |maxfields%...#in|
00014b40  66 69 6c 65 25 3a e8 23  69 6e 66 69 6c 65 25 2c  |file%:.#infile%,|
00014b50  54 24 0d 83 36 2e 65 78  70 66 69 65 6c 64 25 3d  |T$..6.expfield%=|
00014b60  49 25 3a f2 73 65 74 65  78 70 28 54 24 29 3a 49  |I%:.setexp(T$):I|
00014b70  25 2b 3d 31 3a ce 3a d9  23 69 6e 66 69 6c 65 25  |%+=1:.:.#infile%|
00014b80  0d 83 40 30 f7 85 3a c8  95 49 25 3c 3d 6d 61 78  |..@0..:..I%<=max|
00014b90  66 69 65 6c 64 73 25 3a  65 78 70 66 69 65 6c 64  |fields%:expfield|
00014ba0  25 3d 49 25 3a f2 73 65  74 65 78 70 28 22 22 29  |%=I%:.setexp("")|
00014bb0  0d 83 4a 0d 49 25 2b 3d  31 3a ce 3a e1 0d 83 54  |..J.I%+=1:.:...T|
00014bc0  04 0d 83 5e 33 dd f2 63  6c 65 61 72 3a e3 65 78  |...^3..clear:.ex|
00014bd0  70 66 69 65 6c 64 25 3d  31 b8 6d 61 78 66 69 65  |pfield%=1.maxfie|
00014be0  6c 64 73 25 3a f2 73 65  74 65 78 70 28 22 22 29  |lds%:.setexp("")|
00014bf0  3a ed 3a e1 0d 83 68 04  0d 83 72 32 dd f2 72 65  |:.:...h...r2..re|
00014c00  61 64 66 6c 61 67 73 3a  ea 54 24 3a 54 24 3d a4  |adflags:.T$:T$=.|
00014c10  41 72 66 56 61 72 28 22  4d 75 6c 74 69 53 74 6f  |ArfVar("MultiSto|
00014c20  72 65 24 46 6c 61 67 73  22 29 0d 83 7c 37 f2 73  |re$Flags")..|7.s|
00014c30  74 72 66 6c 67 28 c0 54  24 2c 31 29 2c 73 6f 75  |trflg(.T$,1),sou|
00014c40  6e 64 25 29 3a f2 73 74  72 66 6c 67 28 c1 54 24  |nd%):.strflg(.T$|
00014c50  2c 32 2c 31 29 2c 73 74  6f 70 62 6f 78 65 73 25  |,2,1),stopboxes%|
00014c60  29 0d 83 86 35 f2 73 74  72 66 6c 67 28 c1 54 24  |)...5.strflg(.T$|
00014c70  2c 33 2c 31 29 2c 73 68  61 64 6f 77 73 25 29 3a  |,3,1),shadows%):|
00014c80  f2 73 74 72 66 6c 67 28  c1 54 24 2c 34 2c 31 29  |.strflg(.T$,4,1)|
00014c90  2c 70 69 78 25 29 0d 83  90 1b 2a 75 6e 73 65 74  |,pix%)....*unset|
00014ca0  20 4d 75 6c 74 69 53 74  6f 72 65 24 46 6c 61 67  | MultiStore$Flag|
00014cb0  73 0d 83 9a 05 e1 0d 83  a4 04 0d 83 ae 14 dd f2  |s...............|
00014cc0  77 72 69 74 65 66 6c 61  67 73 3a ea 54 24 0d 83  |writeflags:.T$..|
00014cd0  b8 4a 54 24 3d a4 66 6c  67 73 74 72 28 73 6f 75  |.JT$=.flgstr(sou|
00014ce0  6e 64 25 29 2b a4 66 6c  67 73 74 72 28 73 74 6f  |nd%)+.flgstr(sto|
00014cf0  70 62 6f 78 65 73 25 29  2b a4 66 6c 67 73 74 72  |pboxes%)+.flgstr|
00014d00  28 73 68 61 64 6f 77 73  25 29 2b a4 66 6c 67 73  |(shadows%)+.flgs|
00014d10  74 72 28 70 69 78 25 29  0d 83 c2 22 ff 22 2a 53  |tr(pix%)..."."*S|
00014d20  65 74 20 4d 75 6c 74 69  53 74 6f 72 65 24 46 6c  |et MultiStore$Fl|
00014d30  61 67 73 20 22 2b 54 24  3a e1 0d 83 cc 04 0d 83  |ags "+T$:.......|
00014d40  d6 1f dd a4 66 6c 67 73  74 72 28 54 25 29 3a e7  |....flgstr(T%):.|
00014d50  54 25 3a 3d 22 2a 22 3a  8b 3d 22 2d 22 0d 83 e0  |T%:="*":.="-"...|
00014d60  04 0d 83 ea 15 dd f2 73  74 72 66 6c 67 28 54 24  |.......strflg(T$|
00014d70  2c f8 20 54 25 29 0d 83  f4 1d e7 54 24 3d 22 2a  |,. T%).....T$="*|
00014d80  22 3a 54 25 3d b9 3a 8b  e7 54 24 3d 22 2d 22 54  |":T%=.:..T$="-"T|
00014d90  25 3d a3 0d 83 fe 05 e1  0d 84 08 04 0d 84 12 32  |%=.............2|
00014da0  dd f2 72 65 61 64 66 6c  61 67 73 3a ea 54 24 3a  |..readflags:.T$:|
00014db0  54 24 3d a4 61 72 66 76  61 72 28 22 4d 75 6c 74  |T$=.arfvar("Mult|
00014dc0  69 53 74 6f 72 65 24 46  6c 61 67 73 22 29 0d 84  |iStore$Flags")..|
00014dd0  1c 37 f2 73 74 72 66 6c  67 28 c0 54 24 2c 31 29  |.7.strflg(.T$,1)|
00014de0  2c 73 6f 75 6e 64 25 29  3a f2 73 74 72 66 6c 67  |,sound%):.strflg|
00014df0  28 c1 54 24 2c 32 2c 31  29 2c 73 74 6f 70 62 6f  |(.T$,2,1),stopbo|
00014e00  78 65 73 25 29 0d 84 26  35 f2 73 74 72 66 6c 67  |xes%)..&5.strflg|
00014e10  28 c1 54 24 2c 33 2c 31  29 2c 73 68 61 64 6f 77  |(.T$,3,1),shadow|
00014e20  73 25 29 3a f2 73 74 72  66 6c 67 28 c1 54 24 2c  |s%):.strflg(.T$,|
00014e30  34 2c 31 29 2c 70 69 78  25 29 0d 84 30 1b 2a 75  |4,1),pix%)..0.*u|
00014e40  6e 73 65 74 20 4d 75 6c  74 69 53 74 6f 72 65 24  |nset MultiStore$|
00014e50  46 6c 61 67 73 0d 84 3a  05 e1 0d 84 44 04 0d 84  |Flags..:....D...|
00014e60  4e 0c dd f2 6e 6f 76 61  72 73 0d 84 58 05 e1 0d  |N...novars..X...|
00014e70  84 62 04 0d 84 6c 1f dd  f2 70 69 63 70 61 74 68  |.b...l...picpath|
00014e80  3a ea 54 24 3a e7 a9 66  69 6c 65 24 3e 32 33 30  |:.T$:..file$>230|
00014e90  3a e1 0d 84 76 3b 54 24  3d a4 41 72 66 56 61 72  |:...v;T$=.ArfVar|
00014ea0  28 22 4d 75 6c 74 69 53  74 6f 72 65 50 69 63 73  |("MultiStorePics|
00014eb0  24 50 61 74 68 22 29 3a  e7 a7 a4 75 28 54 24 29  |$Path"):...u(T$)|
00014ec0  2c a4 75 28 66 69 6c 65  24 29 29 3a e1 0d 84 80  |,.u(file$)):....|
00014ed0  1f 66 69 6c 65 24 2b 3d  22 2e 22 3a c8 95 a9 54  |.file$+=".":...T|
00014ee0  24 2b a9 66 69 6c 65 24  3e 32 32 39 0d 84 8a 25  |$+.file$>229...%|
00014ef0  f5 3a 54 24 3d c0 54 24  29 3a fd c2 54 24 29 3d  |.:T$=.T$):..T$)=|
00014f00  22 2c 22 84 54 24 3d 22  22 3a 54 24 3d c0 54 24  |",".T$="":T$=.T$|
00014f10  29 0d 84 94 17 ce 3a e7  54 24 3e 22 22 3a 66 69  |).....:.T$>"":fi|
00014f20  6c 65 24 2b 3d 22 2c 22  0d 84 9e 28 ff 22 53 65  |le$+=","...(."Se|
00014f30  74 20 4d 75 6c 74 69 53  74 6f 72 65 50 69 63 73  |t MultiStorePics|
00014f40  24 50 61 74 68 20 22 2b  66 69 6c 65 24 2b 54 24  |$Path "+file$+T$|
00014f50  0d 84 a8 2b e3 49 25 3d  30 b8 6d 61 78 66 25 3a  |...+.I%=0.maxf%:|
00014f60  e7 77 25 28 49 25 2c 30  29 3e 30 f2 66 6f 72 63  |.w%(I%,0)>0.forc|
00014f70  65 28 77 25 28 49 25 2c  30 29 29 0d 84 b2 07 ed  |e(w%(I%,0)).....|
00014f80  3a e1 0d 84 bc 04 0d 84  c6 15 dd a4 61 64 64 66  |:...........addf|
00014f90  69 65 6c 64 28 54 24 2c  54 25 29 0d 84 d0 28 ea  |ield(T$,T%)...(.|
00014fa0  43 25 2c 74 24 2c 41 24  3a 74 24 3d 54 24 3a c8  |C%,t$,A$:t$=T$:.|
00014fb0  95 c2 74 24 29 3d 22 20  22 3a 74 24 3d c0 74 24  |..t$)=" ":t$=.t$|
00014fc0  29 3a ce 0d 84 da 17 e7  74 24 3d 22 22 3a 3d a4  |):......t$="":=.|
00014fd0  66 6e 61 6d 65 31 28 54  25 29 0d 84 e4 25 e7 c2  |fname1(T%)...%..|
00014fe0  74 24 29 3d 22 40 22 84  c2 74 24 29 3d 22 23 22  |t$)="@"..t$)="#"|
00014ff0  3a 3d 74 24 2b a4 66 6e  61 6d 65 28 54 25 29 0d  |:=t$+.fname(T%).|
00015000  84 ee 21 43 25 3d a3 3a  f7 2b 31 3a f5 3a f3 41  |..!C%=.:.+1:.:.A|
00015010  24 3a 43 25 3d c2 74 24  2c a9 41 24 29 3d 41 24  |$:C%=.t$,.A$)=A$|
00015020  0d 84 f8 1d fd 43 25 84  41 24 3d 22 2a 2a 2a 2a  |.....C%.A$="****|
00015030  22 3a e7 ac 43 25 54 24  2b 3d 22 2b 22 0d 85 02  |":..C%T$+="+"...|
00015040  20 e7 a7 54 24 2c 22 40  22 29 3a 3d 54 24 2b 22  | ..T$,"@"):=T$+"|
00015050  40 22 2b a4 66 6e 61 6d  65 28 54 25 29 0d 85 0c  |@"+.fname(T%)...|
00015060  20 e7 a7 54 24 2c 22 23  22 29 3a 3d 54 24 2b 22  | ..T$,"#"):=T$+"|
00015070  23 22 2b a4 66 6e 61 6d  65 28 54 25 29 0d 85 16  |#"+.fname(T%)...|
00015080  13 3d 54 24 2b a4 66 6e  61 6d 65 31 28 54 25 29  |.=T$+.fname1(T%)|
00015090  0d 85 20 2c dc 2b 2c 2d  2c 2a 2c 2f 2c 41 4e 44  |.. ,.+,-,*,/,AND|
000150a0  2c 4f 52 2c 4e 4f 54 2c  3e 2c 3c 2c 3d 2c 28 2c  |,OR,NOT,>,<,=,(,|
000150b0  22 2c 22 2c 22 3a 22 2c  2a 2a 2a 2a 0d 85 2a 04  |",",":",****..*.|
000150c0  0d 85 34 13 dd f2 73 65  74 76 61 72 28 41 25 2c  |..4...setvar(A%,|
000150d0  56 25 29 0d 85 3e 09 c8  8e 41 25 ca 0d 85 48 0d  |V%)..>...A%...H.|
000150e0  c9 20 30 3a 61 25 3d 56  25 0d 85 52 0d c9 20 31  |. 0:a%=V%..R.. 1|
000150f0  3a 62 25 3d 56 25 0d 85  5c 0d c9 20 32 3a 63 25  |:b%=V%..\.. 2:c%|
00015100  3d 56 25 0d 85 66 0d c9  20 33 3a 64 25 3d 56 25  |=V%..f.. 3:d%=V%|
00015110  0d 85 70 0d c9 20 34 3a  65 25 3d 56 25 0d 85 7a  |..p.. 4:e%=V%..z|
00015120  0d c9 20 35 3a 66 25 3d  56 25 0d 85 84 0d c9 20  |.. 5:f%=V%..... |
00015130  36 3a 67 25 3d 56 25 0d  85 8e 0d c9 20 37 3a 68  |6:g%=V%..... 7:h|
00015140  25 3d 56 25 0d 85 98 0d  c9 20 38 3a 69 25 3d 56  |%=V%..... 8:i%=V|
00015150  25 0d 85 a2 0d c9 20 39  3a 6a 25 3d 56 25 0d 85  |%..... 9:j%=V%..|
00015160  ac 0d c9 31 30 3a 6b 25  3d 56 25 0d 85 b6 0d c9  |...10:k%=V%.....|
00015170  31 31 3a 6c 25 3d 56 25  0d 85 c0 0d c9 31 32 3a  |11:l%=V%.....12:|
00015180  6d 25 3d 56 25 0d 85 ca  0d c9 31 33 3a 6e 25 3d  |m%=V%.....13:n%=|
00015190  56 25 0d 85 d4 05 cb 0d  85 de 05 e1 0d ff        |V%............|
0001519e