"�> <MultiStore$Dir>.MultiStore
?�  By Merlyn Kline for Copyright (c) Minerva Software, 1989
:    version$="2.02"
(
21�:�error(�,�$+" - Failed to initialise",�,�)
<	�init
F3�:�error(�,�$,�,process%<4�process%>0):�report
P�normpoint
Z
d�
n�process%>0:�process
x(ș"Wimp_PollIdle",,q%,delay%�reason%
���taskhandle%>0șswi%,selecttask_%,taskhandle%:�i_v%ș"Impulse_Decode",reason%,q%,,,,i_mth%,taskhandle%�reason%,,,,,i_tok%,i_prm%,i_obj%
��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/�&200,&201:�i_command(i_tok%,i_prm%,i_obj%)

|�&202:�i_reply(i_tok%)

�+�&203:�i_senddata(i_tok%,i_prm%,i_obj%)

��&204:�i_receivedata(q%)

��

��normpoint

��

�

���quit(T%):�normpoint

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

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

�	�:Ș

�!șswi%,killtask_%,taskhandle%

�Ș

�
0ݤtask:绤ArfVar("MultiStore$Function")<0:=0
=otask%

&
��init
0otask%=Z%:�swinums
:,appl$="MultiStore":pstream%=0:�releasepr
D�:��:��:�err(67)
N'� q% 2500, workbuf% 1500,dialct% 24
X��
b7waiter%=0:file%=-1:v%=�initwimp:�v%<180:�12:�err(2)
l!�waitpoint:ț(�dir+"BaseLib")
vț(�dir+"SwiList"):�swilist
�4quit%=�:dialreason%=-1:dialogue%=-1:dialfile%=-1
�ackpending%=�:ackref%=-1
�dragreason%=-1:help$=""
�savereason%=-1:savefile%=-1
�file2%=-1:reason2%=-1
�menufile%=-1:menusub%=-1
�closeok%=�
�sbfile%=-1:pass$=""
�-pdriver%=�:ș"OS_Byte",182,0,255 �,pterm%
�0�(pterm%�&80)=0ș"OS_Byte",246,0,255�,pterm%
� �pterm%=10pterm%=1:�pterm%=2
��:��:��:�err(67)
�J�PDfname$(10),PDfont$(10),PDcpl%(10),PDfrom%(10),PDto$(10),PDclen%(10)
$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\-+."
4,edrep%=�:ss%=12:lc%=3:�readparams:�wvars
>4�loadsprites:�defws:�defmenus:�version:�filevars
Hi_v%=0:�i_init
R$process%=1:checkref%=-1:delay%=0
\$stopfile%=-1:lastact%=0:chunk%=7
fIas$="Are you sure ?":rl$="Really ":ri$=rl$+"interrupt ?":fi$="File: "
plastspr$="":lix%=-1
zdepth%=9:�label$(depth%)
�)$t_impulse%="":i_merging%=0:i_file%=0
��:��:��:�err(67)
�7�tone%(11,1):�+1:�I%=0�11:�J%=0�1:�tone%(I%,J%):�:�
���
��readflags:�baricon
��
�@�24063,26145,22288,25564,22288,26145,22288,26726,22979,25564
�@�22979,26145,22979,26726,23482,25564,23482,26145,23482,26726
��24063,25564,24063,26726
�
�
��swinums
��

��wvars
	� ;{n
$<� ;{n  window handles in w%(maxf%,maxw%) - <=0 = Deleted
.A� ;{n    (,0)=Card    (,1)=Pane     (,2)=Subsets  (,3)=Report
8@� ;{n    (,4)=Fields  (,5)=Indices  (,6)=Notepad  (,7)=Macro
B;� ;{n  tw%(maxf%,maxw%)   template pointers for windows
L.� ;{n  maxw%   = max array index (windows)
V,� ;{n  maxf%   = max array index (files)
`	� ;{n
jmaxw%=7
t%�tw%(maxf%,maxw%),w%(maxf%,maxw%)
~�
�
���filevars
�2� ;{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)
�1� ;{n                   (2=background action)
�%� ;{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  ex$(maxf%)=search expressions after expansion

/� ;{n+ w$(maxf%,14)=wordpro o/p expressions
&� ;{n+ wo%(maxf%)=wordpro o/p type
 � ;{n  fn$(maxf%)=file names
( � ;{n+ r%(maxf%)=report mode
25� ;{n      0 = Cards    1 = Sheet     2 = Formula
<3� ;{n      3 = Labels   4 = Wordpro   5 = Paged
FI� ;{n  a%(maxf%)=background action in this file, -ve=linked to action
P� ;{n      0 = none
Z� ;{n      1 = fast forward
d� ;{n      2 = fast back
n� ;{n      3 = searching
x*� ;{n      4 = clearing/filling subset
�!� ;{n      5 = copying subset
�$� ;{n      6 = combining subsets
�"� ;{n      7 = Deleting subset
�!� ;{n      8 = updating cards
� � ;{n      9 = sorting cards
�"� ;{n     10 = printing report
�8� ;{n  e%(maxf%,2)=background activity status stuff:
�G� ;{n       act  e%(file%,0)       e%(file%,1)          e%(file%,2)
�A� ;{n        3   source subset     target subset        recno
�A� ;{n        4   target subset     clear/fill flag      recno
�A� ;{n      5/6   source subset     target subset        recno
�"� ;{n        7   target subset
�A� ;{n        8                                          recno
A� ;{n       10   label line        last label copy#     recno
9� ;{n  fc%(maxf%)=fast find, number found last search
$� ;{n  fl%(maxf%)=boolean flags:
"� ;{n+     bit 0=filter on
,!� ;{n      bit 1=tool pane on
6)� ;{n+     bit 2=macro browse mode on
@'� ;{n+     bit 3=macro edit mode on
J*� ;{n+     bit 4=filter space strip on
T(� ;{n+     bit 5=filter uppercase on
^*� ;{n+     bit 6=search space strip on
h(� ;{n+     bit 7=search uppercase on
r*� ;{n      bit 8=search, add to subset
|*� ;{n+     bit 9=report space strip on
�(� ;{n+     bit10=report uppercase on
�.� ;{n+     bit11=sheet report uppercase on
�+� ;{n+     bit12=sheet report totals on
�+� ;{n+     bit13=sheet report titles on
�+� ;{n+     bit14=sheet report dashes on
�2� ;{n+     bit15=wordpro output space stripped
�-� ;{n+     bit16=wordpro output uppercase
�2� ;{n+     bit17=wordpro output blank stripped
�,� ;{n+     bit18=7-bit data in this file
�0� ;{n+     bit19=paged report - eject before
�/� ;{n+     bit20=  "     "    - eject after
�0� ;{n+     bit21=  "     "    - double space
�0� ;{n+     bit22=  "     "    - top page nos
2� ;{n+     bit23=  "     "    - bott. page nos
.� ;{n+     bit24=  "     "    - print date
7� ;{n+     bit25=  "     "    - totals: Page groups
&8� ;{n+     bit26=  "     "    - totals: Summary only
03� ;{n+     bit27=  "     "    - link: duplicate
:1� ;{n+     bit28=  "     "    - link: summary
D.� ;{n      bit29=this file has a pic field
N2� ;{n+ t%(maxf%,3)=global variables for macros
X%� ;{n+ o$(maxf%)=sort expressions
b6� ;{n  ox$(maxf%)=sort expressions after expansion
lH� ;{n+ o%(maxf%,6)=sort stuff (index 0,bit 0=ascend,bit 1=uppercase)
v:� ;{n+ r$(maxf%)=report expressions, old style complex
�8� ;{n  rx$(maxf%)=report expressions after expansion
�.� ;{n+ sr$(maxf%)=simple report field list
�?� ;{n  srx$(maxf%)=simple report field list after expansion
�7� ;{n  l%(maxf%)=link file+1 (0=none, -ve=unlinked)
�2� ;{n+ l$(maxf%)=link expression for this file
�D� ;{n+ lx$(maxf%)=expanded link expression. Also, link file name
�� ;{n+ lk$(maxf%)=link key
�F� ;{n+ ll%(maxf%,7)=labels wid/mar/gap/dep/across/copies/lead/drop
�7� ;{n+ lf%(maxf%,15)=label line flags for 16 lines:
�+� ;{n         bits 0..1 = L/C/R Justify
�&� ;{n         bits 2..3 = Font No.
�)� ;{n         bit  4    = Space Strip
�'� ;{n         bit  5    = Uppercase
#� ;{n         bit  6    = fixed
8� ;{n  l1%(maxf%,maxacr%-1)=line pointers for labels
:� ;{n+ p%(maxf%,4)=paged rep. pwid/marg/twid/tlen/plen
 J� ;{n+ p$(maxf%,7)=paged rep. 4*header,subtot,subhead,ssubtot,ssubhead
*<� ;{n+ c$(maxf%,maxcol%,1)=paged rep. col exprs, headers
43� ;{n+ c%(maxf%,maxcol%)=paged rep col formats:
>'� ;{n         bit 00-07 = Col width
HC� ;{n         bit 08-09 = Justification 0/1/2=Left/Centre/Right
R)� ;{n         bit 10-11 = Font number
\'� ;{n         bit 12    = Uppercase
f)� ;{n         bit 13    = Space strip
p7� ;{n         bit 14-16 = decimal places (7=string)
z'� ;{n         bit 17    = totals on
�)� ;{n         bit 18    = averages on
�*� ;{n         bit 19    = blank zeroes
�+� ;{n         bit 20    = insert commas
�>� ;{n         bit 21-23 = format (0-7) S/(-/b-/b+/-A/*/`/$
�F� ;{n  ct(maxcol%,2)=paged rep col tots,subtots,subsubtots,summary
�C� ;{n  ct%(maxcol%,2)=paged rep col tots entry counts (for avg)
�D� ;{n  cv$(maxcol%,1)=paged rep column values, previous col vals
�/� ;{n  rl%(maxf%)=link map for paged report
�3� ;{n  rs%(maxf%*2)=link stack for paged report
�&� ;{n  m$(maxf%)=search mode flags
�"� ;{n+ st%(maxf%,2)=file stats
�	� ;{n
�.� ;{n    maxf%   = max array index (files)
	,� ;{n    maxacr% = max labels across web
	=� ;{n    maxcol% = max array index (paged report columns)
		� ;{n
	$�:��:��:�err(67)
	.8� h%(maxf%),f%(maxf%),s%(maxf%),s$(maxf%),fc%(maxf%)
	8H� fl%(maxf%),a%(maxf%),d$(maxf%,23),f$(maxf%),fx$(maxf%),t%(maxf%,3)
	BG� e$(maxf%),ex$(maxf%),e%(maxf%,2),r%(maxf%),m$(maxf%),st%(maxf%,2)
	LF� o$(maxf%),ox$(maxf%),o%(maxf%,6),r$(maxf%),rx$(maxf%),fn$(maxf%)
	VG� l%(maxf%),l$(maxf%),lx$(maxf%),lk$(maxf%),rl%(maxf%),rs%(maxf%*2)
	`L� sr$(maxf%),srx$(maxf%),ll%(maxf%,7),lf%(maxf%,15),l1%(maxf%,maxacr%-1)
	jG� w$(maxf%,14),wo%(maxf%),p%(maxf%,4),p$(maxf%,7),c%(maxf%,maxcol%)
	tE� c$(maxf%,maxcol%,1),ct(maxcol%,3),ct%(maxcol%,3),cv$(maxcol%,1)
	~��
	�;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:f_pics%=1<<29
	�[f_reps%=f_rldu%�f_rlsu%�f_rejb%�f_reja%�f_rdsp%�f_rtpn%�f_rbpn%�f_rpdt%�f_rtpg%�f_rtsu%
	�!f_save%=-1��(f_pane%�f_sadd%)
	�Kf_dflt%=f_fspc%�f_fupp%�f_sspc%�f_supp%�f_stot%�f_stit%�f_sdas%�f_wspc%
	�'ft_form%=&DE7:ft_data%=&DE8:maxw%=7
�


��sdvars
șswi%,sd64_%,3�linegap%
(margin%=8:�v_(1)=1:�err(3)
2+�sound%:șswi%,opt_%,10:�șswi%,opt_%,9
<8date%=�nyear(�now)*10000+�nmon(�now)*100+�nday(�now)
F�
P
Z)��checkprot:ș"FlexiFile_Address"�sd%
d�:��:process%=2:�
nșswi%,reset_%,taskhandle%
xW�process%=3�stop(1,"OK. Please remove original &","replace backup if necessary",-1)
�0date$=�strdate1(�now,4):�sdvars:process%=4:�
�
�
��version
�/�T$:T$=version$:笤prod:T$+=" *UNFINISHED*"
�8�seti(w_pinfo%,4,"v"+T$):$�tia(tw_status%,11)="v"+T$
��
�
�,ݤprod=�version$,�version$,".")+1,1)="0"
�ݤdebug=��prod ��-1��-2
�
�>ݤinitwimp:first%=�:taskhandle%=�task:�taskhandle%<>0:=200
�G$q%="TASK":ș"Wimp_Initialise",200,!q%,"MultiStore"�!q%,taskhandle%
�first%=�:=!q%


��tidy
�:�normpoint
"�4,26:�0,3);:*fx4
,*fx225,1
6
*fx229
@Z%=0:șswi%,killtask_%
J	��:�
T+�;menuend%-menufree%" bytes menu space"
^6�;endbuf%-curbuf%" bytes indirection buffer space"
h'�;tbe%-tbs%" bytes template buffer"
r�
|
���baricon:�first%:�
�+!q%=-1:q%!4=0:q%!8=0:q%!12=102:q%!16=68
�0q%!20=%11000000000010:$(q%+24)="!"+�appl$,9)
�$ș"Wimp_CreateIcon",,q%�baricon%
��
�
���strip(� T$)
�$sd%=T$:șswi%,strip_%
�T$=$sd%
��
�
�!��error(err%,err$,erl%,quit%)
�*�debug:�4,30:�err$" @ ";erl%:�quit(�)
.�normpoint:dragreason%=-1:@%=&90A:*fx229,1
�i%,e%,t$,T$
笤prod:err$+=" ("+Þ+")"
&�
0��:�error(�,�$,�,�)
:B!q%=err%:$(q%+4)=err$:ș"Wimp_ReportError",q%,1,appl$:line$=""
D�quit%:�quit(�)
N�
X
b+��report:�debug:�4:�:�" @ ";�:�quit(�)
l�
v
�	ݤdir
� �T$:T$=�ArfVar(appl$+"$Dir")
�!�T$="":T$="&.!"+�appl$,9)+"."
���T$)<>".":T$+="."
�=T$
�
�ݤArfVar(A$):�L%,V%
�=ș"XOS_ReadVarVal",A$,workbuf%,254,0,3�,,L%;V%:�V%�1:L%=0
�workbuf%?L%=13:=$workbuf%
�
���umess1
�-ref%=q%!8:task%=q%!4:�task%=taskhandle%:�
�mess%=q%!16

Ȏmess%�

�0:�CLOSE:�quit(�)

�1:�datasaved

 �2:�savedata

*�3:�dataload

4�4:ackpending%=�

>�5:�dataopen

H�6:

R�7:

\�8:�prequit

f�9:

p�10:�writecomm(q%!20)

z
�&502:

�-�&400C0:�submenu(q%!20,q%!24,q%!28,q%+32)

��&80300:�ackrec

��

��

�

���dataopen

�(�q%!40=ft_form%:�dataloadack:�err(1)

��q%!40<>ft_data%:�

��dataloadack:mh%=-1

�D�process%=0:笤dialogue:�openfile1(�zts(q%+44),0,0,"",readonly%)

��

�

���dataload
�T%:del%=q%!12<>0
�readpointer:�wtof(mh%)

Ȏ � �
$<� q%!40=&FF9 �wind%=0:�dataloadack:�loadspr(�zts(q%+44))
.T� q%!40=&1000:file$=�zts(q%+44):�stop(38,�file$,29),rl$+"set picture path ?",-1)
8#� q%!40=&2000:file$=�zts(q%+44)
B痤leaf(file$)=33�
L$T%=�(file$+".!DocData"):�T%:�#T%
VA�T%�i_merging%=0:i_doc$=��leaf(file$),2):�file%>=0:�i_impulse
`�i_seticons
j�
t� q%!40=ft_data%�mh%=-2
~?�dataloadack:�process%=0:笤dialogue:�openfile(�zts(q%+44))
�� q%!40=&FFD �mh%=-2
�3�process%=0:笤dialogue:�checkconv(�zts(q%+44))
�0� q%!40=ft_form%�mh%=-2:�dataloadack:�err(1)
�<� q%!40=ft_form%�file%>=0�wind%<2:�dataloadack:�openform
�r� q%!40=&FFF �file%>=0�wind%=6:�dataloadack:file$=�zts(q%+44):�stop(14,fi$+�filename,rl$+"load notes ?",file%)
�t� file%>=0�wind%=1�mi%=17:�dataloadack:file$=�zts(q%+44):�stop(37,fi$+�filename,rl$+"import ASCII file ?",file%)
�r� q%!40=&FFF �file%>=0�wind%=7:�dataloadack:file$=�zts(q%+44):�stop(19,fi$+�filename,rl$+"load macro ?",file%)
�h� q%!40=&FFF �file%=edfile%�file%>=0�wind%=-3*edrep%�edicon%>=0:�dataloadack:�loadfield(�zts(q%+44))
�w� q%!40=&FFF �file%>=0�wind%=0:�dataloadack:file$=�zts(q%+44):�stop(26,fi$+�filename,rl$+"load ASCII card ?",file%)
�:� mh%=w_pdrive%:�dataloadack:file$=�zts(q%+44):�PDload
�� q%!40=&D7B:�checksetup
��
�


��loadfield(file$)

�T$,T%
(�:��:�
2T%=�file$:�T%=0:�
<ȕT$=""���#T%:T$=�#T%:�
F�#T%:�noscrap
P+�seti(w%(edfile%,-3*edrep%),edicon%,T$)
Z�
d
n
��noscrap
x�del%:*Remove <Wimp$Scrap>
��
�
���datasaved
��readpointer:�wtof(mh%)
�
Ȏ � �
�A� q%!40=&FFF �file%>=0�(wind%=6�wind%=7�wind%=0):�datasaveack
�#� q%!40=&2000:file$=�zts(q%+44)
�#痤leaf(file$)=33�i_merging%=0�
�i_doc$=��leaf(file$),2)
�5�file%>=0:�i_impulse:��mh%=w_impulse%:�i_seticons
��
��
��


��err(E%)
9�T$,A$:�file%>=0A$=", "+fi$+�filename+" - ":�A$=" - "
"@%=&90A:*fx229,1
,	ȎE%�
6�0:T$=�$
@0�1:T$="To use a format, drag it onto a card"
J-�2:T$="Must be version 1.8 WIMP or later"
T.�3:T$="Sorry! Too many files already open"
^A�4:T$="Sorry! You can only run one RAMManager task at a time"
hH�5:T$="To save, drag the icon to a directory viewer or another task"
rc�6:T$="Couldn't open file: "+�$:�$="Data lost":T$+=" (Ensure the disc is not write protected)"
|%�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"
0%�25:T$="Field name not specified"
:-�26:T$="Subset value assignment expected"
D-�27:T$="Subset name/letter not specified"
N'�28:T$="Invalid subset name/letter"
X1�29:T$="Illegal notepad reference identifier"
b9�30:T$="Abbreviated expression too complex to expand"
l%�31:T$="Illegal pattern matching"
v>�32:T$="Validating card"+A$+�$+" (Filter/Subset disabled)"
�+�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"
4<�51:T$="You must specify the current password correctly"
>2�52:T$="Column "+�(column%+1)+" formula"+A$+�$
H+�53:T$="No room to add another column!"
R>�54:T$="Plotting picture"+A$+�$+" (release ALT to redraw)"
\D�55:T$="Sorry! You can only generate one paged report at a time"
f�56:T$="Report interrupted"
p$�57:T$="Sub-total formula"+A$+�$
z(�58:T$="Sub-sub-total formula"+A$+�$
��59:T$="Program not found"
�4�60:T$=�$+" - Can't load file creation software"
�=�61:T$="Sorry! Not enough subsets available for a search"
�4�62:T$=�$+" - Can't load file transfer software"
�C�63:T$="That's a Transfer setup file - you can't load it here!"
�3�64:T$="Please drag sprites to a picture field"
�&�65:T$=�$+" - ASCII import failed"
ʾ�66:T$="** WARNING ** This is an evaluation copy of MultiStore. Many features are restricted and it may time-out without warning. You are advised to close any other important tasks now."
�*�67:T$=�$+" - Check memory allocation"
�-�68:T$=�$+" - Unable to load sprite file"
�6�69:T$=�$+" - Unable to load window template file"
�:�70:T$="Recieved Impulse request to send unknown data"
�-�71:T$="Please specify a target document"
:�72:T$="Sorry! That field is not on the linked format"
C�73:T$="Sorry! You can't edit a report when a format is linked"
�
$%笤prod:T$+=" ("+Þ+") ["+�E%+"]"
.
�99,T$
8
B��openfile(f$)
LAw_open%=�crwind(tw_open%):�unselall(w_open%):�seli(w_open%,1)
V6file$=f$:�seti(w_open%,13,f$):�seti(w_open%,14,"")
`�dialogue(w_open%):�
j
t��openfile1(f$,m%,d%,p$,r%)
~!�I%,g%,h%,X%,Y%,T$:p$=�su(p$)
��:��:��:�loaderr:�
�h%=-1:�v_(1)/2<=maxf%�
�I%=0:ȕ I%<=maxf%
��h%(I%)<=0:h%=I%:I%=maxf%+1
�I%+=1:�
��
�5T$=f$:m%=�(99/(maxf%+1)+(99-(99/(maxf%+1)))*m%/7)
��h%<0:�err(3)
�-w%(h%,0)=�crwind(tw%(h%,0)):�makepane(h%)
��p$=""p$=�pwcode(pass$)
�)pass$=�pwcode(p$):�clearpass%pass$=""
�șswi%,password_%,p$
%g%=0:șswi%,open_%,T$,m%,d%,r%�G%

%g%=G%:�g%�?sd%<>13��warnfile:g%=�
�fillcache%:*FFCacheFill
h%(h%)=�v_(2):�initfile
(șswi%,selectkey_%,"?"
2șswi%,sd45_%,"N"
<>�sdfile(h%):$�ta(w%(h%,0))="File="+�filename:�fext:�readws
F3�initpane:X%=h%*80+panew%+8:Y%=900-h%*40-paneh%
P>�open(w%(h%,0),X%,Y%,X%+paneh%,Y%+paneh%,0,0,-1):�validrec
Zșswi%,sd57_%,"bit7"�G%
d9�flg(f_7bit%,G%):�clrmv:�flg(f_pics%,�isfield("PIC"))
n$fn$(h%)=f$:�g%�dialogue(w_mess%)
x�
�
���warnfile
�*�T%,t%,I%,T$:w_mess%=�crwind(tw_mess%)
��+1:�I%=0�7:�T$
�)�g%�(2^I%):�seti(w_mess%,T%,T$):T%+=1
��:�$sd%>""�
�J�seti(w_mess%,T%,"Password violations have occured as follows:"):T%+=1
�t%=sd%:�
�>�t%<sd%+192:�$t%>"":�seti(w_mess%,T%,"  Using "+$t%):T%+=1
�t%+=64:�t%=sd%+192
��
�)ȕ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
6?a%(h%)=0:f$(h%)="":fx$(h%)="":e$(h%)="":ex$(h%)="":r%(h%)=1
@Co$(h%)="":o%(h%,0)=3:r$(h%)="":rx$(h%)="":�I%=0�3:t%(h%,I%)=0:�
JCl%(h%)=0:l$(h%)="":lk$(h%)="":lx$(h%)="":sr$(h%)="":srx$(h%)=""
T/fn$(h%)="":p%(h%,0)=0:p$(h%,0)="":m$(h%)=""
^6�I%=0�23:d$(h%,I%)="":�:�I%=0�18:�note(h%,I%,""):�
h)�I%=0�29:�macln(h%,I%,""):�:wo%(h%)=0
r3�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
�+ll%(h%,6)=lab_lead%:ll%(h%,7)=lab_drop%
�3fl%(h%)=f_dflt%:�tools%:fl%(h%)=fl%(h%)�f_pane%
��
�
�
��loaderr
��normpoint:�h%>=0�
��g%:�delw(w_mess%)
��w%(h%,0)>0�delw(w%(h%,0))
��w%(h%,1)>0�delw(w%(h%,1))
��h%(h%)>0:�closefile(h%)
��=&80301�
�Dw_open%=�crwind(tw_open%):�unselall(w_open%):�seli(w_open%,m%+1)
��d%�seli(w_open%,0)
6file$=f$:�seti(w_open%,13,f$):�seti(w_open%,14,"")
�dialogue(w_open%):file%=-1
A�p$="MINERVACODE":�99,"Pass code is '"+�p_passcode(file$)+"'"
&�
0�
:�
Dfile%=-1:�err(6):�
N
X��closefile(h%):�I%
b�i_kill(h%)
l0�I%=0�maxf%:�l%(I%)=h%+1:�sdfile(I%):�unlink
v*�:�sdfile(h%):�ready:�l%(h%)>0:�unlink
�)�closeform:�cf_writews:�delfilews(h%)
�>h%(h%)=0:s%(h%)=0:f%(h%)=0:a%(h%)=0:w%(h%,0)=-1E9:l%(h%)=0
�closeok%=�
�ș&20000+swi%,close_%�S%
��
�
���cf_writews:�:��:��:�
��writews:�
�
�#��align(h%,I%):�tx1%-tx0%>108:�
���align1(h%,I%)
�.tx0%=h%*80+I%*40-40+panew%+8:tx1%=tx0%+440
�)ty1%=900-h%*40-I%*40+40:ty0%=ty1%-320
�

��makepane(h%)
 )�P%:P%=�crwind(tw%(h%,1)):w%(h%,1)=P%
*C�getw(P%):paneh%=y1%-y0%:panew%=x1%-x0%:�wext(P%,panew%,paneh%)
4�
>
H��makesubs(h%)
R�P%,T$,I%,J%,K%,T%
\:K%=w%(h%,2)>0:�K%�getw(w%(h%,2))��readblock(tw%(h%,2))
f4tx0%=x0%:ty0%=y0%:tx1%=x1%:ty1%=y1%:�align(h%,2)
pA�delfilew(h%,2):P%=�crwind(tw%(h%,2)):w%(h%,2)=P%:�sdfile(h%)
z*$�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
�:q%!4=!q%:q%!12+=T%:q%!20+=T%:ș"Wimp_CreateIcon",,q%+4
��
� �:�geti(P%,4):�delicon(P%,4)
: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%)
C�showsub1:�open(w%(h%,2),tx0%,ty1%-C%,tx1%+x1%-x0%,ty1%,0,0,-1)
$�
.
8��makerep(h%)
B=�P%,X%,Y%:P%=�makewind(h%,3):$�ta(P%)="Report="+�filename
L-�sdfile(h%):�repdefault:�rext:�matchrep:�
V
`��makeflist(h%):�T%
j=�P%:P%=�makewind(h%,4):T%=�ta(P%):$T%="Fields="+�filename
t*T%=�$T%+4:�formstat:șswi%,sd64_%,1�G%
~�G%<T%G%=T%
�9�wext(P%,G%*16+margin%*2,�v_(7)*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%)
�8�P%:P%=�makewind(h%,6):$�ta(P%)="Notepad="+�filename
��


��makemacro(h%)
6�P%:P%=�makewind(h%,7):$�ta(P%)="Macro="+�filename
�
(
2ݤmakewind(h%,T%):�P%,I%,K%
<=K%=w%(h%,T%)>0:�K%�getw(w%(h%,T%))��readblock(tw%(h%,T%))
F5tx0%=x0%:ty0%=y0%:tx1%=x1%:ty1%=y1%:�align(h%,T%)
PD�delfilew(h%,T%):P%=�crwind(tw%(h%,T%)):w%(h%,T%)=P%:�sdfile(h%)
Z,�open(P%,tx0%,ty0%,tx1%,ty1%,0,0,-1):=P%
d
n1ݤcrwind(T%):ș"Wimp_CreateWindow",,T%�T%:=T%
x
���initpane
�)�graph:�seti(w%(file%,1),7,s$(file%))
�7�showsub:�showindex:�showfilter:�showfound:�showmac
��
�
���graph
��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
��shownum:�
�

��shownum
1�P%,T%,M%,T$:T%=file%:�sdfile(T%):P%=w%(T%,1)
$N%=�v_(15):R%=�v_(17):M%=�v_(16)
"(�geti(P%,13):ș"Wimp_DeleteIcon",,q%
,�badrec(N%)�
6T$="??????????":q%!16=10
@�
J6T$="C"+�"0000000000"+�N%,�(R%-(R%<1))+1.000000001)
T�N%=0:T$="Default"
^�s%(file%)=1:T$=""
h"q%!16=6+(326-6)*N%/(M%-(M%=0))
r�
|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):�seti(P%,19,�subdesc)
��showsub1:�
�
� ��showsub1:�P%,M%:M%=�v_(11)
�P%=w%(file%,2):�P%>0�
�"�subdisp1:�unselall(P%):�M%=0�
��seli(P%,1)
��
��seli(P%,(M%�31)+28)
�M%>31:�seli(P%,(M%�31)+4)
�
�
&�
0
:!��showindex:�P%,T%:T%=�curidx
D-P%=w%(file%,1):�T%<=0$sd%=" * No Index *"
N,�seti(P%,20,$sd%):�markidx(T%):lix%=T%:�
X
b��showfilter
l�P%,T$:P%=w%(file%,1)
v@�flg(f_filt%)T$=�trunc(f$(file%),19):�T$="   * No Filter *"
��seti(P%,21,T$)
��
�
�
��showmac
��P%,T$:P%=w%(file%,1)
�*�macmode:�seli(P%,18):��unseli(P%,18)
��
�
�1ݤtrunc(T$,T%):�T$<=T%:=T$:�=�T$,T%-3)+"..."
�
���showfound
��P%:P%=w%(file%,1)
��fc%(file%)<0�
#�seti(P%,24,""):�seti(P%,23,"")
�
3�seti(P%,23,�(fc%(file%))):�seti(P%,24,"Found")
 �
*�
4
>2��delfilews(h%):�I%:�w%(h%,0)>0�delw(w%(h%,0))
H$�I%=1�maxw%:�delfilew(h%,I%):�:�
R
\��delfilew(h%,I%)
f@�w%(h%,I%)>0:�closew(w%(h%,I%)):�w%(h%,I%)>0�delw(w%(h%,I%))
p�
z
���umess2
�Ȏq%!16�
�$�6:�q%!8=loadref%:�datasaveack:�
�(�&201:�q%!8=i_merging%:i_merging%+=1
��
��
�
���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%:�
*lastact%=L%:�sdfile(L%):T%=�:Ȏa%(L%)�
�1:�skip(1)
$�2:�skip(0)
.�3:�srcnext
8�4:�fsubnxt
B�5,6:�csubnext(a%(L%))
L�7:�dsubnxt
V�8:�updnxt
`�9:�sortnext
j�10:�printnext
t�11:�i_next
~�
��delay%<>(2E9)�
�(T%=(�-T%+4)�5:�T%<0T%=0:��T%>50T%=50
�.ș"OS_ReadMonotonicTime"�delay%:delay%+=T%
��
��
�
���template(T$)
��template1(T$,q%)
��
�
�/��template1(T$,q%):T$=�lower(T$):� I%,T%,L%
�5I%=temp%+16:ȕ!I%>0��lower($(I%+12))<>T$:I%+=24:�
-�!I%<=0:�99,"Template '"+T$+"' not found"

CT%=temp%+!I%:L%=I%!4:�I%=0�L%�4:q%!I%=T%!I%:�:T%=q%+88+q%!84*32
�(q%!56)�(1<<8)�
3q%!72=�workspace(q%!80):$(q%!72)=$T%:T%+=�$T%+1
(=�q%!76>0:q%!76=�workspace(�$T%+1):$(q%!76)=$T%:T%+=�$T%+1
2�
<
�q%!84>0�
F�I%=q%+88�q%+84+q%!84*32�32
P�(I%!16)�(1<<8)�
Z3I%!20=�workspace(I%!28):$(I%!20)=$T%:T%+=�$T%+1
d=�I%!24>0:I%!24=�workspace(�$T%+1):$(I%!24)=$T%:T%+=�$T%+1
n�
x�
��
�q%!64=sprites%
��
�
�ݤtemplate(T$)
��template1(T$,tbs%)
�T%=tbs%:tbs%+=88+tbs%!84*32
�)�tbs%>tbe%:�99,"Template buffer full"
�=T%
�
�$��opentemplate(A$):temp%=�-30000
��:��:��:�err(69)
��"Load "+A$+" "+�~temp%:�

��defws:�I%
�:��:��:�err(67)
"wts%=6688:wbs%=4413
,bufsz%=(maxf%+1)*wbs%+8700
6;� buffer% bufsz%:curbuf%=buffer%:endbuf%=buffer%+bufsz%
@��
J �opentemplate(�dir+"MSFrm1")
T�:��:��:�err(67)
^:�template("stopbox"):ș"Wimp_CreateWindow",,q%�w_stop%
h�template("save")
r-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%
�=�template("Impulse"):ș"Wimp_CreateWindow",,q%�w_impulse%
�bufsz%=(maxf%+1)*wts%+19150
�6� template% bufsz%:tbs%=template%:tbe%=tbs%+bufsz%
�wbs%=curbuf%
��I%=0�maxf%
�tw%(I%,0)=�template("file")
�#tw%(I%,1)=�template("filepane")
�"tw%(I%,2)=�template("subsets")
�$tw%(I%,3)=�template("FieldList")
�$tw%(I%,4)=�template("FieldList")
�$tw%(I%,5)=�template("FieldList")
 "tw%(I%,6)=�template("Notepad")
  tw%(I%,7)=�template("Macro")
 �
 &Awbs%=(curbuf%-wbs%)/(maxf%+1):wts%=(tbs%-template%)/(maxf%+1)
 0J� ;{n wbs% and wts% now contain the min values to use at start of PROC
 :��
 D �opentemplate(�dir+"MSFrm2")
 N�:��:��:�err(67)
 X1tw_expr%=�template("expression"):w_expr%=-1E9
 b.tw_nums%=�template("numeric"):w_nums%=-1E9
 l+tw_sort%=�template("sort"):w_sort%=-1E9
 v+tw_open%=�template("open"):w_open%=-1E9
 �0tw_finf%=�template("FieldInfo"):w_finf%=-1E9
 �1tw_status%=�template("Status"):w_status%=-1E9
 �.tw_rlink%=�template("rlink"):w_rlink%=-1E9
 �0tw_srset%=�template("srsetup"):w_srset%=-1E9
 �/tw_label%=�template("labels"):w_label%=-1E9
 �,tw_line%=�template("lline"):w_line%=-1E9
 �.tw_mess%=�template("message"):w_mess%=-1E9
 �1tw_passw%=�template("password"):w_passw%=-1E9
 �.tw_word%=�template("wordpro"):w_word%=-1E9
 �2tw_pdrive%=�template("pdriver"):w_pdrive%=-1E9
 �0tw_rset1%=�template("repset1"):w_rset1%=-1E9
 �0tw_rset2%=�template("repset2"):w_rset2%=-1E9
 �0tw_rset3%=�template("repset3"):w_rset3%=-1E9
!+tw_col%=�template("column"):w_col%=-1E9
!1tw_csize%=�template("cardsize"):w_csize%=-1E9
!�
! 
!*��loadsprites
!4�:��:��:�err(67)
!>ssize%=16*1024
!H�sprites% ssize%
!R��:��:�err(68)
!\2!sprites%=ssize%:ș"OS_SpriteOp",&109,sprites%
!f.ș"OS_SpriteOp",&10A,sprites%,�dir+"MSSpr"
!p�
!z
!���defmenus:�t$
!��:��:��:�err(67)
!�� mlist% 32,function% 51
!�bufsz%=&AF0
!�C� menufree% bufsz%:menuptr%=menufree%:menuend%=menufree%+bufsz%
!���
!�menustart%=menufree%:�+2
!��t$:m_npad%=�crmenu(t$)
!�+�"#Notepad,Clear,Export>w_save%,Update"
!��t$:m_main%=�crmenu(t$)
!�N�"#MultiStore,Info>w_pinfo%,Transfer,Fast Sort,Create,Status,Printer,Quit"
!��t$:m_format%=�crmenu(t$)
!��"#Format,Link,Close"
"9t_impulse%=�workspace(200):�t$:m_impulse%=�crmenu(t$)
" �"#Command,$t_impulse%(199)"
"�t$:m_macro%=�crmenu(t$)
"$1�"#Macro,Browse Mode,Edit Mode#,Update Cards"
".�t$:m_macro1%=�crmenu(t$)
"89�"#Macro,Browse Mode,Edit Mode#,Clear,Export>w_save%"
"B�t$:m_default%=�crmenu(t$)
"L�"#Default,Show,Use"
"V�t$:m_file%=�crmenu(t$)
"`-�"#File,Search,Sort,Compact,Link,Impulse"
"j�t$:m_wind%=�crmenu(t$)
"t?�"#Window,Subset,Report,Field,Index,Notepad,Macro#,Tidy Up"
"~�t$:m_card1%=�crmenu(t$)
"�A�"#Card,Delete,Remove,Size,Export>w_save%,Impulse>m_impulse%"
"��t$:m_card%=�crmenu(t$)
"�x�"#Card,Tools>w_pinfo%,Format>m_format%,Macro>m_macro%,Default>m_default%,Card>m_card1%,File>m_file%,Window>m_wind%"
"�2t_subd%=�workspace(26):�t$:m_subd%=�crmenu(t$)
"� �"#Description,$t_subd%(25)"
"��t$:m_nums%=�crmenu(t$)
"�"�"#Numeric,Create,Edit,Delete"
"��t$:m_subs%=�crmenu(t$)
"�>�"#Subsets,Fill,Clear,Delete,Name>m_subd%,Numeric>m_nums%"
"��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$)
#(r�"#Statusmenu..,Align Windows,Read Workspace,Write Workspace,Modernise,Update Media,Password,Extended Charset"
#26t_iexp%=�tia(tw_expr%,17):�t$:m_index%=�crmenu(t$)
#<A�"#Index.......,Ascending,Descending,No Index#,$t_iexp%(255)"
#F�t$:m_mode%=�crmenu(t$)
#PE�"#Find Mode,Exact,Descending,Fuzzy,Nearest,Sequential,Character"
#Z�
#d
#n��front(h%,X%,Y%)
#x
�getw(h%)
#��X%>=0x1%+=X%-x0%:x0%=X%
#��Y%>=0y1%+=Y%-y0%:y0%=Y%
#�*�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:�openpane
#�:�wimpopen
#��
$�
$
Ȏoh%�
$:�wimpopen
$"�
$,�
$6e�oh%=dialogue%�shadows%:�getw(oh%):�open(w_shadow%,x0%+ss%,y0%-ss%,x1%+ss%,y1%-ss%,0,0,dialogue%)
$@open%=O%:�f%>=0:�sdfile(f%)
$J�
$T
$^��wimpopen
$h5!q%=oh%:q%!4=ox0%:q%!8=oy0%:q%!12=ox1%:q%!16=oy1%
$r>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%)
%�
%&
%0��closew(!q%)
%:�I%,f%:f%=file%
%D�wtof(!q%)
%N�file%>=0�
%XȎwind%�
%b,�0:�showbranch:�:��closeok%:�closeok:�
%l�closefile(file%):�nodial:�
%v6�3:�file%=edfile%:�edrep%:�endedit:!q%=w%(file%,3)
%��
%��
%��!q%=dialogue%:�tidydial
%�ș"Wimp_CloseWindow",,q%
%�!�nodial:�wtof(!q%):�file%>=0�
%�Ȏwind%�
%�'�2,3,4,5,6,7:�delw(w%(file%,wind%))
%��
%��
%�
Ȏ!q%�
%��w_stop%:stopfile%=-1
%��w_expr%:�delw(w_expr%)
%��w_nums%:�delw(w_nums%)
&�w_sort%:�delw(w_sort%)
&�w_open%:�delw(w_open%)
&�w_finf%:�delw(w_finf%)
& �w_status%:�delw(w_status%)
&*�w_rlink%:�delw(w_rlink%)
&4�w_srset%:�delw(w_srset%)
&>�w_label%:�delw(w_label%)
&H�w_line%:�delw(w_line%)
&R�w_mess%:�delw(w_mess%)
&\�w_passw%:�delw(w_passw%)
&f�w_word%:�delw(w_word%)
&p�w_pdrive%:�delw(w_pdrive%)
&z�w_rset1%:�delw(w_rset1%)
&��w_rset2%:�delw(w_rset2%)
&��w_rset3%:�delw(w_rset3%)
&��w_col%:�delw(w_col%)
&��w_csize%:�delw(w_csize%)
&��
&��
&��
&�
&���tidydial:�restorect
&�Ddialreason%=-1:dialogue%=-1:�closew(w_shadow%):exi0%=-1:exi1%=-1
&�dialfile%=-1:�
&�
&���restorect
'�:��:��:�
'(ș "Wimp_GetCaretPosition",,workbuf%
'p�!workbuf%=dialogue%ș "Wimp_SetCaretPosition",!dialct%,dialct%!4,dialct%!8,dialct%!12,dialct%!16,dialct%!20
'$�
'.
'8;��delw(� T%):!q%=T%:ș"Wimp_DeleteWindow",,q%:T%=-1E9:�
'B
'L*ݤia(h%,i%):�geti(h%,i%):�chkii:=q%!28
'V*ݤva(h%,i%):�geti(h%,i%):�chkii:=q%!32
'`*ݤil(h%,i%):�geti(h%,i%):�chkii:=q%!36
'j
't1ݤtia(T%,i%):�q%:q%=T%+32*i%+88:�chkii:=q%!20
'~
'�C��chkii:�(q%!24�&100)=0�1,"Icon not indirected "+�!q%+" "+�q%!4
'��
'�
'�<��geti(h%,i%):!q%=h%:q%!4=i%:ș"Wimp_GetIconState",,q%:�
'�
'�.ݤta(h%):!q%=h%:ș"Wimp_GetWindowInfo",,q%
'�,�(q%!60�&100)=0�1,"Title not indirected"
'�
=q%!76
'�
'���stop(r%,T$,U$,T%)
'�dialreason%=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%
(�
((
(2��dialogue(h%)
(<�X%,Y%:X%=file%:�nodial
(F'ș "Wimp_GetCaretPosition",,dialct%
(P:dialfile%=X%:�nomenu:�readpointer:X%=mx%-200:Y%=my%-85
(Z
�X%<0X%=0
(d�Y%<96Y%=96
(ndialogue%=h%
(x�front(h%,X%,Y%)
(��setct(h%,-1,-1)
(��h%=w_impulse%�
(��setct(h%,9,�$�ia(h%,9))
(��
(���pRc:�
(�;�readh(h%):�h%=dialogue%:�X%:�setct(h%,X%,�$�ia(h%,X%))
(��h%<>-1:�:�X%:�X%<-1:h%=0
(��h%=dialogue%�h%<0
(��
(��
(�
(�!��readpointer:�q%:q%=workbuf%
(�ș"Wimp_GetPointerInfo",,q%
)1mx%=!q%:my%=q%!4:mb%=q%!8:mh%=q%!12:mi%=q%!16
)�
)
)"ݤdialogue:�file%
),6�dialogue%>=0�mh%<>dialogue%�mh%<>w_shadow%�nodial
)6=�
)@
)J$��mouse(mx%,my%,mb%,mh%,mi%,mo%)
)T�dragreason%>=0�mb%>255:�
)^7�wtof(mh%):�file%>=0�wind%=6�(mb%=1�mb%=4)�mi%<19:�
)h�mb%<16:�dialogue:�
)r3w_info%=w_pinfo%:�mb%=7:mb%=2:w_info%=w_pinfo2%
)|
Ȏmb%�
)��2:�menu
)��1,4:�select
)��16,64:�startdrag
)��
)��
)�
)�6��seti(h%,i%,T$):T$=�T$,�il(h%,i%)):$�ia(h%,i%)=T$
)�<�iconupd(h%,i%):�getct:�!q%=h%�q%!4=i%:�setct(h%,i%,�T$)
)��
)�
)�'��iset(h%,i%,B%,E%):�q%:q%=workbuf%
)�?!q%=h%:q%!4=i%:q%!12=B%:q%!8=E%:ș"Wimp_SetIconState",,q%:�
)�
*'��iconupd(h%,i%):�iset(h%,i%,0,0):�
*
*��force(h%)
*&	Ȏh%�
*0.ș"Wimp_ForceRedraw",h%,-1E9,-1E9,1E9,1E9
*:�
*D�
*N
*X��readblock(p%)
*b7x0%=!p%:y0%=p%!4:x1%=p%!8:y1%=p%!12:� physical area
*lFscx%=p%!16:scy%=p%!20:bhandle%=p%!24:� scroll offsets, stack depth
*vJbx%=x0%-scx%:by%=y1%-scy%:� calculate physical co-ords of logical area
*�>ex0%=p%!40:ey0%=p%!44:ex1%=p%!48:ey1%=p%!52:� logical area
*�Agx0%=p%!24:gy0%=p%!28:gx1%=p%!32:gy1%=p%!36:� graphics window
*�.open%=(p%!28�&10000)<>0:� window open flag
*��
*�
*���getw(h%)
*�%!q%=h%:ș"Wimp_GetWindowInfo",,q%
*��readblock(q%+4)
*��
*�
*���select
*��wtof(mh%):�file%>=0�
*�Ȏwind%�
+
�0:�mcard
+
�1:�mpane
+
�2:�msubs
+ �3:�mrep
+*�4:�mflist
+4�5:�milist
+>�
+H�
+R�numi(mh%,mi%,mb%)
+\3�mh%=dialogue%:�dialfile%>=0:�sdfile(dialfile%)
+f
Ȏmh%�
+p*�-2:�mb%=1��-1��-2:�oscli(""):��status
+z�w_open%:�mopen
+��w_stop%:�mstop
+��w_sort%:�msort
+��w_save%:�msave
+��w_expr%:�mexpr
+��w_nums%:�mnums
+��w_finf%:�mfinf
+��w_status%:�mstatus
+��w_rlink%:�mrlink
+��w_srset%:�msrset
+��w_label%:�mlabel
+��w_line%:�mline
+�$�w_mess%:�mi%=6:�closew(w_mess%)
+��w_passw%:�mpassw
,�w_word%:�mword
,�w_pdrive%:�mpdrive
,�w_rset1%:�mrset1
,$�w_rset2%:�mrset2
,.�w_rset3%:�mrset3
,8�w_col%:�mcol
,B�w_csize%:�mcsize
,L�w_impulse%:�mimpulse
,V�
,`�
,j�
,t
,~��mcard
,�%menufield%=�mousef:�menufield%>0�
,��mb%=1:�finfo(�):��fedit
,��
,��
,�
,�-��mflist:�Y%:Y%=my%:�yconv(Y%,�v_(7),mh%)
,�.menufield%=Y%:�mb%=1:�finfo(�):��findfield
,��
,�
,�0��milist:�Y%:Y%=my%:�yconv(Y%,�nindices,mh%)
,�)�Y%>0:笤deadfile(-1):�selindex(Y%,0)
,��
-
-
��mpane
-
Ȏmi%�
-�0:�bof
-(�1:�back
-2
�2:�pause
-<�3:�fwd
-F�4:�eof
-P
�5:�ffind
-Z�6:�nextmatch
-d�12:�gauge
-n�14:�cardnum
-x�15:�fback
-�
�16:�ffwd
-��17:�add
-�*�18:�mb%=4�emacro:��s%(file%)=0:�macro
-� �19:�mb%=1:�selsub(0):��subs
-�4�20:�mb%=1���deadfile(-1):�selindex(0,0):��index
-��21:�filter
-�
�22:�card
-��
-��
-�
-���msubs
-�#�deadfile(%11111111111111110)�
-�%�T%:T%=�itos:�T%>=0:�selsub(T%):�
.�
.
.
��mrep
."Ȏr%(file%)�
.,�0,1,2:�mrep1
.6
�3:�mrep3
.@
�5:�mrep5
.J�:�
.T
.^��mrep1
.h+�file%<>edfile%��edrep%�deadfile(-1):�
.r �X%,Y%,T%,h%:�getw(mh%):h%=1
.|+�r%(file%)=1:T%=2:��r%(file%)=0:h%=�rht
.�:Y%=(by%-my%-margin%-T%*linegap%)�(linegap%*h%):�Y%<0:�
.�Y%+=1:�Y%>�v_(17)�
.�șswi%,grec_%,Y%�N%
.��validrec1:�r%(file%)<>1:�
.��f%(file%)>0�err(73)
.�4�getw(mh%):X%=(mx%-bx%-margin%-11*16)�16:�X%<1:�
.�$�X%<=��srep(1)�edrep(X%,�v_(15))
.��
.�
.���mrep3:�deadfile(-1):�
.�0�Y%:�getw(mh%):Y%=(by%-my%-margin%)�linegap%
.�1�Y%<0Y%=0��Y%>ll%(file%,3)-1Y%=ll%(file%,3)-1
.��Y%>15�
/>w_line%=�crwind(tw_line%):�unselall(w_line%):menufield%=Y%
/9�seli(w_line%,�justl(Y%)):�seli(w_line%,�fontl(Y%)+5)
/�spcl(Y%):�seli(w_line%,9)
/& �uppl(Y%):�seli(w_line%,10)
/0 �fixl(Y%):�seli(w_line%,11)
/:6$�ta(w_line%)="Line "+�(Y%+1):�dialogue(w_line%):�
/D
/N��mrep5:�deadfile(-1):�
/X6�X%,Y%,I%:�getw(mh%):Y%=(by%-my%-margin%)�linegap%
/b�Y%<4�rset51:�
/l�Y%>8�Y%<12�rset52:�
/v�Y%>12�rset53:�
/�"�mousecol:�column%<0�addcolumn
/��edcol:�
/�
/���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))
/��3:�compact:�
/��4:�fillsub(�)
/��5:�fillsub(�)
0�6:�CLOSE:�quit(�)
0�7:�endsearch
0?�8:șswi%,namewrite_%,"",0,menusub%-256�G%:�makesubs(file%)
0 �9:�endfill
0*�10:�delcard
04�11:�startact(5)
0>�12:�startact(6)
0H�13:�endcsub
0R�14:�loadnotes
0\�15:�delsub
0f�16:�enddsub
0p�17:�clearnpad
0z�18:�clearmacro
0��19:�loadmacro
0��20:stopboxes%=�
0��21:�copycard1
0��22:�updcards
0��23:�endact
0��24:�endact
0��25:�endact
0��26:�asccard
0��27:șswi%,setpass_%,""
0��28:�loadsetup
0�&�29:p$(file%,0)="":�makerep(file%)
0�&�30:ll%(file%,0)=0:�makerep(file%)
0�%�31:wo%(file%)=-1:�makerep(file%)
1.�32:șswi%,sd21_%,tx0%,ty0%,menufield%,sd$
1%�forcecard:�r%(file%)=0:�forcerep
1�33:�r_clear:�forcerep
1$�34:�delcol(menucol%)
1.�35:�inscol(menucol%)
18+�36:�"*settype "+file$+" "+�~menufield%
1B4�menufield%=ft_data%:�openfile(file$):�:��err(1)
1L�37:�importasc
1V�38:�picpath
1`�39:�CLOSE:�create
1j%�40:�i_merging%<100i_merging%=100
1t�
1~�
1��T%=1:�CLOSE:�quit(�)
1��
1��closew(w_stop%)
1��
1�
1���msave
1��mi%<>0�
1�0�T$:T$=$�ia(w_save%,2):�T$=�leaf(T$):�err(5)
1�1savetype%=savet%:file$=T$:task%=-1:�savedata1
1��
1�
1���msort:�I%
2�mi%<>6�mi%<>7:�
2
�mi%=7�nodial:�
2/�wchi(w_sort%):o%(file%,0)=0:I%=q%:�:Ȏ!I%�
2 �3:o%(file%,0)=o%(file%,0)�1
2( �5:o%(file%,0)=o%(file%,0)�2
22�:I%+=4:�I%!-4<0
2<7o$(file%)=$�ia(w_sort%,2):ox$(file%)=�x3(o$(file%))
2F�startsort:�nodial:�
2P
2Z��startsort:�v_(17)<2�
2d%�nofilt:�selsub(0):�selindex(0,0)
2n'o%(file%,5)=�v_(17)�2:o%(file%,4)=0
2x�startact(9):�
2�
2���swaprec(A%,B%)
2�șswi%,sd32_%,A%,B%
2��
2�
2�#ݤso(I%):�U%:�:��:��:�err(34)
2�șswi%,grec_%,I%�N%
2�3�rlink(�):=�ev4(ox$(file%),�,(o%(file%,0)�2)=2)
2�
2���mnums:�mi%<>4�mi%<>5:�
2��T%,B%,T$:�mi%=5�
2�&B%=�$�ia(w_nums%,3):�B%=0:�err(14)
2�%T%=0:ȕ2^T%<=B%:T%+=1:�:B%=2^T%-1
3=T$=�up(�s($�ia(w_nums%,2))):�T$<2��T$>90��T$<65:�err(13)
3Ȏdialreason%�
3�0
3"T%=�:�
3,��:T%=�
36"�T%:șswi%,nameread_%,T$�G%:hh
3@��:�T%:�err(15)
3J#T%=0:ȕ�subname(T%)<>"":T%+=1:�
3T"șswi%,namewrite_%,T$,B%,-1�G%
3^�1
3h�submax(menusub%-256)<>B%�
3r,șswi%,namewrite_%,T$,B%,menusub%-156�G%
3|�
3�!șswi%,sd53_%,menusub%-256�G%
3�,șswi%,namewrite_%,T$,G%,menusub%-256�G%
3��
3��
3��makesubs(file%):�showsub
3��
3�
�nodial:�
3�
3�#��mopen:�mi%=11�closew(w_open%)
3�
�mi%<>12�
3��I%,m%,d%,r%,p$
3�.p$=$�ia(w_open%,14):�wchi(w_open%):I%=q%:�
3��!I%=0:d%=�
4�!I%>0�!I%<9:m%=!I%-1
4�!I%=16:r%=�
4:I%+=4:�I%!-4<0:file$=$�ia(w_open%,13):�closew(w_open%)
4&#�openfile1(file$,m%,d%,p$,r%):�
40
4:��mcsize:�w%,h%,I%
4D
Ȏmi%�
4N�65:�nodial
4X�64:�sdfile(dialfile%)
4bw%=�$�ia(w_csize%,61)
4lh%=�$�ia(w_csize%,57)
4v�I%=1�2
4�șswi%,width_%,w%
4�șswi%,height_%,h%
4��
4��fext:�forcecard:�nodial
4��:�
4�
4���mexpr
4��A%,T$,c%,s%,u%,I%,Q%,B%
4�+�unseli(w_expr%,29):�unseli(w_expr%,24)
4�<A%=�ia(w_expr%,17):�sdfile(dialfile%):�qbscan($A%,Q%,B%)
4�
Ȏmi%�
4��2,3,4,5,6,7,8,9
4�>�$A%>""��Q%$sd%=�"+-*/=<><()",mi%-1,1):�$sd%<>�$A%)T$=$sd%
5�mi%=7:�T$>"":T$+=">"
5�seti(w_expr%,17,$A%+T$)
5
�10,11
5 N�(($A%>""�B%>0)�mi%=10)��Q%:$sd%=�"()",mi%-9,1):�seti(w_expr%,17,$A%+$sd%)
5*
�12,13
54T$=$A%:�$A%>""��Q%�
5>$sd%=�$A%):șswi%,upper_%
5H7�($sd%>="A"�$sd%<="Z")�($sd%>="0"�$sd%<="9")T$+=" "
5R�mi%=12T$+="AND"�T$+="OR"
5\�
5f�seti(w_expr%,17,T$)
5pR�14:�$A%>""��Q%T$=$A%+"=""**""":�seti(w_expr%,17,T$):�setct(w_expr%,17,�$A%-2)
5zQ�15:�$A%>""��Q%T$=$A%+"~=""""":�seti(w_expr%,17,T$):�setct(w_expr%,17,�$A%-1)
5��20,21:�subs
5��22:�nodial
5��26:�nofilt:�nodial
5�B�24:�$A%=""�seti(w_expr%,17,ex$):�ex$=$A%:�seti(w_expr%,17,"")
5�4�dialreason%=0:�seli(w_expr%,0):�seli(w_expr%,1)
5�#�29:�seti(w_expr%,17,f$(file%))
5��23
5��wchi(w_expr%):I%=q%:�
5�
Ȏ!I%�
5��1:s%=�
5��0:u%=�
5��28:c%=�
5��
6I%+=4:�I%!-4=-1
6�conv($A%):�u%:�upplit($A%)
6�seti(w_expr%,17,$A%)
6$Ȏdialreason%�
6.�0:�setfilt
68�1:�search
6B
�2:�rset2
6L�
6V�nodial
6`�
6j�iconupd(w_expr%,17)
6t�
6~
6���mfinf
6�
Ȏmi%�
6��17:�closew(w_finf%)
6�)�7:�geti(w_finf%,7):�(q%!24)�(1<<21)�
6�+�geti(w_finf%,12):�((q%!24)�(1<<21))=0�
6�)�unseli(w_finf%,10):�seli(w_finf%,11)
6��
6��
6�
�13,14,15
6�=�unseli(w_finf%,10):�unseli(w_finf%,11):�seli(w_finf%,12)
6��19
6��T$,T%,B%,L%,K%,I%
7%�w%(file%,4)>0�force(w%(file%,4))
7
BT$=$�ia(w_finf%,5):T%=�$�ia(w_finf%,2):�T%<1T%=1��T%>255T%=255
7$B%=��up(T$):�B%<65�B%>90�err(16)
70L%=�$�ia(w_finf%,20):�L%<1L%=1��L%>255L%=255
7(,B%=�$�ia(w_finf%,13):�B%<0B%=0��B%>6B%=6
72K%=�:�wchi(w_finf%):I%=q%:�
7<
Ȏ!I%�
7F�6:K%=�
7P�7:B%=B%�8
7Z�8:B%=B%�128
7d�9:B%=B%�64
7n�10:B%=B%�7
7x�11:B%=B%��7
7��
7�I%+=4:�I%!-4<0
7�%șswi%,sd18_%,B%,4,menufield%,sd$
7�#șswi%,sd20_%,T$,menufield%,sd$
7��sdfile(file%)
7��dialreason%�
7�șswi%,makekey_%,menufield%
7�"șswi%,flength_%,L%,menufield%
7�"șswi%,fnumber_%,T%,menufield%
7�menufield%=T%
7��
7�7T%=file%:�closew(w_finf%):�sdfile(T%):�validatelink
7�!�flg(f_pics%,�isfield("PIC"))
8�
8�
8
8"��mrlink
8,
Ȏmi%�
86�6:�l%(file%)>0:�unlink
8@�7
8J�8
8T:�T$,I%,T%:T%=�filenum($�ia(w_rlink%,1)):�T%<0:�err(38)
8^@I%=file%:�sdfile(T%):�deadfile1(%11111111101011110)�err(39)
8h/�sdfile(I%):lk$(file%)=�s($�ia(w_rlink%,3))
8rHI%=�lk$(file%):�I%>32�I%<>64�I%<>35�I%<>124lk$(file%)="@"+lk$(file%)
8|El$(file%)=$�ia(w_rlink%,5):lx$(file%)=�x4(l$(file%)):�chkloop(T%)
8�:�selsub(0):�nofilt:l%(file%)=T%+1:links%+=1:�forcecard
8�#�sdfile(T%):�validrec:�forcerep
8�:�
8��
8��closew(w_rlink%):�
8�
8�5ݤfilenum(T$):�I%,T%:T%=-1:T$=�su(T$):�I%=0�maxf%
8�6�w%(I%,0)>0:�up(�ofilename(I%))=T$:T%=I%:I%=maxf%
8�	�:=T%
8�
8���chkloop(T%)
8�3�T%=file%:�err(40):��l%(T%)>0�chkloop(l%(T%)-1)
8��
9
9
��mstatus
9�T%,I%,A%,P%
9&
Ȏmi%�
90�15,16,17,18,19,20,21,22
9:-T%=�statf:�T%>=0�front(w%(T%,0),-1,-1):��
9D�12
9N�13
9X&P%=pix%:sound%=�:shadows%=�:pix%=�
9b�wchi(w_status%):I%=q%:�
9l
Ȏ!I%�
9v�24:sound%=�
9��25:shadows%=�
9��28:pix%=�
9��23:A%=�
9��
9�I%+=4:�I%!-4<0
9�+�sound%:șswi%,opt_%,10:�șswi%,opt_%,9
9��pix%<>P%�
9�+�I%=0�maxf%:�w%(I%,0)>0�force(w%(I%,0))
9��
9��
9��A%<>stopboxes%�
9�F�A%stopboxes%=�:��stop(20,rl$+"disable these","stop boxes ?",-1):�
9��
:�
:�
:�closew(w_status%):�
: 
:*��msrset
:4�T$,I%:�unseli(w_srset%,9)
:>
Ȏmi%�
:H�6
:RGT$=�x5($�ia(w_srset%,3)):srx$(file%)=T$:sr$(file%)=$�ia(w_srset%,3)
:\#�flg(f_stot%,�):�flg(f_srup%,�)
:f#�flg(f_stit%,�):�flg(f_sdas%,�)
:p"�wchi(w_srset%):I%=q%:�:Ȏ!I%�
:z�0:�flg(f_srup%,�)
:��1:�flg(f_stot%,�)
:��7:�flg(f_stit%,�)
:��8:�flg(f_sdas%,�)
:��:I%+=4:�I%!-4<0:�forcerep
:��nodial
:��5:�nodial
:�[�9:�$�ia(w_srset%,3)=""�seti(w_srset%,3,ex$):�ex$=$�ia(w_srset%,3):�seti(w_srset%,3,"")
:��
:��
:�
:�(��mlabel:�mi%=29:�closew(w_label%):�
:��I%,A%:��DB{
:�P�mi%>27�mi%<32�I%=0�7:�A%:ll%(file%,I%)=�$�ia(w_label%,A%):�:�rext:�forcerep
;
Ȏmi%�
;�31:�printone
;�30:�testlab
;$
�:�lwidth
;.$�mi%>27�mi%<32:�closew(w_label%)
;8�
;B�12,41,23,6,15,19,48,52
;L
;V&��mline:�mi%=13:�closew(w_line%):�
;`
�mi%<>12�
;j5�I%,T%,V%:T%=menufield%:�wchi(w_line%):V%=0:I%=q%
;t�:Ȏ!I%�
;~�1:V%=(V%��3)�1
;��2:V%=(V%��3)�2
;��6:V%=(V%��12)�(1<<2)
;��7:V%=(V%��12)�(2<<2)
;��9:V%=V%�16
;��10:V%=V%�32
;��11:V%=V%�64
;�%�:I%+=4:�I%!-4<0:lf%(file%,T%)=V%
;� �forcerep:�closew(w_line%):�
;�
;�%��mpassw:�mi%=4:�closew(w_passw%)
;��mi%<>3�
;�J�T$,t$:T$=�su($�ia(w_passw%,5)):�sdfile(dialfile%):șswi%,sd63_%,T$�G%
<7�G%=2:�setct(w_passw%,5,�$�ia(w_passw%,5)):�err(51)
<
5T$=�su($�ia(w_passw%,1)):t$=�su($�ia(w_passw%,2))
<�T$<>t$:�err(47)
<B�T$="":�stop(27,fi$+�filename,rl$+"delete password ?",file%):�
<(șswi%,setpass_%,T$
<2�closew(w_passw%):�
<<
<F#��mword:�mi%=43�closew(w_word%)
<P
�mi%<>42�
<Z0�I%:�I%=0�14:w$(file%,I%)=$�ia(w_word%,I%):�
<d0�flg0(f_wspc%):�flg0(f_wupp%):�flg0(f_wbnk%)
<n.wo%(file%)=0:�wchi(w_word%):I%=q%:�:Ȏ!I%�
<x�40:�flg1(f_wspc%)
<��41:�flg1(f_wupp%)
<��44:�flg1(f_wbnk%)
<�&�:�!I%>29�!I%<40:wo%(file%)=!I%-30
<�/I%+=4:�I%!-4<0:�forcerep:�closew(w_word%):�
<�
<�(��mpdrive:�mi%=19:�closew(w_pdrive%)
<��mi%<>18�mi%<>20�mi%<>22�
<��I%
<�'I%=q%:pterm%=2:pdriver%=�:manual%=�
<��wchi(w_pdrive%):�:Ȏ!I%�
<��14,15,16:pterm%=!I%-14
<��17:pdriver%=�
<��23:manual%=�
=�:I%+=4:�I%!-4<0
=8PDto$(1)=�PConv($�ia(w_pdrive%,7)):PDclen%(1)=Length
=8PDto$(2)=�PConv($�ia(w_pdrive%,8)):PDclen%(2)=Length
="*�PDrdfont(1):�PDrdfont(2):�PDrdfont(3)
=,HPDreset$=�PConv($�ia(w_pdrive%,13)):PDff$=�PConv($�ia(w_pdrive%,12))
=6
Ȏmi%�
=@�20:�PDtest
=J6�22:�closew(w_pdrive%):�savew(f_pd$,&D7B,9,-1,512)
=T:�closew(w_pdrive%)
=^�
=h�
=r
=|'��mrset1:�mi%=6:�closew(w_rset1%):�
=��mi%<5�mi%>10�
=�
�f%,I%
=�9�wchi(w_rset1%):I%=q%:�flg0(f_rldu%):�flg0(f_rlsu%):�
=�
Ȏ!I%�
=��36:�flg1(f_rldu%)
=��37:�flg1(f_rlsu%)
=��:I%+=4:�I%!-4<0
=�.�I%=0�3:p$(file%,I%)=$�ia(w_rset1%,I%+1):�
=�*f%=file%:�nodial:�sdfile(f%):�forcerep
=�
Ȏmi%�
=��9:�rset53
=��10:�rset52
=��7:�preview
>�8:�defaultrep
>�
>�
>&
>0'��mrset2:�mi%=1:�closew(w_rset2%):�
>:�mi%>5�mi%<0�
>D
�f%,I%
>N9�wchi(w_rset2%):I%=q%:�flg0(f_rtpg%):�flg0(f_rtsu%):�
>X
Ȏ!I%�
>b�51:�flg1(f_rtpg%)
>l�52:�flg1(f_rtsu%)
>v�:I%+=4:�I%!-4<0
>�1�I%=0�3:p$(file%,I%+4)=$�ia(w_rset2%,I%+42):�
>�*f%=file%:�nodial:�sdfile(f%):�forcerep
>�
Ȏmi%�
>��4:�rset53
>��5:�rset51
>��2:�preview
>��3:�defaultrep
>��
>��
>�
>�'��mrset3:�mi%=3:�closew(w_rset3%):�
>�$�rmargin:�(mi%>4�mi%<>35)�mi%<0�
>�
�f%,I%,A%
?:�flg0(f_rejb%�f_reja%�f_rdsp%�f_rtpn%�f_rbpn%�f_rpdt%)
?"I%=q%:�wchi(w_rset3%):�:Ȏ!I%�
?�29:�flg1(f_rejb%)
? �30:�flg1(f_reja%)
?*�31:�flg1(f_rdsp%)
?4�32:�flg1(f_rtpn%)
?>�33:�flg1(f_rbpn%)
?H�34:�flg1(f_rpdt%)
?R�:I%+=4:�I%!-4<0
?\5�+1:�I%=0�4:�A%:p%(file%,I%)=�$�ia(w_rset3%,A%):�
?f.�p%(file%,4)<6�p%(file%,4)<>0p%(file%,4)=6
?pB�p%(file%,3)>p%(file%,4)�p%(file%,4)<>0p%(file%,3)=p%(file%,4)
?z �p%(file%,0)<5)p%(file%,0)=5
?�3�p%(file%,2)>p%(file%,0)p%(file%,2)=p%(file%,0)
?�K�p%(file%,1)+p%(file%,2)>p%(file%,0)p%(file%,1)=p%(file%,0)-p%(file%,2)
?�*f%=file%:�nodial:�sdfile(f%):�forcerep
?�
Ȏmi%�
?��1:�rset52
?��2:�rset51
?��4:�preview
?��5:�defaultrep
?��
?��
?��7,12,16,26,22
?�
?�
��mcol
@$�T$,I%,T%:I%=menucol%:column%=I%
@
Ȏmi%�
@.�5,9:�seli(w_col%,25):�unseli(w_col%,27):�
@$U�21,28,29,18,20,3,4,33,34,35,36,37,38,39,40:�seli(w_col%,27):�unseli(w_col%,25):�
@.�43:�closew(w_col%):�
@8G�45:�stop(34,"Column "+�(menucol%+1),rl$+"delete column ?",file%):�
@BG�46:�stop(35,"Column "+�(menucol%+1),rl$+"insert column ?",file%):�
@L�:�mi%<>42�
@V:T$=�x7($�ia(w_col%,22)):c$(file%,I%,0)=$�ia(w_col%,22)
@`6c$(file%,I%,1)=$�ia(w_col%,24):T%=�$�ia(w_col%,10)
@j�T%<1T%=1:��T%>254T%=254
@t3�setcol(T%,255,0):T%=q%:cjus%=0:cfnt%=1:cdup%=�
@~;cdps%=�$�ia(w_col%,19):�cdps%<0cdps%=0:��cdps%>6cdps%=6
@�3cupp%=�:cspc%=�:ctot%=0:ccma%=�:cbk0%=�:cfrm%=0
@��wchi(w_col%):�:Ȏ!T%�
@��31,32:cjus%=!T%-31
@��2:cjus%=2
@��6,7,8:cfnt%=!T%-5
@��25:cdps%=7
@��5:cupp%=�
@��9:cspc%=�
@��21:ctot%=ctot%�4
@��28:ctot%=ctot%�1
@��29:ctot%=ctot%�2
@��3:cbk0%=�
A�4:ccma%=�
A
�47:cdup%=�
A)�33,34,35,36,37,38,39,40:cfrm%=!T%-33
A�:T%+=4:�T%!-4<0
A(>�setcol(cjus%,3,8):�setcol(cfnt%,3,10):�setcol(cupp%,1,12)
A2?�setcol(cspc%,1,13):�setcol(cdps%,7,14):�setcol(ctot%,3,17)
A<?�setcol(cbk0%,1,19):�setcol(ccma%,1,20):�setcol(cfrm%,7,21)
AF/�setcol(cdup%,1,24):�setcol(ctot%>>>2,1,25)
AP�forcerep:�closew(w_col%):�
AZ
Ad��mimpulse
An
Ȏmi%�
Ax�5:�i_def1
A��6:�nodial:�
A��7:�i_startmerge
A��
A��
A�
A���setcol(V%,M%,I%)
A�Ac%(file%,column%)=(c%(file%,column%)��(M%<<I%))�((V%�M%)<<I%)
A��
A�
A���startdrag
A�/dragreason%=-1:dragbutton%=mb%:menufile%=-1
A��wtof(mh%):�file%>=0�
A�menufile%=file%
BȎwind%�
B�0
B#笤deadfile(%1111111101011111)�
B"\�mb%=16dragreason%=4:�dragcard:�menufield%=�mousef:�menufield%>0dragreason%=3:�dragfield
B,�
B6�1
B@
Ȏmi%�
BJF�14:笤deadfile(-1):menufield%=-1:dragreason%=3:�dragicon(mh%,mi%)
BTF�22:笤deadfile(%1111111101111111)dragreason%=1:�dragicon(mh%,mi%)
B^�
Bh�2
Br`笤deadfile(%11111111111111110):menusub%=�itos:�menusub%>=0:dragreason%=2:�dragicon(mh%,mi%)
B|�4
B�:menufield%=my%:�formstat:�yconv(menufield%,�v_(7),mh%)
B�dragreason%=3:�dragfield1
B�>�6:�mi%<19:dragreason%=6:menufield%=mi%:�dragicon(mh%,mi%)
B��
B��
B�
Ȏmh%�
B�6�w_save%:�mi%=3:dragreason%=5:�dragicon(w_save%,3)
B��
B��
B��
B�
B�
��enddrag
B�1�readpointer:�menufile%>=0:�sdfile(menufile%)
C
�mh%<>-1�
CȎdragreason%�
C�1:�carddr
C&�2:�subsdr
C0�3:�fielddr
C:�4:�carddr1
CDK�5:�savereq(�leaf($�ia(w_save%,2)),savet%,saves%,savereason%,savefile%)
CN�6:�notedr
CX�
Cb�
Cldragreason%=-1:menufile%=-1
Cv�
C�
C�*��unseli(h%,i%):�iset(h%,i%,&200000,0)
C�.��seli(h%,i%):�iset(h%,i%,&200000,&200000)
C�0��shadei(h%,i%):�iset(h%,i%,&400000,&400000)
C��
C�
C���unselall(h%)
C��I%,i%:�wchi(h%)
C�(I%=q%:�:i%=!I%:�i%>=0:�unseli(h%,i%)
C�I%+=4:�i%<0:�
C�
C�7��wchi(h%):ș"Wimp_WhichIcon",h%,q%,&200000,&200000
C��
D
D
��menu
D#�i_init:date$=�strdate1(�now,4)
D )�wtof(mh%):menufile%=file%:�file%>=0�
D*Ȏwind%�
D4�0:�cardmenu
D>)�1:�mi%=7:�pop(m_mode%,-1):��cardmenu
DH6�2:笤deadfile(%11111111111111110)�pop(m_subs%,-1)
DR,�3:笤deadfile(%10100)�pop(m_report%,-1)
D\8�5:笤deadfile(%11111111101111111):�pop(m_index%,-1)
Df�6:�pop(m_npad%,-1)
Dp�7:�pop(m_macro1%,-1)
Dz�
D��
D�
Ȏmh%�
D�1�-2:my%=64+7*44:menufile%=-1:�pop(m_main%,-1)
D��w_status%:�statmenu
D��
D��
D��
D�
D���cardmenu
D�H�l%(file%)<=0:笤flg(f_pane%)��deadfile1(%11111111101111110)�ready:�
D�I�l%(file%)<=0�s%(file%)<>0��v_(15)<>0:�deadfile(%11111111101111110)�
D��pop(m_card%,-1):�
D�
E.��statmenu:menufile%=�statf:�menufile%<0:�
E�pop(m_status%,-1):�
E
E$ݤpar(t$,s$,� i%):�i1%
E.i1%=i%+1:i%=�t$+s$,s$,i1%)
E8=�t$,i1%,i%-i1%)
EB
ELݤcrmenu(menu$)
EV.�menufree%+28>menuend%�99,"Menu area full"
E`� m%
Ejmenuptr%=menufree%
Eti%=0
E~C� �menu$,1)="#"i%=1:menutitle$=�par(menu$,",",i%)�menutitle$=""
E�$menuptr%=menutitle$
E�;menuptr%?12=7:menuptr%?13=2:menuptr%?14=7:menuptr%?15=0
E�3menuptr%!16=196-24:menuptr%!20=44:menuptr%!24=0
E�"menuptr%+=28:maxx%=�menutitle$
E��item$=�par(menu$,",",i%)
E��menuitem(item$)
E�� item$=""
E�$m%=menufree%:m%!16=(maxx%*8+6)*2
E�menufree%=menuptr%
E�=m%
E�
E���menuitem(text$)
F.�text$=""menuptr%!-24=(menuptr%!-24)�&80:�
F
.�menuptr%+24>menuend%��99,"Menu area full"
F�i%,flg%
Fflg%=&00
F(i%=�text$,">")
F2<�i%>0subptr%=��text$,i%+1):text$=�text$,i%-1)�subptr%=-1
F<i%=�text$,"}")
FF;�i%>0subptr%=��text$,i%+1):text$=�text$,i%-1):flg%+=&08
FP)��text$,1)="#"text$=�text$):flg%+=&02
FZ;menuptr%!0=flg%:menuptr%!4=subptr%:menuptr%!8=&07000021
Fd�text$,1)="$"�
Fn2!menuptr%+=&04:menuptr%!8+=&100:i%=�text$,"(")
Fx3�i%>0�L%=��text$,i%+1):text$=�text$,i%-1)�L%=12
F�8menuptr%!12=��text$,2):menuptr%!16=-1:menuptr%!20=L%
F�text$=�L%," ")
F��
F��text$<=12�
F�$(menuptr%+12)=text$
F��
F�%I%=�workspace(�text$+1):$I%=text$
F�6menuptr%!12=I%:menuptr%!16=-1:menuptr%!20=�text$+1
F� menuptr%!8=menuptr%!8 � &100
F��
F�5�text$-(subptr%>0)>maxx%maxx%=�text$-(subptr%>0)
F��
F�menuptr%+=24
G�
G
Gݤworkspace(L%)
G"2� curbuf%+L%>endbuf%�99,"No more buffer space"
G,curbuf%+=L%:=curbuf%-L%
G6
G@��prep(menu%,tree%)
GJ
�I%,T$
GT4�clearts(menu%):�menufile%>=0:�sdfile(menufile%)
G^Ȏmenu%�
Gh�m_card%:�mp_card
Gr�m_format%:�mp_format
G|�m_macro%:�mp_macro
G��m_macro1%:�mp_macro1
G��m_default%:�mp_default
G��m_subs%:�mp_subs
G��m_wind%:�mp_wind
G��m_card1%:�mp_card1
G��m_nums%:�mp_nums
G��m_npad%:�mp_npad
G��m_main%:�mp_main
G��m_status%:�mp_status
G��m_file%:�mp_file
G��m_report%:�mp_report
G��m_rtype%:�mp_rtype
G��m_rset1%:�mp_rset1
H�m_index%:�mp_index
H�m_mode%:�mp_mode
H�
H&�
H0
H:��mp_index:�I%,T$
HD=�newmenu%:menuindex%=my%:�yconv(menuindex%,�nindices,mh%)
HN9�nindices<=0:�I%=0�3:�shade(menu%,I%):�:menuindex%=0
HX)$t_iexp%="":T$="Index":�menuindex%>0�
Hb#șswi%,istat_%,menuindex%�G%,P%
Hl#T$=�$sd%,12):$t_iexp%=$(sd%+16)
HvG�menuindex%=�curidx:șswi%,istat_%,-1�G%,P%:�tick(menu%,(G%�32)>>5)
H��
H�%I%=menu%?12:$menu%=T$:menu%?12=I%
H��
H�
H���mp_mode:�I%
H�9�I%=1�6:�m$(file%),�"EDFNSC",I%,1))�tick(menu%,I%-1)
H��:�
H�
H�
��mp_card
H��T%:T%=menu%+28+0*24+4
H�:�flg(f_pane%):�tick(menu%,0):!T%=-1:�:!T%=w%(file%,1)
H�=�f%(file%)=0:�shade(menu%,1):��f%(file%)>0:�tick(menu%,1)
H��macmode:�tick(menu%,2)
I�defon:�tick(menu%,3)
I0�prep(m_format%,tree%):�prep(m_macro%,tree%)
I0�prep(m_default%,tree%):�prep(m_wind%,tree%)
I .�prep(m_card1%,tree%):�prep(m_file%,tree%)
I*�
I4
I>��mp_format
IH�f%(file%)>0:�tick(menu%,0)
IR�
I\
If��mp_macro
IpȎ�macmode �
Iz�f_macb%:�tick(menu%,0)
I��f_mace%:�tick(menu%,1)
I��
I��l%(file%)>0�shade(menu%,2)
I��
I�
I���mp_macro1
I�Ȏ�macmode �
I��f_macb%:�tick(menu%,0)
I��f_mace%:�tick(menu%,1)
I��
I�B�deadfile1(%1111111101111111):�shade(menu%,0):�shade(menu%,1)
I�*�saveset(f_mc$,&FFF,6,menufile%,80*30)
I��
J�
J
J'��mp_file:�v_(1)<4:�shade(menu%,3)
J$>�readonly:�shade(menu%,0):�shade(menu%,1):�shade(menu%,2)
J.N�l%(file%)>0�shade(menu%,0):�shade(menu%,1):�shade(menu%,2):�tick(menu%,3)
J8(�i_v%=0�i_merging%>0:�shade(menu%,4)
JB�
JL
JV��mp_default
J`�defon:�tick(menu%,1)
Jj�l%(file%)>0�shade(menu%,0)
Jt�v_(15)=0�tick(menu%,0)
J~�
J�
J�
��mp_wind
J�6�I%:�I%=0�maxw%-2:�w%(file%,I%+2)>0�tick(menu%,I%)
J��:�
J�
J���mp_card1
J��v_(11)=0:�shade(menu%,1)
J�,�saveset(f_cd$,&FFF,1,menufile%,�wd*�ht)
J�*�l%(file%)>0��readonly:�shade(menu%,0)
J�+�i_v%=0�i_merging%>0:�shade(m_card1%,4)
J��
J�
K
��mp_subs
K
1�T%:T%=�itos:$menu%="Subsets":�T%<256T%=T%�31
K
Ȏ � �
K�T%>0�T%<25
K(5$t_subd%=d$(file%,T%-1):$menu%="Subset "+�(65+T%)
K2�T%>255
K<3�shade(menu%,0):�shade(menu%,2):�shade(menu%,3)
KF"$menu%="Subset "+$�ia(mh%,mi%)
KP%�T%=0�3:�shade(menu%,T%):�:T%=-1
KZ�
Kd�readonly:�shade(menu%,2)
Kn$menusub%=T%:�prep(m_nums%,tree%)
Kx�
K�
K� ��mp_status:$menu%=�filename
K�șswi%,sd57_%,"type"�G%
K�Y�G%<>id_wcia%�G%<>id_bbc%�G%<>id_exb%:�shade(menu%,1):�shade(menu%,2):�shade(menu%,3)
K�șswi%,sd57_%,"bit7"�G%
K��G%=0�tick(menu%,6)
K��
K�
K�
��mp_nums
K��nnums=10:�shade(menu%,0)
K�1�menusub%<255:�shade(menu%,2):�shade(menu%,1)
K��
K�
L
��mp_npad
L*�saveset(f_np$,&FFF,5,menufile%,80*19)
L�
L"
L,
��mp_main
L67�v_(1)>2:�shade(menu%,2):�v_(1)>4:�shade(menu%,1)
L@�
LJ
LT��mp_report
L^0�I%:�a%(file%)<>0:�I%=0�3:�shade(menu%,I%):�
Lh,�s%(file%)<>0:�I%=2�3:�shade(menu%,I%):�
Lr �r%(file%)=0:�shade(menu%,1)
L| �r%(file%)=4:�shade(menu%,2)
L�:�tree%>0:�!tree%=3:�saveset(f_rx$,&FFF,7,file%,�rsize)
L�1�prep(m_rtype%,tree%):�prep(m_rset1%,tree%):�
L�
L�'��mp_rtype:�tick(menu%,r%(file%)):�
L�
L���mp_rset1:�T$:Ȏr%(file%)�
L��3:T$=f_la$
L��4:T$=f_wp$
L��5:T$=f_rp$
L�:�shade(menu%,2)
L��
L�5�tree%>0:�!tree%=1:�saveset(T$,&D7B,8,file%,2000)
L��
M
M!��pop(menu%,tree%):newmenu%=�
M#��repop(menu%,tree%):newmenu%=�
M&�process%>0:�
M0�menu%<0:�
M:�prep(menu%,tree%)
MD,ș"Wimp_CreateMenu",,menu%,mx%-50,my%+32
MNopenmenu%=menu%
MX�
Mb
Ml��nomenu
Mv5ș"Wimp_CreateMenu",,-1:menufile%=-1:openmenu%=-1
M��
M�
M�+��nodial:�dialogue%>0�closew(dialogue%)
M��
M�
M���menuselect
M��I%
M�-I%=0:�mlist%!I%=q%!I%:I%+=4:�q%!(I%-4)=-1
M�1�readpointer:�menufile%>=0:�sdfile(menufile%)
M�Ȏopenmenu%�
M��m_main%:�m_main
M��m_card%:�m_card
M��m_subs%:�m_subs
N�m_format%:�m_format
N�m_npad%:�m_npad
N�m_macro1%:�m_macro1
N �m_status%:�m_status
N*�m_report%:�m_report
N4�m_index%:�m_index
N>�m_mode%:�m_mode
NH�
NR�mb%=1�
N\$�menufile%>=0:�sdfile(menufile%)
Nf%�repop(openmenu%,mlist%):��nomenu
Np�
Nz�
N��
N�
N���m_main
N�Ȏ!mlist%�
N��0:�dialogue(w_info%)
N��1:�transfer
N��2:�fastsort
N��3:�create
N��4:�status
N��5:�pdriver
N�!�6:�v_(1)=0:�quit(�):��qquit
N��
N��
O
O��m_card
OȎ!mlist%�
O$�0:�swpane
O.�1:�m_format
O8�2:�m_macro
OB�3:�m_default
OL�4:�m_card1
OV�5:�m_file
O`�6:�m_wind
Oj�
Ot�
O~
O���m_mode
O�:�T$,I%:T$=�"EDFNSC",!mlist%+1,1):I%=�m$(menufile%),T$)
O��I%=0m$(menufile%)+=T$:�
O�;m$(menufile%)=�m$(menufile%),I%-1)+�m$(menufile%),I%+1)
O��
O�
O�
��m_card1
O�Ȏmlist%!4�
O�8�0:笤deadfile(-1):�stop(10,"Delete Card",as$,file%)
O��1:�rmvcard
O�
�2:�csize
O�0�4:i_file%=menufile%:�i_send($t_impulse%,-1)
P�
P
�
P
P
��m_macro
P(�T%:T%=�flg(f_macb%)
P2Ȏmlist%!4�
P<�-1:�swmacro
PF8�0:fl%(file%)=(fl%(file%)��f_mace%)�f_macb%:�showmac
PP8�1:fl%(file%)=(fl%(file%)��f_macb%)�f_mace%:�showmac
PZ=�2:�stop(22,fi$+�filename,rl$+"update cards ?",menufile%)
Pd�
Pn �T%��flg(f_macb%):�validrec
Px�
P�
P���m_macro1
P�$�T%,U%:T%=�flg(f_macb%):U%=file%
P�Ȏ!mlist%�
P�8�0:fl%(file%)=(fl%(file%)��f_mace%)�f_macb%:�showmac
P�8�1:fl%(file%)=(fl%(file%)��f_macb%)�f_mace%:�showmac
P�<�2:�stop(18,fi$+�filename,rl$+"clear macro ?",menufile%)
P��
P�,�sdfile(U%):�T%��flg(f_macb%):�validrec
P��
P�
P���m_file
P�Ȏmlist%!4�
Q�0:�expr(1)
Q�1:�initsort
Q8�2:�stop(3,fi$+�filename,rl$+"compact file ?",file%)
Q"�3:�setlink
Q,�4:�i_impulse
Q6�
Q@�
QJ
QT��m_default
Q^Ȏmlist%!4�
Qh�-1,1:�swdefault
Qr�0:�showdef
Q|�
Q��
Q�
Q���m_wind
Q��T%:T%=mlist%!4
Q�A�T%>-1�T%<maxw%-1:�w%(file%,T%+2)>0:�closew(w%(file%,T%+2)):�
Q�	ȎT%�
Q��0:�subs
Q��1:�repwind
Q��2:�fieldlist
Q�
�3:�index
Q��4:�notepad
Q�
�5:�macro
Q�
�6:�wtidy
R�
R�
R
R&��m_subs
R0Ȏ!mlist%�
R:=�0:�stop(4,�subdesc1(menusub%),rl$+"fill subset ?",file%)
RD>�1:�stop(5,�subdesc1(menusub%),rl$+"clear subset ?",file%)
RNA�2:�stop(15,�subdesc1(menusub%),rl$+"destroy subset ?",file%)
RX)�3:d$(file%,(menusub%�31)-1)=$t_subd%
Rb�4
RlȎmlist%!4�
Rv�0:�numeric(0)
R��1:�numeric(1)
R�@�2:�stop(8,�subdesc1(menusub%),rl$+" delete subset ?",file%)
R��
R��
R��
R�
R�-��m_status:�f%,T%:f%=�:�sdfile(menufile%)
R�Ȏ!mlist%�
R��0:�nodial:�walign
R��1:�readws:�newnotes
R��2:�writews
R��3
R�0T%=�hdbyte(&35):�T%=id_wcia%�T%=id_bbc%��-3�
Sșswi%,sd14_%,id_exb%,&35
S�writews
S�
S �4:șswi%,sd43_%
S*�5:�getpass:f%=�
S4
�6:�swap7
S>	f%=�
SH�
SR�f%:�nodial
S\�
Sf
Sp��m_format
SzȎmlist%!4�
S��-1,0:�link
S��1:�closeform
S��
S��
S�
S���m_npad
S�Ȏ!mlist%�
S�>�0:�stop(17,fi$+�filename,rl$+"clear notepad ?",menufile%)
S��2:�newnotes
S��
S��
S�
S���m_report
TȎ!mlist%�
T5�0:�mlist%!4>=0r%(file%)=mlist%!4:�makerep(file%)
T�1
T$Ȏmlist%!4�
T.�0,-1:�rsetup
T8�1:�clearrep
TB�
TL�2:�printrep
TV�:�
T`
Tj��m_index:�deadfile(-1):�
TtȎ!mlist%�
T~&�0,1:�selindex(menuindex%,!mlist%)
T��2:�selindex(0,0)
T��
T��
T�
T���submenu(menu%,X%,Y%,q%)
T��I%
T�-I%=0:�mlist%!I%=q%!I%:I%+=4:�q%!(I%-4)=-1
T��prep(openmenu%,mlist%)
T�'ș"Wimp_CreateSubMenu",,menu%,X%,Y%
T��
T�
T� ��clearts(mh%):�I%:I%=mh%+28
U"�mh%<menustart%�mh%>menuend%:�
U
�
U"!I%=!I%��1:I%!8=I%!8��&400000:
UI%+=24:�I%!-24�&80
U(�
U2
U<��shade(mh%,I%)
UF/mh%!(28+8+24*I%)=mh%!(28+8+24*I%)�&400000:�
UP
UZ��tick(mh%,I%)
Ud'mh%!(28+24*I%)=mh%!(28+24*I%)�&01:�
Un
Ux��redraw(update%)
U��h%,T%:�update%�
U�%ș"Wimp_UpdateWindow",,q% � more%
U��
U�%ș"Wimp_RedrawWindow",,q% � more%
U��
U�%h%=!q%:�wtof(h%):�readblock(q%+4)
U�ȕ more%
U�T%=�:�:��:T%=�
U��T%�
U�"�-3:�rectfill(�$):���:�err(0)
U��
U��file%>=0�
U�Ȏwind%�
V�0:�drawcard
V�3:�drawrep
V�4:�drawflist
V"�5:�drawilist
V,�
V6�
V@�
VJ�
VT��
V^!q%=h%:more%=�nextrectangle
Vh�
Vr�
V|
V���drawcard
V�Ȏs%(file%)�
V��0
V�'�T%:�update%��(pix%��flg(f_pics%))�
V�T%=6
V��
V�șswi%,gline_%:�:T%=2
V��
V�<�gcol(0,7+lc%*(l%(file%)>0)):�gcol(0,130+��flg(f_7bit%))
V�2�bx%+margin%,by%-margin%:șswi%,wimp_%,T%,sdf$
V��pix
V�+�1:�rectfill("No cards in this subset")
V��2:�rectfill(�actdesc)
W�
W�
W
W&-��drawflist:�T%:T%=&10000:�update%T%=T%�1
W02�v_(7)=0�rectfill("No fields in this file"):�
W:3�bx%+margin%,by%-margin%-4:șswi%,wimp_%,T%,sd$
WD�
WN
WX9��drawilist:�T%,x%,y%,X%,Y%:T%=&20000:�update%T%=T%�1
Wb6�nindices=0�rectfill("No indices in this file"):�
Wl4�bx%+margin%,by%-margin%-4:șswi%,wimp_%,T%,sdf$
WvT%=�curidx:�T%>0�
W�AX%=bx%:Y%=by%-margin%-T%*linegap%:y%=Y%+linegap%+3:x%=X%+5000
W��X%<gx0%X%=gx0%
W��x%>gx1%x%=gx1%-1
W��Y%<gy0%Y%=gy0%
W��y%>gy1%y%=gy1%-1
W�l�y%>=Y%�x%>=X%�24,X%;Y%;x%;y%;:�gcol(0,128+7):�gcol(0,1):�bx%+margin%,by%-margin%-4:șswi%,wimp_%,&20001
W��
W��
W�
W���drawrep:�update%�
W��s%(file%)=2�
W��rectfill(�actdesc)
W��
XȎr%(file%)�
X�0:�drawcards
X�1:�drawsheet
X �2:�drawformula
X*�3:�drawlabels
X4�4:�drawwordpro
X>�5:�drawpaged
XH�
XR�
X\�
Xf
Xp8��drawcards:�h%,T%,d%,t%,e%:d%=�v_(14):�update%:t%=1
Xz�update%:t%=6:�t%=2
X��
X�*��:��:�repdrawn(d%):�forcerep:�err(0)
X�1h%=�rht:T%=(by%-gy1%-margin%-4)/(linegap%*h%)
X�9Y%=by%-margin%-h%*linegap%*T%:�:șswi%,grec_%,T%+1�N%
X��sd35:ȎG%�
X��0
X�<�gcol(0,7+lc%*(l%(file%)>0)):�gcol(0,130+��flg(f_7bit%))
X�(�bx%+margin%,Y%:șswi%,wimp_%,t%,sd$
X�F�1:�printcard("Card "+äv_(15)+" not in this subset",Y%,h%+(h%>1))
X�A�128:�printcard("Deleted card number "+äv_(15),Y%,h%+(h%>1))
X��:Y%-=h%*linegap%:T%+=1
X�8�h%>1�gx0%,Y%+4+linegap%�2:�gcol(0,2):�BYgx1%-gx0%,0
X�'�Y%<gy0%�T%>�v_(17):�repdrawn(d%):�
Y
Y$��drawsheet:�Y%,T%,d%:d%=�v_(14)
Y�
Y$*��:��:�repdrawn(d%):�forcerep:�err(0)
Y.?T%=(by%-gy1%-margin%-4)�linegap%:Y%=by%-margin%-linegap%*T%
Y8(�gx0%<bx%+margin%+16*(12+��srep(1))�
YB9ȕY%>=gy0%�T%<=�v_(17)+3:�gcol(0,7+lc%*(l%(file%)>0))
YL�bx%+margin%,Y%
YV�slin(T%+1)
Y`T%+=1:Y%-=linegap%:�
Yj�:�repdrawn(d%):�
Yt
Y~F��drawformula:�Y%,rec%,d%,L%:d%=�v_(14):L%=(gx1%-bx%-margin%)�16+1
Y��
Y�*��:��:�repdrawn(d%):�forcerep:�err(0)
Y�Crec%=(by%-gy1%-margin%-4)�linegap%:Y%=by%-margin%-linegap%*rec%
Y�HȕY%>=gy0%�rec%<�v_(17):�gcol(0,7+lc%*(l%(file%)>0)):�bx%+margin%,Y%
Y��rlin(rec%+1,L%)
Y�*rec%+=1:Y%-=linegap%:�:�repdrawn(d%):�
Y�
Y�1��drawpaged:�Y%,T%,L%,A%,B%,T$:L%=p%(file%,2)
Y�9A%=(gx0%-bx%-margin%)�16+1:B%=(gx1%-bx%-margin%)�16+1
Y�?T%=(by%-gy1%-margin%-4)�linegap%:Y%=by%-margin%-linegap%*T%
Y�ȕY%>=gy0%:�bx%+margin%,Y%
Y�	ȎT%�
Z�0:�topline;
Z
1�1,2,3:T$=�p$(file%,T%),L%):�((L%-�T$)/2)T$;
Z�4:�dummyhdrs(B%);
Z�5:�dummydsh(B%,"-",�);
Z( �6,7,8:�dummycols(A%,B%,�);
Z2�9:�dummydsh(B%,"-",�);
Z<�10:�dummycols(A%,B%,�);
ZF�11:�dummydsh(B%,"=",�);
ZP3�13:�flg(f_rbpn%):�L%>7�((L%-8)/2)"Page ###";
ZZ�
ZdT%+=1:Y%-=linegap%:�
Zn�
Zx
Z�(��repdrawn(d%):șswi%,locate_%,d%�D%
Z��rlink(�):�
Z�
Z���drawlabels:�Y%,T%
Z�?T%=(by%-gy1%-margin%-4)�linegap%:Y%=by%-margin%-linegap%*T%
Z�.ȕY%>=gy0%�T%<ll%(file%,3):�bx%+margin%,Y%
Z� �gcol(0,7+lc%*(l%(file%)>0))
Z�'�dumlab(T%):T%+=1:Y%-=linegap%:�:�
Z�
Z���drawwordpro:�Y%,T%
Z�?T%=(by%-gy1%-margin%-4)�linegap%:Y%=by%-margin%-linegap%*T%
Z�AȕY%>=gy0%�T%<15:�bx%+margin%,Y%:�gcol(0,7+lc%*(l%(file%)>0))
Z��wlin(T%)
[T%+=1:Y%-=linegap%:�:�
[
[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
\:��waitpoint
\Dwaiter%+=1
\Nș"Hourglass_On"
\X�
\b
\l��normpoint
\v8ȕwaiter%>0:ș"Hourglass_Off":waiter%-=1:�:waiter%=0
\��
\�
\���gcol(m%,c%)
\�!ș"Wimp_SetColour",(m%<<4)+c%
\��
\�
\���dataloadack
\�!q%=20:q%!12=ref%:q%!16=4
\�$ș"Wimp_SendMessage",17,q%,task%
\��
\�
\���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%)
]4savereason%=r%:savefile%=f%
]>+q%!32=my%:q%!28=mx%:q%!24=mi%:q%!20=mh%
]H8q%!16=1:q%!12=0:q%!36=s%:q%!40=t%:!q%=(�T$+49)�&FFFC
]R5$(q%+44)=T$+�0:ș"Wimp_SendMessage",17,q%,mh%,mi%
]\ saveref%=q%!8:savetype%=t%:�
]f
]p%��loadmess:�readpointer:�task%<0�
]z+$(q%+44)=file$+�0:!q%=(�file$+49)�&FFFC
]�&q%!12=ref%:q%!16=3:q%!40=savetype%
]�?q%!20=mh%:q%!24=mi%:q%!28=mx%:q%!32=my%:q%!36=�fsize(file$)
]�$ș"Wimp_SendMessage",17,q%,task%
]�ackpending%=�:�
]�
]�&ݤfsize(T$):�T%,s%:T%=�T$:�T%=0:=0
]�s%=�#T%:�#T%:=s%
]� 
]�ݤzts(T%):�T$
]�ȕ?T%<>0:T$+=�?T%:T%+=1:�
]�=T$
]�
]�)��key(h%,icon%,x%,y%,carh%,off%,key%)
^
�wtof(h%)
^,�file%>=0�wind%=0�file%=edfile%:�edkey:�
^-�file%>=0�wind%=3�file%=edfile%:�edkeyr:�
^$�F%:F%=�
^.Ȏkey%�
^8�9,&18A:�findct
^B�13:�cursor(h%,icon%,1,0)
^L�19:�swapcase
^V"�27:�dialogue%>=0�nodial:�F%=�
^`#�&18F:�cursor(h%,icon%,-1,off%)
^j"�&18E:�cursor(h%,icon%,1,off%)
^t#�&19F:�cursor(h%,icon%,-5,off%)
^~"�&19E:�cursor(h%,icon%,5,off%)
^�(�&1AF,30:�cursor(h%,icon%,-1E9,off%)
^�$�&1AE:�cursor(h%,icon%,1E9,off%)
^�	F%=�
^��
^�	�F%:�
^�ș"Wimp_ProcessKey",key%
^��
^�
^���edkey
^� �T%,t%:T%=edfield%:�formstat
^�'�v_(7)=edfield%�key%=13:�endedit:�
^�t%=0:Ȏkey%�
_=�27:�seti(w%(file%,0),edicon%,�gfield(edfield%)):�endedit
_
�19:�swapcase
_�1:�add
_�9,&18A:�findct
_(�&18F:t%=-1
_2�&18E,13:t%=1
_<�&19F:t%=-5
_F�&19E:t%=5
_P�&1AF,30:T%=0:t%=1
_Z�&1AE:T%=�v_(7)+1:t%=-1
_d:ș"Wimp_ProcessKey",key%
_n�:�t%�fedit2(T%,t%)
_x�
_�
_���edkeyr
_��T%,X%,r%,I%
_�$�+1:�:�X%:I%=I%�(X%=key%):�X%=-1
_�2�13,&18F,&1BF,&18E,&1BE,&1BC,&1BD,&1AF,&1AE,-1
_�5T%=edfield%:X%=edx%:r%=edrec%:șswi%,grec_%,r%�N%
_�)�I%:�setedfield1:r%=�v_(15):edrec%=r%
_�Ȏkey%�
_�C�27:X%=-1:�seti(w%(file%,3),edicon%,�gfield(edfield%)):�endedit
_��19:�swapcase:X%=-1
_��9,&18A:�findct:X%=-1
_��13:șswi%,dir_%,1
_�"�srxnext(X%,T%,1):�X%=1�sdnext
`�&18F,&1BF:șswi%,dir_%,0
`�sdnext
`�&18E,&1BE:șswi%,dir_%,1
`"�sdnext
`,�&1BC:�srxnext(X%,T%,-1)
`6�&1BD:�srxnext(X%,T%,1)
`@�&1AF:șswi%,first_%�,N%
`J�sdnext
`T"�&1AE:șswi%,grec_%,�v_(17)�N%
`^șswi%,dir_%,0
`h�sd35:�G%:�sdnext
`r$:X%=-1:ș"Wimp_ProcessKey",key%
`|�
`� �badrec(�v_(15)):�validrec1
`� �s%(file%)<>0:�endedit:X%=-1
`��X%>0�edrep(X%,�v_(15))
`��v_(15)<>r%:�validrec1
`��
`�
`�,��swapcase:�getct:T%=q%!20+�ia(!q%,q%!4)
`�3�?T%<123�?T%>96 ?T%-=32:��?T%<91�?T%>64 ?T%+=32
`�*�getct:�?T%>31�setct(!q%,q%!4,q%!20+1)
`��getct:�iconupd(!q%,q%!4):�
`�
`�+��getct:ș"Wimp_GetCaretPosition",,q%:�
`�
a��setct(h%,i%,o%)
a+ș"Wimp_SetCaretPosition",h%,i%,,,-1,o%
a�i%>=0�findct
a&�
a0
a:ݤnumi(h%,i%,b%)
aD	��`na
aN�U%,D%,N%,T%,B%,W%,F%,S%,V%
aXȕW%<>-1�F%=�
ab�readh(W%):�U%,D%,N%,T%,B%
al�W%=h%�
av�i%=U%�i%=D%�
a�F%=�
a�V%=�$�ia(W%,N%)
a�S%=1:�i%=D%:S%=-1
a��b%=1:S%=S%*10
a�V%+=S%:�V%<B%:V%=B%
a��V%>T%V%=T%
a��seti(W%,N%,�V%)
a��
a��
a��
a�=F%
a��w_finf%,3,4,2,255,1
a��w_finf%,18,21,20,255,1
b�w_finf%,14,15,13,6,1
b�w_label%,10,13,12,99,1
b�w_label%,5,7,41,99,1
b �w_label%,42,4,23,99,1
b*�w_label%,14,16,6,99,1
b4 �w_label%,18,20,15,maxacr%,1
b>�w_label%,22,24,19,99,1
bH�w_label%,47,49,48,20,0
bR�w_label%,51,53,52,99,0
b\�w_rset3%,8,9,7,255,10
bf�w_rset3%,11,13,12,99,0
bp�w_rset3%,15,17,16,255,1
bz�w_rset3%,27,25,26,99,6
b��w_rset3%,21,23,22,99,6
b��w_col%,13,14,10,200,1
b��w_col%,18,20,19,6,0
b��w_csize%,56,58,57,255,1
b��w_csize%,60,62,61,255,1
b��-1,-1,-1,-1,-1,-1,-1
b�
b���cursor(h%,i%,s%,o%)
b�	��pRc
b�
�W%,T$,I%
b�ȕW%<>-1
b��readh(W%):�W%<>h%�
b��W%<>-1:�:�W%:�W%<-1:W%=0
c�
c�
c�W%:�W%<>-1:T$+=�(W%)
c$�W%<-1:T$=�T$)
c.;�key%=13:��T$)=i%:mi%=�(W%+100):mb%=1:mh%=h%:�select:�
c8/�s%=1E9:s%=�T$:��s%=-1E9:s%=1:�s%+=�T$,�i%)
cBȕs%>�T$:s%-=�T$:�
cLȕs%<1:s%+=�T$:�
cVI%=��T$,s%)
c`#�o%>�$�ia(h%,I%)o%=�$�ia(h%,I%)
cj�setct(h%,I%,o%)
ct�
c~�
c��
c��w_expr%,17,exi0%,-123
c��w_nums%,2,3,-105
c�"�w_finf%,5,exi0%,13,exi1%,-119
c��w_rlink%,1,3,5,-108
c��w_srset%,3,-106
c�)�w_label%,48,12,41,23,6,52,15,19,-128
c��w_open%,14,-112
c��w_passw%,5,1,2,-103
c�4�w_word%,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,-142
c��w_sort%,2,-106
c�%�w_pdrive%,7,8,9,10,11,12,13,-118
d�w_rset1%,1,2,3,4,-105
d
�w_rset2%,42,43,44,45,-100
d �w_rset3%,7,12,16,26,22,-100
d�w_col%,22,24,10,19,-142
d(�w_csize%,61,57,-164
d2+�w_impulse%,11,12,14,15,16,17,18,9,-107
d<�w_save%,2,-100
dF�"w%(file%,1)",7,-105
dPF�"w%(file%,6)",0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,-100
dZg�"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
dd�-1
dn
dx��readh(� T%)
d�-�T$:�T$:�file%<0��T$,"file%")T%=1:�T%=�T$
d��
d�
d�ݤleaf(T$)
d�
�I%,C%
d�$�((�T$,".")=0)�(�T$,":")=0))�=T$
d�I%=�(T$)
d��
d�C%=��T$,I%,1)
d�	I%-=1
d��(I%<=0�C%=�"."�C%=�":")
d��I%>0�=�T$,�(T$)-I%-1)
d�=T$
e
e3��wext(h%,x%,y%):!q%=0:q%!4=-y%:q%!8=x%:q%!12=0
e'ș"Wimp_SetExtent",h%,q%:�force(h%)
e"�getw(h%):�open%�
e,�x1%-x0%>x%:x%+=x0%:�x%=x1%
e6!�y1%-y0%>y%:y%=y1%-y%:�y%=y0%
e@.�open(h%,x0%,y%,x%,y1%,scx%,scy%,bhandle%)
eJ�
eT�
e^
eh
��process
er/�dialreason%>=0�dialogue%>=0�ackpending%>0�
e|Ȏprocess%�
e��1:�checkprot
e�T�2:�stop(1,"Please place original","MultiStore disk in drive :0",-1):process%+=1
e��3:�checkprot
e��4:�startopen
e�process%=0:�newdelay
e��
e��
e�
e���dragicon(h%,i%)
e�"�x%,y%,ys%,tx0%,ty0%,tx1%,ty1%
e�,�getw(h%):ys%=y1%-y0%:x%=bx%:y%=y0%-scy%
e�1�geti(h%,i%):q%!8+=x%:q%!12+=y%+ys%:q%!16+=x%
e�0q%!20+=y%+ys%:q%!24=0:q%!28=0:!q%=0:�drag5:�
f
f<��drag5:�readpointer:�scrsz:tx0%=mx%-q%!8:ty0%=my%-q%!12
f=q%!24-=tx0%:q%!28-=ty0%:q%!32+=q%!16-mx%:q%!36+=q%!20-my%
f&!q%!4=5:ș"Wimp_DragBox",,q%:�
f0
f:ݤlower(T$):�T$="":=""
fD
�I%,C%
fN�I%=1��T$:C%=��T$,I%)
fX"�C%>64�C%<91�T$,I%,1)=�(C%+32)
fb	�:=T$
fl
fv��wtof(T%)
f�
�I%,J%
f�wind%=-1:file%=-1
f��I%=0�maxf%
f��J%=0�maxw%
f�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�
f�
��fext
f�
�x%,y%
f�1y%=�ht*linegap%+margin%*2:�y%<paneh%y%=paneh%
g)x%=�wd*16+margin%*2:�x%<22*16x%=22*16
g�wext(w%(file%,0),x%,y%):�
g
g ��rext:�w%(file%,3)<=0�
g*�X%,Y%:Ȏr%(file%)�
g4#�0:X%=�wd:Y%=�int(�rht*�v_(17))
g>�1:X%=255:Y%=�v_(17)+4
gH�2:X%=255:Y%=�v_(17)
gR!�3:Y%=ll%(file%,3):X%=�lwidth
g\�4,5:X%=255:Y%=15
gf�
gp�X%<24X%=24
gz<�wext(w%(file%,3),X%*16+margin%*2,Y%*linegap%+margin%*2)
g��
g�
g�ݤrht:�T%:T%=�ht:=T%-(T%>1)
g�&ݤht:șswi%,sd57_%,"height",sd$�G%
g�%ݤwd:șswi%,sd57_%,"width",sd$�G%
g��sdfile(file%):=G%
g�
g� ݤint(t):�t>2E9:=�t*2E9:�=t
g�
g���sdfile(T%)
g�0�G%:file%=T%:sd$=äformhand(T%):sdf$=�h%(T%)
g�$șswi%,file_%,sdf$:șswi%,sd13_%
g��
h
h%��formstat:șswi%,sd13_%,0,sd$�G%
h�
h$
h.*ݤbadrec(T%):=(T%�&7FFFFF00)=&7FFFFF00
h8
hB��validrec1:�vr(�,�)
hL��validrec2:�vr(�,�)
hV��validrec:�vr(�,�)
h`�
hj
ht��vr(T%,U%)
h~)�sd35:�G%:笤okcard:�newcard(T%,U%):�
h��
h��flg(f_macb%)�
h��bmacro:�sd35:�G%�
h�&笤okcard:�newcard(T%,U%):�:�G%=-1
h��
h��
h�	�G%=0
h��newcard(T%,U%)
h��
h�
h���validaterec:�vrr(�):�
h���validaterec1:�vrr(�):�
i
i
��vrr(T%):�sd35:�G%=0:�
i�vr(T%,�):�
i
i(��revalidate
i24�s%(file%)=1s%(file%)=0:�validrec2:��validaterec
i<�forcerep:�
iF
iPݤokcard
iZ�g%
id#�:��:��:�checksubset:�err(32)
in
*fx229
ix�
i��validr1
i�2�badrec(�v_(15))g%=0:��sd35:g%=G%:�G%:�sdnext
i��g%=0:*fx229,1
i�)=�(�badrec(�v_(15))��badrec(�v_(14)))
i�
i�
��validr1
i�D%=�v_(14):N%=�v_(15)
i��D%=0�N%=0�
i�șswi%,first_%�,N%
i�!�sdnext:D%=�v_(14):N%=�v_(15)
i��
i�笤badrec(D%):�
i��badrec(N%)�
j
Ȏ N%�1 �
j� 1
jșswi%,first_%�,N%
j"!�sdnext:D%=�v_(14):N%=�v_(15)
j,� 0
j6șswi%,grec_%,�v_(17)�N%
j@șswi%,dir_%,0
jJ�sd35:�G%�sdnext
jTD%=�v_(14):N%=�v_(15)
j^�
jh0笤badrec(N%):șswi%,sd30_%,N%�G%:D%=�v_(14)
jr�
j|�N%>�v_(17)�
j�șswi%,first_%�,N%
j�!�sdnext:D%=�v_(14):N%=�v_(15)
j��
j�șswi%,sd30_%,N%�G%
j��
j��
j��
j�
j�
��sd35
j�D%=�v_(14):N%=�v_(15)
j��N%=0�D%=0:G%=1:�
j��badrec(N%)�
j��badrec(D%):G%=1:�G%=0
k�
kșswi%,sd35_%,N%�G%
k�G%=0G%=�filter
k&�
k0�
k:
kD)ݤfilter:�rlink(�):笤flg(f_filt%):=0
kN�
kX��:��:�nofilt:�err(8)
kb7�ev(fx$(file%),�flg(f_fspc%),�flg(f_fupp%)):=0:�=1
kl
kv��sdnext
k�șswi%,sd23_%�N%
k�#�:��:��:�=17:G%=0:�:��err(0)
k�
*fx229
k��
k�șswi%,next_%�N%
k��badrec(N%)G%=0:��sd35
k�	�G%=0
k�*fx229,1
k��
k�
k���fwd:�deadfile(-1):�
k��n%:șswi%,sd23_%�N%
k�șswi%,dir_%,1
l7n%=N%:�sdnext:�badrec(�v_(15)):șswi%,grec_%,n%�N%
l�n%<>�v_(15)�validrec
l�
l 
l*��ffwd:�deadfile(-1):�
l4a%(file%)=1:�newdelay
l>�
lH
lR��fback:�deadfile(-1):�
l\#a%(file%)=2:�newdelay:�matchrep
lf�
lp
lz��skip(d%)
l�'�T%,t%:t%=a%(file%):șswi%,dir_%,d%
l� T%=�v_(15):�sdnext:�validrec
l�/a%(file%)=t%:�T%<>�v_(15):�newdelay:��ready
l��
l�
l���back:�deadfile(-1):�
l��n%:șswi%,sd23_%�N%
l�șswi%,dir_%,0
l�9n%=�v_(15):�sdnext:�badrec(�v_(15)):șswi%,grec_%,n%
l��n%<>�v_(15):�validrec
l��
l�
l���bof:�deadfile(-1):�
mșswi%,first_%
m�sdnext:�validrec:�
m
m$��pause:�ready:�
m.
m8��eof:�deadfile(-1):�
mBșswi%,grec_%,�v_(17)
mL�validrec:�
mV
m`��cardnum:�deadfile(-1):�
mjșswi%,sd23_%
mt�checksubset:�
m~
m���gauge:�deadfile(-1):�
m��T%,M%:�getw(w%(file%,1))
m�M%=�v_(16):R%=�v_(17)
m�2T%=(M%+(M%>0))*(mx%-x0%)/(326-6)+1:�T%>R%T%=R%
m�șswi%,sd23_%�N%
m��T%=N%�
m�șswi%,grec_%,T%�N%
m��validrec:�
m�
m���ffind:�deadfile(-1):�
m�2�T$:T$=$�ia(w%(file%,1),7):�strip(T$):�T$="":�
m�*�T$,"=")=0���T$,2)>0�(�T$=35��T$=64)�
n
Ȏ�T$�
n
�35:șswi%,grec_%,��T$,2)
n�64:șswi%,locate_%,��T$,2)
n�
n(�validrec:�
n2�
n<s$(file%)=T$:�dup(T$,0):�
nF
nP��ffound
nZ"�seti(w%(file%,1),7,s$(file%))
nd.笤badrec(�v_(15)):�checksubset:��validrec
nn�
nx
n� ��nextmatch:�deadfile(-1):�
n��T$:�s$(file%)=""�
n�șswi%,gfield_%,1
n�șswi%,strip_%
n�șswi%,upper_%
n�s$(file%)=$sd%
n��
n�#T$=s$(file%):�dup(T$,�v_(14)):�
n�
n�)��dup1(T$,T%):�f$,t$,I%,d%:d%=�v_(14)
n�!�strip(T$):I%=�T$,"="):�I%>0�
n�t$=�T$,I%-1):T$=�T$,I%+1)
n��t$,"{")>0��t$)="}"�
of$=�t$,�t$,"{")+1):f$=�f$)
ot$=�t$,�t$,"{")-1)
o�
o"�
o,.f$+=m$(file%):șswi%,seek_%,T$,T%,t$,f$�G%
o60�G%=0:�d%>0:笤badrec(d%):șswi%,locate_%,d%
o@�
oJ
oT��dup(T$,T%):�dup1(T$,T%)
o^�G%=0:�err(36)
oh
�ffound:�
or
o|��checksubset
o�șswi%,sd23_%�N%
o��sd35:�G%�
o�$�flg0(f_filt%):șswi%,subset_%,0
o�0�w%(file%,0)>0�showfilter:�showsub:�forcerep
o��
o�
�validrec
o��
o�
o���newcard(T%,U%)
o��f%,I%:f%=file%
o��s%(file%)=0�
o�)�(�badrec(�v_(15))��badrec(�v_(14)))�
o�s%(file%)=1:�forcecard
p�
p0�U%�update(w%(file%,0)):��force(w%(file%,0))
p�
p&�
p0�T%:�matchrep
p:�shownum:�links%>0�
pD�I%=0�maxf%
pN;�l%(I%)=file%+1:�sdfile(I%):�newcard(T%,U%):�sdfile(f%)
pX�
pb�:�
pl
pv��update(h%)
p�
!q%=h%
p�	Ȏh%�
p�,q%!4=-1E9:q%!8=-1E9:q%!12=1E9:q%!16=1E9
p��
p��redraw(�)
p��
p�
p�.ݤnnums:�T%,I%:�I%=0�9:șswi%,sd53_%,I%�G%
p��$sd%>""T%+=1
p�	�:=T%
p�
p�-ݤsubmax(s%):șswi%,sd53_%,s%�G%:�G%=0:=0
qȕ(G%�1)=0:G%=G%>>>1:�:=G%
q
q6ݤsubnum(T$):�I%:T$=�su(T$):�T$=94:T$=�su(�T$,2))
q 0�T$=1��T$>65���substr,�T$-65,1)=".":=�T$-65
q*�I%=0�9:șswi%,sd53_%,I%�G%
q4șswi%,upper_%
q>�$sd%=T$:=I%+256
qH	�:=-1
qR
q\ݤsubstr:șswi%,sd53_%�G%
qf=$(sd%+16)
qp
qz%ݤsubname(s%):șswi%,sd53_%,s%�G%
q�	=$sd%
q�
q�*ݤsubdesc:�T$,T%:T%=�v_(11):�T%=32T%=0
q�=�subdesc1(T%)
q�
q�ݤsubdesc1(T%)
q��T%=0:="All Cards"
q�)�T%>255:="Numeric: "+�subname(T%-256)
q�#T$="":�T%>31:T%=T%�31:T$="NOT "
q�=T$+"Subset "+�(T%+65)
q�
q�ݤsubdesc2(T%)
q��T$
r
Ȏ � �
r&�T%=0�T%=32:T$="All cards in file"
r�T%>32�T%<64
r$T$=d$(file%,T%-33)
r.4�T$="":T$=�subdesc1(T%):��T$<21T$="NOT("+T$+")"
r89�T%>0�T%<32:T$=d$(file%,T%-1):�T$="":T$=�subdesc1(T%)
rB2�T%>255:T$="Numeric subset: "+�subname(T%-256)
rL
T$=""
rV�
r`=T$
rj
rtݤsubdesc3(T%)
r~�T%>255:=�subname(T%-256)
r��T%<31:=�(T%+65)
r�="NOT-"+�((T%�31)+65)
r�
r�0ݤsubdesc4(T%):�T%>255:="^"+�subname(T%-256)
r��T%<31:="^"+�(T%+65)
r�="(^"+�(T%+33)+"=0)"
r�
r���startopen:�waitpoint
r��T$,T%:process%+=1
r�"�T$>"":�openfile1(T$,0,0,"",0)
r�3T$=�ArfVar("MultiStore$Function"):T%=�T$,":")+1
r�
Ȏ�T$�
s�1:�pdriver
s
/�2,-1:�T$>=T%:�openfile1(�T$,T%),0,0,"",0)
s"�3:�T$>=T%:�openfile(�T$,T%))
s�
s(*unset MultiStore$Function
s2$�normpoint:�evaluation:�err(66)
s<�
sF
sP��ready
sZ�file%=edfile%�endedit
sd�a%(file%)<=0�
sn
Ȏ � �
sx%ɤv_(15)=0�l%(file%)<=0:�validrec
s��
s��
s�Ȏa%(file%)�
s�!�1,2:a%(file%)=0:�validaterec
s�5�3:�stop(7,"Searching file "+�filename,ri$,file%)
s�"�4:�stop(9,�actdesc,ri$,file%)
s�%�5,6:�stop(13,�actdesc,ri$,file%)
s�#�7:�stop(16,�actdesc,ri$,file%)
s�#�8:�stop(23,�actdesc,ri$,file%)
s�#�9:�stop(24,�actdesc,ri$,file%)
s�$�10:�stop(25,�actdesc,ri$,file%)
s�$�11:�stop(40,�actdesc,ri$,file%)
s��
t�
t
�newdelay
t�
t"
t,
��closeok
t6-�stop(2,"","Close file "+�filename,file%)
t@�
tJ
tTݤfilename
t^șswi%,stat_%�G%
th=¤leaf($sd%),10)
tr
t|&ݤofilename(I%):�I%<0�h%(I%)<1:=""
t��f%,T$:f%=file%
t�,�sdfile(I%):T$=�filename:�sdfile(f%):=T$
t�
t���swpane
t�"�flgx(f_pane%):�flg(f_pane%)�
t��getw(w%(file%,0))
t�9�open(w%(file%,0),x0%,y0%,x1%,y1%,scx%,scy%,bhandle%)
t��
t��getw(w%(file%,1))
t�A�open(w%(file%,1),x0%,y1%-paneh%,x0%+panew%,y1%,scx%,scy%,-2)
t��closew(w%(file%,1))
t��
t��
u
u3��forcecard:�force(w%(file%,0)):�forcecardrep:�
u
u&#��forcecardrep:șswi%,sd23_%�N%
u0�forcecardsrep(N%,N%):�
u:
uD2��forcecardsrep(T%,U%):�r%(file%)=4�forcerep:�
uN-�w%(file%,3)<=0�r%(file%)>2�s%(file%)<>0�
uX!�h%:h%=1:�r%(file%)=0:h%=�rht
ub�T%>U%ȔT%,U%
ulDty1%=-margin%-h%*(T%-1)*linegap%+4:�r%(file%)=1:ty1%-=2*linegap%
uv-ty0%=ty1%-(U%-T%+1)*h%*linegap%+1:ty1%+=4
u�4ș"Wimp_ForceRedraw",w%(file%,3),0,ty0%,1E9,ty1%
u��
u�
u�0��forcerep:�w%(file%,3)>0�force(w%(file%,3))
u��
u�
u�ݤdeadfile(f%)
u��T%:T%=�deadfile1(f%):�T%�
u�	�buzz
u��
u�&�ready:T%=�deadfile1(f%):�T%:�buzz
u��
u�=T%
v
vݤdeadfile1(f%)
v�I%
v �I%=0�30
v*�f%�(2^I%)�
v4	ȎI%�
v>�0,1,2,3:�s%(file%)=I%+1:=�
vH;�4:�a%(file%)<3�a%(file%)>0:�ready:=�:��a%(file%)<>0:=�
vR�5:�v_(15)=0:=�
v\#�6:�a%(file%)<>8�a%(file%)>2:=�
vf�7:�l%(file%)>0:=�
vp�
vz�
v��
v�=�
v�
v�*ݤmacmode=fl%(file%)�(f_macb%�f_mace%)
v�
v�ݤdefon=(�hdbyte1(29)�64)>0
v�
v�(ݤhdbyte(T%):șswi%,sd13_%,T%,sd$�G%
v�%ݤhdbyte1(T%):șswi%,sd13_%,T%�G%
v�=G%
v�
v�
��swmacro
v�;�macmode:�flg0(f_macb%):�flg0(f_mace%):��flg1(f_mace%)
w�showmac:�
w
w��swdefault
w$
�defon �
w.șswi%,default_%,"Off"
w8�
wBșswi%,default_%,"On"
wL�
wV�
w`
wj��initsort
wt0w_sort%=�crwind(tw_sort%):�sdfile(menufile%)
w~�unselall(w_sort%)
w�+�seti(w_sort%,0,"Sort file "+�filename)
w�4�o%(file%,0)�1:�seli(w_sort%,3)��seli(w_sort%,4)
w�#�o%(file%,0)�2:�seli(w_sort%,5)
w��seti(w_sort%,2,o$(file%))
w��dialogue(w_sort%):�
w�
w���qbscan(T$,� Q%,� B%)
w�*�I%,T%:Q%=�:B%=0:�I%=1��T$:T%=��T$,I%)
w��T%=34:Q%=�Q%
w�	�Q%�
w�"�T%=�"(":B%+=1:��T%=�")":B%-=1
w��
x�:�
x

x��ptrexit(h%)
x-�sbfile%>=0:�subdisp:sbfile%=-1:�newdelay
x(�
x2
x<��ptrenter(h%)
xF�wtof(h%):�file%>=0�
xP-�wind%=2:sbfile%=file%:�subdisp:�newdelay
xZ�
xd�
xn
xx0��subdisp1:�sbfile%:sbfile%=file%:�subdisp:�
x�
x���subdisp:�sbfile%<0:�
x�!�T$,T%,C%:�w%(sbfile%,2)<=0:�
x��readpointer:�wtof(mh%)
x�:T%=&F000000:�wind%=2�file%=sbfile%:T$=�subdesc2(�itos)
x�HC%=&D000000:�T$=""C%=&7000000:�sdfile(sbfile%):T$=�subdesc2(�v_(11))
x��geti(w%(sbfile%,2),0)
x�0�(q%!24�T%)<>C%:�iset(w%(sbfile%,2),0,T%,C%)
x�8�T$<>$�ia(w%(sbfile%,2),0):�seti(w%(sbfile%,2),0,T$)
x��
x�
x�
��subs
x�&�w%(file%,2)<=0:�makesubs(file%):�
y�front(w%(file%,2),-1,-1)
y�
y
y"��filter
y,$笤deadfile(%11111111111111110)�
y6�mb%=1:�nofilt:��expr(0)
y@�
yJ�
yT
y^
��notepad
yh'�w%(file%,6)<=0:�makenotes(file%):�
yr�front(w%(file%,6),-1,-1)
y|�
y�
y���macro
y�'�w%(file%,7)<=0:�makemacro(file%):�
y��front(w%(file%,7),-1,-1)
y��
y�
y�
��repwind
y�%�w%(file%,3)<=0:�makerep(file%):�
y��front(w%(file%,3),-1,-1)
y��
y�
y���fieldlist
y�'�w%(file%,4)<=0:�makeflist(file%):�
z�front(w%(file%,4),-1,-1)
z�
z
z&��index
z0'�w%(file%,5)<=0:�makeilist(file%):�
z:�front(w%(file%,5),-1,-1)
zD�
zN
zX=��delicon(h%,i%):!q%=h%:q%!4=i%:ș"Wimp_DeleteIcon",,q%:�
zb
zl2��loseicon(h%,i%):�geti(h%,i%):�delicon(h%,i%)
zv7q%!4=!q%:q%!8=-1E9:q%!12=-1E9:q%!16=-1E9:q%!20=-1E9
z�ș"Wimp_CreateIcon",,q%+4:�
z�
z���carddr
z�
�T%,U%
z��wtof(mh%):�file%>=0�
z��file%=menufile%�
z�Ȏwind%�
z��2:T%=�itos:�T%>0�T%<255�
z�șswi%,sd23_%�N%
z�<U%=N%:�subbyte(T%,-1):�validaterec:�forcecardsrep(U%,U%)
z��
z��
z��
{Ȏwind%�
{�0,1:�copycard
{�
{ �
{*�
{4
Ȏmh%�
{>V�w_rlink%:�mi%=1:�menufile%<>dialfile%:�sdfile(menufile%):�seti(mh%,mi%,�filename)
{H>:�sdfile(menufile%):�savereq("Card",&FFF,�wd*�ht,1,file%)
{R�
{\�
{f�
{p
{z
��carddr1
{�+tx0%=!q%:tx1%=q%!8:ty0%=q%!4:ty1%=q%!12
{�4�(tx0%-tx1%)<10��(ty0%-ty1%)<10:mb%=1:�select:�
{�;�cxconv(tx0%):�cxconv(tx1%):�cyconv(ty0%):�cyconv(ty1%)
{��tx0%>tx1%:Ȕtx0%,tx1%
{��ty0%>ty1%:Ȕty0%,ty1%
{�:�savew(f_cd$,&FFF,2,file%,(tx1%-tx0%+1)*(ty1%-ty0%+1))
{��
{�
{���fielddr:�f%
{��wtof(mh%):�file%>=0�
{�Ȏwind%�
{��0:�fielddrc
{��1
|
Ȏmi%�
|�7
|f�menufield%>0f%=file%:�sdfile(menufile%):�seti(mh%,mi%,�s(�gfield(menufield%))):�sdfile(f%):�ffind
|$
�18,25
|.F�menufield%>0�sdfile(menufile%):�tonedial(�s(�gfield(menufield%)))
|8�
|B�3:�menufield%>0�
|LȎr%(file%)�
|V�1
|`�menufile%=file%�
|j
�T$,t$
|tT$=sr$(file%):�T$<250�
|~'秤u(T$),�u(�fname(menufield%)))=0�
|��T$>""��T$)<>","T$+=","
|�BT$+=�fname(menufield%):t$=�x5(T$):srx$(file%)=t$:sr$(file%)=T$
|�
�forcerep
|��
|��
|��
|��4
|��T%
|��menufile%=file%�
|�.�getw(mh%):T%=(by%-margin%-my%-4)�linegap%
|��T%>=0�T%<=14�
|��w_word%>0�
}<�seti(w_word%,T%,�addfield($�ia(w_word%,T%),menufield%))
}
�
}1秤u(w$(file%,T%)),�u(�fname(menufield%)))=0�
}=w$(file%,T%)=�addfield(w$(file%,T%),menufield%):�forcerep
}(�
}2�
}<�
}F�
}P�5
}Z-�getw(mh%):�mousecol:�column%<0�addcolumn
}d+�r_setcol(menufield%,column%):�forcerep
}n�
}x�
}�:�enterfield
}��
}��
}�F笤enterfield:�menufield%>0:�savereq("Field",&FFF,255,3,menufile%)
}��
}��
}�
}���notedr
}��wtof(mh%)
}�5笤enternote:�savereq("Note",&FFF,80,4,menufile%)
}��
}�
}���subsdr
~
�T%,T$
~#�subdisp1:�wtof(mh%):�file%>=0�
~�file%=menufile%�
~"Ȏwind%�
~,�0,1:�selsub(menusub%)
~6�2:
~@4T%=�itos:�T%>0�T%<255�menusub%<255�menusub%<>T%�
~J�selsub(menusub%)
~TBe%(file%,0)=menusub%:e%(file%,1)=T%:T$="combine subsets":T%=12
~^8e%(file%,2)=0:�dragbutton%<>16T$="copy subset":T%=11
~hZ�stop(T%,"Subset "+�subdesc3(menusub%)+" � "+�subdesc3(e%(file%,1)),rl$+T$+" ?",file%)
~r�
~|:�entersub
~��
~��
~��
~�
Ȏmh%�
~�:笤entersub
~��
~��
~��
~�
~�ݤenterfield
~��W%,T%,T$,t$:��\rB
~��:�readh(W%):�W%<>mh%�
~��W%<>-1:�:�W%,T%:�W%<0:W%=0
�
�:�W%,T%:�W%=mi%�W%<0
�W%=mi%�
&	ȎT%�
0�1,4
:9�wtof(mh%):�file%<0:�mh%=dialogue%:�sdfile(dialfile%)
D7T$="":�file%<>menufile%T$="\"+�ofilename(menufile%)
N�sdfile(menufile%)
X?T$=�addfield($�ia(mh%,mi%),menufield%)+T$:�seti(mh%,mi%,T$)
b!�5:�thisfile(mh%,menufile%)�
l8�sdfile(menufile%):șswi%,sd17_%,9,menufield%,sd$�G%
vșswi%,sd17_%,10,$sd%�G%
�1�$sd%,"K")�seti(mh%,mi%,�fname1(menufield%))
��
�L�6:�sdfile(menufile%):�seti(mh%,mi%,�addfield($�ia(mh%,mi%),menufield%))
��7
�9�wtof(mh%):�file%<0:�mh%=dialogue%:�sdfile(dialfile%)
�'�sdfile(menufile%):T$=$�ia(mh%,mi%)
��T$<>""��T$)<>","T$+=","
�(�seti(mh%,mi%,T$+�fname(menufield%))
��
��
�=�
��
�	�W%<0
�=�
�
�ݤenternote
� �W%,T%:��\rB
�*�:�readh(W%):�W%<>mh%�
�4�W%<>-1:�:�W%,T%:�W%<0:W%=0
�>�
�H�:�W%,T%:�W%=mi%�W%<0
�R�W%=mi%�
�\	ȎT%�
�f�1,4,6,7
�p4�dragbutton%=64�(�thisfile(mh%,menufile%)�T%=6)�
�zZ�mi%<>menufield%�mh%<>w%(menufile%,6)�seti(mh%,mi%,$�ia(mh%,mi%)+"'"+�(menufield%+65))
���
��.�seti(mh%,mi%,�note(menufile%,menufield%))
���
���8:�edicon%>=0�
��"T$=�note(menufile%,menufield%)
��,�dragbutton%<>64:T$=�$edbuf%,255-�T$)+T$
��'�setct(mh%,mi%,0):�seti(mh%,mi%,T$)
���
���
���
��=�
���
��	�W%<0
�=�
�
�ݤentersub
�$�W%,T%:��\rB
�.�:�readh(W%):�W%<>mh%�
�8�W%<>-1:�:�W%,T%:�W%<0:W%=0
�B�
�L�:�W%,T%:�W%=mi%�W%<0
�V�W%=mi%�
�`	ȎT%�
�j�1
�t`�thisfile(mh%,menufile%)�sdfile(menufile%):�seti(mh%,mi%,$�ia(mh%,mi%)+�subdesc4(menusub%))
�~�2:�sfsub(menusub%)
���3:�stsub(menusub%)
��J�6:�sdfile(menufile%):�seti(mh%,mi%,$�ia(mh%,mi%)+�subdesc4(menusub%))
���
���
��=�
���
��	�W%<0
��=�
��� ;{n reasons are
��>� ;{n   1=enter field/subset/note for expression, any file
��&� ;{n   2=source subset for search
��$� ;{n   3=target  "      "     "
�7� ;{n   4=enter field/note for expression, any file
�
=� ;{n   5=enter key field/index name only, this file only
�;� ;{n   6=enter field/subset/note for expr, no file ref
�8� ;{n   7=enter field name/note into comms sep. list
�(7� ;{n   8=enter note contents (sel=over,adj=append)
�2!�w_expr%,17,1,20,2,21,3,-1,-1
�<�w_sort%,2,4,-1,-1
�F��"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
�Pm�"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
�Z�w_rlink%,5,6,3,5,-1,-1
�d�w_srset%,3,7,-1,-1
�nS�w_word%,0,4,1,4,2,4,3,4,4,4,5,4,6,4,7,4,8,4,9,4,10,4,11,4,12,4,13,4,14,4,-1,-1
�x�w_rset2%,42,1,44,1,-1,-1
���w_col%,22,1,-1,-1
��"�"w%(file%,0)",edicon%,8,-1,-1
��"�"w%(file%,3)",edicon%,8,-1,-1
���-1
��
����newdelay
���I%:delay%=2E9
���process%>0:delay%=0
��#�I%=0�maxf%:�a%(I%)<>0:delay%=0
���:�sbfile%>=0:delay%=0
���
��
����savedata
��q%!12<>saveref%:�
�"file$=�zts(q%+44):�savedata1:�
�
�" ��savedata1:�closew(w_save%)
�,$�savefile%>=0:�sdfile(savefile%)
�6,outfile%=0:outfile%=�file$:�outfile%=0:�
�@�
�J��:��:�#outfile%:�err(0)
�TȎsavereason%�
�^�1:�savecard:�newfn(f_cd$)
�h�2:�savecard1:�newfn(f_cd$)
�r�3:�savefield
�|�4:�savenote
���5:�savenotes:�newfn(f_np$)
���6:�savemacro:�newfn(f_mc$)
���7:�saverep:�newfn(f_rx$)
���8:�savesetup
���9:�savepd:�newfn(f_pd$)
���
����:�#outfile%
��'�settype(file$,savetype%):�loadmess
��'savereason%=-1:savefile%=-1:�nomenu
���
��
����settype(file$,type%)
���:��:��:�
�!�"settype "+file$+" "+�~type%
��
�
�&.��savecard:�deadfile(%1111111101111111):�
�0�-3��dprint(�statstr):�
�:'�I%:�I%=1��ht:șswi%,gline_%,I%,sd$
�D�dprint($sd%):�:�
�N
�X/��savecard1:�deadfile(%1111111101111111):�
�b+�I%:�I%=ty0%�ty1%:șswi%,gline_%,I%,sd$
�l(�dprint(�$sd%,tx0%,tx1%-tx0%+1)):�:�
�v
��2��savefield:�dprint(�s(�gfield(menufield%))):�
��
��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%))):�:�
��
��
��saverep
���
����:��:�validrec:�err(46)
�#outrep%=1:�initrep:Ȏr%(file%)�
��0:�saverep0
��1:�saverep1
� �2:�saverep2
�*�3:�saverep3
�4�4:�saverep4
�>�5:�saverep5
�H�
�R�validrec:�
�\
�f��saverep0:�h%,I%:h%=�ht
�p �:�sdnext:�v_(15)<=�v_(17)�
�z"�I%=1�h%:șswi%,gline_%,I%,sd$
���dprint($sd%):�0=27:�
���:�h%>1:�dprint("")
���
����v_(15)>�v_(17):�
��
����saverep1:�I%,T$
���:��rep1(�):�
��
��ݤrep1(T%)
���v_(15)=0�
��%șswi%,accumulate_%,0,srx$(file%)
��I�flg(f_stit%)�oprint(�srep(0),T%):�flg(f_sdas%)�oprint(�srep(1),T%)
���
��sdnext:N%=�v_(15)
��
�K��:�=17�T%:N%=�v_(17)+1:�oprint("*** Interrupted ***",T%):���:�err(0)
�$�T%:*fx229
�.�N%<=�v_(17)�
�8șswi%,accumulate_%,-1
�Bșswi%,line_%,-1
�L!�flg(f_srup%):șswi%,upper_%
�V�oprint($sd%,T%)
�`�
�j*fx229,1
�t��
�~�N%>�v_(17)�
���flg(f_stot%)�
���flg(f_sdas%)�
��șswi%,line_%,-2
���oprint($sd%,T%)
���
��șswi%,line_%,-3
���oprint($sd%,T%)
���
��șswi%,line_%,0,1
��=�
���
��=�
�
�
��saverep2:�I%,T$
� �:�sdnext:�v_(15)<=�v_(17)�
�T$=�rlin(�v_(15),255)
�(�dprint(�T$,12))
�2�0=27:�
�<�
�F��v_(15)>�v_(17):�
�P
�Z��saverep3:�I%,T$
�d�:�labline(0,�)
�n�0=27:�
�x�e%(file%,2)=-1:�
��
��$��saverep4:�I%,T$,T%,t$,t%,s%,b%
��1t$="FNwordout"+�wo%(file%)+"(outfile%,t%,T$)"
��T$="":t%=0:T%=�t$:�
���sdnext:�v_(15)<=�v_(17)�
��T$="":t%=1:T%=�t$
��I%=0:b%=0:t%=2:�
�� T$=�s(w$(file%,I%)):�T$<>""�
���
��T%=�:��:T$=" ** "+�$:T%=�
��	�T%�
��T$=�s(�x(T$))
���u(T$)="END"�
�	I%=99
��
�0T$=�ev3(T$,�flg(f_wspc%),�flg(f_wupp%),&90A)
�"�
�,�
�6��
�@�I%<>99�
�J �flg(f_wbnk%)�T$=ĩT$," ")�
�T	b%+=1
�^�
�hT%=�t$:t%=3
�r�
�|�
���
��I%+=1:�I%>14
��$T$="":ȕb%>0:T%=�t$:t%=3:b%-=1:�
��T$="":t%=4:T%=�t$
���
��.��v_(15)>�v_(17)��0=27:T$="":t%=5:T%=�t$:�
��
����saverep5
���:�0=27:�
��
���prline
���
��
��
ݤitos
��mi%>4�mi%<29:=mi%-4+32
��mi%>28�mi%<53:=mi%-28
�
�mi%=1:=0
�&�mi%>52�mi%<63:=mi%-53+256
�0=-1
�:
�D9ݤmousef:�X%,Y%:X%=mx%:Y%=my%:�cyconv(Y%):�cxconv(X%)
�N�:��:�sdfile(file%):=0
�Xșswi%,sd52_%,X%,Y%,sd$�G%
�b�sdfile(file%):=G%
�l
�v$��dragfield:�fieldsz(menufield%)
��?!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:�
��
����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:�
�4�zfound:șswi%,subset_%,s%
�>�revalidate:�showsub:�
�H
�R/��cxconv(� X%):�xconv(X%,�wd,w%(file%,0)):�
�\/��cyconv(� Y%):�yconv(Y%,�ht,w%(file%,0)):�
�f
�p!��yconv(� Y%,T%,h%):�getw(h%)
�z8Y%=(by%-Y%-margin%)�linegap%+1:�Y%<1Y%=1��Y%>T%Y%=T%
���
��
��!��xconv(� X%,T%,h%):�getw(h%)
��2X%=(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%
�8'�h%(I%)>0:closeok%=�:�closefile(I%)
�B�:�
�L
�V
��prequit
�`�v_(1)>0�ackrec:�qquit
�j�
�t
�~8��ackrec:q%!12=ref%:ș"Wimp_SendMessage",19,q%,task%
��2��qquit:�stop(6,"Close files and quit",as$,-1)
���
��
����openform
���T$:T$=�zts(q%+44)
��#�deadfile(%11111111101111110)�
���closeform
���:��:��:�err(7)
��șswi%,oform_%,T$
��f%(file%)=-�v_(2)
��	�link
���
�
�
��closeform:�f%(file%)=0:�
��f%(file%)>0:�link
�+șswi%,cform_%,f%(file%)�S%:f%(file%)=0
�(�
�2
�<
��link
�Ff%(file%)=-f%(file%)
�P�f%(file%)<0�
�Zșswi%,sform_%,h%(file%)
�d�
�n&șswi%,lform_%,f%(file%),h%(file%)
�x�
��+�sdfile(file%):�fext:�r%(file%)=0:�rext
��#�w%(file%,4)>0�makeflist(file%)
���
��
��ݤgfield(T%)
��șswi%,sd17_%,9,T%,sd$�G%
��șswi%,gfield_%,$sd%,sdf$
��	=$sd%
��
��'��pfield(T%,T$):�readonly:�buzz1:�
��@�endedit:edrec%=�v_(15):$edbuf%=T$:edfield%=T%:edfile%=file%
���endedit:�
��
�)ݤfname(T%):șswi%,sd17_%,9,T%,sd$�G%
�	=$sd%
�
�"7ݤfname1(T%):�T%<0:="N%":�șswi%,sd17_%,4,T%,sd$�G%
�,.�(G%�7)=7:="@"+�fname(T%):�="#"+�fname(T%)
�6
�@&ݤfnum(T$):șswi%,sd67_%,T$,sd$�G%
�J=G%
�T
�^��expr(r%)
�h"dialreason%=r%:dialfile%=file%
�r�T%,T$,A$,t$,s%,u%
�|=T$=�filename:w_expr%=�crwind(tw_expr%):�unselall(w_expr%)
��	Ȏr%�
���0
��+T$="Filter expression for file "+T$+":"
��0A$=f$(file%):$�ta(w_expr%)="Filter":exi0%=17
��;�s%=18�21:�loseicon(w_expr%,s%):�:�loseicon(w_expr%,25)
��/�loseicon(w_expr%,27):�loseicon(w_expr%,29)
��;�loseicon(w_expr%,28):s%=�flg(f_fspc%):u%=�flg(f_fupp%)
���1
��T$=fi$+T$+", search for:"
��0A$=e$(file%):$�ta(w_expr%)="Search":exi0%=25
���loseicon(w_expr%,26)
��4s%=�flg(f_sspc%):u%=�flg(f_supp%):�flg0(f_sadd%)
��6e%(file%,0)=�v_(11):T%=e%(file%,0)�31:t$=�substr:�
�5T%=(T%+1)�25:�(T%>0��t$,T%,1)=".")�T%=e%(file%,0)
�/e%(file%,1)=T%:�e%(file%,0)=T%e%(file%,0)=0
�$�e%(file%,0)=e%(file%,1)�err(61)
�&+�sfsub(e%(file%,0)):�stsub(e%(file%,1))
�0�2
�:T$=fi$+T$+", report on:"
�D>A$=r$(file%):$�ta(w_expr%)="Formula Report Setup":exi0%=17
�N=�s%=18�21:�loseicon(w_expr%,s%):�loseicon(w_expr%,s%+7):�
�X;�loseicon(w_expr%,29):s%=�flg(f_rspc%):u%=�flg(f_rupp%)
�b�
�l4�seti(w_expr%,16,T$):�seti(w_expr%,17,A$):ex$=A$
�v�s%�seli(w_expr%,1)
���u%�seli(w_expr%,0)
���dialogue(w_expr%):�
��
��*��flg0(T%):fl%(file%)=fl%(file%)��T%:�
��)��flg1(T%):fl%(file%)=fl%(file%)�T%:�
��)��flgx(T%):fl%(file%)=fl%(file%)�T%:�
��7��flgm(M%,F%):fl%(file%)=(fl%(file%)��M%)�(F%�M%):�
��;��flg(T%,F%):fl%(file%)=(fl%(file%)��T%)�((F%<>0)�T%):�
�� ݤflg(T%)=(fl%(file%)�T%)<>0
��
��#��setfilt:�s($A%)="":�nofilt:�
���T$:T$=�x1($A%)
��A�flg(f_fupp%,u%):�flg(f_fspc%,s%):f$(file%)=$A%:fx$(file%)=T$
�8�flg(f_filt%,T$<>""):�showfilter:�revalidate:�zfound
��
�
� ��nofilt:�flg0(f_filt%)
�*%�zfound:�revalidate:�showfilter:�
�4
�>ݤx1(T$):�:��:��:�err(8)
�Hݤx2(T$):�:��:��:�err(9)
�Rݤx3(T$):�:��:��:�err(34)
�\ݤx4(T$):�:��:��:�err(37)
�fݤx5(T$):�:��:��:�err(44)
�pݤx6(T$):�:��:��:�err(45)
�zݤx7(T$):�:��:��:�err(52)
��=�x(T$)
��
��&ݤx(A$):�strip(A$):�A$="":�err(35)
��;�Q%,B%,I%,z$:�qbscan(A$,Q%,B%):�Q%�err(10):��B%�err(11)
�� z$=A$:ȕ�z$,"'"):I%=�z$,"'")
��J%=(��z$,I%+1))�&DF
���J%<65�J%>83:�err(29)
��0�z$+�$�tia(tw%(file%,6),J%-65)>250:�err(30)
��4z$=�z$,I%-1)+$�tia(tw%(file%,6),J%-65)+�z$,I%+2)
��/�:A$=�X(z$):�strip(A$):�A$="":�err(35):�=A$
��
��ݤX(A$):�z$,J%,I%:z$=A$
�� ȕ�A$,"=""*"):I%=�A$,"=""*")
� z$=�A$,I%-1)+","""+�A$,I%+3)
�#J%=�z$,�34,I%+2):�J%=0:�err(10)
�/�z$,J%-1,1)="*":z$=�z$,J%-2)+�z$,J%):J%-=1
�$"z$=�z$,J%)+")"+�z$,J%+1):J%=I%
�.�:I%=I%-1:�I%<0:�err(31)
�8��z$,I%,1)="@"
�Bz$=�z$,I%-1)+"FNi("+�z$,I%)
�LA$=z$:�:=A$
�V
�`ݤev(A$,s%,u%)
�j$sd%="N":�s%$sd%+="S"
�t�u%$sd%+="U"
�~șswi%,expand_%,A$,sd%
��N%=�v_(15):D%=�v_(14)
��
=�$sd%
��
��&ݤev1(A$):=�ev(�x(A$),macs%,macu%)
��/ݤev2(A$,s%,u%)=�evgen(A$,s%,u%,&102050F,�)
��,ݤev3(A$,s%,u%,A%)=�evgen(A$,s%,u%,A%,�)
��/ݤev4(A$,s%,u%)=�evgen(A$,s%,u%,&102050F,�)
��ݤev5(A$):=�ev(�x(A$),�,�)
��
��ݤevgen(A$,s%,u%,A%,T%)
���U%,t:�
��%��:��:@%=&90A:U%=�:�<>6:�err(0)
��U%�
�
$sd%=�ev(A$,s%,u%)
��
�@t=�ev(A$,s%,u%):@%=A%:$sd%=�"               "+�t,15):@%=&90A
�(�s%�T%:șswi%,strip_%
�2�
�<	=$sd%
�F
�P��wtidy
�Z8�I%:�I%=2�maxw%:�w%(file%,I%)>0�closew(w%(file%,I%))
�d�:�
�n
�x"��sfsub(T%):�sdfile(dialfile%)
��!�T%>255�(T%�31)=e%(file%,1):�
��2�seti(w_expr%,20,�subdesc1(T%)):e%(file%,0)=T%
���selsub(T%):�
��
����stsub(T%):�T%<255T%=T%�31
��2�sdfile(dialfile%):�T%=0�T%=(e%(file%,0)�31):�
��2�seti(w_expr%,21,�subdesc1(T%)):e%(file%,1)=T%
��+�T%<255�seti(w_expr%,25,d$(file%,T%-1))
���
��
����buzz1:șswi%,beep_%,100
����buzz:șswi%,beep_%,150
����buzz2:șswi%,beep_%
��
�
���search
�"/�T$,T%:T%=e%(file%,1):�s%(file%)=1:�err(12)
�,(�$A%="DUP":ox$(file%)=�x3(o$(file%))
�6BT$=�x2($A%):�flg(f_sadd%,c%):�flg(f_supp%,u%):�flg(f_sspc%,s%)
�@=ex$(file%)=T$:e$(file%)=$A%:�$A%="DUP":ex$(file%)="#$%$#"
�J�T%<25�
�T'd$(file%,T%-1)=�s($�ia(w_expr%,25))
�^�d$(file%,T%-1)=""�
�h@d$(file%,T%-1)=�trunc($A%,21):T$="":�e%(file%,0)>32T$="NOT "
�r"T$+=�((e%(file%,0)�31)+65)+":"
�|�flg(f_sadd%):T$="+"+T$
��=�d$(file%,T%-1)+�T$<=25:d$(file%,T%-1)=T$+d$(file%,T%-1)
���
���
���startact(3):e%(file%,2)=0
���T%<255fc%(file%)=0
���showfound:�
��
����endsearch:�t%:�endact
��?t%=fc%(file%):�selsub(e%(file%,1)):fc%(file%)=t%:�showfound
���
��
��,��endcsub:�endact:�selsub(e%(file%,1)):�
��
�,��enddsub:�endact:�selsub(e%(file%,0)):�
�
���endfill:�endact:�
�&
�0��srcnext:�T%,g%
�: �:��:��:�endsearch:�err(9)
�D:e%(file%,2)+=1:T%=e%(file%,2):�T%>�v_(17):�endsearch:�
�N,șswi%,grec_%,T%�N%:�sd35:T%=e%(file%,1)
�X�e$(file%)="DUP":�dupnext:�
�bI�G%<>0:g%=0:��rlink(�):g%=�ev(ex$(file%),�flg(f_sspc%),�flg(f_supp%))
�l/�g%<>0���flg(f_sadd%)�T%>255�subbyte(T%,g%)
�v*�g%<>0�T%<255:fc%(file%)+=1:�showfound
���shownum:�
��
����csubnext(t%):�T%,g%,I%
���:��:��:�endcsub:�err(17)
���I%=0�chunk%
��8e%(file%,2)+=1:T%=e%(file%,2):�T%>�v_(17):�endcsub:�
��șswi%,grec_%,T%�N%
���sd35:g%=G%=0
��%�g%�t%=5:�subbyte(e%(file%,1),g%)
���:�shownum:�
��
����subbyte(T%,g%)
���T%>255�
�șswi%,sd53_%,T%-256�G%
�șswi%,sd51_%,G%
��
� �T%>31T%-=32:g%=(g%=0)
�*șswi%,sd37_%,T%�G%
�4�
�>șswi%,sd35_%,-1�G%
�H"�G%<128:șswi%,sd34_%,g%,-1�G%
�Rșswi%,sd37_%�G%
�\�
�f
�p
��dsubnxt
�z
�T%,I%
���I%=0�chunk%
��șswi%,first_%�,N%
��'�sdnext:�v_(15)>�v_(17):�enddsub:�
��șswi%,delrec_%,-1
���:�shownum:�
��
����updnxt
���:��:��:�endact:�err(0)
��&�sdnext:�v_(15)>�v_(17):�endact:�
��3��:��:�flg(f_macb%,0):�showmac:�endact:�err(0)
���domacro1:�shownum:�
��
����printnext
��:��:��:�endact:�err(43)
�Ȏr%(file%)�
�
�0:�prnx0
�$
�1:�prnx1
�.
�2:�prnx2
�8
�3:�prnx3
�B
�5:�prnx5
�L�
�V�shownum:�
�`
�j��prnx0:�I%,h%:h%=�ht
�t&�sdnext:�v_(15)>�v_(17):�endrep:�
�~"�I%=1�h%:șswi%,gline_%,I%,sd$
���pprint($sd%):�
���h%>1�pprint("")
���
��
����prnx1:�rep1(�):�endrep
���
��
����prnx2:�T$
��&�sdnext:�v_(15)>�v_(17):�endrep:�
��T$=�rlin(�v_(15),255)
���pprint(�T$,12)):�
��
���prnx3:�labline(0,�)
�
�
�
���prnx5
�(笤prline:�endrep
�2�
�<
�F��endrep:�endact:�
�P
�Z
��fsubnxt
�d+�T%,I%,B%:T%=e%(file%,2):B%=e%(file%,1)
�n-�I%=0�chunk%:T%+=1:�T%>�v_(17):�endfill:�
�x&e%(file%,2)=T%:șswi%,grec_%,T%�N%
��)�subbyte(e%(file%,0),B%):�:�shownum:�
��
��$��sortnext:�I%,J%,K%,L%,M%,T%,P%
���:��:��:�endact:�err(0)
��?I%=o%(file%,1):J%=o%(file%,2):K%=o%(file%,3):L%=o%(file%,4)
��6M%=o%(file%,5):P%=o%(file%,6):T%=(o%(file%,0)�1)=1
��(�L%=0:J%=1:K%=�v_(17)-M%:�J%<=K%L%=1
��"�L%=1:I%=J%:P%=I%+M%:�I%>0L%=2
��
�L%=2�
��"L$=�so(P%):I$=�so(I%):�shownum
���I$<>L$�
��,�(I$>L$)=T%:�swaprec(I%,P%):I%-=M%�I%=-1
���
�	I%=-1
��
�!P%=I%+M%:�I%>0:�sortr:�:�L%=1
�"�
�,
�L%=1�
�6 J%+=1:�J%<=K%:�sortr:�:�L%=0
�@�
�J
�L%=0�
�T!M%=M%�2:�M%>0:�sortr:�:�L%=-1
�^�
�h�sortr:�
�r
�|8��sortr:o%(file%,1)=I%:o%(file%,2)=J%:o%(file%,3)=K%
��0o%(file%,4)=L%:o%(file%,5)=M%:o%(file%,6)=P%
���L%<0�endact
���
��
��3��zfound:�fc%(file%)>=0fc%(file%)=-1:�showfound
���
��
����numeric(r%)
��,dialreason%=r%:w_nums%=�crwind(tw_nums%)
��+�seti(w_nums%,2,""):�seti(w_nums%,3,"")
��
�r%>0�
��+�seti(w_nums%,2,�subname(menusub%-256))
��+�seti(w_nums%,3,äsubmax(menusub%-256))
��:�dialogue(w_nums%):�
�
�
ݤactdesc
�&Ȏa%(file%)�
�0�3:="Searching cards"
�:9�4:�e%(file%,1):="Filling subset":�="Clearing subset"
�D�5:="Copying subset"
�N�6:="Combining subsets"
�X�7:="Destroying subset"
�b�8:="Updating cards"
�l�9:="Sorting cards"
�v�10:="Printing report"
���11:="Impulse Transmission"
��:="Linked to process"
��	�:=""
��
����fillsub(T%)
��5e%(file%,0)=menusub%:e%(file%,1)=T%:e%(file%,2)=0
���startact(4):�
��
����delsub
��*e%(file%,0)=menusub%:�selsub(menusub%)
���startact(7):�
��
����updcards:�I%
�/�I%=0�3:t%(file%,I%)=0:�:șswi%,first_%�,N%
�3�startact(8):�w%(file%,7)>0�closew(w%(file%,7))
��
� 
�*��printrep
�4�:��:��:�endact:�err(0)
�>�grabpr:outrep%=0:�initrep
�H�startact(10):�
�R
�\
��initrep
�fȎr%(file%)�
�p�0,1,2:șswi%,first_%�,N%
�z�3
���I%:șswi%,first_%�,N%
��=�validrec:e%(file%,2)=�v_(15):e%(file%,0)=0:e%(file%,1)=1
��0�I%=0�maxacr%-1:l1%(file%,I%)=1:�:labline%=0
���4
��șswi%,first_%�,N%
��vectors%=0:vec%=0:tuples%=0
���5
��C�checkrep:�I%,J%:totals%=0:tlines%=0:ttot%=0:șswi%,first_%�,N%
��8�I%=0�maxcol%:�decodecol(I%):�J%=0�1:cv$(I%,J%)="":�
��&�J%=0�3:ct(I%,J%)=0:ct%(I%,J%)=0:�
��2�cexp$>""totals%-=(ctot%<>0):ttot%=ttot%�ctot%
��>�:rlf%=file%:rsp%=-1:rpc%=2:rmf%=file%:rll%=maxf%+1:rpr%=�
��2rpr1%=�:lsubval$=" ":lssubval$=" ":fline%=-999
�'tlines%=��"01121223",(ttot%�7)+1,1)
��I%=0�maxf%:rl%(I%)=�
��I%<>rmf%�h%(I%)<>0�
�$T$="\"+�u(�ofilename(I%))
�.�J%=0�maxcol%
�8�c$(file%,J%,0)>""�
�B5秤u(�x7(c$(file%,J%,0))),T$)rl%(I%)=�:J%=maxcol%
�L�
�V�
�`�
�j<�:rl%(file%)=�:pline%=0:ppage%=0:prfnt%=-1:prw%=�prwidth
�t)rphei%=p%(file%,3):rpwid%=p%(file%,2)
�~,prl%=(1��flg(f_rldu%))�(2��flg(f_rlsu%))
��*�outrep%<>2:�flg(f_rejb%):�preject(�)
���
���
��
����startact(T%):�nomenu
��;s%(file%)=2:a%(file%)=T%:�forcecard:�forcerep:�newdelay
���actlink(T%):�
��
����endact
��'s%(file%)=0:a%(file%)=0:�actlink(0)
���file%=printer%:�releasepr
��$�forcerep:�validrec2:�newdelay:�
�
�
��actlink(T%):�links%=0:�
�
�f%,I%
� �I%=0�maxf%:�l%(I%)=file%+1�
�(;f%=file%:�sdfile(I%):a%(file%)=-T%:s%(file%)=-2*(T%<>0)
�2'�actlink(T%):�forcecard:�sdfile(f%)
�<	�:�:�
�F
�P%��delcard:�T%:�readonly:�buzz1:�
�Z1șswi%,sd23_%�T%:șswi%,delrec_%,-1:�validrec
�d>�curidx>0�forcecardsrep(1,�v_(16)):��forcecardsrep(T%,T%)
�n�
�x
��0��rmvcard:�T%,B%:T%=�v_(11):�deadfile(-1):�
���T%>31:B%=-1:T%=T%�31
��șswi%,sd37_%,T%�G%
��șswi%,sd34_%,B%,-1�G%
��șswi%,sd37_%�G%
���forcecardrep:�validrec:�
��
����finfo(f%)
��#�deadfile(%1111111101111111):�
��*�L%,T$,T%:T%=menufield%:dialreason%=f%
��Jw_finf%=�crwind(tw_finf%):�getw(w%(file%,0)):șswi%,sd17_%,1,T%,sd$�G%
��#L%=G%:șswi%,sd17_%,9,T%,sd$�G%
��&T$=$sd%:șswi%,sd17_%,10,T%,sd$�G%
�șswi%,sd17_%,4,T%,sd$�G%
�*�unselall(w_finf%):�seti(w_finf%,5,T$)
�.�seti(w_finf%,2,�T%):�seti(w_finf%,20,�L%)
�" �$sd%,"K"):�seli(w_finf%,6)
�,�G%�8:�seli(w_finf%,7)
�6�G%�128:�seli(w_finf%,8)
�@�G%�64:�seli(w_finf%,9)
�JG%=G%�7:ȎG%�
�T�0:�seli(w_finf%,11)
�^�7:�seli(w_finf%,10):G%=0
�h:�seli(w_finf%,12)
�r�:�seti(w_finf%,13,�G%)
�|	�f%�
��exi0%=-1:exi1%=-1:��|x\
��-�T%=0�6:�L%:�iset(w_finf%,L%,&40F000,0):�
���:exi0%=2:exi1%=20
���
���dialogue(w_finf%):�
���6,18,20,21,2,3,4
��
��6ݤnote(T%,I%):�q%:q%=workbuf%:=$�tia(tw%(T%,6),I%)
��
��$��note(T%,I%,T$):�q%:q%=workbuf%
��@�w%(T%,6)>0�seti(w%(T%,6),I%,T$)�$�tia(tw%(T%,6),I%)=�T$,80)
���
��
�ݤmacln(T%,I%):�I%>29:=""
�(�q%:q%=workbuf%:=$�tia(tw%(T%,7),I%)
�
�&.��macln(T%,I%,T$):�q%:q%=workbuf%:�I%>29:�
�0@�w%(T%,7)>0�seti(w%(T%,7),I%,T$)�$�tia(tw%(T%,7),I%)=�T$,80)
�:�
�D
�N(��loadnotes:�I%,T%:T%=�file$:�T%=0:�
�X&ȕ��#T%�I%<19:�note(file%,I%,�#T%)
�b3I%+=1:�:�#T%:ȕI%<19:�note(file%,I%,""):I%+=1:�
�l&�noscrap:�newfn(f_np$):�newnotes:�
�v
��(��loadmacro:�I%,T%:T%=�file$:�T%=0:�
��'ȕ��#T%�I%<30:�macln(file%,I%,�#T%)
��4I%+=1:�:�#T%:ȕI%<30:�macln(file%,I%,""):I%+=1:�
��&�noscrap:�newfn(f_mc$):�newnotes:�
��
����checksetup
��9�T$,T%:T$=�zts(q%+44):T%=�setuptype(T$):�T%<0�err(50)
��6�wtof(mh%):�file%<0:�mh%=dialogue%:file%=dialfile%
���file%<0�T%<>0�err(49)
��'�dataloadack:file$=T$:�T%=7�err(63)
��7�stop(28,�setupdesc(T%),rl$+"load setup ?",file%):�
��
��+��loadsetup:�T%,F%,I%,A%,B%,X%,Y%,Z%,T$
�'T%=�setuptype(file$):�T%<0:�err(50)
�	ȎT%�
��0:�PDload
� �1,4
�*�file%<0�err(49)
�4r%(file%)=3:�makerep(file%)
�>F%=�(file$):�F%=0:�
�H�:��:��:�#F%:�err(0)
�R
�T%=1�
�\^�#F%,T$:�#F%,ll%(file%,4),ll%(file%,0),ll%(file%,3),ll%(file%,1),ll%(file%,5),ll%(file%,2)
�folf%(file%,15)=0:�I%=0�14:�#F%,A%,B%,X%,Y%,Z%:lf%(file%,I%)=B%�(A%<<2)�((X%�1)<<4)�((Z%�1)<<5)�((Y%�1)<<6):�
�p�
�z'�#F%=5:�I%=0�5:�#F%,ll%(file%,I%):�
��!�I%=0�15:�#F%,lf%(file%,I%):�
��)��#F%:�#F%,ll%(file%,6),ll%(file%,7)
���
���#F%:��:�w_label%>0:�rset3i
��!�rext:�forcerep:�newfn(f_la$)
���2,5
���file%<0�err(49)
��r%(file%)=4:�makerep(file%)
��F%=�(file$):�F%=0:�
���:��:��:�#F%:�err(0)
��
�T%=2�
���#F%,T$,A%,B%,X%,Y%,T$
��6�flg(f_wupp%,B%):�flg(f_wspc%,X%):�flg(f_wbnk%,Y%)
� �I%=0�14:�#F%,w$(file%,I%):�
��
�7�#F%=5:�I%=0�14:�#F%,w$(file%,I%):�:�#F%,wo%(file%)
�$�
�.�#F%:��:�w_word%>0:�rset4i
�8�forcerep:�newfn(f_wp$)
�B�3,6
�LZ%=�:�file%<0�err(49)
�Vr%(file%)=5:�makerep(file%)
�`F%=�(file$):�F%=0:�
�j�:��:��:�#F%:�err(0)
�t
�T%=3�
�~�#F%,T$
��G�#F%,p%(file%,2),p%(file%,1),T%,p%(file%,0),p%(file%,3),p%(file%,4)
��;�#F%,T%:�flg(f_rejb%,T%<>0):�#F%,T%:�flg(f_reja%,T%<>0)
��;�#F%,T%:�flg(f_rdsp%,T%<>0):�#F%,T%:�flg(f_rtpn%,T%<>0)
��;�#F%,T%:�flg(f_rbpn%,T%<>0):�#F%,T%:�flg(f_rpdt%,T%<>0)
���#F%,T%:�flg(f_rtpg%,T%<>0)
��-�#F%,T%:�flg(f_rtsu%,T%<>0���flg(f_rtpg))
���I%=0�7:�#F%,p$(file%,I%):�
��8I%=0:�:�#F%,c$(file%,I%,0),c$(file%,I%,1):column%=I%
��5�#F%,T%:�setcol(T%,3,8):�#F%,T%:�setcol(T%,255,0)
��5�#F%,T%:�setcol(T%,3,10):�#F%,T%:�setcol(T%,3,17)
��8�#F%,T%:�setcol(T%,7,14):�#F%,T%:�setcol(T%<>0,1,20)
��4�#F%,T%:�setcol(T%,7,21):I%+=1:�I%>30�I%>maxcol%
�1�I%<=maxcol%:�I%=I%�maxcol%:�r_clearcol(I%):�
�
�
�&�#F%=5:�I%=0�7:�#F%,p$(file%,I%):�
��I%=0�4:�#F%,p%(file%,I%):�
�(�#F%,T%:�flgm(f_reps%,T%)
�2:I%=0:�:�#F%,c%(file%,I%),c$(file%,I%,0),c$(file%,I%,1)
�<I%+=1:��#F%�I%>maxcol%
�F1�I%<=maxcol%:�I%=I%�maxcol%:�r_clearcol(I%):�
�P�
�Z�#F%:��
�d!�rext:�forcerep:�newfn(f_rp$)
�n:�err(50)
�x�
���
��
��ݤsetuptype(f$)
��)�A%,B%,I%,F%,T%,T$:F%=�(f$):�F%=0:=-1
���
��0�#F%=0:�I%=1�4:A%=�#F%:B%=(A%<<24)+(B%>>8):�
���B%=&55010001:�#F%:=0
��"�B%=&6C72654D:B%=�#F%:�#F%:=B%
���#F%=0:T%=�:��:��:T%=�
���T%�#F%,T$
���T%�
��'�T$="Delta+Mailshot Labels":�#F%:=1
��(�T$="Delta+Mailshot Wordpro":�#F%:=2
�'�T$="Delta+Mailshot Report":�#F%:=3
��
��#F%:=-1
�"
�,ݤsetupdesc(T%)
�6	ȎT%�
�@�0:="Printer Driver"
�J�1:="Old Delta+ Labels"
�T�2:="Old Delta+ Wordpro"
�^�3:="Old Delta+ Report"
�h�4:="MultiStore Labels"
�r�5:="MultiStore Wordpro"
�|�6:="MultiStore Report"
���7:="MultiStore Transfer"
���:="Unrecognised Format"
��
����savesetup
��-�#outfile%,"Merl";:�#outfile%,r%(file%)+1
��Ȏr%(file%)�
���3:�savesla
���4:�saveswp
���5:�savesrp
���:�
��
��4��savesla:�I%:�I%=0�5:�#outfile%,ll%(file%,I%):�
��5�I%=0�15:�#outfile%,lf%(file%,I%):�:�newfn(f_la$)
�5�#outfile%,ll%(file%,6):�#outfile%,ll%(file%,7):�
�
�4��saveswp:�I%:�I%=0�14:�#outfile%,w$(file%,I%):�
�&)�#outfile%,wo%(file%):�newfn(f_wp$):�
�0
�:3��savesrp:�I%:�I%=0�7:�#outfile%,p$(file%,I%):�
�D%�I%=0�4:�#outfile%,p%(file%,I%):�
�N/�#outfile%,fl%(file%)�f_reps%:�I%=0�maxcol%
�X9�#outfile%,c%(file%,I%),c$(file%,I%,0),c$(file%,I%,1)
�b�:�
�l
�v��clearnpad
��(ș "Wimp_GetCaretPosition",,workbuf%
��7�!workbuf%=w%(file%,6):ș"Wimp_SetCaretPosition",-1
��'�I%:�I%=0�18:�note(file%,I%,""):�:�
��
����clearmacro
��(ș "Wimp_GetCaretPosition",,workbuf%
��7�!workbuf%=w%(file%,7):ș"Wimp_SetCaretPosition",-1
��(�I%:�I%=0�29:�macln(file%,I%,""):�:�
��
��4ݤthisfile(w%,h%):�w%=dialogue%:�h%=dialfile%:=�
��$�I%:�I%=0�maxw%:�w%(h%,I%)=w%:=�
���:=�
��
���scrsz
�H!workbuf%=4:workbuf%!4=5:workbuf%!8=11:workbuf%!12=12:workbuf%!16=-1
�0ș"OS_ReadVduVariables",workbuf%,workbuf%+24
� Iq%!32=(workbuf%!32)<<(workbuf%!24):q%!36=(workbuf%!36)<<(workbuf%!28)
�*�
�4
�>.��findfield:�X%,Y%:�file%=edfile%:�fedit:�
�H8�getw(w%(file%,0)):șswi%,sd17_%,2,menufield%,sd$�G%
�R+X%=G%:șswi%,sd17_%,3,menufield%,sd$�G%
�\9Y%=-G%*linegap%-margin%+linegap%/2:X%=X%*16+margin%-8
�f3�scrollto(X%,Y%,w%(file%,0)):�getw(w%(file%,0))
�p0ȗ�bx%+X%,by%+Y%:�front(w%(file%,0),-1,-1):�
�z
��!��compact:�readonly:�buzz1:�
��#�selindex(0,0):șswi%,compact_%
���r%(file%)<3:�rext
��&�validrec:�graph:�forcerep:�nodial
��9�stop(0,fi$+�filename,"Compaction complete!",file%):�
��
��*��scrollto(X%,Y%,h%):�h%<0�:��getw(h%)
��8�X%>=x0%-bx%�X%<=x1%-bx%�Y%<=y1%-by%-32�Y%>=y0%-by%�
��,scx%=X%-(x1%-x0%)�2:scy%=�Y%-(y1%-y0%)�2
���scx%<0scx%=0
���scy%<0scy%=0
��1�open(h%,x0%,y0%,x1%,y1%,scx%,-scy%,bhandle%)
���
�
�/��findct:�getct:�scrollto(q%!8,q%!12,!q%):�
�
�$*��status:w_status%=�crwind(tw_status%)
�.�I%,T%,T$,s$:s$=�12," ")
�8)�unselall(w_status%):T%=0:�I%=0�maxf%
�B�w%(I%,0)>0�
�L*�sdfile(I%):T$=��filename+�11," "),11)
�V-T$+=�s$+äv_(16),10)+�s$+äv_(17),11)+" "
�`+�l%(file%)>0T$+=�ofilename(l%(file%)-1)
�j)�T%<8:�seti(w_status%,T%+15,T$):T%+=1
�t�
�~.�:ȕT%<8:�seti(w_status%,T%+15,""):T%+=1:�
��#�stopboxes%:�seli(w_status%,23)
���sound%:�seli(w_status%,24)
��!�shadows%:�seli(w_status%,25)
���pix%:�seli(w_status%,28)
��$�sprsz%<=0:�shadei(w_status%,28)
���dialogue(w_status%):�
��
��#��copycard1:�readonly:�buzz1:�
��:�reason2%=16:�selsub(0):�selindex(0,0):șswi%,add_%�N%
���T$,T%,U%,I%,f%,u$
��=T%=file%:U%=file2%:�sdfile(U%):u$=sd$:�formstat:f%=�v_(7)
���sdfile(T%):�I%=1�f%
�șswi%,sd17_%,9,I%,u$�G%
�
T$=$sd%
��fnum(T$)�
�șswi%,gfield_%,T$,u$
�(șswi%,pfield_%,T$
�2�
�<�0=27:I%=f%
�F!�:�vr(�,s%(file%)=0):�graph:�
�P
�Z��copycard
�d8�deadfile(%1111111111111110 �((dragbutton%=64)�1))�
�n=�T$,f$,T%:file2%=menufile%:reason2%=dragbutton%:T$="copy"
�x?T%=file%:f$=�filename:�sdfile(file2%):�reason2%=16:T$="add"
��6�stop(21,�filename+" � "+f$,rl$+T$+" card ?",T%):�
��
����conv(� T$)
���strip(T$):�T$<>63:�
��"T$=�su(�T$,2)):�T%,Q%,A%,A$,B$
���T$,4)="THE "T$=�s(�T$,5))
��#�remove(T$,"#"):�remove(T$,"@")
���:��:��:�err(18)
��.�qbscan(T$,Q%,A%):�Q%�err(10):��A%�err(11)
��T%=�T$," "):�T%<2�err(19)
��A$=�T$,T%-1):�T%>5A$=�T$,4)
��T$=�T$,T%+1)
��&T%=�T$:Q%=32:��T$)=34:Q%=34:T%-=1
��:�T%<1�err(19)
�T%-=1:���T$,T%+1)=Q%
�1$sd%=�su(�T$,T%)):T$=�T$,T%+2):�Q%=34:T$=�T$)
�"	B$=""
�,�$sd%,5)="SOUND":B$="~="
�6,�$sd%,7)="CONTAIN":B$="=":T$="*"+T$+"*"
�@�$sd%,"EQU")>0:B$+="="
�J�$sd%,"IS")>0:B$="="+B$
�T�$sd%,"LESS")>0:B$="<"+B$
�^�$sd%,"GREA")>0:B$=">"+B$
�h(�$sd%,"IS")>0:B$=�B$):�B$="":B$="="
�r�B$<1��B$>2:�err(19)
�|��B$)="~":B$=�B$)+"="
��șswi%,sd17_%,4,A$,sd$�G%
��>�(G%�7)=7:T$="@"+A$+B$+""""+�s(T$)+"""":�T$="#"+A$+B$+ûT$
��"�$sd%,"NOT"):T$="NOT("+T$+")"
���
��
����remove(� T$,t$):�I%
��*�I%=�T$,t$):�I%:T$=�T$,I%-1)+�T$,I%+1)
���I%=0:�
��
��-��domacro:�deadfile(%1111111101101101):�
����domacro1
��D�a%,b%,c%,d%,e%,f%,g%,h%,i%,j%,k%,l%,m%,n%,a$,b$,t1%,t2%,t3%,t4%
���@%,K%,J%,x%,A$,T$,p$,c$
�Ct1%=t%(file%,0):t2%=t%(file%,1):t3%=t%(file%,2):t4%=t%(file%,3)
�p$="":a$="":b$="":er%=0
��:��:��:�err(20)
�&
�er%=0�29
�0c$=$�tia(tw%(file%,7),er%)
�:ȕc$>""
�D
*fx229
�N&A$=c$:�c$,":"):A$=�c$,�c$,":")-1)
�X
Ȏ � �
�b+� 42=�A$:$sd%=p$:�oscli(�c$,2)):p$=$sd%
�l�A$,2)="IF"
�v/A$=�A$,3):K%=�A$,"GO"):�K%=0K%=-�A$,"THEN")
���K%=0�err(21)�
��#T$=�A$,�K%-1):�macu%�upplit(T$)
���ev1(T$)�
��
�K%>0�
��*U%=�ev1(�A$,K%+2)):�U%<1�U%>30�err(22)
��er%=U%-2:c$=""
���
��c$=":"+�s(�c$,�K%+6))
���
���
��	c$=""
���
��!�A$,3)="a$=":a$=�ev5(�A$,4))
�!�A$,3)="b$=":b$=�ev5(�A$,4))
�"�A$,4)="PASS":p$=�ev5(�A$,5))
��A$,4)="END":er%=999:c$=""
� �A$,3)="REM":c$=""
�*ɧA$,"%=")>0:x%=�A$,"%=")
�4�x%=3��A$,1)="t"�
�>#J%=��A$,2,1):�J%<1�J%>4�err(33)
�H"t%(file%,J%-1)=�ev1(�A$,x%+2))
�RCt1%=t%(file%,0):t2%=t%(file%,1):t3%=t%(file%,2):t4%=t%(file%,3)
�\�
�f,�A$,x%-1)<�"a"���A$,x%-1)>�"n"�err(23)
�p%�setvar(�A$-�"a",�ev1(�A$,x%+2)))
�z�
��0�A$,1)="@"��A$,1)="#":x%=�A$,"="):�setfield
��#�A$,1)="^":x%=�A$,"="):�setsub
���
��&�c$,":")c$=�c$,�c$,":")+1):�c$=""
��*fx229,1
���
���
���
��
��"��setfield:�readonly:�buzz1:�
���T$,exp$,U%,@%,A%,t:exp$=A$
��!�x%=0�err(24):�:�x%<3�err(25)
��XT$=�exp$,2,x%-2):șswi%,sd17_%,4,T$�G%:G%=G%�7:�G%=0:A%=&100000A:�A%=&102000A+G%*256
�U%=�:A$=�x(�exp$,x%+1)):�
�%��:��:@%=&90A:U%=�:�<>6:�err(0)
��U%�
�$$sd%=�ev(A$,�,�)
�.�
�8't=�ev(A$,�,�):@%=A%:$sd%=�t:@%=&90A
�B�
�L�U%:��
�VT$=�exp$,2,x%-2)
�`șswi%,pfield_%,T$
�j�
�t
�~/��setsub:�T$:�x%=0PRCerr(26):��x%<3�err(27)
��0T$=�A$,2,x%-2):T$=�su(�T$,4)):a%=�subnum(T$)
��-�a%<=0�err(28):��zfound:�macu%�upplit(A$)
��"�subbyte(a%,�ev1(�A$,x%+1))):�
�� 
����oscli(T$):�T$=42:�T$:�
��#�I%,J%:ș"Wimp_CommandWindow",1
���normpoint:mode%=�:�12
��
*fx229
���T$=""�
���novars
���
��#���=17�T$="":�endoscli:�:��:�
��T$="":�"*"T$
�

Ȏ � �
� � �T$=63��v_(1)=0:�(�T$,2))
�&� �T$=63��v_(1)>0:�ev(�T$,2),0,0)
�(�T$
�2�
�<
�T$=""
�F��
�P�
�Z�
�d��:��:�endoscli:�err(0)
�n"�=0:�T$:ș"OS_Byte",&86�,I%,J%
�x1�<150�I%+J%<>0�''"Press a key... ";:�waitkey
���
���endoscli:�
��
����endoscli
��*fx229,1
��ș"Wimp_CommandWindow",-1
��'ș"Wimp_SetMode",mode%:�:�force(-1)
���
��
��,��emacro:�deadfile(%1111111101111111):�
��笤flg(f_macb%):�domacro
��$�forcecardrep:�chkmv:�validrec:�
��
���bmacro
�F�:��:��:�flg(f_macb%,�):�showmac:�forcecardrep:�validrec:�err(0)
�#�domacro:�chkmv:�forcecardrep:�
�"
�,��fedit:�readonly:�buzz1:�
�6:�file%<>edfile%:�deadfile1(%1111111101011111):�buzz:�
�@#�file%<>edfile%�edrep%:�endedit
�J�edfile%>=0�edited(�)
�T:�fieldsz(menufield%):șswi%,sd17_%,9,menufield%,sd$�G%
�^șswi%,sd17_%,1,$sd%�G%
�h=!q%=w%(file%,0):q%!4=tx0%:q%!8=ty0%:q%!12=tx1%:q%!16=ty1%
�rKq%!20=&700F121:q%!24=edbuf%:q%!28=-1:q%!32=G%+1:șswi%,sd17_%,4,$sd%�G%
�|+�(G%�7)<>7:q%!20=q%!20�512:q%!28=edval%
��#$edbuf%=�s(�gfield(menufield%))
��%ș"Wimp_CreateIcon",,q% � edicon%
��F�iconupd(w%(file%,0),edicon%):�setct(w%(file%,0),edicon%,�$edbuf%)
��șswi%,sd23_%�N%
��:edfile%=file%:edfield%=menufield%:edrec%=N%:edrep%=�:�
��
����endfedit:�edfile%<0:�
���f%:f%=file%
��1�sdfile(edfile%):�edited(�):�f%>=0�sdfile(f%)
��Bedfile%=-1:edfield%=-1:edicon%=-1:edrec%=-1:edx%=-1:edrep%=�:�
��
����edited(T%):�T$
��4�pix%�picfield(edfield%):�updatefield(edfield%)
� �T%�setct(w%(file%,0),-1,-1)
��setedfield:�
�
�&%��setedfield1:�T$,T%:$sd%=$edbuf%
�0*�strip1:ȕ��-3�(�$sd%)="�"��$sd%)="�")
�:$sd%=�$sd%):�:$edbuf%=$sd%
�Dșswi%,grec_%,edrec%�N%
�N#șswi%,sd17_%,9,edfield%,sd$�G%
�XT$=$sd%:șswi%,gfield_%,T$
�b�strip1:�$sd%<>$edbuf%�
�lșswi%,sd30_%,-1�G%
�v.T%=�v_(14):$sd%=$edbuf%:șswi%,pfield_%,T$
��șswi%,locate_%,T%�D%
��șswi%,sd23_%�N%
���chkmv1(edrec%,N%)
���
��<�w%(file%,3)>0:�sd35:�G%:�forcecardsrep(�v_(15),�v_(15))
���
��
����setedfield2:�setedfield1
��@�edicon%>=0:�delicon(w%(file%,-3*edrep%),edicon%):edicon%=-1
���
��
����setedfield:�setedfield2
���updatefield(edfield%):�
�
���strip1:�$sd%="":�
�&�T%:T%=?sd%:?sd%=42:șswi%,strip_%
� �?sd%=13sd%?1=13
�*?sd%=T%:�$sd%=" "$sd%=""
�4�
�>
�H��endedit:�edfile%<0:�
�R+�f%:f%=file%:�sdfile(edfile%):�endfedit
�\�v_(15)>0�
�f"�flg(f_mace%):�domacro:�chkmv
�p�validlink
�z�
���f%>=0:�sdfile(f%)
���
��
��&��edrep(X%,r%):�readonly:�buzz1:�
���d%,f%,Y%:d%=�v_(14)
��:�file%<>edfile%:�deadfile1(%1111111101011111):�buzz:�
��$�file%<>edfile%��edrep%:�endedit
���edfile%>=0�
��șswi%,grec_%,edrec%�N%
��C�setct(w%(file%,3),-1,0):�setedfield2:�updatefieldrep(edfield%)
���
��șswi%,grec_%,r%�N%
�� �validaterec1:�s%(file%)<>0�
�Bedfile%=-1:edfield%=-1:edicon%=-1:edrec%=-1:edrep%=�:edx%=-1:�
��
�4r%=�v_(15):�srfield(X%,f%):șswi%,sd17_%,1,f%�G%
�$/tx0%=margin%+(11+X%)*16-8:tx1%=tx0%+G%*16+8
�.;ty0%=-margin%-(�v_(15)+2)*linegap%+8:ty1%=ty0%+linegap%
�8=!q%=w%(file%,3):q%!4=tx0%:q%!8=ty0%:q%!12=tx1%:q%!16=ty1%
�BIq%!20=&700F121:q%!24=edbuf%:q%!28=-1:q%!32=G%+1:șswi%,sd17_%,4,f%�G%
�L+�(G%�7)<>7:q%!20=q%!20�512:q%!28=edval%
�VC�checkformat(f%):șswi%,gfield_%,f%:șswi%,strip_%:$edbuf%=$sd%
�`%ș"Wimp_CreateIcon",,q% � edicon%
�jF�iconupd(w%(file%,3),edicon%):�setct(w%(file%,3),edicon%,�$edbuf%)
�t:edfile%=file%:edfield%=f%:edx%=X%:edrec%=r%:edrep%=�:�
�~
����checkformat(T%)
���:��:��:�err(72)
��6șswi%,sd17_%,9,T%,sdf$:șswi%,sd17_%,9,$sd%,sd$:�
��
��'��fieldsz1(T%):�gx0%,gy0%,gx1%,gy1%
����fieldsz(T%)
���L%,X%,Y%,G%,t%
��0�getw(w%(file%,0)):șswi%,sd17_%,1,T%,sd$�G%
��#L%=G%:șswi%,sd17_%,2,T%,sd$�G%
��#X%=G%:șswi%,sd17_%,3,T%,sd$�G%
��'ș"OS_ReadModeVariable",-1,5 � ,,t%
��,ty0%=(-G%*linegap%-margin%)��((1<<t%)-1)
�ty1%=ty0%+linegap%
�
+tx0%=X%*16+margin%-16:tx1%=tx0%+L%*16+2
�
�pix%�
��picfield(T%)�
�(�T$,t$,W%,H%,M%,A%
�2șswi%,sd17_%,9,T%,sd$�G%
�<șswi%,gfield_%,$sd%
�Fșswi%,strip_%
�P1t$=$sd%:tx1%=tx0%+16*L%:ty0%=ty1%-(tx1%-tx0%)
�Z
�$sd%>""�
�dT$=�loadspr($sd%):�T$>""�
�n0ș"OS_SpriteOp",&128,sprbuf%,T$�,,,W%,H%,,M%
�x0ș"OS_ReadModeVariable",M%,4 �,,A%:W%=W%<<A%
��0ș"OS_ReadModeVariable",M%,5 �,,A%:H%=H%<<A%
��t%=�t$,"{"):�t%>0�
��.t$=�t$,t%+1):t%=�t$,"}"):�t%>0t$=�t$,t%-1)
��3X%=16*�t$:t%=�t$,","):�t%Y%=linegap%*��t$,t%+1)
���X%=0�Y%=0�
��#X%=W%:Y%=H%:�X%>L%*16�Y%>L%*16�
��'�X%>Y%:X%=L%*16:Y%=0:�Y%=L%*16:X%=0
���
���
���Y%=0:Y%=X%*H%/W%-1
���X%=0:X%=Y%*W%/H%-1
��tx1%=tx0%+X%:ty0%=ty1%-Y%
���
�F�W%>H%ty0%=ty1%-H%/W%*(tx1%-tx0%)-1:�tx1%=tx0%+W%/H%*(ty1%-ty0%)-1
��
��
�"�
�,�tx1%<tx0%+30tx1%=tx0%+30
�6�ty0%>ty1%-30ty0%=ty1%-30
�@�
�J�
�T�
�^
�h��fedit2(T%,t%)
�r�formstat:�:T%+=t%:t%=�t%
�|F%=�v_(7):ȕT%>F%:T%-=F%:�
��ȕT%<1:T%+=F%:�
��șswi%,sd17_%,4,T%,sd$�G%
���(G%�64)=0�T%=edfield%
��menufield%=T%:�fedit:�
��
��)��updatefield(T%):�X%,L%:�fieldsz(T%)
��H!q%=w%(file%,0):q%!4=tx0%:q%!8=ty0%:q%!12=tx1%:q%!16=ty1%:�redraw(�)
����updatefieldrep(T%):�X%,L%
���r%(file%)=1�w%(file%,3)>0�
��șswi%,sd66_%,T%�G%
��X%=G%+1:�X%>0�
��șswi%,sd17_%,1,T%�G%
��L%=G%:șswi%,sd17_%,4,T%�G%
��(G%�7)<>7:L%+=2
�/tx0%=margin%+(11+X%)*16-8:tx1%=tx0%+L%*16+8
�;ty0%=-margin%-(�v_(15)+2)*linegap%+8:ty1%=ty0%+linegap%
�&H!q%=w%(file%,3):q%!4=tx0%:q%!8=ty0%:q%!12=tx1%:q%!16=ty1%:�redraw(�)
�0�
�:�
�D�forcecardrep
�N�
�X�
�b
�l��add:�readonly:�buzz1:�
�v#�deadfile(%1111111111011110):�
��5�f%:f%=file%:�endedit:�sdfile(f%):șswi%,add_%�N%
��6�rext:�selsub(0):�nofilt:�formstat:edfield%=�v_(7)
��/�sdfile(f%):�validrec:�graph:�fedit2(0,1):�
��
��.��showdef:�deadfile(%11111111111111110):�
��șswi%,grec_%,0�N%
���newcard(�,s%(file%)=0):�
��
��0ݤshowbranch:�readpointer:�mb%<>1�mi%<>-3:=�
��/�T$,t$:T$=fn$(file%):t$=�leaf(T$):�t$=T$:=�
��(�"*filer_opendir "+�T$,�T$-�t$-1):=�
��
����readws:�T$,T%,I%,c%
�;c%=�hdbyte1(53):�c%<>id_bbc%�c%<>id_wcia%�c%<>id_exb%:�
�șswi%,sd24_%
��c%=id_exb%�readexbws:�
� 5r$(file%)=�gs:�I%=0�18:�note(file%,I%,��gs,69)):�
�*e$(file%)=��gs,70)
�4'�flg(f_rspc%,�gb):�flg(f_rupp%,�gb)
�>)�flg(f_sspc%,�gb2):�flg(f_supp%,�gb2)
�H'T%=�v_(7)+5:�T%>30�c%=id_wcia%T%=30
�R#�I%=0�T%:�macln(file%,I%,�gs):�
�\șswi%,sd25_%�G%
�f/�G%=11:�flg(f_macb%,�):��G%:�flg(f_mace%,�)
�p4st%(file%,0)=0:st%(file%,1)=0:st%(file%,2)=�/100
�z�
��
����readexbws:�I%,T%
��"�I%=0�18:�note(file%,I%,�gs):�
��#�I%=0�29:�macln(file%,I%,�gs):�
��<�I%=0�23:d$(file%,I%)=�gs:�:f$(file%)=�gs:fx$(file%)=�gs
��?e$(file%)=�gs:�I%=0�14:w$(file%,I%)=�gs:�:wo%(file%)=�gw(0)
��r%(file%)=�gw(0)
��;fl%(file%)=(fl%(file%)��f_save%)�(�gw(f_dflt%)�f_save%)
��B�I%=0�3:t%(file%,I%)=�gw(0):�:o$(file%)=�gs:o%(file%,0)=�gw(0)
��=r$(file%)=�gs:sr$(file%)=�gs:l$(file%)=�gs:lk$(file%)=�gs
��lx$(file%)=�gs
��"�I%=0�5:ll%(file%,I%)=�gw(0):�
��#�I%=0�15:lf%(file%,I%)=�gw(0):�
�<�I%=0�4:p%(file%,I%)=�gw(0):�:�I%=0�7:p$(file%,I%)=�gs:�
�T%=�gw(0):�I%=0�T%
��I%<=maxcol%�
�$=c$(file%,I%,0)=�gs:c$(file%,I%,1)=�gs:c%(file%,I%)=�gw(0)
�.�
�8!$sd%=�gs:$sd%=�gs:!sd%=�gw(0)
�B�
�L�
�V:st%(file%,0)=��gs:st%(file%,1)=��gs:st%(file%,2)=�/100
�`�
�j
�t��writews:�readonly:�
�~
�T$,I%,c%
��;c%=�hdbyte(&35):�c%<>id_bbc%�c%<>id_wcia%�c%<>id_exb%:�
��șswi%,sd24_%
���c%=id_exb%:�writeexbws:�
�� $sd%=r$(file%):șswi%,sd28_%
��N�I%=0�18:$sd%=�note(file%,I%):șswi%,sd28_%:�:$sd%=e$(file%):șswi%,sd28_%
��+�wsb(�flg(f_rspc%)):�wsb(�flg(f_rupp%))
��+�wsb(�flg(f_sspc%)):�wsb(�flg(f_supp%))
��'T%=�v_(7)+5:�T%>30�c%=id_wcia%T%=30
��2�I%=0�T%:$sd%=�macln(file%,I%):șswi%,sd28_%:�
��2T%=0:�flg(f_mace%):T%=1:��flg(f_macb%):T%=11
��șswi%,sd26_%,T%
���
�
�
��writeexbws:�I%
�#�I%=0�18:�ws(�note(file%,I%)):�
�$�I%=0�29:�ws(�macln(file%,I%)):�
�(?�I%=0�23:�ws(d$(file%,I%)):�:�ws(f$(file%)):�ws(fx$(file%))
�2/�ws(e$(file%)):�I%=0�14:�ws(w$(file%,I%)):�
�<5�wsw(wo%(file%)):�wsw(r%(file%)):�wsw(fl%(file%))
�F/�I%=0�3:�wsw(t%(file%,I%)):�:�ws(o$(file%))
�P4�wsw(o%(file%,0)):�ws(r$(file%)):�ws(sr$(file%))
�Z2�ws(l$(file%)):�ws(lk$(file%)):�ws(lx$(file%))
�d!�I%=0�5:�wsw(ll%(file%,I%)):�
�n"�I%=0�15:�wsw(lf%(file%,I%)):�
�x<�I%=0�4:�wsw(p%(file%,I%)):�:�I%=0�7:�ws(p$(file%,I%)):�
���wsw(maxcol%):�I%=0�maxcol%
��>�ws(c$(file%,I%,0)):�ws(c$(file%,I%,1)):�wsw(c%(file%,I%))
��9�:st%(file%,1)+=�/100-st%(file%,2):st%(file%,2)=�/100
��9st%(file%,0)+=1:�ws(�st%(file%,0)):�ws(�st%(file%,1))
���
��
��"ݤgb:șswi%,sd25_%�G%:=(G%=11)
��#ݤgb2:șswi%,sd25_%�G%:=(G%<>0)
��ݤgs:șswi%,sd27_%:=$sd%
��"��ws(T$):$sd%=T$:șswi%,sd28_%
��2��wsb(T%):�T%șswi%,sd26_%,11:�șswi%,sd26_%,0
���
��
�,ݤgw(A%):�T%,I%:�I%=0�3:șswi%,sd25_%�G%
�1T%=T%�((G%�255)<<(I%*8)):�:�T%=&0d0d0d0dT%=A%
�=T%
�"
�,4��wsw(T%):�I%:�I%=0�3:G%=T%�255:șswi%,sd26_%,G%
�6T%=(T%>>8):�:�
�@
�Jݤstatf
�T,�T%,I%:I%=14:T%=-1:�:T%+=1:�T%>maxf%:=-1
�^�w%(T%,0)>0:I%+=1
�h,�I%=mi%:�w%(T%,0)>0:�sdfile(T%):=T%:�=-1
�r
�|��walign:�X%,Y%
��&�menufile%>=0�sdfile(menufile%):��
��/X%=file%*80+panew%+8:Y%=900-file%*40-paneh%
��7�open(w%(file%,0),X%,Y%,X%+paneh%,Y%+paneh%,0,0,-1)
��$�I%:�I%=2�maxw%:�w%(file%,I%)>0�
��D�align1(file%,I%):�open(w%(file%,I%),tx0%,ty0%,tx1%,ty1%,0,0,-1)
��	�:�:�
��
����rlink(T%):�links%=0:�
���f%,I%:f%=file%
��9�I%=0�maxf%:�l%(I%)=file%+1�rlink1(I%,T%):�sdfile(f%)
���:�
��
��&��rlink1(I%,T%):�T$,file%:file%=I%
�-�:��:��:�sdfile(file%):�unlink:�err(37)
�)T$=�ev(lx$(file%),�,�):�sdfile(file%)
�*G%=0:�T$>"":�dup1(lk$(file%)+"="+T$,0)
�&�G%=0:șswi%,first_%�,N%
�0*�T%�G%<>0:�validrec:��T%:�newcard(�,�)
�:șswi%,sd23_%�N%
�D�rlink(T%):�
�N
�X��setlink:�T$
�b8�l%(file%)>0T$=�ofilename(l%(file%)-1)�T$=lx$(file%)
�l@w_rlink%=�crwind(tw_rlink%):$�ta(w_rlink%)="Link "+�filename
�v5�seti(w_rlink%,1,T$):�seti(w_rlink%,3,lk$(file%))
��5�seti(w_rlink%,5,l$(file%)):�dialogue(w_rlink%):�
��
��F��unlink:lx$(file%)=�ofilename(l%(file%)-1):șswi%,selectkey_%,"?"
��1l%(file%)=-�l%(file%):s%(file%)=0:a%(file%)=0
��/links%-=1:�validrec2:�forcecard:�forcerep:�
��
����validatelink:�f%:f%=file%
��(ȕl%(file%)>0:�sdfile(l%(file%)-1):�
���validaterec:�
��
����validlink:�f%:f%=file%
��(ȕl%(file%)>0:�sdfile(l%(file%)-1):�
���validrec:�sdfile(f%):�
�
�'��matchrep:�r%(file%)=4:�forcerep:�
�6�r%(file%)>2�w%(file%,3)<1�s%(file%)<>0��v_(15)=0�
�  �h%:h%=1:�r%(file%)=0h%=�rht
�*șswi%,sd23_%�N%
�4!h%=h%*N%-h%:�r%(file%)=1h%+=2
�>�getw(w%(file%,3))
�HA�open(w%(file%,3),x0%,y0%,x1%,y1%,scx%,-h%*linegap%,bhandle%)
�R�
�\
�fݤrsize
�pR%=�v_(17):Ȏr%(file%)�
�z�0:=R%*�wd*�rht
���1:=��srep(1)*(R%+4)
��
�2:=80*R%
��B�3:=R%*ll%(file%,5)*(ll%(file%,0)+ll%(file%,2)+3)*ll%(file%,3)
��	:=-1
��	�:=-1
��
����grabpr
��/�printer%>=0:�err(42):��pstream%>0:�err(41)
��/pstream%=�("Printer:"):�pstream%=0:�err(41)
��printer%=file%:�
��
��&��releasepr:�pstream%>0:�#pstream%
��printer%=-2:pstream%=0:�
�
���pprint1(T$)
��
�$/��:��:ș"Hourglass_Off":�"fx229,1":�err(0)
�.ș"Hourglass_On":*fx229
�8�#pstream%,T$;
�B!��:ș"Hourglass_Off":*fx229,1
�L�
�V
�`&��pprint(T$):�pprint1(T$):�pnewl:�
�j
�t3��ppage(T%):�pdriver%:�pprint1(PDff$):��pnewl:�
�~�manual%��T%:�
��F!q%=99:$(q%+4)="Please load a new sheet of paper into the printer"
��!ș "Wimp_ReportError",q%,17:�
��
����pnewl
���
��/��:��:ș"Hourglass_Off":�"fx229,1":�err(0)
��ș"Hourglass_On":*fx229
���pterm%>0:�#pstream%,13
���pterm%<>1:�#pstream%,10
��!��:ș"Hourglass_Off":*fx229,1
���
��
�"��dprint1(T$):�#outfile%,T$;:�
�

�&��dprint(T$):�dprint1(T$):�dnewl:�
�
�(4��ofont(T%,O%):�pdriver%�oprint1(PDfont$(T%),O%)
�2�
�<
�F��dnewl:�#outfile%,"":�
�P
�Z"��onewl(T%):�T%:�dnewl:��pnewl
�d0��oprint(T$,T%):�T%:�dprint(T$):��pprint(T$)
�n3��oprint1(T$,T%):�T%:�dprint1(T$):��pprint1(T$)
�x�
��
��ݤsrep(r%)
���
����:��:=" ** "+�$
��șswi%,sd23_%
��)�r%=1r%=-2��r%=4r%=�v_(15)��r%=5r%=-3
�� șswi%,line_%,r%,srx$(file%)
��!�flg(f_srup%):șswi%,upper_%
��	=$sd%
��
��ݤslin(r%)
��
�T$,A$
��A$=�12," ")
�	Ȏr%�
� �1:�flg(f_stit%)T$=�srep(0)
�.�2:�flg(f_sdas%)��flg(f_stit%)T$=�srep(1)
�"6ɤv_(17)+3:�flg(f_stot%)��flg(f_sdas%)T$=�srep(1)
�,(ɤv_(17)+4:�flg(f_stot%)T$=�srep(5)
�6:șswi%,grec_%,r%-2�N%
�@1�sd35:A$=�"          "+�(r%-2),10)+": ":ȎG%�
�J+�1:�gcol(0,3):T$="(Not in this subset)"
�T�0:T$=�srep(4)
�^$:�gcol(0,3):T$="(Deleted Card)"
�h�
�r�
�|
=A$+T$
��
��ݤrlin(r%,L%):�t$,a$
�� a$=�12," "):șswi%,grec_%,r%
��%�sd35:a$=�a$+�(r%),10)+": ":ȎG%�
��+�1:�gcol(0,3):t$="(Not in this subset)"
���0:�L%>11:t$=�rlin1
��$:�gcol(0,3):t$="(Deleted Card)"
���
��=�a$+t$,L%)
��
��ݤrlin1
���:��:��:=" ** "+�$
��6=�ev3(rx$(file%),�flg(f_rspc%),�flg(f_rupp%),&90A)
�
�,ݤwlin(T%):�t$,T$:t$=�"0"+�(T%+1),2)+":"
��:��:��:=t$+" ** "+�$
�&"T$=�s(w$(file%,T%)):�T$="":=t$
�06T$=�s(�x(T$)):�u(T$)="END":=t$+"----END"+�73,"-")
�:6=t$+��ev3(T$,�flg(f_wspc%),�flg(f_wupp%),&90A),80)
�D
�N��repdefault
�X
�I%,T%
�bȎr%(file%)�
�lc�1:�strip(sr$(file%)):�sr$(file%)=""sr$(file%)=�fname(1):�flg1(f_sspc%�f_stot%�f_stit%�f_sdas%)
�v3�remove(sr$(file%),"@"):�remove(sr$(file%),"#")
��srx$(file%)=�x5(sr$(file%))
��>�2:�strip(r$(file%)):�r$(file%)="":r$(file%)="@"+�fname(1)
��rx$(file%)=�x6(r$(file%))
���3
���ll%(file%,0)<=0�
�� �+1:�I%=0�5:�ll%(file%,I%):�
���I%=0�15:lf%(file%,I%)=0:�
���
���30,4,4,9,2,1
���4
��e�wo%(file%)<0wo%(file%)=0:�I%=0�14:w$(file%,I%)="":�:�flg0(f_wupp%):�flg0(f_wbnk%):�flg1(f_wspc%)
���5
��>�p%(file%,0)<=0:p$(file%,0)="":�+1:�I%=0�4:�p%(file%,I%):�
��p$(file%,0)=""�
�"�flg1(f_reja%�f_rbpn%�f_rpdt%)
�B�flg0(f_rejb%�f_rdsp%�f_rtpn%�f_rldu%�f_rlsu%�f_rtpg%�f_rtsu%)
� 4�r_clear:p$(file%,0)="Report on file "+�filename
�*"T%=0:�I%=0�maxcol%:�I%<�v_(7)�
�45menufile%=file%:�r_setcol(I%+1,I%):�decodecol(I%)
�>=�T%+cwid%<p%(file%,2):T%+=cwid%+1:��r_clearcol(I%):I%=1E9
�H�
�R�
�\�
�f�
�p&�dpwid%,4,dpwid%-8,dplen%-6,dplen%
�z�
���
��
����rsetup
��Ȏr%(file%)�
��
�1:�rset1
���2:�expr(2)
��
�3:�rset3
��
�4:�rset4
���5:�rset51
���:�
��
��'��rset1:w_srset%=�crwind(tw_srset%)
��8�unselall(w_srset%):�flg(f_srup%):�seli(w_srset%,0)
�$�flg(f_stot%):�seli(w_srset%,1)
�$�flg(f_stit%):�seli(w_srset%,7)
�$�flg(f_sdas%):�seli(w_srset%,8)
�$>ex$=sr$(file%):�seti(w_srset%,3,ex$):�dialogue(w_srset%):�
�.
�8��rset2:�T$:T$=�x6($A%)
�BA�flg(f_rupp%,u%):�flg(f_rspc%,s%):r$(file%)=$A%:rx$(file%)=T$
�L�forcerep:�
�V
�`/��rset3:w_label%=�crwind(tw_label%):�rset3i
�j�dialogue(w_label%):�
�t
�~��rset3i
���I%,J%:��|\}:�I%=0�7:�J%
��1�seti(w_label%,J%,�ll%(file%,I%)):�:�lwidth:�
���12,41,23,6,15,19,48,52
��
��-��rset4:w_word%=�crwind(tw_word%):�rset4i
���dialogue(w_word%):�
��
����rset4i
��1�I%:�I%=0�14:�seti(w_word%,I%,w$(file%,I%)):�
��(�unselall(w_word%):��\h~:�I%=0�9:�T$
��=�T$<>"*"�seti(w_word%,I%+30,T$):��loseicon(w_word%,I%+30)
��"�:�seli(w_word%,30+wo%(file%))
�$�flg(f_wspc%):�seli(w_word%,40)
�
$�flg(f_wupp%):�seli(w_word%,41)
�$�flg(f_wbnk%):�seli(w_word%,44)
��
�(I� ASCII (TSV),View,InterWord,1stWord+,CSV,Pipedream,WordWise+,DIF,*,*
�2
�<1��rset51:w_rset1%=�crwind(tw_rset1%):�rset51i
�F�dialogue(w_rset1%):�
�P
�Z ��rset51i:�T%,I%:T%=w_rset1%
�dV�unselall(T%):�flg(f_rldu%)�seli(T%,36):��flg(f_rlsu%)�seli(T%,37):��seli(T%,35)
�n)�I%=0�3:�seti(T%,I%+1,p$(file%,I%)):�
�x�
��
��1��rset52:w_rset2%=�crwind(tw_rset2%):�rset52i
���dialogue(w_rset2%):�
��
�� ��rset52i:�T%,I%:T%=w_rset2%
��V�unselall(T%):�flg(f_rtpg%)�seli(T%,51):��flg(f_rtsu%)�seli(T%,52):��seli(T%,50)
��,�I%=0�3:�seti(T%,I%+42,p$(file%,I%+4)):�
���
��
��1��rset53:w_rset3%=�crwind(tw_rset3%):�rset53i
���dialogue(w_rset3%):�
��
�� ��rset53i:�T%,I%:T%=w_rset3%
��unselall(T%)
��flg(f_rejb%)�seli(T%,29)
��flg(f_reja%)�seli(T%,30)
�"�flg(f_rdsp%)�seli(T%,31)
�,�flg(f_rtpn%)�seli(T%,32)
�6�flg(f_rbpn%)�seli(T%,33)
�@�flg(f_rpdt%)�seli(T%,34)
�J0�+1:�I%=0�4:�J%:�seti(T%,J%,�p%(file%,I%)):�
�T%�seti(T%,38,äprwidth):�rmargin:�
�^�7,12,16,26,22
�h
�r��srfield(� X%,� g%)
�|șswi%,sd65_%,X%-1�G%,P%
��g%=G%:X%=P%+1:�
��
����srxnext(� X%,� f%,d%)
���L%
��
�d%>0�
��șswi%,sd17_%,1,f%�G%
��X%+=G%+1:�X%>��srep(1):X%=1
���
��
�X%>1�
��X%-=2:șswi%,sd17_%,4,f%�G%
���(G%�7)<>7X%-=2
���
���
��srfield(X%,f%):�
�
�
��asccard
�&�h%,I%,T%:T%=�file$:�T%=0:�
�0(I%=1:h%=�ht:ȕI%<=h%���#T%:$sd%=�#T%
�:șswi%,sd00_%,sd%,I%
�D"I%+=1:�:�#T%:șswi%,sd38_%,255
�Nșswi%,sd38_%
�X�forcecard:�noscrap:�
�b
�l"��lwidth:�A%,T%,W%:W%=workbuf%
�v3��DB{:�T%=0�20�4:�A%:W%!T%=�$�ia(w_label%,A%):�
��:T%=(!W%+W%!8)*W%!16-W%!8+W%!4:�seti(w_label%,26,�T%):�
���12,41,23,6,15,19
��
��ݤlwidth:�h%:h%=file%
��8=ll%(h%,1)+(ll%(h%,0)+ll%(h%,2))*ll%(h%,4)-ll%(h%,2)
��
��ݤdumlab(L%)
��#�T$,t$,T%:t$=�ll%(file%,1)," ")
��1T$="["+�"���",�justl(L%)+1,1)+�(�fontl(L%)+1)
���spcl(L%)T$+="S"
���uppl(L%)T$+="U"
���fixl(L%)T$+="F"
��%T$+="]":T%=ll%(file%,0):�T%<=�T$�
�T$=�T$,T%)
��
�Ȏ�justl(L%)�
� �0:T$+=�T%-�T$,"*")
�*.�1:T$=�(T%-�T$)�2,"*")+T$:T$+=�T%-�T$,"*")
�4�2:T$=�T%-�T$,"*")+T$
�>�
�H�
�R T%=ll%(file%,4):ȕT%>0:T%-=1
�\�t$+�T$<255t$+=T$
�f4�t$+ll%(file%,2)<255�T%>0t$+=�ll%(file%,2)," ")
�p	�:=t$
�z
��+ݤjustl(L%):�L%>15:=0:�=lf%(file%,L%)�3
��2ݤfontl(L%):�L%>15:=0:�=(lf%(file%,L%)�12)>>>2
��0ݤspcl(L%):�L%>15:=�:�=(lf%(file%,L%)�16)<>0
��0ݤuppl(L%):�L%>15:=�:�=(lf%(file%,L%)�32)<>0
��0ݤfixl(L%):�L%>15:=�:�=(lf%(file%,L%)�64)<>0
��
����labline(t%,O%)
��3�J%,K%,b%,f%,h%,i%,j%,l%,g%,w%,w,T$,T%,t:h%=�ht
��)�:��:��:șswi%,sd38_%,0,sd$:�err(0)
��:e%(file%,0)+=1:�e%(file%,0)>ll%(file%,3):e%(file%,0)=1
��
�t%=1�
��șswi%,sd38_%,42,sd$
���
�+T%=e%(file%,2):b%=�:șswi%,grec_%,T%�N%
��shownum
��
�$��ll%(file%,7):�(labline%-ll%(file%,6))�ll%(file%,3)=0:�ll%(file%,7)>ll%(file%,3)+ll%(file%,6):�ll%(file%,7)-labline%<ll%(file%,3):ȕlabline%<ll%(file%,7):�oprint("",O%):labline%+=1:�:labline%=0
�.v�labline%=0:�ll%(file%,6):�ll%(file%,6)<=ll%(file%,7)-ll%(file%,3):�J%=1�ll%(file%,6):�oprint("",O%):labline%+=1:�
�8l%=e%(file%,1)
�B0�ofont(1,O%):�oprint1(�ll%(file%,1)," "),O%)
�L&labline%+=1:w=0:�J%=1�ll%(file%,4)
�V�(�v_(15)>�v_(17)�t%=0)�b%�
�`$sd%=""
�j�
�tK%=l1%(file%,J%-1):�
�~(�K%>h%$sd%="":�șswi%,gline_%,K%,sd$
ˆșswi%,strip_%
’.�spcl(K%-1):$sd%=�ss($sd%):șswi%,strip_%
œ�uppl(K%-1):șswi%,upper_%
¦&K%+=1:�$sd%>""��fixl(K%-2)�K%>h%+1
°1�fixl(K%-2):�K%-1<>e%(file%,0):$sd%="":K%-=1
º1f%=�fontl(K%-2)+1:�f%<1�$sd%=ĩ$sd%," "):f%=1
��'t=1:�pdriver%t=PDcpl%(f%)/PDcpl%(1)
��.w%=(J%*(ll%(file%,0)+ll%(file%,2))-w)*t+.5
��Gw+=w%/t:�ofont(f%,O%):g%=ll%(file%,2)*t+.5:�g%=0�ll%(file%,2)>0g%=1
��=�ppexpand($sd%):j%=�justl(K%-2):�j%=1�j%=2:șswi%,strip_%
��:�j%=1$sd%=�$sd%,w%-g%):$sd%=�(w%-g%-�$sd%)/2," ")+$sd%
�=�j%=0�j%=1:$sd%=�$sd%,w%-g%):$sd%=�$sd%+�w%," ")+$sd%,w%)
�/�j%=2$sd%=��w%-g%," ")+$sd%,w%-g%)+�g%," ")
�
8�t%=1�(e%(file%,0)<>ll%(file%,3)�$sd%<>ĩ$sd%," "))�
�)�i%=0��$sd%-g%-1:�sd%?i%=32:sd%?i%=46
��
�(�
�2)�J%=ll%(file%,4):$sd%=�$sd%,�$sd%-g%)
�<(l1%(file%,J%-1)=K%:�oprint1($sd%,O%)
�Fl%+=1:�l%>ll%(file%,5)�
�P�t%=0:�sdnext:��t%=2:b%=�
�Zl%=1
�d�
�n�
�x�
�onewl(O%)
Ì
�t%=1�
Öșswi%,sd38_%,0,sd$
àM�e%(file%,0)=ll%(file%,3)e%(file%,1)=l%:�i%=0�maxacr%-1:l1%(file%,i%)=1:�
ê�
ôP�(�v_(15)>�v_(17)�(t%=2�e%(file%,1)=ll%(file%,5)))�e%(file%,0)=ll%(file%,3)�
þ&�t%=0�O%=�:�endact:�e%(file%,2)=-1
���
���e%(file%,0)=ll%(file%,3)�
��He%(file%,2)=�v_(15):e%(file%,1)=l%:�i%=0�maxacr%-1:l1%(file%,i%)=1:�
���
��&T%=e%(file%,2):șswi%,grec_%,T%�N%
��
��
��
��
�"
�,-ݤMakePable(A$,L%)�B$,I%,C%,M%:�A$="":=""
�6!�I%=1��A$:C%=��A$,I%,1):Ȏ� �
�@��C%<32:�-3:B$+=�s(�"NULSOHSTXETXEOTENQACKBELBS TABLF VT FF CR SO SI DLEDC1DC2DC3DC4NAKSYNETBCANEM SUBESCFS GS RS US ",C%*3+1,3)):�B$+=�C%
�JC�C%<127:��B$,2)=""",":B$=�B$,�B$-2)+�C%+"""":�B$+=""""+�C%+""""
�T�C%=127:B$+="DEL"
�^
 B$+=�C%
�h�
�r�I%<>�A$:B$+=",":M%=-999
�|�:�M%=-999M%=1:�M%=�A$
Ć/�M%=L%�L%=0:=�B$,30):�=�B$+" ["+�L%+"]",30)
Đ
Ě!ݤPConv(A$)�W$,B$,C%:Length=0
Ĥ�W$=�token(A$)
Į�W$B$+=�PC2(W$):C%+=1
ĸ�W$="":�C%=1C%=�B$:�C%=1
���Length<1Length=C%
��=B$
��
��ݤPC2(W$)�A$,A%
��A$=�W$,1):Ȏ� �
��C�A$="""",A$="'":��W$)<>A$:�200,"Bad "+A$+" item":�=�W$,2,�W$-2)
��A$="&":=��W$
�ɗA$>47��A$<58:=��W$
�L�A$="[":��W$)<>"]":�200,"Bad length specifier":�Length=��W$,2,�W$-2):=""
��:A$=�lower(W$)
�&�A%=�".nul.soh.stx.etx.eot.enq.ack.bel.bs .tab.lf .vt .ff .cr .so .si .dle.dc1.dc2.dc3.dc4.nak.syn.etb.can.em .sub.esc.fs .gs .rs .us .del.","."+�A$+"  ",3)+"."):�A%=32A%=127
�0
�A%=0:=W$
�:=�(A%�4)
�D
�Nݤtoken(� A$)�B$,I%,J%
�X#A$=�s1(A$):I%=1:�A$=34��A$=39�
�bI%=�A$,��A$,2):�I%=0:I%=�A$
�lB$=�A$,I%):A$=�A$,I%+1)
�v-�A$=�",":A$=�A$,2):�ȕ�A$=32:A$=�A$,2):�
ŀ=B$
Ŋ�
Ŕ8J%=�A$," ",I%):I%=�A$,",",I%):�I%=0�I%>J%�J%>0:I%=J%
Ş)B$=�A$,I%-1):A$=�A$,I%+1):�I%=0:A$=""
Ũ=�s1(B$)
Ų
ż��savepd
���A%,I%,F%:F%=outfile%
��+A%=&55010001:�I%=1�4:�#F%,A%:A%=A%>>8:�
��0�PDstring(F%,PDname$):�PDstring(F%,PDreset$)
���#F%,PDfont%
��i�PDfont%:�I%=1�PDfont%:�PDstring(F%,PDfname$(I%)):�PDstring(F%,PDfont$(I%)):�PD2byte(F%,PDcpl%(I%)):�
��#F%,PDchar%
�V�PDchar%:�I%=1�PDchar%:�#F%,PDfrom%(I%):�PDstring(F%,PDto$(I%)):�#F%,PDclen%(I%):�
�B�PDstring(F%,PDfix$):�PDstring(F%,PDff$):�PDstring(F%,�PDsep%)
��#F%,PDPrintAuto:�
� 
�*��PDload
�4"�F%,I%,A%,B%:F%=�file$:�F%=0:�
�>)�I%=1�4:A%=�#F%:B%=(A%<<24)+(B%>>8):�
�H �B%<>&55010001:�#F%:�err(48)
�R=PDname$=�PDstring(F%):PDreset$=�PDstring(F%):PDfont%=�#F%
�\i�PDfont%:�I%=1�PDfont%:PDfname$(I%)=�PDstring(F%):PDfont$(I%)=�PDstring(F%):PDcpl%(I%)=�PD2byte(F%):�
�fPDchar%=�#F%
�pV�PDchar%:�I%=1�PDchar%:PDfrom%(I%)=�#F%:PDto$(I%)=�PDstring(F%):PDclen%(I%)=�#F%:�
�zPDfix$=�PDstring(F%)
Ƅ>PDff$=�PDstring(F%):PDsep%=��PDstring(F%):PDPrintAuto=�#F%
Ǝ6�#F%:�newfn(f_pd$):�w_pdrive%>0:�closew(w_pdrive%)
Ƙ�pdriver:�
Ƣ
Ƭ+��PDstring(F%,A$):�#F%,�A$:�A$�#F%,A$;
ƶ�
�(��PD2byte(F%,W%)�#F%,W%:�#F%,W%>>8:�
��ݤPDstring(F%)�A$,I%
��$L%=�#F%:�L%:�I%=1�L%:A$+=��#F%:�
��=A$
�� ݤPD2byte(F%)=�#F%+(�#F%<<8)
��
�&��PDtest:�grabpr:�pprint(PDreset$)
�+�pprint(""):�pprint(""):�T$:T$=�54,"-")
�E�pprint("Minerva Software - MultiStore User Printer Driver Test")
�<�pprint(T$):�PDtestfont(1):�PDtestfont(2):�PDtestfont(3)
�$.�pprint1(PDfont$(1)):�pprint(T$):�ppage(�)
�.�releasepr:�
�8
�B*��PDtestfont(f%):�pprint1(PDfont$(f%))
�L�I%,T%,T$,w:w=0
�V7�pprint1("Font"+�f%+": "):w+=PDcpl%(1)/PDcpl%(f%)*7
�`�PDtab(w,16):�I%=1�2
�j6T%=20*PDcpl%(f%)/PDcpl%(1)-PDclen%(1)-PDclen%(2)-1
�t<T$=�"ABCDEabcde01234",T%):�pprint1(T$+PDto$(1)+PDto$(2))
�~7w+=PDcpl%(1)/PDcpl%(f%)*(PDclen%(1)+PDclen%(2)+�T$)
Lj �PDtab(w,36):�:�pprint(""):�
ǒ
ǜ��PDtab(� w,T%)
ǦjT%=(T%-PDcpl%(1)/PDcpl%(f%)-w)*PDcpl%(f%)/PDcpl%(1)+.5:w+=T%*PDcpl%(1)/PDcpl%(f%):�pprint1(�T%," ")):�
ǰ
Ǻ��pproc(� A$):�A$="":�
���I%,T%,T$,t%
���I%=1�10
��T$=�"`$ABCDEFGH",I%,1):t%=1
��)�pdriver%:T$=PDto$(I%):t%=PDclen%(I%)
���PDclen%(I%)>0�
�$T%=0:�:T%=�A$,�t%,�(I%+127)),T%)
�*�T%:A$=�A$,T%-1)+T$+�A$,T%+t%):T%+=�T$
�
	�T%=0
��
��:�ppspc(A$):�
�(
�2��PDrdfont(I%)
�<APDfont$(I%)=�PConv($�ia(w_pdrive%,I%+8)):�Length<20:Length=80
�FPDcpl%(I%)=Length:�
�P
�Z��ppspc(� A$)
�d�T%,C%:�
�n8C%=128:T%=0:ȕT%=0�C%<139:T%=�A$,�C%):C%=C%-(T%=0):�
�x�T%<>0:�A$,T%,1)=" "
Ȃ�T%=0:�
Ȍ
Ȗ��ppspc1(� A$)
Ƞ�T%,C%,c%:�
Ȫ8C%=128:T%=0:ȕT%=0�C%<139:T%=�A$,�C%):C%=C%-(T%=0):�
ȴ0�T%>0:c%=��"�$         ",C%-127):�c%<0:c%=32
Ⱦ�T%<>0:�A$,T%,1)=�c%
���T%=0:�
��
����ppexpand(� A$)
���I%,T%,t%,T$
��-�I%=1�10:T%=0:�:T%=�A$,�(PDfrom%(I%)),T%)
�F�T%:A$=�A$,T%-1)+�PDclen%(I%),�(I%+127))+�A$,T%+1):T%+=PDclen%(I%)
�
�T%=0:�:�
�
�
��testlab
�"�I%:�grabpr
�,!�:��:��:�releasepr:�err(43)
�6șswi%,sd23_%�N%
�@3e%(file%,2)=�v_(15):e%(file%,0)=0:e%(file%,1)=1
�J0�I%=0�maxacr%-1:l1%(file%,I%)=1:�:labline%=0
�T�I%=1�ll%(file%,3)*2
�^�labline(1,�)
�h�:�releasepr:�
�r
�|��printone
Ɇ�I%:�grabpr
ɐ!�:��:��:�releasepr:�err(43)
ɚșswi%,sd23_%�N%
ɤ.e%(file%,2)=N%:e%(file%,0)=0:e%(file%,1)=1
ɮ0�I%=0�maxacr%-1:l1%(file%,I%)=1:�:labline%=0
ɸ�
���labline(2,�)
���e%(file%,2)=-1
���releasepr:�
��
��)��getpass:w_passw%=�crwind(tw_passw%)
��5�seti(w_passw%,0,"File "+�filename+", password:")
�B�seti(w_passw%,1,""):�seti(w_passw%,2,""):�seti(w_passw%,5,"")
��dialogue(w_passw%):�
�
�ݤwordout0(X%,f%,T$)
�&E� ;{n  Type 0 wordprocessor output. T$ is string to put (if any),
�0?� ;{n   X% is file handle to put to. f% indicates function:
�:-� ;{n        0 Write file header (if any)
�D/� ;{n        1 Write record header (if any)
�N.� ;{n        2 Write first field of record
�X:� ;{n        3 Write other field of record (not first)
�b*� ;{n        4 Write record terminator
�l<� ;{n        5 Write file terminator (do NOT close file)
�vA� ;{n   type 0 is ASCII as it is first in DATA statement - do
ʀD� ;{n   LISTIF(TSV)    to see others - *s may be replaced by any
ʊE� ;{n   new types and functions corresponding to this, added. The
ʔH� ;{n   value returned by the function is a dummy so doesn't matter.
ʞȎ f% �
ʨ8�0:�                      ASCII needs no file header
ʲ:�1:�                      ASCII needs no record header
ʼ*�2:�#X%,T$;:�          Put first field
��:�3:�#X%,�9+T$;:�    other fields preceeded by TAB sep.
��*�4:�#X%,"":�           line terminator
��<�5:�                      ASCII needs no file terminator
���
��=0
�
�#ݤwordout1(X%,f%,T$):� ;{n View
�Ȏ f% �
��1:�#X%,�128+"LE";
� �2:�#X%,""""+T$+"""";
�*�3:�#X%,","""+T$+"""";
�4�4:�#X%,""
�>�
�H=0
�R
�\(ݤwordout2(X%,f%,T$):� ;{n Interword
�fȎ f% �
�p*�2,3:�T$>""�#X%,T$+�13;:��#X%," "+�13;
�z�4:�#X%,13
˄�
ˎ=0
˘
ˢ'ݤwordout3(X%,f%,T$):� ;{n 1stWord+
ˬ0=�wordout5(X%,f%,T$):� ;{n same as pipedream
˶
�"ݤwordout4(X%,f%,T$):� ;{n CSV
��Ȏ f% �
���2:�#X%,""""+T$+"""";
���3:�#X%,","""+T$+"""";
���4:�#X%,""
���
�=0
�
�(ݤwordout5(X%,f%,T$):� ;{n PipeDream
�Ȏ f% �
�$ �2:�T$,","):T$=""""+T$+""""
�.�#X%,T$;
�8 �3:�T$,","):T$=""""+T$+""""
�B�#X%,","+T$;
�L�4:�#X%,""
�V�
�`=0
�j
�t"ݤwordout6(X%,f%,T$):� ;{n WW+
�~Ȏ f% �
̈*�2,3:�T$>""�#X%,T$+�13;:��#X%," "+�13;
̒�
̜=0
̦
̰"ݤwordout7(X%,f%,T$):� ;{n DIF
̺Ȏ f% �
���0
��/�#X%,"TABLE":�#X%,"0,1":�#X%,"""Mailshot"""
��2�#X%,"VECTORS":�#X%,"0,0000000000":�#X%,""""""
��1�#X%,"TUPLES":�#X%,"0,0000000000":�#X%,""""""
��&�#X%,"DATA":�#X%,"0,0":�#X%,""""""
�!�1:�#X%,"-1,0":�#X%,"""BOT"""
�-�2,3:�#X%,"1,0":�#X%,""""+T$+"""":vec%+=1
�
:�4:tuples%+=1:�vectors%<=0vectors%=vec%:vec%=0:�vec%=0
��5
�,�#X%=&1F:�#X%,�"000000000"+�vectors%,10)
�(+�#X%=&36:�#X%,�"000000000"+�tuples%,10)
�2�
�<=0
�F
�P+��pdriver:w_pdrive%=�crwind(tw_pdrive%)
�Z"�I%,L%,T$:�unselall(w_pdrive%)
�d��x`M:�I%=0�6:�T$,L%
�n.�seti(w_pdrive%,I%+7,�MakePable(�T$,L%)):�
�x�seli(w_pdrive%,pterm%+14)
͂!�pdriver%:�seli(w_pdrive%,17)
͌ �manual%:�seli(w_pdrive%,23)
͖�dialogue(w_pdrive%):�
͠�PDto$(1),PDclen%(1)
ͪ�PDto$(2),PDclen%(2)
ʹ�PDfont$(1),PDcpl%(1)
;�PDfont$(2),PDcpl%(2)
���PDfont$(3),PDcpl%(3)
���PDff$,0
���PDreset$,0
��
��4��newfn(� T$):�u(file$)<>"<WIMP$SCRAP>"T$=file$
��
�
���readparams:�I%,F%,T$
�@maxf%=3:maxacr%=4:maxcol%=29:avchar%=65:ctchar%=67:manual%=�
�"4stopboxes%=�:sound%=�:shadows%=�:tools%=�:pix%=�
�,5lab_drop%=66:lab_lead%=0:cachefill%=�:readonly%=�
�6>PDF$="":PDname$="Epson":PDreset$=�PConv("27,'@',27,'R',0")
�@3PDff$=�12:PDsep%=9:��XHO:�PDfont%:�I%=1�PDfont%
�J8�PDfname$(I%),A$,PDcpl%(I%):PDfont$(I%)=�PConv(A$):�
�T6�PDchar%:�I%=1�PDchar%:�PDfrom%(I%),A$,PDclen%(I%)
�^?PDto$(I%)=�PConv(A$):�:PDfix$="":PDPrintAuto=�:clearpass%=�
�hHsprsz%=0:dplen%=66:dpwid%=79:picpath$="<MultiStore$Dir>.^.Pictures."
�rFf_pd$="PDriver":f_la$="LabelSet":f_wp$="WordSet":f_rp$="ReportSet"
�|=f_np$="Notepad":f_mc$="Macro":f_rx$="Report":f_cd$="Card"
Ά!macs%=�:macu%=�:i_maxdead%=50
ΐF%=�(�dir+"Params")
Κ'�F%:ȕ��#F%:�readparam(�#F%):�:�#F%
Τ�sprsz%>50�
ή!� sprbuf% sprsz%,colours% 366
θ=!sprbuf%=sprsz%:sprbuf%!16=0:ș"OS_SpriteOp",&109,sprbuf%
���
��sprsz%=0
���
��?T$=�ArfVar("MultiStorePics$Path"):picpath$=�trans(picpath$)
��?�T$,picpath$)>0picpath$=T$:��T$>""picpath$=T$+","+picpath$
��7�"*Set MultiStorePics$Path "+picpath$:pix%=sprsz%>0
��
�D�3, Pica,"ESC,!,0",80,Elite,"ESC,!,1",96,Condensed,"ESC,!,4",136
��2
� �96,"27,'R',3,35,27,'R',0",1
�&
�36,"$",1
�0
�:��readparam(T$)
�DT$=�s1(T$):�T$=""��T$=�";"�
�N)�V$,T%,on,off:on=�:T%=�T$," "):�T%=0�
�X&V$=�T$,T%):T$=�T$,T%-1):V$=�s1(V$)
�bT%=�V$,";"):�T%V$=�V$,T%-1)
�l�:��:��:�
�vȎ�lower(T$)�
π�"shadow":shadows%=�V$
ϊ�"stopboxes":stopboxes%=�V$
ϔ�"sound":sound%=�V$
Ϟ�"tools":tools%=�V$
Ϩ4�"pmoney1":PDto$(1)=�PConv(V$):PDclen%(1)=Length
ϲ4�"pmoney2":PDto$(2)=�PConv(V$):PDclen%(2)=Length
ϼ4�"pfont1":PDfont$(1)=�PConv(V$):PDcpl%(1)=Length
��4�"pfont2":PDfont$(2)=�PConv(V$):PDcpl%(2)=Length
��4�"pfont3":PDfont$(3)=�PConv(V$):PDcpl%(3)=Length
��!�"preset":PDreset$=�PConv(V$)
��!�"pformfeed":PDff$=�PConv(V$)
���"fnprinter":f_pd$=V$
��"fnlabel":f_la$=V$
��"fnwordpro":f_wp$=V$
��"fnrepset":f_rp$=V$
��"fnnotepad":f_np$=V$
� �"fnmacro":f_mc$=V$
�*�"fnreport":f_rx$=V$
�4�"fncard":f_cd$=V$
�>�"clearpass":clearpass%=�V$
�H�"pagelen":dplen%=�V$
�R�"pagewid":dpwid%=�V$
�\�"pictures":sprsz%=�V$
�f�"labels":maxacr%=�V$
�p�"columns":maxcol%=�V$-1
�z�"files":maxf%=�V$-1
Є<�"average":avchar%=�V$:�avchar%<32�avchar%=127avchar%=65
Ў:�"count":ctchar%=�V$:�ctchar%<32�ctchar%=127ctchar%=67
И�"manual":manual%=�V$
Т�"picpath":picpath$=V$
Ь�"macroupp":macu%=�V$
ж�"macrospc":macs%=�V$
��"lablead":lab_lead%=�V$
���"labdrop":lab_drop%=�V$
���"fillcache":fillcache%=�V$
���"readonly":readonly%=�V$
���"nullcount":i_maxdead%=�V$
���:�
�
�!ݤs1(T$):ȕ�T$=32:T$=�T$,2):�
�ȕ�T$)=" ":T$=�T$):�:=T$
�
�$*��defaultrep:�r%(file%)<>5:�clearrep:�
�.:�stop(29,rl$+"create default","report layout",file%):�
�8
�B��clearrep
�LȎr%(file%)�
�V�1:sr$(file%)=""
�`�2:r$(file%)=""
�j=�3:�stop(30,rl$+"create default","label setup ?",file%):�
�tC�4:�stop(31,rl$+"clear Wordprocessor","Output setup ?",file%):�
�~6�5:�stop(33,rl$+"clear report","layout ?",file%):�
ш�:�makerep(file%):�
ђ
ќ6��swap7:�force(w%(file%,0)):�r%(file%)=0:�forcerep
Ѧșswi%,sd57_%,"bit7"�G%
Ѱ#G%=G%�1:șswi%,sd58_%,G%,"bit7"
Ѻșswi%,sd57_%,"bit7"�G%
��"�flg(f_7bit%,G%):șswi%,sd39_%
���
��
��ݤpwcode(T$):�T$="":=""
���A%,B%,I%:�I%=1��T$
�"�T$,I%,1)=�(��T$,I%)�(I%+173))
�	�:=T$
�

� ��rmargin:�T%,W%:W%=w_rset3%
�6T%=�$�ia(W%,7)-�$�ia(W%,12)-�$�ia(W%,16):�T%<0T%=0
�(�seti(W%,19,�T%):�
�2
�<��decodecol(T%)
�F/column%=T%:cexp$=c$(file%,T%,0):�cexp$="":�
�Pchdr$=c$(file%,T%,1)
�ZT%=c%(file%,T%)
�dcwid%=T%�255
�ncjus%=(T%>>8)�3
�xcfnt%=(T%>>10)�3
҂cupp%=(T%�(1<<12))<>0
Ҍcspc%=(T%�(1<<13))<>0
Җ%cdps%=(T%>>14)�7:�cdps%=7cdps%=-1
Ҡ#ctot%=((T%>>17)�3)�((T%>>23)�4)
Ҫcbk0%=(T%�(1<<19))<>0
Ҵccma%=(T%�(1<<20))<>0
Ҿcfrm%=(T%>>21)�7
��cdup%=(T%�(1<<24))<>0
���
��
����r_setcol(f%,I%)
��C�T$,g%,h%:h%=file%:�sdfile(menufile%):șswi%,sd17_%,9,f%,sd$�G%
�%T$=$sd%:șswi%,sd17_%,4,f%,sd$�G%
�%g%=G%:�h%<>file%T$+="\"+�filename
�,�c$(h%,I%,0)="@"+T$�c$(h%,I%,0)="#"+T$:�
�c$(h%,I%,1)=T$
�"�(g%�7)=7�
�,c$(h%,I%,0)="@"+T$
�6(c%(h%,I%)=%1000000011110010000000000
�@�
�Jc$(h%,I%,0)="#"+T$
�T5c%(h%,I%)=%1000110000000011000000010�((g%�7)<<14)
�^�
�hșswi%,sd17_%,1,f%,sd$�G%
�r9c%(h%,I%)=(((c%(h%,I%)�255)+G%)�255)�(c%(h%,I%)��255)
�|�sdfile(h%):�
ӆ
Ӑ��r_clear:�I%
Ӛ#�I%=0�maxcol%:�r_clearcol(I%):�
Ӥ�I%=0�7:p$(file%,I%)="":�
Ӯ�
Ӹ
����r_clearcol(I%)
��'c$(file%,I%,0)="":c$(file%,I%,1)=""
��+c%(file%,I%)=%1000000011110010000000000
���
��
��ݤdummyhdrs(B%)
�$q%="":�T%
�$I%=0:�:�decodecol(I%):�cexp$>""�
�T%=cwid%:�T%+�$q%<254�
�T$=chdr$:Ȏcjus%�
�&$�0:T$=�T$,T%):T$=T$+�T%-�T$," ")
�09�1:T$=�T$,T%):T$=�(T%-�T$)/2," ")+T$:T$+=�T%-�T$," ")
�:$�2:T$=�T$,T%):T$=�T%-�T$," ")+T$
�D�
�N�$q%>0:T$=" "+T$
�X�$q%+�T$<254:$q%+=T$
�b�
�l�
�v"I%+=1:�I%>maxcol%��$q%>B%:=$q%
Ԁ
Ԋݤdummydsh(B%,T$,t%)
Ԕ
�T%,I%,t$
Ԟ+$q%="":I%=0:�:�decodecol(I%):�cexp$>""�
ԨT%=cwid%:�$q%>"":T%+=1
Բ�T%+�$q%<255�
Լ�$q%>"":$q%+=" ":T%-=1
��&t$=" ":�t%�(ctot%>0�cdps%>=0)t$=T$
���$q%+T%<254:$q%+=�T%,t$)
���
���
��"I%+=1:�I%>maxcol%��$q%>B%:=$q%
�
�#ݤdummycols(L%,B%,t%):�T%,T$,I%
�+$q%="":I%=0:�:�decodecol(I%):�cexp$>""�
�T%=cwid%:�T%+�$q%<254�
� A�T%+�$q%+1<L%�(�t%�(ctot%=0�cdps%<0))T$=�T%," "):�T$=�dumform
�*�T$+�$q%<254:$q%+=T$
�4�$q%<254$q%+=" "
�>�
�H�
�R"I%+=1:�I%>maxcol%��$q%>B%:=$q%
�\
�fݤdumform:�T%,T$,F%
�p
�cdps%<0�
�z%T$=�"xX",1-cupp%,1):T$=�cwid%,T$)
Մ
�cwid%>2�
ՎȎcjus%�
՘�0:�T$)="�"
բ�1:�T$,�T$/2+1,1)="�"
լ�2:�T$)="�"
ն�
��
���
��1T$=�"999-+*99",cfrm%+1,1):�T$="9"�cbk0%T$="0"
��#T$=�cwid%,T$):T%=cdps%:F%=cfrm%
��*�T%>0�T%<cwid%�F%<>5:�T$,�T$-T%,1)="."
��Z�ccma%�T%>=0:T%=�T$-T%-4-(T%=0):ȕT%>1-2*(F%=1)-(F%=2�F%=7�F%=8):�T$,T%,1)=",":T%-=4:�
�(T%=F%:�T%=1:�T$>2:T$="("+�T$,3)+")"
��T%=2:�T$>1:T$=�T$,2)+"-"
��T%=6:�T$>1:T$="�"+�T$,2)
��T%=7:�T$>1:T$="$"+�T$,2)
�$�
�.=T$
�8
�Bݤtopline:�T$,A$
�L-A$=�p%(file%,2)," "):T$=�p$(file%,0),�A$)
�V�A$,(�A$-�T$)/2+1)=T$
�`#�flg(f_rtpn%):�A$)=" Page ###"
�j!�flg(f_rpdt%):�A$)=date$+" "
�t=A$
�~
ֈ#��edcol:w_col%=�crwind(tw_col%)
֒+�T%:menucol%=column%:T%=cdps%:�T%<0T%=0
֜7$�ta(w_col%)="Report Column "+�"00"+�(column%+1),3)
֦1�seti(w_col%,22,cexp$):�seti(w_col%,24,chdr$)
ְ-�seti(w_col%,10,�cwid%):�unselall(w_col%)
ֺ3�cjus%>1�seli(w_col%,2):��seli(w_col%,cjus%+31)
��0�seli(w_col%,cfnt%+5):�seli(w_col%,33+cfrm%)
���cupp%�seli(w_col%,5)
���cspc%�seli(w_col%,9)
���cbk0%�seli(w_col%,3)
���ccma%�seli(w_col%,4)
��cdup%�seli(w_col%,47)
�.�cdps%<0�seli(w_col%,25):��seli(w_col%,27)
�
�ctot%�1:�seli(w_col%,28)
��ctot%�2:�seli(w_col%,29)
��ctot%�4:�seli(w_col%,21)
�(,�seti(w_col%,19,�T%):�dialogue(w_col%):�
�2
�<��addcolumn:�I%:cexp$=""
�F6I%=maxcol%:ȕI%>=0�cexp$="":�decodecol(I%):I%-=1:�
�P�I%>maxcol%-2�err(53)
�Z�decodecol(I%+2):�
�d
�n��mousecol:�X%,I%
�x$X%=(mx%-bx%-margin%)�16+1:I%=0:�
ׂ#�decodecol(I%):�cexp$=""cwid%=0
׌$X%-=(cwid%-(cwid%>0)):�X%>0I%+=1
ז+�X%<0�I%>maxcol%:�I%>maxcol%:column%=-1
נ�
ת
״/��inscol(I%):�J%:�addcolumn:menufile%=file%
׾7�J%=column%�I%+1�-1:c$(file%,J%,0)=c$(file%,J%-1,0)
��Ac$(file%,J%,1)=c$(file%,J%-1,1):c%(file%,J%)=c%(file%,J%-1):�
��.�r_setcol(1,I%):�decodecol(I%):�forcerep:�
��
����delcol(I%):�J%
��4�J%=I%�maxcol%-1:c$(file%,J%,0)=c$(file%,J%+1,0)
�Ac$(file%,J%,1)=c$(file%,J%+1,1):c%(file%,J%)=c%(file%,J%+1):�
�$�r_clearcol(maxcol%):�forcerep:�
�
���pix:�pix%�
�"笤isfield("Pic"):�
�,0�I%,T$:�I%=0�9:T$="Pic"+�(I%):�isfield(T$)�
�69�fieldsz1(G%):tx0%+=bx%:tx1%+=bx%:ty0%+=by%:ty1%+=by%
�@șswi%,gfield_%,T$
�J�plotspr($sd%)
�T�
�^�:�
�h
�r��plotspr(T$)
�|,笤inbox(tx0%,ty0%,tx1%-tx0%,ty1%-ty0%)�
؆�T%,A%,B%,W%,H%,P%,s%
ؐ�:��:�-3:��:�err(54):��
ؚ<*RMensure ColourTrans 0.51 RMload System:Modules.Colours
ؤT$=�loadspr(T$)
خ�tx1%-tx0%>40�ty1%-ty0%>40�
ظ4�gcol(0,8):ȓȐtx0%,ty0%,tx1%-tx0%-1,ty1%-ty0%-1
��6�gcol(0,9):ȓtx0%+4,ty0%+4,tx1%-tx0%-9,ty1%-ty0%-9
��-ȓtx0%+6,ty0%+6,tx1%-tx0%-13,ty1%-ty0%-13
��&tx0%+=13:ty0%+=13:tx1%-=10:ty1%-=8
���
���T$="":�
��(ș"OS_SpriteOp",&118,sprbuf%,T$�,,s%
�%ș"OS_ReadModeVariable",�,4 �,,A%
�%ș"OS_ReadModeVariable",�,5 �,,B%
�@ș"OS_SpriteOp",&128,sprbuf%,T$�,,,W%,H%:W%=W%<<A%:H%=H%<<B%
��s%!32=&2C�
�&P%=0
�0�
�:;�T%=0�15:!(colours%+300+T%*4)=!(s%+44+T%*8)�&FFFFFF00:�
�DP%=colours%+300
�N�
�X1colours%!260=tx1%-tx0%:colours%!264=ty1%-ty0%
�b#colours%!268=W%:colours%!272=H%
�l7ș"ColourTrans_SelectTable",s%!40,P%,-1,-1,colours%
�vEș"OS_SpriteOp",&134,sprbuf%,T$,tx0%,ty0%,8,colours%+260,colours%
ـ�
ي
ٔݤloadspr(T$):�A$
ٞ�
٨��:=""
ٲ!T$=�su(T$):T%=�T$,"{"):�T%>0�
ټA%=�T$,"}",T%):�A%=0A%=�T$
��T$=�T$,T%-1)+�T$,A%+1)
���
���T$="":=""
���T$)="@"T$=�T$,2)
��T%=�T$,","):�T%�
�'A$=�su(�T$,T%+1)):T$=�su(�T$,T%-1))
�&�A$,":")=0A$="MultiStorePics:"+A$
�<�A$<>lastspr$ș"OS_SpriteOp",&10A,sprbuf%,A$:lastspr$=A$
��
� 'ș"OS_SpriteOp",&128,sprbuf%,T$:=T$
�*
�4,ݤpicfield(T%):șswi%,sd17_%,9,T%,sd$�G%
�>șswi%,upper_%
�H%=�$sd%,3)="PIC"�sd%?3>47�sd%?3<58
�R
�\#ݤreadonly:șswi%,sd13_%,&E6�G%
�f=(G%�32)<>0
�p
�z)ݤnindices:șswi%,sd57_%,"indices"�G%
ڄ=G%
ڎ
ژ)ݤisfield(T$):șswi%,sd67_%,T$,sd$�G%
ڢ	=G%>0
ڬ
ڶ��fielddrc:�T%,X%,Y%,f%,T$
�-f%=file%:T%=�mousef:�f%<>menufile%�T%=0:�
���f%<>menufile%�
��-�sdfile(menufile%):T$=�gfield(menufield%)
��-�sdfile(f%):笤deadfile(-1)�pfield(T%,T$)
���
���
�@�T%<>0�T%<>menufield%T$=�gfield(menufield%):�pfield(T%,T$):�
�CX%=mx%-tx0%+8:Y%=my%-ty0%:�fieldsz(menufield%):Y%+=ty1%-ty0%-16
�+�cxconv(X%):�cyconv(Y%):tx0%=X%:ty0%=Y%
��T%<>0�
�$%șswi%,sd17_%,2,menufield%,sd$�G%
�.+T%=G%:șswi%,sd17_%,3,menufield%,sd$�G%
�8�G%=ty0%�T%=tx0%:�
�B�
�LB�stop(32,"Field "+�fname(menufield%),rl$+"move field ?",file%)
�V�
�`
�j%��upplit(� A$):�Q%,I%,C%:�A$="":�
�t&�I%=1��A$:C%=��A$,I%):�C%=34Q%=�Q%
�~&�Q%�C%>96�C%<123�A$,I%,1)=�(C%-32)
ۈ�:�
ے
ۜ��newnotes
ۦ%�zfound:�newfilt:�newlink:�newrep
۰$�validrec:�validlink:�forcerep:�
ۺ
����newfilt:�l%(file%)>0�
���:��:��:�nofilt:�
��5�T$:T$=�x1(f$(file%)):fx$(file%)=T$:�showfilter:�
��
����newlink:�l%(file%)<=0�
��:��:��:�unlink:�
�lx$(file%)=�x4(l$(file%):�
�

���newrep:�w%(file%,3)<=0:�
�$�:��:��:�closew(w%(file%,3)):�
�(�makerep(file%):�
�2
�<��tonedial(A$):�A$="":�
�F1Ƞ2:ȡ1,"WaveSynth-Beep":ȡ2,"WaveSynth-Beep"
�P3�I%:�I%=1��A$:�tone(�"0123456789*#",�A$,I%,1)))
�Z�delay(6):�:�
�d
�n!��tone(I%):I%-=1:�I%<0�I%>11�
�x3� 1,-15,tone%(I%,0),100:� 2,-15,tone%(I%,1),100
܂$�delay(10):� 1,0,0,0:� 2,0,0,0:�
܌
ܖ$��delay(I%):�T%:T%=�:���>T%+I%:�
ܠ)�I%=0�9:�J%=0�1:�~tone%(I%,J%);:�:�:�
ܪ
ܴݤcolv(T$)
ܾ�s%,t,t%,T%
���:��:��:@%=&90A:�err(52)
��
�cdps%<0�
��colval=0:�flg(f_rtsu%):=""
��$sd%=�ev2(T$,cspc%,cupp%)
���cspc%:șswi%,strip_%
��cupp%:șswi%,upper_%
��
�$t=�ev(T$,cspc%,cupp%):s%=�t:t=�t
��cbk0%�s%=0�
�"$sd%="":colval=0
�,�
�6:@%=&1020019+(cdps%<<8):$sd%=�t:colval=�$sd%*s%:@%=&90A
�@�flg(f_rtsu%):=$sd%
�J��$sd%)="."$sd%=" "+�$sd%)
�TȎcfrm%�
�^�0:�s%<0$sd%="-"+$sd%
�h1�1:�s%<0$sd%="("+$sd%+")":��cjus%<>1$sd%+=" "
�r)�2:�s%<0$sd%+="-":��cjus%<>1$sd%+=" "
�|�3:�s%<0$sd%=""
݆�4:�s%>0$sd%=""
ݐ.�5:T%=�$sd%*-(s%>0)/10^cdps%:�T%>254T%=254
ݚ5$sd%=�T%,"*"):�$sd%>cwid%$sd%=�$sd%,cwid%-1)+"+"
ݤ'�6:$sd%="`"+$sd%:�s%<0$sd%="-"+$sd%
ݮ'�7:$sd%="$"+$sd%:�s%<0$sd%="-"+$sd%
ݸ�
���ccma%�
��3t%=0:ȕ(sd%?t%<48�sd%?t%>57)�sd%?t%<>13:t%+=1:�
��!T%=�$sd%,"."):�T%=0T%=�$sd%+1
��T%-=3:ȕT%>t%+1��$sd%<cwid%
��($sd%=�$sd%,T%-1)+","+�$sd%,T%):T%-=3
���
��
��
��
�($sd%=�strjus($sd%,cwid%,cjus%):=$sd%
�&
�0��checkrep
�:1�I%:�I%=0�maxf%:�a%(I%)=10:�r%(I%)=5:�err(55)
�D�:�
�N
�X��cols:�sdfile(rmf%)
�b�I%,J%,T$,w
�l"I%=0:w=rpwid%:�outrep%=2:w=131
�v�
ހ�c$(file%,I%,0)>""�
ފ �decodecol(I%):T$=�x7(cexp$)
ޔ4�prl%<>2:cv$(I%,0)=�rblnk:�cv$(I%,0)=�cv$(I%,0))
ޞ�rbm(�u(T$))�
ިcv$(I%,0)=�colv(T$)
޲ �cdup%�cv$(I%,0)=cv$(I%,1)�
޼cv$(I%,0)=�rblnk
���
��1cv$(I%,1)=cv$(I%,0):�J%=0�3:ct(I%,J%)+=colval
��(�cv$(I%,0)<>�cwid%," ")ct%(I%,J%)+=1
���
���
��
�6�:T%=�prlen(cv$(I%,0)):�T%>w:cv$(I%,0)=�cv$(I%,0))
�
�T%<=w
��w>=T%+1:cv$(I%,0)+=" "
� w-=�prlen(cv$(I%,0))
�*�
�4cv$(I%,0)=""
�>�
�HI%+=1:�I%>maxcol%�w<1
�R�
�\
�f
ݤrbm(T$)
�p%�I%,t$:�I%=0�maxf%:�rbm%�(1<<I%)�
�z
�I%=rmf%�
߄�T$,"\")=0:=�
ߎ�
ߘ)t$="\"+�u(�ofilename(I%)):�T$,t$):=�
ߢ�
߬�
߶�:=�
�
��ݤprlen(T$):�T%:T%=�T$
��ݤprlen1(T%)
��/�pdriver%:=T%:�=T%*PDcpl%(1)/PDcpl%(cfnt%)
��
��ݤrblnk=�cwid%," ")
�
� ��preview:outrep%=2:�initrep
��:��:��:�preverr:�
�8ș"Wimp_CommandWindow",1:�normpoint:mode%=�:*fx229,1
�$ rphei%=30:rpwid%=p%(file%,2)
�.7�16:�19,9,16,0,0,&30,19,10,16,&A0,&A0,0:�:�prlinest
�8�:�0=27:�err(56)
�B
���prline
�L*fx229,1
�V�sd03("Press a key... ")
�`*�19,31);:�waitkey:�endoscli:�endact:�
�j
�tݤprline:�T%,n%
�~rbm%=-1:Ȏprl%�
�?�0:�sdfile(rmf%):�sdnext:�sdfile(rmf%):T%=��badrec(�v_(15))
��1:rbm%=0:T%=�prl1
�/�2:�sdfile(rmf%):n%=�v_(15):rbm%=0:T%=�prl1
��
�#�sdfile(rmf%):�T%:�prfinish:=�
�6T%=1-�flg(f_rdsp%):�prl%=2�tlines%<>0T%=T%*tlines%
���endpage(T%):�prsubs(�)
��
�prl%<>2�
��*�cols:笤flg(f_rtsu%):�prdsp:�propcols
���
��	�cols
�1笤flg(f_rtsu%)�rpr1%�prdsp:�prtot(3):�rpr%=�
��
�
=�
�
�ݤprl1:�T%:�sdfile(rlf%)
�(Ȏrpc%�
�2�0
�<T%=�nxlnk:�T%>=0�
�F�getlink(T%,0)�
�P6rbm%=rbm%�((1<<rlf%)��rpr%):rsp%+=1:rs%(rsp%)=rlf%
�Zrlf%=file%:rll%=-1:rpr%=�
�d�
�n�sdfile(rlf%):rll%=T%
�x�
�
=�prl1
��
�0rbm%=rbm%�(1<<rlf%):rpc%=1-rpr%:rpr1%=rpc%=1
��prl%=2�rpr1%�rmf%<>rlf%�
��sdfile(rlf%):T%=�v_(14)
�#�getlink(rlf%,�v_(14)):rpr1%=�
�'�sdfile(rlf%):șswi%,locate_%,T%�D%
���
��
=�prl1
��+�1:rbm%=rbm%�(1<<rlf%):rpc%=2:rpr%=�:=�
���2
��rpr1%=�:�rlf%=rmf%�
� �rpr%:rpc%=1:rpr1%=�:=�prl1
�>�sdnext:rll%=-1:rpc%=0:rpr%=�:�badrec(�v_(15)):=�:�=�prl1
��
�7�getlink(rlf%,�v_(14))rpc%=0:rpr%=�:rll%=-1:=�prl1
�")rbm%=rbm%��(1<<rlf%):rll%=rlf%:rpr%=�
�,7�sdfile(rs%(rsp%)):rsp%-=1:rlf%=file%:rpc%=0:=�prl1
�6�
�@�:=�
�J
�Tݤgetlink(rlf%,T%):�T$
�^�
�h)��:��:�sdfile(rlf%):�unlink:�err(37)
�r;�sdfile(l%(rlf%)-1):T$=�ev(lx$(rlf%),�,�):�sdfile(rlf%)
�|+G%=0:�T$>"":�dup1(lk$(file%)+"="+T$,T%)
�"T%=G%:�G%=0:șswi%,first_%�,N%
��sd35:=T%<>0
�
�ݤnxlnk:�T%:T%=rll%
�3�:T%+=1:�T%<=maxf%:�l%(T%)-1=file%:�rl%(T%):=T%
��T%>maxf%:=-1
��
����preverr:*fx229,1
���buzz2:$sd%=�$
��!笤prod:$sd%=$sd%+" ("+Þ+")"
��-$sd%=$sd%+" [Press any key] ":�sd03($sd%)
��/�$sd%+4,31);:�waitkey:�endoscli:�endact:�
�
�ݤprwidth:�w,I%
�>�I%=0�maxcol%:�decodecol(I%):�cexp$>"":w+=�prlen1(cwid%+1)
��:=�w+(�w>0)
�&
�0��prdsp:笤flg(f_rdsp%):�
�::�pline%<rphei%-2�(p%(file%,4)=0�outrep%<>2):�prnewline
�D�
�N
�X��propcols:�T$,I%
�b-�I%=0�maxcol%:�decodecol(I%):T$=cv$(I%,0)
�l8�cexp$>""�prsetfont(cfnt%):�ppexpand(T$):�prpstr(T$)
�v�:�prnewline:�
�
�0��prnewline:�T%:T%=80:�pdriver%:T%=PDcpl%(1)
�Ȏoutrep%�
�
�0:�pnewl
�
�1:�dnewl
��2:�
��
��pline%+=1:�prlinest
���
��
����prlinest
��/�T%:T%=80:�pdriver%:�prfnt%>=0:T%=PDcpl%(1)
�$�outrep%=2:�text_newl(rpwid%,T%)
�7�prsetfont(1):�outrep%<>2�prpstr(�p%(file%,1)," "))
��
�
� #��prsetfont(T%):�pdriver%:T%=1
�*8�prfnt%<>T%�outrep%<>2�pdriver%:�prpstr(PDfont$(T%))
�4prfnt%=T%:�
�>
�H��prpstr(T$)
�R4�T%:T%=80:�pdriver%:�prfnt%>=0:T%=PDcpl%(prfnt%)
�\Ȏoutrep%�
�f�0:�pproc(T$):�pprint1(T$)
�p�1:�dprint1(T$)
�z$�2:�ppspc1(T$):�text_pstr(T$,T%)
��
��
�
�*��prpline(T$):�prpstr(T$):�prnewline:�
�
���endpage(T%):T%+=2
�,�p%(file%,4)=0:�outrep%<>2:�prpagehead:�
��7�pline%>rphei%-T%+1:�pdriver%:�prfooter:�preject(�)
���prpagehead:�
��
����prfooter
��&�W%,T%:W%=prw%:�W%>rpwid%W%=rpwid%
��prdash(�,"-")
�/�p%(file%,3)>0:ȕpline%<rphei%:�prnewline:�
�Q$sd%="":�flg(f_rbpn%):$sd%=�"Page "+�ppage%,W%):$sd%=�(W%-�$sd%)/2," ")+$sd%
��prpstr($sd%)
�$ T%=80:�pdriver%:T%=PDcpl%(1)
�.Ȏoutrep%�
�8
�0:�pnewl
�B
�1:�dnewl
�L�2:�
�V�
�`pline%+=1:�
�j
�t��preject(T%)
�~=�outrep%<>2�p%(file%,4)=0��pdriver%:�prnewline:pline%=1:�
�"�outrep%<>2�PDff$>""�pdriver%�
�pline%=0
�'�outrep%=1�pdriver%�prpstr(PDff$):�
�8�outrep%=0�pdriver%�ppage(T%):��pdriver%:�prnewline
��
��
��;�outrep%<>2ȕpline%<p%(file%,4):�prnewline:�:pline%=0:�
���sd03("Press a key... ")
��&�19,31);:�waitkey:�G%=27:�err(56)
���:pline%=0:�:�prlinest:�
��
���prpagehead:�pline%<>0:�
��T$,T%,C%,I%,w
�
2fline%=-9999:ppage%+=1:�prsetfont(1):�prlinest
�4�:$sd%=�prheader(pline%):�prpline($sd%):�$sd%=""
� �C%=0�maxcol%:cv$(C%,0)="":�
�(w=rpwid%:�outrep%=2:w=131
�2
C%=0:�
�<�decodecol(C%):�cexp$>""�
�F!T$=�strjus(chdr$,cwid%,cjus%)
�P!�:T%=�prlen(T$):�T%>w:T$=�T$)
�Z�T%<=w:�w>=T%+1:T$+=" "
�dw-=�prlen(T$):cv$(C%,0)=T$
�n�
�xC%+=1:�C%>maxcol%�w<1
��propcols:�prdash(�,"-"):�
�
�$��prdash(f%,t$):�pline%=fline%:�
�)�T%,C%,c%,w:w=rpwid%:�outrep%=2:w=131
� �C%=0�maxcol%:cv$(C%,0)="":�
�
C%=0:�
��decodecol(C%):�cexp$>""�
��*�f%�(ctot%<>0�cdps%<>-1):c%=�t$:�c%=32
��T$=�cwid%,�c%)
��!�:T%=�prlen(T$):�T%>w:T$=�T$)
���T%<=w:�w>=T%+1:T$+=" "
��w-=�prlen(T$):cv$(C%,0)=T$
��
�C%+=1:�C%>maxcol%�w<1
��propcols:fline%=pline%:�
�
�"ݤprheader(L%)
�,#�W%:W%=prw%:�W%>rpwid%W%=rpwid%
�6�W%<1�L%>3:=""
�@
�T$,T%,s$
�J&s$=�p$(file%,L%),W%):�ppexpand(s$)
�T+s$=�(W%-�s$)/2," ")+s$:s$+=�W%-�s$," ")
�^
�L%=0�
�h0�flg(f_rpdt%):T$=date$:s$=T$+" "+�s$,�T$+2)
�r-�flg(f_rtpn%):�s$<10:s$="          "+s$
�|.�flg(f_rtpn%):T$=" Page "+�ppage%:�s$)=T$
��
�"$sd%=s$:�strip1:�$sd%=""�L%<3�
�$�L%=L%+1�3:�p$(file%,L%)>"":=" "
��
��:=�$sd%,W%)
�
��ݤstrjus(T$,W%,J%)
���J%=2T$=�T$,W%)�T$=�T$,W%)
���J%=1T$=�(W%-�T$)/2," ")+T$
���J%<2T$+=�W%-�T$," ")
��=�W%-�T$," ")+T$
��
���prfinish
��prsubs(�):�prgtot
�4�prfooter:�flg(f_reja%):�outrep%<>2:�preject(�)
��sdfile(rmf%):�
�&
�0��prsubs(e%):�I%
�:_�e%:subval$=�prsubval(p$(file%,4)):ssubval$=�prssubval(p$(file%,6)):�ssubval$="":subval$=""
�DD�lsubval$=" "�lssubval$=" "lssubval$=ssubval$:lsubval$=subval$:�
�N)�ssubval$=lssubval$�lsubval$=subval$�
�X'�endpage(3+tlines%+(pline%=fline%))
�b�totals%<>0:�prdash(�,"-")
�l;�(ssubval$<>lssubval$�(ssubval$>""�subval$<>lsubval$))�
�vS�p$(file%,7)>""��flg(f_rtsu%):�prpline(�p$(file%,7)+" ("+lssubval$+")",rpwid%))
�$�prtot(2):�prdash(totals%=0,"-")
��
��subval$<>lsubval$�
�<�endpage(4+(pline%=fline%)+(p$(file%,5)="")+(totals%=0))
�R�p$(file%,5)>""��flg(f_rtsu%):�prpline(�p$(file%,5)+" ("+lsubval$+")",rpwid%))
�$�prtot(1):�prdash(totals%=0,"=")
�7�e%:�flg(f_rtpg%)�prfooter:�preject(�):�prpagehead
���
��'lsubval$=subval$:lssubval$=ssubval$
���
��
����prgtot:�totals%=0�I%<>3:�
�'�endpage(3+tlines%+(pline%=fline%))
�:�prdash(�,"="):�prpline(�"** GRAND TOTALS **",rpwid%))
��prtot(0):�prdash(�,"="):�
�
� ��prtot(I%)
�*�totals%=0�I%<>3:�
�48�A%,T%,C%,w,f%,J%,K%:f%=�flg(f_rtsu%):�flg0(f_rtsu%)
�>�J%=0�2
�H-�I%<3�A%�C%=0�maxcol%:cv$(C%,0)="":�:C%=0
�R$�(ttot%�(2^J%))�(I%=3�J%=2��A%)�
�\w=rpwid%:�outrep%=2:w=131
�f�
�p0�decodecol(C%):�cexp$>""�(I%<3��cexp$,"\"))�
�zK%=(2^J%)�ctot%�(cdps%<>-1)
�	ȎK%�
�,�0:�I%<3�A%$sd%=�rblnk:�$sd%=�cv$(C%,0))
��1:$sd%=�colv(�ct(C%,I%))
�E�2:�ct%(C%,I%)>0:$sd%=�colv(�(ct(C%,I%)/ct%(C%,I%))):�$sd%=�rblnk
��4:$sd%=�colv(�ct%(C%,I%))
��
�/�I%=3:�ctot%<>0�cdps%<>-1:�K%=0:$sd%=�rblnk
��'�:T%=�prlen($sd%):�T%>w:$sd%=�$sd%)
���T%<=w:�w>=T%+1�
��
Ȏ � �
��+� K%=2�$sd%<>ĩ$sd%," "):$sd%+=�avchar%
��+� K%=4�$sd%<>ĩ$sd%," "):$sd%+=�ctchar%
�$sd%+=" "
��
��
�"cv$(C%,0)=$sd%:w-=�prlen($sd%)
�$�
�.	C%+=1
�8�C%>maxcol%�w<1
�B�propcols:A%=�
�L�
�V�
�`,�C%=0�maxcol%:ct%(C%,I%)=0:ct(C%,I%)=0:�
�j�flg(f_rtsu%,f%):�
�t
�~ݤprsubval(T$):�T$="":=""
��:��:��:�err(57)
�=�ev2(T$,�,�)
�
�ݤprssubval(T$):�T$="":=""
��:��:��:�err(58)
�=�ev2(T$,�,�)
��
����create:�T%,B%,T$
���v_(1)>0�
��C�stop(39,"Entering Create mode will","close all open files",-1)
���
��
��:��:��:�err(60)
�
-T$=�dir+"MSCreate":T%=�(T$):�T%=0�err(59)
�B%=�#T%:�#T%:�writeflags:��
�'��error(�,�$,�,�):�report:�quit(�)
�(1�delw(w_stop%):�delw(w_save%):�delw(w_pinfo%)
�2%�delw(w_pinfo2%):�delw(w_shadow%)
�<)�normpoint:*Set MultiStore$Function 1
�F+�novars:�i_close:Z%=taskhandle%:�(T$):�
�P
�Z��transfer:�T%,B%,T$,A$
�d�:��:��:�err(62)
�n/T$=�dir+"MSTransfer":T%=�(T$):�T%=0�err(59)
�xB%=�#T%:�#T%:��
�A$="":T%=0:�
��w%(T%,0)>0�
�-�A$=""A$=fn$(T%)�A$+=","+fn$(T%):T%=maxf%
��
�&T%+=1:�T%>maxf%:�CLOSE:�writeflags
�'��error(�,�$,�,�):�report:�quit(�)
�1�delw(w_stop%):�delw(w_save%):�delw(w_pinfo%)
��%�delw(w_pinfo2%):�delw(w_shadow%)
��0�normpoint:�"*Set MultiStore$Function 1:"+A$
��+�novars:�i_close:Z%=taskhandle%:�(T$):�
��
����fastsort:�T%,B%,T$,A$
��:��:��:�err(62)
�/T$=�dir+"MSFastSort":T%=�(T$):�T%=0�err(59)
�B%=�#T%:�#T%:��
�A$="":T%=0:�
�"�w%(T%,0)>0�
�,�A$=""A$=fn$(T%):T%=maxf%
�6�
�@&T%+=1:�T%>maxf%:�CLOSE:�writeflags
�J'��error(�,�$,�,�):�report:�quit(�)
�T1�delw(w_stop%):�delw(w_save%):�delw(w_pinfo%)
�^%�delw(w_pinfo2%):�delw(w_shadow%)
�h0�normpoint:�"*Set MultiStore$Function 1:"+A$
�r+�novars:�i_close:Z%=taskhandle%:�(T$):�
�|
���checkconv(T$):�T%,B%
��:��:��:�#T%:�
� file$=T$:T%=�(file$):�T%=0:�
�#B%=�#T%:�B%<>234�B%<>235:�#T%:�
�B%=�#T%+�#T%+�#T%+�#T%:�#T%
���
�� �B%=0B%=ft_form%�B%=ft_data%
��Jmenufield%=B%:�stop(36,"Wrong file type","Convert to MultiStore ?",-1)
���
��
��.��selindex(I%,f%):�T$,T%:T$="A":�f%:T$="D"
��șswi%,istat_%,-1�G%,T%
�1�(T%=I%�(G%�32)=((f%<>0)�32))�(T%<=0�I%<=0):�
�
�I%>0�
�șswi%,order_%,I%,T$�N%
��
�&șswi%,order_%�N%
�0�
�:(�showindex:�validrec:�chkmv:�graph:�
�D
�N#��clrmv:șswi%,sd58_%,0,"moved"
�X�
�b
�l(��chkmv:�N%:șswi%,sd57_%,"moved"�G%
�v�G%=0:�
�'�w%(file%,3)>0�r%(file%)<3�forcerep
��clrmv:�
�
���chkmv1(T%,U%):�T%=U%:�
� �N%:șswi%,sd57_%,"moved"�G%
��G%=0:�
�3�w%(file%,3)>0�r%(file%)<3�forcecardsrep(T%,U%)
���clrmv:�shownum:�
��
��ݤfirstspr(A$):�X%,I%,T%,T$
���:��:="?"
��X%=�(A$):�X%=0:="?"
���:��:�#X%:="?"
�2T%=0:�I%=0�3:T%=T%�(�#X%<<(I%*8)):�:�T%<1:="?"
�2T%=0:�I%=0�3:T%=T%�(�#X%<<(I%*8)):�:�T%<1:="?"
�;�#X%=T%:I%=0:T$="":�:T%=�#X%:I%+=1:�T%>31T$+=�T%:�I%=99
� �I%>11:�#X%:=T$
�*
�4��loadspr(A$):�T%,T$
�>T%=�mousef:�T%<=0�
�Hșswi%,sd67_%,"Pic"�G%
�R	T%=G%
�\�
�f�T%<=0�err(64)
�pT$=�u(�fname(T%))
�z,�T$,3)<>"PIC"��T$)<"0"��T$)>"9"�err(64)
�-�pfield(T%,�firstspr(A$)+","+�leaf(A$)):�
�
�ݤtrans(A$):�T%,A%:A%=�+100
�0ș"OS_GSTrans",A$,A%,255 �,,T%:T%?A%=13:=$A%
�
�*��markidx(G%):�w%(file%,5)<=0�G%=lix%�
��G%>0�updidx1(G%)
���lix%>0�updidx1(lix%)
���
��
����updidx1(T%)
��4!q%=w%(file%,5):q%!4=0:q%!8=-margin%-T%*linegap%
�0q%!12=1E9:q%!16=q%!8+linegap%+4:�redraw(�):�
�
�ݤcuridx:�T%
�șswi%,istat_%,-1�G%,T%
�$=T%
�.
�8ݤaddfield(T$,T%)
�B(�C%,t$,A$:t$=T$:ȕ�t$)=" ":t$=�t$):�
�L�t$="":=�fname1(T%)
�V%��t$)="@"��t$)="#":=t$+�fname(T%)
�`!C%=�:�+1:�:�A$:C%=�t$,�A$)=A$
�j�C%�A$="****":�C%T$+="+"
�t �T$,"@"):=T$+"@"+�fname(T%)
�~ �T$,"#"):=T$+"#"+�fname(T%)
�=T$+�fname1(T%)
�,�+,-,*,/,AND,OR,NOT,>,<,=,(,",",":",****
�
���waitkey:�A%,B%,C%
�!�:ȗB%,B%,C%:�C%=0A%+=1:�A%=0
���0<0�C%=0�A%>20
��#�:ȗA%,B%,C%:G%=�0:�G%>=0�C%<>0
���
��
��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%)
�*unset MultiStore$Flags
�
�
�
���writeflags:�T$
�(JT$=�flgstr(sound%)+�flgstr(stopboxes%)+�flgstr(shadows%)+�flgstr(pix%)
�2"�"*Set MultiStore$Flags "+T$:�
�<
�Fݤflgstr(T%):�T%:="*":�="-"
�P
�Z��strflg(T$,� T%)
�d�T$="*":T%=�:��T$="-"T%=�
�n�
�x
�'��csize:w_csize%=�crwind(tw_csize%)
�șswi%,sd57_%,"Width"�G%
��seti(w_csize%,61,�G%)
�șswi%,sd57_%,"Height"�G%
��seti(w_csize%,57,�G%)
��dialogue(w_csize%):�
�
����novars
���
��
��%��importasc:�X%:X%=�file$:�X%=0:�
��!�:��:��:�endimport:�err(65)
�
*fx229
��selsub(0):�nofilt:�readasc
���endimport
�*fx229,1
�"3�selsub(0):�nofilt:�validrec:�graph:�forcerep:�
�,
�6&��readasc:�T%,f%,I%,Q%,L%,A%,B%,f$
�@�:��:��:�#X%:X%=0:�err(0)
�J"I%=�:f%=1:T%=�:Q%=�:L%=-1:A%=�
�T.�:�:B%=�abget:�sep%:f%+=1:�B%=10:f%=1:A%=�
�^�(B%>32�B%<127��sep%)��#X%
�h��#X%�
�rf$=�B%:�:B%=�abget
�|'�B%>31�B%<127��sep%��f$<255:f$+=�B%
��sep%:�I%�B%<>10�f%<>1�
�1�T%:�f$>1:�f$=34:��f$)=34:f$=�f$,2,�f$-2)
��A%:A%=�:șswi%,add_%�N%
�*$sd%=f$:�f%<=�v_(7):șswi%,pfield_%,f%
��
�I%=�:f%+=1:�B%=10:f%=1:A%=�
���
����#X%��0=27:�#X%:X%=0:�
��
��ݤabget:�B%
��;��#X%B%=10:�:�:B%=�#X%:�B%=13:B%=10:�B%<>10�B%<>L%��#X%
��%�B%=10:L%=B%:�L%=-1:�B%=34:Q%=�Q%
��B%=9:T%=�
�'sep%=B%=9�B%=10�(B%=44��T%��Q%):=B%
�
���picpath:�T$:�file$>230:�
�&;T$=�ArfVar("MultiStorePics$Path"):秤u(T$),�u(file$)):�
�0file$+=".":ȕ�T$+�file$>229
�:%�:T$=�T$):��T$)=","�T$="":T$=�T$)
�D�:�T$>"":file$+=","
�N(�"Set MultiStorePics$Path "+file$+T$
�X+�I%=0�maxf%:�w%(I%,0)>0�force(w%(I%,0))
�b�:�
�l
�v$ݤstatstr:�T$,A%:A%=st%(file%,1)
�AT$=""""+�filename+""","+�st%(file%,0)+","+�A%+","""+�filename
�JT$+=" has been opened "+�number(st%(file%,0))+" times for a total of "
�;T$+=�(A%�3600)+"h "+�((A%�3600)�60)+"m "+�(A%�60)+"s"""
�=T$
�
�ݤevaluation:șswi%,sd55_%
�șswi%,upper_%
��=�$sd%,"EVALUATION")<>0
��
����writecomm(h%)
���A$:A$="":T%=0:�
��)�w%(T%,0)>0:�A$=""A$=fn$(T%):T%=maxf%
��
�(T%+=1:�T%>maxf%:A$="/"+��dir)+" "+A$
�
�#h%,A$:�
�
� ��setvar(A%,V%)
�*	ȎA%�
�4
� 0:a%=V%
�>
� 1:b%=V%
�H
� 2:c%=V%
�R
� 3:d%=V%
�\
� 4:e%=V%
�f
� 5:f%=V%
�p
� 6:g%=V%
�z
� 7:h%=V%
�
� 8:i%=V%
�
� 9:j%=V%
�
�10:k%=V%
�
�11:l%=V%
�
�12:m%=V%
�
�13:n%=V%
��
���
��
����sd03(A$)
���1:ȓȐ0,0,32767,31
���129:�7:�1,31)A$;:�128
��
�
�ݤp_addcheck(A$)
��A%,C%:C%=&5A
�$�A$>""�
�.�I%=1��A$:A%=��A$,I%)
�88C%=(((C%<<1)�(C%>>7))�A%)�255:�C%<32�C%=127:C%=C%�32
�B�
�L�
�V=A$+�C%
�`
�jݤp_hexstr(A$)
�t
�T$,I%
�~-�A$>"":�I%=1��A$:T$+=�"0"+�~��A$,I%),2):�
�=T$
�
�-ݤp_prcode(A$)=�p_hexstr(�p_addcheck(A$))
�
�ݤp_passcode(A$)
��X%,C%:X%=�A$:�X%=0:=""
��)�#X%=44*4:A$="":�:C%=�#X%:�C%:A$+=�C%
��$�C%=0��A$=12:�#X%:=�p_prcode(A$)
��
����card:符-3:�
���-1:�maketext:�
��I%,X%,T$,A$
��
�
(��:��:�cclose(X%):��,�$+" ("+Þ+")"
�)�I%=1�depth%:label$(I%)="":�:I%=1:�+1
��A$:ȕI%<=depth%�A$<>"*"
�(-T$=�cfield(A$):�T$>"":label$(I%)=T$:I%+=1
�2	�A$:�
�<
�I%>1�
�F
*ps 0.254
�P8X%=�("netprint:"):�X%=0:�99,"Couldn't claim printer"
�Z�#X%,27:�#X%,"E";
�d"�I%=1�depth%:�#X%,label$(I%):�
�n�#X%,27:�#X%,"F";
�xI%=X%:X%=0:�#I%
���
���
��1� Name,Add1,Add2,Add3,Town,Cnty,Cntr,+>Post,*
��
����cclose(X%):�X%:�#X%
���
��
��ݤcfield(A$):�T$,T%
���:��:��:=""
���A$=�"+":T%=T%�1:A$=�A$,2)
���A$=�">":T%=T%�2:A$=�A$,2)
��3șswi%,gfield_%,A$:T$=$sd%:ȕ�T$)=" ":T$=�T$):�
���T$>""�
��T%�2:T$="     "+T$
��T%�1:T$=�14+T$
��
�"=T$
�,
�6��i_init:�i_v%:�
�@i_v%=0:�:��:��:i_v%=0:�
�J=ș"Impulse_Initialise",3,taskhandle%,"MultiStore",-1�i_v%
�T� i_mth% 200,i_txblock% 300
�^i_tgetfield%=0
�hi_tgetdata%=1
�ri_tgettime%=2
�|P%=i_mth%:[OPT 0
��EQUD 0; format id
��*�i_mth(0,i_tgetfield%,"GetField","/A")
��&�i_mth(0,i_tgetdata%,"GetData","")
��*�i_mth(0,i_tgettime%,"GetTimeDate","")
���i_mth(-1,-1,"","")
��align:]
��(i_tok%=0:i_prm%=0:i_obj%=0:i_dead%=0
��.i_tx%=�:i_txptr%=0:i_txcount%=1:i_txtag%=0
��i_file%=-1:i_merging%=0
�� �i_com$(6):i_doc$="":�i_def1
���
��
��!��i_close:i_v%=i_v%:�i_v%=0:�
�.ș"Impulse_CloseDown",taskhandle%:i_v%=0:�
�
���i_reply(T%)
�&*�T%=i_merging%:i_merging%+=1:i_dead%=0
�0�
�:
�D��i_send(T$,T%)
�N�M%:M%=&200:�T%<>-1M%=&201
�XBi_dead%=0:ș"Impulse_SendMessage",M%,T$,0,0,0,T%,taskhandle%,0
�b�
�l
�v��i_senddata(T%,B%,S%)
��'�Z%:�i_tx%�(T%<>i_txtag%):�err(70)
��6i_dead%=0:Z%=i_txtop%-i_txptr%:�Z%<S%�Z%=0:i_tx%=�
���Z%>S%Z%=S%
��Cș"Impulse_TransmitData",i_txptr%+i_txblock%,Z%,,,,,taskhandle%
��i_txptr%+=Z%:�
��
����i_receivedata(q%)
���
��
��ݤi_mth(F%,T%,M$,S$)
��:[OPT0:equd F%:equd T%:equs M$+�0:equs S$+�0:align:]:=0
��
����i_command(T%,P%,O%)
�	ȎT%�
�#� i_tgetfield%:�getfield(P%,O%)
�"� i_tgetdata% :�getdata(P%,O%)
� &� i_tgettime% :�gettimedate(P%,O%)
�*�:�
�4
�>��i_transfield(T$)
�H�E%:E%=�
�R(�:��:��:E%=�:T$="[*ERROR* "+�$+"]"
�\"�E%=�:T$=�evgen(T$,�,�,&90A,�)
�f�transreply(T$,E%�(1<<31))
�p�
�z
����getfield(P%,O%)
����getdata(P%,O%)
���P%=-1:�
���T$:T$=�zts(O%):�i_file(T$)
��"T$=�zts(!P%):�i_transfield(T$)
���
��
����gettimedate(P%,O%)
���T$:T$=�zts(P%)
��!�T$=""T$="%ZDY%ST %MO %CE%YR"
��(!workbuf%=3:ș "OS_Word",14,workbuf%
��;ș "OS_ConvertDateAndTime",workbuf%,workbuf%+20,1400,T$
��&�transreply(�zts(workbuf%+20),0):�
�
���transreply(T$,F%)
�6i_dead%=0:i_tx%=�:i_txptr%=0:$i_txblock%=T$+�4,�0)
�$Di_txtop%=(�(T$)+1+3)�&FFFFFFFC:i_txtag%=i_txcount%:i_txcount%+=1
�.\ș "Impulse_SendMessage",&202,"MultiStore",-1,,F%,i_txtag%,taskhandle%,i_txtop%-i_txptr%
�8�
�B
�L��i_file(T$):�T%:�T$>""�
�V&T%=�filenum(T$):�T%>=0:�sdfile(T%)
�`�
�j �i_file%>=0:�sdfile(i_file%)
�t�:�
�~
����i_startmerge:�i_init
��#�i_geticons:�i_doc$="":�err(71)
��'i_dead%=0:i_file%=dialfile%:�nodial
��/i_merging%=1:�sdfile(i_file%):�startact(11)
���
��
��(��i_def:�I%,J%:�I%=0�6:�i_com$(I%):�
���i_seticons:�
��
����i_def1:�+1:�i_def:�
��%� ":Impression.<Object> Edit Off"
���
�"� ":Impression.<Object> Merge"
�
"� ":Impression.<Object> Print"
��
�$� ":Impression.<Object> Edit On"
�(�
�2
�<!��i_impulse:�i_init:�i_v%=0:�
�F'�dialogue(w_impulse%):�i_seticons:�
�P
�Z)��i_seticons:�dialogue%<>w_impulse%:�
�d5�+1:�I%=0�6:�J%:�seti(w_impulse%,J%,i_com$(I%)):�
�n �seti(w_impulse%,9,i_doc$):�
�x��i_geticons
��8�+1:�I%=0�6:�J%:i_com$(I%)=�s($�ia(w_impulse%,J%)):�
��#i_doc$=�s($�ia(w_impulse%,9)):�
���
���11,12,14,15,16,17,18
��
����i_next
���sdfile(i_file%)
��Ȏi_merging%�
���01:�i_nextcom(0)
���02:�i_safe
���03:�i_nextcom(1)
���04:�i_safe
��$�05:șswi%,first_%:i_merging%+=1
�G�06:�sdnext:�v_(15)>�v_(17):i_merging%=100:�i_merging%+=1:�shownum
��07:�i_nextcom(2)
��08:�i_safe
�"�09:�i_nextcom(3)
�,�10:�i_safe
�6�11:�i_nextcom(4)
�@�12:�i_safe
�J�13:i_merging%=6
�T�100:�i_nextcom(5)
�^�101:�i_safe
�h�102:�i_nextcom(6)
�r�103:�i_safe
�|(�104:i_merging%=0:i_file%=-1:�endact
���
���
��
����i_nextcom(C%):�T$
��1i_merging%+=1:T$=�s(�i_translate(i_com$(C%)))
��0�T$="":i_merging%+=1:��i_send(T$,i_merging%)
���
��
����i_safe:i_dead%+=1
���i_dead%<i_maxdead%:�
��i_dead%=0:i_merging%+=1:�
��
��ݤi_translate(T$):�I%
��:I%=�T$,"<Object>")
�$�I%T$=�T$,I%-1)+i_doc$+�T$,I%+8)
�
�I%=0:=T$
�&
�0��i_kill(F%):�T$
�:�i_merging%=0�i_file%<>F%:�
�D7T$=�s(�i_translate(i_com$(5))):�T$>""�i_send(T$,-1)
�N7T$=�s(�i_translate(i_com$(6))):�T$>""�i_send(T$,-1)
�X6�sdfile(i_file%):i_merging%=0:i_file%=-1:�endact:�
�b
�l6ݤdupval:�curidx>0:=�ev4($sd%,�,�):�=�so(�v_(15))
�v
��<��dupnext:�T$,T%,N%:T$=�dupval:T%=e%(file%,1):N%=�v_(15)
��Rg%=0:�G%=0�ex$(file%)<>"#$%$#":g%=�similar(T$,�ex$(file%),�ex$(file%),":")+1))
��[�g%<>0�T%>255�subbyte(T%,g%):șswi%,grec_%,�ex$(file%):�subbyte(T%,g%):șswi%,grec_%,N%
��*�g%<>0�T%<255:fc%(file%)+=1:�showfound
��ex$(file%)=�N%+":"+T$
���shownum:�
��
��2��text_newl(T%,F%):text_x%=0:text_y%=1023-�*32
��+�7:ȓȐtext_x%,text_y%,2112*T%/F%,-31:�
�
���text_pstr(T$,W%):�T$="":�
�
9�x,s,I%:x=text_x%:s=2112/W%:�5,23,17,7,7,1056/W%;8;0;
�.�I%=1��T$:�x,text_y%:�3,3:�T$,I%):x+=s:�
�*0text_x%+=2112*�T$/W%:�4,23,17,7,7,8;8;0;:�:�
�

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 75 6c 74 69 53 74 6f  |re$Dir>.MultiSto|
00000020  72 65 0d 00 14 3f f4 20  20 42 79 20 4d 65 72 6c  |re...?.  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  31 ee 85 3a f2 65 72 72  6f 72 28 9f 2c f6 24 2b  |1..:.error(.,.$+|
00000090  22 20 2d 20 46 61 69 6c  65 64 20 74 6f 20 69 6e  |" - Failed to in|
000000a0  69 74 69 61 6c 69 73 65  22 2c 9e 2c b9 29 0d 00  |itialise",.,.)..|
000000b0  3c 09 f2 69 6e 69 74 0d  00 46 33 ee 85 3a f2 65  |<..init..F3..:.e|
000000c0  72 72 6f 72 28 9f 2c f6  24 2c 9e 2c 70 72 6f 63  |rror(.,.$,.,proc|
000000d0  65 73 73 25 3c 34 80 70  72 6f 63 65 73 73 25 3e  |ess%<4.process%>|
000000e0  30 29 3a f2 72 65 70 6f  72 74 0d 00 50 0e f2 6e  |0):.report..P..n|
000000f0  6f 72 6d 70 6f 69 6e 74  0d 00 5a 04 0d 00 64 05  |ormpoint..Z...d.|
00000100  f5 0d 00 6e 18 e7 70 72  6f 63 65 73 73 25 3e 30  |...n..process%>0|
00000110  3a f2 70 72 6f 63 65 73  73 0d 00 78 28 c8 99 22  |:.process..x(.."|
00000120  57 69 6d 70 5f 50 6f 6c  6c 49 64 6c 65 22 2c 2c  |Wimp_PollIdle",,|
00000130  71 25 2c 64 65 6c 61 79  25 b8 72 65 61 73 6f 6e  |q%,delay%.reason|
00000140  25 0d 00 82 8b e7 74 61  73 6b 68 61 6e 64 6c 65  |%.....taskhandle|
00000150  25 3e 30 c8 99 73 77 69  25 2c 73 65 6c 65 63 74  |%>0..swi%,select|
00000160  74 61 73 6b 5f 25 2c 74  61 73 6b 68 61 6e 64 6c  |task_%,taskhandl|
00000170  65 25 3a e7 69 5f 76 25  c8 99 22 49 6d 70 75 6c  |e%:.i_v%.."Impul|
00000180  73 65 5f 44 65 63 6f 64  65 22 2c 72 65 61 73 6f  |se_Decode",reaso|
00000190  6e 25 2c 71 25 2c 2c 2c  2c 69 5f 6d 74 68 25 2c  |n%,q%,,,,i_mth%,|
000001a0  74 61 73 6b 68 61 6e 64  6c 65 25 b8 72 65 61 73  |taskhandle%.reas|
000001b0  6f 6e 25 2c 2c 2c 2c 2c  69 5f 74 6f 6b 25 2c 69  |on%,,,,,i_tok%,i|
000001c0  5f 70 72 6d 25 2c 69 5f  6f 62 6a 25 0d 00 8c 15  |_prm%,i_obj%....|
000001d0  f2 72 65 73 70 6f 6e 64  28 72 65 61 73 6f 6e 25  |.respond(reason%|
000001e0  29 0d 00 96 0a fd 71 75  69 74 25 0d 00 a0 13 f2  |).....quit%.....|
000001f0  43 4c 4f 53 45 3a f2 71  75 69 74 28 a3 29 0d 00  |CLOSE:.quit(.)..|
00000200  aa 05 e0 0d 00 b4 04 0d  00 be 16 dd f2 72 65 73  |.............res|
00000210  70 6f 6e 64 28 72 65 61  73 6f 6e 25 29 0d 00 c8  |pond(reason%)...|
00000220  17 e7 72 65 61 73 6f 6e  25 3a f2 77 61 69 74 70  |..reason%:.waitp|
00000230  6f 69 6e 74 0d 00 d2 0e  c8 8e 72 65 61 73 6f 6e  |oint......reason|
00000240  25 ca 0d 00 dc 11 c9 20  30 3a f2 62 61 63 6b 67  |%...... 0:.backg|
00000250  72 6e 64 0d 00 e6 12 c9  20 31 3a f2 72 65 64 72  |rnd..... 1:.redr|
00000260  61 77 28 a3 29 0d 00 f0  3a c9 20 32 3a f2 6f 70  |aw(.)...:. 2:.op|
00000270  65 6e 28 21 71 25 2c 71  25 21 34 2c 71 25 21 38  |en(!q%,q%!4,q%!8|
00000280  2c 71 25 21 31 32 2c 71  25 21 31 36 2c 71 25 21  |,q%!12,q%!16,q%!|
00000290  32 30 2c 71 25 21 32 34  2c 71 25 21 32 38 29 0d  |20,q%!24,q%!28).|
000002a0  00 fa 14 c9 20 33 3a f2  63 6c 6f 73 65 77 28 21  |.... 3:.closew(!|
000002b0  71 25 29 0d 01 04 15 c9  20 34 3a f2 70 74 72 65  |q%)..... 4:.ptre|
000002c0  78 69 74 28 21 71 25 29  0d 01 0e 16 c9 20 35 3a  |xit(!q%)..... 5:|
000002d0  f2 70 74 72 65 6e 74 65  72 28 21 71 25 29 0d 01  |.ptrenter(!q%)..|
000002e0  18 2f c9 20 36 3a f2 6d  6f 75 73 65 28 21 71 25  |./. 6:.mouse(!q%|
000002f0  2c 71 25 21 34 2c 71 25  21 38 2c 71 25 21 31 32  |,q%!4,q%!8,q%!12|
00000300  2c 71 25 21 31 36 2c 71  25 21 32 30 29 0d 01 22  |,q%!16,q%!20).."|
00000310  10 c9 20 37 3a f2 65 6e  64 64 72 61 67 0d 01 2c  |.. 7:.enddrag..,|
00000320  33 c9 20 38 3a f2 6b 65  79 28 21 71 25 2c 71 25  |3. 8:.key(!q%,q%|
00000330  21 34 2c 71 25 21 38 2c  71 25 21 31 32 2c 71 25  |!4,q%!8,q%!12,q%|
00000340  21 31 36 2c 71 25 21 32  30 2c 71 25 21 32 34 29  |!16,q%!20,q%!24)|
00000350  0d 01 36 13 c9 20 39 3a  f2 6d 65 6e 75 73 65 6c  |..6.. 9:.menusel|
00000360  65 63 74 0d 01 40 07 c9  31 30 0d 01 4a 07 c9 31  |ect..@..10..J..1|
00000370  31 0d 01 54 07 c9 31 32  0d 01 5e 12 c9 31 37 2c  |1..T..12..^..17,|
00000380  31 38 3a f2 75 6d 65 73  73 31 0d 01 68 0f c9 31  |18:.umess1..h..1|
00000390  39 3a f2 75 6d 65 73 73  32 0d 01 72 2f c9 26 32  |9:.umess2..r/.&2|
000003a0  30 30 2c 26 32 30 31 3a  f2 69 5f 63 6f 6d 6d 61  |00,&201:.i_comma|
000003b0  6e 64 28 69 5f 74 6f 6b  25 2c 69 5f 70 72 6d 25  |nd(i_tok%,i_prm%|
000003c0  2c 69 5f 6f 62 6a 25 29  0d 01 7c 1a c9 26 32 30  |,i_obj%)..|..&20|
000003d0  32 3a f2 69 5f 72 65 70  6c 79 28 69 5f 74 6f 6b  |2:.i_reply(i_tok|
000003e0  25 29 0d 01 86 2b c9 26  32 30 33 3a f2 69 5f 73  |%)...+.&203:.i_s|
000003f0  65 6e 64 64 61 74 61 28  69 5f 74 6f 6b 25 2c 69  |enddata(i_tok%,i|
00000400  5f 70 72 6d 25 2c 69 5f  6f 62 6a 25 29 0d 01 90  |_prm%,i_obj%)...|
00000410  1c c9 26 32 30 34 3a f2  69 5f 72 65 63 65 69 76  |..&204:.i_receiv|
00000420  65 64 61 74 61 28 71 25  29 0d 01 9a 05 cb 0d 01  |edata(q%).......|
00000430  a4 0e f2 6e 6f 72 6d 70  6f 69 6e 74 0d 01 ae 05  |...normpoint....|
00000440  e1 0d 01 b8 04 0d 01 c2  19 dd f2 71 75 69 74 28  |...........quit(|
00000450  54 25 29 3a f2 6e 6f 72  6d 70 6f 69 6e 74 0d 01  |T%):.normpoint..|
00000460  cc 49 e7 ac 28 a6 2d 33  80 a4 64 65 62 75 67 29  |.I..(.-3..debug)|
00000470  3a f2 69 5f 63 6c 6f 73  65 3a 24 71 25 3d 22 54  |:.i_close:$q%="T|
00000480  41 53 4b 22 3a c8 99 22  57 69 6d 70 5f 43 6c 6f  |ASK":.."Wimp_Clo|
00000490  73 65 44 6f 77 6e 22 2c  74 61 73 6b 68 61 6e 64  |seDown",taskhand|
000004a0  6c 65 25 2c 21 71 25 0d  01 d6 16 e7 54 25 84 a4  |le%,!q%.....T%..|
000004b0  64 65 62 75 67 3a f2 74  69 64 79 3a e0 0d 01 e0  |debug:.tidy:....|
000004c0  09 ee 85 3a c8 98 0d 01  ea 21 c8 99 73 77 69 25  |...:.....!..swi%|
000004d0  2c 6b 69 6c 6c 74 61 73  6b 5f 25 2c 74 61 73 6b  |,killtask_%,task|
000004e0  68 61 6e 64 6c 65 25 0d  01 f4 06 c8 98 0d 01 fe  |handle%.........|
000004f0  04 0d 02 08 30 dd a4 74  61 73 6b 3a e7 bb a4 41  |....0..task:...A|
00000500  72 66 56 61 72 28 22 4d  75 6c 74 69 53 74 6f 72  |rfVar("MultiStor|
00000510  65 24 46 75 6e 63 74 69  6f 6e 22 29 3c 30 3a 3d  |e$Function")<0:=|
00000520  30 0d 02 12 0b 3d 6f 74  61 73 6b 25 0d 02 1c 04  |0....=otask%....|
00000530  0d 02 26 0a dd f2 69 6e  69 74 0d 02 30 16 6f 74  |..&...init..0.ot|
00000540  61 73 6b 25 3d 5a 25 3a  f2 73 77 69 6e 75 6d 73  |ask%=Z%:.swinums|
00000550  0d 02 3a 2c 61 70 70 6c  24 3d 22 4d 75 6c 74 69  |..:,appl$="Multi|
00000560  53 74 6f 72 65 22 3a 70  73 74 72 65 61 6d 25 3d  |Store":pstream%=|
00000570  30 3a f2 72 65 6c 65 61  73 65 70 72 0d 02 44 16  |0:.releasepr..D.|
00000580  ea 85 3a ee 85 ea 3a f7  85 3a f2 65 72 72 28 36  |..:...:..:.err(6|
00000590  37 29 0d 02 4e 27 de 20  71 25 20 32 35 30 30 2c  |7)..N'. q% 2500,|
000005a0  20 77 6f 72 6b 62 75 66  25 20 31 35 30 30 2c 64  | workbuf% 1500,d|
000005b0  69 61 6c 63 74 25 20 32  34 0d 02 58 06 f7 85 0d  |ialct% 24..X....|
000005c0  02 62 37 77 61 69 74 65  72 25 3d 30 3a 66 69 6c  |.b7waiter%=0:fil|
000005d0  65 25 3d 2d 31 3a 76 25  3d a4 69 6e 69 74 77 69  |e%=-1:v%=.initwi|
000005e0  6d 70 3a e7 76 25 3c 31  38 30 3a eb 31 32 3a f2  |mp:.v%<180:.12:.|
000005f0  65 72 72 28 32 29 0d 02  6c 21 f2 77 61 69 74 70  |err(2)..l!.waitp|
00000600  6f 69 6e 74 3a c8 9b 28  a4 64 69 72 2b 22 42 61  |oint:..(.dir+"Ba|
00000610  73 65 4c 69 62 22 29 0d  02 76 1f c8 9b 28 a4 64  |seLib")..v...(.d|
00000620  69 72 2b 22 53 77 69 4c  69 73 74 22 29 3a f2 73  |ir+"SwiList"):.s|
00000630  77 69 6c 69 73 74 0d 02  80 34 71 75 69 74 25 3d  |wilist...4quit%=|
00000640  a3 3a 64 69 61 6c 72 65  61 73 6f 6e 25 3d 2d 31  |.:dialreason%=-1|
00000650  3a 64 69 61 6c 6f 67 75  65 25 3d 2d 31 3a 64 69  |:dialogue%=-1:di|
00000660  61 6c 66 69 6c 65 25 3d  2d 31 0d 02 8a 1c 61 63  |alfile%=-1....ac|
00000670  6b 70 65 6e 64 69 6e 67  25 3d a3 3a 61 63 6b 72  |kpending%=.:ackr|
00000680  65 66 25 3d 2d 31 0d 02  94 1b 64 72 61 67 72 65  |ef%=-1....dragre|
00000690  61 73 6f 6e 25 3d 2d 31  3a 68 65 6c 70 24 3d 22  |ason%=-1:help$="|
000006a0  22 0d 02 9e 1f 73 61 76  65 72 65 61 73 6f 6e 25  |"....savereason%|
000006b0  3d 2d 31 3a 73 61 76 65  66 69 6c 65 25 3d 2d 31  |=-1:savefile%=-1|
000006c0  0d 02 a8 19 66 69 6c 65  32 25 3d 2d 31 3a 72 65  |....file2%=-1:re|
000006d0  61 73 6f 6e 32 25 3d 2d  31 0d 02 b2 1c 6d 65 6e  |ason2%=-1....men|
000006e0  75 66 69 6c 65 25 3d 2d  31 3a 6d 65 6e 75 73 75  |ufile%=-1:menusu|
000006f0  62 25 3d 2d 31 0d 02 bc  0e 63 6c 6f 73 65 6f 6b  |b%=-1....closeok|
00000700  25 3d a3 0d 02 c6 17 73  62 66 69 6c 65 25 3d 2d  |%=.....sbfile%=-|
00000710  31 3a 70 61 73 73 24 3d  22 22 0d 02 d0 2d 70 64  |1:pass$=""...-pd|
00000720  72 69 76 65 72 25 3d b9  3a c8 99 22 4f 53 5f 42  |river%=.:.."OS_B|
00000730  79 74 65 22 2c 31 38 32  2c 30 2c 32 35 35 20 b8  |yte",182,0,255 .|
00000740  2c 70 74 65 72 6d 25 0d  02 da 30 e7 28 70 74 65  |,pterm%...0.(pte|
00000750  72 6d 25 80 26 38 30 29  3d 30 c8 99 22 4f 53 5f  |rm%.&80)=0.."OS_|
00000760  42 79 74 65 22 2c 32 34  36 2c 30 2c 32 35 35 b8  |Byte",246,0,255.|
00000770  2c 70 74 65 72 6d 25 0d  02 e4 20 e7 70 74 65 72  |,pterm%... .pter|
00000780  6d 25 3d 31 30 70 74 65  72 6d 25 3d 31 3a 8b 70  |m%=10pterm%=1:.p|
00000790  74 65 72 6d 25 3d 32 0d  02 ee 16 ea 85 3a ee 85  |term%=2......:..|
000007a0  ea 3a f7 85 3a f2 65 72  72 28 36 37 29 0d 02 f8  |.:..:.err(67)...|
000007b0  4a de 50 44 66 6e 61 6d  65 24 28 31 30 29 2c 50  |J.PDfname$(10),P|
000007c0  44 66 6f 6e 74 24 28 31  30 29 2c 50 44 63 70 6c  |Dfont$(10),PDcpl|
000007d0  25 28 31 30 29 2c 50 44  66 72 6f 6d 25 28 31 30  |%(10),PDfrom%(10|
000007e0  29 2c 50 44 74 6f 24 28  31 30 29 2c 50 44 63 6c  |),PDto$(10),PDcl|
000007f0  65 6e 25 28 31 30 29 0d  03 02 24 69 64 5f 77 63  |en%(10)...$id_wc|
00000800  69 61 25 3d 34 32 3a 69  64 5f 65 78 62 25 3d 34  |ia%=42:id_exb%=4|
00000810  33 3a 69 64 5f 62 62 63  25 3d 30 0d 03 0c 1e 65  |3:id_bbc%=0....e|
00000820  78 69 30 25 3d 2d 31 3a  65 78 69 31 25 3d 2d 31  |xi0%=-1:exi1%=-1|
00000830  3a 6c 69 6e 6b 73 25 3d  30 0d 03 16 1a de 20 65  |:links%=0..... e|
00000840  64 62 75 66 25 20 32 35  36 2c 65 64 76 61 6c 25  |dbuf% 256,edval%|
00000850  20 31 35 0d 03 20 06 f7  85 0d 03 2a 4a 65 64 66  | 15.. .....*Jedf|
00000860  69 65 6c 64 25 3d 2d 31  3a 65 64 66 69 6c 65 25  |ield%=-1:edfile%|
00000870  3d 2d 31 3a 65 64 69 63  6f 6e 25 3d 2d 31 3a 65  |=-1:edicon%=-1:e|
00000880  64 72 65 63 25 3d 2d 31  3a 65 64 78 25 3d 2d 31  |drec%=-1:edx%=-1|
00000890  3a 24 65 64 76 61 6c 25  3d 22 61 30 2d 39 5c 2d  |:$edval%="a0-9\-|
000008a0  2b 2e 22 0d 03 34 2c 65  64 72 65 70 25 3d a3 3a  |+."..4,edrep%=.:|
000008b0  73 73 25 3d 31 32 3a 6c  63 25 3d 33 3a f2 72 65  |ss%=12:lc%=3:.re|
000008c0  61 64 70 61 72 61 6d 73  3a f2 77 76 61 72 73 0d  |adparams:.wvars.|
000008d0  03 3e 34 f2 6c 6f 61 64  73 70 72 69 74 65 73 3a  |.>4.loadsprites:|
000008e0  f2 64 65 66 77 73 3a f2  64 65 66 6d 65 6e 75 73  |.defws:.defmenus|
000008f0  3a f2 76 65 72 73 69 6f  6e 3a f2 66 69 6c 65 76  |:.version:.filev|
00000900  61 72 73 0d 03 48 12 69  5f 76 25 3d 30 3a f2 69  |ars..H.i_v%=0:.i|
00000910  5f 69 6e 69 74 0d 03 52  24 70 72 6f 63 65 73 73  |_init..R$process|
00000920  25 3d 31 3a 63 68 65 63  6b 72 65 66 25 3d 2d 31  |%=1:checkref%=-1|
00000930  3a 64 65 6c 61 79 25 3d  30 0d 03 5c 24 73 74 6f  |:delay%=0..\$sto|
00000940  70 66 69 6c 65 25 3d 2d  31 3a 6c 61 73 74 61 63  |pfile%=-1:lastac|
00000950  74 25 3d 30 3a 63 68 75  6e 6b 25 3d 37 0d 03 66  |t%=0:chunk%=7..f|
00000960  49 61 73 24 3d 22 41 72  65 20 79 6f 75 20 73 75  |Ias$="Are you su|
00000970  72 65 20 3f 22 3a 72 6c  24 3d 22 52 65 61 6c 6c  |re ?":rl$="Reall|
00000980  79 20 22 3a 72 69 24 3d  72 6c 24 2b 22 69 6e 74  |y ":ri$=rl$+"int|
00000990  65 72 72 75 70 74 20 3f  22 3a 66 69 24 3d 22 46  |errupt ?":fi$="F|
000009a0  69 6c 65 3a 20 22 0d 03  70 17 6c 61 73 74 73 70  |ile: "..p.lastsp|
000009b0  72 24 3d 22 22 3a 6c 69  78 25 3d 2d 31 0d 03 7a  |r$="":lix%=-1..z|
000009c0  1c 64 65 70 74 68 25 3d  39 3a de 6c 61 62 65 6c  |.depth%=9:.label|
000009d0  24 28 64 65 70 74 68 25  29 0d 03 84 29 24 74 5f  |$(depth%)...)$t_|
000009e0  69 6d 70 75 6c 73 65 25  3d 22 22 3a 69 5f 6d 65  |impulse%="":i_me|
000009f0  72 67 69 6e 67 25 3d 30  3a 69 5f 66 69 6c 65 25  |rging%=0:i_file%|
00000a00  3d 30 0d 03 8e 16 ea 85  3a ee 85 ea 3a f7 85 3a  |=0......:...:..:|
00000a10  f2 65 72 72 28 36 37 29  0d 03 98 37 de 74 6f 6e  |.err(67)...7.ton|
00000a20  65 25 28 31 31 2c 31 29  3a f7 2b 31 3a e3 49 25  |e%(11,1):.+1:.I%|
00000a30  3d 30 b8 31 31 3a e3 4a  25 3d 30 b8 31 3a f3 74  |=0.11:.J%=0.1:.t|
00000a40  6f 6e 65 25 28 49 25 2c  4a 25 29 3a ed 3a ed 0d  |one%(I%,J%):.:..|
00000a50  03 a2 06 f7 85 0d 03 ac  17 f2 72 65 61 64 66 6c  |..........readfl|
00000a60  61 67 73 3a f2 62 61 72  69 63 6f 6e 0d 03 b6 05  |ags:.baricon....|
00000a70  e1 0d 03 c0 40 dc 32 34  30 36 33 2c 32 36 31 34  |....@.24063,2614|
00000a80  35 2c 32 32 32 38 38 2c  32 35 35 36 34 2c 32 32  |5,22288,25564,22|
00000a90  32 38 38 2c 32 36 31 34  35 2c 32 32 32 38 38 2c  |288,26145,22288,|
00000aa0  32 36 37 32 36 2c 32 32  39 37 39 2c 32 35 35 36  |26726,22979,2556|
00000ab0  34 0d 03 ca 40 dc 32 32  39 37 39 2c 32 36 31 34  |4...@.22979,2614|
00000ac0  35 2c 32 32 39 37 39 2c  32 36 37 32 36 2c 32 33  |5,22979,26726,23|
00000ad0  34 38 32 2c 32 35 35 36  34 2c 32 33 34 38 32 2c  |482,25564,23482,|
00000ae0  32 36 31 34 35 2c 32 33  34 38 32 2c 32 36 37 32  |26145,23482,2672|
00000af0  36 0d 03 d4 1c dc 32 34  30 36 33 2c 32 35 35 36  |6.....24063,2556|
00000b00  34 2c 32 34 30 36 33 2c  32 36 37 32 36 0d 03 de  |4,24063,26726...|
00000b10  04 0d 03 e8 0d dd f2 73  77 69 6e 75 6d 73 0d 03  |.......swinums..|
00000b20  fc 05 e1 0d 04 06 04 0d  04 10 0b dd f2 77 76 61  |.............wva|
00000b30  72 73 0d 04 1a 09 f4 20  3b 7b 6e 0d 04 24 3c f4  |rs..... ;{n..$<.|
00000b40  20 3b 7b 6e 20 20 77 69  6e 64 6f 77 20 68 61 6e  | ;{n  window han|
00000b50  64 6c 65 73 20 69 6e 20  77 25 28 6d 61 78 66 25  |dles in w%(maxf%|
00000b60  2c 6d 61 78 77 25 29 20  2d 20 3c 3d 30 20 3d 20  |,maxw%) - <=0 = |
00000b70  44 65 6c 65 74 65 64 0d  04 2e 41 f4 20 3b 7b 6e  |Deleted...A. ;{n|
00000b80  20 20 20 20 28 2c 30 29  3d 43 61 72 64 20 20 20  |    (,0)=Card   |
00000b90  20 28 2c 31 29 3d 50 61  6e 65 20 20 20 20 20 28  | (,1)=Pane     (|
00000ba0  2c 32 29 3d 53 75 62 73  65 74 73 20 20 28 2c 33  |,2)=Subsets  (,3|
00000bb0  29 3d 52 65 70 6f 72 74  0d 04 38 40 f4 20 3b 7b  |)=Report..8@. ;{|
00000bc0  6e 20 20 20 20 28 2c 34  29 3d 46 69 65 6c 64 73  |n    (,4)=Fields|
00000bd0  20 20 28 2c 35 29 3d 49  6e 64 69 63 65 73 20 20  |  (,5)=Indices  |
00000be0  28 2c 36 29 3d 4e 6f 74  65 70 61 64 20 20 28 2c  |(,6)=Notepad  (,|
00000bf0  37 29 3d 4d 61 63 72 6f  0d 04 42 3b f4 20 3b 7b  |7)=Macro..B;. ;{|
00000c00  6e 20 20 74 77 25 28 6d  61 78 66 25 2c 6d 61 78  |n  tw%(maxf%,max|
00000c10  77 25 29 20 20 20 74 65  6d 70 6c 61 74 65 20 70  |w%)   template p|
00000c20  6f 69 6e 74 65 72 73 20  66 6f 72 20 77 69 6e 64  |ointers for wind|
00000c30  6f 77 73 0d 04 4c 2e f4  20 3b 7b 6e 20 20 6d 61  |ows..L.. ;{n  ma|
00000c40  78 77 25 20 20 20 3d 20  6d 61 78 20 61 72 72 61  |xw%   = max arra|
00000c50  79 20 69 6e 64 65 78 20  28 77 69 6e 64 6f 77 73  |y index (windows|
00000c60  29 0d 04 56 2c f4 20 3b  7b 6e 20 20 6d 61 78 66  |)..V,. ;{n  maxf|
00000c70  25 20 20 20 3d 20 6d 61  78 20 61 72 72 61 79 20  |%   = max array |
00000c80  69 6e 64 65 78 20 28 66  69 6c 65 73 29 0d 04 60  |index (files)..`|
00000c90  09 f4 20 3b 7b 6e 0d 04  6a 0b 6d 61 78 77 25 3d  |.. ;{n..j.maxw%=|
00000ca0  37 0d 04 74 25 de 74 77  25 28 6d 61 78 66 25 2c  |7..t%.tw%(maxf%,|
00000cb0  6d 61 78 77 25 29 2c 77  25 28 6d 61 78 66 25 2c  |maxw%),w%(maxf%,|
00000cc0  6d 61 78 77 25 29 0d 04  7e 05 e1 0d 04 88 04 0d  |maxw%)..~.......|
00000cd0  04 92 0e dd f2 66 69 6c  65 76 61 72 73 0d 04 9c  |.....filevars...|
00000ce0  32 f4 20 3b 7b 6e 20 20  68 25 28 6d 61 78 66 25  |2. ;{n  h%(maxf%|
00000cf0  29 3d 46 69 6c 65 20 68  61 6e 64 6c 65 73 20 20  |)=File handles  |
00000d00  20 20 20 30 20 3d 20 6e  6f 74 20 6f 70 65 6e 0d  |   0 = not open.|
00000d10  04 a6 44 f4 20 3b 7b 6e  20 20 66 25 28 6d 61 78  |..D. ;{n  f%(max|
00000d20  66 25 29 3d 46 6f 72 6d  61 74 20 68 61 6e 64 6c  |f%)=Format handl|
00000d30  65 73 20 20 20 30 20 3d  20 6e 6f 74 20 6f 70 65  |es   0 = not ope|
00000d40  6e 2c 20 2d 76 65 20 3d  20 6e 6f 74 20 6c 69 6e  |n, -ve = not lin|
00000d50  6b 65 64 0d 04 b0 2e f4  20 3b 7b 6e 20 20 73 25  |ked..... ;{n  s%|
00000d60  28 6d 61 78 66 25 29 3d  73 74 61 74 75 73 20 28  |(maxf%)=status (|
00000d70  30 3d 63 61 72 64 20 64  69 73 70 6c 61 79 65 64  |0=card displayed|
00000d80  29 0d 04 ba 32 f4 20 3b  7b 6e 20 20 20 20 20 20  |)...2. ;{n      |
00000d90  20 20 20 20 20 20 20 20  20 20 20 20 20 28 31 3d  |             (1=|
00000da0  6e 6f 20 63 61 72 64 73  20 69 6e 20 73 75 62 73  |no cards in subs|
00000db0  65 74 29 0d 04 c4 31 f4  20 3b 7b 6e 20 20 20 20  |et)...1. ;{n    |
00000dc0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 28  |               (|
00000dd0  32 3d 62 61 63 6b 67 72  6f 75 6e 64 20 61 63 74  |2=background act|
00000de0  69 6f 6e 29 0d 04 ce 25  f4 20 3b 7b 6e 20 20 73  |ion)...%. ;{n  s|
00000df0  24 28 6d 61 78 66 25 29  3d 66 61 73 74 20 66 69  |$(maxf%)=fast fi|
00000e00  6e 64 20 73 74 72 69 6e  67 0d 04 d8 2e f4 20 3b  |nd string..... ;|
00000e10  7b 6e 2b 20 64 24 28 6d  61 78 66 25 2c 32 33 29  |{n+ d$(maxf%,23)|
00000e20  3d 32 33 20 73 75 62 73  65 74 20 64 65 73 63 72  |=23 subset descr|
00000e30  69 70 74 69 6f 6e 73 0d  04 e2 27 f4 20 3b 7b 6e  |iptions...'. ;{n|
00000e40  2b 20 66 24 28 6d 61 78  66 25 29 3d 66 69 6c 74  |+ f$(maxf%)=filt|
00000e50  65 72 20 65 78 70 72 65  73 73 69 6f 6e 73 0d 04  |er expressions..|
00000e60  ec 3f f4 20 3b 7b 6e 2b  20 66 78 24 28 6d 61 78  |.?. ;{n+ fx$(max|
00000e70  66 25 29 3d 66 69 6c 74  65 72 73 20 61 66 74 65  |f%)=filters afte|
00000e80  72 20 65 78 70 61 6e 73  69 6f 6e 20 66 6f 72 20  |r expansion for |
00000e90  61 62 62 72 65 76 69 61  74 69 6f 6e 73 0d 04 f6  |abbreviations...|
00000ea0  27 f4 20 3b 7b 6e 2b 20  65 24 28 6d 61 78 66 25  |'. ;{n+ e$(maxf%|
00000eb0  29 3d 73 65 61 72 63 68  20 65 78 70 72 65 73 73  |)=search express|
00000ec0  69 6f 6e 73 0d 05 00 38  f4 20 3b 7b 6e 20 20 65  |ions...8. ;{n  e|
00000ed0  78 24 28 6d 61 78 66 25  29 3d 73 65 61 72 63 68  |x$(maxf%)=search|
00000ee0  20 65 78 70 72 65 73 73  69 6f 6e 73 20 61 66 74  | expressions aft|
00000ef0  65 72 20 65 78 70 61 6e  73 69 6f 6e 0d 05 0a 2f  |er expansion.../|
00000f00  f4 20 3b 7b 6e 2b 20 77  24 28 6d 61 78 66 25 2c  |. ;{n+ w$(maxf%,|
00000f10  31 34 29 3d 77 6f 72 64  70 72 6f 20 6f 2f 70 20  |14)=wordpro o/p |
00000f20  65 78 70 72 65 73 73 69  6f 6e 73 0d 05 14 26 f4  |expressions...&.|
00000f30  20 3b 7b 6e 2b 20 77 6f  25 28 6d 61 78 66 25 29  | ;{n+ wo%(maxf%)|
00000f40  3d 77 6f 72 64 70 72 6f  20 6f 2f 70 20 74 79 70  |=wordpro o/p typ|
00000f50  65 0d 05 1e 20 f4 20 3b  7b 6e 20 20 66 6e 24 28  |e... . ;{n  fn$(|
00000f60  6d 61 78 66 25 29 3d 66  69 6c 65 20 6e 61 6d 65  |maxf%)=file name|
00000f70  73 0d 05 28 20 f4 20 3b  7b 6e 2b 20 72 25 28 6d  |s..( . ;{n+ r%(m|
00000f80  61 78 66 25 29 3d 72 65  70 6f 72 74 20 6d 6f 64  |axf%)=report mod|
00000f90  65 0d 05 32 35 f4 20 3b  7b 6e 20 20 20 20 20 20  |e..25. ;{n      |
00000fa0  30 20 3d 20 43 61 72 64  73 20 20 20 20 31 20 3d  |0 = Cards    1 =|
00000fb0  20 53 68 65 65 74 20 20  20 20 20 32 20 3d 20 46  | Sheet     2 = F|
00000fc0  6f 72 6d 75 6c 61 0d 05  3c 33 f4 20 3b 7b 6e 20  |ormula..<3. ;{n |
00000fd0  20 20 20 20 20 33 20 3d  20 4c 61 62 65 6c 73 20  |     3 = Labels |
00000fe0  20 20 34 20 3d 20 57 6f  72 64 70 72 6f 20 20 20  |  4 = Wordpro   |
00000ff0  35 20 3d 20 50 61 67 65  64 0d 05 46 49 f4 20 3b  |5 = Paged..FI. ;|
00001000  7b 6e 20 20 61 25 28 6d  61 78 66 25 29 3d 62 61  |{n  a%(maxf%)=ba|
00001010  63 6b 67 72 6f 75 6e 64  20 61 63 74 69 6f 6e 20  |ckground action |
00001020  69 6e 20 74 68 69 73 20  66 69 6c 65 2c 20 2d 76  |in this file, -v|
00001030  65 3d 6c 69 6e 6b 65 64  20 74 6f 20 61 63 74 69  |e=linked to acti|
00001040  6f 6e 0d 05 50 17 f4 20  3b 7b 6e 20 20 20 20 20  |on..P.. ;{n     |
00001050  20 30 20 3d 20 6e 6f 6e  65 0d 05 5a 1f f4 20 3b  | 0 = none..Z.. ;|
00001060  7b 6e 20 20 20 20 20 20  31 20 3d 20 66 61 73 74  |{n      1 = fast|
00001070  20 66 6f 72 77 61 72 64  0d 05 64 1c f4 20 3b 7b  | forward..d.. ;{|
00001080  6e 20 20 20 20 20 20 32  20 3d 20 66 61 73 74 20  |n      2 = fast |
00001090  62 61 63 6b 0d 05 6e 1c  f4 20 3b 7b 6e 20 20 20  |back..n.. ;{n   |
000010a0  20 20 20 33 20 3d 20 73  65 61 72 63 68 69 6e 67  |   3 = searching|
000010b0  0d 05 78 2a f4 20 3b 7b  6e 20 20 20 20 20 20 34  |..x*. ;{n      4|
000010c0  20 3d 20 63 6c 65 61 72  69 6e 67 2f 66 69 6c 6c  | = clearing/fill|
000010d0  69 6e 67 20 73 75 62 73  65 74 0d 05 82 21 f4 20  |ing subset...!. |
000010e0  3b 7b 6e 20 20 20 20 20  20 35 20 3d 20 63 6f 70  |;{n      5 = cop|
000010f0  79 69 6e 67 20 73 75 62  73 65 74 0d 05 8c 24 f4  |ying subset...$.|
00001100  20 3b 7b 6e 20 20 20 20  20 20 36 20 3d 20 63 6f  | ;{n      6 = co|
00001110  6d 62 69 6e 69 6e 67 20  73 75 62 73 65 74 73 0d  |mbining subsets.|
00001120  05 96 22 f4 20 3b 7b 6e  20 20 20 20 20 20 37 20  |..". ;{n      7 |
00001130  3d 20 44 65 6c 65 74 69  6e 67 20 73 75 62 73 65  |= Deleting subse|
00001140  74 0d 05 a0 21 f4 20 3b  7b 6e 20 20 20 20 20 20  |t...!. ;{n      |
00001150  38 20 3d 20 75 70 64 61  74 69 6e 67 20 63 61 72  |8 = updating car|
00001160  64 73 0d 05 aa 20 f4 20  3b 7b 6e 20 20 20 20 20  |ds... . ;{n     |
00001170  20 39 20 3d 20 73 6f 72  74 69 6e 67 20 63 61 72  | 9 = sorting car|
00001180  64 73 0d 05 b4 22 f4 20  3b 7b 6e 20 20 20 20 20  |ds...". ;{n     |
00001190  31 30 20 3d 20 70 72 69  6e 74 69 6e 67 20 72 65  |10 = printing re|
000011a0  70 6f 72 74 0d 05 be 38  f4 20 3b 7b 6e 20 20 65  |port...8. ;{n  e|
000011b0  25 28 6d 61 78 66 25 2c  32 29 3d 62 61 63 6b 67  |%(maxf%,2)=backg|
000011c0  72 6f 75 6e 64 20 61 63  74 69 76 69 74 79 20 73  |round activity s|
000011d0  74 61 74 75 73 20 73 74  75 66 66 3a 0d 05 c8 47  |tatus stuff:...G|
000011e0  f4 20 3b 7b 6e 20 20 20  20 20 20 20 61 63 74 20  |. ;{n       act |
000011f0  20 65 25 28 66 69 6c 65  25 2c 30 29 20 20 20 20  | e%(file%,0)    |
00001200  20 20 20 65 25 28 66 69  6c 65 25 2c 31 29 20 20  |   e%(file%,1)  |
00001210  20 20 20 20 20 20 20 20  65 25 28 66 69 6c 65 25  |        e%(file%|
00001220  2c 32 29 0d 05 d2 41 f4  20 3b 7b 6e 20 20 20 20  |,2)...A. ;{n    |
00001230  20 20 20 20 33 20 20 20  73 6f 75 72 63 65 20 73  |    3   source s|
00001240  75 62 73 65 74 20 20 20  20 20 74 61 72 67 65 74  |ubset     target|
00001250  20 73 75 62 73 65 74 20  20 20 20 20 20 20 20 72  | subset        r|
00001260  65 63 6e 6f 0d 05 dc 41  f4 20 3b 7b 6e 20 20 20  |ecno...A. ;{n   |
00001270  20 20 20 20 20 34 20 20  20 74 61 72 67 65 74 20  |     4   target |
00001280  73 75 62 73 65 74 20 20  20 20 20 63 6c 65 61 72  |subset     clear|
00001290  2f 66 69 6c 6c 20 66 6c  61 67 20 20 20 20 20 20  |/fill flag      |
000012a0  72 65 63 6e 6f 0d 05 e6  41 f4 20 3b 7b 6e 20 20  |recno...A. ;{n  |
000012b0  20 20 20 20 35 2f 36 20  20 20 73 6f 75 72 63 65  |    5/6   source|
000012c0  20 73 75 62 73 65 74 20  20 20 20 20 74 61 72 67  | subset     targ|
000012d0  65 74 20 73 75 62 73 65  74 20 20 20 20 20 20 20  |et subset       |
000012e0  20 72 65 63 6e 6f 0d 05  f0 22 f4 20 3b 7b 6e 20  | recno...". ;{n |
000012f0  20 20 20 20 20 20 20 37  20 20 20 74 61 72 67 65  |       7   targe|
00001300  74 20 73 75 62 73 65 74  0d 05 fa 41 f4 20 3b 7b  |t subset...A. ;{|
00001310  6e 20 20 20 20 20 20 20  20 38 20 20 20 20 20 20  |n        8      |
00001320  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00001340  20 20 20 20 72 65 63 6e  6f 0d 06 04 41 f4 20 3b  |    recno...A. ;|
00001350  7b 6e 20 20 20 20 20 20  20 31 30 20 20 20 6c 61  |{n       10   la|
00001360  62 65 6c 20 6c 69 6e 65  20 20 20 20 20 20 20 20  |bel line        |
00001370  6c 61 73 74 20 6c 61 62  65 6c 20 63 6f 70 79 23  |last label copy#|
00001380  20 20 20 20 20 72 65 63  6e 6f 0d 06 0e 39 f4 20  |     recno...9. |
00001390  3b 7b 6e 20 20 66 63 25  28 6d 61 78 66 25 29 3d  |;{n  fc%(maxf%)=|
000013a0  66 61 73 74 20 66 69 6e  64 2c 20 6e 75 6d 62 65  |fast find, numbe|
000013b0  72 20 66 6f 75 6e 64 20  6c 61 73 74 20 73 65 61  |r found last sea|
000013c0  72 63 68 0d 06 18 24 f4  20 3b 7b 6e 20 20 66 6c  |rch...$. ;{n  fl|
000013d0  25 28 6d 61 78 66 25 29  3d 62 6f 6f 6c 65 61 6e  |%(maxf%)=boolean|
000013e0  20 66 6c 61 67 73 3a 0d  06 22 1e f4 20 3b 7b 6e  | flags:..".. ;{n|
000013f0  2b 20 20 20 20 20 62 69  74 20 30 3d 66 69 6c 74  |+     bit 0=filt|
00001400  65 72 20 6f 6e 0d 06 2c  21 f4 20 3b 7b 6e 20 20  |er on..,!. ;{n  |
00001410  20 20 20 20 62 69 74 20  31 3d 74 6f 6f 6c 20 70  |    bit 1=tool p|
00001420  61 6e 65 20 6f 6e 0d 06  36 29 f4 20 3b 7b 6e 2b  |ane on..6). ;{n+|
00001430  20 20 20 20 20 62 69 74  20 32 3d 6d 61 63 72 6f  |     bit 2=macro|
00001440  20 62 72 6f 77 73 65 20  6d 6f 64 65 20 6f 6e 0d  | browse mode on.|
00001450  06 40 27 f4 20 3b 7b 6e  2b 20 20 20 20 20 62 69  |.@'. ;{n+     bi|
00001460  74 20 33 3d 6d 61 63 72  6f 20 65 64 69 74 20 6d  |t 3=macro edit m|
00001470  6f 64 65 20 6f 6e 0d 06  4a 2a f4 20 3b 7b 6e 2b  |ode on..J*. ;{n+|
00001480  20 20 20 20 20 62 69 74  20 34 3d 66 69 6c 74 65  |     bit 4=filte|
00001490  72 20 73 70 61 63 65 20  73 74 72 69 70 20 6f 6e  |r space strip on|
000014a0  0d 06 54 28 f4 20 3b 7b  6e 2b 20 20 20 20 20 62  |..T(. ;{n+     b|
000014b0  69 74 20 35 3d 66 69 6c  74 65 72 20 75 70 70 65  |it 5=filter uppe|
000014c0  72 63 61 73 65 20 6f 6e  0d 06 5e 2a f4 20 3b 7b  |rcase on..^*. ;{|
000014d0  6e 2b 20 20 20 20 20 62  69 74 20 36 3d 73 65 61  |n+     bit 6=sea|
000014e0  72 63 68 20 73 70 61 63  65 20 73 74 72 69 70 20  |rch space strip |
000014f0  6f 6e 0d 06 68 28 f4 20  3b 7b 6e 2b 20 20 20 20  |on..h(. ;{n+    |
00001500  20 62 69 74 20 37 3d 73  65 61 72 63 68 20 75 70  | bit 7=search up|
00001510  70 65 72 63 61 73 65 20  6f 6e 0d 06 72 2a f4 20  |percase on..r*. |
00001520  3b 7b 6e 20 20 20 20 20  20 62 69 74 20 38 3d 73  |;{n      bit 8=s|
00001530  65 61 72 63 68 2c 20 61  64 64 20 74 6f 20 73 75  |earch, add to su|
00001540  62 73 65 74 0d 06 7c 2a  f4 20 3b 7b 6e 2b 20 20  |bset..|*. ;{n+  |
00001550  20 20 20 62 69 74 20 39  3d 72 65 70 6f 72 74 20  |   bit 9=report |
00001560  73 70 61 63 65 20 73 74  72 69 70 20 6f 6e 0d 06  |space strip on..|
00001570  86 28 f4 20 3b 7b 6e 2b  20 20 20 20 20 62 69 74  |.(. ;{n+     bit|
00001580  31 30 3d 72 65 70 6f 72  74 20 75 70 70 65 72 63  |10=report upperc|
00001590  61 73 65 20 6f 6e 0d 06  90 2e f4 20 3b 7b 6e 2b  |ase on..... ;{n+|
000015a0  20 20 20 20 20 62 69 74  31 31 3d 73 68 65 65 74  |     bit11=sheet|
000015b0  20 72 65 70 6f 72 74 20  75 70 70 65 72 63 61 73  | report uppercas|
000015c0  65 20 6f 6e 0d 06 9a 2b  f4 20 3b 7b 6e 2b 20 20  |e on...+. ;{n+  |
000015d0  20 20 20 62 69 74 31 32  3d 73 68 65 65 74 20 72  |   bit12=sheet r|
000015e0  65 70 6f 72 74 20 74 6f  74 61 6c 73 20 6f 6e 0d  |eport totals on.|
000015f0  06 a4 2b f4 20 3b 7b 6e  2b 20 20 20 20 20 62 69  |..+. ;{n+     bi|
00001600  74 31 33 3d 73 68 65 65  74 20 72 65 70 6f 72 74  |t13=sheet report|
00001610  20 74 69 74 6c 65 73 20  6f 6e 0d 06 ae 2b f4 20  | titles on...+. |
00001620  3b 7b 6e 2b 20 20 20 20  20 62 69 74 31 34 3d 73  |;{n+     bit14=s|
00001630  68 65 65 74 20 72 65 70  6f 72 74 20 64 61 73 68  |heet report dash|
00001640  65 73 20 6f 6e 0d 06 b8  32 f4 20 3b 7b 6e 2b 20  |es on...2. ;{n+ |
00001650  20 20 20 20 62 69 74 31  35 3d 77 6f 72 64 70 72  |    bit15=wordpr|
00001660  6f 20 6f 75 74 70 75 74  20 73 70 61 63 65 20 73  |o output space s|
00001670  74 72 69 70 70 65 64 0d  06 c2 2d f4 20 3b 7b 6e  |tripped...-. ;{n|
00001680  2b 20 20 20 20 20 62 69  74 31 36 3d 77 6f 72 64  |+     bit16=word|
00001690  70 72 6f 20 6f 75 74 70  75 74 20 75 70 70 65 72  |pro output upper|
000016a0  63 61 73 65 0d 06 cc 32  f4 20 3b 7b 6e 2b 20 20  |case...2. ;{n+  |
000016b0  20 20 20 62 69 74 31 37  3d 77 6f 72 64 70 72 6f  |   bit17=wordpro|
000016c0  20 6f 75 74 70 75 74 20  62 6c 61 6e 6b 20 73 74  | output blank st|
000016d0  72 69 70 70 65 64 0d 06  d6 2c f4 20 3b 7b 6e 2b  |ripped...,. ;{n+|
000016e0  20 20 20 20 20 62 69 74  31 38 3d 37 2d 62 69 74  |     bit18=7-bit|
000016f0  20 64 61 74 61 20 69 6e  20 74 68 69 73 20 66 69  | data in this fi|
00001700  6c 65 0d 06 e0 30 f4 20  3b 7b 6e 2b 20 20 20 20  |le...0. ;{n+    |
00001710  20 62 69 74 31 39 3d 70  61 67 65 64 20 72 65 70  | bit19=paged rep|
00001720  6f 72 74 20 2d 20 65 6a  65 63 74 20 62 65 66 6f  |ort - eject befo|
00001730  72 65 0d 06 ea 2f f4 20  3b 7b 6e 2b 20 20 20 20  |re.../. ;{n+    |
00001740  20 62 69 74 32 30 3d 20  20 22 20 20 20 20 20 22  | bit20=  "     "|
00001750  20 20 20 20 2d 20 65 6a  65 63 74 20 61 66 74 65  |    - eject afte|
00001760  72 0d 06 f4 30 f4 20 3b  7b 6e 2b 20 20 20 20 20  |r...0. ;{n+     |
00001770  62 69 74 32 31 3d 20 20  22 20 20 20 20 20 22 20  |bit21=  "     " |
00001780  20 20 20 2d 20 64 6f 75  62 6c 65 20 73 70 61 63  |   - double spac|
00001790  65 0d 06 fe 30 f4 20 3b  7b 6e 2b 20 20 20 20 20  |e...0. ;{n+     |
000017a0  62 69 74 32 32 3d 20 20  22 20 20 20 20 20 22 20  |bit22=  "     " |
000017b0  20 20 20 2d 20 74 6f 70  20 70 61 67 65 20 6e 6f  |   - top page no|
000017c0  73 0d 07 08 32 f4 20 3b  7b 6e 2b 20 20 20 20 20  |s...2. ;{n+     |
000017d0  62 69 74 32 33 3d 20 20  22 20 20 20 20 20 22 20  |bit23=  "     " |
000017e0  20 20 20 2d 20 62 6f 74  74 2e 20 70 61 67 65 20  |   - bott. page |
000017f0  6e 6f 73 0d 07 12 2e f4  20 3b 7b 6e 2b 20 20 20  |nos..... ;{n+   |
00001800  20 20 62 69 74 32 34 3d  20 20 22 20 20 20 20 20  |  bit24=  "     |
00001810  22 20 20 20 20 2d 20 70  72 69 6e 74 20 64 61 74  |"    - print dat|
00001820  65 0d 07 1c 37 f4 20 3b  7b 6e 2b 20 20 20 20 20  |e...7. ;{n+     |
00001830  62 69 74 32 35 3d 20 20  22 20 20 20 20 20 22 20  |bit25=  "     " |
00001840  20 20 20 2d 20 74 6f 74  61 6c 73 3a 20 50 61 67  |   - totals: Pag|
00001850  65 20 67 72 6f 75 70 73  0d 07 26 38 f4 20 3b 7b  |e groups..&8. ;{|
00001860  6e 2b 20 20 20 20 20 62  69 74 32 36 3d 20 20 22  |n+     bit26=  "|
00001870  20 20 20 20 20 22 20 20  20 20 2d 20 74 6f 74 61  |     "    - tota|
00001880  6c 73 3a 20 53 75 6d 6d  61 72 79 20 6f 6e 6c 79  |ls: Summary only|
00001890  0d 07 30 33 f4 20 3b 7b  6e 2b 20 20 20 20 20 62  |..03. ;{n+     b|
000018a0  69 74 32 37 3d 20 20 22  20 20 20 20 20 22 20 20  |it27=  "     "  |
000018b0  20 20 2d 20 6c 69 6e 6b  3a 20 64 75 70 6c 69 63  |  - link: duplic|
000018c0  61 74 65 0d 07 3a 31 f4  20 3b 7b 6e 2b 20 20 20  |ate..:1. ;{n+   |
000018d0  20 20 62 69 74 32 38 3d  20 20 22 20 20 20 20 20  |  bit28=  "     |
000018e0  22 20 20 20 20 2d 20 6c  69 6e 6b 3a 20 73 75 6d  |"    - link: sum|
000018f0  6d 61 72 79 0d 07 44 2e  f4 20 3b 7b 6e 20 20 20  |mary..D.. ;{n   |
00001900  20 20 20 62 69 74 32 39  3d 74 68 69 73 20 66 69  |   bit29=this fi|
00001910  6c 65 20 68 61 73 20 61  20 70 69 63 20 66 69 65  |le has a pic fie|
00001920  6c 64 0d 07 4e 32 f4 20  3b 7b 6e 2b 20 74 25 28  |ld..N2. ;{n+ t%(|
00001930  6d 61 78 66 25 2c 33 29  3d 67 6c 6f 62 61 6c 20  |maxf%,3)=global |
00001940  76 61 72 69 61 62 6c 65  73 20 66 6f 72 20 6d 61  |variables for ma|
00001950  63 72 6f 73 0d 07 58 25  f4 20 3b 7b 6e 2b 20 6f  |cros..X%. ;{n+ o|
00001960  24 28 6d 61 78 66 25 29  3d 73 6f 72 74 20 65 78  |$(maxf%)=sort ex|
00001970  70 72 65 73 73 69 6f 6e  73 0d 07 62 36 f4 20 3b  |pressions..b6. ;|
00001980  7b 6e 20 20 6f 78 24 28  6d 61 78 66 25 29 3d 73  |{n  ox$(maxf%)=s|
00001990  6f 72 74 20 65 78 70 72  65 73 73 69 6f 6e 73 20  |ort expressions |
000019a0  61 66 74 65 72 20 65 78  70 61 6e 73 69 6f 6e 0d  |after expansion.|
000019b0  07 6c 48 f4 20 3b 7b 6e  2b 20 6f 25 28 6d 61 78  |.lH. ;{n+ o%(max|
000019c0  66 25 2c 36 29 3d 73 6f  72 74 20 73 74 75 66 66  |f%,6)=sort stuff|
000019d0  20 28 69 6e 64 65 78 20  30 2c 62 69 74 20 30 3d  | (index 0,bit 0=|
000019e0  61 73 63 65 6e 64 2c 62  69 74 20 31 3d 75 70 70  |ascend,bit 1=upp|
000019f0  65 72 63 61 73 65 29 0d  07 76 3a f4 20 3b 7b 6e  |ercase)..v:. ;{n|
00001a00  2b 20 72 24 28 6d 61 78  66 25 29 3d 72 65 70 6f  |+ r$(maxf%)=repo|
00001a10  72 74 20 65 78 70 72 65  73 73 69 6f 6e 73 2c 20  |rt expressions, |
00001a20  6f 6c 64 20 73 74 79 6c  65 20 63 6f 6d 70 6c 65  |old style comple|
00001a30  78 0d 07 80 38 f4 20 3b  7b 6e 20 20 72 78 24 28  |x...8. ;{n  rx$(|
00001a40  6d 61 78 66 25 29 3d 72  65 70 6f 72 74 20 65 78  |maxf%)=report ex|
00001a50  70 72 65 73 73 69 6f 6e  73 20 61 66 74 65 72 20  |pressions after |
00001a60  65 78 70 61 6e 73 69 6f  6e 0d 07 8a 2e f4 20 3b  |expansion..... ;|
00001a70  7b 6e 2b 20 73 72 24 28  6d 61 78 66 25 29 3d 73  |{n+ sr$(maxf%)=s|
00001a80  69 6d 70 6c 65 20 72 65  70 6f 72 74 20 66 69 65  |imple report fie|
00001a90  6c 64 20 6c 69 73 74 0d  07 94 3f f4 20 3b 7b 6e  |ld list...?. ;{n|
00001aa0  20 20 73 72 78 24 28 6d  61 78 66 25 29 3d 73 69  |  srx$(maxf%)=si|
00001ab0  6d 70 6c 65 20 72 65 70  6f 72 74 20 66 69 65 6c  |mple report fiel|
00001ac0  64 20 6c 69 73 74 20 61  66 74 65 72 20 65 78 70  |d list after exp|
00001ad0  61 6e 73 69 6f 6e 0d 07  9e 37 f4 20 3b 7b 6e 20  |ansion...7. ;{n |
00001ae0  20 6c 25 28 6d 61 78 66  25 29 3d 6c 69 6e 6b 20  | l%(maxf%)=link |
00001af0  66 69 6c 65 2b 31 20 28  30 3d 6e 6f 6e 65 2c 20  |file+1 (0=none, |
00001b00  2d 76 65 3d 75 6e 6c 69  6e 6b 65 64 29 0d 07 a8  |-ve=unlinked)...|
00001b10  32 f4 20 3b 7b 6e 2b 20  6c 24 28 6d 61 78 66 25  |2. ;{n+ l$(maxf%|
00001b20  29 3d 6c 69 6e 6b 20 65  78 70 72 65 73 73 69 6f  |)=link expressio|
00001b30  6e 20 66 6f 72 20 74 68  69 73 20 66 69 6c 65 0d  |n for this file.|
00001b40  07 b2 44 f4 20 3b 7b 6e  2b 20 6c 78 24 28 6d 61  |..D. ;{n+ lx$(ma|
00001b50  78 66 25 29 3d 65 78 70  61 6e 64 65 64 20 6c 69  |xf%)=expanded li|
00001b60  6e 6b 20 65 78 70 72 65  73 73 69 6f 6e 2e 20 41  |nk expression. A|
00001b70  6c 73 6f 2c 20 6c 69 6e  6b 20 66 69 6c 65 20 6e  |lso, link file n|
00001b80  61 6d 65 0d 07 bc 1e f4  20 3b 7b 6e 2b 20 6c 6b  |ame..... ;{n+ lk|
00001b90  24 28 6d 61 78 66 25 29  3d 6c 69 6e 6b 20 6b 65  |$(maxf%)=link ke|
00001ba0  79 0d 07 c6 46 f4 20 3b  7b 6e 2b 20 6c 6c 25 28  |y...F. ;{n+ ll%(|
00001bb0  6d 61 78 66 25 2c 37 29  3d 6c 61 62 65 6c 73 20  |maxf%,7)=labels |
00001bc0  77 69 64 2f 6d 61 72 2f  67 61 70 2f 64 65 70 2f  |wid/mar/gap/dep/|
00001bd0  61 63 72 6f 73 73 2f 63  6f 70 69 65 73 2f 6c 65  |across/copies/le|
00001be0  61 64 2f 64 72 6f 70 0d  07 d0 37 f4 20 3b 7b 6e  |ad/drop...7. ;{n|
00001bf0  2b 20 6c 66 25 28 6d 61  78 66 25 2c 31 35 29 3d  |+ lf%(maxf%,15)=|
00001c00  6c 61 62 65 6c 20 6c 69  6e 65 20 66 6c 61 67 73  |label line flags|
00001c10  20 66 6f 72 20 31 36 20  6c 69 6e 65 73 3a 0d 07  | for 16 lines:..|
00001c20  da 2b f4 20 3b 7b 6e 20  20 20 20 20 20 20 20 20  |.+. ;{n         |
00001c30  62 69 74 73 20 30 2e 2e  31 20 3d 20 4c 2f 43 2f  |bits 0..1 = L/C/|
00001c40  52 20 4a 75 73 74 69 66  79 0d 07 e4 26 f4 20 3b  |R Justify...&. ;|
00001c50  7b 6e 20 20 20 20 20 20  20 20 20 62 69 74 73 20  |{n         bits |
00001c60  32 2e 2e 33 20 3d 20 46  6f 6e 74 20 4e 6f 2e 0d  |2..3 = Font No..|
00001c70  07 ee 29 f4 20 3b 7b 6e  20 20 20 20 20 20 20 20  |..). ;{n        |
00001c80  20 62 69 74 20 20 34 20  20 20 20 3d 20 53 70 61  | bit  4    = Spa|
00001c90  63 65 20 53 74 72 69 70  0d 07 f8 27 f4 20 3b 7b  |ce Strip...'. ;{|
00001ca0  6e 20 20 20 20 20 20 20  20 20 62 69 74 20 20 35  |n         bit  5|
00001cb0  20 20 20 20 3d 20 55 70  70 65 72 63 61 73 65 0d  |    = Uppercase.|
00001cc0  08 02 23 f4 20 3b 7b 6e  20 20 20 20 20 20 20 20  |..#. ;{n        |
00001cd0  20 62 69 74 20 20 36 20  20 20 20 3d 20 66 69 78  | bit  6    = fix|
00001ce0  65 64 0d 08 0c 38 f4 20  3b 7b 6e 20 20 6c 31 25  |ed...8. ;{n  l1%|
00001cf0  28 6d 61 78 66 25 2c 6d  61 78 61 63 72 25 2d 31  |(maxf%,maxacr%-1|
00001d00  29 3d 6c 69 6e 65 20 70  6f 69 6e 74 65 72 73 20  |)=line pointers |
00001d10  66 6f 72 20 6c 61 62 65  6c 73 0d 08 16 3a f4 20  |for labels...:. |
00001d20  3b 7b 6e 2b 20 70 25 28  6d 61 78 66 25 2c 34 29  |;{n+ p%(maxf%,4)|
00001d30  3d 70 61 67 65 64 20 72  65 70 2e 20 70 77 69 64  |=paged rep. pwid|
00001d40  2f 6d 61 72 67 2f 74 77  69 64 2f 74 6c 65 6e 2f  |/marg/twid/tlen/|
00001d50  70 6c 65 6e 0d 08 20 4a  f4 20 3b 7b 6e 2b 20 70  |plen.. J. ;{n+ p|
00001d60  24 28 6d 61 78 66 25 2c  37 29 3d 70 61 67 65 64  |$(maxf%,7)=paged|
00001d70  20 72 65 70 2e 20 34 2a  68 65 61 64 65 72 2c 73  | rep. 4*header,s|
00001d80  75 62 74 6f 74 2c 73 75  62 68 65 61 64 2c 73 73  |ubtot,subhead,ss|
00001d90  75 62 74 6f 74 2c 73 73  75 62 68 65 61 64 0d 08  |ubtot,ssubhead..|
00001da0  2a 3c f4 20 3b 7b 6e 2b  20 63 24 28 6d 61 78 66  |*<. ;{n+ c$(maxf|
00001db0  25 2c 6d 61 78 63 6f 6c  25 2c 31 29 3d 70 61 67  |%,maxcol%,1)=pag|
00001dc0  65 64 20 72 65 70 2e 20  63 6f 6c 20 65 78 70 72  |ed rep. col expr|
00001dd0  73 2c 20 68 65 61 64 65  72 73 0d 08 34 33 f4 20  |s, headers..43. |
00001de0  3b 7b 6e 2b 20 63 25 28  6d 61 78 66 25 2c 6d 61  |;{n+ c%(maxf%,ma|
00001df0  78 63 6f 6c 25 29 3d 70  61 67 65 64 20 72 65 70  |xcol%)=paged rep|
00001e00  20 63 6f 6c 20 66 6f 72  6d 61 74 73 3a 0d 08 3e  | col formats:..>|
00001e10  27 f4 20 3b 7b 6e 20 20  20 20 20 20 20 20 20 62  |'. ;{n         b|
00001e20  69 74 20 30 30 2d 30 37  20 3d 20 43 6f 6c 20 77  |it 00-07 = Col w|
00001e30  69 64 74 68 0d 08 48 43  f4 20 3b 7b 6e 20 20 20  |idth..HC. ;{n   |
00001e40  20 20 20 20 20 20 62 69  74 20 30 38 2d 30 39 20  |      bit 08-09 |
00001e50  3d 20 4a 75 73 74 69 66  69 63 61 74 69 6f 6e 20  |= Justification |
00001e60  30 2f 31 2f 32 3d 4c 65  66 74 2f 43 65 6e 74 72  |0/1/2=Left/Centr|
00001e70  65 2f 52 69 67 68 74 0d  08 52 29 f4 20 3b 7b 6e  |e/Right..R). ;{n|
00001e80  20 20 20 20 20 20 20 20  20 62 69 74 20 31 30 2d  |         bit 10-|
00001e90  31 31 20 3d 20 46 6f 6e  74 20 6e 75 6d 62 65 72  |11 = Font number|
00001ea0  0d 08 5c 27 f4 20 3b 7b  6e 20 20 20 20 20 20 20  |..\'. ;{n       |
00001eb0  20 20 62 69 74 20 31 32  20 20 20 20 3d 20 55 70  |  bit 12    = Up|
00001ec0  70 65 72 63 61 73 65 0d  08 66 29 f4 20 3b 7b 6e  |percase..f). ;{n|
00001ed0  20 20 20 20 20 20 20 20  20 62 69 74 20 31 33 20  |         bit 13 |
00001ee0  20 20 20 3d 20 53 70 61  63 65 20 73 74 72 69 70  |   = Space strip|
00001ef0  0d 08 70 37 f4 20 3b 7b  6e 20 20 20 20 20 20 20  |..p7. ;{n       |
00001f00  20 20 62 69 74 20 31 34  2d 31 36 20 3d 20 64 65  |  bit 14-16 = de|
00001f10  63 69 6d 61 6c 20 70 6c  61 63 65 73 20 28 37 3d  |cimal places (7=|
00001f20  73 74 72 69 6e 67 29 0d  08 7a 27 f4 20 3b 7b 6e  |string)..z'. ;{n|
00001f30  20 20 20 20 20 20 20 20  20 62 69 74 20 31 37 20  |         bit 17 |
00001f40  20 20 20 3d 20 74 6f 74  61 6c 73 20 6f 6e 0d 08  |   = totals on..|
00001f50  84 29 f4 20 3b 7b 6e 20  20 20 20 20 20 20 20 20  |.). ;{n         |
00001f60  62 69 74 20 31 38 20 20  20 20 3d 20 61 76 65 72  |bit 18    = aver|
00001f70  61 67 65 73 20 6f 6e 0d  08 8e 2a f4 20 3b 7b 6e  |ages on...*. ;{n|
00001f80  20 20 20 20 20 20 20 20  20 62 69 74 20 31 39 20  |         bit 19 |
00001f90  20 20 20 3d 20 62 6c 61  6e 6b 20 7a 65 72 6f 65  |   = blank zeroe|
00001fa0  73 0d 08 98 2b f4 20 3b  7b 6e 20 20 20 20 20 20  |s...+. ;{n      |
00001fb0  20 20 20 62 69 74 20 32  30 20 20 20 20 3d 20 69  |   bit 20    = i|
00001fc0  6e 73 65 72 74 20 63 6f  6d 6d 61 73 0d 08 a2 3e  |nsert commas...>|
00001fd0  f4 20 3b 7b 6e 20 20 20  20 20 20 20 20 20 62 69  |. ;{n         bi|
00001fe0  74 20 32 31 2d 32 33 20  3d 20 66 6f 72 6d 61 74  |t 21-23 = format|
00001ff0  20 28 30 2d 37 29 20 53  2f 28 2d 2f 62 2d 2f 62  | (0-7) S/(-/b-/b|
00002000  2b 2f 2d 41 2f 2a 2f 60  2f 24 0d 08 ac 46 f4 20  |+/-A/*/`/$...F. |
00002010  3b 7b 6e 20 20 63 74 28  6d 61 78 63 6f 6c 25 2c  |;{n  ct(maxcol%,|
00002020  32 29 3d 70 61 67 65 64  20 72 65 70 20 63 6f 6c  |2)=paged rep col|
00002030  20 74 6f 74 73 2c 73 75  62 74 6f 74 73 2c 73 75  | tots,subtots,su|
00002040  62 73 75 62 74 6f 74 73  2c 73 75 6d 6d 61 72 79  |bsubtots,summary|
00002050  0d 08 b6 43 f4 20 3b 7b  6e 20 20 63 74 25 28 6d  |...C. ;{n  ct%(m|
00002060  61 78 63 6f 6c 25 2c 32  29 3d 70 61 67 65 64 20  |axcol%,2)=paged |
00002070  72 65 70 20 63 6f 6c 20  74 6f 74 73 20 65 6e 74  |rep col tots ent|
00002080  72 79 20 63 6f 75 6e 74  73 20 28 66 6f 72 20 61  |ry counts (for a|
00002090  76 67 29 0d 08 c0 44 f4  20 3b 7b 6e 20 20 63 76  |vg)...D. ;{n  cv|
000020a0  24 28 6d 61 78 63 6f 6c  25 2c 31 29 3d 70 61 67  |$(maxcol%,1)=pag|
000020b0  65 64 20 72 65 70 20 63  6f 6c 75 6d 6e 20 76 61  |ed rep column va|
000020c0  6c 75 65 73 2c 20 70 72  65 76 69 6f 75 73 20 63  |lues, previous c|
000020d0  6f 6c 20 76 61 6c 73 0d  08 ca 2f f4 20 3b 7b 6e  |ol vals.../. ;{n|
000020e0  20 20 72 6c 25 28 6d 61  78 66 25 29 3d 6c 69 6e  |  rl%(maxf%)=lin|
000020f0  6b 20 6d 61 70 20 66 6f  72 20 70 61 67 65 64 20  |k map for paged |
00002100  72 65 70 6f 72 74 0d 08  d4 33 f4 20 3b 7b 6e 20  |report...3. ;{n |
00002110  20 72 73 25 28 6d 61 78  66 25 2a 32 29 3d 6c 69  | rs%(maxf%*2)=li|
00002120  6e 6b 20 73 74 61 63 6b  20 66 6f 72 20 70 61 67  |nk stack for pag|
00002130  65 64 20 72 65 70 6f 72  74 0d 08 de 26 f4 20 3b  |ed report...&. ;|
00002140  7b 6e 20 20 6d 24 28 6d  61 78 66 25 29 3d 73 65  |{n  m$(maxf%)=se|
00002150  61 72 63 68 20 6d 6f 64  65 20 66 6c 61 67 73 0d  |arch mode flags.|
00002160  08 e8 22 f4 20 3b 7b 6e  2b 20 73 74 25 28 6d 61  |..". ;{n+ st%(ma|
00002170  78 66 25 2c 32 29 3d 66  69 6c 65 20 73 74 61 74  |xf%,2)=file stat|
00002180  73 0d 08 f2 09 f4 20 3b  7b 6e 0d 08 fc 2e f4 20  |s..... ;{n..... |
00002190  3b 7b 6e 20 20 20 20 6d  61 78 66 25 20 20 20 3d  |;{n    maxf%   =|
000021a0  20 6d 61 78 20 61 72 72  61 79 20 69 6e 64 65 78  | max array index|
000021b0  20 28 66 69 6c 65 73 29  0d 09 06 2c f4 20 3b 7b  | (files)...,. ;{|
000021c0  6e 20 20 20 20 6d 61 78  61 63 72 25 20 3d 20 6d  |n    maxacr% = m|
000021d0  61 78 20 6c 61 62 65 6c  73 20 61 63 72 6f 73 73  |ax labels across|
000021e0  20 77 65 62 0d 09 10 3d  f4 20 3b 7b 6e 20 20 20  | web...=. ;{n   |
000021f0  20 6d 61 78 63 6f 6c 25  20 3d 20 6d 61 78 20 61  | maxcol% = max a|
00002200  72 72 61 79 20 69 6e 64  65 78 20 28 70 61 67 65  |rray index (page|
00002210  64 20 72 65 70 6f 72 74  20 63 6f 6c 75 6d 6e 73  |d report columns|
00002220  29 0d 09 1a 09 f4 20 3b  7b 6e 0d 09 24 16 ea 85  |)..... ;{n..$...|
00002230  3a ee 85 ea 3a f7 85 3a  f2 65 72 72 28 36 37 29  |:...:..:.err(67)|
00002240  0d 09 2e 38 de 20 68 25  28 6d 61 78 66 25 29 2c  |...8. h%(maxf%),|
00002250  66 25 28 6d 61 78 66 25  29 2c 73 25 28 6d 61 78  |f%(maxf%),s%(max|
00002260  66 25 29 2c 73 24 28 6d  61 78 66 25 29 2c 66 63  |f%),s$(maxf%),fc|
00002270  25 28 6d 61 78 66 25 29  0d 09 38 48 de 20 66 6c  |%(maxf%)..8H. fl|
00002280  25 28 6d 61 78 66 25 29  2c 61 25 28 6d 61 78 66  |%(maxf%),a%(maxf|
00002290  25 29 2c 64 24 28 6d 61  78 66 25 2c 32 33 29 2c  |%),d$(maxf%,23),|
000022a0  66 24 28 6d 61 78 66 25  29 2c 66 78 24 28 6d 61  |f$(maxf%),fx$(ma|
000022b0  78 66 25 29 2c 74 25 28  6d 61 78 66 25 2c 33 29  |xf%),t%(maxf%,3)|
000022c0  0d 09 42 47 de 20 65 24  28 6d 61 78 66 25 29 2c  |..BG. e$(maxf%),|
000022d0  65 78 24 28 6d 61 78 66  25 29 2c 65 25 28 6d 61  |ex$(maxf%),e%(ma|
000022e0  78 66 25 2c 32 29 2c 72  25 28 6d 61 78 66 25 29  |xf%,2),r%(maxf%)|
000022f0  2c 6d 24 28 6d 61 78 66  25 29 2c 73 74 25 28 6d  |,m$(maxf%),st%(m|
00002300  61 78 66 25 2c 32 29 0d  09 4c 46 de 20 6f 24 28  |axf%,2)..LF. o$(|
00002310  6d 61 78 66 25 29 2c 6f  78 24 28 6d 61 78 66 25  |maxf%),ox$(maxf%|
00002320  29 2c 6f 25 28 6d 61 78  66 25 2c 36 29 2c 72 24  |),o%(maxf%,6),r$|
00002330  28 6d 61 78 66 25 29 2c  72 78 24 28 6d 61 78 66  |(maxf%),rx$(maxf|
00002340  25 29 2c 66 6e 24 28 6d  61 78 66 25 29 0d 09 56  |%),fn$(maxf%)..V|
00002350  47 de 20 6c 25 28 6d 61  78 66 25 29 2c 6c 24 28  |G. l%(maxf%),l$(|
00002360  6d 61 78 66 25 29 2c 6c  78 24 28 6d 61 78 66 25  |maxf%),lx$(maxf%|
00002370  29 2c 6c 6b 24 28 6d 61  78 66 25 29 2c 72 6c 25  |),lk$(maxf%),rl%|
00002380  28 6d 61 78 66 25 29 2c  72 73 25 28 6d 61 78 66  |(maxf%),rs%(maxf|
00002390  25 2a 32 29 0d 09 60 4c  de 20 73 72 24 28 6d 61  |%*2)..`L. sr$(ma|
000023a0  78 66 25 29 2c 73 72 78  24 28 6d 61 78 66 25 29  |xf%),srx$(maxf%)|
000023b0  2c 6c 6c 25 28 6d 61 78  66 25 2c 37 29 2c 6c 66  |,ll%(maxf%,7),lf|
000023c0  25 28 6d 61 78 66 25 2c  31 35 29 2c 6c 31 25 28  |%(maxf%,15),l1%(|
000023d0  6d 61 78 66 25 2c 6d 61  78 61 63 72 25 2d 31 29  |maxf%,maxacr%-1)|
000023e0  0d 09 6a 47 de 20 77 24  28 6d 61 78 66 25 2c 31  |..jG. w$(maxf%,1|
000023f0  34 29 2c 77 6f 25 28 6d  61 78 66 25 29 2c 70 25  |4),wo%(maxf%),p%|
00002400  28 6d 61 78 66 25 2c 34  29 2c 70 24 28 6d 61 78  |(maxf%,4),p$(max|
00002410  66 25 2c 37 29 2c 63 25  28 6d 61 78 66 25 2c 6d  |f%,7),c%(maxf%,m|
00002420  61 78 63 6f 6c 25 29 0d  09 74 45 de 20 63 24 28  |axcol%)..tE. c$(|
00002430  6d 61 78 66 25 2c 6d 61  78 63 6f 6c 25 2c 31 29  |maxf%,maxcol%,1)|
00002440  2c 63 74 28 6d 61 78 63  6f 6c 25 2c 33 29 2c 63  |,ct(maxcol%,3),c|
00002450  74 25 28 6d 61 78 63 6f  6c 25 2c 33 29 2c 63 76  |t%(maxcol%,3),cv|
00002460  24 28 6d 61 78 63 6f 6c  25 2c 31 29 0d 09 7e 06  |$(maxcol%,1)..~.|
00002470  f7 85 0d 09 88 3b 66 5f  66 69 6c 74 25 3d 31 3c  |.....;f_filt%=1<|
00002480  3c 30 30 3a 66 5f 70 61  6e 65 25 3d 31 3c 3c 30  |<00:f_pane%=1<<0|
00002490  31 3a 66 5f 6d 61 63 62  25 3d 31 3c 3c 30 32 3a  |1:f_macb%=1<<02:|
000024a0  66 5f 6d 61 63 65 25 3d  31 3c 3c 30 33 0d 09 92  |f_mace%=1<<03...|
000024b0  3b 66 5f 66 73 70 63 25  3d 31 3c 3c 30 34 3a 66  |;f_fspc%=1<<04:f|
000024c0  5f 66 75 70 70 25 3d 31  3c 3c 30 35 3a 66 5f 73  |_fupp%=1<<05:f_s|
000024d0  73 70 63 25 3d 31 3c 3c  30 36 3a 66 5f 73 75 70  |spc%=1<<06:f_sup|
000024e0  70 25 3d 31 3c 3c 30 37  0d 09 9c 3b 66 5f 73 61  |p%=1<<07...;f_sa|
000024f0  64 64 25 3d 31 3c 3c 30  38 3a 66 5f 72 73 70 63  |dd%=1<<08:f_rspc|
00002500  25 3d 31 3c 3c 30 39 3a  66 5f 72 75 70 70 25 3d  |%=1<<09:f_rupp%=|
00002510  31 3c 3c 31 30 3a 66 5f  73 72 75 70 25 3d 31 3c  |1<<10:f_srup%=1<|
00002520  3c 31 31 0d 09 a6 3b 66  5f 73 74 6f 74 25 3d 31  |<11...;f_stot%=1|
00002530  3c 3c 31 32 3a 66 5f 73  74 69 74 25 3d 31 3c 3c  |<<12:f_stit%=1<<|
00002540  31 33 3a 66 5f 73 64 61  73 25 3d 31 3c 3c 31 34  |13:f_sdas%=1<<14|
00002550  3a 66 5f 77 73 70 63 25  3d 31 3c 3c 31 35 0d 09  |:f_wspc%=1<<15..|
00002560  b0 3b 66 5f 77 75 70 70  25 3d 31 3c 3c 31 36 3a  |.;f_wupp%=1<<16:|
00002570  66 5f 77 62 6e 6b 25 3d  31 3c 3c 31 37 3a 66 5f  |f_wbnk%=1<<17:f_|
00002580  37 62 69 74 25 3d 31 3c  3c 31 38 3a 66 5f 72 65  |7bit%=1<<18:f_re|
00002590  6a 62 25 3d 31 3c 3c 31  39 0d 09 ba 3b 66 5f 72  |jb%=1<<19...;f_r|
000025a0  65 6a 61 25 3d 31 3c 3c  32 30 3a 66 5f 72 64 73  |eja%=1<<20:f_rds|
000025b0  70 25 3d 31 3c 3c 32 31  3a 66 5f 72 74 70 6e 25  |p%=1<<21:f_rtpn%|
000025c0  3d 31 3c 3c 32 32 3a 66  5f 72 62 70 6e 25 3d 31  |=1<<22:f_rbpn%=1|
000025d0  3c 3c 32 33 0d 09 c4 3b  66 5f 72 70 64 74 25 3d  |<<23...;f_rpdt%=|
000025e0  31 3c 3c 32 34 3a 66 5f  72 74 70 67 25 3d 31 3c  |1<<24:f_rtpg%=1<|
000025f0  3c 32 35 3a 66 5f 72 74  73 75 25 3d 31 3c 3c 32  |<25:f_rtsu%=1<<2|
00002600  36 3a 66 5f 72 6c 64 75  25 3d 31 3c 3c 32 37 0d  |6:f_rldu%=1<<27.|
00002610  09 ce 1f 66 5f 72 6c 73  75 25 3d 31 3c 3c 32 38  |...f_rlsu%=1<<28|
00002620  3a 66 5f 70 69 63 73 25  3d 31 3c 3c 32 39 0d 09  |:f_pics%=1<<29..|
00002630  d8 5b 66 5f 72 65 70 73  25 3d 66 5f 72 6c 64 75  |.[f_reps%=f_rldu|
00002640  25 84 66 5f 72 6c 73 75  25 84 66 5f 72 65 6a 62  |%.f_rlsu%.f_rejb|
00002650  25 84 66 5f 72 65 6a 61  25 84 66 5f 72 64 73 70  |%.f_reja%.f_rdsp|
00002660  25 84 66 5f 72 74 70 6e  25 84 66 5f 72 62 70 6e  |%.f_rtpn%.f_rbpn|
00002670  25 84 66 5f 72 70 64 74  25 84 66 5f 72 74 70 67  |%.f_rpdt%.f_rtpg|
00002680  25 84 66 5f 72 74 73 75  25 0d 09 e2 21 66 5f 73  |%.f_rtsu%...!f_s|
00002690  61 76 65 25 3d 2d 31 80  ac 28 66 5f 70 61 6e 65  |ave%=-1..(f_pane|
000026a0  25 84 66 5f 73 61 64 64  25 29 0d 09 ec 4b 66 5f  |%.f_sadd%)...Kf_|
000026b0  64 66 6c 74 25 3d 66 5f  66 73 70 63 25 84 66 5f  |dflt%=f_fspc%.f_|
000026c0  66 75 70 70 25 84 66 5f  73 73 70 63 25 84 66 5f  |fupp%.f_sspc%.f_|
000026d0  73 75 70 70 25 84 66 5f  73 74 6f 74 25 84 66 5f  |supp%.f_stot%.f_|
000026e0  73 74 69 74 25 84 66 5f  73 64 61 73 25 84 66 5f  |stit%.f_sdas%.f_|
000026f0  77 73 70 63 25 0d 09 f6  27 66 74 5f 66 6f 72 6d  |wspc%...'ft_form|
00002700  25 3d 26 44 45 37 3a 66  74 5f 64 61 74 61 25 3d  |%=&DE7:ft_data%=|
00002710  26 44 45 38 3a 6d 61 78  77 25 3d 37 0d 0a 00 05  |&DE8:maxw%=7....|
00002720  e1 0d 0a 0a 04 0d 0a 14  0c dd f2 73 64 76 61 72  |...........sdvar|
00002730  73 0d 0a 1e 1c c8 99 73  77 69 25 2c 73 64 36 34  |s......swi%,sd64|
00002740  5f 25 2c 33 b8 6c 69 6e  65 67 61 70 25 0d 0a 28  |_%,3.linegap%..(|
00002750  1f 6d 61 72 67 69 6e 25  3d 38 3a e7 a4 76 5f 28  |.margin%=8:..v_(|
00002760  31 29 3d 31 3a f2 65 72  72 28 33 29 0d 0a 32 2b  |1)=1:.err(3)..2+|
00002770  e7 73 6f 75 6e 64 25 3a  c8 99 73 77 69 25 2c 6f  |.sound%:..swi%,o|
00002780  70 74 5f 25 2c 31 30 3a  8b c8 99 73 77 69 25 2c  |pt_%,10:...swi%,|
00002790  6f 70 74 5f 25 2c 39 0d  0a 3c 38 64 61 74 65 25  |opt_%,9..<8date%|
000027a0  3d a4 6e 79 65 61 72 28  a4 6e 6f 77 29 2a 31 30  |=.nyear(.now)*10|
000027b0  30 30 30 2b a4 6e 6d 6f  6e 28 a4 6e 6f 77 29 2a  |000+.nmon(.now)*|
000027c0  31 30 30 2b a4 6e 64 61  79 28 a4 6e 6f 77 29 0d  |100+.nday(.now).|
000027d0  0a 46 05 e1 0d 0a 50 04  0d 0a 5a 29 dd f2 63 68  |.F....P...Z)..ch|
000027e0  65 63 6b 70 72 6f 74 3a  c8 99 22 46 6c 65 78 69  |eckprot:.."Flexi|
000027f0  46 69 6c 65 5f 41 64 64  72 65 73 73 22 b8 73 64  |File_Address".sd|
00002800  25 0d 0a 64 17 ea 85 3a  ee 85 ea 3a 70 72 6f 63  |%..d...:...:proc|
00002810  65 73 73 25 3d 32 3a e1  0d 0a 6e 1e c8 99 73 77  |ess%=2:...n...sw|
00002820  69 25 2c 72 65 73 65 74  5f 25 2c 74 61 73 6b 68  |i%,reset_%,taskh|
00002830  61 6e 64 6c 65 25 0d 0a  78 57 e7 70 72 6f 63 65  |andle%..xW.proce|
00002840  73 73 25 3d 33 f2 73 74  6f 70 28 31 2c 22 4f 4b  |ss%=3.stop(1,"OK|
00002850  2e 20 50 6c 65 61 73 65  20 72 65 6d 6f 76 65 20  |. Please remove |
00002860  6f 72 69 67 69 6e 61 6c  20 26 22 2c 22 72 65 70  |original &","rep|
00002870  6c 61 63 65 20 62 61 63  6b 75 70 20 69 66 20 6e  |lace backup if n|
00002880  65 63 65 73 73 61 72 79  22 2c 2d 31 29 0d 0a 82  |ecessary",-1)...|
00002890  30 64 61 74 65 24 3d a4  73 74 72 64 61 74 65 31  |0date$=.strdate1|
000028a0  28 a4 6e 6f 77 2c 34 29  3a f2 73 64 76 61 72 73  |(.now,4):.sdvars|
000028b0  3a 70 72 6f 63 65 73 73  25 3d 34 3a e1 0d 0a 8c  |:process%=4:....|
000028c0  04 0d 0a 96 0d dd f2 76  65 72 73 69 6f 6e 0d 0a  |.......version..|
000028d0  a0 2f ea 54 24 3a 54 24  3d 76 65 72 73 69 6f 6e  |./.T$:T$=version|
000028e0  24 3a e7 ac a4 70 72 6f  64 3a 54 24 2b 3d 22 20  |$:...prod:T$+=" |
000028f0  2a 55 4e 46 49 4e 49 53  48 45 44 2a 22 0d 0a aa  |*UNFINISHED*"...|
00002900  38 f2 73 65 74 69 28 77  5f 70 69 6e 66 6f 25 2c  |8.seti(w_pinfo%,|
00002910  34 2c 22 76 22 2b 54 24  29 3a 24 a4 74 69 61 28  |4,"v"+T$):$.tia(|
00002920  74 77 5f 73 74 61 74 75  73 25 2c 31 31 29 3d 22  |tw_status%,11)="|
00002930  76 22 2b 54 24 0d 0a b4  05 e1 0d 0a be 04 0d 0a  |v"+T$...........|
00002940  c8 2c dd a4 70 72 6f 64  3d c1 76 65 72 73 69 6f  |.,..prod=.versio|
00002950  6e 24 2c a7 76 65 72 73  69 6f 6e 24 2c 22 2e 22  |n$,.version$,"."|
00002960  29 2b 31 2c 31 29 3d 22  30 22 0d 0a d2 1b dd a4  |)+1,1)="0"......|
00002970  64 65 62 75 67 3d ac a4  70 72 6f 64 20 80 a6 2d  |debug=..prod ..-|
00002980  31 80 a6 2d 32 0d 0a dc  04 0d 0a e6 3e dd a4 69  |1..-2.......>..i|
00002990  6e 69 74 77 69 6d 70 3a  66 69 72 73 74 25 3d a3  |nitwimp:first%=.|
000029a0  3a 74 61 73 6b 68 61 6e  64 6c 65 25 3d a4 74 61  |:taskhandle%=.ta|
000029b0  73 6b 3a e7 74 61 73 6b  68 61 6e 64 6c 65 25 3c  |sk:.taskhandle%<|
000029c0  3e 30 3a 3d 32 30 30 0d  0a f0 47 24 71 25 3d 22  |>0:=200...G$q%="|
000029d0  54 41 53 4b 22 3a c8 99  22 57 69 6d 70 5f 49 6e  |TASK":.."Wimp_In|
000029e0  69 74 69 61 6c 69 73 65  22 2c 32 30 30 2c 21 71  |itialise",200,!q|
000029f0  25 2c 22 4d 75 6c 74 69  53 74 6f 72 65 22 b8 21  |%,"MultiStore".!|
00002a00  71 25 2c 74 61 73 6b 68  61 6e 64 6c 65 25 0d 0a  |q%,taskhandle%..|
00002a10  fa 11 66 69 72 73 74 25  3d b9 3a 3d 21 71 25 0d  |..first%=.:=!q%.|
00002a20  0b 04 04 0d 0b 0e 0a dd  f2 74 69 64 79 0d 0b 18  |.........tidy...|
00002a30  11 ea 85 3a f2 6e 6f 72  6d 70 6f 69 6e 74 0d 0b  |...:.normpoint..|
00002a40  22 16 ef 34 2c 32 36 3a  f1 8a 30 2c 33 29 3b 3a  |"..4,26:..0,3);:|
00002a50  2a 66 78 34 0d 0b 2c 0c  2a 66 78 32 32 35 2c 31  |*fx4..,.*fx225,1|
00002a60  0d 0b 36 0a 2a 66 78 32  32 39 0d 0b 40 1a 5a 25  |..6.*fx229..@.Z%|
00002a70  3d 30 3a c8 99 73 77 69  25 2c 6b 69 6c 6c 74 61  |=0:..swi%,killta|
00002a80  73 6b 5f 25 0d 0b 4a 09  ee 85 ea 3a e1 0d 0b 54  |sk_%..J....:...T|
00002a90  2b f1 3b 6d 65 6e 75 65  6e 64 25 2d 6d 65 6e 75  |+.;menuend%-menu|
00002aa0  66 72 65 65 25 22 20 62  79 74 65 73 20 6d 65 6e  |free%" bytes men|
00002ab0  75 20 73 70 61 63 65 22  0d 0b 5e 36 f1 3b 65 6e  |u space"..^6.;en|
00002ac0  64 62 75 66 25 2d 63 75  72 62 75 66 25 22 20 62  |dbuf%-curbuf%" b|
00002ad0  79 74 65 73 20 69 6e 64  69 72 65 63 74 69 6f 6e  |ytes indirection|
00002ae0  20 62 75 66 66 65 72 20  73 70 61 63 65 22 0d 0b  | buffer space"..|
00002af0  68 27 f1 3b 74 62 65 25  2d 74 62 73 25 22 20 62  |h'.;tbe%-tbs%" b|
00002b00  79 74 65 73 20 74 65 6d  70 6c 61 74 65 20 62 75  |ytes template bu|
00002b10  66 66 65 72 22 0d 0b 72  05 e1 0d 0b 7c 04 0d 0b  |ffer"..r....|...|
00002b20  86 18 dd f2 62 61 72 69  63 6f 6e 3a e7 ac 66 69  |....baricon:..fi|
00002b30  72 73 74 25 3a e1 0d 0b  90 2b 21 71 25 3d 2d 31  |rst%:....+!q%=-1|
00002b40  3a 71 25 21 34 3d 30 3a  71 25 21 38 3d 30 3a 71  |:q%!4=0:q%!8=0:q|
00002b50  25 21 31 32 3d 31 30 32  3a 71 25 21 31 36 3d 36  |%!12=102:q%!16=6|
00002b60  38 0d 0b 9a 30 71 25 21  32 30 3d 25 31 31 30 30  |8...0q%!20=%1100|
00002b70  30 30 30 30 30 30 30 30  31 30 3a 24 28 71 25 2b  |0000000010:$(q%+|
00002b80  32 34 29 3d 22 21 22 2b  c0 61 70 70 6c 24 2c 39  |24)="!"+.appl$,9|
00002b90  29 0d 0b a4 24 c8 99 22  57 69 6d 70 5f 43 72 65  |)...$.."Wimp_Cre|
00002ba0  61 74 65 49 63 6f 6e 22  2c 2c 71 25 b8 62 61 72  |ateIcon",,q%.bar|
00002bb0  69 63 6f 6e 25 0d 0b ae  05 e1 0d 0b b8 04 0d 0b  |icon%...........|
00002bc0  c2 11 dd f2 73 74 72 69  70 28 f8 20 54 24 29 0d  |....strip(. T$).|
00002bd0  0b cc 1a 24 73 64 25 3d  54 24 3a c8 99 73 77 69  |...$sd%=T$:..swi|
00002be0  25 2c 73 74 72 69 70 5f  25 0d 0b d6 0b 54 24 3d  |%,strip_%....T$=|
00002bf0  24 73 64 25 0d 0b e0 05  e1 0d 0b ea 04 0d 0b f4  |$sd%............|
00002c00  21 dd f2 65 72 72 6f 72  28 65 72 72 25 2c 65 72  |!..error(err%,er|
00002c10  72 24 2c 65 72 6c 25 2c  71 75 69 74 25 29 0d 0b  |r$,erl%,quit%)..|
00002c20  fe 2a e7 a4 64 65 62 75  67 3a ef 34 2c 33 30 3a  |.*..debug:.4,30:|
00002c30  f1 65 72 72 24 22 20 40  20 22 3b 65 72 6c 25 3a  |.err$" @ ";erl%:|
00002c40  f2 71 75 69 74 28 b9 29  0d 0c 08 2e f2 6e 6f 72  |.quit(.).....nor|
00002c50  6d 70 6f 69 6e 74 3a 64  72 61 67 72 65 61 73 6f  |mpoint:dragreaso|
00002c60  6e 25 3d 2d 31 3a 40 25  3d 26 39 30 41 3a 2a 66  |n%=-1:@%=&90A:*f|
00002c70  78 32 32 39 2c 31 0d 0c  12 10 ea 69 25 2c 65 25  |x229,1.....i%,e%|
00002c80  2c 74 24 2c 54 24 0d 0c  1c 1d e7 ac a4 70 72 6f  |,t$,T$.......pro|
00002c90  64 3a 65 72 72 24 2b 3d  22 20 28 22 2b c3 9e 2b  |d:err$+=" ("+..+|
00002ca0  22 29 22 0d 0c 26 06 ea  85 0d 0c 30 18 ee 85 ea  |")"..&.....0....|
00002cb0  3a f2 65 72 72 6f 72 28  9f 2c f6 24 2c 9e 2c b9  |:.error(.,.$,.,.|
00002cc0  29 0d 0c 3a 42 21 71 25  3d 65 72 72 25 3a 24 28  |)..:B!q%=err%:$(|
00002cd0  71 25 2b 34 29 3d 65 72  72 24 3a c8 99 22 57 69  |q%+4)=err$:.."Wi|
00002ce0  6d 70 5f 52 65 70 6f 72  74 45 72 72 6f 72 22 2c  |mp_ReportError",|
00002cf0  71 25 2c 31 2c 61 70 70  6c 24 3a 6c 69 6e 65 24  |q%,1,appl$:line$|
00002d00  3d 22 22 0d 0c 44 13 e7  71 75 69 74 25 3a f2 71  |=""..D..quit%:.q|
00002d10  75 69 74 28 a3 29 0d 0c  4e 05 e1 0d 0c 58 04 0d  |uit(.)..N....X..|
00002d20  0c 62 2b dd f2 72 65 70  6f 72 74 3a e7 a4 64 65  |.b+..report:..de|
00002d30  62 75 67 3a ef 34 3a f6  3a f1 22 20 40 20 22 3b  |bug:.4:.:." @ ";|
00002d40  9e 3a f2 71 75 69 74 28  b9 29 0d 0c 6c 05 e1 0d  |.:.quit(.)..l...|
00002d50  0c 76 04 0d 0c 80 09 dd  a4 64 69 72 0d 0c 8a 20  |.v.......dir... |
00002d60  ea 54 24 3a 54 24 3d a4  41 72 66 56 61 72 28 61  |.T$:T$=.ArfVar(a|
00002d70  70 70 6c 24 2b 22 24 44  69 72 22 29 0d 0c 94 21  |ppl$+"$Dir")...!|
00002d80  e7 54 24 3d 22 22 3a 54  24 3d 22 26 2e 21 22 2b  |.T$="":T$="&.!"+|
00002d90  c0 61 70 70 6c 24 2c 39  29 2b 22 2e 22 0d 0c 9e  |.appl$,9)+"."...|
00002da0  16 e7 c2 54 24 29 3c 3e  22 2e 22 3a 54 24 2b 3d  |...T$)<>".":T$+=|
00002db0  22 2e 22 0d 0c a8 07 3d  54 24 0d 0c b2 04 0d 0c  |"."....=T$......|
00002dc0  bc 17 dd a4 41 72 66 56  61 72 28 41 24 29 3a ea  |....ArfVar(A$):.|
00002dd0  4c 25 2c 56 25 0d 0c c6  3d c8 99 22 58 4f 53 5f  |L%,V%...=.."XOS_|
00002de0  52 65 61 64 56 61 72 56  61 6c 22 2c 41 24 2c 77  |ReadVarVal",A$,w|
00002df0  6f 72 6b 62 75 66 25 2c  32 35 34 2c 30 2c 33 b8  |orkbuf%,254,0,3.|
00002e00  2c 2c 4c 25 3b 56 25 3a  e7 56 25 80 31 3a 4c 25  |,,L%;V%:.V%.1:L%|
00002e10  3d 30 0d 0c d0 1d 77 6f  72 6b 62 75 66 25 3f 4c  |=0....workbuf%?L|
00002e20  25 3d 31 33 3a 3d 24 77  6f 72 6b 62 75 66 25 0d  |%=13:=$workbuf%.|
00002e30  0c da 04 0d 0c e4 0c dd  f2 75 6d 65 73 73 31 0d  |.........umess1.|
00002e40  0c ee 2d 72 65 66 25 3d  71 25 21 38 3a 74 61 73  |..-ref%=q%!8:tas|
00002e50  6b 25 3d 71 25 21 34 3a  e7 74 61 73 6b 25 3d 74  |k%=q%!4:.task%=t|
00002e60  61 73 6b 68 61 6e 64 6c  65 25 3a e1 0d 0c f8 0f  |askhandle%:.....|
00002e70  6d 65 73 73 25 3d 71 25  21 31 36 0d 0d 02 0c c8  |mess%=q%!16.....|
00002e80  8e 6d 65 73 73 25 ca 0d  0d 0c 16 c9 30 3a f2 43  |.mess%......0:.C|
00002e90  4c 4f 53 45 3a f2 71 75  69 74 28 a3 29 0d 0d 16  |LOSE:.quit(.)...|
00002ea0  11 c9 31 3a f2 64 61 74  61 73 61 76 65 64 0d 0d  |..1:.datasaved..|
00002eb0  20 10 c9 32 3a f2 73 61  76 65 64 61 74 61 0d 0d  | ..2:.savedata..|
00002ec0  2a 10 c9 33 3a f2 64 61  74 61 6c 6f 61 64 0d 0d  |*..3:.dataload..|
00002ed0  34 14 c9 34 3a 61 63 6b  70 65 6e 64 69 6e 67 25  |4..4:ackpending%|
00002ee0  3d a3 0d 0d 3e 10 c9 35  3a f2 64 61 74 61 6f 70  |=...>..5:.dataop|
00002ef0  65 6e 0d 0d 48 07 c9 36  3a 0d 0d 52 07 c9 37 3a  |en..H..6:..R..7:|
00002f00  0d 0d 5c 0f c9 38 3a f2  70 72 65 71 75 69 74 0d  |..\..8:.prequit.|
00002f10  0d 66 07 c9 39 3a 0d 0d  70 19 c9 31 30 3a f2 77  |.f..9:..p..10:.w|
00002f20  72 69 74 65 63 6f 6d 6d  28 71 25 21 32 30 29 0d  |ritecomm(q%!20).|
00002f30  0d 7a 0a c9 26 35 30 32  3a 0d 0d 84 2d c9 26 34  |.z..&502:...-.&4|
00002f40  30 30 43 30 3a f2 73 75  62 6d 65 6e 75 28 71 25  |00C0:.submenu(q%|
00002f50  21 32 30 2c 71 25 21 32  34 2c 71 25 21 32 38 2c  |!20,q%!24,q%!28,|
00002f60  71 25 2b 33 32 29 0d 0d  8e 13 c9 26 38 30 33 30  |q%+32).....&8030|
00002f70  30 3a f2 61 63 6b 72 65  63 0d 0d 98 05 cb 0d 0d  |0:.ackrec.......|
00002f80  a2 05 e1 0d 0d ac 04 0d  0d b6 0e dd f2 64 61 74  |.............dat|
00002f90  61 6f 70 65 6e 0d 0d c0  28 e7 71 25 21 34 30 3d  |aopen...(.q%!40=|
00002fa0  66 74 5f 66 6f 72 6d 25  3a f2 64 61 74 61 6c 6f  |ft_form%:.datalo|
00002fb0  61 64 61 63 6b 3a f2 65  72 72 28 31 29 0d 0d ca  |adack:.err(1)...|
00002fc0  16 e7 71 25 21 34 30 3c  3e 66 74 5f 64 61 74 61  |..q%!40<>ft_data|
00002fd0  25 3a e1 0d 0d d4 17 f2  64 61 74 61 6c 6f 61 64  |%:......dataload|
00002fe0  61 63 6b 3a 6d 68 25 3d  2d 31 0d 0d de 44 e7 70  |ack:mh%=-1...D.p|
00002ff0  72 6f 63 65 73 73 25 3d  30 3a e7 ac a4 64 69 61  |rocess%=0:...dia|
00003000  6c 6f 67 75 65 3a f2 6f  70 65 6e 66 69 6c 65 31  |logue:.openfile1|
00003010  28 a4 7a 74 73 28 71 25  2b 34 34 29 2c 30 2c 30  |(.zts(q%+44),0,0|
00003020  2c 22 22 2c 72 65 61 64  6f 6e 6c 79 25 29 0d 0d  |,"",readonly%)..|
00003030  e8 05 e1 0d 0d f2 04 0d  0d fc 0e dd f2 64 61 74  |.............dat|
00003040  61 6c 6f 61 64 0d 0e 06  15 ea 54 25 3a 64 65 6c  |aload.....T%:del|
00003050  25 3d 71 25 21 31 32 3c  3e 30 0d 0e 10 1b f2 72  |%=q%!12<>0.....r|
00003060  65 61 64 70 6f 69 6e 74  65 72 3a f2 77 74 6f 66  |eadpointer:.wtof|
00003070  28 6d 68 25 29 0d 0e 1a  0a c8 8e 20 b9 20 ca 0d  |(mh%)...... . ..|
00003080  0e 24 3c c9 20 71 25 21  34 30 3d 26 46 46 39 20  |.$<. q%!40=&FF9 |
00003090  80 77 69 6e 64 25 3d 30  3a f2 64 61 74 61 6c 6f  |.wind%=0:.datalo|
000030a0  61 64 61 63 6b 3a f2 6c  6f 61 64 73 70 72 28 a4  |adack:.loadspr(.|
000030b0  7a 74 73 28 71 25 2b 34  34 29 29 0d 0e 2e 54 c9  |zts(q%+44))...T.|
000030c0  20 71 25 21 34 30 3d 26  31 30 30 30 3a 66 69 6c  | q%!40=&1000:fil|
000030d0  65 24 3d a4 7a 74 73 28  71 25 2b 34 34 29 3a f2  |e$=.zts(q%+44):.|
000030e0  73 74 6f 70 28 33 38 2c  c2 66 69 6c 65 24 2c 32  |stop(38,.file$,2|
000030f0  39 29 2c 72 6c 24 2b 22  73 65 74 20 70 69 63 74  |9),rl$+"set pict|
00003100  75 72 65 20 70 61 74 68  20 3f 22 2c 2d 31 29 0d  |ure path ?",-1).|
00003110  0e 38 23 c9 20 71 25 21  34 30 3d 26 32 30 30 30  |.8#. q%!40=&2000|
00003120  3a 66 69 6c 65 24 3d a4  7a 74 73 28 71 25 2b 34  |:file$=.zts(q%+4|
00003130  34 29 0d 0e 42 16 e7 97  a4 6c 65 61 66 28 66 69  |4)..B....leaf(fi|
00003140  6c 65 24 29 3d 33 33 8c  0d 0e 4c 24 54 25 3d 8e  |le$)=33...L$T%=.|
00003150  28 66 69 6c 65 24 2b 22  2e 21 44 6f 63 44 61 74  |(file$+".!DocDat|
00003160  61 22 29 3a e7 54 25 3a  d9 23 54 25 0d 0e 56 41  |a"):.T%:.#T%..VA|
00003170  e7 54 25 80 69 5f 6d 65  72 67 69 6e 67 25 3d 30  |.T%.i_merging%=0|
00003180  3a 69 5f 64 6f 63 24 3d  c1 a4 6c 65 61 66 28 66  |:i_doc$=..leaf(f|
00003190  69 6c 65 24 29 2c 32 29  3a e7 66 69 6c 65 25 3e  |ile$),2):.file%>|
000031a0  3d 30 3a f2 69 5f 69 6d  70 75 6c 73 65 0d 0e 60  |=0:.i_impulse..`|
000031b0  0f f2 69 5f 73 65 74 69  63 6f 6e 73 0d 0e 6a 05  |..i_seticons..j.|
000031c0  cd 0d 0e 74 1b c9 20 71  25 21 34 30 3d 66 74 5f  |...t.. q%!40=ft_|
000031d0  64 61 74 61 25 80 6d 68  25 3d 2d 32 0d 0e 7e 3f  |data%.mh%=-2..~?|
000031e0  f2 64 61 74 61 6c 6f 61  64 61 63 6b 3a e7 70 72  |.dataloadack:.pr|
000031f0  6f 63 65 73 73 25 3d 30  3a e7 ac a4 64 69 61 6c  |ocess%=0:...dial|
00003200  6f 67 75 65 3a f2 6f 70  65 6e 66 69 6c 65 28 a4  |ogue:.openfile(.|
00003210  7a 74 73 28 71 25 2b 34  34 29 29 0d 0e 88 18 c9  |zts(q%+44)).....|
00003220  20 71 25 21 34 30 3d 26  46 46 44 20 80 6d 68 25  | q%!40=&FFD .mh%|
00003230  3d 2d 32 0d 0e 92 33 e7  70 72 6f 63 65 73 73 25  |=-2...3.process%|
00003240  3d 30 3a e7 ac a4 64 69  61 6c 6f 67 75 65 3a f2  |=0:...dialogue:.|
00003250  63 68 65 63 6b 63 6f 6e  76 28 a4 7a 74 73 28 71  |checkconv(.zts(q|
00003260  25 2b 34 34 29 29 0d 0e  9c 30 c9 20 71 25 21 34  |%+44))...0. q%!4|
00003270  30 3d 66 74 5f 66 6f 72  6d 25 80 6d 68 25 3d 2d  |0=ft_form%.mh%=-|
00003280  32 3a f2 64 61 74 61 6c  6f 61 64 61 63 6b 3a f2  |2:.dataloadack:.|
00003290  65 72 72 28 31 29 0d 0e  a6 3c c9 20 71 25 21 34  |err(1)...<. q%!4|
000032a0  30 3d 66 74 5f 66 6f 72  6d 25 80 66 69 6c 65 25  |0=ft_form%.file%|
000032b0  3e 3d 30 80 77 69 6e 64  25 3c 32 3a f2 64 61 74  |>=0.wind%<2:.dat|
000032c0  61 6c 6f 61 64 61 63 6b  3a f2 6f 70 65 6e 66 6f  |aloadack:.openfo|
000032d0  72 6d 0d 0e b0 72 c9 20  71 25 21 34 30 3d 26 46  |rm...r. q%!40=&F|
000032e0  46 46 20 80 66 69 6c 65  25 3e 3d 30 80 77 69 6e  |FF .file%>=0.win|
000032f0  64 25 3d 36 3a f2 64 61  74 61 6c 6f 61 64 61 63  |d%=6:.dataloadac|
00003300  6b 3a 66 69 6c 65 24 3d  a4 7a 74 73 28 71 25 2b  |k:file$=.zts(q%+|
00003310  34 34 29 3a f2 73 74 6f  70 28 31 34 2c 66 69 24  |44):.stop(14,fi$|
00003320  2b a4 66 69 6c 65 6e 61  6d 65 2c 72 6c 24 2b 22  |+.filename,rl$+"|
00003330  6c 6f 61 64 20 6e 6f 74  65 73 20 3f 22 2c 66 69  |load notes ?",fi|
00003340  6c 65 25 29 0d 0e ba 74  c9 20 66 69 6c 65 25 3e  |le%)...t. file%>|
00003350  3d 30 80 77 69 6e 64 25  3d 31 80 6d 69 25 3d 31  |=0.wind%=1.mi%=1|
00003360  37 3a f2 64 61 74 61 6c  6f 61 64 61 63 6b 3a 66  |7:.dataloadack:f|
00003370  69 6c 65 24 3d a4 7a 74  73 28 71 25 2b 34 34 29  |ile$=.zts(q%+44)|
00003380  3a f2 73 74 6f 70 28 33  37 2c 66 69 24 2b a4 66  |:.stop(37,fi$+.f|
00003390  69 6c 65 6e 61 6d 65 2c  72 6c 24 2b 22 69 6d 70  |ilename,rl$+"imp|
000033a0  6f 72 74 20 41 53 43 49  49 20 66 69 6c 65 20 3f  |ort ASCII file ?|
000033b0  22 2c 66 69 6c 65 25 29  0d 0e c4 72 c9 20 71 25  |",file%)...r. q%|
000033c0  21 34 30 3d 26 46 46 46  20 80 66 69 6c 65 25 3e  |!40=&FFF .file%>|
000033d0  3d 30 80 77 69 6e 64 25  3d 37 3a f2 64 61 74 61  |=0.wind%=7:.data|
000033e0  6c 6f 61 64 61 63 6b 3a  66 69 6c 65 24 3d a4 7a  |loadack:file$=.z|
000033f0  74 73 28 71 25 2b 34 34  29 3a f2 73 74 6f 70 28  |ts(q%+44):.stop(|
00003400  31 39 2c 66 69 24 2b a4  66 69 6c 65 6e 61 6d 65  |19,fi$+.filename|
00003410  2c 72 6c 24 2b 22 6c 6f  61 64 20 6d 61 63 72 6f  |,rl$+"load macro|
00003420  20 3f 22 2c 66 69 6c 65  25 29 0d 0e ce 68 c9 20  | ?",file%)...h. |
00003430  71 25 21 34 30 3d 26 46  46 46 20 80 66 69 6c 65  |q%!40=&FFF .file|
00003440  25 3d 65 64 66 69 6c 65  25 80 66 69 6c 65 25 3e  |%=edfile%.file%>|
00003450  3d 30 80 77 69 6e 64 25  3d 2d 33 2a 65 64 72 65  |=0.wind%=-3*edre|
00003460  70 25 80 65 64 69 63 6f  6e 25 3e 3d 30 3a f2 64  |p%.edicon%>=0:.d|
00003470  61 74 61 6c 6f 61 64 61  63 6b 3a f2 6c 6f 61 64  |ataloadack:.load|
00003480  66 69 65 6c 64 28 a4 7a  74 73 28 71 25 2b 34 34  |field(.zts(q%+44|
00003490  29 29 0d 0e d8 77 c9 20  71 25 21 34 30 3d 26 46  |))...w. q%!40=&F|
000034a0  46 46 20 80 66 69 6c 65  25 3e 3d 30 80 77 69 6e  |FF .file%>=0.win|
000034b0  64 25 3d 30 3a f2 64 61  74 61 6c 6f 61 64 61 63  |d%=0:.dataloadac|
000034c0  6b 3a 66 69 6c 65 24 3d  a4 7a 74 73 28 71 25 2b  |k:file$=.zts(q%+|
000034d0  34 34 29 3a f2 73 74 6f  70 28 32 36 2c 66 69 24  |44):.stop(26,fi$|
000034e0  2b a4 66 69 6c 65 6e 61  6d 65 2c 72 6c 24 2b 22  |+.filename,rl$+"|
000034f0  6c 6f 61 64 20 41 53 43  49 49 20 63 61 72 64 20  |load ASCII card |
00003500  3f 22 2c 66 69 6c 65 25  29 0d 0e e2 3a c9 20 6d  |?",file%)...:. m|
00003510  68 25 3d 77 5f 70 64 72  69 76 65 25 3a f2 64 61  |h%=w_pdrive%:.da|
00003520  74 61 6c 6f 61 64 61 63  6b 3a 66 69 6c 65 24 3d  |taloadack:file$=|
00003530  a4 7a 74 73 28 71 25 2b  34 34 29 3a f2 50 44 6c  |.zts(q%+44):.PDl|
00003540  6f 61 64 0d 0e ec 1c c9  20 71 25 21 34 30 3d 26  |oad..... q%!40=&|
00003550  44 37 42 3a f2 63 68 65  63 6b 73 65 74 75 70 0d  |D7B:.checksetup.|
00003560  0e f6 05 cb 0d 0f 00 05  e1 0d 0f 0a 04 0d 0f 14  |................|
00003570  16 dd f2 6c 6f 61 64 66  69 65 6c 64 28 66 69 6c  |...loadfield(fil|
00003580  65 24 29 0d 0f 1e 0a ea  54 24 2c 54 25 0d 0f 28  |e$).....T$,T%..(|
00003590  0c ea 85 3a ee 85 ea 3a  e1 0d 0f 32 15 54 25 3d  |...:...:...2.T%=|
000035a0  8e 66 69 6c 65 24 3a e7  54 25 3d 30 3a e1 0d 0f  |.file$:.T%=0:...|
000035b0  3c 1b c8 95 54 24 3d 22  22 80 ac c5 23 54 25 3a  |<...T$=""...#T%:|
000035c0  54 24 3d be 23 54 25 3a  ce 0d 0f 46 11 d9 23 54  |T$=.#T%:...F..#T|
000035d0  25 3a f2 6e 6f 73 63 72  61 70 0d 0f 50 2b f2 73  |%:.noscrap..P+.s|
000035e0  65 74 69 28 77 25 28 65  64 66 69 6c 65 25 2c 2d  |eti(w%(edfile%,-|
000035f0  33 2a 65 64 72 65 70 25  29 2c 65 64 69 63 6f 6e  |3*edrep%),edicon|
00003600  25 2c 54 24 29 0d 0f 5a  05 e1 0d 0f 64 04 0d 0f  |%,T$)..Z....d...|
00003610  6e 0d dd f2 6e 6f 73 63  72 61 70 0d 0f 78 1e e7  |n...noscrap..x..|
00003620  64 65 6c 25 3a 2a 52 65  6d 6f 76 65 20 3c 57 69  |del%:*Remove <Wi|
00003630  6d 70 24 53 63 72 61 70  3e 0d 0f 82 05 e1 0d 0f  |mp$Scrap>.......|
00003640  8c 04 0d 0f 96 0f dd f2  64 61 74 61 73 61 76 65  |........datasave|
00003650  64 0d 0f a0 1b f2 72 65  61 64 70 6f 69 6e 74 65  |d.....readpointe|
00003660  72 3a f2 77 74 6f 66 28  6d 68 25 29 0d 0f aa 0a  |r:.wtof(mh%)....|
00003670  c8 8e 20 b9 20 ca 0d 0f  b4 41 c9 20 71 25 21 34  |.. . ....A. q%!4|
00003680  30 3d 26 46 46 46 20 80  66 69 6c 65 25 3e 3d 30  |0=&FFF .file%>=0|
00003690  80 28 77 69 6e 64 25 3d  36 84 77 69 6e 64 25 3d  |.(wind%=6.wind%=|
000036a0  37 84 77 69 6e 64 25 3d  30 29 3a f2 64 61 74 61  |7.wind%=0):.data|
000036b0  73 61 76 65 61 63 6b 0d  0f be 23 c9 20 71 25 21  |saveack...#. q%!|
000036c0  34 30 3d 26 32 30 30 30  3a 66 69 6c 65 24 3d a4  |40=&2000:file$=.|
000036d0  7a 74 73 28 71 25 2b 34  34 29 0d 0f c8 23 e7 97  |zts(q%+44)...#..|
000036e0  a4 6c 65 61 66 28 66 69  6c 65 24 29 3d 33 33 80  |.leaf(file$)=33.|
000036f0  69 5f 6d 65 72 67 69 6e  67 25 3d 30 8c 0d 0f d2  |i_merging%=0....|
00003700  1b 69 5f 64 6f 63 24 3d  c1 a4 6c 65 61 66 28 66  |.i_doc$=..leaf(f|
00003710  69 6c 65 24 29 2c 32 29  0d 0f dc 35 e7 66 69 6c  |ile$),2)...5.fil|
00003720  65 25 3e 3d 30 3a f2 69  5f 69 6d 70 75 6c 73 65  |e%>=0:.i_impulse|
00003730  3a 8b e7 6d 68 25 3d 77  5f 69 6d 70 75 6c 73 65  |:..mh%=w_impulse|
00003740  25 3a f2 69 5f 73 65 74  69 63 6f 6e 73 0d 0f e6  |%:.i_seticons...|
00003750  05 cd 0d 0f f0 05 cb 0d  0f fa 05 e1 0d 10 04 04  |................|
00003760  0d 10 0e 0d dd f2 65 72  72 28 45 25 29 0d 10 18  |......err(E%)...|
00003770  39 ea 54 24 2c 41 24 3a  e7 66 69 6c 65 25 3e 3d  |9.T$,A$:.file%>=|
00003780  30 41 24 3d 22 2c 20 22  2b 66 69 24 2b a4 66 69  |0A$=", "+fi$+.fi|
00003790  6c 65 6e 61 6d 65 2b 22  20 2d 20 22 3a 8b 41 24  |lename+" - ":.A$|
000037a0  3d 22 20 2d 20 22 0d 10  22 14 40 25 3d 26 39 30  |=" - "..".@%=&90|
000037b0  41 3a 2a 66 78 32 32 39  2c 31 0d 10 2c 09 c8 8e  |A:*fx229,1..,...|
000037c0  45 25 ca 0d 10 36 0c c9  30 3a 54 24 3d f6 24 0d  |E%...6..0:T$=.$.|
000037d0  10 40 30 c9 31 3a 54 24  3d 22 54 6f 20 75 73 65  |.@0.1:T$="To use|
000037e0  20 61 20 66 6f 72 6d 61  74 2c 20 64 72 61 67 20  | a format, drag |
000037f0  69 74 20 6f 6e 74 6f 20  61 20 63 61 72 64 22 0d  |it onto a card".|
00003800  10 4a 2d c9 32 3a 54 24  3d 22 4d 75 73 74 20 62  |.J-.2:T$="Must b|
00003810  65 20 76 65 72 73 69 6f  6e 20 31 2e 38 20 57 49  |e version 1.8 WI|
00003820  4d 50 20 6f 72 20 6c 61  74 65 72 22 0d 10 54 2e  |MP or later"..T.|
00003830  c9 33 3a 54 24 3d 22 53  6f 72 72 79 21 20 54 6f  |.3:T$="Sorry! To|
00003840  6f 20 6d 61 6e 79 20 66  69 6c 65 73 20 61 6c 72  |o many files alr|
00003850  65 61 64 79 20 6f 70 65  6e 22 0d 10 5e 41 c9 34  |eady open"..^A.4|
00003860  3a 54 24 3d 22 53 6f 72  72 79 21 20 59 6f 75 20  |:T$="Sorry! You |
00003870  63 61 6e 20 6f 6e 6c 79  20 72 75 6e 20 6f 6e 65  |can only run one|
00003880  20 52 41 4d 4d 61 6e 61  67 65 72 20 74 61 73 6b  | RAMManager task|
00003890  20 61 74 20 61 20 74 69  6d 65 22 0d 10 68 48 c9  | at a time"..hH.|
000038a0  35 3a 54 24 3d 22 54 6f  20 73 61 76 65 2c 20 64  |5:T$="To save, d|
000038b0  72 61 67 20 74 68 65 20  69 63 6f 6e 20 74 6f 20  |rag the icon to |
000038c0  61 20 64 69 72 65 63 74  6f 72 79 20 76 69 65 77  |a directory view|
000038d0  65 72 20 6f 72 20 61 6e  6f 74 68 65 72 20 74 61  |er or another ta|
000038e0  73 6b 22 0d 10 72 63 c9  36 3a 54 24 3d 22 43 6f  |sk"..rc.6:T$="Co|
000038f0  75 6c 64 6e 27 74 20 6f  70 65 6e 20 66 69 6c 65  |uldn't open file|
00003900  3a 20 22 2b f6 24 3a e7  f6 24 3d 22 44 61 74 61  |: "+.$:..$="Data|
00003910  20 6c 6f 73 74 22 3a 54  24 2b 3d 22 20 28 45 6e  | lost":T$+=" (En|
00003920  73 75 72 65 20 74 68 65  20 64 69 73 63 20 69 73  |sure the disc is|
00003930  20 6e 6f 74 20 77 72 69  74 65 20 70 72 6f 74 65  | not write prote|
00003940  63 74 65 64 29 22 0d 10  7c 25 c9 37 3a 54 24 3d  |cted)"..|%.7:T$=|
00003950  22 43 6f 75 6c 64 6e 27  74 20 6f 70 65 6e 20 66  |"Couldn't open f|
00003960  6f 72 6d 61 74 3a 20 22  2b f6 24 0d 10 86 23 c9  |ormat: "+.$...#.|
00003970  38 3a 54 24 3d 22 46 69  6c 74 65 72 20 65 78 70  |8:T$="Filter exp|
00003980  72 65 73 73 69 6f 6e 22  2b 41 24 2b f6 24 0d 10  |ression"+A$+.$..|
00003990  90 23 c9 39 3a 54 24 3d  22 53 65 61 72 63 68 20  |.#.9:T$="Search |
000039a0  65 78 70 72 65 73 73 69  6f 6e 22 2b 41 24 2b f6  |expression"+A$+.|
000039b0  24 0d 10 9a 28 c9 31 30  3a 54 24 3d 22 55 6e 62  |$...(.10:T$="Unb|
000039c0  61 6c 61 6e 63 65 64 20  71 75 6f 74 65 20 6d 61  |alanced quote ma|
000039d0  72 6b 73 20 28 22 22 29  22 0d 10 a4 20 c9 31 31  |rks ("")"... .11|
000039e0  3a 54 24 3d 22 55 6e 62  61 6c 61 6e 63 65 64 20  |:T$="Unbalanced |
000039f0  62 72 61 63 6b 65 74 73  22 0d 10 ae 2e c9 31 32  |brackets".....12|
00003a00  3a 54 24 3d 22 4e 6f 20  63 61 72 64 73 20 74 6f  |:T$="No cards to|
00003a10  20 73 65 61 72 63 68 20  69 6e 20 74 68 69 73 20  | search in this |
00003a20  73 75 62 73 65 74 22 0d  10 b8 46 c9 31 33 3a 54  |subset"...F.13:T|
00003a30  24 3d 22 54 68 65 20 6e  61 6d 65 20 73 68 6f 75  |$="The name shou|
00003a40  6c 64 20 62 65 20 32 2d  34 20 63 68 61 72 61 63  |ld be 2-4 charac|
00003a50  74 65 72 73 20 61 6e 64  20 73 74 61 72 74 20 77  |ters and start w|
00003a60  69 74 68 20 61 20 6c 65  74 74 65 72 22 0d 10 c2  |ith a letter"...|
00003a70  44 c9 31 34 3a 54 24 3d  22 50 6c 65 61 73 65 20  |D.14:T$="Please |
00003a80  73 70 65 63 69 66 79 20  74 68 65 20 6d 61 78 69  |specify the maxi|
00003a90  6d 75 6d 20 76 61 6c 75  65 20 74 6f 20 73 74 6f  |mum value to sto|
00003aa0  72 65 20 69 6e 20 74 68  65 20 73 75 62 73 65 74  |re in the subset|
00003ab0  22 0d 10 cc 22 c9 31 35  3a 54 24 3d 22 53 75 62  |"...".15:T$="Sub|
00003ac0  73 65 74 20 61 6c 72 65  61 64 79 20 65 78 69 73  |set already exis|
00003ad0  74 73 22 0d 10 d6 31 c9  31 36 3a 54 24 3d 22 46  |ts"...1.16:T$="F|
00003ae0  69 65 6c 64 20 6e 61 6d  65 73 20 6d 75 73 74 20  |ield names must |
00003af0  73 74 61 72 74 20 77 69  74 68 20 61 20 6c 65 74  |start with a let|
00003b00  74 65 72 22 0d 10 e0 2c  c9 31 37 3a 54 24 3d 22  |ter"...,.17:T$="|
00003b10  43 6f 70 79 69 6e 67 2f  63 6f 6d 62 69 6e 69 6e  |Copying/combinin|
00003b20  67 20 73 75 62 73 65 74  73 22 2b 41 24 2b f6 24  |g subsets"+A$+.$|
00003b30  0d 10 ea 20 c9 31 38 3a  54 24 3d 22 45 6e 67 6c  |... .18:T$="Engl|
00003b40  69 73 68 20 71 75 65 72  79 22 2b 41 24 2b f6 24  |ish query"+A$+.$|
00003b50  0d 10 f4 25 c9 31 39 3a  54 24 3d 22 43 61 6e 27  |...%.19:T$="Can'|
00003b60  74 20 75 6e 64 65 72 73  74 61 6e 64 20 6d 65 61  |t understand mea|
00003b70  6e 69 6e 67 22 0d 10 fe  27 c9 32 30 3a 54 24 3d  |ning"...'.20:T$=|
00003b80  22 4d 61 63 72 6f 20 6c  69 6e 65 20 22 2b c3 28  |"Macro line "+.(|
00003b90  65 72 25 2b 31 29 2b 41  24 2b f6 24 0d 11 08 36  |er%+1)+A$+.$...6|
00003ba0  c9 32 31 3a 54 24 3d 22  4d 69 73 73 69 6e 67 20  |.21:T$="Missing |
00003bb0  54 48 45 4e 20 6f 72 20  47 4f 20 63 6c 61 75 73  |THEN or GO claus|
00003bc0  65 20 69 6e 20 49 46 20  73 74 61 74 65 6d 65 6e  |e in IF statemen|
00003bd0  74 22 0d 11 12 2d c9 32  32 3a 54 24 3d 22 49 6e  |t"...-.22:T$="In|
00003be0  76 61 6c 69 64 20 6d 61  63 72 6f 20 6c 69 6e 65  |valid macro line|
00003bf0  20 6e 75 6d 62 65 72 20  66 6f 72 20 47 4f 22 0d  | number for GO".|
00003c00  11 1c 28 c9 32 33 3a 54  24 3d 22 49 6c 6c 65 67  |..(.23:T$="Illeg|
00003c10  61 6c 20 76 61 72 69 61  62 6c 65 20 61 73 73 69  |al variable assi|
00003c20  67 6e 6d 65 6e 74 22 0d  11 26 26 c9 32 34 3a 54  |gnment"..&&.24:T|
00003c30  24 3d 22 46 69 65 6c 64  20 61 73 73 69 67 6e 6d  |$="Field assignm|
00003c40  65 6e 74 20 65 78 70 65  63 74 65 64 22 0d 11 30  |ent expected"..0|
00003c50  25 c9 32 35 3a 54 24 3d  22 46 69 65 6c 64 20 6e  |%.25:T$="Field n|
00003c60  61 6d 65 20 6e 6f 74 20  73 70 65 63 69 66 69 65  |ame not specifie|
00003c70  64 22 0d 11 3a 2d c9 32  36 3a 54 24 3d 22 53 75  |d"..:-.26:T$="Su|
00003c80  62 73 65 74 20 76 61 6c  75 65 20 61 73 73 69 67  |bset value assig|
00003c90  6e 6d 65 6e 74 20 65 78  70 65 63 74 65 64 22 0d  |nment expected".|
00003ca0  11 44 2d c9 32 37 3a 54  24 3d 22 53 75 62 73 65  |.D-.27:T$="Subse|
00003cb0  74 20 6e 61 6d 65 2f 6c  65 74 74 65 72 20 6e 6f  |t name/letter no|
00003cc0  74 20 73 70 65 63 69 66  69 65 64 22 0d 11 4e 27  |t specified"..N'|
00003cd0  c9 32 38 3a 54 24 3d 22  49 6e 76 61 6c 69 64 20  |.28:T$="Invalid |
00003ce0  73 75 62 73 65 74 20 6e  61 6d 65 2f 6c 65 74 74  |subset name/lett|
00003cf0  65 72 22 0d 11 58 31 c9  32 39 3a 54 24 3d 22 49  |er"..X1.29:T$="I|
00003d00  6c 6c 65 67 61 6c 20 6e  6f 74 65 70 61 64 20 72  |llegal notepad r|
00003d10  65 66 65 72 65 6e 63 65  20 69 64 65 6e 74 69 66  |eference identif|
00003d20  69 65 72 22 0d 11 62 39  c9 33 30 3a 54 24 3d 22  |ier"..b9.30:T$="|
00003d30  41 62 62 72 65 76 69 61  74 65 64 20 65 78 70 72  |Abbreviated expr|
00003d40  65 73 73 69 6f 6e 20 74  6f 6f 20 63 6f 6d 70 6c  |ession too compl|
00003d50  65 78 20 74 6f 20 65 78  70 61 6e 64 22 0d 11 6c  |ex to expand"..l|
00003d60  25 c9 33 31 3a 54 24 3d  22 49 6c 6c 65 67 61 6c  |%.31:T$="Illegal|
00003d70  20 70 61 74 74 65 72 6e  20 6d 61 74 63 68 69 6e  | pattern matchin|
00003d80  67 22 0d 11 76 3e c9 33  32 3a 54 24 3d 22 56 61  |g"..v>.32:T$="Va|
00003d90  6c 69 64 61 74 69 6e 67  20 63 61 72 64 22 2b 41  |lidating card"+A|
00003da0  24 2b f6 24 2b 22 20 28  46 69 6c 74 65 72 2f 53  |$+.$+" (Filter/S|
00003db0  75 62 73 65 74 20 64 69  73 61 62 6c 65 64 29 22  |ubset disabled)"|
00003dc0  0d 11 80 2b c9 33 33 3a  54 24 3d 22 49 6c 6c 65  |...+.33:T$="Ille|
00003dd0  67 61 6c 20 67 6c 6f 62  61 6c 20 76 61 72 69 61  |gal global varia|
00003de0  62 6c 65 20 6e 75 6d 62  65 72 22 0d 11 8a 22 c9  |ble number"...".|
00003df0  33 34 3a 54 24 3d 22 53  6f 72 74 20 65 78 70 72  |34:T$="Sort expr|
00003e00  65 73 73 69 6f 6e 22 2b  41 24 2b f6 24 0d 11 94  |ession"+A$+.$...|
00003e10  2b c9 33 35 3a 54 24 3d  22 45 78 70 72 65 73 73  |+.35:T$="Express|
00003e20  69 6f 6e 20 73 68 6f 75  6c 64 20 6e 6f 74 20 62  |ion should not b|
00003e30  65 20 62 6c 61 6e 6b 22  0d 11 9e 37 c9 33 36 3a  |e blank"...7.36:|
00003e40  54 24 3d 22 46 61 73 74  20 66 69 6e 64 22 2b 41  |T$="Fast find"+A|
00003e50  24 2b 22 63 6f 75 6c 64  6e 27 74 20 66 69 6e 64  |$+"couldn't find|
00003e60  20 6d 61 74 63 68 69 6e  67 20 63 61 72 64 22 0d  | matching card".|
00003e70  11 a8 22 c9 33 37 3a 54  24 3d 22 4c 69 6e 6b 20  |..".37:T$="Link |
00003e80  65 78 70 72 65 73 73 69  6f 6e 22 2b 41 24 2b f6  |expression"+A$+.|
00003e90  24 0d 11 b2 1f c9 33 38  3a 54 24 3d 22 4c 69 6e  |$.....38:T$="Lin|
00003ea0  6b 20 66 69 6c 65 20 6e  6f 74 20 6f 70 65 6e 22  |k file not open"|
00003eb0  0d 11 bc 2d c9 33 39 3a  54 24 3d 22 59 6f 75 20  |...-.39:T$="You |
00003ec0  63 61 6e 27 74 20 6c 69  6e 6b 20 74 6f 20 61 6e  |can't link to an|
00003ed0  20 61 63 74 69 76 65 20  66 69 6c 65 22 0d 11 c6  | active file"...|
00003ee0  31 c9 34 30 3a 54 24 3d  22 59 6f 75 20 63 61 6e  |1.40:T$="You can|
00003ef0  27 74 20 68 61 76 65 20  61 20 63 69 72 63 75 6c  |'t have a circul|
00003f00  61 72 20 6c 69 6e 6b 20  73 65 74 75 70 22 0d 11  |ar link setup"..|
00003f10  d0 23 c9 34 31 3a 54 24  3d 22 50 72 69 6e 74 65  |.#.41:T$="Printe|
00003f20  72 20 61 6c 72 65 61 64  79 20 69 6e 20 75 73 65  |r already in use|
00003f30  22 0d 11 da 39 c9 34 32  3a 54 24 3d 22 50 72 69  |"...9.42:T$="Pri|
00003f40  6e 74 65 72 20 69 6e 20  75 73 65 20 62 79 20 66  |nter in use by f|
00003f50  69 6c 65 20 22 2b a4 6f  66 69 6c 65 6e 61 6d 65  |ile "+.ofilename|
00003f60  28 70 72 69 6e 74 65 72  25 29 0d 11 e4 32 c9 34  |(printer%)...2.4|
00003f70  33 3a 54 24 3d 22 50 72  69 6e 74 69 6e 67 22 2b  |3:T$="Printing"+|
00003f80  41 24 2b f6 24 2b 22 20  28 52 65 70 6f 72 74 20  |A$+.$+" (Report |
00003f90  74 65 72 6d 69 6e 61 74  65 64 29 22 0d 11 ee 2b  |terminated)"...+|
00003fa0  c9 34 34 3a 54 24 3d 22  53 69 6d 70 6c 65 20 72  |.44:T$="Simple r|
00003fb0  65 70 6f 72 74 20 64 65  66 69 6e 69 74 69 6f 6e  |eport definition|
00003fc0  22 2b 41 24 2b f6 24 0d  11 f8 21 c9 34 35 3a 54  |"+A$+.$...!.45:T|
00003fd0  24 3d 22 52 65 70 6f 72  74 20 66 6f 72 6d 75 6c  |$="Report formul|
00003fe0  61 22 2b 41 24 2b f6 24  0d 12 02 39 c9 34 36 3a  |a"+A$+.$...9.46:|
00003ff0  54 24 3d 22 45 78 70 6f  72 74 69 6e 67 20 72 65  |T$="Exporting re|
00004000  70 6f 72 74 22 2b 41 24  2b f6 24 2b 22 20 28 65  |port"+A$+.$+" (e|
00004010  78 70 6f 72 74 20 63 61  6e 63 65 6c 6c 65 64 29  |xport cancelled)|
00004020  22 0d 12 0c 45 c9 34 37  3a 54 24 3d 22 54 68 65  |"...E.47:T$="The|
00004030  20 74 77 6f 20 6e 65 77  20 70 61 73 73 77 6f 72  | two new passwor|
00004040  64 73 20 6d 75 73 74 20  62 65 20 69 64 65 6e 74  |ds must be ident|
00004050  69 63 61 6c 2e 20 50 6c  65 61 73 65 20 72 65 2d  |ical. Please re-|
00004060  65 6e 74 65 72 22 0d 12  16 2a c9 34 38 3a 54 24  |enter"...*.48:T$|
00004070  3d 22 4e 6f 74 20 61 20  73 75 69 74 61 62 6c 65  |="Not a suitable|
00004080  20 70 72 69 6e 74 65 72  20 64 72 69 76 65 72 22  | printer driver"|
00004090  0d 12 20 31 c9 34 39 3a  54 24 3d 22 59 6f 75 20  |.. 1.49:T$="You |
000040a0  63 61 6e 27 74 20 6c 6f  61 64 20 74 68 61 74 20  |can't load that |
000040b0  73 65 74 75 70 20 66 69  6c 65 20 74 68 65 72 65  |setup file there|
000040c0  22 0d 12 2a 31 c9 35 30  3a 54 24 3d 22 43 61 6e  |"..*1.50:T$="Can|
000040d0  27 74 20 72 65 63 6f 67  6e 69 73 65 20 66 6f 72  |'t recognise for|
000040e0  6d 61 74 20 6f 66 20 73  65 74 75 70 20 66 69 6c  |mat of setup fil|
000040f0  65 22 0d 12 34 3c c9 35  31 3a 54 24 3d 22 59 6f  |e"..4<.51:T$="Yo|
00004100  75 20 6d 75 73 74 20 73  70 65 63 69 66 79 20 74  |u must specify t|
00004110  68 65 20 63 75 72 72 65  6e 74 20 70 61 73 73 77  |he current passw|
00004120  6f 72 64 20 63 6f 72 72  65 63 74 6c 79 22 0d 12  |ord correctly"..|
00004130  3e 32 c9 35 32 3a 54 24  3d 22 43 6f 6c 75 6d 6e  |>2.52:T$="Column|
00004140  20 22 2b c3 28 63 6f 6c  75 6d 6e 25 2b 31 29 2b  | "+.(column%+1)+|
00004150  22 20 66 6f 72 6d 75 6c  61 22 2b 41 24 2b f6 24  |" formula"+A$+.$|
00004160  0d 12 48 2b c9 35 33 3a  54 24 3d 22 4e 6f 20 72  |..H+.53:T$="No r|
00004170  6f 6f 6d 20 74 6f 20 61  64 64 20 61 6e 6f 74 68  |oom to add anoth|
00004180  65 72 20 63 6f 6c 75 6d  6e 21 22 0d 12 52 3e c9  |er column!"..R>.|
00004190  35 34 3a 54 24 3d 22 50  6c 6f 74 74 69 6e 67 20  |54:T$="Plotting |
000041a0  70 69 63 74 75 72 65 22  2b 41 24 2b f6 24 2b 22  |picture"+A$+.$+"|
000041b0  20 28 72 65 6c 65 61 73  65 20 41 4c 54 20 74 6f  | (release ALT to|
000041c0  20 72 65 64 72 61 77 29  22 0d 12 5c 44 c9 35 35  | redraw)"..\D.55|
000041d0  3a 54 24 3d 22 53 6f 72  72 79 21 20 59 6f 75 20  |:T$="Sorry! You |
000041e0  63 61 6e 20 6f 6e 6c 79  20 67 65 6e 65 72 61 74  |can only generat|
000041f0  65 20 6f 6e 65 20 70 61  67 65 64 20 72 65 70 6f  |e one paged repo|
00004200  72 74 20 61 74 20 61 20  74 69 6d 65 22 0d 12 66  |rt at a time"..f|
00004210  1f c9 35 36 3a 54 24 3d  22 52 65 70 6f 72 74 20  |..56:T$="Report |
00004220  69 6e 74 65 72 72 75 70  74 65 64 22 0d 12 70 24  |interrupted"..p$|
00004230  c9 35 37 3a 54 24 3d 22  53 75 62 2d 74 6f 74 61  |.57:T$="Sub-tota|
00004240  6c 20 66 6f 72 6d 75 6c  61 22 2b 41 24 2b f6 24  |l formula"+A$+.$|
00004250  0d 12 7a 28 c9 35 38 3a  54 24 3d 22 53 75 62 2d  |..z(.58:T$="Sub-|
00004260  73 75 62 2d 74 6f 74 61  6c 20 66 6f 72 6d 75 6c  |sub-total formul|
00004270  61 22 2b 41 24 2b f6 24  0d 12 84 1e c9 35 39 3a  |a"+A$+.$.....59:|
00004280  54 24 3d 22 50 72 6f 67  72 61 6d 20 6e 6f 74 20  |T$="Program not |
00004290  66 6f 75 6e 64 22 0d 12  8e 34 c9 36 30 3a 54 24  |found"...4.60:T$|
000042a0  3d f6 24 2b 22 20 2d 20  43 61 6e 27 74 20 6c 6f  |=.$+" - Can't lo|
000042b0  61 64 20 66 69 6c 65 20  63 72 65 61 74 69 6f 6e  |ad file creation|
000042c0  20 73 6f 66 74 77 61 72  65 22 0d 12 98 3d c9 36  | software"...=.6|
000042d0  31 3a 54 24 3d 22 53 6f  72 72 79 21 20 4e 6f 74  |1:T$="Sorry! Not|
000042e0  20 65 6e 6f 75 67 68 20  73 75 62 73 65 74 73 20  | enough subsets |
000042f0  61 76 61 69 6c 61 62 6c  65 20 66 6f 72 20 61 20  |available for a |
00004300  73 65 61 72 63 68 22 0d  12 a2 34 c9 36 32 3a 54  |search"...4.62:T|
00004310  24 3d f6 24 2b 22 20 2d  20 43 61 6e 27 74 20 6c  |$=.$+" - Can't l|
00004320  6f 61 64 20 66 69 6c 65  20 74 72 61 6e 73 66 65  |oad file transfe|
00004330  72 20 73 6f 66 74 77 61  72 65 22 0d 12 ac 43 c9  |r software"...C.|
00004340  36 33 3a 54 24 3d 22 54  68 61 74 27 73 20 61 20  |63:T$="That's a |
00004350  54 72 61 6e 73 66 65 72  20 73 65 74 75 70 20 66  |Transfer setup f|
00004360  69 6c 65 20 2d 20 79 6f  75 20 63 61 6e 27 74 20  |ile - you can't |
00004370  6c 6f 61 64 20 69 74 20  68 65 72 65 21 22 0d 12  |load it here!"..|
00004380  b6 33 c9 36 34 3a 54 24  3d 22 50 6c 65 61 73 65  |.3.64:T$="Please|
00004390  20 64 72 61 67 20 73 70  72 69 74 65 73 20 74 6f  | drag sprites to|
000043a0  20 61 20 70 69 63 74 75  72 65 20 66 69 65 6c 64  | a picture field|
000043b0  22 0d 12 c0 26 c9 36 35  3a 54 24 3d f6 24 2b 22  |"...&.65:T$=.$+"|
000043c0  20 2d 20 41 53 43 49 49  20 69 6d 70 6f 72 74 20  | - ASCII import |
000043d0  66 61 69 6c 65 64 22 0d  12 ca be c9 36 36 3a 54  |failed".....66:T|
000043e0  24 3d 22 2a 2a 20 57 41  52 4e 49 4e 47 20 2a 2a  |$="** WARNING **|
000043f0  20 54 68 69 73 20 69 73  20 61 6e 20 65 76 61 6c  | This is an eval|
00004400  75 61 74 69 6f 6e 20 63  6f 70 79 20 6f 66 20 4d  |uation copy of M|
00004410  75 6c 74 69 53 74 6f 72  65 2e 20 4d 61 6e 79 20  |ultiStore. Many |
00004420  66 65 61 74 75 72 65 73  20 61 72 65 20 72 65 73  |features are res|
00004430  74 72 69 63 74 65 64 20  61 6e 64 20 69 74 20 6d  |tricted and it m|
00004440  61 79 20 74 69 6d 65 2d  6f 75 74 20 77 69 74 68  |ay time-out with|
00004450  6f 75 74 20 77 61 72 6e  69 6e 67 2e 20 59 6f 75  |out warning. You|
00004460  20 61 72 65 20 61 64 76  69 73 65 64 20 74 6f 20  | are advised to |
00004470  63 6c 6f 73 65 20 61 6e  79 20 6f 74 68 65 72 20  |close any other |
00004480  69 6d 70 6f 72 74 61 6e  74 20 74 61 73 6b 73 20  |important tasks |
00004490  6e 6f 77 2e 22 0d 12 d4  2a c9 36 37 3a 54 24 3d  |now."...*.67:T$=|
000044a0  f6 24 2b 22 20 2d 20 43  68 65 63 6b 20 6d 65 6d  |.$+" - Check mem|
000044b0  6f 72 79 20 61 6c 6c 6f  63 61 74 69 6f 6e 22 0d  |ory allocation".|
000044c0  12 de 2d c9 36 38 3a 54  24 3d f6 24 2b 22 20 2d  |..-.68:T$=.$+" -|
000044d0  20 55 6e 61 62 6c 65 20  74 6f 20 6c 6f 61 64 20  | Unable to load |
000044e0  73 70 72 69 74 65 20 66  69 6c 65 22 0d 12 e8 36  |sprite file"...6|
000044f0  c9 36 39 3a 54 24 3d f6  24 2b 22 20 2d 20 55 6e  |.69:T$=.$+" - Un|
00004500  61 62 6c 65 20 74 6f 20  6c 6f 61 64 20 77 69 6e  |able to load win|
00004510  64 6f 77 20 74 65 6d 70  6c 61 74 65 20 66 69 6c  |dow template fil|
00004520  65 22 0d 12 f2 3a c9 37  30 3a 54 24 3d 22 52 65  |e"...:.70:T$="Re|
00004530  63 69 65 76 65 64 20 49  6d 70 75 6c 73 65 20 72  |cieved Impulse r|
00004540  65 71 75 65 73 74 20 74  6f 20 73 65 6e 64 20 75  |equest to send u|
00004550  6e 6b 6e 6f 77 6e 20 64  61 74 61 22 0d 12 fc 2d  |nknown data"...-|
00004560  c9 37 31 3a 54 24 3d 22  50 6c 65 61 73 65 20 73  |.71:T$="Please s|
00004570  70 65 63 69 66 79 20 61  20 74 61 72 67 65 74 20  |pecify a target |
00004580  64 6f 63 75 6d 65 6e 74  22 0d 13 06 3a c9 37 32  |document"...:.72|
00004590  3a 54 24 3d 22 53 6f 72  72 79 21 20 54 68 61 74  |:T$="Sorry! That|
000045a0  20 66 69 65 6c 64 20 69  73 20 6e 6f 74 20 6f 6e  | field is not on|
000045b0  20 74 68 65 20 6c 69 6e  6b 65 64 20 66 6f 72 6d  | the linked form|
000045c0  61 74 22 0d 13 10 43 c9  37 33 3a 54 24 3d 22 53  |at"...C.73:T$="S|
000045d0  6f 72 72 79 21 20 59 6f  75 20 63 61 6e 27 74 20  |orry! You can't |
000045e0  65 64 69 74 20 61 20 72  65 70 6f 72 74 20 77 68  |edit a report wh|
000045f0  65 6e 20 61 20 66 6f 72  6d 61 74 20 69 73 20 6c  |en a format is l|
00004600  69 6e 6b 65 64 22 0d 13  1a 05 cb 0d 13 24 25 e7  |inked".......$%.|
00004610  ac a4 70 72 6f 64 3a 54  24 2b 3d 22 20 28 22 2b  |..prod:T$+=" ("+|
00004620  c3 9e 2b 22 29 20 5b 22  2b c3 45 25 2b 22 5d 22  |..+") ["+.E%+"]"|
00004630  0d 13 2e 0a 85 39 39 2c  54 24 0d 13 38 04 0d 13  |.....99,T$..8...|
00004640  42 12 dd f2 6f 70 65 6e  66 69 6c 65 28 66 24 29  |B...openfile(f$)|
00004650  0d 13 4c 41 77 5f 6f 70  65 6e 25 3d a4 63 72 77  |..LAw_open%=.crw|
00004660  69 6e 64 28 74 77 5f 6f  70 65 6e 25 29 3a f2 75  |ind(tw_open%):.u|
00004670  6e 73 65 6c 61 6c 6c 28  77 5f 6f 70 65 6e 25 29  |nselall(w_open%)|
00004680  3a f2 73 65 6c 69 28 77  5f 6f 70 65 6e 25 2c 31  |:.seli(w_open%,1|
00004690  29 0d 13 56 36 66 69 6c  65 24 3d 66 24 3a f2 73  |)..V6file$=f$:.s|
000046a0  65 74 69 28 77 5f 6f 70  65 6e 25 2c 31 33 2c 66  |eti(w_open%,13,f|
000046b0  24 29 3a f2 73 65 74 69  28 77 5f 6f 70 65 6e 25  |$):.seti(w_open%|
000046c0  2c 31 34 2c 22 22 29 0d  13 60 18 f2 64 69 61 6c  |,14,"")..`..dial|
000046d0  6f 67 75 65 28 77 5f 6f  70 65 6e 25 29 3a e1 0d  |ogue(w_open%):..|
000046e0  13 6a 04 0d 13 74 1f dd  f2 6f 70 65 6e 66 69 6c  |.j...t...openfil|
000046f0  65 31 28 66 24 2c 6d 25  2c 64 25 2c 70 24 2c 72  |e1(f$,m%,d%,p$,r|
00004700  25 29 0d 13 7e 21 ea 49  25 2c 67 25 2c 68 25 2c  |%)..~!.I%,g%,h%,|
00004710  58 25 2c 59 25 2c 54 24  3a 70 24 3d a4 73 75 28  |X%,Y%,T$:p$=.su(|
00004720  70 24 29 0d 13 88 18 ea  85 3a ee 85 ea 3a f7 85  |p$)......:...:..|
00004730  3a f2 6c 6f 61 64 65 72  72 3a e1 0d 13 92 1b 68  |:.loaderr:.....h|
00004740  25 3d 2d 31 3a e7 a4 76  5f 28 31 29 2f 32 3c 3d  |%=-1:..v_(1)/2<=|
00004750  6d 61 78 66 25 8c 0d 13  9c 15 49 25 3d 30 3a c8  |maxf%.....I%=0:.|
00004760  95 20 49 25 3c 3d 6d 61  78 66 25 0d 13 a6 1f e7  |. I%<=maxf%.....|
00004770  68 25 28 49 25 29 3c 3d  30 3a 68 25 3d 49 25 3a  |h%(I%)<=0:h%=I%:|
00004780  49 25 3d 6d 61 78 66 25  2b 31 0d 13 b0 0b 49 25  |I%=maxf%+1....I%|
00004790  2b 3d 31 3a ce 0d 13 ba  05 cd 0d 13 c4 35 54 24  |+=1:.........5T$|
000047a0  3d 66 24 3a 6d 25 3d a8  28 39 39 2f 28 6d 61 78  |=f$:m%=.(99/(max|
000047b0  66 25 2b 31 29 2b 28 39  39 2d 28 39 39 2f 28 6d  |f%+1)+(99-(99/(m|
000047c0  61 78 66 25 2b 31 29 29  29 2a 6d 25 2f 37 29 0d  |axf%+1)))*m%/7).|
000047d0  13 ce 11 e7 68 25 3c 30  3a f2 65 72 72 28 33 29  |....h%<0:.err(3)|
000047e0  0d 13 d8 2d 77 25 28 68  25 2c 30 29 3d a4 63 72  |...-w%(h%,0)=.cr|
000047f0  77 69 6e 64 28 74 77 25  28 68 25 2c 30 29 29 3a  |wind(tw%(h%,0)):|
00004800  f2 6d 61 6b 65 70 61 6e  65 28 68 25 29 0d 13 e2  |.makepane(h%)...|
00004810  1b e7 70 24 3d 22 22 70  24 3d a4 70 77 63 6f 64  |..p$=""p$=.pwcod|
00004820  65 28 70 61 73 73 24 29  0d 13 ec 29 70 61 73 73  |e(pass$)...)pass|
00004830  24 3d a4 70 77 63 6f 64  65 28 70 24 29 3a e7 63  |$=.pwcode(p$):.c|
00004840  6c 65 61 72 70 61 73 73  25 70 61 73 73 24 3d 22  |learpass%pass$="|
00004850  22 0d 13 f6 18 c8 99 73  77 69 25 2c 70 61 73 73  |"......swi%,pass|
00004860  77 6f 72 64 5f 25 2c 70  24 0d 14 00 25 67 25 3d  |word_%,p$...%g%=|
00004870  30 3a c8 99 73 77 69 25  2c 6f 70 65 6e 5f 25 2c  |0:..swi%,open_%,|
00004880  54 24 2c 6d 25 2c 64 25  2c 72 25 b8 47 25 0d 14  |T$,m%,d%,r%.G%..|
00004890  0a 25 67 25 3d 47 25 3a  e7 67 25 84 3f 73 64 25  |.%g%=G%:.g%.?sd%|
000048a0  3c 3e 31 33 8c f2 77 61  72 6e 66 69 6c 65 3a 67  |<>13..warnfile:g|
000048b0  25 3d b9 0d 14 14 1c e7  66 69 6c 6c 63 61 63 68  |%=......fillcach|
000048c0  65 25 3a 2a 46 46 43 61  63 68 65 46 69 6c 6c 0d  |e%:*FFCacheFill.|
000048d0  14 1e 1b 68 25 28 68 25  29 3d a4 76 5f 28 32 29  |...h%(h%)=.v_(2)|
000048e0  3a f2 69 6e 69 74 66 69  6c 65 0d 14 28 1a c8 99  |:.initfile..(...|
000048f0  73 77 69 25 2c 73 65 6c  65 63 74 6b 65 79 5f 25  |swi%,selectkey_%|
00004900  2c 22 3f 22 0d 14 32 15  c8 99 73 77 69 25 2c 73  |,"?"..2...swi%,s|
00004910  64 34 35 5f 25 2c 22 4e  22 0d 14 3c 3e f2 73 64  |d45_%,"N"..<>.sd|
00004920  66 69 6c 65 28 68 25 29  3a 24 a4 74 61 28 77 25  |file(h%):$.ta(w%|
00004930  28 68 25 2c 30 29 29 3d  22 46 69 6c 65 3d 22 2b  |(h%,0))="File="+|
00004940  a4 66 69 6c 65 6e 61 6d  65 3a f2 66 65 78 74 3a  |.filename:.fext:|
00004950  f2 72 65 61 64 77 73 0d  14 46 33 f2 69 6e 69 74  |.readws..F3.init|
00004960  70 61 6e 65 3a 58 25 3d  68 25 2a 38 30 2b 70 61  |pane:X%=h%*80+pa|
00004970  6e 65 77 25 2b 38 3a 59  25 3d 39 30 30 2d 68 25  |new%+8:Y%=900-h%|
00004980  2a 34 30 2d 70 61 6e 65  68 25 0d 14 50 3e f2 6f  |*40-paneh%..P>.o|
00004990  70 65 6e 28 77 25 28 68  25 2c 30 29 2c 58 25 2c  |pen(w%(h%,0),X%,|
000049a0  59 25 2c 58 25 2b 70 61  6e 65 68 25 2c 59 25 2b  |Y%,X%+paneh%,Y%+|
000049b0  70 61 6e 65 68 25 2c 30  2c 30 2c 2d 31 29 3a f2  |paneh%,0,0,-1):.|
000049c0  76 61 6c 69 64 72 65 63  0d 14 5a 1b c8 99 73 77  |validrec..Z...sw|
000049d0  69 25 2c 73 64 35 37 5f  25 2c 22 62 69 74 37 22  |i%,sd57_%,"bit7"|
000049e0  b8 47 25 0d 14 64 39 f2  66 6c 67 28 66 5f 37 62  |.G%..d9.flg(f_7b|
000049f0  69 74 25 2c 47 25 29 3a  f2 63 6c 72 6d 76 3a f2  |it%,G%):.clrmv:.|
00004a00  66 6c 67 28 66 5f 70 69  63 73 25 2c a4 69 73 66  |flg(f_pics%,.isf|
00004a10  69 65 6c 64 28 22 50 49  43 22 29 29 0d 14 6e 24  |ield("PIC"))..n$|
00004a20  66 6e 24 28 68 25 29 3d  66 24 3a e7 67 25 f2 64  |fn$(h%)=f$:.g%.d|
00004a30  69 61 6c 6f 67 75 65 28  77 5f 6d 65 73 73 25 29  |ialogue(w_mess%)|
00004a40  0d 14 78 05 e1 0d 14 82  04 0d 14 8c 0e dd f2 77  |..x............w|
00004a50  61 72 6e 66 69 6c 65 0d  14 96 2a ea 54 25 2c 74  |arnfile...*.T%,t|
00004a60  25 2c 49 25 2c 54 24 3a  77 5f 6d 65 73 73 25 3d  |%,I%,T$:w_mess%=|
00004a70  a4 63 72 77 69 6e 64 28  74 77 5f 6d 65 73 73 25  |.crwind(tw_mess%|
00004a80  29 0d 14 a0 13 f7 2b 31  3a e3 49 25 3d 30 b8 37  |).....+1:.I%=0.7|
00004a90  3a f3 54 24 0d 14 aa 29  e7 67 25 80 28 32 5e 49  |:.T$...).g%.(2^I|
00004aa0  25 29 3a f2 73 65 74 69  28 77 5f 6d 65 73 73 25  |%):.seti(w_mess%|
00004ab0  2c 54 25 2c 54 24 29 3a  54 25 2b 3d 31 0d 14 b4  |,T%,T$):T%+=1...|
00004ac0  0f ed 3a e7 24 73 64 25  3e 22 22 8c 0d 14 be 4a  |..:.$sd%>""....J|
00004ad0  f2 73 65 74 69 28 77 5f  6d 65 73 73 25 2c 54 25  |.seti(w_mess%,T%|
00004ae0  2c 22 50 61 73 73 77 6f  72 64 20 76 69 6f 6c 61  |,"Password viola|
00004af0  74 69 6f 6e 73 20 68 61  76 65 20 6f 63 63 75 72  |tions have occur|
00004b00  65 64 20 61 73 20 66 6f  6c 6c 6f 77 73 3a 22 29  |ed as follows:")|
00004b10  3a 54 25 2b 3d 31 0d 14  c8 0c 74 25 3d 73 64 25  |:T%+=1....t%=sd%|
00004b20  3a f5 0d 14 d2 3e e7 74  25 3c 73 64 25 2b 31 39  |:....>.t%<sd%+19|
00004b30  32 3a e7 24 74 25 3e 22  22 3a f2 73 65 74 69 28  |2:.$t%>"":.seti(|
00004b40  77 5f 6d 65 73 73 25 2c  54 25 2c 22 20 20 55 73  |w_mess%,T%,"  Us|
00004b50  69 6e 67 20 22 2b 24 74  25 29 3a 54 25 2b 3d 31  |ing "+$t%):T%+=1|
00004b60  0d 14 dc 16 74 25 2b 3d  36 34 3a fd 74 25 3d 73  |....t%+=64:.t%=s|
00004b70  64 25 2b 31 39 32 0d 14  e6 05 cd 0d 14 f0 29 c8  |d%+192........).|
00004b80  95 54 25 3c 36 3a f2 73  65 74 69 28 77 5f 6d 65  |.T%<6:.seti(w_me|
00004b90  73 73 25 2c 54 25 2c 22  22 29 3a 54 25 2b 3d 31  |ss%,T%,""):T%+=1|
00004ba0  3a ce 3a e1 0d 14 fa 3e  dc 22 2a 2a 20 54 68 69  |:.:....>."** Thi|
00004bb0  73 20 66 69 6c 65 20 4d  41 59 20 62 65 20 43 4f  |s file MAY be CO|
00004bc0  52 52 55 50 54 45 44 20  64 75 65 20 74 6f 20 69  |RRUPTED due to i|
00004bd0  6c 6c 65 67 61 6c 20 63  6c 6f 73 75 72 65 20 2a  |llegal closure *|
00004be0  2a 22 0d 15 04 3c dc 22  20 20 2a 2a 20 54 68 69  |*"...<."  ** Thi|
00004bf0  73 20 66 69 6c 65 20 68  61 73 20 62 65 65 6e 20  |s file has been |
00004c00  61 63 63 65 73 73 65 64  20 62 79 20 6f 6c 64 65  |accessed by olde|
00004c10  72 20 73 6f 66 74 77 61  72 65 20 2a 2a 22 0d 15  |r software **"..|
00004c20  0e 09 dc 2c 2c 2c 2c 0d  15 18 04 0d 15 22 0e dd  |...,,,,......"..|
00004c30  f2 69 6e 69 74 66 69 6c  65 0d 15 2c 2a 66 25 28  |.initfile..,*f%(|
00004c40  68 25 29 3d 30 3a 73 25  28 68 25 29 3d 30 3a 73  |h%)=0:s%(h%)=0:s|
00004c50  24 28 68 25 29 3d 22 22  3a 66 63 25 28 68 25 29  |$(h%)="":fc%(h%)|
00004c60  3d 2d 31 0d 15 36 3f 61  25 28 68 25 29 3d 30 3a  |=-1..6?a%(h%)=0:|
00004c70  66 24 28 68 25 29 3d 22  22 3a 66 78 24 28 68 25  |f$(h%)="":fx$(h%|
00004c80  29 3d 22 22 3a 65 24 28  68 25 29 3d 22 22 3a 65  |)="":e$(h%)="":e|
00004c90  78 24 28 68 25 29 3d 22  22 3a 72 25 28 68 25 29  |x$(h%)="":r%(h%)|
00004ca0  3d 31 0d 15 40 43 6f 24  28 68 25 29 3d 22 22 3a  |=1..@Co$(h%)="":|
00004cb0  6f 25 28 68 25 2c 30 29  3d 33 3a 72 24 28 68 25  |o%(h%,0)=3:r$(h%|
00004cc0  29 3d 22 22 3a 72 78 24  28 68 25 29 3d 22 22 3a  |)="":rx$(h%)="":|
00004cd0  e3 49 25 3d 30 b8 33 3a  74 25 28 68 25 2c 49 25  |.I%=0.3:t%(h%,I%|
00004ce0  29 3d 30 3a ed 0d 15 4a  43 6c 25 28 68 25 29 3d  |)=0:...JCl%(h%)=|
00004cf0  30 3a 6c 24 28 68 25 29  3d 22 22 3a 6c 6b 24 28  |0:l$(h%)="":lk$(|
00004d00  68 25 29 3d 22 22 3a 6c  78 24 28 68 25 29 3d 22  |h%)="":lx$(h%)="|
00004d10  22 3a 73 72 24 28 68 25  29 3d 22 22 3a 73 72 78  |":sr$(h%)="":srx|
00004d20  24 28 68 25 29 3d 22 22  0d 15 54 2f 66 6e 24 28  |$(h%)=""..T/fn$(|
00004d30  68 25 29 3d 22 22 3a 70  25 28 68 25 2c 30 29 3d  |h%)="":p%(h%,0)=|
00004d40  30 3a 70 24 28 68 25 2c  30 29 3d 22 22 3a 6d 24  |0:p$(h%,0)="":m$|
00004d50  28 68 25 29 3d 22 22 0d  15 5e 36 e3 49 25 3d 30  |(h%)=""..^6.I%=0|
00004d60  b8 32 33 3a 64 24 28 68  25 2c 49 25 29 3d 22 22  |.23:d$(h%,I%)=""|
00004d70  3a ed 3a e3 49 25 3d 30  b8 31 38 3a f2 6e 6f 74  |:.:.I%=0.18:.not|
00004d80  65 28 68 25 2c 49 25 2c  22 22 29 3a ed 0d 15 68  |e(h%,I%,""):...h|
00004d90  29 e3 49 25 3d 30 b8 32  39 3a f2 6d 61 63 6c 6e  |).I%=0.29:.macln|
00004da0  28 68 25 2c 49 25 2c 22  22 29 3a ed 3a 77 6f 25  |(h%,I%,""):.:wo%|
00004db0  28 68 25 29 3d 30 0d 15  72 33 e3 49 25 3d 30 b8  |(h%)=0..r3.I%=0.|
00004dc0  31 35 3a 6c 66 25 28 68  25 2c 49 25 29 3d 30 3a  |15:lf%(h%,I%)=0:|
00004dd0  ed 3a e3 49 25 3d 30 b8  31 34 3a 77 24 28 68 25  |.:.I%=0.14:w$(h%|
00004de0  2c 49 25 29 3d 22 22 3a  ed 0d 15 7c 4c 6c 6c 25  |,I%)="":...|Lll%|
00004df0  28 68 25 2c 30 29 3d 33  30 3a 6c 6c 25 28 68 25  |(h%,0)=30:ll%(h%|
00004e00  2c 31 29 3d 34 3a 6c 6c  25 28 68 25 2c 32 29 3d  |,1)=4:ll%(h%,2)=|
00004e10  34 3a 6c 6c 25 28 68 25  2c 33 29 3d 39 3a 6c 6c  |4:ll%(h%,3)=9:ll|
00004e20  25 28 68 25 2c 34 29 3d  32 3a 6c 6c 25 28 68 25  |%(h%,4)=2:ll%(h%|
00004e30  2c 35 29 3d 31 0d 15 86  2b 6c 6c 25 28 68 25 2c  |,5)=1...+ll%(h%,|
00004e40  36 29 3d 6c 61 62 5f 6c  65 61 64 25 3a 6c 6c 25  |6)=lab_lead%:ll%|
00004e50  28 68 25 2c 37 29 3d 6c  61 62 5f 64 72 6f 70 25  |(h%,7)=lab_drop%|
00004e60  0d 15 90 33 66 6c 25 28  68 25 29 3d 66 5f 64 66  |...3fl%(h%)=f_df|
00004e70  6c 74 25 3a e7 74 6f 6f  6c 73 25 3a 66 6c 25 28  |lt%:.tools%:fl%(|
00004e80  68 25 29 3d 66 6c 25 28  68 25 29 84 66 5f 70 61  |h%)=fl%(h%).f_pa|
00004e90  6e 65 25 0d 15 9a 05 e1  0d 15 a4 04 0d 15 ae 0d  |ne%.............|
00004ea0  dd f2 6c 6f 61 64 65 72  72 0d 15 b8 16 f2 6e 6f  |..loaderr.....no|
00004eb0  72 6d 70 6f 69 6e 74 3a  e7 68 25 3e 3d 30 8c 0d  |rmpoint:.h%>=0..|
00004ec0  15 c2 16 e7 67 25 3a f2  64 65 6c 77 28 77 5f 6d  |....g%:.delw(w_m|
00004ed0  65 73 73 25 29 0d 15 cc  1e e7 77 25 28 68 25 2c  |ess%).....w%(h%,|
00004ee0  30 29 3e 30 f2 64 65 6c  77 28 77 25 28 68 25 2c  |0)>0.delw(w%(h%,|
00004ef0  30 29 29 0d 15 d6 1e e7  77 25 28 68 25 2c 31 29  |0)).....w%(h%,1)|
00004f00  3e 30 f2 64 65 6c 77 28  77 25 28 68 25 2c 31 29  |>0.delw(w%(h%,1)|
00004f10  29 0d 15 e0 1c e7 68 25  28 68 25 29 3e 30 3a f2  |).....h%(h%)>0:.|
00004f20  63 6c 6f 73 65 66 69 6c  65 28 68 25 29 0d 15 ea  |closefile(h%)...|
00004f30  0e e7 9f 3d 26 38 30 33  30 31 8c 0d 15 f4 44 77  |...=&80301....Dw|
00004f40  5f 6f 70 65 6e 25 3d a4  63 72 77 69 6e 64 28 74  |_open%=.crwind(t|
00004f50  77 5f 6f 70 65 6e 25 29  3a f2 75 6e 73 65 6c 61  |w_open%):.unsela|
00004f60  6c 6c 28 77 5f 6f 70 65  6e 25 29 3a f2 73 65 6c  |ll(w_open%):.sel|
00004f70  69 28 77 5f 6f 70 65 6e  25 2c 6d 25 2b 31 29 0d  |i(w_open%,m%+1).|
00004f80  15 fe 17 e7 64 25 f2 73  65 6c 69 28 77 5f 6f 70  |....d%.seli(w_op|
00004f90  65 6e 25 2c 30 29 0d 16  08 36 66 69 6c 65 24 3d  |en%,0)...6file$=|
00004fa0  66 24 3a f2 73 65 74 69  28 77 5f 6f 70 65 6e 25  |f$:.seti(w_open%|
00004fb0  2c 31 33 2c 66 24 29 3a  f2 73 65 74 69 28 77 5f  |,13,f$):.seti(w_|
00004fc0  6f 70 65 6e 25 2c 31 34  2c 22 22 29 0d 16 12 1f  |open%,14,"")....|
00004fd0  f2 64 69 61 6c 6f 67 75  65 28 77 5f 6f 70 65 6e  |.dialogue(w_open|
00004fe0  25 29 3a 66 69 6c 65 25  3d 2d 31 0d 16 1c 41 e7  |%):file%=-1...A.|
00004ff0  70 24 3d 22 4d 49 4e 45  52 56 41 43 4f 44 45 22  |p$="MINERVACODE"|
00005000  3a 85 39 39 2c 22 50 61  73 73 20 63 6f 64 65 20  |:.99,"Pass code |
00005010  69 73 20 27 22 2b a4 70  5f 70 61 73 73 63 6f 64  |is '"+.p_passcod|
00005020  65 28 66 69 6c 65 24 29  2b 22 27 22 0d 16 26 05  |e(file$)+"'"..&.|
00005030  e1 0d 16 30 05 cd 0d 16  3a 05 cd 0d 16 44 16 66  |...0....:....D.f|
00005040  69 6c 65 25 3d 2d 31 3a  f2 65 72 72 28 36 29 3a  |ile%=-1:.err(6):|
00005050  e1 0d 16 4e 04 0d 16 58  17 dd f2 63 6c 6f 73 65  |...N...X...close|
00005060  66 69 6c 65 28 68 25 29  3a ea 49 25 0d 16 62 0f  |file(h%):.I%..b.|
00005070  f2 69 5f 6b 69 6c 6c 28  68 25 29 0d 16 6c 30 e3  |.i_kill(h%)..l0.|
00005080  49 25 3d 30 b8 6d 61 78  66 25 3a e7 6c 25 28 49  |I%=0.maxf%:.l%(I|
00005090  25 29 3d 68 25 2b 31 3a  f2 73 64 66 69 6c 65 28  |%)=h%+1:.sdfile(|
000050a0  49 25 29 3a f2 75 6e 6c  69 6e 6b 0d 16 76 2a ed  |I%):.unlink..v*.|
000050b0  3a f2 73 64 66 69 6c 65  28 68 25 29 3a f2 72 65  |:.sdfile(h%):.re|
000050c0  61 64 79 3a e7 6c 25 28  68 25 29 3e 30 3a f2 75  |ady:.l%(h%)>0:.u|
000050d0  6e 6c 69 6e 6b 0d 16 80  29 f2 63 6c 6f 73 65 66  |nlink...).closef|
000050e0  6f 72 6d 3a f2 63 66 5f  77 72 69 74 65 77 73 3a  |orm:.cf_writews:|
000050f0  f2 64 65 6c 66 69 6c 65  77 73 28 68 25 29 0d 16  |.delfilews(h%)..|
00005100  8a 3e 68 25 28 68 25 29  3d 30 3a 73 25 28 68 25  |.>h%(h%)=0:s%(h%|
00005110  29 3d 30 3a 66 25 28 68  25 29 3d 30 3a 61 25 28  |)=0:f%(h%)=0:a%(|
00005120  68 25 29 3d 30 3a 77 25  28 68 25 2c 30 29 3d 2d  |h%)=0:w%(h%,0)=-|
00005130  31 45 39 3a 6c 25 28 68  25 29 3d 30 0d 16 94 0e  |1E9:l%(h%)=0....|
00005140  63 6c 6f 73 65 6f 6b 25  3d a3 0d 16 9e 1c c8 99  |closeok%=.......|
00005150  26 32 30 30 30 30 2b 73  77 69 25 2c 63 6c 6f 73  |&20000+swi%,clos|
00005160  65 5f 25 b8 53 25 0d 16  a8 05 e1 0d 16 b2 04 0d  |e_%.S%..........|
00005170  16 bc 1c dd f2 63 66 5f  77 72 69 74 65 77 73 3a  |.....cf_writews:|
00005180  ea 85 3a ee 85 ea 3a f7  85 3a e1 0d 16 c6 0e f2  |..:...:..:......|
00005190  77 72 69 74 65 77 73 3a  e1 0d 16 d0 04 0d 16 da  |writews:........|
000051a0  23 dd f2 61 6c 69 67 6e  28 68 25 2c 49 25 29 3a  |#..align(h%,I%):|
000051b0  e7 74 78 31 25 2d 74 78  30 25 3e 31 30 38 3a e1  |.tx1%-tx0%>108:.|
000051c0  0d 16 e4 13 dd f2 61 6c  69 67 6e 31 28 68 25 2c  |......align1(h%,|
000051d0  49 25 29 0d 16 ee 2e 74  78 30 25 3d 68 25 2a 38  |I%)....tx0%=h%*8|
000051e0  30 2b 49 25 2a 34 30 2d  34 30 2b 70 61 6e 65 77  |0+I%*40-40+panew|
000051f0  25 2b 38 3a 74 78 31 25  3d 74 78 30 25 2b 34 34  |%+8:tx1%=tx0%+44|
00005200  30 0d 16 f8 29 74 79 31  25 3d 39 30 30 2d 68 25  |0...)ty1%=900-h%|
00005210  2a 34 30 2d 49 25 2a 34  30 2b 34 30 3a 74 79 30  |*40-I%*40+40:ty0|
00005220  25 3d 74 79 31 25 2d 33  32 30 0d 17 02 05 e1 0d  |%=ty1%-320......|
00005230  17 0c 04 0d 17 16 12 dd  f2 6d 61 6b 65 70 61 6e  |.........makepan|
00005240  65 28 68 25 29 0d 17 20  29 ea 50 25 3a 50 25 3d  |e(h%).. ).P%:P%=|
00005250  a4 63 72 77 69 6e 64 28  74 77 25 28 68 25 2c 31  |.crwind(tw%(h%,1|
00005260  29 29 3a 77 25 28 68 25  2c 31 29 3d 50 25 0d 17  |)):w%(h%,1)=P%..|
00005270  2a 43 f2 67 65 74 77 28  50 25 29 3a 70 61 6e 65  |*C.getw(P%):pane|
00005280  68 25 3d 79 31 25 2d 79  30 25 3a 70 61 6e 65 77  |h%=y1%-y0%:panew|
00005290  25 3d 78 31 25 2d 78 30  25 3a f2 77 65 78 74 28  |%=x1%-x0%:.wext(|
000052a0  50 25 2c 70 61 6e 65 77  25 2c 70 61 6e 65 68 25  |P%,panew%,paneh%|
000052b0  29 0d 17 34 05 e1 0d 17  3e 04 0d 17 48 12 dd f2  |)..4....>...H...|
000052c0  6d 61 6b 65 73 75 62 73  28 68 25 29 0d 17 52 16  |makesubs(h%)..R.|
000052d0  ea 50 25 2c 54 24 2c 49  25 2c 4a 25 2c 4b 25 2c  |.P%,T$,I%,J%,K%,|
000052e0  54 25 0d 17 5c 3a 4b 25  3d 77 25 28 68 25 2c 32  |T%..\:K%=w%(h%,2|
000052f0  29 3e 30 3a e7 4b 25 f2  67 65 74 77 28 77 25 28  |)>0:.K%.getw(w%(|
00005300  68 25 2c 32 29 29 8b f2  72 65 61 64 62 6c 6f 63  |h%,2))..readbloc|
00005310  6b 28 74 77 25 28 68 25  2c 32 29 29 0d 17 66 34  |k(tw%(h%,2))..f4|
00005320  74 78 30 25 3d 78 30 25  3a 74 79 30 25 3d 79 30  |tx0%=x0%:ty0%=y0|
00005330  25 3a 74 78 31 25 3d 78  31 25 3a 74 79 31 25 3d  |%:tx1%=x1%:ty1%=|
00005340  79 31 25 3a f2 61 6c 69  67 6e 28 68 25 2c 32 29  |y1%:.align(h%,2)|
00005350  0d 17 70 41 f2 64 65 6c  66 69 6c 65 77 28 68 25  |..pA.delfilew(h%|
00005360  2c 32 29 3a 50 25 3d a4  63 72 77 69 6e 64 28 74  |,2):P%=.crwind(t|
00005370  77 25 28 68 25 2c 32 29  29 3a 77 25 28 68 25 2c  |w%(h%,2)):w%(h%,|
00005380  32 29 3d 50 25 3a f2 73  64 66 69 6c 65 28 68 25  |2)=P%:.sdfile(h%|
00005390  29 0d 17 7a 2a 24 a4 74  61 28 77 25 28 68 25 2c  |)..z*$.ta(w%(h%,|
000053a0  32 29 29 3d 22 53 75 62  73 65 74 73 20 6f 66 20  |2))="Subsets of |
000053b0  22 2b a4 66 69 6c 65 6e  61 6d 65 0d 17 84 17 54  |"+.filename....T|
000053c0  24 3d a4 73 75 62 73 74  72 3a e3 49 25 3d 30 b8  |$=.substr:.I%=0.|
000053d0  32 33 0d 17 8e 3c e7 c1  54 24 2c 49 25 2b 31 2c  |23...<..T$,I%+1,|
000053e0  31 29 3c 3e 22 2e 22 3a  f2 6c 6f 73 65 69 63 6f  |1)<>".":.loseico|
000053f0  6e 28 50 25 2c 49 25 2b  35 29 3a f2 6c 6f 73 65  |n(P%,I%+5):.lose|
00005400  69 63 6f 6e 28 50 25 2c  49 25 2b 32 39 29 0d 17  |icon(P%,I%+29)..|
00005410  98 05 ed 0d 17 a2 2a c8  95 54 24 3e 22 22 80 c2  |......*..T$>""..|
00005420  54 24 29 3c 3e 22 2e 22  3a 54 24 3d c0 54 24 29  |T$)<>".":T$=.T$)|
00005430  3a ce 3a 54 24 3d c0 54  24 2c 32 34 29 0d 17 ac  |:.:T$=.T$,24)...|
00005440  2b 43 25 3d 28 28 a9 54  24 2d 31 29 81 36 2b 31  |+C%=((.T$-1).6+1|
00005450  29 2a 35 36 2b 36 32 3a  e7 4b 25 3a 43 25 3d 74  |)*56+62:.K%:C%=t|
00005460  79 31 25 2d 74 79 30 25  0d 17 b6 34 54 25 3d 28  |y1%-ty0%...4T%=(|
00005470  33 2d 28 a9 54 24 2d 31  29 81 36 29 2a 35 36 3a  |3-(.T$-1).6)*56:|
00005480  4a 25 3d 30 3a e3 49 25  3d 30 b8 39 3a 54 24 3d  |J%=0:.I%=0.9:T$=|
00005490  a4 73 75 62 6e 61 6d 65  28 49 25 29 0d 17 c0 1e  |.subname(I%)....|
000054a0  f2 73 65 74 69 28 50 25  2c 49 25 2b 35 33 2c 54  |.seti(P%,I%+53,T|
000054b0  24 29 3a e7 54 24 3d 22  22 8c 0d 17 ca 17 f2 6c  |$):.T$=""......l|
000054c0  6f 73 65 69 63 6f 6e 28  50 25 2c 49 25 2b 35 33  |oseicon(P%,I%+53|
000054d0  29 0d 17 d4 05 cc 0d 17  de 2e f2 67 65 74 69 28  |)..........geti(|
000054e0  50 25 2c 49 25 2b 35 33  29 3a f2 64 65 6c 69 63  |P%,I%+53):.delic|
000054f0  6f 6e 28 50 25 2c 49 25  2b 35 33 29 3a 4a 25 3d  |on(P%,I%+53):J%=|
00005500  49 25 2b 31 0d 17 e8 3a  71 25 21 34 3d 21 71 25  |I%+1...:q%!4=!q%|
00005510  3a 71 25 21 31 32 2b 3d  54 25 3a 71 25 21 32 30  |:q%!12+=T%:q%!20|
00005520  2b 3d 54 25 3a c8 99 22  57 69 6d 70 5f 43 72 65  |+=T%:.."Wimp_Cre|
00005530  61 74 65 49 63 6f 6e 22  2c 2c 71 25 2b 34 0d 17  |ateIcon",,q%+4..|
00005540  f2 05 cd 0d 17 fc 20 ed  3a f2 67 65 74 69 28 50  |...... .:.geti(P|
00005550  25 2c 34 29 3a f2 64 65  6c 69 63 6f 6e 28 50 25  |%,4):.delicon(P%|
00005560  2c 34 29 0d 18 06 3a 71  25 21 34 3d 21 71 25 3a  |,4)...:q%!4=!q%:|
00005570  71 25 21 31 32 2b 3d 54  25 3a 71 25 21 32 30 2b  |q%!12+=T%:q%!20+|
00005580  3d 54 25 3a c8 99 22 57  69 6d 70 5f 43 72 65 61  |=T%:.."Wimp_Crea|
00005590  74 65 49 63 6f 6e 22 2c  2c 71 25 2b 34 0d 18 10  |teIcon",,q%+4...|
000055a0  38 54 25 2b 3d 28 28 31  30 2d 4a 25 29 81 35 29  |8T%+=((10-J%).5)|
000055b0  2a 36 34 3a f2 67 65 74  77 28 50 25 29 3a f2 77  |*64:.getw(P%):.w|
000055c0  65 78 74 28 50 25 2c 65  78 31 25 2c 2d 65 79 30  |ext(P%,ex1%,-ey0|
000055d0  25 2d 54 25 29 0d 18 1a  43 f2 73 68 6f 77 73 75  |%-T%)...C.showsu|
000055e0  62 31 3a f2 6f 70 65 6e  28 77 25 28 68 25 2c 32  |b1:.open(w%(h%,2|
000055f0  29 2c 74 78 30 25 2c 74  79 31 25 2d 43 25 2c 74  |),tx0%,ty1%-C%,t|
00005600  78 31 25 2b 78 31 25 2d  78 30 25 2c 74 79 31 25  |x1%+x1%-x0%,ty1%|
00005610  2c 30 2c 30 2c 2d 31 29  0d 18 24 05 e1 0d 18 2e  |,0,0,-1)..$.....|
00005620  04 0d 18 38 11 dd f2 6d  61 6b 65 72 65 70 28 68  |...8...makerep(h|
00005630  25 29 0d 18 42 3d ea 50  25 2c 58 25 2c 59 25 3a  |%)..B=.P%,X%,Y%:|
00005640  50 25 3d a4 6d 61 6b 65  77 69 6e 64 28 68 25 2c  |P%=.makewind(h%,|
00005650  33 29 3a 24 a4 74 61 28  50 25 29 3d 22 52 65 70  |3):$.ta(P%)="Rep|
00005660  6f 72 74 3d 22 2b a4 66  69 6c 65 6e 61 6d 65 0d  |ort="+.filename.|
00005670  18 4c 2d f2 73 64 66 69  6c 65 28 68 25 29 3a f2  |.L-.sdfile(h%):.|
00005680  72 65 70 64 65 66 61 75  6c 74 3a f2 72 65 78 74  |repdefault:.rext|
00005690  3a f2 6d 61 74 63 68 72  65 70 3a e1 0d 18 56 04  |:.matchrep:...V.|
000056a0  0d 18 60 17 dd f2 6d 61  6b 65 66 6c 69 73 74 28  |..`...makeflist(|
000056b0  68 25 29 3a ea 54 25 0d  18 6a 3d ea 50 25 3a 50  |h%):.T%..j=.P%:P|
000056c0  25 3d a4 6d 61 6b 65 77  69 6e 64 28 68 25 2c 34  |%=.makewind(h%,4|
000056d0  29 3a 54 25 3d a4 74 61  28 50 25 29 3a 24 54 25  |):T%=.ta(P%):$T%|
000056e0  3d 22 46 69 65 6c 64 73  3d 22 2b a4 66 69 6c 65  |="Fields="+.file|
000056f0  6e 61 6d 65 0d 18 74 2a  54 25 3d a9 24 54 25 2b  |name..t*T%=.$T%+|
00005700  34 3a f2 66 6f 72 6d 73  74 61 74 3a c8 99 73 77  |4:.formstat:..sw|
00005710  69 25 2c 73 64 36 34 5f  25 2c 31 b8 47 25 0d 18  |i%,sd64_%,1.G%..|
00005720  7e 0f e7 47 25 3c 54 25  47 25 3d 54 25 0d 18 88  |~..G%<T%G%=T%...|
00005730  39 f2 77 65 78 74 28 50  25 2c 47 25 2a 31 36 2b  |9.wext(P%,G%*16+|
00005740  6d 61 72 67 69 6e 25 2a  32 2c a4 76 5f 28 37 29  |margin%*2,.v_(7)|
00005750  2a 6c 69 6e 65 67 61 70  25 2b 6d 61 72 67 69 6e  |*linegap%+margin|
00005760  25 2a 32 29 3a e1 0d 18  92 04 0d 18 9c 1d dd f2  |%*2):...........|
00005770  6d 61 6b 65 69 6c 69 73  74 28 68 25 29 3a ea 58  |makeilist(h%):.X|
00005780  25 2c 59 25 2c 54 25 0d  18 a6 3e ea 50 25 3a 50  |%,Y%,T%...>.P%:P|
00005790  25 3d a4 6d 61 6b 65 77  69 6e 64 28 68 25 2c 35  |%=.makewind(h%,5|
000057a0  29 3a 54 25 3d a4 74 61  28 50 25 29 3a 24 54 25  |):T%=.ta(P%):$T%|
000057b0  3d 22 49 6e 64 69 63 65  73 3d 22 2b a4 66 69 6c  |="Indices="+.fil|
000057c0  65 6e 61 6d 65 0d 18 b0  20 54 25 3d a9 24 54 25  |ename... T%=.$T%|
000057d0  2b 34 3a c8 99 73 77 69  25 2c 73 64 36 34 5f 25  |+4:..swi%,sd64_%|
000057e0  2c 32 b8 47 25 0d 18 ba  0f e7 47 25 3c 54 25 47  |,2.G%.....G%<T%G|
000057f0  25 3d 54 25 0d 18 c4 16  58 25 3d 47 25 3a 59 25  |%=T%....X%=G%:Y%|
00005800  3d a4 6e 69 6e 64 69 63  65 73 0d 18 ce 35 f2 77  |=.nindices...5.w|
00005810  65 78 74 28 50 25 2c 58  25 2a 31 36 2b 6d 61 72  |ext(P%,X%*16+mar|
00005820  67 69 6e 25 2a 32 2c 59  25 2a 6c 69 6e 65 67 61  |gin%*2,Y%*linega|
00005830  70 25 2b 6d 61 72 67 69  6e 25 2a 32 29 3a e1 0d  |p%+margin%*2):..|
00005840  18 d8 04 0d 18 e2 13 dd  f2 6d 61 6b 65 6e 6f 74  |.........makenot|
00005850  65 73 28 68 25 29 0d 18  ec 38 ea 50 25 3a 50 25  |es(h%)...8.P%:P%|
00005860  3d a4 6d 61 6b 65 77 69  6e 64 28 68 25 2c 36 29  |=.makewind(h%,6)|
00005870  3a 24 a4 74 61 28 50 25  29 3d 22 4e 6f 74 65 70  |:$.ta(P%)="Notep|
00005880  61 64 3d 22 2b a4 66 69  6c 65 6e 61 6d 65 0d 18  |ad="+.filename..|
00005890  f6 05 e1 0d 19 00 04 0d  19 0a 13 dd f2 6d 61 6b  |.............mak|
000058a0  65 6d 61 63 72 6f 28 68  25 29 0d 19 14 36 ea 50  |emacro(h%)...6.P|
000058b0  25 3a 50 25 3d a4 6d 61  6b 65 77 69 6e 64 28 68  |%:P%=.makewind(h|
000058c0  25 2c 37 29 3a 24 a4 74  61 28 50 25 29 3d 22 4d  |%,7):$.ta(P%)="M|
000058d0  61 63 72 6f 3d 22 2b a4  66 69 6c 65 6e 61 6d 65  |acro="+.filename|
000058e0  0d 19 1e 05 e1 0d 19 28  04 0d 19 32 1f dd a4 6d  |.......(...2...m|
000058f0  61 6b 65 77 69 6e 64 28  68 25 2c 54 25 29 3a ea  |akewind(h%,T%):.|
00005900  50 25 2c 49 25 2c 4b 25  0d 19 3c 3d 4b 25 3d 77  |P%,I%,K%..<=K%=w|
00005910  25 28 68 25 2c 54 25 29  3e 30 3a e7 4b 25 f2 67  |%(h%,T%)>0:.K%.g|
00005920  65 74 77 28 77 25 28 68  25 2c 54 25 29 29 8b f2  |etw(w%(h%,T%))..|
00005930  72 65 61 64 62 6c 6f 63  6b 28 74 77 25 28 68 25  |readblock(tw%(h%|
00005940  2c 54 25 29 29 0d 19 46  35 74 78 30 25 3d 78 30  |,T%))..F5tx0%=x0|
00005950  25 3a 74 79 30 25 3d 79  30 25 3a 74 78 31 25 3d  |%:ty0%=y0%:tx1%=|
00005960  78 31 25 3a 74 79 31 25  3d 79 31 25 3a f2 61 6c  |x1%:ty1%=y1%:.al|
00005970  69 67 6e 28 68 25 2c 54  25 29 0d 19 50 44 f2 64  |ign(h%,T%)..PD.d|
00005980  65 6c 66 69 6c 65 77 28  68 25 2c 54 25 29 3a 50  |elfilew(h%,T%):P|
00005990  25 3d a4 63 72 77 69 6e  64 28 74 77 25 28 68 25  |%=.crwind(tw%(h%|
000059a0  2c 54 25 29 29 3a 77 25  28 68 25 2c 54 25 29 3d  |,T%)):w%(h%,T%)=|
000059b0  50 25 3a f2 73 64 66 69  6c 65 28 68 25 29 0d 19  |P%:.sdfile(h%)..|
000059c0  5a 2c f2 6f 70 65 6e 28  50 25 2c 74 78 30 25 2c  |Z,.open(P%,tx0%,|
000059d0  74 79 30 25 2c 74 78 31  25 2c 74 79 31 25 2c 30  |ty0%,tx1%,ty1%,0|
000059e0  2c 30 2c 2d 31 29 3a 3d  50 25 0d 19 64 04 0d 19  |,0,-1):=P%..d...|
000059f0  6e 31 dd a4 63 72 77 69  6e 64 28 54 25 29 3a c8  |n1..crwind(T%):.|
00005a00  99 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  |."Wimp_CreateWin|
00005a10  64 6f 77 22 2c 2c 54 25  b8 54 25 3a 3d 54 25 0d  |dow",,T%.T%:=T%.|
00005a20  19 78 04 0d 19 82 0e dd  f2 69 6e 69 74 70 61 6e  |.x.......initpan|
00005a30  65 0d 19 8c 29 f2 67 72  61 70 68 3a f2 73 65 74  |e...).graph:.set|
00005a40  69 28 77 25 28 66 69 6c  65 25 2c 31 29 2c 37 2c  |i(w%(file%,1),7,|
00005a50  73 24 28 66 69 6c 65 25  29 29 0d 19 96 37 f2 73  |s$(file%))...7.s|
00005a60  68 6f 77 73 75 62 3a f2  73 68 6f 77 69 6e 64 65  |howsub:.showinde|
00005a70  78 3a f2 73 68 6f 77 66  69 6c 74 65 72 3a f2 73  |x:.showfilter:.s|
00005a80  68 6f 77 66 6f 75 6e 64  3a f2 73 68 6f 77 6d 61  |howfound:.showma|
00005a90  63 0d 19 a0 05 e1 0d 19  aa 04 0d 19 b4 0b dd f2  |c...............|
00005aa0  67 72 61 70 68 0d 19 be  1f ea 50 25 2c 54 25 3a  |graph.....P%,T%:|
00005ab0  54 25 3d 66 69 6c 65 25  3a 50 25 3d 77 25 28 54  |T%=file%:P%=w%(T|
00005ac0  25 2c 31 29 0d 19 c8 31  f2 67 65 74 69 28 50 25  |%,1)...1.geti(P%|
00005ad0  2c 31 32 29 3a c8 99 22  57 69 6d 70 5f 44 65 6c  |,12):.."Wimp_Del|
00005ae0  65 74 65 49 63 6f 6e 22  2c 2c 71 25 3a 71 25 21  |eteIcon",,q%:q%!|
00005af0  34 3d 21 71 25 0d 19 d2  31 71 25 21 31 36 3d 36  |4=!q%...1q%!16=6|
00005b00  2b 28 33 32 36 2d 36 29  2a a4 76 5f 28 31 37 29  |+(326-6)*.v_(17)|
00005b10  2f 28 a4 76 5f 28 31 36  29 2d 28 a4 76 5f 28 31  |/(.v_(16)-(.v_(1|
00005b20  36 29 3d 30 29 29 0d 19  dc 1d c8 99 22 57 69 6d  |6)=0))......"Wim|
00005b30  70 5f 43 72 65 61 74 65  49 63 6f 6e 22 2c 2c 71  |p_CreateIcon",,q|
00005b40  25 2b 34 0d 19 e6 2b c8  99 22 57 69 6d 70 5f 46  |%+4...+.."Wimp_F|
00005b50  6f 72 63 65 52 65 64 72  61 77 22 2c 50 25 2c 36  |orceRedraw",P%,6|
00005b60  2c 2d 32 31 36 2c 33 32  36 2c 2d 31 39 36 0d 19  |,-216,326,-196..|
00005b70  f0 0e f2 73 68 6f 77 6e  75 6d 3a e1 0d 19 fa 04  |...shownum:.....|
00005b80  0d 1a 04 0d dd f2 73 68  6f 77 6e 75 6d 0d 1a 0e  |......shownum...|
00005b90  31 ea 50 25 2c 54 25 2c  4d 25 2c 54 24 3a 54 25  |1.P%,T%,M%,T$:T%|
00005ba0  3d 66 69 6c 65 25 3a f2  73 64 66 69 6c 65 28 54  |=file%:.sdfile(T|
00005bb0  25 29 3a 50 25 3d 77 25  28 54 25 2c 31 29 0d 1a  |%):P%=w%(T%,1)..|
00005bc0  18 24 4e 25 3d a4 76 5f  28 31 35 29 3a 52 25 3d  |.$N%=.v_(15):R%=|
00005bd0  a4 76 5f 28 31 37 29 3a  4d 25 3d a4 76 5f 28 31  |.v_(17):M%=.v_(1|
00005be0  36 29 0d 1a 22 28 f2 67  65 74 69 28 50 25 2c 31  |6).."(.geti(P%,1|
00005bf0  33 29 3a c8 99 22 57 69  6d 70 5f 44 65 6c 65 74  |3):.."Wimp_Delet|
00005c00  65 49 63 6f 6e 22 2c 2c  71 25 0d 1a 2c 11 e7 a4  |eIcon",,q%..,...|
00005c10  62 61 64 72 65 63 28 4e  25 29 8c 0d 1a 36 1c 54  |badrec(N%)...6.T|
00005c20  24 3d 22 3f 3f 3f 3f 3f  3f 3f 3f 3f 3f 22 3a 71  |$="??????????":q|
00005c30  25 21 31 36 3d 31 30 0d  1a 40 05 cc 0d 1a 4a 36  |%!16=10..@....J6|
00005c40  54 24 3d 22 43 22 2b c2  22 30 30 30 30 30 30 30  |T$="C"+."0000000|
00005c50  30 30 30 22 2b c3 4e 25  2c ab 28 52 25 2d 28 52  |000"+.N%,.(R%-(R|
00005c60  25 3c 31 29 29 2b 31 2e  30 30 30 30 30 30 30 30  |%<1))+1.00000000|
00005c70  31 29 0d 1a 54 16 e7 4e  25 3d 30 3a 54 24 3d 22  |1)..T..N%=0:T$="|
00005c80  44 65 66 61 75 6c 74 22  0d 1a 5e 16 e7 73 25 28  |Default"..^..s%(|
00005c90  66 69 6c 65 25 29 3d 31  3a 54 24 3d 22 22 0d 1a  |file%)=1:T$=""..|
00005ca0  68 22 71 25 21 31 36 3d  36 2b 28 33 32 36 2d 36  |h"q%!16=6+(326-6|
00005cb0  29 2a 4e 25 2f 28 4d 25  2d 28 4d 25 3d 30 29 29  |)*N%/(M%-(M%=0))|
00005cc0  0d 1a 72 05 cd 0d 1a 7c  49 71 25 21 34 3d 21 71  |..r....|Iq%!4=!q|
00005cd0  25 3a 71 25 21 38 3d 71  25 21 31 36 2d 34 3a 71  |%:q%!8=q%!16-4:q|
00005ce0  25 21 31 32 3d 2d 32 31  36 3a 71 25 21 32 30 3d  |%!12=-216:q%!20=|
00005cf0  2d 31 39 36 3a c8 99 22  57 69 6d 70 5f 43 72 65  |-196:.."Wimp_Cre|
00005d00  61 74 65 49 63 6f 6e 22  2c 2c 71 25 2b 34 0d 1a  |ateIcon",,q%+4..|
00005d10  86 23 f2 73 65 74 69 28  50 25 2c 31 34 2c 54 24  |.#.seti(P%,14,T$|
00005d20  29 3a f2 69 63 6f 6e 75  70 64 28 50 25 2c 31 32  |):.iconupd(P%,12|
00005d30  29 0d 1a 90 05 e1 0d 1a  9a 04 0d 1a a4 0d dd f2  |)...............|
00005d40  73 68 6f 77 73 75 62 0d  1a ae 2c ea 50 25 3a 50  |showsub...,.P%:P|
00005d50  25 3d 77 25 28 66 69 6c  65 25 2c 31 29 3a f2 73  |%=w%(file%,1):.s|
00005d60  65 74 69 28 50 25 2c 31  39 2c a4 73 75 62 64 65  |eti(P%,19,.subde|
00005d70  73 63 29 0d 1a b8 0f f2  73 68 6f 77 73 75 62 31  |sc).....showsub1|
00005d80  3a e1 0d 1a c2 04 0d 1a  cc 20 dd f2 73 68 6f 77  |:........ ..show|
00005d90  73 75 62 31 3a ea 50 25  2c 4d 25 3a 4d 25 3d a4  |sub1:.P%,M%:M%=.|
00005da0  76 5f 28 31 31 29 0d 1a  d6 19 50 25 3d 77 25 28  |v_(11)....P%=w%(|
00005db0  66 69 6c 65 25 2c 32 29  3a e7 50 25 3e 30 8c 0d  |file%,2):.P%>0..|
00005dc0  1a e0 22 f2 73 75 62 64  69 73 70 31 3a f2 75 6e  |..".subdisp1:.un|
00005dd0  73 65 6c 61 6c 6c 28 50  25 29 3a e7 4d 25 3d 30  |selall(P%):.M%=0|
00005de0  8c 0d 1a ea 0f f2 73 65  6c 69 28 50 25 2c 31 29  |......seli(P%,1)|
00005df0  0d 1a f4 05 cc 0d 1a fe  18 f2 73 65 6c 69 28 50  |..........seli(P|
00005e00  25 2c 28 4d 25 80 33 31  29 2b 32 38 29 0d 1b 08  |%,(M%.31)+28)...|
00005e10  1e e7 4d 25 3e 33 31 3a  f2 73 65 6c 69 28 50 25  |..M%>31:.seli(P%|
00005e20  2c 28 4d 25 80 33 31 29  2b 34 29 0d 1b 12 05 cd  |,(M%.31)+4).....|
00005e30  0d 1b 1c 05 cd 0d 1b 26  05 e1 0d 1b 30 04 0d 1b  |.......&....0...|
00005e40  3a 21 dd f2 73 68 6f 77  69 6e 64 65 78 3a ea 50  |:!..showindex:.P|
00005e50  25 2c 54 25 3a 54 25 3d  a4 63 75 72 69 64 78 0d  |%,T%:T%=.curidx.|
00005e60  1b 44 2d 50 25 3d 77 25  28 66 69 6c 65 25 2c 31  |.D-P%=w%(file%,1|
00005e70  29 3a e7 54 25 3c 3d 30  24 73 64 25 3d 22 20 2a  |):.T%<=0$sd%=" *|
00005e80  20 4e 6f 20 49 6e 64 65  78 20 2a 22 0d 1b 4e 2c  | No Index *"..N,|
00005e90  f2 73 65 74 69 28 50 25  2c 32 30 2c 24 73 64 25  |.seti(P%,20,$sd%|
00005ea0  29 3a f2 6d 61 72 6b 69  64 78 28 54 25 29 3a 6c  |):.markidx(T%):l|
00005eb0  69 78 25 3d 54 25 3a e1  0d 1b 58 04 0d 1b 62 10  |ix%=T%:...X...b.|
00005ec0  dd f2 73 68 6f 77 66 69  6c 74 65 72 0d 1b 6c 19  |..showfilter..l.|
00005ed0  ea 50 25 2c 54 24 3a 50  25 3d 77 25 28 66 69 6c  |.P%,T$:P%=w%(fil|
00005ee0  65 25 2c 31 29 0d 1b 76  40 e7 a4 66 6c 67 28 66  |e%,1)..v@..flg(f|
00005ef0  5f 66 69 6c 74 25 29 54  24 3d a4 74 72 75 6e 63  |_filt%)T$=.trunc|
00005f00  28 66 24 28 66 69 6c 65  25 29 2c 31 39 29 3a 8b  |(f$(file%),19):.|
00005f10  54 24 3d 22 20 20 20 2a  20 4e 6f 20 46 69 6c 74  |T$="   * No Filt|
00005f20  65 72 20 2a 22 0d 1b 80  13 f2 73 65 74 69 28 50  |er *".....seti(P|
00005f30  25 2c 32 31 2c 54 24 29  0d 1b 8a 05 e1 0d 1b 94  |%,21,T$)........|
00005f40  04 0d 1b 9e 0d dd f2 73  68 6f 77 6d 61 63 0d 1b  |.......showmac..|
00005f50  a8 19 ea 50 25 2c 54 24  3a 50 25 3d 77 25 28 66  |...P%,T$:P%=w%(f|
00005f60  69 6c 65 25 2c 31 29 0d  1b b2 2a e7 a4 6d 61 63  |ile%,1)...*..mac|
00005f70  6d 6f 64 65 3a f2 73 65  6c 69 28 50 25 2c 31 38  |mode:.seli(P%,18|
00005f80  29 3a 8b f2 75 6e 73 65  6c 69 28 50 25 2c 31 38  |):..unseli(P%,18|
00005f90  29 0d 1b bc 05 e1 0d 1b  c6 04 0d 1b d0 31 dd a4  |)............1..|
00005fa0  74 72 75 6e 63 28 54 24  2c 54 25 29 3a e7 a9 54  |trunc(T$,T%):..T|
00005fb0  24 3c 3d 54 25 3a 3d 54  24 3a 8b 3d c0 54 24 2c  |$<=T%:=T$:.=.T$,|
00005fc0  54 25 2d 33 29 2b 22 2e  2e 2e 22 0d 1b da 04 0d  |T%-3)+"...".....|
00005fd0  1b e4 0f dd f2 73 68 6f  77 66 6f 75 6e 64 0d 1b  |.....showfound..|
00005fe0  ee 16 ea 50 25 3a 50 25  3d 77 25 28 66 69 6c 65  |...P%:P%=w%(file|
00005ff0  25 2c 31 29 0d 1b f8 12  e7 66 63 25 28 66 69 6c  |%,1).....fc%(fil|
00006000  65 25 29 3c 30 8c 0d 1c  02 23 f2 73 65 74 69 28  |e%)<0....#.seti(|
00006010  50 25 2c 32 34 2c 22 22  29 3a f2 73 65 74 69 28  |P%,24,""):.seti(|
00006020  50 25 2c 32 33 2c 22 22  29 0d 1c 0c 05 cc 0d 1c  |P%,23,"").......|
00006030  16 33 f2 73 65 74 69 28  50 25 2c 32 33 2c c3 28  |.3.seti(P%,23,.(|
00006040  66 63 25 28 66 69 6c 65  25 29 29 29 3a f2 73 65  |fc%(file%))):.se|
00006050  74 69 28 50 25 2c 32 34  2c 22 46 6f 75 6e 64 22  |ti(P%,24,"Found"|
00006060  29 0d 1c 20 05 cd 0d 1c  2a 05 e1 0d 1c 34 04 0d  |).. ....*....4..|
00006070  1c 3e 32 dd f2 64 65 6c  66 69 6c 65 77 73 28 68  |.>2..delfilews(h|
00006080  25 29 3a ea 49 25 3a e7  77 25 28 68 25 2c 30 29  |%):.I%:.w%(h%,0)|
00006090  3e 30 f2 64 65 6c 77 28  77 25 28 68 25 2c 30 29  |>0.delw(w%(h%,0)|
000060a0  29 0d 1c 48 24 e3 49 25  3d 31 b8 6d 61 78 77 25  |)..H$.I%=1.maxw%|
000060b0  3a f2 64 65 6c 66 69 6c  65 77 28 68 25 2c 49 25  |:.delfilew(h%,I%|
000060c0  29 3a ed 3a e1 0d 1c 52  04 0d 1c 5c 15 dd f2 64  |):.:...R...\...d|
000060d0  65 6c 66 69 6c 65 77 28  68 25 2c 49 25 29 0d 1c  |elfilew(h%,I%)..|
000060e0  66 40 e7 77 25 28 68 25  2c 49 25 29 3e 30 3a f2  |f@.w%(h%,I%)>0:.|
000060f0  63 6c 6f 73 65 77 28 77  25 28 68 25 2c 49 25 29  |closew(w%(h%,I%)|
00006100  29 3a e7 77 25 28 68 25  2c 49 25 29 3e 30 f2 64  |):.w%(h%,I%)>0.d|
00006110  65 6c 77 28 77 25 28 68  25 2c 49 25 29 29 0d 1c  |elw(w%(h%,I%))..|
00006120  70 05 e1 0d 1c 7a 04 0d  1c 84 0c dd f2 75 6d 65  |p....z.......ume|
00006130  73 73 32 0d 1c 8e 0c c8  8e 71 25 21 31 36 ca 0d  |ss2......q%!16..|
00006140  1c 98 24 c9 36 3a e7 71  25 21 38 3d 6c 6f 61 64  |..$.6:.q%!8=load|
00006150  72 65 66 25 3a f2 64 61  74 61 73 61 76 65 61 63  |ref%:.datasaveac|
00006160  6b 3a e1 0d 1c a2 28 c9  26 32 30 31 3a e7 71 25  |k:....(.&201:.q%|
00006170  21 38 3d 69 5f 6d 65 72  67 69 6e 67 25 3a 69 5f  |!8=i_merging%:i_|
00006180  6d 65 72 67 69 6e 67 25  2b 3d 31 0d 1c ac 05 cb  |merging%+=1.....|
00006190  0d 1c b6 05 e1 0d 1c c0  04 0d 1c ca 12 dd f2 62  |...............b|
000061a0  61 63 6b 67 72 6e 64 3a  ea 54 25 0d 1c d4 1e e7  |ackgrnd:.T%.....|
000061b0  61 63 6b 70 65 6e 64 69  6e 67 25 3a 61 63 6b 70  |ackpending%:ackp|
000061c0  65 6e 64 69 6e 67 25 3d  a3 0d 1c de 18 e7 73 62  |ending%=......sb|
000061d0  66 69 6c 65 25 3e 3d 30  3a f2 73 75 62 64 69 73  |file%>=0:.subdis|
000061e0  70 0d 1c e8 11 4c 25 3d  6c 61 73 74 61 63 74 25  |p....L%=lastact%|
000061f0  3a f5 0d 1c f2 17 4c 25  3d 28 4c 25 2b 31 29 83  |:.....L%=(L%+1).|
00006200  28 6d 61 78 66 25 2b 31  29 0d 1c fc 29 fd 4c 25  |(maxf%+1)...).L%|
00006210  3d 6c 61 73 74 61 63 74  25 84 28 61 25 28 4c 25  |=lastact%.(a%(L%|
00006220  29 3e 30 80 4c 25 3c 3e  73 74 6f 70 66 69 6c 65  |)>0.L%<>stopfile|
00006230  25 29 0d 1d 06 1c e7 61  25 28 4c 25 29 3d 30 84  |%).....a%(L%)=0.|
00006240  4c 25 3d 73 74 6f 70 66  69 6c 65 25 3a e1 0d 1d  |L%=stopfile%:...|
00006250  10 2a 6c 61 73 74 61 63  74 25 3d 4c 25 3a f2 73  |.*lastact%=L%:.s|
00006260  64 66 69 6c 65 28 4c 25  29 3a 54 25 3d 91 3a c8  |dfile(L%):T%=.:.|
00006270  8e 61 25 28 4c 25 29 ca  0d 1d 1a 0f c9 31 3a f2  |.a%(L%)......1:.|
00006280  73 6b 69 70 28 31 29 0d  1d 24 0f c9 32 3a f2 73  |skip(1)..$..2:.s|
00006290  6b 69 70 28 30 29 0d 1d  2e 0f c9 33 3a f2 73 72  |kip(0).....3:.sr|
000062a0  63 6e 65 78 74 0d 1d 38  0f c9 34 3a f2 66 73 75  |cnext..8..4:.fsu|
000062b0  62 6e 78 74 0d 1d 42 1a  c9 35 2c 36 3a f2 63 73  |bnxt..B..5,6:.cs|
000062c0  75 62 6e 65 78 74 28 61  25 28 4c 25 29 29 0d 1d  |ubnext(a%(L%))..|
000062d0  4c 0f c9 37 3a f2 64 73  75 62 6e 78 74 0d 1d 56  |L..7:.dsubnxt..V|
000062e0  0e c9 38 3a f2 75 70 64  6e 78 74 0d 1d 60 10 c9  |..8:.updnxt..`..|
000062f0  39 3a f2 73 6f 72 74 6e  65 78 74 0d 1d 6a 12 c9  |9:.sortnext..j..|
00006300  31 30 3a f2 70 72 69 6e  74 6e 65 78 74 0d 1d 74  |10:.printnext..t|
00006310  0f c9 31 31 3a f2 69 5f  6e 65 78 74 0d 1d 7e 05  |..11:.i_next..~.|
00006320  cb 0d 1d 88 13 e7 64 65  6c 61 79 25 3c 3e 28 32  |......delay%<>(2|
00006330  45 39 29 8c 0d 1d 92 28  54 25 3d 28 91 2d 54 25  |E9)....(T%=(.-T%|
00006340  2b 34 29 81 35 3a e7 54  25 3c 30 54 25 3d 30 3a  |+4).5:.T%<0T%=0:|
00006350  8b e7 54 25 3e 35 30 54  25 3d 35 30 0d 1d 9c 2e  |..T%>50T%=50....|
00006360  c8 99 22 4f 53 5f 52 65  61 64 4d 6f 6e 6f 74 6f  |.."OS_ReadMonoto|
00006370  6e 69 63 54 69 6d 65 22  b8 64 65 6c 61 79 25 3a  |nicTime".delay%:|
00006380  64 65 6c 61 79 25 2b 3d  54 25 0d 1d a6 05 cd 0d  |delay%+=T%......|
00006390  1d b0 05 e1 0d 1d ba 04  0d 1d c4 12 dd f2 74 65  |..............te|
000063a0  6d 70 6c 61 74 65 28 54  24 29 0d 1d ce 15 f2 74  |mplate(T$).....t|
000063b0  65 6d 70 6c 61 74 65 31  28 54 24 2c 71 25 29 0d  |emplate1(T$,q%).|
000063c0  1d d8 05 e1 0d 1d e2 04  0d 1d ec 2f dd f2 74 65  |.........../..te|
000063d0  6d 70 6c 61 74 65 31 28  54 24 2c 71 25 29 3a 54  |mplate1(T$,q%):T|
000063e0  24 3d a4 6c 6f 77 65 72  28 54 24 29 3a ea 20 49  |$=.lower(T$):. I|
000063f0  25 2c 54 25 2c 4c 25 0d  1d f6 35 49 25 3d 74 65  |%,T%,L%...5I%=te|
00006400  6d 70 25 2b 31 36 3a c8  95 21 49 25 3e 30 80 a4  |mp%+16:..!I%>0..|
00006410  6c 6f 77 65 72 28 24 28  49 25 2b 31 32 29 29 3c  |lower($(I%+12))<|
00006420  3e 54 24 3a 49 25 2b 3d  32 34 3a ce 0d 1e 00 2d  |>T$:I%+=24:....-|
00006430  e7 21 49 25 3c 3d 30 3a  85 39 39 2c 22 54 65 6d  |.!I%<=0:.99,"Tem|
00006440  70 6c 61 74 65 20 27 22  2b 54 24 2b 22 27 20 6e  |plate '"+T$+"' n|
00006450  6f 74 20 66 6f 75 6e 64  22 0d 1e 0a 43 54 25 3d  |ot found"...CT%=|
00006460  74 65 6d 70 25 2b 21 49  25 3a 4c 25 3d 49 25 21  |temp%+!I%:L%=I%!|
00006470  34 3a e3 49 25 3d 30 b8  4c 25 88 34 3a 71 25 21  |4:.I%=0.L%.4:q%!|
00006480  49 25 3d 54 25 21 49 25  3a ed 3a 54 25 3d 71 25  |I%=T%!I%:.:T%=q%|
00006490  2b 38 38 2b 71 25 21 38  34 2a 33 32 0d 1e 14 14  |+88+q%!84*32....|
000064a0  e7 28 71 25 21 35 36 29  80 28 31 3c 3c 38 29 8c  |.(q%!56).(1<<8).|
000064b0  0d 1e 1e 33 71 25 21 37  32 3d a4 77 6f 72 6b 73  |...3q%!72=.works|
000064c0  70 61 63 65 28 71 25 21  38 30 29 3a 24 28 71 25  |pace(q%!80):$(q%|
000064d0  21 37 32 29 3d 24 54 25  3a 54 25 2b 3d a9 24 54  |!72)=$T%:T%+=.$T|
000064e0  25 2b 31 0d 1e 28 3d e7  71 25 21 37 36 3e 30 3a  |%+1..(=.q%!76>0:|
000064f0  71 25 21 37 36 3d a4 77  6f 72 6b 73 70 61 63 65  |q%!76=.workspace|
00006500  28 a9 24 54 25 2b 31 29  3a 24 28 71 25 21 37 36  |(.$T%+1):$(q%!76|
00006510  29 3d 24 54 25 3a 54 25  2b 3d a9 24 54 25 2b 31  |)=$T%:T%+=.$T%+1|
00006520  0d 1e 32 05 cd 0d 1e 3c  0d e7 71 25 21 38 34 3e  |..2....<..q%!84>|
00006530  30 8c 0d 1e 46 1f e3 49  25 3d 71 25 2b 38 38 b8  |0...F..I%=q%+88.|
00006540  71 25 2b 38 34 2b 71 25  21 38 34 2a 33 32 88 33  |q%+84+q%!84*32.3|
00006550  32 0d 1e 50 14 e7 28 49  25 21 31 36 29 80 28 31  |2..P..(I%!16).(1|
00006560  3c 3c 38 29 8c 0d 1e 5a  33 49 25 21 32 30 3d a4  |<<8)...Z3I%!20=.|
00006570  77 6f 72 6b 73 70 61 63  65 28 49 25 21 32 38 29  |workspace(I%!28)|
00006580  3a 24 28 49 25 21 32 30  29 3d 24 54 25 3a 54 25  |:$(I%!20)=$T%:T%|
00006590  2b 3d a9 24 54 25 2b 31  0d 1e 64 3d e7 49 25 21  |+=.$T%+1..d=.I%!|
000065a0  32 34 3e 30 3a 49 25 21  32 34 3d a4 77 6f 72 6b  |24>0:I%!24=.work|
000065b0  73 70 61 63 65 28 a9 24  54 25 2b 31 29 3a 24 28  |space(.$T%+1):$(|
000065c0  49 25 21 32 34 29 3d 24  54 25 3a 54 25 2b 3d a9  |I%!24)=$T%:T%+=.|
000065d0  24 54 25 2b 31 0d 1e 6e  05 cd 0d 1e 78 05 ed 0d  |$T%+1..n....x...|
000065e0  1e 82 05 cd 0d 1e 8c 12  71 25 21 36 34 3d 73 70  |........q%!64=sp|
000065f0  72 69 74 65 73 25 0d 1e  96 05 e1 0d 1e a0 04 0d  |rites%..........|
00006600  1e aa 12 dd a4 74 65 6d  70 6c 61 74 65 28 54 24  |.....template(T$|
00006610  29 0d 1e b4 17 f2 74 65  6d 70 6c 61 74 65 31 28  |).....template1(|
00006620  54 24 2c 74 62 73 25 29  0d 1e be 1f 54 25 3d 74  |T$,tbs%)....T%=t|
00006630  62 73 25 3a 74 62 73 25  2b 3d 38 38 2b 74 62 73  |bs%:tbs%+=88+tbs|
00006640  25 21 38 34 2a 33 32 0d  1e c8 29 e7 74 62 73 25  |%!84*32...).tbs%|
00006650  3e 74 62 65 25 3a 85 39  39 2c 22 54 65 6d 70 6c  |>tbe%:.99,"Templ|
00006660  61 74 65 20 62 75 66 66  65 72 20 66 75 6c 6c 22  |ate buffer full"|
00006670  0d 1e d2 07 3d 54 25 0d  1e dc 04 0d 1e e6 24 dd  |....=T%.......$.|
00006680  f2 6f 70 65 6e 74 65 6d  70 6c 61 74 65 28 41 24  |.opentemplate(A$|
00006690  29 3a 74 65 6d 70 25 3d  93 2d 33 30 30 30 30 0d  |):temp%=.-30000.|
000066a0  1e f0 16 ea 85 3a ee 85  ea 3a f7 85 3a f2 65 72  |.....:...:..:.er|
000066b0  72 28 36 39 29 0d 1e fa  1d ff 22 4c 6f 61 64 20  |r(69)....."Load |
000066c0  22 2b 41 24 2b 22 20 22  2b c3 7e 74 65 6d 70 25  |"+A$+" "+.~temp%|
000066d0  3a e1 0d 1f 04 04 0d 1f  0e 0f dd f2 64 65 66 77  |:...........defw|
000066e0  73 3a ea 49 25 0d 1f 18  16 ea 85 3a ee 85 ea 3a  |s:.I%......:...:|
000066f0  f7 85 3a f2 65 72 72 28  36 37 29 0d 1f 22 17 77  |..:.err(67)..".w|
00006700  74 73 25 3d 36 36 38 38  3a 77 62 73 25 3d 34 34  |ts%=6688:wbs%=44|
00006710  31 33 0d 1f 2c 1e 62 75  66 73 7a 25 3d 28 6d 61  |13..,.bufsz%=(ma|
00006720  78 66 25 2b 31 29 2a 77  62 73 25 2b 38 37 30 30  |xf%+1)*wbs%+8700|
00006730  0d 1f 36 3b de 20 62 75  66 66 65 72 25 20 62 75  |..6;. buffer% bu|
00006740  66 73 7a 25 3a 63 75 72  62 75 66 25 3d 62 75 66  |fsz%:curbuf%=buf|
00006750  66 65 72 25 3a 65 6e 64  62 75 66 25 3d 62 75 66  |fer%:endbuf%=buf|
00006760  66 65 72 25 2b 62 75 66  73 7a 25 0d 1f 40 06 f7  |fer%+bufsz%..@..|
00006770  85 0d 1f 4a 20 f2 6f 70  65 6e 74 65 6d 70 6c 61  |...J .opentempla|
00006780  74 65 28 a4 64 69 72 2b  22 4d 53 46 72 6d 31 22  |te(.dir+"MSFrm1"|
00006790  29 0d 1f 54 16 ea 85 3a  ee 85 ea 3a f7 85 3a f2  |)..T...:...:..:.|
000067a0  65 72 72 28 36 37 29 0d  1f 5e 3a f2 74 65 6d 70  |err(67)..^:.temp|
000067b0  6c 61 74 65 28 22 73 74  6f 70 62 6f 78 22 29 3a  |late("stopbox"):|
000067c0  c8 99 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |.."Wimp_CreateWi|
000067d0  6e 64 6f 77 22 2c 2c 71  25 b8 77 5f 73 74 6f 70  |ndow",,q%.w_stop|
000067e0  25 0d 1f 68 15 f2 74 65  6d 70 6c 61 74 65 28 22  |%..h..template("|
000067f0  73 61 76 65 22 29 0d 1f  72 2d 71 25 21 36 34 3d  |save")..r-q%!64=|
00006800  31 3a c8 99 22 57 69 6d  70 5f 43 72 65 61 74 65  |1:.."Wimp_Create|
00006810  57 69 6e 64 6f 77 22 2c  2c 71 25 b8 77 5f 73 61  |Window",,q%.w_sa|
00006820  76 65 25 0d 1f 7c 3c f2  74 65 6d 70 6c 61 74 65  |ve%..|<.template|
00006830  28 22 50 72 6f 67 49 6e  66 6f 22 29 3a c8 99 22  |("ProgInfo"):.."|
00006840  57 69 6d 70 5f 43 72 65  61 74 65 57 69 6e 64 6f  |Wimp_CreateWindo|
00006850  77 22 2c 2c 71 25 b8 77  5f 70 69 6e 66 6f 25 0d  |w",,q%.w_pinfo%.|
00006860  1f 86 3e f2 74 65 6d 70  6c 61 74 65 28 22 50 72  |..>.template("Pr|
00006870  6f 67 49 6e 66 6f 32 22  29 3a c8 99 22 57 69 6d  |ogInfo2"):.."Wim|
00006880  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
00006890  2c 71 25 b8 77 5f 70 69  6e 66 6f 32 25 0d 1f 90  |,q%.w_pinfo2%...|
000068a0  3b f2 74 65 6d 70 6c 61  74 65 28 22 73 68 61 64  |;.template("shad|
000068b0  6f 77 22 29 3a c8 99 22  57 69 6d 70 5f 43 72 65  |ow"):.."Wimp_Cre|
000068c0  61 74 65 57 69 6e 64 6f  77 22 2c 2c 71 25 b8 77  |ateWindow",,q%.w|
000068d0  5f 73 68 61 64 6f 77 25  0d 1f 9a 3d f2 74 65 6d  |_shadow%...=.tem|
000068e0  70 6c 61 74 65 28 22 49  6d 70 75 6c 73 65 22 29  |plate("Impulse")|
000068f0  3a c8 99 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |:.."Wimp_CreateW|
00006900  69 6e 64 6f 77 22 2c 2c  71 25 b8 77 5f 69 6d 70  |indow",,q%.w_imp|
00006910  75 6c 73 65 25 0d 1f a4  1f 62 75 66 73 7a 25 3d  |ulse%....bufsz%=|
00006920  28 6d 61 78 66 25 2b 31  29 2a 77 74 73 25 2b 31  |(maxf%+1)*wts%+1|
00006930  39 31 35 30 0d 1f ae 36  de 20 74 65 6d 70 6c 61  |9150...6. templa|
00006940  74 65 25 20 62 75 66 73  7a 25 3a 74 62 73 25 3d  |te% bufsz%:tbs%=|
00006950  74 65 6d 70 6c 61 74 65  25 3a 74 62 65 25 3d 74  |template%:tbe%=t|
00006960  62 73 25 2b 62 75 66 73  7a 25 0d 1f b8 10 77 62  |bs%+bufsz%....wb|
00006970  73 25 3d 63 75 72 62 75  66 25 0d 1f c2 0f e3 49  |s%=curbuf%.....I|
00006980  25 3d 30 b8 6d 61 78 66  25 0d 1f cc 1f 74 77 25  |%=0.maxf%....tw%|
00006990  28 49 25 2c 30 29 3d a4  74 65 6d 70 6c 61 74 65  |(I%,0)=.template|
000069a0  28 22 66 69 6c 65 22 29  0d 1f d6 23 74 77 25 28  |("file")...#tw%(|
000069b0  49 25 2c 31 29 3d a4 74  65 6d 70 6c 61 74 65 28  |I%,1)=.template(|
000069c0  22 66 69 6c 65 70 61 6e  65 22 29 0d 1f e0 22 74  |"filepane")..."t|
000069d0  77 25 28 49 25 2c 32 29  3d a4 74 65 6d 70 6c 61  |w%(I%,2)=.templa|
000069e0  74 65 28 22 73 75 62 73  65 74 73 22 29 0d 1f ea  |te("subsets")...|
000069f0  24 74 77 25 28 49 25 2c  33 29 3d a4 74 65 6d 70  |$tw%(I%,3)=.temp|
00006a00  6c 61 74 65 28 22 46 69  65 6c 64 4c 69 73 74 22  |late("FieldList"|
00006a10  29 0d 1f f4 24 74 77 25  28 49 25 2c 34 29 3d a4  |)...$tw%(I%,4)=.|
00006a20  74 65 6d 70 6c 61 74 65  28 22 46 69 65 6c 64 4c  |template("FieldL|
00006a30  69 73 74 22 29 0d 1f fe  24 74 77 25 28 49 25 2c  |ist")...$tw%(I%,|
00006a40  35 29 3d a4 74 65 6d 70  6c 61 74 65 28 22 46 69  |5)=.template("Fi|
00006a50  65 6c 64 4c 69 73 74 22  29 0d 20 08 22 74 77 25  |eldList"). ."tw%|
00006a60  28 49 25 2c 36 29 3d a4  74 65 6d 70 6c 61 74 65  |(I%,6)=.template|
00006a70  28 22 4e 6f 74 65 70 61  64 22 29 0d 20 12 20 74  |("Notepad"). . t|
00006a80  77 25 28 49 25 2c 37 29  3d a4 74 65 6d 70 6c 61  |w%(I%,7)=.templa|
00006a90  74 65 28 22 4d 61 63 72  6f 22 29 0d 20 1c 05 ed  |te("Macro"). ...|
00006aa0  0d 20 26 41 77 62 73 25  3d 28 63 75 72 62 75 66  |. &Awbs%=(curbuf|
00006ab0  25 2d 77 62 73 25 29 2f  28 6d 61 78 66 25 2b 31  |%-wbs%)/(maxf%+1|
00006ac0  29 3a 77 74 73 25 3d 28  74 62 73 25 2d 74 65 6d  |):wts%=(tbs%-tem|
00006ad0  70 6c 61 74 65 25 29 2f  28 6d 61 78 66 25 2b 31  |plate%)/(maxf%+1|
00006ae0  29 0d 20 30 4a f4 20 3b  7b 6e 20 77 62 73 25 20  |). 0J. ;{n wbs% |
00006af0  61 6e 64 20 77 74 73 25  20 6e 6f 77 20 63 6f 6e  |and wts% now con|
00006b00  74 61 69 6e 20 74 68 65  20 6d 69 6e 20 76 61 6c  |tain the min val|
00006b10  75 65 73 20 74 6f 20 75  73 65 20 61 74 20 73 74  |ues to use at st|
00006b20  61 72 74 20 6f 66 20 50  52 4f 43 0d 20 3a 06 f7  |art of PROC. :..|
00006b30  85 0d 20 44 20 f2 6f 70  65 6e 74 65 6d 70 6c 61  |.. D .opentempla|
00006b40  74 65 28 a4 64 69 72 2b  22 4d 53 46 72 6d 32 22  |te(.dir+"MSFrm2"|
00006b50  29 0d 20 4e 16 ea 85 3a  ee 85 ea 3a f7 85 3a f2  |). N...:...:..:.|
00006b60  65 72 72 28 36 37 29 0d  20 58 31 74 77 5f 65 78  |err(67). X1tw_ex|
00006b70  70 72 25 3d a4 74 65 6d  70 6c 61 74 65 28 22 65  |pr%=.template("e|
00006b80  78 70 72 65 73 73 69 6f  6e 22 29 3a 77 5f 65 78  |xpression"):w_ex|
00006b90  70 72 25 3d 2d 31 45 39  0d 20 62 2e 74 77 5f 6e  |pr%=-1E9. b.tw_n|
00006ba0  75 6d 73 25 3d a4 74 65  6d 70 6c 61 74 65 28 22  |ums%=.template("|
00006bb0  6e 75 6d 65 72 69 63 22  29 3a 77 5f 6e 75 6d 73  |numeric"):w_nums|
00006bc0  25 3d 2d 31 45 39 0d 20  6c 2b 74 77 5f 73 6f 72  |%=-1E9. l+tw_sor|
00006bd0  74 25 3d a4 74 65 6d 70  6c 61 74 65 28 22 73 6f  |t%=.template("so|
00006be0  72 74 22 29 3a 77 5f 73  6f 72 74 25 3d 2d 31 45  |rt"):w_sort%=-1E|
00006bf0  39 0d 20 76 2b 74 77 5f  6f 70 65 6e 25 3d a4 74  |9. v+tw_open%=.t|
00006c00  65 6d 70 6c 61 74 65 28  22 6f 70 65 6e 22 29 3a  |emplate("open"):|
00006c10  77 5f 6f 70 65 6e 25 3d  2d 31 45 39 0d 20 80 30  |w_open%=-1E9. .0|
00006c20  74 77 5f 66 69 6e 66 25  3d a4 74 65 6d 70 6c 61  |tw_finf%=.templa|
00006c30  74 65 28 22 46 69 65 6c  64 49 6e 66 6f 22 29 3a  |te("FieldInfo"):|
00006c40  77 5f 66 69 6e 66 25 3d  2d 31 45 39 0d 20 8a 31  |w_finf%=-1E9. .1|
00006c50  74 77 5f 73 74 61 74 75  73 25 3d a4 74 65 6d 70  |tw_status%=.temp|
00006c60  6c 61 74 65 28 22 53 74  61 74 75 73 22 29 3a 77  |late("Status"):w|
00006c70  5f 73 74 61 74 75 73 25  3d 2d 31 45 39 0d 20 94  |_status%=-1E9. .|
00006c80  2e 74 77 5f 72 6c 69 6e  6b 25 3d a4 74 65 6d 70  |.tw_rlink%=.temp|
00006c90  6c 61 74 65 28 22 72 6c  69 6e 6b 22 29 3a 77 5f  |late("rlink"):w_|
00006ca0  72 6c 69 6e 6b 25 3d 2d  31 45 39 0d 20 9e 30 74  |rlink%=-1E9. .0t|
00006cb0  77 5f 73 72 73 65 74 25  3d a4 74 65 6d 70 6c 61  |w_srset%=.templa|
00006cc0  74 65 28 22 73 72 73 65  74 75 70 22 29 3a 77 5f  |te("srsetup"):w_|
00006cd0  73 72 73 65 74 25 3d 2d  31 45 39 0d 20 a8 2f 74  |srset%=-1E9. ./t|
00006ce0  77 5f 6c 61 62 65 6c 25  3d a4 74 65 6d 70 6c 61  |w_label%=.templa|
00006cf0  74 65 28 22 6c 61 62 65  6c 73 22 29 3a 77 5f 6c  |te("labels"):w_l|
00006d00  61 62 65 6c 25 3d 2d 31  45 39 0d 20 b2 2c 74 77  |abel%=-1E9. .,tw|
00006d10  5f 6c 69 6e 65 25 3d a4  74 65 6d 70 6c 61 74 65  |_line%=.template|
00006d20  28 22 6c 6c 69 6e 65 22  29 3a 77 5f 6c 69 6e 65  |("lline"):w_line|
00006d30  25 3d 2d 31 45 39 0d 20  bc 2e 74 77 5f 6d 65 73  |%=-1E9. ..tw_mes|
00006d40  73 25 3d a4 74 65 6d 70  6c 61 74 65 28 22 6d 65  |s%=.template("me|
00006d50  73 73 61 67 65 22 29 3a  77 5f 6d 65 73 73 25 3d  |ssage"):w_mess%=|
00006d60  2d 31 45 39 0d 20 c6 31  74 77 5f 70 61 73 73 77  |-1E9. .1tw_passw|
00006d70  25 3d a4 74 65 6d 70 6c  61 74 65 28 22 70 61 73  |%=.template("pas|
00006d80  73 77 6f 72 64 22 29 3a  77 5f 70 61 73 73 77 25  |sword"):w_passw%|
00006d90  3d 2d 31 45 39 0d 20 d0  2e 74 77 5f 77 6f 72 64  |=-1E9. ..tw_word|
00006da0  25 3d a4 74 65 6d 70 6c  61 74 65 28 22 77 6f 72  |%=.template("wor|
00006db0  64 70 72 6f 22 29 3a 77  5f 77 6f 72 64 25 3d 2d  |dpro"):w_word%=-|
00006dc0  31 45 39 0d 20 da 32 74  77 5f 70 64 72 69 76 65  |1E9. .2tw_pdrive|
00006dd0  25 3d a4 74 65 6d 70 6c  61 74 65 28 22 70 64 72  |%=.template("pdr|
00006de0  69 76 65 72 22 29 3a 77  5f 70 64 72 69 76 65 25  |iver"):w_pdrive%|
00006df0  3d 2d 31 45 39 0d 20 e4  30 74 77 5f 72 73 65 74  |=-1E9. .0tw_rset|
00006e00  31 25 3d a4 74 65 6d 70  6c 61 74 65 28 22 72 65  |1%=.template("re|
00006e10  70 73 65 74 31 22 29 3a  77 5f 72 73 65 74 31 25  |pset1"):w_rset1%|
00006e20  3d 2d 31 45 39 0d 20 ee  30 74 77 5f 72 73 65 74  |=-1E9. .0tw_rset|
00006e30  32 25 3d a4 74 65 6d 70  6c 61 74 65 28 22 72 65  |2%=.template("re|
00006e40  70 73 65 74 32 22 29 3a  77 5f 72 73 65 74 32 25  |pset2"):w_rset2%|
00006e50  3d 2d 31 45 39 0d 20 f8  30 74 77 5f 72 73 65 74  |=-1E9. .0tw_rset|
00006e60  33 25 3d a4 74 65 6d 70  6c 61 74 65 28 22 72 65  |3%=.template("re|
00006e70  70 73 65 74 33 22 29 3a  77 5f 72 73 65 74 33 25  |pset3"):w_rset3%|
00006e80  3d 2d 31 45 39 0d 21 02  2b 74 77 5f 63 6f 6c 25  |=-1E9.!.+tw_col%|
00006e90  3d a4 74 65 6d 70 6c 61  74 65 28 22 63 6f 6c 75  |=.template("colu|
00006ea0  6d 6e 22 29 3a 77 5f 63  6f 6c 25 3d 2d 31 45 39  |mn"):w_col%=-1E9|
00006eb0  0d 21 0c 31 74 77 5f 63  73 69 7a 65 25 3d a4 74  |.!.1tw_csize%=.t|
00006ec0  65 6d 70 6c 61 74 65 28  22 63 61 72 64 73 69 7a  |emplate("cardsiz|
00006ed0  65 22 29 3a 77 5f 63 73  69 7a 65 25 3d 2d 31 45  |e"):w_csize%=-1E|
00006ee0  39 0d 21 16 05 e1 0d 21  20 04 0d 21 2a 11 dd f2  |9.!....! ..!*...|
00006ef0  6c 6f 61 64 73 70 72 69  74 65 73 0d 21 34 16 ea  |loadsprites.!4..|
00006f00  85 3a ee 85 ea 3a f7 85  3a f2 65 72 72 28 36 37  |.:...:..:.err(67|
00006f10  29 0d 21 3e 12 73 73 69  7a 65 25 3d 31 36 2a 31  |).!>.ssize%=16*1|
00006f20  30 32 34 0d 21 48 14 de  73 70 72 69 74 65 73 25  |024.!H..sprites%|
00006f30  20 73 73 69 7a 65 25 0d  21 52 13 ee 85 ea 3a f7  | ssize%.!R....:.|
00006f40  85 3a f2 65 72 72 28 36  38 29 0d 21 5c 32 21 73  |.:.err(68).!\2!s|
00006f50  70 72 69 74 65 73 25 3d  73 73 69 7a 65 25 3a c8  |prites%=ssize%:.|
00006f60  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  |."OS_SpriteOp",&|
00006f70  31 30 39 2c 73 70 72 69  74 65 73 25 0d 21 66 2e  |109,sprites%.!f.|
00006f80  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
00006f90  26 31 30 41 2c 73 70 72  69 74 65 73 25 2c a4 64  |&10A,sprites%,.d|
00006fa0  69 72 2b 22 4d 53 53 70  72 22 0d 21 70 05 e1 0d  |ir+"MSSpr".!p...|
00006fb0  21 7a 04 0d 21 84 12 dd  f2 64 65 66 6d 65 6e 75  |!z..!....defmenu|
00006fc0  73 3a ea 74 24 0d 21 8e  16 ea 85 3a ee 85 ea 3a  |s:.t$.!....:...:|
00006fd0  f7 85 3a f2 65 72 72 28  36 37 29 0d 21 98 1c de  |..:.err(67).!...|
00006fe0  20 6d 6c 69 73 74 25 20  33 32 2c 66 75 6e 63 74  | mlist% 32,funct|
00006ff0  69 6f 6e 25 20 35 31 0d  21 a2 0f 62 75 66 73 7a  |ion% 51.!..bufsz|
00007000  25 3d 26 41 46 30 0d 21  ac 43 de 20 6d 65 6e 75  |%=&AF0.!.C. menu|
00007010  66 72 65 65 25 20 62 75  66 73 7a 25 3a 6d 65 6e  |free% bufsz%:men|
00007020  75 70 74 72 25 3d 6d 65  6e 75 66 72 65 65 25 3a  |uptr%=menufree%:|
00007030  6d 65 6e 75 65 6e 64 25  3d 6d 65 6e 75 66 72 65  |menuend%=menufre|
00007040  65 25 2b 62 75 66 73 7a  25 0d 21 b6 06 f7 85 0d  |e%+bufsz%.!.....|
00007050  21 c0 1c 6d 65 6e 75 73  74 61 72 74 25 3d 6d 65  |!..menustart%=me|
00007060  6e 75 66 72 65 65 25 3a  f7 2b 32 0d 21 ca 1b f3  |nufree%:.+2.!...|
00007070  74 24 3a 6d 5f 6e 70 61  64 25 3d a4 63 72 6d 65  |t$:m_npad%=.crme|
00007080  6e 75 28 74 24 29 0d 21  d4 2b dc 22 23 4e 6f 74  |nu(t$).!.+."#Not|
00007090  65 70 61 64 2c 43 6c 65  61 72 2c 45 78 70 6f 72  |epad,Clear,Expor|
000070a0  74 3e 77 5f 73 61 76 65  25 2c 55 70 64 61 74 65  |t>w_save%,Update|
000070b0  22 0d 21 de 1b f3 74 24  3a 6d 5f 6d 61 69 6e 25  |".!...t$:m_main%|
000070c0  3d a4 63 72 6d 65 6e 75  28 74 24 29 0d 21 e8 4e  |=.crmenu(t$).!.N|
000070d0  dc 22 23 4d 75 6c 74 69  53 74 6f 72 65 2c 49 6e  |."#MultiStore,In|
000070e0  66 6f 3e 77 5f 70 69 6e  66 6f 25 2c 54 72 61 6e  |fo>w_pinfo%,Tran|
000070f0  73 66 65 72 2c 46 61 73  74 20 53 6f 72 74 2c 43  |sfer,Fast Sort,C|
00007100  72 65 61 74 65 2c 53 74  61 74 75 73 2c 50 72 69  |reate,Status,Pri|
00007110  6e 74 65 72 2c 51 75 69  74 22 0d 21 f2 1d f3 74  |nter,Quit".!...t|
00007120  24 3a 6d 5f 66 6f 72 6d  61 74 25 3d a4 63 72 6d  |$:m_format%=.crm|
00007130  65 6e 75 28 74 24 29 0d  21 fc 19 dc 22 23 46 6f  |enu(t$).!..."#Fo|
00007140  72 6d 61 74 2c 4c 69 6e  6b 2c 43 6c 6f 73 65 22  |rmat,Link,Close"|
00007150  0d 22 06 39 74 5f 69 6d  70 75 6c 73 65 25 3d a4  |.".9t_impulse%=.|
00007160  77 6f 72 6b 73 70 61 63  65 28 32 30 30 29 3a f3  |workspace(200):.|
00007170  74 24 3a 6d 5f 69 6d 70  75 6c 73 65 25 3d a4 63  |t$:m_impulse%=.c|
00007180  72 6d 65 6e 75 28 74 24  29 0d 22 10 20 dc 22 23  |rmenu(t$).". ."#|
00007190  43 6f 6d 6d 61 6e 64 2c  24 74 5f 69 6d 70 75 6c  |Command,$t_impul|
000071a0  73 65 25 28 31 39 39 29  22 0d 22 1a 1c f3 74 24  |se%(199)"."...t$|
000071b0  3a 6d 5f 6d 61 63 72 6f  25 3d a4 63 72 6d 65 6e  |:m_macro%=.crmen|
000071c0  75 28 74 24 29 0d 22 24  31 dc 22 23 4d 61 63 72  |u(t$)."$1."#Macr|
000071d0  6f 2c 42 72 6f 77 73 65  20 4d 6f 64 65 2c 45 64  |o,Browse Mode,Ed|
000071e0  69 74 20 4d 6f 64 65 23  2c 55 70 64 61 74 65 20  |it Mode#,Update |
000071f0  43 61 72 64 73 22 0d 22  2e 1d f3 74 24 3a 6d 5f  |Cards"."...t$:m_|
00007200  6d 61 63 72 6f 31 25 3d  a4 63 72 6d 65 6e 75 28  |macro1%=.crmenu(|
00007210  74 24 29 0d 22 38 39 dc  22 23 4d 61 63 72 6f 2c  |t$)."89."#Macro,|
00007220  42 72 6f 77 73 65 20 4d  6f 64 65 2c 45 64 69 74  |Browse Mode,Edit|
00007230  20 4d 6f 64 65 23 2c 43  6c 65 61 72 2c 45 78 70  | Mode#,Clear,Exp|
00007240  6f 72 74 3e 77 5f 73 61  76 65 25 22 0d 22 42 1e  |ort>w_save%"."B.|
00007250  f3 74 24 3a 6d 5f 64 65  66 61 75 6c 74 25 3d a4  |.t$:m_default%=.|
00007260  63 72 6d 65 6e 75 28 74  24 29 0d 22 4c 18 dc 22  |crmenu(t$)."L.."|
00007270  23 44 65 66 61 75 6c 74  2c 53 68 6f 77 2c 55 73  |#Default,Show,Us|
00007280  65 22 0d 22 56 1b f3 74  24 3a 6d 5f 66 69 6c 65  |e"."V..t$:m_file|
00007290  25 3d a4 63 72 6d 65 6e  75 28 74 24 29 0d 22 60  |%=.crmenu(t$)."`|
000072a0  2d dc 22 23 46 69 6c 65  2c 53 65 61 72 63 68 2c  |-."#File,Search,|
000072b0  53 6f 72 74 2c 43 6f 6d  70 61 63 74 2c 4c 69 6e  |Sort,Compact,Lin|
000072c0  6b 2c 49 6d 70 75 6c 73  65 22 0d 22 6a 1b f3 74  |k,Impulse"."j..t|
000072d0  24 3a 6d 5f 77 69 6e 64  25 3d a4 63 72 6d 65 6e  |$:m_wind%=.crmen|
000072e0  75 28 74 24 29 0d 22 74  3f dc 22 23 57 69 6e 64  |u(t$)."t?."#Wind|
000072f0  6f 77 2c 53 75 62 73 65  74 2c 52 65 70 6f 72 74  |ow,Subset,Report|
00007300  2c 46 69 65 6c 64 2c 49  6e 64 65 78 2c 4e 6f 74  |,Field,Index,Not|
00007310  65 70 61 64 2c 4d 61 63  72 6f 23 2c 54 69 64 79  |epad,Macro#,Tidy|
00007320  20 55 70 22 0d 22 7e 1c  f3 74 24 3a 6d 5f 63 61  | Up"."~..t$:m_ca|
00007330  72 64 31 25 3d a4 63 72  6d 65 6e 75 28 74 24 29  |rd1%=.crmenu(t$)|
00007340  0d 22 88 41 dc 22 23 43  61 72 64 2c 44 65 6c 65  |.".A."#Card,Dele|
00007350  74 65 2c 52 65 6d 6f 76  65 2c 53 69 7a 65 2c 45  |te,Remove,Size,E|
00007360  78 70 6f 72 74 3e 77 5f  73 61 76 65 25 2c 49 6d  |xport>w_save%,Im|
00007370  70 75 6c 73 65 3e 6d 5f  69 6d 70 75 6c 73 65 25  |pulse>m_impulse%|
00007380  22 0d 22 92 1b f3 74 24  3a 6d 5f 63 61 72 64 25  |"."...t$:m_card%|
00007390  3d a4 63 72 6d 65 6e 75  28 74 24 29 0d 22 9c 78  |=.crmenu(t$).".x|
000073a0  dc 22 23 43 61 72 64 2c  54 6f 6f 6c 73 3e 77 5f  |."#Card,Tools>w_|
000073b0  70 69 6e 66 6f 25 2c 46  6f 72 6d 61 74 3e 6d 5f  |pinfo%,Format>m_|
000073c0  66 6f 72 6d 61 74 25 2c  4d 61 63 72 6f 3e 6d 5f  |format%,Macro>m_|
000073d0  6d 61 63 72 6f 25 2c 44  65 66 61 75 6c 74 3e 6d  |macro%,Default>m|
000073e0  5f 64 65 66 61 75 6c 74  25 2c 43 61 72 64 3e 6d  |_default%,Card>m|
000073f0  5f 63 61 72 64 31 25 2c  46 69 6c 65 3e 6d 5f 66  |_card1%,File>m_f|
00007400  69 6c 65 25 2c 57 69 6e  64 6f 77 3e 6d 5f 77 69  |ile%,Window>m_wi|
00007410  6e 64 25 22 0d 22 a6 32  74 5f 73 75 62 64 25 3d  |nd%".".2t_subd%=|
00007420  a4 77 6f 72 6b 73 70 61  63 65 28 32 36 29 3a f3  |.workspace(26):.|
00007430  74 24 3a 6d 5f 73 75 62  64 25 3d a4 63 72 6d 65  |t$:m_subd%=.crme|
00007440  6e 75 28 74 24 29 0d 22  b0 20 dc 22 23 44 65 73  |nu(t$).". ."#Des|
00007450  63 72 69 70 74 69 6f 6e  2c 24 74 5f 73 75 62 64  |cription,$t_subd|
00007460  25 28 32 35 29 22 0d 22  ba 1b f3 74 24 3a 6d 5f  |%(25)"."...t$:m_|
00007470  6e 75 6d 73 25 3d a4 63  72 6d 65 6e 75 28 74 24  |nums%=.crmenu(t$|
00007480  29 0d 22 c4 22 dc 22 23  4e 75 6d 65 72 69 63 2c  |)."."."#Numeric,|
00007490  43 72 65 61 74 65 2c 45  64 69 74 2c 44 65 6c 65  |Create,Edit,Dele|
000074a0  74 65 22 0d 22 ce 1b f3  74 24 3a 6d 5f 73 75 62  |te"."...t$:m_sub|
000074b0  73 25 3d a4 63 72 6d 65  6e 75 28 74 24 29 0d 22  |s%=.crmenu(t$)."|
000074c0  d8 3e dc 22 23 53 75 62  73 65 74 73 2c 46 69 6c  |.>."#Subsets,Fil|
000074d0  6c 2c 43 6c 65 61 72 2c  44 65 6c 65 74 65 2c 4e  |l,Clear,Delete,N|
000074e0  61 6d 65 3e 6d 5f 73 75  62 64 25 2c 4e 75 6d 65  |ame>m_subd%,Nume|
000074f0  72 69 63 3e 6d 5f 6e 75  6d 73 25 22 0d 22 e2 1c  |ric>m_nums%"."..|
00007500  f3 74 24 3a 6d 5f 72 74  79 70 65 25 3d a4 63 72  |.t$:m_rtype%=.cr|
00007510  6d 65 6e 75 28 74 24 29  0d 22 ec 35 dc 22 23 54  |menu(t$).".5."#T|
00007520  79 70 65 2c 43 61 72 64  73 2c 53 68 65 65 74 2c  |ype,Cards,Sheet,|
00007530  46 6f 72 6d 75 6c 61 2c  4c 61 62 65 6c 73 2c 57  |Formula,Labels,W|
00007540  6f 72 64 70 72 6f 2c 50  61 67 65 64 22 0d 22 f6  |ordpro,Paged".".|
00007550  1c f3 74 24 3a 6d 5f 72  73 65 74 31 25 3d a4 63  |..t$:m_rset1%=.c|
00007560  72 6d 65 6e 75 28 74 24  29 0d 23 00 25 dc 22 23  |rmenu(t$).#.%."#|
00007570  53 65 74 75 70 2c 45 64  69 74 2c 43 6c 65 61 72  |Setup,Edit,Clear|
00007580  2c 53 61 76 65 7d 77 5f  73 61 76 65 25 22 0d 23  |,Save}w_save%".#|
00007590  0a 1d f3 74 24 3a 6d 5f  72 65 70 6f 72 74 25 3d  |...t$:m_report%=|
000075a0  a4 63 72 6d 65 6e 75 28  74 24 29 0d 23 14 40 dc  |.crmenu(t$).#.@.|
000075b0  22 23 52 65 70 6f 72 74  2c 54 79 70 65 3e 6d 5f  |"#Report,Type>m_|
000075c0  72 74 79 70 65 25 2c 53  65 74 75 70 3e 6d 5f 72  |rtype%,Setup>m_r|
000075d0  73 65 74 31 25 2c 50 72  69 6e 74 2c 45 78 70 6f  |set1%,Print,Expo|
000075e0  72 74 7d 77 5f 73 61 76  65 25 22 0d 23 1e 1d f3  |rt}w_save%".#...|
000075f0  74 24 3a 6d 5f 73 74 61  74 75 73 25 3d a4 63 72  |t$:m_status%=.cr|
00007600  6d 65 6e 75 28 74 24 29  0d 23 28 72 dc 22 23 53  |menu(t$).#(r."#S|
00007610  74 61 74 75 73 6d 65 6e  75 2e 2e 2c 41 6c 69 67  |tatusmenu..,Alig|
00007620  6e 20 57 69 6e 64 6f 77  73 2c 52 65 61 64 20 57  |n Windows,Read W|
00007630  6f 72 6b 73 70 61 63 65  2c 57 72 69 74 65 20 57  |orkspace,Write W|
00007640  6f 72 6b 73 70 61 63 65  2c 4d 6f 64 65 72 6e 69  |orkspace,Moderni|
00007650  73 65 2c 55 70 64 61 74  65 20 4d 65 64 69 61 2c  |se,Update Media,|
00007660  50 61 73 73 77 6f 72 64  2c 45 78 74 65 6e 64 65  |Password,Extende|
00007670  64 20 43 68 61 72 73 65  74 22 0d 23 32 36 74 5f  |d Charset".#26t_|
00007680  69 65 78 70 25 3d a4 74  69 61 28 74 77 5f 65 78  |iexp%=.tia(tw_ex|
00007690  70 72 25 2c 31 37 29 3a  f3 74 24 3a 6d 5f 69 6e  |pr%,17):.t$:m_in|
000076a0  64 65 78 25 3d a4 63 72  6d 65 6e 75 28 74 24 29  |dex%=.crmenu(t$)|
000076b0  0d 23 3c 41 dc 22 23 49  6e 64 65 78 2e 2e 2e 2e  |.#<A."#Index....|
000076c0  2e 2e 2e 2c 41 73 63 65  6e 64 69 6e 67 2c 44 65  |...,Ascending,De|
000076d0  73 63 65 6e 64 69 6e 67  2c 4e 6f 20 49 6e 64 65  |scending,No Inde|
000076e0  78 23 2c 24 74 5f 69 65  78 70 25 28 32 35 35 29  |x#,$t_iexp%(255)|
000076f0  22 0d 23 46 1b f3 74 24  3a 6d 5f 6d 6f 64 65 25  |".#F..t$:m_mode%|
00007700  3d a4 63 72 6d 65 6e 75  28 74 24 29 0d 23 50 45  |=.crmenu(t$).#PE|
00007710  dc 22 23 46 69 6e 64 20  4d 6f 64 65 2c 45 78 61  |."#Find Mode,Exa|
00007720  63 74 2c 44 65 73 63 65  6e 64 69 6e 67 2c 46 75  |ct,Descending,Fu|
00007730  7a 7a 79 2c 4e 65 61 72  65 73 74 2c 53 65 71 75  |zzy,Nearest,Sequ|
00007740  65 6e 74 69 61 6c 2c 43  68 61 72 61 63 74 65 72  |ential,Character|
00007750  22 0d 23 5a 05 e1 0d 23  64 04 0d 23 6e 15 dd f2  |".#Z...#d..#n...|
00007760  66 72 6f 6e 74 28 68 25  2c 58 25 2c 59 25 29 0d  |front(h%,X%,Y%).|
00007770  23 78 0d f2 67 65 74 77  28 68 25 29 0d 23 82 1c  |#x..getw(h%).#..|
00007780  e7 58 25 3e 3d 30 78 31  25 2b 3d 58 25 2d 78 30  |.X%>=0x1%+=X%-x0|
00007790  25 3a 78 30 25 3d 58 25  0d 23 8c 1c e7 59 25 3e  |%:x0%=X%.#...Y%>|
000077a0  3d 30 79 31 25 2b 3d 59  25 2d 79 30 25 3a 79 30  |=0y1%+=Y%-y0%:y0|
000077b0  25 3d 59 25 0d 23 96 2a  f2 6f 70 65 6e 28 68 25  |%=Y%.#.*.open(h%|
000077c0  2c 78 30 25 2c 79 30 25  2c 78 31 25 2c 79 31 25  |,x0%,y0%,x1%,y1%|
000077d0  2c 73 63 78 25 2c 73 63  79 25 2c 2d 31 29 0d 23  |,scx%,scy%,-1).#|
000077e0  a0 05 e1 0d 23 aa 04 0d  23 b4 34 dd f2 6f 70 65  |....#...#.4..ope|
000077f0  6e 28 6f 68 25 2c 6f 78  30 25 2c 6f 79 30 25 2c  |n(oh%,ox0%,oy0%,|
00007800  6f 78 31 25 2c 6f 79 31  25 2c 6f 73 63 78 25 2c  |ox1%,oy1%,oscx%,|
00007810  6f 73 63 79 25 2c 6f 62  68 25 29 0d 23 be 13 ea  |oscy%,obh%).#...|
00007820  4f 25 2c 66 25 3a 66 25  3d 66 69 6c 65 25 0d 23  |O%,f%:f%=file%.#|
00007830  c8 27 21 71 25 3d 6f 68  25 3a c8 99 22 57 69 6d  |.'!q%=oh%:.."Wim|
00007840  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
00007850  22 2c 2c 71 25 0d 23 d2  19 f2 77 74 6f 66 28 6f  |",,q%.#...wtof(o|
00007860  68 25 29 3a e7 66 69 6c  65 25 3e 3d 30 8c 0d 23  |h%):.file%>=0..#|
00007870  dc 0c c8 8e 77 69 6e 64  25 ca 0d 23 e6 10 c9 30  |....wind%..#...0|
00007880  3a f2 6f 70 65 6e 70 61  6e 65 0d 23 f0 0f 7f 3a  |:.openpane.#...:|
00007890  f2 77 69 6d 70 6f 70 65  6e 0d 23 fa 05 cb 0d 24  |.wimpopen.#....$|
000078a0  04 05 cc 0d 24 0e 0a c8  8e 6f 68 25 ca 0d 24 18  |....$....oh%..$.|
000078b0  0f 7f 3a f2 77 69 6d 70  6f 70 65 6e 0d 24 22 05  |..:.wimpopen.$".|
000078c0  cb 0d 24 2c 05 cd 0d 24  36 65 e7 6f 68 25 3d 64  |..$,...$6e.oh%=d|
000078d0  69 61 6c 6f 67 75 65 25  80 73 68 61 64 6f 77 73  |ialogue%.shadows|
000078e0  25 3a f2 67 65 74 77 28  6f 68 25 29 3a f2 6f 70  |%:.getw(oh%):.op|
000078f0  65 6e 28 77 5f 73 68 61  64 6f 77 25 2c 78 30 25  |en(w_shadow%,x0%|
00007900  2b 73 73 25 2c 79 30 25  2d 73 73 25 2c 78 31 25  |+ss%,y0%-ss%,x1%|
00007910  2b 73 73 25 2c 79 31 25  2d 73 73 25 2c 30 2c 30  |+ss%,y1%-ss%,0,0|
00007920  2c 64 69 61 6c 6f 67 75  65 25 29 0d 24 40 1f 6f  |,dialogue%).$@.o|
00007930  70 65 6e 25 3d 4f 25 3a  e7 66 25 3e 3d 30 3a f2  |pen%=O%:.f%>=0:.|
00007940  73 64 66 69 6c 65 28 66  25 29 0d 24 4a 05 e1 0d  |sdfile(f%).$J...|
00007950  24 54 04 0d 24 5e 0e dd  f2 77 69 6d 70 6f 70 65  |$T..$^...wimpope|
00007960  6e 0d 24 68 35 21 71 25  3d 6f 68 25 3a 71 25 21  |n.$h5!q%=oh%:q%!|
00007970  34 3d 6f 78 30 25 3a 71  25 21 38 3d 6f 79 30 25  |4=ox0%:q%!8=oy0%|
00007980  3a 71 25 21 31 32 3d 6f  78 31 25 3a 71 25 21 31  |:q%!12=ox1%:q%!1|
00007990  36 3d 6f 79 31 25 0d 24  72 3e 71 25 21 32 30 3d  |6=oy1%.$r>q%!20=|
000079a0  6f 73 63 78 25 3a 71 25  21 32 34 3d 6f 73 63 79  |oscx%:q%!24=oscy|
000079b0  25 3a 71 25 21 32 38 3d  6f 62 68 25 3a c8 99 22  |%:q%!28=obh%:.."|
000079c0  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
000079d0  2c 2c 71 25 0d 24 7c 05  e1 0d 24 86 04 0d 24 90  |,,q%.$|...$...$.|
000079e0  0e dd f2 6f 70 65 6e 70  61 6e 65 0d 24 9a 1f e7  |...openpane.$...|
000079f0  ac a4 66 6c 67 28 66 5f  70 61 6e 65 25 29 3a f2  |..flg(f_pane%):.|
00007a00  77 69 6d 70 6f 70 65 6e  3a e1 0d 24 a4 19 ea 50  |wimpopen:..$...P|
00007a10  25 2c 66 25 3a 50 25 3d  77 25 28 66 69 6c 65 25  |%,f%:P%=w%(file%|
00007a20  2c 31 29 0d 24 ae 22 66  25 3d 6f 79 31 25 2d 70  |,1).$."f%=oy1%-p|
00007a30  61 6e 65 68 25 3a e7 66  25 3c 6f 79 30 25 66 25  |aneh%:.f%<oy0%f%|
00007a40  3d 6f 79 30 25 0d 24 b8  0d f2 67 65 74 77 28 50  |=oy0%.$...getw(P|
00007a50  25 29 0d 24 c2 24 e7 62  68 61 6e 64 6c 65 25 3d  |%).$.$.bhandle%=|
00007a60  6f 62 68 25 84 6f 62 68  25 3d 77 25 28 66 69 6c  |obh%.obh%=w%(fil|
00007a70  65 25 2c 30 29 8c 0d 24  cc 0b 6f 62 68 25 3d 50  |e%,0)..$..obh%=P|
00007a80  25 0d 24 d6 3a e7 ac 6f  70 65 6e 25 f2 6f 70 65  |%.$.:..open%.ope|
00007a90  6e 28 50 25 2c 6f 78 30  25 2d 70 61 6e 65 77 25  |n(P%,ox0%-panew%|
00007aa0  2d 34 2c 66 25 2c 6f 78  30 25 2d 34 2c 6f 79 31  |-4,f%,ox0%-4,oy1|
00007ab0  25 2c 30 2c 30 2c 6f 62  68 25 29 0d 24 e0 05 cd  |%,0,0,obh%).$...|
00007ac0  0d 24 ea 2c f2 67 65 74  77 28 50 25 29 3a 66 25  |.$.,.getw(P%):f%|
00007ad0  3d 6f 79 31 25 2d 70 61  6e 65 68 25 3a e7 66 25  |=oy1%-paneh%:.f%|
00007ae0  3c 6f 79 30 25 66 25 3d  6f 79 30 25 0d 24 f4 0d  |<oy0%f%=oy0%.$..|
00007af0  f2 77 69 6d 70 6f 70 65  6e 0d 24 fe 2d f2 67 65  |.wimpopen.$.-.ge|
00007b00  74 77 28 77 25 28 66 69  6c 65 25 2c 30 29 29 3a  |tw(w%(file%,0)):|
00007b10  e7 6f 62 68 25 3d 2d 32  3a 6f 62 68 25 3d 62 68  |.obh%=-2:obh%=bh|
00007b20  61 6e 64 6c 65 25 0d 25  08 22 66 25 3d 6f 79 31  |andle%.%."f%=oy1|
00007b30  25 2d 70 61 6e 65 68 25  3a e7 66 25 3c 6f 79 30  |%-paneh%:.f%<oy0|
00007b40  25 66 25 3d 6f 79 30 25  0d 25 12 30 f2 6f 70 65  |%f%=oy0%.%.0.ope|
00007b50  6e 28 50 25 2c 78 30 25  2d 70 61 6e 65 77 25 2d  |n(P%,x0%-panew%-|
00007b60  34 2c 66 25 2c 78 30 25  2d 34 2c 79 31 25 2c 30  |4,f%,x0%-4,y1%,0|
00007b70  2c 30 2c 6f 62 68 25 29  0d 25 1c 05 e1 0d 25 26  |,0,obh%).%....%&|
00007b80  04 0d 25 30 11 dd f2 63  6c 6f 73 65 77 28 21 71  |..%0...closew(!q|
00007b90  25 29 0d 25 3a 13 ea 49  25 2c 66 25 3a 66 25 3d  |%).%:..I%,f%:f%=|
00007ba0  66 69 6c 65 25 0d 25 44  0e f2 77 74 6f 66 28 21  |file%.%D..wtof(!|
00007bb0  71 25 29 0d 25 4e 0e e7  66 69 6c 65 25 3e 3d 30  |q%).%N..file%>=0|
00007bc0  8c 0d 25 58 0c c8 8e 77  69 6e 64 25 ca 0d 25 62  |..%X...wind%..%b|
00007bd0  2c c9 30 3a e7 a4 73 68  6f 77 62 72 61 6e 63 68  |,.0:..showbranch|
00007be0  3a e1 3a 8b e7 ac 63 6c  6f 73 65 6f 6b 25 3a f2  |:.:...closeok%:.|
00007bf0  63 6c 6f 73 65 6f 6b 3a  e1 0d 25 6c 1f f2 63 6c  |closeok:..%l..cl|
00007c00  6f 73 65 66 69 6c 65 28  66 69 6c 65 25 29 3a f2  |osefile(file%):.|
00007c10  6e 6f 64 69 61 6c 3a e1  0d 25 76 36 c9 33 3a e7  |nodial:..%v6.3:.|
00007c20  66 69 6c 65 25 3d 65 64  66 69 6c 65 25 3a e7 65  |file%=edfile%:.e|
00007c30  64 72 65 70 25 3a f2 65  6e 64 65 64 69 74 3a 21  |drep%:.endedit:!|
00007c40  71 25 3d 77 25 28 66 69  6c 65 25 2c 33 29 0d 25  |q%=w%(file%,3).%|
00007c50  80 05 cb 0d 25 8a 05 cd  0d 25 94 1c e7 21 71 25  |....%....%...!q%|
00007c60  3d 64 69 61 6c 6f 67 75  65 25 3a f2 74 69 64 79  |=dialogue%:.tidy|
00007c70  64 69 61 6c 0d 25 9e 1c  c8 99 22 57 69 6d 70 5f  |dial.%...."Wimp_|
00007c80  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 71 25  |CloseWindow",,q%|
00007c90  0d 25 a8 21 f2 6e 6f 64  69 61 6c 3a f2 77 74 6f  |.%.!.nodial:.wto|
00007ca0  66 28 21 71 25 29 3a e7  66 69 6c 65 25 3e 3d 30  |f(!q%):.file%>=0|
00007cb0  8c 0d 25 b2 0c c8 8e 77  69 6e 64 25 ca 0d 25 bc  |..%....wind%..%.|
00007cc0  27 c9 32 2c 33 2c 34 2c  35 2c 36 2c 37 3a f2 64  |'.2,3,4,5,6,7:.d|
00007cd0  65 6c 77 28 77 25 28 66  69 6c 65 25 2c 77 69 6e  |elw(w%(file%,win|
00007ce0  64 25 29 29 0d 25 c6 05  cb 0d 25 d0 05 cc 0d 25  |d%)).%....%....%|
00007cf0  da 0a c8 8e 21 71 25 ca  0d 25 e4 19 c9 77 5f 73  |....!q%..%...w_s|
00007d00  74 6f 70 25 3a 73 74 6f  70 66 69 6c 65 25 3d 2d  |top%:stopfile%=-|
00007d10  31 0d 25 ee 1b c9 77 5f  65 78 70 72 25 3a f2 64  |1.%...w_expr%:.d|
00007d20  65 6c 77 28 77 5f 65 78  70 72 25 29 0d 25 f8 1b  |elw(w_expr%).%..|
00007d30  c9 77 5f 6e 75 6d 73 25  3a f2 64 65 6c 77 28 77  |.w_nums%:.delw(w|
00007d40  5f 6e 75 6d 73 25 29 0d  26 02 1b c9 77 5f 73 6f  |_nums%).&...w_so|
00007d50  72 74 25 3a f2 64 65 6c  77 28 77 5f 73 6f 72 74  |rt%:.delw(w_sort|
00007d60  25 29 0d 26 0c 1b c9 77  5f 6f 70 65 6e 25 3a f2  |%).&...w_open%:.|
00007d70  64 65 6c 77 28 77 5f 6f  70 65 6e 25 29 0d 26 16  |delw(w_open%).&.|
00007d80  1b c9 77 5f 66 69 6e 66  25 3a f2 64 65 6c 77 28  |..w_finf%:.delw(|
00007d90  77 5f 66 69 6e 66 25 29  0d 26 20 1f c9 77 5f 73  |w_finf%).& ..w_s|
00007da0  74 61 74 75 73 25 3a f2  64 65 6c 77 28 77 5f 73  |tatus%:.delw(w_s|
00007db0  74 61 74 75 73 25 29 0d  26 2a 1d c9 77 5f 72 6c  |tatus%).&*..w_rl|
00007dc0  69 6e 6b 25 3a f2 64 65  6c 77 28 77 5f 72 6c 69  |ink%:.delw(w_rli|
00007dd0  6e 6b 25 29 0d 26 34 1d  c9 77 5f 73 72 73 65 74  |nk%).&4..w_srset|
00007de0  25 3a f2 64 65 6c 77 28  77 5f 73 72 73 65 74 25  |%:.delw(w_srset%|
00007df0  29 0d 26 3e 1d c9 77 5f  6c 61 62 65 6c 25 3a f2  |).&>..w_label%:.|
00007e00  64 65 6c 77 28 77 5f 6c  61 62 65 6c 25 29 0d 26  |delw(w_label%).&|
00007e10  48 1b c9 77 5f 6c 69 6e  65 25 3a f2 64 65 6c 77  |H..w_line%:.delw|
00007e20  28 77 5f 6c 69 6e 65 25  29 0d 26 52 1b c9 77 5f  |(w_line%).&R..w_|
00007e30  6d 65 73 73 25 3a f2 64  65 6c 77 28 77 5f 6d 65  |mess%:.delw(w_me|
00007e40  73 73 25 29 0d 26 5c 1d  c9 77 5f 70 61 73 73 77  |ss%).&\..w_passw|
00007e50  25 3a f2 64 65 6c 77 28  77 5f 70 61 73 73 77 25  |%:.delw(w_passw%|
00007e60  29 0d 26 66 1b c9 77 5f  77 6f 72 64 25 3a f2 64  |).&f..w_word%:.d|
00007e70  65 6c 77 28 77 5f 77 6f  72 64 25 29 0d 26 70 1f  |elw(w_word%).&p.|
00007e80  c9 77 5f 70 64 72 69 76  65 25 3a f2 64 65 6c 77  |.w_pdrive%:.delw|
00007e90  28 77 5f 70 64 72 69 76  65 25 29 0d 26 7a 1d c9  |(w_pdrive%).&z..|
00007ea0  77 5f 72 73 65 74 31 25  3a f2 64 65 6c 77 28 77  |w_rset1%:.delw(w|
00007eb0  5f 72 73 65 74 31 25 29  0d 26 84 1d c9 77 5f 72  |_rset1%).&...w_r|
00007ec0  73 65 74 32 25 3a f2 64  65 6c 77 28 77 5f 72 73  |set2%:.delw(w_rs|
00007ed0  65 74 32 25 29 0d 26 8e  1d c9 77 5f 72 73 65 74  |et2%).&...w_rset|
00007ee0  33 25 3a f2 64 65 6c 77  28 77 5f 72 73 65 74 33  |3%:.delw(w_rset3|
00007ef0  25 29 0d 26 98 19 c9 77  5f 63 6f 6c 25 3a f2 64  |%).&...w_col%:.d|
00007f00  65 6c 77 28 77 5f 63 6f  6c 25 29 0d 26 a2 1d c9  |elw(w_col%).&...|
00007f10  77 5f 63 73 69 7a 65 25  3a f2 64 65 6c 77 28 77  |w_csize%:.delw(w|
00007f20  5f 63 73 69 7a 65 25 29  0d 26 ac 05 cb 0d 26 b6  |_csize%).&....&.|
00007f30  05 cd 0d 26 c0 05 e1 0d  26 ca 04 0d 26 d4 19 dd  |...&....&...&...|
00007f40  f2 74 69 64 79 64 69 61  6c 3a f2 72 65 73 74 6f  |.tidydial:.resto|
00007f50  72 65 63 74 0d 26 de 44  64 69 61 6c 72 65 61 73  |rect.&.Ddialreas|
00007f60  6f 6e 25 3d 2d 31 3a 64  69 61 6c 6f 67 75 65 25  |on%=-1:dialogue%|
00007f70  3d 2d 31 3a f2 63 6c 6f  73 65 77 28 77 5f 73 68  |=-1:.closew(w_sh|
00007f80  61 64 6f 77 25 29 3a 65  78 69 30 25 3d 2d 31 3a  |adow%):exi0%=-1:|
00007f90  65 78 69 31 25 3d 2d 31  0d 26 e8 12 64 69 61 6c  |exi1%=-1.&..dial|
00007fa0  66 69 6c 65 25 3d 2d 31  3a e1 0d 26 f2 04 0d 26  |file%=-1:..&...&|
00007fb0  fc 0f dd f2 72 65 73 74  6f 72 65 63 74 0d 27 06  |....restorect.'.|
00007fc0  0f ea 85 3a ee 85 ea 3a  f7 85 3a e1 0d 27 10 28  |...:...:..:..'.(|
00007fd0  c8 99 20 22 57 69 6d 70  5f 47 65 74 43 61 72 65  |.. "Wimp_GetCare|
00007fe0  74 50 6f 73 69 74 69 6f  6e 22 2c 2c 77 6f 72 6b  |tPosition",,work|
00007ff0  62 75 66 25 0d 27 1a 70  e7 21 77 6f 72 6b 62 75  |buf%.'.p.!workbu|
00008000  66 25 3d 64 69 61 6c 6f  67 75 65 25 c8 99 20 22  |f%=dialogue%.. "|
00008010  57 69 6d 70 5f 53 65 74  43 61 72 65 74 50 6f 73  |Wimp_SetCaretPos|
00008020  69 74 69 6f 6e 22 2c 21  64 69 61 6c 63 74 25 2c  |ition",!dialct%,|
00008030  64 69 61 6c 63 74 25 21  34 2c 64 69 61 6c 63 74  |dialct%!4,dialct|
00008040  25 21 38 2c 64 69 61 6c  63 74 25 21 31 32 2c 64  |%!8,dialct%!12,d|
00008050  69 61 6c 63 74 25 21 31  36 2c 64 69 61 6c 63 74  |ialct%!16,dialct|
00008060  25 21 32 30 0d 27 24 05  e1 0d 27 2e 04 0d 27 38  |%!20.'$...'...'8|
00008070  3b dd f2 64 65 6c 77 28  f8 20 54 25 29 3a 21 71  |;..delw(. T%):!q|
00008080  25 3d 54 25 3a c8 99 22  57 69 6d 70 5f 44 65 6c  |%=T%:.."Wimp_Del|
00008090  65 74 65 57 69 6e 64 6f  77 22 2c 2c 71 25 3a 54  |eteWindow",,q%:T|
000080a0  25 3d 2d 31 45 39 3a e1  0d 27 42 04 0d 27 4c 2a  |%=-1E9:..'B..'L*|
000080b0  dd a4 69 61 28 68 25 2c  69 25 29 3a f2 67 65 74  |..ia(h%,i%):.get|
000080c0  69 28 68 25 2c 69 25 29  3a f2 63 68 6b 69 69 3a  |i(h%,i%):.chkii:|
000080d0  3d 71 25 21 32 38 0d 27  56 2a dd a4 76 61 28 68  |=q%!28.'V*..va(h|
000080e0  25 2c 69 25 29 3a f2 67  65 74 69 28 68 25 2c 69  |%,i%):.geti(h%,i|
000080f0  25 29 3a f2 63 68 6b 69  69 3a 3d 71 25 21 33 32  |%):.chkii:=q%!32|
00008100  0d 27 60 2a dd a4 69 6c  28 68 25 2c 69 25 29 3a  |.'`*..il(h%,i%):|
00008110  f2 67 65 74 69 28 68 25  2c 69 25 29 3a f2 63 68  |.geti(h%,i%):.ch|
00008120  6b 69 69 3a 3d 71 25 21  33 36 0d 27 6a 04 0d 27  |kii:=q%!36.'j..'|
00008130  74 31 dd a4 74 69 61 28  54 25 2c 69 25 29 3a ea  |t1..tia(T%,i%):.|
00008140  71 25 3a 71 25 3d 54 25  2b 33 32 2a 69 25 2b 38  |q%:q%=T%+32*i%+8|
00008150  38 3a f2 63 68 6b 69 69  3a 3d 71 25 21 32 30 0d  |8:.chkii:=q%!20.|
00008160  27 7e 04 0d 27 88 43 dd  f2 63 68 6b 69 69 3a e7  |'~..'.C..chkii:.|
00008170  28 71 25 21 32 34 80 26  31 30 30 29 3d 30 85 31  |(q%!24.&100)=0.1|
00008180  2c 22 49 63 6f 6e 20 6e  6f 74 20 69 6e 64 69 72  |,"Icon not indir|
00008190  65 63 74 65 64 20 22 2b  c3 21 71 25 2b 22 20 22  |ected "+.!q%+" "|
000081a0  2b c3 71 25 21 34 0d 27  92 05 e1 0d 27 9c 04 0d  |+.q%!4.'....'...|
000081b0  27 a6 3c dd f2 67 65 74  69 28 68 25 2c 69 25 29  |'.<..geti(h%,i%)|
000081c0  3a 21 71 25 3d 68 25 3a  71 25 21 34 3d 69 25 3a  |:!q%=h%:q%!4=i%:|
000081d0  c8 99 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |.."Wimp_GetIconS|
000081e0  74 61 74 65 22 2c 2c 71  25 3a e1 0d 27 b0 04 0d  |tate",,q%:..'...|
000081f0  27 ba 2e dd a4 74 61 28  68 25 29 3a 21 71 25 3d  |'....ta(h%):!q%=|
00008200  68 25 3a c8 99 22 57 69  6d 70 5f 47 65 74 57 69  |h%:.."Wimp_GetWi|
00008210  6e 64 6f 77 49 6e 66 6f  22 2c 2c 71 25 0d 27 c4  |ndowInfo",,q%.'.|
00008220  2c e7 28 71 25 21 36 30  80 26 31 30 30 29 3d 30  |,.(q%!60.&100)=0|
00008230  85 31 2c 22 54 69 74 6c  65 20 6e 6f 74 20 69 6e  |.1,"Title not in|
00008240  64 69 72 65 63 74 65 64  22 0d 27 ce 0a 3d 71 25  |directed".'..=q%|
00008250  21 37 36 0d 27 d8 04 0d  27 e2 17 dd f2 73 74 6f  |!76.'...'....sto|
00008260  70 28 72 25 2c 54 24 2c  55 24 2c 54 25 29 0d 27  |p(r%,T$,U$,T%).'|
00008270  ec 1f 64 69 61 6c 72 65  61 73 6f 6e 25 3d 72 25  |..dialreason%=r%|
00008280  3a 73 74 6f 70 66 69 6c  65 25 3d 54 25 0d 27 f6  |:stopfile%=T%.'.|
00008290  23 e7 a6 2d 33 84 ac 73  74 6f 70 62 6f 78 65 73  |#..-3..stopboxes|
000082a0  25 3a 6d 69 25 3d 33 3a  f2 6d 73 74 6f 70 3a e1  |%:mi%=3:.mstop:.|
000082b0  0d 28 00 2b f2 73 65 74  69 28 77 5f 73 74 6f 70  |.(.+.seti(w_stop|
000082c0  25 2c 30 2c 54 24 29 3a  f2 73 65 74 69 28 77 5f  |%,0,T$):.seti(w_|
000082d0  73 74 6f 70 25 2c 31 2c  55 24 29 0d 28 0a 29 f2  |stop%,1,U$).(.).|
000082e0  75 6e 73 65 6c 61 6c 6c  28 77 5f 73 74 6f 70 25  |unselall(w_stop%|
000082f0  29 3a f2 64 69 61 6c 6f  67 75 65 28 77 5f 73 74  |):.dialogue(w_st|
00008300  6f 70 25 29 0d 28 14 1f  64 69 61 6c 72 65 61 73  |op%).(..dialreas|
00008310  6f 6e 25 3d 72 25 3a 73  74 6f 70 66 69 6c 65 25  |on%=r%:stopfile%|
00008320  3d 54 25 0d 28 1e 05 e1  0d 28 28 04 0d 28 32 12  |=T%.(....((..(2.|
00008330  dd f2 64 69 61 6c 6f 67  75 65 28 68 25 29 0d 28  |..dialogue(h%).(|
00008340  3c 1b ea 58 25 2c 59 25  3a 58 25 3d 66 69 6c 65  |<..X%,Y%:X%=file|
00008350  25 3a f2 6e 6f 64 69 61  6c 0d 28 46 27 c8 99 20  |%:.nodial.(F'.. |
00008360  22 57 69 6d 70 5f 47 65  74 43 61 72 65 74 50 6f  |"Wimp_GetCaretPo|
00008370  73 69 74 69 6f 6e 22 2c  2c 64 69 61 6c 63 74 25  |sition",,dialct%|
00008380  0d 28 50 3a 64 69 61 6c  66 69 6c 65 25 3d 58 25  |.(P:dialfile%=X%|
00008390  3a f2 6e 6f 6d 65 6e 75  3a f2 72 65 61 64 70 6f  |:.nomenu:.readpo|
000083a0  69 6e 74 65 72 3a 58 25  3d 6d 78 25 2d 32 30 30  |inter:X%=mx%-200|
000083b0  3a 59 25 3d 6d 79 25 2d  38 35 0d 28 5a 0d e7 58  |:Y%=my%-85.(Z..X|
000083c0  25 3c 30 58 25 3d 30 0d  28 64 0f e7 59 25 3c 39  |%<0X%=0.(d..Y%<9|
000083d0  36 59 25 3d 39 36 0d 28  6e 10 64 69 61 6c 6f 67  |6Y%=96.(n.dialog|
000083e0  75 65 25 3d 68 25 0d 28  78 14 f2 66 72 6f 6e 74  |ue%=h%.(x..front|
000083f0  28 68 25 2c 58 25 2c 59  25 29 0d 28 82 14 f2 73  |(h%,X%,Y%).(...s|
00008400  65 74 63 74 28 68 25 2c  2d 31 2c 2d 31 29 0d 28  |etct(h%,-1,-1).(|
00008410  8c 13 e7 68 25 3d 77 5f  69 6d 70 75 6c 73 65 25  |...h%=w_impulse%|
00008420  8c 0d 28 96 1c f2 73 65  74 63 74 28 68 25 2c 39  |..(...setct(h%,9|
00008430  2c a9 24 a4 69 61 28 68  25 2c 39 29 29 0d 28 a0  |,.$.ia(h%,9)).(.|
00008440  05 cc 0d 28 aa 0b f7 8d  70 52 63 3a f5 0d 28 b4  |...(....pRc:..(.|
00008450  3b f2 72 65 61 64 68 28  68 25 29 3a e7 68 25 3d  |;.readh(h%):.h%=|
00008460  64 69 61 6c 6f 67 75 65  25 3a f3 58 25 3a f2 73  |dialogue%:.X%:.s|
00008470  65 74 63 74 28 68 25 2c  58 25 2c a9 24 a4 69 61  |etct(h%,X%,.$.ia|
00008480  28 68 25 2c 58 25 29 29  0d 28 be 1d e7 68 25 3c  |(h%,X%)).(...h%<|
00008490  3e 2d 31 3a f5 3a f3 58  25 3a fd 58 25 3c 2d 31  |>-1:.:.X%:.X%<-1|
000084a0  3a 68 25 3d 30 0d 28 c8  16 fd 68 25 3d 64 69 61  |:h%=0.(...h%=dia|
000084b0  6c 6f 67 75 65 25 84 68  25 3c 30 0d 28 d2 05 cd  |logue%.h%<0.(...|
000084c0  0d 28 dc 05 e1 0d 28 e6  04 0d 28 f0 21 dd f2 72  |.(....(...(.!..r|
000084d0  65 61 64 70 6f 69 6e 74  65 72 3a ea 71 25 3a 71  |eadpointer:.q%:q|
000084e0  25 3d 77 6f 72 6b 62 75  66 25 0d 28 fa 1f c8 99  |%=workbuf%.(....|
000084f0  22 57 69 6d 70 5f 47 65  74 50 6f 69 6e 74 65 72  |"Wimp_GetPointer|
00008500  49 6e 66 6f 22 2c 2c 71  25 0d 29 04 31 6d 78 25  |Info",,q%.).1mx%|
00008510  3d 21 71 25 3a 6d 79 25  3d 71 25 21 34 3a 6d 62  |=!q%:my%=q%!4:mb|
00008520  25 3d 71 25 21 38 3a 6d  68 25 3d 71 25 21 31 32  |%=q%!8:mh%=q%!12|
00008530  3a 6d 69 25 3d 71 25 21  31 36 0d 29 0e 05 e1 0d  |:mi%=q%!16.)....|
00008540  29 18 04 0d 29 22 15 dd  a4 64 69 61 6c 6f 67 75  |)...)"...dialogu|
00008550  65 3a ea 66 69 6c 65 25  0d 29 2c 36 e7 64 69 61  |e:.file%.),6.dia|
00008560  6c 6f 67 75 65 25 3e 3d  30 80 6d 68 25 3c 3e 64  |logue%>=0.mh%<>d|
00008570  69 61 6c 6f 67 75 65 25  80 6d 68 25 3c 3e 77 5f  |ialogue%.mh%<>w_|
00008580  73 68 61 64 6f 77 25 f2  6e 6f 64 69 61 6c 0d 29  |shadow%.nodial.)|
00008590  36 06 3d a3 0d 29 40 04  0d 29 4a 24 dd f2 6d 6f  |6.=..)@..)J$..mo|
000085a0  75 73 65 28 6d 78 25 2c  6d 79 25 2c 6d 62 25 2c  |use(mx%,my%,mb%,|
000085b0  6d 68 25 2c 6d 69 25 2c  6d 6f 25 29 0d 29 54 1d  |mh%,mi%,mo%).)T.|
000085c0  e7 64 72 61 67 72 65 61  73 6f 6e 25 3e 3d 30 84  |.dragreason%>=0.|
000085d0  6d 62 25 3e 32 35 35 3a  e1 0d 29 5e 37 f2 77 74  |mb%>255:..)^7.wt|
000085e0  6f 66 28 6d 68 25 29 3a  e7 66 69 6c 65 25 3e 3d  |of(mh%):.file%>=|
000085f0  30 80 77 69 6e 64 25 3d  36 80 28 6d 62 25 3d 31  |0.wind%=6.(mb%=1|
00008600  84 6d 62 25 3d 34 29 80  6d 69 25 3c 31 39 3a e1  |.mb%=4).mi%<19:.|
00008610  0d 29 68 18 e7 6d 62 25  3c 31 36 3a e7 a4 64 69  |.)h..mb%<16:..di|
00008620  61 6c 6f 67 75 65 3a e1  0d 29 72 33 77 5f 69 6e  |alogue:..)r3w_in|
00008630  66 6f 25 3d 77 5f 70 69  6e 66 6f 25 3a e7 6d 62  |fo%=w_pinfo%:.mb|
00008640  25 3d 37 3a 6d 62 25 3d  32 3a 77 5f 69 6e 66 6f  |%=7:mb%=2:w_info|
00008650  25 3d 77 5f 70 69 6e 66  6f 32 25 0d 29 7c 0a c8  |%=w_pinfo2%.)|..|
00008660  8e 6d 62 25 ca 0d 29 86  0c c9 32 3a f2 6d 65 6e  |.mb%..)...2:.men|
00008670  75 0d 29 90 10 c9 31 2c  34 3a f2 73 65 6c 65 63  |u.)...1,4:.selec|
00008680  74 0d 29 9a 15 c9 31 36  2c 36 34 3a f2 73 74 61  |t.)...16,64:.sta|
00008690  72 74 64 72 61 67 0d 29  a4 05 cb 0d 29 ae 05 e1  |rtdrag.)....)...|
000086a0  0d 29 b8 04 0d 29 c2 36  dd f2 73 65 74 69 28 68  |.)...).6..seti(h|
000086b0  25 2c 69 25 2c 54 24 29  3a 54 24 3d c0 54 24 2c  |%,i%,T$):T$=.T$,|
000086c0  a4 69 6c 28 68 25 2c 69  25 29 29 3a 24 a4 69 61  |.il(h%,i%)):$.ia|
000086d0  28 68 25 2c 69 25 29 3d  54 24 0d 29 cc 3c f2 69  |(h%,i%)=T$.).<.i|
000086e0  63 6f 6e 75 70 64 28 68  25 2c 69 25 29 3a f2 67  |conupd(h%,i%):.g|
000086f0  65 74 63 74 3a e7 21 71  25 3d 68 25 80 71 25 21  |etct:.!q%=h%.q%!|
00008700  34 3d 69 25 3a f2 73 65  74 63 74 28 68 25 2c 69  |4=i%:.setct(h%,i|
00008710  25 2c a9 54 24 29 0d 29  d6 05 e1 0d 29 e0 04 0d  |%,.T$).)....)...|
00008720  29 ea 27 dd f2 69 73 65  74 28 68 25 2c 69 25 2c  |).'..iset(h%,i%,|
00008730  42 25 2c 45 25 29 3a ea  71 25 3a 71 25 3d 77 6f  |B%,E%):.q%:q%=wo|
00008740  72 6b 62 75 66 25 0d 29  f4 3f 21 71 25 3d 68 25  |rkbuf%.).?!q%=h%|
00008750  3a 71 25 21 34 3d 69 25  3a 71 25 21 31 32 3d 42  |:q%!4=i%:q%!12=B|
00008760  25 3a 71 25 21 38 3d 45  25 3a c8 99 22 57 69 6d  |%:q%!8=E%:.."Wim|
00008770  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
00008780  2c 71 25 3a e1 0d 29 fe  04 0d 2a 08 27 dd f2 69  |,q%:..)...*.'..i|
00008790  63 6f 6e 75 70 64 28 68  25 2c 69 25 29 3a f2 69  |conupd(h%,i%):.i|
000087a0  73 65 74 28 68 25 2c 69  25 2c 30 2c 30 29 3a e1  |set(h%,i%,0,0):.|
000087b0  0d 2a 12 04 0d 2a 1c 0f  dd f2 66 6f 72 63 65 28  |.*...*....force(|
000087c0  68 25 29 0d 2a 26 09 c8  8e 68 25 ca 0d 2a 30 2e  |h%).*&...h%..*0.|
000087d0  7f c8 99 22 57 69 6d 70  5f 46 6f 72 63 65 52 65  |..."Wimp_ForceRe|
000087e0  64 72 61 77 22 2c 68 25  2c 2d 31 45 39 2c 2d 31  |draw",h%,-1E9,-1|
000087f0  45 39 2c 31 45 39 2c 31  45 39 0d 2a 3a 05 cb 0d  |E9,1E9,1E9.*:...|
00008800  2a 44 05 e1 0d 2a 4e 04  0d 2a 58 13 dd f2 72 65  |*D...*N..*X...re|
00008810  61 64 62 6c 6f 63 6b 28  70 25 29 0d 2a 62 37 78  |adblock(p%).*b7x|
00008820  30 25 3d 21 70 25 3a 79  30 25 3d 70 25 21 34 3a  |0%=!p%:y0%=p%!4:|
00008830  78 31 25 3d 70 25 21 38  3a 79 31 25 3d 70 25 21  |x1%=p%!8:y1%=p%!|
00008840  31 32 3a f4 20 70 68 79  73 69 63 61 6c 20 61 72  |12:. physical ar|
00008850  65 61 0d 2a 6c 46 73 63  78 25 3d 70 25 21 31 36  |ea.*lFscx%=p%!16|
00008860  3a 73 63 79 25 3d 70 25  21 32 30 3a 62 68 61 6e  |:scy%=p%!20:bhan|
00008870  64 6c 65 25 3d 70 25 21  32 34 3a f4 20 73 63 72  |dle%=p%!24:. scr|
00008880  6f 6c 6c 20 6f 66 66 73  65 74 73 2c 20 73 74 61  |oll offsets, sta|
00008890  63 6b 20 64 65 70 74 68  0d 2a 76 4a 62 78 25 3d  |ck depth.*vJbx%=|
000088a0  78 30 25 2d 73 63 78 25  3a 62 79 25 3d 79 31 25  |x0%-scx%:by%=y1%|
000088b0  2d 73 63 79 25 3a f4 20  63 61 6c 63 75 6c 61 74  |-scy%:. calculat|
000088c0  65 20 70 68 79 73 69 63  61 6c 20 63 6f 2d 6f 72  |e physical co-or|
000088d0  64 73 20 6f 66 20 6c 6f  67 69 63 61 6c 20 61 72  |ds of logical ar|
000088e0  65 61 0d 2a 80 3e 65 78  30 25 3d 70 25 21 34 30  |ea.*.>ex0%=p%!40|
000088f0  3a 65 79 30 25 3d 70 25  21 34 34 3a 65 78 31 25  |:ey0%=p%!44:ex1%|
00008900  3d 70 25 21 34 38 3a 65  79 31 25 3d 70 25 21 35  |=p%!48:ey1%=p%!5|
00008910  32 3a f4 20 6c 6f 67 69  63 61 6c 20 61 72 65 61  |2:. logical area|
00008920  0d 2a 8a 41 67 78 30 25  3d 70 25 21 32 34 3a 67  |.*.Agx0%=p%!24:g|
00008930  79 30 25 3d 70 25 21 32  38 3a 67 78 31 25 3d 70  |y0%=p%!28:gx1%=p|
00008940  25 21 33 32 3a 67 79 31  25 3d 70 25 21 33 36 3a  |%!32:gy1%=p%!36:|
00008950  f4 20 67 72 61 70 68 69  63 73 20 77 69 6e 64 6f  |. graphics windo|
00008960  77 0d 2a 94 2e 6f 70 65  6e 25 3d 28 70 25 21 32  |w.*..open%=(p%!2|
00008970  38 80 26 31 30 30 30 30  29 3c 3e 30 3a f4 20 77  |8.&10000)<>0:. w|
00008980  69 6e 64 6f 77 20 6f 70  65 6e 20 66 6c 61 67 0d  |indow open flag.|
00008990  2a 9e 05 e1 0d 2a a8 04  0d 2a b2 0e dd f2 67 65  |*....*...*....ge|
000089a0  74 77 28 68 25 29 0d 2a  bc 25 21 71 25 3d 68 25  |tw(h%).*.%!q%=h%|
000089b0  3a c8 99 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |:.."Wimp_GetWind|
000089c0  6f 77 49 6e 66 6f 22 2c  2c 71 25 0d 2a c6 14 f2  |owInfo",,q%.*...|
000089d0  72 65 61 64 62 6c 6f 63  6b 28 71 25 2b 34 29 0d  |readblock(q%+4).|
000089e0  2a d0 05 e1 0d 2a da 04  0d 2a e4 0c dd f2 73 65  |*....*...*....se|
000089f0  6c 65 63 74 0d 2a ee 19  f2 77 74 6f 66 28 6d 68  |lect.*...wtof(mh|
00008a00  25 29 3a e7 66 69 6c 65  25 3e 3d 30 8c 0d 2a f8  |%):.file%>=0..*.|
00008a10  0c c8 8e 77 69 6e 64 25  ca 0d 2b 02 0d c9 30 3a  |...wind%..+...0:|
00008a20  f2 6d 63 61 72 64 0d 2b  0c 0d c9 31 3a f2 6d 70  |.mcard.+...1:.mp|
00008a30  61 6e 65 0d 2b 16 0d c9  32 3a f2 6d 73 75 62 73  |ane.+...2:.msubs|
00008a40  0d 2b 20 0c c9 33 3a f2  6d 72 65 70 0d 2b 2a 0e  |.+ ..3:.mrep.+*.|
00008a50  c9 34 3a f2 6d 66 6c 69  73 74 0d 2b 34 0e c9 35  |.4:.mflist.+4..5|
00008a60  3a f2 6d 69 6c 69 73 74  0d 2b 3e 05 cb 0d 2b 48  |:.milist.+>...+H|
00008a70  05 cc 0d 2b 52 17 e7 a4  6e 75 6d 69 28 6d 68 25  |...+R...numi(mh%|
00008a80  2c 6d 69 25 2c 6d 62 25  29 0d 2b 5c 33 e7 6d 68  |,mi%,mb%).+\3.mh|
00008a90  25 3d 64 69 61 6c 6f 67  75 65 25 3a e7 64 69 61  |%=dialogue%:.dia|
00008aa0  6c 66 69 6c 65 25 3e 3d  30 3a f2 73 64 66 69 6c  |lfile%>=0:.sdfil|
00008ab0  65 28 64 69 61 6c 66 69  6c 65 25 29 0d 2b 66 0a  |e(dialfile%).+f.|
00008ac0  c8 8e 6d 68 25 ca 0d 2b  70 2a c9 2d 32 3a e7 6d  |..mh%..+p*.-2:.m|
00008ad0  62 25 3d 31 80 a6 2d 31  80 a6 2d 32 3a f2 6f 73  |b%=1..-1..-2:.os|
00008ae0  63 6c 69 28 22 22 29 3a  8b f2 73 74 61 74 75 73  |cli(""):..status|
00008af0  0d 2b 7a 13 c9 77 5f 6f  70 65 6e 25 3a f2 6d 6f  |.+z..w_open%:.mo|
00008b00  70 65 6e 0d 2b 84 13 c9  77 5f 73 74 6f 70 25 3a  |pen.+...w_stop%:|
00008b10  f2 6d 73 74 6f 70 0d 2b  8e 13 c9 77 5f 73 6f 72  |.mstop.+...w_sor|
00008b20  74 25 3a f2 6d 73 6f 72  74 0d 2b 98 13 c9 77 5f  |t%:.msort.+...w_|
00008b30  73 61 76 65 25 3a f2 6d  73 61 76 65 0d 2b a2 13  |save%:.msave.+..|
00008b40  c9 77 5f 65 78 70 72 25  3a f2 6d 65 78 70 72 0d  |.w_expr%:.mexpr.|
00008b50  2b ac 13 c9 77 5f 6e 75  6d 73 25 3a f2 6d 6e 75  |+...w_nums%:.mnu|
00008b60  6d 73 0d 2b b6 13 c9 77  5f 66 69 6e 66 25 3a f2  |ms.+...w_finf%:.|
00008b70  6d 66 69 6e 66 0d 2b c0  17 c9 77 5f 73 74 61 74  |mfinf.+...w_stat|
00008b80  75 73 25 3a f2 6d 73 74  61 74 75 73 0d 2b ca 15  |us%:.mstatus.+..|
00008b90  c9 77 5f 72 6c 69 6e 6b  25 3a f2 6d 72 6c 69 6e  |.w_rlink%:.mrlin|
00008ba0  6b 0d 2b d4 15 c9 77 5f  73 72 73 65 74 25 3a f2  |k.+...w_srset%:.|
00008bb0  6d 73 72 73 65 74 0d 2b  de 15 c9 77 5f 6c 61 62  |msrset.+...w_lab|
00008bc0  65 6c 25 3a f2 6d 6c 61  62 65 6c 0d 2b e8 13 c9  |el%:.mlabel.+...|
00008bd0  77 5f 6c 69 6e 65 25 3a  f2 6d 6c 69 6e 65 0d 2b  |w_line%:.mline.+|
00008be0  f2 24 c9 77 5f 6d 65 73  73 25 3a e7 6d 69 25 3d  |.$.w_mess%:.mi%=|
00008bf0  36 3a f2 63 6c 6f 73 65  77 28 77 5f 6d 65 73 73  |6:.closew(w_mess|
00008c00  25 29 0d 2b fc 15 c9 77  5f 70 61 73 73 77 25 3a  |%).+...w_passw%:|
00008c10  f2 6d 70 61 73 73 77 0d  2c 06 13 c9 77 5f 77 6f  |.mpassw.,...w_wo|
00008c20  72 64 25 3a f2 6d 77 6f  72 64 0d 2c 10 17 c9 77  |rd%:.mword.,...w|
00008c30  5f 70 64 72 69 76 65 25  3a f2 6d 70 64 72 69 76  |_pdrive%:.mpdriv|
00008c40  65 0d 2c 1a 15 c9 77 5f  72 73 65 74 31 25 3a f2  |e.,...w_rset1%:.|
00008c50  6d 72 73 65 74 31 0d 2c  24 15 c9 77 5f 72 73 65  |mrset1.,$..w_rse|
00008c60  74 32 25 3a f2 6d 72 73  65 74 32 0d 2c 2e 15 c9  |t2%:.mrset2.,...|
00008c70  77 5f 72 73 65 74 33 25  3a f2 6d 72 73 65 74 33  |w_rset3%:.mrset3|
00008c80  0d 2c 38 11 c9 77 5f 63  6f 6c 25 3a f2 6d 63 6f  |.,8..w_col%:.mco|
00008c90  6c 0d 2c 42 15 c9 77 5f  63 73 69 7a 65 25 3a f2  |l.,B..w_csize%:.|
00008ca0  6d 63 73 69 7a 65 0d 2c  4c 19 c9 77 5f 69 6d 70  |mcsize.,L..w_imp|
00008cb0  75 6c 73 65 25 3a f2 6d  69 6d 70 75 6c 73 65 0d  |ulse%:.mimpulse.|
00008cc0  2c 56 05 cb 0d 2c 60 05  cd 0d 2c 6a 05 e1 0d 2c  |,V...,`...,j...,|
00008cd0  74 04 0d 2c 7e 0b dd f2  6d 63 61 72 64 0d 2c 88  |t..,~...mcard.,.|
00008ce0  25 6d 65 6e 75 66 69 65  6c 64 25 3d a4 6d 6f 75  |%menufield%=.mou|
00008cf0  73 65 66 3a e7 6d 65 6e  75 66 69 65 6c 64 25 3e  |sef:.menufield%>|
00008d00  30 8c 0d 2c 92 1c e7 6d  62 25 3d 31 3a f2 66 69  |0..,...mb%=1:.fi|
00008d10  6e 66 6f 28 a3 29 3a 8b  f2 66 65 64 69 74 0d 2c  |nfo(.):..fedit.,|
00008d20  9c 05 cd 0d 2c a6 05 e1  0d 2c b0 04 0d 2c ba 2d  |....,....,...,.-|
00008d30  dd f2 6d 66 6c 69 73 74  3a ea 59 25 3a 59 25 3d  |..mflist:.Y%:Y%=|
00008d40  6d 79 25 3a f2 79 63 6f  6e 76 28 59 25 2c a4 76  |my%:.yconv(Y%,.v|
00008d50  5f 28 37 29 2c 6d 68 25  29 0d 2c c4 2e 6d 65 6e  |_(7),mh%).,..men|
00008d60  75 66 69 65 6c 64 25 3d  59 25 3a e7 6d 62 25 3d  |ufield%=Y%:.mb%=|
00008d70  31 3a f2 66 69 6e 66 6f  28 a3 29 3a 8b f2 66 69  |1:.finfo(.):..fi|
00008d80  6e 64 66 69 65 6c 64 0d  2c ce 05 e1 0d 2c d8 04  |ndfield.,....,..|
00008d90  0d 2c e2 30 dd f2 6d 69  6c 69 73 74 3a ea 59 25  |.,.0..milist:.Y%|
00008da0  3a 59 25 3d 6d 79 25 3a  f2 79 63 6f 6e 76 28 59  |:Y%=my%:.yconv(Y|
00008db0  25 2c a4 6e 69 6e 64 69  63 65 73 2c 6d 68 25 29  |%,.nindices,mh%)|
00008dc0  0d 2c ec 29 e7 59 25 3e  30 3a e7 ac a4 64 65 61  |.,.).Y%>0:...dea|
00008dd0  64 66 69 6c 65 28 2d 31  29 3a f2 73 65 6c 69 6e  |dfile(-1):.selin|
00008de0  64 65 78 28 59 25 2c 30  29 0d 2c f6 05 e1 0d 2d  |dex(Y%,0).,....-|
00008df0  00 04 0d 2d 0a 0b dd f2  6d 70 61 6e 65 0d 2d 14  |...-....mpane.-.|
00008e00  0a c8 8e 6d 69 25 ca 0d  2d 1e 0b c9 30 3a f2 62  |...mi%..-...0:.b|
00008e10  6f 66 0d 2d 28 0c c9 31  3a f2 62 61 63 6b 0d 2d  |of.-(..1:.back.-|
00008e20  32 0d c9 32 3a f2 70 61  75 73 65 0d 2d 3c 0b c9  |2..2:.pause.-<..|
00008e30  33 3a f2 66 77 64 0d 2d  46 0b c9 34 3a f2 65 6f  |3:.fwd.-F..4:.eo|
00008e40  66 0d 2d 50 0d c9 35 3a  f2 66 66 69 6e 64 0d 2d  |f.-P..5:.ffind.-|
00008e50  5a 11 c9 36 3a f2 6e 65  78 74 6d 61 74 63 68 0d  |Z..6:.nextmatch.|
00008e60  2d 64 0e c9 31 32 3a f2  67 61 75 67 65 0d 2d 6e  |-d..12:.gauge.-n|
00008e70  10 c9 31 34 3a f2 63 61  72 64 6e 75 6d 0d 2d 78  |..14:.cardnum.-x|
00008e80  0e c9 31 35 3a f2 66 62  61 63 6b 0d 2d 82 0d c9  |..15:.fback.-...|
00008e90  31 36 3a f2 66 66 77 64  0d 2d 8c 0c c9 31 37 3a  |16:.ffwd.-...17:|
00008ea0  f2 61 64 64 0d 2d 96 2a  c9 31 38 3a e7 6d 62 25  |.add.-.*.18:.mb%|
00008eb0  3d 34 f2 65 6d 61 63 72  6f 3a 8b e7 73 25 28 66  |=4.emacro:..s%(f|
00008ec0  69 6c 65 25 29 3d 30 3a  f2 6d 61 63 72 6f 0d 2d  |ile%)=0:.macro.-|
00008ed0  a0 20 c9 31 39 3a e7 6d  62 25 3d 31 3a f2 73 65  |. .19:.mb%=1:.se|
00008ee0  6c 73 75 62 28 30 29 3a  8b f2 73 75 62 73 0d 2d  |lsub(0):..subs.-|
00008ef0  aa 34 c9 32 30 3a e7 6d  62 25 3d 31 80 ac a4 64  |.4.20:.mb%=1...d|
00008f00  65 61 64 66 69 6c 65 28  2d 31 29 3a f2 73 65 6c  |eadfile(-1):.sel|
00008f10  69 6e 64 65 78 28 30 2c  30 29 3a 8b f2 69 6e 64  |index(0,0):..ind|
00008f20  65 78 0d 2d b4 0f c9 32  31 3a f2 66 69 6c 74 65  |ex.-...21:.filte|
00008f30  72 0d 2d be 0d c9 32 32  3a f2 63 61 72 64 0d 2d  |r.-...22:.card.-|
00008f40  c8 05 cb 0d 2d d2 05 e1  0d 2d dc 04 0d 2d e6 0b  |....-....-...-..|
00008f50  dd f2 6d 73 75 62 73 0d  2d f0 23 e7 a4 64 65 61  |..msubs.-.#..dea|
00008f60  64 66 69 6c 65 28 25 31  31 31 31 31 31 31 31 31  |dfile(%111111111|
00008f70  31 31 31 31 31 31 31 30  29 e1 0d 2d fa 25 ea 54  |11111110)..-.%.T|
00008f80  25 3a 54 25 3d a4 69 74  6f 73 3a e7 54 25 3e 3d  |%:T%=.itos:.T%>=|
00008f90  30 3a f2 73 65 6c 73 75  62 28 54 25 29 3a e1 0d  |0:.selsub(T%):..|
00008fa0  2e 04 05 e1 0d 2e 0e 04  0d 2e 18 0a dd f2 6d 72  |..............mr|
00008fb0  65 70 0d 2e 22 10 c8 8e  72 25 28 66 69 6c 65 25  |ep.."...r%(file%|
00008fc0  29 ca 0d 2e 2c 11 c9 30  2c 31 2c 32 3a f2 6d 72  |)...,..0,1,2:.mr|
00008fd0  65 70 31 0d 2e 36 0d c9  33 3a f2 6d 72 65 70 33  |ep1..6..3:.mrep3|
00008fe0  0d 2e 40 0d c9 35 3a f2  6d 72 65 70 35 0d 2e 4a  |..@..5:.mrep5..J|
00008ff0  07 cb 3a e1 0d 2e 54 04  0d 2e 5e 0b dd f2 6d 72  |..:...T...^...mr|
00009000  65 70 31 0d 2e 68 2b e7  66 69 6c 65 25 3c 3e 65  |ep1..h+.file%<>e|
00009010  64 66 69 6c 65 25 84 ac  65 64 72 65 70 25 e7 a4  |dfile%..edrep%..|
00009020  64 65 61 64 66 69 6c 65  28 2d 31 29 3a e1 0d 2e  |deadfile(-1):...|
00009030  72 20 ea 58 25 2c 59 25  2c 54 25 2c 68 25 3a f2  |r .X%,Y%,T%,h%:.|
00009040  67 65 74 77 28 6d 68 25  29 3a 68 25 3d 31 0d 2e  |getw(mh%):h%=1..|
00009050  7c 2b e7 72 25 28 66 69  6c 65 25 29 3d 31 3a 54  ||+.r%(file%)=1:T|
00009060  25 3d 32 3a 8b e7 72 25  28 66 69 6c 65 25 29 3d  |%=2:..r%(file%)=|
00009070  30 3a 68 25 3d a4 72 68  74 0d 2e 86 3a 59 25 3d  |0:h%=.rht...:Y%=|
00009080  28 62 79 25 2d 6d 79 25  2d 6d 61 72 67 69 6e 25  |(by%-my%-margin%|
00009090  2d 54 25 2a 6c 69 6e 65  67 61 70 25 29 81 28 6c  |-T%*linegap%).(l|
000090a0  69 6e 65 67 61 70 25 2a  68 25 29 3a e7 59 25 3c  |inegap%*h%):.Y%<|
000090b0  30 3a e1 0d 2e 90 16 59  25 2b 3d 31 3a e7 59 25  |0:.....Y%+=1:.Y%|
000090c0  3e a4 76 5f 28 31 37 29  e1 0d 2e 9a 17 c8 99 73  |>.v_(17).......s|
000090d0  77 69 25 2c 67 72 65 63  5f 25 2c 59 25 b8 4e 25  |wi%,grec_%,Y%.N%|
000090e0  0d 2e a4 1e f2 76 61 6c  69 64 72 65 63 31 3a e7  |.....validrec1:.|
000090f0  72 25 28 66 69 6c 65 25  29 3c 3e 31 3a e1 0d 2e  |r%(file%)<>1:...|
00009100  ae 18 e7 66 25 28 66 69  6c 65 25 29 3e 30 f2 65  |...f%(file%)>0.e|
00009110  72 72 28 37 33 29 0d 2e  b8 34 f2 67 65 74 77 28  |rr(73)...4.getw(|
00009120  6d 68 25 29 3a 58 25 3d  28 6d 78 25 2d 62 78 25  |mh%):X%=(mx%-bx%|
00009130  2d 6d 61 72 67 69 6e 25  2d 31 31 2a 31 36 29 81  |-margin%-11*16).|
00009140  31 36 3a e7 58 25 3c 31  3a e1 0d 2e c2 24 e7 58  |16:.X%<1:....$.X|
00009150  25 3c 3d a9 a4 73 72 65  70 28 31 29 f2 65 64 72  |%<=..srep(1).edr|
00009160  65 70 28 58 25 2c a4 76  5f 28 31 35 29 29 0d 2e  |ep(X%,.v_(15))..|
00009170  cc 05 e1 0d 2e d6 04 0d  2e e0 1c dd f2 6d 72 65  |.............mre|
00009180  70 33 3a e7 a4 64 65 61  64 66 69 6c 65 28 2d 31  |p3:..deadfile(-1|
00009190  29 3a e1 0d 2e ea 30 ea  59 25 3a f2 67 65 74 77  |):....0.Y%:.getw|
000091a0  28 6d 68 25 29 3a 59 25  3d 28 62 79 25 2d 6d 79  |(mh%):Y%=(by%-my|
000091b0  25 2d 6d 61 72 67 69 6e  25 29 81 6c 69 6e 65 67  |%-margin%).lineg|
000091c0  61 70 25 0d 2e f4 31 e7  59 25 3c 30 59 25 3d 30  |ap%...1.Y%<0Y%=0|
000091d0  8b e7 59 25 3e 6c 6c 25  28 66 69 6c 65 25 2c 33  |..Y%>ll%(file%,3|
000091e0  29 2d 31 59 25 3d 6c 6c  25 28 66 69 6c 65 25 2c  |)-1Y%=ll%(file%,|
000091f0  33 29 2d 31 0d 2e fe 0b  e7 59 25 3e 31 35 e1 0d  |3)-1.....Y%>15..|
00009200  2f 08 3e 77 5f 6c 69 6e  65 25 3d a4 63 72 77 69  |/.>w_line%=.crwi|
00009210  6e 64 28 74 77 5f 6c 69  6e 65 25 29 3a f2 75 6e  |nd(tw_line%):.un|
00009220  73 65 6c 61 6c 6c 28 77  5f 6c 69 6e 65 25 29 3a  |selall(w_line%):|
00009230  6d 65 6e 75 66 69 65 6c  64 25 3d 59 25 0d 2f 12  |menufield%=Y%./.|
00009240  39 f2 73 65 6c 69 28 77  5f 6c 69 6e 65 25 2c a4  |9.seli(w_line%,.|
00009250  6a 75 73 74 6c 28 59 25  29 29 3a f2 73 65 6c 69  |justl(Y%)):.seli|
00009260  28 77 5f 6c 69 6e 65 25  2c a4 66 6f 6e 74 6c 28  |(w_line%,.fontl(|
00009270  59 25 29 2b 35 29 0d 2f  1c 1f e7 a4 73 70 63 6c  |Y%)+5)./....spcl|
00009280  28 59 25 29 3a f2 73 65  6c 69 28 77 5f 6c 69 6e  |(Y%):.seli(w_lin|
00009290  65 25 2c 39 29 0d 2f 26  20 e7 a4 75 70 70 6c 28  |e%,9)./& ..uppl(|
000092a0  59 25 29 3a f2 73 65 6c  69 28 77 5f 6c 69 6e 65  |Y%):.seli(w_line|
000092b0  25 2c 31 30 29 0d 2f 30  20 e7 a4 66 69 78 6c 28  |%,10)./0 ..fixl(|
000092c0  59 25 29 3a f2 73 65 6c  69 28 77 5f 6c 69 6e 65  |Y%):.seli(w_line|
000092d0  25 2c 31 31 29 0d 2f 3a  36 24 a4 74 61 28 77 5f  |%,11)./:6$.ta(w_|
000092e0  6c 69 6e 65 25 29 3d 22  4c 69 6e 65 20 22 2b c3  |line%)="Line "+.|
000092f0  28 59 25 2b 31 29 3a f2  64 69 61 6c 6f 67 75 65  |(Y%+1):.dialogue|
00009300  28 77 5f 6c 69 6e 65 25  29 3a e1 0d 2f 44 04 0d  |(w_line%):../D..|
00009310  2f 4e 1c dd f2 6d 72 65  70 35 3a e7 a4 64 65 61  |/N...mrep5:..dea|
00009320  64 66 69 6c 65 28 2d 31  29 3a e1 0d 2f 58 36 ea  |dfile(-1):../X6.|
00009330  58 25 2c 59 25 2c 49 25  3a f2 67 65 74 77 28 6d  |X%,Y%,I%:.getw(m|
00009340  68 25 29 3a 59 25 3d 28  62 79 25 2d 6d 79 25 2d  |h%):Y%=(by%-my%-|
00009350  6d 61 72 67 69 6e 25 29  81 6c 69 6e 65 67 61 70  |margin%).linegap|
00009360  25 0d 2f 62 12 e7 59 25  3c 34 f2 72 73 65 74 35  |%./b..Y%<4.rset5|
00009370  31 3a e1 0d 2f 6c 18 e7  59 25 3e 38 80 59 25 3c  |1:../l..Y%>8.Y%<|
00009380  31 32 f2 72 73 65 74 35  32 3a e1 0d 2f 76 13 e7  |12.rset52:../v..|
00009390  59 25 3e 31 32 f2 72 73  65 74 35 33 3a e1 0d 2f  |Y%>12.rset53:../|
000093a0  80 22 f2 6d 6f 75 73 65  63 6f 6c 3a e7 63 6f 6c  |.".mousecol:.col|
000093b0  75 6d 6e 25 3c 30 f2 61  64 64 63 6f 6c 75 6d 6e  |umn%<0.addcolumn|
000093c0  0d 2f 8a 0c f2 65 64 63  6f 6c 3a e1 0d 2f 94 04  |./...edcol:../..|
000093d0  0d 2f 9e 0b dd f2 6d 73  74 6f 70 0d 2f a8 11 e7  |./....mstop./...|
000093e0  6d 69 25 3c 33 84 6d 69  25 3e 34 e1 0d 2f b2 35  |mi%<3.mi%>4../.5|
000093f0  ea 54 25 2c 55 25 3a 55  25 3d 73 74 6f 70 66 69  |.T%,U%:U%=stopfi|
00009400  6c 65 25 3a 54 25 3d 64  69 61 6c 72 65 61 73 6f  |le%:T%=dialreaso|
00009410  6e 25 3a 64 69 61 6c 72  65 61 73 6f 6e 25 3d 2d  |n%:dialreason%=-|
00009420  31 0d 2f bc 0b e7 6d 69  25 3d 33 8c 0d 2f c6 27  |1./...mi%=3../.'|
00009430  f2 63 6c 6f 73 65 77 28  77 5f 73 74 6f 70 25 29  |.closew(w_stop%)|
00009440  3a e7 55 25 3e 3d 30 3a  f2 73 64 66 69 6c 65 28  |:.U%>=0:.sdfile(|
00009450  55 25 29 0d 2f d0 09 c8  8e 54 25 ca 0d 2f da 26  |U%)./....T%../.&|
00009460  c9 32 3a 63 6c 6f 73 65  6f 6b 25 3d b9 3a f2 63  |.2:closeok%=.:.c|
00009470  6c 6f 73 65 77 28 77 25  28 66 69 6c 65 25 2c 30  |losew(w%(file%,0|
00009480  29 29 0d 2f e4 11 c9 33  3a f2 63 6f 6d 70 61 63  |))./...3:.compac|
00009490  74 3a e1 0d 2f ee 12 c9  34 3a f2 66 69 6c 6c 73  |t:../...4:.fills|
000094a0  75 62 28 b9 29 0d 2f f8  12 c9 35 3a f2 66 69 6c  |ub(.)./...5:.fil|
000094b0  6c 73 75 62 28 a3 29 0d  30 02 16 c9 36 3a f2 43  |lsub(.).0...6:.C|
000094c0  4c 4f 53 45 3a f2 71 75  69 74 28 a3 29 0d 30 0c  |LOSE:.quit(.).0.|
000094d0  11 c9 37 3a f2 65 6e 64  73 65 61 72 63 68 0d 30  |..7:.endsearch.0|
000094e0  16 3f c9 38 3a c8 99 73  77 69 25 2c 6e 61 6d 65  |.?.8:..swi%,name|
000094f0  77 72 69 74 65 5f 25 2c  22 22 2c 30 2c 6d 65 6e  |write_%,"",0,men|
00009500  75 73 75 62 25 2d 32 35  36 b8 47 25 3a f2 6d 61  |usub%-256.G%:.ma|
00009510  6b 65 73 75 62 73 28 66  69 6c 65 25 29 0d 30 20  |kesubs(file%).0 |
00009520  0f c9 39 3a f2 65 6e 64  66 69 6c 6c 0d 30 2a 10  |..9:.endfill.0*.|
00009530  c9 31 30 3a f2 64 65 6c  63 61 72 64 0d 30 34 14  |.10:.delcard.04.|
00009540  c9 31 31 3a f2 73 74 61  72 74 61 63 74 28 35 29  |.11:.startact(5)|
00009550  0d 30 3e 14 c9 31 32 3a  f2 73 74 61 72 74 61 63  |.0>..12:.startac|
00009560  74 28 36 29 0d 30 48 10  c9 31 33 3a f2 65 6e 64  |t(6).0H..13:.end|
00009570  63 73 75 62 0d 30 52 12  c9 31 34 3a f2 6c 6f 61  |csub.0R..14:.loa|
00009580  64 6e 6f 74 65 73 0d 30  5c 0f c9 31 35 3a f2 64  |dnotes.0\..15:.d|
00009590  65 6c 73 75 62 0d 30 66  10 c9 31 36 3a f2 65 6e  |elsub.0f..16:.en|
000095a0  64 64 73 75 62 0d 30 70  12 c9 31 37 3a f2 63 6c  |ddsub.0p..17:.cl|
000095b0  65 61 72 6e 70 61 64 0d  30 7a 13 c9 31 38 3a f2  |earnpad.0z..18:.|
000095c0  63 6c 65 61 72 6d 61 63  72 6f 0d 30 84 12 c9 31  |clearmacro.0...1|
000095d0  39 3a f2 6c 6f 61 64 6d  61 63 72 6f 0d 30 8e 14  |9:.loadmacro.0..|
000095e0  c9 32 30 3a 73 74 6f 70  62 6f 78 65 73 25 3d a3  |.20:stopboxes%=.|
000095f0  0d 30 98 12 c9 32 31 3a  f2 63 6f 70 79 63 61 72  |.0...21:.copycar|
00009600  64 31 0d 30 a2 11 c9 32  32 3a f2 75 70 64 63 61  |d1.0...22:.updca|
00009610  72 64 73 0d 30 ac 0f c9  32 33 3a f2 65 6e 64 61  |rds.0...23:.enda|
00009620  63 74 0d 30 b6 0f c9 32  34 3a f2 65 6e 64 61 63  |ct.0...24:.endac|
00009630  74 0d 30 c0 0f c9 32 35  3a f2 65 6e 64 61 63 74  |t.0...25:.endact|
00009640  0d 30 ca 10 c9 32 36 3a  f2 61 73 63 63 61 72 64  |.0...26:.asccard|
00009650  0d 30 d4 1b c9 32 37 3a  c8 99 73 77 69 25 2c 73  |.0...27:..swi%,s|
00009660  65 74 70 61 73 73 5f 25  2c 22 22 0d 30 de 12 c9  |etpass_%,"".0...|
00009670  32 38 3a f2 6c 6f 61 64  73 65 74 75 70 0d 30 e8  |28:.loadsetup.0.|
00009680  26 c9 32 39 3a 70 24 28  66 69 6c 65 25 2c 30 29  |&.29:p$(file%,0)|
00009690  3d 22 22 3a f2 6d 61 6b  65 72 65 70 28 66 69 6c  |="":.makerep(fil|
000096a0  65 25 29 0d 30 f2 26 c9  33 30 3a 6c 6c 25 28 66  |e%).0.&.30:ll%(f|
000096b0  69 6c 65 25 2c 30 29 3d  30 3a f2 6d 61 6b 65 72  |ile%,0)=0:.maker|
000096c0  65 70 28 66 69 6c 65 25  29 0d 30 fc 25 c9 33 31  |ep(file%).0.%.31|
000096d0  3a 77 6f 25 28 66 69 6c  65 25 29 3d 2d 31 3a f2  |:wo%(file%)=-1:.|
000096e0  6d 61 6b 65 72 65 70 28  66 69 6c 65 25 29 0d 31  |makerep(file%).1|
000096f0  06 2e c9 33 32 3a c8 99  73 77 69 25 2c 73 64 32  |...32:..swi%,sd2|
00009700  31 5f 25 2c 74 78 30 25  2c 74 79 30 25 2c 6d 65  |1_%,tx0%,ty0%,me|
00009710  6e 75 66 69 65 6c 64 25  2c 73 64 24 0d 31 10 25  |nufield%,sd$.1.%|
00009720  f2 66 6f 72 63 65 63 61  72 64 3a e7 72 25 28 66  |.forcecard:.r%(f|
00009730  69 6c 65 25 29 3d 30 3a  f2 66 6f 72 63 65 72 65  |ile%)=0:.forcere|
00009740  70 0d 31 1a 1a c9 33 33  3a f2 72 5f 63 6c 65 61  |p.1...33:.r_clea|
00009750  72 3a f2 66 6f 72 63 65  72 65 70 0d 31 24 19 c9  |r:.forcerep.1$..|
00009760  33 34 3a f2 64 65 6c 63  6f 6c 28 6d 65 6e 75 63  |34:.delcol(menuc|
00009770  6f 6c 25 29 0d 31 2e 19  c9 33 35 3a f2 69 6e 73  |ol%).1...35:.ins|
00009780  63 6f 6c 28 6d 65 6e 75  63 6f 6c 25 29 0d 31 38  |col(menucol%).18|
00009790  2b c9 33 36 3a ff 22 2a  73 65 74 74 79 70 65 20  |+.36:."*settype |
000097a0  22 2b 66 69 6c 65 24 2b  22 20 22 2b c3 7e 6d 65  |"+file$+" "+.~me|
000097b0  6e 75 66 69 65 6c 64 25  0d 31 42 34 e7 6d 65 6e  |nufield%.1B4.men|
000097c0  75 66 69 65 6c 64 25 3d  66 74 5f 64 61 74 61 25  |ufield%=ft_data%|
000097d0  3a f2 6f 70 65 6e 66 69  6c 65 28 66 69 6c 65 24  |:.openfile(file$|
000097e0  29 3a e1 3a 8b f2 65 72  72 28 31 29 0d 31 4c 12  |):.:..err(1).1L.|
000097f0  c9 33 37 3a f2 69 6d 70  6f 72 74 61 73 63 0d 31  |.37:.importasc.1|
00009800  56 10 c9 33 38 3a f2 70  69 63 70 61 74 68 0d 31  |V..38:.picpath.1|
00009810  60 16 c9 33 39 3a f2 43  4c 4f 53 45 3a f2 63 72  |`..39:.CLOSE:.cr|
00009820  65 61 74 65 0d 31 6a 25  c9 34 30 3a e7 69 5f 6d  |eate.1j%.40:.i_m|
00009830  65 72 67 69 6e 67 25 3c  31 30 30 69 5f 6d 65 72  |erging%<100i_mer|
00009840  67 69 6e 67 25 3d 31 30  30 0d 31 74 05 cb 0d 31  |ging%=100.1t...1|
00009850  7e 05 cc 0d 31 88 19 e7  54 25 3d 31 3a f2 43 4c  |~...1...T%=1:.CL|
00009860  4f 53 45 3a f2 71 75 69  74 28 a3 29 0d 31 92 05  |OSE:.quit(.).1..|
00009870  cd 0d 31 9c 14 f2 63 6c  6f 73 65 77 28 77 5f 73  |..1...closew(w_s|
00009880  74 6f 70 25 29 0d 31 a6  05 e1 0d 31 b0 04 0d 31  |top%).1....1...1|
00009890  ba 0b dd f2 6d 73 61 76  65 0d 31 c4 0c e7 6d 69  |....msave.1...mi|
000098a0  25 3c 3e 30 e1 0d 31 ce  30 ea 54 24 3a 54 24 3d  |%<>0..1.0.T$:T$=|
000098b0  24 a4 69 61 28 77 5f 73  61 76 65 25 2c 32 29 3a  |$.ia(w_save%,2):|
000098c0  e7 54 24 3d a4 6c 65 61  66 28 54 24 29 3a f2 65  |.T$=.leaf(T$):.e|
000098d0  72 72 28 35 29 0d 31 d8  31 73 61 76 65 74 79 70  |rr(5).1.1savetyp|
000098e0  65 25 3d 73 61 76 65 74  25 3a 66 69 6c 65 24 3d  |e%=savet%:file$=|
000098f0  54 24 3a 74 61 73 6b 25  3d 2d 31 3a f2 73 61 76  |T$:task%=-1:.sav|
00009900  65 64 61 74 61 31 0d 31  e2 05 e1 0d 31 ec 04 0d  |edata1.1....1...|
00009910  31 f6 0f dd f2 6d 73 6f  72 74 3a ea 49 25 0d 32  |1....msort:.I%.2|
00009920  00 14 e7 6d 69 25 3c 3e  36 80 6d 69 25 3c 3e 37  |...mi%<>6.mi%<>7|
00009930  3a e1 0d 32 0a 13 e7 6d  69 25 3d 37 f2 6e 6f 64  |:..2...mi%=7.nod|
00009940  69 61 6c 3a e1 0d 32 14  2f f2 77 63 68 69 28 77  |ial:..2./.wchi(w|
00009950  5f 73 6f 72 74 25 29 3a  6f 25 28 66 69 6c 65 25  |_sort%):o%(file%|
00009960  2c 30 29 3d 30 3a 49 25  3d 71 25 3a f5 3a c8 8e  |,0)=0:I%=q%:.:..|
00009970  21 49 25 ca 0d 32 1e 20  c9 33 3a 6f 25 28 66 69  |!I%..2. .3:o%(fi|
00009980  6c 65 25 2c 30 29 3d 6f  25 28 66 69 6c 65 25 2c  |le%,0)=o%(file%,|
00009990  30 29 84 31 0d 32 28 20  c9 35 3a 6f 25 28 66 69  |0).1.2( .5:o%(fi|
000099a0  6c 65 25 2c 30 29 3d 6f  25 28 66 69 6c 65 25 2c  |le%,0)=o%(file%,|
000099b0  30 29 84 32 0d 32 32 14  cb 3a 49 25 2b 3d 34 3a  |0).2.22..:I%+=4:|
000099c0  fd 49 25 21 2d 34 3c 30  0d 32 3c 37 6f 24 28 66  |.I%!-4<0.2<7o$(f|
000099d0  69 6c 65 25 29 3d 24 a4  69 61 28 77 5f 73 6f 72  |ile%)=$.ia(w_sor|
000099e0  74 25 2c 32 29 3a 6f 78  24 28 66 69 6c 65 25 29  |t%,2):ox$(file%)|
000099f0  3d a4 78 33 28 6f 24 28  66 69 6c 65 25 29 29 0d  |=.x3(o$(file%)).|
00009a00  32 46 18 f2 73 74 61 72  74 73 6f 72 74 3a f2 6e  |2F..startsort:.n|
00009a10  6f 64 69 61 6c 3a e1 0d  32 50 04 0d 32 5a 1b dd  |odial:..2P..2Z..|
00009a20  f2 73 74 61 72 74 73 6f  72 74 3a e7 a4 76 5f 28  |.startsort:..v_(|
00009a30  31 37 29 3c 32 e1 0d 32  64 25 f2 6e 6f 66 69 6c  |17)<2..2d%.nofil|
00009a40  74 3a f2 73 65 6c 73 75  62 28 30 29 3a f2 73 65  |t:.selsub(0):.se|
00009a50  6c 69 6e 64 65 78 28 30  2c 30 29 0d 32 6e 27 6f  |lindex(0,0).2n'o|
00009a60  25 28 66 69 6c 65 25 2c  35 29 3d a4 76 5f 28 31  |%(file%,5)=.v_(1|
00009a70  37 29 81 32 3a 6f 25 28  66 69 6c 65 25 2c 34 29  |7).2:o%(file%,4)|
00009a80  3d 30 0d 32 78 12 f2 73  74 61 72 74 61 63 74 28  |=0.2x..startact(|
00009a90  39 29 3a e1 0d 32 82 04  0d 32 8c 14 dd f2 73 77  |9):..2...2....sw|
00009aa0  61 70 72 65 63 28 41 25  2c 42 25 29 0d 32 96 17  |aprec(A%,B%).2..|
00009ab0  c8 99 73 77 69 25 2c 73  64 33 32 5f 25 2c 41 25  |..swi%,sd32_%,A%|
00009ac0  2c 42 25 0d 32 a0 05 e1  0d 32 aa 04 0d 32 b4 23  |,B%.2....2...2.#|
00009ad0  dd a4 73 6f 28 49 25 29  3a ea 55 25 3a ea 85 3a  |..so(I%):.U%:..:|
00009ae0  ee 85 ea 3a f7 85 3a f2  65 72 72 28 33 34 29 0d  |...:..:.err(34).|
00009af0  32 be 17 c8 99 73 77 69  25 2c 67 72 65 63 5f 25  |2....swi%,grec_%|
00009b00  2c 49 25 b8 4e 25 0d 32  c8 33 f2 72 6c 69 6e 6b  |,I%.N%.2.3.rlink|
00009b10  28 b9 29 3a 3d a4 65 76  34 28 6f 78 24 28 66 69  |(.):=.ev4(ox$(fi|
00009b20  6c 65 25 29 2c b9 2c 28  6f 25 28 66 69 6c 65 25  |le%),.,(o%(file%|
00009b30  2c 30 29 80 32 29 3d 32  29 0d 32 d2 04 0d 32 dc  |,0).2)=2).2...2.|
00009b40  1c dd f2 6d 6e 75 6d 73  3a e7 6d 69 25 3c 3e 34  |...mnums:.mi%<>4|
00009b50  80 6d 69 25 3c 3e 35 3a  e1 0d 32 e6 15 ea 54 25  |.mi%<>5:..2...T%|
00009b60  2c 42 25 2c 54 24 3a e7  6d 69 25 3d 35 8c 0d 32  |,B%,T$:.mi%=5..2|
00009b70  f0 26 42 25 3d bb 24 a4  69 61 28 77 5f 6e 75 6d  |.&B%=.$.ia(w_num|
00009b80  73 25 2c 33 29 3a e7 42  25 3d 30 3a f2 65 72 72  |s%,3):.B%=0:.err|
00009b90  28 31 34 29 0d 32 fa 25  54 25 3d 30 3a c8 95 32  |(14).2.%T%=0:..2|
00009ba0  5e 54 25 3c 3d 42 25 3a  54 25 2b 3d 31 3a ce 3a  |^T%<=B%:T%+=1:.:|
00009bb0  42 25 3d 32 5e 54 25 2d  31 0d 33 04 3d 54 24 3d  |B%=2^T%-1.3.=T$=|
00009bc0  a4 75 70 28 a4 73 28 24  a4 69 61 28 77 5f 6e 75  |.up(.s($.ia(w_nu|
00009bd0  6d 73 25 2c 32 29 29 29  3a e7 a9 54 24 3c 32 84  |ms%,2))):..T$<2.|
00009be0  97 54 24 3e 39 30 84 97  54 24 3c 36 35 3a f2 65  |.T$>90..T$<65:.e|
00009bf0  72 72 28 31 33 29 0d 33  0e 12 c8 8e 64 69 61 6c  |rr(13).3....dial|
00009c00  72 65 61 73 6f 6e 25 ca  0d 33 18 06 c9 30 0d 33  |reason%..3...0.3|
00009c10  22 0b 54 25 3d b9 3a ea  85 0d 33 2c 0c ee 85 ea  |".T%=.:...3,....|
00009c20  3a 54 25 3d a3 0d 33 36  22 e7 54 25 3a c8 99 73  |:T%=..36".T%:..s|
00009c30  77 69 25 2c 6e 61 6d 65  72 65 61 64 5f 25 2c 54  |wi%,nameread_%,T|
00009c40  24 b8 47 25 3a 68 68 0d  33 40 13 f7 85 3a e7 54  |$.G%:hh.3@...:.T|
00009c50  25 3a f2 65 72 72 28 31  35 29 0d 33 4a 23 54 25  |%:.err(15).3J#T%|
00009c60  3d 30 3a c8 95 a4 73 75  62 6e 61 6d 65 28 54 25  |=0:...subname(T%|
00009c70  29 3c 3e 22 22 3a 54 25  2b 3d 31 3a ce 0d 33 54  |)<>"":T%+=1:..3T|
00009c80  22 c8 99 73 77 69 25 2c  6e 61 6d 65 77 72 69 74  |"..swi%,namewrit|
00009c90  65 5f 25 2c 54 24 2c 42  25 2c 2d 31 b8 47 25 0d  |e_%,T$,B%,-1.G%.|
00009ca0  33 5e 06 c9 31 0d 33 68  1f e7 a4 73 75 62 6d 61  |3^..1.3h...subma|
00009cb0  78 28 6d 65 6e 75 73 75  62 25 2d 32 35 36 29 3c  |x(menusub%-256)<|
00009cc0  3e 42 25 8c 0d 33 72 2c  c8 99 73 77 69 25 2c 6e  |>B%..3r,..swi%,n|
00009cd0  61 6d 65 77 72 69 74 65  5f 25 2c 54 24 2c 42 25  |amewrite_%,T$,B%|
00009ce0  2c 6d 65 6e 75 73 75 62  25 2d 31 35 36 b8 47 25  |,menusub%-156.G%|
00009cf0  0d 33 7c 05 cc 0d 33 86  21 c8 99 73 77 69 25 2c  |.3|...3.!..swi%,|
00009d00  73 64 35 33 5f 25 2c 6d  65 6e 75 73 75 62 25 2d  |sd53_%,menusub%-|
00009d10  32 35 36 b8 47 25 0d 33  90 2c c8 99 73 77 69 25  |256.G%.3.,..swi%|
00009d20  2c 6e 61 6d 65 77 72 69  74 65 5f 25 2c 54 24 2c  |,namewrite_%,T$,|
00009d30  47 25 2c 6d 65 6e 75 73  75 62 25 2d 32 35 36 b8  |G%,menusub%-256.|
00009d40  47 25 0d 33 9a 05 cd 0d  33 a4 05 cb 0d 33 ae 1d  |G%.3....3....3..|
00009d50  f2 6d 61 6b 65 73 75 62  73 28 66 69 6c 65 25 29  |.makesubs(file%)|
00009d60  3a f2 73 68 6f 77 73 75  62 0d 33 b8 05 cd 0d 33  |:.showsub.3....3|
00009d70  c2 0d f2 6e 6f 64 69 61  6c 3a e1 0d 33 cc 04 0d  |...nodial:..3...|
00009d80  33 d6 23 dd f2 6d 6f 70  65 6e 3a e7 6d 69 25 3d  |3.#..mopen:.mi%=|
00009d90  31 31 f2 63 6c 6f 73 65  77 28 77 5f 6f 70 65 6e  |11.closew(w_open|
00009da0  25 29 0d 33 e0 0d e7 6d  69 25 3c 3e 31 32 e1 0d  |%).3...mi%<>12..|
00009db0  33 ea 13 ea 49 25 2c 6d  25 2c 64 25 2c 72 25 2c  |3...I%,m%,d%,r%,|
00009dc0  70 24 0d 33 f4 2e 70 24  3d 24 a4 69 61 28 77 5f  |p$.3..p$=$.ia(w_|
00009dd0  6f 70 65 6e 25 2c 31 34  29 3a f2 77 63 68 69 28  |open%,14):.wchi(|
00009de0  77 5f 6f 70 65 6e 25 29  3a 49 25 3d 71 25 3a f5  |w_open%):I%=q%:.|
00009df0  0d 33 fe 0f e7 21 49 25  3d 30 3a 64 25 3d b9 0d  |.3...!I%=0:d%=..|
00009e00  34 08 19 e7 21 49 25 3e  30 80 21 49 25 3c 39 3a  |4...!I%>0.!I%<9:|
00009e10  6d 25 3d 21 49 25 2d 31  0d 34 12 10 e7 21 49 25  |m%=!I%-1.4...!I%|
00009e20  3d 31 36 3a 72 25 3d b9  0d 34 1c 3a 49 25 2b 3d  |=16:r%=..4.:I%+=|
00009e30  34 3a fd 49 25 21 2d 34  3c 30 3a 66 69 6c 65 24  |4:.I%!-4<0:file$|
00009e40  3d 24 a4 69 61 28 77 5f  6f 70 65 6e 25 2c 31 33  |=$.ia(w_open%,13|
00009e50  29 3a f2 63 6c 6f 73 65  77 28 77 5f 6f 70 65 6e  |):.closew(w_open|
00009e60  25 29 0d 34 26 23 f2 6f  70 65 6e 66 69 6c 65 31  |%).4&#.openfile1|
00009e70  28 66 69 6c 65 24 2c 6d  25 2c 64 25 2c 70 24 2c  |(file$,m%,d%,p$,|
00009e80  72 25 29 3a e1 0d 34 30  04 0d 34 3a 16 dd f2 6d  |r%):..40..4:...m|
00009e90  63 73 69 7a 65 3a ea 77  25 2c 68 25 2c 49 25 0d  |csize:.w%,h%,I%.|
00009ea0  34 44 0a c8 8e 6d 69 25  ca 0d 34 4e 0f c9 36 35  |4D...mi%..4N..65|
00009eb0  3a f2 6e 6f 64 69 61 6c  0d 34 58 1a c9 36 34 3a  |:.nodial.4X..64:|
00009ec0  f2 73 64 66 69 6c 65 28  64 69 61 6c 66 69 6c 65  |.sdfile(dialfile|
00009ed0  25 29 0d 34 62 19 77 25  3d bb 24 a4 69 61 28 77  |%).4b.w%=.$.ia(w|
00009ee0  5f 63 73 69 7a 65 25 2c  36 31 29 0d 34 6c 19 68  |_csize%,61).4l.h|
00009ef0  25 3d bb 24 a4 69 61 28  77 5f 63 73 69 7a 65 25  |%=.$.ia(w_csize%|
00009f00  2c 35 37 29 0d 34 76 0b  e3 49 25 3d 31 b8 32 0d  |,57).4v..I%=1.2.|
00009f10  34 80 15 c8 99 73 77 69  25 2c 77 69 64 74 68 5f  |4....swi%,width_|
00009f20  25 2c 77 25 0d 34 8a 16  c8 99 73 77 69 25 2c 68  |%,w%.4....swi%,h|
00009f30  65 69 67 68 74 5f 25 2c  68 25 0d 34 94 05 ed 0d  |eight_%,h%.4....|
00009f40  34 9e 1c f2 66 65 78 74  3a f2 66 6f 72 63 65 63  |4...fext:.forcec|
00009f50  61 72 64 3a f2 6e 6f 64  69 61 6c 0d 34 a8 07 cb  |ard:.nodial.4...|
00009f60  3a e1 0d 34 b2 04 0d 34  bc 0b dd f2 6d 65 78 70  |:..4...4....mexp|
00009f70  72 0d 34 c6 1c ea 41 25  2c 54 24 2c 63 25 2c 73  |r.4...A%,T$,c%,s|
00009f80  25 2c 75 25 2c 49 25 2c  51 25 2c 42 25 0d 34 d0  |%,u%,I%,Q%,B%.4.|
00009f90  2b f2 75 6e 73 65 6c 69  28 77 5f 65 78 70 72 25  |+.unseli(w_expr%|
00009fa0  2c 32 39 29 3a f2 75 6e  73 65 6c 69 28 77 5f 65  |,29):.unseli(w_e|
00009fb0  78 70 72 25 2c 32 34 29  0d 34 da 3c 41 25 3d a4  |xpr%,24).4.<A%=.|
00009fc0  69 61 28 77 5f 65 78 70  72 25 2c 31 37 29 3a f2  |ia(w_expr%,17):.|
00009fd0  73 64 66 69 6c 65 28 64  69 61 6c 66 69 6c 65 25  |sdfile(dialfile%|
00009fe0  29 3a f2 71 62 73 63 61  6e 28 24 41 25 2c 51 25  |):.qbscan($A%,Q%|
00009ff0  2c 42 25 29 0d 34 e4 0a  c8 8e 6d 69 25 ca 0d 34  |,B%).4....mi%..4|
0000a000  ee 14 c9 32 2c 33 2c 34  2c 35 2c 36 2c 37 2c 38  |...2,3,4,5,6,7,8|
0000a010  2c 39 0d 34 f8 3e e7 24  41 25 3e 22 22 80 ac 51  |,9.4.>.$A%>""..Q|
0000a020  25 24 73 64 25 3d c1 22  2b 2d 2a 2f 3d 3c 3e 3c  |%$sd%=."+-*/=<><|
0000a030  28 29 22 2c 6d 69 25 2d  31 2c 31 29 3a e7 24 73  |()",mi%-1,1):.$s|
0000a040  64 25 3c 3e c2 24 41 25  29 54 24 3d 24 73 64 25  |d%<>.$A%)T$=$sd%|
0000a050  0d 35 02 19 e7 6d 69 25  3d 37 3a e7 54 24 3e 22  |.5...mi%=7:.T$>"|
0000a060  22 3a 54 24 2b 3d 22 3e  22 0d 35 0c 1c f2 73 65  |":T$+=">".5...se|
0000a070  74 69 28 77 5f 65 78 70  72 25 2c 31 37 2c 24 41  |ti(w_expr%,17,$A|
0000a080  25 2b 54 24 29 0d 35 16  0a c9 31 30 2c 31 31 0d  |%+T$).5...10,11.|
0000a090  35 20 4e e7 28 28 24 41  25 3e 22 22 80 42 25 3e  |5 N.(($A%>"".B%>|
0000a0a0  30 29 84 6d 69 25 3d 31  30 29 80 ac 51 25 3a 24  |0).mi%=10)..Q%:$|
0000a0b0  73 64 25 3d c1 22 28 29  22 2c 6d 69 25 2d 39 2c  |sd%=."()",mi%-9,|
0000a0c0  31 29 3a f2 73 65 74 69  28 77 5f 65 78 70 72 25  |1):.seti(w_expr%|
0000a0d0  2c 31 37 2c 24 41 25 2b  24 73 64 25 29 0d 35 2a  |,17,$A%+$sd%).5*|
0000a0e0  0a c9 31 32 2c 31 33 0d  35 34 17 54 24 3d 24 41  |..12,13.54.T$=$A|
0000a0f0  25 3a e7 24 41 25 3e 22  22 80 ac 51 25 8c 0d 35  |%:.$A%>""..Q%..5|
0000a100  3e 1d 24 73 64 25 3d c2  24 41 25 29 3a c8 99 73  |>.$sd%=.$A%):..s|
0000a110  77 69 25 2c 75 70 70 65  72 5f 25 0d 35 48 37 e7  |wi%,upper_%.5H7.|
0000a120  28 24 73 64 25 3e 3d 22  41 22 80 24 73 64 25 3c  |($sd%>="A".$sd%<|
0000a130  3d 22 5a 22 29 84 28 24  73 64 25 3e 3d 22 30 22  |="Z").($sd%>="0"|
0000a140  80 24 73 64 25 3c 3d 22  39 22 29 54 24 2b 3d 22  |.$sd%<="9")T$+="|
0000a150  20 22 0d 35 52 1d e7 6d  69 25 3d 31 32 54 24 2b  | ".5R..mi%=12T$+|
0000a160  3d 22 41 4e 44 22 8b 54  24 2b 3d 22 4f 52 22 0d  |="AND".T$+="OR".|
0000a170  35 5c 05 cd 0d 35 66 18  f2 73 65 74 69 28 77 5f  |5\...5f..seti(w_|
0000a180  65 78 70 72 25 2c 31 37  2c 54 24 29 0d 35 70 52  |expr%,17,T$).5pR|
0000a190  c9 31 34 3a e7 24 41 25  3e 22 22 80 ac 51 25 54  |.14:.$A%>""..Q%T|
0000a1a0  24 3d 24 41 25 2b 22 3d  22 22 2a 2a 22 22 22 3a  |$=$A%+"=""**""":|
0000a1b0  f2 73 65 74 69 28 77 5f  65 78 70 72 25 2c 31 37  |.seti(w_expr%,17|
0000a1c0  2c 54 24 29 3a f2 73 65  74 63 74 28 77 5f 65 78  |,T$):.setct(w_ex|
0000a1d0  70 72 25 2c 31 37 2c a9  24 41 25 2d 32 29 0d 35  |pr%,17,.$A%-2).5|
0000a1e0  7a 51 c9 31 35 3a e7 24  41 25 3e 22 22 80 ac 51  |zQ.15:.$A%>""..Q|
0000a1f0  25 54 24 3d 24 41 25 2b  22 7e 3d 22 22 22 22 22  |%T$=$A%+"~="""""|
0000a200  3a f2 73 65 74 69 28 77  5f 65 78 70 72 25 2c 31  |:.seti(w_expr%,1|
0000a210  37 2c 54 24 29 3a f2 73  65 74 63 74 28 77 5f 65  |7,T$):.setct(w_e|
0000a220  78 70 72 25 2c 31 37 2c  a9 24 41 25 2d 31 29 0d  |xpr%,17,.$A%-1).|
0000a230  35 84 10 c9 32 30 2c 32  31 3a f2 73 75 62 73 0d  |5...20,21:.subs.|
0000a240  35 8e 0f c9 32 32 3a f2  6e 6f 64 69 61 6c 0d 35  |5...22:.nodial.5|
0000a250  98 17 c9 32 36 3a f2 6e  6f 66 69 6c 74 3a f2 6e  |...26:.nofilt:.n|
0000a260  6f 64 69 61 6c 0d 35 a2  42 c9 32 34 3a e7 24 41  |odial.5.B.24:.$A|
0000a270  25 3d 22 22 f2 73 65 74  69 28 77 5f 65 78 70 72  |%="".seti(w_expr|
0000a280  25 2c 31 37 2c 65 78 24  29 3a 8b 65 78 24 3d 24  |%,17,ex$):.ex$=$|
0000a290  41 25 3a f2 73 65 74 69  28 77 5f 65 78 70 72 25  |A%:.seti(w_expr%|
0000a2a0  2c 31 37 2c 22 22 29 0d  35 ac 34 e7 64 69 61 6c  |,17,"").5.4.dial|
0000a2b0  72 65 61 73 6f 6e 25 3d  30 3a f2 73 65 6c 69 28  |reason%=0:.seli(|
0000a2c0  77 5f 65 78 70 72 25 2c  30 29 3a f2 73 65 6c 69  |w_expr%,0):.seli|
0000a2d0  28 77 5f 65 78 70 72 25  2c 31 29 0d 35 b6 23 c9  |(w_expr%,1).5.#.|
0000a2e0  32 39 3a f2 73 65 74 69  28 77 5f 65 78 70 72 25  |29:.seti(w_expr%|
0000a2f0  2c 31 37 2c 66 24 28 66  69 6c 65 25 29 29 0d 35  |,17,f$(file%)).5|
0000a300  c0 07 c9 32 33 0d 35 ca  1a f2 77 63 68 69 28 77  |...23.5...wchi(w|
0000a310  5f 65 78 70 72 25 29 3a  49 25 3d 71 25 3a f5 0d  |_expr%):I%=q%:..|
0000a320  35 d4 0a c8 8e 21 49 25  ca 0d 35 de 0b c9 31 3a  |5....!I%..5...1:|
0000a330  73 25 3d b9 0d 35 e8 0b  c9 30 3a 75 25 3d b9 0d  |s%=..5...0:u%=..|
0000a340  35 f2 0c c9 32 38 3a 63  25 3d b9 0d 35 fc 05 cb  |5...28:c%=..5...|
0000a350  0d 36 06 13 49 25 2b 3d  34 3a fd 49 25 21 2d 34  |.6..I%+=4:.I%!-4|
0000a360  3d 2d 31 0d 36 10 1f f2  63 6f 6e 76 28 24 41 25  |=-1.6...conv($A%|
0000a370  29 3a e7 75 25 3a f2 75  70 70 6c 69 74 28 24 41  |):.u%:.upplit($A|
0000a380  25 29 0d 36 1a 19 f2 73  65 74 69 28 77 5f 65 78  |%).6...seti(w_ex|
0000a390  70 72 25 2c 31 37 2c 24  41 25 29 0d 36 24 12 c8  |pr%,17,$A%).6$..|
0000a3a0  8e 64 69 61 6c 72 65 61  73 6f 6e 25 ca 0d 36 2e  |.dialreason%..6.|
0000a3b0  0f c9 30 3a f2 73 65 74  66 69 6c 74 0d 36 38 0e  |..0:.setfilt.68.|
0000a3c0  c9 31 3a f2 73 65 61 72  63 68 0d 36 42 0d c9 32  |.1:.search.6B..2|
0000a3d0  3a f2 72 73 65 74 32 0d  36 4c 05 cb 0d 36 56 0b  |:.rset2.6L...6V.|
0000a3e0  f2 6e 6f 64 69 61 6c 0d  36 60 05 cb 0d 36 6a 18  |.nodial.6`...6j.|
0000a3f0  f2 69 63 6f 6e 75 70 64  28 77 5f 65 78 70 72 25  |.iconupd(w_expr%|
0000a400  2c 31 37 29 0d 36 74 05  e1 0d 36 7e 04 0d 36 88  |,17).6t...6~..6.|
0000a410  0b dd f2 6d 66 69 6e 66  0d 36 92 0a c8 8e 6d 69  |...mfinf.6....mi|
0000a420  25 ca 0d 36 9c 18 c9 31  37 3a f2 63 6c 6f 73 65  |%..6...17:.close|
0000a430  77 28 77 5f 66 69 6e 66  25 29 0d 36 a6 29 c9 37  |w(w_finf%).6.).7|
0000a440  3a f2 67 65 74 69 28 77  5f 66 69 6e 66 25 2c 37  |:.geti(w_finf%,7|
0000a450  29 3a e7 28 71 25 21 32  34 29 80 28 31 3c 3c 32  |):.(q%!24).(1<<2|
0000a460  31 29 8c 0d 36 b0 2b f2  67 65 74 69 28 77 5f 66  |1)..6.+.geti(w_f|
0000a470  69 6e 66 25 2c 31 32 29  3a e7 28 28 71 25 21 32  |inf%,12):.((q%!2|
0000a480  34 29 80 28 31 3c 3c 32  31 29 29 3d 30 8c 0d 36  |4).(1<<21))=0..6|
0000a490  ba 29 f2 75 6e 73 65 6c  69 28 77 5f 66 69 6e 66  |.).unseli(w_finf|
0000a4a0  25 2c 31 30 29 3a f2 73  65 6c 69 28 77 5f 66 69  |%,10):.seli(w_fi|
0000a4b0  6e 66 25 2c 31 31 29 0d  36 c4 05 cd 0d 36 ce 05  |nf%,11).6....6..|
0000a4c0  cd 0d 36 d8 0d c9 31 33  2c 31 34 2c 31 35 0d 36  |..6...13,14,15.6|
0000a4d0  e2 3d f2 75 6e 73 65 6c  69 28 77 5f 66 69 6e 66  |.=.unseli(w_finf|
0000a4e0  25 2c 31 30 29 3a f2 75  6e 73 65 6c 69 28 77 5f  |%,10):.unseli(w_|
0000a4f0  66 69 6e 66 25 2c 31 31  29 3a f2 73 65 6c 69 28  |finf%,11):.seli(|
0000a500  77 5f 66 69 6e 66 25 2c  31 32 29 0d 36 ec 07 c9  |w_finf%,12).6...|
0000a510  31 39 0d 36 f6 16 ea 54  24 2c 54 25 2c 42 25 2c  |19.6...T$,T%,B%,|
0000a520  4c 25 2c 4b 25 2c 49 25  0d 37 00 25 e7 77 25 28  |L%,K%,I%.7.%.w%(|
0000a530  66 69 6c 65 25 2c 34 29  3e 30 f2 66 6f 72 63 65  |file%,4)>0.force|
0000a540  28 77 25 28 66 69 6c 65  25 2c 34 29 29 0d 37 0a  |(w%(file%,4)).7.|
0000a550  42 54 24 3d 24 a4 69 61  28 77 5f 66 69 6e 66 25  |BT$=$.ia(w_finf%|
0000a560  2c 35 29 3a 54 25 3d bb  24 a4 69 61 28 77 5f 66  |,5):T%=.$.ia(w_f|
0000a570  69 6e 66 25 2c 32 29 3a  e7 54 25 3c 31 54 25 3d  |inf%,2):.T%<1T%=|
0000a580  31 8b e7 54 25 3e 32 35  35 54 25 3d 32 35 35 0d  |1..T%>255T%=255.|
0000a590  37 14 24 42 25 3d 97 a4  75 70 28 54 24 29 3a e7  |7.$B%=..up(T$):.|
0000a5a0  42 25 3c 36 35 84 42 25  3e 39 30 f2 65 72 72 28  |B%<65.B%>90.err(|
0000a5b0  31 36 29 0d 37 1e 30 4c  25 3d bb 24 a4 69 61 28  |16).7.0L%=.$.ia(|
0000a5c0  77 5f 66 69 6e 66 25 2c  32 30 29 3a e7 4c 25 3c  |w_finf%,20):.L%<|
0000a5d0  31 4c 25 3d 31 8b e7 4c  25 3e 32 35 35 4c 25 3d  |1L%=1..L%>255L%=|
0000a5e0  32 35 35 0d 37 28 2c 42  25 3d bb 24 a4 69 61 28  |255.7(,B%=.$.ia(|
0000a5f0  77 5f 66 69 6e 66 25 2c  31 33 29 3a e7 42 25 3c  |w_finf%,13):.B%<|
0000a600  30 42 25 3d 30 8b e7 42  25 3e 36 42 25 3d 36 0d  |0B%=0..B%>6B%=6.|
0000a610  37 32 1f 4b 25 3d a3 3a  f2 77 63 68 69 28 77 5f  |72.K%=.:.wchi(w_|
0000a620  66 69 6e 66 25 29 3a 49  25 3d 71 25 3a f5 0d 37  |finf%):I%=q%:..7|
0000a630  3c 0a c8 8e 21 49 25 ca  0d 37 46 0b c9 36 3a 4b  |<...!I%..7F..6:K|
0000a640  25 3d b9 0d 37 50 0e c9  37 3a 42 25 3d 42 25 84  |%=..7P..7:B%=B%.|
0000a650  38 0d 37 5a 10 c9 38 3a  42 25 3d 42 25 84 31 32  |8.7Z..8:B%=B%.12|
0000a660  38 0d 37 64 0f c9 39 3a  42 25 3d 42 25 84 36 34  |8.7d..9:B%=B%.64|
0000a670  0d 37 6e 0f c9 31 30 3a  42 25 3d 42 25 84 37 0d  |.7n..10:B%=B%.7.|
0000a680  37 78 10 c9 31 31 3a 42  25 3d 42 25 80 ac 37 0d  |7x..11:B%=B%..7.|
0000a690  37 82 05 cb 0d 37 8c 12  49 25 2b 3d 34 3a fd 49  |7....7..I%+=4:.I|
0000a6a0  25 21 2d 34 3c 30 0d 37  96 25 c8 99 73 77 69 25  |%!-4<0.7.%..swi%|
0000a6b0  2c 73 64 31 38 5f 25 2c  42 25 2c 34 2c 6d 65 6e  |,sd18_%,B%,4,men|
0000a6c0  75 66 69 65 6c 64 25 2c  73 64 24 0d 37 a0 23 c8  |ufield%,sd$.7.#.|
0000a6d0  99 73 77 69 25 2c 73 64  32 30 5f 25 2c 54 24 2c  |.swi%,sd20_%,T$,|
0000a6e0  6d 65 6e 75 66 69 65 6c  64 25 2c 73 64 24 0d 37  |menufield%,sd$.7|
0000a6f0  aa 12 f2 73 64 66 69 6c  65 28 66 69 6c 65 25 29  |...sdfile(file%)|
0000a700  0d 37 b4 11 e7 64 69 61  6c 72 65 61 73 6f 6e 25  |.7...dialreason%|
0000a710  8c 0d 37 be 1f c8 99 73  77 69 25 2c 6d 61 6b 65  |..7....swi%,make|
0000a720  6b 65 79 5f 25 2c 6d 65  6e 75 66 69 65 6c 64 25  |key_%,menufield%|
0000a730  0d 37 c8 22 c8 99 73 77  69 25 2c 66 6c 65 6e 67  |.7."..swi%,fleng|
0000a740  74 68 5f 25 2c 4c 25 2c  6d 65 6e 75 66 69 65 6c  |th_%,L%,menufiel|
0000a750  64 25 0d 37 d2 22 c8 99  73 77 69 25 2c 66 6e 75  |d%.7."..swi%,fnu|
0000a760  6d 62 65 72 5f 25 2c 54  25 2c 6d 65 6e 75 66 69  |mber_%,T%,menufi|
0000a770  65 6c 64 25 0d 37 dc 11  6d 65 6e 75 66 69 65 6c  |eld%.7..menufiel|
0000a780  64 25 3d 54 25 0d 37 e6  05 cd 0d 37 f0 37 54 25  |d%=T%.7....7.7T%|
0000a790  3d 66 69 6c 65 25 3a f2  63 6c 6f 73 65 77 28 77  |=file%:.closew(w|
0000a7a0  5f 66 69 6e 66 25 29 3a  f2 73 64 66 69 6c 65 28  |_finf%):.sdfile(|
0000a7b0  54 25 29 3a f2 76 61 6c  69 64 61 74 65 6c 69 6e  |T%):.validatelin|
0000a7c0  6b 0d 37 fa 21 f2 66 6c  67 28 66 5f 70 69 63 73  |k.7.!.flg(f_pics|
0000a7d0  25 2c a4 69 73 66 69 65  6c 64 28 22 50 49 43 22  |%,.isfield("PIC"|
0000a7e0  29 29 0d 38 04 05 cb 0d  38 0e 05 e1 0d 38 18 04  |)).8....8....8..|
0000a7f0  0d 38 22 0c dd f2 6d 72  6c 69 6e 6b 0d 38 2c 0a  |.8"...mrlink.8,.|
0000a800  c8 8e 6d 69 25 ca 0d 38  36 1b c9 36 3a e7 6c 25  |..mi%..86..6:.l%|
0000a810  28 66 69 6c 65 25 29 3e  30 3a f2 75 6e 6c 69 6e  |(file%)>0:.unlin|
0000a820  6b 0d 38 40 06 c9 37 0d  38 4a 06 c9 38 0d 38 54  |k.8@..7.8J..8.8T|
0000a830  3a ea 54 24 2c 49 25 2c  54 25 3a 54 25 3d a4 66  |:.T$,I%,T%:T%=.f|
0000a840  69 6c 65 6e 75 6d 28 24  a4 69 61 28 77 5f 72 6c  |ilenum($.ia(w_rl|
0000a850  69 6e 6b 25 2c 31 29 29  3a e7 54 25 3c 30 3a f2  |ink%,1)):.T%<0:.|
0000a860  65 72 72 28 33 38 29 0d  38 5e 40 49 25 3d 66 69  |err(38).8^@I%=fi|
0000a870  6c 65 25 3a f2 73 64 66  69 6c 65 28 54 25 29 3a  |le%:.sdfile(T%):|
0000a880  e7 a4 64 65 61 64 66 69  6c 65 31 28 25 31 31 31  |..deadfile1(%111|
0000a890  31 31 31 31 31 31 30 31  30 31 31 31 31 30 29 f2  |11111101011110).|
0000a8a0  65 72 72 28 33 39 29 0d  38 68 2f f2 73 64 66 69  |err(39).8h/.sdfi|
0000a8b0  6c 65 28 49 25 29 3a 6c  6b 24 28 66 69 6c 65 25  |le(I%):lk$(file%|
0000a8c0  29 3d a4 73 28 24 a4 69  61 28 77 5f 72 6c 69 6e  |)=.s($.ia(w_rlin|
0000a8d0  6b 25 2c 33 29 29 0d 38  72 48 49 25 3d 97 6c 6b  |k%,3)).8rHI%=.lk|
0000a8e0  24 28 66 69 6c 65 25 29  3a e7 49 25 3e 33 32 80  |$(file%):.I%>32.|
0000a8f0  49 25 3c 3e 36 34 80 49  25 3c 3e 33 35 80 49 25  |I%<>64.I%<>35.I%|
0000a900  3c 3e 31 32 34 6c 6b 24  28 66 69 6c 65 25 29 3d  |<>124lk$(file%)=|
0000a910  22 40 22 2b 6c 6b 24 28  66 69 6c 65 25 29 0d 38  |"@"+lk$(file%).8|
0000a920  7c 45 6c 24 28 66 69 6c  65 25 29 3d 24 a4 69 61  ||El$(file%)=$.ia|
0000a930  28 77 5f 72 6c 69 6e 6b  25 2c 35 29 3a 6c 78 24  |(w_rlink%,5):lx$|
0000a940  28 66 69 6c 65 25 29 3d  a4 78 34 28 6c 24 28 66  |(file%)=.x4(l$(f|
0000a950  69 6c 65 25 29 29 3a f2  63 68 6b 6c 6f 6f 70 28  |ile%)):.chkloop(|
0000a960  54 25 29 0d 38 86 3a f2  73 65 6c 73 75 62 28 30  |T%).8.:.selsub(0|
0000a970  29 3a f2 6e 6f 66 69 6c  74 3a 6c 25 28 66 69 6c  |):.nofilt:l%(fil|
0000a980  65 25 29 3d 54 25 2b 31  3a 6c 69 6e 6b 73 25 2b  |e%)=T%+1:links%+|
0000a990  3d 31 3a f2 66 6f 72 63  65 63 61 72 64 0d 38 90  |=1:.forcecard.8.|
0000a9a0  23 f2 73 64 66 69 6c 65  28 54 25 29 3a f2 76 61  |#.sdfile(T%):.va|
0000a9b0  6c 69 64 72 65 63 3a f2  66 6f 72 63 65 72 65 70  |lidrec:.forcerep|
0000a9c0  0d 38 9a 07 7f 3a e1 0d  38 a4 05 cb 0d 38 ae 17  |.8...:..8....8..|
0000a9d0  f2 63 6c 6f 73 65 77 28  77 5f 72 6c 69 6e 6b 25  |.closew(w_rlink%|
0000a9e0  29 3a e1 0d 38 b8 04 0d  38 c2 35 dd a4 66 69 6c  |):..8...8.5..fil|
0000a9f0  65 6e 75 6d 28 54 24 29  3a ea 49 25 2c 54 25 3a  |enum(T$):.I%,T%:|
0000aa00  54 25 3d 2d 31 3a 54 24  3d a4 73 75 28 54 24 29  |T%=-1:T$=.su(T$)|
0000aa10  3a e3 49 25 3d 30 b8 6d  61 78 66 25 0d 38 cc 36  |:.I%=0.maxf%.8.6|
0000aa20  e7 77 25 28 49 25 2c 30  29 3e 30 3a e7 a4 75 70  |.w%(I%,0)>0:..up|
0000aa30  28 a4 6f 66 69 6c 65 6e  61 6d 65 28 49 25 29 29  |(.ofilename(I%))|
0000aa40  3d 54 24 3a 54 25 3d 49  25 3a 49 25 3d 6d 61 78  |=T$:T%=I%:I%=max|
0000aa50  66 25 0d 38 d6 09 ed 3a  3d 54 25 0d 38 e0 04 0d  |f%.8...:=T%.8...|
0000aa60  38 ea 11 dd f2 63 68 6b  6c 6f 6f 70 28 54 25 29  |8....chkloop(T%)|
0000aa70  0d 38 f4 33 e7 54 25 3d  66 69 6c 65 25 3a f2 65  |.8.3.T%=file%:.e|
0000aa80  72 72 28 34 30 29 3a 8b  e7 6c 25 28 54 25 29 3e  |rr(40):..l%(T%)>|
0000aa90  30 f2 63 68 6b 6c 6f 6f  70 28 6c 25 28 54 25 29  |0.chkloop(l%(T%)|
0000aaa0  2d 31 29 0d 38 fe 05 e1  0d 39 08 04 0d 39 12 0d  |-1).8....9...9..|
0000aab0  dd f2 6d 73 74 61 74 75  73 0d 39 1c 10 ea 54 25  |..mstatus.9...T%|
0000aac0  2c 49 25 2c 41 25 2c 50  25 0d 39 26 0a c8 8e 6d  |,I%,A%,P%.9&...m|
0000aad0  69 25 ca 0d 39 30 1c c9  31 35 2c 31 36 2c 31 37  |i%..90..15,16,17|
0000aae0  2c 31 38 2c 31 39 2c 32  30 2c 32 31 2c 32 32 0d  |,18,19,20,21,22.|
0000aaf0  39 3a 2d 54 25 3d a4 73  74 61 74 66 3a e7 54 25  |9:-T%=.statf:.T%|
0000ab00  3e 3d 30 f2 66 72 6f 6e  74 28 77 25 28 54 25 2c  |>=0.front(w%(T%,|
0000ab10  30 29 2c 2d 31 2c 2d 31  29 3a 8b e1 0d 39 44 07  |0),-1,-1):...9D.|
0000ab20  c9 31 32 0d 39 4e 07 c9  31 33 0d 39 58 26 50 25  |.12.9N..13.9X&P%|
0000ab30  3d 70 69 78 25 3a 73 6f  75 6e 64 25 3d a3 3a 73  |=pix%:sound%=.:s|
0000ab40  68 61 64 6f 77 73 25 3d  a3 3a 70 69 78 25 3d a3  |hadows%=.:pix%=.|
0000ab50  0d 39 62 1c f2 77 63 68  69 28 77 5f 73 74 61 74  |.9b..wchi(w_stat|
0000ab60  75 73 25 29 3a 49 25 3d  71 25 3a f5 0d 39 6c 0a  |us%):I%=q%:..9l.|
0000ab70  c8 8e 21 49 25 ca 0d 39  76 10 c9 32 34 3a 73 6f  |..!I%..9v..24:so|
0000ab80  75 6e 64 25 3d b9 0d 39  80 12 c9 32 35 3a 73 68  |und%=..9...25:sh|
0000ab90  61 64 6f 77 73 25 3d b9  0d 39 8a 0e c9 32 38 3a  |adows%=..9...28:|
0000aba0  70 69 78 25 3d b9 0d 39  94 0c c9 32 33 3a 41 25  |pix%=..9...23:A%|
0000abb0  3d b9 0d 39 9e 05 cb 0d  39 a8 12 49 25 2b 3d 34  |=..9....9..I%+=4|
0000abc0  3a fd 49 25 21 2d 34 3c  30 0d 39 b2 2b e7 73 6f  |:.I%!-4<0.9.+.so|
0000abd0  75 6e 64 25 3a c8 99 73  77 69 25 2c 6f 70 74 5f  |und%:..swi%,opt_|
0000abe0  25 2c 31 30 3a 8b c8 99  73 77 69 25 2c 6f 70 74  |%,10:...swi%,opt|
0000abf0  5f 25 2c 39 0d 39 bc 0e  e7 70 69 78 25 3c 3e 50  |_%,9.9...pix%<>P|
0000ac00  25 8c 0d 39 c6 2b e3 49  25 3d 30 b8 6d 61 78 66  |%..9.+.I%=0.maxf|
0000ac10  25 3a e7 77 25 28 49 25  2c 30 29 3e 30 f2 66 6f  |%:.w%(I%,0)>0.fo|
0000ac20  72 63 65 28 77 25 28 49  25 2c 30 29 29 0d 39 d0  |rce(w%(I%,0)).9.|
0000ac30  05 ed 0d 39 da 05 cd 0d  39 e4 14 e7 41 25 3c 3e  |...9....9...A%<>|
0000ac40  73 74 6f 70 62 6f 78 65  73 25 8c 0d 39 ee 46 e7  |stopboxes%..9.F.|
0000ac50  41 25 73 74 6f 70 62 6f  78 65 73 25 3d b9 3a 8b  |A%stopboxes%=.:.|
0000ac60  f2 73 74 6f 70 28 32 30  2c 72 6c 24 2b 22 64 69  |.stop(20,rl$+"di|
0000ac70  73 61 62 6c 65 20 74 68  65 73 65 22 2c 22 73 74  |sable these","st|
0000ac80  6f 70 20 62 6f 78 65 73  20 3f 22 2c 2d 31 29 3a  |op boxes ?",-1):|
0000ac90  e1 0d 39 f8 05 cd 0d 3a  02 06 7f e1 0d 3a 0c 05  |..9....:.....:..|
0000aca0  cb 0d 3a 16 18 f2 63 6c  6f 73 65 77 28 77 5f 73  |..:...closew(w_s|
0000acb0  74 61 74 75 73 25 29 3a  e1 0d 3a 20 04 0d 3a 2a  |tatus%):..: ..:*|
0000acc0  0c dd f2 6d 73 72 73 65  74 0d 3a 34 1e ea 54 24  |...msrset.:4..T$|
0000acd0  2c 49 25 3a f2 75 6e 73  65 6c 69 28 77 5f 73 72  |,I%:.unseli(w_sr|
0000ace0  73 65 74 25 2c 39 29 0d  3a 3e 0a c8 8e 6d 69 25  |set%,9).:>...mi%|
0000acf0  ca 0d 3a 48 06 c9 36 0d  3a 52 47 54 24 3d a4 78  |..:H..6.:RGT$=.x|
0000ad00  35 28 24 a4 69 61 28 77  5f 73 72 73 65 74 25 2c  |5($.ia(w_srset%,|
0000ad10  33 29 29 3a 73 72 78 24  28 66 69 6c 65 25 29 3d  |3)):srx$(file%)=|
0000ad20  54 24 3a 73 72 24 28 66  69 6c 65 25 29 3d 24 a4  |T$:sr$(file%)=$.|
0000ad30  69 61 28 77 5f 73 72 73  65 74 25 2c 33 29 0d 3a  |ia(w_srset%,3).:|
0000ad40  5c 23 f2 66 6c 67 28 66  5f 73 74 6f 74 25 2c a3  |\#.flg(f_stot%,.|
0000ad50  29 3a f2 66 6c 67 28 66  5f 73 72 75 70 25 2c a3  |):.flg(f_srup%,.|
0000ad60  29 0d 3a 66 23 f2 66 6c  67 28 66 5f 73 74 69 74  |).:f#.flg(f_stit|
0000ad70  25 2c a3 29 3a f2 66 6c  67 28 66 5f 73 64 61 73  |%,.):.flg(f_sdas|
0000ad80  25 2c a3 29 0d 3a 70 22  f2 77 63 68 69 28 77 5f  |%,.).:p".wchi(w_|
0000ad90  73 72 73 65 74 25 29 3a  49 25 3d 71 25 3a f5 3a  |srset%):I%=q%:.:|
0000ada0  c8 8e 21 49 25 ca 0d 3a  7a 16 c9 30 3a f2 66 6c  |..!I%..:z..0:.fl|
0000adb0  67 28 66 5f 73 72 75 70  25 2c b9 29 0d 3a 84 16  |g(f_srup%,.).:..|
0000adc0  c9 31 3a f2 66 6c 67 28  66 5f 73 74 6f 74 25 2c  |.1:.flg(f_stot%,|
0000add0  b9 29 0d 3a 8e 16 c9 37  3a f2 66 6c 67 28 66 5f  |.).:...7:.flg(f_|
0000ade0  73 74 69 74 25 2c b9 29  0d 3a 98 16 c9 38 3a f2  |stit%,.).:...8:.|
0000adf0  66 6c 67 28 66 5f 73 64  61 73 25 2c b9 29 0d 3a  |flg(f_sdas%,.).:|
0000ae00  a2 1e cb 3a 49 25 2b 3d  34 3a fd 49 25 21 2d 34  |...:I%+=4:.I%!-4|
0000ae10  3c 30 3a f2 66 6f 72 63  65 72 65 70 0d 3a ac 0b  |<0:.forcerep.:..|
0000ae20  f2 6e 6f 64 69 61 6c 0d  3a b6 0e c9 35 3a f2 6e  |.nodial.:...5:.n|
0000ae30  6f 64 69 61 6c 0d 3a c0  5b c9 39 3a e7 24 a4 69  |odial.:.[.9:.$.i|
0000ae40  61 28 77 5f 73 72 73 65  74 25 2c 33 29 3d 22 22  |a(w_srset%,3)=""|
0000ae50  f2 73 65 74 69 28 77 5f  73 72 73 65 74 25 2c 33  |.seti(w_srset%,3|
0000ae60  2c 65 78 24 29 3a 8b 65  78 24 3d 24 a4 69 61 28  |,ex$):.ex$=$.ia(|
0000ae70  77 5f 73 72 73 65 74 25  2c 33 29 3a f2 73 65 74  |w_srset%,3):.set|
0000ae80  69 28 77 5f 73 72 73 65  74 25 2c 33 2c 22 22 29  |i(w_srset%,3,"")|
0000ae90  0d 3a ca 05 cb 0d 3a d4  05 e1 0d 3a de 04 0d 3a  |.:....:....:...:|
0000aea0  e8 28 dd f2 6d 6c 61 62  65 6c 3a e7 6d 69 25 3d  |.(..mlabel:.mi%=|
0000aeb0  32 39 3a f2 63 6c 6f 73  65 77 28 77 5f 6c 61 62  |29:.closew(w_lab|
0000aec0  65 6c 25 29 3a e1 0d 3a  f2 10 ea 49 25 2c 41 25  |el%):..:...I%,A%|
0000aed0  3a f7 8d 44 42 7b 0d 3a  fc 50 e7 6d 69 25 3e 32  |:..DB{.:.P.mi%>2|
0000aee0  37 80 6d 69 25 3c 33 32  e3 49 25 3d 30 b8 37 3a  |7.mi%<32.I%=0.7:|
0000aef0  f3 41 25 3a 6c 6c 25 28  66 69 6c 65 25 2c 49 25  |.A%:ll%(file%,I%|
0000af00  29 3d bb 24 a4 69 61 28  77 5f 6c 61 62 65 6c 25  |)=.$.ia(w_label%|
0000af10  2c 41 25 29 3a ed 3a f2  72 65 78 74 3a f2 66 6f  |,A%):.:.rext:.fo|
0000af20  72 63 65 72 65 70 0d 3b  06 0a c8 8e 6d 69 25 ca  |rcerep.;....mi%.|
0000af30  0d 3b 10 11 c9 33 31 3a  f2 70 72 69 6e 74 6f 6e  |.;...31:.printon|
0000af40  65 0d 3b 1a 10 c9 33 30  3a f2 74 65 73 74 6c 61  |e.;...30:.testla|
0000af50  62 0d 3b 24 0d cb 3a f2  6c 77 69 64 74 68 0d 3b  |b.;$..:.lwidth.;|
0000af60  2e 24 e7 6d 69 25 3e 32  37 80 6d 69 25 3c 33 32  |.$.mi%>27.mi%<32|
0000af70  3a f2 63 6c 6f 73 65 77  28 77 5f 6c 61 62 65 6c  |:.closew(w_label|
0000af80  25 29 0d 3b 38 05 e1 0d  3b 42 1b dc 31 32 2c 34  |%).;8...;B..12,4|
0000af90  31 2c 32 33 2c 36 2c 31  35 2c 31 39 2c 34 38 2c  |1,23,6,15,19,48,|
0000afa0  35 32 0d 3b 4c 04 0d 3b  56 26 dd f2 6d 6c 69 6e  |52.;L..;V&..mlin|
0000afb0  65 3a e7 6d 69 25 3d 31  33 3a f2 63 6c 6f 73 65  |e:.mi%=13:.close|
0000afc0  77 28 77 5f 6c 69 6e 65  25 29 3a e1 0d 3b 60 0d  |w(w_line%):..;`.|
0000afd0  e7 6d 69 25 3c 3e 31 32  e1 0d 3b 6a 35 ea 49 25  |.mi%<>12..;j5.I%|
0000afe0  2c 54 25 2c 56 25 3a 54  25 3d 6d 65 6e 75 66 69  |,T%,V%:T%=menufi|
0000aff0  65 6c 64 25 3a f2 77 63  68 69 28 77 5f 6c 69 6e  |eld%:.wchi(w_lin|
0000b000  65 25 29 3a 56 25 3d 30  3a 49 25 3d 71 25 0d 3b  |e%):V%=0:I%=q%.;|
0000b010  74 0c f5 3a c8 8e 21 49  25 ca 0d 3b 7e 13 c9 31  |t..:..!I%..;~..1|
0000b020  3a 56 25 3d 28 56 25 80  ac 33 29 84 31 0d 3b 88  |:V%=(V%..3).1.;.|
0000b030  13 c9 32 3a 56 25 3d 28  56 25 80 ac 33 29 84 32  |..2:V%=(V%..3).2|
0000b040  0d 3b 92 19 c9 36 3a 56  25 3d 28 56 25 80 ac 31  |.;...6:V%=(V%..1|
0000b050  32 29 84 28 31 3c 3c 32  29 0d 3b 9c 19 c9 37 3a  |2).(1<<2).;...7:|
0000b060  56 25 3d 28 56 25 80 ac  31 32 29 84 28 32 3c 3c  |V%=(V%..12).(2<<|
0000b070  32 29 0d 3b a6 0f c9 39  3a 56 25 3d 56 25 84 31  |2).;...9:V%=V%.1|
0000b080  36 0d 3b b0 10 c9 31 30  3a 56 25 3d 56 25 84 33  |6.;...10:V%=V%.3|
0000b090  32 0d 3b ba 10 c9 31 31  3a 56 25 3d 56 25 84 36  |2.;...11:V%=V%.6|
0000b0a0  34 0d 3b c4 25 cb 3a 49  25 2b 3d 34 3a fd 49 25  |4.;.%.:I%+=4:.I%|
0000b0b0  21 2d 34 3c 30 3a 6c 66  25 28 66 69 6c 65 25 2c  |!-4<0:lf%(file%,|
0000b0c0  54 25 29 3d 56 25 0d 3b  ce 20 f2 66 6f 72 63 65  |T%)=V%.;. .force|
0000b0d0  72 65 70 3a f2 63 6c 6f  73 65 77 28 77 5f 6c 69  |rep:.closew(w_li|
0000b0e0  6e 65 25 29 3a e1 0d 3b  d8 04 0d 3b e2 25 dd f2  |ne%):..;...;.%..|
0000b0f0  6d 70 61 73 73 77 3a e7  6d 69 25 3d 34 3a f2 63  |mpassw:.mi%=4:.c|
0000b100  6c 6f 73 65 77 28 77 5f  70 61 73 73 77 25 29 0d  |losew(w_passw%).|
0000b110  3b ec 0c e7 6d 69 25 3c  3e 33 e1 0d 3b f6 4a ea  |;...mi%<>3..;.J.|
0000b120  54 24 2c 74 24 3a 54 24  3d a4 73 75 28 24 a4 69  |T$,t$:T$=.su($.i|
0000b130  61 28 77 5f 70 61 73 73  77 25 2c 35 29 29 3a f2  |a(w_passw%,5)):.|
0000b140  73 64 66 69 6c 65 28 64  69 61 6c 66 69 6c 65 25  |sdfile(dialfile%|
0000b150  29 3a c8 99 73 77 69 25  2c 73 64 36 33 5f 25 2c  |):..swi%,sd63_%,|
0000b160  54 24 b8 47 25 0d 3c 00  37 e7 47 25 3d 32 3a f2  |T$.G%.<.7.G%=2:.|
0000b170  73 65 74 63 74 28 77 5f  70 61 73 73 77 25 2c 35  |setct(w_passw%,5|
0000b180  2c a9 24 a4 69 61 28 77  5f 70 61 73 73 77 25 2c  |,.$.ia(w_passw%,|
0000b190  35 29 29 3a f2 65 72 72  28 35 31 29 0d 3c 0a 35  |5)):.err(51).<.5|
0000b1a0  54 24 3d a4 73 75 28 24  a4 69 61 28 77 5f 70 61  |T$=.su($.ia(w_pa|
0000b1b0  73 73 77 25 2c 31 29 29  3a 74 24 3d a4 73 75 28  |ssw%,1)):t$=.su(|
0000b1c0  24 a4 69 61 28 77 5f 70  61 73 73 77 25 2c 32 29  |$.ia(w_passw%,2)|
0000b1d0  29 0d 3c 14 14 e7 54 24  3c 3e 74 24 3a f2 65 72  |).<...T$<>t$:.er|
0000b1e0  72 28 34 37 29 0d 3c 1e  42 e7 54 24 3d 22 22 3a  |r(47).<.B.T$="":|
0000b1f0  f2 73 74 6f 70 28 32 37  2c 66 69 24 2b a4 66 69  |.stop(27,fi$+.fi|
0000b200  6c 65 6e 61 6d 65 2c 72  6c 24 2b 22 64 65 6c 65  |lename,rl$+"dele|
0000b210  74 65 20 70 61 73 73 77  6f 72 64 20 3f 22 2c 66  |te password ?",f|
0000b220  69 6c 65 25 29 3a e1 0d  3c 28 17 c8 99 73 77 69  |ile%):..<(...swi|
0000b230  25 2c 73 65 74 70 61 73  73 5f 25 2c 54 24 0d 3c  |%,setpass_%,T$.<|
0000b240  32 17 f2 63 6c 6f 73 65  77 28 77 5f 70 61 73 73  |2..closew(w_pass|
0000b250  77 25 29 3a e1 0d 3c 3c  04 0d 3c 46 23 dd f2 6d  |w%):..<<..<F#..m|
0000b260  77 6f 72 64 3a e7 6d 69  25 3d 34 33 f2 63 6c 6f  |word:.mi%=43.clo|
0000b270  73 65 77 28 77 5f 77 6f  72 64 25 29 0d 3c 50 0d  |sew(w_word%).<P.|
0000b280  e7 6d 69 25 3c 3e 34 32  e1 0d 3c 5a 30 ea 49 25  |.mi%<>42..<Z0.I%|
0000b290  3a e3 49 25 3d 30 b8 31  34 3a 77 24 28 66 69 6c  |:.I%=0.14:w$(fil|
0000b2a0  65 25 2c 49 25 29 3d 24  a4 69 61 28 77 5f 77 6f  |e%,I%)=$.ia(w_wo|
0000b2b0  72 64 25 2c 49 25 29 3a  ed 0d 3c 64 30 f2 66 6c  |rd%,I%):..<d0.fl|
0000b2c0  67 30 28 66 5f 77 73 70  63 25 29 3a f2 66 6c 67  |g0(f_wspc%):.flg|
0000b2d0  30 28 66 5f 77 75 70 70  25 29 3a f2 66 6c 67 30  |0(f_wupp%):.flg0|
0000b2e0  28 66 5f 77 62 6e 6b 25  29 0d 3c 6e 2e 77 6f 25  |(f_wbnk%).<n.wo%|
0000b2f0  28 66 69 6c 65 25 29 3d  30 3a f2 77 63 68 69 28  |(file%)=0:.wchi(|
0000b300  77 5f 77 6f 72 64 25 29  3a 49 25 3d 71 25 3a f5  |w_word%):I%=q%:.|
0000b310  3a c8 8e 21 49 25 ca 0d  3c 78 16 c9 34 30 3a f2  |:..!I%..<x..40:.|
0000b320  66 6c 67 31 28 66 5f 77  73 70 63 25 29 0d 3c 82  |flg1(f_wspc%).<.|
0000b330  16 c9 34 31 3a f2 66 6c  67 31 28 66 5f 77 75 70  |..41:.flg1(f_wup|
0000b340  70 25 29 0d 3c 8c 16 c9  34 34 3a f2 66 6c 67 31  |p%).<...44:.flg1|
0000b350  28 66 5f 77 62 6e 6b 25  29 0d 3c 96 26 cb 3a e7  |(f_wbnk%).<.&.:.|
0000b360  21 49 25 3e 32 39 80 21  49 25 3c 34 30 3a 77 6f  |!I%>29.!I%<40:wo|
0000b370  25 28 66 69 6c 65 25 29  3d 21 49 25 2d 33 30 0d  |%(file%)=!I%-30.|
0000b380  3c a0 2f 49 25 2b 3d 34  3a fd 49 25 21 2d 34 3c  |<./I%+=4:.I%!-4<|
0000b390  30 3a f2 66 6f 72 63 65  72 65 70 3a f2 63 6c 6f  |0:.forcerep:.clo|
0000b3a0  73 65 77 28 77 5f 77 6f  72 64 25 29 3a e1 0d 3c  |sew(w_word%):..<|
0000b3b0  aa 04 0d 3c b4 28 dd f2  6d 70 64 72 69 76 65 3a  |...<.(..mpdrive:|
0000b3c0  e7 6d 69 25 3d 31 39 3a  f2 63 6c 6f 73 65 77 28  |.mi%=19:.closew(|
0000b3d0  77 5f 70 64 72 69 76 65  25 29 0d 3c be 1d e7 6d  |w_pdrive%).<...m|
0000b3e0  69 25 3c 3e 31 38 80 6d  69 25 3c 3e 32 30 80 6d  |i%<>18.mi%<>20.m|
0000b3f0  69 25 3c 3e 32 32 e1 0d  3c c8 07 ea 49 25 0d 3c  |i%<>22..<...I%.<|
0000b400  d2 27 49 25 3d 71 25 3a  70 74 65 72 6d 25 3d 32  |.'I%=q%:pterm%=2|
0000b410  3a 70 64 72 69 76 65 72  25 3d a3 3a 6d 61 6e 75  |:pdriver%=.:manu|
0000b420  61 6c 25 3d a3 0d 3c dc  1d f2 77 63 68 69 28 77  |al%=..<...wchi(w|
0000b430  5f 70 64 72 69 76 65 25  29 3a f5 3a c8 8e 21 49  |_pdrive%):.:..!I|
0000b440  25 ca 0d 3c e6 1b c9 31  34 2c 31 35 2c 31 36 3a  |%..<...14,15,16:|
0000b450  70 74 65 72 6d 25 3d 21  49 25 2d 31 34 0d 3c f0  |pterm%=!I%-14.<.|
0000b460  12 c9 31 37 3a 70 64 72  69 76 65 72 25 3d b9 0d  |..17:pdriver%=..|
0000b470  3c fa 11 c9 32 33 3a 6d  61 6e 75 61 6c 25 3d b9  |<...23:manual%=.|
0000b480  0d 3d 04 14 cb 3a 49 25  2b 3d 34 3a fd 49 25 21  |.=...:I%+=4:.I%!|
0000b490  2d 34 3c 30 0d 3d 0e 38  50 44 74 6f 24 28 31 29  |-4<0.=.8PDto$(1)|
0000b4a0  3d a4 50 43 6f 6e 76 28  24 a4 69 61 28 77 5f 70  |=.PConv($.ia(w_p|
0000b4b0  64 72 69 76 65 25 2c 37  29 29 3a 50 44 63 6c 65  |drive%,7)):PDcle|
0000b4c0  6e 25 28 31 29 3d 4c 65  6e 67 74 68 0d 3d 18 38  |n%(1)=Length.=.8|
0000b4d0  50 44 74 6f 24 28 32 29  3d a4 50 43 6f 6e 76 28  |PDto$(2)=.PConv(|
0000b4e0  24 a4 69 61 28 77 5f 70  64 72 69 76 65 25 2c 38  |$.ia(w_pdrive%,8|
0000b4f0  29 29 3a 50 44 63 6c 65  6e 25 28 32 29 3d 4c 65  |)):PDclen%(2)=Le|
0000b500  6e 67 74 68 0d 3d 22 2a  f2 50 44 72 64 66 6f 6e  |ngth.="*.PDrdfon|
0000b510  74 28 31 29 3a f2 50 44  72 64 66 6f 6e 74 28 32  |t(1):.PDrdfont(2|
0000b520  29 3a f2 50 44 72 64 66  6f 6e 74 28 33 29 0d 3d  |):.PDrdfont(3).=|
0000b530  2c 48 50 44 72 65 73 65  74 24 3d a4 50 43 6f 6e  |,HPDreset$=.PCon|
0000b540  76 28 24 a4 69 61 28 77  5f 70 64 72 69 76 65 25  |v($.ia(w_pdrive%|
0000b550  2c 31 33 29 29 3a 50 44  66 66 24 3d a4 50 43 6f  |,13)):PDff$=.PCo|
0000b560  6e 76 28 24 a4 69 61 28  77 5f 70 64 72 69 76 65  |nv($.ia(w_pdrive|
0000b570  25 2c 31 32 29 29 0d 3d  36 0a c8 8e 6d 69 25 ca  |%,12)).=6...mi%.|
0000b580  0d 3d 40 0f c9 32 30 3a  f2 50 44 74 65 73 74 0d  |.=@..20:.PDtest.|
0000b590  3d 4a 36 c9 32 32 3a f2  63 6c 6f 73 65 77 28 77  |=J6.22:.closew(w|
0000b5a0  5f 70 64 72 69 76 65 25  29 3a f2 73 61 76 65 77  |_pdrive%):.savew|
0000b5b0  28 66 5f 70 64 24 2c 26  44 37 42 2c 39 2c 2d 31  |(f_pd$,&D7B,9,-1|
0000b5c0  2c 35 31 32 29 0d 3d 54  18 7f 3a f2 63 6c 6f 73  |,512).=T..:.clos|
0000b5d0  65 77 28 77 5f 70 64 72  69 76 65 25 29 0d 3d 5e  |ew(w_pdrive%).=^|
0000b5e0  05 cb 0d 3d 68 05 e1 0d  3d 72 04 0d 3d 7c 27 dd  |...=h...=r..=|'.|
0000b5f0  f2 6d 72 73 65 74 31 3a  e7 6d 69 25 3d 36 3a f2  |.mrset1:.mi%=6:.|
0000b600  63 6c 6f 73 65 77 28 77  5f 72 73 65 74 31 25 29  |closew(w_rset1%)|
0000b610  3a e1 0d 3d 86 12 e7 6d  69 25 3c 35 84 6d 69 25  |:..=...mi%<5.mi%|
0000b620  3e 31 30 e1 0d 3d 90 0a  ea 66 25 2c 49 25 0d 3d  |>10..=...f%,I%.=|
0000b630  9a 39 f2 77 63 68 69 28  77 5f 72 73 65 74 31 25  |.9.wchi(w_rset1%|
0000b640  29 3a 49 25 3d 71 25 3a  f2 66 6c 67 30 28 66 5f  |):I%=q%:.flg0(f_|
0000b650  72 6c 64 75 25 29 3a f2  66 6c 67 30 28 66 5f 72  |rldu%):.flg0(f_r|
0000b660  6c 73 75 25 29 3a f5 0d  3d a4 0a c8 8e 21 49 25  |lsu%):..=....!I%|
0000b670  ca 0d 3d ae 16 c9 33 36  3a f2 66 6c 67 31 28 66  |..=...36:.flg1(f|
0000b680  5f 72 6c 64 75 25 29 0d  3d b8 16 c9 33 37 3a f2  |_rldu%).=...37:.|
0000b690  66 6c 67 31 28 66 5f 72  6c 73 75 25 29 0d 3d c2  |flg1(f_rlsu%).=.|
0000b6a0  14 cb 3a 49 25 2b 3d 34  3a fd 49 25 21 2d 34 3c  |..:I%+=4:.I%!-4<|
0000b6b0  30 0d 3d cc 2e e3 49 25  3d 30 b8 33 3a 70 24 28  |0.=...I%=0.3:p$(|
0000b6c0  66 69 6c 65 25 2c 49 25  29 3d 24 a4 69 61 28 77  |file%,I%)=$.ia(w|
0000b6d0  5f 72 73 65 74 31 25 2c  49 25 2b 31 29 3a ed 0d  |_rset1%,I%+1):..|
0000b6e0  3d d6 2a 66 25 3d 66 69  6c 65 25 3a f2 6e 6f 64  |=.*f%=file%:.nod|
0000b6f0  69 61 6c 3a f2 73 64 66  69 6c 65 28 66 25 29 3a  |ial:.sdfile(f%):|
0000b700  f2 66 6f 72 63 65 72 65  70 0d 3d e0 0a c8 8e 6d  |.forcerep.=....m|
0000b710  69 25 ca 0d 3d ea 0e c9  39 3a f2 72 73 65 74 35  |i%..=...9:.rset5|
0000b720  33 0d 3d f4 0f c9 31 30  3a f2 72 73 65 74 35 32  |3.=...10:.rset52|
0000b730  0d 3d fe 0f c9 37 3a f2  70 72 65 76 69 65 77 0d  |.=...7:.preview.|
0000b740  3e 08 12 c9 38 3a f2 64  65 66 61 75 6c 74 72 65  |>...8:.defaultre|
0000b750  70 0d 3e 12 05 cb 0d 3e  1c 05 e1 0d 3e 26 04 0d  |p.>....>....>&..|
0000b760  3e 30 27 dd f2 6d 72 73  65 74 32 3a e7 6d 69 25  |>0'..mrset2:.mi%|
0000b770  3d 31 3a f2 63 6c 6f 73  65 77 28 77 5f 72 73 65  |=1:.closew(w_rse|
0000b780  74 32 25 29 3a e1 0d 3e  3a 11 e7 6d 69 25 3e 35  |t2%):..>:..mi%>5|
0000b790  84 6d 69 25 3c 30 e1 0d  3e 44 0a ea 66 25 2c 49  |.mi%<0..>D..f%,I|
0000b7a0  25 0d 3e 4e 39 f2 77 63  68 69 28 77 5f 72 73 65  |%.>N9.wchi(w_rse|
0000b7b0  74 32 25 29 3a 49 25 3d  71 25 3a f2 66 6c 67 30  |t2%):I%=q%:.flg0|
0000b7c0  28 66 5f 72 74 70 67 25  29 3a f2 66 6c 67 30 28  |(f_rtpg%):.flg0(|
0000b7d0  66 5f 72 74 73 75 25 29  3a f5 0d 3e 58 0a c8 8e  |f_rtsu%):..>X...|
0000b7e0  21 49 25 ca 0d 3e 62 16  c9 35 31 3a f2 66 6c 67  |!I%..>b..51:.flg|
0000b7f0  31 28 66 5f 72 74 70 67  25 29 0d 3e 6c 16 c9 35  |1(f_rtpg%).>l..5|
0000b800  32 3a f2 66 6c 67 31 28  66 5f 72 74 73 75 25 29  |2:.flg1(f_rtsu%)|
0000b810  0d 3e 76 14 cb 3a 49 25  2b 3d 34 3a fd 49 25 21  |.>v..:I%+=4:.I%!|
0000b820  2d 34 3c 30 0d 3e 80 31  e3 49 25 3d 30 b8 33 3a  |-4<0.>.1.I%=0.3:|
0000b830  70 24 28 66 69 6c 65 25  2c 49 25 2b 34 29 3d 24  |p$(file%,I%+4)=$|
0000b840  a4 69 61 28 77 5f 72 73  65 74 32 25 2c 49 25 2b  |.ia(w_rset2%,I%+|
0000b850  34 32 29 3a ed 0d 3e 8a  2a 66 25 3d 66 69 6c 65  |42):..>.*f%=file|
0000b860  25 3a f2 6e 6f 64 69 61  6c 3a f2 73 64 66 69 6c  |%:.nodial:.sdfil|
0000b870  65 28 66 25 29 3a f2 66  6f 72 63 65 72 65 70 0d  |e(f%):.forcerep.|
0000b880  3e 94 0a c8 8e 6d 69 25  ca 0d 3e 9e 0e c9 34 3a  |>....mi%..>...4:|
0000b890  f2 72 73 65 74 35 33 0d  3e a8 0e c9 35 3a f2 72  |.rset53.>...5:.r|
0000b8a0  73 65 74 35 31 0d 3e b2  0f c9 32 3a f2 70 72 65  |set51.>...2:.pre|
0000b8b0  76 69 65 77 0d 3e bc 12  c9 33 3a f2 64 65 66 61  |view.>...3:.defa|
0000b8c0  75 6c 74 72 65 70 0d 3e  c6 05 cb 0d 3e d0 05 e1  |ultrep.>....>...|
0000b8d0  0d 3e da 04 0d 3e e4 27  dd f2 6d 72 73 65 74 33  |.>...>.'..mrset3|
0000b8e0  3a e7 6d 69 25 3d 33 3a  f2 63 6c 6f 73 65 77 28  |:.mi%=3:.closew(|
0000b8f0  77 5f 72 73 65 74 33 25  29 3a e1 0d 3e ee 24 f2  |w_rset3%):..>.$.|
0000b900  72 6d 61 72 67 69 6e 3a  e7 28 6d 69 25 3e 34 80  |rmargin:.(mi%>4.|
0000b910  6d 69 25 3c 3e 33 35 29  84 6d 69 25 3c 30 e1 0d  |mi%<>35).mi%<0..|
0000b920  3e f8 0d ea 66 25 2c 49  25 2c 41 25 0d 3f 02 3a  |>...f%,I%,A%.?.:|
0000b930  f2 66 6c 67 30 28 66 5f  72 65 6a 62 25 84 66 5f  |.flg0(f_rejb%.f_|
0000b940  72 65 6a 61 25 84 66 5f  72 64 73 70 25 84 66 5f  |reja%.f_rdsp%.f_|
0000b950  72 74 70 6e 25 84 66 5f  72 62 70 6e 25 84 66 5f  |rtpn%.f_rbpn%.f_|
0000b960  72 70 64 74 25 29 0d 3f  0c 22 49 25 3d 71 25 3a  |rpdt%).?."I%=q%:|
0000b970  f2 77 63 68 69 28 77 5f  72 73 65 74 33 25 29 3a  |.wchi(w_rset3%):|
0000b980  f5 3a c8 8e 21 49 25 ca  0d 3f 16 16 c9 32 39 3a  |.:..!I%..?...29:|
0000b990  f2 66 6c 67 31 28 66 5f  72 65 6a 62 25 29 0d 3f  |.flg1(f_rejb%).?|
0000b9a0  20 16 c9 33 30 3a f2 66  6c 67 31 28 66 5f 72 65  | ..30:.flg1(f_re|
0000b9b0  6a 61 25 29 0d 3f 2a 16  c9 33 31 3a f2 66 6c 67  |ja%).?*..31:.flg|
0000b9c0  31 28 66 5f 72 64 73 70  25 29 0d 3f 34 16 c9 33  |1(f_rdsp%).?4..3|
0000b9d0  32 3a f2 66 6c 67 31 28  66 5f 72 74 70 6e 25 29  |2:.flg1(f_rtpn%)|
0000b9e0  0d 3f 3e 16 c9 33 33 3a  f2 66 6c 67 31 28 66 5f  |.?>..33:.flg1(f_|
0000b9f0  72 62 70 6e 25 29 0d 3f  48 16 c9 33 34 3a f2 66  |rbpn%).?H..34:.f|
0000ba00  6c 67 31 28 66 5f 72 70  64 74 25 29 0d 3f 52 14  |lg1(f_rpdt%).?R.|
0000ba10  cb 3a 49 25 2b 3d 34 3a  fd 49 25 21 2d 34 3c 30  |.:I%+=4:.I%!-4<0|
0000ba20  0d 3f 5c 35 f7 2b 31 3a  e3 49 25 3d 30 b8 34 3a  |.?\5.+1:.I%=0.4:|
0000ba30  f3 41 25 3a 70 25 28 66  69 6c 65 25 2c 49 25 29  |.A%:p%(file%,I%)|
0000ba40  3d bb 24 a4 69 61 28 77  5f 72 73 65 74 33 25 2c  |=.$.ia(w_rset3%,|
0000ba50  41 25 29 3a ed 0d 3f 66  2e e7 70 25 28 66 69 6c  |A%):..?f..p%(fil|
0000ba60  65 25 2c 34 29 3c 36 80  70 25 28 66 69 6c 65 25  |e%,4)<6.p%(file%|
0000ba70  2c 34 29 3c 3e 30 70 25  28 66 69 6c 65 25 2c 34  |,4)<>0p%(file%,4|
0000ba80  29 3d 36 0d 3f 70 42 e7  70 25 28 66 69 6c 65 25  |)=6.?pB.p%(file%|
0000ba90  2c 33 29 3e 70 25 28 66  69 6c 65 25 2c 34 29 80  |,3)>p%(file%,4).|
0000baa0  70 25 28 66 69 6c 65 25  2c 34 29 3c 3e 30 70 25  |p%(file%,4)<>0p%|
0000bab0  28 66 69 6c 65 25 2c 33  29 3d 70 25 28 66 69 6c  |(file%,3)=p%(fil|
0000bac0  65 25 2c 34 29 0d 3f 7a  20 e7 70 25 28 66 69 6c  |e%,4).?z .p%(fil|
0000bad0  65 25 2c 30 29 3c 35 29  70 25 28 66 69 6c 65 25  |e%,0)<5)p%(file%|
0000bae0  2c 30 29 3d 35 0d 3f 84  33 e7 70 25 28 66 69 6c  |,0)=5.?.3.p%(fil|
0000baf0  65 25 2c 32 29 3e 70 25  28 66 69 6c 65 25 2c 30  |e%,2)>p%(file%,0|
0000bb00  29 70 25 28 66 69 6c 65  25 2c 32 29 3d 70 25 28  |)p%(file%,2)=p%(|
0000bb10  66 69 6c 65 25 2c 30 29  0d 3f 8e 4b e7 70 25 28  |file%,0).?.K.p%(|
0000bb20  66 69 6c 65 25 2c 31 29  2b 70 25 28 66 69 6c 65  |file%,1)+p%(file|
0000bb30  25 2c 32 29 3e 70 25 28  66 69 6c 65 25 2c 30 29  |%,2)>p%(file%,0)|
0000bb40  70 25 28 66 69 6c 65 25  2c 31 29 3d 70 25 28 66  |p%(file%,1)=p%(f|
0000bb50  69 6c 65 25 2c 30 29 2d  70 25 28 66 69 6c 65 25  |ile%,0)-p%(file%|
0000bb60  2c 32 29 0d 3f 98 2a 66  25 3d 66 69 6c 65 25 3a  |,2).?.*f%=file%:|
0000bb70  f2 6e 6f 64 69 61 6c 3a  f2 73 64 66 69 6c 65 28  |.nodial:.sdfile(|
0000bb80  66 25 29 3a f2 66 6f 72  63 65 72 65 70 0d 3f a2  |f%):.forcerep.?.|
0000bb90  0a c8 8e 6d 69 25 ca 0d  3f ac 0e c9 31 3a f2 72  |...mi%..?...1:.r|
0000bba0  73 65 74 35 32 0d 3f b6  0e c9 32 3a f2 72 73 65  |set52.?...2:.rse|
0000bbb0  74 35 31 0d 3f c0 0f c9  34 3a f2 70 72 65 76 69  |t51.?...4:.previ|
0000bbc0  65 77 0d 3f ca 12 c9 35  3a f2 64 65 66 61 75 6c  |ew.?...5:.defaul|
0000bbd0  74 72 65 70 0d 3f d4 05  cb 0d 3f de 05 e1 0d 3f  |trep.?....?....?|
0000bbe0  e8 12 dc 37 2c 31 32 2c  31 36 2c 32 36 2c 32 32  |...7,12,16,26,22|
0000bbf0  0d 3f f2 04 0d 3f fc 0a  dd f2 6d 63 6f 6c 0d 40  |.?...?....mcol.@|
0000bc00  06 24 ea 54 24 2c 49 25  2c 54 25 3a 49 25 3d 6d  |.$.T$,I%,T%:I%=m|
0000bc10  65 6e 75 63 6f 6c 25 3a  63 6f 6c 75 6d 6e 25 3d  |enucol%:column%=|
0000bc20  49 25 0d 40 10 0a c8 8e  6d 69 25 ca 0d 40 1a 2e  |I%.@....mi%..@..|
0000bc30  c9 35 2c 39 3a f2 73 65  6c 69 28 77 5f 63 6f 6c  |.5,9:.seli(w_col|
0000bc40  25 2c 32 35 29 3a f2 75  6e 73 65 6c 69 28 77 5f  |%,25):.unseli(w_|
0000bc50  63 6f 6c 25 2c 32 37 29  3a e1 0d 40 24 55 c9 32  |col%,27):..@$U.2|
0000bc60  31 2c 32 38 2c 32 39 2c  31 38 2c 32 30 2c 33 2c  |1,28,29,18,20,3,|
0000bc70  34 2c 33 33 2c 33 34 2c  33 35 2c 33 36 2c 33 37  |4,33,34,35,36,37|
0000bc80  2c 33 38 2c 33 39 2c 34  30 3a f2 73 65 6c 69 28  |,38,39,40:.seli(|
0000bc90  77 5f 63 6f 6c 25 2c 32  37 29 3a f2 75 6e 73 65  |w_col%,27):.unse|
0000bca0  6c 69 28 77 5f 63 6f 6c  25 2c 32 35 29 3a e1 0d  |li(w_col%,25):..|
0000bcb0  40 2e 19 c9 34 33 3a f2  63 6c 6f 73 65 77 28 77  |@...43:.closew(w|
0000bcc0  5f 63 6f 6c 25 29 3a e1  0d 40 38 47 c9 34 35 3a  |_col%):..@8G.45:|
0000bcd0  f2 73 74 6f 70 28 33 34  2c 22 43 6f 6c 75 6d 6e  |.stop(34,"Column|
0000bce0  20 22 2b c3 28 6d 65 6e  75 63 6f 6c 25 2b 31 29  | "+.(menucol%+1)|
0000bcf0  2c 72 6c 24 2b 22 64 65  6c 65 74 65 20 63 6f 6c  |,rl$+"delete col|
0000bd00  75 6d 6e 20 3f 22 2c 66  69 6c 65 25 29 3a e1 0d  |umn ?",file%):..|
0000bd10  40 42 47 c9 34 36 3a f2  73 74 6f 70 28 33 35 2c  |@BG.46:.stop(35,|
0000bd20  22 43 6f 6c 75 6d 6e 20  22 2b c3 28 6d 65 6e 75  |"Column "+.(menu|
0000bd30  63 6f 6c 25 2b 31 29 2c  72 6c 24 2b 22 69 6e 73  |col%+1),rl$+"ins|
0000bd40  65 72 74 20 63 6f 6c 75  6d 6e 20 3f 22 2c 66 69  |ert column ?",fi|
0000bd50  6c 65 25 29 3a e1 0d 40  4c 0f cb 3a e7 6d 69 25  |le%):..@L..:.mi%|
0000bd60  3c 3e 34 32 e1 0d 40 56  3a 54 24 3d a4 78 37 28  |<>42..@V:T$=.x7(|
0000bd70  24 a4 69 61 28 77 5f 63  6f 6c 25 2c 32 32 29 29  |$.ia(w_col%,22))|
0000bd80  3a 63 24 28 66 69 6c 65  25 2c 49 25 2c 30 29 3d  |:c$(file%,I%,0)=|
0000bd90  24 a4 69 61 28 77 5f 63  6f 6c 25 2c 32 32 29 0d  |$.ia(w_col%,22).|
0000bda0  40 60 36 63 24 28 66 69  6c 65 25 2c 49 25 2c 31  |@`6c$(file%,I%,1|
0000bdb0  29 3d 24 a4 69 61 28 77  5f 63 6f 6c 25 2c 32 34  |)=$.ia(w_col%,24|
0000bdc0  29 3a 54 25 3d bb 24 a4  69 61 28 77 5f 63 6f 6c  |):T%=.$.ia(w_col|
0000bdd0  25 2c 31 30 29 0d 40 6a  1c e7 54 25 3c 31 54 25  |%,10).@j..T%<1T%|
0000bde0  3d 31 3a 8b e7 54 25 3e  32 35 34 54 25 3d 32 35  |=1:..T%>254T%=25|
0000bdf0  34 0d 40 74 33 f2 73 65  74 63 6f 6c 28 54 25 2c  |4.@t3.setcol(T%,|
0000be00  32 35 35 2c 30 29 3a 54  25 3d 71 25 3a 63 6a 75  |255,0):T%=q%:cju|
0000be10  73 25 3d 30 3a 63 66 6e  74 25 3d 31 3a 63 64 75  |s%=0:cfnt%=1:cdu|
0000be20  70 25 3d a3 0d 40 7e 3b  63 64 70 73 25 3d bb 24  |p%=..@~;cdps%=.$|
0000be30  a4 69 61 28 77 5f 63 6f  6c 25 2c 31 39 29 3a e7  |.ia(w_col%,19):.|
0000be40  63 64 70 73 25 3c 30 63  64 70 73 25 3d 30 3a 8b  |cdps%<0cdps%=0:.|
0000be50  e7 63 64 70 73 25 3e 36  63 64 70 73 25 3d 36 0d  |.cdps%>6cdps%=6.|
0000be60  40 88 33 63 75 70 70 25  3d a3 3a 63 73 70 63 25  |@.3cupp%=.:cspc%|
0000be70  3d a3 3a 63 74 6f 74 25  3d 30 3a 63 63 6d 61 25  |=.:ctot%=0:ccma%|
0000be80  3d a3 3a 63 62 6b 30 25  3d a3 3a 63 66 72 6d 25  |=.:cbk0%=.:cfrm%|
0000be90  3d 30 0d 40 92 1a f2 77  63 68 69 28 77 5f 63 6f  |=0.@...wchi(w_co|
0000bea0  6c 25 29 3a f5 3a c8 8e  21 54 25 ca 0d 40 9c 17  |l%):.:..!T%..@..|
0000beb0  c9 33 31 2c 33 32 3a 63  6a 75 73 25 3d 21 54 25  |.31,32:cjus%=!T%|
0000bec0  2d 33 31 0d 40 a6 0e c9  32 3a 63 6a 75 73 25 3d  |-31.@...2:cjus%=|
0000bed0  32 0d 40 b0 16 c9 36 2c  37 2c 38 3a 63 66 6e 74  |2.@...6,7,8:cfnt|
0000bee0  25 3d 21 54 25 2d 35 0d  40 ba 0f c9 32 35 3a 63  |%=!T%-5.@...25:c|
0000bef0  64 70 73 25 3d 37 0d 40  c4 0e c9 35 3a 63 75 70  |dps%=7.@...5:cup|
0000bf00  70 25 3d b9 0d 40 ce 0e  c9 39 3a 63 73 70 63 25  |p%=..@...9:cspc%|
0000bf10  3d b9 0d 40 d8 15 c9 32  31 3a 63 74 6f 74 25 3d  |=..@...21:ctot%=|
0000bf20  63 74 6f 74 25 84 34 0d  40 e2 15 c9 32 38 3a 63  |ctot%.4.@...28:c|
0000bf30  74 6f 74 25 3d 63 74 6f  74 25 84 31 0d 40 ec 15  |tot%=ctot%.1.@..|
0000bf40  c9 32 39 3a 63 74 6f 74  25 3d 63 74 6f 74 25 84  |.29:ctot%=ctot%.|
0000bf50  32 0d 40 f6 0e c9 33 3a  63 62 6b 30 25 3d b9 0d  |2.@...3:cbk0%=..|
0000bf60  41 00 0e c9 34 3a 63 63  6d 61 25 3d b9 0d 41 0a  |A...4:ccma%=..A.|
0000bf70  0f c9 34 37 3a 63 64 75  70 25 3d b9 0d 41 14 29  |..47:cdup%=..A.)|
0000bf80  c9 33 33 2c 33 34 2c 33  35 2c 33 36 2c 33 37 2c  |.33,34,35,36,37,|
0000bf90  33 38 2c 33 39 2c 34 30  3a 63 66 72 6d 25 3d 21  |38,39,40:cfrm%=!|
0000bfa0  54 25 2d 33 33 0d 41 1e  14 cb 3a 54 25 2b 3d 34  |T%-33.A...:T%+=4|
0000bfb0  3a fd 54 25 21 2d 34 3c  30 0d 41 28 3e f2 73 65  |:.T%!-4<0.A(>.se|
0000bfc0  74 63 6f 6c 28 63 6a 75  73 25 2c 33 2c 38 29 3a  |tcol(cjus%,3,8):|
0000bfd0  f2 73 65 74 63 6f 6c 28  63 66 6e 74 25 2c 33 2c  |.setcol(cfnt%,3,|
0000bfe0  31 30 29 3a f2 73 65 74  63 6f 6c 28 63 75 70 70  |10):.setcol(cupp|
0000bff0  25 2c 31 2c 31 32 29 0d  41 32 3f f2 73 65 74 63  |%,1,12).A2?.setc|
0000c000  6f 6c 28 63 73 70 63 25  2c 31 2c 31 33 29 3a f2  |ol(cspc%,1,13):.|
0000c010  73 65 74 63 6f 6c 28 63  64 70 73 25 2c 37 2c 31  |setcol(cdps%,7,1|
0000c020  34 29 3a f2 73 65 74 63  6f 6c 28 63 74 6f 74 25  |4):.setcol(ctot%|
0000c030  2c 33 2c 31 37 29 0d 41  3c 3f f2 73 65 74 63 6f  |,3,17).A<?.setco|
0000c040  6c 28 63 62 6b 30 25 2c  31 2c 31 39 29 3a f2 73  |l(cbk0%,1,19):.s|
0000c050  65 74 63 6f 6c 28 63 63  6d 61 25 2c 31 2c 32 30  |etcol(ccma%,1,20|
0000c060  29 3a f2 73 65 74 63 6f  6c 28 63 66 72 6d 25 2c  |):.setcol(cfrm%,|
0000c070  37 2c 32 31 29 0d 41 46  2f f2 73 65 74 63 6f 6c  |7,21).AF/.setcol|
0000c080  28 63 64 75 70 25 2c 31  2c 32 34 29 3a f2 73 65  |(cdup%,1,24):.se|
0000c090  74 63 6f 6c 28 63 74 6f  74 25 3e 3e 3e 32 2c 31  |tcol(ctot%>>>2,1|
0000c0a0  2c 32 35 29 0d 41 50 1f  f2 66 6f 72 63 65 72 65  |,25).AP..forcere|
0000c0b0  70 3a f2 63 6c 6f 73 65  77 28 77 5f 63 6f 6c 25  |p:.closew(w_col%|
0000c0c0  29 3a e1 0d 41 5a 04 0d  41 64 0e dd f2 6d 69 6d  |):..AZ..Ad...mim|
0000c0d0  70 75 6c 73 65 0d 41 6e  0a c8 8e 6d 69 25 ca 0d  |pulse.An...mi%..|
0000c0e0  41 78 0e c9 35 3a f2 69  5f 64 65 66 31 0d 41 82  |Ax..5:.i_def1.A.|
0000c0f0  10 c9 36 3a f2 6e 6f 64  69 61 6c 3a e1 0d 41 8c  |..6:.nodial:..A.|
0000c100  14 c9 37 3a f2 69 5f 73  74 61 72 74 6d 65 72 67  |..7:.i_startmerg|
0000c110  65 0d 41 96 05 cb 0d 41  a0 05 e1 0d 41 aa 04 0d  |e.A....A....A...|
0000c120  41 b4 16 dd f2 73 65 74  63 6f 6c 28 56 25 2c 4d  |A....setcol(V%,M|
0000c130  25 2c 49 25 29 0d 41 be  41 63 25 28 66 69 6c 65  |%,I%).A.Ac%(file|
0000c140  25 2c 63 6f 6c 75 6d 6e  25 29 3d 28 63 25 28 66  |%,column%)=(c%(f|
0000c150  69 6c 65 25 2c 63 6f 6c  75 6d 6e 25 29 80 ac 28  |ile%,column%)..(|
0000c160  4d 25 3c 3c 49 25 29 29  84 28 28 56 25 80 4d 25  |M%<<I%)).((V%.M%|
0000c170  29 3c 3c 49 25 29 0d 41  c8 05 e1 0d 41 d2 04 0d  |)<<I%).A....A...|
0000c180  41 dc 0f dd f2 73 74 61  72 74 64 72 61 67 0d 41  |A....startdrag.A|
0000c190  e6 2f 64 72 61 67 72 65  61 73 6f 6e 25 3d 2d 31  |./dragreason%=-1|
0000c1a0  3a 64 72 61 67 62 75 74  74 6f 6e 25 3d 6d 62 25  |:dragbutton%=mb%|
0000c1b0  3a 6d 65 6e 75 66 69 6c  65 25 3d 2d 31 0d 41 f0  |:menufile%=-1.A.|
0000c1c0  19 f2 77 74 6f 66 28 6d  68 25 29 3a e7 66 69 6c  |..wtof(mh%):.fil|
0000c1d0  65 25 3e 3d 30 8c 0d 41  fa 13 6d 65 6e 75 66 69  |e%>=0..A..menufi|
0000c1e0  6c 65 25 3d 66 69 6c 65  25 0d 42 04 0c c8 8e 77  |le%=file%.B....w|
0000c1f0  69 6e 64 25 ca 0d 42 0e  06 c9 30 0d 42 18 23 e7  |ind%..B...0.B.#.|
0000c200  ac a4 64 65 61 64 66 69  6c 65 28 25 31 31 31 31  |..deadfile(%1111|
0000c210  31 31 31 31 30 31 30 31  31 31 31 31 29 8c 0d 42  |111101011111)..B|
0000c220  22 5c e7 6d 62 25 3d 31  36 64 72 61 67 72 65 61  |"\.mb%=16dragrea|
0000c230  73 6f 6e 25 3d 34 3a f2  64 72 61 67 63 61 72 64  |son%=4:.dragcard|
0000c240  3a 8b 6d 65 6e 75 66 69  65 6c 64 25 3d a4 6d 6f  |:.menufield%=.mo|
0000c250  75 73 65 66 3a e7 6d 65  6e 75 66 69 65 6c 64 25  |usef:.menufield%|
0000c260  3e 30 64 72 61 67 72 65  61 73 6f 6e 25 3d 33 3a  |>0dragreason%=3:|
0000c270  f2 64 72 61 67 66 69 65  6c 64 0d 42 2c 05 cd 0d  |.dragfield.B,...|
0000c280  42 36 06 c9 31 0d 42 40  0a c8 8e 6d 69 25 ca 0d  |B6..1.B@...mi%..|
0000c290  42 4a 46 c9 31 34 3a e7  ac a4 64 65 61 64 66 69  |BJF.14:...deadfi|
0000c2a0  6c 65 28 2d 31 29 3a 6d  65 6e 75 66 69 65 6c 64  |le(-1):menufield|
0000c2b0  25 3d 2d 31 3a 64 72 61  67 72 65 61 73 6f 6e 25  |%=-1:dragreason%|
0000c2c0  3d 33 3a f2 64 72 61 67  69 63 6f 6e 28 6d 68 25  |=3:.dragicon(mh%|
0000c2d0  2c 6d 69 25 29 0d 42 54  46 c9 32 32 3a e7 ac a4  |,mi%).BTF.22:...|
0000c2e0  64 65 61 64 66 69 6c 65  28 25 31 31 31 31 31 31  |deadfile(%111111|
0000c2f0  31 31 30 31 31 31 31 31  31 31 29 64 72 61 67 72  |1101111111)dragr|
0000c300  65 61 73 6f 6e 25 3d 31  3a f2 64 72 61 67 69 63  |eason%=1:.dragic|
0000c310  6f 6e 28 6d 68 25 2c 6d  69 25 29 0d 42 5e 05 cb  |on(mh%,mi%).B^..|
0000c320  0d 42 68 06 c9 32 0d 42  72 60 e7 ac a4 64 65 61  |.Bh..2.Br`...dea|
0000c330  64 66 69 6c 65 28 25 31  31 31 31 31 31 31 31 31  |dfile(%111111111|
0000c340  31 31 31 31 31 31 31 30  29 3a 6d 65 6e 75 73 75  |11111110):menusu|
0000c350  62 25 3d a4 69 74 6f 73  3a e7 6d 65 6e 75 73 75  |b%=.itos:.menusu|
0000c360  62 25 3e 3d 30 3a 64 72  61 67 72 65 61 73 6f 6e  |b%>=0:dragreason|
0000c370  25 3d 32 3a f2 64 72 61  67 69 63 6f 6e 28 6d 68  |%=2:.dragicon(mh|
0000c380  25 2c 6d 69 25 29 0d 42  7c 06 c9 34 0d 42 86 3a  |%,mi%).B|..4.B.:|
0000c390  6d 65 6e 75 66 69 65 6c  64 25 3d 6d 79 25 3a f2  |menufield%=my%:.|
0000c3a0  66 6f 72 6d 73 74 61 74  3a f2 79 63 6f 6e 76 28  |formstat:.yconv(|
0000c3b0  6d 65 6e 75 66 69 65 6c  64 25 2c a4 76 5f 28 37  |menufield%,.v_(7|
0000c3c0  29 2c 6d 68 25 29 0d 42  90 1d 64 72 61 67 72 65  |),mh%).B..dragre|
0000c3d0  61 73 6f 6e 25 3d 33 3a  f2 64 72 61 67 66 69 65  |ason%=3:.dragfie|
0000c3e0  6c 64 31 0d 42 9a 3e c9  36 3a e7 6d 69 25 3c 31  |ld1.B.>.6:.mi%<1|
0000c3f0  39 3a 64 72 61 67 72 65  61 73 6f 6e 25 3d 36 3a  |9:dragreason%=6:|
0000c400  6d 65 6e 75 66 69 65 6c  64 25 3d 6d 69 25 3a f2  |menufield%=mi%:.|
0000c410  64 72 61 67 69 63 6f 6e  28 6d 68 25 2c 6d 69 25  |dragicon(mh%,mi%|
0000c420  29 0d 42 a4 05 cb 0d 42  ae 05 cc 0d 42 b8 0a c8  |).B....B....B...|
0000c430  8e 6d 68 25 ca 0d 42 c2  36 c9 77 5f 73 61 76 65  |.mh%..B.6.w_save|
0000c440  25 3a e7 6d 69 25 3d 33  3a 64 72 61 67 72 65 61  |%:.mi%=3:dragrea|
0000c450  73 6f 6e 25 3d 35 3a f2  64 72 61 67 69 63 6f 6e  |son%=5:.dragicon|
0000c460  28 77 5f 73 61 76 65 25  2c 33 29 0d 42 cc 05 cb  |(w_save%,3).B...|
0000c470  0d 42 d6 05 cd 0d 42 e0  05 e1 0d 42 ea 04 0d 42  |.B....B....B...B|
0000c480  f4 0d dd f2 65 6e 64 64  72 61 67 0d 42 fe 31 f2  |....enddrag.B.1.|
0000c490  72 65 61 64 70 6f 69 6e  74 65 72 3a e7 6d 65 6e  |readpointer:.men|
0000c4a0  75 66 69 6c 65 25 3e 3d  30 3a f2 73 64 66 69 6c  |ufile%>=0:.sdfil|
0000c4b0  65 28 6d 65 6e 75 66 69  6c 65 25 29 0d 43 08 0d  |e(menufile%).C..|
0000c4c0  e7 6d 68 25 3c 3e 2d 31  8c 0d 43 12 12 c8 8e 64  |.mh%<>-1..C....d|
0000c4d0  72 61 67 72 65 61 73 6f  6e 25 ca 0d 43 1c 0e c9  |ragreason%..C...|
0000c4e0  31 3a f2 63 61 72 64 64  72 0d 43 26 0e c9 32 3a  |1:.carddr.C&..2:|
0000c4f0  f2 73 75 62 73 64 72 0d  43 30 0f c9 33 3a f2 66  |.subsdr.C0..3:.f|
0000c500  69 65 6c 64 64 72 0d 43  3a 0f c9 34 3a f2 63 61  |ielddr.C:..4:.ca|
0000c510  72 64 64 72 31 0d 43 44  4b c9 35 3a f2 73 61 76  |rddr1.CDK.5:.sav|
0000c520  65 72 65 71 28 a4 6c 65  61 66 28 24 a4 69 61 28  |ereq(.leaf($.ia(|
0000c530  77 5f 73 61 76 65 25 2c  32 29 29 2c 73 61 76 65  |w_save%,2)),save|
0000c540  74 25 2c 73 61 76 65 73  25 2c 73 61 76 65 72 65  |t%,saves%,savere|
0000c550  61 73 6f 6e 25 2c 73 61  76 65 66 69 6c 65 25 29  |ason%,savefile%)|
0000c560  0d 43 4e 0e c9 36 3a f2  6e 6f 74 65 64 72 0d 43  |.CN..6:.notedr.C|
0000c570  58 05 cb 0d 43 62 05 cd  0d 43 6c 1f 64 72 61 67  |X...Cb...Cl.drag|
0000c580  72 65 61 73 6f 6e 25 3d  2d 31 3a 6d 65 6e 75 66  |reason%=-1:menuf|
0000c590  69 6c 65 25 3d 2d 31 0d  43 76 05 e1 0d 43 80 04  |ile%=-1.Cv...C..|
0000c5a0  0d 43 8a 2a dd f2 75 6e  73 65 6c 69 28 68 25 2c  |.C.*..unseli(h%,|
0000c5b0  69 25 29 3a f2 69 73 65  74 28 68 25 2c 69 25 2c  |i%):.iset(h%,i%,|
0000c5c0  26 32 30 30 30 30 30 2c  30 29 0d 43 94 2e dd f2  |&200000,0).C....|
0000c5d0  73 65 6c 69 28 68 25 2c  69 25 29 3a f2 69 73 65  |seli(h%,i%):.ise|
0000c5e0  74 28 68 25 2c 69 25 2c  26 32 30 30 30 30 30 2c  |t(h%,i%,&200000,|
0000c5f0  26 32 30 30 30 30 30 29  0d 43 9e 30 dd f2 73 68  |&200000).C.0..sh|
0000c600  61 64 65 69 28 68 25 2c  69 25 29 3a f2 69 73 65  |adei(h%,i%):.ise|
0000c610  74 28 68 25 2c 69 25 2c  26 34 30 30 30 30 30 2c  |t(h%,i%,&400000,|
0000c620  26 34 30 30 30 30 30 29  0d 43 a8 05 e1 0d 43 b2  |&400000).C....C.|
0000c630  04 0d 43 bc 12 dd f2 75  6e 73 65 6c 61 6c 6c 28  |..C....unselall(|
0000c640  68 25 29 0d 43 c6 14 ea  49 25 2c 69 25 3a f2 77  |h%).C...I%,i%:.w|
0000c650  63 68 69 28 68 25 29 0d  43 d0 28 49 25 3d 71 25  |chi(h%).C.(I%=q%|
0000c660  3a f5 3a 69 25 3d 21 49  25 3a e7 69 25 3e 3d 30  |:.:i%=!I%:.i%>=0|
0000c670  3a f2 75 6e 73 65 6c 69  28 68 25 2c 69 25 29 0d  |:.unseli(h%,i%).|
0000c680  43 da 11 49 25 2b 3d 34  3a fd 69 25 3c 30 3a e1  |C..I%+=4:.i%<0:.|
0000c690  0d 43 e4 04 0d 43 ee 37  dd f2 77 63 68 69 28 68  |.C...C.7..wchi(h|
0000c6a0  25 29 3a c8 99 22 57 69  6d 70 5f 57 68 69 63 68  |%):.."Wimp_Which|
0000c6b0  49 63 6f 6e 22 2c 68 25  2c 71 25 2c 26 32 30 30  |Icon",h%,q%,&200|
0000c6c0  30 30 30 2c 26 32 30 30  30 30 30 0d 43 f8 05 e1  |000,&200000.C...|
0000c6d0  0d 44 02 04 0d 44 0c 0a  dd f2 6d 65 6e 75 0d 44  |.D...D....menu.D|
0000c6e0  16 23 f2 69 5f 69 6e 69  74 3a 64 61 74 65 24 3d  |.#.i_init:date$=|
0000c6f0  a4 73 74 72 64 61 74 65  31 28 a4 6e 6f 77 2c 34  |.strdate1(.now,4|
0000c700  29 0d 44 20 29 f2 77 74  6f 66 28 6d 68 25 29 3a  |).D ).wtof(mh%):|
0000c710  6d 65 6e 75 66 69 6c 65  25 3d 66 69 6c 65 25 3a  |menufile%=file%:|
0000c720  e7 66 69 6c 65 25 3e 3d  30 8c 0d 44 2a 0c c8 8e  |.file%>=0..D*...|
0000c730  77 69 6e 64 25 ca 0d 44  34 10 c9 30 3a f2 63 61  |wind%..D4..0:.ca|
0000c740  72 64 6d 65 6e 75 0d 44  3e 29 c9 31 3a e7 6d 69  |rdmenu.D>).1:.mi|
0000c750  25 3d 37 3a f2 70 6f 70  28 6d 5f 6d 6f 64 65 25  |%=7:.pop(m_mode%|
0000c760  2c 2d 31 29 3a 8b f2 63  61 72 64 6d 65 6e 75 0d  |,-1):..cardmenu.|
0000c770  44 48 36 c9 32 3a e7 ac  a4 64 65 61 64 66 69 6c  |DH6.2:...deadfil|
0000c780  65 28 25 31 31 31 31 31  31 31 31 31 31 31 31 31  |e(%1111111111111|
0000c790  31 31 31 30 29 f2 70 6f  70 28 6d 5f 73 75 62 73  |1110).pop(m_subs|
0000c7a0  25 2c 2d 31 29 0d 44 52  2c c9 33 3a e7 ac a4 64  |%,-1).DR,.3:...d|
0000c7b0  65 61 64 66 69 6c 65 28  25 31 30 31 30 30 29 f2  |eadfile(%10100).|
0000c7c0  70 6f 70 28 6d 5f 72 65  70 6f 72 74 25 2c 2d 31  |pop(m_report%,-1|
0000c7d0  29 0d 44 5c 38 c9 35 3a  e7 ac a4 64 65 61 64 66  |).D\8.5:...deadf|
0000c7e0  69 6c 65 28 25 31 31 31  31 31 31 31 31 31 30 31  |ile(%11111111101|
0000c7f0  31 31 31 31 31 31 29 3a  f2 70 6f 70 28 6d 5f 69  |111111):.pop(m_i|
0000c800  6e 64 65 78 25 2c 2d 31  29 0d 44 66 17 c9 36 3a  |ndex%,-1).Df..6:|
0000c810  f2 70 6f 70 28 6d 5f 6e  70 61 64 25 2c 2d 31 29  |.pop(m_npad%,-1)|
0000c820  0d 44 70 19 c9 37 3a f2  70 6f 70 28 6d 5f 6d 61  |.Dp..7:.pop(m_ma|
0000c830  63 72 6f 31 25 2c 2d 31  29 0d 44 7a 05 cb 0d 44  |cro1%,-1).Dz...D|
0000c840  84 05 cc 0d 44 8e 0a c8  8e 6d 68 25 ca 0d 44 98  |....D....mh%..D.|
0000c850  31 c9 2d 32 3a 6d 79 25  3d 36 34 2b 37 2a 34 34  |1.-2:my%=64+7*44|
0000c860  3a 6d 65 6e 75 66 69 6c  65 25 3d 2d 31 3a f2 70  |:menufile%=-1:.p|
0000c870  6f 70 28 6d 5f 6d 61 69  6e 25 2c 2d 31 29 0d 44  |op(m_main%,-1).D|
0000c880  a2 18 c9 77 5f 73 74 61  74 75 73 25 3a f2 73 74  |...w_status%:.st|
0000c890  61 74 6d 65 6e 75 0d 44  ac 05 cb 0d 44 b6 05 cd  |atmenu.D....D...|
0000c8a0  0d 44 c0 05 e1 0d 44 ca  04 0d 44 d4 0e dd f2 63  |.D....D...D....c|
0000c8b0  61 72 64 6d 65 6e 75 0d  44 de 48 e7 6c 25 28 66  |ardmenu.D.H.l%(f|
0000c8c0  69 6c 65 25 29 3c 3d 30  3a e7 ac a4 66 6c 67 28  |ile%)<=0:...flg(|
0000c8d0  66 5f 70 61 6e 65 25 29  80 a4 64 65 61 64 66 69  |f_pane%)..deadfi|
0000c8e0  6c 65 31 28 25 31 31 31  31 31 31 31 31 31 30 31  |le1(%11111111101|
0000c8f0  31 31 31 31 31 30 29 f2  72 65 61 64 79 3a e1 0d  |111110).ready:..|
0000c900  44 e8 49 e7 6c 25 28 66  69 6c 65 25 29 3c 3d 30  |D.I.l%(file%)<=0|
0000c910  84 73 25 28 66 69 6c 65  25 29 3c 3e 30 84 a4 76  |.s%(file%)<>0..v|
0000c920  5f 28 31 35 29 3c 3e 30  3a e7 a4 64 65 61 64 66  |_(15)<>0:..deadf|
0000c930  69 6c 65 28 25 31 31 31  31 31 31 31 31 31 30 31  |ile(%11111111101|
0000c940  31 31 31 31 31 30 29 e1  0d 44 f2 16 f2 70 6f 70  |111110)..D...pop|
0000c950  28 6d 5f 63 61 72 64 25  2c 2d 31 29 3a e1 0d 44  |(m_card%,-1):..D|
0000c960  fc 04 0d 45 06 2e dd f2  73 74 61 74 6d 65 6e 75  |...E....statmenu|
0000c970  3a 6d 65 6e 75 66 69 6c  65 25 3d a4 73 74 61 74  |:menufile%=.stat|
0000c980  66 3a e7 6d 65 6e 75 66  69 6c 65 25 3c 30 3a e1  |f:.menufile%<0:.|
0000c990  0d 45 10 18 f2 70 6f 70  28 6d 5f 73 74 61 74 75  |.E...pop(m_statu|
0000c9a0  73 25 2c 2d 31 29 3a e1  0d 45 1a 04 0d 45 24 1a  |s%,-1):..E...E$.|
0000c9b0  dd a4 70 61 72 28 74 24  2c 73 24 2c f8 20 69 25  |..par(t$,s$,. i%|
0000c9c0  29 3a ea 69 31 25 0d 45  2e 1e 69 31 25 3d 69 25  |):.i1%.E..i1%=i%|
0000c9d0  2b 31 3a 69 25 3d a7 74  24 2b 73 24 2c 73 24 2c  |+1:i%=.t$+s$,s$,|
0000c9e0  69 31 25 29 0d 45 38 14  3d c1 74 24 2c 69 31 25  |i1%).E8.=.t$,i1%|
0000c9f0  2c 69 25 2d 69 31 25 29  0d 45 42 04 0d 45 4c 13  |,i%-i1%).EB..EL.|
0000ca00  dd a4 63 72 6d 65 6e 75  28 6d 65 6e 75 24 29 0d  |..crmenu(menu$).|
0000ca10  45 56 2e e7 6d 65 6e 75  66 72 65 65 25 2b 32 38  |EV..menufree%+28|
0000ca20  3e 6d 65 6e 75 65 6e 64  25 85 39 39 2c 22 4d 65  |>menuend%.99,"Me|
0000ca30  6e 75 20 61 72 65 61 20  66 75 6c 6c 22 0d 45 60  |nu area full".E`|
0000ca40  08 ea 20 6d 25 0d 45 6a  16 6d 65 6e 75 70 74 72  |.. m%.Ej.menuptr|
0000ca50  25 3d 6d 65 6e 75 66 72  65 65 25 0d 45 74 08 69  |%=menufree%.Et.i|
0000ca60  25 3d 30 0d 45 7e 43 e7  20 c0 6d 65 6e 75 24 2c  |%=0.E~C. .menu$,|
0000ca70  31 29 3d 22 23 22 69 25  3d 31 3a 6d 65 6e 75 74  |1)="#"i%=1:menut|
0000ca80  69 74 6c 65 24 3d a4 70  61 72 28 6d 65 6e 75 24  |itle$=.par(menu$|
0000ca90  2c 22 2c 22 2c 69 25 29  8b 6d 65 6e 75 74 69 74  |,",",i%).menutit|
0000caa0  6c 65 24 3d 22 22 0d 45  88 18 24 6d 65 6e 75 70  |le$="".E..$menup|
0000cab0  74 72 25 3d 6d 65 6e 75  74 69 74 6c 65 24 0d 45  |tr%=menutitle$.E|
0000cac0  92 3b 6d 65 6e 75 70 74  72 25 3f 31 32 3d 37 3a  |.;menuptr%?12=7:|
0000cad0  6d 65 6e 75 70 74 72 25  3f 31 33 3d 32 3a 6d 65  |menuptr%?13=2:me|
0000cae0  6e 75 70 74 72 25 3f 31  34 3d 37 3a 6d 65 6e 75  |nuptr%?14=7:menu|
0000caf0  70 74 72 25 3f 31 35 3d  30 0d 45 9c 33 6d 65 6e  |ptr%?15=0.E.3men|
0000cb00  75 70 74 72 25 21 31 36  3d 31 39 36 2d 32 34 3a  |uptr%!16=196-24:|
0000cb10  6d 65 6e 75 70 74 72 25  21 32 30 3d 34 34 3a 6d  |menuptr%!20=44:m|
0000cb20  65 6e 75 70 74 72 25 21  32 34 3d 30 0d 45 a6 22  |enuptr%!24=0.E."|
0000cb30  6d 65 6e 75 70 74 72 25  2b 3d 32 38 3a 6d 61 78  |menuptr%+=28:max|
0000cb40  78 25 3d a9 6d 65 6e 75  74 69 74 6c 65 24 0d 45  |x%=.menutitle$.E|
0000cb50  b0 1d f5 69 74 65 6d 24  3d a4 70 61 72 28 6d 65  |...item$=.par(me|
0000cb60  6e 75 24 2c 22 2c 22 2c  69 25 29 0d 45 ba 14 f2  |nu$,",",i%).E...|
0000cb70  6d 65 6e 75 69 74 65 6d  28 69 74 65 6d 24 29 0d  |menuitem(item$).|
0000cb80  45 c4 0e fd 20 69 74 65  6d 24 3d 22 22 0d 45 ce  |E... item$="".E.|
0000cb90  24 6d 25 3d 6d 65 6e 75  66 72 65 65 25 3a 6d 25  |$m%=menufree%:m%|
0000cba0  21 31 36 3d 28 6d 61 78  78 25 2a 38 2b 36 29 2a  |!16=(maxx%*8+6)*|
0000cbb0  32 0d 45 d8 16 6d 65 6e  75 66 72 65 65 25 3d 6d  |2.E..menufree%=m|
0000cbc0  65 6e 75 70 74 72 25 0d  45 e2 07 3d 6d 25 0d 45  |enuptr%.E..=m%.E|
0000cbd0  ec 04 0d 45 f6 15 dd f2  6d 65 6e 75 69 74 65 6d  |...E....menuitem|
0000cbe0  28 74 65 78 74 24 29 0d  46 00 2e e7 74 65 78 74  |(text$).F...text|
0000cbf0  24 3d 22 22 6d 65 6e 75  70 74 72 25 21 2d 32 34  |$=""menuptr%!-24|
0000cc00  3d 28 6d 65 6e 75 70 74  72 25 21 2d 32 34 29 84  |=(menuptr%!-24).|
0000cc10  26 38 30 3a e1 0d 46 0a  2e e7 6d 65 6e 75 70 74  |&80:..F...menupt|
0000cc20  72 25 2b 32 34 3e 6d 65  6e 75 65 6e 64 25 8c 85  |r%+24>menuend%..|
0000cc30  39 39 2c 22 4d 65 6e 75  20 61 72 65 61 20 66 75  |99,"Menu area fu|
0000cc40  6c 6c 22 0d 46 14 0c ea  69 25 2c 66 6c 67 25 0d  |ll".F...i%,flg%.|
0000cc50  46 1e 0c 66 6c 67 25 3d  26 30 30 0d 46 28 12 69  |F..flg%=&00.F(.i|
0000cc60  25 3d a7 74 65 78 74 24  2c 22 3e 22 29 0d 46 32  |%=.text$,">").F2|
0000cc70  3c e7 69 25 3e 30 73 75  62 70 74 72 25 3d a0 c1  |<.i%>0subptr%=..|
0000cc80  74 65 78 74 24 2c 69 25  2b 31 29 3a 74 65 78 74  |text$,i%+1):text|
0000cc90  24 3d c0 74 65 78 74 24  2c 69 25 2d 31 29 8b 73  |$=.text$,i%-1).s|
0000cca0  75 62 70 74 72 25 3d 2d  31 0d 46 3c 12 69 25 3d  |ubptr%=-1.F<.i%=|
0000ccb0  a7 74 65 78 74 24 2c 22  7d 22 29 0d 46 46 3b e7  |.text$,"}").FF;.|
0000ccc0  69 25 3e 30 73 75 62 70  74 72 25 3d a0 c1 74 65  |i%>0subptr%=..te|
0000ccd0  78 74 24 2c 69 25 2b 31  29 3a 74 65 78 74 24 3d  |xt$,i%+1):text$=|
0000cce0  c0 74 65 78 74 24 2c 69  25 2d 31 29 3a 66 6c 67  |.text$,i%-1):flg|
0000ccf0  25 2b 3d 26 30 38 0d 46  50 29 e7 c2 74 65 78 74  |%+=&08.FP)..text|
0000cd00  24 2c 31 29 3d 22 23 22  74 65 78 74 24 3d c0 74  |$,1)="#"text$=.t|
0000cd10  65 78 74 24 29 3a 66 6c  67 25 2b 3d 26 30 32 0d  |ext$):flg%+=&02.|
0000cd20  46 5a 3b 6d 65 6e 75 70  74 72 25 21 30 3d 66 6c  |FZ;menuptr%!0=fl|
0000cd30  67 25 3a 6d 65 6e 75 70  74 72 25 21 34 3d 73 75  |g%:menuptr%!4=su|
0000cd40  62 70 74 72 25 3a 6d 65  6e 75 70 74 72 25 21 38  |bptr%:menuptr%!8|
0000cd50  3d 26 30 37 30 30 30 30  32 31 0d 46 64 13 e7 c0  |=&07000021.Fd...|
0000cd60  74 65 78 74 24 2c 31 29  3d 22 24 22 8c 0d 46 6e  |text$,1)="$"..Fn|
0000cd70  32 21 6d 65 6e 75 70 74  72 25 2b 3d 26 30 34 3a  |2!menuptr%+=&04:|
0000cd80  6d 65 6e 75 70 74 72 25  21 38 2b 3d 26 31 30 30  |menuptr%!8+=&100|
0000cd90  3a 69 25 3d a7 74 65 78  74 24 2c 22 28 22 29 0d  |:i%=.text$,"(").|
0000cda0  46 78 33 e7 69 25 3e 30  8c 4c 25 3d bb c1 74 65  |Fx3.i%>0.L%=..te|
0000cdb0  78 74 24 2c 69 25 2b 31  29 3a 74 65 78 74 24 3d  |xt$,i%+1):text$=|
0000cdc0  c0 74 65 78 74 24 2c 69  25 2d 31 29 8b 4c 25 3d  |.text$,i%-1).L%=|
0000cdd0  31 32 0d 46 82 38 6d 65  6e 75 70 74 72 25 21 31  |12.F.8menuptr%!1|
0000cde0  32 3d a0 c1 74 65 78 74  24 2c 32 29 3a 6d 65 6e  |2=..text$,2):men|
0000cdf0  75 70 74 72 25 21 31 36  3d 2d 31 3a 6d 65 6e 75  |uptr%!16=-1:menu|
0000ce00  70 74 72 25 21 32 30 3d  4c 25 0d 46 8c 12 74 65  |ptr%!20=L%.F..te|
0000ce10  78 74 24 3d c4 4c 25 2c  22 20 22 29 0d 46 96 05  |xt$=.L%," ").F..|
0000ce20  cc 0d 46 a0 10 e7 a9 74  65 78 74 24 3c 3d 31 32  |..F....text$<=12|
0000ce30  8c 0d 46 aa 18 24 28 6d  65 6e 75 70 74 72 25 2b  |..F..$(menuptr%+|
0000ce40  31 32 29 3d 74 65 78 74  24 0d 46 b4 05 cc 0d 46  |12)=text$.F....F|
0000ce50  be 25 49 25 3d a4 77 6f  72 6b 73 70 61 63 65 28  |.%I%=.workspace(|
0000ce60  a9 74 65 78 74 24 2b 31  29 3a 24 49 25 3d 74 65  |.text$+1):$I%=te|
0000ce70  78 74 24 0d 46 c8 36 6d  65 6e 75 70 74 72 25 21  |xt$.F.6menuptr%!|
0000ce80  31 32 3d 49 25 3a 6d 65  6e 75 70 74 72 25 21 31  |12=I%:menuptr%!1|
0000ce90  36 3d 2d 31 3a 6d 65 6e  75 70 74 72 25 21 32 30  |6=-1:menuptr%!20|
0000cea0  3d a9 74 65 78 74 24 2b  31 0d 46 d2 20 6d 65 6e  |=.text$+1.F. men|
0000ceb0  75 70 74 72 25 21 38 3d  6d 65 6e 75 70 74 72 25  |uptr%!8=menuptr%|
0000cec0  21 38 20 84 20 26 31 30  30 0d 46 dc 05 cd 0d 46  |!8 . &100.F....F|
0000ced0  e6 35 e7 a9 74 65 78 74  24 2d 28 73 75 62 70 74  |.5..text$-(subpt|
0000cee0  72 25 3e 30 29 3e 6d 61  78 78 25 6d 61 78 78 25  |r%>0)>maxx%maxx%|
0000cef0  3d a9 74 65 78 74 24 2d  28 73 75 62 70 74 72 25  |=.text$-(subptr%|
0000cf00  3e 30 29 0d 46 f0 05 cd  0d 46 fa 10 6d 65 6e 75  |>0).F....F..menu|
0000cf10  70 74 72 25 2b 3d 32 34  0d 47 04 05 e1 0d 47 0e  |ptr%+=24.G....G.|
0000cf20  04 0d 47 18 13 dd a4 77  6f 72 6b 73 70 61 63 65  |..G....workspace|
0000cf30  28 4c 25 29 0d 47 22 32  e7 20 63 75 72 62 75 66  |(L%).G"2. curbuf|
0000cf40  25 2b 4c 25 3e 65 6e 64  62 75 66 25 85 39 39 2c  |%+L%>endbuf%.99,|
0000cf50  22 4e 6f 20 6d 6f 72 65  20 62 75 66 66 65 72 20  |"No more buffer |
0000cf60  73 70 61 63 65 22 0d 47  2c 1b 63 75 72 62 75 66  |space".G,.curbuf|
0000cf70  25 2b 3d 4c 25 3a 3d 63  75 72 62 75 66 25 2d 4c  |%+=L%:=curbuf%-L|
0000cf80  25 0d 47 36 04 0d 47 40  17 dd f2 70 72 65 70 28  |%.G6..G@...prep(|
0000cf90  6d 65 6e 75 25 2c 74 72  65 65 25 29 0d 47 4a 0a  |menu%,tree%).GJ.|
0000cfa0  ea 49 25 2c 54 24 0d 47  54 34 f2 63 6c 65 61 72  |.I%,T$.GT4.clear|
0000cfb0  74 73 28 6d 65 6e 75 25  29 3a e7 6d 65 6e 75 66  |ts(menu%):.menuf|
0000cfc0  69 6c 65 25 3e 3d 30 3a  f2 73 64 66 69 6c 65 28  |ile%>=0:.sdfile(|
0000cfd0  6d 65 6e 75 66 69 6c 65  25 29 0d 47 5e 0c c8 8e  |menufile%).G^...|
0000cfe0  6d 65 6e 75 25 ca 0d 47  68 15 c9 6d 5f 63 61 72  |menu%..Gh..m_car|
0000cff0  64 25 3a f2 6d 70 5f 63  61 72 64 0d 47 72 19 c9  |d%:.mp_card.Gr..|
0000d000  6d 5f 66 6f 72 6d 61 74  25 3a f2 6d 70 5f 66 6f  |m_format%:.mp_fo|
0000d010  72 6d 61 74 0d 47 7c 17  c9 6d 5f 6d 61 63 72 6f  |rmat.G|..m_macro|
0000d020  25 3a f2 6d 70 5f 6d 61  63 72 6f 0d 47 86 19 c9  |%:.mp_macro.G...|
0000d030  6d 5f 6d 61 63 72 6f 31  25 3a f2 6d 70 5f 6d 61  |m_macro1%:.mp_ma|
0000d040  63 72 6f 31 0d 47 90 1b  c9 6d 5f 64 65 66 61 75  |cro1.G...m_defau|
0000d050  6c 74 25 3a f2 6d 70 5f  64 65 66 61 75 6c 74 0d  |lt%:.mp_default.|
0000d060  47 9a 15 c9 6d 5f 73 75  62 73 25 3a f2 6d 70 5f  |G...m_subs%:.mp_|
0000d070  73 75 62 73 0d 47 a4 15  c9 6d 5f 77 69 6e 64 25  |subs.G...m_wind%|
0000d080  3a f2 6d 70 5f 77 69 6e  64 0d 47 ae 17 c9 6d 5f  |:.mp_wind.G...m_|
0000d090  63 61 72 64 31 25 3a f2  6d 70 5f 63 61 72 64 31  |card1%:.mp_card1|
0000d0a0  0d 47 b8 15 c9 6d 5f 6e  75 6d 73 25 3a f2 6d 70  |.G...m_nums%:.mp|
0000d0b0  5f 6e 75 6d 73 0d 47 c2  15 c9 6d 5f 6e 70 61 64  |_nums.G...m_npad|
0000d0c0  25 3a f2 6d 70 5f 6e 70  61 64 0d 47 cc 15 c9 6d  |%:.mp_npad.G...m|
0000d0d0  5f 6d 61 69 6e 25 3a f2  6d 70 5f 6d 61 69 6e 0d  |_main%:.mp_main.|
0000d0e0  47 d6 19 c9 6d 5f 73 74  61 74 75 73 25 3a f2 6d  |G...m_status%:.m|
0000d0f0  70 5f 73 74 61 74 75 73  0d 47 e0 15 c9 6d 5f 66  |p_status.G...m_f|
0000d100  69 6c 65 25 3a f2 6d 70  5f 66 69 6c 65 0d 47 ea  |ile%:.mp_file.G.|
0000d110  19 c9 6d 5f 72 65 70 6f  72 74 25 3a f2 6d 70 5f  |..m_report%:.mp_|
0000d120  72 65 70 6f 72 74 0d 47  f4 17 c9 6d 5f 72 74 79  |report.G...m_rty|
0000d130  70 65 25 3a f2 6d 70 5f  72 74 79 70 65 0d 47 fe  |pe%:.mp_rtype.G.|
0000d140  17 c9 6d 5f 72 73 65 74  31 25 3a f2 6d 70 5f 72  |..m_rset1%:.mp_r|
0000d150  73 65 74 31 0d 48 08 17  c9 6d 5f 69 6e 64 65 78  |set1.H...m_index|
0000d160  25 3a f2 6d 70 5f 69 6e  64 65 78 0d 48 12 15 c9  |%:.mp_index.H...|
0000d170  6d 5f 6d 6f 64 65 25 3a  f2 6d 70 5f 6d 6f 64 65  |m_mode%:.mp_mode|
0000d180  0d 48 1c 05 cb 0d 48 26  05 e1 0d 48 30 04 0d 48  |.H....H&...H0..H|
0000d190  3a 15 dd f2 6d 70 5f 69  6e 64 65 78 3a ea 49 25  |:...mp_index:.I%|
0000d1a0  2c 54 24 0d 48 44 3d e7  6e 65 77 6d 65 6e 75 25  |,T$.HD=.newmenu%|
0000d1b0  3a 6d 65 6e 75 69 6e 64  65 78 25 3d 6d 79 25 3a  |:menuindex%=my%:|
0000d1c0  f2 79 63 6f 6e 76 28 6d  65 6e 75 69 6e 64 65 78  |.yconv(menuindex|
0000d1d0  25 2c a4 6e 69 6e 64 69  63 65 73 2c 6d 68 25 29  |%,.nindices,mh%)|
0000d1e0  0d 48 4e 39 e7 a4 6e 69  6e 64 69 63 65 73 3c 3d  |.HN9..nindices<=|
0000d1f0  30 3a e3 49 25 3d 30 b8  33 3a f2 73 68 61 64 65  |0:.I%=0.3:.shade|
0000d200  28 6d 65 6e 75 25 2c 49  25 29 3a ed 3a 6d 65 6e  |(menu%,I%):.:men|
0000d210  75 69 6e 64 65 78 25 3d  30 0d 48 58 29 24 74 5f  |uindex%=0.HX)$t_|
0000d220  69 65 78 70 25 3d 22 22  3a 54 24 3d 22 49 6e 64  |iexp%="":T$="Ind|
0000d230  65 78 22 3a e7 6d 65 6e  75 69 6e 64 65 78 25 3e  |ex":.menuindex%>|
0000d240  30 8c 0d 48 62 23 c8 99  73 77 69 25 2c 69 73 74  |0..Hb#..swi%,ist|
0000d250  61 74 5f 25 2c 6d 65 6e  75 69 6e 64 65 78 25 b8  |at_%,menuindex%.|
0000d260  47 25 2c 50 25 0d 48 6c  23 54 24 3d c0 24 73 64  |G%,P%.Hl#T$=.$sd|
0000d270  25 2c 31 32 29 3a 24 74  5f 69 65 78 70 25 3d 24  |%,12):$t_iexp%=$|
0000d280  28 73 64 25 2b 31 36 29  0d 48 76 47 e7 6d 65 6e  |(sd%+16).HvG.men|
0000d290  75 69 6e 64 65 78 25 3d  a4 63 75 72 69 64 78 3a  |uindex%=.curidx:|
0000d2a0  c8 99 73 77 69 25 2c 69  73 74 61 74 5f 25 2c 2d  |..swi%,istat_%,-|
0000d2b0  31 b8 47 25 2c 50 25 3a  f2 74 69 63 6b 28 6d 65  |1.G%,P%:.tick(me|
0000d2c0  6e 75 25 2c 28 47 25 80  33 32 29 3e 3e 35 29 0d  |nu%,(G%.32)>>5).|
0000d2d0  48 80 05 cd 0d 48 8a 25  49 25 3d 6d 65 6e 75 25  |H....H.%I%=menu%|
0000d2e0  3f 31 32 3a 24 6d 65 6e  75 25 3d 54 24 3a 6d 65  |?12:$menu%=T$:me|
0000d2f0  6e 75 25 3f 31 32 3d 49  25 0d 48 94 05 e1 0d 48  |nu%?12=I%.H....H|
0000d300  9e 04 0d 48 a8 11 dd f2  6d 70 5f 6d 6f 64 65 3a  |...H....mp_mode:|
0000d310  ea 49 25 0d 48 b2 39 e3  49 25 3d 31 b8 36 3a e7  |.I%.H.9.I%=1.6:.|
0000d320  a7 6d 24 28 66 69 6c 65  25 29 2c c1 22 45 44 46  |.m$(file%),."EDF|
0000d330  4e 53 43 22 2c 49 25 2c  31 29 29 f2 74 69 63 6b  |NSC",I%,1)).tick|
0000d340  28 6d 65 6e 75 25 2c 49  25 2d 31 29 0d 48 bc 07  |(menu%,I%-1).H..|
0000d350  ed 3a e1 0d 48 c6 04 0d  48 d0 0d dd f2 6d 70 5f  |.:..H...H....mp_|
0000d360  63 61 72 64 0d 48 da 1a  ea 54 25 3a 54 25 3d 6d  |card.H...T%:T%=m|
0000d370  65 6e 75 25 2b 32 38 2b  30 2a 32 34 2b 34 0d 48  |enu%+28+0*24+4.H|
0000d380  e4 3a e7 a4 66 6c 67 28  66 5f 70 61 6e 65 25 29  |.:..flg(f_pane%)|
0000d390  3a f2 74 69 63 6b 28 6d  65 6e 75 25 2c 30 29 3a  |:.tick(menu%,0):|
0000d3a0  21 54 25 3d 2d 31 3a 8b  3a 21 54 25 3d 77 25 28  |!T%=-1:.:!T%=w%(|
0000d3b0  66 69 6c 65 25 2c 31 29  0d 48 ee 3d e7 66 25 28  |file%,1).H.=.f%(|
0000d3c0  66 69 6c 65 25 29 3d 30  3a f2 73 68 61 64 65 28  |file%)=0:.shade(|
0000d3d0  6d 65 6e 75 25 2c 31 29  3a 8b e7 66 25 28 66 69  |menu%,1):..f%(fi|
0000d3e0  6c 65 25 29 3e 30 3a f2  74 69 63 6b 28 6d 65 6e  |le%)>0:.tick(men|
0000d3f0  75 25 2c 31 29 0d 48 f8  1c e7 a4 6d 61 63 6d 6f  |u%,1).H....macmo|
0000d400  64 65 3a f2 74 69 63 6b  28 6d 65 6e 75 25 2c 32  |de:.tick(menu%,2|
0000d410  29 0d 49 02 1a e7 a4 64  65 66 6f 6e 3a f2 74 69  |).I....defon:.ti|
0000d420  63 6b 28 6d 65 6e 75 25  2c 33 29 0d 49 0c 30 f2  |ck(menu%,3).I.0.|
0000d430  70 72 65 70 28 6d 5f 66  6f 72 6d 61 74 25 2c 74  |prep(m_format%,t|
0000d440  72 65 65 25 29 3a f2 70  72 65 70 28 6d 5f 6d 61  |ree%):.prep(m_ma|
0000d450  63 72 6f 25 2c 74 72 65  65 25 29 0d 49 16 30 f2  |cro%,tree%).I.0.|
0000d460  70 72 65 70 28 6d 5f 64  65 66 61 75 6c 74 25 2c  |prep(m_default%,|
0000d470  74 72 65 65 25 29 3a f2  70 72 65 70 28 6d 5f 77  |tree%):.prep(m_w|
0000d480  69 6e 64 25 2c 74 72 65  65 25 29 0d 49 20 2e f2  |ind%,tree%).I ..|
0000d490  70 72 65 70 28 6d 5f 63  61 72 64 31 25 2c 74 72  |prep(m_card1%,tr|
0000d4a0  65 65 25 29 3a f2 70 72  65 70 28 6d 5f 66 69 6c  |ee%):.prep(m_fil|
0000d4b0  65 25 2c 74 72 65 65 25  29 0d 49 2a 05 e1 0d 49  |e%,tree%).I*...I|
0000d4c0  34 04 0d 49 3e 0f dd f2  6d 70 5f 66 6f 72 6d 61  |4..I>...mp_forma|
0000d4d0  74 0d 49 48 1f e7 66 25  28 66 69 6c 65 25 29 3e  |t.IH..f%(file%)>|
0000d4e0  30 3a f2 74 69 63 6b 28  6d 65 6e 75 25 2c 30 29  |0:.tick(menu%,0)|
0000d4f0  0d 49 52 05 e1 0d 49 5c  04 0d 49 66 0e dd f2 6d  |.IR...I\..If...m|
0000d500  70 5f 6d 61 63 72 6f 0d  49 70 10 c8 8e a4 6d 61  |p_macro.Ip....ma|
0000d510  63 6d 6f 64 65 20 ca 0d  49 7a 1b c9 66 5f 6d 61  |cmode ..Iz..f_ma|
0000d520  63 62 25 3a f2 74 69 63  6b 28 6d 65 6e 75 25 2c  |cb%:.tick(menu%,|
0000d530  30 29 0d 49 84 1b c9 66  5f 6d 61 63 65 25 3a f2  |0).I...f_mace%:.|
0000d540  74 69 63 6b 28 6d 65 6e  75 25 2c 31 29 0d 49 8e  |tick(menu%,1).I.|
0000d550  05 cb 0d 49 98 1f e7 6c  25 28 66 69 6c 65 25 29  |...I...l%(file%)|
0000d560  3e 30 f2 73 68 61 64 65  28 6d 65 6e 75 25 2c 32  |>0.shade(menu%,2|
0000d570  29 0d 49 a2 05 e1 0d 49  ac 04 0d 49 b6 0f dd f2  |).I....I...I....|
0000d580  6d 70 5f 6d 61 63 72 6f  31 0d 49 c0 10 c8 8e a4  |mp_macro1.I.....|
0000d590  6d 61 63 6d 6f 64 65 20  ca 0d 49 ca 1b c9 66 5f  |macmode ..I...f_|
0000d5a0  6d 61 63 62 25 3a f2 74  69 63 6b 28 6d 65 6e 75  |macb%:.tick(menu|
0000d5b0  25 2c 30 29 0d 49 d4 1b  c9 66 5f 6d 61 63 65 25  |%,0).I...f_mace%|
0000d5c0  3a f2 74 69 63 6b 28 6d  65 6e 75 25 2c 31 29 0d  |:.tick(menu%,1).|
0000d5d0  49 de 05 cb 0d 49 e8 42  e7 a4 64 65 61 64 66 69  |I....I.B..deadfi|
0000d5e0  6c 65 31 28 25 31 31 31  31 31 31 31 31 30 31 31  |le1(%11111111011|
0000d5f0  31 31 31 31 31 29 3a f2  73 68 61 64 65 28 6d 65  |11111):.shade(me|
0000d600  6e 75 25 2c 30 29 3a f2  73 68 61 64 65 28 6d 65  |nu%,0):.shade(me|
0000d610  6e 75 25 2c 31 29 0d 49  f2 2a f2 73 61 76 65 73  |nu%,1).I.*.saves|
0000d620  65 74 28 66 5f 6d 63 24  2c 26 46 46 46 2c 36 2c  |et(f_mc$,&FFF,6,|
0000d630  6d 65 6e 75 66 69 6c 65  25 2c 38 30 2a 33 30 29  |menufile%,80*30)|
0000d640  0d 49 fc 05 cb 0d 4a 06  05 e1 0d 4a 10 04 0d 4a  |.I....J....J...J|
0000d650  1a 27 dd f2 6d 70 5f 66  69 6c 65 3a e7 a4 76 5f  |.'..mp_file:..v_|
0000d660  28 31 29 3c 34 3a f2 73  68 61 64 65 28 6d 65 6e  |(1)<4:.shade(men|
0000d670  75 25 2c 33 29 0d 4a 24  3e e7 a4 72 65 61 64 6f  |u%,3).J$>..reado|
0000d680  6e 6c 79 3a f2 73 68 61  64 65 28 6d 65 6e 75 25  |nly:.shade(menu%|
0000d690  2c 30 29 3a f2 73 68 61  64 65 28 6d 65 6e 75 25  |,0):.shade(menu%|
0000d6a0  2c 31 29 3a f2 73 68 61  64 65 28 6d 65 6e 75 25  |,1):.shade(menu%|
0000d6b0  2c 32 29 0d 4a 2e 4e e7  6c 25 28 66 69 6c 65 25  |,2).J.N.l%(file%|
0000d6c0  29 3e 30 f2 73 68 61 64  65 28 6d 65 6e 75 25 2c  |)>0.shade(menu%,|
0000d6d0  30 29 3a f2 73 68 61 64  65 28 6d 65 6e 75 25 2c  |0):.shade(menu%,|
0000d6e0  31 29 3a f2 73 68 61 64  65 28 6d 65 6e 75 25 2c  |1):.shade(menu%,|
0000d6f0  32 29 3a f2 74 69 63 6b  28 6d 65 6e 75 25 2c 33  |2):.tick(menu%,3|
0000d700  29 0d 4a 38 28 e7 69 5f  76 25 3d 30 84 69 5f 6d  |).J8(.i_v%=0.i_m|
0000d710  65 72 67 69 6e 67 25 3e  30 3a f2 73 68 61 64 65  |erging%>0:.shade|
0000d720  28 6d 65 6e 75 25 2c 34  29 0d 4a 42 05 e1 0d 4a  |(menu%,4).JB...J|
0000d730  4c 04 0d 4a 56 10 dd f2  6d 70 5f 64 65 66 61 75  |L..JV...mp_defau|
0000d740  6c 74 0d 4a 60 1a e7 a4  64 65 66 6f 6e 3a f2 74  |lt.J`...defon:.t|
0000d750  69 63 6b 28 6d 65 6e 75  25 2c 31 29 0d 4a 6a 1f  |ick(menu%,1).Jj.|
0000d760  e7 6c 25 28 66 69 6c 65  25 29 3e 30 f2 73 68 61  |.l%(file%)>0.sha|
0000d770  64 65 28 6d 65 6e 75 25  2c 30 29 0d 4a 74 1c e7  |de(menu%,0).Jt..|
0000d780  a4 76 5f 28 31 35 29 3d  30 f2 74 69 63 6b 28 6d  |.v_(15)=0.tick(m|
0000d790  65 6e 75 25 2c 30 29 0d  4a 7e 05 e1 0d 4a 88 04  |enu%,0).J~...J..|
0000d7a0  0d 4a 92 0d dd f2 6d 70  5f 77 69 6e 64 0d 4a 9c  |.J....mp_wind.J.|
0000d7b0  36 ea 49 25 3a e3 49 25  3d 30 b8 6d 61 78 77 25  |6.I%:.I%=0.maxw%|
0000d7c0  2d 32 3a e7 77 25 28 66  69 6c 65 25 2c 49 25 2b  |-2:.w%(file%,I%+|
0000d7d0  32 29 3e 30 f2 74 69 63  6b 28 6d 65 6e 75 25 2c  |2)>0.tick(menu%,|
0000d7e0  49 25 29 0d 4a a6 07 ed  3a e1 0d 4a b0 04 0d 4a  |I%).J...:..J...J|
0000d7f0  ba 0e dd f2 6d 70 5f 63  61 72 64 31 0d 4a c4 1e  |....mp_card1.J..|
0000d800  e7 a4 76 5f 28 31 31 29  3d 30 3a f2 73 68 61 64  |..v_(11)=0:.shad|
0000d810  65 28 6d 65 6e 75 25 2c  31 29 0d 4a ce 2c f2 73  |e(menu%,1).J.,.s|
0000d820  61 76 65 73 65 74 28 66  5f 63 64 24 2c 26 46 46  |aveset(f_cd$,&FF|
0000d830  46 2c 31 2c 6d 65 6e 75  66 69 6c 65 25 2c a4 77  |F,1,menufile%,.w|
0000d840  64 2a a4 68 74 29 0d 4a  d8 2a e7 6c 25 28 66 69  |d*.ht).J.*.l%(fi|
0000d850  6c 65 25 29 3e 30 84 a4  72 65 61 64 6f 6e 6c 79  |le%)>0..readonly|
0000d860  3a f2 73 68 61 64 65 28  6d 65 6e 75 25 2c 30 29  |:.shade(menu%,0)|
0000d870  0d 4a e2 2b e7 69 5f 76  25 3d 30 84 69 5f 6d 65  |.J.+.i_v%=0.i_me|
0000d880  72 67 69 6e 67 25 3e 30  3a f2 73 68 61 64 65 28  |rging%>0:.shade(|
0000d890  6d 5f 63 61 72 64 31 25  2c 34 29 0d 4a ec 05 e1  |m_card1%,4).J...|
0000d8a0  0d 4a f6 04 0d 4b 00 0d  dd f2 6d 70 5f 73 75 62  |.J...K....mp_sub|
0000d8b0  73 0d 4b 0a 31 ea 54 25  3a 54 25 3d a4 69 74 6f  |s.K.1.T%:T%=.ito|
0000d8c0  73 3a 24 6d 65 6e 75 25  3d 22 53 75 62 73 65 74  |s:$menu%="Subset|
0000d8d0  73 22 3a e7 54 25 3c 32  35 36 54 25 3d 54 25 80  |s":.T%<256T%=T%.|
0000d8e0  33 31 0d 4b 14 0a c8 8e  20 b9 20 ca 0d 4b 1e 0f  |31.K.... . ..K..|
0000d8f0  c9 54 25 3e 30 80 54 25  3c 32 35 0d 4b 28 35 24  |.T%>0.T%<25.K(5$|
0000d900  74 5f 73 75 62 64 25 3d  64 24 28 66 69 6c 65 25  |t_subd%=d$(file%|
0000d910  2c 54 25 2d 31 29 3a 24  6d 65 6e 75 25 3d 22 53  |,T%-1):$menu%="S|
0000d920  75 62 73 65 74 20 22 2b  bd 28 36 35 2b 54 25 29  |ubset "+.(65+T%)|
0000d930  0d 4b 32 0b c9 54 25 3e  32 35 35 0d 4b 3c 33 f2  |.K2..T%>255.K<3.|
0000d940  73 68 61 64 65 28 6d 65  6e 75 25 2c 30 29 3a f2  |shade(menu%,0):.|
0000d950  73 68 61 64 65 28 6d 65  6e 75 25 2c 32 29 3a f2  |shade(menu%,2):.|
0000d960  73 68 61 64 65 28 6d 65  6e 75 25 2c 33 29 0d 4b  |shade(menu%,3).K|
0000d970  46 22 24 6d 65 6e 75 25  3d 22 53 75 62 73 65 74  |F"$menu%="Subset|
0000d980  20 22 2b 24 a4 69 61 28  6d 68 25 2c 6d 69 25 29  | "+$.ia(mh%,mi%)|
0000d990  0d 4b 50 25 7f e3 54 25  3d 30 b8 33 3a f2 73 68  |.KP%..T%=0.3:.sh|
0000d9a0  61 64 65 28 6d 65 6e 75  25 2c 54 25 29 3a ed 3a  |ade(menu%,T%):.:|
0000d9b0  54 25 3d 2d 31 0d 4b 5a  05 cb 0d 4b 64 1e e7 a4  |T%=-1.KZ...Kd...|
0000d9c0  72 65 61 64 6f 6e 6c 79  3a f2 73 68 61 64 65 28  |readonly:.shade(|
0000d9d0  6d 65 6e 75 25 2c 32 29  0d 4b 6e 24 6d 65 6e 75  |menu%,2).Kn$menu|
0000d9e0  73 75 62 25 3d 54 25 3a  f2 70 72 65 70 28 6d 5f  |sub%=T%:.prep(m_|
0000d9f0  6e 75 6d 73 25 2c 74 72  65 65 25 29 0d 4b 78 05  |nums%,tree%).Kx.|
0000da00  e1 0d 4b 82 04 0d 4b 8c  20 dd f2 6d 70 5f 73 74  |..K...K. ..mp_st|
0000da10  61 74 75 73 3a 24 6d 65  6e 75 25 3d a4 66 69 6c  |atus:$menu%=.fil|
0000da20  65 6e 61 6d 65 0d 4b 96  1b c8 99 73 77 69 25 2c  |ename.K....swi%,|
0000da30  73 64 35 37 5f 25 2c 22  74 79 70 65 22 b8 47 25  |sd57_%,"type".G%|
0000da40  0d 4b a0 59 e7 47 25 3c  3e 69 64 5f 77 63 69 61  |.K.Y.G%<>id_wcia|
0000da50  25 80 47 25 3c 3e 69 64  5f 62 62 63 25 80 47 25  |%.G%<>id_bbc%.G%|
0000da60  3c 3e 69 64 5f 65 78 62  25 3a f2 73 68 61 64 65  |<>id_exb%:.shade|
0000da70  28 6d 65 6e 75 25 2c 31  29 3a f2 73 68 61 64 65  |(menu%,1):.shade|
0000da80  28 6d 65 6e 75 25 2c 32  29 3a f2 73 68 61 64 65  |(menu%,2):.shade|
0000da90  28 6d 65 6e 75 25 2c 33  29 0d 4b aa 1b c8 99 73  |(menu%,3).K....s|
0000daa0  77 69 25 2c 73 64 35 37  5f 25 2c 22 62 69 74 37  |wi%,sd57_%,"bit7|
0000dab0  22 b8 47 25 0d 4b b4 17  e7 47 25 3d 30 f2 74 69  |".G%.K...G%=0.ti|
0000dac0  63 6b 28 6d 65 6e 75 25  2c 36 29 0d 4b be 05 e1  |ck(menu%,6).K...|
0000dad0  0d 4b c8 04 0d 4b d2 0d  dd f2 6d 70 5f 6e 75 6d  |.K...K....mp_num|
0000dae0  73 0d 4b dc 1e e7 a4 6e  6e 75 6d 73 3d 31 30 3a  |s.K....nnums=10:|
0000daf0  f2 73 68 61 64 65 28 6d  65 6e 75 25 2c 30 29 0d  |.shade(menu%,0).|
0000db00  4b e6 31 e7 6d 65 6e 75  73 75 62 25 3c 32 35 35  |K.1.menusub%<255|
0000db10  3a f2 73 68 61 64 65 28  6d 65 6e 75 25 2c 32 29  |:.shade(menu%,2)|
0000db20  3a f2 73 68 61 64 65 28  6d 65 6e 75 25 2c 31 29  |:.shade(menu%,1)|
0000db30  0d 4b f0 05 e1 0d 4b fa  04 0d 4c 04 0d dd f2 6d  |.K....K...L....m|
0000db40  70 5f 6e 70 61 64 0d 4c  0e 2a f2 73 61 76 65 73  |p_npad.L.*.saves|
0000db50  65 74 28 66 5f 6e 70 24  2c 26 46 46 46 2c 35 2c  |et(f_np$,&FFF,5,|
0000db60  6d 65 6e 75 66 69 6c 65  25 2c 38 30 2a 31 39 29  |menufile%,80*19)|
0000db70  0d 4c 18 05 e1 0d 4c 22  04 0d 4c 2c 0d dd f2 6d  |.L....L"..L,...m|
0000db80  70 5f 6d 61 69 6e 0d 4c  36 37 e7 a4 76 5f 28 31  |p_main.L67..v_(1|
0000db90  29 3e 32 3a f2 73 68 61  64 65 28 6d 65 6e 75 25  |)>2:.shade(menu%|
0000dba0  2c 32 29 3a e7 a4 76 5f  28 31 29 3e 34 3a f2 73  |,2):..v_(1)>4:.s|
0000dbb0  68 61 64 65 28 6d 65 6e  75 25 2c 31 29 0d 4c 40  |hade(menu%,1).L@|
0000dbc0  05 e1 0d 4c 4a 04 0d 4c  54 0f dd f2 6d 70 5f 72  |...LJ..LT...mp_r|
0000dbd0  65 70 6f 72 74 0d 4c 5e  30 ea 49 25 3a e7 61 25  |eport.L^0.I%:.a%|
0000dbe0  28 66 69 6c 65 25 29 3c  3e 30 3a e3 49 25 3d 30  |(file%)<>0:.I%=0|
0000dbf0  b8 33 3a f2 73 68 61 64  65 28 6d 65 6e 75 25 2c  |.3:.shade(menu%,|
0000dc00  49 25 29 3a ed 0d 4c 68  2c e7 73 25 28 66 69 6c  |I%):..Lh,.s%(fil|
0000dc10  65 25 29 3c 3e 30 3a e3  49 25 3d 32 b8 33 3a f2  |e%)<>0:.I%=2.3:.|
0000dc20  73 68 61 64 65 28 6d 65  6e 75 25 2c 49 25 29 3a  |shade(menu%,I%):|
0000dc30  ed 0d 4c 72 20 e7 72 25  28 66 69 6c 65 25 29 3d  |..Lr .r%(file%)=|
0000dc40  30 3a f2 73 68 61 64 65  28 6d 65 6e 75 25 2c 31  |0:.shade(menu%,1|
0000dc50  29 0d 4c 7c 20 e7 72 25  28 66 69 6c 65 25 29 3d  |).L| .r%(file%)=|
0000dc60  34 3a f2 73 68 61 64 65  28 6d 65 6e 75 25 2c 32  |4:.shade(menu%,2|
0000dc70  29 0d 4c 86 3a e7 74 72  65 65 25 3e 30 3a e7 21  |).L.:.tree%>0:.!|
0000dc80  74 72 65 65 25 3d 33 3a  f2 73 61 76 65 73 65 74  |tree%=3:.saveset|
0000dc90  28 66 5f 72 78 24 2c 26  46 46 46 2c 37 2c 66 69  |(f_rx$,&FFF,7,fi|
0000dca0  6c 65 25 2c a4 72 73 69  7a 65 29 0d 4c 90 31 f2  |le%,.rsize).L.1.|
0000dcb0  70 72 65 70 28 6d 5f 72  74 79 70 65 25 2c 74 72  |prep(m_rtype%,tr|
0000dcc0  65 65 25 29 3a f2 70 72  65 70 28 6d 5f 72 73 65  |ee%):.prep(m_rse|
0000dcd0  74 31 25 2c 74 72 65 65  25 29 3a e1 0d 4c 9a 04  |t1%,tree%):..L..|
0000dce0  0d 4c a4 27 dd f2 6d 70  5f 72 74 79 70 65 3a f2  |.L.'..mp_rtype:.|
0000dcf0  74 69 63 6b 28 6d 65 6e  75 25 2c 72 25 28 66 69  |tick(menu%,r%(fi|
0000dd00  6c 65 25 29 29 3a e1 0d  4c ae 04 0d 4c b8 1f dd  |le%)):..L...L...|
0000dd10  f2 6d 70 5f 72 73 65 74  31 3a ea 54 24 3a c8 8e  |.mp_rset1:.T$:..|
0000dd20  72 25 28 66 69 6c 65 25  29 ca 0d 4c c2 0f c9 33  |r%(file%)..L...3|
0000dd30  3a 54 24 3d 66 5f 6c 61  24 0d 4c cc 0f c9 34 3a  |:T$=f_la$.L...4:|
0000dd40  54 24 3d 66 5f 77 70 24  0d 4c d6 0f c9 35 3a 54  |T$=f_wp$.L...5:T|
0000dd50  24 3d 66 5f 72 70 24 0d  4c e0 15 7f 3a f2 73 68  |$=f_rp$.L...:.sh|
0000dd60  61 64 65 28 6d 65 6e 75  25 2c 32 29 0d 4c ea 05  |ade(menu%,2).L..|
0000dd70  cb 0d 4c f4 35 e7 74 72  65 65 25 3e 30 3a e7 21  |..L.5.tree%>0:.!|
0000dd80  74 72 65 65 25 3d 31 3a  f2 73 61 76 65 73 65 74  |tree%=1:.saveset|
0000dd90  28 54 24 2c 26 44 37 42  2c 38 2c 66 69 6c 65 25  |(T$,&D7B,8,file%|
0000dda0  2c 32 30 30 30 29 0d 4c  fe 05 e1 0d 4d 08 04 0d  |,2000).L....M...|
0000ddb0  4d 12 21 dd f2 70 6f 70  28 6d 65 6e 75 25 2c 74  |M.!..pop(menu%,t|
0000ddc0  72 65 65 25 29 3a 6e 65  77 6d 65 6e 75 25 3d b9  |ree%):newmenu%=.|
0000ddd0  0d 4d 1c 23 dd f2 72 65  70 6f 70 28 6d 65 6e 75  |.M.#..repop(menu|
0000dde0  25 2c 74 72 65 65 25 29  3a 6e 65 77 6d 65 6e 75  |%,tree%):newmenu|
0000ddf0  25 3d a3 0d 4d 26 11 e7  70 72 6f 63 65 73 73 25  |%=..M&..process%|
0000de00  3e 30 3a e1 0d 4d 30 0e  e7 6d 65 6e 75 25 3c 30  |>0:..M0..menu%<0|
0000de10  3a e1 0d 4d 3a 16 f2 70  72 65 70 28 6d 65 6e 75  |:..M:..prep(menu|
0000de20  25 2c 74 72 65 65 25 29  0d 4d 44 2c c8 99 22 57  |%,tree%).MD,.."W|
0000de30  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
0000de40  2c 6d 65 6e 75 25 2c 6d  78 25 2d 35 30 2c 6d 79  |,menu%,mx%-50,my|
0000de50  25 2b 33 32 0d 4d 4e 13  6f 70 65 6e 6d 65 6e 75  |%+32.MN.openmenu|
0000de60  25 3d 6d 65 6e 75 25 0d  4d 58 05 e1 0d 4d 62 04  |%=menu%.MX...Mb.|
0000de70  0d 4d 6c 0c dd f2 6e 6f  6d 65 6e 75 0d 4d 76 35  |.Ml...nomenu.Mv5|
0000de80  c8 99 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |.."Wimp_CreateMe|
0000de90  6e 75 22 2c 2c 2d 31 3a  6d 65 6e 75 66 69 6c 65  |nu",,-1:menufile|
0000dea0  25 3d 2d 31 3a 6f 70 65  6e 6d 65 6e 75 25 3d 2d  |%=-1:openmenu%=-|
0000deb0  31 0d 4d 80 05 e1 0d 4d  8a 04 0d 4d 94 2b dd f2  |1.M....M...M.+..|
0000dec0  6e 6f 64 69 61 6c 3a e7  64 69 61 6c 6f 67 75 65  |nodial:.dialogue|
0000ded0  25 3e 30 f2 63 6c 6f 73  65 77 28 64 69 61 6c 6f  |%>0.closew(dialo|
0000dee0  67 75 65 25 29 0d 4d 9e  05 e1 0d 4d a8 04 0d 4d  |gue%).M....M...M|
0000def0  b2 10 dd f2 6d 65 6e 75  73 65 6c 65 63 74 0d 4d  |....menuselect.M|
0000df00  bc 07 ea 49 25 0d 4d c6  2d 49 25 3d 30 3a f5 6d  |...I%.M.-I%=0:.m|
0000df10  6c 69 73 74 25 21 49 25  3d 71 25 21 49 25 3a 49  |list%!I%=q%!I%:I|
0000df20  25 2b 3d 34 3a fd 71 25  21 28 49 25 2d 34 29 3d  |%+=4:.q%!(I%-4)=|
0000df30  2d 31 0d 4d d0 31 f2 72  65 61 64 70 6f 69 6e 74  |-1.M.1.readpoint|
0000df40  65 72 3a e7 6d 65 6e 75  66 69 6c 65 25 3e 3d 30  |er:.menufile%>=0|
0000df50  3a f2 73 64 66 69 6c 65  28 6d 65 6e 75 66 69 6c  |:.sdfile(menufil|
0000df60  65 25 29 0d 4d da 10 c8  8e 6f 70 65 6e 6d 65 6e  |e%).M....openmen|
0000df70  75 25 ca 0d 4d e4 14 c9  6d 5f 6d 61 69 6e 25 3a  |u%..M...m_main%:|
0000df80  f2 6d 5f 6d 61 69 6e 0d  4d ee 14 c9 6d 5f 63 61  |.m_main.M...m_ca|
0000df90  72 64 25 3a f2 6d 5f 63  61 72 64 0d 4d f8 14 c9  |rd%:.m_card.M...|
0000dfa0  6d 5f 73 75 62 73 25 3a  f2 6d 5f 73 75 62 73 0d  |m_subs%:.m_subs.|
0000dfb0  4e 02 18 c9 6d 5f 66 6f  72 6d 61 74 25 3a f2 6d  |N...m_format%:.m|
0000dfc0  5f 66 6f 72 6d 61 74 0d  4e 0c 14 c9 6d 5f 6e 70  |_format.N...m_np|
0000dfd0  61 64 25 3a f2 6d 5f 6e  70 61 64 0d 4e 16 18 c9  |ad%:.m_npad.N...|
0000dfe0  6d 5f 6d 61 63 72 6f 31  25 3a f2 6d 5f 6d 61 63  |m_macro1%:.m_mac|
0000dff0  72 6f 31 0d 4e 20 18 c9  6d 5f 73 74 61 74 75 73  |ro1.N ..m_status|
0000e000  25 3a f2 6d 5f 73 74 61  74 75 73 0d 4e 2a 18 c9  |%:.m_status.N*..|
0000e010  6d 5f 72 65 70 6f 72 74  25 3a f2 6d 5f 72 65 70  |m_report%:.m_rep|
0000e020  6f 72 74 0d 4e 34 16 c9  6d 5f 69 6e 64 65 78 25  |ort.N4..m_index%|
0000e030  3a f2 6d 5f 69 6e 64 65  78 0d 4e 3e 14 c9 6d 5f  |:.m_index.N>..m_|
0000e040  6d 6f 64 65 25 3a f2 6d  5f 6d 6f 64 65 0d 4e 48  |mode%:.m_mode.NH|
0000e050  05 cb 0d 4e 52 0b e7 6d  62 25 3d 31 8c 0d 4e 5c  |...NR..mb%=1..N\|
0000e060  24 e7 6d 65 6e 75 66 69  6c 65 25 3e 3d 30 3a f2  |$.menufile%>=0:.|
0000e070  73 64 66 69 6c 65 28 6d  65 6e 75 66 69 6c 65 25  |sdfile(menufile%|
0000e080  29 0d 4e 66 25 f2 72 65  70 6f 70 28 6f 70 65 6e  |).Nf%.repop(open|
0000e090  6d 65 6e 75 25 2c 6d 6c  69 73 74 25 29 3a 8b f2  |menu%,mlist%):..|
0000e0a0  6e 6f 6d 65 6e 75 0d 4e  70 05 cd 0d 4e 7a 05 cd  |nomenu.Np...Nz..|
0000e0b0  0d 4e 84 05 e1 0d 4e 8e  04 0d 4e 98 0c dd f2 6d  |.N....N...N....m|
0000e0c0  5f 6d 61 69 6e 0d 4e a2  0e c8 8e 21 6d 6c 69 73  |_main.N....!mlis|
0000e0d0  74 25 ca 0d 4e ac 19 c9  30 3a f2 64 69 61 6c 6f  |t%..N...0:.dialo|
0000e0e0  67 75 65 28 77 5f 69 6e  66 6f 25 29 0d 4e b6 10  |gue(w_info%).N..|
0000e0f0  c9 31 3a f2 74 72 61 6e  73 66 65 72 0d 4e c0 10  |.1:.transfer.N..|
0000e100  c9 32 3a f2 66 61 73 74  73 6f 72 74 0d 4e ca 0e  |.2:.fastsort.N..|
0000e110  c9 33 3a f2 63 72 65 61  74 65 0d 4e d4 0e c9 34  |.3:.create.N...4|
0000e120  3a f2 73 74 61 74 75 73  0d 4e de 0f c9 35 3a f2  |:.status.N...5:.|
0000e130  70 64 72 69 76 65 72 0d  4e e8 21 c9 36 3a e7 a4  |pdriver.N.!.6:..|
0000e140  76 5f 28 31 29 3d 30 3a  f2 71 75 69 74 28 a3 29  |v_(1)=0:.quit(.)|
0000e150  3a 8b f2 71 71 75 69 74  0d 4e f2 05 cb 0d 4e fc  |:..qquit.N....N.|
0000e160  05 e1 0d 4f 06 04 0d 4f  10 0c dd f2 6d 5f 63 61  |...O...O....m_ca|
0000e170  72 64 0d 4f 1a 0e c8 8e  21 6d 6c 69 73 74 25 ca  |rd.O....!mlist%.|
0000e180  0d 4f 24 0e c9 30 3a f2  73 77 70 61 6e 65 0d 4f  |.O$..0:.swpane.O|
0000e190  2e 10 c9 31 3a f2 6d 5f  66 6f 72 6d 61 74 0d 4f  |...1:.m_format.O|
0000e1a0  38 0f c9 32 3a f2 6d 5f  6d 61 63 72 6f 0d 4f 42  |8..2:.m_macro.OB|
0000e1b0  11 c9 33 3a f2 6d 5f 64  65 66 61 75 6c 74 0d 4f  |..3:.m_default.O|
0000e1c0  4c 0f c9 34 3a f2 6d 5f  63 61 72 64 31 0d 4f 56  |L..4:.m_card1.OV|
0000e1d0  0e c9 35 3a f2 6d 5f 66  69 6c 65 0d 4f 60 0e c9  |..5:.m_file.O`..|
0000e1e0  36 3a f2 6d 5f 77 69 6e  64 0d 4f 6a 05 cb 0d 4f  |6:.m_wind.Oj...O|
0000e1f0  74 05 e1 0d 4f 7e 04 0d  4f 88 0c dd f2 6d 5f 6d  |t...O~..O....m_m|
0000e200  6f 64 65 0d 4f 92 3a ea  54 24 2c 49 25 3a 54 24  |ode.O.:.T$,I%:T$|
0000e210  3d c1 22 45 44 46 4e 53  43 22 2c 21 6d 6c 69 73  |=."EDFNSC",!mlis|
0000e220  74 25 2b 31 2c 31 29 3a  49 25 3d a7 6d 24 28 6d  |t%+1,1):I%=.m$(m|
0000e230  65 6e 75 66 69 6c 65 25  29 2c 54 24 29 0d 4f 9c  |enufile%),T$).O.|
0000e240  1c e7 49 25 3d 30 6d 24  28 6d 65 6e 75 66 69 6c  |..I%=0m$(menufil|
0000e250  65 25 29 2b 3d 54 24 3a  e1 0d 4f a6 3b 6d 24 28  |e%)+=T$:..O.;m$(|
0000e260  6d 65 6e 75 66 69 6c 65  25 29 3d c0 6d 24 28 6d  |menufile%)=.m$(m|
0000e270  65 6e 75 66 69 6c 65 25  29 2c 49 25 2d 31 29 2b  |enufile%),I%-1)+|
0000e280  c1 6d 24 28 6d 65 6e 75  66 69 6c 65 25 29 2c 49  |.m$(menufile%),I|
0000e290  25 2b 31 29 0d 4f b0 05  e1 0d 4f ba 04 0d 4f c4  |%+1).O....O...O.|
0000e2a0  0d dd f2 6d 5f 63 61 72  64 31 0d 4f ce 0f c8 8e  |...m_card1.O....|
0000e2b0  6d 6c 69 73 74 25 21 34  ca 0d 4f d8 38 c9 30 3a  |mlist%!4..O.8.0:|
0000e2c0  e7 ac a4 64 65 61 64 66  69 6c 65 28 2d 31 29 3a  |...deadfile(-1):|
0000e2d0  f2 73 74 6f 70 28 31 30  2c 22 44 65 6c 65 74 65  |.stop(10,"Delete|
0000e2e0  20 43 61 72 64 22 2c 61  73 24 2c 66 69 6c 65 25  | Card",as$,file%|
0000e2f0  29 0d 4f e2 0f c9 31 3a  f2 72 6d 76 63 61 72 64  |).O...1:.rmvcard|
0000e300  0d 4f ec 0d c9 32 3a f2  63 73 69 7a 65 0d 4f f6  |.O...2:.csize.O.|
0000e310  30 c9 34 3a 69 5f 66 69  6c 65 25 3d 6d 65 6e 75  |0.4:i_file%=menu|
0000e320  66 69 6c 65 25 3a f2 69  5f 73 65 6e 64 28 24 74  |file%:.i_send($t|
0000e330  5f 69 6d 70 75 6c 73 65  25 2c 2d 31 29 0d 50 00  |_impulse%,-1).P.|
0000e340  05 cb 0d 50 0a 05 e1 0d  50 14 04 0d 50 1e 0d dd  |...P....P...P...|
0000e350  f2 6d 5f 6d 61 63 72 6f  0d 50 28 18 ea 54 25 3a  |.m_macro.P(..T%:|
0000e360  54 25 3d a4 66 6c 67 28  66 5f 6d 61 63 62 25 29  |T%=.flg(f_macb%)|
0000e370  0d 50 32 0f c8 8e 6d 6c  69 73 74 25 21 34 ca 0d  |.P2...mlist%!4..|
0000e380  50 3c 10 c9 2d 31 3a f2  73 77 6d 61 63 72 6f 0d  |P<..-1:.swmacro.|
0000e390  50 46 38 c9 30 3a 66 6c  25 28 66 69 6c 65 25 29  |PF8.0:fl%(file%)|
0000e3a0  3d 28 66 6c 25 28 66 69  6c 65 25 29 80 ac 66 5f  |=(fl%(file%)..f_|
0000e3b0  6d 61 63 65 25 29 82 66  5f 6d 61 63 62 25 3a f2  |mace%).f_macb%:.|
0000e3c0  73 68 6f 77 6d 61 63 0d  50 50 38 c9 31 3a 66 6c  |showmac.PP8.1:fl|
0000e3d0  25 28 66 69 6c 65 25 29  3d 28 66 6c 25 28 66 69  |%(file%)=(fl%(fi|
0000e3e0  6c 65 25 29 80 ac 66 5f  6d 61 63 62 25 29 82 66  |le%)..f_macb%).f|
0000e3f0  5f 6d 61 63 65 25 3a f2  73 68 6f 77 6d 61 63 0d  |_mace%:.showmac.|
0000e400  50 5a 3d c9 32 3a f2 73  74 6f 70 28 32 32 2c 66  |PZ=.2:.stop(22,f|
0000e410  69 24 2b a4 66 69 6c 65  6e 61 6d 65 2c 72 6c 24  |i$+.filename,rl$|
0000e420  2b 22 75 70 64 61 74 65  20 63 61 72 64 73 20 3f  |+"update cards ?|
0000e430  22 2c 6d 65 6e 75 66 69  6c 65 25 29 0d 50 64 05  |",menufile%).Pd.|
0000e440  cb 0d 50 6e 20 e7 ac 54  25 80 a4 66 6c 67 28 66  |..Pn ..T%..flg(f|
0000e450  5f 6d 61 63 62 25 29 3a  f2 76 61 6c 69 64 72 65  |_macb%):.validre|
0000e460  63 0d 50 78 05 e1 0d 50  82 04 0d 50 8c 0e dd f2  |c.Px...P...P....|
0000e470  6d 5f 6d 61 63 72 6f 31  0d 50 96 24 ea 54 25 2c  |m_macro1.P.$.T%,|
0000e480  55 25 3a 54 25 3d a4 66  6c 67 28 66 5f 6d 61 63  |U%:T%=.flg(f_mac|
0000e490  62 25 29 3a 55 25 3d 66  69 6c 65 25 0d 50 a0 0e  |b%):U%=file%.P..|
0000e4a0  c8 8e 21 6d 6c 69 73 74  25 ca 0d 50 aa 38 c9 30  |..!mlist%..P.8.0|
0000e4b0  3a 66 6c 25 28 66 69 6c  65 25 29 3d 28 66 6c 25  |:fl%(file%)=(fl%|
0000e4c0  28 66 69 6c 65 25 29 80  ac 66 5f 6d 61 63 65 25  |(file%)..f_mace%|
0000e4d0  29 82 66 5f 6d 61 63 62  25 3a f2 73 68 6f 77 6d  |).f_macb%:.showm|
0000e4e0  61 63 0d 50 b4 38 c9 31  3a 66 6c 25 28 66 69 6c  |ac.P.8.1:fl%(fil|
0000e4f0  65 25 29 3d 28 66 6c 25  28 66 69 6c 65 25 29 80  |e%)=(fl%(file%).|
0000e500  ac 66 5f 6d 61 63 62 25  29 82 66 5f 6d 61 63 65  |.f_macb%).f_mace|
0000e510  25 3a f2 73 68 6f 77 6d  61 63 0d 50 be 3c c9 32  |%:.showmac.P.<.2|
0000e520  3a f2 73 74 6f 70 28 31  38 2c 66 69 24 2b a4 66  |:.stop(18,fi$+.f|
0000e530  69 6c 65 6e 61 6d 65 2c  72 6c 24 2b 22 63 6c 65  |ilename,rl$+"cle|
0000e540  61 72 20 6d 61 63 72 6f  20 3f 22 2c 6d 65 6e 75  |ar macro ?",menu|
0000e550  66 69 6c 65 25 29 0d 50  c8 05 cb 0d 50 d2 2c f2  |file%).P....P.,.|
0000e560  73 64 66 69 6c 65 28 55  25 29 3a e7 ac 54 25 80  |sdfile(U%):..T%.|
0000e570  a4 66 6c 67 28 66 5f 6d  61 63 62 25 29 3a f2 76  |.flg(f_macb%):.v|
0000e580  61 6c 69 64 72 65 63 0d  50 dc 05 e1 0d 50 e6 04  |alidrec.P....P..|
0000e590  0d 50 f0 0c dd f2 6d 5f  66 69 6c 65 0d 50 fa 0f  |.P....m_file.P..|
0000e5a0  c8 8e 6d 6c 69 73 74 25  21 34 ca 0d 51 04 0f c9  |..mlist%!4..Q...|
0000e5b0  30 3a f2 65 78 70 72 28  31 29 0d 51 0e 10 c9 31  |0:.expr(1).Q...1|
0000e5c0  3a f2 69 6e 69 74 73 6f  72 74 0d 51 18 38 c9 32  |:.initsort.Q.8.2|
0000e5d0  3a f2 73 74 6f 70 28 33  2c 66 69 24 2b a4 66 69  |:.stop(3,fi$+.fi|
0000e5e0  6c 65 6e 61 6d 65 2c 72  6c 24 2b 22 63 6f 6d 70  |lename,rl$+"comp|
0000e5f0  61 63 74 20 66 69 6c 65  20 3f 22 2c 66 69 6c 65  |act file ?",file|
0000e600  25 29 0d 51 22 0f c9 33  3a f2 73 65 74 6c 69 6e  |%).Q"..3:.setlin|
0000e610  6b 0d 51 2c 11 c9 34 3a  f2 69 5f 69 6d 70 75 6c  |k.Q,..4:.i_impul|
0000e620  73 65 0d 51 36 05 cb 0d  51 40 05 e1 0d 51 4a 04  |se.Q6...Q@...QJ.|
0000e630  0d 51 54 0f dd f2 6d 5f  64 65 66 61 75 6c 74 0d  |.QT...m_default.|
0000e640  51 5e 0f c8 8e 6d 6c 69  73 74 25 21 34 ca 0d 51  |Q^...mlist%!4..Q|
0000e650  68 14 c9 2d 31 2c 31 3a  f2 73 77 64 65 66 61 75  |h..-1,1:.swdefau|
0000e660  6c 74 0d 51 72 0f c9 30  3a f2 73 68 6f 77 64 65  |lt.Qr..0:.showde|
0000e670  66 0d 51 7c 05 cb 0d 51  86 05 e1 0d 51 90 04 0d  |f.Q|...Q....Q...|
0000e680  51 9a 0c dd f2 6d 5f 77  69 6e 64 0d 51 a4 13 ea  |Q....m_wind.Q...|
0000e690  54 25 3a 54 25 3d 6d 6c  69 73 74 25 21 34 0d 51  |T%:T%=mlist%!4.Q|
0000e6a0  ae 41 e7 54 25 3e 2d 31  80 54 25 3c 6d 61 78 77  |.A.T%>-1.T%<maxw|
0000e6b0  25 2d 31 3a e7 77 25 28  66 69 6c 65 25 2c 54 25  |%-1:.w%(file%,T%|
0000e6c0  2b 32 29 3e 30 3a f2 63  6c 6f 73 65 77 28 77 25  |+2)>0:.closew(w%|
0000e6d0  28 66 69 6c 65 25 2c 54  25 2b 32 29 29 3a e1 0d  |(file%,T%+2)):..|
0000e6e0  51 b8 09 c8 8e 54 25 ca  0d 51 c2 0c c9 30 3a f2  |Q....T%..Q...0:.|
0000e6f0  73 75 62 73 0d 51 cc 0f  c9 31 3a f2 72 65 70 77  |subs.Q...1:.repw|
0000e700  69 6e 64 0d 51 d6 11 c9  32 3a f2 66 69 65 6c 64  |ind.Q...2:.field|
0000e710  6c 69 73 74 0d 51 e0 0d  c9 33 3a f2 69 6e 64 65  |list.Q...3:.inde|
0000e720  78 0d 51 ea 0f c9 34 3a  f2 6e 6f 74 65 70 61 64  |x.Q...4:.notepad|
0000e730  0d 51 f4 0d c9 35 3a f2  6d 61 63 72 6f 0d 51 fe  |.Q...5:.macro.Q.|
0000e740  0d c9 36 3a f2 77 74 69  64 79 0d 52 08 05 cb 0d  |..6:.wtidy.R....|
0000e750  52 12 05 e1 0d 52 1c 04  0d 52 26 0c dd f2 6d 5f  |R....R...R&...m_|
0000e760  73 75 62 73 0d 52 30 0e  c8 8e 21 6d 6c 69 73 74  |subs.R0...!mlist|
0000e770  25 ca 0d 52 3a 3d c9 30  3a f2 73 74 6f 70 28 34  |%..R:=.0:.stop(4|
0000e780  2c a4 73 75 62 64 65 73  63 31 28 6d 65 6e 75 73  |,.subdesc1(menus|
0000e790  75 62 25 29 2c 72 6c 24  2b 22 66 69 6c 6c 20 73  |ub%),rl$+"fill s|
0000e7a0  75 62 73 65 74 20 3f 22  2c 66 69 6c 65 25 29 0d  |ubset ?",file%).|
0000e7b0  52 44 3e c9 31 3a f2 73  74 6f 70 28 35 2c a4 73  |RD>.1:.stop(5,.s|
0000e7c0  75 62 64 65 73 63 31 28  6d 65 6e 75 73 75 62 25  |ubdesc1(menusub%|
0000e7d0  29 2c 72 6c 24 2b 22 63  6c 65 61 72 20 73 75 62  |),rl$+"clear sub|
0000e7e0  73 65 74 20 3f 22 2c 66  69 6c 65 25 29 0d 52 4e  |set ?",file%).RN|
0000e7f0  41 c9 32 3a f2 73 74 6f  70 28 31 35 2c a4 73 75  |A.2:.stop(15,.su|
0000e800  62 64 65 73 63 31 28 6d  65 6e 75 73 75 62 25 29  |bdesc1(menusub%)|
0000e810  2c 72 6c 24 2b 22 64 65  73 74 72 6f 79 20 73 75  |,rl$+"destroy su|
0000e820  62 73 65 74 20 3f 22 2c  66 69 6c 65 25 29 0d 52  |bset ?",file%).R|
0000e830  58 29 c9 33 3a 64 24 28  66 69 6c 65 25 2c 28 6d  |X).3:d$(file%,(m|
0000e840  65 6e 75 73 75 62 25 80  33 31 29 2d 31 29 3d 24  |enusub%.31)-1)=$|
0000e850  74 5f 73 75 62 64 25 0d  52 62 06 c9 34 0d 52 6c  |t_subd%.Rb..4.Rl|
0000e860  0f c8 8e 6d 6c 69 73 74  25 21 34 ca 0d 52 76 12  |...mlist%!4..Rv.|
0000e870  c9 30 3a f2 6e 75 6d 65  72 69 63 28 30 29 0d 52  |.0:.numeric(0).R|
0000e880  80 12 c9 31 3a f2 6e 75  6d 65 72 69 63 28 31 29  |...1:.numeric(1)|
0000e890  0d 52 8a 40 c9 32 3a f2  73 74 6f 70 28 38 2c a4  |.R.@.2:.stop(8,.|
0000e8a0  73 75 62 64 65 73 63 31  28 6d 65 6e 75 73 75 62  |subdesc1(menusub|
0000e8b0  25 29 2c 72 6c 24 2b 22  20 64 65 6c 65 74 65 20  |%),rl$+" delete |
0000e8c0  73 75 62 73 65 74 20 3f  22 2c 66 69 6c 65 25 29  |subset ?",file%)|
0000e8d0  0d 52 94 05 cb 0d 52 9e  05 cb 0d 52 a8 05 e1 0d  |.R....R....R....|
0000e8e0  52 b2 04 0d 52 bc 2d dd  f2 6d 5f 73 74 61 74 75  |R...R.-..m_statu|
0000e8f0  73 3a ea 66 25 2c 54 25  3a 66 25 3d b9 3a f2 73  |s:.f%,T%:f%=.:.s|
0000e900  64 66 69 6c 65 28 6d 65  6e 75 66 69 6c 65 25 29  |dfile(menufile%)|
0000e910  0d 52 c6 0e c8 8e 21 6d  6c 69 73 74 25 ca 0d 52  |.R....!mlist%..R|
0000e920  d0 16 c9 30 3a f2 6e 6f  64 69 61 6c 3a f2 77 61  |...0:.nodial:.wa|
0000e930  6c 69 67 6e 0d 52 da 18  c9 31 3a f2 72 65 61 64  |lign.R...1:.read|
0000e940  77 73 3a f2 6e 65 77 6e  6f 74 65 73 0d 52 e4 0f  |ws:.newnotes.R..|
0000e950  c9 32 3a f2 77 72 69 74  65 77 73 0d 52 ee 06 c9  |.2:.writews.R...|
0000e960  33 0d 52 f8 30 54 25 3d  a4 68 64 62 79 74 65 28  |3.R.0T%=.hdbyte(|
0000e970  26 33 35 29 3a e7 54 25  3d 69 64 5f 77 63 69 61  |&35):.T%=id_wcia|
0000e980  25 84 54 25 3d 69 64 5f  62 62 63 25 84 a6 2d 33  |%.T%=id_bbc%..-3|
0000e990  8c 0d 53 02 1d c8 99 73  77 69 25 2c 73 64 31 34  |..S....swi%,sd14|
0000e9a0  5f 25 2c 69 64 5f 65 78  62 25 2c 26 33 35 0d 53  |_%,id_exb%,&35.S|
0000e9b0  0c 0c f2 77 72 69 74 65  77 73 0d 53 16 05 cd 0d  |...writews.S....|
0000e9c0  53 20 14 c9 34 3a c8 99  73 77 69 25 2c 73 64 34  |S ..4:..swi%,sd4|
0000e9d0  33 5f 25 0d 53 2a 14 c9  35 3a f2 67 65 74 70 61  |3_%.S*..5:.getpa|
0000e9e0  73 73 3a 66 25 3d a3 0d  53 34 0d c9 36 3a f2 73  |ss:f%=..S4..6:.s|
0000e9f0  77 61 70 37 0d 53 3e 09  7f 66 25 3d a3 0d 53 48  |wap7.S>..f%=..SH|
0000ea00  05 cb 0d 53 52 0f e7 66  25 3a f2 6e 6f 64 69 61  |...SR..f%:.nodia|
0000ea10  6c 0d 53 5c 05 e1 0d 53  66 04 0d 53 70 0e dd f2  |l.S\...Sf..Sp...|
0000ea20  6d 5f 66 6f 72 6d 61 74  0d 53 7a 0f c8 8e 6d 6c  |m_format.Sz...ml|
0000ea30  69 73 74 25 21 34 ca 0d  53 84 0f c9 2d 31 2c 30  |ist%!4..S...-1,0|
0000ea40  3a f2 6c 69 6e 6b 0d 53  8e 11 c9 31 3a f2 63 6c  |:.link.S...1:.cl|
0000ea50  6f 73 65 66 6f 72 6d 0d  53 98 05 cb 0d 53 a2 05  |oseform.S....S..|
0000ea60  e1 0d 53 ac 04 0d 53 b6  0c dd f2 6d 5f 6e 70 61  |..S...S....m_npa|
0000ea70  64 0d 53 c0 0e c8 8e 21  6d 6c 69 73 74 25 ca 0d  |d.S....!mlist%..|
0000ea80  53 ca 3e c9 30 3a f2 73  74 6f 70 28 31 37 2c 66  |S.>.0:.stop(17,f|
0000ea90  69 24 2b a4 66 69 6c 65  6e 61 6d 65 2c 72 6c 24  |i$+.filename,rl$|
0000eaa0  2b 22 63 6c 65 61 72 20  6e 6f 74 65 70 61 64 20  |+"clear notepad |
0000eab0  3f 22 2c 6d 65 6e 75 66  69 6c 65 25 29 0d 53 d4  |?",menufile%).S.|
0000eac0  10 c9 32 3a f2 6e 65 77  6e 6f 74 65 73 0d 53 de  |..2:.newnotes.S.|
0000ead0  05 cb 0d 53 e8 05 e1 0d  53 f2 04 0d 53 fc 0e dd  |...S....S...S...|
0000eae0  f2 6d 5f 72 65 70 6f 72  74 0d 54 06 0e c8 8e 21  |.m_report.T....!|
0000eaf0  6d 6c 69 73 74 25 ca 0d  54 10 35 c9 30 3a e7 6d  |mlist%..T.5.0:.m|
0000eb00  6c 69 73 74 25 21 34 3e  3d 30 72 25 28 66 69 6c  |list%!4>=0r%(fil|
0000eb10  65 25 29 3d 6d 6c 69 73  74 25 21 34 3a f2 6d 61  |e%)=mlist%!4:.ma|
0000eb20  6b 65 72 65 70 28 66 69  6c 65 25 29 0d 54 1a 06  |kerep(file%).T..|
0000eb30  c9 31 0d 54 24 0f c8 8e  6d 6c 69 73 74 25 21 34  |.1.T$...mlist%!4|
0000eb40  ca 0d 54 2e 11 c9 30 2c  2d 31 3a f2 72 73 65 74  |..T...0,-1:.rset|
0000eb50  75 70 0d 54 38 10 c9 31  3a f2 63 6c 65 61 72 72  |up.T8..1:.clearr|
0000eb60  65 70 0d 54 42 05 cb 0d  54 4c 10 c9 32 3a f2 70  |ep.TB...TL..2:.p|
0000eb70  72 69 6e 74 72 65 70 0d  54 56 07 cb 3a e1 0d 54  |rintrep.TV..:..T|
0000eb80  60 04 0d 54 6a 1e dd f2  6d 5f 69 6e 64 65 78 3a  |`..Tj...m_index:|
0000eb90  e7 a4 64 65 61 64 66 69  6c 65 28 2d 31 29 3a e1  |..deadfile(-1):.|
0000eba0  0d 54 74 0e c8 8e 21 6d  6c 69 73 74 25 ca 0d 54  |.Tt...!mlist%..T|
0000ebb0  7e 26 c9 30 2c 31 3a f2  73 65 6c 69 6e 64 65 78  |~&.0,1:.selindex|
0000ebc0  28 6d 65 6e 75 69 6e 64  65 78 25 2c 21 6d 6c 69  |(menuindex%,!mli|
0000ebd0  73 74 25 29 0d 54 88 15  c9 32 3a f2 73 65 6c 69  |st%).T...2:.seli|
0000ebe0  6e 64 65 78 28 30 2c 30  29 0d 54 92 05 cb 0d 54  |ndex(0,0).T....T|
0000ebf0  9c 05 e1 0d 54 a6 04 0d  54 b0 1d dd f2 73 75 62  |....T...T....sub|
0000ec00  6d 65 6e 75 28 6d 65 6e  75 25 2c 58 25 2c 59 25  |menu(menu%,X%,Y%|
0000ec10  2c 71 25 29 0d 54 ba 07  ea 49 25 0d 54 c4 2d 49  |,q%).T...I%.T.-I|
0000ec20  25 3d 30 3a f5 6d 6c 69  73 74 25 21 49 25 3d 71  |%=0:.mlist%!I%=q|
0000ec30  25 21 49 25 3a 49 25 2b  3d 34 3a fd 71 25 21 28  |%!I%:I%+=4:.q%!(|
0000ec40  49 25 2d 34 29 3d 2d 31  0d 54 ce 1b f2 70 72 65  |I%-4)=-1.T...pre|
0000ec50  70 28 6f 70 65 6e 6d 65  6e 75 25 2c 6d 6c 69 73  |p(openmenu%,mlis|
0000ec60  74 25 29 0d 54 d8 27 c8  99 22 57 69 6d 70 5f 43  |t%).T.'.."Wimp_C|
0000ec70  72 65 61 74 65 53 75 62  4d 65 6e 75 22 2c 2c 6d  |reateSubMenu",,m|
0000ec80  65 6e 75 25 2c 58 25 2c  59 25 0d 54 e2 05 e1 0d  |enu%,X%,Y%.T....|
0000ec90  54 ec 04 0d 54 f6 20 dd  f2 63 6c 65 61 72 74 73  |T...T. ..clearts|
0000eca0  28 6d 68 25 29 3a ea 49  25 3a 49 25 3d 6d 68 25  |(mh%):.I%:I%=mh%|
0000ecb0  2b 32 38 0d 55 00 22 e7  6d 68 25 3c 6d 65 6e 75  |+28.U.".mh%<menu|
0000ecc0  73 74 61 72 74 25 84 6d  68 25 3e 6d 65 6e 75 65  |start%.mh%>menue|
0000ecd0  6e 64 25 3a e1 0d 55 0a  05 f5 0d 55 14 22 21 49  |nd%:..U....U."!I|
0000ece0  25 3d 21 49 25 80 ac 31  3a 49 25 21 38 3d 49 25  |%=!I%..1:I%!8=I%|
0000ecf0  21 38 80 ac 26 34 30 30  30 30 30 3a 0d 55 1e 16  |!8..&400000:.U..|
0000ed00  49 25 2b 3d 32 34 3a fd  49 25 21 2d 32 34 80 26  |I%+=24:.I%!-24.&|
0000ed10  38 30 0d 55 28 05 e1 0d  55 32 04 0d 55 3c 13 dd  |80.U(...U2..U<..|
0000ed20  f2 73 68 61 64 65 28 6d  68 25 2c 49 25 29 0d 55  |.shade(mh%,I%).U|
0000ed30  46 2f 6d 68 25 21 28 32  38 2b 38 2b 32 34 2a 49  |F/mh%!(28+8+24*I|
0000ed40  25 29 3d 6d 68 25 21 28  32 38 2b 38 2b 32 34 2a  |%)=mh%!(28+8+24*|
0000ed50  49 25 29 84 26 34 30 30  30 30 30 3a e1 0d 55 50  |I%).&400000:..UP|
0000ed60  04 0d 55 5a 12 dd f2 74  69 63 6b 28 6d 68 25 2c  |..UZ...tick(mh%,|
0000ed70  49 25 29 0d 55 64 27 6d  68 25 21 28 32 38 2b 32  |I%).Ud'mh%!(28+2|
0000ed80  34 2a 49 25 29 3d 6d 68  25 21 28 32 38 2b 32 34  |4*I%)=mh%!(28+24|
0000ed90  2a 49 25 29 84 26 30 31  3a e1 0d 55 6e 04 0d 55  |*I%).&01:..Un..U|
0000eda0  78 15 dd f2 72 65 64 72  61 77 28 75 70 64 61 74  |x...redraw(updat|
0000edb0  65 25 29 0d 55 82 14 ea  68 25 2c 54 25 3a e7 75  |e%).U...h%,T%:.u|
0000edc0  70 64 61 74 65 25 8c 0d  55 8c 25 c8 99 22 57 69  |pdate%..U.%.."Wi|
0000edd0  6d 70 5f 55 70 64 61 74  65 57 69 6e 64 6f 77 22  |mp_UpdateWindow"|
0000ede0  2c 2c 71 25 20 b8 20 6d  6f 72 65 25 0d 55 96 05  |,,q% . more%.U..|
0000edf0  cc 0d 55 a0 25 c8 99 22  57 69 6d 70 5f 52 65 64  |..U.%.."Wimp_Red|
0000ee00  72 61 77 57 69 6e 64 6f  77 22 2c 2c 71 25 20 b8  |rawWindow",,q% .|
0000ee10  20 6d 6f 72 65 25 0d 55  aa 05 cd 0d 55 b4 25 68  | more%.U....U.%h|
0000ee20  25 3d 21 71 25 3a f2 77  74 6f 66 28 68 25 29 3a  |%=!q%:.wtof(h%):|
0000ee30  f2 72 65 61 64 62 6c 6f  63 6b 28 71 25 2b 34 29  |.readblock(q%+4)|
0000ee40  0d 55 be 0c c8 95 20 6d  6f 72 65 25 0d 55 c8 14  |.U.... more%.U..|
0000ee50  54 25 3d a3 3a ea 85 3a  ee 85 ea 3a 54 25 3d b9  |T%=.:..:...:T%=.|
0000ee60  0d 55 d2 08 e7 54 25 8c  0d 55 dc 22 e7 a6 2d 33  |.U...T%..U."..-3|
0000ee70  3a f2 72 65 63 74 66 69  6c 6c 28 f6 24 29 3a 8b  |:.rectfill(.$):.|
0000ee80  f7 85 3a f2 65 72 72 28  30 29 0d 55 e6 05 cc 0d  |..:.err(0).U....|
0000ee90  55 f0 0e e7 66 69 6c 65  25 3e 3d 30 8c 0d 55 fa  |U...file%>=0..U.|
0000eea0  0c c8 8e 77 69 6e 64 25  ca 0d 56 04 10 c9 30 3a  |...wind%..V...0:|
0000eeb0  f2 64 72 61 77 63 61 72  64 0d 56 0e 0f c9 33 3a  |.drawcard.V...3:|
0000eec0  f2 64 72 61 77 72 65 70  0d 56 18 11 c9 34 3a f2  |.drawrep.V...4:.|
0000eed0  64 72 61 77 66 6c 69 73  74 0d 56 22 11 c9 35 3a  |drawflist.V"..5:|
0000eee0  f2 64 72 61 77 69 6c 69  73 74 0d 56 2c 05 cb 0d  |.drawilist.V,...|
0000eef0  56 36 05 cc 0d 56 40 05  cd 0d 56 4a 05 cd 0d 56  |V6...V@...VJ...V|
0000ef00  54 06 f7 85 0d 56 5e 1f  21 71 25 3d 68 25 3a 6d  |T....V^.!q%=h%:m|
0000ef10  6f 72 65 25 3d a4 6e 65  78 74 72 65 63 74 61 6e  |ore%=.nextrectan|
0000ef20  67 6c 65 0d 56 68 05 ce  0d 56 72 05 e1 0d 56 7c  |gle.Vh...Vr...V||
0000ef30  04 0d 56 86 0e dd f2 64  72 61 77 63 61 72 64 0d  |..V....drawcard.|
0000ef40  56 90 10 c8 8e 73 25 28  66 69 6c 65 25 29 ca 0d  |V....s%(file%)..|
0000ef50  56 9a 06 c9 30 0d 56 a4  27 ea 54 25 3a e7 75 70  |V...0.V.'.T%:.up|
0000ef60  64 61 74 65 25 80 ac 28  70 69 78 25 80 a4 66 6c  |date%..(pix%..fl|
0000ef70  67 28 66 5f 70 69 63 73  25 29 29 8c 0d 56 ae 08  |g(f_pics%))..V..|
0000ef80  54 25 3d 36 0d 56 b8 05  cc 0d 56 c2 19 c8 99 73  |T%=6.V....V....s|
0000ef90  77 69 25 2c 67 6c 69 6e  65 5f 25 3a da 3a 54 25  |wi%,gline_%:.:T%|
0000efa0  3d 32 0d 56 cc 05 cd 0d  56 d6 3c f2 67 63 6f 6c  |=2.V....V.<.gcol|
0000efb0  28 30 2c 37 2b 6c 63 25  2a 28 6c 25 28 66 69 6c  |(0,7+lc%*(l%(fil|
0000efc0  65 25 29 3e 30 29 29 3a  f2 67 63 6f 6c 28 30 2c  |e%)>0)):.gcol(0,|
0000efd0  31 33 30 2b ac a4 66 6c  67 28 66 5f 37 62 69 74  |130+..flg(f_7bit|
0000efe0  25 29 29 0d 56 e0 32 ec  62 78 25 2b 6d 61 72 67  |%)).V.2.bx%+marg|
0000eff0  69 6e 25 2c 62 79 25 2d  6d 61 72 67 69 6e 25 3a  |in%,by%-margin%:|
0000f000  c8 99 73 77 69 25 2c 77  69 6d 70 5f 25 2c 54 25  |..swi%,wimp_%,T%|
0000f010  2c 73 64 66 24 0d 56 ea  08 f2 70 69 78 0d 56 f4  |,sdf$.V...pix.V.|
0000f020  2b c9 31 3a f2 72 65 63  74 66 69 6c 6c 28 22 4e  |+.1:.rectfill("N|
0000f030  6f 20 63 61 72 64 73 20  69 6e 20 74 68 69 73 20  |o cards in this |
0000f040  73 75 62 73 65 74 22 29  0d 56 fe 1a c9 32 3a f2  |subset").V...2:.|
0000f050  72 65 63 74 66 69 6c 6c  28 a4 61 63 74 64 65 73  |rectfill(.actdes|
0000f060  63 29 0d 57 08 05 cb 0d  57 12 05 e1 0d 57 1c 04  |c).W....W....W..|
0000f070  0d 57 26 2d dd f2 64 72  61 77 66 6c 69 73 74 3a  |.W&-..drawflist:|
0000f080  ea 54 25 3a 54 25 3d 26  31 30 30 30 30 3a e7 75  |.T%:T%=&10000:.u|
0000f090  70 64 61 74 65 25 54 25  3d 54 25 84 31 0d 57 30  |pdate%T%=T%.1.W0|
0000f0a0  32 e7 a4 76 5f 28 37 29  3d 30 f2 72 65 63 74 66  |2..v_(7)=0.rectf|
0000f0b0  69 6c 6c 28 22 4e 6f 20  66 69 65 6c 64 73 20 69  |ill("No fields i|
0000f0c0  6e 20 74 68 69 73 20 66  69 6c 65 22 29 3a e1 0d  |n this file"):..|
0000f0d0  57 3a 33 ec 62 78 25 2b  6d 61 72 67 69 6e 25 2c  |W:3.bx%+margin%,|
0000f0e0  62 79 25 2d 6d 61 72 67  69 6e 25 2d 34 3a c8 99  |by%-margin%-4:..|
0000f0f0  73 77 69 25 2c 77 69 6d  70 5f 25 2c 54 25 2c 73  |swi%,wimp_%,T%,s|
0000f100  64 24 0d 57 44 05 e1 0d  57 4e 04 0d 57 58 39 dd  |d$.WD...WN..WX9.|
0000f110  f2 64 72 61 77 69 6c 69  73 74 3a ea 54 25 2c 78  |.drawilist:.T%,x|
0000f120  25 2c 79 25 2c 58 25 2c  59 25 3a 54 25 3d 26 32  |%,y%,X%,Y%:T%=&2|
0000f130  30 30 30 30 3a e7 75 70  64 61 74 65 25 54 25 3d  |0000:.update%T%=|
0000f140  54 25 84 31 0d 57 62 36  e7 a4 6e 69 6e 64 69 63  |T%.1.Wb6..nindic|
0000f150  65 73 3d 30 f2 72 65 63  74 66 69 6c 6c 28 22 4e  |es=0.rectfill("N|
0000f160  6f 20 69 6e 64 69 63 65  73 20 69 6e 20 74 68 69  |o indices in thi|
0000f170  73 20 66 69 6c 65 22 29  3a e1 0d 57 6c 34 ec 62  |s file"):..Wl4.b|
0000f180  78 25 2b 6d 61 72 67 69  6e 25 2c 62 79 25 2d 6d  |x%+margin%,by%-m|
0000f190  61 72 67 69 6e 25 2d 34  3a c8 99 73 77 69 25 2c  |argin%-4:..swi%,|
0000f1a0  77 69 6d 70 5f 25 2c 54  25 2c 73 64 66 24 0d 57  |wimp_%,T%,sdf$.W|
0000f1b0  76 15 54 25 3d a4 63 75  72 69 64 78 3a e7 54 25  |v.T%=.curidx:.T%|
0000f1c0  3e 30 8c 0d 57 80 41 58  25 3d 62 78 25 3a 59 25  |>0..W.AX%=bx%:Y%|
0000f1d0  3d 62 79 25 2d 6d 61 72  67 69 6e 25 2d 54 25 2a  |=by%-margin%-T%*|
0000f1e0  6c 69 6e 65 67 61 70 25  3a 79 25 3d 59 25 2b 6c  |linegap%:y%=Y%+l|
0000f1f0  69 6e 65 67 61 70 25 2b  33 3a 78 25 3d 58 25 2b  |inegap%+3:x%=X%+|
0000f200  35 30 30 30 0d 57 8a 13  e7 58 25 3c 67 78 30 25  |5000.W...X%<gx0%|
0000f210  58 25 3d 67 78 30 25 0d  57 94 15 e7 78 25 3e 67  |X%=gx0%.W...x%>g|
0000f220  78 31 25 78 25 3d 67 78  31 25 2d 31 0d 57 9e 13  |x1%x%=gx1%-1.W..|
0000f230  e7 59 25 3c 67 79 30 25  59 25 3d 67 79 30 25 0d  |.Y%<gy0%Y%=gy0%.|
0000f240  57 a8 15 e7 79 25 3e 67  79 31 25 79 25 3d 67 79  |W...y%>gy1%y%=gy|
0000f250  31 25 2d 31 0d 57 b2 6c  e7 79 25 3e 3d 59 25 80  |1%-1.W.l.y%>=Y%.|
0000f260  78 25 3e 3d 58 25 ef 32  34 2c 58 25 3b 59 25 3b  |x%>=X%.24,X%;Y%;|
0000f270  78 25 3b 79 25 3b 3a f2  67 63 6f 6c 28 30 2c 31  |x%;y%;:.gcol(0,1|
0000f280  32 38 2b 37 29 3a f2 67  63 6f 6c 28 30 2c 31 29  |28+7):.gcol(0,1)|
0000f290  3a ec 62 78 25 2b 6d 61  72 67 69 6e 25 2c 62 79  |:.bx%+margin%,by|
0000f2a0  25 2d 6d 61 72 67 69 6e  25 2d 34 3a c8 99 73 77  |%-margin%-4:..sw|
0000f2b0  69 25 2c 77 69 6d 70 5f  25 2c 26 32 30 30 30 31  |i%,wimp_%,&20001|
0000f2c0  0d 57 bc 05 cd 0d 57 c6  05 e1 0d 57 d0 04 0d 57  |.W....W....W...W|
0000f2d0  da 17 dd f2 64 72 61 77  72 65 70 3a e7 75 70 64  |....drawrep:.upd|
0000f2e0  61 74 65 25 da 0d 57 e4  11 e7 73 25 28 66 69 6c  |ate%..W...s%(fil|
0000f2f0  65 25 29 3d 32 8c 0d 57  ee 17 f2 72 65 63 74 66  |e%)=2..W...rectf|
0000f300  69 6c 6c 28 a4 61 63 74  64 65 73 63 29 0d 57 f8  |ill(.actdesc).W.|
0000f310  05 cc 0d 58 02 10 c8 8e  72 25 28 66 69 6c 65 25  |...X....r%(file%|
0000f320  29 ca 0d 58 0c 11 c9 30  3a f2 64 72 61 77 63 61  |)..X...0:.drawca|
0000f330  72 64 73 0d 58 16 11 c9  31 3a f2 64 72 61 77 73  |rds.X...1:.draws|
0000f340  68 65 65 74 0d 58 20 13  c9 32 3a f2 64 72 61 77  |heet.X ..2:.draw|
0000f350  66 6f 72 6d 75 6c 61 0d  58 2a 12 c9 33 3a f2 64  |formula.X*..3:.d|
0000f360  72 61 77 6c 61 62 65 6c  73 0d 58 34 13 c9 34 3a  |rawlabels.X4..4:|
0000f370  f2 64 72 61 77 77 6f 72  64 70 72 6f 0d 58 3e 11  |.drawwordpro.X>.|
0000f380  c9 35 3a f2 64 72 61 77  70 61 67 65 64 0d 58 48  |.5:.drawpaged.XH|
0000f390  05 cb 0d 58 52 05 cd 0d  58 5c 05 e1 0d 58 66 04  |...XR...X\...Xf.|
0000f3a0  0d 58 70 38 dd f2 64 72  61 77 63 61 72 64 73 3a  |.Xp8..drawcards:|
0000f3b0  ea 68 25 2c 54 25 2c 64  25 2c 74 25 2c 65 25 3a  |.h%,T%,d%,t%,e%:|
0000f3c0  64 25 3d a4 76 5f 28 31  34 29 3a e7 75 70 64 61  |d%=.v_(14):.upda|
0000f3d0  74 65 25 3a 74 25 3d 31  0d 58 7a 17 e7 75 70 64  |te%:t%=1.Xz..upd|
0000f3e0  61 74 65 25 3a 74 25 3d  36 3a 8b 74 25 3d 32 0d  |ate%:t%=6:.t%=2.|
0000f3f0  58 84 06 ea 85 0d 58 8e  2a ee 85 ea 3a f7 85 3a  |X.....X.*...:..:|
0000f400  f2 72 65 70 64 72 61 77  6e 28 64 25 29 3a f2 66  |.repdrawn(d%):.f|
0000f410  6f 72 63 65 72 65 70 3a  f2 65 72 72 28 30 29 0d  |orcerep:.err(0).|
0000f420  58 98 31 68 25 3d a4 72  68 74 3a 54 25 3d 28 62  |X.1h%=.rht:T%=(b|
0000f430  79 25 2d 67 79 31 25 2d  6d 61 72 67 69 6e 25 2d  |y%-gy1%-margin%-|
0000f440  34 29 2f 28 6c 69 6e 65  67 61 70 25 2a 68 25 29  |4)/(linegap%*h%)|
0000f450  0d 58 a2 39 59 25 3d 62  79 25 2d 6d 61 72 67 69  |.X.9Y%=by%-margi|
0000f460  6e 25 2d 68 25 2a 6c 69  6e 65 67 61 70 25 2a 54  |n%-h%*linegap%*T|
0000f470  25 3a f5 3a c8 99 73 77  69 25 2c 67 72 65 63 5f  |%:.:..swi%,grec_|
0000f480  25 2c 54 25 2b 31 b8 4e  25 0d 58 ac 0f f2 73 64  |%,T%+1.N%.X...sd|
0000f490  33 35 3a c8 8e 47 25 ca  0d 58 b6 06 c9 30 0d 58  |35:..G%..X...0.X|
0000f4a0  c0 3c f2 67 63 6f 6c 28  30 2c 37 2b 6c 63 25 2a  |.<.gcol(0,7+lc%*|
0000f4b0  28 6c 25 28 66 69 6c 65  25 29 3e 30 29 29 3a f2  |(l%(file%)>0)):.|
0000f4c0  67 63 6f 6c 28 30 2c 31  33 30 2b ac a4 66 6c 67  |gcol(0,130+..flg|
0000f4d0  28 66 5f 37 62 69 74 25  29 29 0d 58 ca 28 ec 62  |(f_7bit%)).X.(.b|
0000f4e0  78 25 2b 6d 61 72 67 69  6e 25 2c 59 25 3a c8 99  |x%+margin%,Y%:..|
0000f4f0  73 77 69 25 2c 77 69 6d  70 5f 25 2c 74 25 2c 73  |swi%,wimp_%,t%,s|
0000f500  64 24 0d 58 d4 46 c9 31  3a f2 70 72 69 6e 74 63  |d$.X.F.1:.printc|
0000f510  61 72 64 28 22 43 61 72  64 20 22 2b c3 a4 76 5f  |ard("Card "+..v_|
0000f520  28 31 35 29 2b 22 20 6e  6f 74 20 69 6e 20 74 68  |(15)+" not in th|
0000f530  69 73 20 73 75 62 73 65  74 22 2c 59 25 2c 68 25  |is subset",Y%,h%|
0000f540  2b 28 68 25 3e 31 29 29  0d 58 de 41 c9 31 32 38  |+(h%>1)).X.A.128|
0000f550  3a f2 70 72 69 6e 74 63  61 72 64 28 22 44 65 6c  |:.printcard("Del|
0000f560  65 74 65 64 20 63 61 72  64 20 6e 75 6d 62 65 72  |eted card number|
0000f570  20 22 2b c3 a4 76 5f 28  31 35 29 2c 59 25 2c 68  | "+..v_(15),Y%,h|
0000f580  25 2b 28 68 25 3e 31 29  29 0d 58 e8 1b cb 3a 59  |%+(h%>1)).X...:Y|
0000f590  25 2d 3d 68 25 2a 6c 69  6e 65 67 61 70 25 3a 54  |%-=h%*linegap%:T|
0000f5a0  25 2b 3d 31 0d 58 f2 38  e7 68 25 3e 31 ec 67 78  |%+=1.X.8.h%>1.gx|
0000f5b0  30 25 2c 59 25 2b 34 2b  6c 69 6e 65 67 61 70 25  |0%,Y%+4+linegap%|
0000f5c0  81 32 3a f2 67 63 6f 6c  28 30 2c 32 29 3a df 42  |.2:.gcol(0,2):.B|
0000f5d0  59 67 78 31 25 2d 67 78  30 25 2c 30 0d 58 fc 27  |Ygx1%-gx0%,0.X.'|
0000f5e0  fd 59 25 3c 67 79 30 25  84 54 25 3e a4 76 5f 28  |.Y%<gy0%.T%>.v_(|
0000f5f0  31 37 29 3a f2 72 65 70  64 72 61 77 6e 28 64 25  |17):.repdrawn(d%|
0000f600  29 3a e1 0d 59 06 04 0d  59 10 24 dd f2 64 72 61  |):..Y...Y.$..dra|
0000f610  77 73 68 65 65 74 3a ea  59 25 2c 54 25 2c 64 25  |wsheet:.Y%,T%,d%|
0000f620  3a 64 25 3d a4 76 5f 28  31 34 29 0d 59 1a 06 ea  |:d%=.v_(14).Y...|
0000f630  85 0d 59 24 2a ee 85 ea  3a f7 85 3a f2 72 65 70  |..Y$*...:..:.rep|
0000f640  64 72 61 77 6e 28 64 25  29 3a f2 66 6f 72 63 65  |drawn(d%):.force|
0000f650  72 65 70 3a f2 65 72 72  28 30 29 0d 59 2e 3f 54  |rep:.err(0).Y.?T|
0000f660  25 3d 28 62 79 25 2d 67  79 31 25 2d 6d 61 72 67  |%=(by%-gy1%-marg|
0000f670  69 6e 25 2d 34 29 81 6c  69 6e 65 67 61 70 25 3a  |in%-4).linegap%:|
0000f680  59 25 3d 62 79 25 2d 6d  61 72 67 69 6e 25 2d 6c  |Y%=by%-margin%-l|
0000f690  69 6e 65 67 61 70 25 2a  54 25 0d 59 38 28 e7 67  |inegap%*T%.Y8(.g|
0000f6a0  78 30 25 3c 62 78 25 2b  6d 61 72 67 69 6e 25 2b  |x0%<bx%+margin%+|
0000f6b0  31 36 2a 28 31 32 2b a9  a4 73 72 65 70 28 31 29  |16*(12+..srep(1)|
0000f6c0  29 8c 0d 59 42 39 c8 95  59 25 3e 3d 67 79 30 25  |)..YB9..Y%>=gy0%|
0000f6d0  80 54 25 3c 3d a4 76 5f  28 31 37 29 2b 33 3a f2  |.T%<=.v_(17)+3:.|
0000f6e0  67 63 6f 6c 28 30 2c 37  2b 6c 63 25 2a 28 6c 25  |gcol(0,7+lc%*(l%|
0000f6f0  28 66 69 6c 65 25 29 3e  30 29 29 0d 59 4c 13 ec  |(file%)>0)).YL..|
0000f700  62 78 25 2b 6d 61 72 67  69 6e 25 2c 59 25 0d 59  |bx%+margin%,Y%.Y|
0000f710  56 10 f1 a4 73 6c 69 6e  28 54 25 2b 31 29 0d 59  |V...slin(T%+1).Y|
0000f720  60 18 54 25 2b 3d 31 3a  59 25 2d 3d 6c 69 6e 65  |`.T%+=1:Y%-=line|
0000f730  67 61 70 25 3a ce 0d 59  6a 15 cd 3a f2 72 65 70  |gap%:..Yj..:.rep|
0000f740  64 72 61 77 6e 28 64 25  29 3a e1 0d 59 74 04 0d  |drawn(d%):..Yt..|
0000f750  59 7e 46 dd f2 64 72 61  77 66 6f 72 6d 75 6c 61  |Y~F..drawformula|
0000f760  3a ea 59 25 2c 72 65 63  25 2c 64 25 2c 4c 25 3a  |:.Y%,rec%,d%,L%:|
0000f770  64 25 3d a4 76 5f 28 31  34 29 3a 4c 25 3d 28 67  |d%=.v_(14):L%=(g|
0000f780  78 31 25 2d 62 78 25 2d  6d 61 72 67 69 6e 25 29  |x1%-bx%-margin%)|
0000f790  81 31 36 2b 31 0d 59 88  06 ea 85 0d 59 92 2a ee  |.16+1.Y.....Y.*.|
0000f7a0  85 ea 3a f7 85 3a f2 72  65 70 64 72 61 77 6e 28  |..:..:.repdrawn(|
0000f7b0  64 25 29 3a f2 66 6f 72  63 65 72 65 70 3a f2 65  |d%):.forcerep:.e|
0000f7c0  72 72 28 30 29 0d 59 9c  43 72 65 63 25 3d 28 62  |rr(0).Y.Crec%=(b|
0000f7d0  79 25 2d 67 79 31 25 2d  6d 61 72 67 69 6e 25 2d  |y%-gy1%-margin%-|
0000f7e0  34 29 81 6c 69 6e 65 67  61 70 25 3a 59 25 3d 62  |4).linegap%:Y%=b|
0000f7f0  79 25 2d 6d 61 72 67 69  6e 25 2d 6c 69 6e 65 67  |y%-margin%-lineg|
0000f800  61 70 25 2a 72 65 63 25  0d 59 a6 48 c8 95 59 25  |ap%*rec%.Y.H..Y%|
0000f810  3e 3d 67 79 30 25 80 72  65 63 25 3c a4 76 5f 28  |>=gy0%.rec%<.v_(|
0000f820  31 37 29 3a f2 67 63 6f  6c 28 30 2c 37 2b 6c 63  |17):.gcol(0,7+lc|
0000f830  25 2a 28 6c 25 28 66 69  6c 65 25 29 3e 30 29 29  |%*(l%(file%)>0))|
0000f840  3a ec 62 78 25 2b 6d 61  72 67 69 6e 25 2c 59 25  |:.bx%+margin%,Y%|
0000f850  0d 59 b0 15 f1 a4 72 6c  69 6e 28 72 65 63 25 2b  |.Y....rlin(rec%+|
0000f860  31 2c 4c 25 29 0d 59 ba  2a 72 65 63 25 2b 3d 31  |1,L%).Y.*rec%+=1|
0000f870  3a 59 25 2d 3d 6c 69 6e  65 67 61 70 25 3a ce 3a  |:Y%-=linegap%:.:|
0000f880  f2 72 65 70 64 72 61 77  6e 28 64 25 29 3a e1 0d  |.repdrawn(d%):..|
0000f890  59 c4 04 0d 59 ce 31 dd  f2 64 72 61 77 70 61 67  |Y...Y.1..drawpag|
0000f8a0  65 64 3a ea 59 25 2c 54  25 2c 4c 25 2c 41 25 2c  |ed:.Y%,T%,L%,A%,|
0000f8b0  42 25 2c 54 24 3a 4c 25  3d 70 25 28 66 69 6c 65  |B%,T$:L%=p%(file|
0000f8c0  25 2c 32 29 0d 59 d8 39  41 25 3d 28 67 78 30 25  |%,2).Y.9A%=(gx0%|
0000f8d0  2d 62 78 25 2d 6d 61 72  67 69 6e 25 29 81 31 36  |-bx%-margin%).16|
0000f8e0  2b 31 3a 42 25 3d 28 67  78 31 25 2d 62 78 25 2d  |+1:B%=(gx1%-bx%-|
0000f8f0  6d 61 72 67 69 6e 25 29  81 31 36 2b 31 0d 59 e2  |margin%).16+1.Y.|
0000f900  3f 54 25 3d 28 62 79 25  2d 67 79 31 25 2d 6d 61  |?T%=(by%-gy1%-ma|
0000f910  72 67 69 6e 25 2d 34 29  81 6c 69 6e 65 67 61 70  |rgin%-4).linegap|
0000f920  25 3a 59 25 3d 62 79 25  2d 6d 61 72 67 69 6e 25  |%:Y%=by%-margin%|
0000f930  2d 6c 69 6e 65 67 61 70  25 2a 54 25 0d 59 ec 1e  |-linegap%*T%.Y..|
0000f940  c8 95 59 25 3e 3d 67 79  30 25 3a ec 62 78 25 2b  |..Y%>=gy0%:.bx%+|
0000f950  6d 61 72 67 69 6e 25 2c  59 25 0d 59 f6 09 c8 8e  |margin%,Y%.Y....|
0000f960  54 25 ca 0d 5a 00 11 c9  30 3a f1 a4 74 6f 70 6c  |T%..Z...0:..topl|
0000f970  69 6e 65 3b 0d 5a 0a 31  c9 31 2c 32 2c 33 3a 54  |ine;.Z.1.1,2,3:T|
0000f980  24 3d c0 70 24 28 66 69  6c 65 25 2c 54 25 29 2c  |$=.p$(file%,T%),|
0000f990  4c 25 29 3a f1 89 28 28  4c 25 2d a9 54 24 29 2f  |L%):..((L%-.T$)/|
0000f9a0  32 29 54 24 3b 0d 5a 14  17 c9 34 3a f1 a4 64 75  |2)T$;.Z...4:..du|
0000f9b0  6d 6d 79 68 64 72 73 28  42 25 29 3b 0d 5a 1e 1c  |mmyhdrs(B%);.Z..|
0000f9c0  c9 35 3a f1 a4 64 75 6d  6d 79 64 73 68 28 42 25  |.5:..dummydsh(B%|
0000f9d0  2c 22 2d 22 2c b9 29 3b  0d 5a 28 20 c9 36 2c 37  |,"-",.);.Z( .6,7|
0000f9e0  2c 38 3a f1 a4 64 75 6d  6d 79 63 6f 6c 73 28 41  |,8:..dummycols(A|
0000f9f0  25 2c 42 25 2c b9 29 3b  0d 5a 32 1c c9 39 3a f1  |%,B%,.);.Z2..9:.|
0000fa00  a4 64 75 6d 6d 79 64 73  68 28 42 25 2c 22 2d 22  |.dummydsh(B%,"-"|
0000fa10  2c a3 29 3b 0d 5a 3c 1d  c9 31 30 3a f1 a4 64 75  |,.);.Z<..10:..du|
0000fa20  6d 6d 79 63 6f 6c 73 28  41 25 2c 42 25 2c a3 29  |mmycols(A%,B%,.)|
0000fa30  3b 0d 5a 46 1d c9 31 31  3a f1 a4 64 75 6d 6d 79  |;.ZF..11:..dummy|
0000fa40  64 73 68 28 42 25 2c 22  3d 22 2c a3 29 3b 0d 5a  |dsh(B%,"=",.);.Z|
0000fa50  50 33 c9 31 33 3a e7 a4  66 6c 67 28 66 5f 72 62  |P3.13:..flg(f_rb|
0000fa60  70 6e 25 29 3a e7 4c 25  3e 37 f1 89 28 28 4c 25  |pn%):.L%>7..((L%|
0000fa70  2d 38 29 2f 32 29 22 50  61 67 65 20 23 23 23 22  |-8)/2)"Page ###"|
0000fa80  3b 0d 5a 5a 05 cb 0d 5a  64 18 54 25 2b 3d 31 3a  |;.ZZ...Zd.T%+=1:|
0000fa90  59 25 2d 3d 6c 69 6e 65  67 61 70 25 3a ce 0d 5a  |Y%-=linegap%:..Z|
0000faa0  6e 05 e1 0d 5a 78 04 0d  5a 82 28 dd f2 72 65 70  |n...Zx..Z.(..rep|
0000fab0  64 72 61 77 6e 28 64 25  29 3a c8 99 73 77 69 25  |drawn(d%):..swi%|
0000fac0  2c 6c 6f 63 61 74 65 5f  25 2c 64 25 b8 44 25 0d  |,locate_%,d%.D%.|
0000fad0  5a 8c 0f f2 72 6c 69 6e  6b 28 a3 29 3a e1 0d 5a  |Z...rlink(.):..Z|
0000fae0  96 04 0d 5a a0 17 dd f2  64 72 61 77 6c 61 62 65  |...Z....drawlabe|
0000faf0  6c 73 3a ea 59 25 2c 54  25 0d 5a aa 3f 54 25 3d  |ls:.Y%,T%.Z.?T%=|
0000fb00  28 62 79 25 2d 67 79 31  25 2d 6d 61 72 67 69 6e  |(by%-gy1%-margin|
0000fb10  25 2d 34 29 81 6c 69 6e  65 67 61 70 25 3a 59 25  |%-4).linegap%:Y%|
0000fb20  3d 62 79 25 2d 6d 61 72  67 69 6e 25 2d 6c 69 6e  |=by%-margin%-lin|
0000fb30  65 67 61 70 25 2a 54 25  0d 5a b4 2e c8 95 59 25  |egap%*T%.Z....Y%|
0000fb40  3e 3d 67 79 30 25 80 54  25 3c 6c 6c 25 28 66 69  |>=gy0%.T%<ll%(fi|
0000fb50  6c 65 25 2c 33 29 3a ec  62 78 25 2b 6d 61 72 67  |le%,3):.bx%+marg|
0000fb60  69 6e 25 2c 59 25 0d 5a  be 20 f2 67 63 6f 6c 28  |in%,Y%.Z. .gcol(|
0000fb70  30 2c 37 2b 6c 63 25 2a  28 6c 25 28 66 69 6c 65  |0,7+lc%*(l%(file|
0000fb80  25 29 3e 30 29 29 0d 5a  c8 27 f1 a4 64 75 6d 6c  |%)>0)).Z.'..duml|
0000fb90  61 62 28 54 25 29 3a 54  25 2b 3d 31 3a 59 25 2d  |ab(T%):T%+=1:Y%-|
0000fba0  3d 6c 69 6e 65 67 61 70  25 3a ce 3a e1 0d 5a d2  |=linegap%:.:..Z.|
0000fbb0  04 0d 5a dc 18 dd f2 64  72 61 77 77 6f 72 64 70  |..Z....drawwordp|
0000fbc0  72 6f 3a ea 59 25 2c 54  25 0d 5a e6 3f 54 25 3d  |ro:.Y%,T%.Z.?T%=|
0000fbd0  28 62 79 25 2d 67 79 31  25 2d 6d 61 72 67 69 6e  |(by%-gy1%-margin|
0000fbe0  25 2d 34 29 81 6c 69 6e  65 67 61 70 25 3a 59 25  |%-4).linegap%:Y%|
0000fbf0  3d 62 79 25 2d 6d 61 72  67 69 6e 25 2d 6c 69 6e  |=by%-margin%-lin|
0000fc00  65 67 61 70 25 2a 54 25  0d 5a f0 41 c8 95 59 25  |egap%*T%.Z.A..Y%|
0000fc10  3e 3d 67 79 30 25 80 54  25 3c 31 35 3a ec 62 78  |>=gy0%.T%<15:.bx|
0000fc20  25 2b 6d 61 72 67 69 6e  25 2c 59 25 3a f2 67 63  |%+margin%,Y%:.gc|
0000fc30  6f 6c 28 30 2c 37 2b 6c  63 25 2a 28 6c 25 28 66  |ol(0,7+lc%*(l%(f|
0000fc40  69 6c 65 25 29 3e 30 29  29 0d 5a fa 0e f1 a4 77  |ile%)>0)).Z....w|
0000fc50  6c 69 6e 28 54 25 29 0d  5b 04 1a 54 25 2b 3d 31  |lin(T%).[..T%+=1|
0000fc60  3a 59 25 2d 3d 6c 69 6e  65 67 61 70 25 3a ce 3a  |:Y%-=linegap%:.:|
0000fc70  e1 0d 5b 0e 04 0d 5b 18  34 dd a4 6e 65 78 74 72  |..[...[.4..nextr|
0000fc80  65 63 74 61 6e 67 6c 65  3a ea 54 25 3a c8 99 22  |ectangle:.T%:.."|
0000fc90  57 69 6d 70 5f 47 65 74  52 65 63 74 61 6e 67 6c  |Wimp_GetRectangl|
0000fca0  65 22 2c 2c 71 25 b8 54  25 0d 5b 22 18 f2 72 65  |e",,q%.T%.["..re|
0000fcb0  61 64 62 6c 6f 63 6b 28  71 25 2b 34 29 3a 3d 54  |adblock(q%+4):=T|
0000fcc0  25 0d 5b 2c 04 0d 5b 36  12 dd f2 72 65 63 74 66  |%.[,..[6...rectf|
0000fcd0  69 6c 6c 28 54 24 29 0d  5b 40 1e f2 67 63 6f 6c  |ill(T$).[@..gcol|
0000fce0  28 30 2c 33 29 3a ea 49  25 2c 4a 25 2c 4c 25 2c  |(0,3):.I%,J%,L%,|
0000fcf0  58 25 2c 59 25 0d 5b 4a  10 4c 25 3d a9 54 24 2a  |X%,Y%.[J.L%=.T$*|
0000fd00  31 36 2b 34 38 0d 5b 54  2c 58 25 3d 62 78 25 2b  |16+48.[T,X%=bx%+|
0000fd10  6d 61 72 67 69 6e 25 3a  4a 25 3d 67 78 30 25 2d  |margin%:J%=gx0%-|
0000fd20  58 25 3a 58 25 3d 58 25  2d 4a 25 2b 4a 25 83 4c  |X%:X%=X%-J%+J%.L|
0000fd30  25 0d 5b 5e 3d 4a 25 3d  62 79 25 2d 67 79 31 25  |%.[^=J%=by%-gy1%|
0000fd40  2d 6d 61 72 67 69 6e 25  3a 4a 25 3d 4a 25 2d 4a  |-margin%:J%=J%-J|
0000fd50  25 83 6c 69 6e 65 67 61  70 25 3a 59 25 3d 62 79  |%.linegap%:Y%=by|
0000fd60  25 2d 6d 61 72 67 69 6e  25 2d 34 2d 4a 25 0d 5b  |%-margin%-4-J%.[|
0000fd70  68 19 e3 4a 25 3d 59 25  b8 67 79 30 25 88 2d 6c  |h..J%=Y%.gy0%.-l|
0000fd80  69 6e 65 67 61 70 25 0d  5b 72 25 ec 58 25 2c 4a  |inegap%.[r%.X%,J|
0000fd90  25 3a e3 49 25 3d 58 25  b8 67 78 31 25 88 4c 25  |%:.I%=X%.gx1%.L%|
0000fda0  3a f1 54 24 22 20 2d 20  22 3b 3a ed 0d 5b 7c 07  |:.T$" - ";:..[|.|
0000fdb0  ed 3a e1 0d 5b 86 04 0d  5b 90 19 dd f2 70 72 69  |.:..[...[....pri|
0000fdc0  6e 74 63 61 72 64 28 54  24 2c 59 25 2c 68 25 29  |ntcard(T$,Y%,h%)|
0000fdd0  0d 5b 9a 1b f2 67 63 6f  6c 28 30 2c 33 29 3a ea  |.[...gcol(0,3):.|
0000fde0  49 25 2c 4a 25 2c 4c 25  2c 58 25 0d 5b a4 35 4c  |I%,J%,L%,X%.[.5L|
0000fdf0  25 3d a9 54 24 2a 31 36  2b 34 38 3a 4a 25 3d 94  |%=.T$*16+48:J%=.|
0000fe00  28 59 25 2d 67 79 30 25  29 81 6c 69 6e 65 67 61  |(Y%-gy0%).linega|
0000fe10  70 25 2b 31 3a e7 68 25  3e 4a 25 68 25 3d 4a 25  |p%+1:.h%>J%h%=J%|
0000fe20  0d 5b ae 2c 58 25 3d 62  78 25 2b 6d 61 72 67 69  |.[.,X%=bx%+margi|
0000fe30  6e 25 3a 4a 25 3d 67 78  30 25 2d 58 25 3a 58 25  |n%:J%=gx0%-X%:X%|
0000fe40  3d 58 25 2d 4a 25 2b 4a  25 83 4c 25 0d 5b b8 25  |=X%-J%+J%.L%.[.%|
0000fe50  e3 4a 25 3d 59 25 b8 59  25 2d 68 25 2a 6c 69 6e  |.J%=Y%.Y%-h%*lin|
0000fe60  65 67 61 70 25 2b 31 88  2d 6c 69 6e 65 67 61 70  |egap%+1.-linegap|
0000fe70  25 0d 5b c2 25 ec 58 25  2c 4a 25 3a e3 49 25 3d  |%.[.%.X%,J%:.I%=|
0000fe80  58 25 b8 67 78 31 25 88  4c 25 3a f1 54 24 22 20  |X%.gx1%.L%:.T$" |
0000fe90  2d 20 22 3b 3a ed 0d 5b  cc 07 ed 3a e1 0d 5b d6  |- ";:..[...:..[.|
0000fea0  04 0d 5b e0 18 dd a4 69  6e 62 6f 78 28 58 25 2c  |..[....inbox(X%,|
0000feb0  59 25 2c 57 25 2c 48 25  29 0d 5b ea 17 e7 57 25  |Y%,W%,H%).[...W%|
0000fec0  3c 30 3a 58 25 2b 3d 57  25 3a 57 25 3d 2d 57 25  |<0:X%+=W%:W%=-W%|
0000fed0  0d 5b f4 17 e7 48 25 3c  30 3a 59 25 2b 3d 48 25  |.[...H%<0:Y%+=H%|
0000fee0  3a 48 25 3d 2d 48 25 0d  5b fe 12 e7 67 78 30 25  |:H%=-H%.[...gx0%|
0000fef0  3e 58 25 2b 57 25 3a 3d  a3 0d 5c 08 0f e7 67 78  |>X%+W%:=..\...gx|
0000ff00  31 25 3c 58 25 3a 3d a3  0d 5c 12 12 e7 67 79 30  |1%<X%:=..\...gy0|
0000ff10  25 3e 59 25 2b 48 25 3a  3d a3 0d 5c 1c 0f e7 67  |%>Y%+H%:=..\...g|
0000ff20  79 31 25 3c 59 25 3a 3d  a3 0d 5c 26 06 3d b9 0d  |y1%<Y%:=..\&.=..|
0000ff30  5c 30 04 0d 5c 3a 0f dd  f2 77 61 69 74 70 6f 69  |\0..\:...waitpoi|
0000ff40  6e 74 0d 5c 44 0e 77 61  69 74 65 72 25 2b 3d 31  |nt.\D.waiter%+=1|
0000ff50  0d 5c 4e 14 c8 99 22 48  6f 75 72 67 6c 61 73 73  |.\N..."Hourglass|
0000ff60  5f 4f 6e 22 0d 5c 58 05  e1 0d 5c 62 04 0d 5c 6c  |_On".\X...\b..\l|
0000ff70  0f dd f2 6e 6f 72 6d 70  6f 69 6e 74 0d 5c 76 38  |...normpoint.\v8|
0000ff80  c8 95 77 61 69 74 65 72  25 3e 30 3a c8 99 22 48  |..waiter%>0:.."H|
0000ff90  6f 75 72 67 6c 61 73 73  5f 4f 66 66 22 3a 77 61  |ourglass_Off":wa|
0000ffa0  69 74 65 72 25 2d 3d 31  3a ce 3a 77 61 69 74 65  |iter%-=1:.:waite|
0000ffb0  72 25 3d 30 0d 5c 80 05  e1 0d 5c 8a 04 0d 5c 94  |r%=0.\....\...\.|
0000ffc0  11 dd f2 67 63 6f 6c 28  6d 25 2c 63 25 29 0d 5c  |...gcol(m%,c%).\|
0000ffd0  9e 21 c8 99 22 57 69 6d  70 5f 53 65 74 43 6f 6c  |.!.."Wimp_SetCol|
0000ffe0  6f 75 72 22 2c 28 6d 25  3c 3c 34 29 2b 63 25 0d  |our",(m%<<4)+c%.|
0000fff0  5c a8 05 e1 0d 5c b2 04  0d 5c bc 11 dd f2 64 61  |\....\...\....da|
00010000  74 61 6c 6f 61 64 61 63  6b 0d 5c c6 1d 21 71 25  |taloadack.\..!q%|
00010010  3d 32 30 3a 71 25 21 31  32 3d 72 65 66 25 3a 71  |=20:q%!12=ref%:q|
00010020  25 21 31 36 3d 34 0d 5c  d0 24 c8 99 22 57 69 6d  |%!16=4.\.$.."Wim|
00010030  70 5f 53 65 6e 64 4d 65  73 73 61 67 65 22 2c 31  |p_SendMessage",1|
00010040  37 2c 71 25 2c 74 61 73  6b 25 0d 5c da 05 e1 0d  |7,q%,task%.\....|
00010050  5c e4 04 0d 5c ee 11 dd  f2 64 61 74 61 73 61 76  |\...\....datasav|
00010060  65 61 63 6b 0d 5c f8 3c  e7 a4 41 72 66 56 61 72  |eack.\.<..ArfVar|
00010070  28 22 57 69 6d 70 24 53  63 72 61 70 22 29 3d 22  |("Wimp$Scrap")="|
00010080  22 3a 85 39 39 2c 22 3c  57 69 6d 70 24 53 63 72  |":.99,"<Wimp$Scr|
00010090  61 70 3e 20 6e 6f 74 20  64 65 66 69 6e 65 64 22  |ap> not defined"|
000100a0  0d 5d 02 41 21 71 25 3d  36 30 3a 71 25 21 31 32  |.].A!q%=60:q%!12|
000100b0  3d 72 65 66 25 3a 71 25  21 31 36 3d 32 3a 71 25  |=ref%:q%!16=2:q%|
000100c0  21 33 36 3d 2d 31 3a 24  28 71 25 2b 34 34 29 3d  |!36=-1:$(q%+44)=|
000100d0  22 3c 57 69 6d 70 24 53  63 72 61 70 3e 22 2b bd  |"<Wimp$Scrap>"+.|
000100e0  30 0d 5d 0c 31 c8 99 22  57 69 6d 70 5f 53 65 6e  |0.].1.."Wimp_Sen|
000100f0  64 4d 65 73 73 61 67 65  22 2c 31 37 2c 71 25 2c  |dMessage",17,q%,|
00010100  74 61 73 6b 25 3a 61 63  6b 72 65 66 25 3d 71 25  |task%:ackref%=q%|
00010110  21 38 0d 5d 16 05 e1 0d  5d 20 04 0d 5d 2a 1d dd  |!8.]....] ..]*..|
00010120  f2 73 61 76 65 72 65 71  28 54 24 2c 74 25 2c 73  |.savereq(T$,t%,s|
00010130  25 2c 72 25 2c 66 25 29  0d 5d 34 1f 73 61 76 65  |%,r%,f%).]4.save|
00010140  72 65 61 73 6f 6e 25 3d  72 25 3a 73 61 76 65 66  |reason%=r%:savef|
00010150  69 6c 65 25 3d 66 25 0d  5d 3e 2b 71 25 21 33 32  |ile%=f%.]>+q%!32|
00010160  3d 6d 79 25 3a 71 25 21  32 38 3d 6d 78 25 3a 71  |=my%:q%!28=mx%:q|
00010170  25 21 32 34 3d 6d 69 25  3a 71 25 21 32 30 3d 6d  |%!24=mi%:q%!20=m|
00010180  68 25 0d 5d 48 38 71 25  21 31 36 3d 31 3a 71 25  |h%.]H8q%!16=1:q%|
00010190  21 31 32 3d 30 3a 71 25  21 33 36 3d 73 25 3a 71  |!12=0:q%!36=s%:q|
000101a0  25 21 34 30 3d 74 25 3a  21 71 25 3d 28 a9 54 24  |%!40=t%:!q%=(.T$|
000101b0  2b 34 39 29 80 26 46 46  46 43 0d 5d 52 35 24 28  |+49).&FFFC.]R5$(|
000101c0  71 25 2b 34 34 29 3d 54  24 2b bd 30 3a c8 99 22  |q%+44)=T$+.0:.."|
000101d0  57 69 6d 70 5f 53 65 6e  64 4d 65 73 73 61 67 65  |Wimp_SendMessage|
000101e0  22 2c 31 37 2c 71 25 2c  6d 68 25 2c 6d 69 25 0d  |",17,q%,mh%,mi%.|
000101f0  5d 5c 20 73 61 76 65 72  65 66 25 3d 71 25 21 38  |]\ saveref%=q%!8|
00010200  3a 73 61 76 65 74 79 70  65 25 3d 74 25 3a e1 0d  |:savetype%=t%:..|
00010210  5d 66 04 0d 5d 70 25 dd  f2 6c 6f 61 64 6d 65 73  |]f..]p%..loadmes|
00010220  73 3a f2 72 65 61 64 70  6f 69 6e 74 65 72 3a e7  |s:.readpointer:.|
00010230  74 61 73 6b 25 3c 30 e1  0d 5d 7a 2b 24 28 71 25  |task%<0..]z+$(q%|
00010240  2b 34 34 29 3d 66 69 6c  65 24 2b bd 30 3a 21 71  |+44)=file$+.0:!q|
00010250  25 3d 28 a9 66 69 6c 65  24 2b 34 39 29 80 26 46  |%=(.file$+49).&F|
00010260  46 46 43 0d 5d 84 26 71  25 21 31 32 3d 72 65 66  |FFC.].&q%!12=ref|
00010270  25 3a 71 25 21 31 36 3d  33 3a 71 25 21 34 30 3d  |%:q%!16=3:q%!40=|
00010280  73 61 76 65 74 79 70 65  25 0d 5d 8e 3f 71 25 21  |savetype%.].?q%!|
00010290  32 30 3d 6d 68 25 3a 71  25 21 32 34 3d 6d 69 25  |20=mh%:q%!24=mi%|
000102a0  3a 71 25 21 32 38 3d 6d  78 25 3a 71 25 21 33 32  |:q%!28=mx%:q%!32|
000102b0  3d 6d 79 25 3a 71 25 21  33 36 3d a4 66 73 69 7a  |=my%:q%!36=.fsiz|
000102c0  65 28 66 69 6c 65 24 29  0d 5d 98 24 c8 99 22 57  |e(file$).].$.."W|
000102d0  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
000102e0  2c 31 37 2c 71 25 2c 74  61 73 6b 25 0d 5d a2 13  |,17,q%,task%.]..|
000102f0  61 63 6b 70 65 6e 64 69  6e 67 25 3d b9 3a e1 0d  |ackpending%=.:..|
00010300  5d ac 04 0d 5d b6 26 dd  a4 66 73 69 7a 65 28 54  |]...].&..fsize(T|
00010310  24 29 3a ea 54 25 2c 73  25 3a 54 25 3d 8e 54 24  |$):.T%,s%:T%=.T$|
00010320  3a e7 54 25 3d 30 3a 3d  30 0d 5d c0 14 73 25 3d  |:.T%=0:=0.]..s%=|
00010330  a2 23 54 25 3a d9 23 54  25 3a 3d 73 25 0d 5d ca  |.#T%:.#T%:=s%.].|
00010340  05 20 0d 5d d4 11 dd a4  7a 74 73 28 54 25 29 3a  |. .]....zts(T%):|
00010350  ea 54 24 0d 5d de 1d c8  95 3f 54 25 3c 3e 30 3a  |.T$.]....?T%<>0:|
00010360  54 24 2b 3d bd 3f 54 25  3a 54 25 2b 3d 31 3a ce  |T$+=.?T%:T%+=1:.|
00010370  0d 5d e8 07 3d 54 24 0d  5d f2 04 0d 5d fc 29 dd  |.]..=T$.]...].).|
00010380  f2 6b 65 79 28 68 25 2c  69 63 6f 6e 25 2c 78 25  |.key(h%,icon%,x%|
00010390  2c 79 25 2c 63 61 72 68  25 2c 6f 66 66 25 2c 6b  |,y%,carh%,off%,k|
000103a0  65 79 25 29 0d 5e 06 0d  f2 77 74 6f 66 28 68 25  |ey%).^...wtof(h%|
000103b0  29 0d 5e 10 2c e7 66 69  6c 65 25 3e 3d 30 80 77  |).^.,.file%>=0.w|
000103c0  69 6e 64 25 3d 30 80 66  69 6c 65 25 3d 65 64 66  |ind%=0.file%=edf|
000103d0  69 6c 65 25 3a f2 65 64  6b 65 79 3a e1 0d 5e 1a  |ile%:.edkey:..^.|
000103e0  2d e7 66 69 6c 65 25 3e  3d 30 80 77 69 6e 64 25  |-.file%>=0.wind%|
000103f0  3d 33 80 66 69 6c 65 25  3d 65 64 66 69 6c 65 25  |=3.file%=edfile%|
00010400  3a f2 65 64 6b 65 79 72  3a e1 0d 5e 24 0c ea 46  |:.edkeyr:..^$..F|
00010410  25 3a 46 25 3d b9 0d 5e  2e 0b c8 8e 6b 65 79 25  |%:F%=..^....key%|
00010420  ca 0d 5e 38 13 c9 39 2c  26 31 38 41 3a f2 66 69  |..^8..9,&18A:.fi|
00010430  6e 64 63 74 0d 5e 42 1d  c9 31 33 3a f2 63 75 72  |ndct.^B..13:.cur|
00010440  73 6f 72 28 68 25 2c 69  63 6f 6e 25 2c 31 2c 30  |sor(h%,icon%,1,0|
00010450  29 0d 5e 4c 11 c9 31 39  3a f2 73 77 61 70 63 61  |).^L..19:.swapca|
00010460  73 65 0d 5e 56 22 c9 32  37 3a e7 64 69 61 6c 6f  |se.^V".27:.dialo|
00010470  67 75 65 25 3e 3d 30 f2  6e 6f 64 69 61 6c 3a 8b  |gue%>=0.nodial:.|
00010480  46 25 3d a3 0d 5e 60 23  c9 26 31 38 46 3a f2 63  |F%=..^`#.&18F:.c|
00010490  75 72 73 6f 72 28 68 25  2c 69 63 6f 6e 25 2c 2d  |ursor(h%,icon%,-|
000104a0  31 2c 6f 66 66 25 29 0d  5e 6a 22 c9 26 31 38 45  |1,off%).^j".&18E|
000104b0  3a f2 63 75 72 73 6f 72  28 68 25 2c 69 63 6f 6e  |:.cursor(h%,icon|
000104c0  25 2c 31 2c 6f 66 66 25  29 0d 5e 74 23 c9 26 31  |%,1,off%).^t#.&1|
000104d0  39 46 3a f2 63 75 72 73  6f 72 28 68 25 2c 69 63  |9F:.cursor(h%,ic|
000104e0  6f 6e 25 2c 2d 35 2c 6f  66 66 25 29 0d 5e 7e 22  |on%,-5,off%).^~"|
000104f0  c9 26 31 39 45 3a f2 63  75 72 73 6f 72 28 68 25  |.&19E:.cursor(h%|
00010500  2c 69 63 6f 6e 25 2c 35  2c 6f 66 66 25 29 0d 5e  |,icon%,5,off%).^|
00010510  88 28 c9 26 31 41 46 2c  33 30 3a f2 63 75 72 73  |.(.&1AF,30:.curs|
00010520  6f 72 28 68 25 2c 69 63  6f 6e 25 2c 2d 31 45 39  |or(h%,icon%,-1E9|
00010530  2c 6f 66 66 25 29 0d 5e  92 24 c9 26 31 41 45 3a  |,off%).^.$.&1AE:|
00010540  f2 63 75 72 73 6f 72 28  68 25 2c 69 63 6f 6e 25  |.cursor(h%,icon%|
00010550  2c 31 45 39 2c 6f 66 66  25 29 0d 5e 9c 09 7f 46  |,1E9,off%).^...F|
00010560  25 3d a3 0d 5e a6 05 cb  0d 5e b0 09 e7 46 25 3a  |%=..^....^...F%:|
00010570  e1 0d 5e ba 1c c8 99 22  57 69 6d 70 5f 50 72 6f  |..^...."Wimp_Pro|
00010580  63 65 73 73 4b 65 79 22  2c 6b 65 79 25 0d 5e c4  |cessKey",key%.^.|
00010590  05 e1 0d 5e ce 04 0d 5e  d8 0b dd f2 65 64 6b 65  |...^...^....edke|
000105a0  79 0d 5e e2 20 ea 54 25  2c 74 25 3a 54 25 3d 65  |y.^. .T%,t%:T%=e|
000105b0  64 66 69 65 6c 64 25 3a  f2 66 6f 72 6d 73 74 61  |dfield%:.formsta|
000105c0  74 0d 5e ec 27 e7 a4 76  5f 28 37 29 3d 65 64 66  |t.^.'..v_(7)=edf|
000105d0  69 65 6c 64 25 80 6b 65  79 25 3d 31 33 3a f2 65  |ield%.key%=13:.e|
000105e0  6e 64 65 64 69 74 3a e1  0d 5e f6 10 74 25 3d 30  |ndedit:..^..t%=0|
000105f0  3a c8 8e 6b 65 79 25 ca  0d 5f 00 3d c9 32 37 3a  |:..key%.._.=.27:|
00010600  f2 73 65 74 69 28 77 25  28 66 69 6c 65 25 2c 30  |.seti(w%(file%,0|
00010610  29 2c 65 64 69 63 6f 6e  25 2c a4 67 66 69 65 6c  |),edicon%,.gfiel|
00010620  64 28 65 64 66 69 65 6c  64 25 29 29 3a f2 65 6e  |d(edfield%)):.en|
00010630  64 65 64 69 74 0d 5f 0a  11 c9 31 39 3a f2 73 77  |dedit._...19:.sw|
00010640  61 70 63 61 73 65 0d 5f  14 0b c9 31 3a f2 61 64  |apcase._...1:.ad|
00010650  64 0d 5f 1e 13 c9 39 2c  26 31 38 41 3a f2 66 69  |d._...9,&18A:.fi|
00010660  6e 64 63 74 0d 5f 28 0f  c9 26 31 38 46 3a 74 25  |ndct._(..&18F:t%|
00010670  3d 2d 31 0d 5f 32 11 c9  26 31 38 45 2c 31 33 3a  |=-1._2..&18E,13:|
00010680  74 25 3d 31 0d 5f 3c 0f  c9 26 31 39 46 3a 74 25  |t%=1._<..&19F:t%|
00010690  3d 2d 35 0d 5f 46 0e c9  26 31 39 45 3a 74 25 3d  |=-5._F..&19E:t%=|
000106a0  35 0d 5f 50 16 c9 26 31  41 46 2c 33 30 3a 54 25  |5._P..&1AF,30:T%|
000106b0  3d 30 3a 74 25 3d 31 0d  5f 5a 1b c9 26 31 41 45  |=0:t%=1._Z..&1AE|
000106c0  3a 54 25 3d a4 76 5f 28  37 29 2b 31 3a 74 25 3d  |:T%=.v_(7)+1:t%=|
000106d0  2d 31 0d 5f 64 1e 7f 3a  c8 99 22 57 69 6d 70 5f  |-1._d..:.."Wimp_|
000106e0  50 72 6f 63 65 73 73 4b  65 79 22 2c 6b 65 79 25  |ProcessKey",key%|
000106f0  0d 5f 6e 17 cb 3a e7 74  25 f2 66 65 64 69 74 32  |._n..:.t%.fedit2|
00010700  28 54 25 2c 74 25 29 0d  5f 78 05 e1 0d 5f 82 04  |(T%,t%)._x..._..|
00010710  0d 5f 8c 0c dd f2 65 64  6b 65 79 72 0d 5f 96 10  |._....edkeyr._..|
00010720  ea 54 25 2c 58 25 2c 72  25 2c 49 25 0d 5f a0 24  |.T%,X%,r%,I%._.$|
00010730  f7 2b 31 3a f5 3a f3 58  25 3a 49 25 3d 49 25 84  |.+1:.:.X%:I%=I%.|
00010740  28 58 25 3d 6b 65 79 25  29 3a fd 58 25 3d 2d 31  |(X%=key%):.X%=-1|
00010750  0d 5f aa 32 dc 31 33 2c  26 31 38 46 2c 26 31 42  |._.2.13,&18F,&1B|
00010760  46 2c 26 31 38 45 2c 26  31 42 45 2c 26 31 42 43  |F,&18E,&1BE,&1BC|
00010770  2c 26 31 42 44 2c 26 31  41 46 2c 26 31 41 45 2c  |,&1BD,&1AF,&1AE,|
00010780  2d 31 0d 5f b4 35 54 25  3d 65 64 66 69 65 6c 64  |-1._.5T%=edfield|
00010790  25 3a 58 25 3d 65 64 78  25 3a 72 25 3d 65 64 72  |%:X%=edx%:r%=edr|
000107a0  65 63 25 3a c8 99 73 77  69 25 2c 67 72 65 63 5f  |ec%:..swi%,grec_|
000107b0  25 2c 72 25 b8 4e 25 0d  5f be 29 e7 49 25 3a f2  |%,r%.N%._.).I%:.|
000107c0  73 65 74 65 64 66 69 65  6c 64 31 3a 72 25 3d a4  |setedfield1:r%=.|
000107d0  76 5f 28 31 35 29 3a 65  64 72 65 63 25 3d 72 25  |v_(15):edrec%=r%|
000107e0  0d 5f c8 0b c8 8e 6b 65  79 25 ca 0d 5f d2 43 c9  |._....key%.._.C.|
000107f0  32 37 3a 58 25 3d 2d 31  3a f2 73 65 74 69 28 77  |27:X%=-1:.seti(w|
00010800  25 28 66 69 6c 65 25 2c  33 29 2c 65 64 69 63 6f  |%(file%,3),edico|
00010810  6e 25 2c a4 67 66 69 65  6c 64 28 65 64 66 69 65  |n%,.gfield(edfie|
00010820  6c 64 25 29 29 3a f2 65  6e 64 65 64 69 74 0d 5f  |ld%)):.endedit._|
00010830  dc 17 c9 31 39 3a f2 73  77 61 70 63 61 73 65 3a  |...19:.swapcase:|
00010840  58 25 3d 2d 31 0d 5f e6  19 c9 39 2c 26 31 38 41  |X%=-1._...9,&18A|
00010850  3a f2 66 69 6e 64 63 74  3a 58 25 3d 2d 31 0d 5f  |:.findct:X%=-1._|
00010860  f0 16 c9 31 33 3a c8 99  73 77 69 25 2c 64 69 72  |...13:..swi%,dir|
00010870  5f 25 2c 31 0d 5f fa 22  f2 73 72 78 6e 65 78 74  |_%,1._.".srxnext|
00010880  28 58 25 2c 54 25 2c 31  29 3a e7 58 25 3d 31 f2  |(X%,T%,1):.X%=1.|
00010890  73 64 6e 65 78 74 0d 60  04 1d c9 26 31 38 46 2c  |sdnext.`...&18F,|
000108a0  26 31 42 46 3a c8 99 73  77 69 25 2c 64 69 72 5f  |&1BF:..swi%,dir_|
000108b0  25 2c 30 0d 60 0e 0b f2  73 64 6e 65 78 74 0d 60  |%,0.`...sdnext.`|
000108c0  18 1d c9 26 31 38 45 2c  26 31 42 45 3a c8 99 73  |...&18E,&1BE:..s|
000108d0  77 69 25 2c 64 69 72 5f  25 2c 31 0d 60 22 0b f2  |wi%,dir_%,1.`"..|
000108e0  73 64 6e 65 78 74 0d 60  2c 1c c9 26 31 42 43 3a  |sdnext.`,..&1BC:|
000108f0  f2 73 72 78 6e 65 78 74  28 58 25 2c 54 25 2c 2d  |.srxnext(X%,T%,-|
00010900  31 29 0d 60 36 1b c9 26  31 42 44 3a f2 73 72 78  |1).`6..&1BD:.srx|
00010910  6e 65 78 74 28 58 25 2c  54 25 2c 31 29 0d 60 40  |next(X%,T%,1).`@|
00010920  1c c9 26 31 41 46 3a c8  99 73 77 69 25 2c 66 69  |..&1AF:..swi%,fi|
00010930  72 73 74 5f 25 b8 2c 4e  25 0d 60 4a 0b f2 73 64  |rst_%.,N%.`J..sd|
00010940  6e 65 78 74 0d 60 54 22  c9 26 31 41 45 3a c8 99  |next.`T".&1AE:..|
00010950  73 77 69 25 2c 67 72 65  63 5f 25 2c a4 76 5f 28  |swi%,grec_%,.v_(|
00010960  31 37 29 b8 4e 25 0d 60  5e 12 c8 99 73 77 69 25  |17).N%.`^...swi%|
00010970  2c 64 69 72 5f 25 2c 30  0d 60 68 15 f2 73 64 33  |,dir_%,0.`h..sd3|
00010980  35 3a e7 47 25 3a f2 73  64 6e 65 78 74 0d 60 72  |5:.G%:.sdnext.`r|
00010990  24 7f 3a 58 25 3d 2d 31  3a c8 99 22 57 69 6d 70  |$.:X%=-1:.."Wimp|
000109a0  5f 50 72 6f 63 65 73 73  4b 65 79 22 2c 6b 65 79  |_ProcessKey",key|
000109b0  25 0d 60 7c 05 cb 0d 60  86 20 e7 a4 62 61 64 72  |%.`|...`. ..badr|
000109c0  65 63 28 a4 76 5f 28 31  35 29 29 3a f2 76 61 6c  |ec(.v_(15)):.val|
000109d0  69 64 72 65 63 31 0d 60  90 20 e7 73 25 28 66 69  |idrec1.`. .s%(fi|
000109e0  6c 65 25 29 3c 3e 30 3a  f2 65 6e 64 65 64 69 74  |le%)<>0:.endedit|
000109f0  3a 58 25 3d 2d 31 0d 60  9a 1b e7 58 25 3e 30 f2  |:X%=-1.`...X%>0.|
00010a00  65 64 72 65 70 28 58 25  2c a4 76 5f 28 31 35 29  |edrep(X%,.v_(15)|
00010a10  29 0d 60 a4 1b e7 a4 76  5f 28 31 35 29 3c 3e 72  |).`....v_(15)<>r|
00010a20  25 3a f2 76 61 6c 69 64  72 65 63 31 0d 60 ae 05  |%:.validrec1.`..|
00010a30  e1 0d 60 b8 04 0d 60 c2  2c dd f2 73 77 61 70 63  |..`...`.,..swapc|
00010a40  61 73 65 3a f2 67 65 74  63 74 3a 54 25 3d 71 25  |ase:.getct:T%=q%|
00010a50  21 32 30 2b a4 69 61 28  21 71 25 2c 71 25 21 34  |!20+.ia(!q%,q%!4|
00010a60  29 0d 60 cc 33 e7 3f 54  25 3c 31 32 33 80 3f 54  |).`.3.?T%<123.?T|
00010a70  25 3e 39 36 20 3f 54 25  2d 3d 33 32 3a 8b e7 3f  |%>96 ?T%-=32:..?|
00010a80  54 25 3c 39 31 80 3f 54  25 3e 36 34 20 3f 54 25  |T%<91.?T%>64 ?T%|
00010a90  2b 3d 33 32 0d 60 d6 2a  f2 67 65 74 63 74 3a e7  |+=32.`.*.getct:.|
00010aa0  3f 54 25 3e 33 31 f2 73  65 74 63 74 28 21 71 25  |?T%>31.setct(!q%|
00010ab0  2c 71 25 21 34 2c 71 25  21 32 30 2b 31 29 0d 60  |,q%!4,q%!20+1).`|
00010ac0  e0 1f f2 67 65 74 63 74  3a f2 69 63 6f 6e 75 70  |...getct:.iconup|
00010ad0  64 28 21 71 25 2c 71 25  21 34 29 3a e1 0d 60 ea  |d(!q%,q%!4):..`.|
00010ae0  04 0d 60 f4 2b dd f2 67  65 74 63 74 3a c8 99 22  |..`.+..getct:.."|
00010af0  57 69 6d 70 5f 47 65 74  43 61 72 65 74 50 6f 73  |Wimp_GetCaretPos|
00010b00  69 74 69 6f 6e 22 2c 2c  71 25 3a e1 0d 60 fe 04  |ition",,q%:..`..|
00010b10  0d 61 08 15 dd f2 73 65  74 63 74 28 68 25 2c 69  |.a....setct(h%,i|
00010b20  25 2c 6f 25 29 0d 61 12  2b c8 99 22 57 69 6d 70  |%,o%).a.+.."Wimp|
00010b30  5f 53 65 74 43 61 72 65  74 50 6f 73 69 74 69 6f  |_SetCaretPositio|
00010b40  6e 22 2c 68 25 2c 69 25  2c 2c 2c 2d 31 2c 6f 25  |n",h%,i%,,,-1,o%|
00010b50  0d 61 1c 11 e7 69 25 3e  3d 30 f2 66 69 6e 64 63  |.a...i%>=0.findc|
00010b60  74 0d 61 26 05 e1 0d 61  30 04 0d 61 3a 14 dd a4  |t.a&...a0..a:...|
00010b70  6e 75 6d 69 28 68 25 2c  69 25 2c 62 25 29 0d 61  |numi(h%,i%,b%).a|
00010b80  44 09 f7 8d 60 6e 61 0d  61 4e 1f ea 55 25 2c 44  |D...`na.aN..U%,D|
00010b90  25 2c 4e 25 2c 54 25 2c  42 25 2c 57 25 2c 46 25  |%,N%,T%,B%,W%,F%|
00010ba0  2c 53 25 2c 56 25 0d 61  58 11 c8 95 57 25 3c 3e  |,S%,V%.aX...W%<>|
00010bb0  2d 31 80 46 25 3d a3 0d  61 62 1e f2 72 65 61 64  |-1.F%=..ab..read|
00010bc0  68 28 57 25 29 3a f3 55  25 2c 44 25 2c 4e 25 2c  |h(W%):.U%,D%,N%,|
00010bd0  54 25 2c 42 25 0d 61 6c  0b e7 57 25 3d 68 25 8c  |T%,B%.al..W%=h%.|
00010be0  0d 61 76 11 e7 69 25 3d  55 25 84 69 25 3d 44 25  |.av..i%=U%.i%=D%|
00010bf0  8c 0d 61 80 08 46 25 3d  b9 0d 61 8a 13 56 25 3d  |..a..F%=..a..V%=|
00010c00  bb 24 a4 69 61 28 57 25  2c 4e 25 29 0d 61 94 15  |.$.ia(W%,N%).a..|
00010c10  53 25 3d 31 3a e7 69 25  3d 44 25 3a 53 25 3d 2d  |S%=1:.i%=D%:S%=-|
00010c20  31 0d 61 9e 12 e7 62 25  3d 31 3a 53 25 3d 53 25  |1.a...b%=1:S%=S%|
00010c30  2a 31 30 0d 61 a8 17 56  25 2b 3d 53 25 3a e7 56  |*10.a..V%+=S%:.V|
00010c40  25 3c 42 25 3a 56 25 3d  42 25 0d 61 b2 0f e7 56  |%<B%:V%=B%.a...V|
00010c50  25 3e 54 25 56 25 3d 54  25 0d 61 bc 14 f2 73 65  |%>T%V%=T%.a...se|
00010c60  74 69 28 57 25 2c 4e 25  2c c3 56 25 29 0d 61 c6  |ti(W%,N%,.V%).a.|
00010c70  05 cd 0d 61 d0 05 cd 0d  61 da 05 ce 0d 61 e4 07  |...a....a....a..|
00010c80  3d 46 25 0d 61 ee 18 dc  77 5f 66 69 6e 66 25 2c  |=F%.a...w_finf%,|
00010c90  33 2c 34 2c 32 2c 32 35  35 2c 31 0d 61 f8 1b dc  |3,4,2,255,1.a...|
00010ca0  77 5f 66 69 6e 66 25 2c  31 38 2c 32 31 2c 32 30  |w_finf%,18,21,20|
00010cb0  2c 32 35 35 2c 31 0d 62  02 19 dc 77 5f 66 69 6e  |,255,1.b...w_fin|
00010cc0  66 25 2c 31 34 2c 31 35  2c 31 33 2c 36 2c 31 0d  |f%,14,15,13,6,1.|
00010cd0  62 0c 1b dc 77 5f 6c 61  62 65 6c 25 2c 31 30 2c  |b...w_label%,10,|
00010ce0  31 33 2c 31 32 2c 39 39  2c 31 0d 62 16 19 dc 77  |13,12,99,1.b...w|
00010cf0  5f 6c 61 62 65 6c 25 2c  35 2c 37 2c 34 31 2c 39  |_label%,5,7,41,9|
00010d00  39 2c 31 0d 62 20 1a dc  77 5f 6c 61 62 65 6c 25  |9,1.b ..w_label%|
00010d10  2c 34 32 2c 34 2c 32 33  2c 39 39 2c 31 0d 62 2a  |,42,4,23,99,1.b*|
00010d20  1a dc 77 5f 6c 61 62 65  6c 25 2c 31 34 2c 31 36  |..w_label%,14,16|
00010d30  2c 36 2c 39 39 2c 31 0d  62 34 20 dc 77 5f 6c 61  |,6,99,1.b4 .w_la|
00010d40  62 65 6c 25 2c 31 38 2c  32 30 2c 31 35 2c 6d 61  |bel%,18,20,15,ma|
00010d50  78 61 63 72 25 2c 31 0d  62 3e 1b dc 77 5f 6c 61  |xacr%,1.b>..w_la|
00010d60  62 65 6c 25 2c 32 32 2c  32 34 2c 31 39 2c 39 39  |bel%,22,24,19,99|
00010d70  2c 31 0d 62 48 1b dc 77  5f 6c 61 62 65 6c 25 2c  |,1.bH..w_label%,|
00010d80  34 37 2c 34 39 2c 34 38  2c 32 30 2c 30 0d 62 52  |47,49,48,20,0.bR|
00010d90  1b dc 77 5f 6c 61 62 65  6c 25 2c 35 31 2c 35 33  |..w_label%,51,53|
00010da0  2c 35 32 2c 39 39 2c 30  0d 62 5c 1a dc 77 5f 72  |,52,99,0.b\..w_r|
00010db0  73 65 74 33 25 2c 38 2c  39 2c 37 2c 32 35 35 2c  |set3%,8,9,7,255,|
00010dc0  31 30 0d 62 66 1b dc 77  5f 72 73 65 74 33 25 2c  |10.bf..w_rset3%,|
00010dd0  31 31 2c 31 33 2c 31 32  2c 39 39 2c 30 0d 62 70  |11,13,12,99,0.bp|
00010de0  1c dc 77 5f 72 73 65 74  33 25 2c 31 35 2c 31 37  |..w_rset3%,15,17|
00010df0  2c 31 36 2c 32 35 35 2c  31 0d 62 7a 1b dc 77 5f  |,16,255,1.bz..w_|
00010e00  72 73 65 74 33 25 2c 32  37 2c 32 35 2c 32 36 2c  |rset3%,27,25,26,|
00010e10  39 39 2c 36 0d 62 84 1b  dc 77 5f 72 73 65 74 33  |99,6.b...w_rset3|
00010e20  25 2c 32 31 2c 32 33 2c  32 32 2c 39 39 2c 36 0d  |%,21,23,22,99,6.|
00010e30  62 8e 1a dc 77 5f 63 6f  6c 25 2c 31 33 2c 31 34  |b...w_col%,13,14|
00010e40  2c 31 30 2c 32 30 30 2c  31 0d 62 98 18 dc 77 5f  |,10,200,1.b...w_|
00010e50  63 6f 6c 25 2c 31 38 2c  32 30 2c 31 39 2c 36 2c  |col%,18,20,19,6,|
00010e60  30 0d 62 a2 1c dc 77 5f  63 73 69 7a 65 25 2c 35  |0.b...w_csize%,5|
00010e70  36 2c 35 38 2c 35 37 2c  32 35 35 2c 31 0d 62 ac  |6,58,57,255,1.b.|
00010e80  1c dc 77 5f 63 73 69 7a  65 25 2c 36 30 2c 36 32  |..w_csize%,60,62|
00010e90  2c 36 31 2c 32 35 35 2c  31 0d 62 b6 19 dc 2d 31  |,61,255,1.b...-1|
00010ea0  2c 2d 31 2c 2d 31 2c 2d  31 2c 2d 31 2c 2d 31 2c  |,-1,-1,-1,-1,-1,|
00010eb0  2d 31 0d 62 c0 04 0d 62  ca 19 dd f2 63 75 72 73  |-1.b...b....curs|
00010ec0  6f 72 28 68 25 2c 69 25  2c 73 25 2c 6f 25 29 0d  |or(h%,i%,s%,o%).|
00010ed0  62 d4 09 f7 8d 70 52 63  0d 62 de 0d ea 57 25 2c  |b....pRc.b...W%,|
00010ee0  54 24 2c 49 25 0d 62 e8  0c c8 95 57 25 3c 3e 2d  |T$,I%.b....W%<>-|
00010ef0  31 0d 62 f2 17 f2 72 65  61 64 68 28 57 25 29 3a  |1.b...readh(W%):|
00010f00  e7 57 25 3c 3e 68 25 8c  0d 62 fc 1d e7 57 25 3c  |.W%<>h%..b...W%<|
00010f10  3e 2d 31 3a f5 3a f3 57  25 3a fd 57 25 3c 2d 31  |>-1:.:.W%:.W%<-1|
00010f20  3a 57 25 3d 30 0d 63 06  05 cc 0d 63 10 05 f5 0d  |:W%=0.c....c....|
00010f30  63 1a 19 f3 57 25 3a e7  57 25 3c 3e 2d 31 3a 54  |c...W%:.W%<>-1:T|
00010f40  24 2b 3d bd 28 57 25 29  0d 63 24 12 fd 57 25 3c  |$+=.(W%).c$..W%<|
00010f50  2d 31 3a 54 24 3d c0 54  24 29 0d 63 2e 3b e7 6b  |-1:T$=.T$).c.;.k|
00010f60  65 79 25 3d 31 33 3a e7  97 c2 54 24 29 3d 69 25  |ey%=13:...T$)=i%|
00010f70  3a 6d 69 25 3d 94 28 57  25 2b 31 30 30 29 3a 6d  |:mi%=.(W%+100):m|
00010f80  62 25 3d 31 3a 6d 68 25  3d 68 25 3a f2 73 65 6c  |b%=1:mh%=h%:.sel|
00010f90  65 63 74 3a e1 0d 63 38  2f e7 73 25 3d 31 45 39  |ect:..c8/.s%=1E9|
00010fa0  3a 73 25 3d a9 54 24 3a  8b e7 73 25 3d 2d 31 45  |:s%=.T$:..s%=-1E|
00010fb0  39 3a 73 25 3d 31 3a 8b  73 25 2b 3d a7 54 24 2c  |9:s%=1:.s%+=.T$,|
00010fc0  bd 69 25 29 0d 63 42 16  c8 95 73 25 3e a9 54 24  |.i%).cB...s%>.T$|
00010fd0  3a 73 25 2d 3d a9 54 24  3a ce 0d 63 4c 14 c8 95  |:s%-=.T$:..cL...|
00010fe0  73 25 3c 31 3a 73 25 2b  3d a9 54 24 3a ce 0d 63  |s%<1:s%+=.T$:..c|
00010ff0  56 0f 49 25 3d 97 c1 54  24 2c 73 25 29 0d 63 60  |V.I%=..T$,s%).c`|
00011000  23 e7 6f 25 3e a9 24 a4  69 61 28 68 25 2c 49 25  |#.o%>.$.ia(h%,I%|
00011010  29 6f 25 3d a9 24 a4 69  61 28 68 25 2c 49 25 29  |)o%=.$.ia(h%,I%)|
00011020  0d 63 6a 14 f2 73 65 74  63 74 28 68 25 2c 49 25  |.cj..setct(h%,I%|
00011030  2c 6f 25 29 0d 63 74 05  cd 0d 63 7e 05 ce 0d 63  |,o%).ct...c~...c|
00011040  88 05 e1 0d 63 92 1a dc  77 5f 65 78 70 72 25 2c  |....c...w_expr%,|
00011050  31 37 2c 65 78 69 30 25  2c 2d 31 32 33 0d 63 9c  |17,exi0%,-123.c.|
00011060  15 dc 77 5f 6e 75 6d 73  25 2c 32 2c 33 2c 2d 31  |..w_nums%,2,3,-1|
00011070  30 35 0d 63 a6 22 dc 77  5f 66 69 6e 66 25 2c 35  |05.c.".w_finf%,5|
00011080  2c 65 78 69 30 25 2c 31  33 2c 65 78 69 31 25 2c  |,exi0%,13,exi1%,|
00011090  2d 31 31 39 0d 63 b0 18  dc 77 5f 72 6c 69 6e 6b  |-119.c...w_rlink|
000110a0  25 2c 31 2c 33 2c 35 2c  2d 31 30 38 0d 63 ba 14  |%,1,3,5,-108.c..|
000110b0  dc 77 5f 73 72 73 65 74  25 2c 33 2c 2d 31 30 36  |.w_srset%,3,-106|
000110c0  0d 63 c4 29 dc 77 5f 6c  61 62 65 6c 25 2c 34 38  |.c.).w_label%,48|
000110d0  2c 31 32 2c 34 31 2c 32  33 2c 36 2c 35 32 2c 31  |,12,41,23,6,52,1|
000110e0  35 2c 31 39 2c 2d 31 32  38 0d 63 ce 14 dc 77 5f  |5,19,-128.c...w_|
000110f0  6f 70 65 6e 25 2c 31 34  2c 2d 31 31 32 0d 63 d8  |open%,14,-112.c.|
00011100  18 dc 77 5f 70 61 73 73  77 25 2c 35 2c 31 2c 32  |..w_passw%,5,1,2|
00011110  2c 2d 31 30 33 0d 63 e2  34 dc 77 5f 77 6f 72 64  |,-103.c.4.w_word|
00011120  25 2c 30 2c 31 2c 32 2c  33 2c 34 2c 35 2c 36 2c  |%,0,1,2,3,4,5,6,|
00011130  37 2c 38 2c 39 2c 31 30  2c 31 31 2c 31 32 2c 31  |7,8,9,10,11,12,1|
00011140  33 2c 31 34 2c 2d 31 34  32 0d 63 ec 13 dc 77 5f  |3,14,-142.c...w_|
00011150  73 6f 72 74 25 2c 32 2c  2d 31 30 36 0d 63 f6 25  |sort%,2,-106.c.%|
00011160  dc 77 5f 70 64 72 69 76  65 25 2c 37 2c 38 2c 39  |.w_pdrive%,7,8,9|
00011170  2c 31 30 2c 31 31 2c 31  32 2c 31 33 2c 2d 31 31  |,10,11,12,13,-11|
00011180  38 0d 64 00 1a dc 77 5f  72 73 65 74 31 25 2c 31  |8.d...w_rset1%,1|
00011190  2c 32 2c 33 2c 34 2c 2d  31 30 35 0d 64 0a 1e dc  |,2,3,4,-105.d...|
000111a0  77 5f 72 73 65 74 32 25  2c 34 32 2c 34 33 2c 34  |w_rset2%,42,43,4|
000111b0  34 2c 34 35 2c 2d 31 30  30 0d 64 14 20 dc 77 5f  |4,45,-100.d. .w_|
000111c0  72 73 65 74 33 25 2c 37  2c 31 32 2c 31 36 2c 32  |rset3%,7,12,16,2|
000111d0  36 2c 32 32 2c 2d 31 30  30 0d 64 1e 1c dc 77 5f  |6,22,-100.d...w_|
000111e0  63 6f 6c 25 2c 32 32 2c  32 34 2c 31 30 2c 31 39  |col%,22,24,10,19|
000111f0  2c 2d 31 34 32 0d 64 28  18 dc 77 5f 63 73 69 7a  |,-142.d(..w_csiz|
00011200  65 25 2c 36 31 2c 35 37  2c 2d 31 36 34 0d 64 32  |e%,61,57,-164.d2|
00011210  2b dc 77 5f 69 6d 70 75  6c 73 65 25 2c 31 31 2c  |+.w_impulse%,11,|
00011220  31 32 2c 31 34 2c 31 35  2c 31 36 2c 31 37 2c 31  |12,14,15,16,17,1|
00011230  38 2c 39 2c 2d 31 30 37  0d 64 3c 13 dc 77 5f 73  |8,9,-107.d<..w_s|
00011240  61 76 65 25 2c 32 2c 2d  31 30 30 0d 64 46 19 dc  |ave%,2,-100.dF..|
00011250  22 77 25 28 66 69 6c 65  25 2c 31 29 22 2c 37 2c  |"w%(file%,1)",7,|
00011260  2d 31 30 35 0d 64 50 46  dc 22 77 25 28 66 69 6c  |-105.dPF."w%(fil|
00011270  65 25 2c 36 29 22 2c 30  2c 31 2c 32 2c 33 2c 34  |e%,6)",0,1,2,3,4|
00011280  2c 35 2c 36 2c 37 2c 38  2c 39 2c 31 30 2c 31 31  |,5,6,7,8,9,10,11|
00011290  2c 31 32 2c 31 33 2c 31  34 2c 31 35 2c 31 36 2c  |,12,13,14,15,16,|
000112a0  31 37 2c 31 38 2c 2d 31  30 30 0d 64 5a 67 dc 22  |17,18,-100.dZg."|
000112b0  77 25 28 66 69 6c 65 25  2c 37 29 22 2c 30 2c 31  |w%(file%,7)",0,1|
000112c0  2c 32 2c 33 2c 34 2c 35  2c 36 2c 37 2c 38 2c 39  |,2,3,4,5,6,7,8,9|
000112d0  2c 31 30 2c 31 31 2c 31  32 2c 31 33 2c 31 34 2c  |,10,11,12,13,14,|
000112e0  31 35 2c 31 36 2c 31 37  2c 31 38 2c 31 39 2c 32  |15,16,17,18,19,2|
000112f0  30 2c 32 31 2c 32 32 2c  32 33 2c 32 34 2c 32 35  |0,21,22,23,24,25|
00011300  2c 32 36 2c 32 37 2c 32  38 2c 32 39 2c 2d 31 30  |,26,27,28,29,-10|
00011310  30 0d 64 64 07 dc 2d 31  0d 64 6e 04 0d 64 78 11  |0.dd..-1.dn..dx.|
00011320  dd f2 72 65 61 64 68 28  f8 20 54 25 29 0d 64 82  |..readh(. T%).d.|
00011330  2d ea 54 24 3a f3 54 24  3a e7 66 69 6c 65 25 3c  |-.T$:.T$:.file%<|
00011340  30 80 a7 54 24 2c 22 66  69 6c 65 25 22 29 54 25  |0..T$,"file%")T%|
00011350  3d 31 3a 8b 54 25 3d a0  54 24 0d 64 8c 05 e1 0d  |=1:.T%=.T$.d....|
00011360  64 96 04 0d 64 a0 0e dd  a4 6c 65 61 66 28 54 24  |d...d....leaf(T$|
00011370  29 0d 64 aa 0a ea 49 25  2c 43 25 0d 64 b4 24 e7  |).d...I%,C%.d.$.|
00011380  28 28 a7 54 24 2c 22 2e  22 29 3d 30 29 80 28 a7  |((.T$,".")=0).(.|
00011390  54 24 2c 22 3a 22 29 3d  30 29 29 8c 3d 54 24 0d  |T$,":")=0)).=T$.|
000113a0  64 be 0c 49 25 3d a9 28  54 24 29 0d 64 c8 05 f5  |d..I%=.(T$).d...|
000113b0  0d 64 d2 11 43 25 3d 97  c1 54 24 2c 49 25 2c 31  |.d..C%=..T$,I%,1|
000113c0  29 0d 64 dc 09 49 25 2d  3d 31 0d 64 e6 1c fd 28  |).d..I%-=1.d...(|
000113d0  49 25 3c 3d 30 84 43 25  3d 97 22 2e 22 84 43 25  |I%<=0.C%=.".".C%|
000113e0  3d 97 22 3a 22 29 0d 64  f0 1a e7 49 25 3e 30 8c  |=.":").d...I%>0.|
000113f0  3d c2 54 24 2c a9 28 54  24 29 2d 49 25 2d 31 29  |=.T$,.(T$)-I%-1)|
00011400  0d 64 fa 07 3d 54 24 0d  65 04 04 0d 65 0e 33 dd  |.d..=T$.e...e.3.|
00011410  f2 77 65 78 74 28 68 25  2c 78 25 2c 79 25 29 3a  |.wext(h%,x%,y%):|
00011420  21 71 25 3d 30 3a 71 25  21 34 3d 2d 79 25 3a 71  |!q%=0:q%!4=-y%:q|
00011430  25 21 38 3d 78 25 3a 71  25 21 31 32 3d 30 0d 65  |%!8=x%:q%!12=0.e|
00011440  18 27 c8 99 22 57 69 6d  70 5f 53 65 74 45 78 74  |.'.."Wimp_SetExt|
00011450  65 6e 74 22 2c 68 25 2c  71 25 3a f2 66 6f 72 63  |ent",h%,q%:.forc|
00011460  65 28 68 25 29 0d 65 22  15 f2 67 65 74 77 28 68  |e(h%).e"..getw(h|
00011470  25 29 3a e7 6f 70 65 6e  25 8c 0d 65 2c 1f e7 78  |%):.open%..e,..x|
00011480  31 25 2d 78 30 25 3e 78  25 3a 78 25 2b 3d 78 30  |1%-x0%>x%:x%+=x0|
00011490  25 3a 8b 78 25 3d 78 31  25 0d 65 36 21 e7 79 31  |%:.x%=x1%.e6!.y1|
000114a0  25 2d 79 30 25 3e 79 25  3a 79 25 3d 79 31 25 2d  |%-y0%>y%:y%=y1%-|
000114b0  79 25 3a 8b 79 25 3d 79  30 25 0d 65 40 2e f2 6f  |y%:.y%=y0%.e@..o|
000114c0  70 65 6e 28 68 25 2c 78  30 25 2c 79 25 2c 78 25  |pen(h%,x0%,y%,x%|
000114d0  2c 79 31 25 2c 73 63 78  25 2c 73 63 79 25 2c 62  |,y1%,scx%,scy%,b|
000114e0  68 61 6e 64 6c 65 25 29  0d 65 4a 05 cd 0d 65 54  |handle%).eJ...eT|
000114f0  05 e1 0d 65 5e 04 0d 65  68 0d dd f2 70 72 6f 63  |...e^..eh...proc|
00011500  65 73 73 0d 65 72 2f e7  64 69 61 6c 72 65 61 73  |ess.er/.dialreas|
00011510  6f 6e 25 3e 3d 30 84 64  69 61 6c 6f 67 75 65 25  |on%>=0.dialogue%|
00011520  3e 3d 30 84 61 63 6b 70  65 6e 64 69 6e 67 25 3e  |>=0.ackpending%>|
00011530  30 e1 0d 65 7c 0f c8 8e  70 72 6f 63 65 73 73 25  |0..e|...process%|
00011540  ca 0d 65 86 11 c9 31 3a  f2 63 68 65 63 6b 70 72  |..e...1:.checkpr|
00011550  6f 74 0d 65 90 54 c9 32  3a f2 73 74 6f 70 28 31  |ot.e.T.2:.stop(1|
00011560  2c 22 50 6c 65 61 73 65  20 70 6c 61 63 65 20 6f  |,"Please place o|
00011570  72 69 67 69 6e 61 6c 22  2c 22 4d 75 6c 74 69 53  |riginal","MultiS|
00011580  74 6f 72 65 20 64 69 73  6b 20 69 6e 20 64 72 69  |tore disk in dri|
00011590  76 65 20 3a 30 22 2c 2d  31 29 3a 70 72 6f 63 65  |ve :0",-1):proce|
000115a0  73 73 25 2b 3d 31 0d 65  9a 11 c9 33 3a f2 63 68  |ss%+=1.e...3:.ch|
000115b0  65 63 6b 70 72 6f 74 0d  65 a4 11 c9 34 3a f2 73  |eckprot.e...4:.s|
000115c0  74 61 72 74 6f 70 65 6e  0d 65 ae 19 7f 70 72 6f  |tartopen.e...pro|
000115d0  63 65 73 73 25 3d 30 3a  f2 6e 65 77 64 65 6c 61  |cess%=0:.newdela|
000115e0  79 0d 65 b8 05 cb 0d 65  c2 05 e1 0d 65 cc 04 0d  |y.e....e....e...|
000115f0  65 d6 15 dd f2 64 72 61  67 69 63 6f 6e 28 68 25  |e....dragicon(h%|
00011600  2c 69 25 29 0d 65 e0 22  ea 78 25 2c 79 25 2c 79  |,i%).e.".x%,y%,y|
00011610  73 25 2c 74 78 30 25 2c  74 79 30 25 2c 74 78 31  |s%,tx0%,ty0%,tx1|
00011620  25 2c 74 79 31 25 0d 65  ea 2c f2 67 65 74 77 28  |%,ty1%.e.,.getw(|
00011630  68 25 29 3a 79 73 25 3d  79 31 25 2d 79 30 25 3a  |h%):ys%=y1%-y0%:|
00011640  78 25 3d 62 78 25 3a 79  25 3d 79 30 25 2d 73 63  |x%=bx%:y%=y0%-sc|
00011650  79 25 0d 65 f4 31 f2 67  65 74 69 28 68 25 2c 69  |y%.e.1.geti(h%,i|
00011660  25 29 3a 71 25 21 38 2b  3d 78 25 3a 71 25 21 31  |%):q%!8+=x%:q%!1|
00011670  32 2b 3d 79 25 2b 79 73  25 3a 71 25 21 31 36 2b  |2+=y%+ys%:q%!16+|
00011680  3d 78 25 0d 65 fe 30 71  25 21 32 30 2b 3d 79 25  |=x%.e.0q%!20+=y%|
00011690  2b 79 73 25 3a 71 25 21  32 34 3d 30 3a 71 25 21  |+ys%:q%!24=0:q%!|
000116a0  32 38 3d 30 3a 21 71 25  3d 30 3a f2 64 72 61 67  |28=0:!q%=0:.drag|
000116b0  35 3a e1 0d 66 08 04 0d  66 12 3c dd f2 64 72 61  |5:..f...f.<..dra|
000116c0  67 35 3a f2 72 65 61 64  70 6f 69 6e 74 65 72 3a  |g5:.readpointer:|
000116d0  f2 73 63 72 73 7a 3a 74  78 30 25 3d 6d 78 25 2d  |.scrsz:tx0%=mx%-|
000116e0  71 25 21 38 3a 74 79 30  25 3d 6d 79 25 2d 71 25  |q%!8:ty0%=my%-q%|
000116f0  21 31 32 0d 66 1c 3d 71  25 21 32 34 2d 3d 74 78  |!12.f.=q%!24-=tx|
00011700  30 25 3a 71 25 21 32 38  2d 3d 74 79 30 25 3a 71  |0%:q%!28-=ty0%:q|
00011710  25 21 33 32 2b 3d 71 25  21 31 36 2d 6d 78 25 3a  |%!32+=q%!16-mx%:|
00011720  71 25 21 33 36 2b 3d 71  25 21 32 30 2d 6d 79 25  |q%!36+=q%!20-my%|
00011730  0d 66 26 21 71 25 21 34  3d 35 3a c8 99 22 57 69  |.f&!q%!4=5:.."Wi|
00011740  6d 70 5f 44 72 61 67 42  6f 78 22 2c 2c 71 25 3a  |mp_DragBox",,q%:|
00011750  e1 0d 66 30 04 0d 66 3a  1a dd a4 6c 6f 77 65 72  |..f0..f:...lower|
00011760  28 54 24 29 3a e7 54 24  3d 22 22 3a 3d 22 22 0d  |(T$):.T$="":="".|
00011770  66 44 0a ea 49 25 2c 43  25 0d 66 4e 19 e3 49 25  |fD..I%,C%.fN..I%|
00011780  3d 31 b8 a9 54 24 3a 43  25 3d 97 c1 54 24 2c 49  |=1..T$:C%=..T$,I|
00011790  25 29 0d 66 58 22 e7 43  25 3e 36 34 80 43 25 3c  |%).fX".C%>64.C%<|
000117a0  39 31 c1 54 24 2c 49 25  2c 31 29 3d bd 28 43 25  |91.T$,I%,1)=.(C%|
000117b0  2b 33 32 29 0d 66 62 09  ed 3a 3d 54 24 0d 66 6c  |+32).fb..:=T$.fl|
000117c0  04 0d 66 76 0e dd f2 77  74 6f 66 28 54 25 29 0d  |..fv...wtof(T%).|
000117d0  66 80 0a ea 49 25 2c 4a  25 0d 66 8a 15 77 69 6e  |f...I%,J%.f..win|
000117e0  64 25 3d 2d 31 3a 66 69  6c 65 25 3d 2d 31 0d 66  |d%=-1:file%=-1.f|
000117f0  94 0f e3 49 25 3d 30 b8  6d 61 78 66 25 0d 66 9e  |...I%=0.maxf%.f.|
00011800  0f e3 4a 25 3d 30 b8 6d  61 78 77 25 0d 66 a8 34  |..J%=0.maxw%.f.4|
00011810  e7 77 25 28 49 25 2c 4a  25 29 3d 54 25 3a 66 69  |.w%(I%,J%)=T%:fi|
00011820  6c 65 25 3d 49 25 3a 77  69 6e 64 25 3d 4a 25 3a  |le%=I%:wind%=J%:|
00011830  f2 73 64 66 69 6c 65 28  66 69 6c 65 25 29 3a e1  |.sdfile(file%):.|
00011840  0d 66 b2 05 ed 0d 66 bc  07 ed 3a e1 0d 66 c6 04  |.f....f...:..f..|
00011850  0d 66 d0 2d dd a4 66 6f  72 6d 68 61 6e 64 28 54  |.f.-..formhand(T|
00011860  25 29 3a e7 66 25 28 54  25 29 3e 30 3a 3d 66 25  |%):.f%(T%)>0:=f%|
00011870  28 54 25 29 3a 8b 3d 68  25 28 54 25 29 0d 66 da  |(T%):.=h%(T%).f.|
00011880  04 0d 66 e4 0a dd f2 66  65 78 74 0d 66 ee 0a ea  |..f....fext.f...|
00011890  78 25 2c 79 25 0d 66 f8  31 79 25 3d a4 68 74 2a  |x%,y%.f.1y%=.ht*|
000118a0  6c 69 6e 65 67 61 70 25  2b 6d 61 72 67 69 6e 25  |linegap%+margin%|
000118b0  2a 32 3a e7 79 25 3c 70  61 6e 65 68 25 79 25 3d  |*2:.y%<paneh%y%=|
000118c0  70 61 6e 65 68 25 0d 67  02 29 78 25 3d a4 77 64  |paneh%.g.)x%=.wd|
000118d0  2a 31 36 2b 6d 61 72 67  69 6e 25 2a 32 3a e7 78  |*16+margin%*2:.x|
000118e0  25 3c 32 32 2a 31 36 78  25 3d 32 32 2a 31 36 0d  |%<22*16x%=22*16.|
000118f0  67 0c 1e f2 77 65 78 74  28 77 25 28 66 69 6c 65  |g...wext(w%(file|
00011900  25 2c 30 29 2c 78 25 2c  79 25 29 3a e1 0d 67 16  |%,0),x%,y%):..g.|
00011910  04 0d 67 20 1b dd f2 72  65 78 74 3a e7 77 25 28  |..g ...rext:.w%(|
00011920  66 69 6c 65 25 2c 33 29  3c 3d 30 e1 0d 67 2a 17  |file%,3)<=0..g*.|
00011930  ea 58 25 2c 59 25 3a c8  8e 72 25 28 66 69 6c 65  |.X%,Y%:..r%(file|
00011940  25 29 ca 0d 67 34 23 c9  30 3a 58 25 3d a4 77 64  |%)..g4#.0:X%=.wd|
00011950  3a 59 25 3d a4 69 6e 74  28 a4 72 68 74 2a a4 76  |:Y%=.int(.rht*.v|
00011960  5f 28 31 37 29 29 0d 67  3e 1a c9 31 3a 58 25 3d  |_(17)).g>..1:X%=|
00011970  32 35 35 3a 59 25 3d a4  76 5f 28 31 37 29 2b 34  |255:Y%=.v_(17)+4|
00011980  0d 67 48 18 c9 32 3a 58  25 3d 32 35 35 3a 59 25  |.gH..2:X%=255:Y%|
00011990  3d a4 76 5f 28 31 37 29  0d 67 52 21 c9 33 3a 59  |=.v_(17).gR!.3:Y|
000119a0  25 3d 6c 6c 25 28 66 69  6c 65 25 2c 33 29 3a 58  |%=ll%(file%,3):X|
000119b0  25 3d a4 6c 77 69 64 74  68 0d 67 5c 15 c9 34 2c  |%=.lwidth.g\..4,|
000119c0  35 3a 58 25 3d 32 35 35  3a 59 25 3d 31 35 0d 67  |5:X%=255:Y%=15.g|
000119d0  66 05 cb 0d 67 70 0f e7  58 25 3c 32 34 58 25 3d  |f...gp..X%<24X%=|
000119e0  32 34 0d 67 7a 3c f2 77  65 78 74 28 77 25 28 66  |24.gz<.wext(w%(f|
000119f0  69 6c 65 25 2c 33 29 2c  58 25 2a 31 36 2b 6d 61  |ile%,3),X%*16+ma|
00011a00  72 67 69 6e 25 2a 32 2c  59 25 2a 6c 69 6e 65 67  |rgin%*2,Y%*lineg|
00011a10  61 70 25 2b 6d 61 72 67  69 6e 25 2a 32 29 0d 67  |ap%+margin%*2).g|
00011a20  84 05 e1 0d 67 8e 04 0d  67 98 1f dd a4 72 68 74  |....g...g....rht|
00011a30  3a ea 54 25 3a 54 25 3d  a4 68 74 3a 3d 54 25 2d  |:.T%:T%=.ht:=T%-|
00011a40  28 54 25 3e 31 29 0d 67  a2 26 dd a4 68 74 3a c8  |(T%>1).g.&..ht:.|
00011a50  99 73 77 69 25 2c 73 64  35 37 5f 25 2c 22 68 65  |.swi%,sd57_%,"he|
00011a60  69 67 68 74 22 2c 73 64  24 b8 47 25 0d 67 ac 25  |ight",sd$.G%.g.%|
00011a70  dd a4 77 64 3a c8 99 73  77 69 25 2c 73 64 35 37  |..wd:..swi%,sd57|
00011a80  5f 25 2c 22 77 69 64 74  68 22 2c 73 64 24 b8 47  |_%,"width",sd$.G|
00011a90  25 0d 67 b6 16 f2 73 64  66 69 6c 65 28 66 69 6c  |%.g...sdfile(fil|
00011aa0  65 25 29 3a 3d 47 25 0d  67 c0 04 0d 67 ca 20 dd  |e%):=G%.g...g. .|
00011ab0  a4 69 6e 74 28 74 29 3a  e7 94 74 3e 32 45 39 3a  |.int(t):..t>2E9:|
00011ac0  3d b4 74 2a 32 45 39 3a  8b 3d 74 0d 67 d4 04 0d  |=.t*2E9:.=t.g...|
00011ad0  67 de 10 dd f2 73 64 66  69 6c 65 28 54 25 29 0d  |g....sdfile(T%).|
00011ae0  67 e8 30 ea 47 25 3a 66  69 6c 65 25 3d 54 25 3a  |g.0.G%:file%=T%:|
00011af0  73 64 24 3d c3 a4 66 6f  72 6d 68 61 6e 64 28 54  |sd$=..formhand(T|
00011b00  25 29 3a 73 64 66 24 3d  c3 68 25 28 54 25 29 0d  |%):sdf$=.h%(T%).|
00011b10  67 f2 24 c8 99 73 77 69  25 2c 66 69 6c 65 5f 25  |g.$..swi%,file_%|
00011b20  2c 73 64 66 24 3a c8 99  73 77 69 25 2c 73 64 31  |,sdf$:..swi%,sd1|
00011b30  33 5f 25 0d 67 fc 05 e1  0d 68 06 04 0d 68 10 25  |3_%.g....h...h.%|
00011b40  dd f2 66 6f 72 6d 73 74  61 74 3a c8 99 73 77 69  |..formstat:..swi|
00011b50  25 2c 73 64 31 33 5f 25  2c 30 2c 73 64 24 b8 47  |%,sd13_%,0,sd$.G|
00011b60  25 0d 68 1a 05 e1 0d 68  24 04 0d 68 2e 2a dd a4  |%.h....h$..h.*..|
00011b70  62 61 64 72 65 63 28 54  25 29 3a 3d 28 54 25 80  |badrec(T%):=(T%.|
00011b80  26 37 46 46 46 46 46 30  30 29 3d 26 37 46 46 46  |&7FFFFF00)=&7FFF|
00011b90  46 46 30 30 0d 68 38 04  0d 68 42 18 dd f2 76 61  |FF00.h8..hB...va|
00011ba0  6c 69 64 72 65 63 31 3a  f2 76 72 28 a3 2c b9 29  |lidrec1:.vr(.,.)|
00011bb0  0d 68 4c 18 dd f2 76 61  6c 69 64 72 65 63 32 3a  |.hL...validrec2:|
00011bc0  f2 76 72 28 b9 2c a3 29  0d 68 56 17 dd f2 76 61  |.vr(.,.).hV...va|
00011bd0  6c 69 64 72 65 63 3a f2  76 72 28 b9 2c b9 29 0d  |lidrec:.vr(.,.).|
00011be0  68 60 05 e1 0d 68 6a 04  0d 68 74 0f dd f2 76 72  |h`...hj..ht...vr|
00011bf0  28 54 25 2c 55 25 29 0d  68 7e 29 f2 73 64 33 35  |(T%,U%).h~).sd35|
00011c00  3a e7 47 25 3a e7 ac a4  6f 6b 63 61 72 64 3a f2  |:.G%:...okcard:.|
00011c10  6e 65 77 63 61 72 64 28  54 25 2c 55 25 29 3a e1  |newcard(T%,U%):.|
00011c20  0d 68 88 05 f5 0d 68 92  13 e7 a4 66 6c 67 28 66  |.h....h....flg(f|
00011c30  5f 6d 61 63 62 25 29 8c  0d 68 9c 16 f2 62 6d 61  |_macb%)..h...bma|
00011c40  63 72 6f 3a f2 73 64 33  35 3a e7 47 25 8c 0d 68  |cro:.sd35:.G%..h|
00011c50  a6 26 e7 ac a4 6f 6b 63  61 72 64 3a f2 6e 65 77  |.&...okcard:.new|
00011c60  63 61 72 64 28 54 25 2c  55 25 29 3a e1 3a 8b 47  |card(T%,U%):.:.G|
00011c70  25 3d 2d 31 0d 68 b0 05  cd 0d 68 ba 05 cd 0d 68  |%=-1.h....h....h|
00011c80  c4 09 fd 47 25 3d 30 0d  68 ce 13 f2 6e 65 77 63  |...G%=0.h...newc|
00011c90  61 72 64 28 54 25 2c 55  25 29 0d 68 d8 05 e1 0d  |ard(T%,U%).h....|
00011ca0  68 e2 04 0d 68 ec 1b dd  f2 76 61 6c 69 64 61 74  |h...h....validat|
00011cb0  65 72 65 63 3a f2 76 72  72 28 b9 29 3a e1 0d 68  |erec:.vrr(.):..h|
00011cc0  f6 1c dd f2 76 61 6c 69  64 61 74 65 72 65 63 31  |....validaterec1|
00011cd0  3a f2 76 72 72 28 a3 29  3a e1 0d 69 00 04 0d 69  |:.vrr(.):..i...i|
00011ce0  0a 1b dd f2 76 72 72 28  54 25 29 3a f2 73 64 33  |....vrr(T%):.sd3|
00011cf0  35 3a e7 47 25 3d 30 3a  e1 0d 69 14 0f f2 76 72  |5:.G%=0:..i...vr|
00011d00  28 54 25 2c b9 29 3a e1  0d 69 1e 04 0d 69 28 10  |(T%,.):..i...i(.|
00011d10  dd f2 72 65 76 61 6c 69  64 61 74 65 0d 69 32 34  |..revalidate.i24|
00011d20  e7 73 25 28 66 69 6c 65  25 29 3d 31 73 25 28 66  |.s%(file%)=1s%(f|
00011d30  69 6c 65 25 29 3d 30 3a  f2 76 61 6c 69 64 72 65  |ile%)=0:.validre|
00011d40  63 32 3a 8b f2 76 61 6c  69 64 61 74 65 72 65 63  |c2:..validaterec|
00011d50  0d 69 3c 0f f2 66 6f 72  63 65 72 65 70 3a e1 0d  |.i<..forcerep:..|
00011d60  69 46 04 0d 69 50 0c dd  a4 6f 6b 63 61 72 64 0d  |iF..iP...okcard.|
00011d70  69 5a 07 ea 67 25 0d 69  64 23 ea 85 3a ee 85 ea  |iZ..g%.id#..:...|
00011d80  3a f7 85 3a f2 63 68 65  63 6b 73 75 62 73 65 74  |:..:.checksubset|
00011d90  3a f2 65 72 72 28 33 32  29 0d 69 6e 0a 2a 66 78  |:.err(32).in.*fx|
00011da0  32 32 39 0d 69 78 05 f5  0d 69 82 0c f2 76 61 6c  |229.ix...i...val|
00011db0  69 64 72 31 0d 69 8c 32  e7 a4 62 61 64 72 65 63  |idr1.i.2..badrec|
00011dc0  28 a4 76 5f 28 31 35 29  29 67 25 3d 30 3a 8b f2  |(.v_(15))g%=0:..|
00011dd0  73 64 33 35 3a 67 25 3d  47 25 3a e7 47 25 3a f2  |sd35:g%=G%:.G%:.|
00011de0  73 64 6e 65 78 74 0d 69  96 12 fd 67 25 3d 30 3a  |sdnext.i...g%=0:|
00011df0  2a 66 78 32 32 39 2c 31  0d 69 a0 29 3d ac 28 a4  |*fx229,1.i.)=.(.|
00011e00  62 61 64 72 65 63 28 a4  76 5f 28 31 35 29 29 80  |badrec(.v_(15)).|
00011e10  a4 62 61 64 72 65 63 28  a4 76 5f 28 31 34 29 29  |.badrec(.v_(14))|
00011e20  29 0d 69 aa 04 0d 69 b4  0d dd f2 76 61 6c 69 64  |).i...i....valid|
00011e30  72 31 0d 69 be 19 44 25  3d a4 76 5f 28 31 34 29  |r1.i..D%=.v_(14)|
00011e40  3a 4e 25 3d a4 76 5f 28  31 35 29 0d 69 c8 0f e7  |:N%=.v_(15).i...|
00011e50  44 25 3d 30 84 4e 25 3d  30 8c 0d 69 d2 16 c8 99  |D%=0.N%=0..i....|
00011e60  73 77 69 25 2c 66 69 72  73 74 5f 25 b8 2c 4e 25  |swi%,first_%.,N%|
00011e70  0d 69 dc 21 f2 73 64 6e  65 78 74 3a 44 25 3d a4  |.i.!.sdnext:D%=.|
00011e80  76 5f 28 31 34 29 3a 4e  25 3d a4 76 5f 28 31 35  |v_(14):N%=.v_(15|
00011e90  29 0d 69 e6 05 cd 0d 69  f0 13 e7 ac a4 62 61 64  |).i....i.....bad|
00011ea0  72 65 63 28 44 25 29 3a  e1 0d 69 fa 11 e7 a4 62  |rec(D%):..i....b|
00011eb0  61 64 72 65 63 28 4e 25  29 8c 0d 6a 04 0d c8 8e  |adrec(N%)..j....|
00011ec0  20 4e 25 80 31 20 ca 0d  6a 0e 07 c9 20 31 0d 6a  | N%.1 ..j... 1.j|
00011ed0  18 16 c8 99 73 77 69 25  2c 66 69 72 73 74 5f 25  |....swi%,first_%|
00011ee0  b8 2c 4e 25 0d 6a 22 21  f2 73 64 6e 65 78 74 3a  |.,N%.j"!.sdnext:|
00011ef0  44 25 3d a4 76 5f 28 31  34 29 3a 4e 25 3d a4 76  |D%=.v_(14):N%=.v|
00011f00  5f 28 31 35 29 0d 6a 2c  07 c9 20 30 0d 6a 36 1c  |_(15).j,.. 0.j6.|
00011f10  c8 99 73 77 69 25 2c 67  72 65 63 5f 25 2c a4 76  |..swi%,grec_%,.v|
00011f20  5f 28 31 37 29 b8 4e 25  0d 6a 40 12 c8 99 73 77  |_(17).N%.j@...sw|
00011f30  69 25 2c 64 69 72 5f 25  2c 30 0d 6a 4a 14 f2 73  |i%,dir_%,0.jJ..s|
00011f40  64 33 35 3a e7 47 25 f2  73 64 6e 65 78 74 0d 6a  |d35:.G%.sdnext.j|
00011f50  54 19 44 25 3d a4 76 5f  28 31 34 29 3a 4e 25 3d  |T.D%=.v_(14):N%=|
00011f60  a4 76 5f 28 31 35 29 0d  6a 5e 05 cb 0d 6a 68 30  |.v_(15).j^...jh0|
00011f70  e7 ac a4 62 61 64 72 65  63 28 4e 25 29 3a c8 99  |...badrec(N%):..|
00011f80  73 77 69 25 2c 73 64 33  30 5f 25 2c 4e 25 b8 47  |swi%,sd30_%,N%.G|
00011f90  25 3a 44 25 3d a4 76 5f  28 31 34 29 0d 6a 72 05  |%:D%=.v_(14).jr.|
00011fa0  cc 0d 6a 7c 10 e7 4e 25  3e a4 76 5f 28 31 37 29  |..j|..N%>.v_(17)|
00011fb0  8c 0d 6a 86 16 c8 99 73  77 69 25 2c 66 69 72 73  |..j....swi%,firs|
00011fc0  74 5f 25 b8 2c 4e 25 0d  6a 90 21 f2 73 64 6e 65  |t_%.,N%.j.!.sdne|
00011fd0  78 74 3a 44 25 3d a4 76  5f 28 31 34 29 3a 4e 25  |xt:D%=.v_(14):N%|
00011fe0  3d a4 76 5f 28 31 35 29  0d 6a 9a 05 cc 0d 6a a4  |=.v_(15).j....j.|
00011ff0  17 c8 99 73 77 69 25 2c  73 64 33 30 5f 25 2c 4e  |...swi%,sd30_%,N|
00012000  25 b8 47 25 0d 6a ae 05  cd 0d 6a b8 05 cd 0d 6a  |%.G%.j....j....j|
00012010  c2 05 e1 0d 6a cc 04 0d  6a d6 0a dd f2 73 64 33  |....j...j....sd3|
00012020  35 0d 6a e0 19 44 25 3d  a4 76 5f 28 31 34 29 3a  |5.j..D%=.v_(14):|
00012030  4e 25 3d a4 76 5f 28 31  35 29 0d 6a ea 15 e7 4e  |N%=.v_(15).j...N|
00012040  25 3d 30 84 44 25 3d 30  3a 47 25 3d 31 3a e1 0d  |%=0.D%=0:G%=1:..|
00012050  6a f4 11 e7 a4 62 61 64  72 65 63 28 4e 25 29 8c  |j....badrec(N%).|
00012060  0d 6a fe 1b e7 a4 62 61  64 72 65 63 28 44 25 29  |.j....badrec(D%)|
00012070  3a 47 25 3d 31 3a 8b 47  25 3d 30 0d 6b 08 05 cc  |:G%=1:.G%=0.k...|
00012080  0d 6b 12 17 c8 99 73 77  69 25 2c 73 64 33 35 5f  |.k....swi%,sd35_|
00012090  25 2c 4e 25 b8 47 25 0d  6b 1c 13 e7 47 25 3d 30  |%,N%.G%.k...G%=0|
000120a0  47 25 3d a4 66 69 6c 74  65 72 0d 6b 26 05 cd 0d  |G%=.filter.k&...|
000120b0  6b 30 05 e1 0d 6b 3a 04  0d 6b 44 29 dd a4 66 69  |k0...k:..kD)..fi|
000120c0  6c 74 65 72 3a f2 72 6c  69 6e 6b 28 a3 29 3a e7  |lter:.rlink(.):.|
000120d0  ac a4 66 6c 67 28 66 5f  66 69 6c 74 25 29 3a 3d  |..flg(f_filt%):=|
000120e0  30 0d 6b 4e 06 ea 85 0d  6b 58 1a ee 85 ea 3a f7  |0.kN....kX....:.|
000120f0  85 3a f2 6e 6f 66 69 6c  74 3a f2 65 72 72 28 38  |.:.nofilt:.err(8|
00012100  29 0d 6b 62 37 e7 a4 65  76 28 66 78 24 28 66 69  |).kb7..ev(fx$(fi|
00012110  6c 65 25 29 2c a4 66 6c  67 28 66 5f 66 73 70 63  |le%),.flg(f_fspc|
00012120  25 29 2c a4 66 6c 67 28  66 5f 66 75 70 70 25 29  |%),.flg(f_fupp%)|
00012130  29 3a 3d 30 3a 8b 3d 31  0d 6b 6c 04 0d 6b 76 0c  |):=0:.=1.kl..kv.|
00012140  dd f2 73 64 6e 65 78 74  0d 6b 80 14 c8 99 73 77  |..sdnext.k....sw|
00012150  69 25 2c 73 64 32 33 5f  25 b8 4e 25 0d 6b 8a 23  |i%,sd23_%.N%.k.#|
00012160  ea 85 3a ee 85 ea 3a f7  85 3a e7 9f 3d 31 37 3a  |..:...:..:..=17:|
00012170  47 25 3d 30 3a e1 3a 8b  f2 65 72 72 28 30 29 0d  |G%=0:.:..err(0).|
00012180  6b 94 0a 2a 66 78 32 32  39 0d 6b 9e 05 f5 0d 6b  |k..*fx229.k....k|
00012190  a8 14 c8 99 73 77 69 25  2c 6e 65 78 74 5f 25 b8  |....swi%,next_%.|
000121a0  4e 25 0d 6b b2 1b e7 a4  62 61 64 72 65 63 28 4e  |N%.k....badrec(N|
000121b0  25 29 47 25 3d 30 3a 8b  f2 73 64 33 35 0d 6b bc  |%)G%=0:..sd35.k.|
000121c0  09 fd 47 25 3d 30 0d 6b  c6 0c 2a 66 78 32 32 39  |..G%=0.k..*fx229|
000121d0  2c 31 0d 6b d0 05 e1 0d  6b da 04 0d 6b e4 1a dd  |,1.k....k...k...|
000121e0  f2 66 77 64 3a e7 a4 64  65 61 64 66 69 6c 65 28  |.fwd:..deadfile(|
000121f0  2d 31 29 3a e1 0d 6b ee  18 ea 6e 25 3a c8 99 73  |-1):..k...n%:..s|
00012200  77 69 25 2c 73 64 32 33  5f 25 b8 4e 25 0d 6b f8  |wi%,sd23_%.N%.k.|
00012210  12 c8 99 73 77 69 25 2c  64 69 72 5f 25 2c 31 0d  |...swi%,dir_%,1.|
00012220  6c 02 37 6e 25 3d 4e 25  3a f2 73 64 6e 65 78 74  |l.7n%=N%:.sdnext|
00012230  3a e7 a4 62 61 64 72 65  63 28 a4 76 5f 28 31 35  |:..badrec(.v_(15|
00012240  29 29 3a c8 99 73 77 69  25 2c 67 72 65 63 5f 25  |)):..swi%,grec_%|
00012250  2c 6e 25 b8 4e 25 0d 6c  0c 19 e7 6e 25 3c 3e a4  |,n%.N%.l...n%<>.|
00012260  76 5f 28 31 35 29 f2 76  61 6c 69 64 72 65 63 0d  |v_(15).validrec.|
00012270  6c 16 05 e1 0d 6c 20 04  0d 6c 2a 1b dd f2 66 66  |l....l ..l*...ff|
00012280  77 64 3a e7 a4 64 65 61  64 66 69 6c 65 28 2d 31  |wd:..deadfile(-1|
00012290  29 3a e1 0d 6c 34 19 61  25 28 66 69 6c 65 25 29  |):..l4.a%(file%)|
000122a0  3d 31 3a f2 6e 65 77 64  65 6c 61 79 0d 6c 3e 05  |=1:.newdelay.l>.|
000122b0  e1 0d 6c 48 04 0d 6c 52  1c dd f2 66 62 61 63 6b  |..lH..lR...fback|
000122c0  3a e7 a4 64 65 61 64 66  69 6c 65 28 2d 31 29 3a  |:..deadfile(-1):|
000122d0  e1 0d 6c 5c 23 61 25 28  66 69 6c 65 25 29 3d 32  |..l\#a%(file%)=2|
000122e0  3a f2 6e 65 77 64 65 6c  61 79 3a f2 6d 61 74 63  |:.newdelay:.matc|
000122f0  68 72 65 70 0d 6c 66 05  e1 0d 6c 70 04 0d 6c 7a  |hrep.lf...lp..lz|
00012300  0e dd f2 73 6b 69 70 28  64 25 29 0d 6c 84 27 ea  |...skip(d%).l.'.|
00012310  54 25 2c 74 25 3a 74 25  3d 61 25 28 66 69 6c 65  |T%,t%:t%=a%(file|
00012320  25 29 3a c8 99 73 77 69  25 2c 64 69 72 5f 25 2c  |%):..swi%,dir_%,|
00012330  64 25 0d 6c 8e 20 54 25  3d a4 76 5f 28 31 35 29  |d%.l. T%=.v_(15)|
00012340  3a f2 73 64 6e 65 78 74  3a f2 76 61 6c 69 64 72  |:.sdnext:.validr|
00012350  65 63 0d 6c 98 2f 61 25  28 66 69 6c 65 25 29 3d  |ec.l./a%(file%)=|
00012360  74 25 3a e7 54 25 3c 3e  a4 76 5f 28 31 35 29 3a  |t%:.T%<>.v_(15):|
00012370  f2 6e 65 77 64 65 6c 61  79 3a 8b f2 72 65 61 64  |.newdelay:..read|
00012380  79 0d 6c a2 05 e1 0d 6c  ac 04 0d 6c b6 1b dd f2  |y.l....l...l....|
00012390  62 61 63 6b 3a e7 a4 64  65 61 64 66 69 6c 65 28  |back:..deadfile(|
000123a0  2d 31 29 3a e1 0d 6c c0  18 ea 6e 25 3a c8 99 73  |-1):..l...n%:..s|
000123b0  77 69 25 2c 73 64 32 33  5f 25 b8 4e 25 0d 6c ca  |wi%,sd23_%.N%.l.|
000123c0  12 c8 99 73 77 69 25 2c  64 69 72 5f 25 2c 30 0d  |...swi%,dir_%,0.|
000123d0  6c d4 39 6e 25 3d a4 76  5f 28 31 35 29 3a f2 73  |l.9n%=.v_(15):.s|
000123e0  64 6e 65 78 74 3a e7 a4  62 61 64 72 65 63 28 a4  |dnext:..badrec(.|
000123f0  76 5f 28 31 35 29 29 3a  c8 99 73 77 69 25 2c 67  |v_(15)):..swi%,g|
00012400  72 65 63 5f 25 2c 6e 25  0d 6c de 1a e7 6e 25 3c  |rec_%,n%.l...n%<|
00012410  3e a4 76 5f 28 31 35 29  3a f2 76 61 6c 69 64 72  |>.v_(15):.validr|
00012420  65 63 0d 6c e8 05 e1 0d  6c f2 04 0d 6c fc 1a dd  |ec.l....l...l...|
00012430  f2 62 6f 66 3a e7 a4 64  65 61 64 66 69 6c 65 28  |.bof:..deadfile(|
00012440  2d 31 29 3a e1 0d 6d 06  12 c8 99 73 77 69 25 2c  |-1):..m....swi%,|
00012450  66 69 72 73 74 5f 25 0d  6d 10 17 f2 73 64 6e 65  |first_%.m...sdne|
00012460  78 74 3a f2 76 61 6c 69  64 72 65 63 3a e1 0d 6d  |xt:.validrec:..m|
00012470  1a 04 0d 6d 24 14 dd f2  70 61 75 73 65 3a f2 72  |...m$...pause:.r|
00012480  65 61 64 79 3a e1 0d 6d  2e 04 0d 6d 38 1a dd f2  |eady:..m...m8...|
00012490  65 6f 66 3a e7 a4 64 65  61 64 66 69 6c 65 28 2d  |eof:..deadfile(-|
000124a0  31 29 3a e1 0d 6d 42 19  c8 99 73 77 69 25 2c 67  |1):..mB...swi%,g|
000124b0  72 65 63 5f 25 2c a4 76  5f 28 31 37 29 0d 6d 4c  |rec_%,.v_(17).mL|
000124c0  0f f2 76 61 6c 69 64 72  65 63 3a e1 0d 6d 56 04  |..validrec:..mV.|
000124d0  0d 6d 60 1e dd f2 63 61  72 64 6e 75 6d 3a e7 a4  |.m`...cardnum:..|
000124e0  64 65 61 64 66 69 6c 65  28 2d 31 29 3a e1 0d 6d  |deadfile(-1):..m|
000124f0  6a 11 c8 99 73 77 69 25  2c 73 64 32 33 5f 25 0d  |j...swi%,sd23_%.|
00012500  6d 74 12 f2 63 68 65 63  6b 73 75 62 73 65 74 3a  |mt..checksubset:|
00012510  e1 0d 6d 7e 04 0d 6d 88  1c dd f2 67 61 75 67 65  |..m~..m....gauge|
00012520  3a e7 a4 64 65 61 64 66  69 6c 65 28 2d 31 29 3a  |:..deadfile(-1):|
00012530  e1 0d 6d 92 1d ea 54 25  2c 4d 25 3a f2 67 65 74  |..m...T%,M%:.get|
00012540  77 28 77 25 28 66 69 6c  65 25 2c 31 29 29 0d 6d  |w(w%(file%,1)).m|
00012550  9c 19 4d 25 3d a4 76 5f  28 31 36 29 3a 52 25 3d  |..M%=.v_(16):R%=|
00012560  a4 76 5f 28 31 37 29 0d  6d a6 32 54 25 3d 28 4d  |.v_(17).m.2T%=(M|
00012570  25 2b 28 4d 25 3e 30 29  29 2a 28 6d 78 25 2d 78  |%+(M%>0))*(mx%-x|
00012580  30 25 29 2f 28 33 32 36  2d 36 29 2b 31 3a e7 54  |0%)/(326-6)+1:.T|
00012590  25 3e 52 25 54 25 3d 52  25 0d 6d b0 14 c8 99 73  |%>R%T%=R%.m....s|
000125a0  77 69 25 2c 73 64 32 33  5f 25 b8 4e 25 0d 6d ba  |wi%,sd23_%.N%.m.|
000125b0  0b e7 54 25 3d 4e 25 e1  0d 6d c4 17 c8 99 73 77  |..T%=N%..m....sw|
000125c0  69 25 2c 67 72 65 63 5f  25 2c 54 25 b8 4e 25 0d  |i%,grec_%,T%.N%.|
000125d0  6d ce 0f f2 76 61 6c 69  64 72 65 63 3a e1 0d 6d  |m...validrec:..m|
000125e0  d8 04 0d 6d e2 1c dd f2  66 66 69 6e 64 3a e7 a4  |...m....ffind:..|
000125f0  64 65 61 64 66 69 6c 65  28 2d 31 29 3a e1 0d 6d  |deadfile(-1):..m|
00012600  ec 32 ea 54 24 3a 54 24  3d 24 a4 69 61 28 77 25  |.2.T$:T$=$.ia(w%|
00012610  28 66 69 6c 65 25 2c 31  29 2c 37 29 3a f2 73 74  |(file%,1),7):.st|
00012620  72 69 70 28 54 24 29 3a  e7 54 24 3d 22 22 3a e1  |rip(T$):.T$="":.|
00012630  0d 6d f6 2a e7 a7 54 24  2c 22 3d 22 29 3d 30 80  |.m.*..T$,"=")=0.|
00012640  bb c1 54 24 2c 32 29 3e  30 80 28 97 54 24 3d 33  |..T$,2)>0.(.T$=3|
00012650  35 84 97 54 24 3d 36 34  29 8c 0d 6e 00 0a c8 8e  |5..T$=64)..n....|
00012660  97 54 24 ca 0d 6e 0a 1d  c9 33 35 3a c8 99 73 77  |.T$..n...35:..sw|
00012670  69 25 2c 67 72 65 63 5f  25 2c bb c1 54 24 2c 32  |i%,grec_%,..T$,2|
00012680  29 0d 6e 14 1f c9 36 34  3a c8 99 73 77 69 25 2c  |).n...64:..swi%,|
00012690  6c 6f 63 61 74 65 5f 25  2c bb c1 54 24 2c 32 29  |locate_%,..T$,2)|
000126a0  0d 6e 1e 05 cb 0d 6e 28  0f f2 76 61 6c 69 64 72  |.n....n(..validr|
000126b0  65 63 3a e1 0d 6e 32 05  cd 0d 6e 3c 1d 73 24 28  |ec:..n2...n<.s$(|
000126c0  66 69 6c 65 25 29 3d 54  24 3a f2 64 75 70 28 54  |file%)=T$:.dup(T|
000126d0  24 2c 30 29 3a e1 0d 6e  46 04 0d 6e 50 0c dd f2  |$,0):..nF..nP...|
000126e0  66 66 6f 75 6e 64 0d 6e  5a 22 f2 73 65 74 69 28  |ffound.nZ".seti(|
000126f0  77 25 28 66 69 6c 65 25  2c 31 29 2c 37 2c 73 24  |w%(file%,1),7,s$|
00012700  28 66 69 6c 65 25 29 29  0d 6e 64 2e e7 ac a4 62  |(file%)).nd....b|
00012710  61 64 72 65 63 28 a4 76  5f 28 31 35 29 29 3a f2  |adrec(.v_(15)):.|
00012720  63 68 65 63 6b 73 75 62  73 65 74 3a 8b f2 76 61  |checksubset:..va|
00012730  6c 69 64 72 65 63 0d 6e  6e 05 e1 0d 6e 78 04 0d  |lidrec.nn...nx..|
00012740  6e 82 20 dd f2 6e 65 78  74 6d 61 74 63 68 3a e7  |n. ..nextmatch:.|
00012750  a4 64 65 61 64 66 69 6c  65 28 2d 31 29 3a e1 0d  |.deadfile(-1):..|
00012760  6e 8c 16 ea 54 24 3a e7  73 24 28 66 69 6c 65 25  |n...T$:.s$(file%|
00012770  29 3d 22 22 8c 0d 6e 96  15 c8 99 73 77 69 25 2c  |)=""..n....swi%,|
00012780  67 66 69 65 6c 64 5f 25  2c 31 0d 6e a0 12 c8 99  |gfield_%,1.n....|
00012790  73 77 69 25 2c 73 74 72  69 70 5f 25 0d 6e aa 12  |swi%,strip_%.n..|
000127a0  c8 99 73 77 69 25 2c 75  70 70 65 72 5f 25 0d 6e  |..swi%,upper_%.n|
000127b0  b4 12 73 24 28 66 69 6c  65 25 29 3d 24 73 64 25  |..s$(file%)=$sd%|
000127c0  0d 6e be 05 cd 0d 6e c8  23 54 24 3d 73 24 28 66  |.n....n.#T$=s$(f|
000127d0  69 6c 65 25 29 3a f2 64  75 70 28 54 24 2c a4 76  |ile%):.dup(T$,.v|
000127e0  5f 28 31 34 29 29 3a e1  0d 6e d2 04 0d 6e dc 29  |_(14)):..n...n.)|
000127f0  dd f2 64 75 70 31 28 54  24 2c 54 25 29 3a ea 66  |..dup1(T$,T%):.f|
00012800  24 2c 74 24 2c 49 25 2c  64 25 3a 64 25 3d a4 76  |$,t$,I%,d%:d%=.v|
00012810  5f 28 31 34 29 0d 6e e6  21 f2 73 74 72 69 70 28  |_(14).n.!.strip(|
00012820  54 24 29 3a 49 25 3d a7  54 24 2c 22 3d 22 29 3a  |T$):I%=.T$,"="):|
00012830  e7 49 25 3e 30 8c 0d 6e  f0 1d 74 24 3d c0 54 24  |.I%>0..n..t$=.T$|
00012840  2c 49 25 2d 31 29 3a 54  24 3d c1 54 24 2c 49 25  |,I%-1):T$=.T$,I%|
00012850  2b 31 29 0d 6e fa 19 e7  a7 74 24 2c 22 7b 22 29  |+1).n....t$,"{")|
00012860  3e 30 80 c2 74 24 29 3d  22 7d 22 8c 0d 6f 04 1e  |>0..t$)="}"..o..|
00012870  66 24 3d c1 74 24 2c a7  74 24 2c 22 7b 22 29 2b  |f$=.t$,.t$,"{")+|
00012880  31 29 3a 66 24 3d c0 66  24 29 0d 6f 0e 16 74 24  |1):f$=.f$).o..t$|
00012890  3d c0 74 24 2c a7 74 24  2c 22 7b 22 29 2d 31 29  |=.t$,.t$,"{")-1)|
000128a0  0d 6f 18 05 cd 0d 6f 22  05 cd 0d 6f 2c 2e 66 24  |.o....o"...o,.f$|
000128b0  2b 3d 6d 24 28 66 69 6c  65 25 29 3a c8 99 73 77  |+=m$(file%):..sw|
000128c0  69 25 2c 73 65 65 6b 5f  25 2c 54 24 2c 54 25 2c  |i%,seek_%,T$,T%,|
000128d0  74 24 2c 66 24 b8 47 25  0d 6f 36 30 e7 47 25 3d  |t$,f$.G%.o60.G%=|
000128e0  30 3a e7 64 25 3e 30 3a  e7 ac a4 62 61 64 72 65  |0:.d%>0:...badre|
000128f0  63 28 64 25 29 3a c8 99  73 77 69 25 2c 6c 6f 63  |c(d%):..swi%,loc|
00012900  61 74 65 5f 25 2c 64 25  0d 6f 40 05 e1 0d 6f 4a  |ate_%,d%.o@...oJ|
00012910  04 0d 6f 54 1d dd f2 64  75 70 28 54 24 2c 54 25  |..oT...dup(T$,T%|
00012920  29 3a f2 64 75 70 31 28  54 24 2c 54 25 29 0d 6f  |):.dup1(T$,T%).o|
00012930  5e 12 e7 47 25 3d 30 3a  f2 65 72 72 28 33 36 29  |^..G%=0:.err(36)|
00012940  0d 6f 68 0d f2 66 66 6f  75 6e 64 3a e1 0d 6f 72  |.oh..ffound:..or|
00012950  04 0d 6f 7c 11 dd f2 63  68 65 63 6b 73 75 62 73  |..o|...checksubs|
00012960  65 74 0d 6f 86 14 c8 99  73 77 69 25 2c 73 64 32  |et.o....swi%,sd2|
00012970  33 5f 25 b8 4e 25 0d 6f  90 0e f2 73 64 33 35 3a  |3_%.N%.o...sd35:|
00012980  e7 47 25 8c 0d 6f 9a 24  f2 66 6c 67 30 28 66 5f  |.G%..o.$.flg0(f_|
00012990  66 69 6c 74 25 29 3a c8  99 73 77 69 25 2c 73 75  |filt%):..swi%,su|
000129a0  62 73 65 74 5f 25 2c 30  0d 6f a4 30 e7 77 25 28  |bset_%,0.o.0.w%(|
000129b0  66 69 6c 65 25 2c 30 29  3e 30 f2 73 68 6f 77 66  |file%,0)>0.showf|
000129c0  69 6c 74 65 72 3a f2 73  68 6f 77 73 75 62 3a f2  |ilter:.showsub:.|
000129d0  66 6f 72 63 65 72 65 70  0d 6f ae 05 cd 0d 6f b8  |forcerep.o....o.|
000129e0  0d f2 76 61 6c 69 64 72  65 63 0d 6f c2 05 e1 0d  |..validrec.o....|
000129f0  6f cc 04 0d 6f d6 14 dd  f2 6e 65 77 63 61 72 64  |o...o....newcard|
00012a00  28 54 25 2c 55 25 29 0d  6f e0 13 ea 66 25 2c 49  |(T%,U%).o...f%,I|
00012a10  25 3a 66 25 3d 66 69 6c  65 25 0d 6f ea 11 e7 73  |%:f%=file%.o...s|
00012a20  25 28 66 69 6c 65 25 29  3d 30 8c 0d 6f f4 29 e7  |%(file%)=0..o.).|
00012a30  28 a4 62 61 64 72 65 63  28 a4 76 5f 28 31 35 29  |(.badrec(.v_(15)|
00012a40  29 80 a4 62 61 64 72 65  63 28 a4 76 5f 28 31 34  |)..badrec(.v_(14|
00012a50  29 29 29 8c 0d 6f fe 1a  73 25 28 66 69 6c 65 25  |)))..o..s%(file%|
00012a60  29 3d 31 3a f2 66 6f 72  63 65 63 61 72 64 0d 70  |)=1:.forcecard.p|
00012a70  08 05 cc 0d 70 12 30 e7  55 25 f2 75 70 64 61 74  |....p.0.U%.updat|
00012a80  65 28 77 25 28 66 69 6c  65 25 2c 30 29 29 3a 8b  |e(w%(file%,0)):.|
00012a90  f2 66 6f 72 63 65 28 77  25 28 66 69 6c 65 25 2c  |.force(w%(file%,|
00012aa0  30 29 29 0d 70 1c 05 cd  0d 70 26 05 cd 0d 70 30  |0)).p....p&...p0|
00012ab0  11 e7 54 25 3a f2 6d 61  74 63 68 72 65 70 0d 70  |..T%:.matchrep.p|
00012ac0  3a 17 f2 73 68 6f 77 6e  75 6d 3a e7 6c 69 6e 6b  |:..shownum:.link|
00012ad0  73 25 3e 30 8c 0d 70 44  0f e3 49 25 3d 30 b8 6d  |s%>0..pD..I%=0.m|
00012ae0  61 78 66 25 0d 70 4e 3b  e7 6c 25 28 49 25 29 3d  |axf%.pN;.l%(I%)=|
00012af0  66 69 6c 65 25 2b 31 3a  f2 73 64 66 69 6c 65 28  |file%+1:.sdfile(|
00012b00  49 25 29 3a f2 6e 65 77  63 61 72 64 28 54 25 2c  |I%):.newcard(T%,|
00012b10  55 25 29 3a f2 73 64 66  69 6c 65 28 66 25 29 0d  |U%):.sdfile(f%).|
00012b20  70 58 05 ed 0d 70 62 07  cd 3a e1 0d 70 6c 04 0d  |pX...pb..:..pl..|
00012b30  70 76 10 dd f2 75 70 64  61 74 65 28 68 25 29 0d  |pv...update(h%).|
00012b40  70 80 0a 21 71 25 3d 68  25 0d 70 8a 09 c8 8e 68  |p..!q%=h%.p....h|
00012b50  25 ca 0d 70 94 2c 7f 71  25 21 34 3d 2d 31 45 39  |%..p.,.q%!4=-1E9|
00012b60  3a 71 25 21 38 3d 2d 31  45 39 3a 71 25 21 31 32  |:q%!8=-1E9:q%!12|
00012b70  3d 31 45 39 3a 71 25 21  31 36 3d 31 45 39 0d 70  |=1E9:q%!16=1E9.p|
00012b80  9e 05 cb 0d 70 a8 0e f2  72 65 64 72 61 77 28 b9  |....p...redraw(.|
00012b90  29 0d 70 b2 05 e1 0d 70  bc 04 0d 70 c6 2e dd a4  |).p....p...p....|
00012ba0  6e 6e 75 6d 73 3a ea 54  25 2c 49 25 3a e3 49 25  |nnums:.T%,I%:.I%|
00012bb0  3d 30 b8 39 3a c8 99 73  77 69 25 2c 73 64 35 33  |=0.9:..swi%,sd53|
00012bc0  5f 25 2c 49 25 b8 47 25  0d 70 d0 11 e7 24 73 64  |_%,I%.G%.p...$sd|
00012bd0  25 3e 22 22 54 25 2b 3d  31 0d 70 da 09 ed 3a 3d  |%>""T%+=1.p...:=|
00012be0  54 25 0d 70 e4 04 0d 70  ee 2d dd a4 73 75 62 6d  |T%.p...p.-..subm|
00012bf0  61 78 28 73 25 29 3a c8  99 73 77 69 25 2c 73 64  |ax(s%):..swi%,sd|
00012c00  35 33 5f 25 2c 73 25 b8  47 25 3a e7 47 25 3d 30  |53_%,s%.G%:.G%=0|
00012c10  3a 3d 30 0d 71 02 1e c8  95 28 47 25 80 31 29 3d  |:=0.q....(G%.1)=|
00012c20  30 3a 47 25 3d 47 25 3e  3e 3e 31 3a ce 3a 3d 47  |0:G%=G%>>>1:.:=G|
00012c30  25 0d 71 0c 04 0d 71 16  36 dd a4 73 75 62 6e 75  |%.q...q.6..subnu|
00012c40  6d 28 54 24 29 3a ea 49  25 3a 54 24 3d a4 73 75  |m(T$):.I%:T$=.su|
00012c50  28 54 24 29 3a e7 97 54  24 3d 39 34 3a 54 24 3d  |(T$):..T$=94:T$=|
00012c60  a4 73 75 28 c1 54 24 2c  32 29 29 0d 71 20 30 e7  |.su(.T$,2)).q 0.|
00012c70  a9 54 24 3d 31 80 97 54  24 3e 36 35 80 c1 a4 73  |.T$=1..T$>65...s|
00012c80  75 62 73 74 72 2c 97 54  24 2d 36 35 2c 31 29 3d  |ubstr,.T$-65,1)=|
00012c90  22 2e 22 3a 3d 97 54 24  2d 36 35 0d 71 2a 1f e3  |".":=.T$-65.q*..|
00012ca0  49 25 3d 30 b8 39 3a c8  99 73 77 69 25 2c 73 64  |I%=0.9:..swi%,sd|
00012cb0  35 33 5f 25 2c 49 25 b8  47 25 0d 71 34 12 c8 99  |53_%,I%.G%.q4...|
00012cc0  73 77 69 25 2c 75 70 70  65 72 5f 25 0d 71 3e 14  |swi%,upper_%.q>.|
00012cd0  e7 24 73 64 25 3d 54 24  3a 3d 49 25 2b 32 35 36  |.$sd%=T$:=I%+256|
00012ce0  0d 71 48 09 ed 3a 3d 2d  31 0d 71 52 04 0d 71 5c  |.qH..:=-1.qR..q\|
00012cf0  1d dd a4 73 75 62 73 74  72 3a c8 99 73 77 69 25  |...substr:..swi%|
00012d00  2c 73 64 35 33 5f 25 b8  47 25 0d 71 66 0e 3d 24  |,sd53_%.G%.qf.=$|
00012d10  28 73 64 25 2b 31 36 29  0d 71 70 04 0d 71 7a 25  |(sd%+16).qp..qz%|
00012d20  dd a4 73 75 62 6e 61 6d  65 28 73 25 29 3a c8 99  |..subname(s%):..|
00012d30  73 77 69 25 2c 73 64 35  33 5f 25 2c 73 25 b8 47  |swi%,sd53_%,s%.G|
00012d40  25 0d 71 84 09 3d 24 73  64 25 0d 71 8e 04 0d 71  |%.q..=$sd%.q...q|
00012d50  98 2a dd a4 73 75 62 64  65 73 63 3a ea 54 24 2c  |.*..subdesc:.T$,|
00012d60  54 25 3a 54 25 3d a4 76  5f 28 31 31 29 3a e7 54  |T%:T%=.v_(11):.T|
00012d70  25 3d 33 32 54 25 3d 30  0d 71 a2 12 3d a4 73 75  |%=32T%=0.q..=.su|
00012d80  62 64 65 73 63 31 28 54  25 29 0d 71 ac 04 0d 71  |bdesc1(T%).q...q|
00012d90  b6 12 dd a4 73 75 62 64  65 73 63 31 28 54 25 29  |....subdesc1(T%)|
00012da0  0d 71 c0 16 e7 54 25 3d  30 3a 3d 22 41 6c 6c 20  |.q...T%=0:="All |
00012db0  43 61 72 64 73 22 0d 71  ca 29 e7 54 25 3e 32 35  |Cards".q.).T%>25|
00012dc0  35 3a 3d 22 4e 75 6d 65  72 69 63 3a 20 22 2b a4  |5:="Numeric: "+.|
00012dd0  73 75 62 6e 61 6d 65 28  54 25 2d 32 35 36 29 0d  |subname(T%-256).|
00012de0  71 d4 23 54 24 3d 22 22  3a e7 54 25 3e 33 31 3a  |q.#T$="":.T%>31:|
00012df0  54 25 3d 54 25 80 33 31  3a 54 24 3d 22 4e 4f 54  |T%=T%.31:T$="NOT|
00012e00  20 22 0d 71 de 1a 3d 54  24 2b 22 53 75 62 73 65  | ".q..=T$+"Subse|
00012e10  74 20 22 2b bd 28 54 25  2b 36 35 29 0d 71 e8 04  |t "+.(T%+65).q..|
00012e20  0d 71 f2 12 dd a4 73 75  62 64 65 73 63 32 28 54  |.q....subdesc2(T|
00012e30  25 29 0d 71 fc 07 ea 54  24 0d 72 06 0a c8 8e 20  |%).q...T$.r.... |
00012e40  b9 20 ca 0d 72 10 26 c9  54 25 3d 30 84 54 25 3d  |. ..r.&.T%=0.T%=|
00012e50  33 32 3a 54 24 3d 22 41  6c 6c 20 63 61 72 64 73  |32:T$="All cards|
00012e60  20 69 6e 20 66 69 6c 65  22 0d 72 1a 10 c9 54 25  | in file".r...T%|
00012e70  3e 33 32 80 54 25 3c 36  34 0d 72 24 16 54 24 3d  |>32.T%<64.r$.T$=|
00012e80  64 24 28 66 69 6c 65 25  2c 54 25 2d 33 33 29 0d  |d$(file%,T%-33).|
00012e90  72 2e 34 e7 54 24 3d 22  22 3a 54 24 3d a4 73 75  |r.4.T$="":T$=.su|
00012ea0  62 64 65 73 63 31 28 54  25 29 3a 8b e7 a9 54 24  |bdesc1(T%):...T$|
00012eb0  3c 32 31 54 24 3d 22 4e  4f 54 28 22 2b 54 24 2b  |<21T$="NOT("+T$+|
00012ec0  22 29 22 0d 72 38 39 c9  54 25 3e 30 80 54 25 3c  |")".r89.T%>0.T%<|
00012ed0  33 32 3a 54 24 3d 64 24  28 66 69 6c 65 25 2c 54  |32:T$=d$(file%,T|
00012ee0  25 2d 31 29 3a e7 54 24  3d 22 22 3a 54 24 3d a4  |%-1):.T$="":T$=.|
00012ef0  73 75 62 64 65 73 63 31  28 54 25 29 0d 72 42 32  |subdesc1(T%).rB2|
00012f00  c9 54 25 3e 32 35 35 3a  54 24 3d 22 4e 75 6d 65  |.T%>255:T$="Nume|
00012f10  72 69 63 20 73 75 62 73  65 74 3a 20 22 2b a4 73  |ric subset: "+.s|
00012f20  75 62 6e 61 6d 65 28 54  25 2d 32 35 36 29 0d 72  |ubname(T%-256).r|
00012f30  4c 0a 7f 54 24 3d 22 22  0d 72 56 05 cb 0d 72 60  |L..T$="".rV...r`|
00012f40  07 3d 54 24 0d 72 6a 04  0d 72 74 12 dd a4 73 75  |.=T$.rj..rt...su|
00012f50  62 64 65 73 63 33 28 54  25 29 0d 72 7e 1d e7 54  |bdesc3(T%).r~..T|
00012f60  25 3e 32 35 35 3a 3d a4  73 75 62 6e 61 6d 65 28  |%>255:=.subname(|
00012f70  54 25 2d 32 35 36 29 0d  72 88 14 e7 54 25 3c 33  |T%-256).r...T%<3|
00012f80  31 3a 3d bd 28 54 25 2b  36 35 29 0d 72 92 19 3d  |1:=.(T%+65).r..=|
00012f90  22 4e 4f 54 2d 22 2b bd  28 28 54 25 80 33 31 29  |"NOT-"+.((T%.31)|
00012fa0  2b 36 35 29 0d 72 9c 04  0d 72 a6 30 dd a4 73 75  |+65).r...r.0..su|
00012fb0  62 64 65 73 63 34 28 54  25 29 3a e7 54 25 3e 32  |bdesc4(T%):.T%>2|
00012fc0  35 35 3a 3d 22 5e 22 2b  a4 73 75 62 6e 61 6d 65  |55:="^"+.subname|
00012fd0  28 54 25 2d 32 35 36 29  0d 72 b0 18 e7 54 25 3c  |(T%-256).r...T%<|
00012fe0  33 31 3a 3d 22 5e 22 2b  bd 28 54 25 2b 36 35 29  |31:="^"+.(T%+65)|
00012ff0  0d 72 ba 18 3d 22 28 5e  22 2b bd 28 54 25 2b 33  |.r..="(^"+.(T%+3|
00013000  33 29 2b 22 3d 30 29 22  0d 72 c4 04 0d 72 ce 1a  |3)+"=0)".r...r..|
00013010  dd f2 73 74 61 72 74 6f  70 65 6e 3a f2 77 61 69  |..startopen:.wai|
00013020  74 70 6f 69 6e 74 0d 72  d8 16 ea 54 24 2c 54 25  |tpoint.r...T$,T%|
00013030  3a 70 72 6f 63 65 73 73  25 2b 3d 31 0d 72 e2 22  |:process%+=1.r."|
00013040  e7 54 24 3e 22 22 3a f2  6f 70 65 6e 66 69 6c 65  |.T$>"":.openfile|
00013050  31 28 54 24 2c 30 2c 30  2c 22 22 2c 30 29 0d 72  |1(T$,0,0,"",0).r|
00013060  ec 33 54 24 3d a4 41 72  66 56 61 72 28 22 4d 75  |.3T$=.ArfVar("Mu|
00013070  6c 74 69 53 74 6f 72 65  24 46 75 6e 63 74 69 6f  |ltiStore$Functio|
00013080  6e 22 29 3a 54 25 3d a7  54 24 2c 22 3a 22 29 2b  |n"):T%=.T$,":")+|
00013090  31 0d 72 f6 0a c8 8e bb  54 24 ca 0d 73 00 0f c9  |1.r.....T$..s...|
000130a0  31 3a f2 70 64 72 69 76  65 72 0d 73 0a 2f c9 32  |1:.pdriver.s./.2|
000130b0  2c 2d 31 3a e7 a9 54 24  3e 3d 54 25 3a f2 6f 70  |,-1:..T$>=T%:.op|
000130c0  65 6e 66 69 6c 65 31 28  c1 54 24 2c 54 25 29 2c  |enfile1(.T$,T%),|
000130d0  30 2c 30 2c 22 22 2c 30  29 0d 73 14 22 c9 33 3a  |0,0,"",0).s.".3:|
000130e0  e7 a9 54 24 3e 3d 54 25  3a f2 6f 70 65 6e 66 69  |..T$>=T%:.openfi|
000130f0  6c 65 28 c1 54 24 2c 54  25 29 29 0d 73 1e 05 cb  |le(.T$,T%)).s...|
00013100  0d 73 28 1e 2a 75 6e 73  65 74 20 4d 75 6c 74 69  |.s(.*unset Multi|
00013110  53 74 6f 72 65 24 46 75  6e 63 74 69 6f 6e 0d 73  |Store$Function.s|
00013120  32 24 f2 6e 6f 72 6d 70  6f 69 6e 74 3a e7 a4 65  |2$.normpoint:..e|
00013130  76 61 6c 75 61 74 69 6f  6e 3a f2 65 72 72 28 36  |valuation:.err(6|
00013140  36 29 0d 73 3c 05 e1 0d  73 46 04 0d 73 50 0b dd  |6).s<...sF..sP..|
00013150  f2 72 65 61 64 79 0d 73  5a 1a e7 66 69 6c 65 25  |.ready.sZ..file%|
00013160  3d 65 64 66 69 6c 65 25  f2 65 6e 64 65 64 69 74  |=edfile%.endedit|
00013170  0d 73 64 12 e7 61 25 28  66 69 6c 65 25 29 3c 3d  |.sd..a%(file%)<=|
00013180  30 8c 0d 73 6e 0a c8 8e  20 b9 20 ca 0d 73 78 25  |0..sn... . ..sx%|
00013190  c9 a4 76 5f 28 31 35 29  3d 30 80 6c 25 28 66 69  |..v_(15)=0.l%(fi|
000131a0  6c 65 25 29 3c 3d 30 3a  f2 76 61 6c 69 64 72 65  |le%)<=0:.validre|
000131b0  63 0d 73 82 05 cb 0d 73  8c 05 cc 0d 73 96 10 c8  |c.s....s....s...|
000131c0  8e 61 25 28 66 69 6c 65  25 29 ca 0d 73 a0 21 c9  |.a%(file%)..s.!.|
000131d0  31 2c 32 3a 61 25 28 66  69 6c 65 25 29 3d 30 3a  |1,2:a%(file%)=0:|
000131e0  f2 76 61 6c 69 64 61 74  65 72 65 63 0d 73 aa 35  |.validaterec.s.5|
000131f0  c9 33 3a f2 73 74 6f 70  28 37 2c 22 53 65 61 72  |.3:.stop(7,"Sear|
00013200  63 68 69 6e 67 20 66 69  6c 65 20 22 2b a4 66 69  |ching file "+.fi|
00013210  6c 65 6e 61 6d 65 2c 72  69 24 2c 66 69 6c 65 25  |lename,ri$,file%|
00013220  29 0d 73 b4 22 c9 34 3a  f2 73 74 6f 70 28 39 2c  |).s.".4:.stop(9,|
00013230  a4 61 63 74 64 65 73 63  2c 72 69 24 2c 66 69 6c  |.actdesc,ri$,fil|
00013240  65 25 29 0d 73 be 25 c9  35 2c 36 3a f2 73 74 6f  |e%).s.%.5,6:.sto|
00013250  70 28 31 33 2c a4 61 63  74 64 65 73 63 2c 72 69  |p(13,.actdesc,ri|
00013260  24 2c 66 69 6c 65 25 29  0d 73 c8 23 c9 37 3a f2  |$,file%).s.#.7:.|
00013270  73 74 6f 70 28 31 36 2c  a4 61 63 74 64 65 73 63  |stop(16,.actdesc|
00013280  2c 72 69 24 2c 66 69 6c  65 25 29 0d 73 d2 23 c9  |,ri$,file%).s.#.|
00013290  38 3a f2 73 74 6f 70 28  32 33 2c a4 61 63 74 64  |8:.stop(23,.actd|
000132a0  65 73 63 2c 72 69 24 2c  66 69 6c 65 25 29 0d 73  |esc,ri$,file%).s|
000132b0  dc 23 c9 39 3a f2 73 74  6f 70 28 32 34 2c a4 61  |.#.9:.stop(24,.a|
000132c0  63 74 64 65 73 63 2c 72  69 24 2c 66 69 6c 65 25  |ctdesc,ri$,file%|
000132d0  29 0d 73 e6 24 c9 31 30  3a f2 73 74 6f 70 28 32  |).s.$.10:.stop(2|
000132e0  35 2c a4 61 63 74 64 65  73 63 2c 72 69 24 2c 66  |5,.actdesc,ri$,f|
000132f0  69 6c 65 25 29 0d 73 f0  24 c9 31 31 3a f2 73 74  |ile%).s.$.11:.st|
00013300  6f 70 28 34 30 2c a4 61  63 74 64 65 73 63 2c 72  |op(40,.actdesc,r|
00013310  69 24 2c 66 69 6c 65 25  29 0d 73 fa 05 cb 0d 74  |i$,file%).s....t|
00013320  04 05 cd 0d 74 0e 0d f2  6e 65 77 64 65 6c 61 79  |....t...newdelay|
00013330  0d 74 18 05 e1 0d 74 22  04 0d 74 2c 0d dd f2 63  |.t....t"..t,...c|
00013340  6c 6f 73 65 6f 6b 0d 74  36 2d f2 73 74 6f 70 28  |loseok.t6-.stop(|
00013350  32 2c 22 22 2c 22 43 6c  6f 73 65 20 66 69 6c 65  |2,"","Close file|
00013360  20 22 2b a4 66 69 6c 65  6e 61 6d 65 2c 66 69 6c  | "+.filename,fil|
00013370  65 25 29 0d 74 40 05 e1  0d 74 4a 04 0d 74 54 0e  |e%).t@...tJ..tT.|
00013380  dd a4 66 69 6c 65 6e 61  6d 65 0d 74 5e 14 c8 99  |..filename.t^...|
00013390  73 77 69 25 2c 73 74 61  74 5f 25 b8 47 25 0d 74  |swi%,stat_%.G%.t|
000133a0  68 15 3d c2 a4 6c 65 61  66 28 24 73 64 25 29 2c  |h.=..leaf($sd%),|
000133b0  31 30 29 0d 74 72 04 0d  74 7c 26 dd a4 6f 66 69  |10).tr..t|&..ofi|
000133c0  6c 65 6e 61 6d 65 28 49  25 29 3a e7 49 25 3c 30  |lename(I%):.I%<0|
000133d0  84 68 25 28 49 25 29 3c  31 3a 3d 22 22 0d 74 86  |.h%(I%)<1:="".t.|
000133e0  13 ea 66 25 2c 54 24 3a  66 25 3d 66 69 6c 65 25  |..f%,T$:f%=file%|
000133f0  0d 74 90 2c f2 73 64 66  69 6c 65 28 49 25 29 3a  |.t.,.sdfile(I%):|
00013400  54 24 3d a4 66 69 6c 65  6e 61 6d 65 3a f2 73 64  |T$=.filename:.sd|
00013410  66 69 6c 65 28 66 25 29  3a 3d 54 24 0d 74 9a 04  |file(f%):=T$.t..|
00013420  0d 74 a4 0c dd f2 73 77  70 61 6e 65 0d 74 ae 22  |.t....swpane.t."|
00013430  f2 66 6c 67 78 28 66 5f  70 61 6e 65 25 29 3a e7  |.flgx(f_pane%):.|
00013440  a4 66 6c 67 28 66 5f 70  61 6e 65 25 29 8c 0d 74  |.flg(f_pane%)..t|
00013450  b8 16 f2 67 65 74 77 28  77 25 28 66 69 6c 65 25  |...getw(w%(file%|
00013460  2c 30 29 29 0d 74 c2 39  f2 6f 70 65 6e 28 77 25  |,0)).t.9.open(w%|
00013470  28 66 69 6c 65 25 2c 30  29 2c 78 30 25 2c 79 30  |(file%,0),x0%,y0|
00013480  25 2c 78 31 25 2c 79 31  25 2c 73 63 78 25 2c 73  |%,x1%,y1%,scx%,s|
00013490  63 79 25 2c 62 68 61 6e  64 6c 65 25 29 0d 74 cc  |cy%,bhandle%).t.|
000134a0  05 cc 0d 74 d6 16 f2 67  65 74 77 28 77 25 28 66  |...t...getw(w%(f|
000134b0  69 6c 65 25 2c 31 29 29  0d 74 e0 41 f2 6f 70 65  |ile%,1)).t.A.ope|
000134c0  6e 28 77 25 28 66 69 6c  65 25 2c 31 29 2c 78 30  |n(w%(file%,1),x0|
000134d0  25 2c 79 31 25 2d 70 61  6e 65 68 25 2c 78 30 25  |%,y1%-paneh%,x0%|
000134e0  2b 70 61 6e 65 77 25 2c  79 31 25 2c 73 63 78 25  |+panew%,y1%,scx%|
000134f0  2c 73 63 79 25 2c 2d 32  29 0d 74 ea 18 f2 63 6c  |,scy%,-2).t...cl|
00013500  6f 73 65 77 28 77 25 28  66 69 6c 65 25 2c 31 29  |osew(w%(file%,1)|
00013510  29 0d 74 f4 05 cd 0d 74  fe 05 e1 0d 75 08 04 0d  |).t....t....u...|
00013520  75 12 33 dd f2 66 6f 72  63 65 63 61 72 64 3a f2  |u.3..forcecard:.|
00013530  66 6f 72 63 65 28 77 25  28 66 69 6c 65 25 2c 30  |force(w%(file%,0|
00013540  29 29 3a f2 66 6f 72 63  65 63 61 72 64 72 65 70  |)):.forcecardrep|
00013550  3a e1 0d 75 1c 04 0d 75  26 23 dd f2 66 6f 72 63  |:..u...u&#..forc|
00013560  65 63 61 72 64 72 65 70  3a c8 99 73 77 69 25 2c  |ecardrep:..swi%,|
00013570  73 64 32 33 5f 25 b8 4e  25 0d 75 30 1b f2 66 6f  |sd23_%.N%.u0..fo|
00013580  72 63 65 63 61 72 64 73  72 65 70 28 4e 25 2c 4e  |rcecardsrep(N%,N|
00013590  25 29 3a e1 0d 75 3a 04  0d 75 44 32 dd f2 66 6f  |%):..u:..uD2..fo|
000135a0  72 63 65 63 61 72 64 73  72 65 70 28 54 25 2c 55  |rcecardsrep(T%,U|
000135b0  25 29 3a e7 72 25 28 66  69 6c 65 25 29 3d 34 f2  |%):.r%(file%)=4.|
000135c0  66 6f 72 63 65 72 65 70  3a e1 0d 75 4e 2d e7 77  |forcerep:..uN-.w|
000135d0  25 28 66 69 6c 65 25 2c  33 29 3c 3d 30 84 72 25  |%(file%,3)<=0.r%|
000135e0  28 66 69 6c 65 25 29 3e  32 84 73 25 28 66 69 6c  |(file%)>2.s%(fil|
000135f0  65 25 29 3c 3e 30 e1 0d  75 58 21 ea 68 25 3a 68  |e%)<>0..uX!.h%:h|
00013600  25 3d 31 3a e7 72 25 28  66 69 6c 65 25 29 3d 30  |%=1:.r%(file%)=0|
00013610  3a 68 25 3d a4 72 68 74  0d 75 62 11 e7 54 25 3e  |:h%=.rht.ub..T%>|
00013620  55 25 c8 94 54 25 2c 55  25 0d 75 6c 44 74 79 31  |U%..T%,U%.ulDty1|
00013630  25 3d 2d 6d 61 72 67 69  6e 25 2d 68 25 2a 28 54  |%=-margin%-h%*(T|
00013640  25 2d 31 29 2a 6c 69 6e  65 67 61 70 25 2b 34 3a  |%-1)*linegap%+4:|
00013650  e7 72 25 28 66 69 6c 65  25 29 3d 31 3a 74 79 31  |.r%(file%)=1:ty1|
00013660  25 2d 3d 32 2a 6c 69 6e  65 67 61 70 25 0d 75 76  |%-=2*linegap%.uv|
00013670  2d 74 79 30 25 3d 74 79  31 25 2d 28 55 25 2d 54  |-ty0%=ty1%-(U%-T|
00013680  25 2b 31 29 2a 68 25 2a  6c 69 6e 65 67 61 70 25  |%+1)*h%*linegap%|
00013690  2b 31 3a 74 79 31 25 2b  3d 34 0d 75 80 34 c8 99  |+1:ty1%+=4.u.4..|
000136a0  22 57 69 6d 70 5f 46 6f  72 63 65 52 65 64 72 61  |"Wimp_ForceRedra|
000136b0  77 22 2c 77 25 28 66 69  6c 65 25 2c 33 29 2c 30  |w",w%(file%,3),0|
000136c0  2c 74 79 30 25 2c 31 45  39 2c 74 79 31 25 0d 75  |,ty0%,1E9,ty1%.u|
000136d0  8a 05 e1 0d 75 94 04 0d  75 9e 30 dd f2 66 6f 72  |....u...u.0..for|
000136e0  63 65 72 65 70 3a e7 77  25 28 66 69 6c 65 25 2c  |cerep:.w%(file%,|
000136f0  33 29 3e 30 f2 66 6f 72  63 65 28 77 25 28 66 69  |3)>0.force(w%(fi|
00013700  6c 65 25 2c 33 29 29 0d  75 a8 05 e1 0d 75 b2 04  |le%,3)).u....u..|
00013710  0d 75 bc 12 dd a4 64 65  61 64 66 69 6c 65 28 66  |.u....deadfile(f|
00013720  25 29 0d 75 c6 1e ea 54  25 3a 54 25 3d a4 64 65  |%).u...T%:T%=.de|
00013730  61 64 66 69 6c 65 31 28  66 25 29 3a e7 54 25 8c  |adfile1(f%):.T%.|
00013740  0d 75 d0 09 f2 62 75 7a  7a 0d 75 da 05 cc 0d 75  |.u...buzz.u....u|
00013750  e4 26 f2 72 65 61 64 79  3a 54 25 3d a4 64 65 61  |.&.ready:T%=.dea|
00013760  64 66 69 6c 65 31 28 66  25 29 3a e7 54 25 3a f2  |dfile1(f%):.T%:.|
00013770  62 75 7a 7a 0d 75 ee 05  cd 0d 75 f8 07 3d 54 25  |buzz.u....u..=T%|
00013780  0d 76 02 04 0d 76 0c 13  dd a4 64 65 61 64 66 69  |.v...v....deadfi|
00013790  6c 65 31 28 66 25 29 0d  76 16 07 ea 49 25 0d 76  |le1(f%).v...I%.v|
000137a0  20 0c e3 49 25 3d 30 b8  33 30 0d 76 2a 0f e7 66  | ..I%=0.30.v*..f|
000137b0  25 80 28 32 5e 49 25 29  8c 0d 76 34 09 c8 8e 49  |%.(2^I%)..v4...I|
000137c0  25 ca 0d 76 3e 1f c9 30  2c 31 2c 32 2c 33 3a e7  |%..v>..0,1,2,3:.|
000137d0  73 25 28 66 69 6c 65 25  29 3d 49 25 2b 31 3a 3d  |s%(file%)=I%+1:=|
000137e0  b9 0d 76 48 3b c9 34 3a  e7 61 25 28 66 69 6c 65  |..vH;.4:.a%(file|
000137f0  25 29 3c 33 80 61 25 28  66 69 6c 65 25 29 3e 30  |%)<3.a%(file%)>0|
00013800  3a f2 72 65 61 64 79 3a  3d a3 3a 8b e7 61 25 28  |:.ready:=.:..a%(|
00013810  66 69 6c 65 25 29 3c 3e  30 3a 3d b9 0d 76 52 14  |file%)<>0:=..vR.|
00013820  c9 35 3a e7 a4 76 5f 28  31 35 29 3d 30 3a 3d b9  |.5:..v_(15)=0:=.|
00013830  0d 76 5c 23 c9 36 3a e7  61 25 28 66 69 6c 65 25  |.v\#.6:.a%(file%|
00013840  29 3c 3e 38 80 61 25 28  66 69 6c 65 25 29 3e 32  |)<>8.a%(file%)>2|
00013850  3a 3d b9 0d 76 66 16 c9  37 3a e7 6c 25 28 66 69  |:=..vf..7:.l%(fi|
00013860  6c 65 25 29 3e 30 3a 3d  b9 0d 76 70 05 cb 0d 76  |le%)>0:=..vp...v|
00013870  7a 05 cd 0d 76 84 05 ed  0d 76 8e 06 3d a3 0d 76  |z...v....v..=..v|
00013880  98 04 0d 76 a2 2a dd a4  6d 61 63 6d 6f 64 65 3d  |...v.*..macmode=|
00013890  66 6c 25 28 66 69 6c 65  25 29 80 28 66 5f 6d 61  |fl%(file%).(f_ma|
000138a0  63 62 25 84 66 5f 6d 61  63 65 25 29 0d 76 ac 04  |cb%.f_mace%).v..|
000138b0  0d 76 b6 1f dd a4 64 65  66 6f 6e 3d 28 a4 68 64  |.v....defon=(.hd|
000138c0  62 79 74 65 31 28 32 39  29 80 36 34 29 3e 30 0d  |byte1(29).64)>0.|
000138d0  76 c0 04 0d 76 ca 28 dd  a4 68 64 62 79 74 65 28  |v...v.(..hdbyte(|
000138e0  54 25 29 3a c8 99 73 77  69 25 2c 73 64 31 33 5f  |T%):..swi%,sd13_|
000138f0  25 2c 54 25 2c 73 64 24  b8 47 25 0d 76 d4 25 dd  |%,T%,sd$.G%.v.%.|
00013900  a4 68 64 62 79 74 65 31  28 54 25 29 3a c8 99 73  |.hdbyte1(T%):..s|
00013910  77 69 25 2c 73 64 31 33  5f 25 2c 54 25 b8 47 25  |wi%,sd13_%,T%.G%|
00013920  0d 76 de 07 3d 47 25 0d  76 e8 04 0d 76 f2 0d dd  |.v..=G%.v...v...|
00013930  f2 73 77 6d 61 63 72 6f  0d 76 fc 3b e7 a4 6d 61  |.swmacro.v.;..ma|
00013940  63 6d 6f 64 65 3a f2 66  6c 67 30 28 66 5f 6d 61  |cmode:.flg0(f_ma|
00013950  63 62 25 29 3a f2 66 6c  67 30 28 66 5f 6d 61 63  |cb%):.flg0(f_mac|
00013960  65 25 29 3a 8b f2 66 6c  67 31 28 66 5f 6d 61 63  |e%):..flg1(f_mac|
00013970  65 25 29 0d 77 06 0e f2  73 68 6f 77 6d 61 63 3a  |e%).w...showmac:|
00013980  e1 0d 77 10 04 0d 77 1a  0f dd f2 73 77 64 65 66  |..w...w....swdef|
00013990  61 75 6c 74 0d 77 24 0d  e7 a4 64 65 66 6f 6e 20  |ault.w$...defon |
000139a0  8c 0d 77 2e 1a c8 99 73  77 69 25 2c 64 65 66 61  |..w....swi%,defa|
000139b0  75 6c 74 5f 25 2c 22 4f  66 66 22 0d 77 38 05 cc  |ult_%,"Off".w8..|
000139c0  0d 77 42 19 c8 99 73 77  69 25 2c 64 65 66 61 75  |.wB...swi%,defau|
000139d0  6c 74 5f 25 2c 22 4f 6e  22 0d 77 4c 05 cd 0d 77  |lt_%,"On".wL...w|
000139e0  56 05 e1 0d 77 60 04 0d  77 6a 0e dd f2 69 6e 69  |V...w`..wj...ini|
000139f0  74 73 6f 72 74 0d 77 74  30 77 5f 73 6f 72 74 25  |tsort.wt0w_sort%|
00013a00  3d a4 63 72 77 69 6e 64  28 74 77 5f 73 6f 72 74  |=.crwind(tw_sort|
00013a10  25 29 3a f2 73 64 66 69  6c 65 28 6d 65 6e 75 66  |%):.sdfile(menuf|
00013a20  69 6c 65 25 29 0d 77 7e  16 f2 75 6e 73 65 6c 61  |ile%).w~..unsela|
00013a30  6c 6c 28 77 5f 73 6f 72  74 25 29 0d 77 88 2b f2  |ll(w_sort%).w.+.|
00013a40  73 65 74 69 28 77 5f 73  6f 72 74 25 2c 30 2c 22  |seti(w_sort%,0,"|
00013a50  53 6f 72 74 20 66 69 6c  65 20 22 2b a4 66 69 6c  |Sort file "+.fil|
00013a60  65 6e 61 6d 65 29 0d 77  92 34 e7 6f 25 28 66 69  |ename).w.4.o%(fi|
00013a70  6c 65 25 2c 30 29 80 31  3a f2 73 65 6c 69 28 77  |le%,0).1:.seli(w|
00013a80  5f 73 6f 72 74 25 2c 33  29 8b f2 73 65 6c 69 28  |_sort%,3)..seli(|
00013a90  77 5f 73 6f 72 74 25 2c  34 29 0d 77 9c 23 e7 6f  |w_sort%,4).w.#.o|
00013aa0  25 28 66 69 6c 65 25 2c  30 29 80 32 3a f2 73 65  |%(file%,0).2:.se|
00013ab0  6c 69 28 77 5f 73 6f 72  74 25 2c 35 29 0d 77 a6  |li(w_sort%,5).w.|
00013ac0  1e f2 73 65 74 69 28 77  5f 73 6f 72 74 25 2c 32  |..seti(w_sort%,2|
00013ad0  2c 6f 24 28 66 69 6c 65  25 29 29 0d 77 b0 18 f2  |,o$(file%)).w...|
00013ae0  64 69 61 6c 6f 67 75 65  28 77 5f 73 6f 72 74 25  |dialogue(w_sort%|
00013af0  29 3a e1 0d 77 ba 04 0d  77 c4 1a dd f2 71 62 73  |):..w...w....qbs|
00013b00  63 61 6e 28 54 24 2c f8  20 51 25 2c f8 20 42 25  |can(T$,. Q%,. B%|
00013b10  29 0d 77 ce 2a ea 49 25  2c 54 25 3a 51 25 3d a3  |).w.*.I%,T%:Q%=.|
00013b20  3a 42 25 3d 30 3a e3 49  25 3d 31 b8 a9 54 24 3a  |:B%=0:.I%=1..T$:|
00013b30  54 25 3d 97 c1 54 24 2c  49 25 29 0d 77 d8 11 e7  |T%=..T$,I%).w...|
00013b40  54 25 3d 33 34 3a 51 25  3d ac 51 25 0d 77 e2 09  |T%=34:Q%=.Q%.w..|
00013b50  e7 ac 51 25 8c 0d 77 ec  22 e7 54 25 3d 97 22 28  |..Q%..w.".T%=."(|
00013b60  22 3a 42 25 2b 3d 31 3a  8b e7 54 25 3d 97 22 29  |":B%+=1:..T%=.")|
00013b70  22 3a 42 25 2d 3d 31 0d  77 f6 05 cd 0d 78 00 07  |":B%-=1.w....x..|
00013b80  ed 3a e1 0d 78 0a 04 0d  78 14 11 dd f2 70 74 72  |.:..x...x....ptr|
00013b90  65 78 69 74 28 68 25 29  0d 78 1e 2d e7 73 62 66  |exit(h%).x.-.sbf|
00013ba0  69 6c 65 25 3e 3d 30 3a  f2 73 75 62 64 69 73 70  |ile%>=0:.subdisp|
00013bb0  3a 73 62 66 69 6c 65 25  3d 2d 31 3a f2 6e 65 77  |:sbfile%=-1:.new|
00013bc0  64 65 6c 61 79 0d 78 28  05 e1 0d 78 32 04 0d 78  |delay.x(...x2..x|
00013bd0  3c 12 dd f2 70 74 72 65  6e 74 65 72 28 68 25 29  |<...ptrenter(h%)|
00013be0  0d 78 46 18 f2 77 74 6f  66 28 68 25 29 3a e7 66  |.xF..wtof(h%):.f|
00013bf0  69 6c 65 25 3e 3d 30 8c  0d 78 50 2d e7 77 69 6e  |ile%>=0..xP-.win|
00013c00  64 25 3d 32 3a 73 62 66  69 6c 65 25 3d 66 69 6c  |d%=2:sbfile%=fil|
00013c10  65 25 3a f2 73 75 62 64  69 73 70 3a f2 6e 65 77  |e%:.subdisp:.new|
00013c20  64 65 6c 61 79 0d 78 5a  05 cd 0d 78 64 05 e1 0d  |delay.xZ...xd...|
00013c30  78 6e 04 0d 78 78 30 dd  f2 73 75 62 64 69 73 70  |xn..xx0..subdisp|
00013c40  31 3a ea 73 62 66 69 6c  65 25 3a 73 62 66 69 6c  |1:.sbfile%:sbfil|
00013c50  65 25 3d 66 69 6c 65 25  3a f2 73 75 62 64 69 73  |e%=file%:.subdis|
00013c60  70 3a e1 0d 78 82 04 0d  78 8c 1a dd f2 73 75 62  |p:..x...x....sub|
00013c70  64 69 73 70 3a e7 73 62  66 69 6c 65 25 3c 30 3a  |disp:.sbfile%<0:|
00013c80  e1 0d 78 96 21 ea 54 24  2c 54 25 2c 43 25 3a e7  |..x.!.T$,T%,C%:.|
00013c90  77 25 28 73 62 66 69 6c  65 25 2c 32 29 3c 3d 30  |w%(sbfile%,2)<=0|
00013ca0  3a e1 0d 78 a0 1b f2 72  65 61 64 70 6f 69 6e 74  |:..x...readpoint|
00013cb0  65 72 3a f2 77 74 6f 66  28 6d 68 25 29 0d 78 aa  |er:.wtof(mh%).x.|
00013cc0  3a 54 25 3d 26 46 30 30  30 30 30 30 3a e7 77 69  |:T%=&F000000:.wi|
00013cd0  6e 64 25 3d 32 80 66 69  6c 65 25 3d 73 62 66 69  |nd%=2.file%=sbfi|
00013ce0  6c 65 25 3a 54 24 3d a4  73 75 62 64 65 73 63 32  |le%:T$=.subdesc2|
00013cf0  28 a4 69 74 6f 73 29 0d  78 b4 48 43 25 3d 26 44  |(.itos).x.HC%=&D|
00013d00  30 30 30 30 30 30 3a e7  54 24 3d 22 22 43 25 3d  |000000:.T$=""C%=|
00013d10  26 37 30 30 30 30 30 30  3a f2 73 64 66 69 6c 65  |&7000000:.sdfile|
00013d20  28 73 62 66 69 6c 65 25  29 3a 54 24 3d a4 73 75  |(sbfile%):T$=.su|
00013d30  62 64 65 73 63 32 28 a4  76 5f 28 31 31 29 29 0d  |bdesc2(.v_(11)).|
00013d40  78 be 1a f2 67 65 74 69  28 77 25 28 73 62 66 69  |x...geti(w%(sbfi|
00013d50  6c 65 25 2c 32 29 2c 30  29 0d 78 c8 30 e7 28 71  |le%,2),0).x.0.(q|
00013d60  25 21 32 34 80 54 25 29  3c 3e 43 25 3a f2 69 73  |%!24.T%)<>C%:.is|
00013d70  65 74 28 77 25 28 73 62  66 69 6c 65 25 2c 32 29  |et(w%(sbfile%,2)|
00013d80  2c 30 2c 54 25 2c 43 25  29 0d 78 d2 38 e7 54 24  |,0,T%,C%).x.8.T$|
00013d90  3c 3e 24 a4 69 61 28 77  25 28 73 62 66 69 6c 65  |<>$.ia(w%(sbfile|
00013da0  25 2c 32 29 2c 30 29 3a  f2 73 65 74 69 28 77 25  |%,2),0):.seti(w%|
00013db0  28 73 62 66 69 6c 65 25  2c 32 29 2c 30 2c 54 24  |(sbfile%,2),0,T$|
00013dc0  29 0d 78 dc 05 e1 0d 78  e6 04 0d 78 f0 0a dd f2  |).x....x...x....|
00013dd0  73 75 62 73 0d 78 fa 26  e7 77 25 28 66 69 6c 65  |subs.x.&.w%(file|
00013de0  25 2c 32 29 3c 3d 30 3a  f2 6d 61 6b 65 73 75 62  |%,2)<=0:.makesub|
00013df0  73 28 66 69 6c 65 25 29  3a e1 0d 79 04 1d f2 66  |s(file%):..y...f|
00013e00  72 6f 6e 74 28 77 25 28  66 69 6c 65 25 2c 32 29  |ront(w%(file%,2)|
00013e10  2c 2d 31 2c 2d 31 29 0d  79 0e 05 e1 0d 79 18 04  |,-1,-1).y....y..|
00013e20  0d 79 22 0c dd f2 66 69  6c 74 65 72 0d 79 2c 24  |.y"...filter.y,$|
00013e30  e7 ac a4 64 65 61 64 66  69 6c 65 28 25 31 31 31  |...deadfile(%111|
00013e40  31 31 31 31 31 31 31 31  31 31 31 31 31 30 29 8c  |11111111111110).|
00013e50  0d 79 36 1c e7 6d 62 25  3d 31 3a f2 6e 6f 66 69  |.y6..mb%=1:.nofi|
00013e60  6c 74 3a 8b f2 65 78 70  72 28 30 29 0d 79 40 05  |lt:..expr(0).y@.|
00013e70  cd 0d 79 4a 05 e1 0d 79  54 04 0d 79 5e 0d dd f2  |..yJ...yT..y^...|
00013e80  6e 6f 74 65 70 61 64 0d  79 68 27 e7 77 25 28 66  |notepad.yh'.w%(f|
00013e90  69 6c 65 25 2c 36 29 3c  3d 30 3a f2 6d 61 6b 65  |ile%,6)<=0:.make|
00013ea0  6e 6f 74 65 73 28 66 69  6c 65 25 29 3a e1 0d 79  |notes(file%):..y|
00013eb0  72 1d f2 66 72 6f 6e 74  28 77 25 28 66 69 6c 65  |r..front(w%(file|
00013ec0  25 2c 36 29 2c 2d 31 2c  2d 31 29 0d 79 7c 05 e1  |%,6),-1,-1).y|..|
00013ed0  0d 79 86 04 0d 79 90 0b  dd f2 6d 61 63 72 6f 0d  |.y...y....macro.|
00013ee0  79 9a 27 e7 77 25 28 66  69 6c 65 25 2c 37 29 3c  |y.'.w%(file%,7)<|
00013ef0  3d 30 3a f2 6d 61 6b 65  6d 61 63 72 6f 28 66 69  |=0:.makemacro(fi|
00013f00  6c 65 25 29 3a e1 0d 79  a4 1d f2 66 72 6f 6e 74  |le%):..y...front|
00013f10  28 77 25 28 66 69 6c 65  25 2c 37 29 2c 2d 31 2c  |(w%(file%,7),-1,|
00013f20  2d 31 29 0d 79 ae 05 e1  0d 79 b8 04 0d 79 c2 0d  |-1).y....y...y..|
00013f30  dd f2 72 65 70 77 69 6e  64 0d 79 cc 25 e7 77 25  |..repwind.y.%.w%|
00013f40  28 66 69 6c 65 25 2c 33  29 3c 3d 30 3a f2 6d 61  |(file%,3)<=0:.ma|
00013f50  6b 65 72 65 70 28 66 69  6c 65 25 29 3a e1 0d 79  |kerep(file%):..y|
00013f60  d6 1d f2 66 72 6f 6e 74  28 77 25 28 66 69 6c 65  |...front(w%(file|
00013f70  25 2c 33 29 2c 2d 31 2c  2d 31 29 0d 79 e0 05 e1  |%,3),-1,-1).y...|
00013f80  0d 79 ea 04 0d 79 f4 0f  dd f2 66 69 65 6c 64 6c  |.y...y....fieldl|
00013f90  69 73 74 0d 79 fe 27 e7  77 25 28 66 69 6c 65 25  |ist.y.'.w%(file%|
00013fa0  2c 34 29 3c 3d 30 3a f2  6d 61 6b 65 66 6c 69 73  |,4)<=0:.makeflis|
00013fb0  74 28 66 69 6c 65 25 29  3a e1 0d 7a 08 1d f2 66  |t(file%):..z...f|
00013fc0  72 6f 6e 74 28 77 25 28  66 69 6c 65 25 2c 34 29  |ront(w%(file%,4)|
00013fd0  2c 2d 31 2c 2d 31 29 0d  7a 12 05 e1 0d 7a 1c 04  |,-1,-1).z....z..|
00013fe0  0d 7a 26 0b dd f2 69 6e  64 65 78 0d 7a 30 27 e7  |.z&...index.z0'.|
00013ff0  77 25 28 66 69 6c 65 25  2c 35 29 3c 3d 30 3a f2  |w%(file%,5)<=0:.|
00014000  6d 61 6b 65 69 6c 69 73  74 28 66 69 6c 65 25 29  |makeilist(file%)|
00014010  3a e1 0d 7a 3a 1d f2 66  72 6f 6e 74 28 77 25 28  |:..z:..front(w%(|
00014020  66 69 6c 65 25 2c 35 29  2c 2d 31 2c 2d 31 29 0d  |file%,5),-1,-1).|
00014030  7a 44 05 e1 0d 7a 4e 04  0d 7a 58 3d dd f2 64 65  |zD...zN..zX=..de|
00014040  6c 69 63 6f 6e 28 68 25  2c 69 25 29 3a 21 71 25  |licon(h%,i%):!q%|
00014050  3d 68 25 3a 71 25 21 34  3d 69 25 3a c8 99 22 57  |=h%:q%!4=i%:.."W|
00014060  69 6d 70 5f 44 65 6c 65  74 65 49 63 6f 6e 22 2c  |imp_DeleteIcon",|
00014070  2c 71 25 3a e1 0d 7a 62  04 0d 7a 6c 32 dd f2 6c  |,q%:..zb..zl2..l|
00014080  6f 73 65 69 63 6f 6e 28  68 25 2c 69 25 29 3a f2  |oseicon(h%,i%):.|
00014090  67 65 74 69 28 68 25 2c  69 25 29 3a f2 64 65 6c  |geti(h%,i%):.del|
000140a0  69 63 6f 6e 28 68 25 2c  69 25 29 0d 7a 76 37 71  |icon(h%,i%).zv7q|
000140b0  25 21 34 3d 21 71 25 3a  71 25 21 38 3d 2d 31 45  |%!4=!q%:q%!8=-1E|
000140c0  39 3a 71 25 21 31 32 3d  2d 31 45 39 3a 71 25 21  |9:q%!12=-1E9:q%!|
000140d0  31 36 3d 2d 31 45 39 3a  71 25 21 32 30 3d 2d 31  |16=-1E9:q%!20=-1|
000140e0  45 39 0d 7a 80 1f c8 99  22 57 69 6d 70 5f 43 72  |E9.z...."Wimp_Cr|
000140f0  65 61 74 65 49 63 6f 6e  22 2c 2c 71 25 2b 34 3a  |eateIcon",,q%+4:|
00014100  e1 0d 7a 8a 04 0d 7a 94  0c dd f2 63 61 72 64 64  |..z...z....cardd|
00014110  72 0d 7a 9e 0a ea 54 25  2c 55 25 0d 7a a8 19 f2  |r.z...T%,U%.z...|
00014120  77 74 6f 66 28 6d 68 25  29 3a e7 66 69 6c 65 25  |wtof(mh%):.file%|
00014130  3e 3d 30 8c 0d 7a b2 15  e7 66 69 6c 65 25 3d 6d  |>=0..z...file%=m|
00014140  65 6e 75 66 69 6c 65 25  8c 0d 7a bc 0c c8 8e 77  |enufile%..z....w|
00014150  69 6e 64 25 ca 0d 7a c6  1d c9 32 3a 54 25 3d a4  |ind%..z...2:T%=.|
00014160  69 74 6f 73 3a e7 54 25  3e 30 80 54 25 3c 32 35  |itos:.T%>0.T%<25|
00014170  35 8c 0d 7a d0 14 c8 99  73 77 69 25 2c 73 64 32  |5..z....swi%,sd2|
00014180  33 5f 25 b8 4e 25 0d 7a  da 3c 55 25 3d 4e 25 3a  |3_%.N%.z.<U%=N%:|
00014190  f2 73 75 62 62 79 74 65  28 54 25 2c 2d 31 29 3a  |.subbyte(T%,-1):|
000141a0  f2 76 61 6c 69 64 61 74  65 72 65 63 3a f2 66 6f  |.validaterec:.fo|
000141b0  72 63 65 63 61 72 64 73  72 65 70 28 55 25 2c 55  |rcecardsrep(U%,U|
000141c0  25 29 0d 7a e4 05 cd 0d  7a ee 05 cb 0d 7a f8 05  |%).z....z....z..|
000141d0  cc 0d 7b 02 0c c8 8e 77  69 6e 64 25 ca 0d 7b 0c  |..{....wind%..{.|
000141e0  12 c9 30 2c 31 3a f2 63  6f 70 79 63 61 72 64 0d  |..0,1:.copycard.|
000141f0  7b 16 05 cb 0d 7b 20 05  cd 0d 7b 2a 05 cc 0d 7b  |{....{ ...{*...{|
00014200  34 0a c8 8e 6d 68 25 ca  0d 7b 3e 56 c9 77 5f 72  |4...mh%..{>V.w_r|
00014210  6c 69 6e 6b 25 3a e7 6d  69 25 3d 31 3a e7 6d 65  |link%:.mi%=1:.me|
00014220  6e 75 66 69 6c 65 25 3c  3e 64 69 61 6c 66 69 6c  |nufile%<>dialfil|
00014230  65 25 3a f2 73 64 66 69  6c 65 28 6d 65 6e 75 66  |e%:.sdfile(menuf|
00014240  69 6c 65 25 29 3a f2 73  65 74 69 28 6d 68 25 2c  |ile%):.seti(mh%,|
00014250  6d 69 25 2c a4 66 69 6c  65 6e 61 6d 65 29 0d 7b  |mi%,.filename).{|
00014260  48 3e 7f 3a f2 73 64 66  69 6c 65 28 6d 65 6e 75  |H>.:.sdfile(menu|
00014270  66 69 6c 65 25 29 3a f2  73 61 76 65 72 65 71 28  |file%):.savereq(|
00014280  22 43 61 72 64 22 2c 26  46 46 46 2c a4 77 64 2a  |"Card",&FFF,.wd*|
00014290  a4 68 74 2c 31 2c 66 69  6c 65 25 29 0d 7b 52 05  |.ht,1,file%).{R.|
000142a0  cb 0d 7b 5c 05 cd 0d 7b  66 05 e1 0d 7b 70 04 0d  |..{\...{f...{p..|
000142b0  7b 7a 0d dd f2 63 61 72  64 64 72 31 0d 7b 84 2b  |{z...carddr1.{.+|
000142c0  74 78 30 25 3d 21 71 25  3a 74 78 31 25 3d 71 25  |tx0%=!q%:tx1%=q%|
000142d0  21 38 3a 74 79 30 25 3d  71 25 21 34 3a 74 79 31  |!8:ty0%=q%!4:ty1|
000142e0  25 3d 71 25 21 31 32 0d  7b 8e 34 e7 94 28 74 78  |%=q%!12.{.4..(tx|
000142f0  30 25 2d 74 78 31 25 29  3c 31 30 80 94 28 74 79  |0%-tx1%)<10..(ty|
00014300  30 25 2d 74 79 31 25 29  3c 31 30 3a 6d 62 25 3d  |0%-ty1%)<10:mb%=|
00014310  31 3a f2 73 65 6c 65 63  74 3a e1 0d 7b 98 3b f2  |1:.select:..{.;.|
00014320  63 78 63 6f 6e 76 28 74  78 30 25 29 3a f2 63 78  |cxconv(tx0%):.cx|
00014330  63 6f 6e 76 28 74 78 31  25 29 3a f2 63 79 63 6f  |conv(tx1%):.cyco|
00014340  6e 76 28 74 79 30 25 29  3a f2 63 79 63 6f 6e 76  |nv(ty0%):.cyconv|
00014350  28 74 79 31 25 29 0d 7b  a2 1a e7 74 78 30 25 3e  |(ty1%).{...tx0%>|
00014360  74 78 31 25 3a c8 94 74  78 30 25 2c 74 78 31 25  |tx1%:..tx0%,tx1%|
00014370  0d 7b ac 1a e7 74 79 30  25 3e 74 79 31 25 3a c8  |.{...ty0%>ty1%:.|
00014380  94 74 79 30 25 2c 74 79  31 25 0d 7b b6 3a f2 73  |.ty0%,ty1%.{.:.s|
00014390  61 76 65 77 28 66 5f 63  64 24 2c 26 46 46 46 2c  |avew(f_cd$,&FFF,|
000143a0  32 2c 66 69 6c 65 25 2c  28 74 78 31 25 2d 74 78  |2,file%,(tx1%-tx|
000143b0  30 25 2b 31 29 2a 28 74  79 31 25 2d 74 79 30 25  |0%+1)*(ty1%-ty0%|
000143c0  2b 31 29 29 0d 7b c0 05  e1 0d 7b ca 04 0d 7b d4  |+1)).{....{...{.|
000143d0  11 dd f2 66 69 65 6c 64  64 72 3a ea 66 25 0d 7b  |...fielddr:.f%.{|
000143e0  de 19 f2 77 74 6f 66 28  6d 68 25 29 3a e7 66 69  |...wtof(mh%):.fi|
000143f0  6c 65 25 3e 3d 30 8c 0d  7b e8 0c c8 8e 77 69 6e  |le%>=0..{....win|
00014400  64 25 ca 0d 7b f2 10 c9  30 3a f2 66 69 65 6c 64  |d%..{...0:.field|
00014410  64 72 63 0d 7b fc 06 c9  31 0d 7c 06 0a c8 8e 6d  |drc.{...1.|....m|
00014420  69 25 ca 0d 7c 10 06 c9  37 0d 7c 1a 66 e7 6d 65  |i%..|...7.|.f.me|
00014430  6e 75 66 69 65 6c 64 25  3e 30 66 25 3d 66 69 6c  |nufield%>0f%=fil|
00014440  65 25 3a f2 73 64 66 69  6c 65 28 6d 65 6e 75 66  |e%:.sdfile(menuf|
00014450  69 6c 65 25 29 3a f2 73  65 74 69 28 6d 68 25 2c  |ile%):.seti(mh%,|
00014460  6d 69 25 2c a4 73 28 a4  67 66 69 65 6c 64 28 6d  |mi%,.s(.gfield(m|
00014470  65 6e 75 66 69 65 6c 64  25 29 29 29 3a f2 73 64  |enufield%))):.sd|
00014480  66 69 6c 65 28 66 25 29  3a f2 66 66 69 6e 64 0d  |file(f%):.ffind.|
00014490  7c 24 0a c9 31 38 2c 32  35 0d 7c 2e 46 e7 6d 65  ||$..18,25.|.F.me|
000144a0  6e 75 66 69 65 6c 64 25  3e 30 f2 73 64 66 69 6c  |nufield%>0.sdfil|
000144b0  65 28 6d 65 6e 75 66 69  6c 65 25 29 3a f2 74 6f  |e(menufile%):.to|
000144c0  6e 65 64 69 61 6c 28 a4  73 28 a4 67 66 69 65 6c  |nedial(.s(.gfiel|
000144d0  64 28 6d 65 6e 75 66 69  65 6c 64 25 29 29 29 0d  |d(menufield%))).|
000144e0  7c 38 05 cb 0d 7c 42 15  c9 33 3a e7 6d 65 6e 75  ||8...|B..3:.menu|
000144f0  66 69 65 6c 64 25 3e 30  8c 0d 7c 4c 10 c8 8e 72  |field%>0..|L...r|
00014500  25 28 66 69 6c 65 25 29  ca 0d 7c 56 06 c9 31 0d  |%(file%)..|V..1.|
00014510  7c 60 15 e7 6d 65 6e 75  66 69 6c 65 25 3d 66 69  ||`..menufile%=fi|
00014520  6c 65 25 8c 0d 7c 6a 0a  ea 54 24 2c 74 24 0d 7c  |le%..|j..T$,t$.||
00014530  74 1b 54 24 3d 73 72 24  28 66 69 6c 65 25 29 3a  |t.T$=sr$(file%):|
00014540  e7 a9 54 24 3c 32 35 30  8c 0d 7c 7e 27 e7 a7 a4  |..T$<250..|~'...|
00014550  75 28 54 24 29 2c a4 75  28 a4 66 6e 61 6d 65 28  |u(T$),.u(.fname(|
00014560  6d 65 6e 75 66 69 65 6c  64 25 29 29 29 3d 30 8c  |menufield%)))=0.|
00014570  0d 7c 88 1b e7 54 24 3e  22 22 80 c2 54 24 29 3c  |.|...T$>""..T$)<|
00014580  3e 22 2c 22 54 24 2b 3d  22 2c 22 0d 7c 92 42 54  |>","T$+=",".|.BT|
00014590  24 2b 3d a4 66 6e 61 6d  65 28 6d 65 6e 75 66 69  |$+=.fname(menufi|
000145a0  65 6c 64 25 29 3a 74 24  3d a4 78 35 28 54 24 29  |eld%):t$=.x5(T$)|
000145b0  3a 73 72 78 24 28 66 69  6c 65 25 29 3d 74 24 3a  |:srx$(file%)=t$:|
000145c0  73 72 24 28 66 69 6c 65  25 29 3d 54 24 0d 7c 9c  |sr$(file%)=T$.|.|
000145d0  0d f2 66 6f 72 63 65 72  65 70 0d 7c a6 05 cd 0d  |..forcerep.|....|
000145e0  7c b0 05 cd 0d 7c ba 05  cd 0d 7c c4 06 c9 34 0d  ||....|....|...4.|
000145f0  7c ce 07 ea 54 25 0d 7c  d8 15 e7 6d 65 6e 75 66  ||...T%.|...menuf|
00014600  69 6c 65 25 3d 66 69 6c  65 25 8c 0d 7c e2 2e f2  |ile%=file%..|...|
00014610  67 65 74 77 28 6d 68 25  29 3a 54 25 3d 28 62 79  |getw(mh%):T%=(by|
00014620  25 2d 6d 61 72 67 69 6e  25 2d 6d 79 25 2d 34 29  |%-margin%-my%-4)|
00014630  81 6c 69 6e 65 67 61 70  25 0d 7c ec 12 e7 54 25  |.linegap%.|...T%|
00014640  3e 3d 30 80 54 25 3c 3d  31 34 8c 0d 7c f6 0f e7  |>=0.T%<=14..|...|
00014650  77 5f 77 6f 72 64 25 3e  30 8c 0d 7d 00 3c f2 73  |w_word%>0..}.<.s|
00014660  65 74 69 28 77 5f 77 6f  72 64 25 2c 54 25 2c a4  |eti(w_word%,T%,.|
00014670  61 64 64 66 69 65 6c 64  28 24 a4 69 61 28 77 5f  |addfield($.ia(w_|
00014680  77 6f 72 64 25 2c 54 25  29 2c 6d 65 6e 75 66 69  |word%,T%),menufi|
00014690  65 6c 64 25 29 29 0d 7d  0a 05 cc 0d 7d 14 31 e7  |eld%)).}....}.1.|
000146a0  a7 a4 75 28 77 24 28 66  69 6c 65 25 2c 54 25 29  |..u(w$(file%,T%)|
000146b0  29 2c a4 75 28 a4 66 6e  61 6d 65 28 6d 65 6e 75  |),.u(.fname(menu|
000146c0  66 69 65 6c 64 25 29 29  29 3d 30 8c 0d 7d 1e 3d  |field%)))=0..}.=|
000146d0  77 24 28 66 69 6c 65 25  2c 54 25 29 3d a4 61 64  |w$(file%,T%)=.ad|
000146e0  64 66 69 65 6c 64 28 77  24 28 66 69 6c 65 25 2c  |dfield(w$(file%,|
000146f0  54 25 29 2c 6d 65 6e 75  66 69 65 6c 64 25 29 3a  |T%),menufield%):|
00014700  f2 66 6f 72 63 65 72 65  70 0d 7d 28 05 cd 0d 7d  |.forcerep.}(...}|
00014710  32 05 cd 0d 7d 3c 05 cd  0d 7d 46 05 cd 0d 7d 50  |2...}<...}F...}P|
00014720  06 c9 35 0d 7d 5a 2d f2  67 65 74 77 28 6d 68 25  |..5.}Z-.getw(mh%|
00014730  29 3a f2 6d 6f 75 73 65  63 6f 6c 3a e7 63 6f 6c  |):.mousecol:.col|
00014740  75 6d 6e 25 3c 30 f2 61  64 64 63 6f 6c 75 6d 6e  |umn%<0.addcolumn|
00014750  0d 7d 64 2b f2 72 5f 73  65 74 63 6f 6c 28 6d 65  |.}d+.r_setcol(me|
00014760  6e 75 66 69 65 6c 64 25  2c 63 6f 6c 75 6d 6e 25  |nufield%,column%|
00014770  29 3a f2 66 6f 72 63 65  72 65 70 0d 7d 6e 05 cb  |):.forcerep.}n..|
00014780  0d 7d 78 05 cd 0d 7d 82  12 7f 3a e7 a4 65 6e 74  |.}x...}...:..ent|
00014790  65 72 66 69 65 6c 64 0d  7d 8c 05 cb 0d 7d 96 05  |erfield.}....}..|
000147a0  cc 0d 7d a0 46 e7 ac a4  65 6e 74 65 72 66 69 65  |..}.F...enterfie|
000147b0  6c 64 3a e7 6d 65 6e 75  66 69 65 6c 64 25 3e 30  |ld:.menufield%>0|
000147c0  3a f2 73 61 76 65 72 65  71 28 22 46 69 65 6c 64  |:.savereq("Field|
000147d0  22 2c 26 46 46 46 2c 32  35 35 2c 33 2c 6d 65 6e  |",&FFF,255,3,men|
000147e0  75 66 69 6c 65 25 29 0d  7d aa 05 cd 0d 7d b4 05  |ufile%).}....}..|
000147f0  e1 0d 7d be 04 0d 7d c8  0c dd f2 6e 6f 74 65 64  |..}...}....noted|
00014800  72 0d 7d d2 0e f2 77 74  6f 66 28 6d 68 25 29 0d  |r.}...wtof(mh%).|
00014810  7d dc 35 e7 ac a4 65 6e  74 65 72 6e 6f 74 65 3a  |}.5...enternote:|
00014820  f2 73 61 76 65 72 65 71  28 22 4e 6f 74 65 22 2c  |.savereq("Note",|
00014830  26 46 46 46 2c 38 30 2c  34 2c 6d 65 6e 75 66 69  |&FFF,80,4,menufi|
00014840  6c 65 25 29 0d 7d e6 05  e1 0d 7d f0 04 0d 7d fa  |le%).}....}...}.|
00014850  0c dd f2 73 75 62 73 64  72 0d 7e 04 0a ea 54 25  |...subsdr.~...T%|
00014860  2c 54 24 0d 7e 0e 23 f2  73 75 62 64 69 73 70 31  |,T$.~.#.subdisp1|
00014870  3a f2 77 74 6f 66 28 6d  68 25 29 3a e7 66 69 6c  |:.wtof(mh%):.fil|
00014880  65 25 3e 3d 30 8c 0d 7e  18 15 e7 66 69 6c 65 25  |e%>=0..~...file%|
00014890  3d 6d 65 6e 75 66 69 6c  65 25 8c 0d 7e 22 0c c8  |=menufile%..~"..|
000148a0  8e 77 69 6e 64 25 ca 0d  7e 2c 1a c9 30 2c 31 3a  |.wind%..~,..0,1:|
000148b0  f2 73 65 6c 73 75 62 28  6d 65 6e 75 73 75 62 25  |.selsub(menusub%|
000148c0  29 0d 7e 36 07 c9 32 3a  0d 7e 40 34 54 25 3d a4  |).~6..2:.~@4T%=.|
000148d0  69 74 6f 73 3a e7 54 25  3e 30 80 54 25 3c 32 35  |itos:.T%>0.T%<25|
000148e0  35 80 6d 65 6e 75 73 75  62 25 3c 32 35 35 80 6d  |5.menusub%<255.m|
000148f0  65 6e 75 73 75 62 25 3c  3e 54 25 8c 0d 7e 4a 15  |enusub%<>T%..~J.|
00014900  f2 73 65 6c 73 75 62 28  6d 65 6e 75 73 75 62 25  |.selsub(menusub%|
00014910  29 0d 7e 54 42 65 25 28  66 69 6c 65 25 2c 30 29  |).~TBe%(file%,0)|
00014920  3d 6d 65 6e 75 73 75 62  25 3a 65 25 28 66 69 6c  |=menusub%:e%(fil|
00014930  65 25 2c 31 29 3d 54 25  3a 54 24 3d 22 63 6f 6d  |e%,1)=T%:T$="com|
00014940  62 69 6e 65 20 73 75 62  73 65 74 73 22 3a 54 25  |bine subsets":T%|
00014950  3d 31 32 0d 7e 5e 38 65  25 28 66 69 6c 65 25 2c  |=12.~^8e%(file%,|
00014960  32 29 3d 30 3a e7 64 72  61 67 62 75 74 74 6f 6e  |2)=0:.dragbutton|
00014970  25 3c 3e 31 36 54 24 3d  22 63 6f 70 79 20 73 75  |%<>16T$="copy su|
00014980  62 73 65 74 22 3a 54 25  3d 31 31 0d 7e 68 5a f2  |bset":T%=11.~hZ.|
00014990  73 74 6f 70 28 54 25 2c  22 53 75 62 73 65 74 20  |stop(T%,"Subset |
000149a0  22 2b a4 73 75 62 64 65  73 63 33 28 6d 65 6e 75  |"+.subdesc3(menu|
000149b0  73 75 62 25 29 2b 22 20  89 20 22 2b a4 73 75 62  |sub%)+" . "+.sub|
000149c0  64 65 73 63 33 28 65 25  28 66 69 6c 65 25 2c 31  |desc3(e%(file%,1|
000149d0  29 29 2c 72 6c 24 2b 54  24 2b 22 20 3f 22 2c 66  |)),rl$+T$+" ?",f|
000149e0  69 6c 65 25 29 0d 7e 72  05 cd 0d 7e 7c 10 7f 3a  |ile%).~r...~|..:|
000149f0  e7 a4 65 6e 74 65 72 73  75 62 0d 7e 86 05 cb 0d  |..entersub.~....|
00014a00  7e 90 05 cd 0d 7e 9a 05  cc 0d 7e a4 0a c8 8e 6d  |~....~....~....m|
00014a10  68 25 ca 0d 7e ae 11 7f  3a e7 ac a4 65 6e 74 65  |h%..~...:...ente|
00014a20  72 73 75 62 0d 7e b8 05  cb 0d 7e c2 05 cd 0d 7e  |rsub.~....~....~|
00014a30  cc 05 e1 0d 7e d6 04 0d  7e e0 10 dd a4 65 6e 74  |....~...~....ent|
00014a40  65 72 66 69 65 6c 64 0d  7e ea 16 ea 57 25 2c 54  |erfield.~...W%,T|
00014a50  25 2c 54 24 2c 74 24 3a  f7 8d 5c 72 42 0d 7e f4  |%,T$,t$:..\rB.~.|
00014a60  1a f5 3a f2 72 65 61 64  68 28 57 25 29 3a e7 57  |..:.readh(W%):.W|
00014a70  25 3c 3e 6d 68 25 8c 0d  7e fe 1f e7 57 25 3c 3e  |%<>mh%..~...W%<>|
00014a80  2d 31 3a f5 3a f3 57 25  2c 54 25 3a fd 57 25 3c  |-1:.:.W%,T%:.W%<|
00014a90  30 3a 57 25 3d 30 0d 7f  08 05 cc 0d 7f 12 19 f5  |0:W%=0..........|
00014aa0  3a f3 57 25 2c 54 25 3a  fd 57 25 3d 6d 69 25 84  |:.W%,T%:.W%=mi%.|
00014ab0  57 25 3c 30 0d 7f 1c 0c  e7 57 25 3d 6d 69 25 8c  |W%<0.....W%=mi%.|
00014ac0  0d 7f 26 09 c8 8e 54 25  ca 0d 7f 30 08 c9 31 2c  |..&...T%...0..1,|
00014ad0  34 0d 7f 3a 39 f2 77 74  6f 66 28 6d 68 25 29 3a  |4..:9.wtof(mh%):|
00014ae0  e7 66 69 6c 65 25 3c 30  3a e7 6d 68 25 3d 64 69  |.file%<0:.mh%=di|
00014af0  61 6c 6f 67 75 65 25 3a  f2 73 64 66 69 6c 65 28  |alogue%:.sdfile(|
00014b00  64 69 61 6c 66 69 6c 65  25 29 0d 7f 44 37 54 24  |dialfile%)..D7T$|
00014b10  3d 22 22 3a e7 66 69 6c  65 25 3c 3e 6d 65 6e 75  |="":.file%<>menu|
00014b20  66 69 6c 65 25 54 24 3d  22 5c 22 2b a4 6f 66 69  |file%T$="\"+.ofi|
00014b30  6c 65 6e 61 6d 65 28 6d  65 6e 75 66 69 6c 65 25  |lename(menufile%|
00014b40  29 0d 7f 4e 16 f2 73 64  66 69 6c 65 28 6d 65 6e  |)..N..sdfile(men|
00014b50  75 66 69 6c 65 25 29 0d  7f 58 3f 54 24 3d a4 61  |ufile%)..X?T$=.a|
00014b60  64 64 66 69 65 6c 64 28  24 a4 69 61 28 6d 68 25  |ddfield($.ia(mh%|
00014b70  2c 6d 69 25 29 2c 6d 65  6e 75 66 69 65 6c 64 25  |,mi%),menufield%|
00014b80  29 2b 54 24 3a f2 73 65  74 69 28 6d 68 25 2c 6d  |)+T$:.seti(mh%,m|
00014b90  69 25 2c 54 24 29 0d 7f  62 21 c9 35 3a e7 a4 74  |i%,T$)..b!.5:..t|
00014ba0  68 69 73 66 69 6c 65 28  6d 68 25 2c 6d 65 6e 75  |hisfile(mh%,menu|
00014bb0  66 69 6c 65 25 29 8c 0d  7f 6c 38 f2 73 64 66 69  |file%)...l8.sdfi|
00014bc0  6c 65 28 6d 65 6e 75 66  69 6c 65 25 29 3a c8 99  |le(menufile%):..|
00014bd0  73 77 69 25 2c 73 64 31  37 5f 25 2c 39 2c 6d 65  |swi%,sd17_%,9,me|
00014be0  6e 75 66 69 65 6c 64 25  2c 73 64 24 b8 47 25 0d  |nufield%,sd$.G%.|
00014bf0  7f 76 1c c8 99 73 77 69  25 2c 73 64 31 37 5f 25  |.v...swi%,sd17_%|
00014c00  2c 31 30 2c 24 73 64 25  b8 47 25 0d 7f 80 31 e7  |,10,$sd%.G%...1.|
00014c10  a7 24 73 64 25 2c 22 4b  22 29 f2 73 65 74 69 28  |.$sd%,"K").seti(|
00014c20  6d 68 25 2c 6d 69 25 2c  a4 66 6e 61 6d 65 31 28  |mh%,mi%,.fname1(|
00014c30  6d 65 6e 75 66 69 65 6c  64 25 29 29 0d 7f 8a 05  |menufield%))....|
00014c40  cd 0d 7f 94 4c c9 36 3a  f2 73 64 66 69 6c 65 28  |....L.6:.sdfile(|
00014c50  6d 65 6e 75 66 69 6c 65  25 29 3a f2 73 65 74 69  |menufile%):.seti|
00014c60  28 6d 68 25 2c 6d 69 25  2c a4 61 64 64 66 69 65  |(mh%,mi%,.addfie|
00014c70  6c 64 28 24 a4 69 61 28  6d 68 25 2c 6d 69 25 29  |ld($.ia(mh%,mi%)|
00014c80  2c 6d 65 6e 75 66 69 65  6c 64 25 29 29 0d 7f 9e  |,menufield%))...|
00014c90  06 c9 37 0d 7f a8 39 f2  77 74 6f 66 28 6d 68 25  |..7...9.wtof(mh%|
00014ca0  29 3a e7 66 69 6c 65 25  3c 30 3a e7 6d 68 25 3d  |):.file%<0:.mh%=|
00014cb0  64 69 61 6c 6f 67 75 65  25 3a f2 73 64 66 69 6c  |dialogue%:.sdfil|
00014cc0  65 28 64 69 61 6c 66 69  6c 65 25 29 0d 7f b2 27  |e(dialfile%)...'|
00014cd0  f2 73 64 66 69 6c 65 28  6d 65 6e 75 66 69 6c 65  |.sdfile(menufile|
00014ce0  25 29 3a 54 24 3d 24 a4  69 61 28 6d 68 25 2c 6d  |%):T$=$.ia(mh%,m|
00014cf0  69 25 29 0d 7f bc 1c e7  54 24 3c 3e 22 22 80 c2  |i%).....T$<>""..|
00014d00  54 24 29 3c 3e 22 2c 22  54 24 2b 3d 22 2c 22 0d  |T$)<>","T$+=",".|
00014d10  7f c6 28 f2 73 65 74 69  28 6d 68 25 2c 6d 69 25  |..(.seti(mh%,mi%|
00014d20  2c 54 24 2b a4 66 6e 61  6d 65 28 6d 65 6e 75 66  |,T$+.fname(menuf|
00014d30  69 65 6c 64 25 29 29 0d  7f d0 05 cb 0d 7f da 05  |ield%)).........|
00014d40  cd 0d 7f e4 06 3d b9 0d  7f ee 05 cd 0d 7f f8 09  |.....=..........|
00014d50  fd 57 25 3c 30 0d 80 02  06 3d a3 0d 80 0c 04 0d  |.W%<0....=......|
00014d60  80 16 0f dd a4 65 6e 74  65 72 6e 6f 74 65 0d 80  |.....enternote..|
00014d70  20 10 ea 57 25 2c 54 25  3a f7 8d 5c 72 42 0d 80  | ..W%,T%:..\rB..|
00014d80  2a 1a f5 3a f2 72 65 61  64 68 28 57 25 29 3a e7  |*..:.readh(W%):.|
00014d90  57 25 3c 3e 6d 68 25 8c  0d 80 34 1f e7 57 25 3c  |W%<>mh%...4..W%<|
00014da0  3e 2d 31 3a f5 3a f3 57  25 2c 54 25 3a fd 57 25  |>-1:.:.W%,T%:.W%|
00014db0  3c 30 3a 57 25 3d 30 0d  80 3e 05 cc 0d 80 48 19  |<0:W%=0..>....H.|
00014dc0  f5 3a f3 57 25 2c 54 25  3a fd 57 25 3d 6d 69 25  |.:.W%,T%:.W%=mi%|
00014dd0  84 57 25 3c 30 0d 80 52  0c e7 57 25 3d 6d 69 25  |.W%<0..R..W%=mi%|
00014de0  8c 0d 80 5c 09 c8 8e 54  25 ca 0d 80 66 0c c9 31  |...\...T%...f..1|
00014df0  2c 34 2c 36 2c 37 0d 80  70 34 e7 64 72 61 67 62  |,4,6,7..p4.dragb|
00014e00  75 74 74 6f 6e 25 3d 36  34 80 28 a4 74 68 69 73  |utton%=64.(.this|
00014e10  66 69 6c 65 28 6d 68 25  2c 6d 65 6e 75 66 69 6c  |file(mh%,menufil|
00014e20  65 25 29 84 54 25 3d 36  29 8c 0d 80 7a 5a e7 6d  |e%).T%=6)...zZ.m|
00014e30  69 25 3c 3e 6d 65 6e 75  66 69 65 6c 64 25 84 6d  |i%<>menufield%.m|
00014e40  68 25 3c 3e 77 25 28 6d  65 6e 75 66 69 6c 65 25  |h%<>w%(menufile%|
00014e50  2c 36 29 f2 73 65 74 69  28 6d 68 25 2c 6d 69 25  |,6).seti(mh%,mi%|
00014e60  2c 24 a4 69 61 28 6d 68  25 2c 6d 69 25 29 2b 22  |,$.ia(mh%,mi%)+"|
00014e70  27 22 2b bd 28 6d 65 6e  75 66 69 65 6c 64 25 2b  |'"+.(menufield%+|
00014e80  36 35 29 29 0d 80 84 05  cc 0d 80 8e 2e f2 73 65  |65))..........se|
00014e90  74 69 28 6d 68 25 2c 6d  69 25 2c a4 6e 6f 74 65  |ti(mh%,mi%,.note|
00014ea0  28 6d 65 6e 75 66 69 6c  65 25 2c 6d 65 6e 75 66  |(menufile%,menuf|
00014eb0  69 65 6c 64 25 29 29 0d  80 98 05 cd 0d 80 a2 13  |ield%)).........|
00014ec0  c9 38 3a e7 65 64 69 63  6f 6e 25 3e 3d 30 8c 0d  |.8:.edicon%>=0..|
00014ed0  80 ac 22 54 24 3d a4 6e  6f 74 65 28 6d 65 6e 75  |.."T$=.note(menu|
00014ee0  66 69 6c 65 25 2c 6d 65  6e 75 66 69 65 6c 64 25  |file%,menufield%|
00014ef0  29 0d 80 b6 2c e7 64 72  61 67 62 75 74 74 6f 6e  |)...,.dragbutton|
00014f00  25 3c 3e 36 34 3a 54 24  3d c0 24 65 64 62 75 66  |%<>64:T$=.$edbuf|
00014f10  25 2c 32 35 35 2d a9 54  24 29 2b 54 24 0d 80 c0  |%,255-.T$)+T$...|
00014f20  27 f2 73 65 74 63 74 28  6d 68 25 2c 6d 69 25 2c  |'.setct(mh%,mi%,|
00014f30  30 29 3a f2 73 65 74 69  28 6d 68 25 2c 6d 69 25  |0):.seti(mh%,mi%|
00014f40  2c 54 24 29 0d 80 ca 05  cd 0d 80 d4 05 cb 0d 80  |,T$)............|
00014f50  de 05 cd 0d 80 e8 06 3d  b9 0d 80 f2 05 cd 0d 80  |.......=........|
00014f60  fc 09 fd 57 25 3c 30 0d  81 06 06 3d a3 0d 81 10  |...W%<0....=....|
00014f70  04 0d 81 1a 0e dd a4 65  6e 74 65 72 73 75 62 0d  |.......entersub.|
00014f80  81 24 10 ea 57 25 2c 54  25 3a f7 8d 5c 72 42 0d  |.$..W%,T%:..\rB.|
00014f90  81 2e 1a f5 3a f2 72 65  61 64 68 28 57 25 29 3a  |....:.readh(W%):|
00014fa0  e7 57 25 3c 3e 6d 68 25  8c 0d 81 38 1f e7 57 25  |.W%<>mh%...8..W%|
00014fb0  3c 3e 2d 31 3a f5 3a f3  57 25 2c 54 25 3a fd 57  |<>-1:.:.W%,T%:.W|
00014fc0  25 3c 30 3a 57 25 3d 30  0d 81 42 05 cc 0d 81 4c  |%<0:W%=0..B....L|
00014fd0  19 f5 3a f3 57 25 2c 54  25 3a fd 57 25 3d 6d 69  |..:.W%,T%:.W%=mi|
00014fe0  25 84 57 25 3c 30 0d 81  56 0c e7 57 25 3d 6d 69  |%.W%<0..V..W%=mi|
00014ff0  25 8c 0d 81 60 09 c8 8e  54 25 ca 0d 81 6a 06 c9  |%...`...T%...j..|
00015000  31 0d 81 74 60 e7 a4 74  68 69 73 66 69 6c 65 28  |1..t`..thisfile(|
00015010  6d 68 25 2c 6d 65 6e 75  66 69 6c 65 25 29 f2 73  |mh%,menufile%).s|
00015020  64 66 69 6c 65 28 6d 65  6e 75 66 69 6c 65 25 29  |dfile(menufile%)|
00015030  3a f2 73 65 74 69 28 6d  68 25 2c 6d 69 25 2c 24  |:.seti(mh%,mi%,$|
00015040  a4 69 61 28 6d 68 25 2c  6d 69 25 29 2b a4 73 75  |.ia(mh%,mi%)+.su|
00015050  62 64 65 73 63 34 28 6d  65 6e 75 73 75 62 25 29  |bdesc4(menusub%)|
00015060  29 0d 81 7e 17 c9 32 3a  f2 73 66 73 75 62 28 6d  |)..~..2:.sfsub(m|
00015070  65 6e 75 73 75 62 25 29  0d 81 88 17 c9 33 3a f2  |enusub%).....3:.|
00015080  73 74 73 75 62 28 6d 65  6e 75 73 75 62 25 29 0d  |stsub(menusub%).|
00015090  81 92 4a c9 36 3a f2 73  64 66 69 6c 65 28 6d 65  |..J.6:.sdfile(me|
000150a0  6e 75 66 69 6c 65 25 29  3a f2 73 65 74 69 28 6d  |nufile%):.seti(m|
000150b0  68 25 2c 6d 69 25 2c 24  a4 69 61 28 6d 68 25 2c  |h%,mi%,$.ia(mh%,|
000150c0  6d 69 25 29 2b a4 73 75  62 64 65 73 63 34 28 6d  |mi%)+.subdesc4(m|
000150d0  65 6e 75 73 75 62 25 29  29 0d 81 9c 05 cb 0d 81  |enusub%)).......|
000150e0  a6 05 cd 0d 81 b0 06 3d  b9 0d 81 ba 05 cd 0d 81  |.......=........|
000150f0  c4 09 fd 57 25 3c 30 0d  81 ce 06 3d a3 0d 81 d8  |...W%<0....=....|
00015100  15 f4 20 3b 7b 6e 20 72  65 61 73 6f 6e 73 20 61  |.. ;{n reasons a|
00015110  72 65 0d 81 e2 3e f4 20  3b 7b 6e 20 20 20 31 3d  |re...>. ;{n   1=|
00015120  65 6e 74 65 72 20 66 69  65 6c 64 2f 73 75 62 73  |enter field/subs|
00015130  65 74 2f 6e 6f 74 65 20  66 6f 72 20 65 78 70 72  |et/note for expr|
00015140  65 73 73 69 6f 6e 2c 20  61 6e 79 20 66 69 6c 65  |ession, any file|
00015150  0d 81 ec 26 f4 20 3b 7b  6e 20 20 20 32 3d 73 6f  |...&. ;{n   2=so|
00015160  75 72 63 65 20 73 75 62  73 65 74 20 66 6f 72 20  |urce subset for |
00015170  73 65 61 72 63 68 0d 81  f6 24 f4 20 3b 7b 6e 20  |search...$. ;{n |
00015180  20 20 33 3d 74 61 72 67  65 74 20 20 22 20 20 20  |  3=target  "   |
00015190  20 20 20 22 20 20 20 20  20 22 0d 82 00 37 f4 20  |   "     "...7. |
000151a0  3b 7b 6e 20 20 20 34 3d  65 6e 74 65 72 20 66 69  |;{n   4=enter fi|
000151b0  65 6c 64 2f 6e 6f 74 65  20 66 6f 72 20 65 78 70  |eld/note for exp|
000151c0  72 65 73 73 69 6f 6e 2c  20 61 6e 79 20 66 69 6c  |ression, any fil|
000151d0  65 0d 82 0a 3d f4 20 3b  7b 6e 20 20 20 35 3d 65  |e...=. ;{n   5=e|
000151e0  6e 74 65 72 20 6b 65 79  20 66 69 65 6c 64 2f 69  |nter key field/i|
000151f0  6e 64 65 78 20 6e 61 6d  65 20 6f 6e 6c 79 2c 20  |ndex name only, |
00015200  74 68 69 73 20 66 69 6c  65 20 6f 6e 6c 79 0d 82  |this file only..|
00015210  14 3b f4 20 3b 7b 6e 20  20 20 36 3d 65 6e 74 65  |.;. ;{n   6=ente|
00015220  72 20 66 69 65 6c 64 2f  73 75 62 73 65 74 2f 6e  |r field/subset/n|
00015230  6f 74 65 20 66 6f 72 20  65 78 70 72 2c 20 6e 6f  |ote for expr, no|
00015240  20 66 69 6c 65 20 72 65  66 0d 82 1e 38 f4 20 3b  | file ref...8. ;|
00015250  7b 6e 20 20 20 37 3d 65  6e 74 65 72 20 66 69 65  |{n   7=enter fie|
00015260  6c 64 20 6e 61 6d 65 2f  6e 6f 74 65 20 69 6e 74  |ld name/note int|
00015270  6f 20 63 6f 6d 6d 73 20  73 65 70 2e 20 6c 69 73  |o comms sep. lis|
00015280  74 0d 82 28 37 f4 20 3b  7b 6e 20 20 20 38 3d 65  |t..(7. ;{n   8=e|
00015290  6e 74 65 72 20 6e 6f 74  65 20 63 6f 6e 74 65 6e  |nter note conten|
000152a0  74 73 20 28 73 65 6c 3d  6f 76 65 72 2c 61 64 6a  |ts (sel=over,adj|
000152b0  3d 61 70 70 65 6e 64 29  0d 82 32 21 dc 77 5f 65  |=append)..2!.w_e|
000152c0  78 70 72 25 2c 31 37 2c  31 2c 32 30 2c 32 2c 32  |xpr%,17,1,20,2,2|
000152d0  31 2c 33 2c 2d 31 2c 2d  31 0d 82 3c 16 dc 77 5f  |1,3,-1,-1..<..w_|
000152e0  73 6f 72 74 25 2c 32 2c  34 2c 2d 31 2c 2d 31 0d  |sort%,2,4,-1,-1.|
000152f0  82 46 a4 dc 22 77 25 28  66 69 6c 65 25 2c 37 29  |.F.."w%(file%,7)|
00015300  22 2c 30 2c 31 2c 31 2c  31 2c 32 2c 31 2c 33 2c  |",0,1,1,1,2,1,3,|
00015310  31 2c 34 2c 31 2c 35 2c  31 2c 36 2c 31 2c 37 2c  |1,4,1,5,1,6,1,7,|
00015320  31 2c 38 2c 31 2c 39 2c  31 2c 31 30 2c 31 2c 31  |1,8,1,9,1,10,1,1|
00015330  31 2c 31 2c 31 32 2c 31  2c 31 33 2c 31 2c 31 34  |1,1,12,1,13,1,14|
00015340  2c 31 2c 31 35 2c 31 2c  31 36 2c 31 2c 31 37 2c  |,1,15,1,16,1,17,|
00015350  31 2c 31 38 2c 31 2c 31  39 2c 31 2c 32 30 2c 31  |1,18,1,19,1,20,1|
00015360  2c 32 31 2c 31 2c 32 32  2c 31 2c 32 33 2c 31 2c  |,21,1,22,1,23,1,|
00015370  32 34 2c 31 2c 32 35 2c  31 2c 32 36 2c 31 2c 32  |24,1,25,1,26,1,2|
00015380  37 2c 31 2c 32 38 2c 31  2c 32 39 2c 31 2c 2d 31  |7,1,28,1,29,1,-1|
00015390  2c 2d 31 0d 82 50 6d dc  22 77 25 28 66 69 6c 65  |,-1..Pm."w%(file|
000153a0  25 2c 36 29 22 2c 30 2c  31 2c 31 2c 31 2c 32 2c  |%,6)",0,1,1,1,2,|
000153b0  31 2c 33 2c 31 2c 34 2c  31 2c 35 2c 31 2c 36 2c  |1,3,1,4,1,5,1,6,|
000153c0  31 2c 37 2c 31 2c 38 2c  31 2c 39 2c 31 2c 31 30  |1,7,1,8,1,9,1,10|
000153d0  2c 31 2c 31 31 2c 31 2c  31 32 2c 31 2c 31 33 2c  |,1,11,1,12,1,13,|
000153e0  31 2c 31 34 2c 31 2c 31  35 2c 31 2c 31 36 2c 31  |1,14,1,15,1,16,1|
000153f0  2c 31 37 2c 31 2c 31 38  2c 31 2c 2d 31 2c 2d 31  |,17,1,18,1,-1,-1|
00015400  0d 82 5a 1b dc 77 5f 72  6c 69 6e 6b 25 2c 35 2c  |..Z..w_rlink%,5,|
00015410  36 2c 33 2c 35 2c 2d 31  2c 2d 31 0d 82 64 17 dc  |6,3,5,-1,-1..d..|
00015420  77 5f 73 72 73 65 74 25  2c 33 2c 37 2c 2d 31 2c  |w_srset%,3,7,-1,|
00015430  2d 31 0d 82 6e 53 dc 77  5f 77 6f 72 64 25 2c 30  |-1..nS.w_word%,0|
00015440  2c 34 2c 31 2c 34 2c 32  2c 34 2c 33 2c 34 2c 34  |,4,1,4,2,4,3,4,4|
00015450  2c 34 2c 35 2c 34 2c 36  2c 34 2c 37 2c 34 2c 38  |,4,5,4,6,4,7,4,8|
00015460  2c 34 2c 39 2c 34 2c 31  30 2c 34 2c 31 31 2c 34  |,4,9,4,10,4,11,4|
00015470  2c 31 32 2c 34 2c 31 33  2c 34 2c 31 34 2c 34 2c  |,12,4,13,4,14,4,|
00015480  2d 31 2c 2d 31 0d 82 78  1d dc 77 5f 72 73 65 74  |-1,-1..x..w_rset|
00015490  32 25 2c 34 32 2c 31 2c  34 34 2c 31 2c 2d 31 2c  |2%,42,1,44,1,-1,|
000154a0  2d 31 0d 82 82 16 dc 77  5f 63 6f 6c 25 2c 32 32  |-1.....w_col%,22|
000154b0  2c 31 2c 2d 31 2c 2d 31  0d 82 8c 22 dc 22 77 25  |,1,-1,-1..."."w%|
000154c0  28 66 69 6c 65 25 2c 30  29 22 2c 65 64 69 63 6f  |(file%,0)",edico|
000154d0  6e 25 2c 38 2c 2d 31 2c  2d 31 0d 82 96 22 dc 22  |n%,8,-1,-1..."."|
000154e0  77 25 28 66 69 6c 65 25  2c 33 29 22 2c 65 64 69  |w%(file%,3)",edi|
000154f0  63 6f 6e 25 2c 38 2c 2d  31 2c 2d 31 0d 82 a0 07  |con%,8,-1,-1....|
00015500  dc 2d 31 0d 82 aa 04 0d  82 b4 0e dd f2 6e 65 77  |.-1..........new|
00015510  64 65 6c 61 79 0d 82 be  12 ea 49 25 3a 64 65 6c  |delay.....I%:del|
00015520  61 79 25 3d 32 45 39 0d  82 c8 18 e7 70 72 6f 63  |ay%=2E9.....proc|
00015530  65 73 73 25 3e 30 3a 64  65 6c 61 79 25 3d 30 0d  |ess%>0:delay%=0.|
00015540  82 d2 23 e3 49 25 3d 30  b8 6d 61 78 66 25 3a e7  |..#.I%=0.maxf%:.|
00015550  61 25 28 49 25 29 3c 3e  30 3a 64 65 6c 61 79 25  |a%(I%)<>0:delay%|
00015560  3d 30 0d 82 dc 1a ed 3a  e7 73 62 66 69 6c 65 25  |=0.....:.sbfile%|
00015570  3e 3d 30 3a 64 65 6c 61  79 25 3d 30 0d 82 e6 05  |>=0:delay%=0....|
00015580  e1 0d 82 f0 04 0d 82 fa  0e dd f2 73 61 76 65 64  |...........saved|
00015590  61 74 61 0d 83 04 16 e7  71 25 21 31 32 3c 3e 73  |ata.....q%!12<>s|
000155a0  61 76 65 72 65 66 25 3a  e1 0d 83 0e 22 66 69 6c  |averef%:...."fil|
000155b0  65 24 3d a4 7a 74 73 28  71 25 2b 34 34 29 3a f2  |e$=.zts(q%+44):.|
000155c0  73 61 76 65 64 61 74 61  31 3a e1 0d 83 18 04 0d  |savedata1:......|
000155d0  83 22 20 dd f2 73 61 76  65 64 61 74 61 31 3a f2  |." ..savedata1:.|
000155e0  63 6c 6f 73 65 77 28 77  5f 73 61 76 65 25 29 0d  |closew(w_save%).|
000155f0  83 2c 24 e7 73 61 76 65  66 69 6c 65 25 3e 3d 30  |.,$.savefile%>=0|
00015600  3a f2 73 64 66 69 6c 65  28 73 61 76 65 66 69 6c  |:.sdfile(savefil|
00015610  65 25 29 0d 83 36 2c 6f  75 74 66 69 6c 65 25 3d  |e%)..6,outfile%=|
00015620  30 3a 6f 75 74 66 69 6c  65 25 3d ae 66 69 6c 65  |0:outfile%=.file|
00015630  24 3a e7 6f 75 74 66 69  6c 65 25 3d 30 3a e1 0d  |$:.outfile%=0:..|
00015640  83 40 06 ea 85 0d 83 4a  1d ee 85 ea 3a f7 85 3a  |.@.....J....:..:|
00015650  d9 23 6f 75 74 66 69 6c  65 25 3a f2 65 72 72 28  |.#outfile%:.err(|
00015660  30 29 0d 83 54 12 c8 8e  73 61 76 65 72 65 61 73  |0)..T...savereas|
00015670  6f 6e 25 ca 0d 83 5e 1e  c9 31 3a f2 73 61 76 65  |on%...^..1:.save|
00015680  63 61 72 64 3a f2 6e 65  77 66 6e 28 66 5f 63 64  |card:.newfn(f_cd|
00015690  24 29 0d 83 68 1f c9 32  3a f2 73 61 76 65 63 61  |$)..h..2:.saveca|
000156a0  72 64 31 3a f2 6e 65 77  66 6e 28 66 5f 63 64 24  |rd1:.newfn(f_cd$|
000156b0  29 0d 83 72 11 c9 33 3a  f2 73 61 76 65 66 69 65  |)..r..3:.savefie|
000156c0  6c 64 0d 83 7c 10 c9 34  3a f2 73 61 76 65 6e 6f  |ld..|..4:.saveno|
000156d0  74 65 0d 83 86 1f c9 35  3a f2 73 61 76 65 6e 6f  |te.....5:.saveno|
000156e0  74 65 73 3a f2 6e 65 77  66 6e 28 66 5f 6e 70 24  |tes:.newfn(f_np$|
000156f0  29 0d 83 90 1f c9 36 3a  f2 73 61 76 65 6d 61 63  |).....6:.savemac|
00015700  72 6f 3a f2 6e 65 77 66  6e 28 66 5f 6d 63 24 29  |ro:.newfn(f_mc$)|
00015710  0d 83 9a 1d c9 37 3a f2  73 61 76 65 72 65 70 3a  |.....7:.saverep:|
00015720  f2 6e 65 77 66 6e 28 66  5f 72 78 24 29 0d 83 a4  |.newfn(f_rx$)...|
00015730  11 c9 38 3a f2 73 61 76  65 73 65 74 75 70 0d 83  |..8:.savesetup..|
00015740  ae 1c c9 39 3a f2 73 61  76 65 70 64 3a f2 6e 65  |...9:.savepd:.ne|
00015750  77 66 6e 28 66 5f 70 64  24 29 0d 83 b8 05 cb 0d  |wfn(f_pd$)......|
00015760  83 c2 11 f7 85 3a d9 23  6f 75 74 66 69 6c 65 25  |.....:.#outfile%|
00015770  0d 83 cc 27 f2 73 65 74  74 79 70 65 28 66 69 6c  |...'.settype(fil|
00015780  65 24 2c 73 61 76 65 74  79 70 65 25 29 3a f2 6c  |e$,savetype%):.l|
00015790  6f 61 64 6d 65 73 73 0d  83 d6 27 73 61 76 65 72  |oadmess...'saver|
000157a0  65 61 73 6f 6e 25 3d 2d  31 3a 73 61 76 65 66 69  |eason%=-1:savefi|
000157b0  6c 65 25 3d 2d 31 3a f2  6e 6f 6d 65 6e 75 0d 83  |le%=-1:.nomenu..|
000157c0  e0 05 e1 0d 83 ea 04 0d  83 f4 1a dd f2 73 65 74  |.............set|
000157d0  74 79 70 65 28 66 69 6c  65 24 2c 74 79 70 65 25  |type(file$,type%|
000157e0  29 0d 83 fe 0f ea 85 3a  ee 85 ea 3a f7 85 3a e1  |)......:...:..:.|
000157f0  0d 84 08 21 ff 22 73 65  74 74 79 70 65 20 22 2b  |...!."settype "+|
00015800  66 69 6c 65 24 2b 22 20  22 2b c3 7e 74 79 70 65  |file$+" "+.~type|
00015810  25 0d 84 12 05 e1 0d 84  1c 04 0d 84 26 2e dd f2  |%...........&...|
00015820  73 61 76 65 63 61 72 64  3a e7 a4 64 65 61 64 66  |savecard:..deadf|
00015830  69 6c 65 28 25 31 31 31  31 31 31 31 31 30 31 31  |ile(%11111111011|
00015840  31 31 31 31 31 29 3a e1  0d 84 30 1c e7 a6 2d 33  |11111):...0...-3|
00015850  8c f2 64 70 72 69 6e 74  28 a4 73 74 61 74 73 74  |..dprint(.statst|
00015860  72 29 3a e1 0d 84 3a 27  ea 49 25 3a e3 49 25 3d  |r):...:'.I%:.I%=|
00015870  31 b8 a4 68 74 3a c8 99  73 77 69 25 2c 67 6c 69  |1..ht:..swi%,gli|
00015880  6e 65 5f 25 2c 49 25 2c  73 64 24 0d 84 44 15 f2  |ne_%,I%,sd$..D..|
00015890  64 70 72 69 6e 74 28 24  73 64 25 29 3a ed 3a e1  |dprint($sd%):.:.|
000158a0  0d 84 4e 04 0d 84 58 2f  dd f2 73 61 76 65 63 61  |..N...X/..saveca|
000158b0  72 64 31 3a e7 a4 64 65  61 64 66 69 6c 65 28 25  |rd1:..deadfile(%|
000158c0  31 31 31 31 31 31 31 31  30 31 31 31 31 31 31 31  |1111111101111111|
000158d0  29 3a e1 0d 84 62 2b ea  49 25 3a e3 49 25 3d 74  |):...b+.I%:.I%=t|
000158e0  79 30 25 b8 74 79 31 25  3a c8 99 73 77 69 25 2c  |y0%.ty1%:..swi%,|
000158f0  67 6c 69 6e 65 5f 25 2c  49 25 2c 73 64 24 0d 84  |gline_%,I%,sd$..|
00015900  6c 28 f2 64 70 72 69 6e  74 28 c1 24 73 64 25 2c  |l(.dprint(.$sd%,|
00015910  74 78 30 25 2c 74 78 31  25 2d 74 78 30 25 2b 31  |tx0%,tx1%-tx0%+1|
00015920  29 29 3a ed 3a e1 0d 84  76 04 0d 84 80 32 dd f2  |)):.:...v....2..|
00015930  73 61 76 65 66 69 65 6c  64 3a f2 64 70 72 69 6e  |savefield:.dprin|
00015940  74 28 a4 73 28 a4 67 66  69 65 6c 64 28 6d 65 6e  |t(.s(.gfield(men|
00015950  75 66 69 65 6c 64 25 29  29 29 3a e1 0d 84 8a 04  |ufield%))):.....|
00015960  0d 84 94 35 dd f2 73 61  76 65 6e 6f 74 65 3a f2  |...5..savenote:.|
00015970  64 70 72 69 6e 74 28 a4  73 28 a4 6e 6f 74 65 28  |dprint(.s(.note(|
00015980  66 69 6c 65 25 2c 6d 65  6e 75 66 69 65 6c 64 25  |file%,menufield%|
00015990  29 29 29 3a e1 0d 84 9e  04 0d 84 a8 0f dd f2 73  |))):...........s|
000159a0  61 76 65 6e 6f 74 65 73  0d 84 b2 31 ea 49 25 3a  |avenotes...1.I%:|
000159b0  e3 49 25 3d 30 b8 31 38  3a f2 64 70 72 69 6e 74  |.I%=0.18:.dprint|
000159c0  28 a4 73 28 a4 6e 6f 74  65 28 66 69 6c 65 25 2c  |(.s(.note(file%,|
000159d0  49 25 29 29 29 3a ed 3a  e1 0d 84 bc 04 0d 84 c6  |I%))):.:........|
000159e0  0f dd f2 73 61 76 65 6d  61 63 72 6f 0d 84 d0 32  |...savemacro...2|
000159f0  ea 49 25 3a e3 49 25 3d  30 b8 32 39 3a f2 64 70  |.I%:.I%=0.29:.dp|
00015a00  72 69 6e 74 28 a4 73 28  a4 6d 61 63 6c 6e 28 66  |rint(.s(.macln(f|
00015a10  69 6c 65 25 2c 49 25 29  29 29 3a ed 3a e1 0d 84  |ile%,I%))):.:...|
00015a20  da 04 0d 84 e4 0d dd f2  73 61 76 65 72 65 70 0d  |........saverep.|
00015a30  84 ee 06 ea 85 0d 84 f8  1d ee 85 ea 3a f7 85 3a  |............:..:|
00015a40  f2 76 61 6c 69 64 72 65  63 3a f2 65 72 72 28 34  |.validrec:.err(4|
00015a50  36 29 0d 85 02 23 6f 75  74 72 65 70 25 3d 31 3a  |6)...#outrep%=1:|
00015a60  f2 69 6e 69 74 72 65 70  3a c8 8e 72 25 28 66 69  |.initrep:..r%(fi|
00015a70  6c 65 25 29 ca 0d 85 0c  10 c9 30 3a f2 73 61 76  |le%)......0:.sav|
00015a80  65 72 65 70 30 0d 85 16  10 c9 31 3a f2 73 61 76  |erep0.....1:.sav|
00015a90  65 72 65 70 31 0d 85 20  10 c9 32 3a f2 73 61 76  |erep1.. ..2:.sav|
00015aa0  65 72 65 70 32 0d 85 2a  10 c9 33 3a f2 73 61 76  |erep2..*..3:.sav|
00015ab0  65 72 65 70 33 0d 85 34  10 c9 34 3a f2 73 61 76  |erep3..4..4:.sav|
00015ac0  65 72 65 70 34 0d 85 3e  10 c9 35 3a f2 73 61 76  |erep4..>..5:.sav|
00015ad0  65 72 65 70 35 0d 85 48  05 cb 0d 85 52 0f f2 76  |erep5..H....R..v|
00015ae0  61 6c 69 64 72 65 63 3a  e1 0d 85 5c 04 0d 85 66  |alidrec:...\...f|
00015af0  1c dd f2 73 61 76 65 72  65 70 30 3a ea 68 25 2c  |...saverep0:.h%,|
00015b00  49 25 3a 68 25 3d a4 68  74 0d 85 70 20 f5 3a f2  |I%:h%=.ht..p .:.|
00015b10  73 64 6e 65 78 74 3a e7  a4 76 5f 28 31 35 29 3c  |sdnext:..v_(15)<|
00015b20  3d a4 76 5f 28 31 37 29  8c 0d 85 7a 22 e3 49 25  |=.v_(17)...z".I%|
00015b30  3d 31 b8 68 25 3a c8 99  73 77 69 25 2c 67 6c 69  |=1.h%:..swi%,gli|
00015b40  6e 65 5f 25 2c 49 25 2c  73 64 24 0d 85 84 1a f2  |ne_%,I%,sd$.....|
00015b50  64 70 72 69 6e 74 28 24  73 64 25 29 3a e7 a6 30  |dprint($sd%):..0|
00015b60  3d 32 37 3a e1 0d 85 8e  17 ed 3a e7 68 25 3e 31  |=27:......:.h%>1|
00015b70  3a f2 64 70 72 69 6e 74  28 22 22 29 0d 85 98 05  |:.dprint("")....|
00015b80  cd 0d 85 a2 16 fd a4 76  5f 28 31 35 29 3e a4 76  |.......v_(15)>.v|
00015b90  5f 28 31 37 29 3a e1 0d  85 ac 04 0d 85 b6 15 dd  |_(17):..........|
00015ba0  f2 73 61 76 65 72 65 70  31 3a ea 49 25 2c 54 24  |.saverep1:.I%,T$|
00015bb0  0d 85 c0 11 f5 3a fd a4  72 65 70 31 28 b9 29 3a  |.....:..rep1(.):|
00015bc0  e1 0d 85 ca 04 0d 85 d4  0e dd a4 72 65 70 31 28  |...........rep1(|
00015bd0  54 25 29 0d 85 de 0f e7  a4 76 5f 28 31 35 29 3d  |T%)......v_(15)=|
00015be0  30 8c 0d 85 e8 25 c8 99  73 77 69 25 2c 61 63 63  |0....%..swi%,acc|
00015bf0  75 6d 75 6c 61 74 65 5f  25 2c 30 2c 73 72 78 24  |umulate_%,0,srx$|
00015c00  28 66 69 6c 65 25 29 0d  85 f2 49 e7 a4 66 6c 67  |(file%)...I..flg|
00015c10  28 66 5f 73 74 69 74 25  29 f2 6f 70 72 69 6e 74  |(f_stit%).oprint|
00015c20  28 a4 73 72 65 70 28 30  29 2c 54 25 29 3a e7 a4  |(.srep(0),T%):..|
00015c30  66 6c 67 28 66 5f 73 64  61 73 25 29 f2 6f 70 72  |flg(f_sdas%).opr|
00015c40  69 6e 74 28 a4 73 72 65  70 28 31 29 2c 54 25 29  |int(.srep(1),T%)|
00015c50  0d 85 fc 05 cd 0d 86 06  16 f2 73 64 6e 65 78 74  |..........sdnext|
00015c60  3a 4e 25 3d a4 76 5f 28  31 35 29 0d 86 10 06 ea  |:N%=.v_(15).....|
00015c70  85 0d 86 1a 4b ee 85 ea  3a e7 9f 3d 31 37 80 54  |....K...:..=17.T|
00015c80  25 3a 4e 25 3d a4 76 5f  28 31 37 29 2b 31 3a f2  |%:N%=.v_(17)+1:.|
00015c90  6f 70 72 69 6e 74 28 22  2a 2a 2a 20 49 6e 74 65  |oprint("*** Inte|
00015ca0  72 72 75 70 74 65 64 20  2a 2a 2a 22 2c 54 25 29  |rrupted ***",T%)|
00015cb0  3a 8b f7 85 3a f2 65 72  72 28 30 29 0d 86 24 0e  |:...:.err(0)..$.|
00015cc0  e7 54 25 3a 2a 66 78 32  32 39 0d 86 2e 11 e7 4e  |.T%:*fx229.....N|
00015cd0  25 3c 3d a4 76 5f 28 31  37 29 8c 0d 86 38 1a c8  |%<=.v_(17)...8..|
00015ce0  99 73 77 69 25 2c 61 63  63 75 6d 75 6c 61 74 65  |.swi%,accumulate|
00015cf0  5f 25 2c 2d 31 0d 86 42  14 c8 99 73 77 69 25 2c  |_%,-1..B...swi%,|
00015d00  6c 69 6e 65 5f 25 2c 2d  31 0d 86 4c 21 e7 a4 66  |line_%,-1..L!..f|
00015d10  6c 67 28 66 5f 73 72 75  70 25 29 3a c8 99 73 77  |lg(f_srup%):..sw|
00015d20  69 25 2c 75 70 70 65 72  5f 25 0d 86 56 14 f2 6f  |i%,upper_%..V..o|
00015d30  70 72 69 6e 74 28 24 73  64 25 2c 54 25 29 0d 86  |print($sd%,T%)..|
00015d40  60 05 cd 0d 86 6a 0c 2a  66 78 32 32 39 2c 31 0d  |`....j.*fx229,1.|
00015d50  86 74 06 f7 85 0d 86 7e  10 e7 4e 25 3e a4 76 5f  |.t.....~..N%>.v_|
00015d60  28 31 37 29 8c 0d 86 88  13 e7 a4 66 6c 67 28 66  |(17).......flg(f|
00015d70  5f 73 74 6f 74 25 29 8c  0d 86 92 13 e7 a4 66 6c  |_stot%).......fl|
00015d80  67 28 66 5f 73 64 61 73  25 29 8c 0d 86 9c 14 c8  |g(f_sdas%)......|
00015d90  99 73 77 69 25 2c 6c 69  6e 65 5f 25 2c 2d 32 0d  |.swi%,line_%,-2.|
00015da0  86 a6 14 f2 6f 70 72 69  6e 74 28 24 73 64 25 2c  |....oprint($sd%,|
00015db0  54 25 29 0d 86 b0 05 cd  0d 86 ba 14 c8 99 73 77  |T%)...........sw|
00015dc0  69 25 2c 6c 69 6e 65 5f  25 2c 2d 33 0d 86 c4 14  |i%,line_%,-3....|
00015dd0  f2 6f 70 72 69 6e 74 28  24 73 64 25 2c 54 25 29  |.oprint($sd%,T%)|
00015de0  0d 86 ce 05 cd 0d 86 d8  15 c8 99 73 77 69 25 2c  |...........swi%,|
00015df0  6c 69 6e 65 5f 25 2c 30  2c 31 0d 86 e2 06 3d b9  |line_%,0,1....=.|
00015e00  0d 86 ec 05 cd 0d 86 f6  06 3d a3 0d 87 00 04 0d  |.........=......|
00015e10  87 0a 15 dd f2 73 61 76  65 72 65 70 32 3a ea 49  |.....saverep2:.I|
00015e20  25 2c 54 24 0d 87 14 20  f5 3a f2 73 64 6e 65 78  |%,T$... .:.sdnex|
00015e30  74 3a e7 a4 76 5f 28 31  35 29 3c 3d a4 76 5f 28  |t:..v_(15)<=.v_(|
00015e40  31 37 29 8c 0d 87 1e 19  54 24 3d a4 72 6c 69 6e  |17).....T$=.rlin|
00015e50  28 a4 76 5f 28 31 35 29  2c 32 35 35 29 0d 87 28  |(.v_(15),255)..(|
00015e60  14 f2 64 70 72 69 6e 74  28 c1 54 24 2c 31 32 29  |..dprint(.T$,12)|
00015e70  29 0d 87 32 0c e7 a6 30  3d 32 37 3a e1 0d 87 3c  |)..2...0=27:...<|
00015e80  05 cd 0d 87 46 16 fd a4  76 5f 28 31 35 29 3e a4  |....F...v_(15)>.|
00015e90  76 5f 28 31 37 29 3a e1  0d 87 50 04 0d 87 5a 15  |v_(17):...P...Z.|
00015ea0  dd f2 73 61 76 65 72 65  70 33 3a ea 49 25 2c 54  |..saverep3:.I%,T|
00015eb0  24 0d 87 64 13 f5 3a f2  6c 61 62 6c 69 6e 65 28  |$..d..:.labline(|
00015ec0  30 2c b9 29 0d 87 6e 0c  e7 a6 30 3d 32 37 3a e1  |0,.)..n...0=27:.|
00015ed0  0d 87 78 15 fd 65 25 28  66 69 6c 65 25 2c 32 29  |..x..e%(file%,2)|
00015ee0  3d 2d 31 3a e1 0d 87 82  04 0d 87 8c 24 dd f2 73  |=-1:........$..s|
00015ef0  61 76 65 72 65 70 34 3a  ea 49 25 2c 54 24 2c 54  |averep4:.I%,T$,T|
00015f00  25 2c 74 24 2c 74 25 2c  73 25 2c 62 25 0d 87 96  |%,t$,t%,s%,b%...|
00015f10  31 74 24 3d 22 46 4e 77  6f 72 64 6f 75 74 22 2b  |1t$="FNwordout"+|
00015f20  c3 77 6f 25 28 66 69 6c  65 25 29 2b 22 28 6f 75  |.wo%(file%)+"(ou|
00015f30  74 66 69 6c 65 25 2c 74  25 2c 54 24 29 22 0d 87  |tfile%,t%,T$)"..|
00015f40  a0 17 54 24 3d 22 22 3a  74 25 3d 30 3a 54 25 3d  |..T$="":t%=0:T%=|
00015f50  a0 74 24 3a f5 0d 87 aa  1e f2 73 64 6e 65 78 74  |.t$:......sdnext|
00015f60  3a e7 a4 76 5f 28 31 35  29 3c 3d a4 76 5f 28 31  |:..v_(15)<=.v_(1|
00015f70  37 29 8c 0d 87 b4 15 54  24 3d 22 22 3a 74 25 3d  |7).....T$="":t%=|
00015f80  31 3a 54 25 3d a0 74 24  0d 87 be 14 49 25 3d 30  |1:T%=.t$....I%=0|
00015f90  3a 62 25 3d 30 3a 74 25  3d 32 3a f5 0d 87 c8 20  |:b%=0:t%=2:.... |
00015fa0  54 24 3d a4 73 28 77 24  28 66 69 6c 65 25 2c 49  |T$=.s(w$(file%,I|
00015fb0  25 29 29 3a e7 54 24 3c  3e 22 22 8c 0d 87 d2 06  |%)):.T$<>"".....|
00015fc0  ea 85 0d 87 dc 1e 54 25  3d a3 3a ee 85 ea 3a 54  |......T%=.:...:T|
00015fd0  24 3d 22 20 2a 2a 20 22  2b f6 24 3a 54 25 3d b9  |$=" ** "+.$:T%=.|
00015fe0  0d 87 e6 09 e7 ac 54 25  8c 0d 87 f0 11 54 24 3d  |......T%.....T$=|
00015ff0  a4 73 28 a4 78 28 54 24  29 29 0d 87 fa 12 e7 a4  |.s(.x(T$))......|
00016000  75 28 54 24 29 3d 22 45  4e 44 22 8c 0d 88 04 09  |u(T$)="END".....|
00016010  49 25 3d 39 39 0d 88 0e  05 cc 0d 88 18 30 54 24  |I%=99........0T$|
00016020  3d a4 65 76 33 28 54 24  2c a4 66 6c 67 28 66 5f  |=.ev3(T$,.flg(f_|
00016030  77 73 70 63 25 29 2c a4  66 6c 67 28 66 5f 77 75  |wspc%),.flg(f_wu|
00016040  70 70 25 29 2c 26 39 30  41 29 0d 88 22 05 cd 0d  |pp%),&90A).."...|
00016050  88 2c 05 cd 0d 88 36 06  f7 85 0d 88 40 0c e7 49  |.,....6.....@..I|
00016060  25 3c 3e 39 39 8c 0d 88  4a 20 e7 a4 66 6c 67 28  |%<>99...J ..flg(|
00016070  66 5f 77 62 6e 6b 25 29  80 54 24 3d c4 a9 54 24  |f_wbnk%).T$=..T$|
00016080  2c 22 20 22 29 8c 0d 88  54 09 62 25 2b 3d 31 0d  |," ")...T.b%+=1.|
00016090  88 5e 05 cc 0d 88 68 0f  54 25 3d a0 74 24 3a 74  |.^....h.T%=.t$:t|
000160a0  25 3d 33 0d 88 72 05 cd  0d 88 7c 05 cd 0d 88 86  |%=3..r....|.....|
000160b0  05 cd 0d 88 90 10 49 25  2b 3d 31 3a fd 49 25 3e  |......I%+=1:.I%>|
000160c0  31 34 0d 88 9a 24 54 24  3d 22 22 3a c8 95 62 25  |14...$T$="":..b%|
000160d0  3e 30 3a 54 25 3d a0 74  24 3a 74 25 3d 33 3a 62  |>0:T%=.t$:t%=3:b|
000160e0  25 2d 3d 31 3a ce 0d 88  a4 15 54 24 3d 22 22 3a  |%-=1:.....T$="":|
000160f0  74 25 3d 34 3a 54 25 3d  a0 74 24 0d 88 ae 05 cd  |t%=4:T%=.t$.....|
00016100  0d 88 b8 2e fd a4 76 5f  28 31 35 29 3e a4 76 5f  |......v_(15)>.v_|
00016110  28 31 37 29 84 a6 30 3d  32 37 3a 54 24 3d 22 22  |(17)..0=27:T$=""|
00016120  3a 74 25 3d 35 3a 54 25  3d a0 74 24 3a e1 0d 88  |:t%=5:T%=.t$:...|
00016130  c2 04 0d 88 cc 0e dd f2  73 61 76 65 72 65 70 35  |........saverep5|
00016140  0d 88 d6 0e f5 3a e7 a6  30 3d 32 37 3a e1 0d 88  |.....:..0=27:...|
00016150  e0 0d fd ac a4 70 72 6c  69 6e 65 0d 88 ea 05 e1  |.....prline.....|
00016160  0d 88 f4 04 0d 88 fe 0a  dd a4 69 74 6f 73 0d 89  |..........itos..|
00016170  08 1b e7 6d 69 25 3e 34  80 6d 69 25 3c 32 39 3a  |...mi%>4.mi%<29:|
00016180  3d 6d 69 25 2d 34 2b 33  32 0d 89 12 1a e7 6d 69  |=mi%-4+32.....mi|
00016190  25 3e 32 38 80 6d 69 25  3c 35 33 3a 3d 6d 69 25  |%>28.mi%<53:=mi%|
000161a0  2d 32 38 0d 89 1c 0d e7  6d 69 25 3d 31 3a 3d 30  |-28.....mi%=1:=0|
000161b0  0d 89 26 1e e7 6d 69 25  3e 35 32 80 6d 69 25 3c  |..&..mi%>52.mi%<|
000161c0  36 33 3a 3d 6d 69 25 2d  35 33 2b 32 35 36 0d 89  |63:=mi%-53+256..|
000161d0  30 07 3d 2d 31 0d 89 3a  04 0d 89 44 39 dd a4 6d  |0.=-1..:...D9..m|
000161e0  6f 75 73 65 66 3a ea 58  25 2c 59 25 3a 58 25 3d  |ousef:.X%,Y%:X%=|
000161f0  6d 78 25 3a 59 25 3d 6d  79 25 3a f2 63 79 63 6f  |mx%:Y%=my%:.cyco|
00016200  6e 76 28 59 25 29 3a f2  63 78 63 6f 6e 76 28 58  |nv(Y%):.cxconv(X|
00016210  25 29 0d 89 4e 1c ea 85  3a ee 85 ea 3a f2 73 64  |%)..N...:...:.sd|
00016220  66 69 6c 65 28 66 69 6c  65 25 29 3a 3d 30 0d 89  |file(file%):=0..|
00016230  58 1e c8 99 73 77 69 25  2c 73 64 35 32 5f 25 2c  |X...swi%,sd52_%,|
00016240  58 25 2c 59 25 2c 73 64  24 b8 47 25 0d 89 62 16  |X%,Y%,sd$.G%..b.|
00016250  f2 73 64 66 69 6c 65 28  66 69 6c 65 25 29 3a 3d  |.sdfile(file%):=|
00016260  47 25 0d 89 6c 04 0d 89  76 24 dd f2 64 72 61 67  |G%..l...v$..drag|
00016270  66 69 65 6c 64 3a f2 66  69 65 6c 64 73 7a 28 6d  |field:.fieldsz(m|
00016280  65 6e 75 66 69 65 6c 64  25 29 0d 89 80 3f 21 71  |enufield%)...?!q|
00016290  25 3d 77 25 28 66 69 6c  65 25 2c 30 29 3a 71 25  |%=w%(file%,0):q%|
000162a0  21 38 3d 62 78 25 2b 74  78 30 25 3a 71 25 21 31  |!8=bx%+tx0%:q%!1|
000162b0  32 3d 62 79 25 2b 74 79  30 25 3a 71 25 21 31 36  |2=by%+ty0%:q%!16|
000162c0  3d 62 78 25 2b 74 78 31  25 0d 89 8a 32 71 25 21  |=bx%+tx1%...2q%!|
000162d0  32 30 3d 62 79 25 2b 74  79 31 25 3a 71 25 21 32  |20=by%+ty1%:q%!2|
000162e0  34 3d 30 3a 71 25 21 32  38 3d 30 3a 71 25 21 34  |4=0:q%!28=0:q%!4|
000162f0  3d 35 3a f2 64 72 61 67  35 3a e1 0d 89 94 04 0d  |=5:.drag5:......|
00016300  89 9e 14 dd f2 64 72 61  67 66 69 65 6c 64 31 3a  |.....dragfield1:|
00016310  ea 59 25 0d 89 a8 42 f2  67 65 74 77 28 77 25 28  |.Y%...B.getw(w%(|
00016320  66 69 6c 65 25 2c 34 29  29 3a 59 25 3d 62 79 25  |file%,4)):Y%=by%|
00016330  2d 6d 65 6e 75 66 69 65  6c 64 25 2a 6c 69 6e 65  |-menufield%*line|
00016340  67 61 70 25 2d 6d 61 72  67 69 6e 25 2b 6c 69 6e  |gap%-margin%+lin|
00016350  65 67 61 70 25 0d 89 b2  47 71 25 21 38 3d 62 78  |egap%...Gq%!8=bx|
00016360  25 2b 6d 61 72 67 69 6e  25 3a 21 71 25 3d 77 25  |%+margin%:!q%=w%|
00016370  28 66 69 6c 65 25 2c 34  29 3a 71 25 21 31 32 3d  |(file%,4):q%!12=|
00016380  59 25 2d 33 32 3a 71 25  21 31 36 3d 62 78 25 2b  |Y%-32:q%!16=bx%+|
00016390  65 78 31 25 2d 6d 61 72  67 69 6e 25 0d 89 bc 2c  |ex1%-margin%...,|
000163a0  71 25 21 32 30 3d 59 25  3a 71 25 21 32 34 3d 30  |q%!20=Y%:q%!24=0|
000163b0  3a 71 25 21 32 38 3d 30  3a 71 25 21 34 3d 35 3a  |:q%!28=0:q%!4=5:|
000163c0  f2 64 72 61 67 35 3a e1  0d 89 c6 04 0d 89 d0 1b  |.drag5:.........|
000163d0  dd f2 64 72 61 67 63 61  72 64 3a e7 a4 64 69 61  |..dragcard:..dia|
000163e0  6c 6f 67 75 65 3a e1 0d  89 da 1e 21 71 25 3d 77  |logue:.....!q%=w|
000163f0  25 28 66 69 6c 65 25 2c  30 29 3a f2 67 65 74 77  |%(file%,0):.getw|
00016400  28 21 71 25 29 0d 89 e4  2a 71 25 21 38 3d 6d 78  |(!q%)...*q%!8=mx|
00016410  25 3a 71 25 21 31 32 3d  6d 79 25 3a 71 25 21 31  |%:q%!12=my%:q%!1|
00016420  36 3d 6d 78 25 3a 71 25  21 32 30 3d 6d 79 25 0d  |6=mx%:q%!20=my%.|
00016430  89 ee 3e 71 25 21 32 34  3d 62 78 25 2b 65 78 30  |..>q%!24=bx%+ex0|
00016440  25 2b 6d 61 72 67 69 6e  25 3a 71 25 21 32 38 3d  |%+margin%:q%!28=|
00016450  62 79 25 2b 65 79 31 25  2d 6d 61 72 67 69 6e 25  |by%+ey1%-margin%|
00016460  2d a4 68 74 2a 6c 69 6e  65 67 61 70 25 0d 89 f8  |-.ht*linegap%...|
00016470  21 71 25 21 33 32 3d 62  78 25 2b 65 78 30 25 2b  |!q%!32=bx%+ex0%+|
00016480  6d 61 72 67 69 6e 25 2b  a4 77 64 2a 31 36 0d 8a  |margin%+.wd*16..|
00016490  02 36 71 25 21 33 36 3d  62 79 25 2b 65 79 31 25  |.6q%!36=by%+ey1%|
000164a0  2d 6d 61 72 67 69 6e 25  3a 71 25 21 34 3d 36 3a  |-margin%:q%!4=6:|
000164b0  c8 99 22 57 69 6d 70 5f  44 72 61 67 42 6f 78 22  |.."Wimp_DragBox"|
000164c0  2c 2c 71 25 0d 8a 0c 05  e1 0d 8a 16 04 0d 8a 20  |,,q%........... |
000164d0  1f dd f2 73 65 6c 73 75  62 28 73 25 29 3a e7 73  |...selsub(s%):.s|
000164e0  25 3e 32 35 35 84 73 25  3c 30 3a e1 0d 8a 2a 1e  |%>255.s%<0:...*.|
000164f0  e7 73 25 3d a4 76 5f 28  31 31 29 80 73 25 28 66  |.s%=.v_(11).s%(f|
00016500  69 6c 65 25 29 3c 3e 31  3a e1 0d 8a 34 1e f2 7a  |ile%)<>1:...4..z|
00016510  66 6f 75 6e 64 3a c8 99  73 77 69 25 2c 73 75 62  |found:..swi%,sub|
00016520  73 65 74 5f 25 2c 73 25  0d 8a 3e 1a f2 72 65 76  |set_%,s%..>..rev|
00016530  61 6c 69 64 61 74 65 3a  f2 73 68 6f 77 73 75 62  |alidate:.showsub|
00016540  3a e1 0d 8a 48 04 0d 8a  52 2f dd f2 63 78 63 6f  |:...H...R/..cxco|
00016550  6e 76 28 f8 20 58 25 29  3a f2 78 63 6f 6e 76 28  |nv(. X%):.xconv(|
00016560  58 25 2c a4 77 64 2c 77  25 28 66 69 6c 65 25 2c  |X%,.wd,w%(file%,|
00016570  30 29 29 3a e1 0d 8a 5c  2f dd f2 63 79 63 6f 6e  |0)):...\/..cycon|
00016580  76 28 f8 20 59 25 29 3a  f2 79 63 6f 6e 76 28 59  |v(. Y%):.yconv(Y|
00016590  25 2c a4 68 74 2c 77 25  28 66 69 6c 65 25 2c 30  |%,.ht,w%(file%,0|
000165a0  29 29 3a e1 0d 8a 66 04  0d 8a 70 21 dd f2 79 63  |)):...f...p!..yc|
000165b0  6f 6e 76 28 f8 20 59 25  2c 54 25 2c 68 25 29 3a  |onv(. Y%,T%,h%):|
000165c0  f2 67 65 74 77 28 68 25  29 0d 8a 7a 38 59 25 3d  |.getw(h%)..z8Y%=|
000165d0  28 62 79 25 2d 59 25 2d  6d 61 72 67 69 6e 25 29  |(by%-Y%-margin%)|
000165e0  81 6c 69 6e 65 67 61 70  25 2b 31 3a e7 59 25 3c  |.linegap%+1:.Y%<|
000165f0  31 59 25 3d 31 8b e7 59  25 3e 54 25 59 25 3d 54  |1Y%=1..Y%>T%Y%=T|
00016600  25 0d 8a 84 05 e1 0d 8a  8e 04 0d 8a 98 21 dd f2  |%............!..|
00016610  78 63 6f 6e 76 28 f8 20  58 25 2c 54 25 2c 68 25  |xconv(. X%,T%,h%|
00016620  29 3a f2 67 65 74 77 28  68 25 29 0d 8a a2 32 58  |):.getw(h%)...2X|
00016630  25 3d 28 58 25 2d 62 78  25 2d 6d 61 72 67 69 6e  |%=(X%-bx%-margin|
00016640  25 29 81 31 36 2b 31 3a  e7 58 25 3c 31 58 25 3d  |%).16+1:.X%<1X%=|
00016650  31 8b e7 58 25 3e 54 25  58 25 3d 54 25 0d 8a ac  |1..X%>T%X%=T%...|
00016660  05 e1 0d 8a b6 04 0d 8a  c0 1b dd f2 73 61 76 65  |............save|
00016670  77 28 66 24 2c 54 25 2c  72 25 2c 66 25 2c 73 25  |w(f$,T%,r%,f%,s%|
00016680  29 0d 8a ca 1c f2 73 61  76 65 73 65 74 28 66 24  |).....saveset(f$|
00016690  2c 54 25 2c 72 25 2c 66  25 2c 73 25 29 0d 8a d4  |,T%,r%,f%,s%)...|
000166a0  18 f2 64 69 61 6c 6f 67  75 65 28 77 5f 73 61 76  |..dialogue(w_sav|
000166b0  65 25 29 3a e1 0d 8a de  04 0d 8a e8 1d dd f2 73  |e%):...........s|
000166c0  61 76 65 73 65 74 28 66  24 2c 54 25 2c 72 25 2c  |aveset(f$,T%,r%,|
000166d0  66 25 2c 73 25 29 0d 8a  f2 33 73 61 76 65 72 65  |f%,s%)...3savere|
000166e0  61 73 6f 6e 25 3d 72 25  3a 73 61 76 65 66 69 6c  |ason%=r%:savefil|
000166f0  65 25 3d 66 25 3a 73 61  76 65 74 25 3d 54 25 3a  |e%=f%:savet%=T%:|
00016700  73 61 76 65 73 25 3d 73  25 0d 8a fc 3e f2 73 65  |saves%=s%...>.se|
00016710  74 69 28 77 5f 73 61 76  65 25 2c 32 2c 66 24 29  |ti(w_save%,2,f$)|
00016720  3a 24 a4 76 61 28 77 5f  73 61 76 65 25 2c 33 29  |:$.va(w_save%,3)|
00016730  3d 22 73 66 69 6c 65 5f  22 2b c2 22 30 30 22 2b  |="sfile_"+."00"+|
00016740  c3 7e 54 25 2c 33 29 0d  8b 06 05 e1 0d 8b 10 04  |.~T%,3).........|
00016750  0d 8b 1a 0b dd f2 43 4c  4f 53 45 0d 8b 24 07 ea  |......CLOSE..$..|
00016760  49 25 0d 8b 2e 0f e3 49  25 3d 30 b8 6d 61 78 66  |I%.....I%=0.maxf|
00016770  25 0d 8b 38 27 e7 68 25  28 49 25 29 3e 30 3a 63  |%..8'.h%(I%)>0:c|
00016780  6c 6f 73 65 6f 6b 25 3d  b9 3a f2 63 6c 6f 73 65  |loseok%=.:.close|
00016790  66 69 6c 65 28 49 25 29  0d 8b 42 07 ed 3a e1 0d  |file(I%)..B..:..|
000167a0  8b 4c 04 0d 8b 56 0d dd  f2 70 72 65 71 75 69 74  |.L...V...prequit|
000167b0  0d 8b 60 1b e7 a4 76 5f  28 31 29 3e 30 f2 61 63  |..`...v_(1)>0.ac|
000167c0  6b 72 65 63 3a f2 71 71  75 69 74 0d 8b 6a 05 e1  |krec:.qquit..j..|
000167d0  0d 8b 74 04 0d 8b 7e 38  dd f2 61 63 6b 72 65 63  |..t...~8..ackrec|
000167e0  3a 71 25 21 31 32 3d 72  65 66 25 3a c8 99 22 57  |:q%!12=ref%:.."W|
000167f0  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
00016800  2c 31 39 2c 71 25 2c 74  61 73 6b 25 0d 8b 88 32  |,19,q%,task%...2|
00016810  dd f2 71 71 75 69 74 3a  f2 73 74 6f 70 28 36 2c  |..qquit:.stop(6,|
00016820  22 43 6c 6f 73 65 20 66  69 6c 65 73 20 61 6e 64  |"Close files and|
00016830  20 71 75 69 74 22 2c 61  73 24 2c 2d 31 29 0d 8b  | quit",as$,-1)..|
00016840  92 05 e1 0d 8b 9c 04 0d  8b a6 0e dd f2 6f 70 65  |.............ope|
00016850  6e 66 6f 72 6d 0d 8b b0  16 ea 54 24 3a 54 24 3d  |nform.....T$:T$=|
00016860  a4 7a 74 73 28 71 25 2b  34 34 29 0d 8b ba 23 e7  |.zts(q%+44)...#.|
00016870  a4 64 65 61 64 66 69 6c  65 28 25 31 31 31 31 31  |.deadfile(%11111|
00016880  31 31 31 31 30 31 31 31  31 31 31 30 29 e1 0d 8b  |111101111110)...|
00016890  c4 0e f2 63 6c 6f 73 65  66 6f 72 6d 0d 8b ce 15  |...closeform....|
000168a0  ea 85 3a ee 85 ea 3a f7  85 3a f2 65 72 72 28 37  |..:...:..:.err(7|
000168b0  29 0d 8b d8 15 c8 99 73  77 69 25 2c 6f 66 6f 72  |)......swi%,ofor|
000168c0  6d 5f 25 2c 54 24 0d 8b  e2 15 66 25 28 66 69 6c  |m_%,T$....f%(fil|
000168d0  65 25 29 3d 2d a4 76 5f  28 32 29 0d 8b ec 09 f2  |e%)=-.v_(2).....|
000168e0  6c 69 6e 6b 0d 8b f6 05  e1 0d 8c 00 04 0d 8c 0a  |link............|
000168f0  1e dd f2 63 6c 6f 73 65  66 6f 72 6d 3a e7 66 25  |...closeform:.f%|
00016900  28 66 69 6c 65 25 29 3d  30 3a e1 0d 8c 14 16 e7  |(file%)=0:......|
00016910  66 25 28 66 69 6c 65 25  29 3e 30 3a f2 6c 69 6e  |f%(file%)>0:.lin|
00016920  6b 0d 8c 1e 2b c8 99 73  77 69 25 2c 63 66 6f 72  |k...+..swi%,cfor|
00016930  6d 5f 25 2c 66 25 28 66  69 6c 65 25 29 b8 53 25  |m_%,f%(file%).S%|
00016940  3a 66 25 28 66 69 6c 65  25 29 3d 30 0d 8c 28 05  |:f%(file%)=0..(.|
00016950  e1 0d 8c 32 04 0d 8c 3c  0a dd f2 6c 69 6e 6b 0d  |...2...<...link.|
00016960  8c 46 18 66 25 28 66 69  6c 65 25 29 3d 2d 66 25  |.F.f%(file%)=-f%|
00016970  28 66 69 6c 65 25 29 0d  8c 50 11 e7 66 25 28 66  |(file%)..P..f%(f|
00016980  69 6c 65 25 29 3c 30 8c  0d 8c 5a 1c c8 99 73 77  |ile%)<0...Z...sw|
00016990  69 25 2c 73 66 6f 72 6d  5f 25 2c 68 25 28 66 69  |i%,sform_%,h%(fi|
000169a0  6c 65 25 29 0d 8c 64 05  cc 0d 8c 6e 26 c8 99 73  |le%)..d....n&..s|
000169b0  77 69 25 2c 6c 66 6f 72  6d 5f 25 2c 66 25 28 66  |wi%,lform_%,f%(f|
000169c0  69 6c 65 25 29 2c 68 25  28 66 69 6c 65 25 29 0d  |ile%),h%(file%).|
000169d0  8c 78 05 cd 0d 8c 82 2b  f2 73 64 66 69 6c 65 28  |.x.....+.sdfile(|
000169e0  66 69 6c 65 25 29 3a f2  66 65 78 74 3a e7 72 25  |file%):.fext:.r%|
000169f0  28 66 69 6c 65 25 29 3d  30 3a f2 72 65 78 74 0d  |(file%)=0:.rext.|
00016a00  8c 8c 23 e7 77 25 28 66  69 6c 65 25 2c 34 29 3e  |..#.w%(file%,4)>|
00016a10  30 f2 6d 61 6b 65 66 6c  69 73 74 28 66 69 6c 65  |0.makeflist(file|
00016a20  25 29 0d 8c 96 05 e1 0d  8c a0 04 0d 8c aa 10 dd  |%)..............|
00016a30  a4 67 66 69 65 6c 64 28  54 25 29 0d 8c b4 1d c8  |.gfield(T%).....|
00016a40  99 73 77 69 25 2c 73 64  31 37 5f 25 2c 39 2c 54  |.swi%,sd17_%,9,T|
00016a50  25 2c 73 64 24 b8 47 25  0d 8c be 1d c8 99 73 77  |%,sd$.G%......sw|
00016a60  69 25 2c 67 66 69 65 6c  64 5f 25 2c 24 73 64 25  |i%,gfield_%,$sd%|
00016a70  2c 73 64 66 24 0d 8c c8  09 3d 24 73 64 25 0d 8c  |,sdf$....=$sd%..|
00016a80  d2 04 0d 8c dc 27 dd f2  70 66 69 65 6c 64 28 54  |.....'..pfield(T|
00016a90  25 2c 54 24 29 3a e7 a4  72 65 61 64 6f 6e 6c 79  |%,T$):..readonly|
00016aa0  3a f2 62 75 7a 7a 31 3a  e1 0d 8c e6 40 f2 65 6e  |:.buzz1:....@.en|
00016ab0  64 65 64 69 74 3a 65 64  72 65 63 25 3d a4 76 5f  |dedit:edrec%=.v_|
00016ac0  28 31 35 29 3a 24 65 64  62 75 66 25 3d 54 24 3a  |(15):$edbuf%=T$:|
00016ad0  65 64 66 69 65 6c 64 25  3d 54 25 3a 65 64 66 69  |edfield%=T%:edfi|
00016ae0  6c 65 25 3d 66 69 6c 65  25 0d 8c f0 0e f2 65 6e  |le%=file%.....en|
00016af0  64 65 64 69 74 3a e1 0d  8c fa 04 0d 8d 04 29 dd  |dedit:........).|
00016b00  a4 66 6e 61 6d 65 28 54  25 29 3a c8 99 73 77 69  |.fname(T%):..swi|
00016b10  25 2c 73 64 31 37 5f 25  2c 39 2c 54 25 2c 73 64  |%,sd17_%,9,T%,sd|
00016b20  24 b8 47 25 0d 8d 0e 09  3d 24 73 64 25 0d 8d 18  |$.G%....=$sd%...|
00016b30  04 0d 8d 22 37 dd a4 66  6e 61 6d 65 31 28 54 25  |..."7..fname1(T%|
00016b40  29 3a e7 54 25 3c 30 3a  3d 22 4e 25 22 3a 8b c8  |):.T%<0:="N%":..|
00016b50  99 73 77 69 25 2c 73 64  31 37 5f 25 2c 34 2c 54  |.swi%,sd17_%,4,T|
00016b60  25 2c 73 64 24 b8 47 25  0d 8d 2c 2e e7 28 47 25  |%,sd$.G%..,..(G%|
00016b70  80 37 29 3d 37 3a 3d 22  40 22 2b a4 66 6e 61 6d  |.7)=7:="@"+.fnam|
00016b80  65 28 54 25 29 3a 8b 3d  22 23 22 2b a4 66 6e 61  |e(T%):.="#"+.fna|
00016b90  6d 65 28 54 25 29 0d 8d  36 04 0d 8d 40 26 dd a4  |me(T%)..6...@&..|
00016ba0  66 6e 75 6d 28 54 24 29  3a c8 99 73 77 69 25 2c  |fnum(T$):..swi%,|
00016bb0  73 64 36 37 5f 25 2c 54  24 2c 73 64 24 b8 47 25  |sd67_%,T$,sd$.G%|
00016bc0  0d 8d 4a 07 3d 47 25 0d  8d 54 04 0d 8d 5e 0e dd  |..J.=G%..T...^..|
00016bd0  f2 65 78 70 72 28 72 25  29 0d 8d 68 22 64 69 61  |.expr(r%)..h"dia|
00016be0  6c 72 65 61 73 6f 6e 25  3d 72 25 3a 64 69 61 6c  |lreason%=r%:dial|
00016bf0  66 69 6c 65 25 3d 66 69  6c 65 25 0d 8d 72 16 ea  |file%=file%..r..|
00016c00  54 25 2c 54 24 2c 41 24  2c 74 24 2c 73 25 2c 75  |T%,T$,A$,t$,s%,u|
00016c10  25 0d 8d 7c 3d 54 24 3d  a4 66 69 6c 65 6e 61 6d  |%..|=T$=.filenam|
00016c20  65 3a 77 5f 65 78 70 72  25 3d a4 63 72 77 69 6e  |e:w_expr%=.crwin|
00016c30  64 28 74 77 5f 65 78 70  72 25 29 3a f2 75 6e 73  |d(tw_expr%):.uns|
00016c40  65 6c 61 6c 6c 28 77 5f  65 78 70 72 25 29 0d 8d  |elall(w_expr%)..|
00016c50  86 09 c8 8e 72 25 ca 0d  8d 90 06 c9 30 0d 8d 9a  |....r%......0...|
00016c60  2b 54 24 3d 22 46 69 6c  74 65 72 20 65 78 70 72  |+T$="Filter expr|
00016c70  65 73 73 69 6f 6e 20 66  6f 72 20 66 69 6c 65 20  |ession for file |
00016c80  22 2b 54 24 2b 22 3a 22  0d 8d a4 30 41 24 3d 66  |"+T$+":"...0A$=f|
00016c90  24 28 66 69 6c 65 25 29  3a 24 a4 74 61 28 77 5f  |$(file%):$.ta(w_|
00016ca0  65 78 70 72 25 29 3d 22  46 69 6c 74 65 72 22 3a  |expr%)="Filter":|
00016cb0  65 78 69 30 25 3d 31 37  0d 8d ae 3b e3 73 25 3d  |exi0%=17...;.s%=|
00016cc0  31 38 b8 32 31 3a f2 6c  6f 73 65 69 63 6f 6e 28  |18.21:.loseicon(|
00016cd0  77 5f 65 78 70 72 25 2c  73 25 29 3a ed 3a f2 6c  |w_expr%,s%):.:.l|
00016ce0  6f 73 65 69 63 6f 6e 28  77 5f 65 78 70 72 25 2c  |oseicon(w_expr%,|
00016cf0  32 35 29 0d 8d b8 2f f2  6c 6f 73 65 69 63 6f 6e  |25).../.loseicon|
00016d00  28 77 5f 65 78 70 72 25  2c 32 37 29 3a f2 6c 6f  |(w_expr%,27):.lo|
00016d10  73 65 69 63 6f 6e 28 77  5f 65 78 70 72 25 2c 32  |seicon(w_expr%,2|
00016d20  39 29 0d 8d c2 3b f2 6c  6f 73 65 69 63 6f 6e 28  |9)...;.loseicon(|
00016d30  77 5f 65 78 70 72 25 2c  32 38 29 3a 73 25 3d a4  |w_expr%,28):s%=.|
00016d40  66 6c 67 28 66 5f 66 73  70 63 25 29 3a 75 25 3d  |flg(f_fspc%):u%=|
00016d50  a4 66 6c 67 28 66 5f 66  75 70 70 25 29 0d 8d cc  |.flg(f_fupp%)...|
00016d60  06 c9 31 0d 8d d6 1d 54  24 3d 66 69 24 2b 54 24  |..1....T$=fi$+T$|
00016d70  2b 22 2c 20 73 65 61 72  63 68 20 66 6f 72 3a 22  |+", search for:"|
00016d80  0d 8d e0 30 41 24 3d 65  24 28 66 69 6c 65 25 29  |...0A$=e$(file%)|
00016d90  3a 24 a4 74 61 28 77 5f  65 78 70 72 25 29 3d 22  |:$.ta(w_expr%)="|
00016da0  53 65 61 72 63 68 22 3a  65 78 69 30 25 3d 32 35  |Search":exi0%=25|
00016db0  0d 8d ea 19 f2 6c 6f 73  65 69 63 6f 6e 28 77 5f  |.....loseicon(w_|
00016dc0  65 78 70 72 25 2c 32 36  29 0d 8d f4 34 73 25 3d  |expr%,26)...4s%=|
00016dd0  a4 66 6c 67 28 66 5f 73  73 70 63 25 29 3a 75 25  |.flg(f_sspc%):u%|
00016de0  3d a4 66 6c 67 28 66 5f  73 75 70 70 25 29 3a f2  |=.flg(f_supp%):.|
00016df0  66 6c 67 30 28 66 5f 73  61 64 64 25 29 0d 8d fe  |flg0(f_sadd%)...|
00016e00  36 65 25 28 66 69 6c 65  25 2c 30 29 3d a4 76 5f  |6e%(file%,0)=.v_|
00016e10  28 31 31 29 3a 54 25 3d  65 25 28 66 69 6c 65 25  |(11):T%=e%(file%|
00016e20  2c 30 29 80 33 31 3a 74  24 3d a4 73 75 62 73 74  |,0).31:t$=.subst|
00016e30  72 3a f5 0d 8e 08 35 54  25 3d 28 54 25 2b 31 29  |r:....5T%=(T%+1)|
00016e40  83 32 35 3a fd 28 54 25  3e 30 80 c1 74 24 2c 54  |.25:.(T%>0..t$,T|
00016e50  25 2c 31 29 3d 22 2e 22  29 84 54 25 3d 65 25 28  |%,1)=".").T%=e%(|
00016e60  66 69 6c 65 25 2c 30 29  0d 8e 12 2f 65 25 28 66  |file%,0).../e%(f|
00016e70  69 6c 65 25 2c 31 29 3d  54 25 3a e7 65 25 28 66  |ile%,1)=T%:.e%(f|
00016e80  69 6c 65 25 2c 30 29 3d  54 25 65 25 28 66 69 6c  |ile%,0)=T%e%(fil|
00016e90  65 25 2c 30 29 3d 30 0d  8e 1c 24 e7 65 25 28 66  |e%,0)=0...$.e%(f|
00016ea0  69 6c 65 25 2c 30 29 3d  65 25 28 66 69 6c 65 25  |ile%,0)=e%(file%|
00016eb0  2c 31 29 f2 65 72 72 28  36 31 29 0d 8e 26 2b f2  |,1).err(61)..&+.|
00016ec0  73 66 73 75 62 28 65 25  28 66 69 6c 65 25 2c 30  |sfsub(e%(file%,0|
00016ed0  29 29 3a f2 73 74 73 75  62 28 65 25 28 66 69 6c  |)):.stsub(e%(fil|
00016ee0  65 25 2c 31 29 29 0d 8e  30 06 c9 32 0d 8e 3a 1c  |e%,1))..0..2..:.|
00016ef0  54 24 3d 66 69 24 2b 54  24 2b 22 2c 20 72 65 70  |T$=fi$+T$+", rep|
00016f00  6f 72 74 20 6f 6e 3a 22  0d 8e 44 3e 41 24 3d 72  |ort on:"..D>A$=r|
00016f10  24 28 66 69 6c 65 25 29  3a 24 a4 74 61 28 77 5f  |$(file%):$.ta(w_|
00016f20  65 78 70 72 25 29 3d 22  46 6f 72 6d 75 6c 61 20  |expr%)="Formula |
00016f30  52 65 70 6f 72 74 20 53  65 74 75 70 22 3a 65 78  |Report Setup":ex|
00016f40  69 30 25 3d 31 37 0d 8e  4e 3d e3 73 25 3d 31 38  |i0%=17..N=.s%=18|
00016f50  b8 32 31 3a f2 6c 6f 73  65 69 63 6f 6e 28 77 5f  |.21:.loseicon(w_|
00016f60  65 78 70 72 25 2c 73 25  29 3a f2 6c 6f 73 65 69  |expr%,s%):.losei|
00016f70  63 6f 6e 28 77 5f 65 78  70 72 25 2c 73 25 2b 37  |con(w_expr%,s%+7|
00016f80  29 3a ed 0d 8e 58 3b f2  6c 6f 73 65 69 63 6f 6e  |):...X;.loseicon|
00016f90  28 77 5f 65 78 70 72 25  2c 32 39 29 3a 73 25 3d  |(w_expr%,29):s%=|
00016fa0  a4 66 6c 67 28 66 5f 72  73 70 63 25 29 3a 75 25  |.flg(f_rspc%):u%|
00016fb0  3d a4 66 6c 67 28 66 5f  72 75 70 70 25 29 0d 8e  |=.flg(f_rupp%)..|
00016fc0  62 05 cb 0d 8e 6c 34 f2  73 65 74 69 28 77 5f 65  |b....l4.seti(w_e|
00016fd0  78 70 72 25 2c 31 36 2c  54 24 29 3a f2 73 65 74  |xpr%,16,T$):.set|
00016fe0  69 28 77 5f 65 78 70 72  25 2c 31 37 2c 41 24 29  |i(w_expr%,17,A$)|
00016ff0  3a 65 78 24 3d 41 24 0d  8e 76 17 e7 73 25 f2 73  |:ex$=A$..v..s%.s|
00017000  65 6c 69 28 77 5f 65 78  70 72 25 2c 31 29 0d 8e  |eli(w_expr%,1)..|
00017010  80 17 e7 75 25 f2 73 65  6c 69 28 77 5f 65 78 70  |...u%.seli(w_exp|
00017020  72 25 2c 30 29 0d 8e 8a  18 f2 64 69 61 6c 6f 67  |r%,0).....dialog|
00017030  75 65 28 77 5f 65 78 70  72 25 29 3a e1 0d 8e 94  |ue(w_expr%):....|
00017040  04 0d 8e 9e 2a dd f2 66  6c 67 30 28 54 25 29 3a  |....*..flg0(T%):|
00017050  66 6c 25 28 66 69 6c 65  25 29 3d 66 6c 25 28 66  |fl%(file%)=fl%(f|
00017060  69 6c 65 25 29 80 ac 54  25 3a e1 0d 8e a8 29 dd  |ile%)..T%:....).|
00017070  f2 66 6c 67 31 28 54 25  29 3a 66 6c 25 28 66 69  |.flg1(T%):fl%(fi|
00017080  6c 65 25 29 3d 66 6c 25  28 66 69 6c 65 25 29 84  |le%)=fl%(file%).|
00017090  54 25 3a e1 0d 8e b2 29  dd f2 66 6c 67 78 28 54  |T%:....)..flgx(T|
000170a0  25 29 3a 66 6c 25 28 66  69 6c 65 25 29 3d 66 6c  |%):fl%(file%)=fl|
000170b0  25 28 66 69 6c 65 25 29  82 54 25 3a e1 0d 8e bc  |%(file%).T%:....|
000170c0  37 dd f2 66 6c 67 6d 28  4d 25 2c 46 25 29 3a 66  |7..flgm(M%,F%):f|
000170d0  6c 25 28 66 69 6c 65 25  29 3d 28 66 6c 25 28 66  |l%(file%)=(fl%(f|
000170e0  69 6c 65 25 29 80 ac 4d  25 29 84 28 46 25 80 4d  |ile%)..M%).(F%.M|
000170f0  25 29 3a e1 0d 8e c6 3b  dd f2 66 6c 67 28 54 25  |%):....;..flg(T%|
00017100  2c 46 25 29 3a 66 6c 25  28 66 69 6c 65 25 29 3d  |,F%):fl%(file%)=|
00017110  28 66 6c 25 28 66 69 6c  65 25 29 80 ac 54 25 29  |(fl%(file%)..T%)|
00017120  84 28 28 46 25 3c 3e 30  29 80 54 25 29 3a e1 0d  |.((F%<>0).T%):..|
00017130  8e d0 20 dd a4 66 6c 67  28 54 25 29 3d 28 66 6c  |.. ..flg(T%)=(fl|
00017140  25 28 66 69 6c 65 25 29  80 54 25 29 3c 3e 30 0d  |%(file%).T%)<>0.|
00017150  8e da 04 0d 8e e4 23 dd  f2 73 65 74 66 69 6c 74  |......#..setfilt|
00017160  3a e7 a4 73 28 24 41 25  29 3d 22 22 3a f2 6e 6f  |:..s($A%)="":.no|
00017170  66 69 6c 74 3a e1 0d 8e  ee 13 ea 54 24 3a 54 24  |filt:......T$:T$|
00017180  3d a4 78 31 28 24 41 25  29 0d 8e f8 41 f2 66 6c  |=.x1($A%)...A.fl|
00017190  67 28 66 5f 66 75 70 70  25 2c 75 25 29 3a f2 66  |g(f_fupp%,u%):.f|
000171a0  6c 67 28 66 5f 66 73 70  63 25 2c 73 25 29 3a 66  |lg(f_fspc%,s%):f|
000171b0  24 28 66 69 6c 65 25 29  3d 24 41 25 3a 66 78 24  |$(file%)=$A%:fx$|
000171c0  28 66 69 6c 65 25 29 3d  54 24 0d 8f 02 38 f2 66  |(file%)=T$...8.f|
000171d0  6c 67 28 66 5f 66 69 6c  74 25 2c 54 24 3c 3e 22  |lg(f_filt%,T$<>"|
000171e0  22 29 3a f2 73 68 6f 77  66 69 6c 74 65 72 3a f2  |"):.showfilter:.|
000171f0  72 65 76 61 6c 69 64 61  74 65 3a f2 7a 66 6f 75  |revalidate:.zfou|
00017200  6e 64 0d 8f 0c 05 e1 0d  8f 16 04 0d 8f 20 1b dd  |nd........... ..|
00017210  f2 6e 6f 66 69 6c 74 3a  f2 66 6c 67 30 28 66 5f  |.nofilt:.flg0(f_|
00017220  66 69 6c 74 25 29 0d 8f  2a 25 f2 7a 66 6f 75 6e  |filt%)..*%.zfoun|
00017230  64 3a f2 72 65 76 61 6c  69 64 61 74 65 3a f2 73  |d:.revalidate:.s|
00017240  68 6f 77 66 69 6c 74 65  72 3a e1 0d 8f 34 04 0d  |howfilter:...4..|
00017250  8f 3e 1e dd a4 78 31 28  54 24 29 3a ea 85 3a ee  |.>...x1(T$):..:.|
00017260  85 ea 3a f7 85 3a f2 65  72 72 28 38 29 0d 8f 48  |..:..:.err(8)..H|
00017270  1e dd a4 78 32 28 54 24  29 3a ea 85 3a ee 85 ea  |...x2(T$):..:...|
00017280  3a f7 85 3a f2 65 72 72  28 39 29 0d 8f 52 1f dd  |:..:.err(9)..R..|
00017290  a4 78 33 28 54 24 29 3a  ea 85 3a ee 85 ea 3a f7  |.x3(T$):..:...:.|
000172a0  85 3a f2 65 72 72 28 33  34 29 0d 8f 5c 1f dd a4  |.:.err(34)..\...|
000172b0  78 34 28 54 24 29 3a ea  85 3a ee 85 ea 3a f7 85  |x4(T$):..:...:..|
000172c0  3a f2 65 72 72 28 33 37  29 0d 8f 66 1f dd a4 78  |:.err(37)..f...x|
000172d0  35 28 54 24 29 3a ea 85  3a ee 85 ea 3a f7 85 3a  |5(T$):..:...:..:|
000172e0  f2 65 72 72 28 34 34 29  0d 8f 70 1f dd a4 78 36  |.err(44)..p...x6|
000172f0  28 54 24 29 3a ea 85 3a  ee 85 ea 3a f7 85 3a f2  |(T$):..:...:..:.|
00017300  65 72 72 28 34 35 29 0d  8f 7a 1f dd a4 78 37 28  |err(45)..z...x7(|
00017310  54 24 29 3a ea 85 3a ee  85 ea 3a f7 85 3a f2 65  |T$):..:...:..:.e|
00017320  72 72 28 35 32 29 0d 8f  84 0b 3d a4 78 28 54 24  |rr(52)....=.x(T$|
00017330  29 0d 8f 8e 04 0d 8f 98  26 dd a4 78 28 41 24 29  |).......&..x(A$)|
00017340  3a f2 73 74 72 69 70 28  41 24 29 3a e7 41 24 3d  |:.strip(A$):.A$=|
00017350  22 22 3a f2 65 72 72 28  33 35 29 0d 8f a2 3b ea  |"":.err(35)...;.|
00017360  51 25 2c 42 25 2c 49 25  2c 7a 24 3a f2 71 62 73  |Q%,B%,I%,z$:.qbs|
00017370  63 61 6e 28 41 24 2c 51  25 2c 42 25 29 3a e7 51  |can(A$,Q%,B%):.Q|
00017380  25 f2 65 72 72 28 31 30  29 3a 8b e7 42 25 f2 65  |%.err(10):..B%.e|
00017390  72 72 28 31 31 29 0d 8f  ac 20 7a 24 3d 41 24 3a  |rr(11)... z$=A$:|
000173a0  c8 95 a7 7a 24 2c 22 27  22 29 3a 49 25 3d a7 7a  |...z$,"'"):I%=.z|
000173b0  24 2c 22 27 22 29 0d 8f  b6 17 4a 25 3d 28 97 c1  |$,"'")....J%=(..|
000173c0  7a 24 2c 49 25 2b 31 29  29 80 26 44 46 0d 8f c0  |z$,I%+1)).&DF...|
000173d0  19 e7 4a 25 3c 36 35 84  4a 25 3e 38 33 3a f2 65  |..J%<65.J%>83:.e|
000173e0  72 72 28 32 39 29 0d 8f  ca 30 e7 a9 7a 24 2b a9  |rr(29)...0..z$+.|
000173f0  24 a4 74 69 61 28 74 77  25 28 66 69 6c 65 25 2c  |$.tia(tw%(file%,|
00017400  36 29 2c 4a 25 2d 36 35  29 3e 32 35 30 3a f2 65  |6),J%-65)>250:.e|
00017410  72 72 28 33 30 29 0d 8f  d4 34 7a 24 3d c0 7a 24  |rr(30)...4z$=.z$|
00017420  2c 49 25 2d 31 29 2b 24  a4 74 69 61 28 74 77 25  |,I%-1)+$.tia(tw%|
00017430  28 66 69 6c 65 25 2c 36  29 2c 4a 25 2d 36 35 29  |(file%,6),J%-65)|
00017440  2b c1 7a 24 2c 49 25 2b  32 29 0d 8f de 2f ce 3a  |+.z$,I%+2).../.:|
00017450  41 24 3d a4 58 28 7a 24  29 3a f2 73 74 72 69 70  |A$=.X(z$):.strip|
00017460  28 41 24 29 3a e7 41 24  3d 22 22 3a f2 65 72 72  |(A$):.A$="":.err|
00017470  28 33 35 29 3a 8b 3d 41  24 0d 8f e8 04 0d 8f f2  |(35):.=A$.......|
00017480  1b dd a4 58 28 41 24 29  3a ea 7a 24 2c 4a 25 2c  |...X(A$):.z$,J%,|
00017490  49 25 3a 7a 24 3d 41 24  0d 8f fc 20 c8 95 a7 41  |I%:z$=A$... ...A|
000174a0  24 2c 22 3d 22 22 2a 22  29 3a 49 25 3d a7 41 24  |$,"=""*"):I%=.A$|
000174b0  2c 22 3d 22 22 2a 22 29  0d 90 06 20 7a 24 3d c0  |,"=""*")... z$=.|
000174c0  41 24 2c 49 25 2d 31 29  2b 22 2c 22 22 22 2b c1  |A$,I%-1)+","""+.|
000174d0  41 24 2c 49 25 2b 33 29  0d 90 10 23 4a 25 3d a7  |A$,I%+3)...#J%=.|
000174e0  7a 24 2c bd 33 34 2c 49  25 2b 32 29 3a e7 4a 25  |z$,.34,I%+2):.J%|
000174f0  3d 30 3a f2 65 72 72 28  31 30 29 0d 90 1a 2f e7  |=0:.err(10).../.|
00017500  c1 7a 24 2c 4a 25 2d 31  2c 31 29 3d 22 2a 22 3a  |.z$,J%-1,1)="*":|
00017510  7a 24 3d c0 7a 24 2c 4a  25 2d 32 29 2b c1 7a 24  |z$=.z$,J%-2)+.z$|
00017520  2c 4a 25 29 3a 4a 25 2d  3d 31 0d 90 24 22 7a 24  |,J%):J%-=1..$"z$|
00017530  3d c0 7a 24 2c 4a 25 29  2b 22 29 22 2b c1 7a 24  |=.z$,J%)+")"+.z$|
00017540  2c 4a 25 2b 31 29 3a 4a  25 3d 49 25 0d 90 2e 1c  |,J%+1):J%=I%....|
00017550  f5 3a 49 25 3d 49 25 2d  31 3a e7 49 25 3c 30 3a  |.:I%=I%-1:.I%<0:|
00017560  f2 65 72 72 28 33 31 29  0d 90 38 12 fd c1 7a 24  |.err(31)..8...z$|
00017570  2c 49 25 2c 31 29 3d 22  40 22 0d 90 42 1f 7a 24  |,I%,1)="@"..B.z$|
00017580  3d c0 7a 24 2c 49 25 2d  31 29 2b 22 46 4e 69 28  |=.z$,I%-1)+"FNi(|
00017590  22 2b c1 7a 24 2c 49 25  29 0d 90 4c 0f 41 24 3d  |"+.z$,I%)..L.A$=|
000175a0  7a 24 3a ce 3a 3d 41 24  0d 90 56 04 0d 90 60 12  |z$:.:=A$..V...`.|
000175b0  dd a4 65 76 28 41 24 2c  73 25 2c 75 25 29 0d 90  |..ev(A$,s%,u%)..|
000175c0  6a 19 24 73 64 25 3d 22  4e 22 3a e7 73 25 24 73  |j.$sd%="N":.s%$s|
000175d0  64 25 2b 3d 22 53 22 0d  90 74 10 e7 75 25 24 73  |d%+="S"..t..u%$s|
000175e0  64 25 2b 3d 22 55 22 0d  90 7e 1a c8 99 73 77 69  |d%+="U"..~...swi|
000175f0  25 2c 65 78 70 61 6e 64  5f 25 2c 41 24 2c 73 64  |%,expand_%,A$,sd|
00017600  25 0d 90 88 19 4e 25 3d  a4 76 5f 28 31 35 29 3a  |%....N%=.v_(15):|
00017610  44 25 3d a4 76 5f 28 31  34 29 0d 90 92 0a 3d a0  |D%=.v_(14)....=.|
00017620  24 73 64 25 0d 90 9c 04  0d 90 a6 26 dd a4 65 76  |$sd%.......&..ev|
00017630  31 28 41 24 29 3a 3d a4  65 76 28 a4 78 28 41 24  |1(A$):=.ev(.x(A$|
00017640  29 2c 6d 61 63 73 25 2c  6d 61 63 75 25 29 0d 90  |),macs%,macu%)..|
00017650  b0 2f dd a4 65 76 32 28  41 24 2c 73 25 2c 75 25  |./..ev2(A$,s%,u%|
00017660  29 3d a4 65 76 67 65 6e  28 41 24 2c 73 25 2c 75  |)=.evgen(A$,s%,u|
00017670  25 2c 26 31 30 32 30 35  30 46 2c b9 29 0d 90 ba  |%,&102050F,.)...|
00017680  2c dd a4 65 76 33 28 41  24 2c 73 25 2c 75 25 2c  |,..ev3(A$,s%,u%,|
00017690  41 25 29 3d a4 65 76 67  65 6e 28 41 24 2c 73 25  |A%)=.evgen(A$,s%|
000176a0  2c 75 25 2c 41 25 2c b9  29 0d 90 c4 2f dd a4 65  |,u%,A%,.).../..e|
000176b0  76 34 28 41 24 2c 73 25  2c 75 25 29 3d a4 65 76  |v4(A$,s%,u%)=.ev|
000176c0  67 65 6e 28 41 24 2c 73  25 2c 75 25 2c 26 31 30  |gen(A$,s%,u%,&10|
000176d0  32 30 35 30 46 2c a3 29  0d 90 ce 1e dd a4 65 76  |2050F,.)......ev|
000176e0  35 28 41 24 29 3a 3d a4  65 76 28 a4 78 28 41 24  |5(A$):=.ev(.x(A$|
000176f0  29 2c b9 2c a3 29 0d 90  d8 04 0d 90 e2 1b dd a4  |),.,.)..........|
00017700  65 76 67 65 6e 28 41 24  2c 73 25 2c 75 25 2c 41  |evgen(A$,s%,u%,A|
00017710  25 2c 54 25 29 0d 90 ec  0c ea 55 25 2c 74 3a ea  |%,T%).....U%,t:.|
00017720  85 0d 90 f6 25 ee 85 ea  3a f7 85 3a 40 25 3d 26  |....%...:..:@%=&|
00017730  39 30 41 3a 55 25 3d b9  3a e7 9f 3c 3e 36 3a f2  |90A:U%=.:..<>6:.|
00017740  65 72 72 28 30 29 0d 91  00 08 e7 55 25 8c 0d 91  |err(0).....U%...|
00017750  0a 16 24 73 64 25 3d a4  65 76 28 41 24 2c 73 25  |..$sd%=.ev(A$,s%|
00017760  2c 75 25 29 0d 91 14 05  cc 0d 91 1e 40 74 3d a4  |,u%)........@t=.|
00017770  65 76 28 41 24 2c 73 25  2c 75 25 29 3a 40 25 3d  |ev(A$,s%,u%):@%=|
00017780  41 25 3a 24 73 64 25 3d  c2 22 20 20 20 20 20 20  |A%:$sd%=."      |
00017790  20 20 20 20 20 20 20 20  20 22 2b c3 74 2c 31 35  |         "+.t,15|
000177a0  29 3a 40 25 3d 26 39 30  41 0d 91 28 19 e7 73 25  |):@%=&90A..(..s%|
000177b0  80 54 25 3a c8 99 73 77  69 25 2c 73 74 72 69 70  |.T%:..swi%,strip|
000177c0  5f 25 0d 91 32 05 cd 0d  91 3c 09 3d 24 73 64 25  |_%..2....<.=$sd%|
000177d0  0d 91 46 04 0d 91 50 0b  dd f2 77 74 69 64 79 0d  |..F...P...wtidy.|
000177e0  91 5a 38 ea 49 25 3a e3  49 25 3d 32 b8 6d 61 78  |.Z8.I%:.I%=2.max|
000177f0  77 25 3a e7 77 25 28 66  69 6c 65 25 2c 49 25 29  |w%:.w%(file%,I%)|
00017800  3e 30 f2 63 6c 6f 73 65  77 28 77 25 28 66 69 6c  |>0.closew(w%(fil|
00017810  65 25 2c 49 25 29 29 0d  91 64 07 ed 3a e1 0d 91  |e%,I%))..d..:...|
00017820  6e 04 0d 91 78 22 dd f2  73 66 73 75 62 28 54 25  |n...x"..sfsub(T%|
00017830  29 3a f2 73 64 66 69 6c  65 28 64 69 61 6c 66 69  |):.sdfile(dialfi|
00017840  6c 65 25 29 0d 91 82 21  e7 54 25 3e 32 35 35 84  |le%)...!.T%>255.|
00017850  28 54 25 80 33 31 29 3d  65 25 28 66 69 6c 65 25  |(T%.31)=e%(file%|
00017860  2c 31 29 3a e1 0d 91 8c  32 f2 73 65 74 69 28 77  |,1):....2.seti(w|
00017870  5f 65 78 70 72 25 2c 32  30 2c a4 73 75 62 64 65  |_expr%,20,.subde|
00017880  73 63 31 28 54 25 29 29  3a 65 25 28 66 69 6c 65  |sc1(T%)):e%(file|
00017890  25 2c 30 29 3d 54 25 0d  91 96 11 f2 73 65 6c 73  |%,0)=T%.....sels|
000178a0  75 62 28 54 25 29 3a e1  0d 91 a0 04 0d 91 aa 1f  |ub(T%):.........|
000178b0  dd f2 73 74 73 75 62 28  54 25 29 3a e7 54 25 3c  |..stsub(T%):.T%<|
000178c0  32 35 35 54 25 3d 54 25  80 33 31 0d 91 b4 32 f2  |255T%=T%.31...2.|
000178d0  73 64 66 69 6c 65 28 64  69 61 6c 66 69 6c 65 25  |sdfile(dialfile%|
000178e0  29 3a e7 54 25 3d 30 84  54 25 3d 28 65 25 28 66  |):.T%=0.T%=(e%(f|
000178f0  69 6c 65 25 2c 30 29 80  33 31 29 3a e1 0d 91 be  |ile%,0).31):....|
00017900  32 f2 73 65 74 69 28 77  5f 65 78 70 72 25 2c 32  |2.seti(w_expr%,2|
00017910  31 2c a4 73 75 62 64 65  73 63 31 28 54 25 29 29  |1,.subdesc1(T%))|
00017920  3a 65 25 28 66 69 6c 65  25 2c 31 29 3d 54 25 0d  |:e%(file%,1)=T%.|
00017930  91 c8 2b e7 54 25 3c 32  35 35 f2 73 65 74 69 28  |..+.T%<255.seti(|
00017940  77 5f 65 78 70 72 25 2c  32 35 2c 64 24 28 66 69  |w_expr%,25,d$(fi|
00017950  6c 65 25 2c 54 25 2d 31  29 29 0d 91 d2 05 e1 0d  |le%,T%-1))......|
00017960  91 dc 04 0d 91 e6 1d dd  f2 62 75 7a 7a 31 3a c8  |.........buzz1:.|
00017970  99 73 77 69 25 2c 62 65  65 70 5f 25 2c 31 30 30  |.swi%,beep_%,100|
00017980  0d 91 f0 1c dd f2 62 75  7a 7a 3a c8 99 73 77 69  |......buzz:..swi|
00017990  25 2c 62 65 65 70 5f 25  2c 31 35 30 0d 91 fa 19  |%,beep_%,150....|
000179a0  dd f2 62 75 7a 7a 32 3a  c8 99 73 77 69 25 2c 62  |..buzz2:..swi%,b|
000179b0  65 65 70 5f 25 0d 92 04  05 e1 0d 92 0e 04 0d 92  |eep_%...........|
000179c0  18 0c dd f2 73 65 61 72  63 68 0d 92 22 2f ea 54  |....search.."/.T|
000179d0  24 2c 54 25 3a 54 25 3d  65 25 28 66 69 6c 65 25  |$,T%:T%=e%(file%|
000179e0  2c 31 29 3a e7 73 25 28  66 69 6c 65 25 29 3d 31  |,1):.s%(file%)=1|
000179f0  3a f2 65 72 72 28 31 32  29 0d 92 2c 28 e7 24 41  |:.err(12)..,(.$A|
00017a00  25 3d 22 44 55 50 22 3a  6f 78 24 28 66 69 6c 65  |%="DUP":ox$(file|
00017a10  25 29 3d a4 78 33 28 6f  24 28 66 69 6c 65 25 29  |%)=.x3(o$(file%)|
00017a20  29 0d 92 36 42 54 24 3d  a4 78 32 28 24 41 25 29  |)..6BT$=.x2($A%)|
00017a30  3a f2 66 6c 67 28 66 5f  73 61 64 64 25 2c 63 25  |:.flg(f_sadd%,c%|
00017a40  29 3a f2 66 6c 67 28 66  5f 73 75 70 70 25 2c 75  |):.flg(f_supp%,u|
00017a50  25 29 3a f2 66 6c 67 28  66 5f 73 73 70 63 25 2c  |%):.flg(f_sspc%,|
00017a60  73 25 29 0d 92 40 3d 65  78 24 28 66 69 6c 65 25  |s%)..@=ex$(file%|
00017a70  29 3d 54 24 3a 65 24 28  66 69 6c 65 25 29 3d 24  |)=T$:e$(file%)=$|
00017a80  41 25 3a e7 24 41 25 3d  22 44 55 50 22 3a 65 78  |A%:.$A%="DUP":ex|
00017a90  24 28 66 69 6c 65 25 29  3d 22 23 24 25 24 23 22  |$(file%)="#$%$#"|
00017aa0  0d 92 4a 0b e7 54 25 3c  32 35 8c 0d 92 54 27 64  |..J..T%<25...T'd|
00017ab0  24 28 66 69 6c 65 25 2c  54 25 2d 31 29 3d a4 73  |$(file%,T%-1)=.s|
00017ac0  28 24 a4 69 61 28 77 5f  65 78 70 72 25 2c 32 35  |($.ia(w_expr%,25|
00017ad0  29 29 0d 92 5e 17 e7 64  24 28 66 69 6c 65 25 2c  |))..^..d$(file%,|
00017ae0  54 25 2d 31 29 3d 22 22  8c 0d 92 68 40 64 24 28  |T%-1)=""...h@d$(|
00017af0  66 69 6c 65 25 2c 54 25  2d 31 29 3d a4 74 72 75  |file%,T%-1)=.tru|
00017b00  6e 63 28 24 41 25 2c 32  31 29 3a 54 24 3d 22 22  |nc($A%,21):T$=""|
00017b10  3a e7 65 25 28 66 69 6c  65 25 2c 30 29 3e 33 32  |:.e%(file%,0)>32|
00017b20  54 24 3d 22 4e 4f 54 20  22 0d 92 72 22 54 24 2b  |T$="NOT "..r"T$+|
00017b30  3d bd 28 28 65 25 28 66  69 6c 65 25 2c 30 29 80  |=.((e%(file%,0).|
00017b40  33 31 29 2b 36 35 29 2b  22 3a 22 0d 92 7c 1c e7  |31)+65)+":"..|..|
00017b50  a4 66 6c 67 28 66 5f 73  61 64 64 25 29 3a 54 24  |.flg(f_sadd%):T$|
00017b60  3d 22 2b 22 2b 54 24 0d  92 86 3d e7 a9 64 24 28  |="+"+T$...=..d$(|
00017b70  66 69 6c 65 25 2c 54 25  2d 31 29 2b a9 54 24 3c  |file%,T%-1)+.T$<|
00017b80  3d 32 35 3a 64 24 28 66  69 6c 65 25 2c 54 25 2d  |=25:d$(file%,T%-|
00017b90  31 29 3d 54 24 2b 64 24  28 66 69 6c 65 25 2c 54  |1)=T$+d$(file%,T|
00017ba0  25 2d 31 29 0d 92 90 05  cd 0d 92 9a 05 cd 0d 92  |%-1)............|
00017bb0  a4 1e f2 73 74 61 72 74  61 63 74 28 33 29 3a 65  |...startact(3):e|
00017bc0  25 28 66 69 6c 65 25 2c  32 29 3d 30 0d 92 ae 17  |%(file%,2)=0....|
00017bd0  e7 54 25 3c 32 35 35 66  63 25 28 66 69 6c 65 25  |.T%<255fc%(file%|
00017be0  29 3d 30 0d 92 b8 10 f2  73 68 6f 77 66 6f 75 6e  |)=0.....showfoun|
00017bf0  64 3a e1 0d 92 c2 04 0d  92 cc 1b dd f2 65 6e 64  |d:...........end|
00017c00  73 65 61 72 63 68 3a ea  74 25 3a f2 65 6e 64 61  |search:.t%:.enda|
00017c10  63 74 0d 92 d6 3f 74 25  3d 66 63 25 28 66 69 6c  |ct...?t%=fc%(fil|
00017c20  65 25 29 3a f2 73 65 6c  73 75 62 28 65 25 28 66  |e%):.selsub(e%(f|
00017c30  69 6c 65 25 2c 31 29 29  3a 66 63 25 28 66 69 6c  |ile%,1)):fc%(fil|
00017c40  65 25 29 3d 74 25 3a f2  73 68 6f 77 66 6f 75 6e  |e%)=t%:.showfoun|
00017c50  64 0d 92 e0 05 e1 0d 92  ea 04 0d 92 f4 2c dd f2  |d............,..|
00017c60  65 6e 64 63 73 75 62 3a  f2 65 6e 64 61 63 74 3a  |endcsub:.endact:|
00017c70  f2 73 65 6c 73 75 62 28  65 25 28 66 69 6c 65 25  |.selsub(e%(file%|
00017c80  2c 31 29 29 3a e1 0d 92  fe 04 0d 93 08 2c dd f2  |,1)):........,..|
00017c90  65 6e 64 64 73 75 62 3a  f2 65 6e 64 61 63 74 3a  |enddsub:.endact:|
00017ca0  f2 73 65 6c 73 75 62 28  65 25 28 66 69 6c 65 25  |.selsub(e%(file%|
00017cb0  2c 30 29 29 3a e1 0d 93  12 04 0d 93 1c 17 dd f2  |,0)):...........|
00017cc0  65 6e 64 66 69 6c 6c 3a  f2 65 6e 64 61 63 74 3a  |endfill:.endact:|
00017cd0  e1 0d 93 26 04 0d 93 30  14 dd f2 73 72 63 6e 65  |...&...0...srcne|
00017ce0  78 74 3a ea 54 25 2c 67  25 0d 93 3a 20 ea 85 3a  |xt:.T%,g%..: ..:|
00017cf0  ee 85 ea 3a f7 85 3a f2  65 6e 64 73 65 61 72 63  |...:..:.endsearc|
00017d00  68 3a f2 65 72 72 28 39  29 0d 93 44 3a 65 25 28  |h:.err(9)..D:e%(|
00017d10  66 69 6c 65 25 2c 32 29  2b 3d 31 3a 54 25 3d 65  |file%,2)+=1:T%=e|
00017d20  25 28 66 69 6c 65 25 2c  32 29 3a e7 54 25 3e a4  |%(file%,2):.T%>.|
00017d30  76 5f 28 31 37 29 3a f2  65 6e 64 73 65 61 72 63  |v_(17):.endsearc|
00017d40  68 3a e1 0d 93 4e 2c c8  99 73 77 69 25 2c 67 72  |h:...N,..swi%,gr|
00017d50  65 63 5f 25 2c 54 25 b8  4e 25 3a f2 73 64 33 35  |ec_%,T%.N%:.sd35|
00017d60  3a 54 25 3d 65 25 28 66  69 6c 65 25 2c 31 29 0d  |:T%=e%(file%,1).|
00017d70  93 58 1f e7 65 24 28 66  69 6c 65 25 29 3d 22 44  |.X..e$(file%)="D|
00017d80  55 50 22 3a f2 64 75 70  6e 65 78 74 3a e1 0d 93  |UP":.dupnext:...|
00017d90  62 49 e7 47 25 3c 3e 30  3a 67 25 3d 30 3a 8b f2  |bI.G%<>0:g%=0:..|
00017da0  72 6c 69 6e 6b 28 b9 29  3a 67 25 3d a4 65 76 28  |rlink(.):g%=.ev(|
00017db0  65 78 24 28 66 69 6c 65  25 29 2c a4 66 6c 67 28  |ex$(file%),.flg(|
00017dc0  66 5f 73 73 70 63 25 29  2c a4 66 6c 67 28 66 5f  |f_sspc%),.flg(f_|
00017dd0  73 75 70 70 25 29 29 0d  93 6c 2f e7 67 25 3c 3e  |supp%))..l/.g%<>|
00017de0  30 84 ac a4 66 6c 67 28  66 5f 73 61 64 64 25 29  |0...flg(f_sadd%)|
00017df0  84 54 25 3e 32 35 35 f2  73 75 62 62 79 74 65 28  |.T%>255.subbyte(|
00017e00  54 25 2c 67 25 29 0d 93  76 2a e7 67 25 3c 3e 30  |T%,g%)..v*.g%<>0|
00017e10  80 54 25 3c 32 35 35 3a  66 63 25 28 66 69 6c 65  |.T%<255:fc%(file|
00017e20  25 29 2b 3d 31 3a f2 73  68 6f 77 66 6f 75 6e 64  |%)+=1:.showfound|
00017e30  0d 93 80 0e f2 73 68 6f  77 6e 75 6d 3a e1 0d 93  |.....shownum:...|
00017e40  8a 04 0d 93 94 1c dd f2  63 73 75 62 6e 65 78 74  |........csubnext|
00017e50  28 74 25 29 3a ea 54 25  2c 67 25 2c 49 25 0d 93  |(t%):.T%,g%,I%..|
00017e60  9e 1f ea 85 3a ee 85 ea  3a f7 85 3a f2 65 6e 64  |....:...:..:.end|
00017e70  63 73 75 62 3a f2 65 72  72 28 31 37 29 0d 93 a8  |csub:.err(17)...|
00017e80  10 e3 49 25 3d 30 b8 63  68 75 6e 6b 25 0d 93 b2  |..I%=0.chunk%...|
00017e90  38 65 25 28 66 69 6c 65  25 2c 32 29 2b 3d 31 3a  |8e%(file%,2)+=1:|
00017ea0  54 25 3d 65 25 28 66 69  6c 65 25 2c 32 29 3a e7  |T%=e%(file%,2):.|
00017eb0  54 25 3e a4 76 5f 28 31  37 29 3a f2 65 6e 64 63  |T%>.v_(17):.endc|
00017ec0  73 75 62 3a e1 0d 93 bc  17 c8 99 73 77 69 25 2c  |sub:.......swi%,|
00017ed0  67 72 65 63 5f 25 2c 54  25 b8 4e 25 0d 93 c6 11  |grec_%,T%.N%....|
00017ee0  f2 73 64 33 35 3a 67 25  3d 47 25 3d 30 0d 93 d0  |.sd35:g%=G%=0...|
00017ef0  25 e7 67 25 84 74 25 3d  35 3a f2 73 75 62 62 79  |%.g%.t%=5:.subby|
00017f00  74 65 28 65 25 28 66 69  6c 65 25 2c 31 29 2c 67  |te(e%(file%,1),g|
00017f10  25 29 0d 93 da 10 ed 3a  f2 73 68 6f 77 6e 75 6d  |%).....:.shownum|
00017f20  3a e1 0d 93 e4 04 0d 93  ee 14 dd f2 73 75 62 62  |:...........subb|
00017f30  79 74 65 28 54 25 2c 67  25 29 0d 93 f8 0c e7 54  |yte(T%,g%).....T|
00017f40  25 3e 32 35 35 8c 0d 94  02 1b c8 99 73 77 69 25  |%>255.......swi%|
00017f50  2c 73 64 35 33 5f 25 2c  54 25 2d 32 35 36 b8 47  |,sd53_%,T%-256.G|
00017f60  25 0d 94 0c 14 c8 99 73  77 69 25 2c 73 64 35 31  |%......swi%,sd51|
00017f70  5f 25 2c 47 25 0d 94 16  05 cc 0d 94 20 1a e7 54  |_%,G%....... ..T|
00017f80  25 3e 33 31 54 25 2d 3d  33 32 3a 67 25 3d 28 67  |%>31T%-=32:g%=(g|
00017f90  25 3d 30 29 0d 94 2a 17  c8 99 73 77 69 25 2c 73  |%=0)..*...swi%,s|
00017fa0  64 33 37 5f 25 2c 54 25  b8 47 25 0d 94 34 05 cd  |d37_%,T%.G%..4..|
00017fb0  0d 94 3e 17 c8 99 73 77  69 25 2c 73 64 33 35 5f  |..>...swi%,sd35_|
00017fc0  25 2c 2d 31 b8 47 25 0d  94 48 22 e7 47 25 3c 31  |%,-1.G%..H".G%<1|
00017fd0  32 38 3a c8 99 73 77 69  25 2c 73 64 33 34 5f 25  |28:..swi%,sd34_%|
00017fe0  2c 67 25 2c 2d 31 b8 47  25 0d 94 52 14 c8 99 73  |,g%,-1.G%..R...s|
00017ff0  77 69 25 2c 73 64 33 37  5f 25 b8 47 25 0d 94 5c  |wi%,sd37_%.G%..\|
00018000  05 e1 0d 94 66 04 0d 94  70 0d dd f2 64 73 75 62  |....f...p...dsub|
00018010  6e 78 74 0d 94 7a 0a ea  54 25 2c 49 25 0d 94 84  |nxt..z..T%,I%...|
00018020  10 e3 49 25 3d 30 b8 63  68 75 6e 6b 25 0d 94 8e  |..I%=0.chunk%...|
00018030  16 c8 99 73 77 69 25 2c  66 69 72 73 74 5f 25 b8  |...swi%,first_%.|
00018040  2c 4e 25 0d 94 98 27 f2  73 64 6e 65 78 74 3a e7  |,N%...'.sdnext:.|
00018050  a4 76 5f 28 31 35 29 3e  a4 76 5f 28 31 37 29 3a  |.v_(15)>.v_(17):|
00018060  f2 65 6e 64 64 73 75 62  3a e1 0d 94 a2 16 c8 99  |.enddsub:.......|
00018070  73 77 69 25 2c 64 65 6c  72 65 63 5f 25 2c 2d 31  |swi%,delrec_%,-1|
00018080  0d 94 ac 10 ed 3a f2 73  68 6f 77 6e 75 6d 3a e1  |.....:.shownum:.|
00018090  0d 94 b6 04 0d 94 c0 0c  dd f2 75 70 64 6e 78 74  |..........updnxt|
000180a0  0d 94 ca 1d ea 85 3a ee  85 ea 3a f7 85 3a f2 65  |......:...:..:.e|
000180b0  6e 64 61 63 74 3a f2 65  72 72 28 30 29 0d 94 d4  |ndact:.err(0)...|
000180c0  26 f2 73 64 6e 65 78 74  3a e7 a4 76 5f 28 31 35  |&.sdnext:..v_(15|
000180d0  29 3e a4 76 5f 28 31 37  29 3a f2 65 6e 64 61 63  |)>.v_(17):.endac|
000180e0  74 3a e1 0d 94 de 33 ee  85 ea 3a f7 85 3a f2 66  |t:....3...:..:.f|
000180f0  6c 67 28 66 5f 6d 61 63  62 25 2c 30 29 3a f2 73  |lg(f_macb%,0):.s|
00018100  68 6f 77 6d 61 63 3a f2  65 6e 64 61 63 74 3a f2  |howmac:.endact:.|
00018110  65 72 72 28 30 29 0d 94  e8 18 f2 64 6f 6d 61 63  |err(0).....domac|
00018120  72 6f 31 3a f2 73 68 6f  77 6e 75 6d 3a e1 0d 94  |ro1:.shownum:...|
00018130  f2 04 0d 94 fc 0f dd f2  70 72 69 6e 74 6e 65 78  |........printnex|
00018140  74 0d 95 06 1e ea 85 3a  ee 85 ea 3a f7 85 3a f2  |t......:...:..:.|
00018150  65 6e 64 61 63 74 3a f2  65 72 72 28 34 33 29 0d  |endact:.err(43).|
00018160  95 10 10 c8 8e 72 25 28  66 69 6c 65 25 29 ca 0d  |.....r%(file%)..|
00018170  95 1a 0d c9 30 3a f2 70  72 6e 78 30 0d 95 24 0d  |....0:.prnx0..$.|
00018180  c9 31 3a f2 70 72 6e 78  31 0d 95 2e 0d c9 32 3a  |.1:.prnx1.....2:|
00018190  f2 70 72 6e 78 32 0d 95  38 0d c9 33 3a f2 70 72  |.prnx2..8..3:.pr|
000181a0  6e 78 33 0d 95 42 0d c9  35 3a f2 70 72 6e 78 35  |nx3..B..5:.prnx5|
000181b0  0d 95 4c 05 cb 0d 95 56  0e f2 73 68 6f 77 6e 75  |..L....V..shownu|
000181c0  6d 3a e1 0d 95 60 04 0d  95 6a 19 dd f2 70 72 6e  |m:...`...j...prn|
000181d0  78 30 3a ea 49 25 2c 68  25 3a 68 25 3d a4 68 74  |x0:.I%,h%:h%=.ht|
000181e0  0d 95 74 26 f2 73 64 6e  65 78 74 3a e7 a4 76 5f  |..t&.sdnext:..v_|
000181f0  28 31 35 29 3e a4 76 5f  28 31 37 29 3a f2 65 6e  |(15)>.v_(17):.en|
00018200  64 72 65 70 3a e1 0d 95  7e 22 e3 49 25 3d 31 b8  |drep:...~".I%=1.|
00018210  68 25 3a c8 99 73 77 69  25 2c 67 6c 69 6e 65 5f  |h%:..swi%,gline_|
00018220  25 2c 49 25 2c 73 64 24  0d 95 88 13 f2 70 70 72  |%,I%,sd$.....ppr|
00018230  69 6e 74 28 24 73 64 25  29 3a ed 0d 95 92 14 e7  |int($sd%):......|
00018240  68 25 3e 31 f2 70 70 72  69 6e 74 28 22 22 29 0d  |h%>1.pprint("").|
00018250  95 9c 05 e1 0d 95 a6 04  0d 95 b0 1d dd f2 70 72  |..............pr|
00018260  6e 78 31 3a e7 a4 72 65  70 31 28 a3 29 3a f2 65  |nx1:..rep1(.):.e|
00018270  6e 64 72 65 70 0d 95 ba  05 e1 0d 95 c4 04 0d 95  |ndrep...........|
00018280  ce 0f dd f2 70 72 6e 78  32 3a ea 54 24 0d 95 d8  |....prnx2:.T$...|
00018290  26 f2 73 64 6e 65 78 74  3a e7 a4 76 5f 28 31 35  |&.sdnext:..v_(15|
000182a0  29 3e a4 76 5f 28 31 37  29 3a f2 65 6e 64 72 65  |)>.v_(17):.endre|
000182b0  70 3a e1 0d 95 e2 19 54  24 3d a4 72 6c 69 6e 28  |p:.....T$=.rlin(|
000182c0  a4 76 5f 28 31 35 29 2c  32 35 35 29 0d 95 ec 16  |.v_(15),255)....|
000182d0  f2 70 70 72 69 6e 74 28  c1 54 24 2c 31 32 29 29  |.pprint(.T$,12))|
000182e0  3a e1 0d 95 f6 04 0d 96  00 19 dd f2 70 72 6e 78  |:...........prnx|
000182f0  33 3a f2 6c 61 62 6c 69  6e 65 28 30 2c a3 29 0d  |3:.labline(0,.).|
00018300  96 0a 05 e1 0d 96 14 04  0d 96 1e 0b dd f2 70 72  |..............pr|
00018310  6e 78 35 0d 96 28 15 e7  ac a4 70 72 6c 69 6e 65  |nx5..(....prline|
00018320  3a f2 65 6e 64 72 65 70  0d 96 32 05 e1 0d 96 3c  |:.endrep..2....<|
00018330  04 0d 96 46 16 dd f2 65  6e 64 72 65 70 3a f2 65  |...F...endrep:.e|
00018340  6e 64 61 63 74 3a e1 0d  96 50 04 0d 96 5a 0d dd  |ndact:...P...Z..|
00018350  f2 66 73 75 62 6e 78 74  0d 96 64 2b ea 54 25 2c  |.fsubnxt..d+.T%,|
00018360  49 25 2c 42 25 3a 54 25  3d 65 25 28 66 69 6c 65  |I%,B%:T%=e%(file|
00018370  25 2c 32 29 3a 42 25 3d  65 25 28 66 69 6c 65 25  |%,2):B%=e%(file%|
00018380  2c 31 29 0d 96 6e 2d e3  49 25 3d 30 b8 63 68 75  |,1)..n-.I%=0.chu|
00018390  6e 6b 25 3a 54 25 2b 3d  31 3a e7 54 25 3e a4 76  |nk%:T%+=1:.T%>.v|
000183a0  5f 28 31 37 29 3a f2 65  6e 64 66 69 6c 6c 3a e1  |_(17):.endfill:.|
000183b0  0d 96 78 26 65 25 28 66  69 6c 65 25 2c 32 29 3d  |..x&e%(file%,2)=|
000183c0  54 25 3a c8 99 73 77 69  25 2c 67 72 65 63 5f 25  |T%:..swi%,grec_%|
000183d0  2c 54 25 b8 4e 25 0d 96  82 29 f2 73 75 62 62 79  |,T%.N%...).subby|
000183e0  74 65 28 65 25 28 66 69  6c 65 25 2c 30 29 2c 42  |te(e%(file%,0),B|
000183f0  25 29 3a ed 3a f2 73 68  6f 77 6e 75 6d 3a e1 0d  |%):.:.shownum:..|
00018400  96 8c 04 0d 96 96 24 dd  f2 73 6f 72 74 6e 65 78  |......$..sortnex|
00018410  74 3a ea 49 25 2c 4a 25  2c 4b 25 2c 4c 25 2c 4d  |t:.I%,J%,K%,L%,M|
00018420  25 2c 54 25 2c 50 25 0d  96 a0 1d ea 85 3a ee 85  |%,T%,P%......:..|
00018430  ea 3a f7 85 3a f2 65 6e  64 61 63 74 3a f2 65 72  |.:..:.endact:.er|
00018440  72 28 30 29 0d 96 aa 3f  49 25 3d 6f 25 28 66 69  |r(0)...?I%=o%(fi|
00018450  6c 65 25 2c 31 29 3a 4a  25 3d 6f 25 28 66 69 6c  |le%,1):J%=o%(fil|
00018460  65 25 2c 32 29 3a 4b 25  3d 6f 25 28 66 69 6c 65  |e%,2):K%=o%(file|
00018470  25 2c 33 29 3a 4c 25 3d  6f 25 28 66 69 6c 65 25  |%,3):L%=o%(file%|
00018480  2c 34 29 0d 96 b4 36 4d  25 3d 6f 25 28 66 69 6c  |,4)...6M%=o%(fil|
00018490  65 25 2c 35 29 3a 50 25  3d 6f 25 28 66 69 6c 65  |e%,5):P%=o%(file|
000184a0  25 2c 36 29 3a 54 25 3d  28 6f 25 28 66 69 6c 65  |%,6):T%=(o%(file|
000184b0  25 2c 30 29 80 31 29 3d  31 0d 96 be 28 e7 4c 25  |%,0).1)=1...(.L%|
000184c0  3d 30 3a 4a 25 3d 31 3a  4b 25 3d a4 76 5f 28 31  |=0:J%=1:K%=.v_(1|
000184d0  37 29 2d 4d 25 3a e7 4a  25 3c 3d 4b 25 4c 25 3d  |7)-M%:.J%<=K%L%=|
000184e0  31 0d 96 c8 22 e7 4c 25  3d 31 3a 49 25 3d 4a 25  |1...".L%=1:I%=J%|
000184f0  3a 50 25 3d 49 25 2b 4d  25 3a e7 49 25 3e 30 4c  |:P%=I%+M%:.I%>0L|
00018500  25 3d 32 0d 96 d2 0a e7  4c 25 3d 32 8c 0d 96 dc  |%=2.....L%=2....|
00018510  22 4c 24 3d a4 73 6f 28  50 25 29 3a 49 24 3d a4  |"L$=.so(P%):I$=.|
00018520  73 6f 28 49 25 29 3a f2  73 68 6f 77 6e 75 6d 0d  |so(I%):.shownum.|
00018530  96 e6 0c e7 49 24 3c 3e  4c 24 8c 0d 96 f0 2c e7  |....I$<>L$....,.|
00018540  28 49 24 3e 4c 24 29 3d  54 25 3a f2 73 77 61 70  |(I$>L$)=T%:.swap|
00018550  72 65 63 28 49 25 2c 50  25 29 3a 49 25 2d 3d 4d  |rec(I%,P%):I%-=M|
00018560  25 8b 49 25 3d 2d 31 0d  96 fa 05 cc 0d 97 04 09  |%.I%=-1.........|
00018570  49 25 3d 2d 31 0d 97 0e  05 cd 0d 97 18 21 50 25  |I%=-1........!P%|
00018580  3d 49 25 2b 4d 25 3a e7  49 25 3e 30 3a f2 73 6f  |=I%+M%:.I%>0:.so|
00018590  72 74 72 3a e1 3a 8b 4c  25 3d 31 0d 97 22 05 cd  |rtr:.:.L%=1.."..|
000185a0  0d 97 2c 0a e7 4c 25 3d  31 8c 0d 97 36 20 4a 25  |..,..L%=1...6 J%|
000185b0  2b 3d 31 3a e7 4a 25 3c  3d 4b 25 3a f2 73 6f 72  |+=1:.J%<=K%:.sor|
000185c0  74 72 3a e1 3a 8b 4c 25  3d 30 0d 97 40 05 cd 0d  |tr:.:.L%=0..@...|
000185d0  97 4a 0a e7 4c 25 3d 30  8c 0d 97 54 21 4d 25 3d  |.J..L%=0...T!M%=|
000185e0  4d 25 81 32 3a e7 4d 25  3e 30 3a f2 73 6f 72 74  |M%.2:.M%>0:.sort|
000185f0  72 3a e1 3a 8b 4c 25 3d  2d 31 0d 97 5e 05 cd 0d  |r:.:.L%=-1..^...|
00018600  97 68 0c f2 73 6f 72 74  72 3a e1 0d 97 72 04 0d  |.h..sortr:...r..|
00018610  97 7c 38 dd f2 73 6f 72  74 72 3a 6f 25 28 66 69  |.|8..sortr:o%(fi|
00018620  6c 65 25 2c 31 29 3d 49  25 3a 6f 25 28 66 69 6c  |le%,1)=I%:o%(fil|
00018630  65 25 2c 32 29 3d 4a 25  3a 6f 25 28 66 69 6c 65  |e%,2)=J%:o%(file|
00018640  25 2c 33 29 3d 4b 25 0d  97 86 30 6f 25 28 66 69  |%,3)=K%...0o%(fi|
00018650  6c 65 25 2c 34 29 3d 4c  25 3a 6f 25 28 66 69 6c  |le%,4)=L%:o%(fil|
00018660  65 25 2c 35 29 3d 4d 25  3a 6f 25 28 66 69 6c 65  |e%,5)=M%:o%(file|
00018670  25 2c 36 29 3d 50 25 0d  97 90 10 e7 4c 25 3c 30  |%,6)=P%.....L%<0|
00018680  f2 65 6e 64 61 63 74 0d  97 9a 05 e1 0d 97 a4 04  |.endact.........|
00018690  0d 97 ae 33 dd f2 7a 66  6f 75 6e 64 3a e7 66 63  |...3..zfound:.fc|
000186a0  25 28 66 69 6c 65 25 29  3e 3d 30 66 63 25 28 66  |%(file%)>=0fc%(f|
000186b0  69 6c 65 25 29 3d 2d 31  3a f2 73 68 6f 77 66 6f  |ile%)=-1:.showfo|
000186c0  75 6e 64 0d 97 b8 05 e1  0d 97 c2 04 0d 97 cc 11  |und.............|
000186d0  dd f2 6e 75 6d 65 72 69  63 28 72 25 29 0d 97 d6  |..numeric(r%)...|
000186e0  2c 64 69 61 6c 72 65 61  73 6f 6e 25 3d 72 25 3a  |,dialreason%=r%:|
000186f0  77 5f 6e 75 6d 73 25 3d  a4 63 72 77 69 6e 64 28  |w_nums%=.crwind(|
00018700  74 77 5f 6e 75 6d 73 25  29 0d 97 e0 2b f2 73 65  |tw_nums%)...+.se|
00018710  74 69 28 77 5f 6e 75 6d  73 25 2c 32 2c 22 22 29  |ti(w_nums%,2,"")|
00018720  3a f2 73 65 74 69 28 77  5f 6e 75 6d 73 25 2c 33  |:.seti(w_nums%,3|
00018730  2c 22 22 29 0d 97 ea 0a  e7 72 25 3e 30 8c 0d 97  |,"").....r%>0...|
00018740  f4 2b f2 73 65 74 69 28  77 5f 6e 75 6d 73 25 2c  |.+.seti(w_nums%,|
00018750  32 2c a4 73 75 62 6e 61  6d 65 28 6d 65 6e 75 73  |2,.subname(menus|
00018760  75 62 25 2d 32 35 36 29  29 0d 97 fe 2b f2 73 65  |ub%-256))...+.se|
00018770  74 69 28 77 5f 6e 75 6d  73 25 2c 33 2c c3 a4 73  |ti(w_nums%,3,..s|
00018780  75 62 6d 61 78 28 6d 65  6e 75 73 75 62 25 2d 32  |ubmax(menusub%-2|
00018790  35 36 29 29 0d 98 08 1a  cd 3a f2 64 69 61 6c 6f  |56)).....:.dialo|
000187a0  67 75 65 28 77 5f 6e 75  6d 73 25 29 3a e1 0d 98  |gue(w_nums%):...|
000187b0  12 04 0d 98 1c 0d dd a4  61 63 74 64 65 73 63 0d  |........actdesc.|
000187c0  98 26 10 c8 8e 61 25 28  66 69 6c 65 25 29 ca 0d  |.&...a%(file%)..|
000187d0  98 30 19 c9 33 3a 3d 22  53 65 61 72 63 68 69 6e  |.0..3:="Searchin|
000187e0  67 20 63 61 72 64 73 22  0d 98 3a 39 c9 34 3a e7  |g cards"..:9.4:.|
000187f0  65 25 28 66 69 6c 65 25  2c 31 29 3a 3d 22 46 69  |e%(file%,1):="Fi|
00018800  6c 6c 69 6e 67 20 73 75  62 73 65 74 22 3a 8b 3d  |lling subset":.=|
00018810  22 43 6c 65 61 72 69 6e  67 20 73 75 62 73 65 74  |"Clearing subset|
00018820  22 0d 98 44 18 c9 35 3a  3d 22 43 6f 70 79 69 6e  |"..D..5:="Copyin|
00018830  67 20 73 75 62 73 65 74  22 0d 98 4e 1b c9 36 3a  |g subset"..N..6:|
00018840  3d 22 43 6f 6d 62 69 6e  69 6e 67 20 73 75 62 73  |="Combining subs|
00018850  65 74 73 22 0d 98 58 1b  c9 37 3a 3d 22 44 65 73  |ets"..X..7:="Des|
00018860  74 72 6f 79 69 6e 67 20  73 75 62 73 65 74 22 0d  |troying subset".|
00018870  98 62 18 c9 38 3a 3d 22  55 70 64 61 74 69 6e 67  |.b..8:="Updating|
00018880  20 63 61 72 64 73 22 0d  98 6c 17 c9 39 3a 3d 22  | cards"..l..9:="|
00018890  53 6f 72 74 69 6e 67 20  63 61 72 64 73 22 0d 98  |Sorting cards"..|
000188a0  76 1a c9 31 30 3a 3d 22  50 72 69 6e 74 69 6e 67  |v..10:="Printing|
000188b0  20 72 65 70 6f 72 74 22  0d 98 80 1f c9 31 31 3a  | report".....11:|
000188c0  3d 22 49 6d 70 75 6c 73  65 20 54 72 61 6e 73 6d  |="Impulse Transm|
000188d0  69 73 73 69 6f 6e 22 0d  98 8a 1a 7f 3a 3d 22 4c  |ission".....:="L|
000188e0  69 6e 6b 65 64 20 74 6f  20 70 72 6f 63 65 73 73  |inked to process|
000188f0  22 0d 98 94 09 cb 3a 3d  22 22 0d 98 9e 04 0d 98  |".....:=""......|
00018900  a8 11 dd f2 66 69 6c 6c  73 75 62 28 54 25 29 0d  |....fillsub(T%).|
00018910  98 b2 35 65 25 28 66 69  6c 65 25 2c 30 29 3d 6d  |..5e%(file%,0)=m|
00018920  65 6e 75 73 75 62 25 3a  65 25 28 66 69 6c 65 25  |enusub%:e%(file%|
00018930  2c 31 29 3d 54 25 3a 65  25 28 66 69 6c 65 25 2c  |,1)=T%:e%(file%,|
00018940  32 29 3d 30 0d 98 bc 12  f2 73 74 61 72 74 61 63  |2)=0.....startac|
00018950  74 28 34 29 3a e1 0d 98  c6 04 0d 98 d0 0c dd f2  |t(4):...........|
00018960  64 65 6c 73 75 62 0d 98  da 2a 65 25 28 66 69 6c  |delsub...*e%(fil|
00018970  65 25 2c 30 29 3d 6d 65  6e 75 73 75 62 25 3a f2  |e%,0)=menusub%:.|
00018980  73 65 6c 73 75 62 28 6d  65 6e 75 73 75 62 25 29  |selsub(menusub%)|
00018990  0d 98 e4 12 f2 73 74 61  72 74 61 63 74 28 37 29  |.....startact(7)|
000189a0  3a e1 0d 98 ee 04 0d 98  f8 12 dd f2 75 70 64 63  |:...........updc|
000189b0  61 72 64 73 3a ea 49 25  0d 99 02 2f e3 49 25 3d  |ards:.I%.../.I%=|
000189c0  30 b8 33 3a 74 25 28 66  69 6c 65 25 2c 49 25 29  |0.3:t%(file%,I%)|
000189d0  3d 30 3a ed 3a c8 99 73  77 69 25 2c 66 69 72 73  |=0:.:..swi%,firs|
000189e0  74 5f 25 b8 2c 4e 25 0d  99 0c 33 f2 73 74 61 72  |t_%.,N%...3.star|
000189f0  74 61 63 74 28 38 29 3a  e7 77 25 28 66 69 6c 65  |tact(8):.w%(file|
00018a00  25 2c 37 29 3e 30 f2 63  6c 6f 73 65 77 28 77 25  |%,7)>0.closew(w%|
00018a10  28 66 69 6c 65 25 2c 37  29 29 0d 99 16 05 e1 0d  |(file%,7))......|
00018a20  99 20 04 0d 99 2a 0e dd  f2 70 72 69 6e 74 72 65  |. ...*...printre|
00018a30  70 0d 99 34 1d ea 85 3a  ee 85 ea 3a f7 85 3a f2  |p..4...:...:..:.|
00018a40  65 6e 64 61 63 74 3a f2  65 72 72 28 30 29 0d 99  |endact:.err(0)..|
00018a50  3e 1e f2 67 72 61 62 70  72 3a 6f 75 74 72 65 70  |>..grabpr:outrep|
00018a60  25 3d 30 3a f2 69 6e 69  74 72 65 70 0d 99 48 13  |%=0:.initrep..H.|
00018a70  f2 73 74 61 72 74 61 63  74 28 31 30 29 3a e1 0d  |.startact(10):..|
00018a80  99 52 04 0d 99 5c 0d dd  f2 69 6e 69 74 72 65 70  |.R...\...initrep|
00018a90  0d 99 66 10 c8 8e 72 25  28 66 69 6c 65 25 29 ca  |..f...r%(file%).|
00018aa0  0d 99 70 1d c9 30 2c 31  2c 32 3a c8 99 73 77 69  |..p..0,1,2:..swi|
00018ab0  25 2c 66 69 72 73 74 5f  25 b8 2c 4e 25 0d 99 7a  |%,first_%.,N%..z|
00018ac0  06 c9 33 0d 99 84 1a ea  49 25 3a c8 99 73 77 69  |..3.....I%:..swi|
00018ad0  25 2c 66 69 72 73 74 5f  25 b8 2c 4e 25 0d 99 8e  |%,first_%.,N%...|
00018ae0  3d f2 76 61 6c 69 64 72  65 63 3a 65 25 28 66 69  |=.validrec:e%(fi|
00018af0  6c 65 25 2c 32 29 3d a4  76 5f 28 31 35 29 3a 65  |le%,2)=.v_(15):e|
00018b00  25 28 66 69 6c 65 25 2c  30 29 3d 30 3a 65 25 28  |%(file%,0)=0:e%(|
00018b10  66 69 6c 65 25 2c 31 29  3d 31 0d 99 98 30 e3 49  |file%,1)=1...0.I|
00018b20  25 3d 30 b8 6d 61 78 61  63 72 25 2d 31 3a 6c 31  |%=0.maxacr%-1:l1|
00018b30  25 28 66 69 6c 65 25 2c  49 25 29 3d 31 3a ed 3a  |%(file%,I%)=1:.:|
00018b40  6c 61 62 6c 69 6e 65 25  3d 30 0d 99 a2 06 c9 34  |labline%=0.....4|
00018b50  0d 99 ac 16 c8 99 73 77  69 25 2c 66 69 72 73 74  |......swi%,first|
00018b60  5f 25 b8 2c 4e 25 0d 99  b6 1f 76 65 63 74 6f 72  |_%.,N%....vector|
00018b70  73 25 3d 30 3a 76 65 63  25 3d 30 3a 74 75 70 6c  |s%=0:vec%=0:tupl|
00018b80  65 73 25 3d 30 0d 99 c0  06 c9 35 0d 99 ca 43 f2  |es%=0.....5...C.|
00018b90  63 68 65 63 6b 72 65 70  3a ea 49 25 2c 4a 25 3a  |checkrep:.I%,J%:|
00018ba0  74 6f 74 61 6c 73 25 3d  30 3a 74 6c 69 6e 65 73  |totals%=0:tlines|
00018bb0  25 3d 30 3a 74 74 6f 74  25 3d 30 3a c8 99 73 77  |%=0:ttot%=0:..sw|
00018bc0  69 25 2c 66 69 72 73 74  5f 25 b8 2c 4e 25 0d 99  |i%,first_%.,N%..|
00018bd0  d4 38 e3 49 25 3d 30 b8  6d 61 78 63 6f 6c 25 3a  |.8.I%=0.maxcol%:|
00018be0  f2 64 65 63 6f 64 65 63  6f 6c 28 49 25 29 3a e3  |.decodecol(I%):.|
00018bf0  4a 25 3d 30 b8 31 3a 63  76 24 28 49 25 2c 4a 25  |J%=0.1:cv$(I%,J%|
00018c00  29 3d 22 22 3a ed 0d 99  de 26 e3 4a 25 3d 30 b8  |)="":....&.J%=0.|
00018c10  33 3a 63 74 28 49 25 2c  4a 25 29 3d 30 3a 63 74  |3:ct(I%,J%)=0:ct|
00018c20  25 28 49 25 2c 4a 25 29  3d 30 3a ed 0d 99 e8 32  |%(I%,J%)=0:....2|
00018c30  e7 63 65 78 70 24 3e 22  22 74 6f 74 61 6c 73 25  |.cexp$>""totals%|
00018c40  2d 3d 28 63 74 6f 74 25  3c 3e 30 29 3a 74 74 6f  |-=(ctot%<>0):tto|
00018c50  74 25 3d 74 74 6f 74 25  84 63 74 6f 74 25 0d 99  |t%=ttot%.ctot%..|
00018c60  f2 3e ed 3a 72 6c 66 25  3d 66 69 6c 65 25 3a 72  |.>.:rlf%=file%:r|
00018c70  73 70 25 3d 2d 31 3a 72  70 63 25 3d 32 3a 72 6d  |sp%=-1:rpc%=2:rm|
00018c80  66 25 3d 66 69 6c 65 25  3a 72 6c 6c 25 3d 6d 61  |f%=file%:rll%=ma|
00018c90  78 66 25 2b 31 3a 72 70  72 25 3d b9 0d 99 fc 32  |xf%+1:rpr%=....2|
00018ca0  72 70 72 31 25 3d a3 3a  6c 73 75 62 76 61 6c 24  |rpr1%=.:lsubval$|
00018cb0  3d 22 20 22 3a 6c 73 73  75 62 76 61 6c 24 3d 22  |=" ":lssubval$="|
00018cc0  20 22 3a 66 6c 69 6e 65  25 3d 2d 39 39 39 0d 9a  | ":fline%=-999..|
00018cd0  06 27 74 6c 69 6e 65 73  25 3d bb c1 22 30 31 31  |.'tlines%=.."011|
00018ce0  32 31 32 32 33 22 2c 28  74 74 6f 74 25 80 37 29  |21223",(ttot%.7)|
00018cf0  2b 31 2c 31 29 0d 9a 10  19 e3 49 25 3d 30 b8 6d  |+1,1).....I%=0.m|
00018d00  61 78 66 25 3a 72 6c 25  28 49 25 29 3d a3 0d 9a  |axf%:rl%(I%)=...|
00018d10  1a 18 e7 49 25 3c 3e 72  6d 66 25 80 68 25 28 49  |...I%<>rmf%.h%(I|
00018d20  25 29 3c 3e 30 8c 0d 9a  24 1d 54 24 3d 22 5c 22  |%)<>0...$.T$="\"|
00018d30  2b a4 75 28 a4 6f 66 69  6c 65 6e 61 6d 65 28 49  |+.u(.ofilename(I|
00018d40  25 29 29 0d 9a 2e 11 e3  4a 25 3d 30 b8 6d 61 78  |%)).....J%=0.max|
00018d50  63 6f 6c 25 0d 9a 38 17  e7 63 24 28 66 69 6c 65  |col%..8..c$(file|
00018d60  25 2c 4a 25 2c 30 29 3e  22 22 8c 0d 9a 42 35 e7  |%,J%,0)>""...B5.|
00018d70  a7 a4 75 28 a4 78 37 28  63 24 28 66 69 6c 65 25  |..u(.x7(c$(file%|
00018d80  2c 4a 25 2c 30 29 29 29  2c 54 24 29 72 6c 25 28  |,J%,0))),T$)rl%(|
00018d90  49 25 29 3d b9 3a 4a 25  3d 6d 61 78 63 6f 6c 25  |I%)=.:J%=maxcol%|
00018da0  0d 9a 4c 05 cd 0d 9a 56  05 ed 0d 9a 60 05 cd 0d  |..L....V....`...|
00018db0  9a 6a 3c ed 3a 72 6c 25  28 66 69 6c 65 25 29 3d  |.j<.:rl%(file%)=|
00018dc0  b9 3a 70 6c 69 6e 65 25  3d 30 3a 70 70 61 67 65  |.:pline%=0:ppage|
00018dd0  25 3d 30 3a 70 72 66 6e  74 25 3d 2d 31 3a 70 72  |%=0:prfnt%=-1:pr|
00018de0  77 25 3d a4 70 72 77 69  64 74 68 0d 9a 74 29 72  |w%=.prwidth..t)r|
00018df0  70 68 65 69 25 3d 70 25  28 66 69 6c 65 25 2c 33  |phei%=p%(file%,3|
00018e00  29 3a 72 70 77 69 64 25  3d 70 25 28 66 69 6c 65  |):rpwid%=p%(file|
00018e10  25 2c 32 29 0d 9a 7e 2c  70 72 6c 25 3d 28 31 80  |%,2)..~,prl%=(1.|
00018e20  a4 66 6c 67 28 66 5f 72  6c 64 75 25 29 29 84 28  |.flg(f_rldu%)).(|
00018e30  32 80 a4 66 6c 67 28 66  5f 72 6c 73 75 25 29 29  |2..flg(f_rlsu%))|
00018e40  0d 9a 88 2a e7 6f 75 74  72 65 70 25 3c 3e 32 3a  |...*.outrep%<>2:|
00018e50  e7 a4 66 6c 67 28 66 5f  72 65 6a 62 25 29 3a f2  |..flg(f_rejb%):.|
00018e60  70 72 65 6a 65 63 74 28  b9 29 0d 9a 92 05 cb 0d  |preject(.)......|
00018e70  9a 9c 05 e1 0d 9a a6 04  0d 9a b0 1a dd f2 73 74  |..............st|
00018e80  61 72 74 61 63 74 28 54  25 29 3a f2 6e 6f 6d 65  |artact(T%):.nome|
00018e90  6e 75 0d 9a ba 3b 73 25  28 66 69 6c 65 25 29 3d  |nu...;s%(file%)=|
00018ea0  32 3a 61 25 28 66 69 6c  65 25 29 3d 54 25 3a f2  |2:a%(file%)=T%:.|
00018eb0  66 6f 72 63 65 63 61 72  64 3a f2 66 6f 72 63 65  |forcecard:.force|
00018ec0  72 65 70 3a f2 6e 65 77  64 65 6c 61 79 0d 9a c4  |rep:.newdelay...|
00018ed0  12 f2 61 63 74 6c 69 6e  6b 28 54 25 29 3a e1 0d  |..actlink(T%):..|
00018ee0  9a ce 04 0d 9a d8 0c dd  f2 65 6e 64 61 63 74 0d  |.........endact.|
00018ef0  9a e2 27 73 25 28 66 69  6c 65 25 29 3d 30 3a 61  |..'s%(file%)=0:a|
00018f00  25 28 66 69 6c 65 25 29  3d 30 3a f2 61 63 74 6c  |%(file%)=0:.actl|
00018f10  69 6e 6b 28 30 29 0d 9a  ec 1e e7 66 69 6c 65 25  |ink(0).....file%|
00018f20  3d 70 72 69 6e 74 65 72  25 3a f2 72 65 6c 65 61  |=printer%:.relea|
00018f30  73 65 70 72 0d 9a f6 24  f2 66 6f 72 63 65 72 65  |sepr...$.forcere|
00018f40  70 3a f2 76 61 6c 69 64  72 65 63 32 3a f2 6e 65  |p:.validrec2:.ne|
00018f50  77 64 65 6c 61 79 3a e1  0d 9b 00 04 0d 9b 0a 1d  |wdelay:.........|
00018f60  dd f2 61 63 74 6c 69 6e  6b 28 54 25 29 3a e7 6c  |..actlink(T%):.l|
00018f70  69 6e 6b 73 25 3d 30 3a  e1 0d 9b 14 0a ea 66 25  |inks%=0:......f%|
00018f80  2c 49 25 0d 9b 1e 20 e3  49 25 3d 30 b8 6d 61 78  |,I%... .I%=0.max|
00018f90  66 25 3a e7 6c 25 28 49  25 29 3d 66 69 6c 65 25  |f%:.l%(I%)=file%|
00018fa0  2b 31 8c 0d 9b 28 3b 66  25 3d 66 69 6c 65 25 3a  |+1...(;f%=file%:|
00018fb0  f2 73 64 66 69 6c 65 28  49 25 29 3a 61 25 28 66  |.sdfile(I%):a%(f|
00018fc0  69 6c 65 25 29 3d 2d 54  25 3a 73 25 28 66 69 6c  |ile%)=-T%:s%(fil|
00018fd0  65 25 29 3d 2d 32 2a 28  54 25 3c 3e 30 29 0d 9b  |e%)=-2*(T%<>0)..|
00018fe0  32 27 f2 61 63 74 6c 69  6e 6b 28 54 25 29 3a f2  |2'.actlink(T%):.|
00018ff0  66 6f 72 63 65 63 61 72  64 3a f2 73 64 66 69 6c  |forcecard:.sdfil|
00019000  65 28 66 25 29 0d 9b 3c  09 cd 3a ed 3a e1 0d 9b  |e(f%)..<..:.:...|
00019010  46 04 0d 9b 50 25 dd f2  64 65 6c 63 61 72 64 3a  |F...P%..delcard:|
00019020  ea 54 25 3a e7 a4 72 65  61 64 6f 6e 6c 79 3a f2  |.T%:..readonly:.|
00019030  62 75 7a 7a 31 3a e1 0d  9b 5a 31 c8 99 73 77 69  |buzz1:...Z1..swi|
00019040  25 2c 73 64 32 33 5f 25  b8 54 25 3a c8 99 73 77  |%,sd23_%.T%:..sw|
00019050  69 25 2c 64 65 6c 72 65  63 5f 25 2c 2d 31 3a f2  |i%,delrec_%,-1:.|
00019060  76 61 6c 69 64 72 65 63  0d 9b 64 3e e7 a4 63 75  |validrec..d>..cu|
00019070  72 69 64 78 3e 30 f2 66  6f 72 63 65 63 61 72 64  |ridx>0.forcecard|
00019080  73 72 65 70 28 31 2c a4  76 5f 28 31 36 29 29 3a  |srep(1,.v_(16)):|
00019090  8b f2 66 6f 72 63 65 63  61 72 64 73 72 65 70 28  |..forcecardsrep(|
000190a0  54 25 2c 54 25 29 0d 9b  6e 05 e1 0d 9b 78 04 0d  |T%,T%)..n....x..|
000190b0  9b 82 30 dd f2 72 6d 76  63 61 72 64 3a ea 54 25  |..0..rmvcard:.T%|
000190c0  2c 42 25 3a 54 25 3d a4  76 5f 28 31 31 29 3a e7  |,B%:T%=.v_(11):.|
000190d0  a4 64 65 61 64 66 69 6c  65 28 2d 31 29 3a e1 0d  |.deadfile(-1):..|
000190e0  9b 8c 19 e7 54 25 3e 33  31 3a 42 25 3d 2d 31 3a  |....T%>31:B%=-1:|
000190f0  54 25 3d 54 25 80 33 31  0d 9b 96 17 c8 99 73 77  |T%=T%.31......sw|
00019100  69 25 2c 73 64 33 37 5f  25 2c 54 25 b8 47 25 0d  |i%,sd37_%,T%.G%.|
00019110  9b a0 1a c8 99 73 77 69  25 2c 73 64 33 34 5f 25  |.....swi%,sd34_%|
00019120  2c 42 25 2c 2d 31 b8 47  25 0d 9b aa 14 c8 99 73  |,B%,-1.G%......s|
00019130  77 69 25 2c 73 64 33 37  5f 25 b8 47 25 0d 9b b4  |wi%,sd37_%.G%...|
00019140  1d f2 66 6f 72 63 65 63  61 72 64 72 65 70 3a f2  |..forcecardrep:.|
00019150  76 61 6c 69 64 72 65 63  3a e1 0d 9b be 04 0d 9b  |validrec:.......|
00019160  c8 0f dd f2 66 69 6e 66  6f 28 66 25 29 0d 9b d2  |....finfo(f%)...|
00019170  23 e7 a4 64 65 61 64 66  69 6c 65 28 25 31 31 31  |#..deadfile(%111|
00019180  31 31 31 31 31 30 31 31  31 31 31 31 31 29 3a e1  |1111101111111):.|
00019190  0d 9b dc 2a ea 4c 25 2c  54 24 2c 54 25 3a 54 25  |...*.L%,T$,T%:T%|
000191a0  3d 6d 65 6e 75 66 69 65  6c 64 25 3a 64 69 61 6c  |=menufield%:dial|
000191b0  72 65 61 73 6f 6e 25 3d  66 25 0d 9b e6 4a 77 5f  |reason%=f%...Jw_|
000191c0  66 69 6e 66 25 3d a4 63  72 77 69 6e 64 28 74 77  |finf%=.crwind(tw|
000191d0  5f 66 69 6e 66 25 29 3a  f2 67 65 74 77 28 77 25  |_finf%):.getw(w%|
000191e0  28 66 69 6c 65 25 2c 30  29 29 3a c8 99 73 77 69  |(file%,0)):..swi|
000191f0  25 2c 73 64 31 37 5f 25  2c 31 2c 54 25 2c 73 64  |%,sd17_%,1,T%,sd|
00019200  24 b8 47 25 0d 9b f0 23  4c 25 3d 47 25 3a c8 99  |$.G%...#L%=G%:..|
00019210  73 77 69 25 2c 73 64 31  37 5f 25 2c 39 2c 54 25  |swi%,sd17_%,9,T%|
00019220  2c 73 64 24 b8 47 25 0d  9b fa 26 54 24 3d 24 73  |,sd$.G%...&T$=$s|
00019230  64 25 3a c8 99 73 77 69  25 2c 73 64 31 37 5f 25  |d%:..swi%,sd17_%|
00019240  2c 31 30 2c 54 25 2c 73  64 24 b8 47 25 0d 9c 04  |,10,T%,sd$.G%...|
00019250  1d c8 99 73 77 69 25 2c  73 64 31 37 5f 25 2c 34  |...swi%,sd17_%,4|
00019260  2c 54 25 2c 73 64 24 b8  47 25 0d 9c 0e 2a f2 75  |,T%,sd$.G%...*.u|
00019270  6e 73 65 6c 61 6c 6c 28  77 5f 66 69 6e 66 25 29  |nselall(w_finf%)|
00019280  3a f2 73 65 74 69 28 77  5f 66 69 6e 66 25 2c 35  |:.seti(w_finf%,5|
00019290  2c 54 24 29 0d 9c 18 2e  f2 73 65 74 69 28 77 5f  |,T$).....seti(w_|
000192a0  66 69 6e 66 25 2c 32 2c  c3 54 25 29 3a f2 73 65  |finf%,2,.T%):.se|
000192b0  74 69 28 77 5f 66 69 6e  66 25 2c 32 30 2c c3 4c  |ti(w_finf%,20,.L|
000192c0  25 29 0d 9c 22 20 e7 a7  24 73 64 25 2c 22 4b 22  |%).." ..$sd%,"K"|
000192d0  29 3a f2 73 65 6c 69 28  77 5f 66 69 6e 66 25 2c  |):.seli(w_finf%,|
000192e0  36 29 0d 9c 2c 1a e7 47  25 80 38 3a f2 73 65 6c  |6)..,..G%.8:.sel|
000192f0  69 28 77 5f 66 69 6e 66  25 2c 37 29 0d 9c 36 1c  |i(w_finf%,7)..6.|
00019300  e7 47 25 80 31 32 38 3a  f2 73 65 6c 69 28 77 5f  |.G%.128:.seli(w_|
00019310  66 69 6e 66 25 2c 38 29  0d 9c 40 1b e7 47 25 80  |finf%,8)..@..G%.|
00019320  36 34 3a f2 73 65 6c 69  28 77 5f 66 69 6e 66 25  |64:.seli(w_finf%|
00019330  2c 39 29 0d 9c 4a 11 47  25 3d 47 25 80 37 3a c8  |,9)..J.G%=G%.7:.|
00019340  8e 47 25 ca 0d 9c 54 18  c9 30 3a f2 73 65 6c 69  |.G%...T..0:.seli|
00019350  28 77 5f 66 69 6e 66 25  2c 31 31 29 0d 9c 5e 1d  |(w_finf%,11)..^.|
00019360  c9 37 3a f2 73 65 6c 69  28 77 5f 66 69 6e 66 25  |.7:.seli(w_finf%|
00019370  2c 31 30 29 3a 47 25 3d  30 0d 9c 68 17 7f 3a f2  |,10):G%=0..h..:.|
00019380  73 65 6c 69 28 77 5f 66  69 6e 66 25 2c 31 32 29  |seli(w_finf%,12)|
00019390  0d 9c 72 1b cb 3a f2 73  65 74 69 28 77 5f 66 69  |..r..:.seti(w_fi|
000193a0  6e 66 25 2c 31 33 2c c3  47 25 29 0d 9c 7c 09 e7  |nf%,13,.G%)..|..|
000193b0  ac 66 25 8c 0d 9c 86 1b  65 78 69 30 25 3d 2d 31  |.f%.....exi0%=-1|
000193c0  3a 65 78 69 31 25 3d 2d  31 3a f7 8d 7c 78 5c 0d  |:exi1%=-1:..|x\.|
000193d0  9c 90 2d e3 54 25 3d 30  b8 36 3a f3 4c 25 3a f2  |..-.T%=0.6:.L%:.|
000193e0  69 73 65 74 28 77 5f 66  69 6e 66 25 2c 4c 25 2c  |iset(w_finf%,L%,|
000193f0  26 34 30 46 30 30 30 2c  30 29 3a ed 0d 9c 9a 16  |&40F000,0):.....|
00019400  cc 3a 65 78 69 30 25 3d  32 3a 65 78 69 31 25 3d  |.:exi0%=2:exi1%=|
00019410  32 30 0d 9c a4 05 cd 0d  9c ae 18 f2 64 69 61 6c  |20..........dial|
00019420  6f 67 75 65 28 77 5f 66  69 6e 66 25 29 3a e1 0d  |ogue(w_finf%):..|
00019430  9c b8 15 dc 36 2c 31 38  2c 32 30 2c 32 31 2c 32  |....6,18,20,21,2|
00019440  2c 33 2c 34 0d 9c c2 04  0d 9c cc 36 dd a4 6e 6f  |,3,4.......6..no|
00019450  74 65 28 54 25 2c 49 25  29 3a ea 71 25 3a 71 25  |te(T%,I%):.q%:q%|
00019460  3d 77 6f 72 6b 62 75 66  25 3a 3d 24 a4 74 69 61  |=workbuf%:=$.tia|
00019470  28 74 77 25 28 54 25 2c  36 29 2c 49 25 29 0d 9c  |(tw%(T%,6),I%)..|
00019480  d6 04 0d 9c e0 24 dd f2  6e 6f 74 65 28 54 25 2c  |.....$..note(T%,|
00019490  49 25 2c 54 24 29 3a ea  71 25 3a 71 25 3d 77 6f  |I%,T$):.q%:q%=wo|
000194a0  72 6b 62 75 66 25 0d 9c  ea 40 e7 77 25 28 54 25  |rkbuf%...@.w%(T%|
000194b0  2c 36 29 3e 30 f2 73 65  74 69 28 77 25 28 54 25  |,6)>0.seti(w%(T%|
000194c0  2c 36 29 2c 49 25 2c 54  24 29 8b 24 a4 74 69 61  |,6),I%,T$).$.tia|
000194d0  28 74 77 25 28 54 25 2c  36 29 2c 49 25 29 3d c0  |(tw%(T%,6),I%)=.|
000194e0  54 24 2c 38 30 29 0d 9c  f4 05 e1 0d 9c fe 04 0d  |T$,80)..........|
000194f0  9d 08 1d dd a4 6d 61 63  6c 6e 28 54 25 2c 49 25  |.....macln(T%,I%|
00019500  29 3a e7 49 25 3e 32 39  3a 3d 22 22 0d 9d 12 28  |):.I%>29:=""...(|
00019510  ea 71 25 3a 71 25 3d 77  6f 72 6b 62 75 66 25 3a  |.q%:q%=workbuf%:|
00019520  3d 24 a4 74 69 61 28 74  77 25 28 54 25 2c 37 29  |=$.tia(tw%(T%,7)|
00019530  2c 49 25 29 0d 9d 1c 04  0d 9d 26 2e dd f2 6d 61  |,I%)......&...ma|
00019540  63 6c 6e 28 54 25 2c 49  25 2c 54 24 29 3a ea 71  |cln(T%,I%,T$):.q|
00019550  25 3a 71 25 3d 77 6f 72  6b 62 75 66 25 3a e7 49  |%:q%=workbuf%:.I|
00019560  25 3e 32 39 3a e1 0d 9d  30 40 e7 77 25 28 54 25  |%>29:...0@.w%(T%|
00019570  2c 37 29 3e 30 f2 73 65  74 69 28 77 25 28 54 25  |,7)>0.seti(w%(T%|
00019580  2c 37 29 2c 49 25 2c 54  24 29 8b 24 a4 74 69 61  |,7),I%,T$).$.tia|
00019590  28 74 77 25 28 54 25 2c  37 29 2c 49 25 29 3d c0  |(tw%(T%,7),I%)=.|
000195a0  54 24 2c 38 30 29 0d 9d  3a 05 e1 0d 9d 44 04 0d  |T$,80)..:....D..|
000195b0  9d 4e 28 dd f2 6c 6f 61  64 6e 6f 74 65 73 3a ea  |.N(..loadnotes:.|
000195c0  49 25 2c 54 25 3a 54 25  3d 8e 66 69 6c 65 24 3a  |I%,T%:T%=.file$:|
000195d0  e7 54 25 3d 30 3a e1 0d  9d 58 26 c8 95 ac c5 23  |.T%=0:...X&....#|
000195e0  54 25 80 49 25 3c 31 39  3a f2 6e 6f 74 65 28 66  |T%.I%<19:.note(f|
000195f0  69 6c 65 25 2c 49 25 2c  be 23 54 25 29 0d 9d 62  |ile%,I%,.#T%)..b|
00019600  33 49 25 2b 3d 31 3a ce  3a d9 23 54 25 3a c8 95  |3I%+=1:.:.#T%:..|
00019610  49 25 3c 31 39 3a f2 6e  6f 74 65 28 66 69 6c 65  |I%<19:.note(file|
00019620  25 2c 49 25 2c 22 22 29  3a 49 25 2b 3d 31 3a ce  |%,I%,""):I%+=1:.|
00019630  0d 9d 6c 26 f2 6e 6f 73  63 72 61 70 3a f2 6e 65  |..l&.noscrap:.ne|
00019640  77 66 6e 28 66 5f 6e 70  24 29 3a f2 6e 65 77 6e  |wfn(f_np$):.newn|
00019650  6f 74 65 73 3a e1 0d 9d  76 04 0d 9d 80 28 dd f2  |otes:...v....(..|
00019660  6c 6f 61 64 6d 61 63 72  6f 3a ea 49 25 2c 54 25  |loadmacro:.I%,T%|
00019670  3a 54 25 3d 8e 66 69 6c  65 24 3a e7 54 25 3d 30  |:T%=.file$:.T%=0|
00019680  3a e1 0d 9d 8a 27 c8 95  ac c5 23 54 25 80 49 25  |:....'....#T%.I%|
00019690  3c 33 30 3a f2 6d 61 63  6c 6e 28 66 69 6c 65 25  |<30:.macln(file%|
000196a0  2c 49 25 2c be 23 54 25  29 0d 9d 94 34 49 25 2b  |,I%,.#T%)...4I%+|
000196b0  3d 31 3a ce 3a d9 23 54  25 3a c8 95 49 25 3c 33  |=1:.:.#T%:..I%<3|
000196c0  30 3a f2 6d 61 63 6c 6e  28 66 69 6c 65 25 2c 49  |0:.macln(file%,I|
000196d0  25 2c 22 22 29 3a 49 25  2b 3d 31 3a ce 0d 9d 9e  |%,""):I%+=1:....|
000196e0  26 f2 6e 6f 73 63 72 61  70 3a f2 6e 65 77 66 6e  |&.noscrap:.newfn|
000196f0  28 66 5f 6d 63 24 29 3a  f2 6e 65 77 6e 6f 74 65  |(f_mc$):.newnote|
00019700  73 3a e1 0d 9d a8 04 0d  9d b2 10 dd f2 63 68 65  |s:...........che|
00019710  63 6b 73 65 74 75 70 0d  9d bc 39 ea 54 24 2c 54  |cksetup...9.T$,T|
00019720  25 3a 54 24 3d a4 7a 74  73 28 71 25 2b 34 34 29  |%:T$=.zts(q%+44)|
00019730  3a 54 25 3d a4 73 65 74  75 70 74 79 70 65 28 54  |:T%=.setuptype(T|
00019740  24 29 3a e7 54 25 3c 30  f2 65 72 72 28 35 30 29  |$):.T%<0.err(50)|
00019750  0d 9d c6 36 f2 77 74 6f  66 28 6d 68 25 29 3a e7  |...6.wtof(mh%):.|
00019760  66 69 6c 65 25 3c 30 3a  e7 6d 68 25 3d 64 69 61  |file%<0:.mh%=dia|
00019770  6c 6f 67 75 65 25 3a 66  69 6c 65 25 3d 64 69 61  |logue%:file%=dia|
00019780  6c 66 69 6c 65 25 0d 9d  d0 1a e7 66 69 6c 65 25  |lfile%.....file%|
00019790  3c 30 80 54 25 3c 3e 30  f2 65 72 72 28 34 39 29  |<0.T%<>0.err(49)|
000197a0  0d 9d da 27 f2 64 61 74  61 6c 6f 61 64 61 63 6b  |...'.dataloadack|
000197b0  3a 66 69 6c 65 24 3d 54  24 3a e7 54 25 3d 37 f2  |:file$=T$:.T%=7.|
000197c0  65 72 72 28 36 33 29 0d  9d e4 37 f2 73 74 6f 70  |err(63)...7.stop|
000197d0  28 32 38 2c a4 73 65 74  75 70 64 65 73 63 28 54  |(28,.setupdesc(T|
000197e0  25 29 2c 72 6c 24 2b 22  6c 6f 61 64 20 73 65 74  |%),rl$+"load set|
000197f0  75 70 20 3f 22 2c 66 69  6c 65 25 29 3a e1 0d 9d  |up ?",file%):...|
00019800  ee 04 0d 9d f8 2b dd f2  6c 6f 61 64 73 65 74 75  |.....+..loadsetu|
00019810  70 3a ea 54 25 2c 46 25  2c 49 25 2c 41 25 2c 42  |p:.T%,F%,I%,A%,B|
00019820  25 2c 58 25 2c 59 25 2c  5a 25 2c 54 24 0d 9e 02  |%,X%,Y%,Z%,T$...|
00019830  27 54 25 3d a4 73 65 74  75 70 74 79 70 65 28 66  |'T%=.setuptype(f|
00019840  69 6c 65 24 29 3a e7 54  25 3c 30 3a f2 65 72 72  |ile$):.T%<0:.err|
00019850  28 35 30 29 0d 9e 0c 09  c8 8e 54 25 ca 0d 9e 16  |(50)......T%....|
00019860  0e c9 30 3a f2 50 44 6c  6f 61 64 0d 9e 20 08 c9  |..0:.PDload.. ..|
00019870  31 2c 34 0d 9e 2a 14 e7  66 69 6c 65 25 3c 30 f2  |1,4..*..file%<0.|
00019880  65 72 72 28 34 39 29 0d  9e 34 1f 72 25 28 66 69  |err(49)..4.r%(fi|
00019890  6c 65 25 29 3d 33 3a f2  6d 61 6b 65 72 65 70 28  |le%)=3:.makerep(|
000198a0  66 69 6c 65 25 29 0d 9e  3e 17 46 25 3d 8e 28 66  |file%)..>.F%=.(f|
000198b0  69 6c 65 24 29 3a e7 46  25 3d 30 3a e1 0d 9e 48  |ile$):.F%=0:...H|
000198c0  1a ea 85 3a ee 85 ea 3a  f7 85 3a d9 23 46 25 3a  |...:...:..:.#F%:|
000198d0  f2 65 72 72 28 30 29 0d  9e 52 0a e7 54 25 3d 31  |.err(0)..R..T%=1|
000198e0  8c 0d 9e 5c 5e e8 23 46  25 2c 54 24 3a e8 23 46  |...\^.#F%,T$:.#F|
000198f0  25 2c 6c 6c 25 28 66 69  6c 65 25 2c 34 29 2c 6c  |%,ll%(file%,4),l|
00019900  6c 25 28 66 69 6c 65 25  2c 30 29 2c 6c 6c 25 28  |l%(file%,0),ll%(|
00019910  66 69 6c 65 25 2c 33 29  2c 6c 6c 25 28 66 69 6c  |file%,3),ll%(fil|
00019920  65 25 2c 31 29 2c 6c 6c  25 28 66 69 6c 65 25 2c  |e%,1),ll%(file%,|
00019930  35 29 2c 6c 6c 25 28 66  69 6c 65 25 2c 32 29 0d  |5),ll%(file%,2).|
00019940  9e 66 6f 6c 66 25 28 66  69 6c 65 25 2c 31 35 29  |.folf%(file%,15)|
00019950  3d 30 3a e3 49 25 3d 30  b8 31 34 3a e8 23 46 25  |=0:.I%=0.14:.#F%|
00019960  2c 41 25 2c 42 25 2c 58  25 2c 59 25 2c 5a 25 3a  |,A%,B%,X%,Y%,Z%:|
00019970  6c 66 25 28 66 69 6c 65  25 2c 49 25 29 3d 42 25  |lf%(file%,I%)=B%|
00019980  84 28 41 25 3c 3c 32 29  84 28 28 58 25 80 31 29  |.(A%<<2).((X%.1)|
00019990  3c 3c 34 29 84 28 28 5a  25 80 31 29 3c 3c 35 29  |<<4).((Z%.1)<<5)|
000199a0  84 28 28 59 25 80 31 29  3c 3c 36 29 3a ed 0d 9e  |.((Y%.1)<<6):...|
000199b0  70 05 cc 0d 9e 7a 27 cf  23 46 25 3d 35 3a e3 49  |p....z'.#F%=5:.I|
000199c0  25 3d 30 b8 35 3a e8 23  46 25 2c 6c 6c 25 28 66  |%=0.5:.#F%,ll%(f|
000199d0  69 6c 65 25 2c 49 25 29  3a ed 0d 9e 84 21 e3 49  |ile%,I%):....!.I|
000199e0  25 3d 30 b8 31 35 3a e8  23 46 25 2c 6c 66 25 28  |%=0.15:.#F%,lf%(|
000199f0  66 69 6c 65 25 2c 49 25  29 3a ed 0d 9e 8e 29 e7  |file%,I%):....).|
00019a00  ac c5 23 46 25 3a e8 23  46 25 2c 6c 6c 25 28 66  |..#F%:.#F%,ll%(f|
00019a10  69 6c 65 25 2c 36 29 2c  6c 6c 25 28 66 69 6c 65  |ile%,6),ll%(file|
00019a20  25 2c 37 29 0d 9e 98 05  cd 0d 9e a2 1f d9 23 46  |%,7)..........#F|
00019a30  25 3a f7 85 3a e7 77 5f  6c 61 62 65 6c 25 3e 30  |%:..:.w_label%>0|
00019a40  3a f2 72 73 65 74 33 69  0d 9e ac 21 f2 72 65 78  |:.rset3i...!.rex|
00019a50  74 3a f2 66 6f 72 63 65  72 65 70 3a f2 6e 65 77  |t:.forcerep:.new|
00019a60  66 6e 28 66 5f 6c 61 24  29 0d 9e b6 08 c9 32 2c  |fn(f_la$).....2,|
00019a70  35 0d 9e c0 14 e7 66 69  6c 65 25 3c 30 f2 65 72  |5.....file%<0.er|
00019a80  72 28 34 39 29 0d 9e ca  1f 72 25 28 66 69 6c 65  |r(49)....r%(file|
00019a90  25 29 3d 34 3a f2 6d 61  6b 65 72 65 70 28 66 69  |%)=4:.makerep(fi|
00019aa0  6c 65 25 29 0d 9e d4 17  46 25 3d 8e 28 66 69 6c  |le%)....F%=.(fil|
00019ab0  65 24 29 3a e7 46 25 3d  30 3a e1 0d 9e de 1a ea  |e$):.F%=0:......|
00019ac0  85 3a ee 85 ea 3a f7 85  3a d9 23 46 25 3a f2 65  |.:...:..:.#F%:.e|
00019ad0  72 72 28 30 29 0d 9e e8  0a e7 54 25 3d 32 8c 0d  |rr(0).....T%=2..|
00019ae0  9e f2 1a e8 23 46 25 2c  54 24 2c 41 25 2c 42 25  |....#F%,T$,A%,B%|
00019af0  2c 58 25 2c 59 25 2c 54  24 0d 9e fc 36 f2 66 6c  |,X%,Y%,T$...6.fl|
00019b00  67 28 66 5f 77 75 70 70  25 2c 42 25 29 3a f2 66  |g(f_wupp%,B%):.f|
00019b10  6c 67 28 66 5f 77 73 70  63 25 2c 58 25 29 3a f2  |lg(f_wspc%,X%):.|
00019b20  66 6c 67 28 66 5f 77 62  6e 6b 25 2c 59 25 29 0d  |flg(f_wbnk%,Y%).|
00019b30  9f 06 20 e3 49 25 3d 30  b8 31 34 3a e8 23 46 25  |.. .I%=0.14:.#F%|
00019b40  2c 77 24 28 66 69 6c 65  25 2c 49 25 29 3a ed 0d  |,w$(file%,I%):..|
00019b50  9f 10 05 cc 0d 9f 1a 37  cf 23 46 25 3d 35 3a e3  |.......7.#F%=5:.|
00019b60  49 25 3d 30 b8 31 34 3a  e8 23 46 25 2c 77 24 28  |I%=0.14:.#F%,w$(|
00019b70  66 69 6c 65 25 2c 49 25  29 3a ed 3a e8 23 46 25  |file%,I%):.:.#F%|
00019b80  2c 77 6f 25 28 66 69 6c  65 25 29 0d 9f 24 05 cd  |,wo%(file%)..$..|
00019b90  0d 9f 2e 1e d9 23 46 25  3a f7 85 3a e7 77 5f 77  |.....#F%:..:.w_w|
00019ba0  6f 72 64 25 3e 30 3a f2  72 73 65 74 34 69 0d 9f  |ord%>0:.rset4i..|
00019bb0  38 1b f2 66 6f 72 63 65  72 65 70 3a f2 6e 65 77  |8..forcerep:.new|
00019bc0  66 6e 28 66 5f 77 70 24  29 0d 9f 42 08 c9 33 2c  |fn(f_wp$)..B..3,|
00019bd0  36 0d 9f 4c 19 5a 25 3d  a3 3a e7 66 69 6c 65 25  |6..L.Z%=.:.file%|
00019be0  3c 30 f2 65 72 72 28 34  39 29 0d 9f 56 1f 72 25  |<0.err(49)..V.r%|
00019bf0  28 66 69 6c 65 25 29 3d  35 3a f2 6d 61 6b 65 72  |(file%)=5:.maker|
00019c00  65 70 28 66 69 6c 65 25  29 0d 9f 60 17 46 25 3d  |ep(file%)..`.F%=|
00019c10  8e 28 66 69 6c 65 24 29  3a e7 46 25 3d 30 3a e1  |.(file$):.F%=0:.|
00019c20  0d 9f 6a 1a ea 85 3a ee  85 ea 3a f7 85 3a d9 23  |..j...:...:..:.#|
00019c30  46 25 3a f2 65 72 72 28  30 29 0d 9f 74 0a e7 54  |F%:.err(0)..t..T|
00019c40  25 3d 33 8c 0d 9f 7e 0b  e8 23 46 25 2c 54 24 0d  |%=3...~..#F%,T$.|
00019c50  9f 88 47 e8 23 46 25 2c  70 25 28 66 69 6c 65 25  |..G.#F%,p%(file%|
00019c60  2c 32 29 2c 70 25 28 66  69 6c 65 25 2c 31 29 2c  |,2),p%(file%,1),|
00019c70  54 25 2c 70 25 28 66 69  6c 65 25 2c 30 29 2c 70  |T%,p%(file%,0),p|
00019c80  25 28 66 69 6c 65 25 2c  33 29 2c 70 25 28 66 69  |%(file%,3),p%(fi|
00019c90  6c 65 25 2c 34 29 0d 9f  92 3b e8 23 46 25 2c 54  |le%,4)...;.#F%,T|
00019ca0  25 3a f2 66 6c 67 28 66  5f 72 65 6a 62 25 2c 54  |%:.flg(f_rejb%,T|
00019cb0  25 3c 3e 30 29 3a e8 23  46 25 2c 54 25 3a f2 66  |%<>0):.#F%,T%:.f|
00019cc0  6c 67 28 66 5f 72 65 6a  61 25 2c 54 25 3c 3e 30  |lg(f_reja%,T%<>0|
00019cd0  29 0d 9f 9c 3b e8 23 46  25 2c 54 25 3a f2 66 6c  |)...;.#F%,T%:.fl|
00019ce0  67 28 66 5f 72 64 73 70  25 2c 54 25 3c 3e 30 29  |g(f_rdsp%,T%<>0)|
00019cf0  3a e8 23 46 25 2c 54 25  3a f2 66 6c 67 28 66 5f  |:.#F%,T%:.flg(f_|
00019d00  72 74 70 6e 25 2c 54 25  3c 3e 30 29 0d 9f a6 3b  |rtpn%,T%<>0)...;|
00019d10  e8 23 46 25 2c 54 25 3a  f2 66 6c 67 28 66 5f 72  |.#F%,T%:.flg(f_r|
00019d20  62 70 6e 25 2c 54 25 3c  3e 30 29 3a e8 23 46 25  |bpn%,T%<>0):.#F%|
00019d30  2c 54 25 3a f2 66 6c 67  28 66 5f 72 70 64 74 25  |,T%:.flg(f_rpdt%|
00019d40  2c 54 25 3c 3e 30 29 0d  9f b0 1f e8 23 46 25 2c  |,T%<>0).....#F%,|
00019d50  54 25 3a f2 66 6c 67 28  66 5f 72 74 70 67 25 2c  |T%:.flg(f_rtpg%,|
00019d60  54 25 3c 3e 30 29 0d 9f  ba 2d e8 23 46 25 2c 54  |T%<>0)...-.#F%,T|
00019d70  25 3a f2 66 6c 67 28 66  5f 72 74 73 75 25 2c 54  |%:.flg(f_rtsu%,T|
00019d80  25 3c 3e 30 80 ac a4 66  6c 67 28 66 5f 72 74 70  |%<>0...flg(f_rtp|
00019d90  67 29 29 0d 9f c4 1f e3  49 25 3d 30 b8 37 3a e8  |g)).....I%=0.7:.|
00019da0  23 46 25 2c 70 24 28 66  69 6c 65 25 2c 49 25 29  |#F%,p$(file%,I%)|
00019db0  3a ed 0d 9f ce 38 49 25  3d 30 3a f5 3a e8 23 46  |:....8I%=0:.:.#F|
00019dc0  25 2c 63 24 28 66 69 6c  65 25 2c 49 25 2c 30 29  |%,c$(file%,I%,0)|
00019dd0  2c 63 24 28 66 69 6c 65  25 2c 49 25 2c 31 29 3a  |,c$(file%,I%,1):|
00019de0  63 6f 6c 75 6d 6e 25 3d  49 25 0d 9f d8 35 e8 23  |column%=I%...5.#|
00019df0  46 25 2c 54 25 3a f2 73  65 74 63 6f 6c 28 54 25  |F%,T%:.setcol(T%|
00019e00  2c 33 2c 38 29 3a e8 23  46 25 2c 54 25 3a f2 73  |,3,8):.#F%,T%:.s|
00019e10  65 74 63 6f 6c 28 54 25  2c 32 35 35 2c 30 29 0d  |etcol(T%,255,0).|
00019e20  9f e2 35 e8 23 46 25 2c  54 25 3a f2 73 65 74 63  |..5.#F%,T%:.setc|
00019e30  6f 6c 28 54 25 2c 33 2c  31 30 29 3a e8 23 46 25  |ol(T%,3,10):.#F%|
00019e40  2c 54 25 3a f2 73 65 74  63 6f 6c 28 54 25 2c 33  |,T%:.setcol(T%,3|
00019e50  2c 31 37 29 0d 9f ec 38  e8 23 46 25 2c 54 25 3a  |,17)...8.#F%,T%:|
00019e60  f2 73 65 74 63 6f 6c 28  54 25 2c 37 2c 31 34 29  |.setcol(T%,7,14)|
00019e70  3a e8 23 46 25 2c 54 25  3a f2 73 65 74 63 6f 6c  |:.#F%,T%:.setcol|
00019e80  28 54 25 3c 3e 30 2c 31  2c 32 30 29 0d 9f f6 34  |(T%<>0,1,20)...4|
00019e90  e8 23 46 25 2c 54 25 3a  f2 73 65 74 63 6f 6c 28  |.#F%,T%:.setcol(|
00019ea0  54 25 2c 37 2c 32 31 29  3a 49 25 2b 3d 31 3a fd  |T%,7,21):I%+=1:.|
00019eb0  49 25 3e 33 30 84 49 25  3e 6d 61 78 63 6f 6c 25  |I%>30.I%>maxcol%|
00019ec0  0d a0 00 31 e7 49 25 3c  3d 6d 61 78 63 6f 6c 25  |...1.I%<=maxcol%|
00019ed0  3a e3 49 25 3d 49 25 b8  6d 61 78 63 6f 6c 25 3a  |:.I%=I%.maxcol%:|
00019ee0  f2 72 5f 63 6c 65 61 72  63 6f 6c 28 49 25 29 3a  |.r_clearcol(I%):|
00019ef0  ed 0d a0 0a 05 cc 0d a0  14 26 cf 23 46 25 3d 35  |.........&.#F%=5|
00019f00  3a e3 49 25 3d 30 b8 37  3a e8 23 46 25 2c 70 24  |:.I%=0.7:.#F%,p$|
00019f10  28 66 69 6c 65 25 2c 49  25 29 3a ed 0d a0 1e 1f  |(file%,I%):.....|
00019f20  e3 49 25 3d 30 b8 34 3a  e8 23 46 25 2c 70 25 28  |.I%=0.4:.#F%,p%(|
00019f30  66 69 6c 65 25 2c 49 25  29 3a ed 0d a0 28 1d e8  |file%,I%):...(..|
00019f40  23 46 25 2c 54 25 3a f2  66 6c 67 6d 28 66 5f 72  |#F%,T%:.flgm(f_r|
00019f50  65 70 73 25 2c 54 25 29  0d a0 32 3a 49 25 3d 30  |eps%,T%)..2:I%=0|
00019f60  3a f5 3a e8 23 46 25 2c  63 25 28 66 69 6c 65 25  |:.:.#F%,c%(file%|
00019f70  2c 49 25 29 2c 63 24 28  66 69 6c 65 25 2c 49 25  |,I%),c$(file%,I%|
00019f80  2c 30 29 2c 63 24 28 66  69 6c 65 25 2c 49 25 2c  |,0),c$(file%,I%,|
00019f90  31 29 0d a0 3c 1a 49 25  2b 3d 31 3a fd c5 23 46  |1)..<.I%+=1:..#F|
00019fa0  25 84 49 25 3e 6d 61 78  63 6f 6c 25 0d a0 46 31  |%.I%>maxcol%..F1|
00019fb0  e7 49 25 3c 3d 6d 61 78  63 6f 6c 25 3a e3 49 25  |.I%<=maxcol%:.I%|
00019fc0  3d 49 25 b8 6d 61 78 63  6f 6c 25 3a f2 72 5f 63  |=I%.maxcol%:.r_c|
00019fd0  6c 65 61 72 63 6f 6c 28  49 25 29 3a ed 0d a0 50  |learcol(I%):...P|
00019fe0  05 cd 0d a0 5a 0b d9 23  46 25 3a f7 85 0d a0 64  |....Z..#F%:....d|
00019ff0  21 f2 72 65 78 74 3a f2  66 6f 72 63 65 72 65 70  |!.rext:.forcerep|
0001a000  3a f2 6e 65 77 66 6e 28  66 5f 72 70 24 29 0d a0  |:.newfn(f_rp$)..|
0001a010  6e 0e 7f 3a f2 65 72 72  28 35 30 29 0d a0 78 05  |n..:.err(50)..x.|
0001a020  cb 0d a0 82 05 e1 0d a0  8c 04 0d a0 96 13 dd a4  |................|
0001a030  73 65 74 75 70 74 79 70  65 28 66 24 29 0d a0 a0  |setuptype(f$)...|
0001a040  29 ea 41 25 2c 42 25 2c  49 25 2c 46 25 2c 54 25  |).A%,B%,I%,F%,T%|
0001a050  2c 54 24 3a 46 25 3d ad  28 66 24 29 3a e7 46 25  |,T$:F%=.(f$):.F%|
0001a060  3d 30 3a 3d 2d 31 0d a0  aa 06 ea 85 0d a0 b4 30  |=0:=-1.........0|
0001a070  cf 23 46 25 3d 30 3a e3  49 25 3d 31 b8 34 3a 41  |.#F%=0:.I%=1.4:A|
0001a080  25 3d 9a 23 46 25 3a 42  25 3d 28 41 25 3c 3c 32  |%=.#F%:B%=(A%<<2|
0001a090  34 29 2b 28 42 25 3e 3e  38 29 3a ed 0d a0 be 19  |4)+(B%>>8):.....|
0001a0a0  e7 42 25 3d 26 35 35 30  31 30 30 30 31 3a d9 23  |.B%=&55010001:.#|
0001a0b0  46 25 3a 3d 30 0d a0 c8  22 e7 42 25 3d 26 36 43  |F%:=0...".B%=&6C|
0001a0c0  37 32 36 35 34 44 3a 42  25 3d 9a 23 46 25 3a d9  |72654D:B%=.#F%:.|
0001a0d0  23 46 25 3a 3d 42 25 0d  a0 d2 1b cf 23 46 25 3d  |#F%:=B%.....#F%=|
0001a0e0  30 3a 54 25 3d b9 3a ee  85 ea 3a f7 85 3a 54 25  |0:T%=.:...:..:T%|
0001a0f0  3d a3 0d a0 dc 0e e7 54  25 e8 23 46 25 2c 54 24  |=......T%.#F%,T$|
0001a100  0d a0 e6 08 e7 54 25 8c  0d a0 f0 27 e7 54 24 3d  |.....T%....'.T$=|
0001a110  22 44 65 6c 74 61 2b 4d  61 69 6c 73 68 6f 74 20  |"Delta+Mailshot |
0001a120  4c 61 62 65 6c 73 22 3a  d9 23 46 25 3a 3d 31 0d  |Labels":.#F%:=1.|
0001a130  a0 fa 28 e7 54 24 3d 22  44 65 6c 74 61 2b 4d 61  |..(.T$="Delta+Ma|
0001a140  69 6c 73 68 6f 74 20 57  6f 72 64 70 72 6f 22 3a  |ilshot Wordpro":|
0001a150  d9 23 46 25 3a 3d 32 0d  a1 04 27 e7 54 24 3d 22  |.#F%:=2...'.T$="|
0001a160  44 65 6c 74 61 2b 4d 61  69 6c 73 68 6f 74 20 52  |Delta+Mailshot R|
0001a170  65 70 6f 72 74 22 3a d9  23 46 25 3a 3d 33 0d a1  |eport":.#F%:=3..|
0001a180  0e 05 cd 0d a1 18 0c d9  23 46 25 3a 3d 2d 31 0d  |........#F%:=-1.|
0001a190  a1 22 04 0d a1 2c 13 dd  a4 73 65 74 75 70 64 65  |."...,...setupde|
0001a1a0  73 63 28 54 25 29 0d a1  36 09 c8 8e 54 25 ca 0d  |sc(T%)..6...T%..|
0001a1b0  a1 40 18 c9 30 3a 3d 22  50 72 69 6e 74 65 72 20  |.@..0:="Printer |
0001a1c0  44 72 69 76 65 72 22 0d  a1 4a 1b c9 31 3a 3d 22  |Driver"..J..1:="|
0001a1d0  4f 6c 64 20 44 65 6c 74  61 2b 20 4c 61 62 65 6c  |Old Delta+ Label|
0001a1e0  73 22 0d a1 54 1c c9 32  3a 3d 22 4f 6c 64 20 44  |s"..T..2:="Old D|
0001a1f0  65 6c 74 61 2b 20 57 6f  72 64 70 72 6f 22 0d a1  |elta+ Wordpro"..|
0001a200  5e 1b c9 33 3a 3d 22 4f  6c 64 20 44 65 6c 74 61  |^..3:="Old Delta|
0001a210  2b 20 52 65 70 6f 72 74  22 0d a1 68 1b c9 34 3a  |+ Report"..h..4:|
0001a220  3d 22 4d 75 6c 74 69 53  74 6f 72 65 20 4c 61 62  |="MultiStore Lab|
0001a230  65 6c 73 22 0d a1 72 1c  c9 35 3a 3d 22 4d 75 6c  |els"..r..5:="Mul|
0001a240  74 69 53 74 6f 72 65 20  57 6f 72 64 70 72 6f 22  |tiStore Wordpro"|
0001a250  0d a1 7c 1b c9 36 3a 3d  22 4d 75 6c 74 69 53 74  |..|..6:="MultiSt|
0001a260  6f 72 65 20 52 65 70 6f  72 74 22 0d a1 86 1d c9  |ore Report".....|
0001a270  37 3a 3d 22 4d 75 6c 74  69 53 74 6f 72 65 20 54  |7:="MultiStore T|
0001a280  72 61 6e 73 66 65 72 22  0d a1 90 1c cb 3a 3d 22  |ransfer".....:="|
0001a290  55 6e 72 65 63 6f 67 6e  69 73 65 64 20 46 6f 72  |Unrecognised For|
0001a2a0  6d 61 74 22 0d a1 9a 04  0d a1 a4 0f dd f2 73 61  |mat"..........sa|
0001a2b0  76 65 73 65 74 75 70 0d  a1 ae 2d d5 23 6f 75 74  |vesetup...-.#out|
0001a2c0  66 69 6c 65 25 2c 22 4d  65 72 6c 22 3b 3a d5 23  |file%,"Merl";:.#|
0001a2d0  6f 75 74 66 69 6c 65 25  2c 72 25 28 66 69 6c 65  |outfile%,r%(file|
0001a2e0  25 29 2b 31 0d a1 b8 10  c8 8e 72 25 28 66 69 6c  |%)+1......r%(fil|
0001a2f0  65 25 29 ca 0d a1 c2 0f  c9 33 3a f2 73 61 76 65  |e%)......3:.save|
0001a300  73 6c 61 0d a1 cc 0f c9  34 3a f2 73 61 76 65 73  |sla.....4:.saves|
0001a310  77 70 0d a1 d6 0f c9 35  3a f2 73 61 76 65 73 72  |wp.....5:.savesr|
0001a320  70 0d a1 e0 07 cb 3a e1  0d a1 ea 04 0d a1 f4 34  |p.....:........4|
0001a330  dd f2 73 61 76 65 73 6c  61 3a ea 49 25 3a e3 49  |..savesla:.I%:.I|
0001a340  25 3d 30 b8 35 3a f1 23  6f 75 74 66 69 6c 65 25  |%=0.5:.#outfile%|
0001a350  2c 6c 6c 25 28 66 69 6c  65 25 2c 49 25 29 3a ed  |,ll%(file%,I%):.|
0001a360  0d a1 fe 35 e3 49 25 3d  30 b8 31 35 3a f1 23 6f  |...5.I%=0.15:.#o|
0001a370  75 74 66 69 6c 65 25 2c  6c 66 25 28 66 69 6c 65  |utfile%,lf%(file|
0001a380  25 2c 49 25 29 3a ed 3a  f2 6e 65 77 66 6e 28 66  |%,I%):.:.newfn(f|
0001a390  5f 6c 61 24 29 0d a2 08  35 f1 23 6f 75 74 66 69  |_la$)...5.#outfi|
0001a3a0  6c 65 25 2c 6c 6c 25 28  66 69 6c 65 25 2c 36 29  |le%,ll%(file%,6)|
0001a3b0  3a f1 23 6f 75 74 66 69  6c 65 25 2c 6c 6c 25 28  |:.#outfile%,ll%(|
0001a3c0  66 69 6c 65 25 2c 37 29  3a e1 0d a2 12 04 0d a2  |file%,7):.......|
0001a3d0  1c 34 dd f2 73 61 76 65  73 77 70 3a ea 49 25 3a  |.4..saveswp:.I%:|
0001a3e0  e3 49 25 3d 30 b8 31 34  3a f1 23 6f 75 74 66 69  |.I%=0.14:.#outfi|
0001a3f0  6c 65 25 2c 77 24 28 66  69 6c 65 25 2c 49 25 29  |le%,w$(file%,I%)|
0001a400  3a ed 0d a2 26 29 f1 23  6f 75 74 66 69 6c 65 25  |:...&).#outfile%|
0001a410  2c 77 6f 25 28 66 69 6c  65 25 29 3a f2 6e 65 77  |,wo%(file%):.new|
0001a420  66 6e 28 66 5f 77 70 24  29 3a e1 0d a2 30 04 0d  |fn(f_wp$):...0..|
0001a430  a2 3a 33 dd f2 73 61 76  65 73 72 70 3a ea 49 25  |.:3..savesrp:.I%|
0001a440  3a e3 49 25 3d 30 b8 37  3a f1 23 6f 75 74 66 69  |:.I%=0.7:.#outfi|
0001a450  6c 65 25 2c 70 24 28 66  69 6c 65 25 2c 49 25 29  |le%,p$(file%,I%)|
0001a460  3a ed 0d a2 44 25 e3 49  25 3d 30 b8 34 3a f1 23  |:...D%.I%=0.4:.#|
0001a470  6f 75 74 66 69 6c 65 25  2c 70 25 28 66 69 6c 65  |outfile%,p%(file|
0001a480  25 2c 49 25 29 3a ed 0d  a2 4e 2f f1 23 6f 75 74  |%,I%):...N/.#out|
0001a490  66 69 6c 65 25 2c 66 6c  25 28 66 69 6c 65 25 29  |file%,fl%(file%)|
0001a4a0  80 66 5f 72 65 70 73 25  3a e3 49 25 3d 30 b8 6d  |.f_reps%:.I%=0.m|
0001a4b0  61 78 63 6f 6c 25 0d a2  58 39 f1 23 6f 75 74 66  |axcol%..X9.#outf|
0001a4c0  69 6c 65 25 2c 63 25 28  66 69 6c 65 25 2c 49 25  |ile%,c%(file%,I%|
0001a4d0  29 2c 63 24 28 66 69 6c  65 25 2c 49 25 2c 30 29  |),c$(file%,I%,0)|
0001a4e0  2c 63 24 28 66 69 6c 65  25 2c 49 25 2c 31 29 0d  |,c$(file%,I%,1).|
0001a4f0  a2 62 07 ed 3a e1 0d a2  6c 04 0d a2 76 0f dd f2  |.b..:...l...v...|
0001a500  63 6c 65 61 72 6e 70 61  64 0d a2 80 28 c8 99 20  |clearnpad...(.. |
0001a510  22 57 69 6d 70 5f 47 65  74 43 61 72 65 74 50 6f  |"Wimp_GetCaretPo|
0001a520  73 69 74 69 6f 6e 22 2c  2c 77 6f 72 6b 62 75 66  |sition",,workbuf|
0001a530  25 0d a2 8a 37 e7 21 77  6f 72 6b 62 75 66 25 3d  |%...7.!workbuf%=|
0001a540  77 25 28 66 69 6c 65 25  2c 36 29 3a c8 99 22 57  |w%(file%,6):.."W|
0001a550  69 6d 70 5f 53 65 74 43  61 72 65 74 50 6f 73 69  |imp_SetCaretPosi|
0001a560  74 69 6f 6e 22 2c 2d 31  0d a2 94 27 ea 49 25 3a  |tion",-1...'.I%:|
0001a570  e3 49 25 3d 30 b8 31 38  3a f2 6e 6f 74 65 28 66  |.I%=0.18:.note(f|
0001a580  69 6c 65 25 2c 49 25 2c  22 22 29 3a ed 3a e1 0d  |ile%,I%,""):.:..|
0001a590  a2 9e 04 0d a2 a8 10 dd  f2 63 6c 65 61 72 6d 61  |.........clearma|
0001a5a0  63 72 6f 0d a2 b2 28 c8  99 20 22 57 69 6d 70 5f  |cro...(.. "Wimp_|
0001a5b0  47 65 74 43 61 72 65 74  50 6f 73 69 74 69 6f 6e  |GetCaretPosition|
0001a5c0  22 2c 2c 77 6f 72 6b 62  75 66 25 0d a2 bc 37 e7  |",,workbuf%...7.|
0001a5d0  21 77 6f 72 6b 62 75 66  25 3d 77 25 28 66 69 6c  |!workbuf%=w%(fil|
0001a5e0  65 25 2c 37 29 3a c8 99  22 57 69 6d 70 5f 53 65  |e%,7):.."Wimp_Se|
0001a5f0  74 43 61 72 65 74 50 6f  73 69 74 69 6f 6e 22 2c  |tCaretPosition",|
0001a600  2d 31 0d a2 c6 28 ea 49  25 3a e3 49 25 3d 30 b8  |-1...(.I%:.I%=0.|
0001a610  32 39 3a f2 6d 61 63 6c  6e 28 66 69 6c 65 25 2c  |29:.macln(file%,|
0001a620  49 25 2c 22 22 29 3a ed  3a e1 0d a2 d0 04 0d a2  |I%,""):.:.......|
0001a630  da 34 dd a4 74 68 69 73  66 69 6c 65 28 77 25 2c  |.4..thisfile(w%,|
0001a640  68 25 29 3a e7 77 25 3d  64 69 61 6c 6f 67 75 65  |h%):.w%=dialogue|
0001a650  25 3a e7 68 25 3d 64 69  61 6c 66 69 6c 65 25 3a  |%:.h%=dialfile%:|
0001a660  3d b9 0d a2 e4 24 ea 49  25 3a e3 49 25 3d 30 b8  |=....$.I%:.I%=0.|
0001a670  6d 61 78 77 25 3a e7 77  25 28 68 25 2c 49 25 29  |maxw%:.w%(h%,I%)|
0001a680  3d 77 25 3a 3d b9 0d a2  ee 08 ed 3a 3d a3 0d a2  |=w%:=......:=...|
0001a690  f8 04 0d a3 02 0b dd f2  73 63 72 73 7a 0d a3 0c  |........scrsz...|
0001a6a0  48 21 77 6f 72 6b 62 75  66 25 3d 34 3a 77 6f 72  |H!workbuf%=4:wor|
0001a6b0  6b 62 75 66 25 21 34 3d  35 3a 77 6f 72 6b 62 75  |kbuf%!4=5:workbu|
0001a6c0  66 25 21 38 3d 31 31 3a  77 6f 72 6b 62 75 66 25  |f%!8=11:workbuf%|
0001a6d0  21 31 32 3d 31 32 3a 77  6f 72 6b 62 75 66 25 21  |!12=12:workbuf%!|
0001a6e0  31 36 3d 2d 31 0d a3 16  30 c8 99 22 4f 53 5f 52  |16=-1...0.."OS_R|
0001a6f0  65 61 64 56 64 75 56 61  72 69 61 62 6c 65 73 22  |eadVduVariables"|
0001a700  2c 77 6f 72 6b 62 75 66  25 2c 77 6f 72 6b 62 75  |,workbuf%,workbu|
0001a710  66 25 2b 32 34 0d a3 20  49 71 25 21 33 32 3d 28  |f%+24.. Iq%!32=(|
0001a720  77 6f 72 6b 62 75 66 25  21 33 32 29 3c 3c 28 77  |workbuf%!32)<<(w|
0001a730  6f 72 6b 62 75 66 25 21  32 34 29 3a 71 25 21 33  |orkbuf%!24):q%!3|
0001a740  36 3d 28 77 6f 72 6b 62  75 66 25 21 33 36 29 3c  |6=(workbuf%!36)<|
0001a750  3c 28 77 6f 72 6b 62 75  66 25 21 32 38 29 0d a3  |<(workbuf%!28)..|
0001a760  2a 05 e1 0d a3 34 04 0d  a3 3e 2e dd f2 66 69 6e  |*....4...>...fin|
0001a770  64 66 69 65 6c 64 3a ea  58 25 2c 59 25 3a e7 66  |dfield:.X%,Y%:.f|
0001a780  69 6c 65 25 3d 65 64 66  69 6c 65 25 3a f2 66 65  |ile%=edfile%:.fe|
0001a790  64 69 74 3a e1 0d a3 48  38 f2 67 65 74 77 28 77  |dit:...H8.getw(w|
0001a7a0  25 28 66 69 6c 65 25 2c  30 29 29 3a c8 99 73 77  |%(file%,0)):..sw|
0001a7b0  69 25 2c 73 64 31 37 5f  25 2c 32 2c 6d 65 6e 75  |i%,sd17_%,2,menu|
0001a7c0  66 69 65 6c 64 25 2c 73  64 24 b8 47 25 0d a3 52  |field%,sd$.G%..R|
0001a7d0  2b 58 25 3d 47 25 3a c8  99 73 77 69 25 2c 73 64  |+X%=G%:..swi%,sd|
0001a7e0  31 37 5f 25 2c 33 2c 6d  65 6e 75 66 69 65 6c 64  |17_%,3,menufield|
0001a7f0  25 2c 73 64 24 b8 47 25  0d a3 5c 39 59 25 3d 2d  |%,sd$.G%..\9Y%=-|
0001a800  47 25 2a 6c 69 6e 65 67  61 70 25 2d 6d 61 72 67  |G%*linegap%-marg|
0001a810  69 6e 25 2b 6c 69 6e 65  67 61 70 25 2f 32 3a 58  |in%+linegap%/2:X|
0001a820  25 3d 58 25 2a 31 36 2b  6d 61 72 67 69 6e 25 2d  |%=X%*16+margin%-|
0001a830  38 0d a3 66 33 f2 73 63  72 6f 6c 6c 74 6f 28 58  |8..f3.scrollto(X|
0001a840  25 2c 59 25 2c 77 25 28  66 69 6c 65 25 2c 30 29  |%,Y%,w%(file%,0)|
0001a850  29 3a f2 67 65 74 77 28  77 25 28 66 69 6c 65 25  |):.getw(w%(file%|
0001a860  2c 30 29 29 0d a3 70 30  c8 97 b8 62 78 25 2b 58  |,0))..p0...bx%+X|
0001a870  25 2c 62 79 25 2b 59 25  3a f2 66 72 6f 6e 74 28  |%,by%+Y%:.front(|
0001a880  77 25 28 66 69 6c 65 25  2c 30 29 2c 2d 31 2c 2d  |w%(file%,0),-1,-|
0001a890  31 29 3a e1 0d a3 7a 04  0d a3 84 21 dd f2 63 6f  |1):...z....!..co|
0001a8a0  6d 70 61 63 74 3a e7 a4  72 65 61 64 6f 6e 6c 79  |mpact:..readonly|
0001a8b0  3a f2 62 75 7a 7a 31 3a  e1 0d a3 8e 23 f2 73 65  |:.buzz1:....#.se|
0001a8c0  6c 69 6e 64 65 78 28 30  2c 30 29 3a c8 99 73 77  |lindex(0,0):..sw|
0001a8d0  69 25 2c 63 6f 6d 70 61  63 74 5f 25 0d a3 98 16  |i%,compact_%....|
0001a8e0  e7 72 25 28 66 69 6c 65  25 29 3c 33 3a f2 72 65  |.r%(file%)<3:.re|
0001a8f0  78 74 0d a3 a2 26 f2 76  61 6c 69 64 72 65 63 3a  |xt...&.validrec:|
0001a900  f2 67 72 61 70 68 3a f2  66 6f 72 63 65 72 65 70  |.graph:.forcerep|
0001a910  3a f2 6e 6f 64 69 61 6c  0d a3 ac 39 f2 73 74 6f  |:.nodial...9.sto|
0001a920  70 28 30 2c 66 69 24 2b  a4 66 69 6c 65 6e 61 6d  |p(0,fi$+.filenam|
0001a930  65 2c 22 43 6f 6d 70 61  63 74 69 6f 6e 20 63 6f  |e,"Compaction co|
0001a940  6d 70 6c 65 74 65 21 22  2c 66 69 6c 65 25 29 3a  |mplete!",file%):|
0001a950  e1 0d a3 b6 04 0d a3 c0  2a dd f2 73 63 72 6f 6c  |........*..scrol|
0001a960  6c 74 6f 28 58 25 2c 59  25 2c 68 25 29 3a e7 68  |lto(X%,Y%,h%):.h|
0001a970  25 3c 30 e1 3a 8b f2 67  65 74 77 28 68 25 29 0d  |%<0.:..getw(h%).|
0001a980  a3 ca 38 e7 58 25 3e 3d  78 30 25 2d 62 78 25 80  |..8.X%>=x0%-bx%.|
0001a990  58 25 3c 3d 78 31 25 2d  62 78 25 80 59 25 3c 3d  |X%<=x1%-bx%.Y%<=|
0001a9a0  79 31 25 2d 62 79 25 2d  33 32 80 59 25 3e 3d 79  |y1%-by%-32.Y%>=y|
0001a9b0  30 25 2d 62 79 25 e1 0d  a3 d4 2c 73 63 78 25 3d  |0%-by%....,scx%=|
0001a9c0  58 25 2d 28 78 31 25 2d  78 30 25 29 81 32 3a 73  |X%-(x1%-x0%).2:s|
0001a9d0  63 79 25 3d 94 59 25 2d  28 79 31 25 2d 79 30 25  |cy%=.Y%-(y1%-y0%|
0001a9e0  29 81 32 0d a3 de 11 e7  73 63 78 25 3c 30 73 63  |).2.....scx%<0sc|
0001a9f0  78 25 3d 30 0d a3 e8 11  e7 73 63 79 25 3c 30 73  |x%=0.....scy%<0s|
0001aa00  63 79 25 3d 30 0d a3 f2  31 f2 6f 70 65 6e 28 68  |cy%=0...1.open(h|
0001aa10  25 2c 78 30 25 2c 79 30  25 2c 78 31 25 2c 79 31  |%,x0%,y0%,x1%,y1|
0001aa20  25 2c 73 63 78 25 2c 2d  73 63 79 25 2c 62 68 61  |%,scx%,-scy%,bha|
0001aa30  6e 64 6c 65 25 29 0d a3  fc 05 e1 0d a4 06 04 0d  |ndle%)..........|
0001aa40  a4 10 2f dd f2 66 69 6e  64 63 74 3a f2 67 65 74  |../..findct:.get|
0001aa50  63 74 3a f2 73 63 72 6f  6c 6c 74 6f 28 71 25 21  |ct:.scrollto(q%!|
0001aa60  38 2c 71 25 21 31 32 2c  21 71 25 29 3a e1 0d a4  |8,q%!12,!q%):...|
0001aa70  1a 04 0d a4 24 2a dd f2  73 74 61 74 75 73 3a 77  |....$*..status:w|
0001aa80  5f 73 74 61 74 75 73 25  3d a4 63 72 77 69 6e 64  |_status%=.crwind|
0001aa90  28 74 77 5f 73 74 61 74  75 73 25 29 0d a4 2e 1c  |(tw_status%)....|
0001aaa0  ea 49 25 2c 54 25 2c 54  24 2c 73 24 3a 73 24 3d  |.I%,T%,T$,s$:s$=|
0001aab0  c4 31 32 2c 22 20 22 29  0d a4 38 29 f2 75 6e 73  |.12," ")..8).uns|
0001aac0  65 6c 61 6c 6c 28 77 5f  73 74 61 74 75 73 25 29  |elall(w_status%)|
0001aad0  3a 54 25 3d 30 3a e3 49  25 3d 30 b8 6d 61 78 66  |:T%=0:.I%=0.maxf|
0001aae0  25 0d a4 42 10 e7 77 25  28 49 25 2c 30 29 3e 30  |%..B..w%(I%,0)>0|
0001aaf0  8c 0d a4 4c 2a f2 73 64  66 69 6c 65 28 49 25 29  |...L*.sdfile(I%)|
0001ab00  3a 54 24 3d c0 a4 66 69  6c 65 6e 61 6d 65 2b c4  |:T$=..filename+.|
0001ab10  31 31 2c 22 20 22 29 2c  31 31 29 0d a4 56 2d 54  |11," "),11)..V-T|
0001ab20  24 2b 3d c2 73 24 2b c3  a4 76 5f 28 31 36 29 2c  |$+=.s$+..v_(16),|
0001ab30  31 30 29 2b c2 73 24 2b  c3 a4 76 5f 28 31 37 29  |10)+.s$+..v_(17)|
0001ab40  2c 31 31 29 2b 22 20 22  0d a4 60 2b e7 6c 25 28  |,11)+" "..`+.l%(|
0001ab50  66 69 6c 65 25 29 3e 30  54 24 2b 3d a4 6f 66 69  |file%)>0T$+=.ofi|
0001ab60  6c 65 6e 61 6d 65 28 6c  25 28 66 69 6c 65 25 29  |lename(l%(file%)|
0001ab70  2d 31 29 0d a4 6a 29 e7  54 25 3c 38 3a f2 73 65  |-1)..j).T%<8:.se|
0001ab80  74 69 28 77 5f 73 74 61  74 75 73 25 2c 54 25 2b  |ti(w_status%,T%+|
0001ab90  31 35 2c 54 24 29 3a 54  25 2b 3d 31 0d a4 74 05  |15,T$):T%+=1..t.|
0001aba0  cd 0d a4 7e 2e ed 3a c8  95 54 25 3c 38 3a f2 73  |...~..:..T%<8:.s|
0001abb0  65 74 69 28 77 5f 73 74  61 74 75 73 25 2c 54 25  |eti(w_status%,T%|
0001abc0  2b 31 35 2c 22 22 29 3a  54 25 2b 3d 31 3a ce 0d  |+15,""):T%+=1:..|
0001abd0  a4 88 23 e7 73 74 6f 70  62 6f 78 65 73 25 3a f2  |..#.stopboxes%:.|
0001abe0  73 65 6c 69 28 77 5f 73  74 61 74 75 73 25 2c 32  |seli(w_status%,2|
0001abf0  33 29 0d a4 92 1f e7 73  6f 75 6e 64 25 3a f2 73  |3).....sound%:.s|
0001ac00  65 6c 69 28 77 5f 73 74  61 74 75 73 25 2c 32 34  |eli(w_status%,24|
0001ac10  29 0d a4 9c 21 e7 73 68  61 64 6f 77 73 25 3a f2  |)...!.shadows%:.|
0001ac20  73 65 6c 69 28 77 5f 73  74 61 74 75 73 25 2c 32  |seli(w_status%,2|
0001ac30  35 29 0d a4 a6 1d e7 70  69 78 25 3a f2 73 65 6c  |5).....pix%:.sel|
0001ac40  69 28 77 5f 73 74 61 74  75 73 25 2c 32 38 29 0d  |i(w_status%,28).|
0001ac50  a4 b0 24 e7 73 70 72 73  7a 25 3c 3d 30 3a f2 73  |..$.sprsz%<=0:.s|
0001ac60  68 61 64 65 69 28 77 5f  73 74 61 74 75 73 25 2c  |hadei(w_status%,|
0001ac70  32 38 29 0d a4 ba 1a f2  64 69 61 6c 6f 67 75 65  |28).....dialogue|
0001ac80  28 77 5f 73 74 61 74 75  73 25 29 3a e1 0d a4 c4  |(w_status%):....|
0001ac90  04 0d a4 ce 23 dd f2 63  6f 70 79 63 61 72 64 31  |....#..copycard1|
0001aca0  3a e7 a4 72 65 61 64 6f  6e 6c 79 3a f2 62 75 7a  |:..readonly:.buz|
0001acb0  7a 31 3a e1 0d a4 d8 3a  e7 72 65 61 73 6f 6e 32  |z1:....:.reason2|
0001acc0  25 3d 31 36 3a f2 73 65  6c 73 75 62 28 30 29 3a  |%=16:.selsub(0):|
0001acd0  f2 73 65 6c 69 6e 64 65  78 28 30 2c 30 29 3a c8  |.selindex(0,0):.|
0001ace0  99 73 77 69 25 2c 61 64  64 5f 25 b8 4e 25 0d a4  |.swi%,add_%.N%..|
0001acf0  e2 16 ea 54 24 2c 54 25  2c 55 25 2c 49 25 2c 66  |...T$,T%,U%,I%,f|
0001ad00  25 2c 75 24 0d a4 ec 3d  54 25 3d 66 69 6c 65 25  |%,u$...=T%=file%|
0001ad10  3a 55 25 3d 66 69 6c 65  32 25 3a f2 73 64 66 69  |:U%=file2%:.sdfi|
0001ad20  6c 65 28 55 25 29 3a 75  24 3d 73 64 24 3a f2 66  |le(U%):u$=sd$:.f|
0001ad30  6f 72 6d 73 74 61 74 3a  66 25 3d a4 76 5f 28 37  |ormstat:f%=.v_(7|
0001ad40  29 0d a4 f6 18 f2 73 64  66 69 6c 65 28 54 25 29  |).....sdfile(T%)|
0001ad50  3a e3 49 25 3d 31 b8 66  25 0d a5 00 1c c8 99 73  |:.I%=1.f%......s|
0001ad60  77 69 25 2c 73 64 31 37  5f 25 2c 39 2c 49 25 2c  |wi%,sd17_%,9,I%,|
0001ad70  75 24 b8 47 25 0d a5 0a  0b 54 24 3d 24 73 64 25  |u$.G%....T$=$sd%|
0001ad80  0d a5 14 0f e7 a4 66 6e  75 6d 28 54 24 29 8c 0d  |......fnum(T$)..|
0001ad90  a5 1e 19 c8 99 73 77 69  25 2c 67 66 69 65 6c 64  |.....swi%,gfield|
0001ada0  5f 25 2c 54 24 2c 75 24  0d a5 28 16 c8 99 73 77  |_%,T$,u$..(...sw|
0001adb0  69 25 2c 70 66 69 65 6c  64 5f 25 2c 54 24 0d a5  |i%,pfield_%,T$..|
0001adc0  32 05 cd 0d a5 3c 10 e7  a6 30 3d 32 37 3a 49 25  |2....<...0=27:I%|
0001add0  3d 66 25 0d a5 46 21 ed  3a f2 76 72 28 b9 2c 73  |=f%..F!.:.vr(.,s|
0001ade0  25 28 66 69 6c 65 25 29  3d 30 29 3a f2 67 72 61  |%(file%)=0):.gra|
0001adf0  70 68 3a e1 0d a5 50 04  0d a5 5a 0e dd f2 63 6f  |ph:...P...Z...co|
0001ae00  70 79 63 61 72 64 0d a5  64 38 e7 a4 64 65 61 64  |pycard..d8..dead|
0001ae10  66 69 6c 65 28 25 31 31  31 31 31 31 31 31 31 31  |file(%1111111111|
0001ae20  31 31 31 31 31 30 20 84  28 28 64 72 61 67 62 75  |111110 .((dragbu|
0001ae30  74 74 6f 6e 25 3d 36 34  29 80 31 29 29 e1 0d a5  |tton%=64).1))...|
0001ae40  6e 3d ea 54 24 2c 66 24  2c 54 25 3a 66 69 6c 65  |n=.T$,f$,T%:file|
0001ae50  32 25 3d 6d 65 6e 75 66  69 6c 65 25 3a 72 65 61  |2%=menufile%:rea|
0001ae60  73 6f 6e 32 25 3d 64 72  61 67 62 75 74 74 6f 6e  |son2%=dragbutton|
0001ae70  25 3a 54 24 3d 22 63 6f  70 79 22 0d a5 78 3f 54  |%:T$="copy"..x?T|
0001ae80  25 3d 66 69 6c 65 25 3a  66 24 3d a4 66 69 6c 65  |%=file%:f$=.file|
0001ae90  6e 61 6d 65 3a f2 73 64  66 69 6c 65 28 66 69 6c  |name:.sdfile(fil|
0001aea0  65 32 25 29 3a e7 72 65  61 73 6f 6e 32 25 3d 31  |e2%):.reason2%=1|
0001aeb0  36 3a 54 24 3d 22 61 64  64 22 0d a5 82 36 f2 73  |6:T$="add"...6.s|
0001aec0  74 6f 70 28 32 31 2c a4  66 69 6c 65 6e 61 6d 65  |top(21,.filename|
0001aed0  2b 22 20 89 20 22 2b 66  24 2c 72 6c 24 2b 54 24  |+" . "+f$,rl$+T$|
0001aee0  2b 22 20 63 61 72 64 20  3f 22 2c 54 25 29 3a e1  |+" card ?",T%):.|
0001aef0  0d a5 8c 04 0d a5 96 10  dd f2 63 6f 6e 76 28 f8  |..........conv(.|
0001af00  20 54 24 29 0d a5 a0 19  f2 73 74 72 69 70 28 54  | T$).....strip(T|
0001af10  24 29 3a e7 97 54 24 3c  3e 36 33 3a e1 0d a5 aa  |$):..T$<>63:....|
0001af20  22 54 24 3d a4 73 75 28  c1 54 24 2c 32 29 29 3a  |"T$=.su(.T$,2)):|
0001af30  ea 54 25 2c 51 25 2c 41  25 2c 41 24 2c 42 24 0d  |.T%,Q%,A%,A$,B$.|
0001af40  a5 b4 1f e7 c0 54 24 2c  34 29 3d 22 54 48 45 20  |.....T$,4)="THE |
0001af50  22 54 24 3d a4 73 28 c1  54 24 2c 35 29 29 0d a5  |"T$=.s(.T$,5))..|
0001af60  be 23 f2 72 65 6d 6f 76  65 28 54 24 2c 22 23 22  |.#.remove(T$,"#"|
0001af70  29 3a f2 72 65 6d 6f 76  65 28 54 24 2c 22 40 22  |):.remove(T$,"@"|
0001af80  29 0d a5 c8 16 ea 85 3a  ee 85 ea 3a f7 85 3a f2  |)......:...:..:.|
0001af90  65 72 72 28 31 38 29 0d  a5 d2 2e f2 71 62 73 63  |err(18).....qbsc|
0001afa0  61 6e 28 54 24 2c 51 25  2c 41 25 29 3a e7 51 25  |an(T$,Q%,A%):.Q%|
0001afb0  f2 65 72 72 28 31 30 29  3a 8b e7 41 25 f2 65 72  |.err(10):..A%.er|
0001afc0  72 28 31 31 29 0d a5 dc  1d 54 25 3d a7 54 24 2c  |r(11)....T%=.T$,|
0001afd0  22 20 22 29 3a e7 54 25  3c 32 f2 65 72 72 28 31  |" "):.T%<2.err(1|
0001afe0  39 29 0d a5 e6 1f 41 24  3d c0 54 24 2c 54 25 2d  |9)....A$=.T$,T%-|
0001aff0  31 29 3a e7 54 25 3e 35  41 24 3d c0 54 24 2c 34  |1):.T%>5A$=.T$,4|
0001b000  29 0d a5 f0 10 54 24 3d  c1 54 24 2c 54 25 2b 31  |)....T$=.T$,T%+1|
0001b010  29 0d a5 fa 26 54 25 3d  a9 54 24 3a 51 25 3d 33  |)...&T%=.T$:Q%=3|
0001b020  32 3a e7 97 c2 54 24 29  3d 33 34 3a 51 25 3d 33  |2:...T$)=34:Q%=3|
0001b030  34 3a 54 25 2d 3d 31 0d  a6 04 13 f5 3a e7 54 25  |4:T%-=1.....:.T%|
0001b040  3c 31 f2 65 72 72 28 31  39 29 0d a6 0e 18 54 25  |<1.err(19)....T%|
0001b050  2d 3d 31 3a fd 97 c1 54  24 2c 54 25 2b 31 29 3d  |-=1:...T$,T%+1)=|
0001b060  51 25 0d a6 18 31 24 73  64 25 3d a4 73 75 28 c0  |Q%...1$sd%=.su(.|
0001b070  54 24 2c 54 25 29 29 3a  54 24 3d c1 54 24 2c 54  |T$,T%)):T$=.T$,T|
0001b080  25 2b 32 29 3a e7 51 25  3d 33 34 3a 54 24 3d c0  |%+2):.Q%=34:T$=.|
0001b090  54 24 29 0d a6 22 09 42  24 3d 22 22 0d a6 2c 1d  |T$)..".B$=""..,.|
0001b0a0  e7 c0 24 73 64 25 2c 35  29 3d 22 53 4f 55 4e 44  |..$sd%,5)="SOUND|
0001b0b0  22 3a 42 24 3d 22 7e 3d  22 0d a6 36 2c e7 c0 24  |":B$="~="..6,..$|
0001b0c0  73 64 25 2c 37 29 3d 22  43 4f 4e 54 41 49 4e 22  |sd%,7)="CONTAIN"|
0001b0d0  3a 42 24 3d 22 3d 22 3a  54 24 3d 22 2a 22 2b 54  |:B$="=":T$="*"+T|
0001b0e0  24 2b 22 2a 22 0d a6 40  1b e7 a7 24 73 64 25 2c  |$+"*"..@...$sd%,|
0001b0f0  22 45 51 55 22 29 3e 30  3a 42 24 2b 3d 22 3d 22  |"EQU")>0:B$+="="|
0001b100  0d a6 4a 1c e7 a7 24 73  64 25 2c 22 49 53 22 29  |..J...$sd%,"IS")|
0001b110  3e 30 3a 42 24 3d 22 3d  22 2b 42 24 0d a6 54 1e  |>0:B$="="+B$..T.|
0001b120  e7 a7 24 73 64 25 2c 22  4c 45 53 53 22 29 3e 30  |..$sd%,"LESS")>0|
0001b130  3a 42 24 3d 22 3c 22 2b  42 24 0d a6 5e 1e e7 a7  |:B$="<"+B$..^...|
0001b140  24 73 64 25 2c 22 47 52  45 41 22 29 3e 30 3a 42  |$sd%,"GREA")>0:B|
0001b150  24 3d 22 3e 22 2b 42 24  0d a6 68 28 e7 a7 24 73  |$=">"+B$..h(..$s|
0001b160  64 25 2c 22 49 53 22 29  3e 30 3a 42 24 3d c0 42  |d%,"IS")>0:B$=.B|
0001b170  24 29 3a e7 42 24 3d 22  22 3a 42 24 3d 22 3d 22  |$):.B$="":B$="="|
0001b180  0d a6 72 19 e7 a9 42 24  3c 31 84 a9 42 24 3e 32  |..r...B$<1..B$>2|
0001b190  3a f2 65 72 72 28 31 39  29 0d a6 7c 19 e7 c2 42  |:.err(19)..|...B|
0001b1a0  24 29 3d 22 7e 22 3a 42  24 3d c0 42 24 29 2b 22  |$)="~":B$=.B$)+"|
0001b1b0  3d 22 0d a6 86 1d c8 99  73 77 69 25 2c 73 64 31  |="......swi%,sd1|
0001b1c0  37 5f 25 2c 34 2c 41 24  2c 73 64 24 b8 47 25 0d  |7_%,4,A$,sd$.G%.|
0001b1d0  a6 90 3e e7 28 47 25 80  37 29 3d 37 3a 54 24 3d  |..>.(G%.7)=7:T$=|
0001b1e0  22 40 22 2b 41 24 2b 42  24 2b 22 22 22 22 2b a4  |"@"+A$+B$+""""+.|
0001b1f0  73 28 54 24 29 2b 22 22  22 22 3a 8b 54 24 3d 22  |s(T$)+"""":.T$="|
0001b200  23 22 2b 41 24 2b 42 24  2b c3 bb 54 24 0d a6 9a  |#"+A$+B$+..T$...|
0001b210  22 e7 a7 24 73 64 25 2c  22 4e 4f 54 22 29 3a 54  |"..$sd%,"NOT"):T|
0001b220  24 3d 22 4e 4f 54 28 22  2b 54 24 2b 22 29 22 0d  |$="NOT("+T$+")".|
0001b230  a6 a4 05 e1 0d a6 ae 04  0d a6 b8 19 dd f2 72 65  |..............re|
0001b240  6d 6f 76 65 28 f8 20 54  24 2c 74 24 29 3a ea 49  |move(. T$,t$):.I|
0001b250  25 0d a6 c2 2a f5 49 25  3d a7 54 24 2c 74 24 29  |%...*.I%=.T$,t$)|
0001b260  3a e7 49 25 3a 54 24 3d  c0 54 24 2c 49 25 2d 31  |:.I%:T$=.T$,I%-1|
0001b270  29 2b c1 54 24 2c 49 25  2b 31 29 0d a6 cc 0b fd  |)+.T$,I%+1).....|
0001b280  49 25 3d 30 3a e1 0d a6  d6 04 0d a6 e0 2d dd f2  |I%=0:........-..|
0001b290  64 6f 6d 61 63 72 6f 3a  e7 a4 64 65 61 64 66 69  |domacro:..deadfi|
0001b2a0  6c 65 28 25 31 31 31 31  31 31 31 31 30 31 31 30  |le(%111111110110|
0001b2b0  31 31 30 31 29 3a e1 0d  a6 ea 0e dd f2 64 6f 6d  |1101):.......dom|
0001b2c0  61 63 72 6f 31 0d a6 f4  44 ea 61 25 2c 62 25 2c  |acro1...D.a%,b%,|
0001b2d0  63 25 2c 64 25 2c 65 25  2c 66 25 2c 67 25 2c 68  |c%,d%,e%,f%,g%,h|
0001b2e0  25 2c 69 25 2c 6a 25 2c  6b 25 2c 6c 25 2c 6d 25  |%,i%,j%,k%,l%,m%|
0001b2f0  2c 6e 25 2c 61 24 2c 62  24 2c 74 31 25 2c 74 32  |,n%,a$,b$,t1%,t2|
0001b300  25 2c 74 33 25 2c 74 34  25 0d a6 fe 1c ea 40 25  |%,t3%,t4%.....@%|
0001b310  2c 4b 25 2c 4a 25 2c 78  25 2c 41 24 2c 54 24 2c  |,K%,J%,x%,A$,T$,|
0001b320  70 24 2c 63 24 0d a7 08  43 74 31 25 3d 74 25 28  |p$,c$...Ct1%=t%(|
0001b330  66 69 6c 65 25 2c 30 29  3a 74 32 25 3d 74 25 28  |file%,0):t2%=t%(|
0001b340  66 69 6c 65 25 2c 31 29  3a 74 33 25 3d 74 25 28  |file%,1):t3%=t%(|
0001b350  66 69 6c 65 25 2c 32 29  3a 74 34 25 3d 74 25 28  |file%,2):t4%=t%(|
0001b360  66 69 6c 65 25 2c 33 29  0d a7 12 1b 70 24 3d 22  |file%,3)....p$="|
0001b370  22 3a 61 24 3d 22 22 3a  62 24 3d 22 22 3a 65 72  |":a$="":b$="":er|
0001b380  25 3d 30 0d a7 1c 16 ea  85 3a ee 85 ea 3a f7 85  |%=0......:...:..|
0001b390  3a f2 65 72 72 28 32 30  29 0d a7 26 0d e3 65 72  |:.err(20)..&..er|
0001b3a0  25 3d 30 b8 32 39 0d a7  30 1e 63 24 3d 24 a4 74  |%=0.29..0.c$=$.t|
0001b3b0  69 61 28 74 77 25 28 66  69 6c 65 25 2c 37 29 2c  |ia(tw%(file%,7),|
0001b3c0  65 72 25 29 0d a7 3a 0b  c8 95 63 24 3e 22 22 0d  |er%)..:...c$>"".|
0001b3d0  a7 44 0a 2a 66 78 32 32  39 0d a7 4e 26 41 24 3d  |.D.*fx229..N&A$=|
0001b3e0  63 24 3a e7 a7 63 24 2c  22 3a 22 29 3a 41 24 3d  |c$:..c$,":"):A$=|
0001b3f0  c0 63 24 2c a7 63 24 2c  22 3a 22 29 2d 31 29 0d  |.c$,.c$,":")-1).|
0001b400  a7 58 0a c8 8e 20 b9 20  ca 0d a7 62 2b c9 20 34  |.X... . ...b+. 4|
0001b410  32 3d 97 41 24 3a 24 73  64 25 3d 70 24 3a f2 6f  |2=.A$:$sd%=p$:.o|
0001b420  73 63 6c 69 28 c1 63 24  2c 32 29 29 3a 70 24 3d  |scli(.c$,2)):p$=|
0001b430  24 73 64 25 0d a7 6c 10  c9 c0 41 24 2c 32 29 3d  |$sd%..l...A$,2)=|
0001b440  22 49 46 22 0d a7 76 2f  41 24 3d c1 41 24 2c 33  |"IF"..v/A$=.A$,3|
0001b450  29 3a 4b 25 3d a7 41 24  2c 22 47 4f 22 29 3a e7  |):K%=.A$,"GO"):.|
0001b460  4b 25 3d 30 4b 25 3d 2d  a7 41 24 2c 22 54 48 45  |K%=0K%=-.A$,"THE|
0001b470  4e 22 29 0d a7 80 12 e7  4b 25 3d 30 f2 65 72 72  |N").....K%=0.err|
0001b480  28 32 31 29 8b 0d a7 8a  23 54 24 3d c0 41 24 2c  |(21)....#T$=.A$,|
0001b490  94 4b 25 2d 31 29 3a e7  6d 61 63 75 25 f2 75 70  |.K%-1):.macu%.up|
0001b4a0  70 6c 69 74 28 54 24 29  0d a7 94 0e e7 a4 65 76  |plit(T$)......ev|
0001b4b0  31 28 54 24 29 8c 0d a7  9e 0a e7 4b 25 3e 30 8c  |1(T$)......K%>0.|
0001b4c0  0d a7 a8 2a 55 25 3d a4  65 76 31 28 c1 41 24 2c  |...*U%=.ev1(.A$,|
0001b4d0  4b 25 2b 32 29 29 3a e7  55 25 3c 31 84 55 25 3e  |K%+2)):.U%<1.U%>|
0001b4e0  33 30 f2 65 72 72 28 32  32 29 0d a7 b2 12 65 72  |30.err(22)....er|
0001b4f0  25 3d 55 25 2d 32 3a 63  24 3d 22 22 0d a7 bc 05  |%=U%-2:c$=""....|
0001b500  cc 0d a7 c6 19 63 24 3d  22 3a 22 2b a4 73 28 c1  |.....c$=":"+.s(.|
0001b510  63 24 2c 94 4b 25 2b 36  29 29 0d a7 d0 05 cd 0d  |c$,.K%+6))......|
0001b520  a7 da 05 cc 0d a7 e4 09  63 24 3d 22 22 0d a7 ee  |........c$=""...|
0001b530  05 cd 0d a7 f8 21 c9 c0  41 24 2c 33 29 3d 22 61  |.....!..A$,3)="a|
0001b540  24 3d 22 3a 61 24 3d a4  65 76 35 28 c1 41 24 2c  |$=":a$=.ev5(.A$,|
0001b550  34 29 29 0d a8 02 21 c9  c0 41 24 2c 33 29 3d 22  |4))...!..A$,3)="|
0001b560  62 24 3d 22 3a 62 24 3d  a4 65 76 35 28 c1 41 24  |b$=":b$=.ev5(.A$|
0001b570  2c 34 29 29 0d a8 0c 22  c9 c0 41 24 2c 34 29 3d  |,4))..."..A$,4)=|
0001b580  22 50 41 53 53 22 3a 70  24 3d a4 65 76 35 28 c1  |"PASS":p$=.ev5(.|
0001b590  41 24 2c 35 29 29 0d a8  16 1f c9 c0 41 24 2c 34  |A$,5))......A$,4|
0001b5a0  29 3d 22 45 4e 44 22 3a  65 72 25 3d 39 39 39 3a  |)="END":er%=999:|
0001b5b0  63 24 3d 22 22 0d a8 20  17 c9 c0 41 24 2c 33 29  |c$="".. ...A$,3)|
0001b5c0  3d 22 52 45 4d 22 3a 63  24 3d 22 22 0d a8 2a 1d  |="REM":c$=""..*.|
0001b5d0  c9 a7 41 24 2c 22 25 3d  22 29 3e 30 3a 78 25 3d  |..A$,"%=")>0:x%=|
0001b5e0  a7 41 24 2c 22 25 3d 22  29 0d a8 34 15 e7 78 25  |.A$,"%=")..4..x%|
0001b5f0  3d 33 80 c0 41 24 2c 31  29 3d 22 74 22 8c 0d a8  |=3..A$,1)="t"...|
0001b600  3e 23 4a 25 3d bb c1 41  24 2c 32 2c 31 29 3a e7  |>#J%=..A$,2,1):.|
0001b610  4a 25 3c 31 84 4a 25 3e  34 f2 65 72 72 28 33 33  |J%<1.J%>4.err(33|
0001b620  29 0d a8 48 22 74 25 28  66 69 6c 65 25 2c 4a 25  |)..H"t%(file%,J%|
0001b630  2d 31 29 3d a4 65 76 31  28 c1 41 24 2c 78 25 2b  |-1)=.ev1(.A$,x%+|
0001b640  32 29 29 0d a8 52 43 74  31 25 3d 74 25 28 66 69  |2))..RCt1%=t%(fi|
0001b650  6c 65 25 2c 30 29 3a 74  32 25 3d 74 25 28 66 69  |le%,0):t2%=t%(fi|
0001b660  6c 65 25 2c 31 29 3a 74  33 25 3d 74 25 28 66 69  |le%,1):t3%=t%(fi|
0001b670  6c 65 25 2c 32 29 3a 74  34 25 3d 74 25 28 66 69  |le%,2):t4%=t%(fi|
0001b680  6c 65 25 2c 33 29 0d a8  5c 05 cc 0d a8 66 2c e7  |le%,3)..\....f,.|
0001b690  97 c1 41 24 2c 78 25 2d  31 29 3c 97 22 61 22 84  |..A$,x%-1)<."a".|
0001b6a0  97 c1 41 24 2c 78 25 2d  31 29 3e 97 22 6e 22 f2  |..A$,x%-1)>."n".|
0001b6b0  65 72 72 28 32 33 29 0d  a8 70 25 f2 73 65 74 76  |err(23)..p%.setv|
0001b6c0  61 72 28 97 41 24 2d 97  22 61 22 2c a4 65 76 31  |ar(.A$-."a",.ev1|
0001b6d0  28 c1 41 24 2c 78 25 2b  32 29 29 29 0d a8 7a 05  |(.A$,x%+2)))..z.|
0001b6e0  cd 0d a8 84 30 c9 c0 41  24 2c 31 29 3d 22 40 22  |....0..A$,1)="@"|
0001b6f0  84 c0 41 24 2c 31 29 3d  22 23 22 3a 78 25 3d a7  |..A$,1)="#":x%=.|
0001b700  41 24 2c 22 3d 22 29 3a  f2 73 65 74 66 69 65 6c  |A$,"="):.setfiel|
0001b710  64 0d a8 8e 23 c9 c0 41  24 2c 31 29 3d 22 5e 22  |d...#..A$,1)="^"|
0001b720  3a 78 25 3d a7 41 24 2c  22 3d 22 29 3a f2 73 65  |:x%=.A$,"="):.se|
0001b730  74 73 75 62 0d a8 98 05  cb 0d a8 a2 26 e7 a7 63  |tsub........&..c|
0001b740  24 2c 22 3a 22 29 63 24  3d c1 63 24 2c a7 63 24  |$,":")c$=.c$,.c$|
0001b750  2c 22 3a 22 29 2b 31 29  3a 8b 63 24 3d 22 22 0d  |,":")+1):.c$="".|
0001b760  a8 ac 0c 2a 66 78 32 32  39 2c 31 0d a8 b6 05 ce  |...*fx229,1.....|
0001b770  0d a8 c0 05 ed 0d a8 ca  05 e1 0d a8 d4 04 0d a8  |................|
0001b780  de 22 dd f2 73 65 74 66  69 65 6c 64 3a e7 a4 72  |."..setfield:..r|
0001b790  65 61 64 6f 6e 6c 79 3a  f2 62 75 7a 7a 31 3a e1  |eadonly:.buzz1:.|
0001b7a0  0d a8 e8 1f ea 54 24 2c  65 78 70 24 2c 55 25 2c  |.....T$,exp$,U%,|
0001b7b0  40 25 2c 41 25 2c 74 3a  65 78 70 24 3d 41 24 0d  |@%,A%,t:exp$=A$.|
0001b7c0  a8 f2 21 e7 78 25 3d 30  f2 65 72 72 28 32 34 29  |..!.x%=0.err(24)|
0001b7d0  3a 8b 3a e7 78 25 3c 33  f2 65 72 72 28 32 35 29  |:.:.x%<3.err(25)|
0001b7e0  0d a8 fc 58 54 24 3d c1  65 78 70 24 2c 32 2c 78  |...XT$=.exp$,2,x|
0001b7f0  25 2d 32 29 3a c8 99 73  77 69 25 2c 73 64 31 37  |%-2):..swi%,sd17|
0001b800  5f 25 2c 34 2c 54 24 b8  47 25 3a 47 25 3d 47 25  |_%,4,T$.G%:G%=G%|
0001b810  80 37 3a e7 47 25 3d 30  3a 41 25 3d 26 31 30 30  |.7:.G%=0:A%=&100|
0001b820  30 30 30 41 3a 8b 41 25  3d 26 31 30 32 30 30 30  |000A:.A%=&102000|
0001b830  41 2b 47 25 2a 32 35 36  0d a9 06 1e 55 25 3d a3  |A+G%*256....U%=.|
0001b840  3a 41 24 3d a4 78 28 c1  65 78 70 24 2c 78 25 2b  |:A$=.x(.exp$,x%+|
0001b850  31 29 29 3a ea 85 0d a9  10 25 ee 85 ea 3a f7 85  |1)):.....%...:..|
0001b860  3a 40 25 3d 26 39 30 41  3a 55 25 3d b9 3a e7 9f  |:@%=&90A:U%=.:..|
0001b870  3c 3e 36 3a f2 65 72 72  28 30 29 0d a9 1a 08 e7  |<>6:.err(0).....|
0001b880  55 25 8c 0d a9 24 14 24  73 64 25 3d a4 65 76 28  |U%...$.$sd%=.ev(|
0001b890  41 24 2c b9 2c a3 29 0d  a9 2e 05 cc 0d a9 38 27  |A$,.,.).......8'|
0001b8a0  74 3d a4 65 76 28 41 24  2c b9 2c a3 29 3a 40 25  |t=.ev(A$,.,.):@%|
0001b8b0  3d 41 25 3a 24 73 64 25  3d c3 74 3a 40 25 3d 26  |=A%:$sd%=.t:@%=&|
0001b8c0  39 30 41 0d a9 42 05 cd  0d a9 4c 0b e7 ac 55 25  |90A..B....L...U%|
0001b8d0  3a f7 85 0d a9 56 14 54  24 3d c1 65 78 70 24 2c  |:....V.T$=.exp$,|
0001b8e0  32 2c 78 25 2d 32 29 0d  a9 60 16 c8 99 73 77 69  |2,x%-2)..`...swi|
0001b8f0  25 2c 70 66 69 65 6c 64  5f 25 2c 54 24 0d a9 6a  |%,pfield_%,T$..j|
0001b900  05 e1 0d a9 74 04 0d a9  7e 2f dd f2 73 65 74 73  |....t...~/..sets|
0001b910  75 62 3a ea 54 24 3a e7  78 25 3d 30 50 52 43 65  |ub:.T$:.x%=0PRCe|
0001b920  72 72 28 32 36 29 3a 8b  e7 78 25 3c 33 f2 65 72  |rr(26):..x%<3.er|
0001b930  72 28 32 37 29 0d a9 88  30 54 24 3d c1 41 24 2c  |r(27)...0T$=.A$,|
0001b940  32 2c 78 25 2d 32 29 3a  54 24 3d a4 73 75 28 c0  |2,x%-2):T$=.su(.|
0001b950  54 24 2c 34 29 29 3a 61  25 3d a4 73 75 62 6e 75  |T$,4)):a%=.subnu|
0001b960  6d 28 54 24 29 0d a9 92  2d e7 61 25 3c 3d 30 f2  |m(T$)...-.a%<=0.|
0001b970  65 72 72 28 32 38 29 3a  8b f2 7a 66 6f 75 6e 64  |err(28):..zfound|
0001b980  3a e7 6d 61 63 75 25 f2  75 70 70 6c 69 74 28 41  |:.macu%.upplit(A|
0001b990  24 29 0d a9 9c 22 f2 73  75 62 62 79 74 65 28 61  |$)...".subbyte(a|
0001b9a0  25 2c a4 65 76 31 28 c1  41 24 2c 78 25 2b 31 29  |%,.ev1(.A$,x%+1)|
0001b9b0  29 29 3a e1 0d a9 a6 05  20 0d a9 b0 1d dd f2 6f  |)):..... ......o|
0001b9c0  73 63 6c 69 28 54 24 29  3a e7 97 54 24 3d 34 32  |scli(T$):..T$=42|
0001b9d0  3a ff 54 24 3a e1 0d a9  ba 23 ea 49 25 2c 4a 25  |:.T$:....#.I%,J%|
0001b9e0  3a c8 99 22 57 69 6d 70  5f 43 6f 6d 6d 61 6e 64  |:.."Wimp_Command|
0001b9f0  57 69 6e 64 6f 77 22 2c  31 0d a9 c4 1a f2 6e 6f  |Window",1.....no|
0001ba00  72 6d 70 6f 69 6e 74 3a  6d 6f 64 65 25 3d eb 3a  |rmpoint:mode%=.:|
0001ba10  eb 31 32 0d a9 ce 0a 2a  66 78 32 32 39 0d a9 d8  |.12....*fx229...|
0001ba20  0b e7 54 24 3d 22 22 8c  0d a9 e2 0b f2 6e 6f 76  |..T$=""......nov|
0001ba30  61 72 73 0d a9 ec 06 ea  85 0d a9 f6 23 ee 85 ea  |ars.........#...|
0001ba40  e7 9f 3d 31 37 80 54 24  3d 22 22 3a f2 65 6e 64  |..=17.T$="":.end|
0001ba50  6f 73 63 6c 69 3a e1 3a  8b f6 3a f1 0d aa 00 12  |oscli:.:..:.....|
0001ba60  f5 54 24 3d 22 22 3a e8  86 22 2a 22 54 24 0d aa  |.T$="":.."*"T$..|
0001ba70  0a 0a c8 8e 20 b9 20 ca  0d aa 14 20 c9 20 97 54  |.... . .... . .T|
0001ba80  24 3d 36 33 80 a4 76 5f  28 31 29 3d 30 3a f1 a0  |$=63..v_(1)=0:..|
0001ba90  28 c1 54 24 2c 32 29 29  0d aa 1e 26 c9 20 97 54  |(.T$,2))...&. .T|
0001baa0  24 3d 36 33 80 a4 76 5f  28 31 29 3e 30 3a f1 a4  |$=63..v_(1)>0:..|
0001bab0  65 76 28 c1 54 24 2c 32  29 2c 30 2c 30 29 0d aa  |ev(.T$,2),0,0)..|
0001bac0  28 08 7f ff 54 24 0d aa  32 05 cb 0d aa 3c 0a fd  |(...T$..2....<..|
0001bad0  54 24 3d 22 22 0d aa 46  06 f7 85 0d aa 50 05 cc  |T$=""..F.....P..|
0001bae0  0d aa 5a 06 ea 85 0d aa  64 1c ee 85 ea 3a f7 85  |..Z.....d....:..|
0001baf0  3a f2 65 6e 64 6f 73 63  6c 69 3a f2 65 72 72 28  |:.endoscli:.err(|
0001bb00  30 29 0d aa 6e 22 d1 3d  30 3a ff 54 24 3a c8 99  |0)..n".=0:.T$:..|
0001bb10  22 4f 53 5f 42 79 74 65  22 2c 26 38 36 b8 2c 49  |"OS_Byte",&86.,I|
0001bb20  25 2c 4a 25 0d aa 78 31  e7 91 3c 31 35 30 80 49  |%,J%..x1..<150.I|
0001bb30  25 2b 4a 25 3c 3e 30 f1  27 27 22 50 72 65 73 73  |%+J%<>0.''"Press|
0001bb40  20 61 20 6b 65 79 2e 2e  2e 20 22 3b 3a f2 77 61  | a key... ";:.wa|
0001bb50  69 74 6b 65 79 0d aa 82  05 cd 0d aa 8c 0f f2 65  |itkey..........e|
0001bb60  6e 64 6f 73 63 6c 69 3a  e1 0d aa 96 04 0d aa a0  |ndoscli:........|
0001bb70  0e dd f2 65 6e 64 6f 73  63 6c 69 0d aa aa 0c 2a  |...endoscli....*|
0001bb80  66 78 32 32 39 2c 31 0d  aa b4 1d c8 99 22 57 69  |fx229,1......"Wi|
0001bb90  6d 70 5f 43 6f 6d 6d 61  6e 64 57 69 6e 64 6f 77  |mp_CommandWindow|
0001bba0  22 2c 2d 31 0d aa be 27  c8 99 22 57 69 6d 70 5f  |",-1...'.."Wimp_|
0001bbb0  53 65 74 4d 6f 64 65 22  2c 6d 6f 64 65 25 3a 87  |SetMode",mode%:.|
0001bbc0  3a f2 66 6f 72 63 65 28  2d 31 29 0d aa c8 05 e1  |:.force(-1).....|
0001bbd0  0d aa d2 04 0d aa dc 2c  dd f2 65 6d 61 63 72 6f  |.......,..emacro|
0001bbe0  3a e7 a4 64 65 61 64 66  69 6c 65 28 25 31 31 31  |:..deadfile(%111|
0001bbf0  31 31 31 31 31 30 31 31  31 31 31 31 31 29 3a e1  |1111101111111):.|
0001bc00  0d aa e6 1c e7 ac a4 66  6c 67 28 66 5f 6d 61 63  |.......flg(f_mac|
0001bc10  62 25 29 3a f2 64 6f 6d  61 63 72 6f 0d aa f0 24  |b%):.domacro...$|
0001bc20  f2 66 6f 72 63 65 63 61  72 64 72 65 70 3a f2 63  |.forcecardrep:.c|
0001bc30  68 6b 6d 76 3a f2 76 61  6c 69 64 72 65 63 3a e1  |hkmv:.validrec:.|
0001bc40  0d aa fa 04 0d ab 04 0c  dd f2 62 6d 61 63 72 6f  |..........bmacro|
0001bc50  0d ab 0e 46 ea 85 3a ee  85 ea 3a f7 85 3a f2 66  |...F..:...:..:.f|
0001bc60  6c 67 28 66 5f 6d 61 63  62 25 2c a3 29 3a f2 73  |lg(f_macb%,.):.s|
0001bc70  68 6f 77 6d 61 63 3a f2  66 6f 72 63 65 63 61 72  |howmac:.forcecar|
0001bc80  64 72 65 70 3a f2 76 61  6c 69 64 72 65 63 3a f2  |drep:.validrec:.|
0001bc90  65 72 72 28 30 29 0d ab  18 23 f2 64 6f 6d 61 63  |err(0)...#.domac|
0001bca0  72 6f 3a f2 63 68 6b 6d  76 3a f2 66 6f 72 63 65  |ro:.chkmv:.force|
0001bcb0  63 61 72 64 72 65 70 3a  e1 0d ab 22 04 0d ab 2c  |cardrep:..."...,|
0001bcc0  1f dd f2 66 65 64 69 74  3a e7 a4 72 65 61 64 6f  |...fedit:..reado|
0001bcd0  6e 6c 79 3a f2 62 75 7a  7a 31 3a e1 0d ab 36 3a  |nly:.buzz1:...6:|
0001bce0  e7 66 69 6c 65 25 3c 3e  65 64 66 69 6c 65 25 3a  |.file%<>edfile%:|
0001bcf0  e7 a4 64 65 61 64 66 69  6c 65 31 28 25 31 31 31  |..deadfile1(%111|
0001bd00  31 31 31 31 31 30 31 30  31 31 31 31 31 29 3a f2  |1111101011111):.|
0001bd10  62 75 7a 7a 3a e1 0d ab  40 23 e7 66 69 6c 65 25  |buzz:...@#.file%|
0001bd20  3c 3e 65 64 66 69 6c 65  25 84 65 64 72 65 70 25  |<>edfile%.edrep%|
0001bd30  3a f2 65 6e 64 65 64 69  74 0d ab 4a 19 e7 65 64  |:.endedit..J..ed|
0001bd40  66 69 6c 65 25 3e 3d 30  f2 65 64 69 74 65 64 28  |file%>=0.edited(|
0001bd50  b9 29 0d ab 54 3a f2 66  69 65 6c 64 73 7a 28 6d  |.)..T:.fieldsz(m|
0001bd60  65 6e 75 66 69 65 6c 64  25 29 3a c8 99 73 77 69  |enufield%):..swi|
0001bd70  25 2c 73 64 31 37 5f 25  2c 39 2c 6d 65 6e 75 66  |%,sd17_%,9,menuf|
0001bd80  69 65 6c 64 25 2c 73 64  24 b8 47 25 0d ab 5e 1b  |ield%,sd$.G%..^.|
0001bd90  c8 99 73 77 69 25 2c 73  64 31 37 5f 25 2c 31 2c  |..swi%,sd17_%,1,|
0001bda0  24 73 64 25 b8 47 25 0d  ab 68 3d 21 71 25 3d 77  |$sd%.G%..h=!q%=w|
0001bdb0  25 28 66 69 6c 65 25 2c  30 29 3a 71 25 21 34 3d  |%(file%,0):q%!4=|
0001bdc0  74 78 30 25 3a 71 25 21  38 3d 74 79 30 25 3a 71  |tx0%:q%!8=ty0%:q|
0001bdd0  25 21 31 32 3d 74 78 31  25 3a 71 25 21 31 36 3d  |%!12=tx1%:q%!16=|
0001bde0  74 79 31 25 0d ab 72 4b  71 25 21 32 30 3d 26 37  |ty1%..rKq%!20=&7|
0001bdf0  30 30 46 31 32 31 3a 71  25 21 32 34 3d 65 64 62  |00F121:q%!24=edb|
0001be00  75 66 25 3a 71 25 21 32  38 3d 2d 31 3a 71 25 21  |uf%:q%!28=-1:q%!|
0001be10  33 32 3d 47 25 2b 31 3a  c8 99 73 77 69 25 2c 73  |32=G%+1:..swi%,s|
0001be20  64 31 37 5f 25 2c 34 2c  24 73 64 25 b8 47 25 0d  |d17_%,4,$sd%.G%.|
0001be30  ab 7c 2b e7 28 47 25 80  37 29 3c 3e 37 3a 71 25  |.|+.(G%.7)<>7:q%|
0001be40  21 32 30 3d 71 25 21 32  30 84 35 31 32 3a 71 25  |!20=q%!20.512:q%|
0001be50  21 32 38 3d 65 64 76 61  6c 25 0d ab 86 23 24 65  |!28=edval%...#$e|
0001be60  64 62 75 66 25 3d a4 73  28 a4 67 66 69 65 6c 64  |dbuf%=.s(.gfield|
0001be70  28 6d 65 6e 75 66 69 65  6c 64 25 29 29 0d ab 90  |(menufield%))...|
0001be80  25 c8 99 22 57 69 6d 70  5f 43 72 65 61 74 65 49  |%.."Wimp_CreateI|
0001be90  63 6f 6e 22 2c 2c 71 25  20 b8 20 65 64 69 63 6f  |con",,q% . edico|
0001bea0  6e 25 0d ab 9a 46 f2 69  63 6f 6e 75 70 64 28 77  |n%...F.iconupd(w|
0001beb0  25 28 66 69 6c 65 25 2c  30 29 2c 65 64 69 63 6f  |%(file%,0),edico|
0001bec0  6e 25 29 3a f2 73 65 74  63 74 28 77 25 28 66 69  |n%):.setct(w%(fi|
0001bed0  6c 65 25 2c 30 29 2c 65  64 69 63 6f 6e 25 2c a9  |le%,0),edicon%,.|
0001bee0  24 65 64 62 75 66 25 29  0d ab a4 14 c8 99 73 77  |$edbuf%)......sw|
0001bef0  69 25 2c 73 64 32 33 5f  25 b8 4e 25 0d ab ae 3a  |i%,sd23_%.N%...:|
0001bf00  65 64 66 69 6c 65 25 3d  66 69 6c 65 25 3a 65 64  |edfile%=file%:ed|
0001bf10  66 69 65 6c 64 25 3d 6d  65 6e 75 66 69 65 6c 64  |field%=menufield|
0001bf20  25 3a 65 64 72 65 63 25  3d 4e 25 3a 65 64 72 65  |%:edrec%=N%:edre|
0001bf30  70 25 3d a3 3a e1 0d ab  b8 04 0d ab c2 1b dd f2  |p%=.:...........|
0001bf40  65 6e 64 66 65 64 69 74  3a e7 65 64 66 69 6c 65  |endfedit:.edfile|
0001bf50  25 3c 30 3a e1 0d ab cc  10 ea 66 25 3a 66 25 3d  |%<0:......f%:f%=|
0001bf60  66 69 6c 65 25 0d ab d6  31 f2 73 64 66 69 6c 65  |file%...1.sdfile|
0001bf70  28 65 64 66 69 6c 65 25  29 3a f2 65 64 69 74 65  |(edfile%):.edite|
0001bf80  64 28 a3 29 3a e7 66 25  3e 3d 30 f2 73 64 66 69  |d(.):.f%>=0.sdfi|
0001bf90  6c 65 28 66 25 29 0d ab  e0 42 65 64 66 69 6c 65  |le(f%)...Bedfile|
0001bfa0  25 3d 2d 31 3a 65 64 66  69 65 6c 64 25 3d 2d 31  |%=-1:edfield%=-1|
0001bfb0  3a 65 64 69 63 6f 6e 25  3d 2d 31 3a 65 64 72 65  |:edicon%=-1:edre|
0001bfc0  63 25 3d 2d 31 3a 65 64  78 25 3d 2d 31 3a 65 64  |c%=-1:edx%=-1:ed|
0001bfd0  72 65 70 25 3d a3 3a e1  0d ab ea 04 0d ab f4 14  |rep%=.:.........|
0001bfe0  dd f2 65 64 69 74 65 64  28 54 25 29 3a ea 54 24  |..edited(T%):.T$|
0001bff0  0d ab fe 34 e7 70 69 78  25 e7 a4 70 69 63 66 69  |...4.pix%..picfi|
0001c000  65 6c 64 28 65 64 66 69  65 6c 64 25 29 3a f2 75  |eld(edfield%):.u|
0001c010  70 64 61 74 65 66 69 65  6c 64 28 65 64 66 69 65  |pdatefield(edfie|
0001c020  6c 64 25 29 0d ac 08 20  e7 54 25 f2 73 65 74 63  |ld%)... .T%.setc|
0001c030  74 28 77 25 28 66 69 6c  65 25 2c 30 29 2c 2d 31  |t(w%(file%,0),-1|
0001c040  2c 2d 31 29 0d ac 12 11  f2 73 65 74 65 64 66 69  |,-1).....setedfi|
0001c050  65 6c 64 3a e1 0d ac 1c  04 0d ac 26 25 dd f2 73  |eld:.......&%..s|
0001c060  65 74 65 64 66 69 65 6c  64 31 3a ea 54 24 2c 54  |etedfield1:.T$,T|
0001c070  25 3a 24 73 64 25 3d 24  65 64 62 75 66 25 0d ac  |%:$sd%=$edbuf%..|
0001c080  30 2a f2 73 74 72 69 70  31 3a c8 95 ac a6 2d 33  |0*.strip1:....-3|
0001c090  80 28 c2 24 73 64 25 29  3d 22 8b 22 84 c2 24 73  |.(.$sd%)="."..$s|
0001c0a0  64 25 29 3d 22 8a 22 29  0d ac 3a 1e 24 73 64 25  |d%)=".")..:.$sd%|
0001c0b0  3d c0 24 73 64 25 29 3a  ce 3a 24 65 64 62 75 66  |=.$sd%):.:$edbuf|
0001c0c0  25 3d 24 73 64 25 0d ac  44 1b c8 99 73 77 69 25  |%=$sd%..D...swi%|
0001c0d0  2c 67 72 65 63 5f 25 2c  65 64 72 65 63 25 b8 4e  |,grec_%,edrec%.N|
0001c0e0  25 0d ac 4e 23 c8 99 73  77 69 25 2c 73 64 31 37  |%..N#..swi%,sd17|
0001c0f0  5f 25 2c 39 2c 65 64 66  69 65 6c 64 25 2c 73 64  |_%,9,edfield%,sd|
0001c100  24 b8 47 25 0d ac 58 1e  54 24 3d 24 73 64 25 3a  |$.G%..X.T$=$sd%:|
0001c110  c8 99 73 77 69 25 2c 67  66 69 65 6c 64 5f 25 2c  |..swi%,gfield_%,|
0001c120  54 24 0d ac 62 1b f2 73  74 72 69 70 31 3a e7 24  |T$..b..strip1:.$|
0001c130  73 64 25 3c 3e 24 65 64  62 75 66 25 8c 0d ac 6c  |sd%<>$edbuf%...l|
0001c140  17 c8 99 73 77 69 25 2c  73 64 33 30 5f 25 2c 2d  |...swi%,sd30_%,-|
0001c150  31 b8 47 25 0d ac 76 2e  54 25 3d a4 76 5f 28 31  |1.G%..v.T%=.v_(1|
0001c160  34 29 3a 24 73 64 25 3d  24 65 64 62 75 66 25 3a  |4):$sd%=$edbuf%:|
0001c170  c8 99 73 77 69 25 2c 70  66 69 65 6c 64 5f 25 2c  |..swi%,pfield_%,|
0001c180  54 24 0d ac 80 19 c8 99  73 77 69 25 2c 6c 6f 63  |T$......swi%,loc|
0001c190  61 74 65 5f 25 2c 54 25  b8 44 25 0d ac 8a 14 c8  |ate_%,T%.D%.....|
0001c1a0  99 73 77 69 25 2c 73 64  32 33 5f 25 b8 4e 25 0d  |.swi%,sd23_%.N%.|
0001c1b0  ac 94 16 f2 63 68 6b 6d  76 31 28 65 64 72 65 63  |....chkmv1(edrec|
0001c1c0  25 2c 4e 25 29 0d ac 9e  05 cd 0d ac a8 3c e7 77  |%,N%)........<.w|
0001c1d0  25 28 66 69 6c 65 25 2c  33 29 3e 30 3a f2 73 64  |%(file%,3)>0:.sd|
0001c1e0  33 35 3a e7 47 25 3a f2  66 6f 72 63 65 63 61 72  |35:.G%:.forcecar|
0001c1f0  64 73 72 65 70 28 a4 76  5f 28 31 35 29 2c a4 76  |dsrep(.v_(15),.v|
0001c200  5f 28 31 35 29 29 0d ac  b2 05 e1 0d ac bc 04 0d  |_(15))..........|
0001c210  ac c6 1e dd f2 73 65 74  65 64 66 69 65 6c 64 32  |.....setedfield2|
0001c220  3a f2 73 65 74 65 64 66  69 65 6c 64 31 0d ac d0  |:.setedfield1...|
0001c230  40 e7 65 64 69 63 6f 6e  25 3e 3d 30 3a f2 64 65  |@.edicon%>=0:.de|
0001c240  6c 69 63 6f 6e 28 77 25  28 66 69 6c 65 25 2c 2d  |licon(w%(file%,-|
0001c250  33 2a 65 64 72 65 70 25  29 2c 65 64 69 63 6f 6e  |3*edrep%),edicon|
0001c260  25 29 3a 65 64 69 63 6f  6e 25 3d 2d 31 0d ac da  |%):edicon%=-1...|
0001c270  05 e1 0d ac e4 04 0d ac  ee 1d dd f2 73 65 74 65  |............sete|
0001c280  64 66 69 65 6c 64 3a f2  73 65 74 65 64 66 69 65  |dfield:.setedfie|
0001c290  6c 64 32 0d ac f8 1c f2  75 70 64 61 74 65 66 69  |ld2.....updatefi|
0001c2a0  65 6c 64 28 65 64 66 69  65 6c 64 25 29 3a e1 0d  |eld(edfield%):..|
0001c2b0  ad 02 04 0d ad 0c 17 dd  f2 73 74 72 69 70 31 3a  |.........strip1:|
0001c2c0  e7 24 73 64 25 3d 22 22  3a e1 0d ad 16 26 ea 54  |.$sd%="":....&.T|
0001c2d0  25 3a 54 25 3d 3f 73 64  25 3a 3f 73 64 25 3d 34  |%:T%=?sd%:?sd%=4|
0001c2e0  32 3a c8 99 73 77 69 25  2c 73 74 72 69 70 5f 25  |2:..swi%,strip_%|
0001c2f0  0d ad 20 14 e7 3f 73 64  25 3d 31 33 73 64 25 3f  |.. ..?sd%=13sd%?|
0001c300  31 3d 31 33 0d ad 2a 1c  3f 73 64 25 3d 54 25 3a  |1=13..*.?sd%=T%:|
0001c310  e7 24 73 64 25 3d 22 20  22 24 73 64 25 3d 22 22  |.$sd%=" "$sd%=""|
0001c320  0d ad 34 05 e1 0d ad 3e  04 0d ad 48 1a dd f2 65  |..4....>...H...e|
0001c330  6e 64 65 64 69 74 3a e7  65 64 66 69 6c 65 25 3c  |ndedit:.edfile%<|
0001c340  30 3a e1 0d ad 52 2b ea  66 25 3a 66 25 3d 66 69  |0:...R+.f%:f%=fi|
0001c350  6c 65 25 3a f2 73 64 66  69 6c 65 28 65 64 66 69  |le%:.sdfile(edfi|
0001c360  6c 65 25 29 3a f2 65 6e  64 66 65 64 69 74 0d ad  |le%):.endfedit..|
0001c370  5c 0f e7 a4 76 5f 28 31  35 29 3e 30 8c 0d ad 66  |\...v_(15)>0...f|
0001c380  22 e7 a4 66 6c 67 28 66  5f 6d 61 63 65 25 29 3a  |"..flg(f_mace%):|
0001c390  f2 64 6f 6d 61 63 72 6f  3a f2 63 68 6b 6d 76 0d  |.domacro:.chkmv.|
0001c3a0  ad 70 0e f2 76 61 6c 69  64 6c 69 6e 6b 0d ad 7a  |.p..validlink..z|
0001c3b0  05 cd 0d ad 84 16 e7 66  25 3e 3d 30 3a f2 73 64  |.......f%>=0:.sd|
0001c3c0  66 69 6c 65 28 66 25 29  0d ad 8e 05 e1 0d ad 98  |file(f%)........|
0001c3d0  04 0d ad a2 26 dd f2 65  64 72 65 70 28 58 25 2c  |....&..edrep(X%,|
0001c3e0  72 25 29 3a e7 a4 72 65  61 64 6f 6e 6c 79 3a f2  |r%):..readonly:.|
0001c3f0  62 75 7a 7a 31 3a e1 0d  ad ac 18 ea 64 25 2c 66  |buzz1:......d%,f|
0001c400  25 2c 59 25 3a 64 25 3d  a4 76 5f 28 31 34 29 0d  |%,Y%:d%=.v_(14).|
0001c410  ad b6 3a e7 66 69 6c 65  25 3c 3e 65 64 66 69 6c  |..:.file%<>edfil|
0001c420  65 25 3a e7 a4 64 65 61  64 66 69 6c 65 31 28 25  |e%:..deadfile1(%|
0001c430  31 31 31 31 31 31 31 31  30 31 30 31 31 31 31 31  |1111111101011111|
0001c440  29 3a f2 62 75 7a 7a 3a  e1 0d ad c0 24 e7 66 69  |):.buzz:....$.fi|
0001c450  6c 65 25 3c 3e 65 64 66  69 6c 65 25 84 ac 65 64  |le%<>edfile%..ed|
0001c460  72 65 70 25 3a f2 65 6e  64 65 64 69 74 0d ad ca  |rep%:.endedit...|
0001c470  10 e7 65 64 66 69 6c 65  25 3e 3d 30 8c 0d ad d4  |..edfile%>=0....|
0001c480  1b c8 99 73 77 69 25 2c  67 72 65 63 5f 25 2c 65  |...swi%,grec_%,e|
0001c490  64 72 65 63 25 b8 4e 25  0d ad de 43 f2 73 65 74  |drec%.N%...C.set|
0001c4a0  63 74 28 77 25 28 66 69  6c 65 25 2c 33 29 2c 2d  |ct(w%(file%,3),-|
0001c4b0  31 2c 30 29 3a f2 73 65  74 65 64 66 69 65 6c 64  |1,0):.setedfield|
0001c4c0  32 3a f2 75 70 64 61 74  65 66 69 65 6c 64 72 65  |2:.updatefieldre|
0001c4d0  70 28 65 64 66 69 65 6c  64 25 29 0d ad e8 05 cd  |p(edfield%).....|
0001c4e0  0d ad f2 17 c8 99 73 77  69 25 2c 67 72 65 63 5f  |......swi%,grec_|
0001c4f0  25 2c 72 25 b8 4e 25 0d  ad fc 20 f2 76 61 6c 69  |%,r%.N%... .vali|
0001c500  64 61 74 65 72 65 63 31  3a e7 73 25 28 66 69 6c  |daterec1:.s%(fil|
0001c510  65 25 29 3c 3e 30 8c 0d  ae 06 42 65 64 66 69 6c  |e%)<>0....Bedfil|
0001c520  65 25 3d 2d 31 3a 65 64  66 69 65 6c 64 25 3d 2d  |e%=-1:edfield%=-|
0001c530  31 3a 65 64 69 63 6f 6e  25 3d 2d 31 3a 65 64 72  |1:edicon%=-1:edr|
0001c540  65 63 25 3d 2d 31 3a 65  64 72 65 70 25 3d a3 3a  |ec%=-1:edrep%=.:|
0001c550  65 64 78 25 3d 2d 31 3a  e1 0d ae 10 05 cd 0d ae  |edx%=-1:........|
0001c560  1a 34 72 25 3d a4 76 5f  28 31 35 29 3a f2 73 72  |.4r%=.v_(15):.sr|
0001c570  66 69 65 6c 64 28 58 25  2c 66 25 29 3a c8 99 73  |field(X%,f%):..s|
0001c580  77 69 25 2c 73 64 31 37  5f 25 2c 31 2c 66 25 b8  |wi%,sd17_%,1,f%.|
0001c590  47 25 0d ae 24 2f 74 78  30 25 3d 6d 61 72 67 69  |G%..$/tx0%=margi|
0001c5a0  6e 25 2b 28 31 31 2b 58  25 29 2a 31 36 2d 38 3a  |n%+(11+X%)*16-8:|
0001c5b0  74 78 31 25 3d 74 78 30  25 2b 47 25 2a 31 36 2b  |tx1%=tx0%+G%*16+|
0001c5c0  38 0d ae 2e 3b 74 79 30  25 3d 2d 6d 61 72 67 69  |8...;ty0%=-margi|
0001c5d0  6e 25 2d 28 a4 76 5f 28  31 35 29 2b 32 29 2a 6c  |n%-(.v_(15)+2)*l|
0001c5e0  69 6e 65 67 61 70 25 2b  38 3a 74 79 31 25 3d 74  |inegap%+8:ty1%=t|
0001c5f0  79 30 25 2b 6c 69 6e 65  67 61 70 25 0d ae 38 3d  |y0%+linegap%..8=|
0001c600  21 71 25 3d 77 25 28 66  69 6c 65 25 2c 33 29 3a  |!q%=w%(file%,3):|
0001c610  71 25 21 34 3d 74 78 30  25 3a 71 25 21 38 3d 74  |q%!4=tx0%:q%!8=t|
0001c620  79 30 25 3a 71 25 21 31  32 3d 74 78 31 25 3a 71  |y0%:q%!12=tx1%:q|
0001c630  25 21 31 36 3d 74 79 31  25 0d ae 42 49 71 25 21  |%!16=ty1%..BIq%!|
0001c640  32 30 3d 26 37 30 30 46  31 32 31 3a 71 25 21 32  |20=&700F121:q%!2|
0001c650  34 3d 65 64 62 75 66 25  3a 71 25 21 32 38 3d 2d  |4=edbuf%:q%!28=-|
0001c660  31 3a 71 25 21 33 32 3d  47 25 2b 31 3a c8 99 73  |1:q%!32=G%+1:..s|
0001c670  77 69 25 2c 73 64 31 37  5f 25 2c 34 2c 66 25 b8  |wi%,sd17_%,4,f%.|
0001c680  47 25 0d ae 4c 2b e7 28  47 25 80 37 29 3c 3e 37  |G%..L+.(G%.7)<>7|
0001c690  3a 71 25 21 32 30 3d 71  25 21 32 30 84 35 31 32  |:q%!20=q%!20.512|
0001c6a0  3a 71 25 21 32 38 3d 65  64 76 61 6c 25 0d ae 56  |:q%!28=edval%..V|
0001c6b0  43 f2 63 68 65 63 6b 66  6f 72 6d 61 74 28 66 25  |C.checkformat(f%|
0001c6c0  29 3a c8 99 73 77 69 25  2c 67 66 69 65 6c 64 5f  |):..swi%,gfield_|
0001c6d0  25 2c 66 25 3a c8 99 73  77 69 25 2c 73 74 72 69  |%,f%:..swi%,stri|
0001c6e0  70 5f 25 3a 24 65 64 62  75 66 25 3d 24 73 64 25  |p_%:$edbuf%=$sd%|
0001c6f0  0d ae 60 25 c8 99 22 57  69 6d 70 5f 43 72 65 61  |..`%.."Wimp_Crea|
0001c700  74 65 49 63 6f 6e 22 2c  2c 71 25 20 b8 20 65 64  |teIcon",,q% . ed|
0001c710  69 63 6f 6e 25 0d ae 6a  46 f2 69 63 6f 6e 75 70  |icon%..jF.iconup|
0001c720  64 28 77 25 28 66 69 6c  65 25 2c 33 29 2c 65 64  |d(w%(file%,3),ed|
0001c730  69 63 6f 6e 25 29 3a f2  73 65 74 63 74 28 77 25  |icon%):.setct(w%|
0001c740  28 66 69 6c 65 25 2c 33  29 2c 65 64 69 63 6f 6e  |(file%,3),edicon|
0001c750  25 2c a9 24 65 64 62 75  66 25 29 0d ae 74 3a 65  |%,.$edbuf%)..t:e|
0001c760  64 66 69 6c 65 25 3d 66  69 6c 65 25 3a 65 64 66  |dfile%=file%:edf|
0001c770  69 65 6c 64 25 3d 66 25  3a 65 64 78 25 3d 58 25  |ield%=f%:edx%=X%|
0001c780  3a 65 64 72 65 63 25 3d  72 25 3a 65 64 72 65 70  |:edrec%=r%:edrep|
0001c790  25 3d b9 3a e1 0d ae 7e  04 0d ae 88 15 dd f2 63  |%=.:...~.......c|
0001c7a0  68 65 63 6b 66 6f 72 6d  61 74 28 54 25 29 0d ae  |heckformat(T%)..|
0001c7b0  92 16 ea 85 3a ee 85 ea  3a f7 85 3a f2 65 72 72  |....:...:..:.err|
0001c7c0  28 37 32 29 0d ae 9c 36  c8 99 73 77 69 25 2c 73  |(72)...6..swi%,s|
0001c7d0  64 31 37 5f 25 2c 39 2c  54 25 2c 73 64 66 24 3a  |d17_%,9,T%,sdf$:|
0001c7e0  c8 99 73 77 69 25 2c 73  64 31 37 5f 25 2c 39 2c  |..swi%,sd17_%,9,|
0001c7f0  24 73 64 25 2c 73 64 24  3a e1 0d ae a6 04 0d ae  |$sd%,sd$:.......|
0001c800  b0 27 dd f2 66 69 65 6c  64 73 7a 31 28 54 25 29  |.'..fieldsz1(T%)|
0001c810  3a ea 67 78 30 25 2c 67  79 30 25 2c 67 78 31 25  |:.gx0%,gy0%,gx1%|
0001c820  2c 67 79 31 25 0d ae ba  11 dd f2 66 69 65 6c 64  |,gy1%......field|
0001c830  73 7a 28 54 25 29 0d ae  c4 13 ea 4c 25 2c 58 25  |sz(T%).....L%,X%|
0001c840  2c 59 25 2c 47 25 2c 74  25 0d ae ce 30 f2 67 65  |,Y%,G%,t%...0.ge|
0001c850  74 77 28 77 25 28 66 69  6c 65 25 2c 30 29 29 3a  |tw(w%(file%,0)):|
0001c860  c8 99 73 77 69 25 2c 73  64 31 37 5f 25 2c 31 2c  |..swi%,sd17_%,1,|
0001c870  54 25 2c 73 64 24 b8 47  25 0d ae d8 23 4c 25 3d  |T%,sd$.G%...#L%=|
0001c880  47 25 3a c8 99 73 77 69  25 2c 73 64 31 37 5f 25  |G%:..swi%,sd17_%|
0001c890  2c 32 2c 54 25 2c 73 64  24 b8 47 25 0d ae e2 23  |,2,T%,sd$.G%...#|
0001c8a0  58 25 3d 47 25 3a c8 99  73 77 69 25 2c 73 64 31  |X%=G%:..swi%,sd1|
0001c8b0  37 5f 25 2c 33 2c 54 25  2c 73 64 24 b8 47 25 0d  |7_%,3,T%,sd$.G%.|
0001c8c0  ae ec 27 c8 99 22 4f 53  5f 52 65 61 64 4d 6f 64  |..'.."OS_ReadMod|
0001c8d0  65 56 61 72 69 61 62 6c  65 22 2c 2d 31 2c 35 20  |eVariable",-1,5 |
0001c8e0  b8 20 2c 2c 74 25 0d ae  f6 2c 74 79 30 25 3d 28  |. ,,t%...,ty0%=(|
0001c8f0  2d 47 25 2a 6c 69 6e 65  67 61 70 25 2d 6d 61 72  |-G%*linegap%-mar|
0001c900  67 69 6e 25 29 80 ac 28  28 31 3c 3c 74 25 29 2d  |gin%)..((1<<t%)-|
0001c910  31 29 0d af 00 16 74 79  31 25 3d 74 79 30 25 2b  |1)....ty1%=ty0%+|
0001c920  6c 69 6e 65 67 61 70 25  0d af 0a 2b 74 78 30 25  |linegap%...+tx0%|
0001c930  3d 58 25 2a 31 36 2b 6d  61 72 67 69 6e 25 2d 31  |=X%*16+margin%-1|
0001c940  36 3a 74 78 31 25 3d 74  78 30 25 2b 4c 25 2a 31  |6:tx1%=tx0%+L%*1|
0001c950  36 2b 32 0d af 14 0a e7  70 69 78 25 8c 0d af 1e  |6+2.....pix%....|
0001c960  13 e7 a4 70 69 63 66 69  65 6c 64 28 54 25 29 8c  |...picfield(T%).|
0001c970  0d af 28 16 ea 54 24 2c  74 24 2c 57 25 2c 48 25  |..(..T$,t$,W%,H%|
0001c980  2c 4d 25 2c 41 25 0d af  32 1d c8 99 73 77 69 25  |,M%,A%..2...swi%|
0001c990  2c 73 64 31 37 5f 25 2c  39 2c 54 25 2c 73 64 24  |,sd17_%,9,T%,sd$|
0001c9a0  b8 47 25 0d af 3c 18 c8  99 73 77 69 25 2c 67 66  |.G%..<...swi%,gf|
0001c9b0  69 65 6c 64 5f 25 2c 24  73 64 25 0d af 46 12 c8  |ield_%,$sd%..F..|
0001c9c0  99 73 77 69 25 2c 73 74  72 69 70 5f 25 0d af 50  |.swi%,strip_%..P|
0001c9d0  31 74 24 3d 24 73 64 25  3a 74 78 31 25 3d 74 78  |1t$=$sd%:tx1%=tx|
0001c9e0  30 25 2b 31 36 2a 4c 25  3a 74 79 30 25 3d 74 79  |0%+16*L%:ty0%=ty|
0001c9f0  31 25 2d 28 74 78 31 25  2d 74 78 30 25 29 0d af  |1%-(tx1%-tx0%)..|
0001ca00  5a 0d e7 24 73 64 25 3e  22 22 8c 0d af 64 1d 54  |Z..$sd%>""...d.T|
0001ca10  24 3d a4 6c 6f 61 64 73  70 72 28 24 73 64 25 29  |$=.loadspr($sd%)|
0001ca20  3a e7 54 24 3e 22 22 8c  0d af 6e 30 c8 99 22 4f  |:.T$>""...n0.."O|
0001ca30  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 32 38  |S_SpriteOp",&128|
0001ca40  2c 73 70 72 62 75 66 25  2c 54 24 b8 2c 2c 2c 57  |,sprbuf%,T$.,,,W|
0001ca50  25 2c 48 25 2c 2c 4d 25  0d af 78 30 c8 99 22 4f  |%,H%,,M%..x0.."O|
0001ca60  53 5f 52 65 61 64 4d 6f  64 65 56 61 72 69 61 62  |S_ReadModeVariab|
0001ca70  6c 65 22 2c 4d 25 2c 34  20 b8 2c 2c 41 25 3a 57  |le",M%,4 .,,A%:W|
0001ca80  25 3d 57 25 3c 3c 41 25  0d af 82 30 c8 99 22 4f  |%=W%<<A%...0.."O|
0001ca90  53 5f 52 65 61 64 4d 6f  64 65 56 61 72 69 61 62  |S_ReadModeVariab|
0001caa0  6c 65 22 2c 4d 25 2c 35  20 b8 2c 2c 41 25 3a 48  |le",M%,5 .,,A%:H|
0001cab0  25 3d 48 25 3c 3c 41 25  0d af 8c 16 74 25 3d a7  |%=H%<<A%....t%=.|
0001cac0  74 24 2c 22 7b 22 29 3a  e7 74 25 3e 30 8c 0d af  |t$,"{"):.t%>0...|
0001cad0  96 2e 74 24 3d c1 74 24  2c 74 25 2b 31 29 3a 74  |..t$=.t$,t%+1):t|
0001cae0  25 3d a7 74 24 2c 22 7d  22 29 3a e7 74 25 3e 30  |%=.t$,"}"):.t%>0|
0001caf0  74 24 3d c0 74 24 2c 74  25 2d 31 29 0d af a0 33  |t$=.t$,t%-1)...3|
0001cb00  58 25 3d 31 36 2a bb 74  24 3a 74 25 3d a7 74 24  |X%=16*.t$:t%=.t$|
0001cb10  2c 22 2c 22 29 3a e7 74  25 59 25 3d 6c 69 6e 65  |,","):.t%Y%=line|
0001cb20  67 61 70 25 2a bb c1 74  24 2c 74 25 2b 31 29 0d  |gap%*..t$,t%+1).|
0001cb30  af aa 0f e7 58 25 3d 30  80 59 25 3d 30 8c 0d af  |....X%=0.Y%=0...|
0001cb40  b4 23 58 25 3d 57 25 3a  59 25 3d 48 25 3a e7 58  |.#X%=W%:Y%=H%:.X|
0001cb50  25 3e 4c 25 2a 31 36 84  59 25 3e 4c 25 2a 31 36  |%>L%*16.Y%>L%*16|
0001cb60  8c 0d af be 27 e7 58 25  3e 59 25 3a 58 25 3d 4c  |....'.X%>Y%:X%=L|
0001cb70  25 2a 31 36 3a 59 25 3d  30 3a 8b 59 25 3d 4c 25  |%*16:Y%=0:.Y%=L%|
0001cb80  2a 31 36 3a 58 25 3d 30  0d af c8 05 cd 0d af d2  |*16:X%=0........|
0001cb90  05 cd 0d af dc 17 e7 59  25 3d 30 3a 59 25 3d 58  |.......Y%=0:Y%=X|
0001cba0  25 2a 48 25 2f 57 25 2d  31 0d af e6 17 e7 58 25  |%*H%/W%-1.....X%|
0001cbb0  3d 30 3a 58 25 3d 59 25  2a 57 25 2f 48 25 2d 31  |=0:X%=Y%*W%/H%-1|
0001cbc0  0d af f0 1d 74 78 31 25  3d 74 78 30 25 2b 58 25  |....tx1%=tx0%+X%|
0001cbd0  3a 74 79 30 25 3d 74 79  31 25 2d 59 25 0d af fa  |:ty0%=ty1%-Y%...|
0001cbe0  05 cc 0d b0 04 46 e7 57  25 3e 48 25 74 79 30 25  |.....F.W%>H%ty0%|
0001cbf0  3d 74 79 31 25 2d 48 25  2f 57 25 2a 28 74 78 31  |=ty1%-H%/W%*(tx1|
0001cc00  25 2d 74 78 30 25 29 2d  31 3a 8b 74 78 31 25 3d  |%-tx0%)-1:.tx1%=|
0001cc10  74 78 30 25 2b 57 25 2f  48 25 2a 28 74 79 31 25  |tx0%+W%/H%*(ty1%|
0001cc20  2d 74 79 30 25 29 2d 31  0d b0 0e 05 cd 0d b0 18  |-ty0%)-1........|
0001cc30  05 cd 0d b0 22 05 cd 0d  b0 2c 1d e7 74 78 31 25  |...."....,..tx1%|
0001cc40  3c 74 78 30 25 2b 33 30  74 78 31 25 3d 74 78 30  |<tx0%+30tx1%=tx0|
0001cc50  25 2b 33 30 0d b0 36 1d  e7 74 79 30 25 3e 74 79  |%+30..6..ty0%>ty|
0001cc60  31 25 2d 33 30 74 79 30  25 3d 74 79 31 25 2d 33  |1%-30ty0%=ty1%-3|
0001cc70  30 0d b0 40 05 cd 0d b0  4a 05 cd 0d b0 54 05 e1  |0..@....J....T..|
0001cc80  0d b0 5e 04 0d b0 68 13  dd f2 66 65 64 69 74 32  |..^...h...fedit2|
0001cc90  28 54 25 2c 74 25 29 0d  b0 72 1d f2 66 6f 72 6d  |(T%,t%)..r..form|
0001cca0  73 74 61 74 3a f5 3a 54  25 2b 3d 74 25 3a 74 25  |stat:.:T%+=t%:t%|
0001ccb0  3d b4 74 25 0d b0 7c 1e  46 25 3d a4 76 5f 28 37  |=.t%..|.F%=.v_(7|
0001ccc0  29 3a c8 95 54 25 3e 46  25 3a 54 25 2d 3d 46 25  |):..T%>F%:T%-=F%|
0001ccd0  3a ce 0d b0 86 13 c8 95  54 25 3c 31 3a 54 25 2b  |:.......T%<1:T%+|
0001cce0  3d 46 25 3a ce 0d b0 90  1d c8 99 73 77 69 25 2c  |=F%:.......swi%,|
0001ccf0  73 64 31 37 5f 25 2c 34  2c 54 25 2c 73 64 24 b8  |sd17_%,4,T%,sd$.|
0001cd00  47 25 0d b0 9a 1a fd 28  47 25 80 36 34 29 3d 30  |G%.....(G%.64)=0|
0001cd10  84 54 25 3d 65 64 66 69  65 6c 64 25 0d b0 a4 1a  |.T%=edfield%....|
0001cd20  6d 65 6e 75 66 69 65 6c  64 25 3d 54 25 3a f2 66  |menufield%=T%:.f|
0001cd30  65 64 69 74 3a e1 0d b0  ae 04 0d b0 b8 29 dd f2  |edit:........)..|
0001cd40  75 70 64 61 74 65 66 69  65 6c 64 28 54 25 29 3a  |updatefield(T%):|
0001cd50  ea 58 25 2c 4c 25 3a f2  66 69 65 6c 64 73 7a 28  |.X%,L%:.fieldsz(|
0001cd60  54 25 29 0d b0 c2 48 21  71 25 3d 77 25 28 66 69  |T%)...H!q%=w%(fi|
0001cd70  6c 65 25 2c 30 29 3a 71  25 21 34 3d 74 78 30 25  |le%,0):q%!4=tx0%|
0001cd80  3a 71 25 21 38 3d 74 79  30 25 3a 71 25 21 31 32  |:q%!8=ty0%:q%!12|
0001cd90  3d 74 78 31 25 3a 71 25  21 31 36 3d 74 79 31 25  |=tx1%:q%!16=ty1%|
0001cda0  3a f2 72 65 64 72 61 77  28 b9 29 0d b0 cc 1f dd  |:.redraw(.).....|
0001cdb0  f2 75 70 64 61 74 65 66  69 65 6c 64 72 65 70 28  |.updatefieldrep(|
0001cdc0  54 25 29 3a ea 58 25 2c  4c 25 0d b0 d6 1f e7 72  |T%):.X%,L%.....r|
0001cdd0  25 28 66 69 6c 65 25 29  3d 31 80 77 25 28 66 69  |%(file%)=1.w%(fi|
0001cde0  6c 65 25 2c 33 29 3e 30  8c 0d b0 e0 17 c8 99 73  |le%,3)>0.......s|
0001cdf0  77 69 25 2c 73 64 36 36  5f 25 2c 54 25 b8 47 25  |wi%,sd66_%,T%.G%|
0001ce00  0d b0 ea 12 58 25 3d 47  25 2b 31 3a e7 58 25 3e  |....X%=G%+1:.X%>|
0001ce10  30 8c 0d b0 f4 19 c8 99  73 77 69 25 2c 73 64 31  |0.......swi%,sd1|
0001ce20  37 5f 25 2c 31 2c 54 25  b8 47 25 0d b0 fe 1f 4c  |7_%,1,T%.G%....L|
0001ce30  25 3d 47 25 3a c8 99 73  77 69 25 2c 73 64 31 37  |%=G%:..swi%,sd17|
0001ce40  5f 25 2c 34 2c 54 25 b8  47 25 0d b1 08 14 e7 28  |_%,4,T%.G%.....(|
0001ce50  47 25 80 37 29 3c 3e 37  3a 4c 25 2b 3d 32 0d b1  |G%.7)<>7:L%+=2..|
0001ce60  12 2f 74 78 30 25 3d 6d  61 72 67 69 6e 25 2b 28  |./tx0%=margin%+(|
0001ce70  31 31 2b 58 25 29 2a 31  36 2d 38 3a 74 78 31 25  |11+X%)*16-8:tx1%|
0001ce80  3d 74 78 30 25 2b 4c 25  2a 31 36 2b 38 0d b1 1c  |=tx0%+L%*16+8...|
0001ce90  3b 74 79 30 25 3d 2d 6d  61 72 67 69 6e 25 2d 28  |;ty0%=-margin%-(|
0001cea0  a4 76 5f 28 31 35 29 2b  32 29 2a 6c 69 6e 65 67  |.v_(15)+2)*lineg|
0001ceb0  61 70 25 2b 38 3a 74 79  31 25 3d 74 79 30 25 2b  |ap%+8:ty1%=ty0%+|
0001cec0  6c 69 6e 65 67 61 70 25  0d b1 26 48 21 71 25 3d  |linegap%..&H!q%=|
0001ced0  77 25 28 66 69 6c 65 25  2c 33 29 3a 71 25 21 34  |w%(file%,3):q%!4|
0001cee0  3d 74 78 30 25 3a 71 25  21 38 3d 74 79 30 25 3a  |=tx0%:q%!8=ty0%:|
0001cef0  71 25 21 31 32 3d 74 78  31 25 3a 71 25 21 31 36  |q%!12=tx1%:q%!16|
0001cf00  3d 74 79 31 25 3a f2 72  65 64 72 61 77 28 b9 29  |=ty1%:.redraw(.)|
0001cf10  0d b1 30 05 cd 0d b1 3a  05 cc 0d b1 44 11 f2 66  |..0....:....D..f|
0001cf20  6f 72 63 65 63 61 72 64  72 65 70 0d b1 4e 05 cd  |orcecardrep..N..|
0001cf30  0d b1 58 05 e1 0d b1 62  04 0d b1 6c 1d dd f2 61  |..X....b...l...a|
0001cf40  64 64 3a e7 a4 72 65 61  64 6f 6e 6c 79 3a f2 62  |dd:..readonly:.b|
0001cf50  75 7a 7a 31 3a e1 0d b1  76 23 e7 a4 64 65 61 64  |uzz1:...v#..dead|
0001cf60  66 69 6c 65 28 25 31 31  31 31 31 31 31 31 31 31  |file(%1111111111|
0001cf70  30 31 31 31 31 30 29 3a  e1 0d b1 80 35 ea 66 25  |011110):....5.f%|
0001cf80  3a 66 25 3d 66 69 6c 65  25 3a f2 65 6e 64 65 64  |:f%=file%:.ended|
0001cf90  69 74 3a f2 73 64 66 69  6c 65 28 66 25 29 3a c8  |it:.sdfile(f%):.|
0001cfa0  99 73 77 69 25 2c 61 64  64 5f 25 b8 4e 25 0d b1  |.swi%,add_%.N%..|
0001cfb0  8a 36 f2 72 65 78 74 3a  f2 73 65 6c 73 75 62 28  |.6.rext:.selsub(|
0001cfc0  30 29 3a f2 6e 6f 66 69  6c 74 3a f2 66 6f 72 6d  |0):.nofilt:.form|
0001cfd0  73 74 61 74 3a 65 64 66  69 65 6c 64 25 3d a4 76  |stat:edfield%=.v|
0001cfe0  5f 28 37 29 0d b1 94 2f  f2 73 64 66 69 6c 65 28  |_(7).../.sdfile(|
0001cff0  66 25 29 3a f2 76 61 6c  69 64 72 65 63 3a f2 67  |f%):.validrec:.g|
0001d000  72 61 70 68 3a f2 66 65  64 69 74 32 28 30 2c 31  |raph:.fedit2(0,1|
0001d010  29 3a e1 0d b1 9e 04 0d  b1 a8 2e dd f2 73 68 6f  |):...........sho|
0001d020  77 64 65 66 3a e7 a4 64  65 61 64 66 69 6c 65 28  |wdef:..deadfile(|
0001d030  25 31 31 31 31 31 31 31  31 31 31 31 31 31 31 31  |%111111111111111|
0001d040  31 30 29 3a e1 0d b1 b2  16 c8 99 73 77 69 25 2c  |10):.......swi%,|
0001d050  67 72 65 63 5f 25 2c 30  b8 4e 25 0d b1 bc 1d f2  |grec_%,0.N%.....|
0001d060  6e 65 77 63 61 72 64 28  a3 2c 73 25 28 66 69 6c  |newcard(.,s%(fil|
0001d070  65 25 29 3d 30 29 3a e1  0d b1 c6 04 0d b1 d0 30  |e%)=0):........0|
0001d080  dd a4 73 68 6f 77 62 72  61 6e 63 68 3a f2 72 65  |..showbranch:.re|
0001d090  61 64 70 6f 69 6e 74 65  72 3a e7 6d 62 25 3c 3e  |adpointer:.mb%<>|
0001d0a0  31 84 6d 69 25 3c 3e 2d  33 3a 3d a3 0d b1 da 2f  |1.mi%<>-3:=..../|
0001d0b0  ea 54 24 2c 74 24 3a 54  24 3d 66 6e 24 28 66 69  |.T$,t$:T$=fn$(fi|
0001d0c0  6c 65 25 29 3a 74 24 3d  a4 6c 65 61 66 28 54 24  |le%):t$=.leaf(T$|
0001d0d0  29 3a e7 74 24 3d 54 24  3a 3d a3 0d b1 e4 28 ff  |):.t$=T$:=....(.|
0001d0e0  22 2a 66 69 6c 65 72 5f  6f 70 65 6e 64 69 72 20  |"*filer_opendir |
0001d0f0  22 2b c0 54 24 2c a9 54  24 2d a9 74 24 2d 31 29  |"+.T$,.T$-.t$-1)|
0001d100  3a 3d b9 0d b1 ee 04 0d  b1 f8 19 dd f2 72 65 61  |:=...........rea|
0001d110  64 77 73 3a ea 54 24 2c  54 25 2c 49 25 2c 63 25  |dws:.T$,T%,I%,c%|
0001d120  0d b2 02 3b 63 25 3d a4  68 64 62 79 74 65 31 28  |...;c%=.hdbyte1(|
0001d130  35 33 29 3a e7 63 25 3c  3e 69 64 5f 62 62 63 25  |53):.c%<>id_bbc%|
0001d140  80 63 25 3c 3e 69 64 5f  77 63 69 61 25 80 63 25  |.c%<>id_wcia%.c%|
0001d150  3c 3e 69 64 5f 65 78 62  25 3a e1 0d b2 0c 11 c8  |<>id_exb%:......|
0001d160  99 73 77 69 25 2c 73 64  32 34 5f 25 0d b2 16 1b  |.swi%,sd24_%....|
0001d170  e7 63 25 3d 69 64 5f 65  78 62 25 f2 72 65 61 64  |.c%=id_exb%.read|
0001d180  65 78 62 77 73 3a e1 0d  b2 20 35 72 24 28 66 69  |exbws:... 5r$(fi|
0001d190  6c 65 25 29 3d a4 67 73  3a e3 49 25 3d 30 b8 31  |le%)=.gs:.I%=0.1|
0001d1a0  38 3a f2 6e 6f 74 65 28  66 69 6c 65 25 2c 49 25  |8:.note(file%,I%|
0001d1b0  2c c0 a4 67 73 2c 36 39  29 29 3a ed 0d b2 2a 16  |,..gs,69)):...*.|
0001d1c0  65 24 28 66 69 6c 65 25  29 3d c0 a4 67 73 2c 37  |e$(file%)=..gs,7|
0001d1d0  30 29 0d b2 34 27 f2 66  6c 67 28 66 5f 72 73 70  |0)..4'.flg(f_rsp|
0001d1e0  63 25 2c a4 67 62 29 3a  f2 66 6c 67 28 66 5f 72  |c%,.gb):.flg(f_r|
0001d1f0  75 70 70 25 2c a4 67 62  29 0d b2 3e 29 f2 66 6c  |upp%,.gb)..>).fl|
0001d200  67 28 66 5f 73 73 70 63  25 2c a4 67 62 32 29 3a  |g(f_sspc%,.gb2):|
0001d210  f2 66 6c 67 28 66 5f 73  75 70 70 25 2c a4 67 62  |.flg(f_supp%,.gb|
0001d220  32 29 0d b2 48 27 54 25  3d a4 76 5f 28 37 29 2b  |2)..H'T%=.v_(7)+|
0001d230  35 3a e7 54 25 3e 33 30  84 63 25 3d 69 64 5f 77  |5:.T%>30.c%=id_w|
0001d240  63 69 61 25 54 25 3d 33  30 0d b2 52 23 e3 49 25  |cia%T%=30..R#.I%|
0001d250  3d 30 b8 54 25 3a f2 6d  61 63 6c 6e 28 66 69 6c  |=0.T%:.macln(fil|
0001d260  65 25 2c 49 25 2c a4 67  73 29 3a ed 0d b2 5c 14  |e%,I%,.gs):...\.|
0001d270  c8 99 73 77 69 25 2c 73  64 32 35 5f 25 b8 47 25  |..swi%,sd25_%.G%|
0001d280  0d b2 66 2f e7 47 25 3d  31 31 3a f2 66 6c 67 28  |..f/.G%=11:.flg(|
0001d290  66 5f 6d 61 63 62 25 2c  b9 29 3a 8b e7 47 25 3a  |f_macb%,.):..G%:|
0001d2a0  f2 66 6c 67 28 66 5f 6d  61 63 65 25 2c b9 29 0d  |.flg(f_mace%,.).|
0001d2b0  b2 70 34 73 74 25 28 66  69 6c 65 25 2c 30 29 3d  |.p4st%(file%,0)=|
0001d2c0  30 3a 73 74 25 28 66 69  6c 65 25 2c 31 29 3d 30  |0:st%(file%,1)=0|
0001d2d0  3a 73 74 25 28 66 69 6c  65 25 2c 32 29 3d 91 2f  |:st%(file%,2)=./|
0001d2e0  31 30 30 0d b2 7a 05 e1  0d b2 84 04 0d b2 8e 16  |100..z..........|
0001d2f0  dd f2 72 65 61 64 65 78  62 77 73 3a ea 49 25 2c  |..readexbws:.I%,|
0001d300  54 25 0d b2 98 22 e3 49  25 3d 30 b8 31 38 3a f2  |T%...".I%=0.18:.|
0001d310  6e 6f 74 65 28 66 69 6c  65 25 2c 49 25 2c a4 67  |note(file%,I%,.g|
0001d320  73 29 3a ed 0d b2 a2 23  e3 49 25 3d 30 b8 32 39  |s):....#.I%=0.29|
0001d330  3a f2 6d 61 63 6c 6e 28  66 69 6c 65 25 2c 49 25  |:.macln(file%,I%|
0001d340  2c a4 67 73 29 3a ed 0d  b2 ac 3c e3 49 25 3d 30  |,.gs):....<.I%=0|
0001d350  b8 32 33 3a 64 24 28 66  69 6c 65 25 2c 49 25 29  |.23:d$(file%,I%)|
0001d360  3d a4 67 73 3a ed 3a 66  24 28 66 69 6c 65 25 29  |=.gs:.:f$(file%)|
0001d370  3d a4 67 73 3a 66 78 24  28 66 69 6c 65 25 29 3d  |=.gs:fx$(file%)=|
0001d380  a4 67 73 0d b2 b6 3f 65  24 28 66 69 6c 65 25 29  |.gs...?e$(file%)|
0001d390  3d a4 67 73 3a e3 49 25  3d 30 b8 31 34 3a 77 24  |=.gs:.I%=0.14:w$|
0001d3a0  28 66 69 6c 65 25 2c 49  25 29 3d a4 67 73 3a ed  |(file%,I%)=.gs:.|
0001d3b0  3a 77 6f 25 28 66 69 6c  65 25 29 3d a4 67 77 28  |:wo%(file%)=.gw(|
0001d3c0  30 29 0d b2 c0 14 72 25  28 66 69 6c 65 25 29 3d  |0)....r%(file%)=|
0001d3d0  a4 67 77 28 30 29 0d b2  ca 3b 66 6c 25 28 66 69  |.gw(0)...;fl%(fi|
0001d3e0  6c 65 25 29 3d 28 66 6c  25 28 66 69 6c 65 25 29  |le%)=(fl%(file%)|
0001d3f0  80 ac 66 5f 73 61 76 65  25 29 84 28 a4 67 77 28  |..f_save%).(.gw(|
0001d400  66 5f 64 66 6c 74 25 29  80 66 5f 73 61 76 65 25  |f_dflt%).f_save%|
0001d410  29 0d b2 d4 42 e3 49 25  3d 30 b8 33 3a 74 25 28  |)...B.I%=0.3:t%(|
0001d420  66 69 6c 65 25 2c 49 25  29 3d a4 67 77 28 30 29  |file%,I%)=.gw(0)|
0001d430  3a ed 3a 6f 24 28 66 69  6c 65 25 29 3d a4 67 73  |:.:o$(file%)=.gs|
0001d440  3a 6f 25 28 66 69 6c 65  25 2c 30 29 3d a4 67 77  |:o%(file%,0)=.gw|
0001d450  28 30 29 0d b2 de 3d 72  24 28 66 69 6c 65 25 29  |(0)...=r$(file%)|
0001d460  3d a4 67 73 3a 73 72 24  28 66 69 6c 65 25 29 3d  |=.gs:sr$(file%)=|
0001d470  a4 67 73 3a 6c 24 28 66  69 6c 65 25 29 3d a4 67  |.gs:l$(file%)=.g|
0001d480  73 3a 6c 6b 24 28 66 69  6c 65 25 29 3d a4 67 73  |s:lk$(file%)=.gs|
0001d490  0d b2 e8 12 6c 78 24 28  66 69 6c 65 25 29 3d a4  |....lx$(file%)=.|
0001d4a0  67 73 0d b2 f2 22 e3 49  25 3d 30 b8 35 3a 6c 6c  |gs...".I%=0.5:ll|
0001d4b0  25 28 66 69 6c 65 25 2c  49 25 29 3d a4 67 77 28  |%(file%,I%)=.gw(|
0001d4c0  30 29 3a ed 0d b2 fc 23  e3 49 25 3d 30 b8 31 35  |0):....#.I%=0.15|
0001d4d0  3a 6c 66 25 28 66 69 6c  65 25 2c 49 25 29 3d a4  |:lf%(file%,I%)=.|
0001d4e0  67 77 28 30 29 3a ed 0d  b3 06 3c e3 49 25 3d 30  |gw(0):....<.I%=0|
0001d4f0  b8 34 3a 70 25 28 66 69  6c 65 25 2c 49 25 29 3d  |.4:p%(file%,I%)=|
0001d500  a4 67 77 28 30 29 3a ed  3a e3 49 25 3d 30 b8 37  |.gw(0):.:.I%=0.7|
0001d510  3a 70 24 28 66 69 6c 65  25 2c 49 25 29 3d a4 67  |:p$(file%,I%)=.g|
0001d520  73 3a ed 0d b3 10 16 54  25 3d a4 67 77 28 30 29  |s:.....T%=.gw(0)|
0001d530  3a e3 49 25 3d 30 b8 54  25 0d b3 1a 11 e7 49 25  |:.I%=0.T%.....I%|
0001d540  3c 3d 6d 61 78 63 6f 6c  25 8c 0d b3 24 3d 63 24  |<=maxcol%...$=c$|
0001d550  28 66 69 6c 65 25 2c 49  25 2c 30 29 3d a4 67 73  |(file%,I%,0)=.gs|
0001d560  3a 63 24 28 66 69 6c 65  25 2c 49 25 2c 31 29 3d  |:c$(file%,I%,1)=|
0001d570  a4 67 73 3a 63 25 28 66  69 6c 65 25 2c 49 25 29  |.gs:c%(file%,I%)|
0001d580  3d a4 67 77 28 30 29 0d  b3 2e 05 cc 0d b3 38 21  |=.gw(0).......8!|
0001d590  24 73 64 25 3d a4 67 73  3a 24 73 64 25 3d a4 67  |$sd%=.gs:$sd%=.g|
0001d5a0  73 3a 21 73 64 25 3d a4  67 77 28 30 29 0d b3 42  |s:!sd%=.gw(0)..B|
0001d5b0  05 cd 0d b3 4c 05 ed 0d  b3 56 3a 73 74 25 28 66  |....L....V:st%(f|
0001d5c0  69 6c 65 25 2c 30 29 3d  bb a4 67 73 3a 73 74 25  |ile%,0)=..gs:st%|
0001d5d0  28 66 69 6c 65 25 2c 31  29 3d bb a4 67 73 3a 73  |(file%,1)=..gs:s|
0001d5e0  74 25 28 66 69 6c 65 25  2c 32 29 3d 91 2f 31 30  |t%(file%,2)=./10|
0001d5f0  30 0d b3 60 05 e1 0d b3  6a 04 0d b3 74 1a dd f2  |0..`....j...t...|
0001d600  77 72 69 74 65 77 73 3a  e7 a4 72 65 61 64 6f 6e  |writews:..readon|
0001d610  6c 79 3a e1 0d b3 7e 0d  ea 54 24 2c 49 25 2c 63  |ly:...~..T$,I%,c|
0001d620  25 0d b3 88 3b 63 25 3d  a4 68 64 62 79 74 65 28  |%...;c%=.hdbyte(|
0001d630  26 33 35 29 3a e7 63 25  3c 3e 69 64 5f 62 62 63  |&35):.c%<>id_bbc|
0001d640  25 80 63 25 3c 3e 69 64  5f 77 63 69 61 25 80 63  |%.c%<>id_wcia%.c|
0001d650  25 3c 3e 69 64 5f 65 78  62 25 3a e1 0d b3 92 11  |%<>id_exb%:.....|
0001d660  c8 99 73 77 69 25 2c 73  64 32 34 5f 25 0d b3 9c  |..swi%,sd24_%...|
0001d670  1d e7 63 25 3d 69 64 5f  65 78 62 25 3a f2 77 72  |..c%=id_exb%:.wr|
0001d680  69 74 65 65 78 62 77 73  3a e1 0d b3 a6 20 24 73  |iteexbws:.... $s|
0001d690  64 25 3d 72 24 28 66 69  6c 65 25 29 3a c8 99 73  |d%=r$(file%):..s|
0001d6a0  77 69 25 2c 73 64 32 38  5f 25 0d b3 b0 4e e3 49  |wi%,sd28_%...N.I|
0001d6b0  25 3d 30 b8 31 38 3a 24  73 64 25 3d a4 6e 6f 74  |%=0.18:$sd%=.not|
0001d6c0  65 28 66 69 6c 65 25 2c  49 25 29 3a c8 99 73 77  |e(file%,I%):..sw|
0001d6d0  69 25 2c 73 64 32 38 5f  25 3a ed 3a 24 73 64 25  |i%,sd28_%:.:$sd%|
0001d6e0  3d 65 24 28 66 69 6c 65  25 29 3a c8 99 73 77 69  |=e$(file%):..swi|
0001d6f0  25 2c 73 64 32 38 5f 25  0d b3 ba 2b f2 77 73 62  |%,sd28_%...+.wsb|
0001d700  28 a4 66 6c 67 28 66 5f  72 73 70 63 25 29 29 3a  |(.flg(f_rspc%)):|
0001d710  f2 77 73 62 28 a4 66 6c  67 28 66 5f 72 75 70 70  |.wsb(.flg(f_rupp|
0001d720  25 29 29 0d b3 c4 2b f2  77 73 62 28 a4 66 6c 67  |%))...+.wsb(.flg|
0001d730  28 66 5f 73 73 70 63 25  29 29 3a f2 77 73 62 28  |(f_sspc%)):.wsb(|
0001d740  a4 66 6c 67 28 66 5f 73  75 70 70 25 29 29 0d b3  |.flg(f_supp%))..|
0001d750  ce 27 54 25 3d a4 76 5f  28 37 29 2b 35 3a e7 54  |.'T%=.v_(7)+5:.T|
0001d760  25 3e 33 30 84 63 25 3d  69 64 5f 77 63 69 61 25  |%>30.c%=id_wcia%|
0001d770  54 25 3d 33 30 0d b3 d8  32 e3 49 25 3d 30 b8 54  |T%=30...2.I%=0.T|
0001d780  25 3a 24 73 64 25 3d a4  6d 61 63 6c 6e 28 66 69  |%:$sd%=.macln(fi|
0001d790  6c 65 25 2c 49 25 29 3a  c8 99 73 77 69 25 2c 73  |le%,I%):..swi%,s|
0001d7a0  64 32 38 5f 25 3a ed 0d  b3 e2 32 54 25 3d 30 3a  |d28_%:....2T%=0:|
0001d7b0  e7 a4 66 6c 67 28 66 5f  6d 61 63 65 25 29 3a 54  |..flg(f_mace%):T|
0001d7c0  25 3d 31 3a 8b e7 a4 66  6c 67 28 66 5f 6d 61 63  |%=1:...flg(f_mac|
0001d7d0  62 25 29 3a 54 25 3d 31  31 0d b3 ec 14 c8 99 73  |b%):T%=11......s|
0001d7e0  77 69 25 2c 73 64 32 36  5f 25 2c 54 25 0d b3 f6  |wi%,sd26_%,T%...|
0001d7f0  05 e1 0d b4 00 04 0d b4  0a 14 dd f2 77 72 69 74  |............writ|
0001d800  65 65 78 62 77 73 3a ea  49 25 0d b4 14 23 e3 49  |eexbws:.I%...#.I|
0001d810  25 3d 30 b8 31 38 3a f2  77 73 28 a4 6e 6f 74 65  |%=0.18:.ws(.note|
0001d820  28 66 69 6c 65 25 2c 49  25 29 29 3a ed 0d b4 1e  |(file%,I%)):....|
0001d830  24 e3 49 25 3d 30 b8 32  39 3a f2 77 73 28 a4 6d  |$.I%=0.29:.ws(.m|
0001d840  61 63 6c 6e 28 66 69 6c  65 25 2c 49 25 29 29 3a  |acln(file%,I%)):|
0001d850  ed 0d b4 28 3f e3 49 25  3d 30 b8 32 33 3a f2 77  |...(?.I%=0.23:.w|
0001d860  73 28 64 24 28 66 69 6c  65 25 2c 49 25 29 29 3a  |s(d$(file%,I%)):|
0001d870  ed 3a f2 77 73 28 66 24  28 66 69 6c 65 25 29 29  |.:.ws(f$(file%))|
0001d880  3a f2 77 73 28 66 78 24  28 66 69 6c 65 25 29 29  |:.ws(fx$(file%))|
0001d890  0d b4 32 2f f2 77 73 28  65 24 28 66 69 6c 65 25  |..2/.ws(e$(file%|
0001d8a0  29 29 3a e3 49 25 3d 30  b8 31 34 3a f2 77 73 28  |)):.I%=0.14:.ws(|
0001d8b0  77 24 28 66 69 6c 65 25  2c 49 25 29 29 3a ed 0d  |w$(file%,I%)):..|
0001d8c0  b4 3c 35 f2 77 73 77 28  77 6f 25 28 66 69 6c 65  |.<5.wsw(wo%(file|
0001d8d0  25 29 29 3a f2 77 73 77  28 72 25 28 66 69 6c 65  |%)):.wsw(r%(file|
0001d8e0  25 29 29 3a f2 77 73 77  28 66 6c 25 28 66 69 6c  |%)):.wsw(fl%(fil|
0001d8f0  65 25 29 29 0d b4 46 2f  e3 49 25 3d 30 b8 33 3a  |e%))..F/.I%=0.3:|
0001d900  f2 77 73 77 28 74 25 28  66 69 6c 65 25 2c 49 25  |.wsw(t%(file%,I%|
0001d910  29 29 3a ed 3a f2 77 73  28 6f 24 28 66 69 6c 65  |)):.:.ws(o$(file|
0001d920  25 29 29 0d b4 50 34 f2  77 73 77 28 6f 25 28 66  |%))..P4.wsw(o%(f|
0001d930  69 6c 65 25 2c 30 29 29  3a f2 77 73 28 72 24 28  |ile%,0)):.ws(r$(|
0001d940  66 69 6c 65 25 29 29 3a  f2 77 73 28 73 72 24 28  |file%)):.ws(sr$(|
0001d950  66 69 6c 65 25 29 29 0d  b4 5a 32 f2 77 73 28 6c  |file%))..Z2.ws(l|
0001d960  24 28 66 69 6c 65 25 29  29 3a f2 77 73 28 6c 6b  |$(file%)):.ws(lk|
0001d970  24 28 66 69 6c 65 25 29  29 3a f2 77 73 28 6c 78  |$(file%)):.ws(lx|
0001d980  24 28 66 69 6c 65 25 29  29 0d b4 64 21 e3 49 25  |$(file%))..d!.I%|
0001d990  3d 30 b8 35 3a f2 77 73  77 28 6c 6c 25 28 66 69  |=0.5:.wsw(ll%(fi|
0001d9a0  6c 65 25 2c 49 25 29 29  3a ed 0d b4 6e 22 e3 49  |le%,I%)):...n".I|
0001d9b0  25 3d 30 b8 31 35 3a f2  77 73 77 28 6c 66 25 28  |%=0.15:.wsw(lf%(|
0001d9c0  66 69 6c 65 25 2c 49 25  29 29 3a ed 0d b4 78 3c  |file%,I%)):...x<|
0001d9d0  e3 49 25 3d 30 b8 34 3a  f2 77 73 77 28 70 25 28  |.I%=0.4:.wsw(p%(|
0001d9e0  66 69 6c 65 25 2c 49 25  29 29 3a ed 3a e3 49 25  |file%,I%)):.:.I%|
0001d9f0  3d 30 b8 37 3a f2 77 73  28 70 24 28 66 69 6c 65  |=0.7:.ws(p$(file|
0001da00  25 2c 49 25 29 29 3a ed  0d b4 82 1f f2 77 73 77  |%,I%)):......wsw|
0001da10  28 6d 61 78 63 6f 6c 25  29 3a e3 49 25 3d 30 b8  |(maxcol%):.I%=0.|
0001da20  6d 61 78 63 6f 6c 25 0d  b4 8c 3e f2 77 73 28 63  |maxcol%...>.ws(c|
0001da30  24 28 66 69 6c 65 25 2c  49 25 2c 30 29 29 3a f2  |$(file%,I%,0)):.|
0001da40  77 73 28 63 24 28 66 69  6c 65 25 2c 49 25 2c 31  |ws(c$(file%,I%,1|
0001da50  29 29 3a f2 77 73 77 28  63 25 28 66 69 6c 65 25  |)):.wsw(c%(file%|
0001da60  2c 49 25 29 29 0d b4 96  39 ed 3a 73 74 25 28 66  |,I%))...9.:st%(f|
0001da70  69 6c 65 25 2c 31 29 2b  3d 91 2f 31 30 30 2d 73  |ile%,1)+=./100-s|
0001da80  74 25 28 66 69 6c 65 25  2c 32 29 3a 73 74 25 28  |t%(file%,2):st%(|
0001da90  66 69 6c 65 25 2c 32 29  3d 91 2f 31 30 30 0d b4  |file%,2)=./100..|
0001daa0  a0 39 73 74 25 28 66 69  6c 65 25 2c 30 29 2b 3d  |.9st%(file%,0)+=|
0001dab0  31 3a f2 77 73 28 c3 73  74 25 28 66 69 6c 65 25  |1:.ws(.st%(file%|
0001dac0  2c 30 29 29 3a f2 77 73  28 c3 73 74 25 28 66 69  |,0)):.ws(.st%(fi|
0001dad0  6c 65 25 2c 31 29 29 0d  b4 aa 05 e1 0d b4 b4 04  |le%,1)).........|
0001dae0  0d b4 be 22 dd a4 67 62  3a c8 99 73 77 69 25 2c  |..."..gb:..swi%,|
0001daf0  73 64 32 35 5f 25 b8 47  25 3a 3d 28 47 25 3d 31  |sd25_%.G%:=(G%=1|
0001db00  31 29 0d b4 c8 23 dd a4  67 62 32 3a c8 99 73 77  |1)...#..gb2:..sw|
0001db10  69 25 2c 73 64 32 35 5f  25 b8 47 25 3a 3d 28 47  |i%,sd25_%.G%:=(G|
0001db20  25 3c 3e 30 29 0d b4 d2  1c dd a4 67 73 3a c8 99  |%<>0)......gs:..|
0001db30  73 77 69 25 2c 73 64 32  37 5f 25 3a 3d 24 73 64  |swi%,sd27_%:=$sd|
0001db40  25 0d b4 dc 22 dd f2 77  73 28 54 24 29 3a 24 73  |%..."..ws(T$):$s|
0001db50  64 25 3d 54 24 3a c8 99  73 77 69 25 2c 73 64 32  |d%=T$:..swi%,sd2|
0001db60  38 5f 25 0d b4 e6 32 dd  f2 77 73 62 28 54 25 29  |8_%...2..wsb(T%)|
0001db70  3a e7 54 25 c8 99 73 77  69 25 2c 73 64 32 36 5f  |:.T%..swi%,sd26_|
0001db80  25 2c 31 31 3a 8b c8 99  73 77 69 25 2c 73 64 32  |%,11:...swi%,sd2|
0001db90  36 5f 25 2c 30 0d b4 f0  05 e1 0d b4 fa 04 0d b5  |6_%,0...........|
0001dba0  04 2c dd a4 67 77 28 41  25 29 3a ea 54 25 2c 49  |.,..gw(A%):.T%,I|
0001dbb0  25 3a e3 49 25 3d 30 b8  33 3a c8 99 73 77 69 25  |%:.I%=0.3:..swi%|
0001dbc0  2c 73 64 32 35 5f 25 b8  47 25 0d b5 0e 31 54 25  |,sd25_%.G%...1T%|
0001dbd0  3d 54 25 84 28 28 47 25  80 32 35 35 29 3c 3c 28  |=T%.((G%.255)<<(|
0001dbe0  49 25 2a 38 29 29 3a ed  3a e7 54 25 3d 26 30 64  |I%*8)):.:.T%=&0d|
0001dbf0  30 64 30 64 30 64 54 25  3d 41 25 0d b5 18 07 3d  |0d0d0dT%=A%....=|
0001dc00  54 25 0d b5 22 04 0d b5  2c 34 dd f2 77 73 77 28  |T%.."...,4..wsw(|
0001dc10  54 25 29 3a ea 49 25 3a  e3 49 25 3d 30 b8 33 3a  |T%):.I%:.I%=0.3:|
0001dc20  47 25 3d 54 25 80 32 35  35 3a c8 99 73 77 69 25  |G%=T%.255:..swi%|
0001dc30  2c 73 64 32 36 5f 25 2c  47 25 0d b5 36 12 54 25  |,sd26_%,G%..6.T%|
0001dc40  3d 28 54 25 3e 3e 38 29  3a ed 3a e1 0d b5 40 04  |=(T%>>8):.:...@.|
0001dc50  0d b5 4a 0b dd a4 73 74  61 74 66 0d b5 54 2c ea  |..J...statf..T,.|
0001dc60  54 25 2c 49 25 3a 49 25  3d 31 34 3a 54 25 3d 2d  |T%,I%:I%=14:T%=-|
0001dc70  31 3a f5 3a 54 25 2b 3d  31 3a e7 54 25 3e 6d 61  |1:.:T%+=1:.T%>ma|
0001dc80  78 66 25 3a 3d 2d 31 0d  b5 5e 15 e7 77 25 28 54  |xf%:=-1..^..w%(T|
0001dc90  25 2c 30 29 3e 30 3a 49  25 2b 3d 31 0d b5 68 2c  |%,0)>0:I%+=1..h,|
0001dca0  fd 49 25 3d 6d 69 25 3a  e7 77 25 28 54 25 2c 30  |.I%=mi%:.w%(T%,0|
0001dcb0  29 3e 30 3a f2 73 64 66  69 6c 65 28 54 25 29 3a  |)>0:.sdfile(T%):|
0001dcc0  3d 54 25 3a 8b 3d 2d 31  0d b5 72 04 0d b5 7c 13  |=T%:.=-1..r...|.|
0001dcd0  dd f2 77 61 6c 69 67 6e  3a ea 58 25 2c 59 25 0d  |..walign:.X%,Y%.|
0001dce0  b5 86 26 e7 6d 65 6e 75  66 69 6c 65 25 3e 3d 30  |..&.menufile%>=0|
0001dcf0  f2 73 64 66 69 6c 65 28  6d 65 6e 75 66 69 6c 65  |.sdfile(menufile|
0001dd00  25 29 3a 8b e1 0d b5 90  2f 58 25 3d 66 69 6c 65  |%):...../X%=file|
0001dd10  25 2a 38 30 2b 70 61 6e  65 77 25 2b 38 3a 59 25  |%*80+panew%+8:Y%|
0001dd20  3d 39 30 30 2d 66 69 6c  65 25 2a 34 30 2d 70 61  |=900-file%*40-pa|
0001dd30  6e 65 68 25 0d b5 9a 37  f2 6f 70 65 6e 28 77 25  |neh%...7.open(w%|
0001dd40  28 66 69 6c 65 25 2c 30  29 2c 58 25 2c 59 25 2c  |(file%,0),X%,Y%,|
0001dd50  58 25 2b 70 61 6e 65 68  25 2c 59 25 2b 70 61 6e  |X%+paneh%,Y%+pan|
0001dd60  65 68 25 2c 30 2c 30 2c  2d 31 29 0d b5 a4 24 ea  |eh%,0,0,-1)...$.|
0001dd70  49 25 3a e3 49 25 3d 32  b8 6d 61 78 77 25 3a e7  |I%:.I%=2.maxw%:.|
0001dd80  77 25 28 66 69 6c 65 25  2c 49 25 29 3e 30 8c 0d  |w%(file%,I%)>0..|
0001dd90  b5 ae 44 f2 61 6c 69 67  6e 31 28 66 69 6c 65 25  |..D.align1(file%|
0001dda0  2c 49 25 29 3a f2 6f 70  65 6e 28 77 25 28 66 69  |,I%):.open(w%(fi|
0001ddb0  6c 65 25 2c 49 25 29 2c  74 78 30 25 2c 74 79 30  |le%,I%),tx0%,ty0|
0001ddc0  25 2c 74 78 31 25 2c 74  79 31 25 2c 30 2c 30 2c  |%,tx1%,ty1%,0,0,|
0001ddd0  2d 31 29 0d b5 b8 09 cd  3a ed 3a e1 0d b5 c2 04  |-1).....:.:.....|
0001dde0  0d b5 cc 1b dd f2 72 6c  69 6e 6b 28 54 25 29 3a  |......rlink(T%):|
0001ddf0  e7 6c 69 6e 6b 73 25 3d  30 3a e1 0d b5 d6 13 ea  |.links%=0:......|
0001de00  66 25 2c 49 25 3a 66 25  3d 66 69 6c 65 25 0d b5  |f%,I%:f%=file%..|
0001de10  e0 39 e3 49 25 3d 30 b8  6d 61 78 66 25 3a e7 6c  |.9.I%=0.maxf%:.l|
0001de20  25 28 49 25 29 3d 66 69  6c 65 25 2b 31 f2 72 6c  |%(I%)=file%+1.rl|
0001de30  69 6e 6b 31 28 49 25 2c  54 25 29 3a f2 73 64 66  |ink1(I%,T%):.sdf|
0001de40  69 6c 65 28 66 25 29 0d  b5 ea 07 ed 3a e1 0d b5  |ile(f%).....:...|
0001de50  f4 04 0d b5 fe 26 dd f2  72 6c 69 6e 6b 31 28 49  |.....&..rlink1(I|
0001de60  25 2c 54 25 29 3a ea 54  24 2c 66 69 6c 65 25 3a  |%,T%):.T$,file%:|
0001de70  66 69 6c 65 25 3d 49 25  0d b6 08 2d ea 85 3a ee  |file%=I%...-..:.|
0001de80  85 ea 3a f7 85 3a f2 73  64 66 69 6c 65 28 66 69  |..:..:.sdfile(fi|
0001de90  6c 65 25 29 3a f2 75 6e  6c 69 6e 6b 3a f2 65 72  |le%):.unlink:.er|
0001dea0  72 28 33 37 29 0d b6 12  29 54 24 3d a4 65 76 28  |r(37)...)T$=.ev(|
0001deb0  6c 78 24 28 66 69 6c 65  25 29 2c b9 2c a3 29 3a  |lx$(file%),.,.):|
0001dec0  f2 73 64 66 69 6c 65 28  66 69 6c 65 25 29 0d b6  |.sdfile(file%)..|
0001ded0  1c 2a 47 25 3d 30 3a e7  54 24 3e 22 22 3a f2 64  |.*G%=0:.T$>"":.d|
0001dee0  75 70 31 28 6c 6b 24 28  66 69 6c 65 25 29 2b 22  |up1(lk$(file%)+"|
0001def0  3d 22 2b 54 24 2c 30 29  0d b6 26 1c e7 47 25 3d  |="+T$,0)..&..G%=|
0001df00  30 3a c8 99 73 77 69 25  2c 66 69 72 73 74 5f 25  |0:..swi%,first_%|
0001df10  b8 2c 4e 25 0d b6 30 2a  e7 54 25 80 47 25 3c 3e  |.,N%..0*.T%.G%<>|
0001df20  30 3a f2 76 61 6c 69 64  72 65 63 3a 8b e7 54 25  |0:.validrec:..T%|
0001df30  3a f2 6e 65 77 63 61 72  64 28 b9 2c b9 29 0d b6  |:.newcard(.,.)..|
0001df40  3a 14 c8 99 73 77 69 25  2c 73 64 32 33 5f 25 b8  |:...swi%,sd23_%.|
0001df50  4e 25 0d b6 44 10 f2 72  6c 69 6e 6b 28 54 25 29  |N%..D..rlink(T%)|
0001df60  3a e1 0d b6 4e 04 0d b6  58 11 dd f2 73 65 74 6c  |:...N...X...setl|
0001df70  69 6e 6b 3a ea 54 24 0d  b6 62 38 e7 6c 25 28 66  |ink:.T$..b8.l%(f|
0001df80  69 6c 65 25 29 3e 30 54  24 3d a4 6f 66 69 6c 65  |ile%)>0T$=.ofile|
0001df90  6e 61 6d 65 28 6c 25 28  66 69 6c 65 25 29 2d 31  |name(l%(file%)-1|
0001dfa0  29 8b 54 24 3d 6c 78 24  28 66 69 6c 65 25 29 0d  |).T$=lx$(file%).|
0001dfb0  b6 6c 40 77 5f 72 6c 69  6e 6b 25 3d a4 63 72 77  |.l@w_rlink%=.crw|
0001dfc0  69 6e 64 28 74 77 5f 72  6c 69 6e 6b 25 29 3a 24  |ind(tw_rlink%):$|
0001dfd0  a4 74 61 28 77 5f 72 6c  69 6e 6b 25 29 3d 22 4c  |.ta(w_rlink%)="L|
0001dfe0  69 6e 6b 20 22 2b a4 66  69 6c 65 6e 61 6d 65 0d  |ink "+.filename.|
0001dff0  b6 76 35 f2 73 65 74 69  28 77 5f 72 6c 69 6e 6b  |.v5.seti(w_rlink|
0001e000  25 2c 31 2c 54 24 29 3a  f2 73 65 74 69 28 77 5f  |%,1,T$):.seti(w_|
0001e010  72 6c 69 6e 6b 25 2c 33  2c 6c 6b 24 28 66 69 6c  |rlink%,3,lk$(fil|
0001e020  65 25 29 29 0d b6 80 35  f2 73 65 74 69 28 77 5f  |e%))...5.seti(w_|
0001e030  72 6c 69 6e 6b 25 2c 35  2c 6c 24 28 66 69 6c 65  |rlink%,5,l$(file|
0001e040  25 29 29 3a f2 64 69 61  6c 6f 67 75 65 28 77 5f  |%)):.dialogue(w_|
0001e050  72 6c 69 6e 6b 25 29 3a  e1 0d b6 8a 04 0d b6 94  |rlink%):........|
0001e060  46 dd f2 75 6e 6c 69 6e  6b 3a 6c 78 24 28 66 69  |F..unlink:lx$(fi|
0001e070  6c 65 25 29 3d a4 6f 66  69 6c 65 6e 61 6d 65 28  |le%)=.ofilename(|
0001e080  6c 25 28 66 69 6c 65 25  29 2d 31 29 3a c8 99 73  |l%(file%)-1):..s|
0001e090  77 69 25 2c 73 65 6c 65  63 74 6b 65 79 5f 25 2c  |wi%,selectkey_%,|
0001e0a0  22 3f 22 0d b6 9e 31 6c  25 28 66 69 6c 65 25 29  |"?"...1l%(file%)|
0001e0b0  3d 2d 94 6c 25 28 66 69  6c 65 25 29 3a 73 25 28  |=-.l%(file%):s%(|
0001e0c0  66 69 6c 65 25 29 3d 30  3a 61 25 28 66 69 6c 65  |file%)=0:a%(file|
0001e0d0  25 29 3d 30 0d b6 a8 2f  6c 69 6e 6b 73 25 2d 3d  |%)=0.../links%-=|
0001e0e0  31 3a f2 76 61 6c 69 64  72 65 63 32 3a f2 66 6f  |1:.validrec2:.fo|
0001e0f0  72 63 65 63 61 72 64 3a  f2 66 6f 72 63 65 72 65  |rcecard:.forcere|
0001e100  70 3a e1 0d b6 b2 04 0d  b6 bc 1f dd f2 76 61 6c  |p:...........val|
0001e110  69 64 61 74 65 6c 69 6e  6b 3a ea 66 25 3a 66 25  |idatelink:.f%:f%|
0001e120  3d 66 69 6c 65 25 0d b6  c6 28 c8 95 6c 25 28 66  |=file%...(..l%(f|
0001e130  69 6c 65 25 29 3e 30 3a  f2 73 64 66 69 6c 65 28  |ile%)>0:.sdfile(|
0001e140  6c 25 28 66 69 6c 65 25  29 2d 31 29 3a ce 0d b6  |l%(file%)-1):...|
0001e150  d0 12 f2 76 61 6c 69 64  61 74 65 72 65 63 3a e1  |...validaterec:.|
0001e160  0d b6 da 04 0d b6 e4 1c  dd f2 76 61 6c 69 64 6c  |..........validl|
0001e170  69 6e 6b 3a ea 66 25 3a  66 25 3d 66 69 6c 65 25  |ink:.f%:f%=file%|
0001e180  0d b6 ee 28 c8 95 6c 25  28 66 69 6c 65 25 29 3e  |...(..l%(file%)>|
0001e190  30 3a f2 73 64 66 69 6c  65 28 6c 25 28 66 69 6c  |0:.sdfile(l%(fil|
0001e1a0  65 25 29 2d 31 29 3a ce  0d b6 f8 1b f2 76 61 6c  |e%)-1):......val|
0001e1b0  69 64 72 65 63 3a f2 73  64 66 69 6c 65 28 66 25  |idrec:.sdfile(f%|
0001e1c0  29 3a e1 0d b7 02 04 0d  b7 0c 27 dd f2 6d 61 74  |):........'..mat|
0001e1d0  63 68 72 65 70 3a e7 72  25 28 66 69 6c 65 25 29  |chrep:.r%(file%)|
0001e1e0  3d 34 3a f2 66 6f 72 63  65 72 65 70 3a e1 0d b7  |=4:.forcerep:...|
0001e1f0  16 36 e7 72 25 28 66 69  6c 65 25 29 3e 32 84 77  |.6.r%(file%)>2.w|
0001e200  25 28 66 69 6c 65 25 2c  33 29 3c 31 84 73 25 28  |%(file%,3)<1.s%(|
0001e210  66 69 6c 65 25 29 3c 3e  30 84 a4 76 5f 28 31 35  |file%)<>0..v_(15|
0001e220  29 3d 30 e1 0d b7 20 20  ea 68 25 3a 68 25 3d 31  |)=0...  .h%:h%=1|
0001e230  3a e7 72 25 28 66 69 6c  65 25 29 3d 30 68 25 3d  |:.r%(file%)=0h%=|
0001e240  a4 72 68 74 0d b7 2a 14  c8 99 73 77 69 25 2c 73  |.rht..*...swi%,s|
0001e250  64 32 33 5f 25 b8 4e 25  0d b7 34 21 68 25 3d 68  |d23_%.N%..4!h%=h|
0001e260  25 2a 4e 25 2d 68 25 3a  e7 72 25 28 66 69 6c 65  |%*N%-h%:.r%(file|
0001e270  25 29 3d 31 68 25 2b 3d  32 0d b7 3e 16 f2 67 65  |%)=1h%+=2..>..ge|
0001e280  74 77 28 77 25 28 66 69  6c 65 25 2c 33 29 29 0d  |tw(w%(file%,3)).|
0001e290  b7 48 41 f2 6f 70 65 6e  28 77 25 28 66 69 6c 65  |.HA.open(w%(file|
0001e2a0  25 2c 33 29 2c 78 30 25  2c 79 30 25 2c 78 31 25  |%,3),x0%,y0%,x1%|
0001e2b0  2c 79 31 25 2c 73 63 78  25 2c 2d 68 25 2a 6c 69  |,y1%,scx%,-h%*li|
0001e2c0  6e 65 67 61 70 25 2c 62  68 61 6e 64 6c 65 25 29  |negap%,bhandle%)|
0001e2d0  0d b7 52 05 e1 0d b7 5c  04 0d b7 66 0b dd a4 72  |..R....\...f...r|
0001e2e0  73 69 7a 65 0d b7 70 1b  52 25 3d a4 76 5f 28 31  |size..p.R%=.v_(1|
0001e2f0  37 29 3a c8 8e 72 25 28  66 69 6c 65 25 29 ca 0d  |7):..r%(file%)..|
0001e300  b7 7a 13 c9 30 3a 3d 52  25 2a a4 77 64 2a a4 72  |.z..0:=R%*.wd*.r|
0001e310  68 74 0d b7 84 18 c9 31  3a 3d a9 a4 73 72 65 70  |ht.....1:=..srep|
0001e320  28 31 29 2a 28 52 25 2b  34 29 0d b7 8e 0d c9 32  |(1)*(R%+4).....2|
0001e330  3a 3d 38 30 2a 52 25 0d  b7 98 42 c9 33 3a 3d 52  |:=80*R%...B.3:=R|
0001e340  25 2a 6c 6c 25 28 66 69  6c 65 25 2c 35 29 2a 28  |%*ll%(file%,5)*(|
0001e350  6c 6c 25 28 66 69 6c 65  25 2c 30 29 2b 6c 6c 25  |ll%(file%,0)+ll%|
0001e360  28 66 69 6c 65 25 2c 32  29 2b 33 29 2a 6c 6c 25  |(file%,2)+3)*ll%|
0001e370  28 66 69 6c 65 25 2c 33  29 0d b7 a2 09 7f 3a 3d  |(file%,3).....:=|
0001e380  2d 31 0d b7 ac 09 cb 3a  3d 2d 31 0d b7 b6 04 0d  |-1.....:=-1.....|
0001e390  b7 c0 0c dd f2 67 72 61  62 70 72 0d b7 ca 2f e7  |.....grabpr.../.|
0001e3a0  70 72 69 6e 74 65 72 25  3e 3d 30 3a f2 65 72 72  |printer%>=0:.err|
0001e3b0  28 34 32 29 3a 8b e7 70  73 74 72 65 61 6d 25 3e  |(42):..pstream%>|
0001e3c0  30 3a f2 65 72 72 28 34  31 29 0d b7 d4 2f 70 73  |0:.err(41).../ps|
0001e3d0  74 72 65 61 6d 25 3d ae  28 22 50 72 69 6e 74 65  |tream%=.("Printe|
0001e3e0  72 3a 22 29 3a e7 70 73  74 72 65 61 6d 25 3d 30  |r:"):.pstream%=0|
0001e3f0  3a f2 65 72 72 28 34 31  29 0d b7 de 14 70 72 69  |:.err(41)....pri|
0001e400  6e 74 65 72 25 3d 66 69  6c 65 25 3a e1 0d b7 e8  |nter%=file%:....|
0001e410  04 0d b7 f2 26 dd f2 72  65 6c 65 61 73 65 70 72  |....&..releasepr|
0001e420  3a e7 70 73 74 72 65 61  6d 25 3e 30 3a d9 23 70  |:.pstream%>0:.#p|
0001e430  73 74 72 65 61 6d 25 0d  b7 fc 1c 70 72 69 6e 74  |stream%....print|
0001e440  65 72 25 3d 2d 32 3a 70  73 74 72 65 61 6d 25 3d  |er%=-2:pstream%=|
0001e450  30 3a e1 0d b8 06 04 0d  b8 10 11 dd f2 70 70 72  |0:...........ppr|
0001e460  69 6e 74 31 28 54 24 29  0d b8 1a 06 ea 85 0d b8  |int1(T$)........|
0001e470  24 2f ee 85 ea 3a f7 85  3a c8 99 22 48 6f 75 72  |$/...:..:.."Hour|
0001e480  67 6c 61 73 73 5f 4f 66  66 22 3a ff 22 66 78 32  |glass_Off":."fx2|
0001e490  32 39 2c 31 22 3a f2 65  72 72 28 30 29 0d b8 2e  |29,1":.err(0)...|
0001e4a0  1b c8 99 22 48 6f 75 72  67 6c 61 73 73 5f 4f 6e  |..."Hourglass_On|
0001e4b0  22 3a 2a 66 78 32 32 39  0d b8 38 12 d5 23 70 73  |":*fx229..8..#ps|
0001e4c0  74 72 65 61 6d 25 2c 54  24 3b 0d b8 42 21 f7 85  |tream%,T$;..B!..|
0001e4d0  3a c8 99 22 48 6f 75 72  67 6c 61 73 73 5f 4f 66  |:.."Hourglass_Of|
0001e4e0  66 22 3a 2a 66 78 32 32  39 2c 31 0d b8 4c 05 e1  |f":*fx229,1..L..|
0001e4f0  0d b8 56 04 0d b8 60 26  dd f2 70 70 72 69 6e 74  |..V...`&..pprint|
0001e500  28 54 24 29 3a f2 70 70  72 69 6e 74 31 28 54 24  |(T$):.pprint1(T$|
0001e510  29 3a f2 70 6e 65 77 6c  3a e1 0d b8 6a 04 0d b8  |):.pnewl:...j...|
0001e520  74 33 dd f2 70 70 61 67  65 28 54 25 29 3a e7 70  |t3..ppage(T%):.p|
0001e530  64 72 69 76 65 72 25 3a  f2 70 70 72 69 6e 74 31  |driver%:.pprint1|
0001e540  28 50 44 66 66 24 29 3a  8b f2 70 6e 65 77 6c 3a  |(PDff$):..pnewl:|
0001e550  e1 0d b8 7e 13 e7 ac 6d  61 6e 75 61 6c 25 84 ac  |...~...manual%..|
0001e560  54 25 3a e1 0d b8 88 46  21 71 25 3d 39 39 3a 24  |T%:....F!q%=99:$|
0001e570  28 71 25 2b 34 29 3d 22  50 6c 65 61 73 65 20 6c  |(q%+4)="Please l|
0001e580  6f 61 64 20 61 20 6e 65  77 20 73 68 65 65 74 20  |oad a new sheet |
0001e590  6f 66 20 70 61 70 65 72  20 69 6e 74 6f 20 74 68  |of paper into th|
0001e5a0  65 20 70 72 69 6e 74 65  72 22 0d b8 92 21 c8 99  |e printer"...!..|
0001e5b0  20 22 57 69 6d 70 5f 52  65 70 6f 72 74 45 72 72  | "Wimp_ReportErr|
0001e5c0  6f 72 22 2c 71 25 2c 31  37 3a e1 0d b8 9c 04 0d  |or",q%,17:......|
0001e5d0  b8 a6 0b dd f2 70 6e 65  77 6c 0d b8 b0 06 ea 85  |.....pnewl......|
0001e5e0  0d b8 ba 2f ee 85 ea 3a  f7 85 3a c8 99 22 48 6f  |.../...:..:.."Ho|
0001e5f0  75 72 67 6c 61 73 73 5f  4f 66 66 22 3a ff 22 66  |urglass_Off":."f|
0001e600  78 32 32 39 2c 31 22 3a  f2 65 72 72 28 30 29 0d  |x229,1":.err(0).|
0001e610  b8 c4 1b c8 99 22 48 6f  75 72 67 6c 61 73 73 5f  |....."Hourglass_|
0001e620  4f 6e 22 3a 2a 66 78 32  32 39 0d b8 ce 1b e7 70  |On":*fx229.....p|
0001e630  74 65 72 6d 25 3e 30 3a  d5 23 70 73 74 72 65 61  |term%>0:.#pstrea|
0001e640  6d 25 2c 31 33 0d b8 d8  1c e7 70 74 65 72 6d 25  |m%,13.....pterm%|
0001e650  3c 3e 31 3a d5 23 70 73  74 72 65 61 6d 25 2c 31  |<>1:.#pstream%,1|
0001e660  30 0d b8 e2 21 f7 85 3a  c8 99 22 48 6f 75 72 67  |0...!..:.."Hourg|
0001e670  6c 61 73 73 5f 4f 66 66  22 3a 2a 66 78 32 32 39  |lass_Off":*fx229|
0001e680  2c 31 0d b8 ec 05 e1 0d  b8 f6 04 0d b9 00 22 dd  |,1............".|
0001e690  f2 64 70 72 69 6e 74 31  28 54 24 29 3a d5 23 6f  |.dprint1(T$):.#o|
0001e6a0  75 74 66 69 6c 65 25 2c  54 24 3b 3a e1 0d b9 0a  |utfile%,T$;:....|
0001e6b0  04 0d b9 14 26 dd f2 64  70 72 69 6e 74 28 54 24  |....&..dprint(T$|
0001e6c0  29 3a f2 64 70 72 69 6e  74 31 28 54 24 29 3a f2  |):.dprint1(T$):.|
0001e6d0  64 6e 65 77 6c 3a e1 0d  b9 1e 04 0d b9 28 34 dd  |dnewl:.......(4.|
0001e6e0  f2 6f 66 6f 6e 74 28 54  25 2c 4f 25 29 3a e7 70  |.ofont(T%,O%):.p|
0001e6f0  64 72 69 76 65 72 25 f2  6f 70 72 69 6e 74 31 28  |driver%.oprint1(|
0001e700  50 44 66 6f 6e 74 24 28  54 25 29 2c 4f 25 29 0d  |PDfont$(T%),O%).|
0001e710  b9 32 05 e1 0d b9 3c 04  0d b9 46 1b dd f2 64 6e  |.2....<...F...dn|
0001e720  65 77 6c 3a d5 23 6f 75  74 66 69 6c 65 25 2c 22  |ewl:.#outfile%,"|
0001e730  22 3a e1 0d b9 50 04 0d  b9 5a 22 dd f2 6f 6e 65  |":...P...Z"..one|
0001e740  77 6c 28 54 25 29 3a e7  54 25 3a f2 64 6e 65 77  |wl(T%):.T%:.dnew|
0001e750  6c 3a 8b f2 70 6e 65 77  6c 0d b9 64 30 dd f2 6f  |l:..pnewl..d0..o|
0001e760  70 72 69 6e 74 28 54 24  2c 54 25 29 3a e7 54 25  |print(T$,T%):.T%|
0001e770  3a f2 64 70 72 69 6e 74  28 54 24 29 3a 8b f2 70  |:.dprint(T$):..p|
0001e780  70 72 69 6e 74 28 54 24  29 0d b9 6e 33 dd f2 6f  |print(T$)..n3..o|
0001e790  70 72 69 6e 74 31 28 54  24 2c 54 25 29 3a e7 54  |print1(T$,T%):.T|
0001e7a0  25 3a f2 64 70 72 69 6e  74 31 28 54 24 29 3a 8b  |%:.dprint1(T$):.|
0001e7b0  f2 70 70 72 69 6e 74 31  28 54 24 29 0d b9 78 05  |.pprint1(T$)..x.|
0001e7c0  e1 0d b9 82 04 0d b9 8c  0e dd a4 73 72 65 70 28  |...........srep(|
0001e7d0  72 25 29 0d b9 96 06 ea  85 0d b9 a0 15 ee 85 ea  |r%).............|
0001e7e0  3a f7 85 3a 3d 22 20 2a  2a 20 22 2b f6 24 0d b9  |:..:=" ** "+.$..|
0001e7f0  aa 11 c8 99 73 77 69 25  2c 73 64 32 33 5f 25 0d  |....swi%,sd23_%.|
0001e800  b9 b4 29 e7 72 25 3d 31  72 25 3d 2d 32 8b e7 72  |..).r%=1r%=-2..r|
0001e810  25 3d 34 72 25 3d a4 76  5f 28 31 35 29 8b e7 72  |%=4r%=.v_(15)..r|
0001e820  25 3d 35 72 25 3d 2d 33  0d b9 be 20 c8 99 73 77  |%=5r%=-3... ..sw|
0001e830  69 25 2c 6c 69 6e 65 5f  25 2c 72 25 2c 73 72 78  |i%,line_%,r%,srx|
0001e840  24 28 66 69 6c 65 25 29  0d b9 c8 21 e7 a4 66 6c  |$(file%)...!..fl|
0001e850  67 28 66 5f 73 72 75 70  25 29 3a c8 99 73 77 69  |g(f_srup%):..swi|
0001e860  25 2c 75 70 70 65 72 5f  25 0d b9 d2 09 3d 24 73  |%,upper_%....=$s|
0001e870  64 25 0d b9 dc 04 0d b9  e6 0e dd a4 73 6c 69 6e  |d%..........slin|
0001e880  28 72 25 29 0d b9 f0 0a  ea 54 24 2c 41 24 0d b9  |(r%).....T$,A$..|
0001e890  fa 0f 41 24 3d c4 31 32  2c 22 20 22 29 0d ba 04  |..A$=.12," ")...|
0001e8a0  09 c8 8e 72 25 ca 0d ba  0e 20 c9 31 3a e7 a4 66  |...r%.... .1:..f|
0001e8b0  6c 67 28 66 5f 73 74 69  74 25 29 54 24 3d a4 73  |lg(f_stit%)T$=.s|
0001e8c0  72 65 70 28 30 29 0d ba  18 2e c9 32 3a e7 a4 66  |rep(0).....2:..f|
0001e8d0  6c 67 28 66 5f 73 64 61  73 25 29 80 a4 66 6c 67  |lg(f_sdas%)..flg|
0001e8e0  28 66 5f 73 74 69 74 25  29 54 24 3d a4 73 72 65  |(f_stit%)T$=.sre|
0001e8f0  70 28 31 29 0d ba 22 36  c9 a4 76 5f 28 31 37 29  |p(1).."6..v_(17)|
0001e900  2b 33 3a e7 a4 66 6c 67  28 66 5f 73 74 6f 74 25  |+3:..flg(f_stot%|
0001e910  29 80 a4 66 6c 67 28 66  5f 73 64 61 73 25 29 54  |)..flg(f_sdas%)T|
0001e920  24 3d a4 73 72 65 70 28  31 29 0d ba 2c 28 c9 a4  |$=.srep(1)..,(..|
0001e930  76 5f 28 31 37 29 2b 34  3a e7 a4 66 6c 67 28 66  |v_(17)+4:..flg(f|
0001e940  5f 73 74 6f 74 25 29 54  24 3d a4 73 72 65 70 28  |_stot%)T$=.srep(|
0001e950  35 29 0d ba 36 1b 7f 3a  c8 99 73 77 69 25 2c 67  |5)..6..:..swi%,g|
0001e960  72 65 63 5f 25 2c 72 25  2d 32 b8 4e 25 0d ba 40  |rec_%,r%-2.N%..@|
0001e970  31 f2 73 64 33 35 3a 41  24 3d c2 22 20 20 20 20  |1.sd35:A$=."    |
0001e980  20 20 20 20 20 20 22 2b  c3 28 72 25 2d 32 29 2c  |      "+.(r%-2),|
0001e990  31 30 29 2b 22 3a 20 22  3a c8 8e 47 25 ca 0d ba  |10)+": ":..G%...|
0001e9a0  4a 2b c9 31 3a f2 67 63  6f 6c 28 30 2c 33 29 3a  |J+.1:.gcol(0,3):|
0001e9b0  54 24 3d 22 28 4e 6f 74  20 69 6e 20 74 68 69 73  |T$="(Not in this|
0001e9c0  20 73 75 62 73 65 74 29  22 0d ba 54 12 c9 30 3a  | subset)"..T..0:|
0001e9d0  54 24 3d a4 73 72 65 70  28 34 29 0d ba 5e 24 7f  |T$=.srep(4)..^$.|
0001e9e0  3a f2 67 63 6f 6c 28 30  2c 33 29 3a 54 24 3d 22  |:.gcol(0,3):T$="|
0001e9f0  28 44 65 6c 65 74 65 64  20 43 61 72 64 29 22 0d  |(Deleted Card)".|
0001ea00  ba 68 05 cb 0d ba 72 05  cb 0d ba 7c 0a 3d 41 24  |.h....r....|.=A$|
0001ea10  2b 54 24 0d ba 86 04 0d  ba 90 18 dd a4 72 6c 69  |+T$..........rli|
0001ea20  6e 28 72 25 2c 4c 25 29  3a ea 74 24 2c 61 24 0d  |n(r%,L%):.t$,a$.|
0001ea30  ba 9a 20 61 24 3d c4 31  32 2c 22 20 22 29 3a c8  |.. a$=.12," "):.|
0001ea40  99 73 77 69 25 2c 67 72  65 63 5f 25 2c 72 25 0d  |.swi%,grec_%,r%.|
0001ea50  ba a4 25 f2 73 64 33 35  3a 61 24 3d c2 61 24 2b  |..%.sd35:a$=.a$+|
0001ea60  c3 28 72 25 29 2c 31 30  29 2b 22 3a 20 22 3a c8  |.(r%),10)+": ":.|
0001ea70  8e 47 25 ca 0d ba ae 2b  c9 31 3a f2 67 63 6f 6c  |.G%....+.1:.gcol|
0001ea80  28 30 2c 33 29 3a 74 24  3d 22 28 4e 6f 74 20 69  |(0,3):t$="(Not i|
0001ea90  6e 20 74 68 69 73 20 73  75 62 73 65 74 29 22 0d  |n this subset)".|
0001eaa0  ba b8 17 c9 30 3a e7 4c  25 3e 31 31 3a 74 24 3d  |....0:.L%>11:t$=|
0001eab0  a4 72 6c 69 6e 31 0d ba  c2 24 7f 3a f2 67 63 6f  |.rlin1...$.:.gco|
0001eac0  6c 28 30 2c 33 29 3a 74  24 3d 22 28 44 65 6c 65  |l(0,3):t$="(Dele|
0001ead0  74 65 64 20 43 61 72 64  29 22 0d ba cc 05 cb 0d  |ted Card)"......|
0001eae0  ba d6 0f 3d c0 61 24 2b  74 24 2c 4c 25 29 0d ba  |...=.a$+t$,L%)..|
0001eaf0  e0 04 0d ba ea 0b dd a4  72 6c 69 6e 31 0d ba f4  |........rlin1...|
0001eb00  18 ea 85 3a ee 85 ea 3a  f7 85 3a 3d 22 20 2a 2a  |...:...:..:=" **|
0001eb10  20 22 2b f6 24 0d ba fe  36 3d a4 65 76 33 28 72  | "+.$...6=.ev3(r|
0001eb20  78 24 28 66 69 6c 65 25  29 2c a4 66 6c 67 28 66  |x$(file%),.flg(f|
0001eb30  5f 72 73 70 63 25 29 2c  a4 66 6c 67 28 66 5f 72  |_rspc%),.flg(f_r|
0001eb40  75 70 70 25 29 2c 26 39  30 41 29 0d bb 08 04 0d  |upp%),&90A).....|
0001eb50  bb 12 2c dd a4 77 6c 69  6e 28 54 25 29 3a ea 74  |..,..wlin(T%):.t|
0001eb60  24 2c 54 24 3a 74 24 3d  c2 22 30 22 2b c3 28 54  |$,T$:t$=."0"+.(T|
0001eb70  25 2b 31 29 2c 32 29 2b  22 3a 22 0d bb 1c 1b ea  |%+1),2)+":".....|
0001eb80  85 3a ee 85 ea 3a f7 85  3a 3d 74 24 2b 22 20 2a  |.:...:..:=t$+" *|
0001eb90  2a 20 22 2b f6 24 0d bb  26 22 54 24 3d a4 73 28  |* "+.$..&"T$=.s(|
0001eba0  77 24 28 66 69 6c 65 25  2c 54 25 29 29 3a e7 54  |w$(file%,T%)):.T|
0001ebb0  24 3d 22 22 3a 3d 74 24  0d bb 30 36 54 24 3d a4  |$="":=t$..06T$=.|
0001ebc0  73 28 a4 78 28 54 24 29  29 3a e7 a4 75 28 54 24  |s(.x(T$)):..u(T$|
0001ebd0  29 3d 22 45 4e 44 22 3a  3d 74 24 2b 22 2d 2d 2d  |)="END":=t$+"---|
0001ebe0  2d 45 4e 44 22 2b c4 37  33 2c 22 2d 22 29 0d bb  |-END"+.73,"-")..|
0001ebf0  3a 36 3d 74 24 2b c0 a4  65 76 33 28 54 24 2c a4  |:6=t$+..ev3(T$,.|
0001ec00  66 6c 67 28 66 5f 77 73  70 63 25 29 2c a4 66 6c  |flg(f_wspc%),.fl|
0001ec10  67 28 66 5f 77 75 70 70  25 29 2c 26 39 30 41 29  |g(f_wupp%),&90A)|
0001ec20  2c 38 30 29 0d bb 44 04  0d bb 4e 10 dd f2 72 65  |,80)..D...N...re|
0001ec30  70 64 65 66 61 75 6c 74  0d bb 58 0a ea 49 25 2c  |pdefault..X..I%,|
0001ec40  54 25 0d bb 62 10 c8 8e  72 25 28 66 69 6c 65 25  |T%..b...r%(file%|
0001ec50  29 ca 0d bb 6c 63 c9 31  3a f2 73 74 72 69 70 28  |)...lc.1:.strip(|
0001ec60  73 72 24 28 66 69 6c 65  25 29 29 3a e7 73 72 24  |sr$(file%)):.sr$|
0001ec70  28 66 69 6c 65 25 29 3d  22 22 73 72 24 28 66 69  |(file%)=""sr$(fi|
0001ec80  6c 65 25 29 3d a4 66 6e  61 6d 65 28 31 29 3a f2  |le%)=.fname(1):.|
0001ec90  66 6c 67 31 28 66 5f 73  73 70 63 25 84 66 5f 73  |flg1(f_sspc%.f_s|
0001eca0  74 6f 74 25 84 66 5f 73  74 69 74 25 84 66 5f 73  |tot%.f_stit%.f_s|
0001ecb0  64 61 73 25 29 0d bb 76  33 f2 72 65 6d 6f 76 65  |das%)..v3.remove|
0001ecc0  28 73 72 24 28 66 69 6c  65 25 29 2c 22 40 22 29  |(sr$(file%),"@")|
0001ecd0  3a f2 72 65 6d 6f 76 65  28 73 72 24 28 66 69 6c  |:.remove(sr$(fil|
0001ece0  65 25 29 2c 22 23 22 29  0d bb 80 1f 73 72 78 24  |e%),"#")....srx$|
0001ecf0  28 66 69 6c 65 25 29 3d  a4 78 35 28 73 72 24 28  |(file%)=.x5(sr$(|
0001ed00  66 69 6c 65 25 29 29 0d  bb 8a 3e c9 32 3a f2 73  |file%))...>.2:.s|
0001ed10  74 72 69 70 28 72 24 28  66 69 6c 65 25 29 29 3a  |trip(r$(file%)):|
0001ed20  e7 72 24 28 66 69 6c 65  25 29 3d 22 22 3a 72 24  |.r$(file%)="":r$|
0001ed30  28 66 69 6c 65 25 29 3d  22 40 22 2b a4 66 6e 61  |(file%)="@"+.fna|
0001ed40  6d 65 28 31 29 0d bb 94  1d 72 78 24 28 66 69 6c  |me(1)....rx$(fil|
0001ed50  65 25 29 3d a4 78 36 28  72 24 28 66 69 6c 65 25  |e%)=.x6(r$(file%|
0001ed60  29 29 0d bb 9e 06 c9 33  0d bb a8 15 e7 6c 6c 25  |)).....3.....ll%|
0001ed70  28 66 69 6c 65 25 2c 30  29 3c 3d 30 8c 0d bb b2  |(file%,0)<=0....|
0001ed80  20 f7 2b 31 3a e3 49 25  3d 30 b8 35 3a f3 6c 6c  | .+1:.I%=0.5:.ll|
0001ed90  25 28 66 69 6c 65 25 2c  49 25 29 3a ed 0d bb bc  |%(file%,I%):....|
0001eda0  1e e3 49 25 3d 30 b8 31  35 3a 6c 66 25 28 66 69  |..I%=0.15:lf%(fi|
0001edb0  6c 65 25 2c 49 25 29 3d  30 3a ed 0d bb c6 05 cd  |le%,I%)=0:......|
0001edc0  0d bb d0 11 dc 33 30 2c  34 2c 34 2c 39 2c 32 2c  |.....30,4,4,9,2,|
0001edd0  31 0d bb da 06 c9 34 0d  bb e4 65 e7 77 6f 25 28  |1.....4...e.wo%(|
0001ede0  66 69 6c 65 25 29 3c 30  77 6f 25 28 66 69 6c 65  |file%)<0wo%(file|
0001edf0  25 29 3d 30 3a e3 49 25  3d 30 b8 31 34 3a 77 24  |%)=0:.I%=0.14:w$|
0001ee00  28 66 69 6c 65 25 2c 49  25 29 3d 22 22 3a ed 3a  |(file%,I%)="":.:|
0001ee10  f2 66 6c 67 30 28 66 5f  77 75 70 70 25 29 3a f2  |.flg0(f_wupp%):.|
0001ee20  66 6c 67 30 28 66 5f 77  62 6e 6b 25 29 3a f2 66  |flg0(f_wbnk%):.f|
0001ee30  6c 67 31 28 66 5f 77 73  70 63 25 29 0d bb ee 06  |lg1(f_wspc%)....|
0001ee40  c9 35 0d bb f8 3e e7 70  25 28 66 69 6c 65 25 2c  |.5...>.p%(file%,|
0001ee50  30 29 3c 3d 30 3a 70 24  28 66 69 6c 65 25 2c 30  |0)<=0:p$(file%,0|
0001ee60  29 3d 22 22 3a f7 2b 31  3a e3 49 25 3d 30 b8 34  |)="":.+1:.I%=0.4|
0001ee70  3a f3 70 25 28 66 69 6c  65 25 2c 49 25 29 3a ed  |:.p%(file%,I%):.|
0001ee80  0d bc 02 14 e7 70 24 28  66 69 6c 65 25 2c 30 29  |.....p$(file%,0)|
0001ee90  3d 22 22 8c 0d bc 0c 22  f2 66 6c 67 31 28 66 5f  |=""....".flg1(f_|
0001eea0  72 65 6a 61 25 84 66 5f  72 62 70 6e 25 84 66 5f  |reja%.f_rbpn%.f_|
0001eeb0  72 70 64 74 25 29 0d bc  16 42 f2 66 6c 67 30 28  |rpdt%)...B.flg0(|
0001eec0  66 5f 72 65 6a 62 25 84  66 5f 72 64 73 70 25 84  |f_rejb%.f_rdsp%.|
0001eed0  66 5f 72 74 70 6e 25 84  66 5f 72 6c 64 75 25 84  |f_rtpn%.f_rldu%.|
0001eee0  66 5f 72 6c 73 75 25 84  66 5f 72 74 70 67 25 84  |f_rlsu%.f_rtpg%.|
0001eef0  66 5f 72 74 73 75 25 29  0d bc 20 34 f2 72 5f 63  |f_rtsu%).. 4.r_c|
0001ef00  6c 65 61 72 3a 70 24 28  66 69 6c 65 25 2c 30 29  |lear:p$(file%,0)|
0001ef10  3d 22 52 65 70 6f 72 74  20 6f 6e 20 66 69 6c 65  |="Report on file|
0001ef20  20 22 2b a4 66 69 6c 65  6e 61 6d 65 0d bc 2a 22  | "+.filename..*"|
0001ef30  54 25 3d 30 3a e3 49 25  3d 30 b8 6d 61 78 63 6f  |T%=0:.I%=0.maxco|
0001ef40  6c 25 3a e7 49 25 3c a4  76 5f 28 37 29 8c 0d bc  |l%:.I%<.v_(7)...|
0001ef50  34 35 6d 65 6e 75 66 69  6c 65 25 3d 66 69 6c 65  |45menufile%=file|
0001ef60  25 3a f2 72 5f 73 65 74  63 6f 6c 28 49 25 2b 31  |%:.r_setcol(I%+1|
0001ef70  2c 49 25 29 3a f2 64 65  63 6f 64 65 63 6f 6c 28  |,I%):.decodecol(|
0001ef80  49 25 29 0d bc 3e 3d e7  54 25 2b 63 77 69 64 25  |I%)..>=.T%+cwid%|
0001ef90  3c 70 25 28 66 69 6c 65  25 2c 32 29 3a 54 25 2b  |<p%(file%,2):T%+|
0001efa0  3d 63 77 69 64 25 2b 31  3a 8b f2 72 5f 63 6c 65  |=cwid%+1:..r_cle|
0001efb0  61 72 63 6f 6c 28 49 25  29 3a 49 25 3d 31 45 39  |arcol(I%):I%=1E9|
0001efc0  0d bc 48 05 cd 0d bc 52  05 ed 0d bc 5c 05 e1 0d  |..H....R....\...|
0001efd0  bc 66 05 cd 0d bc 70 26  dc 64 70 77 69 64 25 2c  |.f....p&.dpwid%,|
0001efe0  34 2c 64 70 77 69 64 25  2d 38 2c 64 70 6c 65 6e  |4,dpwid%-8,dplen|
0001eff0  25 2d 36 2c 64 70 6c 65  6e 25 0d bc 7a 05 cb 0d  |%-6,dplen%..z...|
0001f000  bc 84 05 e1 0d bc 8e 04  0d bc 98 0c dd f2 72 73  |..............rs|
0001f010  65 74 75 70 0d bc a2 10  c8 8e 72 25 28 66 69 6c  |etup......r%(fil|
0001f020  65 25 29 ca 0d bc ac 0d  c9 31 3a f2 72 73 65 74  |e%)......1:.rset|
0001f030  31 0d bc b6 0f c9 32 3a  f2 65 78 70 72 28 32 29  |1.....2:.expr(2)|
0001f040  0d bc c0 0d c9 33 3a f2  72 73 65 74 33 0d bc ca  |.....3:.rset3...|
0001f050  0d c9 34 3a f2 72 73 65  74 34 0d bc d4 0e c9 35  |..4:.rset4.....5|
0001f060  3a f2 72 73 65 74 35 31  0d bc de 07 cb 3a e1 0d  |:.rset51.....:..|
0001f070  bc e8 04 0d bc f2 27 dd  f2 72 73 65 74 31 3a 77  |......'..rset1:w|
0001f080  5f 73 72 73 65 74 25 3d  a4 63 72 77 69 6e 64 28  |_srset%=.crwind(|
0001f090  74 77 5f 73 72 73 65 74  25 29 0d bc fc 38 f2 75  |tw_srset%)...8.u|
0001f0a0  6e 73 65 6c 61 6c 6c 28  77 5f 73 72 73 65 74 25  |nselall(w_srset%|
0001f0b0  29 3a e7 a4 66 6c 67 28  66 5f 73 72 75 70 25 29  |):..flg(f_srup%)|
0001f0c0  3a f2 73 65 6c 69 28 77  5f 73 72 73 65 74 25 2c  |:.seli(w_srset%,|
0001f0d0  30 29 0d bd 06 24 e7 a4  66 6c 67 28 66 5f 73 74  |0)...$..flg(f_st|
0001f0e0  6f 74 25 29 3a f2 73 65  6c 69 28 77 5f 73 72 73  |ot%):.seli(w_srs|
0001f0f0  65 74 25 2c 31 29 0d bd  10 24 e7 a4 66 6c 67 28  |et%,1)...$..flg(|
0001f100  66 5f 73 74 69 74 25 29  3a f2 73 65 6c 69 28 77  |f_stit%):.seli(w|
0001f110  5f 73 72 73 65 74 25 2c  37 29 0d bd 1a 24 e7 a4  |_srset%,7)...$..|
0001f120  66 6c 67 28 66 5f 73 64  61 73 25 29 3a f2 73 65  |flg(f_sdas%):.se|
0001f130  6c 69 28 77 5f 73 72 73  65 74 25 2c 38 29 0d bd  |li(w_srset%,8)..|
0001f140  24 3e 65 78 24 3d 73 72  24 28 66 69 6c 65 25 29  |$>ex$=sr$(file%)|
0001f150  3a f2 73 65 74 69 28 77  5f 73 72 73 65 74 25 2c  |:.seti(w_srset%,|
0001f160  33 2c 65 78 24 29 3a f2  64 69 61 6c 6f 67 75 65  |3,ex$):.dialogue|
0001f170  28 77 5f 73 72 73 65 74  25 29 3a e1 0d bd 2e 04  |(w_srset%):.....|
0001f180  0d bd 38 1b dd f2 72 73  65 74 32 3a ea 54 24 3a  |..8...rset2:.T$:|
0001f190  54 24 3d a4 78 36 28 24  41 25 29 0d bd 42 41 f2  |T$=.x6($A%)..BA.|
0001f1a0  66 6c 67 28 66 5f 72 75  70 70 25 2c 75 25 29 3a  |flg(f_rupp%,u%):|
0001f1b0  f2 66 6c 67 28 66 5f 72  73 70 63 25 2c 73 25 29  |.flg(f_rspc%,s%)|
0001f1c0  3a 72 24 28 66 69 6c 65  25 29 3d 24 41 25 3a 72  |:r$(file%)=$A%:r|
0001f1d0  78 24 28 66 69 6c 65 25  29 3d 54 24 0d bd 4c 0f  |x$(file%)=T$..L.|
0001f1e0  f2 66 6f 72 63 65 72 65  70 3a e1 0d bd 56 04 0d  |.forcerep:...V..|
0001f1f0  bd 60 2f dd f2 72 73 65  74 33 3a 77 5f 6c 61 62  |.`/..rset3:w_lab|
0001f200  65 6c 25 3d a4 63 72 77  69 6e 64 28 74 77 5f 6c  |el%=.crwind(tw_l|
0001f210  61 62 65 6c 25 29 3a f2  72 73 65 74 33 69 0d bd  |abel%):.rset3i..|
0001f220  6a 19 f2 64 69 61 6c 6f  67 75 65 28 77 5f 6c 61  |j..dialogue(w_la|
0001f230  62 65 6c 25 29 3a e1 0d  bd 74 04 0d bd 7e 0c dd  |bel%):...t...~..|
0001f240  f2 72 73 65 74 33 69 0d  bd 88 1c ea 49 25 2c 4a  |.rset3i.....I%,J|
0001f250  25 3a f7 8d 7c 5c 7d 3a  e3 49 25 3d 30 b8 37 3a  |%:..|\}:.I%=0.7:|
0001f260  f3 4a 25 0d bd 92 31 f2  73 65 74 69 28 77 5f 6c  |.J%...1.seti(w_l|
0001f270  61 62 65 6c 25 2c 4a 25  2c c3 6c 6c 25 28 66 69  |abel%,J%,.ll%(fi|
0001f280  6c 65 25 2c 49 25 29 29  3a ed 3a f2 6c 77 69 64  |le%,I%)):.:.lwid|
0001f290  74 68 3a e1 0d bd 9c 1b  dc 31 32 2c 34 31 2c 32  |th:......12,41,2|
0001f2a0  33 2c 36 2c 31 35 2c 31  39 2c 34 38 2c 35 32 0d  |3,6,15,19,48,52.|
0001f2b0  bd a6 04 0d bd b0 2d dd  f2 72 73 65 74 34 3a 77  |......-..rset4:w|
0001f2c0  5f 77 6f 72 64 25 3d a4  63 72 77 69 6e 64 28 74  |_word%=.crwind(t|
0001f2d0  77 5f 77 6f 72 64 25 29  3a f2 72 73 65 74 34 69  |w_word%):.rset4i|
0001f2e0  0d bd ba 18 f2 64 69 61  6c 6f 67 75 65 28 77 5f  |.....dialogue(w_|
0001f2f0  77 6f 72 64 25 29 3a e1  0d bd c4 04 0d bd ce 0c  |word%):.........|
0001f300  dd f2 72 73 65 74 34 69  0d bd d8 31 ea 49 25 3a  |..rset4i...1.I%:|
0001f310  e3 49 25 3d 30 b8 31 34  3a f2 73 65 74 69 28 77  |.I%=0.14:.seti(w|
0001f320  5f 77 6f 72 64 25 2c 49  25 2c 77 24 28 66 69 6c  |_word%,I%,w$(fil|
0001f330  65 25 2c 49 25 29 29 3a  ed 0d bd e2 28 f2 75 6e  |e%,I%)):....(.un|
0001f340  73 65 6c 61 6c 6c 28 77  5f 77 6f 72 64 25 29 3a  |selall(w_word%):|
0001f350  f7 8d 5c 68 7e 3a e3 49  25 3d 30 b8 39 3a f3 54  |..\h~:.I%=0.9:.T|
0001f360  24 0d bd ec 3d e7 54 24  3c 3e 22 2a 22 f2 73 65  |$...=.T$<>"*".se|
0001f370  74 69 28 77 5f 77 6f 72  64 25 2c 49 25 2b 33 30  |ti(w_word%,I%+30|
0001f380  2c 54 24 29 3a 8b f2 6c  6f 73 65 69 63 6f 6e 28  |,T$):..loseicon(|
0001f390  77 5f 77 6f 72 64 25 2c  49 25 2b 33 30 29 0d bd  |w_word%,I%+30)..|
0001f3a0  f6 22 ed 3a f2 73 65 6c  69 28 77 5f 77 6f 72 64  |.".:.seli(w_word|
0001f3b0  25 2c 33 30 2b 77 6f 25  28 66 69 6c 65 25 29 29  |%,30+wo%(file%))|
0001f3c0  0d be 00 24 e7 a4 66 6c  67 28 66 5f 77 73 70 63  |...$..flg(f_wspc|
0001f3d0  25 29 3a f2 73 65 6c 69  28 77 5f 77 6f 72 64 25  |%):.seli(w_word%|
0001f3e0  2c 34 30 29 0d be 0a 24  e7 a4 66 6c 67 28 66 5f  |,40)...$..flg(f_|
0001f3f0  77 75 70 70 25 29 3a f2  73 65 6c 69 28 77 5f 77  |wupp%):.seli(w_w|
0001f400  6f 72 64 25 2c 34 31 29  0d be 14 24 e7 a4 66 6c  |ord%,41)...$..fl|
0001f410  67 28 66 5f 77 62 6e 6b  25 29 3a f2 73 65 6c 69  |g(f_wbnk%):.seli|
0001f420  28 77 5f 77 6f 72 64 25  2c 34 34 29 0d be 1e 05  |(w_word%,44)....|
0001f430  e1 0d be 28 49 dc 20 41  53 43 49 49 20 28 54 53  |...(I. ASCII (TS|
0001f440  56 29 2c 56 69 65 77 2c  49 6e 74 65 72 57 6f 72  |V),View,InterWor|
0001f450  64 2c 31 73 74 57 6f 72  64 2b 2c 43 53 56 2c 50  |d,1stWord+,CSV,P|
0001f460  69 70 65 64 72 65 61 6d  2c 57 6f 72 64 57 69 73  |ipedream,WordWis|
0001f470  65 2b 2c 44 49 46 2c 2a  2c 2a 0d be 32 04 0d be  |e+,DIF,*,*..2...|
0001f480  3c 31 dd f2 72 73 65 74  35 31 3a 77 5f 72 73 65  |<1..rset51:w_rse|
0001f490  74 31 25 3d a4 63 72 77  69 6e 64 28 74 77 5f 72  |t1%=.crwind(tw_r|
0001f4a0  73 65 74 31 25 29 3a f2  72 73 65 74 35 31 69 0d  |set1%):.rset51i.|
0001f4b0  be 46 19 f2 64 69 61 6c  6f 67 75 65 28 77 5f 72  |.F..dialogue(w_r|
0001f4c0  73 65 74 31 25 29 3a e1  0d be 50 04 0d be 5a 20  |set1%):...P...Z |
0001f4d0  dd f2 72 73 65 74 35 31  69 3a ea 54 25 2c 49 25  |..rset51i:.T%,I%|
0001f4e0  3a 54 25 3d 77 5f 72 73  65 74 31 25 0d be 64 56  |:T%=w_rset1%..dV|
0001f4f0  f2 75 6e 73 65 6c 61 6c  6c 28 54 25 29 3a e7 a4  |.unselall(T%):..|
0001f500  66 6c 67 28 66 5f 72 6c  64 75 25 29 f2 73 65 6c  |flg(f_rldu%).sel|
0001f510  69 28 54 25 2c 33 36 29  3a 8b e7 a4 66 6c 67 28  |i(T%,36):...flg(|
0001f520  66 5f 72 6c 73 75 25 29  f2 73 65 6c 69 28 54 25  |f_rlsu%).seli(T%|
0001f530  2c 33 37 29 3a 8b f2 73  65 6c 69 28 54 25 2c 33  |,37):..seli(T%,3|
0001f540  35 29 0d be 6e 29 e3 49  25 3d 30 b8 33 3a f2 73  |5)..n).I%=0.3:.s|
0001f550  65 74 69 28 54 25 2c 49  25 2b 31 2c 70 24 28 66  |eti(T%,I%+1,p$(f|
0001f560  69 6c 65 25 2c 49 25 29  29 3a ed 0d be 78 05 e1  |ile%,I%)):...x..|
0001f570  0d be 82 04 0d be 8c 31  dd f2 72 73 65 74 35 32  |.......1..rset52|
0001f580  3a 77 5f 72 73 65 74 32  25 3d a4 63 72 77 69 6e  |:w_rset2%=.crwin|
0001f590  64 28 74 77 5f 72 73 65  74 32 25 29 3a f2 72 73  |d(tw_rset2%):.rs|
0001f5a0  65 74 35 32 69 0d be 96  19 f2 64 69 61 6c 6f 67  |et52i.....dialog|
0001f5b0  75 65 28 77 5f 72 73 65  74 32 25 29 3a e1 0d be  |ue(w_rset2%):...|
0001f5c0  a0 04 0d be aa 20 dd f2  72 73 65 74 35 32 69 3a  |..... ..rset52i:|
0001f5d0  ea 54 25 2c 49 25 3a 54  25 3d 77 5f 72 73 65 74  |.T%,I%:T%=w_rset|
0001f5e0  32 25 0d be b4 56 f2 75  6e 73 65 6c 61 6c 6c 28  |2%...V.unselall(|
0001f5f0  54 25 29 3a e7 a4 66 6c  67 28 66 5f 72 74 70 67  |T%):..flg(f_rtpg|
0001f600  25 29 f2 73 65 6c 69 28  54 25 2c 35 31 29 3a 8b  |%).seli(T%,51):.|
0001f610  e7 a4 66 6c 67 28 66 5f  72 74 73 75 25 29 f2 73  |..flg(f_rtsu%).s|
0001f620  65 6c 69 28 54 25 2c 35  32 29 3a 8b f2 73 65 6c  |eli(T%,52):..sel|
0001f630  69 28 54 25 2c 35 30 29  0d be be 2c e3 49 25 3d  |i(T%,50)...,.I%=|
0001f640  30 b8 33 3a f2 73 65 74  69 28 54 25 2c 49 25 2b  |0.3:.seti(T%,I%+|
0001f650  34 32 2c 70 24 28 66 69  6c 65 25 2c 49 25 2b 34  |42,p$(file%,I%+4|
0001f660  29 29 3a ed 0d be c8 05  e1 0d be d2 04 0d be dc  |)):.............|
0001f670  31 dd f2 72 73 65 74 35  33 3a 77 5f 72 73 65 74  |1..rset53:w_rset|
0001f680  33 25 3d a4 63 72 77 69  6e 64 28 74 77 5f 72 73  |3%=.crwind(tw_rs|
0001f690  65 74 33 25 29 3a f2 72  73 65 74 35 33 69 0d be  |et3%):.rset53i..|
0001f6a0  e6 19 f2 64 69 61 6c 6f  67 75 65 28 77 5f 72 73  |...dialogue(w_rs|
0001f6b0  65 74 33 25 29 3a e1 0d  be f0 04 0d be fa 20 dd  |et3%):........ .|
0001f6c0  f2 72 73 65 74 35 33 69  3a ea 54 25 2c 49 25 3a  |.rset53i:.T%,I%:|
0001f6d0  54 25 3d 77 5f 72 73 65  74 33 25 0d bf 04 11 f2  |T%=w_rset3%.....|
0001f6e0  75 6e 73 65 6c 61 6c 6c  28 54 25 29 0d bf 0e 1e  |unselall(T%)....|
0001f6f0  e7 a4 66 6c 67 28 66 5f  72 65 6a 62 25 29 f2 73  |..flg(f_rejb%).s|
0001f700  65 6c 69 28 54 25 2c 32  39 29 0d bf 18 1e e7 a4  |eli(T%,29)......|
0001f710  66 6c 67 28 66 5f 72 65  6a 61 25 29 f2 73 65 6c  |flg(f_reja%).sel|
0001f720  69 28 54 25 2c 33 30 29  0d bf 22 1e e7 a4 66 6c  |i(T%,30).."...fl|
0001f730  67 28 66 5f 72 64 73 70  25 29 f2 73 65 6c 69 28  |g(f_rdsp%).seli(|
0001f740  54 25 2c 33 31 29 0d bf  2c 1e e7 a4 66 6c 67 28  |T%,31)..,...flg(|
0001f750  66 5f 72 74 70 6e 25 29  f2 73 65 6c 69 28 54 25  |f_rtpn%).seli(T%|
0001f760  2c 33 32 29 0d bf 36 1e  e7 a4 66 6c 67 28 66 5f  |,32)..6...flg(f_|
0001f770  72 62 70 6e 25 29 f2 73  65 6c 69 28 54 25 2c 33  |rbpn%).seli(T%,3|
0001f780  33 29 0d bf 40 1e e7 a4  66 6c 67 28 66 5f 72 70  |3)..@...flg(f_rp|
0001f790  64 74 25 29 f2 73 65 6c  69 28 54 25 2c 33 34 29  |dt%).seli(T%,34)|
0001f7a0  0d bf 4a 30 f7 2b 31 3a  e3 49 25 3d 30 b8 34 3a  |..J0.+1:.I%=0.4:|
0001f7b0  f3 4a 25 3a f2 73 65 74  69 28 54 25 2c 4a 25 2c  |.J%:.seti(T%,J%,|
0001f7c0  c3 70 25 28 66 69 6c 65  25 2c 49 25 29 29 3a ed  |.p%(file%,I%)):.|
0001f7d0  0d bf 54 25 f2 73 65 74  69 28 54 25 2c 33 38 2c  |..T%.seti(T%,38,|
0001f7e0  c3 a4 70 72 77 69 64 74  68 29 3a f2 72 6d 61 72  |..prwidth):.rmar|
0001f7f0  67 69 6e 3a e1 0d bf 5e  12 dc 37 2c 31 32 2c 31  |gin:...^..7,12,1|
0001f800  36 2c 32 36 2c 32 32 0d  bf 68 04 0d bf 72 18 dd  |6,26,22..h...r..|
0001f810  f2 73 72 66 69 65 6c 64  28 f8 20 58 25 2c f8 20  |.srfield(. X%,. |
0001f820  67 25 29 0d bf 7c 1c c8  99 73 77 69 25 2c 73 64  |g%)..|...swi%,sd|
0001f830  36 35 5f 25 2c 58 25 2d  31 b8 47 25 2c 50 25 0d  |65_%,X%-1.G%,P%.|
0001f840  bf 86 13 67 25 3d 47 25  3a 58 25 3d 50 25 2b 31  |...g%=G%:X%=P%+1|
0001f850  3a e1 0d bf 90 04 0d bf  9a 1b dd f2 73 72 78 6e  |:...........srxn|
0001f860  65 78 74 28 f8 20 58 25  2c f8 20 66 25 2c 64 25  |ext(. X%,. f%,d%|
0001f870  29 0d bf a4 07 ea 4c 25  0d bf ae 0a e7 64 25 3e  |).....L%.....d%>|
0001f880  30 8c 0d bf b8 19 c8 99  73 77 69 25 2c 73 64 31  |0.......swi%,sd1|
0001f890  37 5f 25 2c 31 2c 66 25  b8 47 25 0d bf c2 1f 58  |7_%,1,f%.G%....X|
0001f8a0  25 2b 3d 47 25 2b 31 3a  e7 58 25 3e a9 a4 73 72  |%+=G%+1:.X%>..sr|
0001f8b0  65 70 28 31 29 3a 58 25  3d 31 0d bf cc 05 cc 0d  |ep(1):X%=1......|
0001f8c0  bf d6 0a e7 58 25 3e 31  8c 0d bf e0 1f 58 25 2d  |....X%>1.....X%-|
0001f8d0  3d 32 3a c8 99 73 77 69  25 2c 73 64 31 37 5f 25  |=2:..swi%,sd17_%|
0001f8e0  2c 34 2c 66 25 b8 47 25  0d bf ea 13 e7 28 47 25  |,4,f%.G%.....(G%|
0001f8f0  80 37 29 3c 3e 37 58 25  2d 3d 32 0d bf f4 05 cd  |.7)<>7X%-=2.....|
0001f900  0d bf fe 05 cd 0d c0 08  15 f2 73 72 66 69 65 6c  |..........srfiel|
0001f910  64 28 58 25 2c 66 25 29  3a e1 0d c0 12 04 0d c0  |d(X%,f%):.......|
0001f920  1c 0d dd f2 61 73 63 63  61 72 64 0d c0 26 1f ea  |....asccard..&..|
0001f930  68 25 2c 49 25 2c 54 25  3a 54 25 3d 8e 66 69 6c  |h%,I%,T%:T%=.fil|
0001f940  65 24 3a e7 54 25 3d 30  3a e1 0d c0 30 28 49 25  |e$:.T%=0:...0(I%|
0001f950  3d 31 3a 68 25 3d a4 68  74 3a c8 95 49 25 3c 3d  |=1:h%=.ht:..I%<=|
0001f960  68 25 80 ac c5 23 54 25  3a 24 73 64 25 3d be 23  |h%...#T%:$sd%=.#|
0001f970  54 25 0d c0 3a 18 c8 99  73 77 69 25 2c 73 64 30  |T%..:...swi%,sd0|
0001f980  30 5f 25 2c 73 64 25 2c  49 25 0d c0 44 22 49 25  |0_%,sd%,I%..D"I%|
0001f990  2b 3d 31 3a ce 3a d9 23  54 25 3a c8 99 73 77 69  |+=1:.:.#T%:..swi|
0001f9a0  25 2c 73 64 33 38 5f 25  2c 32 35 35 0d c0 4e 11  |%,sd38_%,255..N.|
0001f9b0  c8 99 73 77 69 25 2c 73  64 33 38 5f 25 0d c0 58  |..swi%,sd38_%..X|
0001f9c0  19 f2 66 6f 72 63 65 63  61 72 64 3a f2 6e 6f 73  |..forcecard:.nos|
0001f9d0  63 72 61 70 3a e1 0d c0  62 04 0d c0 6c 22 dd f2  |crap:...b...l"..|
0001f9e0  6c 77 69 64 74 68 3a ea  41 25 2c 54 25 2c 57 25  |lwidth:.A%,T%,W%|
0001f9f0  3a 57 25 3d 77 6f 72 6b  62 75 66 25 0d c0 76 33  |:W%=workbuf%..v3|
0001fa00  f7 8d 44 42 7b 3a e3 54  25 3d 30 b8 32 30 88 34  |..DB{:.T%=0.20.4|
0001fa10  3a f3 41 25 3a 57 25 21  54 25 3d bb 24 a4 69 61  |:.A%:W%!T%=.$.ia|
0001fa20  28 77 5f 6c 61 62 65 6c  25 2c 41 25 29 3a ed 0d  |(w_label%,A%):..|
0001fa30  c0 80 3a 54 25 3d 28 21  57 25 2b 57 25 21 38 29  |..:T%=(!W%+W%!8)|
0001fa40  2a 57 25 21 31 36 2d 57  25 21 38 2b 57 25 21 34  |*W%!16-W%!8+W%!4|
0001fa50  3a f2 73 65 74 69 28 77  5f 6c 61 62 65 6c 25 2c  |:.seti(w_label%,|
0001fa60  32 36 2c c3 54 25 29 3a  e1 0d c0 8a 15 dc 31 32  |26,.T%):......12|
0001fa70  2c 34 31 2c 32 33 2c 36  2c 31 35 2c 31 39 0d c0  |,41,23,6,15,19..|
0001fa80  94 04 0d c0 9e 19 dd a4  6c 77 69 64 74 68 3a ea  |........lwidth:.|
0001fa90  68 25 3a 68 25 3d 66 69  6c 65 25 0d c0 a8 38 3d  |h%:h%=file%...8=|
0001faa0  6c 6c 25 28 68 25 2c 31  29 2b 28 6c 6c 25 28 68  |ll%(h%,1)+(ll%(h|
0001fab0  25 2c 30 29 2b 6c 6c 25  28 68 25 2c 32 29 29 2a  |%,0)+ll%(h%,2))*|
0001fac0  6c 6c 25 28 68 25 2c 34  29 2d 6c 6c 25 28 68 25  |ll%(h%,4)-ll%(h%|
0001fad0  2c 32 29 0d c0 b2 04 0d  c0 bc 10 dd a4 64 75 6d  |,2)..........dum|
0001fae0  6c 61 62 28 4c 25 29 0d  c0 c6 23 ea 54 24 2c 74  |lab(L%)...#.T$,t|
0001faf0  24 2c 54 25 3a 74 24 3d  c4 6c 6c 25 28 66 69 6c  |$,T%:t$=.ll%(fil|
0001fb00  65 25 2c 31 29 2c 22 20  22 29 0d c0 d0 31 54 24  |e%,1)," ")...1T$|
0001fb10  3d 22 5b 22 2b c1 22 88  8a 89 22 2c a4 6a 75 73  |="["+."...",.jus|
0001fb20  74 6c 28 4c 25 29 2b 31  2c 31 29 2b c3 28 a4 66  |tl(L%)+1,1)+.(.f|
0001fb30  6f 6e 74 6c 28 4c 25 29  2b 31 29 0d c0 da 15 e7  |ontl(L%)+1).....|
0001fb40  a4 73 70 63 6c 28 4c 25  29 54 24 2b 3d 22 53 22  |.spcl(L%)T$+="S"|
0001fb50  0d c0 e4 15 e7 a4 75 70  70 6c 28 4c 25 29 54 24  |......uppl(L%)T$|
0001fb60  2b 3d 22 55 22 0d c0 ee  15 e7 a4 66 69 78 6c 28  |+="U"......fixl(|
0001fb70  4c 25 29 54 24 2b 3d 22  46 22 0d c0 f8 25 54 24  |L%)T$+="F"...%T$|
0001fb80  2b 3d 22 5d 22 3a 54 25  3d 6c 6c 25 28 66 69 6c  |+="]":T%=ll%(fil|
0001fb90  65 25 2c 30 29 3a e7 54  25 3c 3d a9 54 24 8c 0d  |e%,0):.T%<=.T$..|
0001fba0  c1 02 0e 54 24 3d c0 54  24 2c 54 25 29 0d c1 0c  |...T$=.T$,T%)...|
0001fbb0  05 cc 0d c1 16 11 c8 8e  a4 6a 75 73 74 6c 28 4c  |.........justl(L|
0001fbc0  25 29 ca 0d c1 20 17 c9  30 3a 54 24 2b 3d c4 54  |%)... ..0:T$+=.T|
0001fbd0  25 2d a9 54 24 2c 22 2a  22 29 0d c1 2a 2e c9 31  |%-.T$,"*")..*..1|
0001fbe0  3a 54 24 3d c4 28 54 25  2d a9 54 24 29 81 32 2c  |:T$=.(T%-.T$).2,|
0001fbf0  22 2a 22 29 2b 54 24 3a  54 24 2b 3d c4 54 25 2d  |"*")+T$:T$+=.T%-|
0001fc00  a9 54 24 2c 22 2a 22 29  0d c1 34 19 c9 32 3a 54  |.T$,"*")..4..2:T|
0001fc10  24 3d c4 54 25 2d a9 54  24 2c 22 2a 22 29 2b 54  |$=.T%-.T$,"*")+T|
0001fc20  24 0d c1 3e 05 cb 0d c1  48 05 cd 0d c1 52 20 54  |$..>....H....R T|
0001fc30  25 3d 6c 6c 25 28 66 69  6c 65 25 2c 34 29 3a c8  |%=ll%(file%,4):.|
0001fc40  95 54 25 3e 30 3a 54 25  2d 3d 31 0d c1 5c 16 e7  |.T%>0:T%-=1..\..|
0001fc50  a9 74 24 2b a9 54 24 3c  32 35 35 74 24 2b 3d 54  |.t$+.T$<255t$+=T|
0001fc60  24 0d c1 66 34 e7 a9 74  24 2b 6c 6c 25 28 66 69  |$..f4..t$+ll%(fi|
0001fc70  6c 65 25 2c 32 29 3c 32  35 35 80 54 25 3e 30 74  |le%,2)<255.T%>0t|
0001fc80  24 2b 3d c4 6c 6c 25 28  66 69 6c 65 25 2c 32 29  |$+=.ll%(file%,2)|
0001fc90  2c 22 20 22 29 0d c1 70  09 ce 3a 3d 74 24 0d c1  |," ")..p..:=t$..|
0001fca0  7a 04 0d c1 84 2b dd a4  6a 75 73 74 6c 28 4c 25  |z....+..justl(L%|
0001fcb0  29 3a e7 4c 25 3e 31 35  3a 3d 30 3a 8b 3d 6c 66  |):.L%>15:=0:.=lf|
0001fcc0  25 28 66 69 6c 65 25 2c  4c 25 29 80 33 0d c1 8e  |%(file%,L%).3...|
0001fcd0  32 dd a4 66 6f 6e 74 6c  28 4c 25 29 3a e7 4c 25  |2..fontl(L%):.L%|
0001fce0  3e 31 35 3a 3d 30 3a 8b  3d 28 6c 66 25 28 66 69  |>15:=0:.=(lf%(fi|
0001fcf0  6c 65 25 2c 4c 25 29 80  31 32 29 3e 3e 3e 32 0d  |le%,L%).12)>>>2.|
0001fd00  c1 98 30 dd a4 73 70 63  6c 28 4c 25 29 3a e7 4c  |..0..spcl(L%):.L|
0001fd10  25 3e 31 35 3a 3d a3 3a  8b 3d 28 6c 66 25 28 66  |%>15:=.:.=(lf%(f|
0001fd20  69 6c 65 25 2c 4c 25 29  80 31 36 29 3c 3e 30 0d  |ile%,L%).16)<>0.|
0001fd30  c1 a2 30 dd a4 75 70 70  6c 28 4c 25 29 3a e7 4c  |..0..uppl(L%):.L|
0001fd40  25 3e 31 35 3a 3d a3 3a  8b 3d 28 6c 66 25 28 66  |%>15:=.:.=(lf%(f|
0001fd50  69 6c 65 25 2c 4c 25 29  80 33 32 29 3c 3e 30 0d  |ile%,L%).32)<>0.|
0001fd60  c1 ac 30 dd a4 66 69 78  6c 28 4c 25 29 3a e7 4c  |..0..fixl(L%):.L|
0001fd70  25 3e 31 35 3a 3d a3 3a  8b 3d 28 6c 66 25 28 66  |%>15:=.:.=(lf%(f|
0001fd80  69 6c 65 25 2c 4c 25 29  80 36 34 29 3c 3e 30 0d  |ile%,L%).64)<>0.|
0001fd90  c1 b6 04 0d c1 c0 14 dd  f2 6c 61 62 6c 69 6e 65  |.........labline|
0001fda0  28 74 25 2c 4f 25 29 0d  c1 ca 33 ea 4a 25 2c 4b  |(t%,O%)...3.J%,K|
0001fdb0  25 2c 62 25 2c 66 25 2c  68 25 2c 69 25 2c 6a 25  |%,b%,f%,h%,i%,j%|
0001fdc0  2c 6c 25 2c 67 25 2c 77  25 2c 77 2c 54 24 2c 54  |,l%,g%,w%,w,T$,T|
0001fdd0  25 2c 74 3a 68 25 3d a4  68 74 0d c1 d4 29 ea 85  |%,t:h%=.ht...)..|
0001fde0  3a ee 85 ea 3a f7 85 3a  c8 99 73 77 69 25 2c 73  |:...:..:..swi%,s|
0001fdf0  64 33 38 5f 25 2c 30 2c  73 64 24 3a f2 65 72 72  |d38_%,0,sd$:.err|
0001fe00  28 30 29 0d c1 de 3a 65  25 28 66 69 6c 65 25 2c  |(0)...:e%(file%,|
0001fe10  30 29 2b 3d 31 3a e7 65  25 28 66 69 6c 65 25 2c  |0)+=1:.e%(file%,|
0001fe20  30 29 3e 6c 6c 25 28 66  69 6c 65 25 2c 33 29 3a  |0)>ll%(file%,3):|
0001fe30  65 25 28 66 69 6c 65 25  2c 30 29 3d 31 0d c1 e8  |e%(file%,0)=1...|
0001fe40  0a e7 74 25 3d 31 8c 0d  c1 f2 18 c8 99 73 77 69  |..t%=1.......swi|
0001fe50  25 2c 73 64 33 38 5f 25  2c 34 32 2c 73 64 24 0d  |%,sd38_%,42,sd$.|
0001fe60  c1 fc 05 cc 0d c2 06 2b  54 25 3d 65 25 28 66 69  |.......+T%=e%(fi|
0001fe70  6c 65 25 2c 32 29 3a 62  25 3d a3 3a c8 99 73 77  |le%,2):b%=.:..sw|
0001fe80  69 25 2c 67 72 65 63 5f  25 2c 54 25 b8 4e 25 0d  |i%,grec_%,T%.N%.|
0001fe90  c2 10 0c f2 73 68 6f 77  6e 75 6d 0d c2 1a 05 cd  |....shownum.....|
0001fea0  0d c2 24 c5 e7 6c 6c 25  28 66 69 6c 65 25 2c 37  |..$..ll%(file%,7|
0001feb0  29 3a e7 28 6c 61 62 6c  69 6e 65 25 2d 6c 6c 25  |):.(labline%-ll%|
0001fec0  28 66 69 6c 65 25 2c 36  29 29 83 6c 6c 25 28 66  |(file%,6)).ll%(f|
0001fed0  69 6c 65 25 2c 33 29 3d  30 3a e7 6c 6c 25 28 66  |ile%,3)=0:.ll%(f|
0001fee0  69 6c 65 25 2c 37 29 3e  6c 6c 25 28 66 69 6c 65  |ile%,7)>ll%(file|
0001fef0  25 2c 33 29 2b 6c 6c 25  28 66 69 6c 65 25 2c 36  |%,3)+ll%(file%,6|
0001ff00  29 3a e7 6c 6c 25 28 66  69 6c 65 25 2c 37 29 2d  |):.ll%(file%,7)-|
0001ff10  6c 61 62 6c 69 6e 65 25  3c 6c 6c 25 28 66 69 6c  |labline%<ll%(fil|
0001ff20  65 25 2c 33 29 3a c8 95  6c 61 62 6c 69 6e 65 25  |e%,3):..labline%|
0001ff30  3c 6c 6c 25 28 66 69 6c  65 25 2c 37 29 3a f2 6f  |<ll%(file%,7):.o|
0001ff40  70 72 69 6e 74 28 22 22  2c 4f 25 29 3a 6c 61 62  |print("",O%):lab|
0001ff50  6c 69 6e 65 25 2b 3d 31  3a ce 3a 6c 61 62 6c 69  |line%+=1:.:labli|
0001ff60  6e 65 25 3d 30 0d c2 2e  76 e7 6c 61 62 6c 69 6e  |ne%=0...v.lablin|
0001ff70  65 25 3d 30 3a e7 6c 6c  25 28 66 69 6c 65 25 2c  |e%=0:.ll%(file%,|
0001ff80  36 29 3a e7 6c 6c 25 28  66 69 6c 65 25 2c 36 29  |6):.ll%(file%,6)|
0001ff90  3c 3d 6c 6c 25 28 66 69  6c 65 25 2c 37 29 2d 6c  |<=ll%(file%,7)-l|
0001ffa0  6c 25 28 66 69 6c 65 25  2c 33 29 3a e3 4a 25 3d  |l%(file%,3):.J%=|
0001ffb0  31 b8 6c 6c 25 28 66 69  6c 65 25 2c 36 29 3a f2  |1.ll%(file%,6):.|
0001ffc0  6f 70 72 69 6e 74 28 22  22 2c 4f 25 29 3a 6c 61  |oprint("",O%):la|
0001ffd0  62 6c 69 6e 65 25 2b 3d  31 3a ed 0d c2 38 12 6c  |bline%+=1:...8.l|
0001ffe0  25 3d 65 25 28 66 69 6c  65 25 2c 31 29 0d c2 42  |%=e%(file%,1)..B|
0001fff0  30 f2 6f 66 6f 6e 74 28  31 2c 4f 25 29 3a f2 6f  |0.ofont(1,O%):.o|
00020000  70 72 69 6e 74 31 28 c4  6c 6c 25 28 66 69 6c 65  |print1(.ll%(file|
00020010  25 2c 31 29 2c 22 20 22  29 2c 4f 25 29 0d c2 4c  |%,1)," "),O%)..L|
00020020  26 6c 61 62 6c 69 6e 65  25 2b 3d 31 3a 77 3d 30  |&labline%+=1:w=0|
00020030  3a e3 4a 25 3d 31 b8 6c  6c 25 28 66 69 6c 65 25  |:.J%=1.ll%(file%|
00020040  2c 34 29 0d c2 56 1f e7  28 a4 76 5f 28 31 35 29  |,4)..V..(.v_(15)|
00020050  3e a4 76 5f 28 31 37 29  80 74 25 3d 30 29 84 62  |>.v_(17).t%=0).b|
00020060  25 8c 0d c2 60 0b 24 73  64 25 3d 22 22 0d c2 6a  |%...`.$sd%=""..j|
00020070  05 cc 0d c2 74 18 4b 25  3d 6c 31 25 28 66 69 6c  |....t.K%=l1%(fil|
00020080  65 25 2c 4a 25 2d 31 29  3a f5 0d c2 7e 28 e7 4b  |e%,J%-1):...~(.K|
00020090  25 3e 68 25 24 73 64 25  3d 22 22 3a 8b c8 99 73  |%>h%$sd%="":...s|
000200a0  77 69 25 2c 67 6c 69 6e  65 5f 25 2c 4b 25 2c 73  |wi%,gline_%,K%,s|
000200b0  64 24 0d c2 88 12 c8 99  73 77 69 25 2c 73 74 72  |d$......swi%,str|
000200c0  69 70 5f 25 0d c2 92 2e  e7 a4 73 70 63 6c 28 4b  |ip_%......spcl(K|
000200d0  25 2d 31 29 3a 24 73 64  25 3d a4 73 73 28 24 73  |%-1):$sd%=.ss($s|
000200e0  64 25 29 3a c8 99 73 77  69 25 2c 73 74 72 69 70  |d%):..swi%,strip|
000200f0  5f 25 0d c2 9c 1f e7 a4  75 70 70 6c 28 4b 25 2d  |_%......uppl(K%-|
00020100  31 29 3a c8 99 73 77 69  25 2c 75 70 70 65 72 5f  |1):..swi%,upper_|
00020110  25 0d c2 a6 26 4b 25 2b  3d 31 3a fd 24 73 64 25  |%...&K%+=1:.$sd%|
00020120  3e 22 22 84 a4 66 69 78  6c 28 4b 25 2d 32 29 84  |>""..fixl(K%-2).|
00020130  4b 25 3e 68 25 2b 31 0d  c2 b0 31 e7 a4 66 69 78  |K%>h%+1...1..fix|
00020140  6c 28 4b 25 2d 32 29 3a  e7 4b 25 2d 31 3c 3e 65  |l(K%-2):.K%-1<>e|
00020150  25 28 66 69 6c 65 25 2c  30 29 3a 24 73 64 25 3d  |%(file%,0):$sd%=|
00020160  22 22 3a 4b 25 2d 3d 31  0d c2 ba 31 66 25 3d a4  |"":K%-=1...1f%=.|
00020170  66 6f 6e 74 6c 28 4b 25  2d 32 29 2b 31 3a e7 66  |fontl(K%-2)+1:.f|
00020180  25 3c 31 84 24 73 64 25  3d c4 a9 24 73 64 25 2c  |%<1.$sd%=..$sd%,|
00020190  22 20 22 29 3a 66 25 3d  31 0d c2 c4 27 74 3d 31  |" "):f%=1...'t=1|
000201a0  3a e7 70 64 72 69 76 65  72 25 74 3d 50 44 63 70  |:.pdriver%t=PDcp|
000201b0  6c 25 28 66 25 29 2f 50  44 63 70 6c 25 28 31 29  |l%(f%)/PDcpl%(1)|
000201c0  0d c2 ce 2e 77 25 3d 28  4a 25 2a 28 6c 6c 25 28  |....w%=(J%*(ll%(|
000201d0  66 69 6c 65 25 2c 30 29  2b 6c 6c 25 28 66 69 6c  |file%,0)+ll%(fil|
000201e0  65 25 2c 32 29 29 2d 77  29 2a 74 2b 2e 35 0d c2  |e%,2))-w)*t+.5..|
000201f0  d8 47 77 2b 3d 77 25 2f  74 3a f2 6f 66 6f 6e 74  |.Gw+=w%/t:.ofont|
00020200  28 66 25 2c 4f 25 29 3a  67 25 3d 6c 6c 25 28 66  |(f%,O%):g%=ll%(f|
00020210  69 6c 65 25 2c 32 29 2a  74 2b 2e 35 3a e7 67 25  |ile%,2)*t+.5:.g%|
00020220  3d 30 80 6c 6c 25 28 66  69 6c 65 25 2c 32 29 3e  |=0.ll%(file%,2)>|
00020230  30 67 25 3d 31 0d c2 e2  3d f2 70 70 65 78 70 61  |0g%=1...=.ppexpa|
00020240  6e 64 28 24 73 64 25 29  3a 6a 25 3d a4 6a 75 73  |nd($sd%):j%=.jus|
00020250  74 6c 28 4b 25 2d 32 29  3a e7 6a 25 3d 31 84 6a  |tl(K%-2):.j%=1.j|
00020260  25 3d 32 3a c8 99 73 77  69 25 2c 73 74 72 69 70  |%=2:..swi%,strip|
00020270  5f 25 0d c2 ec 3a e7 6a  25 3d 31 24 73 64 25 3d  |_%...:.j%=1$sd%=|
00020280  c0 24 73 64 25 2c 77 25  2d 67 25 29 3a 24 73 64  |.$sd%,w%-g%):$sd|
00020290  25 3d c4 28 77 25 2d 67  25 2d a9 24 73 64 25 29  |%=.(w%-g%-.$sd%)|
000202a0  2f 32 2c 22 20 22 29 2b  24 73 64 25 0d c2 f6 3d  |/2," ")+$sd%...=|
000202b0  e7 6a 25 3d 30 84 6a 25  3d 31 3a 24 73 64 25 3d  |.j%=0.j%=1:$sd%=|
000202c0  c0 24 73 64 25 2c 77 25  2d 67 25 29 3a 24 73 64  |.$sd%,w%-g%):$sd|
000202d0  25 3d c0 24 73 64 25 2b  c4 77 25 2c 22 20 22 29  |%=.$sd%+.w%," ")|
000202e0  2b 24 73 64 25 2c 77 25  29 0d c3 00 2f e7 6a 25  |+$sd%,w%).../.j%|
000202f0  3d 32 24 73 64 25 3d c2  c4 77 25 2d 67 25 2c 22  |=2$sd%=..w%-g%,"|
00020300  20 22 29 2b 24 73 64 25  2c 77 25 2d 67 25 29 2b  | ")+$sd%,w%-g%)+|
00020310  c4 67 25 2c 22 20 22 29  0d c3 0a 38 e7 74 25 3d  |.g%," ")...8.t%=|
00020320  31 80 28 65 25 28 66 69  6c 65 25 2c 30 29 3c 3e  |1.(e%(file%,0)<>|
00020330  6c 6c 25 28 66 69 6c 65  25 2c 33 29 84 24 73 64  |ll%(file%,3).$sd|
00020340  25 3c 3e c4 a9 24 73 64  25 2c 22 20 22 29 29 8c  |%<>..$sd%," ")).|
00020350  0d c3 14 29 e3 69 25 3d  30 b8 a9 24 73 64 25 2d  |...).i%=0..$sd%-|
00020360  67 25 2d 31 3a e7 73 64  25 3f 69 25 3d 33 32 3a  |g%-1:.sd%?i%=32:|
00020370  73 64 25 3f 69 25 3d 34  36 0d c3 1e 05 ed 0d c3  |sd%?i%=46.......|
00020380  28 05 cd 0d c3 32 29 e7  4a 25 3d 6c 6c 25 28 66  |(....2).J%=ll%(f|
00020390  69 6c 65 25 2c 34 29 3a  24 73 64 25 3d c0 24 73  |ile%,4):$sd%=.$s|
000203a0  64 25 2c a9 24 73 64 25  2d 67 25 29 0d c3 3c 28  |d%,.$sd%-g%)..<(|
000203b0  6c 31 25 28 66 69 6c 65  25 2c 4a 25 2d 31 29 3d  |l1%(file%,J%-1)=|
000203c0  4b 25 3a f2 6f 70 72 69  6e 74 31 28 24 73 64 25  |K%:.oprint1($sd%|
000203d0  2c 4f 25 29 0d c3 46 1b  6c 25 2b 3d 31 3a e7 6c  |,O%)..F.l%+=1:.l|
000203e0  25 3e 6c 6c 25 28 66 69  6c 65 25 2c 35 29 8c 0d  |%>ll%(file%,5)..|
000203f0  c3 50 1d e7 74 25 3d 30  3a f2 73 64 6e 65 78 74  |.P..t%=0:.sdnext|
00020400  3a 8b e7 74 25 3d 32 3a  62 25 3d b9 0d c3 5a 08  |:..t%=2:b%=...Z.|
00020410  6c 25 3d 31 0d c3 64 05  cd 0d c3 6e 05 cd 0d c3  |l%=1..d....n....|
00020420  78 05 ed 0d c3 82 0e f2  6f 6e 65 77 6c 28 4f 25  |x.......onewl(O%|
00020430  29 0d c3 8c 0a e7 74 25  3d 31 8c 0d c3 96 17 c8  |).....t%=1......|
00020440  99 73 77 69 25 2c 73 64  33 38 5f 25 2c 30 2c 73  |.swi%,sd38_%,0,s|
00020450  64 24 0d c3 a0 4d e7 65  25 28 66 69 6c 65 25 2c  |d$...M.e%(file%,|
00020460  30 29 3d 6c 6c 25 28 66  69 6c 65 25 2c 33 29 65  |0)=ll%(file%,3)e|
00020470  25 28 66 69 6c 65 25 2c  31 29 3d 6c 25 3a e3 69  |%(file%,1)=l%:.i|
00020480  25 3d 30 b8 6d 61 78 61  63 72 25 2d 31 3a 6c 31  |%=0.maxacr%-1:l1|
00020490  25 28 66 69 6c 65 25 2c  69 25 29 3d 31 3a ed 0d  |%(file%,i%)=1:..|
000204a0  c3 aa 05 cc 0d c3 b4 50  e7 28 a4 76 5f 28 31 35  |.......P.(.v_(15|
000204b0  29 3e a4 76 5f 28 31 37  29 84 28 74 25 3d 32 80  |)>.v_(17).(t%=2.|
000204c0  65 25 28 66 69 6c 65 25  2c 31 29 3d 6c 6c 25 28  |e%(file%,1)=ll%(|
000204d0  66 69 6c 65 25 2c 35 29  29 29 80 65 25 28 66 69  |file%,5))).e%(fi|
000204e0  6c 65 25 2c 30 29 3d 6c  6c 25 28 66 69 6c 65 25  |le%,0)=ll%(file%|
000204f0  2c 33 29 8c 0d c3 be 26  e7 74 25 3d 30 80 4f 25  |,3)....&.t%=0.O%|
00020500  3d a3 3a f2 65 6e 64 61  63 74 3a 8b 65 25 28 66  |=.:.endact:.e%(f|
00020510  69 6c 65 25 2c 32 29 3d  2d 31 0d c3 c8 05 cc 0d  |ile%,2)=-1......|
00020520  c3 d2 1e e7 65 25 28 66  69 6c 65 25 2c 30 29 3d  |....e%(file%,0)=|
00020530  6c 6c 25 28 66 69 6c 65  25 2c 33 29 8c 0d c3 dc  |ll%(file%,3)....|
00020540  48 65 25 28 66 69 6c 65  25 2c 32 29 3d a4 76 5f  |He%(file%,2)=.v_|
00020550  28 31 35 29 3a 65 25 28  66 69 6c 65 25 2c 31 29  |(15):e%(file%,1)|
00020560  3d 6c 25 3a e3 69 25 3d  30 b8 6d 61 78 61 63 72  |=l%:.i%=0.maxacr|
00020570  25 2d 31 3a 6c 31 25 28  66 69 6c 65 25 2c 69 25  |%-1:l1%(file%,i%|
00020580  29 3d 31 3a ed 0d c3 e6  05 cc 0d c3 f0 26 54 25  |)=1:.........&T%|
00020590  3d 65 25 28 66 69 6c 65  25 2c 32 29 3a c8 99 73  |=e%(file%,2):..s|
000205a0  77 69 25 2c 67 72 65 63  5f 25 2c 54 25 b8 4e 25  |wi%,grec_%,T%.N%|
000205b0  0d c3 fa 05 cd 0d c4 04  05 cd 0d c4 0e 05 cd 0d  |................|
000205c0  c4 18 05 e1 0d c4 22 04  0d c4 2c 2d dd a4 4d 61  |......"...,-..Ma|
000205d0  6b 65 50 61 62 6c 65 28  41 24 2c 4c 25 29 ea 42  |kePable(A$,L%).B|
000205e0  24 2c 49 25 2c 43 25 2c  4d 25 3a e7 41 24 3d 22  |$,I%,C%,M%:.A$="|
000205f0  22 3a 3d 22 22 0d c4 36  21 e3 49 25 3d 31 b8 a9  |":=""..6!.I%=1..|
00020600  41 24 3a 43 25 3d 97 c1  41 24 2c 49 25 2c 31 29  |A$:C%=..A$,I%,1)|
00020610  3a c8 8e b9 20 ca 0d c4  40 8e c9 43 25 3c 33 32  |:... ...@..C%<32|
00020620  3a e7 a6 2d 33 3a 42 24  2b 3d a4 73 28 c1 22 4e  |:..-3:B$+=.s(."N|
00020630  55 4c 53 4f 48 53 54 58  45 54 58 45 4f 54 45 4e  |ULSOHSTXETXEOTEN|
00020640  51 41 43 4b 42 45 4c 42  53 20 54 41 42 4c 46 20  |QACKBELBS TABLF |
00020650  56 54 20 46 46 20 43 52  20 53 4f 20 53 49 20 44  |VT FF CR SO SI D|
00020660  4c 45 44 43 31 44 43 32  44 43 33 44 43 34 4e 41  |LEDC1DC2DC3DC4NA|
00020670  4b 53 59 4e 45 54 42 43  41 4e 45 4d 20 53 55 42  |KSYNETBCANEM SUB|
00020680  45 53 43 46 53 20 47 53  20 52 53 20 55 53 20 22  |ESCFS GS RS US "|
00020690  2c 43 25 2a 33 2b 31 2c  33 29 29 3a 8b 42 24 2b  |,C%*3+1,3)):.B$+|
000206a0  3d c3 43 25 0d c4 4a 43  c9 43 25 3c 31 32 37 3a  |=.C%..JC.C%<127:|
000206b0  e7 c2 42 24 2c 32 29 3d  22 22 22 2c 22 3a 42 24  |..B$,2)=""",":B$|
000206c0  3d c0 42 24 2c a9 42 24  2d 32 29 2b bd 43 25 2b  |=.B$,.B$-2)+.C%+|
000206d0  22 22 22 22 3a 8b 42 24  2b 3d 22 22 22 22 2b bd  |"""":.B$+=""""+.|
000206e0  43 25 2b 22 22 22 22 0d  c4 54 15 c9 43 25 3d 31  |C%+""""..T..C%=1|
000206f0  32 37 3a 42 24 2b 3d 22  44 45 4c 22 0d c4 5e 0d  |27:B$+="DEL"..^.|
00020700  7f 20 42 24 2b 3d c3 43  25 0d c4 68 05 cb 0d c4  |. B$+=.C%..h....|
00020710  72 1c e7 49 25 3c 3e a9  41 24 3a 42 24 2b 3d 22  |r..I%<>.A$:B$+="|
00020720  2c 22 3a 4d 25 3d 2d 39  39 39 0d c4 7c 1a ed 3a  |,":M%=-999..|..:|
00020730  e7 4d 25 3d 2d 39 39 39  4d 25 3d 31 3a 8b 4d 25  |.M%=-999M%=1:.M%|
00020740  3d a9 41 24 0d c4 86 2f  e7 4d 25 3d 4c 25 84 4c  |=.A$.../.M%=L%.L|
00020750  25 3d 30 3a 3d c0 42 24  2c 33 30 29 3a 8b 3d c0  |%=0:=.B$,30):.=.|
00020760  42 24 2b 22 20 5b 22 2b  c3 4c 25 2b 22 5d 22 2c  |B$+" ["+.L%+"]",|
00020770  33 30 29 0d c4 90 04 0d  c4 9a 21 dd a4 50 43 6f  |30).......!..PCo|
00020780  6e 76 28 41 24 29 ea 57  24 2c 42 24 2c 43 25 3a  |nv(A$).W$,B$,C%:|
00020790  4c 65 6e 67 74 68 3d 30  0d c4 a4 12 f5 57 24 3d  |Length=0.....W$=|
000207a0  a4 74 6f 6b 65 6e 28 41  24 29 0d c4 ae 1a e7 a9  |.token(A$)......|
000207b0  57 24 42 24 2b 3d a4 50  43 32 28 57 24 29 3a 43  |W$B$+=.PC2(W$):C|
000207c0  25 2b 3d 31 0d c4 b8 1c  fd 57 24 3d 22 22 3a e7  |%+=1.....W$="":.|
000207d0  43 25 3d 31 43 25 3d a9  42 24 3a 8b 43 25 3d 31  |C%=1C%=.B$:.C%=1|
000207e0  0d c4 c2 16 e7 4c 65 6e  67 74 68 3c 31 4c 65 6e  |.....Length<1Len|
000207f0  67 74 68 3d 43 25 0d c4  cc 07 3d 42 24 0d c4 d6  |gth=C%....=B$...|
00020800  04 0d c4 e0 13 dd a4 50  43 32 28 57 24 29 ea 41  |.......PC2(W$).A|
00020810  24 2c 41 25 0d c4 ea 13  41 24 3d c0 57 24 2c 31  |$,A%....A$=.W$,1|
00020820  29 3a c8 8e b9 20 ca 0d  c4 f4 43 c9 41 24 3d 22  |):... ....C.A$="|
00020830  22 22 22 2c 41 24 3d 22  27 22 3a e7 c2 57 24 29  |""",A$="'":..W$)|
00020840  3c 3e 41 24 3a 85 32 30  30 2c 22 42 61 64 20 22  |<>A$:.200,"Bad "|
00020850  2b 41 24 2b 22 20 69 74  65 6d 22 3a 8b 3d c1 57  |+A$+" item":.=.W|
00020860  24 2c 32 2c a9 57 24 2d  32 29 0d c4 fe 11 c9 41  |$,2,.W$-2).....A|
00020870  24 3d 22 26 22 3a 3d bd  a0 57 24 0d c5 08 18 c9  |$="&":=..W$.....|
00020880  97 41 24 3e 34 37 80 97  41 24 3c 35 38 3a 3d bd  |.A$>47..A$<58:=.|
00020890  bb 57 24 0d c5 12 4c c9  41 24 3d 22 5b 22 3a e7  |.W$...L.A$="[":.|
000208a0  c2 57 24 29 3c 3e 22 5d  22 3a 85 32 30 30 2c 22  |.W$)<>"]":.200,"|
000208b0  42 61 64 20 6c 65 6e 67  74 68 20 73 70 65 63 69  |Bad length speci|
000208c0  66 69 65 72 22 3a 8b 4c  65 6e 67 74 68 3d bb c1  |fier":.Length=..|
000208d0  57 24 2c 32 2c a9 57 24  2d 32 29 3a 3d 22 22 0d  |W$,2,.W$-2):="".|
000208e0  c5 1c 13 cb 3a 41 24 3d  a4 6c 6f 77 65 72 28 57  |....:A$=.lower(W|
000208f0  24 29 0d c5 26 b1 41 25  3d a7 22 2e 6e 75 6c 2e  |$)..&.A%=.".nul.|
00020900  73 6f 68 2e 73 74 78 2e  65 74 78 2e 65 6f 74 2e  |soh.stx.etx.eot.|
00020910  65 6e 71 2e 61 63 6b 2e  62 65 6c 2e 62 73 20 2e  |enq.ack.bel.bs .|
00020920  74 61 62 2e 6c 66 20 2e  76 74 20 2e 66 66 20 2e  |tab.lf .vt .ff .|
00020930  63 72 20 2e 73 6f 20 2e  73 69 20 2e 64 6c 65 2e  |cr .so .si .dle.|
00020940  64 63 31 2e 64 63 32 2e  64 63 33 2e 64 63 34 2e  |dc1.dc2.dc3.dc4.|
00020950  6e 61 6b 2e 73 79 6e 2e  65 74 62 2e 63 61 6e 2e  |nak.syn.etb.can.|
00020960  65 6d 20 2e 73 75 62 2e  65 73 63 2e 66 73 20 2e  |em .sub.esc.fs .|
00020970  67 73 20 2e 72 73 20 2e  75 73 20 2e 64 65 6c 2e  |gs .rs .us .del.|
00020980  22 2c 22 2e 22 2b c0 41  24 2b 22 20 20 22 2c 33  |","."+.A$+"  ",3|
00020990  29 2b 22 2e 22 29 3a e7  41 25 3d 33 32 41 25 3d  |)+"."):.A%=32A%=|
000209a0  31 32 37 0d c5 30 0d e7  41 25 3d 30 3a 3d 57 24  |127..0..A%=0:=W$|
000209b0  0d c5 3a 0c 3d bd 28 41  25 81 34 29 0d c5 44 04  |..:.=.(A%.4)..D.|
000209c0  0d c5 4e 1a dd a4 74 6f  6b 65 6e 28 f8 20 41 24  |..N...token(. A$|
000209d0  29 ea 42 24 2c 49 25 2c  4a 25 0d c5 58 23 41 24  |).B$,I%,J%..X#A$|
000209e0  3d a4 73 31 28 41 24 29  3a 49 25 3d 31 3a e7 97  |=.s1(A$):I%=1:..|
000209f0  41 24 3d 33 34 84 97 41  24 3d 33 39 8c 0d c5 62  |A$=34..A$=39...b|
00020a00  1f 49 25 3d a7 41 24 2c  bd 97 41 24 2c 32 29 3a  |.I%=.A$,..A$,2):|
00020a10  e7 49 25 3d 30 3a 49 25  3d a9 41 24 0d c5 6c 1b  |.I%=0:I%=.A$..l.|
00020a20  42 24 3d c0 41 24 2c 49  25 29 3a 41 24 3d c1 41  |B$=.A$,I%):A$=.A|
00020a30  24 2c 49 25 2b 31 29 0d  c5 76 2d e7 97 41 24 3d  |$,I%+1)..v-..A$=|
00020a40  97 22 2c 22 3a 41 24 3d  c1 41 24 2c 32 29 3a 8b  |.",":A$=.A$,2):.|
00020a50  c8 95 97 41 24 3d 33 32  3a 41 24 3d c1 41 24 2c  |...A$=32:A$=.A$,|
00020a60  32 29 3a ce 0d c5 80 07  3d 42 24 0d c5 8a 05 cd  |2):.....=B$.....|
00020a70  0d c5 94 38 4a 25 3d a7  41 24 2c 22 20 22 2c 49  |...8J%=.A$," ",I|
00020a80  25 29 3a 49 25 3d a7 41  24 2c 22 2c 22 2c 49 25  |%):I%=.A$,",",I%|
00020a90  29 3a e7 49 25 3d 30 84  49 25 3e 4a 25 80 4a 25  |):.I%=0.I%>J%.J%|
00020aa0  3e 30 3a 49 25 3d 4a 25  0d c5 9e 29 42 24 3d c0  |>0:I%=J%...)B$=.|
00020ab0  41 24 2c 49 25 2d 31 29  3a 41 24 3d c1 41 24 2c  |A$,I%-1):A$=.A$,|
00020ac0  49 25 2b 31 29 3a e7 49  25 3d 30 3a 41 24 3d 22  |I%+1):.I%=0:A$="|
00020ad0  22 0d c5 a8 0c 3d a4 73  31 28 42 24 29 0d c5 b2  |"....=.s1(B$)...|
00020ae0  04 0d c5 bc 0c dd f2 73  61 76 65 70 64 0d c5 c6  |.......savepd...|
00020af0  19 ea 41 25 2c 49 25 2c  46 25 3a 46 25 3d 6f 75  |..A%,I%,F%:F%=ou|
00020b00  74 66 69 6c 65 25 0d c5  d0 2b 41 25 3d 26 35 35  |tfile%...+A%=&55|
00020b10  30 31 30 30 30 31 3a e3  49 25 3d 31 b8 34 3a d5  |010001:.I%=1.4:.|
00020b20  23 46 25 2c 41 25 3a 41  25 3d 41 25 3e 3e 38 3a  |#F%,A%:A%=A%>>8:|
00020b30  ed 0d c5 da 30 f2 50 44  73 74 72 69 6e 67 28 46  |....0.PDstring(F|
00020b40  25 2c 50 44 6e 61 6d 65  24 29 3a f2 50 44 73 74  |%,PDname$):.PDst|
00020b50  72 69 6e 67 28 46 25 2c  50 44 72 65 73 65 74 24  |ring(F%,PDreset$|
00020b60  29 0d c5 e4 10 d5 23 46  25 2c 50 44 66 6f 6e 74  |).....#F%,PDfont|
00020b70  25 0d c5 ee 69 e7 50 44  66 6f 6e 74 25 3a e3 49  |%...i.PDfont%:.I|
00020b80  25 3d 31 b8 50 44 66 6f  6e 74 25 3a f2 50 44 73  |%=1.PDfont%:.PDs|
00020b90  74 72 69 6e 67 28 46 25  2c 50 44 66 6e 61 6d 65  |tring(F%,PDfname|
00020ba0  24 28 49 25 29 29 3a f2  50 44 73 74 72 69 6e 67  |$(I%)):.PDstring|
00020bb0  28 46 25 2c 50 44 66 6f  6e 74 24 28 49 25 29 29  |(F%,PDfont$(I%))|
00020bc0  3a f2 50 44 32 62 79 74  65 28 46 25 2c 50 44 63  |:.PD2byte(F%,PDc|
00020bd0  70 6c 25 28 49 25 29 29  3a ed 0d c5 f8 10 d5 23  |pl%(I%)):......#|
00020be0  46 25 2c 50 44 63 68 61  72 25 0d c6 02 56 e7 50  |F%,PDchar%...V.P|
00020bf0  44 63 68 61 72 25 3a e3  49 25 3d 31 b8 50 44 63  |Dchar%:.I%=1.PDc|
00020c00  68 61 72 25 3a d5 23 46  25 2c 50 44 66 72 6f 6d  |har%:.#F%,PDfrom|
00020c10  25 28 49 25 29 3a f2 50  44 73 74 72 69 6e 67 28  |%(I%):.PDstring(|
00020c20  46 25 2c 50 44 74 6f 24  28 49 25 29 29 3a d5 23  |F%,PDto$(I%)):.#|
00020c30  46 25 2c 50 44 63 6c 65  6e 25 28 49 25 29 3a ed  |F%,PDclen%(I%):.|
00020c40  0d c6 0c 42 f2 50 44 73  74 72 69 6e 67 28 46 25  |...B.PDstring(F%|
00020c50  2c 50 44 66 69 78 24 29  3a f2 50 44 73 74 72 69  |,PDfix$):.PDstri|
00020c60  6e 67 28 46 25 2c 50 44  66 66 24 29 3a f2 50 44  |ng(F%,PDff$):.PD|
00020c70  73 74 72 69 6e 67 28 46  25 2c bd 50 44 73 65 70  |string(F%,.PDsep|
00020c80  25 29 0d c6 16 16 d5 23  46 25 2c 50 44 50 72 69  |%).....#F%,PDPri|
00020c90  6e 74 41 75 74 6f 3a e1  0d c6 20 04 0d c6 2a 0c  |ntAuto:... ...*.|
00020ca0  dd f2 50 44 6c 6f 61 64  0d c6 34 22 ea 46 25 2c  |..PDload..4".F%,|
00020cb0  49 25 2c 41 25 2c 42 25  3a 46 25 3d 8e 66 69 6c  |I%,A%,B%:F%=.fil|
00020cc0  65 24 3a e7 46 25 3d 30  3a e1 0d c6 3e 29 e3 49  |e$:.F%=0:...>).I|
00020cd0  25 3d 31 b8 34 3a 41 25  3d 9a 23 46 25 3a 42 25  |%=1.4:A%=.#F%:B%|
00020ce0  3d 28 41 25 3c 3c 32 34  29 2b 28 42 25 3e 3e 38  |=(A%<<24)+(B%>>8|
00020cf0  29 3a ed 0d c6 48 20 e7  42 25 3c 3e 26 35 35 30  |):...H .B%<>&550|
00020d00  31 30 30 30 31 3a d9 23  46 25 3a f2 65 72 72 28  |10001:.#F%:.err(|
00020d10  34 38 29 0d c6 52 3d 50  44 6e 61 6d 65 24 3d a4  |48)..R=PDname$=.|
00020d20  50 44 73 74 72 69 6e 67  28 46 25 29 3a 50 44 72  |PDstring(F%):PDr|
00020d30  65 73 65 74 24 3d a4 50  44 73 74 72 69 6e 67 28  |eset$=.PDstring(|
00020d40  46 25 29 3a 50 44 66 6f  6e 74 25 3d 9a 23 46 25  |F%):PDfont%=.#F%|
00020d50  0d c6 5c 69 e7 50 44 66  6f 6e 74 25 3a e3 49 25  |..\i.PDfont%:.I%|
00020d60  3d 31 b8 50 44 66 6f 6e  74 25 3a 50 44 66 6e 61  |=1.PDfont%:PDfna|
00020d70  6d 65 24 28 49 25 29 3d  a4 50 44 73 74 72 69 6e  |me$(I%)=.PDstrin|
00020d80  67 28 46 25 29 3a 50 44  66 6f 6e 74 24 28 49 25  |g(F%):PDfont$(I%|
00020d90  29 3d a4 50 44 73 74 72  69 6e 67 28 46 25 29 3a  |)=.PDstring(F%):|
00020da0  50 44 63 70 6c 25 28 49  25 29 3d a4 50 44 32 62  |PDcpl%(I%)=.PD2b|
00020db0  79 74 65 28 46 25 29 3a  ed 0d c6 66 10 50 44 63  |yte(F%):...f.PDc|
00020dc0  68 61 72 25 3d 9a 23 46  25 0d c6 70 56 e7 50 44  |har%=.#F%..pV.PD|
00020dd0  63 68 61 72 25 3a e3 49  25 3d 31 b8 50 44 63 68  |char%:.I%=1.PDch|
00020de0  61 72 25 3a 50 44 66 72  6f 6d 25 28 49 25 29 3d  |ar%:PDfrom%(I%)=|
00020df0  9a 23 46 25 3a 50 44 74  6f 24 28 49 25 29 3d a4  |.#F%:PDto$(I%)=.|
00020e00  50 44 73 74 72 69 6e 67  28 46 25 29 3a 50 44 63  |PDstring(F%):PDc|
00020e10  6c 65 6e 25 28 49 25 29  3d 9a 23 46 25 3a ed 0d  |len%(I%)=.#F%:..|
00020e20  c6 7a 18 50 44 66 69 78  24 3d a4 50 44 73 74 72  |.z.PDfix$=.PDstr|
00020e30  69 6e 67 28 46 25 29 0d  c6 84 3e 50 44 66 66 24  |ing(F%)...>PDff$|
00020e40  3d a4 50 44 73 74 72 69  6e 67 28 46 25 29 3a 50  |=.PDstring(F%):P|
00020e50  44 73 65 70 25 3d 97 a4  50 44 73 74 72 69 6e 67  |Dsep%=..PDstring|
00020e60  28 46 25 29 3a 50 44 50  72 69 6e 74 41 75 74 6f  |(F%):PDPrintAuto|
00020e70  3d 9a 23 46 25 0d c6 8e  36 d9 23 46 25 3a f2 6e  |=.#F%...6.#F%:.n|
00020e80  65 77 66 6e 28 66 5f 70  64 24 29 3a e7 77 5f 70  |ewfn(f_pd$):.w_p|
00020e90  64 72 69 76 65 25 3e 30  3a f2 63 6c 6f 73 65 77  |drive%>0:.closew|
00020ea0  28 77 5f 70 64 72 69 76  65 25 29 0d c6 98 0e f2  |(w_pdrive%).....|
00020eb0  70 64 72 69 76 65 72 3a  e1 0d c6 a2 04 0d c6 ac  |pdriver:........|
00020ec0  2b dd f2 50 44 73 74 72  69 6e 67 28 46 25 2c 41  |+..PDstring(F%,A|
00020ed0  24 29 3a d5 23 46 25 2c  a9 41 24 3a e7 a9 41 24  |$):.#F%,.A$:..A$|
00020ee0  d5 23 46 25 2c 41 24 3b  0d c6 b6 05 e1 0d c6 c0  |.#F%,A$;........|
00020ef0  28 dd f2 50 44 32 62 79  74 65 28 46 25 2c 57 25  |(..PD2byte(F%,W%|
00020f00  29 d5 23 46 25 2c 57 25  3a d5 23 46 25 2c 57 25  |).#F%,W%:.#F%,W%|
00020f10  3e 3e 38 3a e1 0d c6 ca  18 dd a4 50 44 73 74 72  |>>8:.......PDstr|
00020f20  69 6e 67 28 46 25 29 ea  41 24 2c 49 25 0d c6 d4  |ing(F%).A$,I%...|
00020f30  24 4c 25 3d 9a 23 46 25  3a e7 4c 25 3a e3 49 25  |$L%=.#F%:.L%:.I%|
00020f40  3d 31 b8 4c 25 3a 41 24  2b 3d bd 9a 23 46 25 3a  |=1.L%:A$+=..#F%:|
00020f50  ed 0d c6 de 07 3d 41 24  0d c6 e8 20 dd a4 50 44  |.....=A$... ..PD|
00020f60  32 62 79 74 65 28 46 25  29 3d 9a 23 46 25 2b 28  |2byte(F%)=.#F%+(|
00020f70  9a 23 46 25 3c 3c 38 29  0d c6 f2 04 0d c6 fc 26  |.#F%<<8).......&|
00020f80  dd f2 50 44 74 65 73 74  3a f2 67 72 61 62 70 72  |..PDtest:.grabpr|
00020f90  3a f2 70 70 72 69 6e 74  28 50 44 72 65 73 65 74  |:.pprint(PDreset|
00020fa0  24 29 0d c7 06 2b f2 70  70 72 69 6e 74 28 22 22  |$)...+.pprint(""|
00020fb0  29 3a f2 70 70 72 69 6e  74 28 22 22 29 3a ea 54  |):.pprint(""):.T|
00020fc0  24 3a 54 24 3d c4 35 34  2c 22 2d 22 29 0d c7 10  |$:T$=.54,"-")...|
00020fd0  45 f2 70 70 72 69 6e 74  28 22 4d 69 6e 65 72 76  |E.pprint("Minerv|
00020fe0  61 20 53 6f 66 74 77 61  72 65 20 2d 20 4d 75 6c  |a Software - Mul|
00020ff0  74 69 53 74 6f 72 65 20  55 73 65 72 20 50 72 69  |tiStore User Pri|
00021000  6e 74 65 72 20 44 72 69  76 65 72 20 54 65 73 74  |nter Driver Test|
00021010  22 29 0d c7 1a 3c f2 70  70 72 69 6e 74 28 54 24  |")...<.pprint(T$|
00021020  29 3a f2 50 44 74 65 73  74 66 6f 6e 74 28 31 29  |):.PDtestfont(1)|
00021030  3a f2 50 44 74 65 73 74  66 6f 6e 74 28 32 29 3a  |:.PDtestfont(2):|
00021040  f2 50 44 74 65 73 74 66  6f 6e 74 28 33 29 0d c7  |.PDtestfont(3)..|
00021050  24 2e f2 70 70 72 69 6e  74 31 28 50 44 66 6f 6e  |$..pprint1(PDfon|
00021060  74 24 28 31 29 29 3a f2  70 70 72 69 6e 74 28 54  |t$(1)):.pprint(T|
00021070  24 29 3a f2 70 70 61 67  65 28 a3 29 0d c7 2e 10  |$):.ppage(.)....|
00021080  f2 72 65 6c 65 61 73 65  70 72 3a e1 0d c7 38 04  |.releasepr:...8.|
00021090  0d c7 42 2a dd f2 50 44  74 65 73 74 66 6f 6e 74  |..B*..PDtestfont|
000210a0  28 66 25 29 3a f2 70 70  72 69 6e 74 31 28 50 44  |(f%):.pprint1(PD|
000210b0  66 6f 6e 74 24 28 66 25  29 29 0d c7 4c 13 ea 49  |font$(f%))..L..I|
000210c0  25 2c 54 25 2c 54 24 2c  77 3a 77 3d 30 0d c7 56  |%,T%,T$,w:w=0..V|
000210d0  37 f2 70 70 72 69 6e 74  31 28 22 46 6f 6e 74 22  |7.pprint1("Font"|
000210e0  2b c3 66 25 2b 22 3a 20  22 29 3a 77 2b 3d 50 44  |+.f%+": "):w+=PD|
000210f0  63 70 6c 25 28 31 29 2f  50 44 63 70 6c 25 28 66  |cpl%(1)/PDcpl%(f|
00021100  25 29 2a 37 0d c7 60 18  f2 50 44 74 61 62 28 77  |%)*7..`..PDtab(w|
00021110  2c 31 36 29 3a e3 49 25  3d 31 b8 32 0d c7 6a 36  |,16):.I%=1.2..j6|
00021120  54 25 3d 32 30 2a 50 44  63 70 6c 25 28 66 25 29  |T%=20*PDcpl%(f%)|
00021130  2f 50 44 63 70 6c 25 28  31 29 2d 50 44 63 6c 65  |/PDcpl%(1)-PDcle|
00021140  6e 25 28 31 29 2d 50 44  63 6c 65 6e 25 28 32 29  |n%(1)-PDclen%(2)|
00021150  2d 31 0d c7 74 3c 54 24  3d c0 22 41 42 43 44 45  |-1..t<T$=."ABCDE|
00021160  61 62 63 64 65 30 31 32  33 34 22 2c 54 25 29 3a  |abcde01234",T%):|
00021170  f2 70 70 72 69 6e 74 31  28 54 24 2b 50 44 74 6f  |.pprint1(T$+PDto|
00021180  24 28 31 29 2b 50 44 74  6f 24 28 32 29 29 0d c7  |$(1)+PDto$(2))..|
00021190  7e 37 77 2b 3d 50 44 63  70 6c 25 28 31 29 2f 50  |~7w+=PDcpl%(1)/P|
000211a0  44 63 70 6c 25 28 66 25  29 2a 28 50 44 63 6c 65  |Dcpl%(f%)*(PDcle|
000211b0  6e 25 28 31 29 2b 50 44  63 6c 65 6e 25 28 32 29  |n%(1)+PDclen%(2)|
000211c0  2b a9 54 24 29 0d c7 88  20 f2 50 44 74 61 62 28  |+.T$)... .PDtab(|
000211d0  77 2c 33 36 29 3a ed 3a  f2 70 70 72 69 6e 74 28  |w,36):.:.pprint(|
000211e0  22 22 29 3a e1 0d c7 92  04 0d c7 9c 13 dd f2 50  |""):...........P|
000211f0  44 74 61 62 28 f8 20 77  2c 54 25 29 0d c7 a6 6a  |Dtab(. w,T%)...j|
00021200  54 25 3d 28 54 25 2d 50  44 63 70 6c 25 28 31 29  |T%=(T%-PDcpl%(1)|
00021210  2f 50 44 63 70 6c 25 28  66 25 29 2d 77 29 2a 50  |/PDcpl%(f%)-w)*P|
00021220  44 63 70 6c 25 28 66 25  29 2f 50 44 63 70 6c 25  |Dcpl%(f%)/PDcpl%|
00021230  28 31 29 2b 2e 35 3a 77  2b 3d 54 25 2a 50 44 63  |(1)+.5:w+=T%*PDc|
00021240  70 6c 25 28 31 29 2f 50  44 63 70 6c 25 28 66 25  |pl%(1)/PDcpl%(f%|
00021250  29 3a f2 70 70 72 69 6e  74 31 28 c4 54 25 2c 22  |):.pprint1(.T%,"|
00021260  20 22 29 29 3a e1 0d c7  b0 04 0d c7 ba 1a dd f2  | ")):...........|
00021270  70 70 72 6f 63 28 f8 20  41 24 29 3a e7 41 24 3d  |pproc(. A$):.A$=|
00021280  22 22 3a e1 0d c7 c4 10  ea 49 25 2c 54 25 2c 54  |"":......I%,T%,T|
00021290  24 2c 74 25 0d c7 ce 0c  e3 49 25 3d 31 b8 31 30  |$,t%.....I%=1.10|
000212a0  0d c7 d8 1f 54 24 3d c1  22 60 24 41 42 43 44 45  |....T$=."`$ABCDE|
000212b0  46 47 48 22 2c 49 25 2c  31 29 3a 74 25 3d 31 0d  |FGH",I%,1):t%=1.|
000212c0  c7 e2 29 e7 70 64 72 69  76 65 72 25 3a 54 24 3d  |..).pdriver%:T$=|
000212d0  50 44 74 6f 24 28 49 25  29 3a 74 25 3d 50 44 63  |PDto$(I%):t%=PDc|
000212e0  6c 65 6e 25 28 49 25 29  0d c7 ec 13 e7 50 44 63  |len%(I%).....PDc|
000212f0  6c 65 6e 25 28 49 25 29  3e 30 8c 0d c7 f6 24 54  |len%(I%)>0....$T|
00021300  25 3d 30 3a f5 3a 54 25  3d a7 41 24 2c c4 74 25  |%=0:.:T%=.A$,.t%|
00021310  2c bd 28 49 25 2b 31 32  37 29 29 2c 54 25 29 0d  |,.(I%+127)),T%).|
00021320  c8 00 2a e7 54 25 3a 41  24 3d c0 41 24 2c 54 25  |..*.T%:A$=.A$,T%|
00021330  2d 31 29 2b 54 24 2b c1  41 24 2c 54 25 2b 74 25  |-1)+T$+.A$,T%+t%|
00021340  29 3a 54 25 2b 3d a9 54  24 0d c8 0a 09 fd 54 25  |):T%+=.T$.....T%|
00021350  3d 30 0d c8 14 05 cd 0d  c8 1e 12 ed 3a f2 70 70  |=0..........:.pp|
00021360  73 70 63 28 41 24 29 3a  e1 0d c8 28 04 0d c8 32  |spc(A$):...(...2|
00021370  12 dd f2 50 44 72 64 66  6f 6e 74 28 49 25 29 0d  |...PDrdfont(I%).|
00021380  c8 3c 41 50 44 66 6f 6e  74 24 28 49 25 29 3d a4  |.<APDfont$(I%)=.|
00021390  50 43 6f 6e 76 28 24 a4  69 61 28 77 5f 70 64 72  |PConv($.ia(w_pdr|
000213a0  69 76 65 25 2c 49 25 2b  38 29 29 3a e7 4c 65 6e  |ive%,I%+8)):.Len|
000213b0  67 74 68 3c 32 30 3a 4c  65 6e 67 74 68 3d 38 30  |gth<20:Length=80|
000213c0  0d c8 46 17 50 44 63 70  6c 25 28 49 25 29 3d 4c  |..F.PDcpl%(I%)=L|
000213d0  65 6e 67 74 68 3a e1 0d  c8 50 04 0d c8 5a 11 dd  |ength:...P...Z..|
000213e0  f2 70 70 73 70 63 28 f8  20 41 24 29 0d c8 64 0c  |.ppspc(. A$)..d.|
000213f0  ea 54 25 2c 43 25 3a f5  0d c8 6e 38 43 25 3d 31  |.T%,C%:...n8C%=1|
00021400  32 38 3a 54 25 3d 30 3a  c8 95 54 25 3d 30 80 43  |28:T%=0:..T%=0.C|
00021410  25 3c 31 33 39 3a 54 25  3d a7 41 24 2c bd 43 25  |%<139:T%=.A$,.C%|
00021420  29 3a 43 25 3d 43 25 2d  28 54 25 3d 30 29 3a ce  |):C%=C%-(T%=0):.|
00021430  0d c8 78 18 e7 54 25 3c  3e 30 3a c1 41 24 2c 54  |..x..T%<>0:.A$,T|
00021440  25 2c 31 29 3d 22 20 22  0d c8 82 0b fd 54 25 3d  |%,1)=" ".....T%=|
00021450  30 3a e1 0d c8 8c 04 0d  c8 96 12 dd f2 70 70 73  |0:...........pps|
00021460  70 63 31 28 f8 20 41 24  29 0d c8 a0 0f ea 54 25  |pc1(. A$).....T%|
00021470  2c 43 25 2c 63 25 3a f5  0d c8 aa 38 43 25 3d 31  |,C%,c%:....8C%=1|
00021480  32 38 3a 54 25 3d 30 3a  c8 95 54 25 3d 30 80 43  |28:T%=0:..T%=0.C|
00021490  25 3c 31 33 39 3a 54 25  3d a7 41 24 2c bd 43 25  |%<139:T%=.A$,.C%|
000214a0  29 3a 43 25 3d 43 25 2d  28 54 25 3d 30 29 3a ce  |):C%=C%-(T%=0):.|
000214b0  0d c8 b4 30 e7 54 25 3e  30 3a 63 25 3d 97 c1 22  |...0.T%>0:c%=.."|
000214c0  a3 24 20 20 20 20 20 20  20 20 20 22 2c 43 25 2d  |.$         ",C%-|
000214d0  31 32 37 29 3a e7 63 25  3c 30 3a 63 25 3d 33 32  |127):.c%<0:c%=32|
000214e0  0d c8 be 18 e7 54 25 3c  3e 30 3a c1 41 24 2c 54  |.....T%<>0:.A$,T|
000214f0  25 2c 31 29 3d bd 63 25  0d c8 c8 0b fd 54 25 3d  |%,1)=.c%.....T%=|
00021500  30 3a e1 0d c8 d2 04 0d  c8 dc 14 dd f2 70 70 65  |0:...........ppe|
00021510  78 70 61 6e 64 28 f8 20  41 24 29 0d c8 e6 10 ea  |xpand(. A$).....|
00021520  49 25 2c 54 25 2c 74 25  2c 54 24 0d c8 f0 2d e3  |I%,T%,t%,T$...-.|
00021530  49 25 3d 31 b8 31 30 3a  54 25 3d 30 3a f5 3a 54  |I%=1.10:T%=0:.:T|
00021540  25 3d a7 41 24 2c bd 28  50 44 66 72 6f 6d 25 28  |%=.A$,.(PDfrom%(|
00021550  49 25 29 29 2c 54 25 29  0d c8 fa 46 e7 54 25 3a  |I%)),T%)...F.T%:|
00021560  41 24 3d c0 41 24 2c 54  25 2d 31 29 2b c4 50 44  |A$=.A$,T%-1)+.PD|
00021570  63 6c 65 6e 25 28 49 25  29 2c bd 28 49 25 2b 31  |clen%(I%),.(I%+1|
00021580  32 37 29 29 2b c1 41 24  2c 54 25 2b 31 29 3a 54  |27))+.A$,T%+1):T|
00021590  25 2b 3d 50 44 63 6c 65  6e 25 28 49 25 29 0d c9  |%+=PDclen%(I%)..|
000215a0  04 0d fd 54 25 3d 30 3a  ed 3a e1 0d c9 0e 04 0d  |...T%=0:.:......|
000215b0  c9 18 0d dd f2 74 65 73  74 6c 61 62 0d c9 22 0f  |.....testlab..".|
000215c0  ea 49 25 3a f2 67 72 61  62 70 72 0d c9 2c 21 ea  |.I%:.grabpr..,!.|
000215d0  85 3a ee 85 ea 3a f7 85  3a f2 72 65 6c 65 61 73  |.:...:..:.releas|
000215e0  65 70 72 3a f2 65 72 72  28 34 33 29 0d c9 36 14  |epr:.err(43)..6.|
000215f0  c8 99 73 77 69 25 2c 73  64 32 33 5f 25 b8 4e 25  |..swi%,sd23_%.N%|
00021600  0d c9 40 33 65 25 28 66  69 6c 65 25 2c 32 29 3d  |..@3e%(file%,2)=|
00021610  a4 76 5f 28 31 35 29 3a  65 25 28 66 69 6c 65 25  |.v_(15):e%(file%|
00021620  2c 30 29 3d 30 3a 65 25  28 66 69 6c 65 25 2c 31  |,0)=0:e%(file%,1|
00021630  29 3d 31 0d c9 4a 30 e3  49 25 3d 30 b8 6d 61 78  |)=1..J0.I%=0.max|
00021640  61 63 72 25 2d 31 3a 6c  31 25 28 66 69 6c 65 25  |acr%-1:l1%(file%|
00021650  2c 49 25 29 3d 31 3a ed  3a 6c 61 62 6c 69 6e 65  |,I%)=1:.:labline|
00021660  25 3d 30 0d c9 54 18 e3  49 25 3d 31 b8 6c 6c 25  |%=0..T..I%=1.ll%|
00021670  28 66 69 6c 65 25 2c 33  29 2a 32 0d c9 5e 11 f2  |(file%,3)*2..^..|
00021680  6c 61 62 6c 69 6e 65 28  31 2c a3 29 0d c9 68 12  |labline(1,.)..h.|
00021690  ed 3a f2 72 65 6c 65 61  73 65 70 72 3a e1 0d c9  |.:.releasepr:...|
000216a0  72 04 0d c9 7c 0e dd f2  70 72 69 6e 74 6f 6e 65  |r...|...printone|
000216b0  0d c9 86 0f ea 49 25 3a  f2 67 72 61 62 70 72 0d  |.....I%:.grabpr.|
000216c0  c9 90 21 ea 85 3a ee 85  ea 3a f7 85 3a f2 72 65  |..!..:...:..:.re|
000216d0  6c 65 61 73 65 70 72 3a  f2 65 72 72 28 34 33 29  |leasepr:.err(43)|
000216e0  0d c9 9a 14 c8 99 73 77  69 25 2c 73 64 32 33 5f  |......swi%,sd23_|
000216f0  25 b8 4e 25 0d c9 a4 2e  65 25 28 66 69 6c 65 25  |%.N%....e%(file%|
00021700  2c 32 29 3d 4e 25 3a 65  25 28 66 69 6c 65 25 2c  |,2)=N%:e%(file%,|
00021710  30 29 3d 30 3a 65 25 28  66 69 6c 65 25 2c 31 29  |0)=0:e%(file%,1)|
00021720  3d 31 0d c9 ae 30 e3 49  25 3d 30 b8 6d 61 78 61  |=1...0.I%=0.maxa|
00021730  63 72 25 2d 31 3a 6c 31  25 28 66 69 6c 65 25 2c  |cr%-1:l1%(file%,|
00021740  49 25 29 3d 31 3a ed 3a  6c 61 62 6c 69 6e 65 25  |I%)=1:.:labline%|
00021750  3d 30 0d c9 b8 05 f5 0d  c9 c2 11 f2 6c 61 62 6c  |=0..........labl|
00021760  69 6e 65 28 32 2c a3 29  0d c9 cc 13 fd 65 25 28  |ine(2,.).....e%(|
00021770  66 69 6c 65 25 2c 32 29  3d 2d 31 0d c9 d6 10 f2  |file%,2)=-1.....|
00021780  72 65 6c 65 61 73 65 70  72 3a e1 0d c9 e0 04 0d  |releasepr:......|
00021790  c9 ea 29 dd f2 67 65 74  70 61 73 73 3a 77 5f 70  |..)..getpass:w_p|
000217a0  61 73 73 77 25 3d a4 63  72 77 69 6e 64 28 74 77  |assw%=.crwind(tw|
000217b0  5f 70 61 73 73 77 25 29  0d c9 f4 35 f2 73 65 74  |_passw%)...5.set|
000217c0  69 28 77 5f 70 61 73 73  77 25 2c 30 2c 22 46 69  |i(w_passw%,0,"Fi|
000217d0  6c 65 20 22 2b a4 66 69  6c 65 6e 61 6d 65 2b 22  |le "+.filename+"|
000217e0  2c 20 70 61 73 73 77 6f  72 64 3a 22 29 0d c9 fe  |, password:")...|
000217f0  42 f2 73 65 74 69 28 77  5f 70 61 73 73 77 25 2c  |B.seti(w_passw%,|
00021800  31 2c 22 22 29 3a f2 73  65 74 69 28 77 5f 70 61  |1,""):.seti(w_pa|
00021810  73 73 77 25 2c 32 2c 22  22 29 3a f2 73 65 74 69  |ssw%,2,""):.seti|
00021820  28 77 5f 70 61 73 73 77  25 2c 35 2c 22 22 29 0d  |(w_passw%,5,"").|
00021830  ca 08 19 f2 64 69 61 6c  6f 67 75 65 28 77 5f 70  |....dialogue(w_p|
00021840  61 73 73 77 25 29 3a e1  0d ca 12 04 0d ca 1c 18  |assw%):.........|
00021850  dd a4 77 6f 72 64 6f 75  74 30 28 58 25 2c 66 25  |..wordout0(X%,f%|
00021860  2c 54 24 29 0d ca 26 45  f4 20 3b 7b 6e 20 20 54  |,T$)..&E. ;{n  T|
00021870  79 70 65 20 30 20 77 6f  72 64 70 72 6f 63 65 73  |ype 0 wordproces|
00021880  73 6f 72 20 6f 75 74 70  75 74 2e 20 54 24 20 69  |sor output. T$ i|
00021890  73 20 73 74 72 69 6e 67  20 74 6f 20 70 75 74 20  |s string to put |
000218a0  28 69 66 20 61 6e 79 29  2c 0d ca 30 3f f4 20 3b  |(if any),..0?. ;|
000218b0  7b 6e 20 20 20 58 25 20  69 73 20 66 69 6c 65 20  |{n   X% is file |
000218c0  68 61 6e 64 6c 65 20 74  6f 20 70 75 74 20 74 6f  |handle to put to|
000218d0  2e 20 66 25 20 69 6e 64  69 63 61 74 65 73 20 66  |. f% indicates f|
000218e0  75 6e 63 74 69 6f 6e 3a  0d ca 3a 2d f4 20 3b 7b  |unction:..:-. ;{|
000218f0  6e 20 20 20 20 20 20 20  20 30 20 57 72 69 74 65  |n        0 Write|
00021900  20 66 69 6c 65 20 68 65  61 64 65 72 20 28 69 66  | file header (if|
00021910  20 61 6e 79 29 0d ca 44  2f f4 20 3b 7b 6e 20 20  | any)..D/. ;{n  |
00021920  20 20 20 20 20 20 31 20  57 72 69 74 65 20 72 65  |      1 Write re|
00021930  63 6f 72 64 20 68 65 61  64 65 72 20 28 69 66 20  |cord header (if |
00021940  61 6e 79 29 0d ca 4e 2e  f4 20 3b 7b 6e 20 20 20  |any)..N.. ;{n   |
00021950  20 20 20 20 20 32 20 57  72 69 74 65 20 66 69 72  |     2 Write fir|
00021960  73 74 20 66 69 65 6c 64  20 6f 66 20 72 65 63 6f  |st field of reco|
00021970  72 64 0d ca 58 3a f4 20  3b 7b 6e 20 20 20 20 20  |rd..X:. ;{n     |
00021980  20 20 20 33 20 57 72 69  74 65 20 6f 74 68 65 72  |   3 Write other|
00021990  20 66 69 65 6c 64 20 6f  66 20 72 65 63 6f 72 64  | field of record|
000219a0  20 28 6e 6f 74 20 66 69  72 73 74 29 0d ca 62 2a  | (not first)..b*|
000219b0  f4 20 3b 7b 6e 20 20 20  20 20 20 20 20 34 20 57  |. ;{n        4 W|
000219c0  72 69 74 65 20 72 65 63  6f 72 64 20 74 65 72 6d  |rite record term|
000219d0  69 6e 61 74 6f 72 0d ca  6c 3c f4 20 3b 7b 6e 20  |inator..l<. ;{n |
000219e0  20 20 20 20 20 20 20 35  20 57 72 69 74 65 20 66  |       5 Write f|
000219f0  69 6c 65 20 74 65 72 6d  69 6e 61 74 6f 72 20 28  |ile terminator (|
00021a00  64 6f 20 4e 4f 54 20 63  6c 6f 73 65 20 66 69 6c  |do NOT close fil|
00021a10  65 29 0d ca 76 41 f4 20  3b 7b 6e 20 20 20 74 79  |e)..vA. ;{n   ty|
00021a20  70 65 20 30 20 69 73 20  41 53 43 49 49 20 61 73  |pe 0 is ASCII as|
00021a30  20 69 74 20 69 73 20 66  69 72 73 74 20 69 6e 20  | it is first in |
00021a40  44 41 54 41 20 73 74 61  74 65 6d 65 6e 74 20 2d  |DATA statement -|
00021a50  20 64 6f 0d ca 80 44 f4  20 3b 7b 6e 20 20 20 4c  | do...D. ;{n   L|
00021a60  49 53 54 49 46 28 54 53  56 29 20 20 20 20 74 6f  |ISTIF(TSV)    to|
00021a70  20 73 65 65 20 6f 74 68  65 72 73 20 2d 20 2a 73  | see others - *s|
00021a80  20 6d 61 79 20 62 65 20  72 65 70 6c 61 63 65 64  | may be replaced|
00021a90  20 62 79 20 61 6e 79 0d  ca 8a 45 f4 20 3b 7b 6e  | by any...E. ;{n|
00021aa0  20 20 20 6e 65 77 20 74  79 70 65 73 20 61 6e 64  |   new types and|
00021ab0  20 66 75 6e 63 74 69 6f  6e 73 20 63 6f 72 72 65  | functions corre|
00021ac0  73 70 6f 6e 64 69 6e 67  20 74 6f 20 74 68 69 73  |sponding to this|
00021ad0  2c 20 61 64 64 65 64 2e  20 54 68 65 0d ca 94 48  |, added. The...H|
00021ae0  f4 20 3b 7b 6e 20 20 20  76 61 6c 75 65 20 72 65  |. ;{n   value re|
00021af0  74 75 72 6e 65 64 20 62  79 20 74 68 65 20 66 75  |turned by the fu|
00021b00  6e 63 74 69 6f 6e 20 69  73 20 61 20 64 75 6d 6d  |nction is a dumm|
00021b10  79 20 73 6f 20 64 6f 65  73 6e 27 74 20 6d 61 74  |y so doesn't mat|
00021b20  74 65 72 2e 0d ca 9e 0b  c8 8e 20 66 25 20 ca 0d  |ter....... f% ..|
00021b30  ca a8 38 c9 30 3a f4 20  20 20 20 20 20 20 20 20  |..8.0:.         |
00021b40  20 20 20 20 20 20 20 20  20 20 20 20 20 41 53 43  |             ASC|
00021b50  49 49 20 6e 65 65 64 73  20 6e 6f 20 66 69 6c 65  |II needs no file|
00021b60  20 68 65 61 64 65 72 0d  ca b2 3a c9 31 3a f4 20  | header...:.1:. |
00021b70  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00021b80  20 20 20 20 20 41 53 43  49 49 20 6e 65 65 64 73  |     ASCII needs|
00021b90  20 6e 6f 20 72 65 63 6f  72 64 20 68 65 61 64 65  | no record heade|
00021ba0  72 0d ca bc 2a c9 32 3a  d5 23 58 25 2c 54 24 3b  |r...*.2:.#X%,T$;|
00021bb0  3a f4 20 20 20 20 20 20  20 20 20 20 50 75 74 20  |:.          Put |
00021bc0  66 69 72 73 74 20 66 69  65 6c 64 0d ca c6 3a c9  |first field...:.|
00021bd0  33 3a d5 23 58 25 2c bd  39 2b 54 24 3b 3a f4 20  |3:.#X%,.9+T$;:. |
00021be0  20 20 20 6f 74 68 65 72  20 66 69 65 6c 64 73 20  |   other fields |
00021bf0  70 72 65 63 65 65 64 65  64 20 62 79 20 54 41 42  |preceeded by TAB|
00021c00  20 73 65 70 2e 0d ca d0  2a c9 34 3a d5 23 58 25  | sep....*.4:.#X%|
00021c10  2c 22 22 3a f4 20 20 20  20 20 20 20 20 20 20 20  |,"":.           |
00021c20  6c 69 6e 65 20 74 65 72  6d 69 6e 61 74 6f 72 0d  |line terminator.|
00021c30  ca da 3c c9 35 3a f4 20  20 20 20 20 20 20 20 20  |..<.5:.         |
00021c40  20 20 20 20 20 20 20 20  20 20 20 20 20 41 53 43  |             ASC|
00021c50  49 49 20 6e 65 65 64 73  20 6e 6f 20 66 69 6c 65  |II needs no file|
00021c60  20 74 65 72 6d 69 6e 61  74 6f 72 0d ca e4 05 cb  | terminator.....|
00021c70  0d ca ee 06 3d 30 0d ca  f8 04 0d cb 02 23 dd a4  |....=0.......#..|
00021c80  77 6f 72 64 6f 75 74 31  28 58 25 2c 66 25 2c 54  |wordout1(X%,f%,T|
00021c90  24 29 3a f4 20 3b 7b 6e  20 56 69 65 77 0d cb 0c  |$):. ;{n View...|
00021ca0  0b c8 8e 20 66 25 20 ca  0d cb 16 16 c9 31 3a d5  |... f% ......1:.|
00021cb0  23 58 25 2c bd 31 32 38  2b 22 4c 45 22 3b 0d cb  |#X%,.128+"LE";..|
00021cc0  20 19 c9 32 3a d5 23 58  25 2c 22 22 22 22 2b 54  | ..2:.#X%,""""+T|
00021cd0  24 2b 22 22 22 22 3b 0d  cb 2a 1a c9 33 3a d5 23  |$+"""";..*..3:.#|
00021ce0  58 25 2c 22 2c 22 22 22  2b 54 24 2b 22 22 22 22  |X%,","""+T$+""""|
00021cf0  3b 0d cb 34 0e c9 34 3a  d5 23 58 25 2c 22 22 0d  |;..4..4:.#X%,"".|
00021d00  cb 3e 05 cb 0d cb 48 06  3d 30 0d cb 52 04 0d cb  |.>....H.=0..R...|
00021d10  5c 28 dd a4 77 6f 72 64  6f 75 74 32 28 58 25 2c  |\(..wordout2(X%,|
00021d20  66 25 2c 54 24 29 3a f4  20 3b 7b 6e 20 49 6e 74  |f%,T$):. ;{n Int|
00021d30  65 72 77 6f 72 64 0d cb  66 0b c8 8e 20 66 25 20  |erword..f... f% |
00021d40  ca 0d cb 70 2a c9 32 2c  33 3a e7 54 24 3e 22 22  |...p*.2,3:.T$>""|
00021d50  d5 23 58 25 2c 54 24 2b  bd 31 33 3b 3a 8b d5 23  |.#X%,T$+.13;:..#|
00021d60  58 25 2c 22 20 22 2b bd  31 33 3b 0d cb 7a 0e c9  |X%," "+.13;..z..|
00021d70  34 3a d5 23 58 25 2c 31  33 0d cb 84 05 cb 0d cb  |4:.#X%,13.......|
00021d80  8e 06 3d 30 0d cb 98 04  0d cb a2 27 dd a4 77 6f  |..=0.......'..wo|
00021d90  72 64 6f 75 74 33 28 58  25 2c 66 25 2c 54 24 29  |rdout3(X%,f%,T$)|
00021da0  3a f4 20 3b 7b 6e 20 31  73 74 57 6f 72 64 2b 0d  |:. ;{n 1stWord+.|
00021db0  cb ac 30 3d a4 77 6f 72  64 6f 75 74 35 28 58 25  |..0=.wordout5(X%|
00021dc0  2c 66 25 2c 54 24 29 3a  f4 20 3b 7b 6e 20 73 61  |,f%,T$):. ;{n sa|
00021dd0  6d 65 20 61 73 20 70 69  70 65 64 72 65 61 6d 0d  |me as pipedream.|
00021de0  cb b6 04 0d cb c0 22 dd  a4 77 6f 72 64 6f 75 74  |......"..wordout|
00021df0  34 28 58 25 2c 66 25 2c  54 24 29 3a f4 20 3b 7b  |4(X%,f%,T$):. ;{|
00021e00  6e 20 43 53 56 0d cb ca  0b c8 8e 20 66 25 20 ca  |n CSV...... f% .|
00021e10  0d cb d4 19 c9 32 3a d5  23 58 25 2c 22 22 22 22  |.....2:.#X%,""""|
00021e20  2b 54 24 2b 22 22 22 22  3b 0d cb de 1a c9 33 3a  |+T$+"""";.....3:|
00021e30  d5 23 58 25 2c 22 2c 22  22 22 2b 54 24 2b 22 22  |.#X%,","""+T$+""|
00021e40  22 22 3b 0d cb e8 0e c9  34 3a d5 23 58 25 2c 22  |"";.....4:.#X%,"|
00021e50  22 0d cb f2 05 cb 0d cb  fc 06 3d 30 0d cc 06 04  |".........=0....|
00021e60  0d cc 10 28 dd a4 77 6f  72 64 6f 75 74 35 28 58  |...(..wordout5(X|
00021e70  25 2c 66 25 2c 54 24 29  3a f4 20 3b 7b 6e 20 50  |%,f%,T$):. ;{n P|
00021e80  69 70 65 44 72 65 61 6d  0d cc 1a 0b c8 8e 20 66  |ipeDream...... f|
00021e90  25 20 ca 0d cc 24 20 c9  32 3a e7 a7 54 24 2c 22  |% ...$ .2:..T$,"|
00021ea0  2c 22 29 3a 54 24 3d 22  22 22 22 2b 54 24 2b 22  |,"):T$=""""+T$+"|
00021eb0  22 22 22 0d cc 2e 0c d5  23 58 25 2c 54 24 3b 0d  |""".....#X%,T$;.|
00021ec0  cc 38 20 c9 33 3a e7 a7  54 24 2c 22 2c 22 29 3a  |.8 .3:..T$,","):|
00021ed0  54 24 3d 22 22 22 22 2b  54 24 2b 22 22 22 22 0d  |T$=""""+T$+"""".|
00021ee0  cc 42 10 d5 23 58 25 2c  22 2c 22 2b 54 24 3b 0d  |.B..#X%,","+T$;.|
00021ef0  cc 4c 0e c9 34 3a d5 23  58 25 2c 22 22 0d cc 56  |.L..4:.#X%,""..V|
00021f00  05 cb 0d cc 60 06 3d 30  0d cc 6a 04 0d cc 74 22  |....`.=0..j...t"|
00021f10  dd a4 77 6f 72 64 6f 75  74 36 28 58 25 2c 66 25  |..wordout6(X%,f%|
00021f20  2c 54 24 29 3a f4 20 3b  7b 6e 20 57 57 2b 0d cc  |,T$):. ;{n WW+..|
00021f30  7e 0b c8 8e 20 66 25 20  ca 0d cc 88 2a c9 32 2c  |~... f% ....*.2,|
00021f40  33 3a e7 54 24 3e 22 22  d5 23 58 25 2c 54 24 2b  |3:.T$>"".#X%,T$+|
00021f50  bd 31 33 3b 3a 8b d5 23  58 25 2c 22 20 22 2b bd  |.13;:..#X%," "+.|
00021f60  31 33 3b 0d cc 92 05 cb  0d cc 9c 06 3d 30 0d cc  |13;.........=0..|
00021f70  a6 04 0d cc b0 22 dd a4  77 6f 72 64 6f 75 74 37  |....."..wordout7|
00021f80  28 58 25 2c 66 25 2c 54  24 29 3a f4 20 3b 7b 6e  |(X%,f%,T$):. ;{n|
00021f90  20 44 49 46 0d cc ba 0b  c8 8e 20 66 25 20 ca 0d  | DIF...... f% ..|
00021fa0  cc c4 06 c9 30 0d cc ce  2f d5 23 58 25 2c 22 54  |....0.../.#X%,"T|
00021fb0  41 42 4c 45 22 3a d5 23  58 25 2c 22 30 2c 31 22  |ABLE":.#X%,"0,1"|
00021fc0  3a d5 23 58 25 2c 22 22  22 4d 61 69 6c 73 68 6f  |:.#X%,"""Mailsho|
00021fd0  74 22 22 22 0d cc d8 32  d5 23 58 25 2c 22 56 45  |t"""...2.#X%,"VE|
00021fe0  43 54 4f 52 53 22 3a d5  23 58 25 2c 22 30 2c 30  |CTORS":.#X%,"0,0|
00021ff0  30 30 30 30 30 30 30 30  30 22 3a d5 23 58 25 2c  |000000000":.#X%,|
00022000  22 22 22 22 22 22 0d cc  e2 31 d5 23 58 25 2c 22  |""""""...1.#X%,"|
00022010  54 55 50 4c 45 53 22 3a  d5 23 58 25 2c 22 30 2c  |TUPLES":.#X%,"0,|
00022020  30 30 30 30 30 30 30 30  30 30 22 3a d5 23 58 25  |0000000000":.#X%|
00022030  2c 22 22 22 22 22 22 0d  cc ec 26 d5 23 58 25 2c  |,""""""...&.#X%,|
00022040  22 44 41 54 41 22 3a d5  23 58 25 2c 22 30 2c 30  |"DATA":.#X%,"0,0|
00022050  22 3a d5 23 58 25 2c 22  22 22 22 22 22 0d cc f6  |":.#X%,""""""...|
00022060  21 c9 31 3a d5 23 58 25  2c 22 2d 31 2c 30 22 3a  |!.1:.#X%,"-1,0":|
00022070  d5 23 58 25 2c 22 22 22  42 4f 54 22 22 22 0d cd  |.#X%,"""BOT"""..|
00022080  00 2d c9 32 2c 33 3a d5  23 58 25 2c 22 31 2c 30  |.-.2,3:.#X%,"1,0|
00022090  22 3a d5 23 58 25 2c 22  22 22 22 2b 54 24 2b 22  |":.#X%,""""+T$+"|
000220a0  22 22 22 3a 76 65 63 25  2b 3d 31 0d cd 0a 3a c9  |""":vec%+=1...:.|
000220b0  34 3a 74 75 70 6c 65 73  25 2b 3d 31 3a e7 76 65  |4:tuples%+=1:.ve|
000220c0  63 74 6f 72 73 25 3c 3d  30 76 65 63 74 6f 72 73  |ctors%<=0vectors|
000220d0  25 3d 76 65 63 25 3a 76  65 63 25 3d 30 3a 8b 76  |%=vec%:vec%=0:.v|
000220e0  65 63 25 3d 30 0d cd 14  06 c9 35 0d cd 1e 2c cf  |ec%=0.....5...,.|
000220f0  23 58 25 3d 26 31 46 3a  d5 23 58 25 2c c2 22 30  |#X%=&1F:.#X%,."0|
00022100  30 30 30 30 30 30 30 30  22 2b c3 76 65 63 74 6f  |00000000"+.vecto|
00022110  72 73 25 2c 31 30 29 0d  cd 28 2b cf 23 58 25 3d  |rs%,10)..(+.#X%=|
00022120  26 33 36 3a d5 23 58 25  2c c2 22 30 30 30 30 30  |&36:.#X%,."00000|
00022130  30 30 30 30 22 2b c3 74  75 70 6c 65 73 25 2c 31  |0000"+.tuples%,1|
00022140  30 29 0d cd 32 05 cb 0d  cd 3c 06 3d 30 0d cd 46  |0)..2....<.=0..F|
00022150  04 0d cd 50 2b dd f2 70  64 72 69 76 65 72 3a 77  |...P+..pdriver:w|
00022160  5f 70 64 72 69 76 65 25  3d a4 63 72 77 69 6e 64  |_pdrive%=.crwind|
00022170  28 74 77 5f 70 64 72 69  76 65 25 29 0d cd 5a 22  |(tw_pdrive%)..Z"|
00022180  ea 49 25 2c 4c 25 2c 54  24 3a f2 75 6e 73 65 6c  |.I%,L%,T$:.unsel|
00022190  61 6c 6c 28 77 5f 70 64  72 69 76 65 25 29 0d cd  |all(w_pdrive%)..|
000221a0  64 18 f7 8d 78 60 4d 3a  e3 49 25 3d 30 b8 36 3a  |d...x`M:.I%=0.6:|
000221b0  f3 54 24 2c 4c 25 0d cd  6e 2e f2 73 65 74 69 28  |.T$,L%..n..seti(|
000221c0  77 5f 70 64 72 69 76 65  25 2c 49 25 2b 37 2c a4  |w_pdrive%,I%+7,.|
000221d0  4d 61 6b 65 50 61 62 6c  65 28 a0 54 24 2c 4c 25  |MakePable(.T$,L%|
000221e0  29 29 3a ed 0d cd 78 1e  f2 73 65 6c 69 28 77 5f  |)):...x..seli(w_|
000221f0  70 64 72 69 76 65 25 2c  70 74 65 72 6d 25 2b 31  |pdrive%,pterm%+1|
00022200  34 29 0d cd 82 21 e7 70  64 72 69 76 65 72 25 3a  |4)...!.pdriver%:|
00022210  f2 73 65 6c 69 28 77 5f  70 64 72 69 76 65 25 2c  |.seli(w_pdrive%,|
00022220  31 37 29 0d cd 8c 20 e7  6d 61 6e 75 61 6c 25 3a  |17)... .manual%:|
00022230  f2 73 65 6c 69 28 77 5f  70 64 72 69 76 65 25 2c  |.seli(w_pdrive%,|
00022240  32 33 29 0d cd 96 1a f2  64 69 61 6c 6f 67 75 65  |23).....dialogue|
00022250  28 77 5f 70 64 72 69 76  65 25 29 3a e1 0d cd a0  |(w_pdrive%):....|
00022260  18 dc 50 44 74 6f 24 28  31 29 2c 50 44 63 6c 65  |..PDto$(1),PDcle|
00022270  6e 25 28 31 29 0d cd aa  18 dc 50 44 74 6f 24 28  |n%(1).....PDto$(|
00022280  32 29 2c 50 44 63 6c 65  6e 25 28 32 29 0d cd b4  |2),PDclen%(2)...|
00022290  19 dc 50 44 66 6f 6e 74  24 28 31 29 2c 50 44 63  |..PDfont$(1),PDc|
000222a0  70 6c 25 28 31 29 0d cd  be 19 dc 50 44 66 6f 6e  |pl%(1).....PDfon|
000222b0  74 24 28 32 29 2c 50 44  63 70 6c 25 28 32 29 0d  |t$(2),PDcpl%(2).|
000222c0  cd c8 19 dc 50 44 66 6f  6e 74 24 28 33 29 2c 50  |....PDfont$(3),P|
000222d0  44 63 70 6c 25 28 33 29  0d cd d2 0c dc 50 44 66  |Dcpl%(3).....PDf|
000222e0  66 24 2c 30 0d cd dc 0f  dc 50 44 72 65 73 65 74  |f$,0.....PDreset|
000222f0  24 2c 30 0d cd e6 04 0d  cd f0 34 dd f2 6e 65 77  |$,0.......4..new|
00022300  66 6e 28 f8 20 54 24 29  3a e7 a4 75 28 66 69 6c  |fn(. T$):..u(fil|
00022310  65 24 29 3c 3e 22 3c 57  49 4d 50 24 53 43 52 41  |e$)<>"<WIMP$SCRA|
00022320  50 3e 22 54 24 3d 66 69  6c 65 24 0d cd fa 05 e1  |P>"T$=file$.....|
00022330  0d ce 04 04 0d ce 0e 1a  dd f2 72 65 61 64 70 61  |..........readpa|
00022340  72 61 6d 73 3a ea 49 25  2c 46 25 2c 54 24 0d ce  |rams:.I%,F%,T$..|
00022350  18 40 6d 61 78 66 25 3d  33 3a 6d 61 78 61 63 72  |.@maxf%=3:maxacr|
00022360  25 3d 34 3a 6d 61 78 63  6f 6c 25 3d 32 39 3a 61  |%=4:maxcol%=29:a|
00022370  76 63 68 61 72 25 3d 36  35 3a 63 74 63 68 61 72  |vchar%=65:ctchar|
00022380  25 3d 36 37 3a 6d 61 6e  75 61 6c 25 3d a3 0d ce  |%=67:manual%=...|
00022390  22 34 73 74 6f 70 62 6f  78 65 73 25 3d b9 3a 73  |"4stopboxes%=.:s|
000223a0  6f 75 6e 64 25 3d b9 3a  73 68 61 64 6f 77 73 25  |ound%=.:shadows%|
000223b0  3d b9 3a 74 6f 6f 6c 73  25 3d b9 3a 70 69 78 25  |=.:tools%=.:pix%|
000223c0  3d a3 0d ce 2c 35 6c 61  62 5f 64 72 6f 70 25 3d  |=...,5lab_drop%=|
000223d0  36 36 3a 6c 61 62 5f 6c  65 61 64 25 3d 30 3a 63  |66:lab_lead%=0:c|
000223e0  61 63 68 65 66 69 6c 6c  25 3d a3 3a 72 65 61 64  |achefill%=.:read|
000223f0  6f 6e 6c 79 25 3d a3 0d  ce 36 3e 50 44 46 24 3d  |only%=...6>PDF$=|
00022400  22 22 3a 50 44 6e 61 6d  65 24 3d 22 45 70 73 6f  |"":PDname$="Epso|
00022410  6e 22 3a 50 44 72 65 73  65 74 24 3d a4 50 43 6f  |n":PDreset$=.PCo|
00022420  6e 76 28 22 32 37 2c 27  40 27 2c 32 37 2c 27 52  |nv("27,'@',27,'R|
00022430  27 2c 30 22 29 0d ce 40  33 50 44 66 66 24 3d bd  |',0")..@3PDff$=.|
00022440  31 32 3a 50 44 73 65 70  25 3d 39 3a f7 8d 58 48  |12:PDsep%=9:..XH|
00022450  4f 3a f3 50 44 66 6f 6e  74 25 3a e3 49 25 3d 31  |O:.PDfont%:.I%=1|
00022460  b8 50 44 66 6f 6e 74 25  0d ce 4a 38 f3 50 44 66  |.PDfont%..J8.PDf|
00022470  6e 61 6d 65 24 28 49 25  29 2c 41 24 2c 50 44 63  |name$(I%),A$,PDc|
00022480  70 6c 25 28 49 25 29 3a  50 44 66 6f 6e 74 24 28  |pl%(I%):PDfont$(|
00022490  49 25 29 3d a4 50 43 6f  6e 76 28 41 24 29 3a ed  |I%)=.PConv(A$):.|
000224a0  0d ce 54 36 f3 50 44 63  68 61 72 25 3a e3 49 25  |..T6.PDchar%:.I%|
000224b0  3d 31 b8 50 44 63 68 61  72 25 3a f3 50 44 66 72  |=1.PDchar%:.PDfr|
000224c0  6f 6d 25 28 49 25 29 2c  41 24 2c 50 44 63 6c 65  |om%(I%),A$,PDcle|
000224d0  6e 25 28 49 25 29 0d ce  5e 3f 50 44 74 6f 24 28  |n%(I%)..^?PDto$(|
000224e0  49 25 29 3d a4 50 43 6f  6e 76 28 41 24 29 3a ed  |I%)=.PConv(A$):.|
000224f0  3a 50 44 66 69 78 24 3d  22 22 3a 50 44 50 72 69  |:PDfix$="":PDPri|
00022500  6e 74 41 75 74 6f 3d a3  3a 63 6c 65 61 72 70 61  |ntAuto=.:clearpa|
00022510  73 73 25 3d b9 0d ce 68  48 73 70 72 73 7a 25 3d  |ss%=...hHsprsz%=|
00022520  30 3a 64 70 6c 65 6e 25  3d 36 36 3a 64 70 77 69  |0:dplen%=66:dpwi|
00022530  64 25 3d 37 39 3a 70 69  63 70 61 74 68 24 3d 22  |d%=79:picpath$="|
00022540  3c 4d 75 6c 74 69 53 74  6f 72 65 24 44 69 72 3e  |<MultiStore$Dir>|
00022550  2e 5e 2e 50 69 63 74 75  72 65 73 2e 22 0d ce 72  |.^.Pictures."..r|
00022560  46 66 5f 70 64 24 3d 22  50 44 72 69 76 65 72 22  |Ff_pd$="PDriver"|
00022570  3a 66 5f 6c 61 24 3d 22  4c 61 62 65 6c 53 65 74  |:f_la$="LabelSet|
00022580  22 3a 66 5f 77 70 24 3d  22 57 6f 72 64 53 65 74  |":f_wp$="WordSet|
00022590  22 3a 66 5f 72 70 24 3d  22 52 65 70 6f 72 74 53  |":f_rp$="ReportS|
000225a0  65 74 22 0d ce 7c 3d 66  5f 6e 70 24 3d 22 4e 6f  |et"..|=f_np$="No|
000225b0  74 65 70 61 64 22 3a 66  5f 6d 63 24 3d 22 4d 61  |tepad":f_mc$="Ma|
000225c0  63 72 6f 22 3a 66 5f 72  78 24 3d 22 52 65 70 6f  |cro":f_rx$="Repo|
000225d0  72 74 22 3a 66 5f 63 64  24 3d 22 43 61 72 64 22  |rt":f_cd$="Card"|
000225e0  0d ce 86 21 6d 61 63 73  25 3d b9 3a 6d 61 63 75  |...!macs%=.:macu|
000225f0  25 3d b9 3a 69 5f 6d 61  78 64 65 61 64 25 3d 35  |%=.:i_maxdead%=5|
00022600  30 0d ce 90 17 46 25 3d  8e 28 a4 64 69 72 2b 22  |0....F%=.(.dir+"|
00022610  50 61 72 61 6d 73 22 29  0d ce 9a 27 e7 46 25 3a  |Params")...'.F%:|
00022620  c8 95 ac c5 23 46 25 3a  f2 72 65 61 64 70 61 72  |....#F%:.readpar|
00022630  61 6d 28 be 23 46 25 29  3a ce 3a d9 23 46 25 0d  |am(.#F%):.:.#F%.|
00022640  ce a4 0f e7 73 70 72 73  7a 25 3e 35 30 8c 0d ce  |....sprsz%>50...|
00022650  ae 21 de 20 73 70 72 62  75 66 25 20 73 70 72 73  |.!. sprbuf% sprs|
00022660  7a 25 2c 63 6f 6c 6f 75  72 73 25 20 33 36 36 0d  |z%,colours% 366.|
00022670  ce b8 3d 21 73 70 72 62  75 66 25 3d 73 70 72 73  |..=!sprbuf%=sprs|
00022680  7a 25 3a 73 70 72 62 75  66 25 21 31 36 3d 30 3a  |z%:sprbuf%!16=0:|
00022690  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
000226a0  26 31 30 39 2c 73 70 72  62 75 66 25 0d ce c2 05  |&109,sprbuf%....|
000226b0  cc 0d ce cc 0c 73 70 72  73 7a 25 3d 30 0d ce d6  |.....sprsz%=0...|
000226c0  05 cd 0d ce e0 3f 54 24  3d a4 41 72 66 56 61 72  |.....?T$=.ArfVar|
000226d0  28 22 4d 75 6c 74 69 53  74 6f 72 65 50 69 63 73  |("MultiStorePics|
000226e0  24 50 61 74 68 22 29 3a  70 69 63 70 61 74 68 24  |$Path"):picpath$|
000226f0  3d a4 74 72 61 6e 73 28  70 69 63 70 61 74 68 24  |=.trans(picpath$|
00022700  29 0d ce ea 3f e7 a7 54  24 2c 70 69 63 70 61 74  |)...?..T$,picpat|
00022710  68 24 29 3e 30 70 69 63  70 61 74 68 24 3d 54 24  |h$)>0picpath$=T$|
00022720  3a 8b e7 54 24 3e 22 22  70 69 63 70 61 74 68 24  |:..T$>""picpath$|
00022730  3d 54 24 2b 22 2c 22 2b  70 69 63 70 61 74 68 24  |=T$+","+picpath$|
00022740  0d ce f4 37 ff 22 2a 53  65 74 20 4d 75 6c 74 69  |...7."*Set Multi|
00022750  53 74 6f 72 65 50 69 63  73 24 50 61 74 68 20 22  |StorePics$Path "|
00022760  2b 70 69 63 70 61 74 68  24 3a 70 69 78 25 3d 73  |+picpath$:pix%=s|
00022770  70 72 73 7a 25 3e 30 0d  ce fe 05 e1 0d cf 08 44  |prsz%>0........D|
00022780  dc 33 2c 20 50 69 63 61  2c 22 45 53 43 2c 21 2c  |.3, Pica,"ESC,!,|
00022790  30 22 2c 38 30 2c 45 6c  69 74 65 2c 22 45 53 43  |0",80,Elite,"ESC|
000227a0  2c 21 2c 31 22 2c 39 36  2c 43 6f 6e 64 65 6e 73  |,!,1",96,Condens|
000227b0  65 64 2c 22 45 53 43 2c  21 2c 34 22 2c 31 33 36  |ed,"ESC,!,4",136|
000227c0  0d cf 12 06 dc 32 0d cf  1c 20 dc 39 36 2c 22 32  |.....2... .96,"2|
000227d0  37 2c 27 52 27 2c 33 2c  33 35 2c 32 37 2c 27 52  |7,'R',3,35,27,'R|
000227e0  27 2c 30 22 2c 31 0d cf  26 0d dc 33 36 2c 22 24  |',0",1..&..36,"$|
000227f0  22 2c 31 0d cf 30 04 0d  cf 3a 13 dd f2 72 65 61  |",1..0...:...rea|
00022800  64 70 61 72 61 6d 28 54  24 29 0d cf 44 1f 54 24  |dparam(T$)..D.T$|
00022810  3d a4 73 31 28 54 24 29  3a e7 54 24 3d 22 22 84  |=.s1(T$):.T$="".|
00022820  97 54 24 3d 97 22 3b 22  e1 0d cf 4e 29 ea 56 24  |.T$=.";"...N).V$|
00022830  2c 54 25 2c 6f 6e 2c 6f  66 66 3a 6f 6e 3d b9 3a  |,T%,on,off:on=.:|
00022840  54 25 3d a7 54 24 2c 22  20 22 29 3a e7 54 25 3d  |T%=.T$," "):.T%=|
00022850  30 e1 0d cf 58 26 56 24  3d c1 54 24 2c 54 25 29  |0...X&V$=.T$,T%)|
00022860  3a 54 24 3d c0 54 24 2c  54 25 2d 31 29 3a 56 24  |:T$=.T$,T%-1):V$|
00022870  3d a4 73 31 28 56 24 29  0d cf 62 1f 54 25 3d a7  |=.s1(V$)..b.T%=.|
00022880  56 24 2c 22 3b 22 29 3a  e7 54 25 56 24 3d c0 56  |V$,";"):.T%V$=.V|
00022890  24 2c 54 25 2d 31 29 0d  cf 6c 0f ea 85 3a ee 85  |$,T%-1)..l...:..|
000228a0  ea 3a f7 85 3a e1 0d cf  76 11 c8 8e a4 6c 6f 77  |.:..:...v....low|
000228b0  65 72 28 54 24 29 ca 0d  cf 80 1a c9 22 73 68 61  |er(T$)......"sha|
000228c0  64 6f 77 22 3a 73 68 61  64 6f 77 73 25 3d a0 56  |dow":shadows%=.V|
000228d0  24 0d cf 8a 1f c9 22 73  74 6f 70 62 6f 78 65 73  |$....."stopboxes|
000228e0  22 3a 73 74 6f 70 62 6f  78 65 73 25 3d a0 56 24  |":stopboxes%=.V$|
000228f0  0d cf 94 17 c9 22 73 6f  75 6e 64 22 3a 73 6f 75  |....."sound":sou|
00022900  6e 64 25 3d a0 56 24 0d  cf 9e 17 c9 22 74 6f 6f  |nd%=.V$....."too|
00022910  6c 73 22 3a 74 6f 6f 6c  73 25 3d a0 56 24 0d cf  |ls":tools%=.V$..|
00022920  a8 34 c9 22 70 6d 6f 6e  65 79 31 22 3a 50 44 74  |.4."pmoney1":PDt|
00022930  6f 24 28 31 29 3d a4 50  43 6f 6e 76 28 56 24 29  |o$(1)=.PConv(V$)|
00022940  3a 50 44 63 6c 65 6e 25  28 31 29 3d 4c 65 6e 67  |:PDclen%(1)=Leng|
00022950  74 68 0d cf b2 34 c9 22  70 6d 6f 6e 65 79 32 22  |th...4."pmoney2"|
00022960  3a 50 44 74 6f 24 28 32  29 3d a4 50 43 6f 6e 76  |:PDto$(2)=.PConv|
00022970  28 56 24 29 3a 50 44 63  6c 65 6e 25 28 32 29 3d  |(V$):PDclen%(2)=|
00022980  4c 65 6e 67 74 68 0d cf  bc 34 c9 22 70 66 6f 6e  |Length...4."pfon|
00022990  74 31 22 3a 50 44 66 6f  6e 74 24 28 31 29 3d a4  |t1":PDfont$(1)=.|
000229a0  50 43 6f 6e 76 28 56 24  29 3a 50 44 63 70 6c 25  |PConv(V$):PDcpl%|
000229b0  28 31 29 3d 4c 65 6e 67  74 68 0d cf c6 34 c9 22  |(1)=Length...4."|
000229c0  70 66 6f 6e 74 32 22 3a  50 44 66 6f 6e 74 24 28  |pfont2":PDfont$(|
000229d0  32 29 3d a4 50 43 6f 6e  76 28 56 24 29 3a 50 44  |2)=.PConv(V$):PD|
000229e0  63 70 6c 25 28 32 29 3d  4c 65 6e 67 74 68 0d cf  |cpl%(2)=Length..|
000229f0  d0 34 c9 22 70 66 6f 6e  74 33 22 3a 50 44 66 6f  |.4."pfont3":PDfo|
00022a00  6e 74 24 28 33 29 3d a4  50 43 6f 6e 76 28 56 24  |nt$(3)=.PConv(V$|
00022a10  29 3a 50 44 63 70 6c 25  28 33 29 3d 4c 65 6e 67  |):PDcpl%(3)=Leng|
00022a20  74 68 0d cf da 21 c9 22  70 72 65 73 65 74 22 3a  |th...!."preset":|
00022a30  50 44 72 65 73 65 74 24  3d a4 50 43 6f 6e 76 28  |PDreset$=.PConv(|
00022a40  56 24 29 0d cf e4 21 c9  22 70 66 6f 72 6d 66 65  |V$)...!."pformfe|
00022a50  65 64 22 3a 50 44 66 66  24 3d a4 50 43 6f 6e 76  |ed":PDff$=.PConv|
00022a60  28 56 24 29 0d cf ee 19  c9 22 66 6e 70 72 69 6e  |(V$)....."fnprin|
00022a70  74 65 72 22 3a 66 5f 70  64 24 3d 56 24 0d cf f8  |ter":f_pd$=V$...|
00022a80  17 c9 22 66 6e 6c 61 62  65 6c 22 3a 66 5f 6c 61  |.."fnlabel":f_la|
00022a90  24 3d 56 24 0d d0 02 19  c9 22 66 6e 77 6f 72 64  |$=V$....."fnword|
00022aa0  70 72 6f 22 3a 66 5f 77  70 24 3d 56 24 0d d0 0c  |pro":f_wp$=V$...|
00022ab0  18 c9 22 66 6e 72 65 70  73 65 74 22 3a 66 5f 72  |.."fnrepset":f_r|
00022ac0  70 24 3d 56 24 0d d0 16  19 c9 22 66 6e 6e 6f 74  |p$=V$....."fnnot|
00022ad0  65 70 61 64 22 3a 66 5f  6e 70 24 3d 56 24 0d d0  |epad":f_np$=V$..|
00022ae0  20 17 c9 22 66 6e 6d 61  63 72 6f 22 3a 66 5f 6d  | .."fnmacro":f_m|
00022af0  63 24 3d 56 24 0d d0 2a  18 c9 22 66 6e 72 65 70  |c$=V$..*.."fnrep|
00022b00  6f 72 74 22 3a 66 5f 72  78 24 3d 56 24 0d d0 34  |ort":f_rx$=V$..4|
00022b10  16 c9 22 66 6e 63 61 72  64 22 3a 66 5f 63 64 24  |.."fncard":f_cd$|
00022b20  3d 56 24 0d d0 3e 1f c9  22 63 6c 65 61 72 70 61  |=V$..>.."clearpa|
00022b30  73 73 22 3a 63 6c 65 61  72 70 61 73 73 25 3d a0  |ss":clearpass%=.|
00022b40  56 24 0d d0 48 19 c9 22  70 61 67 65 6c 65 6e 22  |V$..H.."pagelen"|
00022b50  3a 64 70 6c 65 6e 25 3d  a0 56 24 0d d0 52 19 c9  |:dplen%=.V$..R..|
00022b60  22 70 61 67 65 77 69 64  22 3a 64 70 77 69 64 25  |"pagewid":dpwid%|
00022b70  3d a0 56 24 0d d0 5c 1a  c9 22 70 69 63 74 75 72  |=.V$..\.."pictur|
00022b80  65 73 22 3a 73 70 72 73  7a 25 3d a0 56 24 0d d0  |es":sprsz%=.V$..|
00022b90  66 19 c9 22 6c 61 62 65  6c 73 22 3a 6d 61 78 61  |f.."labels":maxa|
00022ba0  63 72 25 3d a0 56 24 0d  d0 70 1c c9 22 63 6f 6c  |cr%=.V$..p.."col|
00022bb0  75 6d 6e 73 22 3a 6d 61  78 63 6f 6c 25 3d a0 56  |umns":maxcol%=.V|
00022bc0  24 2d 31 0d d0 7a 18 c9  22 66 69 6c 65 73 22 3a  |$-1..z.."files":|
00022bd0  6d 61 78 66 25 3d a0 56  24 2d 31 0d d0 84 3c c9  |maxf%=.V$-1...<.|
00022be0  22 61 76 65 72 61 67 65  22 3a 61 76 63 68 61 72  |"average":avchar|
00022bf0  25 3d 97 56 24 3a e7 61  76 63 68 61 72 25 3c 33  |%=.V$:.avchar%<3|
00022c00  32 84 61 76 63 68 61 72  25 3d 31 32 37 61 76 63  |2.avchar%=127avc|
00022c10  68 61 72 25 3d 36 35 0d  d0 8e 3a c9 22 63 6f 75  |har%=65...:."cou|
00022c20  6e 74 22 3a 63 74 63 68  61 72 25 3d 97 56 24 3a  |nt":ctchar%=.V$:|
00022c30  e7 63 74 63 68 61 72 25  3c 33 32 84 63 74 63 68  |.ctchar%<32.ctch|
00022c40  61 72 25 3d 31 32 37 63  74 63 68 61 72 25 3d 36  |ar%=127ctchar%=6|
00022c50  37 0d d0 98 19 c9 22 6d  61 6e 75 61 6c 22 3a 6d  |7....."manual":m|
00022c60  61 6e 75 61 6c 25 3d a0  56 24 0d d0 a2 1a c9 22  |anual%=.V$....."|
00022c70  70 69 63 70 61 74 68 22  3a 70 69 63 70 61 74 68  |picpath":picpath|
00022c80  24 3d 56 24 0d d0 ac 19  c9 22 6d 61 63 72 6f 75  |$=V$....."macrou|
00022c90  70 70 22 3a 6d 61 63 75  25 3d a0 56 24 0d d0 b6  |pp":macu%=.V$...|
00022ca0  19 c9 22 6d 61 63 72 6f  73 70 63 22 3a 6d 61 63  |.."macrospc":mac|
00022cb0  73 25 3d a0 56 24 0d d0  c0 1c c9 22 6c 61 62 6c  |s%=.V$....."labl|
00022cc0  65 61 64 22 3a 6c 61 62  5f 6c 65 61 64 25 3d a0  |ead":lab_lead%=.|
00022cd0  56 24 0d d0 ca 1c c9 22  6c 61 62 64 72 6f 70 22  |V$....."labdrop"|
00022ce0  3a 6c 61 62 5f 64 72 6f  70 25 3d a0 56 24 0d d0  |:lab_drop%=.V$..|
00022cf0  d4 1f c9 22 66 69 6c 6c  63 61 63 68 65 22 3a 66  |..."fillcache":f|
00022d00  69 6c 6c 63 61 63 68 65  25 3d a0 56 24 0d d0 de  |illcache%=.V$...|
00022d10  1d c9 22 72 65 61 64 6f  6e 6c 79 22 3a 72 65 61  |.."readonly":rea|
00022d20  64 6f 6e 6c 79 25 3d a0  56 24 0d d0 e8 1f c9 22  |donly%=.V$....."|
00022d30  6e 75 6c 6c 63 6f 75 6e  74 22 3a 69 5f 6d 61 78  |nullcount":i_max|
00022d40  64 65 61 64 25 3d a0 56  24 0d d0 f2 07 cb 3a e1  |dead%=.V$.....:.|
00022d50  0d d0 fc 04 0d d1 06 21  dd a4 73 31 28 54 24 29  |.......!..s1(T$)|
00022d60  3a c8 95 97 54 24 3d 33  32 3a 54 24 3d c1 54 24  |:...T$=32:T$=.T$|
00022d70  2c 32 29 3a ce 0d d1 10  1c c8 95 c2 54 24 29 3d  |,2):........T$)=|
00022d80  22 20 22 3a 54 24 3d c0  54 24 29 3a ce 3a 3d 54  |" ":T$=.T$):.:=T|
00022d90  24 0d d1 1a 04 0d d1 24  2a dd f2 64 65 66 61 75  |$......$*..defau|
00022da0  6c 74 72 65 70 3a e7 72  25 28 66 69 6c 65 25 29  |ltrep:.r%(file%)|
00022db0  3c 3e 35 3a f2 63 6c 65  61 72 72 65 70 3a e1 0d  |<>5:.clearrep:..|
00022dc0  d1 2e 3a f2 73 74 6f 70  28 32 39 2c 72 6c 24 2b  |..:.stop(29,rl$+|
00022dd0  22 63 72 65 61 74 65 20  64 65 66 61 75 6c 74 22  |"create default"|
00022de0  2c 22 72 65 70 6f 72 74  20 6c 61 79 6f 75 74 22  |,"report layout"|
00022df0  2c 66 69 6c 65 25 29 3a  e1 0d d1 38 04 0d d1 42  |,file%):...8...B|
00022e00  0e dd f2 63 6c 65 61 72  72 65 70 0d d1 4c 10 c8  |...clearrep..L..|
00022e10  8e 72 25 28 66 69 6c 65  25 29 ca 0d d1 56 14 c9  |.r%(file%)...V..|
00022e20  31 3a 73 72 24 28 66 69  6c 65 25 29 3d 22 22 0d  |1:sr$(file%)="".|
00022e30  d1 60 13 c9 32 3a 72 24  28 66 69 6c 65 25 29 3d  |.`..2:r$(file%)=|
00022e40  22 22 0d d1 6a 3d c9 33  3a f2 73 74 6f 70 28 33  |""..j=.3:.stop(3|
00022e50  30 2c 72 6c 24 2b 22 63  72 65 61 74 65 20 64 65  |0,rl$+"create de|
00022e60  66 61 75 6c 74 22 2c 22  6c 61 62 65 6c 20 73 65  |fault","label se|
00022e70  74 75 70 20 3f 22 2c 66  69 6c 65 25 29 3a e1 0d  |tup ?",file%):..|
00022e80  d1 74 43 c9 34 3a f2 73  74 6f 70 28 33 31 2c 72  |.tC.4:.stop(31,r|
00022e90  6c 24 2b 22 63 6c 65 61  72 20 57 6f 72 64 70 72  |l$+"clear Wordpr|
00022ea0  6f 63 65 73 73 6f 72 22  2c 22 4f 75 74 70 75 74  |ocessor","Output|
00022eb0  20 73 65 74 75 70 20 3f  22 2c 66 69 6c 65 25 29  | setup ?",file%)|
00022ec0  3a e1 0d d1 7e 36 c9 35  3a f2 73 74 6f 70 28 33  |:...~6.5:.stop(3|
00022ed0  33 2c 72 6c 24 2b 22 63  6c 65 61 72 20 72 65 70  |3,rl$+"clear rep|
00022ee0  6f 72 74 22 2c 22 6c 61  79 6f 75 74 20 3f 22 2c  |ort","layout ?",|
00022ef0  66 69 6c 65 25 29 3a e1  0d d1 88 17 cb 3a f2 6d  |file%):......:.m|
00022f00  61 6b 65 72 65 70 28 66  69 6c 65 25 29 3a e1 0d  |akerep(file%):..|
00022f10  d1 92 04 0d d1 9c 36 dd  f2 73 77 61 70 37 3a f2  |......6..swap7:.|
00022f20  66 6f 72 63 65 28 77 25  28 66 69 6c 65 25 2c 30  |force(w%(file%,0|
00022f30  29 29 3a e7 72 25 28 66  69 6c 65 25 29 3d 30 3a  |)):.r%(file%)=0:|
00022f40  f2 66 6f 72 63 65 72 65  70 0d d1 a6 1b c8 99 73  |.forcerep......s|
00022f50  77 69 25 2c 73 64 35 37  5f 25 2c 22 62 69 74 37  |wi%,sd57_%,"bit7|
00022f60  22 b8 47 25 0d d1 b0 23  47 25 3d 47 25 82 31 3a  |".G%...#G%=G%.1:|
00022f70  c8 99 73 77 69 25 2c 73  64 35 38 5f 25 2c 47 25  |..swi%,sd58_%,G%|
00022f80  2c 22 62 69 74 37 22 0d  d1 ba 1b c8 99 73 77 69  |,"bit7"......swi|
00022f90  25 2c 73 64 35 37 5f 25  2c 22 62 69 74 37 22 b8  |%,sd57_%,"bit7".|
00022fa0  47 25 0d d1 c4 22 f2 66  6c 67 28 66 5f 37 62 69  |G%...".flg(f_7bi|
00022fb0  74 25 2c 47 25 29 3a c8  99 73 77 69 25 2c 73 64  |t%,G%):..swi%,sd|
00022fc0  33 39 5f 25 0d d1 ce 05  e1 0d d1 d8 04 0d d1 e2  |39_%............|
00022fd0  1b dd a4 70 77 63 6f 64  65 28 54 24 29 3a e7 54  |...pwcode(T$):.T|
00022fe0  24 3d 22 22 3a 3d 22 22  0d d1 ec 17 ea 41 25 2c  |$="":="".....A%,|
00022ff0  42 25 2c 49 25 3a e3 49  25 3d 31 b8 a9 54 24 0d  |B%,I%:.I%=1..T$.|
00023000  d1 f6 22 c1 54 24 2c 49  25 2c 31 29 3d bd 28 97  |..".T$,I%,1)=.(.|
00023010  c1 54 24 2c 49 25 29 82  28 49 25 2b 31 37 33 29  |.T$,I%).(I%+173)|
00023020  29 0d d2 00 09 ed 3a 3d  54 24 0d d2 0a 04 0d d2  |).....:=T$......|
00023030  14 20 dd f2 72 6d 61 72  67 69 6e 3a ea 54 25 2c  |. ..rmargin:.T%,|
00023040  57 25 3a 57 25 3d 77 5f  72 73 65 74 33 25 0d d2  |W%:W%=w_rset3%..|
00023050  1e 36 54 25 3d bb 24 a4  69 61 28 57 25 2c 37 29  |.6T%=.$.ia(W%,7)|
00023060  2d bb 24 a4 69 61 28 57  25 2c 31 32 29 2d bb 24  |-.$.ia(W%,12)-.$|
00023070  a4 69 61 28 57 25 2c 31  36 29 3a e7 54 25 3c 30  |.ia(W%,16):.T%<0|
00023080  54 25 3d 30 0d d2 28 16  f2 73 65 74 69 28 57 25  |T%=0..(..seti(W%|
00023090  2c 31 39 2c c3 54 25 29  3a e1 0d d2 32 04 0d d2  |,19,.T%):...2...|
000230a0  3c 13 dd f2 64 65 63 6f  64 65 63 6f 6c 28 54 25  |<...decodecol(T%|
000230b0  29 0d d2 46 2f 63 6f 6c  75 6d 6e 25 3d 54 25 3a  |)..F/column%=T%:|
000230c0  63 65 78 70 24 3d 63 24  28 66 69 6c 65 25 2c 54  |cexp$=c$(file%,T|
000230d0  25 2c 30 29 3a e7 63 65  78 70 24 3d 22 22 3a e1  |%,0):.cexp$="":.|
000230e0  0d d2 50 18 63 68 64 72  24 3d 63 24 28 66 69 6c  |..P.chdr$=c$(fil|
000230f0  65 25 2c 54 25 2c 31 29  0d d2 5a 13 54 25 3d 63  |e%,T%,1)..Z.T%=c|
00023100  25 28 66 69 6c 65 25 2c  54 25 29 0d d2 64 10 63  |%(file%,T%)..d.c|
00023110  77 69 64 25 3d 54 25 80  32 35 35 0d d2 6e 13 63  |wid%=T%.255..n.c|
00023120  6a 75 73 25 3d 28 54 25  3e 3e 38 29 80 33 0d d2  |jus%=(T%>>8).3..|
00023130  78 14 63 66 6e 74 25 3d  28 54 25 3e 3e 31 30 29  |x.cfnt%=(T%>>10)|
00023140  80 33 0d d2 82 19 63 75  70 70 25 3d 28 54 25 80  |.3....cupp%=(T%.|
00023150  28 31 3c 3c 31 32 29 29  3c 3e 30 0d d2 8c 19 63  |(1<<12))<>0....c|
00023160  73 70 63 25 3d 28 54 25  80 28 31 3c 3c 31 33 29  |spc%=(T%.(1<<13)|
00023170  29 3c 3e 30 0d d2 96 25  63 64 70 73 25 3d 28 54  |)<>0...%cdps%=(T|
00023180  25 3e 3e 31 34 29 80 37  3a e7 63 64 70 73 25 3d  |%>>14).7:.cdps%=|
00023190  37 63 64 70 73 25 3d 2d  31 0d d2 a0 23 63 74 6f  |7cdps%=-1...#cto|
000231a0  74 25 3d 28 28 54 25 3e  3e 31 37 29 80 33 29 84  |t%=((T%>>17).3).|
000231b0  28 28 54 25 3e 3e 32 33  29 80 34 29 0d d2 aa 19  |((T%>>23).4)....|
000231c0  63 62 6b 30 25 3d 28 54  25 80 28 31 3c 3c 31 39  |cbk0%=(T%.(1<<19|
000231d0  29 29 3c 3e 30 0d d2 b4  19 63 63 6d 61 25 3d 28  |))<>0....ccma%=(|
000231e0  54 25 80 28 31 3c 3c 32  30 29 29 3c 3e 30 0d d2  |T%.(1<<20))<>0..|
000231f0  be 14 63 66 72 6d 25 3d  28 54 25 3e 3e 32 31 29  |..cfrm%=(T%>>21)|
00023200  80 37 0d d2 c8 19 63 64  75 70 25 3d 28 54 25 80  |.7....cdup%=(T%.|
00023210  28 31 3c 3c 32 34 29 29  3c 3e 30 0d d2 d2 05 e1  |(1<<24))<>0.....|
00023220  0d d2 dc 04 0d d2 e6 15  dd f2 72 5f 73 65 74 63  |..........r_setc|
00023230  6f 6c 28 66 25 2c 49 25  29 0d d2 f0 43 ea 54 24  |ol(f%,I%)...C.T$|
00023240  2c 67 25 2c 68 25 3a 68  25 3d 66 69 6c 65 25 3a  |,g%,h%:h%=file%:|
00023250  f2 73 64 66 69 6c 65 28  6d 65 6e 75 66 69 6c 65  |.sdfile(menufile|
00023260  25 29 3a c8 99 73 77 69  25 2c 73 64 31 37 5f 25  |%):..swi%,sd17_%|
00023270  2c 39 2c 66 25 2c 73 64  24 b8 47 25 0d d2 fa 25  |,9,f%,sd$.G%...%|
00023280  54 24 3d 24 73 64 25 3a  c8 99 73 77 69 25 2c 73  |T$=$sd%:..swi%,s|
00023290  64 31 37 5f 25 2c 34 2c  66 25 2c 73 64 24 b8 47  |d17_%,4,f%,sd$.G|
000232a0  25 0d d3 04 25 67 25 3d  47 25 3a e7 68 25 3c 3e  |%...%g%=G%:.h%<>|
000232b0  66 69 6c 65 25 54 24 2b  3d 22 5c 22 2b a4 66 69  |file%T$+="\"+.fi|
000232c0  6c 65 6e 61 6d 65 0d d3  0e 2c e7 63 24 28 68 25  |lename...,.c$(h%|
000232d0  2c 49 25 2c 30 29 3d 22  40 22 2b 54 24 84 63 24  |,I%,0)="@"+T$.c$|
000232e0  28 68 25 2c 49 25 2c 30  29 3d 22 23 22 2b 54 24  |(h%,I%,0)="#"+T$|
000232f0  3a e1 0d d3 18 12 63 24  28 68 25 2c 49 25 2c 31  |:.....c$(h%,I%,1|
00023300  29 3d 54 24 0d d3 22 0e  e7 28 67 25 80 37 29 3d  |)=T$.."..(g%.7)=|
00023310  37 8c 0d d3 2c 16 63 24  28 68 25 2c 49 25 2c 30  |7...,.c$(h%,I%,0|
00023320  29 3d 22 40 22 2b 54 24  0d d3 36 28 63 25 28 68  |)="@"+T$..6(c%(h|
00023330  25 2c 49 25 29 3d 25 31  30 30 30 30 30 30 30 31  |%,I%)=%100000001|
00023340  31 31 31 30 30 31 30 30  30 30 30 30 30 30 30 30  |1110010000000000|
00023350  0d d3 40 05 cc 0d d3 4a  16 63 24 28 68 25 2c 49  |..@....J.c$(h%,I|
00023360  25 2c 30 29 3d 22 23 22  2b 54 24 0d d3 54 35 63  |%,0)="#"+T$..T5c|
00023370  25 28 68 25 2c 49 25 29  3d 25 31 30 30 30 31 31  |%(h%,I%)=%100011|
00023380  30 30 30 30 30 30 30 30  31 31 30 30 30 30 30 30  |0000000011000000|
00023390  30 31 30 84 28 28 67 25  80 37 29 3c 3c 31 34 29  |010.((g%.7)<<14)|
000233a0  0d d3 5e 05 cd 0d d3 68  1d c8 99 73 77 69 25 2c  |..^....h...swi%,|
000233b0  73 64 31 37 5f 25 2c 31  2c 66 25 2c 73 64 24 b8  |sd17_%,1,f%,sd$.|
000233c0  47 25 0d d3 72 39 63 25  28 68 25 2c 49 25 29 3d  |G%..r9c%(h%,I%)=|
000233d0  28 28 28 63 25 28 68 25  2c 49 25 29 80 32 35 35  |(((c%(h%,I%).255|
000233e0  29 2b 47 25 29 80 32 35  35 29 84 28 63 25 28 68  |)+G%).255).(c%(h|
000233f0  25 2c 49 25 29 80 ac 32  35 35 29 0d d3 7c 11 f2  |%,I%)..255)..|..|
00023400  73 64 66 69 6c 65 28 68  25 29 3a e1 0d d3 86 04  |sdfile(h%):.....|
00023410  0d d3 90 11 dd f2 72 5f  63 6c 65 61 72 3a ea 49  |......r_clear:.I|
00023420  25 0d d3 9a 23 e3 49 25  3d 30 b8 6d 61 78 63 6f  |%...#.I%=0.maxco|
00023430  6c 25 3a f2 72 5f 63 6c  65 61 72 63 6f 6c 28 49  |l%:.r_clearcol(I|
00023440  25 29 3a ed 0d d3 a4 1d  e3 49 25 3d 30 b8 37 3a  |%):......I%=0.7:|
00023450  70 24 28 66 69 6c 65 25  2c 49 25 29 3d 22 22 3a  |p$(file%,I%)="":|
00023460  ed 0d d3 ae 05 e1 0d d3  b8 04 0d d3 c2 14 dd f2  |................|
00023470  72 5f 63 6c 65 61 72 63  6f 6c 28 49 25 29 0d d3  |r_clearcol(I%)..|
00023480  cc 27 63 24 28 66 69 6c  65 25 2c 49 25 2c 30 29  |.'c$(file%,I%,0)|
00023490  3d 22 22 3a 63 24 28 66  69 6c 65 25 2c 49 25 2c  |="":c$(file%,I%,|
000234a0  31 29 3d 22 22 0d d3 d6  2b 63 25 28 66 69 6c 65  |1)=""...+c%(file|
000234b0  25 2c 49 25 29 3d 25 31  30 30 30 30 30 30 30 31  |%,I%)=%100000001|
000234c0  31 31 31 30 30 31 30 30  30 30 30 30 30 30 30 30  |1110010000000000|
000234d0  0d d3 e0 05 e1 0d d3 ea  04 0d d3 f4 13 dd a4 64  |...............d|
000234e0  75 6d 6d 79 68 64 72 73  28 42 25 29 0d d3 fe 0e  |ummyhdrs(B%)....|
000234f0  24 71 25 3d 22 22 3a ea  54 25 0d d4 08 24 49 25  |$q%="":.T%...$I%|
00023500  3d 30 3a f5 3a f2 64 65  63 6f 64 65 63 6f 6c 28  |=0:.:.decodecol(|
00023510  49 25 29 3a e7 63 65 78  70 24 3e 22 22 8c 0d d4  |I%):.cexp$>""...|
00023520  12 1a 54 25 3d 63 77 69  64 25 3a e7 54 25 2b a9  |..T%=cwid%:.T%+.|
00023530  24 71 25 3c 32 35 34 8c  0d d4 1c 15 54 24 3d 63  |$q%<254.....T$=c|
00023540  68 64 72 24 3a c8 8e 63  6a 75 73 25 ca 0d d4 26  |hdr$:..cjus%...&|
00023550  24 c9 30 3a 54 24 3d c0  54 24 2c 54 25 29 3a 54  |$.0:T$=.T$,T%):T|
00023560  24 3d 54 24 2b c4 54 25  2d a9 54 24 2c 22 20 22  |$=T$+.T%-.T$," "|
00023570  29 0d d4 30 39 c9 31 3a  54 24 3d c0 54 24 2c 54  |)..09.1:T$=.T$,T|
00023580  25 29 3a 54 24 3d c4 28  54 25 2d a9 54 24 29 2f  |%):T$=.(T%-.T$)/|
00023590  32 2c 22 20 22 29 2b 54  24 3a 54 24 2b 3d c4 54  |2," ")+T$:T$+=.T|
000235a0  25 2d a9 54 24 2c 22 20  22 29 0d d4 3a 24 c9 32  |%-.T$," ")..:$.2|
000235b0  3a 54 24 3d c0 54 24 2c  54 25 29 3a 54 24 3d c4  |:T$=.T$,T%):T$=.|
000235c0  54 25 2d a9 54 24 2c 22  20 22 29 2b 54 24 0d d4  |T%-.T$," ")+T$..|
000235d0  44 05 cb 0d d4 4e 15 e7  a9 24 71 25 3e 30 3a 54  |D....N...$q%>0:T|
000235e0  24 3d 22 20 22 2b 54 24  0d d4 58 19 e7 a9 24 71  |$=" "+T$..X...$q|
000235f0  25 2b a9 54 24 3c 32 35  34 3a 24 71 25 2b 3d 54  |%+.T$<254:$q%+=T|
00023600  24 0d d4 62 05 cd 0d d4  6c 05 cd 0d d4 76 22 49  |$..b....l....v"I|
00023610  25 2b 3d 31 3a fd 49 25  3e 6d 61 78 63 6f 6c 25  |%+=1:.I%>maxcol%|
00023620  84 a9 24 71 25 3e 42 25  3a 3d 24 71 25 0d d4 80  |..$q%>B%:=$q%...|
00023630  04 0d d4 8a 18 dd a4 64  75 6d 6d 79 64 73 68 28  |.......dummydsh(|
00023640  42 25 2c 54 24 2c 74 25  29 0d d4 94 0d ea 54 25  |B%,T$,t%).....T%|
00023650  2c 49 25 2c 74 24 0d d4  9e 2b 24 71 25 3d 22 22  |,I%,t$...+$q%=""|
00023660  3a 49 25 3d 30 3a f5 3a  f2 64 65 63 6f 64 65 63  |:I%=0:.:.decodec|
00023670  6f 6c 28 49 25 29 3a e7  63 65 78 70 24 3e 22 22  |ol(I%):.cexp$>""|
00023680  8c 0d d4 a8 1a 54 25 3d  63 77 69 64 25 3a e7 24  |.....T%=cwid%:.$|
00023690  71 25 3e 22 22 3a 54 25  2b 3d 31 0d d4 b2 11 e7  |q%>"":T%+=1.....|
000236a0  54 25 2b a9 24 71 25 3c  32 35 35 8c 0d d4 bc 1a  |T%+.$q%<255.....|
000236b0  e7 24 71 25 3e 22 22 3a  24 71 25 2b 3d 22 20 22  |.$q%>"":$q%+=" "|
000236c0  3a 54 25 2d 3d 31 0d d4  c6 26 74 24 3d 22 20 22  |:T%-=1...&t$=" "|
000236d0  3a e7 74 25 84 28 63 74  6f 74 25 3e 30 80 63 64  |:.t%.(ctot%>0.cd|
000236e0  70 73 25 3e 3d 30 29 74  24 3d 54 24 0d d4 d0 1d  |ps%>=0)t$=T$....|
000236f0  e7 a9 24 71 25 2b 54 25  3c 32 35 34 3a 24 71 25  |..$q%+T%<254:$q%|
00023700  2b 3d c4 54 25 2c 74 24  29 0d d4 da 05 cd 0d d4  |+=.T%,t$).......|
00023710  e4 05 cd 0d d4 ee 22 49  25 2b 3d 31 3a fd 49 25  |......"I%+=1:.I%|
00023720  3e 6d 61 78 63 6f 6c 25  84 a9 24 71 25 3e 42 25  |>maxcol%..$q%>B%|
00023730  3a 3d 24 71 25 0d d4 f8  04 0d d5 02 23 dd a4 64  |:=$q%.......#..d|
00023740  75 6d 6d 79 63 6f 6c 73  28 4c 25 2c 42 25 2c 74  |ummycols(L%,B%,t|
00023750  25 29 3a ea 54 25 2c 54  24 2c 49 25 0d d5 0c 2b  |%):.T%,T$,I%...+|
00023760  24 71 25 3d 22 22 3a 49  25 3d 30 3a f5 3a f2 64  |$q%="":I%=0:.:.d|
00023770  65 63 6f 64 65 63 6f 6c  28 49 25 29 3a e7 63 65  |ecodecol(I%):.ce|
00023780  78 70 24 3e 22 22 8c 0d  d5 16 1a 54 25 3d 63 77  |xp$>"".....T%=cw|
00023790  69 64 25 3a e7 54 25 2b  a9 24 71 25 3c 32 35 34  |id%:.T%+.$q%<254|
000237a0  8c 0d d5 20 41 e7 54 25  2b a9 24 71 25 2b 31 3c  |... A.T%+.$q%+1<|
000237b0  4c 25 84 28 ac 74 25 80  28 63 74 6f 74 25 3d 30  |L%.(.t%.(ctot%=0|
000237c0  84 63 64 70 73 25 3c 30  29 29 54 24 3d c4 54 25  |.cdps%<0))T$=.T%|
000237d0  2c 22 20 22 29 3a 8b 54  24 3d a4 64 75 6d 66 6f  |," "):.T$=.dumfo|
000237e0  72 6d 0d d5 2a 19 e7 a9  54 24 2b a9 24 71 25 3c  |rm..*...T$+.$q%<|
000237f0  32 35 34 3a 24 71 25 2b  3d 54 24 0d d5 34 15 e7  |254:$q%+=T$..4..|
00023800  a9 24 71 25 3c 32 35 34  24 71 25 2b 3d 22 20 22  |.$q%<254$q%+=" "|
00023810  0d d5 3e 05 cd 0d d5 48  05 cd 0d d5 52 22 49 25  |..>....H....R"I%|
00023820  2b 3d 31 3a fd 49 25 3e  6d 61 78 63 6f 6c 25 84  |+=1:.I%>maxcol%.|
00023830  a9 24 71 25 3e 42 25 3a  3d 24 71 25 0d d5 5c 04  |.$q%>B%:=$q%..\.|
00023840  0d d5 66 17 dd a4 64 75  6d 66 6f 72 6d 3a ea 54  |..f...dumform:.T|
00023850  25 2c 54 24 2c 46 25 0d  d5 70 0d e7 63 64 70 73  |%,T$,F%..p..cdps|
00023860  25 3c 30 8c 0d d5 7a 25  54 24 3d c1 22 78 58 22  |%<0...z%T$=."xX"|
00023870  2c 31 2d 63 75 70 70 25  2c 31 29 3a 54 24 3d c4  |,1-cupp%,1):T$=.|
00023880  63 77 69 64 25 2c 54 24  29 0d d5 84 0d e7 63 77  |cwid%,T$).....cw|
00023890  69 64 25 3e 32 8c 0d d5  8e 0c c8 8e 63 6a 75 73  |id%>2.......cjus|
000238a0  25 ca 0d d5 98 0f c9 30  3a c0 54 24 29 3d 22 88  |%......0:.T$)=".|
000238b0  22 0d d5 a2 19 c9 31 3a  c1 54 24 2c a9 54 24 2f  |".....1:.T$,.T$/|
000238c0  32 2b 31 2c 31 29 3d 22  8a 22 0d d5 ac 0f c9 32  |2+1,1)=".".....2|
000238d0  3a c2 54 24 29 3d 22 89  22 0d d5 b6 05 cb 0d d5  |:.T$)=".".......|
000238e0  c0 05 cd 0d d5 ca 05 cc  0d d5 d4 31 54 24 3d c1  |...........1T$=.|
000238f0  22 39 39 39 2d 2b 2a 39  39 22 2c 63 66 72 6d 25  |"999-+*99",cfrm%|
00023900  2b 31 2c 31 29 3a e7 54  24 3d 22 39 22 80 63 62  |+1,1):.T$="9".cb|
00023910  6b 30 25 54 24 3d 22 30  22 0d d5 de 23 54 24 3d  |k0%T$="0"...#T$=|
00023920  c4 63 77 69 64 25 2c 54  24 29 3a 54 25 3d 63 64  |.cwid%,T$):T%=cd|
00023930  70 73 25 3a 46 25 3d 63  66 72 6d 25 0d d5 e8 2a  |ps%:F%=cfrm%...*|
00023940  e7 54 25 3e 30 80 54 25  3c 63 77 69 64 25 80 46  |.T%>0.T%<cwid%.F|
00023950  25 3c 3e 35 3a c1 54 24  2c a9 54 24 2d 54 25 2c  |%<>5:.T$,.T$-T%,|
00023960  31 29 3d 22 2e 22 0d d5  f2 5a e7 63 63 6d 61 25  |1)="."...Z.ccma%|
00023970  80 54 25 3e 3d 30 3a 54  25 3d a9 54 24 2d 54 25  |.T%>=0:T%=.T$-T%|
00023980  2d 34 2d 28 54 25 3d 30  29 3a c8 95 54 25 3e 31  |-4-(T%=0):..T%>1|
00023990  2d 32 2a 28 46 25 3d 31  29 2d 28 46 25 3d 32 84  |-2*(F%=1)-(F%=2.|
000239a0  46 25 3d 37 84 46 25 3d  38 29 3a c1 54 24 2c 54  |F%=7.F%=8):.T$,T|
000239b0  25 2c 31 29 3d 22 2c 22  3a 54 25 2d 3d 34 3a ce  |%,1)=",":T%-=4:.|
000239c0  0d d5 fc 28 54 25 3d 46  25 3a e7 54 25 3d 31 3a  |...(T%=F%:.T%=1:|
000239d0  e7 a9 54 24 3e 32 3a 54  24 3d 22 28 22 2b c1 54  |..T$>2:T$="("+.T|
000239e0  24 2c 33 29 2b 22 29 22  0d d6 06 1e e7 54 25 3d  |$,3)+")".....T%=|
000239f0  32 3a e7 a9 54 24 3e 31  3a 54 24 3d c1 54 24 2c  |2:..T$>1:T$=.T$,|
00023a00  32 29 2b 22 2d 22 0d d6  10 1e e7 54 25 3d 36 3a  |2)+"-".....T%=6:|
00023a10  e7 a9 54 24 3e 31 3a 54  24 3d 22 a3 22 2b c1 54  |..T$>1:T$="."+.T|
00023a20  24 2c 32 29 0d d6 1a 1e  e7 54 25 3d 37 3a e7 a9  |$,2).....T%=7:..|
00023a30  54 24 3e 31 3a 54 24 3d  22 24 22 2b c1 54 24 2c  |T$>1:T$="$"+.T$,|
00023a40  32 29 0d d6 24 05 cd 0d  d6 2e 07 3d 54 24 0d d6  |2)..$......=T$..|
00023a50  38 04 0d d6 42 14 dd a4  74 6f 70 6c 69 6e 65 3a  |8...B...topline:|
00023a60  ea 54 24 2c 41 24 0d d6  4c 2d 41 24 3d c4 70 25  |.T$,A$..L-A$=.p%|
00023a70  28 66 69 6c 65 25 2c 32  29 2c 22 20 22 29 3a 54  |(file%,2)," "):T|
00023a80  24 3d c0 70 24 28 66 69  6c 65 25 2c 30 29 2c a9  |$=.p$(file%,0),.|
00023a90  41 24 29 0d d6 56 19 c1  41 24 2c 28 a9 41 24 2d  |A$)..V..A$,(.A$-|
00023aa0  a9 54 24 29 2f 32 2b 31  29 3d 54 24 0d d6 60 23  |.T$)/2+1)=T$..`#|
00023ab0  e7 a4 66 6c 67 28 66 5f  72 74 70 6e 25 29 3a c2  |..flg(f_rtpn%):.|
00023ac0  41 24 29 3d 22 20 50 61  67 65 20 23 23 23 22 0d  |A$)=" Page ###".|
00023ad0  d6 6a 21 e7 a4 66 6c 67  28 66 5f 72 70 64 74 25  |.j!..flg(f_rpdt%|
00023ae0  29 3a c0 41 24 29 3d 64  61 74 65 24 2b 22 20 22  |):.A$)=date$+" "|
00023af0  0d d6 74 07 3d 41 24 0d  d6 7e 04 0d d6 88 23 dd  |..t.=A$..~....#.|
00023b00  f2 65 64 63 6f 6c 3a 77  5f 63 6f 6c 25 3d a4 63  |.edcol:w_col%=.c|
00023b10  72 77 69 6e 64 28 74 77  5f 63 6f 6c 25 29 0d d6  |rwind(tw_col%)..|
00023b20  92 2b ea 54 25 3a 6d 65  6e 75 63 6f 6c 25 3d 63  |.+.T%:menucol%=c|
00023b30  6f 6c 75 6d 6e 25 3a 54  25 3d 63 64 70 73 25 3a  |olumn%:T%=cdps%:|
00023b40  e7 54 25 3c 30 54 25 3d  30 0d d6 9c 37 24 a4 74  |.T%<0T%=0...7$.t|
00023b50  61 28 77 5f 63 6f 6c 25  29 3d 22 52 65 70 6f 72  |a(w_col%)="Repor|
00023b60  74 20 43 6f 6c 75 6d 6e  20 22 2b c2 22 30 30 22  |t Column "+."00"|
00023b70  2b c3 28 63 6f 6c 75 6d  6e 25 2b 31 29 2c 33 29  |+.(column%+1),3)|
00023b80  0d d6 a6 31 f2 73 65 74  69 28 77 5f 63 6f 6c 25  |...1.seti(w_col%|
00023b90  2c 32 32 2c 63 65 78 70  24 29 3a f2 73 65 74 69  |,22,cexp$):.seti|
00023ba0  28 77 5f 63 6f 6c 25 2c  32 34 2c 63 68 64 72 24  |(w_col%,24,chdr$|
00023bb0  29 0d d6 b0 2d f2 73 65  74 69 28 77 5f 63 6f 6c  |)...-.seti(w_col|
00023bc0  25 2c 31 30 2c c3 63 77  69 64 25 29 3a f2 75 6e  |%,10,.cwid%):.un|
00023bd0  73 65 6c 61 6c 6c 28 77  5f 63 6f 6c 25 29 0d d6  |selall(w_col%)..|
00023be0  ba 33 e7 63 6a 75 73 25  3e 31 f2 73 65 6c 69 28  |.3.cjus%>1.seli(|
00023bf0  77 5f 63 6f 6c 25 2c 32  29 3a 8b f2 73 65 6c 69  |w_col%,2):..seli|
00023c00  28 77 5f 63 6f 6c 25 2c  63 6a 75 73 25 2b 33 31  |(w_col%,cjus%+31|
00023c10  29 0d d6 c4 30 f2 73 65  6c 69 28 77 5f 63 6f 6c  |)...0.seli(w_col|
00023c20  25 2c 63 66 6e 74 25 2b  35 29 3a f2 73 65 6c 69  |%,cfnt%+5):.seli|
00023c30  28 77 5f 63 6f 6c 25 2c  33 33 2b 63 66 72 6d 25  |(w_col%,33+cfrm%|
00023c40  29 0d d6 ce 19 e7 63 75  70 70 25 f2 73 65 6c 69  |).....cupp%.seli|
00023c50  28 77 5f 63 6f 6c 25 2c  35 29 0d d6 d8 19 e7 63  |(w_col%,5).....c|
00023c60  73 70 63 25 f2 73 65 6c  69 28 77 5f 63 6f 6c 25  |spc%.seli(w_col%|
00023c70  2c 39 29 0d d6 e2 19 e7  63 62 6b 30 25 f2 73 65  |,9).....cbk0%.se|
00023c80  6c 69 28 77 5f 63 6f 6c  25 2c 33 29 0d d6 ec 19  |li(w_col%,3)....|
00023c90  e7 63 63 6d 61 25 f2 73  65 6c 69 28 77 5f 63 6f  |.ccma%.seli(w_co|
00023ca0  6c 25 2c 34 29 0d d6 f6  1a e7 63 64 75 70 25 f2  |l%,4).....cdup%.|
00023cb0  73 65 6c 69 28 77 5f 63  6f 6c 25 2c 34 37 29 0d  |seli(w_col%,47).|
00023cc0  d7 00 2e e7 63 64 70 73  25 3c 30 f2 73 65 6c 69  |....cdps%<0.seli|
00023cd0  28 77 5f 63 6f 6c 25 2c  32 35 29 3a 8b f2 73 65  |(w_col%,25):..se|
00023ce0  6c 69 28 77 5f 63 6f 6c  25 2c 32 37 29 0d d7 0a  |li(w_col%,27)...|
00023cf0  1d e7 63 74 6f 74 25 80  31 3a f2 73 65 6c 69 28  |..ctot%.1:.seli(|
00023d00  77 5f 63 6f 6c 25 2c 32  38 29 0d d7 14 1d e7 63  |w_col%,28).....c|
00023d10  74 6f 74 25 80 32 3a f2  73 65 6c 69 28 77 5f 63  |tot%.2:.seli(w_c|
00023d20  6f 6c 25 2c 32 39 29 0d  d7 1e 1d e7 63 74 6f 74  |ol%,29).....ctot|
00023d30  25 80 34 3a f2 73 65 6c  69 28 77 5f 63 6f 6c 25  |%.4:.seli(w_col%|
00023d40  2c 32 31 29 0d d7 28 2c  f2 73 65 74 69 28 77 5f  |,21)..(,.seti(w_|
00023d50  63 6f 6c 25 2c 31 39 2c  c3 54 25 29 3a f2 64 69  |col%,19,.T%):.di|
00023d60  61 6c 6f 67 75 65 28 77  5f 63 6f 6c 25 29 3a e1  |alogue(w_col%):.|
00023d70  0d d7 32 04 0d d7 3c 1c  dd f2 61 64 64 63 6f 6c  |..2...<...addcol|
00023d80  75 6d 6e 3a ea 49 25 3a  63 65 78 70 24 3d 22 22  |umn:.I%:cexp$=""|
00023d90  0d d7 46 36 49 25 3d 6d  61 78 63 6f 6c 25 3a c8  |..F6I%=maxcol%:.|
00023da0  95 49 25 3e 3d 30 80 63  65 78 70 24 3d 22 22 3a  |.I%>=0.cexp$="":|
00023db0  f2 64 65 63 6f 64 65 63  6f 6c 28 49 25 29 3a 49  |.decodecol(I%):I|
00023dc0  25 2d 3d 31 3a ce 0d d7  50 19 e7 49 25 3e 6d 61  |%-=1:...P..I%>ma|
00023dd0  78 63 6f 6c 25 2d 32 f2  65 72 72 28 35 33 29 0d  |xcol%-2.err(53).|
00023de0  d7 5a 16 f2 64 65 63 6f  64 65 63 6f 6c 28 49 25  |.Z..decodecol(I%|
00023df0  2b 32 29 3a e1 0d d7 64  04 0d d7 6e 15 dd f2 6d  |+2):...d...n...m|
00023e00  6f 75 73 65 63 6f 6c 3a  ea 58 25 2c 49 25 0d d7  |ousecol:.X%,I%..|
00023e10  78 24 58 25 3d 28 6d 78  25 2d 62 78 25 2d 6d 61  |x$X%=(mx%-bx%-ma|
00023e20  72 67 69 6e 25 29 81 31  36 2b 31 3a 49 25 3d 30  |rgin%).16+1:I%=0|
00023e30  3a f5 0d d7 82 23 f2 64  65 63 6f 64 65 63 6f 6c  |:....#.decodecol|
00023e40  28 49 25 29 3a e7 63 65  78 70 24 3d 22 22 63 77  |(I%):.cexp$=""cw|
00023e50  69 64 25 3d 30 0d d7 8c  24 58 25 2d 3d 28 63 77  |id%=0...$X%-=(cw|
00023e60  69 64 25 2d 28 63 77 69  64 25 3e 30 29 29 3a e7  |id%-(cwid%>0)):.|
00023e70  58 25 3e 30 49 25 2b 3d  31 0d d7 96 2b fd 58 25  |X%>0I%+=1...+.X%|
00023e80  3c 30 84 49 25 3e 6d 61  78 63 6f 6c 25 3a e7 49  |<0.I%>maxcol%:.I|
00023e90  25 3e 6d 61 78 63 6f 6c  25 3a 63 6f 6c 75 6d 6e  |%>maxcol%:column|
00023ea0  25 3d 2d 31 0d d7 a0 05  e1 0d d7 aa 04 0d d7 b4  |%=-1............|
00023eb0  2f dd f2 69 6e 73 63 6f  6c 28 49 25 29 3a ea 4a  |/..inscol(I%):.J|
00023ec0  25 3a f2 61 64 64 63 6f  6c 75 6d 6e 3a 6d 65 6e  |%:.addcolumn:men|
00023ed0  75 66 69 6c 65 25 3d 66  69 6c 65 25 0d d7 be 37  |ufile%=file%...7|
00023ee0  e3 4a 25 3d 63 6f 6c 75  6d 6e 25 b8 49 25 2b 31  |.J%=column%.I%+1|
00023ef0  88 2d 31 3a 63 24 28 66  69 6c 65 25 2c 4a 25 2c  |.-1:c$(file%,J%,|
00023f00  30 29 3d 63 24 28 66 69  6c 65 25 2c 4a 25 2d 31  |0)=c$(file%,J%-1|
00023f10  2c 30 29 0d d7 c8 41 63  24 28 66 69 6c 65 25 2c  |,0)...Ac$(file%,|
00023f20  4a 25 2c 31 29 3d 63 24  28 66 69 6c 65 25 2c 4a  |J%,1)=c$(file%,J|
00023f30  25 2d 31 2c 31 29 3a 63  25 28 66 69 6c 65 25 2c  |%-1,1):c%(file%,|
00023f40  4a 25 29 3d 63 25 28 66  69 6c 65 25 2c 4a 25 2d  |J%)=c%(file%,J%-|
00023f50  31 29 3a ed 0d d7 d2 2e  f2 72 5f 73 65 74 63 6f  |1):......r_setco|
00023f60  6c 28 31 2c 49 25 29 3a  f2 64 65 63 6f 64 65 63  |l(1,I%):.decodec|
00023f70  6f 6c 28 49 25 29 3a f2  66 6f 72 63 65 72 65 70  |ol(I%):.forcerep|
00023f80  3a e1 0d d7 dc 04 0d d7  e6 14 dd f2 64 65 6c 63  |:...........delc|
00023f90  6f 6c 28 49 25 29 3a ea  4a 25 0d d7 f0 34 e3 4a  |ol(I%):.J%...4.J|
00023fa0  25 3d 49 25 b8 6d 61 78  63 6f 6c 25 2d 31 3a 63  |%=I%.maxcol%-1:c|
00023fb0  24 28 66 69 6c 65 25 2c  4a 25 2c 30 29 3d 63 24  |$(file%,J%,0)=c$|
00023fc0  28 66 69 6c 65 25 2c 4a  25 2b 31 2c 30 29 0d d7  |(file%,J%+1,0)..|
00023fd0  fa 41 63 24 28 66 69 6c  65 25 2c 4a 25 2c 31 29  |.Ac$(file%,J%,1)|
00023fe0  3d 63 24 28 66 69 6c 65  25 2c 4a 25 2b 31 2c 31  |=c$(file%,J%+1,1|
00023ff0  29 3a 63 25 28 66 69 6c  65 25 2c 4a 25 29 3d 63  |):c%(file%,J%)=c|
00024000  25 28 66 69 6c 65 25 2c  4a 25 2b 31 29 3a ed 0d  |%(file%,J%+1):..|
00024010  d8 04 24 f2 72 5f 63 6c  65 61 72 63 6f 6c 28 6d  |..$.r_clearcol(m|
00024020  61 78 63 6f 6c 25 29 3a  f2 66 6f 72 63 65 72 65  |axcol%):.forcere|
00024030  70 3a e1 0d d8 0e 04 0d  d8 18 11 dd f2 70 69 78  |p:...........pix|
00024040  3a e7 ac 70 69 78 25 e1  0d d8 22 17 e7 ac a4 69  |:..pix%..."....i|
00024050  73 66 69 65 6c 64 28 22  50 69 63 22 29 3a e1 0d  |sfield("Pic"):..|
00024060  d8 2c 30 ea 49 25 2c 54  24 3a e3 49 25 3d 30 b8  |.,0.I%,T$:.I%=0.|
00024070  39 3a 54 24 3d 22 50 69  63 22 2b c3 28 49 25 29  |9:T$="Pic"+.(I%)|
00024080  3a e7 a4 69 73 66 69 65  6c 64 28 54 24 29 8c 0d  |:..isfield(T$)..|
00024090  d8 36 39 f2 66 69 65 6c  64 73 7a 31 28 47 25 29  |.69.fieldsz1(G%)|
000240a0  3a 74 78 30 25 2b 3d 62  78 25 3a 74 78 31 25 2b  |:tx0%+=bx%:tx1%+|
000240b0  3d 62 78 25 3a 74 79 30  25 2b 3d 62 79 25 3a 74  |=bx%:ty0%+=by%:t|
000240c0  79 31 25 2b 3d 62 79 25  0d d8 40 16 c8 99 73 77  |y1%+=by%..@...sw|
000240d0  69 25 2c 67 66 69 65 6c  64 5f 25 2c 54 24 0d d8  |i%,gfield_%,T$..|
000240e0  4a 12 f2 70 6c 6f 74 73  70 72 28 24 73 64 25 29  |J..plotspr($sd%)|
000240f0  0d d8 54 05 cd 0d d8 5e  07 ed 3a e1 0d d8 68 04  |..T....^..:...h.|
00024100  0d d8 72 11 dd f2 70 6c  6f 74 73 70 72 28 54 24  |..r...plotspr(T$|
00024110  29 0d d8 7c 2c e7 ac a4  69 6e 62 6f 78 28 74 78  |)..|,...inbox(tx|
00024120  30 25 2c 74 79 30 25 2c  74 78 31 25 2d 74 78 30  |0%,ty0%,tx1%-tx0|
00024130  25 2c 74 79 31 25 2d 74  79 30 25 29 e1 0d d8 86  |%,ty1%-ty0%)....|
00024140  19 ea 54 25 2c 41 25 2c  42 25 2c 57 25 2c 48 25  |..T%,A%,B%,W%,H%|
00024150  2c 50 25 2c 73 25 0d d8  90 1e ea 85 3a ee 85 ea  |,P%,s%......:...|
00024160  3a e7 a6 2d 33 3a f7 85  3a f2 65 72 72 28 35 34  |:..-3:..:.err(54|
00024170  29 3a 8b e1 0d d8 9a 3c  2a 52 4d 65 6e 73 75 72  |):.....<*RMensur|
00024180  65 20 43 6f 6c 6f 75 72  54 72 61 6e 73 20 30 2e  |e ColourTrans 0.|
00024190  35 31 20 52 4d 6c 6f 61  64 20 53 79 73 74 65 6d  |51 RMload System|
000241a0  3a 4d 6f 64 75 6c 65 73  2e 43 6f 6c 6f 75 72 73  |:Modules.Colours|
000241b0  0d d8 a4 13 54 24 3d a4  6c 6f 61 64 73 70 72 28  |....T$=.loadspr(|
000241c0  54 24 29 0d d8 ae 1f e7  74 78 31 25 2d 74 78 30  |T$).....tx1%-tx0|
000241d0  25 3e 34 30 80 74 79 31  25 2d 74 79 30 25 3e 34  |%>40.ty1%-ty0%>4|
000241e0  30 8c 0d d8 b8 34 f2 67  63 6f 6c 28 30 2c 38 29  |0....4.gcol(0,8)|
000241f0  3a c8 93 c8 90 74 78 30  25 2c 74 79 30 25 2c 74  |:....tx0%,ty0%,t|
00024200  78 31 25 2d 74 78 30 25  2d 31 2c 74 79 31 25 2d  |x1%-tx0%-1,ty1%-|
00024210  74 79 30 25 2d 31 0d d8  c2 36 f2 67 63 6f 6c 28  |ty0%-1...6.gcol(|
00024220  30 2c 39 29 3a c8 93 74  78 30 25 2b 34 2c 74 79  |0,9):..tx0%+4,ty|
00024230  30 25 2b 34 2c 74 78 31  25 2d 74 78 30 25 2d 39  |0%+4,tx1%-tx0%-9|
00024240  2c 74 79 31 25 2d 74 79  30 25 2d 39 0d d8 cc 2d  |,ty1%-ty0%-9...-|
00024250  c8 93 74 78 30 25 2b 36  2c 74 79 30 25 2b 36 2c  |..tx0%+6,ty0%+6,|
00024260  74 78 31 25 2d 74 78 30  25 2d 31 33 2c 74 79 31  |tx1%-tx0%-13,ty1|
00024270  25 2d 74 79 30 25 2d 31  33 0d d8 d6 26 74 78 30  |%-ty0%-13...&tx0|
00024280  25 2b 3d 31 33 3a 74 79  30 25 2b 3d 31 33 3a 74  |%+=13:ty0%+=13:t|
00024290  78 31 25 2d 3d 31 30 3a  74 79 31 25 2d 3d 38 0d  |x1%-=10:ty1%-=8.|
000242a0  d8 e0 05 cd 0d d8 ea 0c  e7 54 24 3d 22 22 3a e1  |.........T$="":.|
000242b0  0d d8 f4 28 c8 99 22 4f  53 5f 53 70 72 69 74 65  |...(.."OS_Sprite|
000242c0  4f 70 22 2c 26 31 31 38  2c 73 70 72 62 75 66 25  |Op",&118,sprbuf%|
000242d0  2c 54 24 b8 2c 2c 73 25  0d d8 fe 25 c8 99 22 4f  |,T$.,,s%...%.."O|
000242e0  53 5f 52 65 61 64 4d 6f  64 65 56 61 72 69 61 62  |S_ReadModeVariab|
000242f0  6c 65 22 2c eb 2c 34 20  b8 2c 2c 41 25 0d d9 08  |le",.,4 .,,A%...|
00024300  25 c8 99 22 4f 53 5f 52  65 61 64 4d 6f 64 65 56  |%.."OS_ReadModeV|
00024310  61 72 69 61 62 6c 65 22  2c eb 2c 35 20 b8 2c 2c  |ariable",.,5 .,,|
00024320  42 25 0d d9 12 40 c8 99  22 4f 53 5f 53 70 72 69  |B%...@.."OS_Spri|
00024330  74 65 4f 70 22 2c 26 31  32 38 2c 73 70 72 62 75  |teOp",&128,sprbu|
00024340  66 25 2c 54 24 b8 2c 2c  2c 57 25 2c 48 25 3a 57  |f%,T$.,,,W%,H%:W|
00024350  25 3d 57 25 3c 3c 41 25  3a 48 25 3d 48 25 3c 3c  |%=W%<<A%:H%=H%<<|
00024360  42 25 0d d9 1c 0f e7 73  25 21 33 32 3d 26 32 43  |B%.....s%!32=&2C|
00024370  8c 0d d9 26 08 50 25 3d  30 0d d9 30 05 cc 0d d9  |...&.P%=0..0....|
00024380  3a 3b e3 54 25 3d 30 b8  31 35 3a 21 28 63 6f 6c  |:;.T%=0.15:!(col|
00024390  6f 75 72 73 25 2b 33 30  30 2b 54 25 2a 34 29 3d  |ours%+300+T%*4)=|
000243a0  21 28 73 25 2b 34 34 2b  54 25 2a 38 29 80 26 46  |!(s%+44+T%*8).&F|
000243b0  46 46 46 46 46 30 30 3a  ed 0d d9 44 13 50 25 3d  |FFFFF00:...D.P%=|
000243c0  63 6f 6c 6f 75 72 73 25  2b 33 30 30 0d d9 4e 05  |colours%+300..N.|
000243d0  cd 0d d9 58 31 63 6f 6c  6f 75 72 73 25 21 32 36  |...X1colours%!26|
000243e0  30 3d 74 78 31 25 2d 74  78 30 25 3a 63 6f 6c 6f  |0=tx1%-tx0%:colo|
000243f0  75 72 73 25 21 32 36 34  3d 74 79 31 25 2d 74 79  |urs%!264=ty1%-ty|
00024400  30 25 0d d9 62 23 63 6f  6c 6f 75 72 73 25 21 32  |0%..b#colours%!2|
00024410  36 38 3d 57 25 3a 63 6f  6c 6f 75 72 73 25 21 32  |68=W%:colours%!2|
00024420  37 32 3d 48 25 0d d9 6c  37 c8 99 22 43 6f 6c 6f  |72=H%..l7.."Colo|
00024430  75 72 54 72 61 6e 73 5f  53 65 6c 65 63 74 54 61  |urTrans_SelectTa|
00024440  62 6c 65 22 2c 73 25 21  34 30 2c 50 25 2c 2d 31  |ble",s%!40,P%,-1|
00024450  2c 2d 31 2c 63 6f 6c 6f  75 72 73 25 0d d9 76 45  |,-1,colours%..vE|
00024460  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
00024470  26 31 33 34 2c 73 70 72  62 75 66 25 2c 54 24 2c  |&134,sprbuf%,T$,|
00024480  74 78 30 25 2c 74 79 30  25 2c 38 2c 63 6f 6c 6f  |tx0%,ty0%,8,colo|
00024490  75 72 73 25 2b 32 36 30  2c 63 6f 6c 6f 75 72 73  |urs%+260,colours|
000244a0  25 0d d9 80 05 e1 0d d9  8a 04 0d d9 94 15 dd a4  |%...............|
000244b0  6c 6f 61 64 73 70 72 28  54 24 29 3a ea 41 24 0d  |loadspr(T$):.A$.|
000244c0  d9 9e 06 ea 85 0d d9 a8  0b ee 85 ea 3a 3d 22 22  |............:=""|
000244d0  0d d9 b2 21 54 24 3d a4  73 75 28 54 24 29 3a 54  |...!T$=.su(T$):T|
000244e0  25 3d a7 54 24 2c 22 7b  22 29 3a e7 54 25 3e 30  |%=.T$,"{"):.T%>0|
000244f0  8c 0d d9 bc 1e 41 25 3d  a7 54 24 2c 22 7d 22 2c  |.....A%=.T$,"}",|
00024500  54 25 29 3a e7 41 25 3d  30 41 25 3d a9 54 24 0d  |T%):.A%=0A%=.T$.|
00024510  d9 c6 1a 54 24 3d c0 54  24 2c 54 25 2d 31 29 2b  |...T$=.T$,T%-1)+|
00024520  c1 54 24 2c 41 25 2b 31  29 0d d9 d0 05 cd 0d d9  |.T$,A%+1).......|
00024530  da 0e e7 54 24 3d 22 22  3a 3d 22 22 0d d9 e4 16  |...T$="":=""....|
00024540  e7 c0 54 24 29 3d 22 40  22 54 24 3d c1 54 24 2c  |..T$)="@"T$=.T$,|
00024550  32 29 0d d9 ee 14 54 25  3d a7 54 24 2c 22 2c 22  |2)....T%=.T$,","|
00024560  29 3a e7 54 25 8c 0d d9  f8 27 41 24 3d a4 73 75  |):.T%....'A$=.su|
00024570  28 c1 54 24 2c 54 25 2b  31 29 29 3a 54 24 3d a4  |(.T$,T%+1)):T$=.|
00024580  73 75 28 c0 54 24 2c 54  25 2d 31 29 29 0d da 02  |su(.T$,T%-1))...|
00024590  26 e7 a7 41 24 2c 22 3a  22 29 3d 30 41 24 3d 22  |&..A$,":")=0A$="|
000245a0  4d 75 6c 74 69 53 74 6f  72 65 50 69 63 73 3a 22  |MultiStorePics:"|
000245b0  2b 41 24 0d da 0c 3c e7  41 24 3c 3e 6c 61 73 74  |+A$...<.A$<>last|
000245c0  73 70 72 24 c8 99 22 4f  53 5f 53 70 72 69 74 65  |spr$.."OS_Sprite|
000245d0  4f 70 22 2c 26 31 30 41  2c 73 70 72 62 75 66 25  |Op",&10A,sprbuf%|
000245e0  2c 41 24 3a 6c 61 73 74  73 70 72 24 3d 41 24 0d  |,A$:lastspr$=A$.|
000245f0  da 16 05 cd 0d da 20 27  c8 99 22 4f 53 5f 53 70  |...... '.."OS_Sp|
00024600  72 69 74 65 4f 70 22 2c  26 31 32 38 2c 73 70 72  |riteOp",&128,spr|
00024610  62 75 66 25 2c 54 24 3a  3d 54 24 0d da 2a 04 0d  |buf%,T$:=T$..*..|
00024620  da 34 2c dd a4 70 69 63  66 69 65 6c 64 28 54 25  |.4,..picfield(T%|
00024630  29 3a c8 99 73 77 69 25  2c 73 64 31 37 5f 25 2c  |):..swi%,sd17_%,|
00024640  39 2c 54 25 2c 73 64 24  b8 47 25 0d da 3e 12 c8  |9,T%,sd$.G%..>..|
00024650  99 73 77 69 25 2c 75 70  70 65 72 5f 25 0d da 48  |.swi%,upper_%..H|
00024660  25 3d c0 24 73 64 25 2c  33 29 3d 22 50 49 43 22  |%=.$sd%,3)="PIC"|
00024670  80 73 64 25 3f 33 3e 34  37 80 73 64 25 3f 33 3c  |.sd%?3>47.sd%?3<|
00024680  35 38 0d da 52 04 0d da  5c 23 dd a4 72 65 61 64  |58..R...\#..read|
00024690  6f 6e 6c 79 3a c8 99 73  77 69 25 2c 73 64 31 33  |only:..swi%,sd13|
000246a0  5f 25 2c 26 45 36 b8 47  25 0d da 66 0f 3d 28 47  |_%,&E6.G%..f.=(G|
000246b0  25 80 33 32 29 3c 3e 30  0d da 70 04 0d da 7a 29  |%.32)<>0..p...z)|
000246c0  dd a4 6e 69 6e 64 69 63  65 73 3a c8 99 73 77 69  |..nindices:..swi|
000246d0  25 2c 73 64 35 37 5f 25  2c 22 69 6e 64 69 63 65  |%,sd57_%,"indice|
000246e0  73 22 b8 47 25 0d da 84  07 3d 47 25 0d da 8e 04  |s".G%....=G%....|
000246f0  0d da 98 29 dd a4 69 73  66 69 65 6c 64 28 54 24  |...)..isfield(T$|
00024700  29 3a c8 99 73 77 69 25  2c 73 64 36 37 5f 25 2c  |):..swi%,sd67_%,|
00024710  54 24 2c 73 64 24 b8 47  25 0d da a2 09 3d 47 25  |T$,sd$.G%....=G%|
00024720  3e 30 0d da ac 04 0d da  b6 1e dd f2 66 69 65 6c  |>0..........fiel|
00024730  64 64 72 63 3a ea 54 25  2c 58 25 2c 59 25 2c 66  |ddrc:.T%,X%,Y%,f|
00024740  25 2c 54 24 0d da c0 2d  66 25 3d 66 69 6c 65 25  |%,T$...-f%=file%|
00024750  3a 54 25 3d a4 6d 6f 75  73 65 66 3a e7 66 25 3c  |:T%=.mousef:.f%<|
00024760  3e 6d 65 6e 75 66 69 6c  65 25 80 54 25 3d 30 3a  |>menufile%.T%=0:|
00024770  e1 0d da ca 13 e7 66 25  3c 3e 6d 65 6e 75 66 69  |......f%<>menufi|
00024780  6c 65 25 8c 0d da d4 2d  f2 73 64 66 69 6c 65 28  |le%....-.sdfile(|
00024790  6d 65 6e 75 66 69 6c 65  25 29 3a 54 24 3d a4 67  |menufile%):T$=.g|
000247a0  66 69 65 6c 64 28 6d 65  6e 75 66 69 65 6c 64 25  |field(menufield%|
000247b0  29 0d da de 2d f2 73 64  66 69 6c 65 28 66 25 29  |)...-.sdfile(f%)|
000247c0  3a e7 ac a4 64 65 61 64  66 69 6c 65 28 2d 31 29  |:...deadfile(-1)|
000247d0  f2 70 66 69 65 6c 64 28  54 25 2c 54 24 29 0d da  |.pfield(T%,T$)..|
000247e0  e8 05 e1 0d da f2 05 cd  0d da fc 40 e7 54 25 3c  |...........@.T%<|
000247f0  3e 30 80 54 25 3c 3e 6d  65 6e 75 66 69 65 6c 64  |>0.T%<>menufield|
00024800  25 54 24 3d a4 67 66 69  65 6c 64 28 6d 65 6e 75  |%T$=.gfield(menu|
00024810  66 69 65 6c 64 25 29 3a  f2 70 66 69 65 6c 64 28  |field%):.pfield(|
00024820  54 25 2c 54 24 29 3a e1  0d db 06 43 58 25 3d 6d  |T%,T$):....CX%=m|
00024830  78 25 2d 74 78 30 25 2b  38 3a 59 25 3d 6d 79 25  |x%-tx0%+8:Y%=my%|
00024840  2d 74 79 30 25 3a f2 66  69 65 6c 64 73 7a 28 6d  |-ty0%:.fieldsz(m|
00024850  65 6e 75 66 69 65 6c 64  25 29 3a 59 25 2b 3d 74  |enufield%):Y%+=t|
00024860  79 31 25 2d 74 79 30 25  2d 31 36 0d db 10 2b f2  |y1%-ty0%-16...+.|
00024870  63 78 63 6f 6e 76 28 58  25 29 3a f2 63 79 63 6f  |cxconv(X%):.cyco|
00024880  6e 76 28 59 25 29 3a 74  78 30 25 3d 58 25 3a 74  |nv(Y%):tx0%=X%:t|
00024890  79 30 25 3d 59 25 0d db  1a 0b e7 54 25 3c 3e 30  |y0%=Y%.....T%<>0|
000248a0  8c 0d db 24 25 c8 99 73  77 69 25 2c 73 64 31 37  |...$%..swi%,sd17|
000248b0  5f 25 2c 32 2c 6d 65 6e  75 66 69 65 6c 64 25 2c  |_%,2,menufield%,|
000248c0  73 64 24 b8 47 25 0d db  2e 2b 54 25 3d 47 25 3a  |sd$.G%...+T%=G%:|
000248d0  c8 99 73 77 69 25 2c 73  64 31 37 5f 25 2c 33 2c  |..swi%,sd17_%,3,|
000248e0  6d 65 6e 75 66 69 65 6c  64 25 2c 73 64 24 b8 47  |menufield%,sd$.G|
000248f0  25 0d db 38 16 e7 47 25  3d 74 79 30 25 80 54 25  |%..8..G%=ty0%.T%|
00024900  3d 74 78 30 25 3a e1 0d  db 42 05 cd 0d db 4c 42  |=tx0%:...B....LB|
00024910  f2 73 74 6f 70 28 33 32  2c 22 46 69 65 6c 64 20  |.stop(32,"Field |
00024920  22 2b a4 66 6e 61 6d 65  28 6d 65 6e 75 66 69 65  |"+.fname(menufie|
00024930  6c 64 25 29 2c 72 6c 24  2b 22 6d 6f 76 65 20 66  |ld%),rl$+"move f|
00024940  69 65 6c 64 20 3f 22 2c  66 69 6c 65 25 29 0d db  |ield ?",file%)..|
00024950  56 05 e1 0d db 60 04 0d  db 6a 25 dd f2 75 70 70  |V....`...j%..upp|
00024960  6c 69 74 28 f8 20 41 24  29 3a ea 51 25 2c 49 25  |lit(. A$):.Q%,I%|
00024970  2c 43 25 3a e7 41 24 3d  22 22 3a e1 0d db 74 26  |,C%:.A$="":...t&|
00024980  e3 49 25 3d 31 b8 a9 41  24 3a 43 25 3d 97 c1 41  |.I%=1..A$:C%=..A|
00024990  24 2c 49 25 29 3a e7 43  25 3d 33 34 51 25 3d ac  |$,I%):.C%=34Q%=.|
000249a0  51 25 0d db 7e 26 e7 51  25 80 43 25 3e 39 36 80  |Q%..~&.Q%.C%>96.|
000249b0  43 25 3c 31 32 33 c1 41  24 2c 49 25 2c 31 29 3d  |C%<123.A$,I%,1)=|
000249c0  bd 28 43 25 2d 33 32 29  0d db 88 07 ed 3a e1 0d  |.(C%-32).....:..|
000249d0  db 92 04 0d db 9c 0e dd  f2 6e 65 77 6e 6f 74 65  |.........newnote|
000249e0  73 0d db a6 25 f2 7a 66  6f 75 6e 64 3a f2 6e 65  |s...%.zfound:.ne|
000249f0  77 66 69 6c 74 3a f2 6e  65 77 6c 69 6e 6b 3a f2  |wfilt:.newlink:.|
00024a00  6e 65 77 72 65 70 0d db  b0 24 f2 76 61 6c 69 64  |newrep...$.valid|
00024a10  72 65 63 3a f2 76 61 6c  69 64 6c 69 6e 6b 3a f2  |rec:.validlink:.|
00024a20  66 6f 72 63 65 72 65 70  3a e1 0d db ba 04 0d db  |forcerep:.......|
00024a30  c4 1b dd f2 6e 65 77 66  69 6c 74 3a e7 6c 25 28  |....newfilt:.l%(|
00024a40  66 69 6c 65 25 29 3e 30  e1 0d db ce 17 ea 85 3a  |file%)>0.......:|
00024a50  ee 85 ea 3a f7 85 3a f2  6e 6f 66 69 6c 74 3a e1  |...:..:.nofilt:.|
00024a60  0d db d8 35 ea 54 24 3a  54 24 3d a4 78 31 28 66  |...5.T$:T$=.x1(f|
00024a70  24 28 66 69 6c 65 25 29  29 3a 66 78 24 28 66 69  |$(file%)):fx$(fi|
00024a80  6c 65 25 29 3d 54 24 3a  f2 73 68 6f 77 66 69 6c  |le%)=T$:.showfil|
00024a90  74 65 72 3a e1 0d db e2  04 0d db ec 1c dd f2 6e  |ter:...........n|
00024aa0  65 77 6c 69 6e 6b 3a e7  6c 25 28 66 69 6c 65 25  |ewlink:.l%(file%|
00024ab0  29 3c 3d 30 e1 0d db f6  17 ea 85 3a ee 85 ea 3a  |)<=0.......:...:|
00024ac0  f7 85 3a f2 75 6e 6c 69  6e 6b 3a e1 0d dc 00 1e  |..:.unlink:.....|
00024ad0  6c 78 24 28 66 69 6c 65  25 29 3d a4 78 34 28 6c  |lx$(file%)=.x4(l|
00024ae0  24 28 66 69 6c 65 25 29  3a e1 0d dc 0a 04 0d dc  |$(file%):.......|
00024af0  14 1e dd f2 6e 65 77 72  65 70 3a e7 77 25 28 66  |....newrep:.w%(f|
00024b00  69 6c 65 25 2c 33 29 3c  3d 30 3a e1 0d dc 1e 24  |ile%,3)<=0:....$|
00024b10  ea 85 3a ee 85 ea 3a f7  85 3a f2 63 6c 6f 73 65  |..:...:..:.close|
00024b20  77 28 77 25 28 66 69 6c  65 25 2c 33 29 29 3a e1  |w(w%(file%,3)):.|
00024b30  0d dc 28 15 f2 6d 61 6b  65 72 65 70 28 66 69 6c  |..(..makerep(fil|
00024b40  65 25 29 3a e1 0d dc 32  04 0d dc 3c 1b dd f2 74  |e%):...2...<...t|
00024b50  6f 6e 65 64 69 61 6c 28  41 24 29 3a e7 41 24 3d  |onedial(A$):.A$=|
00024b60  22 22 3a e1 0d dc 46 31  c8 a0 32 3a c8 a1 31 2c  |"":...F1..2:..1,|
00024b70  22 57 61 76 65 53 79 6e  74 68 2d 42 65 65 70 22  |"WaveSynth-Beep"|
00024b80  3a c8 a1 32 2c 22 57 61  76 65 53 79 6e 74 68 2d  |:..2,"WaveSynth-|
00024b90  42 65 65 70 22 0d dc 50  33 ea 49 25 3a e3 49 25  |Beep"..P3.I%:.I%|
00024ba0  3d 31 b8 a9 41 24 3a f2  74 6f 6e 65 28 a7 22 30  |=1..A$:.tone(."0|
00024bb0  31 32 33 34 35 36 37 38  39 2a 23 22 2c c1 41 24  |123456789*#",.A$|
00024bc0  2c 49 25 2c 31 29 29 29  0d dc 5a 11 f2 64 65 6c  |,I%,1)))..Z..del|
00024bd0  61 79 28 36 29 3a ed 3a  e1 0d dc 64 04 0d dc 6e  |ay(6):.:...d...n|
00024be0  21 dd f2 74 6f 6e 65 28  49 25 29 3a 49 25 2d 3d  |!..tone(I%):I%-=|
00024bf0  31 3a e7 49 25 3c 30 84  49 25 3e 31 31 e1 0d dc  |1:.I%<0.I%>11...|
00024c00  78 33 d4 20 31 2c 2d 31  35 2c 74 6f 6e 65 25 28  |x3. 1,-15,tone%(|
00024c10  49 25 2c 30 29 2c 31 30  30 3a d4 20 32 2c 2d 31  |I%,0),100:. 2,-1|
00024c20  35 2c 74 6f 6e 65 25 28  49 25 2c 31 29 2c 31 30  |5,tone%(I%,1),10|
00024c30  30 0d dc 82 24 f2 64 65  6c 61 79 28 31 30 29 3a  |0...$.delay(10):|
00024c40  d4 20 31 2c 30 2c 30 2c  30 3a d4 20 32 2c 30 2c  |. 1,0,0,0:. 2,0,|
00024c50  30 2c 30 3a e1 0d dc 8c  04 0d dc 96 24 dd f2 64  |0,0:........$..d|
00024c60  65 6c 61 79 28 49 25 29  3a ea 54 25 3a 54 25 3d  |elay(I%):.T%:T%=|
00024c70  91 3a f5 fd 91 3e 54 25  2b 49 25 3a e1 0d dc a0  |.:...>T%+I%:....|
00024c80  29 e3 49 25 3d 30 b8 39  3a e3 4a 25 3d 30 b8 31  |).I%=0.9:.J%=0.1|
00024c90  3a f1 7e 74 6f 6e 65 25  28 49 25 2c 4a 25 29 3b  |:.~tone%(I%,J%);|
00024ca0  3a ed 3a f1 3a ed 0d dc  aa 04 0d dc b4 0e dd a4  |:.:.:...........|
00024cb0  63 6f 6c 76 28 54 24 29  0d dc be 0f ea 73 25 2c  |colv(T$).....s%,|
00024cc0  74 2c 74 25 2c 54 25 0d  dc c8 1e ea 85 3a ee 85  |t,t%,T%......:..|
00024cd0  ea 3a f7 85 3a 40 25 3d  26 39 30 41 3a f2 65 72  |.:..:@%=&90A:.er|
00024ce0  72 28 35 32 29 0d dc d2  0d e7 63 64 70 73 25 3c  |r(52).....cdps%<|
00024cf0  30 8c 0d dc dc 1f 63 6f  6c 76 61 6c 3d 30 3a e7  |0.....colval=0:.|
00024d00  a4 66 6c 67 28 66 5f 72  74 73 75 25 29 3a 3d 22  |.flg(f_rtsu%):="|
00024d10  22 0d dc e6 1d 24 73 64  25 3d a4 65 76 32 28 54  |"....$sd%=.ev2(T|
00024d20  24 2c 63 73 70 63 25 2c  63 75 70 70 25 29 0d dc  |$,cspc%,cupp%)..|
00024d30  f0 19 e7 63 73 70 63 25  3a c8 99 73 77 69 25 2c  |...cspc%:..swi%,|
00024d40  73 74 72 69 70 5f 25 0d  dc fa 19 e7 63 75 70 70  |strip_%.....cupp|
00024d50  25 3a c8 99 73 77 69 25  2c 75 70 70 65 72 5f 25  |%:..swi%,upper_%|
00024d60  0d dd 04 05 cc 0d dd 0e  24 74 3d a4 65 76 28 54  |........$t=.ev(T|
00024d70  24 2c 63 73 70 63 25 2c  63 75 70 70 25 29 3a 73  |$,cspc%,cupp%):s|
00024d80  25 3d b4 74 3a 74 3d 94  74 0d dd 18 10 e7 63 62  |%=.t:t=.t.....cb|
00024d90  6b 30 25 80 73 25 3d 30  8c 0d dd 22 14 24 73 64  |k0%.s%=0...".$sd|
00024da0  25 3d 22 22 3a 63 6f 6c  76 61 6c 3d 30 0d dd 2c  |%="":colval=0..,|
00024db0  05 cc 0d dd 36 3a 40 25  3d 26 31 30 32 30 30 31  |....6:@%=&102001|
00024dc0  39 2b 28 63 64 70 73 25  3c 3c 38 29 3a 24 73 64  |9+(cdps%<<8):$sd|
00024dd0  25 3d c3 74 3a 63 6f 6c  76 61 6c 3d bb 24 73 64  |%=.t:colval=.$sd|
00024de0  25 2a 73 25 3a 40 25 3d  26 39 30 41 0d dd 40 18  |%*s%:@%=&90A..@.|
00024df0  e7 a4 66 6c 67 28 66 5f  72 74 73 75 25 29 3a 3d  |..flg(f_rtsu%):=|
00024e00  24 73 64 25 0d dd 4a 1e  e7 c2 24 73 64 25 29 3d  |$sd%..J...$sd%)=|
00024e10  22 2e 22 24 73 64 25 3d  22 20 22 2b c0 24 73 64  |"."$sd%=" "+.$sd|
00024e20  25 29 0d dd 54 0c c8 8e  63 66 72 6d 25 ca 0d dd  |%)..T...cfrm%...|
00024e30  5e 19 c9 30 3a e7 73 25  3c 30 24 73 64 25 3d 22  |^..0:.s%<0$sd%="|
00024e40  2d 22 2b 24 73 64 25 0d  dd 68 31 c9 31 3a e7 73  |-"+$sd%..h1.1:.s|
00024e50  25 3c 30 24 73 64 25 3d  22 28 22 2b 24 73 64 25  |%<0$sd%="("+$sd%|
00024e60  2b 22 29 22 3a 8b e7 63  6a 75 73 25 3c 3e 31 24  |+")":..cjus%<>1$|
00024e70  73 64 25 2b 3d 22 20 22  0d dd 72 29 c9 32 3a e7  |sd%+=" "..r).2:.|
00024e80  73 25 3c 30 24 73 64 25  2b 3d 22 2d 22 3a 8b e7  |s%<0$sd%+="-":..|
00024e90  63 6a 75 73 25 3c 3e 31  24 73 64 25 2b 3d 22 20  |cjus%<>1$sd%+=" |
00024ea0  22 0d dd 7c 13 c9 33 3a  e7 73 25 3c 30 24 73 64  |"..|..3:.s%<0$sd|
00024eb0  25 3d 22 22 0d dd 86 13  c9 34 3a e7 73 25 3e 30  |%="".....4:.s%>0|
00024ec0  24 73 64 25 3d 22 22 0d  dd 90 2e c9 35 3a 54 25  |$sd%="".....5:T%|
00024ed0  3d bb 24 73 64 25 2a 2d  28 73 25 3e 30 29 2f 31  |=.$sd%*-(s%>0)/1|
00024ee0  30 5e 63 64 70 73 25 3a  e7 54 25 3e 32 35 34 54  |0^cdps%:.T%>254T|
00024ef0  25 3d 32 35 34 0d dd 9a  35 24 73 64 25 3d c4 54  |%=254...5$sd%=.T|
00024f00  25 2c 22 2a 22 29 3a e7  a9 24 73 64 25 3e 63 77  |%,"*"):..$sd%>cw|
00024f10  69 64 25 24 73 64 25 3d  c0 24 73 64 25 2c 63 77  |id%$sd%=.$sd%,cw|
00024f20  69 64 25 2d 31 29 2b 22  2b 22 0d dd a4 27 c9 36  |id%-1)+"+"...'.6|
00024f30  3a 24 73 64 25 3d 22 60  22 2b 24 73 64 25 3a e7  |:$sd%="`"+$sd%:.|
00024f40  73 25 3c 30 24 73 64 25  3d 22 2d 22 2b 24 73 64  |s%<0$sd%="-"+$sd|
00024f50  25 0d dd ae 27 c9 37 3a  24 73 64 25 3d 22 24 22  |%...'.7:$sd%="$"|
00024f60  2b 24 73 64 25 3a e7 73  25 3c 30 24 73 64 25 3d  |+$sd%:.s%<0$sd%=|
00024f70  22 2d 22 2b 24 73 64 25  0d dd b8 05 cb 0d dd c2  |"-"+$sd%........|
00024f80  0b e7 63 63 6d 61 25 8c  0d dd cc 33 74 25 3d 30  |..ccma%....3t%=0|
00024f90  3a c8 95 28 73 64 25 3f  74 25 3c 34 38 84 73 64  |:..(sd%?t%<48.sd|
00024fa0  25 3f 74 25 3e 35 37 29  80 73 64 25 3f 74 25 3c  |%?t%>57).sd%?t%<|
00024fb0  3e 31 33 3a 74 25 2b 3d  31 3a ce 0d dd d6 21 54  |>13:t%+=1:....!T|
00024fc0  25 3d a7 24 73 64 25 2c  22 2e 22 29 3a e7 54 25  |%=.$sd%,"."):.T%|
00024fd0  3d 30 54 25 3d a9 24 73  64 25 2b 31 0d dd e0 1f  |=0T%=.$sd%+1....|
00024fe0  54 25 2d 3d 33 3a c8 95  54 25 3e 74 25 2b 31 80  |T%-=3:..T%>t%+1.|
00024ff0  a9 24 73 64 25 3c 63 77  69 64 25 0d dd ea 28 24  |.$sd%<cwid%...($|
00025000  73 64 25 3d c0 24 73 64  25 2c 54 25 2d 31 29 2b  |sd%=.$sd%,T%-1)+|
00025010  22 2c 22 2b c1 24 73 64  25 2c 54 25 29 3a 54 25  |","+.$sd%,T%):T%|
00025020  2d 3d 33 0d dd f4 05 ce  0d dd fe 05 cd 0d de 08  |-=3.............|
00025030  05 cd 0d de 12 05 cd 0d  de 1c 28 24 73 64 25 3d  |..........($sd%=|
00025040  a4 73 74 72 6a 75 73 28  24 73 64 25 2c 63 77 69  |.strjus($sd%,cwi|
00025050  64 25 2c 63 6a 75 73 25  29 3a 3d 24 73 64 25 0d  |d%,cjus%):=$sd%.|
00025060  de 26 04 0d de 30 0e dd  f2 63 68 65 63 6b 72 65  |.&...0...checkre|
00025070  70 0d de 3a 31 ea 49 25  3a e3 49 25 3d 30 b8 6d  |p..:1.I%:.I%=0.m|
00025080  61 78 66 25 3a e7 61 25  28 49 25 29 3d 31 30 3a  |axf%:.a%(I%)=10:|
00025090  e7 72 25 28 49 25 29 3d  35 3a f2 65 72 72 28 35  |.r%(I%)=5:.err(5|
000250a0  35 29 0d de 44 07 ed 3a  e1 0d de 4e 04 0d de 58  |5)..D..:...N...X|
000250b0  18 dd f2 63 6f 6c 73 3a  f2 73 64 66 69 6c 65 28  |...cols:.sdfile(|
000250c0  72 6d 66 25 29 0d de 62  0f ea 49 25 2c 4a 25 2c  |rmf%)..b..I%,J%,|
000250d0  54 24 2c 77 0d de 6c 22  49 25 3d 30 3a 77 3d 72  |T$,w..l"I%=0:w=r|
000250e0  70 77 69 64 25 3a e7 6f  75 74 72 65 70 25 3d 32  |pwid%:.outrep%=2|
000250f0  3a 77 3d 31 33 31 0d de  76 05 f5 0d de 80 17 e7  |:w=131..v.......|
00025100  63 24 28 66 69 6c 65 25  2c 49 25 2c 30 29 3e 22  |c$(file%,I%,0)>"|
00025110  22 8c 0d de 8a 20 f2 64  65 63 6f 64 65 63 6f 6c  |".... .decodecol|
00025120  28 49 25 29 3a 54 24 3d  a4 78 37 28 63 65 78 70  |(I%):T$=.x7(cexp|
00025130  24 29 0d de 94 34 e7 70  72 6c 25 3c 3e 32 3a 63  |$)...4.prl%<>2:c|
00025140  76 24 28 49 25 2c 30 29  3d a4 72 62 6c 6e 6b 3a  |v$(I%,0)=.rblnk:|
00025150  8b 63 76 24 28 49 25 2c  30 29 3d c0 63 76 24 28  |.cv$(I%,0)=.cv$(|
00025160  49 25 2c 30 29 29 0d de  9e 12 e7 a4 72 62 6d 28  |I%,0))......rbm(|
00025170  a4 75 28 54 24 29 29 8c  0d de a8 17 63 76 24 28  |.u(T$)).....cv$(|
00025180  49 25 2c 30 29 3d a4 63  6f 6c 76 28 54 24 29 0d  |I%,0)=.colv(T$).|
00025190  de b2 20 e7 ac 63 64 75  70 25 80 63 76 24 28 49  |.. ..cdup%.cv$(I|
000251a0  25 2c 30 29 3d 63 76 24  28 49 25 2c 31 29 8c 0d  |%,0)=cv$(I%,1)..|
000251b0  de bc 14 63 76 24 28 49  25 2c 30 29 3d a4 72 62  |...cv$(I%,0)=.rb|
000251c0  6c 6e 6b 0d de c6 05 cc  0d de d0 31 63 76 24 28  |lnk........1cv$(|
000251d0  49 25 2c 31 29 3d 63 76  24 28 49 25 2c 30 29 3a  |I%,1)=cv$(I%,0):|
000251e0  e3 4a 25 3d 30 b8 33 3a  63 74 28 49 25 2c 4a 25  |.J%=0.3:ct(I%,J%|
000251f0  29 2b 3d 63 6f 6c 76 61  6c 0d de da 28 e7 63 76  |)+=colval...(.cv|
00025200  24 28 49 25 2c 30 29 3c  3e c4 63 77 69 64 25 2c  |$(I%,0)<>.cwid%,|
00025210  22 20 22 29 63 74 25 28  49 25 2c 4a 25 29 2b 3d  |" ")ct%(I%,J%)+=|
00025220  31 0d de e4 05 ed 0d de  ee 05 cd 0d de f8 05 cd  |1...............|
00025230  0d df 02 36 f5 3a 54 25  3d a4 70 72 6c 65 6e 28  |...6.:T%=.prlen(|
00025240  63 76 24 28 49 25 2c 30  29 29 3a e7 54 25 3e 77  |cv$(I%,0)):.T%>w|
00025250  3a 63 76 24 28 49 25 2c  30 29 3d c0 63 76 24 28  |:cv$(I%,0)=.cv$(|
00025260  49 25 2c 30 29 29 0d df  0c 0a fd 54 25 3c 3d 77  |I%,0)).....T%<=w|
00025270  0d df 16 1b e7 77 3e 3d  54 25 2b 31 3a 63 76 24  |.....w>=T%+1:cv$|
00025280  28 49 25 2c 30 29 2b 3d  22 20 22 0d df 20 18 77  |(I%,0)+=" ".. .w|
00025290  2d 3d a4 70 72 6c 65 6e  28 63 76 24 28 49 25 2c  |-=.prlen(cv$(I%,|
000252a0  30 29 29 0d df 2a 05 cc  0d df 34 10 63 76 24 28  |0))..*....4.cv$(|
000252b0  49 25 2c 30 29 3d 22 22  0d df 3e 05 cd 0d df 48  |I%,0)=""..>....H|
000252c0  19 49 25 2b 3d 31 3a fd  49 25 3e 6d 61 78 63 6f  |.I%+=1:.I%>maxco|
000252d0  6c 25 84 77 3c 31 0d df  52 05 e1 0d df 5c 04 0d  |l%.w<1..R....\..|
000252e0  df 66 0d dd a4 72 62 6d  28 54 24 29 0d df 70 25  |.f...rbm(T$)..p%|
000252f0  ea 49 25 2c 74 24 3a e3  49 25 3d 30 b8 6d 61 78  |.I%,t$:.I%=0.max|
00025300  66 25 3a e7 72 62 6d 25  80 28 31 3c 3c 49 25 29  |f%:.rbm%.(1<<I%)|
00025310  8c 0d df 7a 0d e7 49 25  3d 72 6d 66 25 8c 0d df  |...z..I%=rmf%...|
00025320  84 12 e7 a7 54 24 2c 22  5c 22 29 3d 30 3a 3d b9  |....T$,"\")=0:=.|
00025330  0d df 8e 05 cc 0d df 98  29 74 24 3d 22 5c 22 2b  |........)t$="\"+|
00025340  a4 75 28 a4 6f 66 69 6c  65 6e 61 6d 65 28 49 25  |.u(.ofilename(I%|
00025350  29 29 3a e7 a7 54 24 2c  74 24 29 3a 3d b9 0d df  |)):..T$,t$):=...|
00025360  a2 05 cd 0d df ac 05 cd  0d df b6 08 ed 3a 3d a3  |.............:=.|
00025370  0d df c0 04 0d df ca 1a  dd a4 70 72 6c 65 6e 28  |..........prlen(|
00025380  54 24 29 3a ea 54 25 3a  54 25 3d a9 54 24 0d df  |T$):.T%:T%=.T$..|
00025390  d4 10 dd a4 70 72 6c 65  6e 31 28 54 25 29 0d df  |....prlen1(T%)..|
000253a0  de 2f e7 ac 70 64 72 69  76 65 72 25 3a 3d 54 25  |./..pdriver%:=T%|
000253b0  3a 8b 3d 54 25 2a 50 44  63 70 6c 25 28 31 29 2f  |:.=T%*PDcpl%(1)/|
000253c0  50 44 63 70 6c 25 28 63  66 6e 74 25 29 0d df e8  |PDcpl%(cfnt%)...|
000253d0  04 0d df f2 17 dd a4 72  62 6c 6e 6b 3d c4 63 77  |.......rblnk=.cw|
000253e0  69 64 25 2c 22 20 22 29  0d df fc 04 0d e0 06 20  |id%," ")....... |
000253f0  dd f2 70 72 65 76 69 65  77 3a 6f 75 74 72 65 70  |..preview:outrep|
00025400  25 3d 32 3a f2 69 6e 69  74 72 65 70 0d e0 10 18  |%=2:.initrep....|
00025410  ea 85 3a ee 85 ea 3a f7  85 3a f2 70 72 65 76 65  |..:...:..:.preve|
00025420  72 72 3a e1 0d e0 1a 38  c8 99 22 57 69 6d 70 5f  |rr:....8.."Wimp_|
00025430  43 6f 6d 6d 61 6e 64 57  69 6e 64 6f 77 22 2c 31  |CommandWindow",1|
00025440  3a f2 6e 6f 72 6d 70 6f  69 6e 74 3a 6d 6f 64 65  |:.normpoint:mode|
00025450  25 3d eb 3a 2a 66 78 32  32 39 2c 31 0d e0 24 20  |%=.:*fx229,1..$ |
00025460  72 70 68 65 69 25 3d 33  30 3a 72 70 77 69 64 25  |rphei%=30:rpwid%|
00025470  3d 70 25 28 66 69 6c 65  25 2c 32 29 0d e0 2e 37  |=p%(file%,2)...7|
00025480  eb 31 36 3a ef 31 39 2c  39 2c 31 36 2c 30 2c 30  |.16:.19,9,16,0,0|
00025490  2c 26 33 30 2c 31 39 2c  31 30 2c 31 36 2c 26 41  |,&30,19,10,16,&A|
000254a0  30 2c 26 41 30 2c 30 3a  87 3a f2 70 72 6c 69 6e  |0,&A0,0:.:.prlin|
000254b0  65 73 74 0d e0 38 15 f5  3a e7 a6 30 3d 32 37 3a  |est..8..:..0=27:|
000254c0  f2 65 72 72 28 35 36 29  0d e0 42 0d fd ac a4 70  |.err(56)..B....p|
000254d0  72 6c 69 6e 65 0d e0 4c  0c 2a 66 78 32 32 39 2c  |rline..L.*fx229,|
000254e0  31 0d e0 56 1c f2 73 64  30 33 28 22 50 72 65 73  |1..V..sd03("Pres|
000254f0  73 20 61 20 6b 65 79 2e  2e 2e 20 22 29 0d e0 60  |s a key... ")..`|
00025500  2a f1 8a 31 39 2c 33 31  29 3b 3a f2 77 61 69 74  |*..19,31);:.wait|
00025510  6b 65 79 3a f2 65 6e 64  6f 73 63 6c 69 3a f2 65  |key:.endoscli:.e|
00025520  6e 64 61 63 74 3a e1 0d  e0 6a 04 0d e0 74 13 dd  |ndact:...j...t..|
00025530  a4 70 72 6c 69 6e 65 3a  ea 54 25 2c 6e 25 0d e0  |.prline:.T%,n%..|
00025540  7e 13 72 62 6d 25 3d 2d  31 3a c8 8e 70 72 6c 25  |~.rbm%=-1:..prl%|
00025550  ca 0d e0 88 3f c9 30 3a  f2 73 64 66 69 6c 65 28  |....?.0:.sdfile(|
00025560  72 6d 66 25 29 3a f2 73  64 6e 65 78 74 3a f2 73  |rmf%):.sdnext:.s|
00025570  64 66 69 6c 65 28 72 6d  66 25 29 3a 54 25 3d ac  |dfile(rmf%):T%=.|
00025580  a4 62 61 64 72 65 63 28  a4 76 5f 28 31 35 29 29  |.badrec(.v_(15))|
00025590  0d e0 92 16 c9 31 3a 72  62 6d 25 3d 30 3a 54 25  |.....1:rbm%=0:T%|
000255a0  3d a4 70 72 6c 31 0d e0  9c 2f c9 32 3a f2 73 64  |=.prl1.../.2:.sd|
000255b0  66 69 6c 65 28 72 6d 66  25 29 3a 6e 25 3d a4 76  |file(rmf%):n%=.v|
000255c0  5f 28 31 35 29 3a 72 62  6d 25 3d 30 3a 54 25 3d  |_(15):rbm%=0:T%=|
000255d0  a4 70 72 6c 31 0d e0 a6  05 cb 0d e0 b0 23 f2 73  |.prl1........#.s|
000255e0  64 66 69 6c 65 28 72 6d  66 25 29 3a e7 ac 54 25  |dfile(rmf%):..T%|
000255f0  3a f2 70 72 66 69 6e 69  73 68 3a 3d a3 0d e0 ba  |:.prfinish:=....|
00025600  36 54 25 3d 31 2d a4 66  6c 67 28 66 5f 72 64 73  |6T%=1-.flg(f_rds|
00025610  70 25 29 3a e7 70 72 6c  25 3d 32 80 74 6c 69 6e  |p%):.prl%=2.tlin|
00025620  65 73 25 3c 3e 30 54 25  3d 54 25 2a 74 6c 69 6e  |es%<>0T%=T%*tlin|
00025630  65 73 25 0d e0 c4 1b f2  65 6e 64 70 61 67 65 28  |es%.....endpage(|
00025640  54 25 29 3a f2 70 72 73  75 62 73 28 b9 29 0d e0  |T%):.prsubs(.)..|
00025650  ce 0d e7 70 72 6c 25 3c  3e 32 8c 0d e0 d8 2a f2  |...prl%<>2....*.|
00025660  63 6f 6c 73 3a e7 ac a4  66 6c 67 28 66 5f 72 74  |cols:...flg(f_rt|
00025670  73 75 25 29 3a f2 70 72  64 73 70 3a f2 70 72 6f  |su%):.prdsp:.pro|
00025680  70 63 6f 6c 73 0d e0 e2  05 cc 0d e0 ec 09 f2 63  |pcols..........c|
00025690  6f 6c 73 0d e0 f6 31 e7  ac a4 66 6c 67 28 66 5f  |ols...1...flg(f_|
000256a0  72 74 73 75 25 29 80 72  70 72 31 25 f2 70 72 64  |rtsu%).rpr1%.prd|
000256b0  73 70 3a f2 70 72 74 6f  74 28 33 29 3a 8b 72 70  |sp:.prtot(3):.rp|
000256c0  72 25 3d a3 0d e1 00 05  cd 0d e1 0a 06 3d b9 0d  |r%=..........=..|
000256d0  e1 14 04 0d e1 1e 1c dd  a4 70 72 6c 31 3a ea 54  |.........prl1:.T|
000256e0  25 3a f2 73 64 66 69 6c  65 28 72 6c 66 25 29 0d  |%:.sdfile(rlf%).|
000256f0  e1 28 0b c8 8e 72 70 63  25 ca 0d e1 32 06 c9 30  |.(...rpc%...2..0|
00025700  0d e1 3c 15 54 25 3d a4  6e 78 6c 6e 6b 3a e7 54  |..<.T%=.nxlnk:.T|
00025710  25 3e 3d 30 8c 0d e1 46  14 e7 a4 67 65 74 6c 69  |%>=0...F...getli|
00025720  6e 6b 28 54 25 2c 30 29  8c 0d e1 50 36 72 62 6d  |nk(T%,0)...P6rbm|
00025730  25 3d 72 62 6d 25 84 28  28 31 3c 3c 72 6c 66 25  |%=rbm%.((1<<rlf%|
00025740  29 80 ac 72 70 72 25 29  3a 72 73 70 25 2b 3d 31  |)..rpr%):rsp%+=1|
00025750  3a 72 73 25 28 72 73 70  25 29 3d 72 6c 66 25 0d  |:rs%(rsp%)=rlf%.|
00025760  e1 5a 1d 72 6c 66 25 3d  66 69 6c 65 25 3a 72 6c  |.Z.rlf%=file%:rl|
00025770  6c 25 3d 2d 31 3a 72 70  72 25 3d a3 0d e1 64 05  |l%=-1:rpr%=...d.|
00025780  cc 0d e1 6e 19 f2 73 64  66 69 6c 65 28 72 6c 66  |...n..sdfile(rlf|
00025790  25 29 3a 72 6c 6c 25 3d  54 25 0d e1 78 05 cd 0d  |%):rll%=T%..x...|
000257a0  e1 82 0a 3d a4 70 72 6c  31 0d e1 8c 05 cd 0d e1  |...=.prl1.......|
000257b0  96 30 72 62 6d 25 3d 72  62 6d 25 84 28 31 3c 3c  |.0rbm%=rbm%.(1<<|
000257c0  72 6c 66 25 29 3a 72 70  63 25 3d 31 2d 72 70 72  |rlf%):rpc%=1-rpr|
000257d0  25 3a 72 70 72 31 25 3d  72 70 63 25 3d 31 0d e1  |%:rpr1%=rpc%=1..|
000257e0  a0 1d e7 70 72 6c 25 3d  32 80 72 70 72 31 25 80  |...prl%=2.rpr1%.|
000257f0  72 6d 66 25 3c 3e 72 6c  66 25 8c 0d e1 aa 1c f2  |rmf%<>rlf%......|
00025800  73 64 66 69 6c 65 28 72  6c 66 25 29 3a 54 25 3d  |sdfile(rlf%):T%=|
00025810  a4 76 5f 28 31 34 29 0d  e1 b4 23 e7 a4 67 65 74  |.v_(14)...#..get|
00025820  6c 69 6e 6b 28 72 6c 66  25 2c a4 76 5f 28 31 34  |link(rlf%,.v_(14|
00025830  29 29 3a 72 70 72 31 25  3d a3 0d e1 be 27 f2 73  |)):rpr1%=....'.s|
00025840  64 66 69 6c 65 28 72 6c  66 25 29 3a c8 99 73 77  |dfile(rlf%):..sw|
00025850  69 25 2c 6c 6f 63 61 74  65 5f 25 2c 54 25 b8 44  |i%,locate_%,T%.D|
00025860  25 0d e1 c8 05 cd 0d e1  d2 0a 3d a4 70 72 6c 31  |%.........=.prl1|
00025870  0d e1 dc 2b c9 31 3a 72  62 6d 25 3d 72 62 6d 25  |...+.1:rbm%=rbm%|
00025880  84 28 31 3c 3c 72 6c 66  25 29 3a 72 70 63 25 3d  |.(1<<rlf%):rpc%=|
00025890  32 3a 72 70 72 25 3d b9  3a 3d b9 0d e1 e6 06 c9  |2:rpr%=.:=......|
000258a0  32 0d e1 f0 17 72 70 72  31 25 3d a3 3a e7 72 6c  |2....rpr1%=.:.rl|
000258b0  66 25 3d 72 6d 66 25 8c  0d e1 fa 20 e7 ac 72 70  |f%=rmf%.... ..rp|
000258c0  72 25 3a 72 70 63 25 3d  31 3a 72 70 72 31 25 3d  |r%:rpc%=1:rpr1%=|
000258d0  b9 3a 3d a4 70 72 6c 31  0d e2 04 3e f2 73 64 6e  |.:=.prl1...>.sdn|
000258e0  65 78 74 3a 72 6c 6c 25  3d 2d 31 3a 72 70 63 25  |ext:rll%=-1:rpc%|
000258f0  3d 30 3a 72 70 72 25 3d  a3 3a e7 a4 62 61 64 72  |=0:rpr%=.:..badr|
00025900  65 63 28 a4 76 5f 28 31  35 29 29 3a 3d a3 3a 8b  |ec(.v_(15)):=.:.|
00025910  3d a4 70 72 6c 31 0d e2  0e 05 cc 0d e2 18 37 e7  |=.prl1........7.|
00025920  a4 67 65 74 6c 69 6e 6b  28 72 6c 66 25 2c a4 76  |.getlink(rlf%,.v|
00025930  5f 28 31 34 29 29 72 70  63 25 3d 30 3a 72 70 72  |_(14))rpc%=0:rpr|
00025940  25 3d a3 3a 72 6c 6c 25  3d 2d 31 3a 3d a4 70 72  |%=.:rll%=-1:=.pr|
00025950  6c 31 0d e2 22 29 72 62  6d 25 3d 72 62 6d 25 80  |l1..")rbm%=rbm%.|
00025960  ac 28 31 3c 3c 72 6c 66  25 29 3a 72 6c 6c 25 3d  |.(1<<rlf%):rll%=|
00025970  72 6c 66 25 3a 72 70 72  25 3d b9 0d e2 2c 37 f2  |rlf%:rpr%=...,7.|
00025980  73 64 66 69 6c 65 28 72  73 25 28 72 73 70 25 29  |sdfile(rs%(rsp%)|
00025990  29 3a 72 73 70 25 2d 3d  31 3a 72 6c 66 25 3d 66  |):rsp%-=1:rlf%=f|
000259a0  69 6c 65 25 3a 72 70 63  25 3d 30 3a 3d a4 70 72  |ile%:rpc%=0:=.pr|
000259b0  6c 31 0d e2 36 05 cd 0d  e2 40 08 cb 3a 3d a3 0d  |l1..6....@..:=..|
000259c0  e2 4a 04 0d e2 54 1a dd  a4 67 65 74 6c 69 6e 6b  |.J...T...getlink|
000259d0  28 72 6c 66 25 2c 54 25  29 3a ea 54 24 0d e2 5e  |(rlf%,T%):.T$..^|
000259e0  06 ea 85 0d e2 68 29 ee  85 ea 3a f7 85 3a f2 73  |.....h)...:..:.s|
000259f0  64 66 69 6c 65 28 72 6c  66 25 29 3a f2 75 6e 6c  |dfile(rlf%):.unl|
00025a00  69 6e 6b 3a f2 65 72 72  28 33 37 29 0d e2 72 3b  |ink:.err(37)..r;|
00025a10  f2 73 64 66 69 6c 65 28  6c 25 28 72 6c 66 25 29  |.sdfile(l%(rlf%)|
00025a20  2d 31 29 3a 54 24 3d a4  65 76 28 6c 78 24 28 72  |-1):T$=.ev(lx$(r|
00025a30  6c 66 25 29 2c b9 2c b9  29 3a f2 73 64 66 69 6c  |lf%),.,.):.sdfil|
00025a40  65 28 72 6c 66 25 29 0d  e2 7c 2b 47 25 3d 30 3a  |e(rlf%)..|+G%=0:|
00025a50  e7 54 24 3e 22 22 3a f2  64 75 70 31 28 6c 6b 24  |.T$>"":.dup1(lk$|
00025a60  28 66 69 6c 65 25 29 2b  22 3d 22 2b 54 24 2c 54  |(file%)+"="+T$,T|
00025a70  25 29 0d e2 86 22 54 25  3d 47 25 3a e7 47 25 3d  |%)..."T%=G%:.G%=|
00025a80  30 3a c8 99 73 77 69 25  2c 66 69 72 73 74 5f 25  |0:..swi%,first_%|
00025a90  b8 2c 4e 25 0d e2 90 10  f2 73 64 33 35 3a 3d 54  |.,N%.....sd35:=T|
00025aa0  25 3c 3e 30 0d e2 9a 04  0d e2 a4 17 dd a4 6e 78  |%<>0..........nx|
00025ab0  6c 6e 6b 3a ea 54 25 3a  54 25 3d 72 6c 6c 25 0d  |lnk:.T%:T%=rll%.|
00025ac0  e2 ae 33 f5 3a 54 25 2b  3d 31 3a e7 54 25 3c 3d  |..3.:T%+=1:.T%<=|
00025ad0  6d 61 78 66 25 3a e7 6c  25 28 54 25 29 2d 31 3d  |maxf%:.l%(T%)-1=|
00025ae0  66 69 6c 65 25 3a e7 72  6c 25 28 54 25 29 3a 3d  |file%:.rl%(T%):=|
00025af0  54 25 0d e2 b8 11 fd 54  25 3e 6d 61 78 66 25 3a  |T%.....T%>maxf%:|
00025b00  3d 2d 31 0d e2 c2 04 0d  e2 cc 16 dd f2 70 72 65  |=-1..........pre|
00025b10  76 65 72 72 3a 2a 66 78  32 32 39 2c 31 0d e2 d6  |verr:*fx229,1...|
00025b20  12 f2 62 75 7a 7a 32 3a  24 73 64 25 3d f6 24 0d  |..buzz2:$sd%=.$.|
00025b30  e2 e0 21 e7 ac a4 70 72  6f 64 3a 24 73 64 25 3d  |..!...prod:$sd%=|
00025b40  24 73 64 25 2b 22 20 28  22 2b c3 9e 2b 22 29 22  |$sd%+" ("+..+")"|
00025b50  0d e2 ea 2d 24 73 64 25  3d 24 73 64 25 2b 22 20  |...-$sd%=$sd%+" |
00025b60  5b 50 72 65 73 73 20 61  6e 79 20 6b 65 79 5d 20  |[Press any key] |
00025b70  22 3a f2 73 64 30 33 28  24 73 64 25 29 0d e2 f4  |":.sd03($sd%)...|
00025b80  2f f1 8a a9 24 73 64 25  2b 34 2c 33 31 29 3b 3a  |/...$sd%+4,31);:|
00025b90  f2 77 61 69 74 6b 65 79  3a f2 65 6e 64 6f 73 63  |.waitkey:.endosc|
00025ba0  6c 69 3a f2 65 6e 64 61  63 74 3a e1 0d e2 fe 04  |li:.endact:.....|
00025bb0  0d e3 08 13 dd a4 70 72  77 69 64 74 68 3a ea 77  |......prwidth:.w|
00025bc0  2c 49 25 0d e3 12 3e e3  49 25 3d 30 b8 6d 61 78  |,I%...>.I%=0.max|
00025bd0  63 6f 6c 25 3a f2 64 65  63 6f 64 65 63 6f 6c 28  |col%:.decodecol(|
00025be0  49 25 29 3a e7 63 65 78  70 24 3e 22 22 3a 77 2b  |I%):.cexp$>"":w+|
00025bf0  3d a4 70 72 6c 65 6e 31  28 63 77 69 64 25 2b 31  |=.prlen1(cwid%+1|
00025c00  29 0d e3 1c 10 ed 3a 3d  a8 77 2b 28 a8 77 3e 30  |).....:=.w+(.w>0|
00025c10  29 0d e3 26 04 0d e3 30  1d dd f2 70 72 64 73 70  |)..&...0...prdsp|
00025c20  3a e7 ac a4 66 6c 67 28  66 5f 72 64 73 70 25 29  |:...flg(f_rdsp%)|
00025c30  3a e1 0d e3 3a 3a e7 70  6c 69 6e 65 25 3c 72 70  |:...::.pline%<rp|
00025c40  68 65 69 25 2d 32 84 28  70 25 28 66 69 6c 65 25  |hei%-2.(p%(file%|
00025c50  2c 34 29 3d 30 80 6f 75  74 72 65 70 25 3c 3e 32  |,4)=0.outrep%<>2|
00025c60  29 3a f2 70 72 6e 65 77  6c 69 6e 65 0d e3 44 05  |):.prnewline..D.|
00025c70  e1 0d e3 4e 04 0d e3 58  15 dd f2 70 72 6f 70 63  |...N...X...propc|
00025c80  6f 6c 73 3a ea 54 24 2c  49 25 0d e3 62 2d e3 49  |ols:.T$,I%..b-.I|
00025c90  25 3d 30 b8 6d 61 78 63  6f 6c 25 3a f2 64 65 63  |%=0.maxcol%:.dec|
00025ca0  6f 64 65 63 6f 6c 28 49  25 29 3a 54 24 3d 63 76  |odecol(I%):T$=cv|
00025cb0  24 28 49 25 2c 30 29 0d  e3 6c 38 e7 63 65 78 70  |$(I%,0)..l8.cexp|
00025cc0  24 3e 22 22 f2 70 72 73  65 74 66 6f 6e 74 28 63  |$>"".prsetfont(c|
00025cd0  66 6e 74 25 29 3a f2 70  70 65 78 70 61 6e 64 28  |fnt%):.ppexpand(|
00025ce0  54 24 29 3a f2 70 72 70  73 74 72 28 54 24 29 0d  |T$):.prpstr(T$).|
00025cf0  e3 76 12 ed 3a f2 70 72  6e 65 77 6c 69 6e 65 3a  |.v..:.prnewline:|
00025d00  e1 0d e3 80 04 0d e3 8a  30 dd f2 70 72 6e 65 77  |........0..prnew|
00025d10  6c 69 6e 65 3a ea 54 25  3a 54 25 3d 38 30 3a e7  |line:.T%:T%=80:.|
00025d20  70 64 72 69 76 65 72 25  3a 54 25 3d 50 44 63 70  |pdriver%:T%=PDcp|
00025d30  6c 25 28 31 29 0d e3 94  0e c8 8e 6f 75 74 72 65  |l%(1)......outre|
00025d40  70 25 ca 0d e3 9e 0d c9  30 3a f2 70 6e 65 77 6c  |p%......0:.pnewl|
00025d50  0d e3 a8 0d c9 31 3a f2  64 6e 65 77 6c 0d e3 b2  |.....1:.dnewl...|
00025d60  08 c9 32 3a f1 0d e3 bc  05 cb 0d e3 c6 17 70 6c  |..2:..........pl|
00025d70  69 6e 65 25 2b 3d 31 3a  f2 70 72 6c 69 6e 65 73  |ine%+=1:.prlines|
00025d80  74 0d e3 d0 05 e1 0d e3  da 04 0d e3 e4 0e dd f2  |t...............|
00025d90  70 72 6c 69 6e 65 73 74  0d e3 ee 2f ea 54 25 3a  |prlinest.../.T%:|
00025da0  54 25 3d 38 30 3a e7 70  64 72 69 76 65 72 25 3a  |T%=80:.pdriver%:|
00025db0  e7 70 72 66 6e 74 25 3e  3d 30 3a 54 25 3d 50 44  |.prfnt%>=0:T%=PD|
00025dc0  63 70 6c 25 28 31 29 0d  e3 f8 24 e7 6f 75 74 72  |cpl%(1)...$.outr|
00025dd0  65 70 25 3d 32 3a f2 74  65 78 74 5f 6e 65 77 6c  |ep%=2:.text_newl|
00025de0  28 72 70 77 69 64 25 2c  54 25 29 0d e4 02 37 f2  |(rpwid%,T%)...7.|
00025df0  70 72 73 65 74 66 6f 6e  74 28 31 29 3a e7 6f 75  |prsetfont(1):.ou|
00025e00  74 72 65 70 25 3c 3e 32  f2 70 72 70 73 74 72 28  |trep%<>2.prpstr(|
00025e10  c4 70 25 28 66 69 6c 65  25 2c 31 29 2c 22 20 22  |.p%(file%,1)," "|
00025e20  29 29 0d e4 0c 05 e1 0d  e4 16 04 0d e4 20 23 dd  |))........... #.|
00025e30  f2 70 72 73 65 74 66 6f  6e 74 28 54 25 29 3a e7  |.prsetfont(T%):.|
00025e40  ac 70 64 72 69 76 65 72  25 3a 54 25 3d 31 0d e4  |.pdriver%:T%=1..|
00025e50  2a 38 e7 70 72 66 6e 74  25 3c 3e 54 25 80 6f 75  |*8.prfnt%<>T%.ou|
00025e60  74 72 65 70 25 3c 3e 32  80 70 64 72 69 76 65 72  |trep%<>2.pdriver|
00025e70  25 3a f2 70 72 70 73 74  72 28 50 44 66 6f 6e 74  |%:.prpstr(PDfont|
00025e80  24 28 54 25 29 29 0d e4  34 0f 70 72 66 6e 74 25  |$(T%))..4.prfnt%|
00025e90  3d 54 25 3a e1 0d e4 3e  04 0d e4 48 10 dd f2 70  |=T%:...>...H...p|
00025ea0  72 70 73 74 72 28 54 24  29 0d e4 52 34 ea 54 25  |rpstr(T$)..R4.T%|
00025eb0  3a 54 25 3d 38 30 3a e7  70 64 72 69 76 65 72 25  |:T%=80:.pdriver%|
00025ec0  3a e7 70 72 66 6e 74 25  3e 3d 30 3a 54 25 3d 50  |:.prfnt%>=0:T%=P|
00025ed0  44 63 70 6c 25 28 70 72  66 6e 74 25 29 0d e4 5c  |Dcpl%(prfnt%)..\|
00025ee0  0e c8 8e 6f 75 74 72 65  70 25 ca 0d e4 66 1e c9  |...outrep%...f..|
00025ef0  30 3a f2 70 70 72 6f 63  28 54 24 29 3a f2 70 70  |0:.pproc(T$):.pp|
00025f00  72 69 6e 74 31 28 54 24  29 0d e4 70 13 c9 31 3a  |rint1(T$)..p..1:|
00025f10  f2 64 70 72 69 6e 74 31  28 54 24 29 0d e4 7a 24  |.dprint1(T$)..z$|
00025f20  c9 32 3a f2 70 70 73 70  63 31 28 54 24 29 3a f2  |.2:.ppspc1(T$):.|
00025f30  74 65 78 74 5f 70 73 74  72 28 54 24 2c 54 25 29  |text_pstr(T$,T%)|
00025f40  0d e4 84 05 cb 0d e4 8e  05 e1 0d e4 98 04 0d e4  |................|
00025f50  a2 2a dd f2 70 72 70 6c  69 6e 65 28 54 24 29 3a  |.*..prpline(T$):|
00025f60  f2 70 72 70 73 74 72 28  54 24 29 3a f2 70 72 6e  |.prpstr(T$):.prn|
00025f70  65 77 6c 69 6e 65 3a e1  0d e4 ac 04 0d e4 b6 17  |ewline:.........|
00025f80  dd f2 65 6e 64 70 61 67  65 28 54 25 29 3a 54 25  |..endpage(T%):T%|
00025f90  2b 3d 32 0d e4 c0 2c e7  70 25 28 66 69 6c 65 25  |+=2...,.p%(file%|
00025fa0  2c 34 29 3d 30 3a e7 6f  75 74 72 65 70 25 3c 3e  |,4)=0:.outrep%<>|
00025fb0  32 3a f2 70 72 70 61 67  65 68 65 61 64 3a e1 0d  |2:.prpagehead:..|
00025fc0  e4 ca 37 e7 70 6c 69 6e  65 25 3e 72 70 68 65 69  |..7.pline%>rphei|
00025fd0  25 2d 54 25 2b 31 3a e7  70 64 72 69 76 65 72 25  |%-T%+1:.pdriver%|
00025fe0  3a f2 70 72 66 6f 6f 74  65 72 3a f2 70 72 65 6a  |:.prfooter:.prej|
00025ff0  65 63 74 28 b9 29 0d e4  d4 11 f2 70 72 70 61 67  |ect(.).....prpag|
00026000  65 68 65 61 64 3a e1 0d  e4 de 04 0d e4 e8 0e dd  |ehead:..........|
00026010  f2 70 72 66 6f 6f 74 65  72 0d e4 f2 26 ea 57 25  |.prfooter...&.W%|
00026020  2c 54 25 3a 57 25 3d 70  72 77 25 3a e7 57 25 3e  |,T%:W%=prw%:.W%>|
00026030  72 70 77 69 64 25 57 25  3d 72 70 77 69 64 25 0d  |rpwid%W%=rpwid%.|
00026040  e4 fc 12 f2 70 72 64 61  73 68 28 b9 2c 22 2d 22  |....prdash(.,"-"|
00026050  29 0d e5 06 2f e7 70 25  28 66 69 6c 65 25 2c 33  |).../.p%(file%,3|
00026060  29 3e 30 3a c8 95 70 6c  69 6e 65 25 3c 72 70 68  |)>0:..pline%<rph|
00026070  65 69 25 3a f2 70 72 6e  65 77 6c 69 6e 65 3a ce  |ei%:.prnewline:.|
00026080  0d e5 10 51 24 73 64 25  3d 22 22 3a e7 a4 66 6c  |...Q$sd%="":..fl|
00026090  67 28 66 5f 72 62 70 6e  25 29 3a 24 73 64 25 3d  |g(f_rbpn%):$sd%=|
000260a0  c0 22 50 61 67 65 20 22  2b c3 70 70 61 67 65 25  |."Page "+.ppage%|
000260b0  2c 57 25 29 3a 24 73 64  25 3d c4 28 57 25 2d a9  |,W%):$sd%=.(W%-.|
000260c0  24 73 64 25 29 2f 32 2c  22 20 22 29 2b 24 73 64  |$sd%)/2," ")+$sd|
000260d0  25 0d e5 1a 11 f2 70 72  70 73 74 72 28 24 73 64  |%.....prpstr($sd|
000260e0  25 29 0d e5 24 20 54 25  3d 38 30 3a e7 70 64 72  |%)..$ T%=80:.pdr|
000260f0  69 76 65 72 25 3a 54 25  3d 50 44 63 70 6c 25 28  |iver%:T%=PDcpl%(|
00026100  31 29 0d e5 2e 0e c8 8e  6f 75 74 72 65 70 25 ca  |1)......outrep%.|
00026110  0d e5 38 0d c9 30 3a f2  70 6e 65 77 6c 0d e5 42  |..8..0:.pnewl..B|
00026120  0d c9 31 3a f2 64 6e 65  77 6c 0d e5 4c 08 c9 32  |..1:.dnewl..L..2|
00026130  3a f1 0d e5 56 05 cb 0d  e5 60 0f 70 6c 69 6e 65  |:...V....`.pline|
00026140  25 2b 3d 31 3a e1 0d e5  6a 04 0d e5 74 11 dd f2  |%+=1:...j...t...|
00026150  70 72 65 6a 65 63 74 28  54 25 29 0d e5 7e 3d e7  |preject(T%)..~=.|
00026160  6f 75 74 72 65 70 25 3c  3e 32 e7 70 25 28 66 69  |outrep%<>2.p%(fi|
00026170  6c 65 25 2c 34 29 3d 30  84 ac 70 64 72 69 76 65  |le%,4)=0..pdrive|
00026180  72 25 3a f2 70 72 6e 65  77 6c 69 6e 65 3a 70 6c  |r%:.prnewline:pl|
00026190  69 6e 65 25 3d 31 3a e1  0d e5 88 22 e7 6f 75 74  |ine%=1:....".out|
000261a0  72 65 70 25 3c 3e 32 80  50 44 66 66 24 3e 22 22  |rep%<>2.PDff$>""|
000261b0  80 70 64 72 69 76 65 72  25 8c 0d e5 92 0c 70 6c  |.pdriver%.....pl|
000261c0  69 6e 65 25 3d 30 0d e5  9c 27 e7 6f 75 74 72 65  |ine%=0...'.outre|
000261d0  70 25 3d 31 80 70 64 72  69 76 65 72 25 f2 70 72  |p%=1.pdriver%.pr|
000261e0  70 73 74 72 28 50 44 66  66 24 29 3a e1 0d e5 a6  |pstr(PDff$):....|
000261f0  38 e7 6f 75 74 72 65 70  25 3d 30 80 70 64 72 69  |8.outrep%=0.pdri|
00026200  76 65 72 25 f2 70 70 61  67 65 28 54 25 29 3a 8b  |ver%.ppage(T%):.|
00026210  e7 ac 70 64 72 69 76 65  72 25 3a f2 70 72 6e 65  |..pdriver%:.prne|
00026220  77 6c 69 6e 65 0d e5 b0  05 e1 0d e5 ba 05 cd 0d  |wline...........|
00026230  e5 c4 3b e7 6f 75 74 72  65 70 25 3c 3e 32 c8 95  |..;.outrep%<>2..|
00026240  70 6c 69 6e 65 25 3c 70  25 28 66 69 6c 65 25 2c  |pline%<p%(file%,|
00026250  34 29 3a f2 70 72 6e 65  77 6c 69 6e 65 3a ce 3a  |4):.prnewline:.:|
00026260  70 6c 69 6e 65 25 3d 30  3a e1 0d e5 ce 1c f2 73  |pline%=0:......s|
00026270  64 30 33 28 22 50 72 65  73 73 20 61 20 6b 65 79  |d03("Press a key|
00026280  2e 2e 2e 20 22 29 0d e5  d8 26 f1 8a 31 39 2c 33  |... ")...&..19,3|
00026290  31 29 3b 3a f2 77 61 69  74 6b 65 79 3a e7 47 25  |1);:.waitkey:.G%|
000262a0  3d 32 37 3a f2 65 72 72  28 35 36 29 0d e5 e2 1c  |=27:.err(56)....|
000262b0  db 3a 70 6c 69 6e 65 25  3d 30 3a 87 3a f2 70 72  |.:pline%=0:.:.pr|
000262c0  6c 69 6e 65 73 74 3a e1  0d e5 ec 04 0d e5 f6 1d  |linest:.........|
000262d0  dd f2 70 72 70 61 67 65  68 65 61 64 3a e7 70 6c  |..prpagehead:.pl|
000262e0  69 6e 65 25 3c 3e 30 3a  e1 0d e6 00 12 ea 54 24  |ine%<>0:......T$|
000262f0  2c 54 25 2c 43 25 2c 49  25 2c 77 0d e6 0a 32 66  |,T%,C%,I%,w...2f|
00026300  6c 69 6e 65 25 3d 2d 39  39 39 39 3a 70 70 61 67  |line%=-9999:ppag|
00026310  65 25 2b 3d 31 3a f2 70  72 73 65 74 66 6f 6e 74  |e%+=1:.prsetfont|
00026320  28 31 29 3a f2 70 72 6c  69 6e 65 73 74 0d e6 14  |(1):.prlinest...|
00026330  34 f5 3a 24 73 64 25 3d  a4 70 72 68 65 61 64 65  |4.:$sd%=.prheade|
00026340  72 28 70 6c 69 6e 65 25  29 3a f2 70 72 70 6c 69  |r(pline%):.prpli|
00026350  6e 65 28 24 73 64 25 29  3a fd 24 73 64 25 3d 22  |ne($sd%):.$sd%="|
00026360  22 0d e6 1e 20 e3 43 25  3d 30 b8 6d 61 78 63 6f  |"... .C%=0.maxco|
00026370  6c 25 3a 63 76 24 28 43  25 2c 30 29 3d 22 22 3a  |l%:cv$(C%,0)="":|
00026380  ed 0d e6 28 1d 77 3d 72  70 77 69 64 25 3a e7 6f  |...(.w=rpwid%:.o|
00026390  75 74 72 65 70 25 3d 32  3a 77 3d 31 33 31 0d e6  |utrep%=2:w=131..|
000263a0  32 0a 43 25 3d 30 3a f5  0d e6 3c 1d f2 64 65 63  |2.C%=0:...<..dec|
000263b0  6f 64 65 63 6f 6c 28 43  25 29 3a e7 63 65 78 70  |odecol(C%):.cexp|
000263c0  24 3e 22 22 8c 0d e6 46  21 54 24 3d a4 73 74 72  |$>""...F!T$=.str|
000263d0  6a 75 73 28 63 68 64 72  24 2c 63 77 69 64 25 2c  |jus(chdr$,cwid%,|
000263e0  63 6a 75 73 25 29 0d e6  50 21 f5 3a 54 25 3d a4  |cjus%)..P!.:T%=.|
000263f0  70 72 6c 65 6e 28 54 24  29 3a e7 54 25 3e 77 3a  |prlen(T$):.T%>w:|
00026400  54 24 3d c0 54 24 29 0d  e6 5a 1b fd 54 25 3c 3d  |T$=.T$)..Z..T%<=|
00026410  77 3a e7 77 3e 3d 54 25  2b 31 3a 54 24 2b 3d 22  |w:.w>=T%+1:T$+="|
00026420  20 22 0d e6 64 1e 77 2d  3d a4 70 72 6c 65 6e 28  | "..d.w-=.prlen(|
00026430  54 24 29 3a 63 76 24 28  43 25 2c 30 29 3d 54 24  |T$):cv$(C%,0)=T$|
00026440  0d e6 6e 05 cd 0d e6 78  19 43 25 2b 3d 31 3a fd  |..n....x.C%+=1:.|
00026450  43 25 3e 6d 61 78 63 6f  6c 25 84 77 3c 31 0d e6  |C%>maxcol%.w<1..|
00026460  82 1e f2 70 72 6f 70 63  6f 6c 73 3a f2 70 72 64  |...propcols:.prd|
00026470  61 73 68 28 b9 2c 22 2d  22 29 3a e1 0d e6 8c 04  |ash(.,"-"):.....|
00026480  0d e6 96 24 dd f2 70 72  64 61 73 68 28 66 25 2c  |...$..prdash(f%,|
00026490  74 24 29 3a e7 70 6c 69  6e 65 25 3d 66 6c 69 6e  |t$):.pline%=flin|
000264a0  65 25 3a e1 0d e6 a0 29  ea 54 25 2c 43 25 2c 63  |e%:....).T%,C%,c|
000264b0  25 2c 77 3a 77 3d 72 70  77 69 64 25 3a e7 6f 75  |%,w:w=rpwid%:.ou|
000264c0  74 72 65 70 25 3d 32 3a  77 3d 31 33 31 0d e6 aa  |trep%=2:w=131...|
000264d0  20 e3 43 25 3d 30 b8 6d  61 78 63 6f 6c 25 3a 63  | .C%=0.maxcol%:c|
000264e0  76 24 28 43 25 2c 30 29  3d 22 22 3a ed 0d e6 b4  |v$(C%,0)="":....|
000264f0  0a 43 25 3d 30 3a f5 0d  e6 be 1d f2 64 65 63 6f  |.C%=0:......deco|
00026500  64 65 63 6f 6c 28 43 25  29 3a e7 63 65 78 70 24  |decol(C%):.cexp$|
00026510  3e 22 22 8c 0d e6 c8 2a  e7 66 25 84 28 63 74 6f  |>""....*.f%.(cto|
00026520  74 25 3c 3e 30 80 63 64  70 73 25 3c 3e 2d 31 29  |t%<>0.cdps%<>-1)|
00026530  3a 63 25 3d 97 74 24 3a  8b 63 25 3d 33 32 0d e6  |:c%=.t$:.c%=32..|
00026540  d2 12 54 24 3d c4 63 77  69 64 25 2c bd 63 25 29  |..T$=.cwid%,.c%)|
00026550  0d e6 dc 21 f5 3a 54 25  3d a4 70 72 6c 65 6e 28  |...!.:T%=.prlen(|
00026560  54 24 29 3a e7 54 25 3e  77 3a 54 24 3d c0 54 24  |T$):.T%>w:T$=.T$|
00026570  29 0d e6 e6 1b fd 54 25  3c 3d 77 3a e7 77 3e 3d  |).....T%<=w:.w>=|
00026580  54 25 2b 31 3a 54 24 2b  3d 22 20 22 0d e6 f0 1e  |T%+1:T$+=" "....|
00026590  77 2d 3d a4 70 72 6c 65  6e 28 54 24 29 3a 63 76  |w-=.prlen(T$):cv|
000265a0  24 28 43 25 2c 30 29 3d  54 24 0d e6 fa 05 cd 0d  |$(C%,0)=T$......|
000265b0  e7 04 19 43 25 2b 3d 31  3a fd 43 25 3e 6d 61 78  |...C%+=1:.C%>max|
000265c0  63 6f 6c 25 84 77 3c 31  0d e7 0e 1d f2 70 72 6f  |col%.w<1.....pro|
000265d0  70 63 6f 6c 73 3a 66 6c  69 6e 65 25 3d 70 6c 69  |pcols:fline%=pli|
000265e0  6e 65 25 3a e1 0d e7 18  04 0d e7 22 12 dd a4 70  |ne%:......."...p|
000265f0  72 68 65 61 64 65 72 28  4c 25 29 0d e7 2c 23 ea  |rheader(L%)..,#.|
00026600  57 25 3a 57 25 3d 70 72  77 25 3a e7 57 25 3e 72  |W%:W%=prw%:.W%>r|
00026610  70 77 69 64 25 57 25 3d  72 70 77 69 64 25 0d e7  |pwid%W%=rpwid%..|
00026620  36 12 e7 57 25 3c 31 84  4c 25 3e 33 3a 3d 22 22  |6..W%<1.L%>3:=""|
00026630  0d e7 40 0d ea 54 24 2c  54 25 2c 73 24 0d e7 4a  |..@..T$,T%,s$..J|
00026640  26 73 24 3d c0 70 24 28  66 69 6c 65 25 2c 4c 25  |&s$=.p$(file%,L%|
00026650  29 2c 57 25 29 3a f2 70  70 65 78 70 61 6e 64 28  |),W%):.ppexpand(|
00026660  73 24 29 0d e7 54 2b 73  24 3d c4 28 57 25 2d a9  |s$)..T+s$=.(W%-.|
00026670  73 24 29 2f 32 2c 22 20  22 29 2b 73 24 3a 73 24  |s$)/2," ")+s$:s$|
00026680  2b 3d c4 57 25 2d a9 73  24 2c 22 20 22 29 0d e7  |+=.W%-.s$," ")..|
00026690  5e 0a e7 4c 25 3d 30 8c  0d e7 68 30 e7 a4 66 6c  |^..L%=0...h0..fl|
000266a0  67 28 66 5f 72 70 64 74  25 29 3a 54 24 3d 64 61  |g(f_rpdt%):T$=da|
000266b0  74 65 24 3a 73 24 3d 54  24 2b 22 20 22 2b c1 73  |te$:s$=T$+" "+.s|
000266c0  24 2c a9 54 24 2b 32 29  0d e7 72 2d e7 a4 66 6c  |$,.T$+2)..r-..fl|
000266d0  67 28 66 5f 72 74 70 6e  25 29 3a e7 a9 73 24 3c  |g(f_rtpn%):..s$<|
000266e0  31 30 3a 73 24 3d 22 20  20 20 20 20 20 20 20 20  |10:s$="         |
000266f0  20 22 2b 73 24 0d e7 7c  2e e7 a4 66 6c 67 28 66  | "+s$..|...flg(f|
00026700  5f 72 74 70 6e 25 29 3a  54 24 3d 22 20 50 61 67  |_rtpn%):T$=" Pag|
00026710  65 20 22 2b c3 70 70 61  67 65 25 3a c2 73 24 29  |e "+.ppage%:.s$)|
00026720  3d 54 24 0d e7 86 05 cd  0d e7 90 22 24 73 64 25  |=T$........"$sd%|
00026730  3d 73 24 3a f2 73 74 72  69 70 31 3a e7 24 73 64  |=s$:.strip1:.$sd|
00026740  25 3d 22 22 80 4c 25 3c  33 8c 0d e7 9a 24 e3 4c  |%="".L%<3....$.L|
00026750  25 3d 4c 25 2b 31 b8 33  3a e7 70 24 28 66 69 6c  |%=L%+1.3:.p$(fil|
00026760  65 25 2c 4c 25 29 3e 22  22 3a 3d 22 20 22 0d e7  |e%,L%)>"":=" "..|
00026770  a4 05 ed 0d e7 ae 10 cd  3a 3d c0 24 73 64 25 2c  |........:=.$sd%,|
00026780  57 25 29 0d e7 b8 04 0d  e7 c2 16 dd a4 73 74 72  |W%)..........str|
00026790  6a 75 73 28 54 24 2c 57  25 2c 4a 25 29 0d e7 cc  |jus(T$,W%,J%)...|
000267a0  1e e7 4a 25 3d 32 54 24  3d c2 54 24 2c 57 25 29  |..J%=2T$=.T$,W%)|
000267b0  8b 54 24 3d c0 54 24 2c  57 25 29 0d e7 d6 1f e7  |.T$=.T$,W%).....|
000267c0  4a 25 3d 31 54 24 3d c4  28 57 25 2d a9 54 24 29  |J%=1T$=.(W%-.T$)|
000267d0  2f 32 2c 22 20 22 29 2b  54 24 0d e7 e0 19 e7 4a  |/2," ")+T$.....J|
000267e0  25 3c 32 54 24 2b 3d c4  57 25 2d a9 54 24 2c 22  |%<2T$+=.W%-.T$,"|
000267f0  20 22 29 0d e7 ea 14 3d  c4 57 25 2d a9 54 24 2c  | ")....=.W%-.T$,|
00026800  22 20 22 29 2b 54 24 0d  e7 f4 04 0d e7 fe 0e dd  |" ")+T$.........|
00026810  f2 70 72 66 69 6e 69 73  68 0d e8 08 16 f2 70 72  |.prfinish.....pr|
00026820  73 75 62 73 28 a3 29 3a  f2 70 72 67 74 6f 74 0d  |subs(.):.prgtot.|
00026830  e8 12 34 f2 70 72 66 6f  6f 74 65 72 3a e7 a4 66  |..4.prfooter:..f|
00026840  6c 67 28 66 5f 72 65 6a  61 25 29 3a e7 6f 75 74  |lg(f_reja%):.out|
00026850  72 65 70 25 3c 3e 32 3a  f2 70 72 65 6a 65 63 74  |rep%<>2:.preject|
00026860  28 a3 29 0d e8 1c 13 f2  73 64 66 69 6c 65 28 72  |(.).....sdfile(r|
00026870  6d 66 25 29 3a e1 0d e8  26 04 0d e8 30 14 dd f2  |mf%):...&...0...|
00026880  70 72 73 75 62 73 28 65  25 29 3a ea 49 25 0d e8  |prsubs(e%):.I%..|
00026890  3a 5f e7 65 25 3a 73 75  62 76 61 6c 24 3d a4 70  |:_.e%:subval$=.p|
000268a0  72 73 75 62 76 61 6c 28  70 24 28 66 69 6c 65 25  |rsubval(p$(file%|
000268b0  2c 34 29 29 3a 73 73 75  62 76 61 6c 24 3d a4 70  |,4)):ssubval$=.p|
000268c0  72 73 73 75 62 76 61 6c  28 70 24 28 66 69 6c 65  |rssubval(p$(file|
000268d0  25 2c 36 29 29 3a 8b 73  73 75 62 76 61 6c 24 3d  |%,6)):.ssubval$=|
000268e0  22 22 3a 73 75 62 76 61  6c 24 3d 22 22 0d e8 44  |"":subval$=""..D|
000268f0  44 e7 6c 73 75 62 76 61  6c 24 3d 22 20 22 80 6c  |D.lsubval$=" ".l|
00026900  73 73 75 62 76 61 6c 24  3d 22 20 22 6c 73 73 75  |ssubval$=" "lssu|
00026910  62 76 61 6c 24 3d 73 73  75 62 76 61 6c 24 3a 6c  |bval$=ssubval$:l|
00026920  73 75 62 76 61 6c 24 3d  73 75 62 76 61 6c 24 3a  |subval$=subval$:|
00026930  e1 0d e8 4e 29 e7 73 73  75 62 76 61 6c 24 3d 6c  |...N).ssubval$=l|
00026940  73 73 75 62 76 61 6c 24  80 6c 73 75 62 76 61 6c  |ssubval$.lsubval|
00026950  24 3d 73 75 62 76 61 6c  24 e1 0d e8 58 27 f2 65  |$=subval$...X'.e|
00026960  6e 64 70 61 67 65 28 33  2b 74 6c 69 6e 65 73 25  |ndpage(3+tlines%|
00026970  2b 28 70 6c 69 6e 65 25  3d 66 6c 69 6e 65 25 29  |+(pline%=fline%)|
00026980  29 0d e8 62 1e e7 74 6f  74 61 6c 73 25 3c 3e 30  |)..b..totals%<>0|
00026990  3a f2 70 72 64 61 73 68  28 a3 2c 22 2d 22 29 0d  |:.prdash(.,"-").|
000269a0  e8 6c 3b e7 28 73 73 75  62 76 61 6c 24 3c 3e 6c  |.l;.(ssubval$<>l|
000269b0  73 73 75 62 76 61 6c 24  84 28 73 73 75 62 76 61  |ssubval$.(ssubva|
000269c0  6c 24 3e 22 22 80 73 75  62 76 61 6c 24 3c 3e 6c  |l$>"".subval$<>l|
000269d0  73 75 62 76 61 6c 24 29  29 8c 0d e8 76 53 e7 70  |subval$))...vS.p|
000269e0  24 28 66 69 6c 65 25 2c  37 29 3e 22 22 84 a4 66  |$(file%,7)>""..f|
000269f0  6c 67 28 66 5f 72 74 73  75 25 29 3a f2 70 72 70  |lg(f_rtsu%):.prp|
00026a00  6c 69 6e 65 28 c0 70 24  28 66 69 6c 65 25 2c 37  |line(.p$(file%,7|
00026a10  29 2b 22 20 28 22 2b 6c  73 73 75 62 76 61 6c 24  |)+" ("+lssubval$|
00026a20  2b 22 29 22 2c 72 70 77  69 64 25 29 29 0d e8 80  |+")",rpwid%))...|
00026a30  24 f2 70 72 74 6f 74 28  32 29 3a f2 70 72 64 61  |$.prtot(2):.prda|
00026a40  73 68 28 74 6f 74 61 6c  73 25 3d 30 2c 22 2d 22  |sh(totals%=0,"-"|
00026a50  29 0d e8 8a 05 cd 0d e8  94 17 e7 73 75 62 76 61  |)..........subva|
00026a60  6c 24 3c 3e 6c 73 75 62  76 61 6c 24 8c 0d e8 9e  |l$<>lsubval$....|
00026a70  3c f2 65 6e 64 70 61 67  65 28 34 2b 28 70 6c 69  |<.endpage(4+(pli|
00026a80  6e 65 25 3d 66 6c 69 6e  65 25 29 2b 28 70 24 28  |ne%=fline%)+(p$(|
00026a90  66 69 6c 65 25 2c 35 29  3d 22 22 29 2b 28 74 6f  |file%,5)="")+(to|
00026aa0  74 61 6c 73 25 3d 30 29  29 0d e8 a8 52 e7 70 24  |tals%=0))...R.p$|
00026ab0  28 66 69 6c 65 25 2c 35  29 3e 22 22 84 a4 66 6c  |(file%,5)>""..fl|
00026ac0  67 28 66 5f 72 74 73 75  25 29 3a f2 70 72 70 6c  |g(f_rtsu%):.prpl|
00026ad0  69 6e 65 28 c0 70 24 28  66 69 6c 65 25 2c 35 29  |ine(.p$(file%,5)|
00026ae0  2b 22 20 28 22 2b 6c 73  75 62 76 61 6c 24 2b 22  |+" ("+lsubval$+"|
00026af0  29 22 2c 72 70 77 69 64  25 29 29 0d e8 b2 24 f2  |)",rpwid%))...$.|
00026b00  70 72 74 6f 74 28 31 29  3a f2 70 72 64 61 73 68  |prtot(1):.prdash|
00026b10  28 74 6f 74 61 6c 73 25  3d 30 2c 22 3d 22 29 0d  |(totals%=0,"=").|
00026b20  e8 bc 37 e7 65 25 3a e7  a4 66 6c 67 28 66 5f 72  |..7.e%:..flg(f_r|
00026b30  74 70 67 25 29 f2 70 72  66 6f 6f 74 65 72 3a f2  |tpg%).prfooter:.|
00026b40  70 72 65 6a 65 63 74 28  b9 29 3a f2 70 72 70 61  |preject(.):.prpa|
00026b50  67 65 68 65 61 64 0d e8  c6 05 cd 0d e8 d0 27 6c  |gehead........'l|
00026b60  73 75 62 76 61 6c 24 3d  73 75 62 76 61 6c 24 3a  |subval$=subval$:|
00026b70  6c 73 73 75 62 76 61 6c  24 3d 73 73 75 62 76 61  |lssubval$=ssubva|
00026b80  6c 24 0d e8 da 05 e1 0d  e8 e4 04 0d e8 ee 1f dd  |l$..............|
00026b90  f2 70 72 67 74 6f 74 3a  e7 74 6f 74 61 6c 73 25  |.prgtot:.totals%|
00026ba0  3d 30 80 49 25 3c 3e 33  3a e1 0d e8 f8 27 f2 65  |=0.I%<>3:....'.e|
00026bb0  6e 64 70 61 67 65 28 33  2b 74 6c 69 6e 65 73 25  |ndpage(3+tlines%|
00026bc0  2b 28 70 6c 69 6e 65 25  3d 66 6c 69 6e 65 25 29  |+(pline%=fline%)|
00026bd0  29 0d e9 02 3a f2 70 72  64 61 73 68 28 b9 2c 22  |)...:.prdash(.,"|
00026be0  3d 22 29 3a f2 70 72 70  6c 69 6e 65 28 c0 22 2a  |="):.prpline(."*|
00026bf0  2a 20 47 52 41 4e 44 20  54 4f 54 41 4c 53 20 2a  |* GRAND TOTALS *|
00026c00  2a 22 2c 72 70 77 69 64  25 29 29 0d e9 0c 1e f2  |*",rpwid%)).....|
00026c10  70 72 74 6f 74 28 30 29  3a f2 70 72 64 61 73 68  |prtot(0):.prdash|
00026c20  28 b9 2c 22 3d 22 29 3a  e1 0d e9 16 04 0d e9 20  |(.,"="):....... |
00026c30  0f dd f2 70 72 74 6f 74  28 49 25 29 0d e9 2a 16  |...prtot(I%)..*.|
00026c40  e7 74 6f 74 61 6c 73 25  3d 30 80 49 25 3c 3e 33  |.totals%=0.I%<>3|
00026c50  3a e1 0d e9 34 38 ea 41  25 2c 54 25 2c 43 25 2c  |:...48.A%,T%,C%,|
00026c60  77 2c 66 25 2c 4a 25 2c  4b 25 3a 66 25 3d a4 66  |w,f%,J%,K%:f%=.f|
00026c70  6c 67 28 66 5f 72 74 73  75 25 29 3a f2 66 6c 67  |lg(f_rtsu%):.flg|
00026c80  30 28 66 5f 72 74 73 75  25 29 0d e9 3e 0b e3 4a  |0(f_rtsu%)..>..J|
00026c90  25 3d 30 b8 32 0d e9 48  2d e7 49 25 3c 33 84 41  |%=0.2..H-.I%<3.A|
00026ca0  25 e3 43 25 3d 30 b8 6d  61 78 63 6f 6c 25 3a 63  |%.C%=0.maxcol%:c|
00026cb0  76 24 28 43 25 2c 30 29  3d 22 22 3a ed 3a 43 25  |v$(C%,0)="":.:C%|
00026cc0  3d 30 0d e9 52 24 e7 28  74 74 6f 74 25 80 28 32  |=0..R$.(ttot%.(2|
00026cd0  5e 4a 25 29 29 84 28 49  25 3d 33 80 4a 25 3d 32  |^J%)).(I%=3.J%=2|
00026ce0  80 ac 41 25 29 8c 0d e9  5c 1d 77 3d 72 70 77 69  |..A%)...\.w=rpwi|
00026cf0  64 25 3a e7 6f 75 74 72  65 70 25 3d 32 3a 77 3d  |d%:.outrep%=2:w=|
00026d00  31 33 31 0d e9 66 05 f5  0d e9 70 30 f2 64 65 63  |131..f....p0.dec|
00026d10  6f 64 65 63 6f 6c 28 43  25 29 3a e7 63 65 78 70  |odecol(C%):.cexp|
00026d20  24 3e 22 22 80 28 49 25  3c 33 84 a7 63 65 78 70  |$>"".(I%<3..cexp|
00026d30  24 2c 22 5c 22 29 29 8c  0d e9 7a 1f 4b 25 3d 28  |$,"\"))...z.K%=(|
00026d40  32 5e 4a 25 29 80 63 74  6f 74 25 80 28 63 64 70  |2^J%).ctot%.(cdp|
00026d50  73 25 3c 3e 2d 31 29 0d  e9 84 09 c8 8e 4b 25 ca  |s%<>-1)......K%.|
00026d60  0d e9 8e 2c c9 30 3a e7  49 25 3c 33 84 41 25 24  |...,.0:.I%<3.A%$|
00026d70  73 64 25 3d a4 72 62 6c  6e 6b 3a 8b 24 73 64 25  |sd%=.rblnk:.$sd%|
00026d80  3d c0 63 76 24 28 43 25  2c 30 29 29 0d e9 98 1d  |=.cv$(C%,0))....|
00026d90  c9 31 3a 24 73 64 25 3d  a4 63 6f 6c 76 28 c3 63  |.1:$sd%=.colv(.c|
00026da0  74 28 43 25 2c 49 25 29  29 0d e9 a2 45 c9 32 3a  |t(C%,I%))...E.2:|
00026db0  e7 63 74 25 28 43 25 2c  49 25 29 3e 30 3a 24 73  |.ct%(C%,I%)>0:$s|
00026dc0  64 25 3d a4 63 6f 6c 76  28 c3 28 63 74 28 43 25  |d%=.colv(.(ct(C%|
00026dd0  2c 49 25 29 2f 63 74 25  28 43 25 2c 49 25 29 29  |,I%)/ct%(C%,I%))|
00026de0  29 3a 8b 24 73 64 25 3d  a4 72 62 6c 6e 6b 0d e9  |):.$sd%=.rblnk..|
00026df0  ac 1e c9 34 3a 24 73 64  25 3d a4 63 6f 6c 76 28  |...4:$sd%=.colv(|
00026e00  c3 63 74 25 28 43 25 2c  49 25 29 29 0d e9 b6 05  |.ct%(C%,I%))....|
00026e10  cb 0d e9 c0 2f e7 49 25  3d 33 3a e7 63 74 6f 74  |..../.I%=3:.ctot|
00026e20  25 3c 3e 30 80 63 64 70  73 25 3c 3e 2d 31 3a e7  |%<>0.cdps%<>-1:.|
00026e30  4b 25 3d 30 3a 24 73 64  25 3d a4 72 62 6c 6e 6b  |K%=0:$sd%=.rblnk|
00026e40  0d e9 ca 27 f5 3a 54 25  3d a4 70 72 6c 65 6e 28  |...'.:T%=.prlen(|
00026e50  24 73 64 25 29 3a e7 54  25 3e 77 3a 24 73 64 25  |$sd%):.T%>w:$sd%|
00026e60  3d c0 24 73 64 25 29 0d  e9 d4 14 fd 54 25 3c 3d  |=.$sd%).....T%<=|
00026e70  77 3a e7 77 3e 3d 54 25  2b 31 8c 0d e9 de 0a c8  |w:.w>=T%+1......|
00026e80  8e 20 b9 20 ca 0d e9 e8  2b c9 20 4b 25 3d 32 80  |. . ....+. K%=2.|
00026e90  24 73 64 25 3c 3e c4 a9  24 73 64 25 2c 22 20 22  |$sd%<>..$sd%," "|
00026ea0  29 3a 24 73 64 25 2b 3d  bd 61 76 63 68 61 72 25  |):$sd%+=.avchar%|
00026eb0  0d e9 f2 2b c9 20 4b 25  3d 34 80 24 73 64 25 3c  |...+. K%=4.$sd%<|
00026ec0  3e c4 a9 24 73 64 25 2c  22 20 22 29 3a 24 73 64  |>..$sd%," "):$sd|
00026ed0  25 2b 3d bd 63 74 63 68  61 72 25 0d e9 fc 0e 7f  |%+=.ctchar%.....|
00026ee0  24 73 64 25 2b 3d 22 20  22 0d ea 06 05 cb 0d ea  |$sd%+=" ".......|
00026ef0  10 05 cd 0d ea 1a 22 63  76 24 28 43 25 2c 30 29  |......"cv$(C%,0)|
00026f00  3d 24 73 64 25 3a 77 2d  3d a4 70 72 6c 65 6e 28  |=$sd%:w-=.prlen(|
00026f10  24 73 64 25 29 0d ea 24  05 cd 0d ea 2e 09 43 25  |$sd%)..$......C%|
00026f20  2b 3d 31 0d ea 38 13 fd  43 25 3e 6d 61 78 63 6f  |+=1..8..C%>maxco|
00026f30  6c 25 84 77 3c 31 0d ea  42 12 f2 70 72 6f 70 63  |l%.w<1..B..propc|
00026f40  6f 6c 73 3a 41 25 3d b9  0d ea 4c 05 cd 0d ea 56  |ols:A%=...L....V|
00026f50  05 ed 0d ea 60 2c e3 43  25 3d 30 b8 6d 61 78 63  |....`,.C%=0.maxc|
00026f60  6f 6c 25 3a 63 74 25 28  43 25 2c 49 25 29 3d 30  |ol%:ct%(C%,I%)=0|
00026f70  3a 63 74 28 43 25 2c 49  25 29 3d 30 3a ed 0d ea  |:ct(C%,I%)=0:...|
00026f80  6a 16 f2 66 6c 67 28 66  5f 72 74 73 75 25 2c 66  |j..flg(f_rtsu%,f|
00026f90  25 29 3a e1 0d ea 74 04  0d ea 7e 1d dd a4 70 72  |%):...t...~...pr|
00026fa0  73 75 62 76 61 6c 28 54  24 29 3a e7 54 24 3d 22  |subval(T$):.T$="|
00026fb0  22 3a 3d 22 22 0d ea 88  16 ea 85 3a ee 85 ea 3a  |":=""......:...:|
00026fc0  f7 85 3a f2 65 72 72 28  35 37 29 0d ea 92 11 3d  |..:.err(57)....=|
00026fd0  a4 65 76 32 28 54 24 2c  b9 2c b9 29 0d ea 9c 04  |.ev2(T$,.,.)....|
00026fe0  0d ea a6 1e dd a4 70 72  73 73 75 62 76 61 6c 28  |......prssubval(|
00026ff0  54 24 29 3a e7 54 24 3d  22 22 3a 3d 22 22 0d ea  |T$):.T$="":=""..|
00027000  b0 16 ea 85 3a ee 85 ea  3a f7 85 3a f2 65 72 72  |....:...:..:.err|
00027010  28 35 38 29 0d ea ba 11  3d a4 65 76 32 28 54 24  |(58)....=.ev2(T$|
00027020  2c b9 2c b9 29 0d ea c4  04 0d ea ce 16 dd f2 63  |,.,.)..........c|
00027030  72 65 61 74 65 3a ea 54  25 2c 42 25 2c 54 24 0d  |reate:.T%,B%,T$.|
00027040  ea d8 0e e7 a4 76 5f 28  31 29 3e 30 8c 0d ea e2  |.....v_(1)>0....|
00027050  43 f2 73 74 6f 70 28 33  39 2c 22 45 6e 74 65 72  |C.stop(39,"Enter|
00027060  69 6e 67 20 43 72 65 61  74 65 20 6d 6f 64 65 20  |ing Create mode |
00027070  77 69 6c 6c 22 2c 22 63  6c 6f 73 65 20 61 6c 6c  |will","close all|
00027080  20 6f 70 65 6e 20 66 69  6c 65 73 22 2c 2d 31 29  | open files",-1)|
00027090  0d ea ec 05 e1 0d ea f6  05 cd 0d eb 00 16 ea 85  |................|
000270a0  3a ee 85 ea 3a f7 85 3a  f2 65 72 72 28 36 30 29  |:...:..:.err(60)|
000270b0  0d eb 0a 2d 54 24 3d a4  64 69 72 2b 22 4d 53 43  |...-T$=.dir+"MSC|
000270c0  72 65 61 74 65 22 3a 54  25 3d 8e 28 54 24 29 3a  |reate":T%=.(T$):|
000270d0  e7 54 25 3d 30 f2 65 72  72 28 35 39 29 0d eb 14  |.T%=0.err(59)...|
000270e0  1f 42 25 3d 9a 23 54 25  3a d9 23 54 25 3a f2 77  |.B%=.#T%:.#T%:.w|
000270f0  72 69 74 65 66 6c 61 67  73 3a f7 85 0d eb 1e 27  |riteflags:.....'|
00027100  ee 85 f2 65 72 72 6f 72  28 9f 2c f6 24 2c 9e 2c  |...error(.,.$,.,|
00027110  b9 29 3a f2 72 65 70 6f  72 74 3a f2 71 75 69 74  |.):.report:.quit|
00027120  28 a3 29 0d eb 28 31 f2  64 65 6c 77 28 77 5f 73  |(.)..(1.delw(w_s|
00027130  74 6f 70 25 29 3a f2 64  65 6c 77 28 77 5f 73 61  |top%):.delw(w_sa|
00027140  76 65 25 29 3a f2 64 65  6c 77 28 77 5f 70 69 6e  |ve%):.delw(w_pin|
00027150  66 6f 25 29 0d eb 32 25  f2 64 65 6c 77 28 77 5f  |fo%)..2%.delw(w_|
00027160  70 69 6e 66 6f 32 25 29  3a f2 64 65 6c 77 28 77  |pinfo2%):.delw(w|
00027170  5f 73 68 61 64 6f 77 25  29 0d eb 3c 29 f2 6e 6f  |_shadow%)..<).no|
00027180  72 6d 70 6f 69 6e 74 3a  2a 53 65 74 20 4d 75 6c  |rmpoint:*Set Mul|
00027190  74 69 53 74 6f 72 65 24  46 75 6e 63 74 69 6f 6e  |tiStore$Function|
000271a0  20 31 0d eb 46 2b f2 6e  6f 76 61 72 73 3a f2 69  | 1..F+.novars:.i|
000271b0  5f 63 6c 6f 73 65 3a 5a  25 3d 74 61 73 6b 68 61  |_close:Z%=taskha|
000271c0  6e 64 6c 65 25 3a d7 28  54 24 29 3a e0 0d eb 50  |ndle%:.(T$):...P|
000271d0  04 0d eb 5a 1b dd f2 74  72 61 6e 73 66 65 72 3a  |...Z...transfer:|
000271e0  ea 54 25 2c 42 25 2c 54  24 2c 41 24 0d eb 64 16  |.T%,B%,T$,A$..d.|
000271f0  ea 85 3a ee 85 ea 3a f7  85 3a f2 65 72 72 28 36  |..:...:..:.err(6|
00027200  32 29 0d eb 6e 2f 54 24  3d a4 64 69 72 2b 22 4d  |2)..n/T$=.dir+"M|
00027210  53 54 72 61 6e 73 66 65  72 22 3a 54 25 3d 8e 28  |STransfer":T%=.(|
00027220  54 24 29 3a e7 54 25 3d  30 f2 65 72 72 28 35 39  |T$):.T%=0.err(59|
00027230  29 0d eb 78 13 42 25 3d  9a 23 54 25 3a d9 23 54  |)..x.B%=.#T%:.#T|
00027240  25 3a f7 85 0d eb 82 10  41 24 3d 22 22 3a 54 25  |%:......A$="":T%|
00027250  3d 30 3a f5 0d eb 8c 10  e7 77 25 28 54 25 2c 30  |=0:......w%(T%,0|
00027260  29 3e 30 8c 0d eb 96 2d  e7 41 24 3d 22 22 41 24  |)>0....-.A$=""A$|
00027270  3d 66 6e 24 28 54 25 29  8b 41 24 2b 3d 22 2c 22  |=fn$(T%).A$+=","|
00027280  2b 66 6e 24 28 54 25 29  3a 54 25 3d 6d 61 78 66  |+fn$(T%):T%=maxf|
00027290  25 0d eb a0 05 cd 0d eb  aa 26 54 25 2b 3d 31 3a  |%........&T%+=1:|
000272a0  fd 54 25 3e 6d 61 78 66  25 3a f2 43 4c 4f 53 45  |.T%>maxf%:.CLOSE|
000272b0  3a f2 77 72 69 74 65 66  6c 61 67 73 0d eb b4 27  |:.writeflags...'|
000272c0  ee 85 f2 65 72 72 6f 72  28 9f 2c f6 24 2c 9e 2c  |...error(.,.$,.,|
000272d0  b9 29 3a f2 72 65 70 6f  72 74 3a f2 71 75 69 74  |.):.report:.quit|
000272e0  28 a3 29 0d eb be 31 f2  64 65 6c 77 28 77 5f 73  |(.)...1.delw(w_s|
000272f0  74 6f 70 25 29 3a f2 64  65 6c 77 28 77 5f 73 61  |top%):.delw(w_sa|
00027300  76 65 25 29 3a f2 64 65  6c 77 28 77 5f 70 69 6e  |ve%):.delw(w_pin|
00027310  66 6f 25 29 0d eb c8 25  f2 64 65 6c 77 28 77 5f  |fo%)...%.delw(w_|
00027320  70 69 6e 66 6f 32 25 29  3a f2 64 65 6c 77 28 77  |pinfo2%):.delw(w|
00027330  5f 73 68 61 64 6f 77 25  29 0d eb d2 30 f2 6e 6f  |_shadow%)...0.no|
00027340  72 6d 70 6f 69 6e 74 3a  ff 22 2a 53 65 74 20 4d  |rmpoint:."*Set M|
00027350  75 6c 74 69 53 74 6f 72  65 24 46 75 6e 63 74 69  |ultiStore$Functi|
00027360  6f 6e 20 31 3a 22 2b 41  24 0d eb dc 2b f2 6e 6f  |on 1:"+A$...+.no|
00027370  76 61 72 73 3a f2 69 5f  63 6c 6f 73 65 3a 5a 25  |vars:.i_close:Z%|
00027380  3d 74 61 73 6b 68 61 6e  64 6c 65 25 3a d7 28 54  |=taskhandle%:.(T|
00027390  24 29 3a e0 0d eb e6 04  0d eb f0 1b dd f2 66 61  |$):...........fa|
000273a0  73 74 73 6f 72 74 3a ea  54 25 2c 42 25 2c 54 24  |stsort:.T%,B%,T$|
000273b0  2c 41 24 0d eb fa 16 ea  85 3a ee 85 ea 3a f7 85  |,A$......:...:..|
000273c0  3a f2 65 72 72 28 36 32  29 0d ec 04 2f 54 24 3d  |:.err(62).../T$=|
000273d0  a4 64 69 72 2b 22 4d 53  46 61 73 74 53 6f 72 74  |.dir+"MSFastSort|
000273e0  22 3a 54 25 3d 8e 28 54  24 29 3a e7 54 25 3d 30  |":T%=.(T$):.T%=0|
000273f0  f2 65 72 72 28 35 39 29  0d ec 0e 13 42 25 3d 9a  |.err(59)....B%=.|
00027400  23 54 25 3a d9 23 54 25  3a f7 85 0d ec 18 10 41  |#T%:.#T%:......A|
00027410  24 3d 22 22 3a 54 25 3d  30 3a f5 0d ec 22 10 e7  |$="":T%=0:..."..|
00027420  77 25 28 54 25 2c 30 29  3e 30 8c 0d ec 2c 1d e7  |w%(T%,0)>0...,..|
00027430  41 24 3d 22 22 41 24 3d  66 6e 24 28 54 25 29 3a  |A$=""A$=fn$(T%):|
00027440  54 25 3d 6d 61 78 66 25  0d ec 36 05 cd 0d ec 40  |T%=maxf%..6....@|
00027450  26 54 25 2b 3d 31 3a fd  54 25 3e 6d 61 78 66 25  |&T%+=1:.T%>maxf%|
00027460  3a f2 43 4c 4f 53 45 3a  f2 77 72 69 74 65 66 6c  |:.CLOSE:.writefl|
00027470  61 67 73 0d ec 4a 27 ee  85 f2 65 72 72 6f 72 28  |ags..J'...error(|
00027480  9f 2c f6 24 2c 9e 2c b9  29 3a f2 72 65 70 6f 72  |.,.$,.,.):.repor|
00027490  74 3a f2 71 75 69 74 28  a3 29 0d ec 54 31 f2 64  |t:.quit(.)..T1.d|
000274a0  65 6c 77 28 77 5f 73 74  6f 70 25 29 3a f2 64 65  |elw(w_stop%):.de|
000274b0  6c 77 28 77 5f 73 61 76  65 25 29 3a f2 64 65 6c  |lw(w_save%):.del|
000274c0  77 28 77 5f 70 69 6e 66  6f 25 29 0d ec 5e 25 f2  |w(w_pinfo%)..^%.|
000274d0  64 65 6c 77 28 77 5f 70  69 6e 66 6f 32 25 29 3a  |delw(w_pinfo2%):|
000274e0  f2 64 65 6c 77 28 77 5f  73 68 61 64 6f 77 25 29  |.delw(w_shadow%)|
000274f0  0d ec 68 30 f2 6e 6f 72  6d 70 6f 69 6e 74 3a ff  |..h0.normpoint:.|
00027500  22 2a 53 65 74 20 4d 75  6c 74 69 53 74 6f 72 65  |"*Set MultiStore|
00027510  24 46 75 6e 63 74 69 6f  6e 20 31 3a 22 2b 41 24  |$Function 1:"+A$|
00027520  0d ec 72 2b f2 6e 6f 76  61 72 73 3a f2 69 5f 63  |..r+.novars:.i_c|
00027530  6c 6f 73 65 3a 5a 25 3d  74 61 73 6b 68 61 6e 64  |lose:Z%=taskhand|
00027540  6c 65 25 3a d7 28 54 24  29 3a e0 0d ec 7c 04 0d  |le%:.(T$):...|..|
00027550  ec 86 1a dd f2 63 68 65  63 6b 63 6f 6e 76 28 54  |.....checkconv(T|
00027560  24 29 3a ea 54 25 2c 42  25 0d ec 90 14 ea 85 3a  |$):.T%,B%......:|
00027570  ee 85 ea 3a f7 85 3a d9  23 54 25 3a e1 0d ec 9a  |...:..:.#T%:....|
00027580  20 66 69 6c 65 24 3d 54  24 3a 54 25 3d 8e 28 66  | file$=T$:T%=.(f|
00027590  69 6c 65 24 29 3a e7 54  25 3d 30 3a e1 0d ec a4  |ile$):.T%=0:....|
000275a0  23 42 25 3d 9a 23 54 25  3a e7 42 25 3c 3e 32 33  |#B%=.#T%:.B%<>23|
000275b0  34 80 42 25 3c 3e 32 33  35 3a d9 23 54 25 3a e1  |4.B%<>235:.#T%:.|
000275c0  0d ec ae 1f 42 25 3d 9a  23 54 25 2b 9a 23 54 25  |....B%=.#T%+.#T%|
000275d0  2b 9a 23 54 25 2b 9a 23  54 25 3a d9 23 54 25 0d  |+.#T%+.#T%:.#T%.|
000275e0  ec b8 06 f7 85 0d ec c2  20 e7 42 25 3d 30 42 25  |........ .B%=0B%|
000275f0  3d 66 74 5f 66 6f 72 6d  25 8b 42 25 3d 66 74 5f  |=ft_form%.B%=ft_|
00027600  64 61 74 61 25 0d ec cc  4a 6d 65 6e 75 66 69 65  |data%...Jmenufie|
00027610  6c 64 25 3d 42 25 3a f2  73 74 6f 70 28 33 36 2c  |ld%=B%:.stop(36,|
00027620  22 57 72 6f 6e 67 20 66  69 6c 65 20 74 79 70 65  |"Wrong file type|
00027630  22 2c 22 43 6f 6e 76 65  72 74 20 74 6f 20 4d 75  |","Convert to Mu|
00027640  6c 74 69 53 74 6f 72 65  20 3f 22 2c 2d 31 29 0d  |ltiStore ?",-1).|
00027650  ec d6 05 e1 0d ec e0 04  0d ec ea 2e dd f2 73 65  |..............se|
00027660  6c 69 6e 64 65 78 28 49  25 2c 66 25 29 3a ea 54  |lindex(I%,f%):.T|
00027670  24 2c 54 25 3a 54 24 3d  22 41 22 3a e7 66 25 3a  |$,T%:T$="A":.f%:|
00027680  54 24 3d 22 44 22 0d ec  f4 1b c8 99 73 77 69 25  |T$="D"......swi%|
00027690  2c 69 73 74 61 74 5f 25  2c 2d 31 b8 47 25 2c 54  |,istat_%,-1.G%,T|
000276a0  25 0d ec fe 31 e7 28 54  25 3d 49 25 80 28 47 25  |%...1.(T%=I%.(G%|
000276b0  80 33 32 29 3d 28 28 66  25 3c 3e 30 29 80 33 32  |.32)=((f%<>0).32|
000276c0  29 29 84 28 54 25 3c 3d  30 80 49 25 3c 3d 30 29  |)).(T%<=0.I%<=0)|
000276d0  3a e1 0d ed 08 0a e7 49  25 3e 30 8c 0d ed 12 1b  |:......I%>0.....|
000276e0  c8 99 73 77 69 25 2c 6f  72 64 65 72 5f 25 2c 49  |..swi%,order_%,I|
000276f0  25 2c 54 24 b8 4e 25 0d  ed 1c 05 cc 0d ed 26 15  |%,T$.N%.......&.|
00027700  c8 99 73 77 69 25 2c 6f  72 64 65 72 5f 25 b8 4e  |..swi%,order_%.N|
00027710  25 0d ed 30 05 cd 0d ed  3a 28 f2 73 68 6f 77 69  |%..0....:(.showi|
00027720  6e 64 65 78 3a f2 76 61  6c 69 64 72 65 63 3a f2  |ndex:.validrec:.|
00027730  63 68 6b 6d 76 3a f2 67  72 61 70 68 3a e1 0d ed  |chkmv:.graph:...|
00027740  44 04 0d ed 4e 23 dd f2  63 6c 72 6d 76 3a c8 99  |D...N#..clrmv:..|
00027750  73 77 69 25 2c 73 64 35  38 5f 25 2c 30 2c 22 6d  |swi%,sd58_%,0,"m|
00027760  6f 76 65 64 22 0d ed 58  05 e1 0d ed 62 04 0d ed  |oved"..X....b...|
00027770  6c 28 dd f2 63 68 6b 6d  76 3a ea 4e 25 3a c8 99  |l(..chkmv:.N%:..|
00027780  73 77 69 25 2c 73 64 35  37 5f 25 2c 22 6d 6f 76  |swi%,sd57_%,"mov|
00027790  65 64 22 b8 47 25 0d ed  76 0b e7 47 25 3d 30 3a  |ed".G%..v..G%=0:|
000277a0  e1 0d ed 80 27 e7 77 25  28 66 69 6c 65 25 2c 33  |....'.w%(file%,3|
000277b0  29 3e 30 e7 72 25 28 66  69 6c 65 25 29 3c 33 f2  |)>0.r%(file%)<3.|
000277c0  66 6f 72 63 65 72 65 70  0d ed 8a 0c f2 63 6c 72  |forcerep.....clr|
000277d0  6d 76 3a e1 0d ed 94 04  0d ed 9e 1c dd f2 63 68  |mv:...........ch|
000277e0  6b 6d 76 31 28 54 25 2c  55 25 29 3a e7 54 25 3d  |kmv1(T%,U%):.T%=|
000277f0  55 25 3a e1 0d ed a8 20  ea 4e 25 3a c8 99 73 77  |U%:.... .N%:..sw|
00027800  69 25 2c 73 64 35 37 5f  25 2c 22 6d 6f 76 65 64  |i%,sd57_%,"moved|
00027810  22 b8 47 25 0d ed b2 0b  e7 47 25 3d 30 3a e1 0d  |".G%.....G%=0:..|
00027820  ed bc 33 e7 77 25 28 66  69 6c 65 25 2c 33 29 3e  |..3.w%(file%,3)>|
00027830  30 e7 72 25 28 66 69 6c  65 25 29 3c 33 f2 66 6f  |0.r%(file%)<3.fo|
00027840  72 63 65 63 61 72 64 73  72 65 70 28 54 25 2c 55  |rcecardsrep(T%,U|
00027850  25 29 0d ed c6 15 f2 63  6c 72 6d 76 3a f2 73 68  |%).....clrmv:.sh|
00027860  6f 77 6e 75 6d 3a e1 0d  ed d0 04 0d ed da 1f dd  |ownum:..........|
00027870  a4 66 69 72 73 74 73 70  72 28 41 24 29 3a ea 58  |.firstspr(A$):.X|
00027880  25 2c 49 25 2c 54 25 2c  54 24 0d ed e4 0f ea 85  |%,I%,T%,T$......|
00027890  3a ee 85 ea 3a 3d 22 3f  22 0d ed ee 17 58 25 3d  |:...:="?"....X%=|
000278a0  8e 28 41 24 29 3a e7 58  25 3d 30 3a 3d 22 3f 22  |.(A$):.X%=0:="?"|
000278b0  0d ed f8 14 ee 85 ea 3a  f7 85 3a d9 23 58 25 3a  |.......:..:.#X%:|
000278c0  3d 22 3f 22 0d ee 02 32  54 25 3d 30 3a e3 49 25  |="?"...2T%=0:.I%|
000278d0  3d 30 b8 33 3a 54 25 3d  54 25 84 28 9a 23 58 25  |=0.3:T%=T%.(.#X%|
000278e0  3c 3c 28 49 25 2a 38 29  29 3a ed 3a e7 54 25 3c  |<<(I%*8)):.:.T%<|
000278f0  31 3a 3d 22 3f 22 0d ee  0c 32 54 25 3d 30 3a e3  |1:="?"...2T%=0:.|
00027900  49 25 3d 30 b8 33 3a 54  25 3d 54 25 84 28 9a 23  |I%=0.3:T%=T%.(.#|
00027910  58 25 3c 3c 28 49 25 2a  38 29 29 3a ed 3a e7 54  |X%<<(I%*8)):.:.T|
00027920  25 3c 31 3a 3d 22 3f 22  0d ee 16 3b cf 23 58 25  |%<1:="?"...;.#X%|
00027930  3d 54 25 3a 49 25 3d 30  3a 54 24 3d 22 22 3a f5  |=T%:I%=0:T$="":.|
00027940  3a 54 25 3d 9a 23 58 25  3a 49 25 2b 3d 31 3a e7  |:T%=.#X%:I%+=1:.|
00027950  54 25 3e 33 31 54 24 2b  3d bd 54 25 3a 8b 49 25  |T%>31T$+=.T%:.I%|
00027960  3d 39 39 0d ee 20 13 fd  49 25 3e 31 31 3a d9 23  |=99.. ..I%>11:.#|
00027970  58 25 3a 3d 54 24 0d ee  2a 04 0d ee 34 18 dd f2  |X%:=T$..*...4...|
00027980  6c 6f 61 64 73 70 72 28  41 24 29 3a ea 54 25 2c  |loadspr(A$):.T%,|
00027990  54 24 0d ee 3e 16 54 25  3d a4 6d 6f 75 73 65 66  |T$..>.T%=.mousef|
000279a0  3a e7 54 25 3c 3d 30 8c  0d ee 48 1a c8 99 73 77  |:.T%<=0...H...sw|
000279b0  69 25 2c 73 64 36 37 5f  25 2c 22 50 69 63 22 b8  |i%,sd67_%,"Pic".|
000279c0  47 25 0d ee 52 09 54 25  3d 47 25 0d ee 5c 05 cd  |G%..R.T%=G%..\..|
000279d0  0d ee 66 12 e7 54 25 3c  3d 30 f2 65 72 72 28 36  |..f..T%<=0.err(6|
000279e0  34 29 0d ee 70 15 54 24  3d a4 75 28 a4 66 6e 61  |4)..p.T$=.u(.fna|
000279f0  6d 65 28 54 25 29 29 0d  ee 7a 2c e7 c0 54 24 2c  |me(T%))..z,..T$,|
00027a00  33 29 3c 3e 22 50 49 43  22 84 c2 54 24 29 3c 22  |3)<>"PIC"..T$)<"|
00027a10  30 22 84 c2 54 24 29 3e  22 39 22 f2 65 72 72 28  |0"..T$)>"9".err(|
00027a20  36 34 29 0d ee 84 2d f2  70 66 69 65 6c 64 28 54  |64)...-.pfield(T|
00027a30  25 2c a4 66 69 72 73 74  73 70 72 28 41 24 29 2b  |%,.firstspr(A$)+|
00027a40  22 2c 22 2b a4 6c 65 61  66 28 41 24 29 29 3a e1  |","+.leaf(A$)):.|
00027a50  0d ee 8e 04 0d ee 98 1f  dd a4 74 72 61 6e 73 28  |..........trans(|
00027a60  41 24 29 3a ea 54 25 2c  41 25 3a 41 25 3d e0 2b  |A$):.T%,A%:A%=.+|
00027a70  31 30 30 0d ee a2 30 c8  99 22 4f 53 5f 47 53 54  |100...0.."OS_GST|
00027a80  72 61 6e 73 22 2c 41 24  2c 41 25 2c 32 35 35 20  |rans",A$,A%,255 |
00027a90  b8 2c 2c 54 25 3a 54 25  3f 41 25 3d 31 33 3a 3d  |.,,T%:T%?A%=13:=|
00027aa0  24 41 25 0d ee ac 04 0d  ee b6 2a dd f2 6d 61 72  |$A%.......*..mar|
00027ab0  6b 69 64 78 28 47 25 29  3a e7 77 25 28 66 69 6c  |kidx(G%):.w%(fil|
00027ac0  65 25 2c 35 29 3c 3d 30  84 47 25 3d 6c 69 78 25  |e%,5)<=0.G%=lix%|
00027ad0  e1 0d ee c0 15 e7 47 25  3e 30 f2 75 70 64 69 64  |......G%>0.updid|
00027ae0  78 31 28 47 25 29 0d ee  ca 19 e7 6c 69 78 25 3e  |x1(G%).....lix%>|
00027af0  30 f2 75 70 64 69 64 78  31 28 6c 69 78 25 29 0d  |0.updidx1(lix%).|
00027b00  ee d4 05 e1 0d ee de 04  0d ee e8 11 dd f2 75 70  |..............up|
00027b10  64 69 64 78 31 28 54 25  29 0d ee f2 34 21 71 25  |didx1(T%)...4!q%|
00027b20  3d 77 25 28 66 69 6c 65  25 2c 35 29 3a 71 25 21  |=w%(file%,5):q%!|
00027b30  34 3d 30 3a 71 25 21 38  3d 2d 6d 61 72 67 69 6e  |4=0:q%!8=-margin|
00027b40  25 2d 54 25 2a 6c 69 6e  65 67 61 70 25 0d ee fc  |%-T%*linegap%...|
00027b50  30 71 25 21 31 32 3d 31  45 39 3a 71 25 21 31 36  |0q%!12=1E9:q%!16|
00027b60  3d 71 25 21 38 2b 6c 69  6e 65 67 61 70 25 2b 34  |=q%!8+linegap%+4|
00027b70  3a f2 72 65 64 72 61 77  28 b9 29 3a e1 0d ef 06  |:.redraw(.):....|
00027b80  04 0d ef 10 10 dd a4 63  75 72 69 64 78 3a ea 54  |.......curidx:.T|
00027b90  25 0d ef 1a 1b c8 99 73  77 69 25 2c 69 73 74 61  |%......swi%,ista|
00027ba0  74 5f 25 2c 2d 31 b8 47  25 2c 54 25 0d ef 24 07  |t_%,-1.G%,T%..$.|
00027bb0  3d 54 25 0d ef 2e 04 0d  ef 38 15 dd a4 61 64 64  |=T%......8...add|
00027bc0  66 69 65 6c 64 28 54 24  2c 54 25 29 0d ef 42 28  |field(T$,T%)..B(|
00027bd0  ea 43 25 2c 74 24 2c 41  24 3a 74 24 3d 54 24 3a  |.C%,t$,A$:t$=T$:|
00027be0  c8 95 c2 74 24 29 3d 22  20 22 3a 74 24 3d c0 74  |...t$)=" ":t$=.t|
00027bf0  24 29 3a ce 0d ef 4c 17  e7 74 24 3d 22 22 3a 3d  |$):...L..t$="":=|
00027c00  a4 66 6e 61 6d 65 31 28  54 25 29 0d ef 56 25 e7  |.fname1(T%)..V%.|
00027c10  c2 74 24 29 3d 22 40 22  84 c2 74 24 29 3d 22 23  |.t$)="@"..t$)="#|
00027c20  22 3a 3d 74 24 2b a4 66  6e 61 6d 65 28 54 25 29  |":=t$+.fname(T%)|
00027c30  0d ef 60 21 43 25 3d a3  3a f7 2b 31 3a f5 3a f3  |..`!C%=.:.+1:.:.|
00027c40  41 24 3a 43 25 3d c2 74  24 2c a9 41 24 29 3d 41  |A$:C%=.t$,.A$)=A|
00027c50  24 0d ef 6a 1d fd 43 25  84 41 24 3d 22 2a 2a 2a  |$..j..C%.A$="***|
00027c60  2a 22 3a e7 ac 43 25 54  24 2b 3d 22 2b 22 0d ef  |*":..C%T$+="+"..|
00027c70  74 20 e7 a7 54 24 2c 22  40 22 29 3a 3d 54 24 2b  |t ..T$,"@"):=T$+|
00027c80  22 40 22 2b a4 66 6e 61  6d 65 28 54 25 29 0d ef  |"@"+.fname(T%)..|
00027c90  7e 20 e7 a7 54 24 2c 22  23 22 29 3a 3d 54 24 2b  |~ ..T$,"#"):=T$+|
00027ca0  22 23 22 2b a4 66 6e 61  6d 65 28 54 25 29 0d ef  |"#"+.fname(T%)..|
00027cb0  88 13 3d 54 24 2b a4 66  6e 61 6d 65 31 28 54 25  |..=T$+.fname1(T%|
00027cc0  29 0d ef 92 2c dc 2b 2c  2d 2c 2a 2c 2f 2c 41 4e  |)...,.+,-,*,/,AN|
00027cd0  44 2c 4f 52 2c 4e 4f 54  2c 3e 2c 3c 2c 3d 2c 28  |D,OR,NOT,>,<,=,(|
00027ce0  2c 22 2c 22 2c 22 3a 22  2c 2a 2a 2a 2a 0d ef 9c  |,",",":",****...|
00027cf0  04 0d ef a6 17 dd f2 77  61 69 74 6b 65 79 3a ea  |.......waitkey:.|
00027d00  41 25 2c 42 25 2c 43 25  0d ef b0 21 f5 3a c8 97  |A%,B%,C%...!.:..|
00027d10  42 25 2c 42 25 2c 43 25  3a e7 43 25 3d 30 41 25  |B%,B%,C%:.C%=0A%|
00027d20  2b 3d 31 3a 8b 41 25 3d  30 0d ef ba 14 fd a6 30  |+=1:.A%=0......0|
00027d30  3c 30 80 43 25 3d 30 80  41 25 3e 32 30 0d ef c4  |<0.C%=0.A%>20...|
00027d40  23 f5 3a c8 97 41 25 2c  42 25 2c 43 25 3a 47 25  |#.:..A%,B%,C%:G%|
00027d50  3d a6 30 3a fd 47 25 3e  3d 30 84 43 25 3c 3e 30  |=.0:.G%>=0.C%<>0|
00027d60  0d ef ce 05 e1 0d ef d8  04 0d ef e2 32 dd f2 72  |............2..r|
00027d70  65 61 64 66 6c 61 67 73  3a ea 54 24 3a 54 24 3d  |eadflags:.T$:T$=|
00027d80  a4 41 72 66 56 61 72 28  22 4d 75 6c 74 69 53 74  |.ArfVar("MultiSt|
00027d90  6f 72 65 24 46 6c 61 67  73 22 29 0d ef ec 37 f2  |ore$Flags")...7.|
00027da0  73 74 72 66 6c 67 28 c0  54 24 2c 31 29 2c 73 6f  |strflg(.T$,1),so|
00027db0  75 6e 64 25 29 3a f2 73  74 72 66 6c 67 28 c1 54  |und%):.strflg(.T|
00027dc0  24 2c 32 2c 31 29 2c 73  74 6f 70 62 6f 78 65 73  |$,2,1),stopboxes|
00027dd0  25 29 0d ef f6 35 f2 73  74 72 66 6c 67 28 c1 54  |%)...5.strflg(.T|
00027de0  24 2c 33 2c 31 29 2c 73  68 61 64 6f 77 73 25 29  |$,3,1),shadows%)|
00027df0  3a f2 73 74 72 66 6c 67  28 c1 54 24 2c 34 2c 31  |:.strflg(.T$,4,1|
00027e00  29 2c 70 69 78 25 29 0d  f0 00 1b 2a 75 6e 73 65  |),pix%)....*unse|
00027e10  74 20 4d 75 6c 74 69 53  74 6f 72 65 24 46 6c 61  |t MultiStore$Fla|
00027e20  67 73 0d f0 0a 05 e1 0d  f0 14 04 0d f0 1e 14 dd  |gs..............|
00027e30  f2 77 72 69 74 65 66 6c  61 67 73 3a ea 54 24 0d  |.writeflags:.T$.|
00027e40  f0 28 4a 54 24 3d a4 66  6c 67 73 74 72 28 73 6f  |.(JT$=.flgstr(so|
00027e50  75 6e 64 25 29 2b a4 66  6c 67 73 74 72 28 73 74  |und%)+.flgstr(st|
00027e60  6f 70 62 6f 78 65 73 25  29 2b a4 66 6c 67 73 74  |opboxes%)+.flgst|
00027e70  72 28 73 68 61 64 6f 77  73 25 29 2b a4 66 6c 67  |r(shadows%)+.flg|
00027e80  73 74 72 28 70 69 78 25  29 0d f0 32 22 ff 22 2a  |str(pix%)..2"."*|
00027e90  53 65 74 20 4d 75 6c 74  69 53 74 6f 72 65 24 46  |Set MultiStore$F|
00027ea0  6c 61 67 73 20 22 2b 54  24 3a e1 0d f0 3c 04 0d  |lags "+T$:...<..|
00027eb0  f0 46 1f dd a4 66 6c 67  73 74 72 28 54 25 29 3a  |.F...flgstr(T%):|
00027ec0  e7 54 25 3a 3d 22 2a 22  3a 8b 3d 22 2d 22 0d f0  |.T%:="*":.="-"..|
00027ed0  50 04 0d f0 5a 15 dd f2  73 74 72 66 6c 67 28 54  |P...Z...strflg(T|
00027ee0  24 2c f8 20 54 25 29 0d  f0 64 1d e7 54 24 3d 22  |$,. T%)..d..T$="|
00027ef0  2a 22 3a 54 25 3d b9 3a  8b e7 54 24 3d 22 2d 22  |*":T%=.:..T$="-"|
00027f00  54 25 3d a3 0d f0 6e 05  e1 0d f0 78 04 0d f0 82  |T%=...n....x....|
00027f10  27 dd f2 63 73 69 7a 65  3a 77 5f 63 73 69 7a 65  |'..csize:w_csize|
00027f20  25 3d a4 63 72 77 69 6e  64 28 74 77 5f 63 73 69  |%=.crwind(tw_csi|
00027f30  7a 65 25 29 0d f0 8c 1c  c8 99 73 77 69 25 2c 73  |ze%)......swi%,s|
00027f40  64 35 37 5f 25 2c 22 57  69 64 74 68 22 b8 47 25  |d57_%,"Width".G%|
00027f50  0d f0 96 1a f2 73 65 74  69 28 77 5f 63 73 69 7a  |.....seti(w_csiz|
00027f60  65 25 2c 36 31 2c c3 47  25 29 0d f0 a0 1d c8 99  |e%,61,.G%)......|
00027f70  73 77 69 25 2c 73 64 35  37 5f 25 2c 22 48 65 69  |swi%,sd57_%,"Hei|
00027f80  67 68 74 22 b8 47 25 0d  f0 aa 1a f2 73 65 74 69  |ght".G%.....seti|
00027f90  28 77 5f 63 73 69 7a 65  25 2c 35 37 2c c3 47 25  |(w_csize%,57,.G%|
00027fa0  29 0d f0 b4 19 f2 64 69  61 6c 6f 67 75 65 28 77  |).....dialogue(w|
00027fb0  5f 63 73 69 7a 65 25 29  3a e1 0d f0 be 04 0d f0  |_csize%):.......|
00027fc0  c8 0c dd f2 6e 6f 76 61  72 73 0d f0 d2 05 e1 0d  |....novars......|
00027fd0  f0 dc 04 0d f0 e6 25 dd  f2 69 6d 70 6f 72 74 61  |......%..importa|
00027fe0  73 63 3a ea 58 25 3a 58  25 3d ad 66 69 6c 65 24  |sc:.X%:X%=.file$|
00027ff0  3a e7 58 25 3d 30 3a e1  0d f0 f0 21 ea 85 3a ee  |:.X%=0:....!..:.|
00028000  85 ea 3a f7 85 3a f2 65  6e 64 69 6d 70 6f 72 74  |..:..:.endimport|
00028010  3a f2 65 72 72 28 36 35  29 0d f0 fa 0a 2a 66 78  |:.err(65)....*fx|
00028020  32 32 39 0d f1 04 1f f2  73 65 6c 73 75 62 28 30  |229.....selsub(0|
00028030  29 3a f2 6e 6f 66 69 6c  74 3a f2 72 65 61 64 61  |):.nofilt:.reada|
00028040  73 63 0d f1 0e 0f dd f2  65 6e 64 69 6d 70 6f 72  |sc......endimpor|
00028050  74 0d f1 18 0c 2a 66 78  32 32 39 2c 31 0d f1 22  |t....*fx229,1.."|
00028060  33 f2 73 65 6c 73 75 62  28 30 29 3a f2 6e 6f 66  |3.selsub(0):.nof|
00028070  69 6c 74 3a f2 76 61 6c  69 64 72 65 63 3a f2 67  |ilt:.validrec:.g|
00028080  72 61 70 68 3a f2 66 6f  72 63 65 72 65 70 3a e1  |raph:.forcerep:.|
00028090  0d f1 2c 04 0d f1 36 26  dd f2 72 65 61 64 61 73  |..,...6&..readas|
000280a0  63 3a ea 54 25 2c 66 25  2c 49 25 2c 51 25 2c 4c  |c:.T%,f%,I%,Q%,L|
000280b0  25 2c 41 25 2c 42 25 2c  66 24 0d f1 40 1f ea 85  |%,A%,B%,f$..@...|
000280c0  3a ee 85 ea 3a f7 85 3a  d9 23 58 25 3a 58 25 3d  |:...:..:.#X%:X%=|
000280d0  30 3a f2 65 72 72 28 30  29 0d f1 4a 22 49 25 3d  |0:.err(0)..J"I%=|
000280e0  b9 3a 66 25 3d 31 3a 54  25 3d a3 3a 51 25 3d a3  |.:f%=1:T%=.:Q%=.|
000280f0  3a 4c 25 3d 2d 31 3a 41  25 3d b9 0d f1 54 2e f5  |:L%=-1:A%=...T..|
00028100  3a f5 3a 42 25 3d a4 61  62 67 65 74 3a e7 73 65  |:.:B%=.abget:.se|
00028110  70 25 3a 66 25 2b 3d 31  3a e7 42 25 3d 31 30 3a  |p%:f%+=1:.B%=10:|
00028120  66 25 3d 31 3a 41 25 3d  b9 0d f1 5e 1e fd 28 42  |f%=1:A%=...^..(B|
00028130  25 3e 33 32 80 42 25 3c  31 32 37 80 ac 73 65 70  |%>32.B%<127..sep|
00028140  25 29 84 c5 23 58 25 0d  f1 68 0b e7 ac c5 23 58  |%)..#X%..h....#X|
00028150  25 8c 0d f1 72 16 66 24  3d bd 42 25 3a f5 3a 42  |%...r.f$=.B%:.:B|
00028160  25 3d a4 61 62 67 65 74  0d f1 7c 27 e7 42 25 3e  |%=.abget..|'.B%>|
00028170  33 31 80 42 25 3c 31 32  37 80 ac 73 65 70 25 80  |31.B%<127..sep%.|
00028180  a9 66 24 3c 32 35 35 3a  66 24 2b 3d bd 42 25 0d  |.f$<255:f$+=.B%.|
00028190  f1 86 1c fd 73 65 70 25  3a e7 ac 49 25 84 42 25  |....sep%:..I%.B%|
000281a0  3c 3e 31 30 84 66 25 3c  3e 31 8c 0d f1 90 31 e7  |<>10.f%<>1....1.|
000281b0  ac 54 25 3a e7 a9 66 24  3e 31 3a e7 97 66 24 3d  |.T%:..f$>1:..f$=|
000281c0  33 34 3a e7 97 c2 66 24  29 3d 33 34 3a 66 24 3d  |34:...f$)=34:f$=|
000281d0  c1 66 24 2c 32 2c a9 66  24 2d 32 29 0d f1 9a 1c  |.f$,2,.f$-2)....|
000281e0  e7 41 25 3a 41 25 3d a3  3a c8 99 73 77 69 25 2c  |.A%:A%=.:..swi%,|
000281f0  61 64 64 5f 25 b8 4e 25  0d f1 a4 2a 24 73 64 25  |add_%.N%...*$sd%|
00028200  3d 66 24 3a e7 66 25 3c  3d a4 76 5f 28 37 29 3a  |=f$:.f%<=.v_(7):|
00028210  c8 99 73 77 69 25 2c 70  66 69 65 6c 64 5f 25 2c  |..swi%,pfield_%,|
00028220  66 25 0d f1 ae 05 cd 0d  f1 b8 1f 49 25 3d a3 3a  |f%.........I%=.:|
00028230  66 25 2b 3d 31 3a e7 42  25 3d 31 30 3a 66 25 3d  |f%+=1:.B%=10:f%=|
00028240  31 3a 41 25 3d b9 0d f1  c2 05 cd 0d f1 cc 1b fd  |1:A%=...........|
00028250  c5 23 58 25 84 a6 30 3d  32 37 3a d9 23 58 25 3a  |.#X%..0=27:.#X%:|
00028260  58 25 3d 30 3a e1 0d f1  d6 04 0d f1 e0 0f dd a4  |X%=0:...........|
00028270  61 62 67 65 74 3a ea 42  25 0d f1 ea 3b e7 c5 23  |abget:.B%...;..#|
00028280  58 25 42 25 3d 31 30 3a  8b 3a f5 3a 42 25 3d 9a  |X%B%=10:.:.:B%=.|
00028290  23 58 25 3a e7 42 25 3d  31 33 3a 42 25 3d 31 30  |#X%:.B%=13:B%=10|
000282a0  3a fd 42 25 3c 3e 31 30  84 42 25 3c 3e 4c 25 84  |:.B%<>10.B%<>L%.|
000282b0  c5 23 58 25 0d f1 f4 25  e7 42 25 3d 31 30 3a 4c  |.#X%...%.B%=10:L|
000282c0  25 3d 42 25 3a 8b 4c 25  3d 2d 31 3a e7 42 25 3d  |%=B%:.L%=-1:.B%=|
000282d0  33 34 3a 51 25 3d ac 51  25 0d f1 fe 0e e7 42 25  |34:Q%=.Q%.....B%|
000282e0  3d 39 3a 54 25 3d b9 0d  f2 08 27 73 65 70 25 3d  |=9:T%=....'sep%=|
000282f0  42 25 3d 39 84 42 25 3d  31 30 84 28 42 25 3d 34  |B%=9.B%=10.(B%=4|
00028300  34 80 ac 54 25 80 ac 51  25 29 3a 3d 42 25 0d f2  |4..T%..Q%):=B%..|
00028310  12 04 0d f2 1c 1f dd f2  70 69 63 70 61 74 68 3a  |........picpath:|
00028320  ea 54 24 3a e7 a9 66 69  6c 65 24 3e 32 33 30 3a  |.T$:..file$>230:|
00028330  e1 0d f2 26 3b 54 24 3d  a4 41 72 66 56 61 72 28  |...&;T$=.ArfVar(|
00028340  22 4d 75 6c 74 69 53 74  6f 72 65 50 69 63 73 24  |"MultiStorePics$|
00028350  50 61 74 68 22 29 3a e7  a7 a4 75 28 54 24 29 2c  |Path"):...u(T$),|
00028360  a4 75 28 66 69 6c 65 24  29 29 3a e1 0d f2 30 1f  |.u(file$)):...0.|
00028370  66 69 6c 65 24 2b 3d 22  2e 22 3a c8 95 a9 54 24  |file$+=".":...T$|
00028380  2b a9 66 69 6c 65 24 3e  32 32 39 0d f2 3a 25 f5  |+.file$>229..:%.|
00028390  3a 54 24 3d c0 54 24 29  3a fd c2 54 24 29 3d 22  |:T$=.T$):..T$)="|
000283a0  2c 22 84 54 24 3d 22 22  3a 54 24 3d c0 54 24 29  |,".T$="":T$=.T$)|
000283b0  0d f2 44 17 ce 3a e7 54  24 3e 22 22 3a 66 69 6c  |..D..:.T$>"":fil|
000283c0  65 24 2b 3d 22 2c 22 0d  f2 4e 28 ff 22 53 65 74  |e$+=","..N(."Set|
000283d0  20 4d 75 6c 74 69 53 74  6f 72 65 50 69 63 73 24  | MultiStorePics$|
000283e0  50 61 74 68 20 22 2b 66  69 6c 65 24 2b 54 24 0d  |Path "+file$+T$.|
000283f0  f2 58 2b e3 49 25 3d 30  b8 6d 61 78 66 25 3a e7  |.X+.I%=0.maxf%:.|
00028400  77 25 28 49 25 2c 30 29  3e 30 f2 66 6f 72 63 65  |w%(I%,0)>0.force|
00028410  28 77 25 28 49 25 2c 30  29 29 0d f2 62 07 ed 3a  |(w%(I%,0))..b..:|
00028420  e1 0d f2 6c 04 0d f2 76  24 dd a4 73 74 61 74 73  |...l...v$..stats|
00028430  74 72 3a ea 54 24 2c 41  25 3a 41 25 3d 73 74 25  |tr:.T$,A%:A%=st%|
00028440  28 66 69 6c 65 25 2c 31  29 0d f2 80 41 54 24 3d  |(file%,1)...AT$=|
00028450  22 22 22 22 2b a4 66 69  6c 65 6e 61 6d 65 2b 22  |""""+.filename+"|
00028460  22 22 2c 22 2b c3 73 74  25 28 66 69 6c 65 25 2c  |"","+.st%(file%,|
00028470  30 29 2b 22 2c 22 2b c3  41 25 2b 22 2c 22 22 22  |0)+","+.A%+","""|
00028480  2b a4 66 69 6c 65 6e 61  6d 65 0d f2 8a 4a 54 24  |+.filename...JT$|
00028490  2b 3d 22 20 68 61 73 20  62 65 65 6e 20 6f 70 65  |+=" has been ope|
000284a0  6e 65 64 20 22 2b a4 6e  75 6d 62 65 72 28 73 74  |ned "+.number(st|
000284b0  25 28 66 69 6c 65 25 2c  30 29 29 2b 22 20 74 69  |%(file%,0))+" ti|
000284c0  6d 65 73 20 66 6f 72 20  61 20 74 6f 74 61 6c 20  |mes for a total |
000284d0  6f 66 20 22 0d f2 94 3b  54 24 2b 3d c3 28 41 25  |of "...;T$+=.(A%|
000284e0  81 33 36 30 30 29 2b 22  68 20 22 2b c3 28 28 41  |.3600)+"h "+.((A|
000284f0  25 83 33 36 30 30 29 81  36 30 29 2b 22 6d 20 22  |%.3600).60)+"m "|
00028500  2b c3 28 41 25 83 36 30  29 2b 22 73 22 22 22 0d  |+.(A%.60)+"s""".|
00028510  f2 9e 07 3d 54 24 0d f2  a8 04 0d f2 b2 1e dd a4  |...=T$..........|
00028520  65 76 61 6c 75 61 74 69  6f 6e 3a c8 99 73 77 69  |evaluation:..swi|
00028530  25 2c 73 64 35 35 5f 25  0d f2 bc 12 c8 99 73 77  |%,sd55_%......sw|
00028540  69 25 2c 75 70 70 65 72  5f 25 0d f2 c6 1b 3d a7  |i%,upper_%....=.|
00028550  24 73 64 25 2c 22 45 56  41 4c 55 41 54 49 4f 4e  |$sd%,"EVALUATION|
00028560  22 29 3c 3e 30 0d f2 d0  04 0d f2 da 13 dd f2 77  |")<>0..........w|
00028570  72 69 74 65 63 6f 6d 6d  28 68 25 29 0d f2 e4 14  |ritecomm(h%)....|
00028580  ea 41 24 3a 41 24 3d 22  22 3a 54 25 3d 30 3a f5  |.A$:A$="":T%=0:.|
00028590  0d f2 ee 29 e7 77 25 28  54 25 2c 30 29 3e 30 3a  |...).w%(T%,0)>0:|
000285a0  e7 41 24 3d 22 22 41 24  3d 66 6e 24 28 54 25 29  |.A$=""A$=fn$(T%)|
000285b0  3a 54 25 3d 6d 61 78 66  25 0d f2 f8 05 cd 0d f3  |:T%=maxf%.......|
000285c0  02 28 54 25 2b 3d 31 3a  fd 54 25 3e 6d 61 78 66  |.(T%+=1:.T%>maxf|
000285d0  25 3a 41 24 3d 22 2f 22  2b c0 a4 64 69 72 29 2b  |%:A$="/"+..dir)+|
000285e0  22 20 22 2b 41 24 0d f3  0c 0d d5 23 68 25 2c 41  |" "+A$.....#h%,A|
000285f0  24 3a e1 0d f3 16 04 0d  f3 20 13 dd f2 73 65 74  |$:....... ...set|
00028600  76 61 72 28 41 25 2c 56  25 29 0d f3 2a 09 c8 8e  |var(A%,V%)..*...|
00028610  41 25 ca 0d f3 34 0d c9  20 30 3a 61 25 3d 56 25  |A%...4.. 0:a%=V%|
00028620  0d f3 3e 0d c9 20 31 3a  62 25 3d 56 25 0d f3 48  |..>.. 1:b%=V%..H|
00028630  0d c9 20 32 3a 63 25 3d  56 25 0d f3 52 0d c9 20  |.. 2:c%=V%..R.. |
00028640  33 3a 64 25 3d 56 25 0d  f3 5c 0d c9 20 34 3a 65  |3:d%=V%..\.. 4:e|
00028650  25 3d 56 25 0d f3 66 0d  c9 20 35 3a 66 25 3d 56  |%=V%..f.. 5:f%=V|
00028660  25 0d f3 70 0d c9 20 36  3a 67 25 3d 56 25 0d f3  |%..p.. 6:g%=V%..|
00028670  7a 0d c9 20 37 3a 68 25  3d 56 25 0d f3 84 0d c9  |z.. 7:h%=V%.....|
00028680  20 38 3a 69 25 3d 56 25  0d f3 8e 0d c9 20 39 3a  | 8:i%=V%..... 9:|
00028690  6a 25 3d 56 25 0d f3 98  0d c9 31 30 3a 6b 25 3d  |j%=V%.....10:k%=|
000286a0  56 25 0d f3 a2 0d c9 31  31 3a 6c 25 3d 56 25 0d  |V%.....11:l%=V%.|
000286b0  f3 ac 0d c9 31 32 3a 6d  25 3d 56 25 0d f3 b6 0d  |....12:m%=V%....|
000286c0  c9 31 33 3a 6e 25 3d 56  25 0d f3 c0 05 cb 0d f3  |.13:n%=V%.......|
000286d0  ca 05 e1 0d f3 d4 04 0d  f3 de 0e dd f2 73 64 30  |.............sd0|
000286e0  33 28 41 24 29 0d f3 e8  17 e6 31 3a c8 93 c8 90  |3(A$).....1:....|
000286f0  30 2c 30 2c 33 32 37 36  37 2c 33 31 0d f3 f2 1b  |0,0,32767,31....|
00028700  fb 31 32 39 3a fb 37 3a  f1 8a 31 2c 33 31 29 41  |.129:.7:..1,31)A|
00028710  24 3b 3a fb 31 32 38 0d  f3 fc 05 e1 0d f4 06 04  |$;:.128.........|
00028720  0d f4 10 14 dd a4 70 5f  61 64 64 63 68 65 63 6b  |......p_addcheck|
00028730  28 41 24 29 0d f4 1a 11  ea 41 25 2c 43 25 3a 43  |(A$).....A%,C%:C|
00028740  25 3d 26 35 41 0d f4 24  0b e7 41 24 3e 22 22 8c  |%=&5A..$..A$>"".|
00028750  0d f4 2e 19 e3 49 25 3d  31 b8 a9 41 24 3a 41 25  |.....I%=1..A$:A%|
00028760  3d 97 c1 41 24 2c 49 25  29 0d f4 38 38 43 25 3d  |=..A$,I%)..88C%=|
00028770  28 28 28 43 25 3c 3c 31  29 84 28 43 25 3e 3e 37  |(((C%<<1).(C%>>7|
00028780  29 29 82 41 25 29 80 32  35 35 3a e7 43 25 3c 33  |)).A%).255:.C%<3|
00028790  32 84 43 25 3d 31 32 37  3a 43 25 3d 43 25 84 33  |2.C%=127:C%=C%.3|
000287a0  32 0d f4 42 05 ed 0d f4  4c 05 cd 0d f4 56 0b 3d  |2..B....L....V.=|
000287b0  41 24 2b bd 43 25 0d f4  60 04 0d f4 6a 12 dd a4  |A$+.C%..`...j...|
000287c0  70 5f 68 65 78 73 74 72  28 41 24 29 0d f4 74 0a  |p_hexstr(A$)..t.|
000287d0  ea 54 24 2c 49 25 0d f4  7e 2d e7 41 24 3e 22 22  |.T$,I%..~-.A$>""|
000287e0  3a e3 49 25 3d 31 b8 a9  41 24 3a 54 24 2b 3d c2  |:.I%=1..A$:T$+=.|
000287f0  22 30 22 2b c3 7e 97 c1  41 24 2c 49 25 29 2c 32  |"0"+.~..A$,I%),2|
00028800  29 3a ed 0d f4 88 07 3d  54 24 0d f4 92 04 0d f4  |):.....=T$......|
00028810  9c 2d dd a4 70 5f 70 72  63 6f 64 65 28 41 24 29  |.-..p_prcode(A$)|
00028820  3d a4 70 5f 68 65 78 73  74 72 28 a4 70 5f 61 64  |=.p_hexstr(.p_ad|
00028830  64 63 68 65 63 6b 28 41  24 29 29 0d f4 a6 04 0d  |dcheck(A$)).....|
00028840  f4 b0 14 dd a4 70 5f 70  61 73 73 63 6f 64 65 28  |.....p_passcode(|
00028850  41 24 29 0d f4 ba 1b ea  58 25 2c 43 25 3a 58 25  |A$).....X%,C%:X%|
00028860  3d 8e 41 24 3a e7 58 25  3d 30 3a 3d 22 22 0d f4  |=.A$:.X%=0:=""..|
00028870  c4 29 cf 23 58 25 3d 34  34 2a 34 3a 41 24 3d 22  |.).#X%=44*4:A$="|
00028880  22 3a f5 3a 43 25 3d 9a  23 58 25 3a e7 43 25 3a  |":.:C%=.#X%:.C%:|
00028890  41 24 2b 3d bd 43 25 0d  f4 ce 24 fd 43 25 3d 30  |A$+=.C%...$.C%=0|
000288a0  84 a9 41 24 3d 31 32 3a  d9 23 58 25 3a 3d a4 70  |..A$=12:.#X%:=.p|
000288b0  5f 70 72 63 6f 64 65 28  41 24 29 0d f4 d8 04 0d  |_prcode(A$).....|
000288c0  f4 e2 12 dd f2 63 61 72  64 3a e7 ac a6 2d 33 3a  |.....card:...-3:|
000288d0  e1 0d f4 ec 14 e7 a6 2d  31 3a f2 6d 61 6b 65 74  |.......-1:.maket|
000288e0  65 78 74 3a e1 0d f4 f6  10 ea 49 25 2c 58 25 2c  |ext:......I%,X%,|
000288f0  54 24 2c 41 24 0d f5 00  06 ea 85 0d f5 0a 28 ee  |T$,A$.........(.|
00028900  85 ea 3a f7 85 3a f2 63  63 6c 6f 73 65 28 58 25  |..:..:.cclose(X%|
00028910  29 3a 85 9f 2c f6 24 2b  22 20 28 22 2b c3 9e 2b  |):..,.$+" ("+..+|
00028920  22 29 22 0d f5 14 29 e3  49 25 3d 31 b8 64 65 70  |")"...).I%=1.dep|
00028930  74 68 25 3a 6c 61 62 65  6c 24 28 49 25 29 3d 22  |th%:label$(I%)="|
00028940  22 3a ed 3a 49 25 3d 31  3a f7 2b 31 0d f5 1e 1c  |":.:I%=1:.+1....|
00028950  f3 41 24 3a c8 95 49 25  3c 3d 64 65 70 74 68 25  |.A$:..I%<=depth%|
00028960  80 41 24 3c 3e 22 2a 22  0d f5 28 2d 54 24 3d a4  |.A$<>"*"..(-T$=.|
00028970  63 66 69 65 6c 64 28 41  24 29 3a e7 54 24 3e 22  |cfield(A$):.T$>"|
00028980  22 3a 6c 61 62 65 6c 24  28 49 25 29 3d 54 24 3a  |":label$(I%)=T$:|
00028990  49 25 2b 3d 31 0d f5 32  09 f3 41 24 3a ce 0d f5  |I%+=1..2..A$:...|
000289a0  3c 0a e7 49 25 3e 31 8c  0d f5 46 0d 2a 70 73 20  |<..I%>1...F.*ps |
000289b0  30 2e 32 35 34 0d f5 50  38 58 25 3d ae 28 22 6e  |0.254..P8X%=.("n|
000289c0  65 74 70 72 69 6e 74 3a  22 29 3a e7 58 25 3d 30  |etprint:"):.X%=0|
000289d0  3a 85 39 39 2c 22 43 6f  75 6c 64 6e 27 74 20 63  |:.99,"Couldn't c|
000289e0  6c 61 69 6d 20 70 72 69  6e 74 65 72 22 0d f5 5a  |laim printer"..Z|
000289f0  15 d5 23 58 25 2c 32 37  3a d5 23 58 25 2c 22 45  |..#X%,27:.#X%,"E|
00028a00  22 3b 0d f5 64 22 e3 49  25 3d 31 b8 64 65 70 74  |";..d".I%=1.dept|
00028a10  68 25 3a d5 23 58 25 2c  6c 61 62 65 6c 24 28 49  |h%:.#X%,label$(I|
00028a20  25 29 3a ed 0d f5 6e 15  d5 23 58 25 2c 32 37 3a  |%):...n..#X%,27:|
00028a30  d5 23 58 25 2c 22 46 22  3b 0d f5 78 13 49 25 3d  |.#X%,"F";..x.I%=|
00028a40  58 25 3a 58 25 3d 30 3a  d9 23 49 25 0d f5 82 05  |X%:X%=0:.#I%....|
00028a50  cd 0d f5 8c 05 e1 0d f5  96 31 dc 20 4e 61 6d 65  |.........1. Name|
00028a60  2c 41 64 64 31 2c 41 64  64 32 2c 41 64 64 33 2c  |,Add1,Add2,Add3,|
00028a70  54 6f 77 6e 2c 43 6e 74  79 2c 43 6e 74 72 2c 2b  |Town,Cnty,Cntr,+|
00028a80  3e 50 6f 73 74 2c 2a 0d  f5 a0 04 0d f5 aa 19 dd  |>Post,*.........|
00028a90  f2 63 63 6c 6f 73 65 28  58 25 29 3a e7 58 25 3a  |.cclose(X%):.X%:|
00028aa0  d9 23 58 25 0d f5 b4 05  e1 0d f5 be 04 0d f5 c8  |.#X%............|
00028ab0  17 dd a4 63 66 69 65 6c  64 28 41 24 29 3a ea 54  |...cfield(A$):.T|
00028ac0  24 2c 54 25 0d f5 d2 11  ea 85 3a ee 85 ea 3a f7  |$,T%......:...:.|
00028ad0  85 3a 3d 22 22 0d f5 dc  1f e7 97 41 24 3d 97 22  |.:=""......A$=."|
00028ae0  2b 22 3a 54 25 3d 54 25  84 31 3a 41 24 3d c1 41  |+":T%=T%.1:A$=.A|
00028af0  24 2c 32 29 0d f5 e6 1f  e7 97 41 24 3d 97 22 3e  |$,2)......A$=.">|
00028b00  22 3a 54 25 3d 54 25 84  32 3a 41 24 3d c1 41 24  |":T%=T%.2:A$=.A$|
00028b10  2c 32 29 0d f5 f0 33 c8  99 73 77 69 25 2c 67 66  |,2)...3..swi%,gf|
00028b20  69 65 6c 64 5f 25 2c 41  24 3a 54 24 3d 24 73 64  |ield_%,A$:T$=$sd|
00028b30  25 3a c8 95 c2 54 24 29  3d 22 20 22 3a 54 24 3d  |%:...T$)=" ":T$=|
00028b40  c0 54 24 29 3a ce 0d f5  fa 0b e7 54 24 3e 22 22  |.T$):......T$>""|
00028b50  8c 0d f6 04 17 e7 54 25  80 32 3a 54 24 3d 22 20  |......T%.2:T$=" |
00028b60  20 20 20 20 22 2b 54 24  0d f6 0e 13 e7 54 25 80  |    "+T$.....T%.|
00028b70  31 3a 54 24 3d bd 31 34  2b 54 24 0d f6 18 05 cd  |1:T$=.14+T$.....|
00028b80  0d f6 22 07 3d 54 24 0d  f6 2c 04 0d f6 36 14 dd  |..".=T$..,...6..|
00028b90  f2 69 5f 69 6e 69 74 3a  e7 69 5f 76 25 3a e1 0d  |.i_init:.i_v%:..|
00028ba0  f6 40 1d 69 5f 76 25 3d  30 3a ea 85 3a ee 85 ea  |.@.i_v%=0:..:...|
00028bb0  3a f7 85 3a 69 5f 76 25  3d 30 3a e1 0d f6 4a 3d  |:..:i_v%=0:...J=|
00028bc0  c8 99 22 49 6d 70 75 6c  73 65 5f 49 6e 69 74 69  |.."Impulse_Initi|
00028bd0  61 6c 69 73 65 22 2c 33  2c 74 61 73 6b 68 61 6e  |alise",3,taskhan|
00028be0  64 6c 65 25 2c 22 4d 75  6c 74 69 53 74 6f 72 65  |dle%,"MultiStore|
00028bf0  22 2c 2d 31 b8 69 5f 76  25 0d f6 54 1f de 20 69  |",-1.i_v%..T.. i|
00028c00  5f 6d 74 68 25 20 32 30  30 2c 69 5f 74 78 62 6c  |_mth% 200,i_txbl|
00028c10  6f 63 6b 25 20 33 30 30  0d f6 5e 12 69 5f 74 67  |ock% 300..^.i_tg|
00028c20  65 74 66 69 65 6c 64 25  3d 30 0d f6 68 11 69 5f  |etfield%=0..h.i_|
00028c30  74 67 65 74 64 61 74 61  25 3d 31 0d f6 72 11 69  |tgetdata%=1..r.i|
00028c40  5f 74 67 65 74 74 69 6d  65 25 3d 32 0d f6 7c 14  |_tgettime%=2..|.|
00028c50  50 25 3d 69 5f 6d 74 68  25 3a 5b 4f 50 54 20 30  |P%=i_mth%:[OPT 0|
00028c60  0d f6 86 15 45 51 55 44  20 30 3b 20 66 6f 72 6d  |....EQUD 0; form|
00028c70  61 74 20 69 64 0d f6 90  2a a4 69 5f 6d 74 68 28  |at id...*.i_mth(|
00028c80  30 2c 69 5f 74 67 65 74  66 69 65 6c 64 25 2c 22  |0,i_tgetfield%,"|
00028c90  47 65 74 46 69 65 6c 64  22 2c 22 2f 41 22 29 0d  |GetField","/A").|
00028ca0  f6 9a 26 a4 69 5f 6d 74  68 28 30 2c 69 5f 74 67  |..&.i_mth(0,i_tg|
00028cb0  65 74 64 61 74 61 25 2c  22 47 65 74 44 61 74 61  |etdata%,"GetData|
00028cc0  22 2c 22 22 29 0d f6 a4  2a a4 69 5f 6d 74 68 28  |","")...*.i_mth(|
00028cd0  30 2c 69 5f 74 67 65 74  74 69 6d 65 25 2c 22 47  |0,i_tgettime%,"G|
00028ce0  65 74 54 69 6d 65 44 61  74 65 22 2c 22 22 29 0d  |etTimeDate","").|
00028cf0  f6 ae 17 a4 69 5f 6d 74  68 28 2d 31 2c 2d 31 2c  |....i_mth(-1,-1,|
00028d00  22 22 2c 22 22 29 0d f6  b8 0b 61 6c 69 67 6e 3a  |"","")....align:|
00028d10  5d 0d f6 c2 28 69 5f 74  6f 6b 25 3d 30 3a 69 5f  |]...(i_tok%=0:i_|
00028d20  70 72 6d 25 3d 30 3a 69  5f 6f 62 6a 25 3d 30 3a  |prm%=0:i_obj%=0:|
00028d30  69 5f 64 65 61 64 25 3d  30 0d f6 cc 2e 69 5f 74  |i_dead%=0....i_t|
00028d40  78 25 3d a3 3a 69 5f 74  78 70 74 72 25 3d 30 3a  |x%=.:i_txptr%=0:|
00028d50  69 5f 74 78 63 6f 75 6e  74 25 3d 31 3a 69 5f 74  |i_txcount%=1:i_t|
00028d60  78 74 61 67 25 3d 30 0d  f6 d6 1b 69 5f 66 69 6c  |xtag%=0....i_fil|
00028d70  65 25 3d 2d 31 3a 69 5f  6d 65 72 67 69 6e 67 25  |e%=-1:i_merging%|
00028d80  3d 30 0d f6 e0 20 de 69  5f 63 6f 6d 24 28 36 29  |=0... .i_com$(6)|
00028d90  3a 69 5f 64 6f 63 24 3d  22 22 3a f2 69 5f 64 65  |:i_doc$="":.i_de|
00028da0  66 31 0d f6 ea 05 e1 0d  f6 f4 04 0d f6 fe 21 dd  |f1............!.|
00028db0  f2 69 5f 63 6c 6f 73 65  3a 69 5f 76 25 3d 69 5f  |.i_close:i_v%=i_|
00028dc0  76 25 3a e7 69 5f 76 25  3d 30 3a e1 0d f7 08 2e  |v%:.i_v%=0:.....|
00028dd0  c8 99 22 49 6d 70 75 6c  73 65 5f 43 6c 6f 73 65  |.."Impulse_Close|
00028de0  44 6f 77 6e 22 2c 74 61  73 6b 68 61 6e 64 6c 65  |Down",taskhandle|
00028df0  25 3a 69 5f 76 25 3d 30  3a e1 0d f7 12 04 0d f7  |%:i_v%=0:.......|
00028e00  1c 11 dd f2 69 5f 72 65  70 6c 79 28 54 25 29 0d  |....i_reply(T%).|
00028e10  f7 26 2a e7 54 25 3d 69  5f 6d 65 72 67 69 6e 67  |.&*.T%=i_merging|
00028e20  25 3a 69 5f 6d 65 72 67  69 6e 67 25 2b 3d 31 3a  |%:i_merging%+=1:|
00028e30  69 5f 64 65 61 64 25 3d  30 0d f7 30 05 e1 0d f7  |i_dead%=0..0....|
00028e40  3a 04 0d f7 44 13 dd f2  69 5f 73 65 6e 64 28 54  |:...D...i_send(T|
00028e50  24 2c 54 25 29 0d f7 4e  1e ea 4d 25 3a 4d 25 3d  |$,T%)..N..M%:M%=|
00028e60  26 32 30 30 3a e7 54 25  3c 3e 2d 31 4d 25 3d 26  |&200:.T%<>-1M%=&|
00028e70  32 30 31 0d f7 58 42 69  5f 64 65 61 64 25 3d 30  |201..XBi_dead%=0|
00028e80  3a c8 99 22 49 6d 70 75  6c 73 65 5f 53 65 6e 64  |:.."Impulse_Send|
00028e90  4d 65 73 73 61 67 65 22  2c 4d 25 2c 54 24 2c 30  |Message",M%,T$,0|
00028ea0  2c 30 2c 30 2c 54 25 2c  74 61 73 6b 68 61 6e 64  |,0,0,T%,taskhand|
00028eb0  6c 65 25 2c 30 0d f7 62  05 e1 0d f7 6c 04 0d f7  |le%,0..b....l...|
00028ec0  76 1a dd f2 69 5f 73 65  6e 64 64 61 74 61 28 54  |v...i_senddata(T|
00028ed0  25 2c 42 25 2c 53 25 29  0d f7 80 27 ea 5a 25 3a  |%,B%,S%)...'.Z%:|
00028ee0  e7 ac 69 5f 74 78 25 84  28 54 25 3c 3e 69 5f 74  |..i_tx%.(T%<>i_t|
00028ef0  78 74 61 67 25 29 3a f2  65 72 72 28 37 30 29 0d  |xtag%):.err(70).|
00028f00  f7 8a 36 69 5f 64 65 61  64 25 3d 30 3a 5a 25 3d  |..6i_dead%=0:Z%=|
00028f10  69 5f 74 78 74 6f 70 25  2d 69 5f 74 78 70 74 72  |i_txtop%-i_txptr|
00028f20  25 3a e7 5a 25 3c 53 25  84 5a 25 3d 30 3a 69 5f  |%:.Z%<S%.Z%=0:i_|
00028f30  74 78 25 3d a3 0d f7 94  0f e7 5a 25 3e 53 25 5a  |tx%=......Z%>S%Z|
00028f40  25 3d 53 25 0d f7 9e 43  c8 99 22 49 6d 70 75 6c  |%=S%...C.."Impul|
00028f50  73 65 5f 54 72 61 6e 73  6d 69 74 44 61 74 61 22  |se_TransmitData"|
00028f60  2c 69 5f 74 78 70 74 72  25 2b 69 5f 74 78 62 6c  |,i_txptr%+i_txbl|
00028f70  6f 63 6b 25 2c 5a 25 2c  2c 2c 2c 2c 74 61 73 6b  |ock%,Z%,,,,,task|
00028f80  68 61 6e 64 6c 65 25 0d  f7 a8 12 69 5f 74 78 70  |handle%....i_txp|
00028f90  74 72 25 2b 3d 5a 25 3a  e1 0d f7 b2 04 0d f7 bc  |tr%+=Z%:........|
00028fa0  17 dd f2 69 5f 72 65 63  65 69 76 65 64 61 74 61  |...i_receivedata|
00028fb0  28 71 25 29 0d f7 c6 05  e1 0d f7 d0 04 0d f7 da  |(q%)............|
00028fc0  18 dd a4 69 5f 6d 74 68  28 46 25 2c 54 25 2c 4d  |...i_mth(F%,T%,M|
00028fd0  24 2c 53 24 29 0d f7 e4  3a 5b 4f 50 54 30 3a 65  |$,S$)...:[OPT0:e|
00028fe0  71 75 64 20 46 25 3a 65  71 75 64 20 54 25 3a 65  |qud F%:equd T%:e|
00028ff0  71 75 73 20 4d 24 2b bd  30 3a 65 71 75 73 20 53  |qus M$+.0:equs S|
00029000  24 2b bd 30 3a 61 6c 69  67 6e 3a 5d 3a 3d 30 0d  |$+.0:align:]:=0.|
00029010  f7 ee 04 0d f7 f8 19 dd  f2 69 5f 63 6f 6d 6d 61  |.........i_comma|
00029020  6e 64 28 54 25 2c 50 25  2c 4f 25 29 0d f8 02 09  |nd(T%,P%,O%)....|
00029030  c8 8e 54 25 ca 0d f8 0c  23 c9 20 69 5f 74 67 65  |..T%....#. i_tge|
00029040  74 66 69 65 6c 64 25 3a  f2 67 65 74 66 69 65 6c  |tfield%:.getfiel|
00029050  64 28 50 25 2c 4f 25 29  0d f8 16 22 c9 20 69 5f  |d(P%,O%)...". i_|
00029060  74 67 65 74 64 61 74 61  25 20 3a f2 67 65 74 64  |tgetdata% :.getd|
00029070  61 74 61 28 50 25 2c 4f  25 29 0d f8 20 26 c9 20  |ata(P%,O%).. &. |
00029080  69 5f 74 67 65 74 74 69  6d 65 25 20 3a f2 67 65  |i_tgettime% :.ge|
00029090  74 74 69 6d 65 64 61 74  65 28 50 25 2c 4f 25 29  |ttimedate(P%,O%)|
000290a0  0d f8 2a 07 cb 3a e1 0d  f8 34 04 0d f8 3e 16 dd  |..*..:...4...>..|
000290b0  f2 69 5f 74 72 61 6e 73  66 69 65 6c 64 28 54 24  |.i_transfield(T$|
000290c0  29 0d f8 48 0c ea 45 25  3a 45 25 3d a3 0d f8 52  |)..H..E%:E%=...R|
000290d0  28 ea 85 3a ee 85 ea 3a  f7 85 3a 45 25 3d b9 3a  |(..:...:..:E%=.:|
000290e0  54 24 3d 22 5b 2a 45 52  52 4f 52 2a 20 22 2b f6  |T$="[*ERROR* "+.|
000290f0  24 2b 22 5d 22 0d f8 5c  22 e7 45 25 3d a3 3a 54  |$+"]"..\".E%=.:T|
00029100  24 3d a4 65 76 67 65 6e  28 54 24 2c b9 2c a3 2c  |$=.evgen(T$,.,.,|
00029110  26 39 30 41 2c b9 29 0d  f8 66 1e f2 74 72 61 6e  |&90A,.)..f..tran|
00029120  73 72 65 70 6c 79 28 54  24 2c 45 25 80 28 31 3c  |sreply(T$,E%.(1<|
00029130  3c 33 31 29 29 0d f8 70  05 e1 0d f8 7a 04 0d f8  |<31))..p....z...|
00029140  84 15 dd f2 67 65 74 66  69 65 6c 64 28 50 25 2c  |....getfield(P%,|
00029150  4f 25 29 0d f8 8e 14 dd  f2 67 65 74 64 61 74 61  |O%)......getdata|
00029160  28 50 25 2c 4f 25 29 0d  f8 98 0c e7 50 25 3d 2d  |(P%,O%).....P%=-|
00029170  31 3a e1 0d f8 a2 1f ea  54 24 3a 54 24 3d a4 7a  |1:......T$:T$=.z|
00029180  74 73 28 4f 25 29 3a f2  69 5f 66 69 6c 65 28 54  |ts(O%):.i_file(T|
00029190  24 29 0d f8 ac 22 54 24  3d a4 7a 74 73 28 21 50  |$)..."T$=.zts(!P|
000291a0  25 29 3a f2 69 5f 74 72  61 6e 73 66 69 65 6c 64  |%):.i_transfield|
000291b0  28 54 24 29 0d f8 b6 05  e1 0d f8 c0 04 0d f8 ca  |(T$)............|
000291c0  18 dd f2 67 65 74 74 69  6d 65 64 61 74 65 28 50  |...gettimedate(P|
000291d0  25 2c 4f 25 29 0d f8 d4  13 ea 54 24 3a 54 24 3d  |%,O%).....T$:T$=|
000291e0  a4 7a 74 73 28 50 25 29  0d f8 de 21 e7 54 24 3d  |.zts(P%)...!.T$=|
000291f0  22 22 54 24 3d 22 25 5a  44 59 25 53 54 20 25 4d  |""T$="%ZDY%ST %M|
00029200  4f 20 25 43 45 25 59 52  22 0d f8 e8 28 21 77 6f  |O %CE%YR"...(!wo|
00029210  72 6b 62 75 66 25 3d 33  3a c8 99 20 22 4f 53 5f  |rkbuf%=3:.. "OS_|
00029220  57 6f 72 64 22 2c 31 34  2c 77 6f 72 6b 62 75 66  |Word",14,workbuf|
00029230  25 0d f8 f2 3b c8 99 20  22 4f 53 5f 43 6f 6e 76  |%...;.. "OS_Conv|
00029240  65 72 74 44 61 74 65 41  6e 64 54 69 6d 65 22 2c  |ertDateAndTime",|
00029250  77 6f 72 6b 62 75 66 25  2c 77 6f 72 6b 62 75 66  |workbuf%,workbuf|
00029260  25 2b 32 30 2c 31 34 30  30 2c 54 24 0d f8 fc 26  |%+20,1400,T$...&|
00029270  f2 74 72 61 6e 73 72 65  70 6c 79 28 a4 7a 74 73  |.transreply(.zts|
00029280  28 77 6f 72 6b 62 75 66  25 2b 32 30 29 2c 30 29  |(workbuf%+20),0)|
00029290  3a e1 0d f9 06 04 0d f9  10 17 dd f2 74 72 61 6e  |:...........tran|
000292a0  73 72 65 70 6c 79 28 54  24 2c 46 25 29 0d f9 1a  |sreply(T$,F%)...|
000292b0  36 69 5f 64 65 61 64 25  3d 30 3a 69 5f 74 78 25  |6i_dead%=0:i_tx%|
000292c0  3d b9 3a 69 5f 74 78 70  74 72 25 3d 30 3a 24 69  |=.:i_txptr%=0:$i|
000292d0  5f 74 78 62 6c 6f 63 6b  25 3d 54 24 2b c4 34 2c  |_txblock%=T$+.4,|
000292e0  bd 30 29 0d f9 24 44 69  5f 74 78 74 6f 70 25 3d  |.0)..$Di_txtop%=|
000292f0  28 a9 28 54 24 29 2b 31  2b 33 29 80 26 46 46 46  |(.(T$)+1+3).&FFF|
00029300  46 46 46 46 43 3a 69 5f  74 78 74 61 67 25 3d 69  |FFFFC:i_txtag%=i|
00029310  5f 74 78 63 6f 75 6e 74  25 3a 69 5f 74 78 63 6f  |_txcount%:i_txco|
00029320  75 6e 74 25 2b 3d 31 0d  f9 2e 5c c8 99 20 22 49  |unt%+=1...\.. "I|
00029330  6d 70 75 6c 73 65 5f 53  65 6e 64 4d 65 73 73 61  |mpulse_SendMessa|
00029340  67 65 22 2c 26 32 30 32  2c 22 4d 75 6c 74 69 53  |ge",&202,"MultiS|
00029350  74 6f 72 65 22 2c 2d 31  2c 2c 46 25 2c 69 5f 74  |tore",-1,,F%,i_t|
00029360  78 74 61 67 25 2c 74 61  73 6b 68 61 6e 64 6c 65  |xtag%,taskhandle|
00029370  25 2c 69 5f 74 78 74 6f  70 25 2d 69 5f 74 78 70  |%,i_txtop%-i_txp|
00029380  74 72 25 0d f9 38 05 e1  0d f9 42 04 0d f9 4c 1c  |tr%..8....B...L.|
00029390  dd f2 69 5f 66 69 6c 65  28 54 24 29 3a ea 54 25  |..i_file(T$):.T%|
000293a0  3a e7 54 24 3e 22 22 8c  0d f9 56 26 54 25 3d a4  |:.T$>""...V&T%=.|
000293b0  66 69 6c 65 6e 75 6d 28  54 24 29 3a e7 54 25 3e  |filenum(T$):.T%>|
000293c0  3d 30 3a f2 73 64 66 69  6c 65 28 54 25 29 0d f9  |=0:.sdfile(T%)..|
000293d0  60 05 cc 0d f9 6a 20 e7  69 5f 66 69 6c 65 25 3e  |`....j .i_file%>|
000293e0  3d 30 3a f2 73 64 66 69  6c 65 28 69 5f 66 69 6c  |=0:.sdfile(i_fil|
000293f0  65 25 29 0d f9 74 07 cd  3a e1 0d f9 7e 04 0d f9  |e%)..t..:...~...|
00029400  88 1a dd f2 69 5f 73 74  61 72 74 6d 65 72 67 65  |....i_startmerge|
00029410  3a f2 69 5f 69 6e 69 74  0d f9 92 23 f2 69 5f 67  |:.i_init...#.i_g|
00029420  65 74 69 63 6f 6e 73 3a  e7 69 5f 64 6f 63 24 3d  |eticons:.i_doc$=|
00029430  22 22 3a f2 65 72 72 28  37 31 29 0d f9 9c 27 69  |"":.err(71)...'i|
00029440  5f 64 65 61 64 25 3d 30  3a 69 5f 66 69 6c 65 25  |_dead%=0:i_file%|
00029450  3d 64 69 61 6c 66 69 6c  65 25 3a f2 6e 6f 64 69  |=dialfile%:.nodi|
00029460  61 6c 0d f9 a6 2f 69 5f  6d 65 72 67 69 6e 67 25  |al.../i_merging%|
00029470  3d 31 3a f2 73 64 66 69  6c 65 28 69 5f 66 69 6c  |=1:.sdfile(i_fil|
00029480  65 25 29 3a f2 73 74 61  72 74 61 63 74 28 31 31  |e%):.startact(11|
00029490  29 0d f9 b0 05 e1 0d f9  ba 04 0d f9 c4 28 dd f2  |)............(..|
000294a0  69 5f 64 65 66 3a ea 49  25 2c 4a 25 3a e3 49 25  |i_def:.I%,J%:.I%|
000294b0  3d 30 b8 36 3a f3 69 5f  63 6f 6d 24 28 49 25 29  |=0.6:.i_com$(I%)|
000294c0  3a ed 0d f9 ce 11 f2 69  5f 73 65 74 69 63 6f 6e  |:......i_seticon|
000294d0  73 3a e1 0d f9 d8 04 0d  f9 e2 19 dd f2 69 5f 64  |s:...........i_d|
000294e0  65 66 31 3a f7 2b 31 3a  f2 69 5f 64 65 66 3a e1  |ef1:.+1:.i_def:.|
000294f0  0d f9 ec 25 dc 20 22 3a  49 6d 70 72 65 73 73 69  |...%. ":Impressi|
00029500  6f 6e 2e 3c 4f 62 6a 65  63 74 3e 20 45 64 69 74  |on.<Object> Edit|
00029510  20 4f 66 66 22 0d f9 f6  05 dc 0d fa 00 22 dc 20  | Off"........". |
00029520  22 3a 49 6d 70 72 65 73  73 69 6f 6e 2e 3c 4f 62  |":Impression.<Ob|
00029530  6a 65 63 74 3e 20 4d 65  72 67 65 22 0d fa 0a 22  |ject> Merge"..."|
00029540  dc 20 22 3a 49 6d 70 72  65 73 73 69 6f 6e 2e 3c  |. ":Impression.<|
00029550  4f 62 6a 65 63 74 3e 20  50 72 69 6e 74 22 0d fa  |Object> Print"..|
00029560  14 05 dc 0d fa 1e 24 dc  20 22 3a 49 6d 70 72 65  |......$. ":Impre|
00029570  73 73 69 6f 6e 2e 3c 4f  62 6a 65 63 74 3e 20 45  |ssion.<Object> E|
00029580  64 69 74 20 4f 6e 22 0d  fa 28 05 dc 0d fa 32 04  |dit On"..(....2.|
00029590  0d fa 3c 21 dd f2 69 5f  69 6d 70 75 6c 73 65 3a  |..<!..i_impulse:|
000295a0  f2 69 5f 69 6e 69 74 3a  e7 69 5f 76 25 3d 30 3a  |.i_init:.i_v%=0:|
000295b0  e1 0d fa 46 27 f2 64 69  61 6c 6f 67 75 65 28 77  |...F'.dialogue(w|
000295c0  5f 69 6d 70 75 6c 73 65  25 29 3a f2 69 5f 73 65  |_impulse%):.i_se|
000295d0  74 69 63 6f 6e 73 3a e1  0d fa 50 04 0d fa 5a 29  |ticons:...P...Z)|
000295e0  dd f2 69 5f 73 65 74 69  63 6f 6e 73 3a e7 64 69  |..i_seticons:.di|
000295f0  61 6c 6f 67 75 65 25 3c  3e 77 5f 69 6d 70 75 6c  |alogue%<>w_impul|
00029600  73 65 25 3a e1 0d fa 64  35 f7 2b 31 3a e3 49 25  |se%:...d5.+1:.I%|
00029610  3d 30 b8 36 3a f3 4a 25  3a f2 73 65 74 69 28 77  |=0.6:.J%:.seti(w|
00029620  5f 69 6d 70 75 6c 73 65  25 2c 4a 25 2c 69 5f 63  |_impulse%,J%,i_c|
00029630  6f 6d 24 28 49 25 29 29  3a ed 0d fa 6e 20 f2 73  |om$(I%)):...n .s|
00029640  65 74 69 28 77 5f 69 6d  70 75 6c 73 65 25 2c 39  |eti(w_impulse%,9|
00029650  2c 69 5f 64 6f 63 24 29  3a e1 0d fa 78 10 dd f2  |,i_doc$):...x...|
00029660  69 5f 67 65 74 69 63 6f  6e 73 0d fa 82 38 f7 2b  |i_geticons...8.+|
00029670  31 3a e3 49 25 3d 30 b8  36 3a f3 4a 25 3a 69 5f  |1:.I%=0.6:.J%:i_|
00029680  63 6f 6d 24 28 49 25 29  3d a4 73 28 24 a4 69 61  |com$(I%)=.s($.ia|
00029690  28 77 5f 69 6d 70 75 6c  73 65 25 2c 4a 25 29 29  |(w_impulse%,J%))|
000296a0  3a ed 0d fa 8c 23 69 5f  64 6f 63 24 3d a4 73 28  |:....#i_doc$=.s(|
000296b0  24 a4 69 61 28 77 5f 69  6d 70 75 6c 73 65 25 2c  |$.ia(w_impulse%,|
000296c0  39 29 29 3a e1 0d fa 96  05 e1 0d fa a0 19 dc 31  |9)):...........1|
000296d0  31 2c 31 32 2c 31 34 2c  31 35 2c 31 36 2c 31 37  |1,12,14,15,16,17|
000296e0  2c 31 38 0d fa aa 04 0d  fa b4 0c dd f2 69 5f 6e  |,18..........i_n|
000296f0  65 78 74 0d fa be 14 f2  73 64 66 69 6c 65 28 69  |ext.....sdfile(i|
00029700  5f 66 69 6c 65 25 29 0d  fa c8 11 c8 8e 69 5f 6d  |_file%)......i_m|
00029710  65 72 67 69 6e 67 25 ca  0d fa d2 15 c9 30 31 3a  |erging%......01:|
00029720  f2 69 5f 6e 65 78 74 63  6f 6d 28 30 29 0d fa dc  |.i_nextcom(0)...|
00029730  0f c9 30 32 3a f2 69 5f  73 61 66 65 0d fa e6 15  |..02:.i_safe....|
00029740  c9 30 33 3a f2 69 5f 6e  65 78 74 63 6f 6d 28 31  |.03:.i_nextcom(1|
00029750  29 0d fa f0 0f c9 30 34  3a f2 69 5f 73 61 66 65  |).....04:.i_safe|
00029760  0d fa fa 24 c9 30 35 3a  c8 99 73 77 69 25 2c 66  |...$.05:..swi%,f|
00029770  69 72 73 74 5f 25 3a 69  5f 6d 65 72 67 69 6e 67  |irst_%:i_merging|
00029780  25 2b 3d 31 0d fb 04 47  c9 30 36 3a f2 73 64 6e  |%+=1...G.06:.sdn|
00029790  65 78 74 3a e7 a4 76 5f  28 31 35 29 3e a4 76 5f  |ext:..v_(15)>.v_|
000297a0  28 31 37 29 3a 69 5f 6d  65 72 67 69 6e 67 25 3d  |(17):i_merging%=|
000297b0  31 30 30 3a 8b 69 5f 6d  65 72 67 69 6e 67 25 2b  |100:.i_merging%+|
000297c0  3d 31 3a f2 73 68 6f 77  6e 75 6d 0d fb 0e 15 c9  |=1:.shownum.....|
000297d0  30 37 3a f2 69 5f 6e 65  78 74 63 6f 6d 28 32 29  |07:.i_nextcom(2)|
000297e0  0d fb 18 0f c9 30 38 3a  f2 69 5f 73 61 66 65 0d  |.....08:.i_safe.|
000297f0  fb 22 15 c9 30 39 3a f2  69 5f 6e 65 78 74 63 6f  |."..09:.i_nextco|
00029800  6d 28 33 29 0d fb 2c 0f  c9 31 30 3a f2 69 5f 73  |m(3)..,..10:.i_s|
00029810  61 66 65 0d fb 36 15 c9  31 31 3a f2 69 5f 6e 65  |afe..6..11:.i_ne|
00029820  78 74 63 6f 6d 28 34 29  0d fb 40 0f c9 31 32 3a  |xtcom(4)..@..12:|
00029830  f2 69 5f 73 61 66 65 0d  fb 4a 14 c9 31 33 3a 69  |.i_safe..J..13:i|
00029840  5f 6d 65 72 67 69 6e 67  25 3d 36 0d fb 54 16 c9  |_merging%=6..T..|
00029850  31 30 30 3a f2 69 5f 6e  65 78 74 63 6f 6d 28 35  |100:.i_nextcom(5|
00029860  29 0d fb 5e 10 c9 31 30  31 3a f2 69 5f 73 61 66  |)..^..101:.i_saf|
00029870  65 0d fb 68 16 c9 31 30  32 3a f2 69 5f 6e 65 78  |e..h..102:.i_nex|
00029880  74 63 6f 6d 28 36 29 0d  fb 72 10 c9 31 30 33 3a  |tcom(6)..r..103:|
00029890  f2 69 5f 73 61 66 65 0d  fb 7c 28 c9 31 30 34 3a  |.i_safe..|(.104:|
000298a0  69 5f 6d 65 72 67 69 6e  67 25 3d 30 3a 69 5f 66  |i_merging%=0:i_f|
000298b0  69 6c 65 25 3d 2d 31 3a  f2 65 6e 64 61 63 74 0d  |ile%=-1:.endact.|
000298c0  fb 86 05 cb 0d fb 90 05  e1 0d fb 9a 04 0d fb a4  |................|
000298d0  17 dd f2 69 5f 6e 65 78  74 63 6f 6d 28 43 25 29  |...i_nextcom(C%)|
000298e0  3a ea 54 24 0d fb ae 31  69 5f 6d 65 72 67 69 6e  |:.T$...1i_mergin|
000298f0  67 25 2b 3d 31 3a 54 24  3d a4 73 28 a4 69 5f 74  |g%+=1:T$=.s(.i_t|
00029900  72 61 6e 73 6c 61 74 65  28 69 5f 63 6f 6d 24 28  |ranslate(i_com$(|
00029910  43 25 29 29 29 0d fb b8  30 e7 54 24 3d 22 22 3a  |C%)))...0.T$="":|
00029920  69 5f 6d 65 72 67 69 6e  67 25 2b 3d 31 3a 8b f2  |i_merging%+=1:..|
00029930  69 5f 73 65 6e 64 28 54  24 2c 69 5f 6d 65 72 67  |i_send(T$,i_merg|
00029940  69 6e 67 25 29 0d fb c2  05 e1 0d fb cc 04 0d fb  |ing%)...........|
00029950  d6 17 dd f2 69 5f 73 61  66 65 3a 69 5f 64 65 61  |....i_safe:i_dea|
00029960  64 25 2b 3d 31 0d fb e0  19 e7 69 5f 64 65 61 64  |d%+=1.....i_dead|
00029970  25 3c 69 5f 6d 61 78 64  65 61 64 25 3a e1 0d fb  |%<i_maxdead%:...|
00029980  ea 1d 69 5f 64 65 61 64  25 3d 30 3a 69 5f 6d 65  |..i_dead%=0:i_me|
00029990  72 67 69 6e 67 25 2b 3d  31 3a e1 0d fb f4 04 0d  |rging%+=1:......|
000299a0  fb fe 19 dd a4 69 5f 74  72 61 6e 73 6c 61 74 65  |.....i_translate|
000299b0  28 54 24 29 3a ea 49 25  0d fc 08 18 f5 3a 49 25  |(T$):.I%.....:I%|
000299c0  3d a7 54 24 2c 22 3c 4f  62 6a 65 63 74 3e 22 29  |=.T$,"<Object>")|
000299d0  0d fc 12 24 e7 49 25 54  24 3d c0 54 24 2c 49 25  |...$.I%T$=.T$,I%|
000299e0  2d 31 29 2b 69 5f 64 6f  63 24 2b c1 54 24 2c 49  |-1)+i_doc$+.T$,I|
000299f0  25 2b 38 29 0d fc 1c 0d  fd 49 25 3d 30 3a 3d 54  |%+8).....I%=0:=T|
00029a00  24 0d fc 26 04 0d fc 30  14 dd f2 69 5f 6b 69 6c  |$..&...0...i_kil|
00029a10  6c 28 46 25 29 3a ea 54  24 0d fc 3a 1f e7 69 5f  |l(F%):.T$..:..i_|
00029a20  6d 65 72 67 69 6e 67 25  3d 30 84 69 5f 66 69 6c  |merging%=0.i_fil|
00029a30  65 25 3c 3e 46 25 3a e1  0d fc 44 37 54 24 3d a4  |e%<>F%:...D7T$=.|
00029a40  73 28 a4 69 5f 74 72 61  6e 73 6c 61 74 65 28 69  |s(.i_translate(i|
00029a50  5f 63 6f 6d 24 28 35 29  29 29 3a e7 54 24 3e 22  |_com$(5))):.T$>"|
00029a60  22 f2 69 5f 73 65 6e 64  28 54 24 2c 2d 31 29 0d  |".i_send(T$,-1).|
00029a70  fc 4e 37 54 24 3d a4 73  28 a4 69 5f 74 72 61 6e  |.N7T$=.s(.i_tran|
00029a80  73 6c 61 74 65 28 69 5f  63 6f 6d 24 28 36 29 29  |slate(i_com$(6))|
00029a90  29 3a e7 54 24 3e 22 22  f2 69 5f 73 65 6e 64 28  |):.T$>"".i_send(|
00029aa0  54 24 2c 2d 31 29 0d fc  58 36 f2 73 64 66 69 6c  |T$,-1)..X6.sdfil|
00029ab0  65 28 69 5f 66 69 6c 65  25 29 3a 69 5f 6d 65 72  |e(i_file%):i_mer|
00029ac0  67 69 6e 67 25 3d 30 3a  69 5f 66 69 6c 65 25 3d  |ging%=0:i_file%=|
00029ad0  2d 31 3a f2 65 6e 64 61  63 74 3a e1 0d fc 62 04  |-1:.endact:...b.|
00029ae0  0d fc 6c 36 dd a4 64 75  70 76 61 6c 3a e7 a4 63  |..l6..dupval:..c|
00029af0  75 72 69 64 78 3e 30 3a  3d a4 65 76 34 28 24 73  |uridx>0:=.ev4($s|
00029b00  64 25 2c b9 2c b9 29 3a  8b 3d a4 73 6f 28 a4 76  |d%,.,.):.=.so(.v|
00029b10  5f 28 31 35 29 29 0d fc  76 04 0d fc 80 3c dd f2  |_(15))..v....<..|
00029b20  64 75 70 6e 65 78 74 3a  ea 54 24 2c 54 25 2c 4e  |dupnext:.T$,T%,N|
00029b30  25 3a 54 24 3d a4 64 75  70 76 61 6c 3a 54 25 3d  |%:T$=.dupval:T%=|
00029b40  65 25 28 66 69 6c 65 25  2c 31 29 3a 4e 25 3d a4  |e%(file%,1):N%=.|
00029b50  76 5f 28 31 35 29 0d fc  8a 52 67 25 3d 30 3a e7  |v_(15)...Rg%=0:.|
00029b60  47 25 3d 30 80 65 78 24  28 66 69 6c 65 25 29 3c  |G%=0.ex$(file%)<|
00029b70  3e 22 23 24 25 24 23 22  3a 67 25 3d a4 73 69 6d  |>"#$%$#":g%=.sim|
00029b80  69 6c 61 72 28 54 24 2c  c1 65 78 24 28 66 69 6c  |ilar(T$,.ex$(fil|
00029b90  65 25 29 2c a7 65 78 24  28 66 69 6c 65 25 29 2c  |e%),.ex$(file%),|
00029ba0  22 3a 22 29 2b 31 29 29  0d fc 94 5b e7 67 25 3c  |":")+1))...[.g%<|
00029bb0  3e 30 84 54 25 3e 32 35  35 f2 73 75 62 62 79 74  |>0.T%>255.subbyt|
00029bc0  65 28 54 25 2c 67 25 29  3a c8 99 73 77 69 25 2c  |e(T%,g%):..swi%,|
00029bd0  67 72 65 63 5f 25 2c bb  65 78 24 28 66 69 6c 65  |grec_%,.ex$(file|
00029be0  25 29 3a f2 73 75 62 62  79 74 65 28 54 25 2c 67  |%):.subbyte(T%,g|
00029bf0  25 29 3a c8 99 73 77 69  25 2c 67 72 65 63 5f 25  |%):..swi%,grec_%|
00029c00  2c 4e 25 0d fc 9e 2a e7  67 25 3c 3e 30 80 54 25  |,N%...*.g%<>0.T%|
00029c10  3c 32 35 35 3a 66 63 25  28 66 69 6c 65 25 29 2b  |<255:fc%(file%)+|
00029c20  3d 31 3a f2 73 68 6f 77  66 6f 75 6e 64 0d fc a8  |=1:.showfound...|
00029c30  19 65 78 24 28 66 69 6c  65 25 29 3d c3 4e 25 2b  |.ex$(file%)=.N%+|
00029c40  22 3a 22 2b 54 24 0d fc  b2 0e f2 73 68 6f 77 6e  |":"+T$.....shown|
00029c50  75 6d 3a e1 0d fc bc 04  0d fc da 32 dd f2 74 65  |um:........2..te|
00029c60  78 74 5f 6e 65 77 6c 28  54 25 2c 46 25 29 3a 74  |xt_newl(T%,F%):t|
00029c70  65 78 74 5f 78 25 3d 30  3a 74 65 78 74 5f 79 25  |ext_x%=0:text_y%|
00029c80  3d 31 30 32 33 2d bc 2a  33 32 0d fc e5 2b e6 37  |=1023-.*32...+.7|
00029c90  3a c8 93 c8 90 74 65 78  74 5f 78 25 2c 74 65 78  |:....text_x%,tex|
00029ca0  74 5f 79 25 2c 32 31 31  32 2a 54 25 2f 46 25 2c  |t_y%,2112*T%/F%,|
00029cb0  2d 33 31 3a e1 0d fd 02  04 0d fd 0c 1f dd f2 74  |-31:...........t|
00029cc0  65 78 74 5f 70 73 74 72  28 54 24 2c 57 25 29 3a  |ext_pstr(T$,W%):|
00029cd0  e7 54 24 3d 22 22 3a e1  0d fd 0d 39 ea 78 2c 73  |.T$="":....9.x,s|
00029ce0  2c 49 25 3a 78 3d 74 65  78 74 5f 78 25 3a 73 3d  |,I%:x=text_x%:s=|
00029cf0  32 31 31 32 2f 57 25 3a  ef 35 2c 32 33 2c 31 37  |2112/W%:.5,23,17|
00029d00  2c 37 2c 37 2c 31 30 35  36 2f 57 25 3b 38 3b 30  |,7,7,1056/W%;8;0|
00029d10  3b 0d fd 17 2e e3 49 25  3d 31 b8 a9 54 24 3a ec  |;.....I%=1..T$:.|
00029d20  78 2c 74 65 78 74 5f 79  25 3a e6 33 2c 33 3a ef  |x,text_y%:.3,3:.|
00029d30  97 c1 54 24 2c 49 25 29  3a 78 2b 3d 73 3a ed 0d  |..T$,I%):x+=s:..|
00029d40  fd 2a 30 74 65 78 74 5f  78 25 2b 3d 32 31 31 32  |.*0text_x%+=2112|
00029d50  2a a9 54 24 2f 57 25 3a  ef 34 2c 32 33 2c 31 37  |*.T$/W%:.4,23,17|
00029d60  2c 37 2c 37 2c 38 3b 38  3b 30 3b 3a 87 3a e1 0d  |,7,7,8;8;0;:.:..|
00029d70  ff                                                |.|
00029d71