� Runimage for Celebrate
�
� Birthday Book II
(� For Acorn Computers
2� Simon Weaver - 1994
<�
F� � Acorn Computing �93
P
Z
��,�$:�
d�varinit
n
�loaddata
x�loadsprites
��loadtemplates
��dts
�
�3$(�im(infow%,5))="� Acorn Computing - May 1994"
�'$(�im(infow%,4))="2.02 (25-Apr-94)"
�
��caloff
��check(env$)
�
�menudefs
��mindirect
��iconbar
�	�wimp
�


��varinit

Bș"OS_GetEnv"�fn$:path$="Run "+�fn$,14,�(fn$)-28):env$=�fn$,1)

�indsize=2690:�m$(12),b% 1200,b2% 1200,mindirect% 43,indirect% indsize,name% 11,im% 150,dm% 341,mm% 150,bm% 172,d% 20786,l% 1640

"�:�m=1�12:�m$(m):�

,app$="Celebration"

64ș"Wimp_Initialise",200,&4B534154,app$�wos,TASK%

@.tmplf$="2Dtemps":�wos>=310tmplf$="3Dtemps"

Je%=�:sort=�

T�

^

h��loadsprites

r>file%=�("<BirthBook$Dir>.Sprites"):size%=�#file%+4:�#file%

|�sp% size%

�J!sp%=size%:sp%!8=16:ș"OS_SpriteOp",&10A,sp%,"<BirthBook$Dir>.Sprites"

��

�

�/��quit:ș"Wimp_CloseDown",TASK%,&4B534154:�

�

�)��error(err$):笤choice(err$)�quit ��

�

���saveerror

��X=0:�saveerror

��X<>0�#X

�u�msg("Unable to save Celebration's events. Is the disc in the drive? Is is protected? Is the file locked?"):�wimp

�

���errorhandle
	Ȏ� �
\�choice("Internal error : "+ß+" '"+�$+"' at line "+Þ+" Continue execution?")=� �quit
�
&�
0
:*ݤchoice(err$):!b%=255:$(b%+4)=err$+�0
D6ș"Wimp_ReportError",b%,19,"Query from "+app$ �,r%
N�r%=1=�
X=�
b
l)��msg(err$):!b2%=255:$(b2%+4)=err$+�0
v4ș"Wimp_ReportError",b2%,17,"Message from "+app$
��
�
�z��iconbar:!b%=-1:b%!4=0:b%!8=0:b%!12=60:b%!16=68:b%!20=%11000000011010:$(b%+24)="!Celebrate":ș"Wimp_CreateIcon",,b%:�
�
���caloff
�w!b%=dW%:!b2%=lW%:ș"Wimp_GetWindowState",,b%:ș"Wimp_GetWindowState",,b2%:cxoffset%=b2%!4-b%!4:cyoffset%=b2%!8-b%!8
��
�
���menudefs
�$im%="Celebration":im%!12=&00070207:im%!16=210:im%!20=44:im%!24=0:im%!28=0:im%!32=infow%:im%!36=&7000021:$(im%+40)="Info":im%!52=&0:im%!56=-1:im%!60=&7000021:$(im%+64)="Show Book":im%!76=&0
�im%!80=-1:im%!84=&7000021:$(im%+88)="Save Data...":im%!100=&0:im%!104=-1:im%!108=&7000021:$(im%+112)="Sort Records":im%!124=&80:im%!128=-1:im%!132=&7000021:$(im%+136)="Quit"
�F$bm%="What next...":bm%!12=&00070207:bm%!16=270:bm%!20=44:bm%!24=0
�;bm%!28=8:bm%!32=bW%:bm%!36=&7000021:$(bm%+40)="Details"
Pbm%!52=&0:bm%!56=-1:bm%!60=&7000121:bm%!64=mindirect%+15:bm%!68=-1:bm%!72=16
<bm%!76=8:bm%!80=zW%:bm%!84=&7000021:$(bm%+88)="Days old"
Dbm%!100=&0:bm%!104=-1:bm%!108=&7000021:$(bm%+112)="Edit Details"
 >bm%!124=&0:bm%!128=-1:bm%!132=&7000021:$(bm%+136)="Delete"
*Tbm%!148=&80:bm%!152=-1:bm%!156=&7000121:bm%!160=mindirect%:bm%!164=-1:bm%!168=14
4
>�$mm%="Celebration":mm%!12=&00070207:mm%!16=210:mm%!20=44:mm%!24=0:mm%!28=8:mm%!32=zW%:mm%!36=&7000021:$(mm%+40)="Records":mm%!52=0:mm%!56=-1:mm%!60=&7000021:$(mm%+64)="Search":mm%!76=&0
H�mm%!80=-1:mm%!84=&7000021:$(mm%+88)="Warning list":mm%!100=&0:mm%!104=-1:mm%!108=&7000021:$(mm%+112)="New Event":mm%!124=&80:mm%!128=-1:mm%!132=&7000021:$(mm%+136)="Save Data..."
R?$dm%="Month":dm%!12=&00070207:dm%!16=150:dm%!20=44:dm%!24=0
\]�d=0�11:dm%!(28+d*24)=&0:dm%!(32+d*24)=-1:dm%!(36+d*24)=&7000021:$(dm%+40+d*24)=m$(d+1):�
fMdm%!292=&80:dm%!316=&80:dm%!320=-1:dm%!324=&7000021:$(dm%+328)="Warnings"
pZ�January,February,March,April,May,June,July,August,September,October,November,December
z�
�
���mindirect
� $mindirect%="Accept Warning"
�'$(mindirect%+15)="Days to any year"
��
�
���loadtemplates
�vș"Wimp_OpenTemplate",,"<BirthBook$Dir>."+tmplf$:indirectpos%=indirect%:position%=0:X=�("<BirthBook$Dir>."+tmplf$)
�Etemp1$="":temp=11:�:temp2=�#X:�temp2>=65�temp2<=90 temp1$+=�temp2
�;�temp1$,"WARNING")wW%=�lt("WARNING"):temp1$="":temp-=1
�7�temp1$,"DIARY")dW%=�lt("DIARY"):temp1$="":temp-=1
�5�temp1$,"LIST")lW%=�lt("LIST"):temp1$="":temp-=1
�5�temp1$,"SIZE")zW%=�lt("SIZE"):temp1$="":temp-=1
:�temp1$,"BLIMEY")blW%=�lt("BLIMEY"):temp1$="":temp-=1
7�temp1$,"BINFO")bW%=�lt("BINFO"):temp1$="":temp-=1
8�temp1$,"INFO")infow%=�lt("INFO"):temp1$="":temp-=1
$>�temp1$,"SEARCH")searchw%=�lt("SEARCH"):temp1$="":temp-=1
.3�temp1$,"NEW")nW%=�lt("NEW"):temp1$="":temp-=1
89�temp1$,"EDITBD")eW%=�lt("EDITBD"):temp1$="":temp-=1
B?�temp1$,"CALCULATE")cW%=�lt("CALCULATE"):temp1$="":temp-=1
L�temp=0
V�#X:ș"Wimp_CloseTemplate"
`�
j
tݤlt($name%)
~kș"Wimp_LoadTemplate",,b%,indirectpos%,indirect%+indsize,-1,name%,position%�,,indirectpos%,,,,position%
�2�position%=0�msg("Templates mucked up!"):�quit
�
b%!64=sp%
�
Ȏ$name%�
�0�"EDITBD","NEW":b%!64=1:b%!(88+19*32+24)=sp%
��
� ș"Wimp_CreateWindow",,b%�h%
�=h%
�
���savedata
��
���saveerror
�(X=0:X=�("<BirthBook$Dir>.Birthdays")
�#X,-1:� New Format

�#X,bds%
�bds%>0�

�n=1�bds%
(�#X,$(d%+(n-1)*38)
2�#X,?(d%+26+(n-1)*38)
<�#X,?(d%+27+(n-1)*38)
F�#X,?(d%+28+(n-1)*38)
P�#X,?(d%+29+(n-1)*38)
Z�#X,$(d%+30+(n-1)*38)
d�#X,?(d%+36+(n-1)*38)
n�#X,?(d%+37+(n-1)*38)
x�
��
�2�#X:�msg("Data successfully saved"):uptodate=�
��
�
���loaddata
��
�6��#X:�msg("Problem with loading file. "+�$):�quit
�(X=0:X=�("<BirthBook$Dir>.Birthdays")
��#X,bds%
�/�bds%=-1newformat%=�:�#X,bds% �newformat%=�
��bds%>0�
�
�n=1�bds%
��#X,$(d%+(n-1)*38)
?(d%+26+(n-1)*38)=�#X
?(d%+27+(n-1)*38)=�#X
?(d%+28+(n-1)*38)=�#X
"?(d%+29+(n-1)*38)=�#X
,>�newformat%�#X,$(d%+30+(n-1)*38)�$(d%+30+(n-1)*38)="Bthdy"
6l�newformat% ?(d%+36+(n-1)*38)=�#X:?(d%+37+(n-1)*38)=�#X �?(d%+36+(n-1)*38)=%11001010:?(d%+37+(n-1)*38)=7
@�
J�
T�#X:uptodate=�
^�
h
rBݤwopen(!b2%):ș"Wimp_GetWindowState",,b2%:�b2%!32�1<<16=� �=�
|
�ݤewopen
��wopen(searchw%)��wopen(cW%)��wopen(eW%)��wopen(nW%)�msg("Sorry! Celebration's other windows must be closed first"):=� �=�
�
���openw(h%)
�G!b%=h%:ș"Wimp_GetWindowState",,b%:b%!28=-1:ș"Wimp_OpenWindow",,b%
�_�h%=dW%�attatch(dW%,lW%,cxoffset%,cyoffset%):�openw(lW%):�3:�wos<310�redrawlist:�redrawlist
��
�
���cr(h%)
�	Ȏh%�
�M�dW%:�cw(lW%):�cw(dW%):�cw(blW%):�cw(eW%):�cw(nW%):�cw(cW%):�cw(searchw%)
��nW%:�sl(listset%):�cw(nW%)
�
�cw(h%)
�:�

&��cw(h%)
0'!b2%=h%:ș"Wimp_CloseWindow",,b2%:�
:
D$��menu(h%,xpos,ypos):latestm%=h%
N<�h%=dm% �origin%=dW% �dm%!292=2:dm%!316=&80 �dm%!292=&80
X'ș"Wimp_CreateMenu",,h%,xpos,ypos:�
b
l��stc(h%,i%)
v<ș"Wimp_SetCaretPosition",h%,i%,,,-1,�(�icontext(h%,i%))
��
�
�ݤctc(h%,i%)
�"ș"Wimp_GetCaretPosition",,b2%
��!b2%=h%�b2%!4=i%=�
�=�
�
���upd(!b2%,b2%!4)
�[ș"Wimp_GetIconState",,b2%:ș"Wimp_ForceRedraw",!b2%,b2%!8-5,b2%!12-5,b2%!16+5,b2%!20+5
��
�
�U��setstate(!b2%,b2%!4,b2%!12,b2%!8):ș"Wimp_SetIconState",,b2%:�upd(!b2%,b2%!4):�
�
��select(!b2%,b2%!4)
b2%!8=1<<21:b2%!12=1<<21
ș"Wimp_SetIconState",,b2%
 �upd(!b2%,b2%!4)
*�
4
>��deselect(!b2%,b2%!4)
Hb2%!8=0<<21:b2%!12=1<<21
Rș"Wimp_SetIconState",,b2%
\�upd(!b2%,b2%!4)
f�
p
zݤselected(!b2%,b2%!4)
�ș"Wimp_GetIconState",,b2%
��b2%!24�1<<21=� �=�
�
�7ݤim(!b2%,b2%!4):ș"Wimp_GetIconState",,b2%:=b2%!28
�
�#ݤicontext(h%,i%)=$(�im(h%,i%))
�
�� WIMP MAINTENANCE
�
�
��wimp
���errorhandle
�quit%=�
��
	ș"Wimp_Poll",0,b%�reason%
	Ȏreason%�
	�1:�redrawlist
	$�2:�redraww
	.�3:�cr(!b%)
	8
�6:�click
	B�8:�keypress
	L�9:�menudecode
	V�17,18:�telephone
	`�
	j
�quit%
	t	�quit
	~�
	�
	���telephone
	�Ȏb%!16�
	�o�0:�uptodate �choice("Unsaved event details. Save them before quitting? Cancel will lose them.")�savedata
	�quit%=�
	�
	��&400C0:Ȏb%!20�
	��zW%
	�
�b%!32=0�
	�0$(�im(zW%,2))="Records:":$(�im(zW%,1))=�bds%
	��
	�do%=d%+(wbd%-1)*38
��(?(do%+37)�%10000)=0�msg("Sorry! The first year for this event is unknown or deselected at present. Choose Edit Details and enter the 'first year' variable after deselecting 'Ignore age/years'"):�menu(-1,-1,-1):�

�dts:$(�im(zW%,2))="Days:"
W$(�im(zW%,1))=ädays(?(do%+26),?(do%+27),?(do%+36)+((?(do%+37)�%1111)<<8),dd,mm,yy)
3�$(�im(zW%,1))="-1"$(�im(zW%,1))="Not possible"
(/�:ș"Wimp_CreateSubMenu",,b%!20,b%!24,b%!28
2 �bW%:�dts:do%=d%+(wbd%-1)*38
<�$(�im(bW%,1))=$do%:$(�im(bW%,2))=�?(do%+26)+" "+�m$(?(do%+27)),3)+" "+�(1900+?(do%+29)):$(�im(bW%,3))=�(�days(dd,mm,yy,?(do%+26),?(do%+27),1900+?(do%+29))):ș"Wimp_CreateSubMenu",,b%!20,b%!24,b%!28
FI$(�im(bW%,4))=�warndate(?(do%+26),?(do%+27),1900+?(do%+29),?(do%+28))
Pd�$(�im(bW%,3))="0" �dd<>?(do%+26) �mm<>?(do%+27) �yy<>1900+?(do%+29)$(�im(bW%,3))="Event Missed"
ZK$(�im(bW%,9))=$(do%+30):�$(do%+30)="�����"$(�im(bW%,9))="One off event"
d+$(�im(bW%,11))="--":$(�im(bW%,13))="--"
n�?(do%+37)�%10000�
xJ$(�im(bW%,11))=�years(?(do%+36)+((?(do%+37)�%1111)<<8),?(do%+29)+1900)
�c�$(do%+30)="WedAn" $(�im(bW%,13))=�anniversary(?(do%+36)+((?(do%+37)�%1111)<<8),?(do%+29)+1900)
��
��
��:�
�
�
��redraww
�Ȏ!b% �
�.�dW%:�attatch(dW%,lW%,cxoffset%,cyoffset%)
� ș"Wimp_OpenWindow",,b%
��
��
�
���forceredraw
)!b2%=lW%:ș"Wimp_GetWindowState",,b2%
7ș"Wimp_ForceRedraw",-1,b2%!4,b2%!8,b2%!12,b2%!16:�

"��redrawlist
,R!b2%=lW%:ș"Wimp_GetWindowState",,b2%:first%=�(b2%!24+20)�32:�first%=0first%=1
6$ș"Wimp_RedrawWindow",,b% �more%
@"ox%=b%!4-b%!20:oy%=b%!16-b%!24
Jȕmore%
T�S=first%�first%+16
^�S<=e%�
h�ox%+7,oy%+20-(S*32)
r?�?(l%+2+3*(S-1))ș"Wimp_SetColour",11 �ș"Wimp_SetColour",7
|)no=?(l%+3*(S-1))+(?(l%+1+3*(S-1))<<8)
�!�$(d%+30+(no-1)*38)<>"�����"�
�m��(?(d%+26+((no-1)*38)));�2);"/";�(?(d%+27+((no-1)*38)));�6);$(d%+30+(no-1)*38);�12);"- ";$(d%+(no-1)*38)
���:��(?(d%+26+((no-1)*38)));�2);"/";�(?(d%+27+((no-1)*38)));�6);$(d%+30+(no-1)*38);�12);"  ";:�?(l%+2+3*(S-1))�$(d%+(no-1)*38) �ș"Wimp_SetColour",13:�$(d%+(no-1)*38)
��
��
��
�#ș"Wimp_GetRectangle",,b%�more%
��
��
�
���setextent(no)
�	e%=no
�0!b%=lW%:ș"Wimp_GetWindowInfo",,b%:wb%=b%!28
�cw(lW%)
?!b%=0:b%!4=-(no*32+15):b%!8=642:b%!12=0:�b%!4>-384b%!4=-384
cș"Wimp_SetExtent",lW%,b%:!b%=lW%:ș"Wimp_GetWindowState",,b%:b%!28=wb%:ș"Wimp_OpenWindow",,b%
&�
0
:(��attatch(bhand%,thand%,xoff%,yoff%)
Dw!b2%=thand%:ș"Wimp_GetWindowState",,b2%:b2%!28=b%!28:b2%!12=b2%!12-b2%!4+b%!4+xoff%:b2%!16=b2%!16-b2%!8+b%!8+yoff%
Ncb2%!4=b%!4+xoff%:b2%!8=b%!8+yoff%:ș"Wimp_OpenWindow",,b2%:b%!28=thand%:ș"Wimp_OpenWindow",,b%
X�
b
l� Icon clicks
v
���click:icc=b%!16
�Ȏb%!12�
�
��-2
�Ȏb%!8�
�.�2:im%!100=�sort:�menu(im%,!b%-64,96+44*5)
��1,4:�e%=-1�dts:�sl(mm)
��openw(dW%)
��
�
��wW%
�Ȏb%!16�
��1:quit%=�:�uptodate quit%=� ��choice("Unsaved event details. Save them before quitting? Cancel will lose them.")�savedata

quit%=�

�

$�3,6:�cw(wW%):�sl(0):�openw(dW%)

 �4:�cw(wW%)

*Qb%!4=wW%:ș"Wimp_GetWindowOutline",,b%+4:!b%=wW%:b%!4=1:ș"Wimp_DragBox",,b%

4�

>

H�cW%

RȎb%!16�

\�1:�calcdays

f�4:�cr(cW%)

p�

z

��lW%:�ewopen �

�but=b%!8

�Vyp%=b%!4:!b2%=lW%:ș"Wimp_GetWindowState",,b2%:bc%=�((yp%-20-�(b2%!16-b2%!24))�32)

��bc%=0�bc%>e%�

�%�but=2�menu(mm%,!b%-64,b%!4):� ��

��

��ewopen �

�/wbd%=?(l%+3*(bc%-1))+(?(l%+1+3*(bc%-1))<<8)

�3bm%!156=&7000121+�(?(l%+2+3*(bc%-1))=�)*(1<<22)

��menu(bm%,!b%-64,b%!4)

�

�	�blW%

�Ȏb%!16�
�3:�cw(blW%)
�

$�nW%
.Ȏb%!16�
80�2:�newbirthday:�nbok%�cw(nW%):�sl(listset%)
B�7:�cw(nW%):�sl(listset%):�
L)�1:origin%=nW%:�menu(dm%,!b%-64,b%!4)
V#�4:�newbirthday:�nbok%�clearnew
`��11:�select(nW%,11):�deselect(nW%,13):�setstate(nW%,14,1<<22,1<<22):�deselect(nW%,12):�deselect(nW%,21):�ctc(nW%,14)�stc(-1,-1)
j��12:�select(nW%,12):�deselect(nW%,13):�setstate(nW%,14,1<<22,1<<22):�deselect(nW%,11):�deselect(nW%,21):�ctc(nW%,14)�stc(-1,-1)
tt�13:�select(nW%,13):�deselect(nW%,11):�deselect(nW%,21):�setstate(nW%,14,1<<22,0):�deselect(nW%,12):�stc(nW%,14)
~��21:�select(nW%,21):�deselect(nW%,13):�deselect(nW%,11):�setstate(nW%,14,1<<22,1<<22):�deselect(nW%,12):�ctc(nW%,14)�stc(-1,-1)
�y�17:笤selected(nW%,17):�setstate(nW%,16,1<<22,0):�stc(nW%,16)��setstate(nW%,16,1<<22,1<<22):�ctc(nW%,16)�stc(nW%,6)
��
�
��eW%
�Ȏb%!16�
��4:�cw(eW%)
��2:�seteditdetails
�)�1:origin%=eW%:�menu(dm%,!b%-64,b%!4)
؄�11:�select(eW%,11):�deselect(eW%,13):�setstate(eW%,14,1<<22,1<<22):�deselect(eW%,12):�deselect(eW%,20):�ctc(eW%,14)�stc(-1,-1)
��12:�select(eW%,12):�deselect(eW%,13):�setstate(eW%,14,1<<22,1<<22):�deselect(eW%,11):�deselect(eW%,20):�ctc(eW%,14)�stc(-1,-1)
�t�13:�select(eW%,13):�deselect(eW%,11):�deselect(eW%,20):�setstate(eW%,14,1<<22,0):�deselect(eW%,12):�stc(eW%,14)
���20:�select(eW%,20):�deselect(eW%,13):�deselect(eW%,11):�setstate(eW%,14,1<<22,1<<22):�deselect(eW%,12):�ctc(eW%,14)�stc(-1,-1)
y�17:笤selected(eW%,17):�setstate(eW%,16,1<<22,0):�stc(eW%,16)��setstate(eW%,16,1<<22,1<<22):�ctc(eW%,16)�stc(-1,-1)

�

�dW%
(�b%!8=2�b%!16<>8�b%!16<>9�
2(�ewopen � ��menu(mm%,!b%-64,b%!4):�
<�
FȎb%!16�
P�8,9:�ewopen �
Z&origin%=dW%:�menu(dm%,!b%-64,b%!4)
dq�2:�wopen(searchw%)��wopen(cW%)��wopen(eW%)�msg("Sorry! Celebration's other windows must be closed first"):�
n�bds%>545�openw(blW%):�
x'笤wopen(nW%)�clearnew ��openw(nW%)
��4:�cr(dW%)
�w�7:�uptodate quit%=� ��choice("Unsaved event details. Save them before quitting? Cancel will lose them.")�savedata
�quit%=�
��
�
�
�searchw%
�Ȏb%!16�
�K�3:$(�im(searchw%,3))="":�upd(searchw%,3):�clearsearch:�stc(searchw%,3)
�!�2:spos=1:�stc(-1,-1):�search
��7:�search
��
�
��:�

��keypress

Ȏ!b%�
"�nW%
,Ȏb%!24�
6�&1B:�cw(!b%):�
@�13,&18E,&18A
JȎb%!4�
T�6:�stc(!b%,9)
^Q�9:�selected(nW%,13)�stc(!b%,14)��selected(nW%,17)�stc(!b%,18)��stc(!b%,16)
h3�14:�selected(nW%,17)�stc(!b%,18)��stc(!b%,16)
r�16:�stc(!b%,18)
|�18:�b%!24=13�
� �newbirthday:�nbok%�clearnew
���stc(!b%,6)
��
��
��&18F,&19A
�Ȏb%!4�
��6:�stc(!b%,18)
��9:�stc(!b%,6)
��14:�stc(!b%,9)
�2�16:�selected(!b%,13)�stc(!b%,14)��stc(!b%,9)
�R�18:笤selected(!b%,17)�stc(!b%,16)��selected(!b%,13)�stc(!b%,14)��stc(!b%,9)
��
�ș"Wimp_ProcessKey",b%!24
�

�cW%
&Ȏb%!24�
0�&1B:�cw(!b%):�
:�13:�calcdays
Dș"Wimp_ProcessKey",b%!24
N�
X
b
�searchw%
lȎb%!24�
v"�13:spos=1:�stc(-1,-1):�search
��&1B:�cw(!b%)
�ș"Wimp_ProcessKey",b%!24
��
�
��eW%
�Ȏb%!24�
��&1B:�cw(!b%):�
��13,&18E,&18A
�Ȏb%!4�
��6:�stc(!b%,9)
�Q�9:�selected(eW%,13)�stc(!b%,14)��selected(eW%,17)�stc(!b%,18)��stc(!b%,16)
�3�14:�selected(eW%,17)�stc(!b%,18)��stc(!b%,16)
��16:�stc(!b%,18)
�18:�b%!24=13�
"�seteditdetails:�nbok%�cr(eW%)
�
 �stc(!b%,6)
*�
4�
>�&18F,&19A
HȎb%!4�
R�6:�stc(!b%,18)
\�9:�stc(!b%,6)
f�14:�stc(!b%,9)
p2�16:�selected(!b%,13)�stc(!b%,14)��stc(!b%,9)
zR�18:笤selected(!b%,17)�stc(!b%,16)��selected(!b%,13)�stc(!b%,14)��stc(!b%,9)
��
�ș"Wimp_ProcessKey",b%!24
��
�
��:�
�
���menudecode
�Ȏlatestm%�
�
��im%
�Ȏb%!0�
��1:�e%=-1�dts:�sl(mm)
��openw(dW%)
�2:�savedata
!�3:sort=sort ��:im%!100=�sort
w�4:�uptodate quit%=� ��choice("Unsaved event details. Save them before quitting? Cancel will lose them.")�savedata
$quit%=�
.�
8
B�bm%
Ldo%=d%+(wbd%-1)*38
VȎb%!0�
`i�1:�?(do%+26)=29�?(do%+27)=2�msg("Sorry! This feature is unavailable for events on 29th February."):�
j��(?(do%+37)�%10000)=0�msg("Sorry! The first year for this event is unknown or deselected at present. Choose Edit Details and enter the 'first year' variable after deselecting 'Ignore age/years'"):�
t$�im(cW%,3)=$do%
~$�im(cW%,2)=""
�,$�im(cW%,9)=�?(do%+26)+" "+m$(?(do%+27))
�$�im(cW%,10)="-"
�(yob=?(do%+36)+((?(do%+37)�%1111)<<8)
��dts:an=yy-yob
�0�mm<?(do%+27)�mm=?(do%+27)�dd<?(do%+26)an-=1
�$�im(cW%,5)=�an
�
��openw(cW%):�stc(cW%,2)
��3
�$(�im(eW%,6))=$do%
�$(�im(eW%,9))=�?(do%+26)
�$(�im(eW%,18))=�?(do%+28)
$(�im(eW%,1))=m$(?(do%+27))

1�select(eW%,17):�setstate(eW%,16,1<<22,1<<22)
@�?(do%+37)�%10000�deselect(eW%,17):�setstate(eW%,16,1<<22,0)
i�deselect(eW%,11):�deselect(eW%,13):�deselect(eW%,20):�deselect(eW%,12):�setstate(eW%,14,1<<22,1<<22)
($(�im(eW%,14))=""
2Ȏ$(do%+30)�
<�"Bthdy":�select(eW%,11)
F�"WedAn":�select(eW%,12)
P�"�����":�select(eW%,20)
Z
dD$�im(eW%,14)=$(do%+30):�select(eW%,13):�setstate(eW%,14,1<<22,0)
n�
x4$�im(eW%,16)=�(?(do%+36)+((?(do%+37)�%1111)<<8))
��openw(eW%)
��stc(eW%,6):�
��4:�delete(wbd%):�
�)�5:�$(do%+30)="�����"��delete(wbd%):�
�
�:�dts
�?(do%+29)+=1
�9��days(dd,mm,yy,?(do%+26),?(do%+27),?(do%+29)+1900)>0
��?(do%+27)=2�?(do%+26)=29 �
� ȕ��leapyear(?(do%+29)+1900)
�?(do%+29)+=1
��
��
�bm%!156=&7000121+(1<<22)
�listset%�
$?(l%+2+(bc%-1)*3)=�:�forceredraw
�
"4�l=bc%�e%:�o=0�3:?(l%+o+(l-1)*3)=?(l%+o+l*3):�:�
,�setextent(e%-1)
6�
@uptodate=�
J�
T
^�dm%
hȎorigin%�
r�eW%
|($(�im(eW%,1))=m$(b%!0+1):�upd(eW%,1)
��dW%
� �b%!0+1=13�sl(0)��sl(b%!0+1)
��nW%
�($(�im(nW%,1))=m$(b%!0+1):�upd(nW%,1)
��
�
��mm%
�Ȏb%!0�
��1:�clearsearch
�
�2:�sl(0)
��3:�bds%>545�openw(blW%):�
�
�clearnew
��4:�savedata
�

�
&:ș"Wimp_GetPointerInfo",,b%:�b%!8=1�menu(latestm%,0,0)
0�
:
D*��sl(update):�update=-1update=listset%
N�dts:listset%=update
X?�update>0 $(�im(dW%,8))=m$(update)�$(�im(dW%,8))="Warnings"
b�upd(dW%,8)
le%=0
v�bds%>0�
�ș"Hourglass_On"
��sl=1�bds%
�(ș"Hourglass_Percentage",sl*100/bds%
�sbd%=(d%+38*(sl-1))
�!�?(sbd%+27)=update �update=0�
�	e%+=1
�?(l%+(e%-1)*3)=sl �255
�&?(l%+1+(e%-1)*3)=(sl �(255<<8))>>8
�U?(l%+2+(e%-1)*3)=�warn(dd,mm,yy,?(sbd%+26),?(sbd%+27),?(sbd%+29)+1900,?(sbd%+28))
�&�update=0�?(l%+2+(e%-1)*3)=� e%-=1
��
��
��sort �sort
�
$�setextent(e%):ș"Hourglass_Off"
�
 
*
��sort
4
�e%<2�
>y�a=1�e%-1:�b=a+1�e%:ao%=d%+38*(?(l%+3*(a-1))+(?(l%+1+3*(a-1))<<8)-1):bo%=d%+38*(?(l%+3*(b-1))+(?(l%+1+3*(b-1))<<8)-1)
H��?(ao%+26)>?(bo%+26)�?(ao%+27)=?(bo%+27)�?(ao%+27)>?(bo%+27)Ȕ?(l%+3*(a-1)),?(l%+3*(b-1)):Ȕ?(l%+1+3*(a-1)),?(l%+1+3*(b-1)):Ȕ?(l%+2+3*(a-1)),?(l%+2+3*(b-1))
R�
\�
f�
p
z	��dts
�dd=���$,5,2)
�mm=�monthno(��$,8,3))
�yy=���$,12,4)
��
�
�"ݤmonthno(m$):�m$="Warnings"=0
�%�S=1�12:�m$(S)=m$��m$(S),3)=m$D=S
��:=D
�
�ݤdatevalid(dd,mm)
��dd=0�=0
�
Ȏmm �
��1,3,5,7,8,10:�dd>31�=0
�2:�dd>29�=0
�dd>30�=0
�
$=�
.
8#ݤdays(cd%,cm%,cy%,ed%,em%,ey%)
B~�cy%<1753�ey%<1753�msg("Because the Gregorian calendar was only introduced in 1752, I can't work out number of days!"):=-1
L$�ed%=29�em%=2���leapyear(ey%)=-1
V�ey%<cy%=0
`
�ey%=cy%�
j�em%<cm%=0
t�em%=cm%�ed%<=cd%=0
~�
�K=��"120112234455",cm%,1)
�D=cd%+30*cm%+K+365*cy%
��L%=1756�cy%+(cm%<3)�4
�D=D-(L%�100>0)-(L%�400=0)
��L%
�DF=D
�K=��"120112234455",em%,1)
�D=ed%+30*em%+K+365*ey%
��L%=1756�ey%+(em%<3)�4
�D=D-(L%�100>0)-(L%�400=0)
��L%
�=�(DF-D)


&ݤwarn(cd%,cm%,cy%,ed%,em%,ey%,w%)
~�cy%<1753�ey%<1753�msg("Because the Gregorian calendar was only introduced in 1752, I can't work out number of days!"):=-1
�w%�
(�d=1�w%
2
ed%-=1
<�ed%=0�
F
Ȏem%�
P�2,4,6,8,9,11:em%-=1:ed%=31
Z�1:em%=12:ed%=31:ey%-=1
d)�3:em%=2:�leapyear(ey%)ed%=29�ed%=28
nem%-=1:ed%=30
x�
��
��
��
��cy%>ey%�=�
��cy%=ey%�cm%>em%=�
��cy%=ey%�cm%=em%�cd%>=ed%=�
�=�
�
�ݤwarndate(ed%,em%,ey%,w%)
��w%�
��d=1�w%
�
ed%-=1
��ed%=0�

Ȏem%�
�2,4,6,8,9,11:em%-=1:ed%=31
�1:em%=12:ed%=31:ey%-=1
")�3:em%=2:�leapyear(ey%)ed%=29�ed%=28
,em%-=1:ed%=30
6�
@�
J�
T�
^"=�ed%+" "+�m$(em%),3)+" "+�ey%
h
rݤleapyear(year%)
|S�(year%/4=�(year%/4))��(year%/100=�(year%/100))�(year%/400=�(year%/400))�=� �=�
�
���check(env$):�dts
��env$="b"�bds%=0�quit
��bds%=0�
�ș"Hourglass_On"
�sl=1
�*�:ș"Hourglass_Percentage",100*sl/bds%
�sbd%=(d%+38*(sl-1)):sl+=1
�Fw=�warn(dd,mm,yy,?(sbd%+26),?(sbd%+27),?(sbd%+29)+1900,?(sbd%+28))
��w �sl>bds%
�ș"Hourglass_Off"
�	�w �
��env$="b"�quit ��
�
Ȏenv$�
P�"b":�setstate(wW%,3,1<<23,1<<23):�setstate(wW%,4,1<<23,1<<23):�openw(wW%):�
&1�"r":�setstate(wW%,6,1<<23,1<<23):�openw(wW%)
0�
:�
D
N��clearnew
X�$(�im(nW%,6))="":$(�im(nW%,9))="":$(�im(nW%,16))="":$(�im(nW%,18))="7":$(�im(nW%,14))="":�select(nW%,11):�deselect(nW%,21):�deselect(nW%,13):�setstate(nW%,14,1<<22,1<<22):�deselect(nW%,12):�setstate(nW%,16,1<<22,1<<22):�select(nW%,17)
b$�cr(nW%):�openw(nW%):�stc(nW%,6)
l�
v
���newbirthday
�nbok%=�
�m=�monthno($�im(nW%,1))
�d=�$(�im(nW%,9))
�w$=$(�im(nW%,18)):w=�w$
�n$=�icontext(nW%,6)
�fy=�($�im(nW%,16))
�"�fy<1753 ��selected(nW%,17)=0�
Ѕ�msg("Warning! This date is inaccurate because the Gregorian calendar was not introduced until 1753 - You may wish to change it")
�a�笤leapyear(fy)�d=29�m=2��selected(nW%,17)=0�msg("This year was not a leap year!"):nbok%=�:�
��
�D�n$<1�w$=""���datevalid(d,m)�msg("Inacceptable data"):nbok%=�:�
�Q笤selected(nW%,17)�fy>yy �$�im(nW%,16)=""�msg("Inacceptable data"):nbok%=�:�
bds%+=1
do%=d%+(bds%-1)*38
/$do%=n$:?(do%+26)=d:?(do%+27)=m:?(do%+28)=w
 '�selected(nW%,11)$(do%+30)="Bthdy"
*'�selected(nW%,12)$(do%+30)="WedAn"
4'�selected(nW%,21)$(do%+30)="�����"
>,�selected(nW%,13)$(do%+30)=$�im(nW%,14)
H?(do%+36)=fy �%11111111
R�selected(nW%,17)�
\$?(do%+37)=(fy �%111100000000)>>8
f�
p-?(do%+37)=%10000+((fy �%111100000000)>>8)
z�
��dts
�?�m<mm �(d<=dd �mm=m) ?(do%+29)=yy-1900+1 �?(do%+29)=yy-1900
��m=2�d=29�
� ȕ��leapyear(?(do%+29)+1900)
�?(do%+29)+=1
��
��
�>�bds%>545�openw(blW%):�cw(nW%):�sl(-1):nbok%=� �uptodate=�
��
�
���seteditdetails
�nbok%=�
�m=�monthno($�im(eW%,1))
d=�$(�im(eW%,9))
w$=$(�im(eW%,18)):w=�w$
n$=�icontext(eW%,6)
$fy=�($�im(eW%,16))
."�fy<1753 ��selected(eW%,17)=0�
8��msg("Warning! This date is inaccurate because the Gregorian calendar was not introduced until 1753 - You may wish to change it")
Ba�笤leapyear(fy)�d=29�m=2��selected(eW%,17)=0�msg("This year was not a leap year!"):nbok%=�:�
L�
VD�n$<1�w$=""���datevalid(d,m)�msg("Inacceptable data"):nbok%=�:�
`笤selected(eW%,17)�
j^�fy>yy �fy=yy �m>mm �fy=yy �m=mm �d>dd �$�im(eW%,16)=""�msg("Inacceptable data"):nbok%=�:�
t�
~do%=d%+(wbd%-1)*38
�/$do%=n$:?(do%+26)=d:?(do%+27)=m:?(do%+28)=w
�'�selected(eW%,11)$(do%+30)="Bthdy"
�'�selected(eW%,12)$(do%+30)="WedAn"
�'�selected(eW%,20)$(do%+30)="�����"
�,�selected(eW%,13)$(do%+30)=$�im(eW%,14)
�?(do%+36)=fy �%11111111
��selected(eW%,17)�
�$?(do%+37)=(fy �%111100000000)>>8
��
�-?(do%+37)=%10000+((fy �%111100000000)>>8)
��
��dts
?�m<mm �(d<=dd �mm=m) ?(do%+29)=yy-1900+1 �?(do%+29)=yy-1900

�m=2�d=29�
 ȕ��leapyear(?(do%+29)+1900)
?(do%+29)+=1
(�
2�
<�sl(-1):�cw(eW%)
Fuptodate=�
P�
Z
d��delete(no%):uptodate=�
n�bds%=1bds%=0:�sl(-1):�
xbds%-=1
�(od%=(d%+bds%*38):nd%=(d%+(no%-1)*38)
��l=0�37:?(nd%+l)=?(od%+l):�
�p�c=1�e%:�?(l%+(c-1)*3)+((?(l%+1+(c-1)*3))<<8)=bds%+1 ?(l%+(c-1)*3)=no%�255:?(l%+1+(c-1)*3)=(no%�(255<<8))>>8
��
�6�l=bc%�e%-1:�o=0�3:?(l%+o+(l-1)*3)=?(l%+o+l*3):�:�
��setextent(e%-1)
��
�
�ݤupper(s$)
�	e$=""
��c=1��s$
�v=�(�s$,c,1))
��v>=97�v<=122v-=32
�v>=65�v<=90e$+=�v
�
=e$
"
,��clearsearch
6&笤wopen(searchw%)�openw(searchw%)
@%�setstate(searchw%,7,1<<23,1<<23)
J�spos=1:$(�im(searchw%,3))="":�upd(searchw%,3):$(�im(searchw%,9))="-":$(�im(searchw%,10))="-":�upd(searchw%,9):�upd(searchw%,10)
TW$(�im(searchw%,12))="-":�upd(searchw%,12):$(�im(searchw%,13))="-":�upd(searchw%,13)
^W$(�im(searchw%,14))="-":�upd(searchw%,14):$(�im(searchw%,15))="-":�upd(searchw%,15)
h�stc(searchw%,3)
r�
|
�(��search:s$=�upper($�im(searchw%,3))
�*�bds%=0�msg("No Records to search!"):�
�=�spos>bds%�msg("No record matches"):spos=1:�clearsearch:�
�ș"Hourglass_On"
�
found=0:�
�0d$=�upper($(d%+(spos-1)*38)):�d$,s$)found=�
�spos+=1:�spos>bds%�found
�ș"Hourglass_Off"
�D�spos>bds%�found=� �msg("No record matches"):spos=1:�clearsearch
��found �
�found=�:do%=d%+(spos-2)*38:�sl(?(do%+27)):�setstate(searchw%,7,1<<23,0):$(�im(searchw%,9))=$do%:$(�im(searchw%,10))=�?(do%+26)+" "+�m$(?(do%+27)),3)+" "+�(1900+?(do%+29))
�P�dts:$(�im(searchw%,12))=ädays(dd,mm,yy,?(do%+26),?(do%+27),?(do%+29)+1900)
�M$(�im(searchw%,13))=$(do%+30):�$(do%+30)="�����"$(�im(searchw%,13))="N/A"
 5$(�im(searchw%,14))="--":$(�im(searchw%,15))="--"
 �?(do%+37)�%10000�
 O$(�im(searchw%,14))=�years(?(do%+36)+((?(do%+37)�%1111)<<8),?(do%+29)+1900)
 &g�$(do%+30)="WedAn"$(�im(searchw%,15))=�anniversary(?(do%+36)+((?(do%+37)�%1111)<<8),?(do%+29)+1900)
 0�
 :n�upd(searchw%,9):�upd(searchw%,10):�upd(searchw%,12):�upd(searchw%,13):�upd(searchw%,14):�upd(searchw%,15)
 D�
 N�
 X
 b��calcdays
 ldo%=d%+(wbd%-1)*38
 v�dts
 �age=�$�im(cW%,2)
 �Qdays=�days(dd,mm,yy,?(do%+26),?(do%+27),?(do%+36)+((?(do%+37)�%1111)<<8)+age)
 �:�days=0$�im(cW%,10)="Back in time" �$�im(cW%,10)=�days
 �'�days=-1$�im(cW%,10)="Not possible"
 �\�dd=?(do%+26)�mm=?(do%+27)�yy=?(do%+36)+((?(do%+37)�%1111)<<8)+age $�im(cW%,10)="TODAY!"
 �Z$�im(cW%,9)=�(?(do%+26))+" "+m$(?(do%+27))+" "+�(?(do%+36)+((?(do%+37)�%1111)<<8)+age)
 ��upd(cW%,9):�upd(cW%,10)
 ��
 �
 �ݤyears(y1,y2)
 ��y2-y1<1 ="???"
 �
=�(y2-y1)
 �
!ݤanniversary(y1,y2)
!�years(y1,y2)="???"="???"
!Ȏ��years(y1,y2)�
! �1:="Paper"
!*�2:="Cotton"
!4�3:="Leather"
!>�4:="Fruit/Flowers"
!H�5:="Wood"
!R�6:="Iron/Sugar"
!\�7:="Wool/Copper"
!f�8:="Bronze"
!p�9:="Pottery"
!z�10:="Tin/Aluminium"
!��11:="Steel"
!��12:="Silk/Fine linen"
!��13:="Lace"
!��14:="Ivory"
!��15:="Crystal"
!��20:="China"
!��25:="Silver"
!��30:="Pearl"
!��35:="Coral"
!��40:="Ruby"
!��45:="Sapphire"
!��50:="Golden"
!��55:="Emerald"
"�60,75:="Diamond"
"="No material"
"�
�

00000000  0d 00 0a 1c f4 20 52 75  6e 69 6d 61 67 65 20 66  |..... Runimage f|
00000010  6f 72 20 43 65 6c 65 62  72 61 74 65 0d 00 14 05  |or Celebrate....|
00000020  f4 0d 00 1e 16 f4 20 42  69 72 74 68 64 61 79 20  |...... Birthday |
00000030  42 6f 6f 6b 20 49 49 0d  00 28 19 f4 20 46 6f 72  |Book II..(.. For|
00000040  20 41 63 6f 72 6e 20 43  6f 6d 70 75 74 65 72 73  | Acorn Computers|
00000050  0d 00 32 19 f4 20 53 69  6d 6f 6e 20 57 65 61 76  |..2.. Simon Weav|
00000060  65 72 20 2d 20 31 39 39  34 0d 00 3c 05 f4 0d 00  |er - 1994..<....|
00000070  46 1b f4 20 a9 20 41 63  6f 72 6e 20 43 6f 6d 70  |F.. . Acorn Comp|
00000080  75 74 69 6e 67 20 90 39  33 0d 00 50 04 0d 00 5a  |uting .93..P...Z|
00000090  0d ee 85 f1 9e 2c f6 24  3a e0 0d 00 64 0c f2 76  |.....,.$:...d..v|
000000a0  61 72 69 6e 69 74 0d 00  6e 0d f2 6c 6f 61 64 64  |arinit..n..loadd|
000000b0  61 74 61 0d 00 78 10 f2  6c 6f 61 64 73 70 72 69  |ata..x..loadspri|
000000c0  74 65 73 0d 00 82 12 f2  6c 6f 61 64 74 65 6d 70  |tes.....loadtemp|
000000d0  6c 61 74 65 73 0d 00 8c  08 f2 64 74 73 0d 00 96  |lates.....dts...|
000000e0  04 0d 00 a0 33 24 28 a4  69 6d 28 69 6e 66 6f 77  |....3$(.im(infow|
000000f0  25 2c 35 29 29 3d 22 a9  20 41 63 6f 72 6e 20 43  |%,5))=". Acorn C|
00000100  6f 6d 70 75 74 69 6e 67  20 2d 20 4d 61 79 20 31  |omputing - May 1|
00000110  39 39 34 22 0d 00 aa 27  24 28 a4 69 6d 28 69 6e  |994"...'$(.im(in|
00000120  66 6f 77 25 2c 34 29 29  3d 22 32 2e 30 32 20 28  |fow%,4))="2.02 (|
00000130  32 35 2d 41 70 72 2d 39  34 29 22 0d 00 b4 04 0d  |25-Apr-94)".....|
00000140  00 be 0b f2 63 61 6c 6f  66 66 0d 00 c8 10 f2 63  |....caloff.....c|
00000150  68 65 63 6b 28 65 6e 76  24 29 0d 00 d2 0d f2 6d  |heck(env$).....m|
00000160  65 6e 75 64 65 66 73 0d  00 dc 0e f2 6d 69 6e 64  |enudefs.....mind|
00000170  69 72 65 63 74 0d 00 e6  0c f2 69 63 6f 6e 62 61  |irect.....iconba|
00000180  72 0d 00 f0 09 f2 77 69  6d 70 0d 00 fa 04 0d 01  |r.....wimp......|
00000190  04 0d dd f2 76 61 72 69  6e 69 74 0d 01 0e 42 c8  |....varinit...B.|
000001a0  99 22 4f 53 5f 47 65 74  45 6e 76 22 b8 66 6e 24  |."OS_GetEnv".fn$|
000001b0  3a 70 61 74 68 24 3d 22  52 75 6e 20 22 2b c1 66  |:path$="Run "+.f|
000001c0  6e 24 2c 31 34 2c a9 28  66 6e 24 29 2d 32 38 29  |n$,14,.(fn$)-28)|
000001d0  3a 65 6e 76 24 3d c2 66  6e 24 2c 31 29 0d 01 18  |:env$=.fn$,1)...|
000001e0  83 69 6e 64 73 69 7a 65  3d 32 36 39 30 3a de 6d  |.indsize=2690:.m|
000001f0  24 28 31 32 29 2c 62 25  20 31 32 30 30 2c 62 32  |$(12),b% 1200,b2|
00000200  25 20 31 32 30 30 2c 6d  69 6e 64 69 72 65 63 74  |% 1200,mindirect|
00000210  25 20 34 33 2c 69 6e 64  69 72 65 63 74 25 20 69  |% 43,indirect% i|
00000220  6e 64 73 69 7a 65 2c 6e  61 6d 65 25 20 31 31 2c  |ndsize,name% 11,|
00000230  69 6d 25 20 31 35 30 2c  64 6d 25 20 33 34 31 2c  |im% 150,dm% 341,|
00000240  6d 6d 25 20 31 35 30 2c  62 6d 25 20 31 37 32 2c  |mm% 150,bm% 172,|
00000250  64 25 20 32 30 37 38 36  2c 6c 25 20 31 36 34 30  |d% 20786,l% 1640|
00000260  0d 01 22 16 f7 3a e3 6d  3d 31 b8 31 32 3a f3 6d  |.."..:.m=1.12:.m|
00000270  24 28 6d 29 3a ed 0d 01  2c 16 61 70 70 24 3d 22  |$(m):...,.app$="|
00000280  43 65 6c 65 62 72 61 74  69 6f 6e 22 0d 01 36 34  |Celebration"..64|
00000290  c8 99 22 57 69 6d 70 5f  49 6e 69 74 69 61 6c 69  |.."Wimp_Initiali|
000002a0  73 65 22 2c 32 30 30 2c  26 34 42 35 33 34 31 35  |se",200,&4B53415|
000002b0  34 2c 61 70 70 24 b8 77  6f 73 2c 54 41 53 4b 25  |4,app$.wos,TASK%|
000002c0  0d 01 40 2e 74 6d 70 6c  66 24 3d 22 32 44 74 65  |..@.tmplf$="2Dte|
000002d0  6d 70 73 22 3a e7 77 6f  73 3e 3d 33 31 30 74 6d  |mps":.wos>=310tm|
000002e0  70 6c 66 24 3d 22 33 44  74 65 6d 70 73 22 0d 01  |plf$="3Dtemps"..|
000002f0  4a 0f 65 25 3d b9 3a 73  6f 72 74 3d b9 0d 01 54  |J.e%=.:sort=...T|
00000300  05 e1 0d 01 5e 04 0d 01  68 11 dd f2 6c 6f 61 64  |....^...h...load|
00000310  73 70 72 69 74 65 73 0d  01 72 3e 66 69 6c 65 25  |sprites..r>file%|
00000320  3d 8e 28 22 3c 42 69 72  74 68 42 6f 6f 6b 24 44  |=.("<BirthBook$D|
00000330  69 72 3e 2e 53 70 72 69  74 65 73 22 29 3a 73 69  |ir>.Sprites"):si|
00000340  7a 65 25 3d a2 23 66 69  6c 65 25 2b 34 3a d9 23  |ze%=.#file%+4:.#|
00000350  66 69 6c 65 25 0d 01 7c  0e de 73 70 25 20 73 69  |file%..|..sp% si|
00000360  7a 65 25 0d 01 86 4a 21  73 70 25 3d 73 69 7a 65  |ze%...J!sp%=size|
00000370  25 3a 73 70 25 21 38 3d  31 36 3a c8 99 22 4f 53  |%:sp%!8=16:.."OS|
00000380  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 30 41 2c  |_SpriteOp",&10A,|
00000390  73 70 25 2c 22 3c 42 69  72 74 68 42 6f 6f 6b 24  |sp%,"<BirthBook$|
000003a0  44 69 72 3e 2e 53 70 72  69 74 65 73 22 0d 01 90  |Dir>.Sprites"...|
000003b0  05 e1 0d 01 9a 04 0d 01  a4 2f dd f2 71 75 69 74  |........./..quit|
000003c0  3a c8 99 22 57 69 6d 70  5f 43 6c 6f 73 65 44 6f  |:.."Wimp_CloseDo|
000003d0  77 6e 22 2c 54 41 53 4b  25 2c 26 34 42 35 33 34  |wn",TASK%,&4B534|
000003e0  31 35 34 3a e0 0d 01 ae  04 0d 01 b8 29 dd f2 65  |154:........)..e|
000003f0  72 72 6f 72 28 65 72 72  24 29 3a e7 ac a4 63 68  |rror(err$):...ch|
00000400  6f 69 63 65 28 65 72 72  24 29 f2 71 75 69 74 20  |oice(err$).quit |
00000410  8b e1 0d 01 c2 04 0d 01  cc 0f dd f2 73 61 76 65  |............save|
00000420  65 72 72 6f 72 0d 01 d6  14 ee 85 58 3d 30 3a f2  |error......X=0:.|
00000430  73 61 76 65 65 72 72 6f  72 0d 01 e0 0c e7 58 3c  |saveerror.....X<|
00000440  3e 30 d9 23 58 0d 01 ea  75 f2 6d 73 67 28 22 55  |>0.#X...u.msg("U|
00000450  6e 61 62 6c 65 20 74 6f  20 73 61 76 65 20 43 65  |nable to save Ce|
00000460  6c 65 62 72 61 74 69 6f  6e 27 73 20 65 76 65 6e  |lebration's even|
00000470  74 73 2e 20 49 73 20 74  68 65 20 64 69 73 63 20  |ts. Is the disc |
00000480  69 6e 20 74 68 65 20 64  72 69 76 65 3f 20 49 73  |in the drive? Is|
00000490  20 69 73 20 70 72 6f 74  65 63 74 65 64 3f 20 49  | is protected? I|
000004a0  73 20 74 68 65 20 66 69  6c 65 20 6c 6f 63 6b 65  |s the file locke|
000004b0  64 3f 22 29 3a f2 77 69  6d 70 0d 01 f4 04 0d 01  |d?"):.wimp......|
000004c0  fe 11 dd f2 65 72 72 6f  72 68 61 6e 64 6c 65 0d  |....errorhandle.|
000004d0  02 08 09 c8 8e 9f 20 ca  0d 02 12 5c 7f e7 a4 63  |...... ....\...c|
000004e0  68 6f 69 63 65 28 22 49  6e 74 65 72 6e 61 6c 20  |hoice("Internal |
000004f0  65 72 72 6f 72 20 3a 20  22 2b c3 9f 2b 22 20 27  |error : "+..+" '|
00000500  22 2b f6 24 2b 22 27 20  61 74 20 6c 69 6e 65 20  |"+.$+"' at line |
00000510  22 2b c3 9e 2b 22 20 43  6f 6e 74 69 6e 75 65 20  |"+..+" Continue |
00000520  65 78 65 63 75 74 69 6f  6e 3f 22 29 3d a3 20 f2  |execution?")=. .|
00000530  71 75 69 74 0d 02 1c 05  cb 0d 02 26 05 e1 0d 02  |quit.......&....|
00000540  30 04 0d 02 3a 2a dd a4  63 68 6f 69 63 65 28 65  |0...:*..choice(e|
00000550  72 72 24 29 3a 21 62 25  3d 32 35 35 3a 24 28 62  |rr$):!b%=255:$(b|
00000560  25 2b 34 29 3d 65 72 72  24 2b bd 30 0d 02 44 36  |%+4)=err$+.0..D6|
00000570  c8 99 22 57 69 6d 70 5f  52 65 70 6f 72 74 45 72  |.."Wimp_ReportEr|
00000580  72 6f 72 22 2c 62 25 2c  31 39 2c 22 51 75 65 72  |ror",b%,19,"Quer|
00000590  79 20 66 72 6f 6d 20 22  2b 61 70 70 24 20 b8 2c  |y from "+app$ .,|
000005a0  72 25 0d 02 4e 0b e7 72  25 3d 31 3d b9 0d 02 58  |r%..N..r%=1=...X|
000005b0  06 3d a3 0d 02 62 04 0d  02 6c 29 dd f2 6d 73 67  |.=...b...l)..msg|
000005c0  28 65 72 72 24 29 3a 21  62 32 25 3d 32 35 35 3a  |(err$):!b2%=255:|
000005d0  24 28 62 32 25 2b 34 29  3d 65 72 72 24 2b bd 30  |$(b2%+4)=err$+.0|
000005e0  0d 02 76 34 c8 99 22 57  69 6d 70 5f 52 65 70 6f  |..v4.."Wimp_Repo|
000005f0  72 74 45 72 72 6f 72 22  2c 62 32 25 2c 31 37 2c  |rtError",b2%,17,|
00000600  22 4d 65 73 73 61 67 65  20 66 72 6f 6d 20 22 2b  |"Message from "+|
00000610  61 70 70 24 0d 02 80 05  e1 0d 02 8a 04 0d 02 94  |app$............|
00000620  7a dd f2 69 63 6f 6e 62  61 72 3a 21 62 25 3d 2d  |z..iconbar:!b%=-|
00000630  31 3a 62 25 21 34 3d 30  3a 62 25 21 38 3d 30 3a  |1:b%!4=0:b%!8=0:|
00000640  62 25 21 31 32 3d 36 30  3a 62 25 21 31 36 3d 36  |b%!12=60:b%!16=6|
00000650  38 3a 62 25 21 32 30 3d  25 31 31 30 30 30 30 30  |8:b%!20=%1100000|
00000660  30 30 31 31 30 31 30 3a  24 28 62 25 2b 32 34 29  |0011010:$(b%+24)|
00000670  3d 22 21 43 65 6c 65 62  72 61 74 65 22 3a c8 99  |="!Celebrate":..|
00000680  22 57 69 6d 70 5f 43 72  65 61 74 65 49 63 6f 6e  |"Wimp_CreateIcon|
00000690  22 2c 2c 62 25 3a e1 0d  02 9e 04 0d 02 a8 0c dd  |",,b%:..........|
000006a0  f2 63 61 6c 6f 66 66 0d  02 b2 77 21 62 25 3d 64  |.caloff...w!b%=d|
000006b0  57 25 3a 21 62 32 25 3d  6c 57 25 3a c8 99 22 57  |W%:!b2%=lW%:.."W|
000006c0  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 53 74 61  |imp_GetWindowSta|
000006d0  74 65 22 2c 2c 62 25 3a  c8 99 22 57 69 6d 70 5f  |te",,b%:.."Wimp_|
000006e0  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
000006f0  2c 62 32 25 3a 63 78 6f  66 66 73 65 74 25 3d 62  |,b2%:cxoffset%=b|
00000700  32 25 21 34 2d 62 25 21  34 3a 63 79 6f 66 66 73  |2%!4-b%!4:cyoffs|
00000710  65 74 25 3d 62 32 25 21  38 2d 62 25 21 38 0d 02  |et%=b2%!8-b%!8..|
00000720  bc 05 e1 0d 02 c6 04 0d  02 d0 0e dd f2 6d 65 6e  |.............men|
00000730  75 64 65 66 73 0d 02 da  c1 24 69 6d 25 3d 22 43  |udefs....$im%="C|
00000740  65 6c 65 62 72 61 74 69  6f 6e 22 3a 69 6d 25 21  |elebration":im%!|
00000750  31 32 3d 26 30 30 30 37  30 32 30 37 3a 69 6d 25  |12=&00070207:im%|
00000760  21 31 36 3d 32 31 30 3a  69 6d 25 21 32 30 3d 34  |!16=210:im%!20=4|
00000770  34 3a 69 6d 25 21 32 34  3d 30 3a 69 6d 25 21 32  |4:im%!24=0:im%!2|
00000780  38 3d 30 3a 69 6d 25 21  33 32 3d 69 6e 66 6f 77  |8=0:im%!32=infow|
00000790  25 3a 69 6d 25 21 33 36  3d 26 37 30 30 30 30 32  |%:im%!36=&700002|
000007a0  31 3a 24 28 69 6d 25 2b  34 30 29 3d 22 49 6e 66  |1:$(im%+40)="Inf|
000007b0  6f 22 3a 69 6d 25 21 35  32 3d 26 30 3a 69 6d 25  |o":im%!52=&0:im%|
000007c0  21 35 36 3d 2d 31 3a 69  6d 25 21 36 30 3d 26 37  |!56=-1:im%!60=&7|
000007d0  30 30 30 30 32 31 3a 24  28 69 6d 25 2b 36 34 29  |000021:$(im%+64)|
000007e0  3d 22 53 68 6f 77 20 42  6f 6f 6b 22 3a 69 6d 25  |="Show Book":im%|
000007f0  21 37 36 3d 26 30 0d 02  e4 b1 69 6d 25 21 38 30  |!76=&0....im%!80|
00000800  3d 2d 31 3a 69 6d 25 21  38 34 3d 26 37 30 30 30  |=-1:im%!84=&7000|
00000810  30 32 31 3a 24 28 69 6d  25 2b 38 38 29 3d 22 53  |021:$(im%+88)="S|
00000820  61 76 65 20 44 61 74 61  2e 2e 2e 22 3a 69 6d 25  |ave Data...":im%|
00000830  21 31 30 30 3d 26 30 3a  69 6d 25 21 31 30 34 3d  |!100=&0:im%!104=|
00000840  2d 31 3a 69 6d 25 21 31  30 38 3d 26 37 30 30 30  |-1:im%!108=&7000|
00000850  30 32 31 3a 24 28 69 6d  25 2b 31 31 32 29 3d 22  |021:$(im%+112)="|
00000860  53 6f 72 74 20 52 65 63  6f 72 64 73 22 3a 69 6d  |Sort Records":im|
00000870  25 21 31 32 34 3d 26 38  30 3a 69 6d 25 21 31 32  |%!124=&80:im%!12|
00000880  38 3d 2d 31 3a 69 6d 25  21 31 33 32 3d 26 37 30  |8=-1:im%!132=&70|
00000890  30 30 30 32 31 3a 24 28  69 6d 25 2b 31 33 36 29  |00021:$(im%+136)|
000008a0  3d 22 51 75 69 74 22 0d  02 ee 46 24 62 6d 25 3d  |="Quit"...F$bm%=|
000008b0  22 57 68 61 74 20 6e 65  78 74 2e 2e 2e 22 3a 62  |"What next...":b|
000008c0  6d 25 21 31 32 3d 26 30  30 30 37 30 32 30 37 3a  |m%!12=&00070207:|
000008d0  62 6d 25 21 31 36 3d 32  37 30 3a 62 6d 25 21 32  |bm%!16=270:bm%!2|
000008e0  30 3d 34 34 3a 62 6d 25  21 32 34 3d 30 0d 02 f8  |0=44:bm%!24=0...|
000008f0  3b 62 6d 25 21 32 38 3d  38 3a 62 6d 25 21 33 32  |;bm%!28=8:bm%!32|
00000900  3d 62 57 25 3a 62 6d 25  21 33 36 3d 26 37 30 30  |=bW%:bm%!36=&700|
00000910  30 30 32 31 3a 24 28 62  6d 25 2b 34 30 29 3d 22  |0021:$(bm%+40)="|
00000920  44 65 74 61 69 6c 73 22  0d 03 02 50 62 6d 25 21  |Details"...Pbm%!|
00000930  35 32 3d 26 30 3a 62 6d  25 21 35 36 3d 2d 31 3a  |52=&0:bm%!56=-1:|
00000940  62 6d 25 21 36 30 3d 26  37 30 30 30 31 32 31 3a  |bm%!60=&7000121:|
00000950  62 6d 25 21 36 34 3d 6d  69 6e 64 69 72 65 63 74  |bm%!64=mindirect|
00000960  25 2b 31 35 3a 62 6d 25  21 36 38 3d 2d 31 3a 62  |%+15:bm%!68=-1:b|
00000970  6d 25 21 37 32 3d 31 36  0d 03 0c 3c 62 6d 25 21  |m%!72=16...<bm%!|
00000980  37 36 3d 38 3a 62 6d 25  21 38 30 3d 7a 57 25 3a  |76=8:bm%!80=zW%:|
00000990  62 6d 25 21 38 34 3d 26  37 30 30 30 30 32 31 3a  |bm%!84=&7000021:|
000009a0  24 28 62 6d 25 2b 38 38  29 3d 22 44 61 79 73 20  |$(bm%+88)="Days |
000009b0  6f 6c 64 22 0d 03 16 44  62 6d 25 21 31 30 30 3d  |old"...Dbm%!100=|
000009c0  26 30 3a 62 6d 25 21 31  30 34 3d 2d 31 3a 62 6d  |&0:bm%!104=-1:bm|
000009d0  25 21 31 30 38 3d 26 37  30 30 30 30 32 31 3a 24  |%!108=&7000021:$|
000009e0  28 62 6d 25 2b 31 31 32  29 3d 22 45 64 69 74 20  |(bm%+112)="Edit |
000009f0  44 65 74 61 69 6c 73 22  0d 03 20 3e 62 6d 25 21  |Details".. >bm%!|
00000a00  31 32 34 3d 26 30 3a 62  6d 25 21 31 32 38 3d 2d  |124=&0:bm%!128=-|
00000a10  31 3a 62 6d 25 21 31 33  32 3d 26 37 30 30 30 30  |1:bm%!132=&70000|
00000a20  32 31 3a 24 28 62 6d 25  2b 31 33 36 29 3d 22 44  |21:$(bm%+136)="D|
00000a30  65 6c 65 74 65 22 0d 03  2a 54 62 6d 25 21 31 34  |elete"..*Tbm%!14|
00000a40  38 3d 26 38 30 3a 62 6d  25 21 31 35 32 3d 2d 31  |8=&80:bm%!152=-1|
00000a50  3a 62 6d 25 21 31 35 36  3d 26 37 30 30 30 31 32  |:bm%!156=&700012|
00000a60  31 3a 62 6d 25 21 31 36  30 3d 6d 69 6e 64 69 72  |1:bm%!160=mindir|
00000a70  65 63 74 25 3a 62 6d 25  21 31 36 34 3d 2d 31 3a  |ect%:bm%!164=-1:|
00000a80  62 6d 25 21 31 36 38 3d  31 34 0d 03 34 04 0d 03  |bm%!168=14..4...|
00000a90  3e bd 24 6d 6d 25 3d 22  43 65 6c 65 62 72 61 74  |>.$mm%="Celebrat|
00000aa0  69 6f 6e 22 3a 6d 6d 25  21 31 32 3d 26 30 30 30  |ion":mm%!12=&000|
00000ab0  37 30 32 30 37 3a 6d 6d  25 21 31 36 3d 32 31 30  |70207:mm%!16=210|
00000ac0  3a 6d 6d 25 21 32 30 3d  34 34 3a 6d 6d 25 21 32  |:mm%!20=44:mm%!2|
00000ad0  34 3d 30 3a 6d 6d 25 21  32 38 3d 38 3a 6d 6d 25  |4=0:mm%!28=8:mm%|
00000ae0  21 33 32 3d 7a 57 25 3a  6d 6d 25 21 33 36 3d 26  |!32=zW%:mm%!36=&|
00000af0  37 30 30 30 30 32 31 3a  24 28 6d 6d 25 2b 34 30  |7000021:$(mm%+40|
00000b00  29 3d 22 52 65 63 6f 72  64 73 22 3a 6d 6d 25 21  |)="Records":mm%!|
00000b10  35 32 3d 30 3a 6d 6d 25  21 35 36 3d 2d 31 3a 6d  |52=0:mm%!56=-1:m|
00000b20  6d 25 21 36 30 3d 26 37  30 30 30 30 32 31 3a 24  |m%!60=&7000021:$|
00000b30  28 6d 6d 25 2b 36 34 29  3d 22 53 65 61 72 63 68  |(mm%+64)="Search|
00000b40  22 3a 6d 6d 25 21 37 36  3d 26 30 0d 03 48 b6 6d  |":mm%!76=&0..H.m|
00000b50  6d 25 21 38 30 3d 2d 31  3a 6d 6d 25 21 38 34 3d  |m%!80=-1:mm%!84=|
00000b60  26 37 30 30 30 30 32 31  3a 24 28 6d 6d 25 2b 38  |&7000021:$(mm%+8|
00000b70  38 29 3d 22 57 61 72 6e  69 6e 67 20 6c 69 73 74  |8)="Warning list|
00000b80  22 3a 6d 6d 25 21 31 30  30 3d 26 30 3a 6d 6d 25  |":mm%!100=&0:mm%|
00000b90  21 31 30 34 3d 2d 31 3a  6d 6d 25 21 31 30 38 3d  |!104=-1:mm%!108=|
00000ba0  26 37 30 30 30 30 32 31  3a 24 28 6d 6d 25 2b 31  |&7000021:$(mm%+1|
00000bb0  31 32 29 3d 22 4e 65 77  20 45 76 65 6e 74 22 3a  |12)="New Event":|
00000bc0  6d 6d 25 21 31 32 34 3d  26 38 30 3a 6d 6d 25 21  |mm%!124=&80:mm%!|
00000bd0  31 32 38 3d 2d 31 3a 6d  6d 25 21 31 33 32 3d 26  |128=-1:mm%!132=&|
00000be0  37 30 30 30 30 32 31 3a  24 28 6d 6d 25 2b 31 33  |7000021:$(mm%+13|
00000bf0  36 29 3d 22 53 61 76 65  20 44 61 74 61 2e 2e 2e  |6)="Save Data...|
00000c00  22 0d 03 52 3f 24 64 6d  25 3d 22 4d 6f 6e 74 68  |"..R?$dm%="Month|
00000c10  22 3a 64 6d 25 21 31 32  3d 26 30 30 30 37 30 32  |":dm%!12=&000702|
00000c20  30 37 3a 64 6d 25 21 31  36 3d 31 35 30 3a 64 6d  |07:dm%!16=150:dm|
00000c30  25 21 32 30 3d 34 34 3a  64 6d 25 21 32 34 3d 30  |%!20=44:dm%!24=0|
00000c40  0d 03 5c 5d e3 64 3d 30  b8 31 31 3a 64 6d 25 21  |..\].d=0.11:dm%!|
00000c50  28 32 38 2b 64 2a 32 34  29 3d 26 30 3a 64 6d 25  |(28+d*24)=&0:dm%|
00000c60  21 28 33 32 2b 64 2a 32  34 29 3d 2d 31 3a 64 6d  |!(32+d*24)=-1:dm|
00000c70  25 21 28 33 36 2b 64 2a  32 34 29 3d 26 37 30 30  |%!(36+d*24)=&700|
00000c80  30 30 32 31 3a 24 28 64  6d 25 2b 34 30 2b 64 2a  |0021:$(dm%+40+d*|
00000c90  32 34 29 3d 6d 24 28 64  2b 31 29 3a ed 0d 03 66  |24)=m$(d+1):...f|
00000ca0  4d 64 6d 25 21 32 39 32  3d 26 38 30 3a 64 6d 25  |Mdm%!292=&80:dm%|
00000cb0  21 33 31 36 3d 26 38 30  3a 64 6d 25 21 33 32 30  |!316=&80:dm%!320|
00000cc0  3d 2d 31 3a 64 6d 25 21  33 32 34 3d 26 37 30 30  |=-1:dm%!324=&700|
00000cd0  30 30 32 31 3a 24 28 64  6d 25 2b 33 32 38 29 3d  |0021:$(dm%+328)=|
00000ce0  22 57 61 72 6e 69 6e 67  73 22 0d 03 70 5a dc 4a  |"Warnings"..pZ.J|
00000cf0  61 6e 75 61 72 79 2c 46  65 62 72 75 61 72 79 2c  |anuary,February,|
00000d00  4d 61 72 63 68 2c 41 70  72 69 6c 2c 4d 61 79 2c  |March,April,May,|
00000d10  4a 75 6e 65 2c 4a 75 6c  79 2c 41 75 67 75 73 74  |June,July,August|
00000d20  2c 53 65 70 74 65 6d 62  65 72 2c 4f 63 74 6f 62  |,September,Octob|
00000d30  65 72 2c 4e 6f 76 65 6d  62 65 72 2c 44 65 63 65  |er,November,Dece|
00000d40  6d 62 65 72 0d 03 7a 05  e1 0d 03 84 04 0d 03 8e  |mber..z.........|
00000d50  0f dd f2 6d 69 6e 64 69  72 65 63 74 0d 03 98 20  |...mindirect... |
00000d60  24 6d 69 6e 64 69 72 65  63 74 25 3d 22 41 63 63  |$mindirect%="Acc|
00000d70  65 70 74 20 57 61 72 6e  69 6e 67 22 0d 03 a2 27  |ept Warning"...'|
00000d80  24 28 6d 69 6e 64 69 72  65 63 74 25 2b 31 35 29  |$(mindirect%+15)|
00000d90  3d 22 44 61 79 73 20 74  6f 20 61 6e 79 20 79 65  |="Days to any ye|
00000da0  61 72 22 0d 03 ac 05 e1  0d 03 b6 04 0d 03 c0 13  |ar".............|
00000db0  dd f2 6c 6f 61 64 74 65  6d 70 6c 61 74 65 73 0d  |..loadtemplates.|
00000dc0  03 ca 76 c8 99 22 57 69  6d 70 5f 4f 70 65 6e 54  |..v.."Wimp_OpenT|
00000dd0  65 6d 70 6c 61 74 65 22  2c 2c 22 3c 42 69 72 74  |emplate",,"<Birt|
00000de0  68 42 6f 6f 6b 24 44 69  72 3e 2e 22 2b 74 6d 70  |hBook$Dir>."+tmp|
00000df0  6c 66 24 3a 69 6e 64 69  72 65 63 74 70 6f 73 25  |lf$:indirectpos%|
00000e00  3d 69 6e 64 69 72 65 63  74 25 3a 70 6f 73 69 74  |=indirect%:posit|
00000e10  69 6f 6e 25 3d 30 3a 58  3d 8e 28 22 3c 42 69 72  |ion%=0:X=.("<Bir|
00000e20  74 68 42 6f 6f 6b 24 44  69 72 3e 2e 22 2b 74 6d  |thBook$Dir>."+tm|
00000e30  70 6c 66 24 29 0d 03 d4  45 74 65 6d 70 31 24 3d  |plf$)...Etemp1$=|
00000e40  22 22 3a 74 65 6d 70 3d  31 31 3a f5 3a 74 65 6d  |"":temp=11:.:tem|
00000e50  70 32 3d 9a 23 58 3a e7  74 65 6d 70 32 3e 3d 36  |p2=.#X:.temp2>=6|
00000e60  35 80 74 65 6d 70 32 3c  3d 39 30 20 74 65 6d 70  |5.temp2<=90 temp|
00000e70  31 24 2b 3d bd 74 65 6d  70 32 0d 03 de 3b e7 a7  |1$+=.temp2...;..|
00000e80  74 65 6d 70 31 24 2c 22  57 41 52 4e 49 4e 47 22  |temp1$,"WARNING"|
00000e90  29 77 57 25 3d a4 6c 74  28 22 57 41 52 4e 49 4e  |)wW%=.lt("WARNIN|
00000ea0  47 22 29 3a 74 65 6d 70  31 24 3d 22 22 3a 74 65  |G"):temp1$="":te|
00000eb0  6d 70 2d 3d 31 0d 03 e8  37 e7 a7 74 65 6d 70 31  |mp-=1...7..temp1|
00000ec0  24 2c 22 44 49 41 52 59  22 29 64 57 25 3d a4 6c  |$,"DIARY")dW%=.l|
00000ed0  74 28 22 44 49 41 52 59  22 29 3a 74 65 6d 70 31  |t("DIARY"):temp1|
00000ee0  24 3d 22 22 3a 74 65 6d  70 2d 3d 31 0d 03 f2 35  |$="":temp-=1...5|
00000ef0  e7 a7 74 65 6d 70 31 24  2c 22 4c 49 53 54 22 29  |..temp1$,"LIST")|
00000f00  6c 57 25 3d a4 6c 74 28  22 4c 49 53 54 22 29 3a  |lW%=.lt("LIST"):|
00000f10  74 65 6d 70 31 24 3d 22  22 3a 74 65 6d 70 2d 3d  |temp1$="":temp-=|
00000f20  31 0d 03 fc 35 e7 a7 74  65 6d 70 31 24 2c 22 53  |1...5..temp1$,"S|
00000f30  49 5a 45 22 29 7a 57 25  3d a4 6c 74 28 22 53 49  |IZE")zW%=.lt("SI|
00000f40  5a 45 22 29 3a 74 65 6d  70 31 24 3d 22 22 3a 74  |ZE"):temp1$="":t|
00000f50  65 6d 70 2d 3d 31 0d 04  06 3a e7 a7 74 65 6d 70  |emp-=1...:..temp|
00000f60  31 24 2c 22 42 4c 49 4d  45 59 22 29 62 6c 57 25  |1$,"BLIMEY")blW%|
00000f70  3d a4 6c 74 28 22 42 4c  49 4d 45 59 22 29 3a 74  |=.lt("BLIMEY"):t|
00000f80  65 6d 70 31 24 3d 22 22  3a 74 65 6d 70 2d 3d 31  |emp1$="":temp-=1|
00000f90  0d 04 10 37 e7 a7 74 65  6d 70 31 24 2c 22 42 49  |...7..temp1$,"BI|
00000fa0  4e 46 4f 22 29 62 57 25  3d a4 6c 74 28 22 42 49  |NFO")bW%=.lt("BI|
00000fb0  4e 46 4f 22 29 3a 74 65  6d 70 31 24 3d 22 22 3a  |NFO"):temp1$="":|
00000fc0  74 65 6d 70 2d 3d 31 0d  04 1a 38 e7 a7 74 65 6d  |temp-=1...8..tem|
00000fd0  70 31 24 2c 22 49 4e 46  4f 22 29 69 6e 66 6f 77  |p1$,"INFO")infow|
00000fe0  25 3d a4 6c 74 28 22 49  4e 46 4f 22 29 3a 74 65  |%=.lt("INFO"):te|
00000ff0  6d 70 31 24 3d 22 22 3a  74 65 6d 70 2d 3d 31 0d  |mp1$="":temp-=1.|
00001000  04 24 3e e7 a7 74 65 6d  70 31 24 2c 22 53 45 41  |.$>..temp1$,"SEA|
00001010  52 43 48 22 29 73 65 61  72 63 68 77 25 3d a4 6c  |RCH")searchw%=.l|
00001020  74 28 22 53 45 41 52 43  48 22 29 3a 74 65 6d 70  |t("SEARCH"):temp|
00001030  31 24 3d 22 22 3a 74 65  6d 70 2d 3d 31 0d 04 2e  |1$="":temp-=1...|
00001040  33 e7 a7 74 65 6d 70 31  24 2c 22 4e 45 57 22 29  |3..temp1$,"NEW")|
00001050  6e 57 25 3d a4 6c 74 28  22 4e 45 57 22 29 3a 74  |nW%=.lt("NEW"):t|
00001060  65 6d 70 31 24 3d 22 22  3a 74 65 6d 70 2d 3d 31  |emp1$="":temp-=1|
00001070  0d 04 38 39 e7 a7 74 65  6d 70 31 24 2c 22 45 44  |..89..temp1$,"ED|
00001080  49 54 42 44 22 29 65 57  25 3d a4 6c 74 28 22 45  |ITBD")eW%=.lt("E|
00001090  44 49 54 42 44 22 29 3a  74 65 6d 70 31 24 3d 22  |DITBD"):temp1$="|
000010a0  22 3a 74 65 6d 70 2d 3d  31 0d 04 42 3f e7 a7 74  |":temp-=1..B?..t|
000010b0  65 6d 70 31 24 2c 22 43  41 4c 43 55 4c 41 54 45  |emp1$,"CALCULATE|
000010c0  22 29 63 57 25 3d a4 6c  74 28 22 43 41 4c 43 55  |")cW%=.lt("CALCU|
000010d0  4c 41 54 45 22 29 3a 74  65 6d 70 31 24 3d 22 22  |LATE"):temp1$=""|
000010e0  3a 74 65 6d 70 2d 3d 31  0d 04 4c 0b fd 74 65 6d  |:temp-=1..L..tem|
000010f0  70 3d 30 0d 04 56 1e d9  23 58 3a c8 99 22 57 69  |p=0..V..#X:.."Wi|
00001100  6d 70 5f 43 6c 6f 73 65  54 65 6d 70 6c 61 74 65  |mp_CloseTemplate|
00001110  22 0d 04 60 05 e1 0d 04  6a 04 0d 04 74 10 dd a4  |"..`....j...t...|
00001120  6c 74 28 24 6e 61 6d 65  25 29 0d 04 7e 6b c8 99  |lt($name%)..~k..|
00001130  22 57 69 6d 70 5f 4c 6f  61 64 54 65 6d 70 6c 61  |"Wimp_LoadTempla|
00001140  74 65 22 2c 2c 62 25 2c  69 6e 64 69 72 65 63 74  |te",,b%,indirect|
00001150  70 6f 73 25 2c 69 6e 64  69 72 65 63 74 25 2b 69  |pos%,indirect%+i|
00001160  6e 64 73 69 7a 65 2c 2d  31 2c 6e 61 6d 65 25 2c  |ndsize,-1,name%,|
00001170  70 6f 73 69 74 69 6f 6e  25 b8 2c 2c 69 6e 64 69  |position%.,,indi|
00001180  72 65 63 74 70 6f 73 25  2c 2c 2c 2c 70 6f 73 69  |rectpos%,,,,posi|
00001190  74 69 6f 6e 25 0d 04 88  32 e7 70 6f 73 69 74 69  |tion%...2.positi|
000011a0  6f 6e 25 3d 30 f2 6d 73  67 28 22 54 65 6d 70 6c  |on%=0.msg("Templ|
000011b0  61 74 65 73 20 6d 75 63  6b 65 64 20 75 70 21 22  |ates mucked up!"|
000011c0  29 3a f2 71 75 69 74 0d  04 92 0d 62 25 21 36 34  |):.quit....b%!64|
000011d0  3d 73 70 25 0d 04 9c 0d  c8 8e 24 6e 61 6d 65 25  |=sp%......$name%|
000011e0  ca 0d 04 a6 30 c9 22 45  44 49 54 42 44 22 2c 22  |....0."EDITBD","|
000011f0  4e 45 57 22 3a 62 25 21  36 34 3d 31 3a 62 25 21  |NEW":b%!64=1:b%!|
00001200  28 38 38 2b 31 39 2a 33  32 2b 32 34 29 3d 73 70  |(88+19*32+24)=sp|
00001210  25 0d 04 b0 05 cb 0d 04  ba 20 c8 99 22 57 69 6d  |%........ .."Wim|
00001220  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
00001230  2c 62 25 b8 68 25 0d 04  c4 07 3d 68 25 0d 04 ce  |,b%.h%....=h%...|
00001240  04 0d 04 d8 0e dd f2 73  61 76 65 64 61 74 61 0d  |.......savedata.|
00001250  04 e2 06 ea 85 0d 04 ec  10 ee 85 f2 73 61 76 65  |............save|
00001260  65 72 72 6f 72 0d 04 f6  28 58 3d 30 3a 58 3d ae  |error...(X=0:X=.|
00001270  28 22 3c 42 69 72 74 68  42 6f 6f 6b 24 44 69 72  |("<BirthBook$Dir|
00001280  3e 2e 42 69 72 74 68 64  61 79 73 22 29 0d 05 00  |>.Birthdays")...|
00001290  17 f1 23 58 2c 2d 31 3a  f4 20 4e 65 77 20 46 6f  |..#X,-1:. New Fo|
000012a0  72 6d 61 74 0d 05 0a 0c  f1 23 58 2c 62 64 73 25  |rmat.....#X,bds%|
000012b0  0d 05 14 0c e7 62 64 73  25 3e 30 8c 0d 05 1e 0d  |.....bds%>0.....|
000012c0  e3 6e 3d 31 b8 62 64 73  25 0d 05 28 16 f1 23 58  |.n=1.bds%..(..#X|
000012d0  2c 24 28 64 25 2b 28 6e  2d 31 29 2a 33 38 29 0d  |,$(d%+(n-1)*38).|
000012e0  05 32 19 d5 23 58 2c 3f  28 64 25 2b 32 36 2b 28  |.2..#X,?(d%+26+(|
000012f0  6e 2d 31 29 2a 33 38 29  0d 05 3c 19 d5 23 58 2c  |n-1)*38)..<..#X,|
00001300  3f 28 64 25 2b 32 37 2b  28 6e 2d 31 29 2a 33 38  |?(d%+27+(n-1)*38|
00001310  29 0d 05 46 19 d5 23 58  2c 3f 28 64 25 2b 32 38  |)..F..#X,?(d%+28|
00001320  2b 28 6e 2d 31 29 2a 33  38 29 0d 05 50 19 d5 23  |+(n-1)*38)..P..#|
00001330  58 2c 3f 28 64 25 2b 32  39 2b 28 6e 2d 31 29 2a  |X,?(d%+29+(n-1)*|
00001340  33 38 29 0d 05 5a 19 f1  23 58 2c 24 28 64 25 2b  |38)..Z..#X,$(d%+|
00001350  33 30 2b 28 6e 2d 31 29  2a 33 38 29 0d 05 64 19  |30+(n-1)*38)..d.|
00001360  d5 23 58 2c 3f 28 64 25  2b 33 36 2b 28 6e 2d 31  |.#X,?(d%+36+(n-1|
00001370  29 2a 33 38 29 0d 05 6e  19 d5 23 58 2c 3f 28 64  |)*38)..n..#X,?(d|
00001380  25 2b 33 37 2b 28 6e 2d  31 29 2a 33 38 29 0d 05  |%+37+(n-1)*38)..|
00001390  78 05 ed 0d 05 82 05 cd  0d 05 8c 32 d9 23 58 3a  |x..........2.#X:|
000013a0  f2 6d 73 67 28 22 44 61  74 61 20 73 75 63 63 65  |.msg("Data succe|
000013b0  73 73 66 75 6c 6c 79 20  73 61 76 65 64 22 29 3a  |ssfully saved"):|
000013c0  75 70 74 6f 64 61 74 65  3d b9 0d 05 96 05 e1 0d  |uptodate=.......|
000013d0  05 a0 04 0d 05 aa 0e dd  f2 6c 6f 61 64 64 61 74  |.........loaddat|
000013e0  61 0d 05 b4 06 ea 85 0d  05 be 36 ee 85 d9 23 58  |a.........6...#X|
000013f0  3a f2 6d 73 67 28 22 50  72 6f 62 6c 65 6d 20 77  |:.msg("Problem w|
00001400  69 74 68 20 6c 6f 61 64  69 6e 67 20 66 69 6c 65  |ith loading file|
00001410  2e 20 22 2b f6 24 29 3a  f2 71 75 69 74 0d 05 c8  |. "+.$):.quit...|
00001420  28 58 3d 30 3a 58 3d 8e  28 22 3c 42 69 72 74 68  |(X=0:X=.("<Birth|
00001430  42 6f 6f 6b 24 44 69 72  3e 2e 42 69 72 74 68 64  |Book$Dir>.Birthd|
00001440  61 79 73 22 29 0d 05 d2  0c e8 23 58 2c 62 64 73  |ays").....#X,bds|
00001450  25 0d 05 dc 2f e7 62 64  73 25 3d 2d 31 6e 65 77  |%.../.bds%=-1new|
00001460  66 6f 72 6d 61 74 25 3d  b9 3a e8 23 58 2c 62 64  |format%=.:.#X,bd|
00001470  73 25 20 8b 6e 65 77 66  6f 72 6d 61 74 25 3d a3  |s% .newformat%=.|
00001480  0d 05 e6 0c e7 62 64 73  25 3e 30 8c 0d 05 f0 0d  |.....bds%>0.....|
00001490  e3 6e 3d 31 b8 62 64 73  25 0d 05 fa 16 e8 23 58  |.n=1.bds%.....#X|
000014a0  2c 24 28 64 25 2b 28 6e  2d 31 29 2a 33 38 29 0d  |,$(d%+(n-1)*38).|
000014b0  06 04 19 3f 28 64 25 2b  32 36 2b 28 6e 2d 31 29  |...?(d%+26+(n-1)|
000014c0  2a 33 38 29 3d 9a 23 58  0d 06 0e 19 3f 28 64 25  |*38)=.#X....?(d%|
000014d0  2b 32 37 2b 28 6e 2d 31  29 2a 33 38 29 3d 9a 23  |+27+(n-1)*38)=.#|
000014e0  58 0d 06 18 19 3f 28 64  25 2b 32 38 2b 28 6e 2d  |X....?(d%+28+(n-|
000014f0  31 29 2a 33 38 29 3d 9a  23 58 0d 06 22 19 3f 28  |1)*38)=.#X..".?(|
00001500  64 25 2b 32 39 2b 28 6e  2d 31 29 2a 33 38 29 3d  |d%+29+(n-1)*38)=|
00001510  9a 23 58 0d 06 2c 3e e7  6e 65 77 66 6f 72 6d 61  |.#X..,>.newforma|
00001520  74 25 e8 23 58 2c 24 28  64 25 2b 33 30 2b 28 6e  |t%.#X,$(d%+30+(n|
00001530  2d 31 29 2a 33 38 29 8b  24 28 64 25 2b 33 30 2b  |-1)*38).$(d%+30+|
00001540  28 6e 2d 31 29 2a 33 38  29 3d 22 42 74 68 64 79  |(n-1)*38)="Bthdy|
00001550  22 0d 06 36 6c e7 6e 65  77 66 6f 72 6d 61 74 25  |"..6l.newformat%|
00001560  20 3f 28 64 25 2b 33 36  2b 28 6e 2d 31 29 2a 33  | ?(d%+36+(n-1)*3|
00001570  38 29 3d 9a 23 58 3a 3f  28 64 25 2b 33 37 2b 28  |8)=.#X:?(d%+37+(|
00001580  6e 2d 31 29 2a 33 38 29  3d 9a 23 58 20 8b 3f 28  |n-1)*38)=.#X .?(|
00001590  64 25 2b 33 36 2b 28 6e  2d 31 29 2a 33 38 29 3d  |d%+36+(n-1)*38)=|
000015a0  25 31 31 30 30 31 30 31  30 3a 3f 28 64 25 2b 33  |%11001010:?(d%+3|
000015b0  37 2b 28 6e 2d 31 29 2a  33 38 29 3d 37 0d 06 40  |7+(n-1)*38)=7..@|
000015c0  05 ed 0d 06 4a 05 cd 0d  06 54 12 d9 23 58 3a 75  |....J....T..#X:u|
000015d0  70 74 6f 64 61 74 65 3d  b9 0d 06 5e 05 e1 0d 06  |ptodate=...^....|
000015e0  68 04 0d 06 72 42 dd a4  77 6f 70 65 6e 28 21 62  |h...rB..wopen(!b|
000015f0  32 25 29 3a c8 99 22 57  69 6d 70 5f 47 65 74 57  |2%):.."Wimp_GetW|
00001600  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 62 32 25  |indowState",,b2%|
00001610  3a e7 62 32 25 21 33 32  80 31 3c 3c 31 36 3d b9  |:.b2%!32.1<<16=.|
00001620  20 8b 3d a3 0d 06 7c 04  0d 06 86 0c dd a4 65 77  | .=...|.......ew|
00001630  6f 70 65 6e 0d 06 90 7f  e7 a4 77 6f 70 65 6e 28  |open......wopen(|
00001640  73 65 61 72 63 68 77 25  29 84 a4 77 6f 70 65 6e  |searchw%)..wopen|
00001650  28 63 57 25 29 84 a4 77  6f 70 65 6e 28 65 57 25  |(cW%)..wopen(eW%|
00001660  29 84 a4 77 6f 70 65 6e  28 6e 57 25 29 f2 6d 73  |)..wopen(nW%).ms|
00001670  67 28 22 53 6f 72 72 79  21 20 43 65 6c 65 62 72  |g("Sorry! Celebr|
00001680  61 74 69 6f 6e 27 73 20  6f 74 68 65 72 20 77 69  |ation's other wi|
00001690  6e 64 6f 77 73 20 6d 75  73 74 20 62 65 20 63 6c  |ndows must be cl|
000016a0  6f 73 65 64 20 66 69 72  73 74 22 29 3a 3d b9 20  |osed first"):=. |
000016b0  8b 3d a3 0d 06 9a 04 0d  06 a4 0f dd f2 6f 70 65  |.=...........ope|
000016c0  6e 77 28 68 25 29 0d 06  ae 47 21 62 25 3d 68 25  |nw(h%)...G!b%=h%|
000016d0  3a c8 99 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |:.."Wimp_GetWind|
000016e0  6f 77 53 74 61 74 65 22  2c 2c 62 25 3a 62 25 21  |owState",,b%:b%!|
000016f0  32 38 3d 2d 31 3a c8 99  22 57 69 6d 70 5f 4f 70  |28=-1:.."Wimp_Op|
00001700  65 6e 57 69 6e 64 6f 77  22 2c 2c 62 25 0d 06 b8  |enWindow",,b%...|
00001710  5f e7 68 25 3d 64 57 25  f2 61 74 74 61 74 63 68  |_.h%=dW%.attatch|
00001720  28 64 57 25 2c 6c 57 25  2c 63 78 6f 66 66 73 65  |(dW%,lW%,cxoffse|
00001730  74 25 2c 63 79 6f 66 66  73 65 74 25 29 3a f2 6f  |t%,cyoffset%):.o|
00001740  70 65 6e 77 28 6c 57 25  29 3a e6 33 3a e7 77 6f  |penw(lW%):.3:.wo|
00001750  73 3c 33 31 30 f2 72 65  64 72 61 77 6c 69 73 74  |s<310.redrawlist|
00001760  3a f2 72 65 64 72 61 77  6c 69 73 74 0d 06 c2 05  |:.redrawlist....|
00001770  e1 0d 06 cc 04 0d 06 d6  0c dd f2 63 72 28 68 25  |...........cr(h%|
00001780  29 0d 06 e0 09 c8 8e 68  25 ca 0d 06 ea 4d c9 64  |)......h%....M.d|
00001790  57 25 3a f2 63 77 28 6c  57 25 29 3a f2 63 77 28  |W%:.cw(lW%):.cw(|
000017a0  64 57 25 29 3a f2 63 77  28 62 6c 57 25 29 3a f2  |dW%):.cw(blW%):.|
000017b0  63 77 28 65 57 25 29 3a  f2 63 77 28 6e 57 25 29  |cw(eW%):.cw(nW%)|
000017c0  3a f2 63 77 28 63 57 25  29 3a f2 63 77 28 73 65  |:.cw(cW%):.cw(se|
000017d0  61 72 63 68 77 25 29 0d  06 f4 1f c9 6e 57 25 3a  |archw%).....nW%:|
000017e0  f2 73 6c 28 6c 69 73 74  73 65 74 25 29 3a f2 63  |.sl(listset%):.c|
000017f0  77 28 6e 57 25 29 0d 06  fe 05 7f 0d 07 08 0b f2  |w(nW%)..........|
00001800  63 77 28 68 25 29 0d 07  12 07 cb 3a e1 0d 07 1c  |cw(h%).....:....|
00001810  04 0d 07 26 0c dd f2 63  77 28 68 25 29 0d 07 30  |...&...cw(h%)..0|
00001820  27 21 62 32 25 3d 68 25  3a c8 99 22 57 69 6d 70  |'!b2%=h%:.."Wimp|
00001830  5f 43 6c 6f 73 65 57 69  6e 64 6f 77 22 2c 2c 62  |_CloseWindow",,b|
00001840  32 25 3a e1 0d 07 3a 04  0d 07 44 24 dd f2 6d 65  |2%:...:...D$..me|
00001850  6e 75 28 68 25 2c 78 70  6f 73 2c 79 70 6f 73 29  |nu(h%,xpos,ypos)|
00001860  3a 6c 61 74 65 73 74 6d  25 3d 68 25 0d 07 4e 3c  |:latestm%=h%..N<|
00001870  e7 68 25 3d 64 6d 25 20  e7 6f 72 69 67 69 6e 25  |.h%=dm% .origin%|
00001880  3d 64 57 25 20 8c 64 6d  25 21 32 39 32 3d 32 3a  |=dW% .dm%!292=2:|
00001890  64 6d 25 21 33 31 36 3d  26 38 30 20 8b 64 6d 25  |dm%!316=&80 .dm%|
000018a0  21 32 39 32 3d 26 38 30  0d 07 58 27 c8 99 22 57  |!292=&80..X'.."W|
000018b0  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
000018c0  2c 68 25 2c 78 70 6f 73  2c 79 70 6f 73 3a e1 0d  |,h%,xpos,ypos:..|
000018d0  07 62 04 0d 07 6c 10 dd  f2 73 74 63 28 68 25 2c  |.b...l...stc(h%,|
000018e0  69 25 29 0d 07 76 3c c8  99 22 57 69 6d 70 5f 53  |i%)..v<.."Wimp_S|
000018f0  65 74 43 61 72 65 74 50  6f 73 69 74 69 6f 6e 22  |etCaretPosition"|
00001900  2c 68 25 2c 69 25 2c 2c  2c 2d 31 2c a9 28 a4 69  |,h%,i%,,,-1,.(.i|
00001910  63 6f 6e 74 65 78 74 28  68 25 2c 69 25 29 29 0d  |context(h%,i%)).|
00001920  07 80 05 e1 0d 07 8a 04  0d 07 94 10 dd a4 63 74  |..............ct|
00001930  63 28 68 25 2c 69 25 29  0d 07 9e 22 c8 99 22 57  |c(h%,i%)...".."W|
00001940  69 6d 70 5f 47 65 74 43  61 72 65 74 50 6f 73 69  |imp_GetCaretPosi|
00001950  74 69 6f 6e 22 2c 2c 62  32 25 0d 07 a8 17 e7 21  |tion",,b2%.....!|
00001960  62 32 25 3d 68 25 e7 62  32 25 21 34 3d 69 25 3d  |b2%=h%.b2%!4=i%=|
00001970  b9 0d 07 b2 06 3d a3 0d  07 bc 04 0d 07 c6 15 dd  |.....=..........|
00001980  f2 75 70 64 28 21 62 32  25 2c 62 32 25 21 34 29  |.upd(!b2%,b2%!4)|
00001990  0d 07 d0 5b c8 99 22 57  69 6d 70 5f 47 65 74 49  |...[.."Wimp_GetI|
000019a0  63 6f 6e 53 74 61 74 65  22 2c 2c 62 32 25 3a c8  |conState",,b2%:.|
000019b0  99 22 57 69 6d 70 5f 46  6f 72 63 65 52 65 64 72  |."Wimp_ForceRedr|
000019c0  61 77 22 2c 21 62 32 25  2c 62 32 25 21 38 2d 35  |aw",!b2%,b2%!8-5|
000019d0  2c 62 32 25 21 31 32 2d  35 2c 62 32 25 21 31 36  |,b2%!12-5,b2%!16|
000019e0  2b 35 2c 62 32 25 21 32  30 2b 35 0d 07 da 05 e1  |+5,b2%!20+5.....|
000019f0  0d 07 e4 04 0d 07 ee 55  dd f2 73 65 74 73 74 61  |.......U..setsta|
00001a00  74 65 28 21 62 32 25 2c  62 32 25 21 34 2c 62 32  |te(!b2%,b2%!4,b2|
00001a10  25 21 31 32 2c 62 32 25  21 38 29 3a c8 99 22 57  |%!12,b2%!8):.."W|
00001a20  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00001a30  22 2c 2c 62 32 25 3a f2  75 70 64 28 21 62 32 25  |",,b2%:.upd(!b2%|
00001a40  2c 62 32 25 21 34 29 3a  e1 0d 07 f8 04 0d 08 02  |,b2%!4):........|
00001a50  18 dd f2 73 65 6c 65 63  74 28 21 62 32 25 2c 62  |...select(!b2%,b|
00001a60  32 25 21 34 29 0d 08 0c  1c 62 32 25 21 38 3d 31  |2%!4)....b2%!8=1|
00001a70  3c 3c 32 31 3a 62 32 25  21 31 32 3d 31 3c 3c 32  |<<21:b2%!12=1<<2|
00001a80  31 0d 08 16 1e c8 99 22  57 69 6d 70 5f 53 65 74  |1......"Wimp_Set|
00001a90  49 63 6f 6e 53 74 61 74  65 22 2c 2c 62 32 25 0d  |IconState",,b2%.|
00001aa0  08 20 14 f2 75 70 64 28  21 62 32 25 2c 62 32 25  |. ..upd(!b2%,b2%|
00001ab0  21 34 29 0d 08 2a 05 e1  0d 08 34 04 0d 08 3e 1a  |!4)..*....4...>.|
00001ac0  dd f2 64 65 73 65 6c 65  63 74 28 21 62 32 25 2c  |..deselect(!b2%,|
00001ad0  62 32 25 21 34 29 0d 08  48 1c 62 32 25 21 38 3d  |b2%!4)..H.b2%!8=|
00001ae0  30 3c 3c 32 31 3a 62 32  25 21 31 32 3d 31 3c 3c  |0<<21:b2%!12=1<<|
00001af0  32 31 0d 08 52 1e c8 99  22 57 69 6d 70 5f 53 65  |21..R..."Wimp_Se|
00001b00  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 62 32 25  |tIconState",,b2%|
00001b10  0d 08 5c 14 f2 75 70 64  28 21 62 32 25 2c 62 32  |..\..upd(!b2%,b2|
00001b20  25 21 34 29 0d 08 66 05  e1 0d 08 70 04 0d 08 7a  |%!4)..f....p...z|
00001b30  1a dd a4 73 65 6c 65 63  74 65 64 28 21 62 32 25  |...selected(!b2%|
00001b40  2c 62 32 25 21 34 29 0d  08 84 1e c8 99 22 57 69  |,b2%!4)......"Wi|
00001b50  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
00001b60  2c 2c 62 32 25 0d 08 8e  17 e7 62 32 25 21 32 34  |,,b2%.....b2%!24|
00001b70  80 31 3c 3c 32 31 3d b9  20 8b 3d a3 0d 08 98 04  |.1<<21=. .=.....|
00001b80  0d 08 a2 37 dd a4 69 6d  28 21 62 32 25 2c 62 32  |...7..im(!b2%,b2|
00001b90  25 21 34 29 3a c8 99 22  57 69 6d 70 5f 47 65 74  |%!4):.."Wimp_Get|
00001ba0  49 63 6f 6e 53 74 61 74  65 22 2c 2c 62 32 25 3a  |IconState",,b2%:|
00001bb0  3d 62 32 25 21 32 38 0d  08 ac 04 0d 08 b6 23 dd  |=b2%!28.......#.|
00001bc0  a4 69 63 6f 6e 74 65 78  74 28 68 25 2c 69 25 29  |.icontext(h%,i%)|
00001bd0  3d 24 28 a4 69 6d 28 68  25 2c 69 25 29 29 0d 08  |=$(.im(h%,i%))..|
00001be0  c0 04 0d 08 ca 16 f4 20  57 49 4d 50 20 4d 41 49  |....... WIMP MAI|
00001bf0  4e 54 45 4e 41 4e 43 45  0d 08 d4 04 0d 08 de 0a  |NTENANCE........|
00001c00  dd f2 77 69 6d 70 0d 08  e8 12 ee 85 f2 65 72 72  |..wimp.......err|
00001c10  6f 72 68 61 6e 64 6c 65  0d 08 f2 0b 71 75 69 74  |orhandle....quit|
00001c20  25 3d a3 0d 08 fc 05 f5  0d 09 06 1e c8 99 22 57  |%=............"W|
00001c30  69 6d 70 5f 50 6f 6c 6c  22 2c 30 2c 62 25 b8 72  |imp_Poll",0,b%.r|
00001c40  65 61 73 6f 6e 25 0d 09  10 0e c8 8e 72 65 61 73  |eason%......reas|
00001c50  6f 6e 25 ca 0d 09 1a 12  c9 31 3a f2 72 65 64 72  |on%......1:.redr|
00001c60  61 77 6c 69 73 74 0d 09  24 0f c9 32 3a f2 72 65  |awlist..$..2:.re|
00001c70  64 72 61 77 77 0d 09 2e  0f c9 33 3a f2 63 72 28  |draww.....3:.cr(|
00001c80  21 62 25 29 0d 09 38 0d  c9 36 3a f2 63 6c 69 63  |!b%)..8..6:.clic|
00001c90  6b 0d 09 42 10 c9 38 3a  f2 6b 65 79 70 72 65 73  |k..B..8:.keypres|
00001ca0  73 0d 09 4c 12 c9 39 3a  f2 6d 65 6e 75 64 65 63  |s..L..9:.menudec|
00001cb0  6f 64 65 0d 09 56 15 c9  31 37 2c 31 38 3a f2 74  |ode..V..17,18:.t|
00001cc0  65 6c 65 70 68 6f 6e 65  0d 09 60 05 cb 0d 09 6a  |elephone..`....j|
00001cd0  0a fd 71 75 69 74 25 0d  09 74 09 f2 71 75 69 74  |..quit%..t..quit|
00001ce0  0d 09 7e 05 e1 0d 09 88  04 0d 09 92 0f dd f2 74  |..~............t|
00001cf0  65 6c 65 70 68 6f 6e 65  0d 09 9c 0c c8 8e 62 25  |elephone......b%|
00001d00  21 31 36 ca 0d 09 a6 6f  c9 30 3a e7 ac 75 70 74  |!16....o.0:..upt|
00001d10  6f 64 61 74 65 20 e7 a4  63 68 6f 69 63 65 28 22  |odate ..choice("|
00001d20  55 6e 73 61 76 65 64 20  65 76 65 6e 74 20 64 65  |Unsaved event de|
00001d30  74 61 69 6c 73 2e 20 53  61 76 65 20 74 68 65 6d  |tails. Save them|
00001d40  20 62 65 66 6f 72 65 20  71 75 69 74 74 69 6e 67  | before quitting|
00001d50  3f 20 43 61 6e 63 65 6c  20 77 69 6c 6c 20 6c 6f  |? Cancel will lo|
00001d60  73 65 20 74 68 65 6d 2e  22 29 f2 73 61 76 65 64  |se them.").saved|
00001d70  61 74 61 0d 09 b0 0b 71  75 69 74 25 3d b9 0d 09  |ata....quit%=...|
00001d80  ba 04 0d 09 c4 14 c9 26  34 30 30 43 30 3a c8 8e  |.......&400C0:..|
00001d90  62 25 21 32 30 ca 0d 09  ce 08 c9 7a 57 25 0d 09  |b%!20......zW%..|
00001da0  d8 0d e7 62 25 21 33 32  3d 30 8c 0d 09 e2 30 24  |...b%!32=0....0$|
00001db0  28 a4 69 6d 28 7a 57 25  2c 32 29 29 3d 22 52 65  |(.im(zW%,2))="Re|
00001dc0  63 6f 72 64 73 3a 22 3a  24 28 a4 69 6d 28 7a 57  |cords:":$(.im(zW|
00001dd0  25 2c 31 29 29 3d c3 62  64 73 25 0d 09 ec 05 cc  |%,1))=.bds%.....|
00001de0  0d 09 f6 16 64 6f 25 3d  64 25 2b 28 77 62 64 25  |....do%=d%+(wbd%|
00001df0  2d 31 29 2a 33 38 0d 0a  00 d9 e7 28 3f 28 64 6f  |-1)*38.....(?(do|
00001e00  25 2b 33 37 29 80 25 31  30 30 30 30 29 3d 30 f2  |%+37).%10000)=0.|
00001e10  6d 73 67 28 22 53 6f 72  72 79 21 20 54 68 65 20  |msg("Sorry! The |
00001e20  66 69 72 73 74 20 79 65  61 72 20 66 6f 72 20 74  |first year for t|
00001e30  68 69 73 20 65 76 65 6e  74 20 69 73 20 75 6e 6b  |his event is unk|
00001e40  6e 6f 77 6e 20 6f 72 20  64 65 73 65 6c 65 63 74  |nown or deselect|
00001e50  65 64 20 61 74 20 70 72  65 73 65 6e 74 2e 20 43  |ed at present. C|
00001e60  68 6f 6f 73 65 20 45 64  69 74 20 44 65 74 61 69  |hoose Edit Detai|
00001e70  6c 73 20 61 6e 64 20 65  6e 74 65 72 20 74 68 65  |ls and enter the|
00001e80  20 27 66 69 72 73 74 20  79 65 61 72 27 20 76 61  | 'first year' va|
00001e90  72 69 61 62 6c 65 20 61  66 74 65 72 20 64 65 73  |riable after des|
00001ea0  65 6c 65 63 74 69 6e 67  20 27 49 67 6e 6f 72 65  |electing 'Ignore|
00001eb0  20 61 67 65 2f 79 65 61  72 73 27 22 29 3a f2 6d  | age/years'"):.m|
00001ec0  65 6e 75 28 2d 31 2c 2d  31 2c 2d 31 29 3a e1 0d  |enu(-1,-1,-1):..|
00001ed0  0a 0a 1e f2 64 74 73 3a  24 28 a4 69 6d 28 7a 57  |....dts:$(.im(zW|
00001ee0  25 2c 32 29 29 3d 22 44  61 79 73 3a 22 0d 0a 14  |%,2))="Days:"...|
00001ef0  57 24 28 a4 69 6d 28 7a  57 25 2c 31 29 29 3d c3  |W$(.im(zW%,1))=.|
00001f00  a4 64 61 79 73 28 3f 28  64 6f 25 2b 32 36 29 2c  |.days(?(do%+26),|
00001f10  3f 28 64 6f 25 2b 32 37  29 2c 3f 28 64 6f 25 2b  |?(do%+27),?(do%+|
00001f20  33 36 29 2b 28 28 3f 28  64 6f 25 2b 33 37 29 80  |36)+((?(do%+37).|
00001f30  25 31 31 31 31 29 3c 3c  38 29 2c 64 64 2c 6d 6d  |%1111)<<8),dd,mm|
00001f40  2c 79 79 29 0d 0a 1e 33  e7 24 28 a4 69 6d 28 7a  |,yy)...3.$(.im(z|
00001f50  57 25 2c 31 29 29 3d 22  2d 31 22 24 28 a4 69 6d  |W%,1))="-1"$(.im|
00001f60  28 7a 57 25 2c 31 29 29  3d 22 4e 6f 74 20 70 6f  |(zW%,1))="Not po|
00001f70  73 73 69 62 6c 65 22 0d  0a 28 2f cd 3a c8 99 22  |ssible"..(/.:.."|
00001f80  57 69 6d 70 5f 43 72 65  61 74 65 53 75 62 4d 65  |Wimp_CreateSubMe|
00001f90  6e 75 22 2c 2c 62 25 21  32 30 2c 62 25 21 32 34  |nu",,b%!20,b%!24|
00001fa0  2c 62 25 21 32 38 0d 0a  32 20 c9 62 57 25 3a f2  |,b%!28..2 .bW%:.|
00001fb0  64 74 73 3a 64 6f 25 3d  64 25 2b 28 77 62 64 25  |dts:do%=d%+(wbd%|
00001fc0  2d 31 29 2a 33 38 0d 0a  3c c9 24 28 a4 69 6d 28  |-1)*38..<.$(.im(|
00001fd0  62 57 25 2c 31 29 29 3d  24 64 6f 25 3a 24 28 a4  |bW%,1))=$do%:$(.|
00001fe0  69 6d 28 62 57 25 2c 32  29 29 3d c3 3f 28 64 6f  |im(bW%,2))=.?(do|
00001ff0  25 2b 32 36 29 2b 22 20  22 2b c0 6d 24 28 3f 28  |%+26)+" "+.m$(?(|
00002000  64 6f 25 2b 32 37 29 29  2c 33 29 2b 22 20 22 2b  |do%+27)),3)+" "+|
00002010  c3 28 31 39 30 30 2b 3f  28 64 6f 25 2b 32 39 29  |.(1900+?(do%+29)|
00002020  29 3a 24 28 a4 69 6d 28  62 57 25 2c 33 29 29 3d  |):$(.im(bW%,3))=|
00002030  c3 28 a4 64 61 79 73 28  64 64 2c 6d 6d 2c 79 79  |.(.days(dd,mm,yy|
00002040  2c 3f 28 64 6f 25 2b 32  36 29 2c 3f 28 64 6f 25  |,?(do%+26),?(do%|
00002050  2b 32 37 29 2c 31 39 30  30 2b 3f 28 64 6f 25 2b  |+27),1900+?(do%+|
00002060  32 39 29 29 29 3a c8 99  22 57 69 6d 70 5f 43 72  |29))):.."Wimp_Cr|
00002070  65 61 74 65 53 75 62 4d  65 6e 75 22 2c 2c 62 25  |eateSubMenu",,b%|
00002080  21 32 30 2c 62 25 21 32  34 2c 62 25 21 32 38 0d  |!20,b%!24,b%!28.|
00002090  0a 46 49 24 28 a4 69 6d  28 62 57 25 2c 34 29 29  |.FI$(.im(bW%,4))|
000020a0  3d a4 77 61 72 6e 64 61  74 65 28 3f 28 64 6f 25  |=.warndate(?(do%|
000020b0  2b 32 36 29 2c 3f 28 64  6f 25 2b 32 37 29 2c 31  |+26),?(do%+27),1|
000020c0  39 30 30 2b 3f 28 64 6f  25 2b 32 39 29 2c 3f 28  |900+?(do%+29),?(|
000020d0  64 6f 25 2b 32 38 29 29  0d 0a 50 64 e7 24 28 a4  |do%+28))..Pd.$(.|
000020e0  69 6d 28 62 57 25 2c 33  29 29 3d 22 30 22 20 e7  |im(bW%,3))="0" .|
000020f0  64 64 3c 3e 3f 28 64 6f  25 2b 32 36 29 20 84 6d  |dd<>?(do%+26) .m|
00002100  6d 3c 3e 3f 28 64 6f 25  2b 32 37 29 20 84 79 79  |m<>?(do%+27) .yy|
00002110  3c 3e 31 39 30 30 2b 3f  28 64 6f 25 2b 32 39 29  |<>1900+?(do%+29)|
00002120  24 28 a4 69 6d 28 62 57  25 2c 33 29 29 3d 22 45  |$(.im(bW%,3))="E|
00002130  76 65 6e 74 20 4d 69 73  73 65 64 22 0d 0a 5a 4b  |vent Missed"..ZK|
00002140  24 28 a4 69 6d 28 62 57  25 2c 39 29 29 3d 24 28  |$(.im(bW%,9))=$(|
00002150  64 6f 25 2b 33 30 29 3a  e7 24 28 64 6f 25 2b 33  |do%+30):.$(do%+3|
00002160  30 29 3d 22 a0 a0 a0 a0  a0 22 24 28 a4 69 6d 28  |0)="....."$(.im(|
00002170  62 57 25 2c 39 29 29 3d  22 4f 6e 65 20 6f 66 66  |bW%,9))="One off|
00002180  20 65 76 65 6e 74 22 0d  0a 64 2b 24 28 a4 69 6d  | event"..d+$(.im|
00002190  28 62 57 25 2c 31 31 29  29 3d 22 2d 2d 22 3a 24  |(bW%,11))="--":$|
000021a0  28 a4 69 6d 28 62 57 25  2c 31 33 29 29 3d 22 2d  |(.im(bW%,13))="-|
000021b0  2d 22 0d 0a 6e 16 e7 3f  28 64 6f 25 2b 33 37 29  |-"..n..?(do%+37)|
000021c0  80 25 31 30 30 30 30 8c  0d 0a 78 4a 24 28 a4 69  |.%10000...xJ$(.i|
000021d0  6d 28 62 57 25 2c 31 31  29 29 3d a4 79 65 61 72  |m(bW%,11))=.year|
000021e0  73 28 3f 28 64 6f 25 2b  33 36 29 2b 28 28 3f 28  |s(?(do%+36)+((?(|
000021f0  64 6f 25 2b 33 37 29 80  25 31 31 31 31 29 3c 3c  |do%+37).%1111)<<|
00002200  38 29 2c 3f 28 64 6f 25  2b 32 39 29 2b 31 39 30  |8),?(do%+29)+190|
00002210  30 29 0d 0a 82 63 e7 24  28 64 6f 25 2b 33 30 29  |0)...c.$(do%+30)|
00002220  3d 22 57 65 64 41 6e 22  20 24 28 a4 69 6d 28 62  |="WedAn" $(.im(b|
00002230  57 25 2c 31 33 29 29 3d  a4 61 6e 6e 69 76 65 72  |W%,13))=.anniver|
00002240  73 61 72 79 28 3f 28 64  6f 25 2b 33 36 29 2b 28  |sary(?(do%+36)+(|
00002250  28 3f 28 64 6f 25 2b 33  37 29 80 25 31 31 31 31  |(?(do%+37).%1111|
00002260  29 3c 3c 38 29 2c 3f 28  64 6f 25 2b 32 39 29 2b  |)<<8),?(do%+29)+|
00002270  31 39 30 30 29 0d 0a 8c  05 cd 0d 0a 96 05 cb 0d  |1900)...........|
00002280  0a a0 07 cb 3a e1 0d 0a  aa 04 0d 0a b4 0d dd f2  |....:...........|
00002290  72 65 64 72 61 77 77 0d  0a be 0b c8 8e 21 62 25  |redraww......!b%|
000022a0  20 ca 0d 0a c8 2e c9 64  57 25 3a f2 61 74 74 61  | ......dW%:.atta|
000022b0  74 63 68 28 64 57 25 2c  6c 57 25 2c 63 78 6f 66  |tch(dW%,lW%,cxof|
000022c0  66 73 65 74 25 2c 63 79  6f 66 66 73 65 74 25 29  |fset%,cyoffset%)|
000022d0  0d 0a d2 1d 7f 20 c8 99  22 57 69 6d 70 5f 4f 70  |..... .."Wimp_Op|
000022e0  65 6e 57 69 6e 64 6f 77  22 2c 2c 62 25 0d 0a dc  |enWindow",,b%...|
000022f0  05 cb 0d 0a e6 05 e1 0d  0a f0 04 0d 0a fa 11 dd  |................|
00002300  f2 66 6f 72 63 65 72 65  64 72 61 77 0d 0b 04 29  |.forceredraw...)|
00002310  21 62 32 25 3d 6c 57 25  3a c8 99 22 57 69 6d 70  |!b2%=lW%:.."Wimp|
00002320  5f 47 65 74 57 69 6e 64  6f 77 53 74 61 74 65 22  |_GetWindowState"|
00002330  2c 2c 62 32 25 0d 0b 0e  37 c8 99 22 57 69 6d 70  |,,b2%...7.."Wimp|
00002340  5f 46 6f 72 63 65 52 65  64 72 61 77 22 2c 2d 31  |_ForceRedraw",-1|
00002350  2c 62 32 25 21 34 2c 62  32 25 21 38 2c 62 32 25  |,b2%!4,b2%!8,b2%|
00002360  21 31 32 2c 62 32 25 21  31 36 3a e1 0d 0b 18 04  |!12,b2%!16:.....|
00002370  0d 0b 22 10 dd f2 72 65  64 72 61 77 6c 69 73 74  |.."...redrawlist|
00002380  0d 0b 2c 52 21 62 32 25  3d 6c 57 25 3a c8 99 22  |..,R!b2%=lW%:.."|
00002390  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
000023a0  61 74 65 22 2c 2c 62 32  25 3a 66 69 72 73 74 25  |ate",,b2%:first%|
000023b0  3d 94 28 62 32 25 21 32  34 2b 32 30 29 81 33 32  |=.(b2%!24+20).32|
000023c0  3a e7 66 69 72 73 74 25  3d 30 66 69 72 73 74 25  |:.first%=0first%|
000023d0  3d 31 0d 0b 36 24 c8 99  22 57 69 6d 70 5f 52 65  |=1..6$.."Wimp_Re|
000023e0  64 72 61 77 57 69 6e 64  6f 77 22 2c 2c 62 25 20  |drawWindow",,b% |
000023f0  b8 6d 6f 72 65 25 0d 0b  40 22 6f 78 25 3d 62 25  |.more%..@"ox%=b%|
00002400  21 34 2d 62 25 21 32 30  3a 6f 79 25 3d 62 25 21  |!4-b%!20:oy%=b%!|
00002410  31 36 2d 62 25 21 32 34  0d 0b 4a 0b c8 95 6d 6f  |16-b%!24..J...mo|
00002420  72 65 25 0d 0b 54 17 e3  53 3d 66 69 72 73 74 25  |re%..T..S=first%|
00002430  b8 66 69 72 73 74 25 2b  31 36 0d 0b 5e 0b e7 53  |.first%+16..^..S|
00002440  3c 3d 65 25 8c 0d 0b 68  18 ec 6f 78 25 2b 37 2c  |<=e%...h..ox%+7,|
00002450  6f 79 25 2b 32 30 2d 28  53 2a 33 32 29 0d 0b 72  |oy%+20-(S*32)..r|
00002460  3f e7 3f 28 6c 25 2b 32  2b 33 2a 28 53 2d 31 29  |?.?(l%+2+3*(S-1)|
00002470  29 c8 99 22 57 69 6d 70  5f 53 65 74 43 6f 6c 6f  |).."Wimp_SetColo|
00002480  75 72 22 2c 31 31 20 8b  c8 99 22 57 69 6d 70 5f  |ur",11 ..."Wimp_|
00002490  53 65 74 43 6f 6c 6f 75  72 22 2c 37 0d 0b 7c 29  |SetColour",7..|)|
000024a0  6e 6f 3d 3f 28 6c 25 2b  33 2a 28 53 2d 31 29 29  |no=?(l%+3*(S-1))|
000024b0  2b 28 3f 28 6c 25 2b 31  2b 33 2a 28 53 2d 31 29  |+(?(l%+1+3*(S-1)|
000024c0  29 3c 3c 38 29 0d 0b 86  21 e7 24 28 64 25 2b 33  |)<<8)...!.$(d%+3|
000024d0  30 2b 28 6e 6f 2d 31 29  2a 33 38 29 3c 3e 22 a0  |0+(no-1)*38)<>".|
000024e0  a0 a0 a0 a0 22 8c 0d 0b  90 6d f1 c3 28 3f 28 64  |...."....m..(?(d|
000024f0  25 2b 32 36 2b 28 28 6e  6f 2d 31 29 2a 33 38 29  |%+26+((no-1)*38)|
00002500  29 29 3b 8a 32 29 3b 22  2f 22 3b c3 28 3f 28 64  |));.2);"/";.(?(d|
00002510  25 2b 32 37 2b 28 28 6e  6f 2d 31 29 2a 33 38 29  |%+27+((no-1)*38)|
00002520  29 29 3b 8a 36 29 3b 24  28 64 25 2b 33 30 2b 28  |));.6);$(d%+30+(|
00002530  6e 6f 2d 31 29 2a 33 38  29 3b 8a 31 32 29 3b 22  |no-1)*38);.12);"|
00002540  2d 20 22 3b 24 28 64 25  2b 28 6e 6f 2d 31 29 2a  |- ";$(d%+(no-1)*|
00002550  33 38 29 0d 0b 9a a9 cc  3a f1 c3 28 3f 28 64 25  |38).....:..(?(d%|
00002560  2b 32 36 2b 28 28 6e 6f  2d 31 29 2a 33 38 29 29  |+26+((no-1)*38))|
00002570  29 3b 8a 32 29 3b 22 2f  22 3b c3 28 3f 28 64 25  |);.2);"/";.(?(d%|
00002580  2b 32 37 2b 28 28 6e 6f  2d 31 29 2a 33 38 29 29  |+27+((no-1)*38))|
00002590  29 3b 8a 36 29 3b 24 28  64 25 2b 33 30 2b 28 6e  |);.6);$(d%+30+(n|
000025a0  6f 2d 31 29 2a 33 38 29  3b 8a 31 32 29 3b 22 20  |o-1)*38);.12);" |
000025b0  20 22 3b 3a e7 3f 28 6c  25 2b 32 2b 33 2a 28 53  | ";:.?(l%+2+3*(S|
000025c0  2d 31 29 29 f1 24 28 64  25 2b 28 6e 6f 2d 31 29  |-1)).$(d%+(no-1)|
000025d0  2a 33 38 29 20 8b c8 99  22 57 69 6d 70 5f 53 65  |*38) ..."Wimp_Se|
000025e0  74 43 6f 6c 6f 75 72 22  2c 31 33 3a f1 24 28 64  |tColour",13:.$(d|
000025f0  25 2b 28 6e 6f 2d 31 29  2a 33 38 29 0d 0b a4 05  |%+(no-1)*38)....|
00002600  cd 0d 0b ae 05 cd 0d 0b  b8 05 ed 0d 0b c2 23 c8  |..............#.|
00002610  99 22 57 69 6d 70 5f 47  65 74 52 65 63 74 61 6e  |."Wimp_GetRectan|
00002620  67 6c 65 22 2c 2c 62 25  b8 6d 6f 72 65 25 0d 0b  |gle",,b%.more%..|
00002630  cc 05 ce 0d 0b d6 05 e1  0d 0b e0 04 0d 0b ea 13  |................|
00002640  dd f2 73 65 74 65 78 74  65 6e 74 28 6e 6f 29 0d  |..setextent(no).|
00002650  0b f4 09 65 25 3d 6e 6f  0d 0b fe 30 21 62 25 3d  |...e%=no...0!b%=|
00002660  6c 57 25 3a c8 99 22 57  69 6d 70 5f 47 65 74 57  |lW%:.."Wimp_GetW|
00002670  69 6e 64 6f 77 49 6e 66  6f 22 2c 2c 62 25 3a 77  |indowInfo",,b%:w|
00002680  62 25 3d 62 25 21 32 38  0d 0c 08 0c f2 63 77 28  |b%=b%!28.....cw(|
00002690  6c 57 25 29 0d 0c 12 3f  21 62 25 3d 30 3a 62 25  |lW%)...?!b%=0:b%|
000026a0  21 34 3d 2d 28 6e 6f 2a  33 32 2b 31 35 29 3a 62  |!4=-(no*32+15):b|
000026b0  25 21 38 3d 36 34 32 3a  62 25 21 31 32 3d 30 3a  |%!8=642:b%!12=0:|
000026c0  e7 62 25 21 34 3e 2d 33  38 34 62 25 21 34 3d 2d  |.b%!4>-384b%!4=-|
000026d0  33 38 34 0d 0c 1c 63 c8  99 22 57 69 6d 70 5f 53  |384...c.."Wimp_S|
000026e0  65 74 45 78 74 65 6e 74  22 2c 6c 57 25 2c 62 25  |etExtent",lW%,b%|
000026f0  3a 21 62 25 3d 6c 57 25  3a c8 99 22 57 69 6d 70  |:!b%=lW%:.."Wimp|
00002700  5f 47 65 74 57 69 6e 64  6f 77 53 74 61 74 65 22  |_GetWindowState"|
00002710  2c 2c 62 25 3a 62 25 21  32 38 3d 77 62 25 3a c8  |,,b%:b%!28=wb%:.|
00002720  99 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  |."Wimp_OpenWindo|
00002730  77 22 2c 2c 62 25 0d 0c  26 05 e1 0d 0c 30 04 0d  |w",,b%..&....0..|
00002740  0c 3a 28 dd f2 61 74 74  61 74 63 68 28 62 68 61  |.:(..attatch(bha|
00002750  6e 64 25 2c 74 68 61 6e  64 25 2c 78 6f 66 66 25  |nd%,thand%,xoff%|
00002760  2c 79 6f 66 66 25 29 0d  0c 44 77 21 62 32 25 3d  |,yoff%)..Dw!b2%=|
00002770  74 68 61 6e 64 25 3a c8  99 22 57 69 6d 70 5f 47  |thand%:.."Wimp_G|
00002780  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
00002790  62 32 25 3a 62 32 25 21  32 38 3d 62 25 21 32 38  |b2%:b2%!28=b%!28|
000027a0  3a 62 32 25 21 31 32 3d  62 32 25 21 31 32 2d 62  |:b2%!12=b2%!12-b|
000027b0  32 25 21 34 2b 62 25 21  34 2b 78 6f 66 66 25 3a  |2%!4+b%!4+xoff%:|
000027c0  62 32 25 21 31 36 3d 62  32 25 21 31 36 2d 62 32  |b2%!16=b2%!16-b2|
000027d0  25 21 38 2b 62 25 21 38  2b 79 6f 66 66 25 0d 0c  |%!8+b%!8+yoff%..|
000027e0  4e 63 62 32 25 21 34 3d  62 25 21 34 2b 78 6f 66  |Ncb2%!4=b%!4+xof|
000027f0  66 25 3a 62 32 25 21 38  3d 62 25 21 38 2b 79 6f  |f%:b2%!8=b%!8+yo|
00002800  66 66 25 3a c8 99 22 57  69 6d 70 5f 4f 70 65 6e  |ff%:.."Wimp_Open|
00002810  57 69 6e 64 6f 77 22 2c  2c 62 32 25 3a 62 25 21  |Window",,b2%:b%!|
00002820  32 38 3d 74 68 61 6e 64  25 3a c8 99 22 57 69 6d  |28=thand%:.."Wim|
00002830  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 62  |p_OpenWindow",,b|
00002840  25 0d 0c 58 05 e1 0d 0c  62 04 0d 0c 6c 11 f4 20  |%..X....b...l.. |
00002850  49 63 6f 6e 20 63 6c 69  63 6b 73 0d 0c 76 04 0d  |Icon clicks..v..|
00002860  0c 80 15 dd f2 63 6c 69  63 6b 3a 69 63 63 3d 62  |.....click:icc=b|
00002870  25 21 31 36 0d 0c 8a 0c  c8 8e 62 25 21 31 32 ca  |%!16......b%!12.|
00002880  0d 0c 94 04 0d 0c 9e 07  c9 2d 32 0d 0c a8 0b c8  |.........-2.....|
00002890  8e 62 25 21 38 ca 0d 0c  b2 2e c9 32 3a 69 6d 25  |.b%!8......2:im%|
000028a0  21 31 30 30 3d 94 73 6f  72 74 3a f2 6d 65 6e 75  |!100=.sort:.menu|
000028b0  28 69 6d 25 2c 21 62 25  2d 36 34 2c 39 36 2b 34  |(im%,!b%-64,96+4|
000028c0  34 2a 35 29 0d 0c bc 1b  c9 31 2c 34 3a e7 65 25  |4*5).....1,4:.e%|
000028d0  3d 2d 31 f2 64 74 73 3a  f2 73 6c 28 6d 6d 29 0d  |=-1.dts:.sl(mm).|
000028e0  0c c6 0f f2 6f 70 65 6e  77 28 64 57 25 29 0d 0c  |....openw(dW%)..|
000028f0  d0 05 cb 0d 0c da 04 0d  0c e4 08 c9 77 57 25 0d  |............wW%.|
00002900  0c ee 0c c8 8e 62 25 21  31 36 ca 0d 0c f8 7f c9  |.....b%!16......|
00002910  31 3a 71 75 69 74 25 3d  a3 3a e7 75 70 74 6f 64  |1:quit%=.:.uptod|
00002920  61 74 65 20 71 75 69 74  25 3d b9 20 8b e7 a4 63  |ate quit%=. ...c|
00002930  68 6f 69 63 65 28 22 55  6e 73 61 76 65 64 20 65  |hoice("Unsaved e|
00002940  76 65 6e 74 20 64 65 74  61 69 6c 73 2e 20 53 61  |vent details. Sa|
00002950  76 65 20 74 68 65 6d 20  62 65 66 6f 72 65 20 71  |ve them before q|
00002960  75 69 74 74 69 6e 67 3f  20 43 61 6e 63 65 6c 20  |uitting? Cancel |
00002970  77 69 6c 6c 20 6c 6f 73  65 20 74 68 65 6d 2e 22  |will lose them."|
00002980  29 f2 73 61 76 65 64 61  74 61 0d 0d 02 0b 71 75  |).savedata....qu|
00002990  69 74 25 3d b9 0d 0d 0c  05 e1 0d 0d 16 24 c9 33  |it%=.........$.3|
000029a0  2c 36 3a f2 63 77 28 77  57 25 29 3a f2 73 6c 28  |,6:.cw(wW%):.sl(|
000029b0  30 29 3a f2 6f 70 65 6e  77 28 64 57 25 29 0d 0d  |0):.openw(dW%)..|
000029c0  20 0f c9 34 3a f2 63 77  28 77 57 25 29 0d 0d 2a  | ..4:.cw(wW%)..*|
000029d0  51 7f 62 25 21 34 3d 77  57 25 3a c8 99 22 57 69  |Q.b%!4=wW%:.."Wi|
000029e0  6d 70 5f 47 65 74 57 69  6e 64 6f 77 4f 75 74 6c  |mp_GetWindowOutl|
000029f0  69 6e 65 22 2c 2c 62 25  2b 34 3a 21 62 25 3d 77  |ine",,b%+4:!b%=w|
00002a00  57 25 3a 62 25 21 34 3d  31 3a c8 99 22 57 69 6d  |W%:b%!4=1:.."Wim|
00002a10  70 5f 44 72 61 67 42 6f  78 22 2c 2c 62 25 0d 0d  |p_DragBox",,b%..|
00002a20  34 05 cb 0d 0d 3e 04 0d  0d 48 08 c9 63 57 25 0d  |4....>...H..cW%.|
00002a30  0d 52 0c c8 8e 62 25 21  31 36 ca 0d 0d 5c 10 c9  |.R...b%!16...\..|
00002a40  31 3a f2 63 61 6c 63 64  61 79 73 0d 0d 66 0f c9  |1:.calcdays..f..|
00002a50  34 3a f2 63 72 28 63 57  25 29 0d 0d 70 05 cb 0d  |4:.cr(cW%)..p...|
00002a60  0d 7a 04 0d 0d 84 13 c9  6c 57 25 3a e7 a4 65 77  |.z......lW%:..ew|
00002a70  6f 70 65 6e 20 e1 0d 0d  8e 0c 62 75 74 3d 62 25  |open .....but=b%|
00002a80  21 38 0d 0d 98 56 79 70  25 3d 62 25 21 34 3a 21  |!8...Vyp%=b%!4:!|
00002a90  62 32 25 3d 6c 57 25 3a  c8 99 22 57 69 6d 70 5f  |b2%=lW%:.."Wimp_|
00002aa0  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
00002ab0  2c 62 32 25 3a 62 63 25  3d 94 28 28 79 70 25 2d  |,b2%:bc%=.((yp%-|
00002ac0  32 30 2d 94 28 62 32 25  21 31 36 2d 62 32 25 21  |20-.(b2%!16-b2%!|
00002ad0  32 34 29 29 81 33 32 29  0d 0d a2 12 e7 62 63 25  |24)).32).....bc%|
00002ae0  3d 30 84 62 63 25 3e 65  25 8c 0d 0d ac 25 e7 62  |=0.bc%>e%....%.b|
00002af0  75 74 3d 32 f2 6d 65 6e  75 28 6d 6d 25 2c 21 62  |ut=2.menu(mm%,!b|
00002b00  25 2d 36 34 2c 62 25 21  34 29 3a e1 20 8b e1 0d  |%-64,b%!4):. ...|
00002b10  0d b6 05 cd 0d 0d c0 0e  e7 a4 65 77 6f 70 65 6e  |..........ewopen|
00002b20  20 e1 0d 0d ca 2f 77 62  64 25 3d 3f 28 6c 25 2b  | ..../wbd%=?(l%+|
00002b30  33 2a 28 62 63 25 2d 31  29 29 2b 28 3f 28 6c 25  |3*(bc%-1))+(?(l%|
00002b40  2b 31 2b 33 2a 28 62 63  25 2d 31 29 29 3c 3c 38  |+1+3*(bc%-1))<<8|
00002b50  29 0d 0d d4 33 62 6d 25  21 31 35 36 3d 26 37 30  |)...3bm%!156=&70|
00002b60  30 30 31 32 31 2b 94 28  3f 28 6c 25 2b 32 2b 33  |00121+.(?(l%+2+3|
00002b70  2a 28 62 63 25 2d 31 29  29 3d a3 29 2a 28 31 3c  |*(bc%-1))=.)*(1<|
00002b80  3c 32 32 29 0d 0d de 1a  f2 6d 65 6e 75 28 62 6d  |<22).....menu(bm|
00002b90  25 2c 21 62 25 2d 36 34  2c 62 25 21 34 29 0d 0d  |%,!b%-64,b%!4)..|
00002ba0  e8 04 0d 0d f2 09 c9 62  6c 57 25 0d 0d fc 0c c8  |.......blW%.....|
00002bb0  8e 62 25 21 31 36 ca 0d  0e 06 10 c9 33 3a f2 63  |.b%!16......3:.c|
00002bc0  77 28 62 6c 57 25 29 0d  0e 10 05 cb 0d 0e 1a 04  |w(blW%).........|
00002bd0  0d 0e 24 08 c9 6e 57 25  0d 0e 2e 0c c8 8e 62 25  |..$..nW%......b%|
00002be0  21 31 36 ca 0d 0e 38 30  c9 32 3a f2 6e 65 77 62  |!16...80.2:.newb|
00002bf0  69 72 74 68 64 61 79 3a  e7 6e 62 6f 6b 25 f2 63  |irthday:.nbok%.c|
00002c00  77 28 6e 57 25 29 3a f2  73 6c 28 6c 69 73 74 73  |w(nW%):.sl(lists|
00002c10  65 74 25 29 0d 0e 42 1f  c9 37 3a f2 63 77 28 6e  |et%)..B..7:.cw(n|
00002c20  57 25 29 3a f2 73 6c 28  6c 69 73 74 73 65 74 25  |W%):.sl(listset%|
00002c30  29 3a e1 0d 0e 4c 29 c9  31 3a 6f 72 69 67 69 6e  |):...L).1:origin|
00002c40  25 3d 6e 57 25 3a f2 6d  65 6e 75 28 64 6d 25 2c  |%=nW%:.menu(dm%,|
00002c50  21 62 25 2d 36 34 2c 62  25 21 34 29 0d 0e 56 23  |!b%-64,b%!4)..V#|
00002c60  c9 34 3a f2 6e 65 77 62  69 72 74 68 64 61 79 3a  |.4:.newbirthday:|
00002c70  e7 6e 62 6f 6b 25 f2 63  6c 65 61 72 6e 65 77 0d  |.nbok%.clearnew.|
00002c80  0e 60 84 c9 31 31 3a f2  73 65 6c 65 63 74 28 6e  |.`..11:.select(n|
00002c90  57 25 2c 31 31 29 3a f2  64 65 73 65 6c 65 63 74  |W%,11):.deselect|
00002ca0  28 6e 57 25 2c 31 33 29  3a f2 73 65 74 73 74 61  |(nW%,13):.setsta|
00002cb0  74 65 28 6e 57 25 2c 31  34 2c 31 3c 3c 32 32 2c  |te(nW%,14,1<<22,|
00002cc0  31 3c 3c 32 32 29 3a f2  64 65 73 65 6c 65 63 74  |1<<22):.deselect|
00002cd0  28 6e 57 25 2c 31 32 29  3a f2 64 65 73 65 6c 65  |(nW%,12):.desele|
00002ce0  63 74 28 6e 57 25 2c 32  31 29 3a e7 a4 63 74 63  |ct(nW%,21):..ctc|
00002cf0  28 6e 57 25 2c 31 34 29  f2 73 74 63 28 2d 31 2c  |(nW%,14).stc(-1,|
00002d00  2d 31 29 0d 0e 6a 84 c9  31 32 3a f2 73 65 6c 65  |-1)..j..12:.sele|
00002d10  63 74 28 6e 57 25 2c 31  32 29 3a f2 64 65 73 65  |ct(nW%,12):.dese|
00002d20  6c 65 63 74 28 6e 57 25  2c 31 33 29 3a f2 73 65  |lect(nW%,13):.se|
00002d30  74 73 74 61 74 65 28 6e  57 25 2c 31 34 2c 31 3c  |tstate(nW%,14,1<|
00002d40  3c 32 32 2c 31 3c 3c 32  32 29 3a f2 64 65 73 65  |<22,1<<22):.dese|
00002d50  6c 65 63 74 28 6e 57 25  2c 31 31 29 3a f2 64 65  |lect(nW%,11):.de|
00002d60  73 65 6c 65 63 74 28 6e  57 25 2c 32 31 29 3a e7  |select(nW%,21):.|
00002d70  a4 63 74 63 28 6e 57 25  2c 31 34 29 f2 73 74 63  |.ctc(nW%,14).stc|
00002d80  28 2d 31 2c 2d 31 29 0d  0e 74 74 c9 31 33 3a f2  |(-1,-1)..tt.13:.|
00002d90  73 65 6c 65 63 74 28 6e  57 25 2c 31 33 29 3a f2  |select(nW%,13):.|
00002da0  64 65 73 65 6c 65 63 74  28 6e 57 25 2c 31 31 29  |deselect(nW%,11)|
00002db0  3a f2 64 65 73 65 6c 65  63 74 28 6e 57 25 2c 32  |:.deselect(nW%,2|
00002dc0  31 29 3a f2 73 65 74 73  74 61 74 65 28 6e 57 25  |1):.setstate(nW%|
00002dd0  2c 31 34 2c 31 3c 3c 32  32 2c 30 29 3a f2 64 65  |,14,1<<22,0):.de|
00002de0  73 65 6c 65 63 74 28 6e  57 25 2c 31 32 29 3a f2  |select(nW%,12):.|
00002df0  73 74 63 28 6e 57 25 2c  31 34 29 0d 0e 7e 84 c9  |stc(nW%,14)..~..|
00002e00  32 31 3a f2 73 65 6c 65  63 74 28 6e 57 25 2c 32  |21:.select(nW%,2|
00002e10  31 29 3a f2 64 65 73 65  6c 65 63 74 28 6e 57 25  |1):.deselect(nW%|
00002e20  2c 31 33 29 3a f2 64 65  73 65 6c 65 63 74 28 6e  |,13):.deselect(n|
00002e30  57 25 2c 31 31 29 3a f2  73 65 74 73 74 61 74 65  |W%,11):.setstate|
00002e40  28 6e 57 25 2c 31 34 2c  31 3c 3c 32 32 2c 31 3c  |(nW%,14,1<<22,1<|
00002e50  3c 32 32 29 3a f2 64 65  73 65 6c 65 63 74 28 6e  |<22):.deselect(n|
00002e60  57 25 2c 31 32 29 3a e7  a4 63 74 63 28 6e 57 25  |W%,12):..ctc(nW%|
00002e70  2c 31 34 29 f2 73 74 63  28 2d 31 2c 2d 31 29 0d  |,14).stc(-1,-1).|
00002e80  0e 88 79 c9 31 37 3a e7  ac a4 73 65 6c 65 63 74  |..y.17:...select|
00002e90  65 64 28 6e 57 25 2c 31  37 29 3a f2 73 65 74 73  |ed(nW%,17):.sets|
00002ea0  74 61 74 65 28 6e 57 25  2c 31 36 2c 31 3c 3c 32  |tate(nW%,16,1<<2|
00002eb0  32 2c 30 29 3a f2 73 74  63 28 6e 57 25 2c 31 36  |2,0):.stc(nW%,16|
00002ec0  29 8b f2 73 65 74 73 74  61 74 65 28 6e 57 25 2c  |)..setstate(nW%,|
00002ed0  31 36 2c 31 3c 3c 32 32  2c 31 3c 3c 32 32 29 3a  |16,1<<22,1<<22):|
00002ee0  e7 a4 63 74 63 28 6e 57  25 2c 31 36 29 f2 73 74  |..ctc(nW%,16).st|
00002ef0  63 28 6e 57 25 2c 36 29  0d 0e 92 05 cb 0d 0e 9c  |c(nW%,6)........|
00002f00  04 0d 0e a6 08 c9 65 57  25 0d 0e b0 0c c8 8e 62  |......eW%......b|
00002f10  25 21 31 36 ca 0d 0e ba  0f c9 34 3a f2 63 77 28  |%!16......4:.cw(|
00002f20  65 57 25 29 0d 0e c4 16  c9 32 3a f2 73 65 74 65  |eW%).....2:.sete|
00002f30  64 69 74 64 65 74 61 69  6c 73 0d 0e ce 29 c9 31  |ditdetails...).1|
00002f40  3a 6f 72 69 67 69 6e 25  3d 65 57 25 3a f2 6d 65  |:origin%=eW%:.me|
00002f50  6e 75 28 64 6d 25 2c 21  62 25 2d 36 34 2c 62 25  |nu(dm%,!b%-64,b%|
00002f60  21 34 29 0d 0e d8 84 c9  31 31 3a f2 73 65 6c 65  |!4).....11:.sele|
00002f70  63 74 28 65 57 25 2c 31  31 29 3a f2 64 65 73 65  |ct(eW%,11):.dese|
00002f80  6c 65 63 74 28 65 57 25  2c 31 33 29 3a f2 73 65  |lect(eW%,13):.se|
00002f90  74 73 74 61 74 65 28 65  57 25 2c 31 34 2c 31 3c  |tstate(eW%,14,1<|
00002fa0  3c 32 32 2c 31 3c 3c 32  32 29 3a f2 64 65 73 65  |<22,1<<22):.dese|
00002fb0  6c 65 63 74 28 65 57 25  2c 31 32 29 3a f2 64 65  |lect(eW%,12):.de|
00002fc0  73 65 6c 65 63 74 28 65  57 25 2c 32 30 29 3a e7  |select(eW%,20):.|
00002fd0  a4 63 74 63 28 65 57 25  2c 31 34 29 f2 73 74 63  |.ctc(eW%,14).stc|
00002fe0  28 2d 31 2c 2d 31 29 0d  0e e2 84 c9 31 32 3a f2  |(-1,-1).....12:.|
00002ff0  73 65 6c 65 63 74 28 65  57 25 2c 31 32 29 3a f2  |select(eW%,12):.|
00003000  64 65 73 65 6c 65 63 74  28 65 57 25 2c 31 33 29  |deselect(eW%,13)|
00003010  3a f2 73 65 74 73 74 61  74 65 28 65 57 25 2c 31  |:.setstate(eW%,1|
00003020  34 2c 31 3c 3c 32 32 2c  31 3c 3c 32 32 29 3a f2  |4,1<<22,1<<22):.|
00003030  64 65 73 65 6c 65 63 74  28 65 57 25 2c 31 31 29  |deselect(eW%,11)|
00003040  3a f2 64 65 73 65 6c 65  63 74 28 65 57 25 2c 32  |:.deselect(eW%,2|
00003050  30 29 3a e7 a4 63 74 63  28 65 57 25 2c 31 34 29  |0):..ctc(eW%,14)|
00003060  f2 73 74 63 28 2d 31 2c  2d 31 29 0d 0e ec 74 c9  |.stc(-1,-1)...t.|
00003070  31 33 3a f2 73 65 6c 65  63 74 28 65 57 25 2c 31  |13:.select(eW%,1|
00003080  33 29 3a f2 64 65 73 65  6c 65 63 74 28 65 57 25  |3):.deselect(eW%|
00003090  2c 31 31 29 3a f2 64 65  73 65 6c 65 63 74 28 65  |,11):.deselect(e|
000030a0  57 25 2c 32 30 29 3a f2  73 65 74 73 74 61 74 65  |W%,20):.setstate|
000030b0  28 65 57 25 2c 31 34 2c  31 3c 3c 32 32 2c 30 29  |(eW%,14,1<<22,0)|
000030c0  3a f2 64 65 73 65 6c 65  63 74 28 65 57 25 2c 31  |:.deselect(eW%,1|
000030d0  32 29 3a f2 73 74 63 28  65 57 25 2c 31 34 29 0d  |2):.stc(eW%,14).|
000030e0  0e f6 84 c9 32 30 3a f2  73 65 6c 65 63 74 28 65  |....20:.select(e|
000030f0  57 25 2c 32 30 29 3a f2  64 65 73 65 6c 65 63 74  |W%,20):.deselect|
00003100  28 65 57 25 2c 31 33 29  3a f2 64 65 73 65 6c 65  |(eW%,13):.desele|
00003110  63 74 28 65 57 25 2c 31  31 29 3a f2 73 65 74 73  |ct(eW%,11):.sets|
00003120  74 61 74 65 28 65 57 25  2c 31 34 2c 31 3c 3c 32  |tate(eW%,14,1<<2|
00003130  32 2c 31 3c 3c 32 32 29  3a f2 64 65 73 65 6c 65  |2,1<<22):.desele|
00003140  63 74 28 65 57 25 2c 31  32 29 3a e7 a4 63 74 63  |ct(eW%,12):..ctc|
00003150  28 65 57 25 2c 31 34 29  f2 73 74 63 28 2d 31 2c  |(eW%,14).stc(-1,|
00003160  2d 31 29 0d 0f 00 79 c9  31 37 3a e7 ac a4 73 65  |-1)...y.17:...se|
00003170  6c 65 63 74 65 64 28 65  57 25 2c 31 37 29 3a f2  |lected(eW%,17):.|
00003180  73 65 74 73 74 61 74 65  28 65 57 25 2c 31 36 2c  |setstate(eW%,16,|
00003190  31 3c 3c 32 32 2c 30 29  3a f2 73 74 63 28 65 57  |1<<22,0):.stc(eW|
000031a0  25 2c 31 36 29 8b f2 73  65 74 73 74 61 74 65 28  |%,16)..setstate(|
000031b0  65 57 25 2c 31 36 2c 31  3c 3c 32 32 2c 31 3c 3c  |eW%,16,1<<22,1<<|
000031c0  32 32 29 3a e7 a4 63 74  63 28 65 57 25 2c 31 36  |22):..ctc(eW%,16|
000031d0  29 f2 73 74 63 28 2d 31  2c 2d 31 29 0d 0f 0a 05  |).stc(-1,-1)....|
000031e0  cb 0d 0f 14 04 0d 0f 1e  08 c9 64 57 25 0d 0f 28  |..........dW%..(|
000031f0  1e e7 62 25 21 38 3d 32  80 62 25 21 31 36 3c 3e  |..b%!8=2.b%!16<>|
00003200  38 80 62 25 21 31 36 3c  3e 39 8c 0d 0f 32 28 e7  |8.b%!16<>9...2(.|
00003210  a4 65 77 6f 70 65 6e 20  e1 20 8b f2 6d 65 6e 75  |.ewopen . ..menu|
00003220  28 6d 6d 25 2c 21 62 25  2d 36 34 2c 62 25 21 34  |(mm%,!b%-64,b%!4|
00003230  29 3a e1 0d 0f 3c 05 cd  0d 0f 46 0c c8 8e 62 25  |):...<....F...b%|
00003240  21 31 36 ca 0d 0f 50 13  c9 38 2c 39 3a e7 a4 65  |!16...P..8,9:..e|
00003250  77 6f 70 65 6e 20 e1 0d  0f 5a 26 6f 72 69 67 69  |wopen ...Z&origi|
00003260  6e 25 3d 64 57 25 3a f2  6d 65 6e 75 28 64 6d 25  |n%=dW%:.menu(dm%|
00003270  2c 21 62 25 2d 36 34 2c  62 25 21 34 29 0d 0f 64  |,!b%-64,b%!4)..d|
00003280  71 c9 32 3a e7 a4 77 6f  70 65 6e 28 73 65 61 72  |q.2:..wopen(sear|
00003290  63 68 77 25 29 84 a4 77  6f 70 65 6e 28 63 57 25  |chw%)..wopen(cW%|
000032a0  29 84 a4 77 6f 70 65 6e  28 65 57 25 29 f2 6d 73  |)..wopen(eW%).ms|
000032b0  67 28 22 53 6f 72 72 79  21 20 43 65 6c 65 62 72  |g("Sorry! Celebr|
000032c0  61 74 69 6f 6e 27 73 20  6f 74 68 65 72 20 77 69  |ation's other wi|
000032d0  6e 64 6f 77 73 20 6d 75  73 74 20 62 65 20 63 6c  |ndows must be cl|
000032e0  6f 73 65 64 20 66 69 72  73 74 22 29 3a e1 0d 0f  |osed first"):...|
000032f0  6e 1b e7 62 64 73 25 3e  35 34 35 f2 6f 70 65 6e  |n..bds%>545.open|
00003300  77 28 62 6c 57 25 29 3a  e1 0d 0f 78 27 e7 ac a4  |w(blW%):...x'...|
00003310  77 6f 70 65 6e 28 6e 57  25 29 f2 63 6c 65 61 72  |wopen(nW%).clear|
00003320  6e 65 77 20 8b f2 6f 70  65 6e 77 28 6e 57 25 29  |new ..openw(nW%)|
00003330  0d 0f 82 0f c9 34 3a f2  63 72 28 64 57 25 29 0d  |.....4:.cr(dW%).|
00003340  0f 8c 77 c9 37 3a e7 75  70 74 6f 64 61 74 65 20  |..w.7:.uptodate |
00003350  71 75 69 74 25 3d b9 20  8b e7 a4 63 68 6f 69 63  |quit%=. ...choic|
00003360  65 28 22 55 6e 73 61 76  65 64 20 65 76 65 6e 74  |e("Unsaved event|
00003370  20 64 65 74 61 69 6c 73  2e 20 53 61 76 65 20 74  | details. Save t|
00003380  68 65 6d 20 62 65 66 6f  72 65 20 71 75 69 74 74  |hem before quitt|
00003390  69 6e 67 3f 20 43 61 6e  63 65 6c 20 77 69 6c 6c  |ing? Cancel will|
000033a0  20 6c 6f 73 65 20 74 68  65 6d 2e 22 29 f2 73 61  | lose them.").sa|
000033b0  76 65 64 61 74 61 0d 0f  96 0b 71 75 69 74 25 3d  |vedata....quit%=|
000033c0  b9 0d 0f a0 05 cb 0d 0f  aa 04 0d 0f b4 0d c9 73  |...............s|
000033d0  65 61 72 63 68 77 25 0d  0f be 0c c8 8e 62 25 21  |earchw%......b%!|
000033e0  31 36 ca 0d 0f c8 4b c9  33 3a 24 28 a4 69 6d 28  |16....K.3:$(.im(|
000033f0  73 65 61 72 63 68 77 25  2c 33 29 29 3d 22 22 3a  |searchw%,3))="":|
00003400  f2 75 70 64 28 73 65 61  72 63 68 77 25 2c 33 29  |.upd(searchw%,3)|
00003410  3a f2 63 6c 65 61 72 73  65 61 72 63 68 3a f2 73  |:.clearsearch:.s|
00003420  74 63 28 73 65 61 72 63  68 77 25 2c 33 29 0d 0f  |tc(searchw%,3)..|
00003430  d2 21 c9 32 3a 73 70 6f  73 3d 31 3a f2 73 74 63  |.!.2:spos=1:.stc|
00003440  28 2d 31 2c 2d 31 29 3a  f2 73 65 61 72 63 68 0d  |(-1,-1):.search.|
00003450  0f dc 0e c9 37 3a f2 73  65 61 72 63 68 0d 0f e6  |....7:.search...|
00003460  05 cb 0d 0f f0 04 0d 0f  fa 07 cb 3a e1 0d 10 04  |...........:....|
00003470  04 0d 10 0e 0e dd f2 6b  65 79 70 72 65 73 73 0d  |.......keypress.|
00003480  10 18 0a c8 8e 21 62 25  ca 0d 10 22 08 c9 6e 57  |.....!b%..."..nW|
00003490  25 0d 10 2c 0c c8 8e 62  25 21 32 34 ca 0d 10 36  |%..,...b%!24...6|
000034a0  13 c9 26 31 42 3a f2 63  77 28 21 62 25 29 3a e1  |..&1B:.cw(!b%):.|
000034b0  0d 10 40 11 c9 31 33 2c  26 31 38 45 2c 26 31 38  |..@..13,&18E,&18|
000034c0  41 0d 10 4a 0b c8 8e 62  25 21 34 ca 0d 10 54 12  |A..J...b%!4...T.|
000034d0  c9 36 3a f2 73 74 63 28  21 62 25 2c 39 29 0d 10  |.6:.stc(!b%,9)..|
000034e0  5e 51 c9 39 3a e7 a4 73  65 6c 65 63 74 65 64 28  |^Q.9:..selected(|
000034f0  6e 57 25 2c 31 33 29 f2  73 74 63 28 21 62 25 2c  |nW%,13).stc(!b%,|
00003500  31 34 29 8b e7 a4 73 65  6c 65 63 74 65 64 28 6e  |14)...selected(n|
00003510  57 25 2c 31 37 29 f2 73  74 63 28 21 62 25 2c 31  |W%,17).stc(!b%,1|
00003520  38 29 8b f2 73 74 63 28  21 62 25 2c 31 36 29 0d  |8)..stc(!b%,16).|
00003530  10 68 33 c9 31 34 3a e7  a4 73 65 6c 65 63 74 65  |.h3.14:..selecte|
00003540  64 28 6e 57 25 2c 31 37  29 f2 73 74 63 28 21 62  |d(nW%,17).stc(!b|
00003550  25 2c 31 38 29 8b f2 73  74 63 28 21 62 25 2c 31  |%,18)..stc(!b%,1|
00003560  36 29 0d 10 72 14 c9 31  36 3a f2 73 74 63 28 21  |6)..r..16:.stc(!|
00003570  62 25 2c 31 38 29 0d 10  7c 12 c9 31 38 3a e7 62  |b%,18)..|..18:.b|
00003580  25 21 32 34 3d 31 33 8c  0d 10 86 20 f2 6e 65 77  |%!24=13.... .new|
00003590  62 69 72 74 68 64 61 79  3a e7 6e 62 6f 6b 25 f2  |birthday:.nbok%.|
000035a0  63 6c 65 61 72 6e 65 77  0d 10 90 10 cc f2 73 74  |clearnew......st|
000035b0  63 28 21 62 25 2c 36 29  0d 10 9a 05 cd 0d 10 a4  |c(!b%,6)........|
000035c0  05 cb 0d 10 ae 0e c9 26  31 38 46 2c 26 31 39 41  |.......&18F,&19A|
000035d0  0d 10 b8 0b c8 8e 62 25  21 34 ca 0d 10 c2 13 c9  |......b%!4......|
000035e0  36 3a f2 73 74 63 28 21  62 25 2c 31 38 29 0d 10  |6:.stc(!b%,18)..|
000035f0  cc 12 c9 39 3a f2 73 74  63 28 21 62 25 2c 36 29  |...9:.stc(!b%,6)|
00003600  0d 10 d6 13 c9 31 34 3a  f2 73 74 63 28 21 62 25  |.....14:.stc(!b%|
00003610  2c 39 29 0d 10 e0 32 c9  31 36 3a e7 a4 73 65 6c  |,9)...2.16:..sel|
00003620  65 63 74 65 64 28 21 62  25 2c 31 33 29 f2 73 74  |ected(!b%,13).st|
00003630  63 28 21 62 25 2c 31 34  29 8b f2 73 74 63 28 21  |c(!b%,14)..stc(!|
00003640  62 25 2c 39 29 0d 10 ea  52 c9 31 38 3a e7 ac a4  |b%,9)...R.18:...|
00003650  73 65 6c 65 63 74 65 64  28 21 62 25 2c 31 37 29  |selected(!b%,17)|
00003660  f2 73 74 63 28 21 62 25  2c 31 36 29 8b e7 a4 73  |.stc(!b%,16)...s|
00003670  65 6c 65 63 74 65 64 28  21 62 25 2c 31 33 29 f2  |elected(!b%,13).|
00003680  73 74 63 28 21 62 25 2c  31 34 29 8b f2 73 74 63  |stc(!b%,14)..stc|
00003690  28 21 62 25 2c 39 29 0d  10 f4 05 cb 0d 10 fe 1e  |(!b%,9).........|
000036a0  7f c8 99 22 57 69 6d 70  5f 50 72 6f 63 65 73 73  |..."Wimp_Process|
000036b0  4b 65 79 22 2c 62 25 21  32 34 0d 11 08 05 cb 0d  |Key",b%!24......|
000036c0  11 12 04 0d 11 1c 08 c9  63 57 25 0d 11 26 0c c8  |........cW%..&..|
000036d0  8e 62 25 21 32 34 ca 0d  11 30 13 c9 26 31 42 3a  |.b%!24...0..&1B:|
000036e0  f2 63 77 28 21 62 25 29  3a e1 0d 11 3a 11 c9 31  |.cw(!b%):...:..1|
000036f0  33 3a f2 63 61 6c 63 64  61 79 73 0d 11 44 1e 7f  |3:.calcdays..D..|
00003700  c8 99 22 57 69 6d 70 5f  50 72 6f 63 65 73 73 4b  |.."Wimp_ProcessK|
00003710  65 79 22 2c 62 25 21 32  34 0d 11 4e 05 cb 0d 11  |ey",b%!24..N....|
00003720  58 04 0d 11 62 0d c9 73  65 61 72 63 68 77 25 0d  |X...b..searchw%.|
00003730  11 6c 0c c8 8e 62 25 21  32 34 ca 0d 11 76 22 c9  |.l...b%!24...v".|
00003740  31 33 3a 73 70 6f 73 3d  31 3a f2 73 74 63 28 2d  |13:spos=1:.stc(-|
00003750  31 2c 2d 31 29 3a f2 73  65 61 72 63 68 0d 11 80  |1,-1):.search...|
00003760  11 c9 26 31 42 3a f2 63  77 28 21 62 25 29 0d 11  |..&1B:.cw(!b%)..|
00003770  8a 1e 7f c8 99 22 57 69  6d 70 5f 50 72 6f 63 65  |....."Wimp_Proce|
00003780  73 73 4b 65 79 22 2c 62  25 21 32 34 0d 11 94 05  |ssKey",b%!24....|
00003790  cb 0d 11 9e 04 0d 11 a8  08 c9 65 57 25 0d 11 b2  |..........eW%...|
000037a0  0c c8 8e 62 25 21 32 34  ca 0d 11 bc 13 c9 26 31  |...b%!24......&1|
000037b0  42 3a f2 63 77 28 21 62  25 29 3a e1 0d 11 c6 11  |B:.cw(!b%):.....|
000037c0  c9 31 33 2c 26 31 38 45  2c 26 31 38 41 0d 11 d0  |.13,&18E,&18A...|
000037d0  0b c8 8e 62 25 21 34 ca  0d 11 da 12 c9 36 3a f2  |...b%!4......6:.|
000037e0  73 74 63 28 21 62 25 2c  39 29 0d 11 e4 51 c9 39  |stc(!b%,9)...Q.9|
000037f0  3a e7 a4 73 65 6c 65 63  74 65 64 28 65 57 25 2c  |:..selected(eW%,|
00003800  31 33 29 f2 73 74 63 28  21 62 25 2c 31 34 29 8b  |13).stc(!b%,14).|
00003810  e7 a4 73 65 6c 65 63 74  65 64 28 65 57 25 2c 31  |..selected(eW%,1|
00003820  37 29 f2 73 74 63 28 21  62 25 2c 31 38 29 8b f2  |7).stc(!b%,18)..|
00003830  73 74 63 28 21 62 25 2c  31 36 29 0d 11 ee 33 c9  |stc(!b%,16)...3.|
00003840  31 34 3a e7 a4 73 65 6c  65 63 74 65 64 28 65 57  |14:..selected(eW|
00003850  25 2c 31 37 29 f2 73 74  63 28 21 62 25 2c 31 38  |%,17).stc(!b%,18|
00003860  29 8b f2 73 74 63 28 21  62 25 2c 31 36 29 0d 11  |)..stc(!b%,16)..|
00003870  f8 14 c9 31 36 3a f2 73  74 63 28 21 62 25 2c 31  |...16:.stc(!b%,1|
00003880  38 29 0d 12 02 12 c9 31  38 3a e7 62 25 21 32 34  |8).....18:.b%!24|
00003890  3d 31 33 8c 0d 12 0c 22  f2 73 65 74 65 64 69 74  |=13....".setedit|
000038a0  64 65 74 61 69 6c 73 3a  e7 6e 62 6f 6b 25 f2 63  |details:.nbok%.c|
000038b0  72 28 65 57 25 29 0d 12  16 05 cc 0d 12 20 0f f2  |r(eW%)....... ..|
000038c0  73 74 63 28 21 62 25 2c  36 29 0d 12 2a 05 cd 0d  |stc(!b%,6)..*...|
000038d0  12 34 05 cb 0d 12 3e 0e  c9 26 31 38 46 2c 26 31  |.4....>..&18F,&1|
000038e0  39 41 0d 12 48 0b c8 8e  62 25 21 34 ca 0d 12 52  |9A..H...b%!4...R|
000038f0  13 c9 36 3a f2 73 74 63  28 21 62 25 2c 31 38 29  |..6:.stc(!b%,18)|
00003900  0d 12 5c 12 c9 39 3a f2  73 74 63 28 21 62 25 2c  |..\..9:.stc(!b%,|
00003910  36 29 0d 12 66 13 c9 31  34 3a f2 73 74 63 28 21  |6)..f..14:.stc(!|
00003920  62 25 2c 39 29 0d 12 70  32 c9 31 36 3a e7 a4 73  |b%,9)..p2.16:..s|
00003930  65 6c 65 63 74 65 64 28  21 62 25 2c 31 33 29 f2  |elected(!b%,13).|
00003940  73 74 63 28 21 62 25 2c  31 34 29 8b f2 73 74 63  |stc(!b%,14)..stc|
00003950  28 21 62 25 2c 39 29 0d  12 7a 52 c9 31 38 3a e7  |(!b%,9)..zR.18:.|
00003960  ac a4 73 65 6c 65 63 74  65 64 28 21 62 25 2c 31  |..selected(!b%,1|
00003970  37 29 f2 73 74 63 28 21  62 25 2c 31 36 29 8b e7  |7).stc(!b%,16)..|
00003980  a4 73 65 6c 65 63 74 65  64 28 21 62 25 2c 31 33  |.selected(!b%,13|
00003990  29 f2 73 74 63 28 21 62  25 2c 31 34 29 8b f2 73  |).stc(!b%,14)..s|
000039a0  74 63 28 21 62 25 2c 39  29 0d 12 84 05 cb 0d 12  |tc(!b%,9).......|
000039b0  8e 1e 7f c8 99 22 57 69  6d 70 5f 50 72 6f 63 65  |....."Wimp_Proce|
000039c0  73 73 4b 65 79 22 2c 62  25 21 32 34 0d 12 98 05  |ssKey",b%!24....|
000039d0  cb 0d 12 a2 04 0d 12 ac  07 cb 3a e1 0d 12 b6 04  |..........:.....|
000039e0  0d 12 c0 10 dd f2 6d 65  6e 75 64 65 63 6f 64 65  |......menudecode|
000039f0  0d 12 ca 0f c8 8e 6c 61  74 65 73 74 6d 25 ca 0d  |......latestm%..|
00003a00  12 d4 04 0d 12 de 08 c9  69 6d 25 0d 12 e8 0b c8  |........im%.....|
00003a10  8e 62 25 21 30 ca 0d 12  f2 19 c9 31 3a e7 65 25  |.b%!0......1:.e%|
00003a20  3d 2d 31 f2 64 74 73 3a  f2 73 6c 28 6d 6d 29 0d  |=-1.dts:.sl(mm).|
00003a30  12 fc 0f f2 6f 70 65 6e  77 28 64 57 25 29 0d 13  |....openw(dW%)..|
00003a40  06 10 c9 32 3a f2 73 61  76 65 64 61 74 61 0d 13  |...2:.savedata..|
00003a50  10 21 c9 33 3a 73 6f 72  74 3d 73 6f 72 74 20 82  |.!.3:sort=sort .|
00003a60  b9 3a 69 6d 25 21 31 30  30 3d 94 73 6f 72 74 0d  |.:im%!100=.sort.|
00003a70  13 1a 77 c9 34 3a e7 75  70 74 6f 64 61 74 65 20  |..w.4:.uptodate |
00003a80  71 75 69 74 25 3d b9 20  8b e7 a4 63 68 6f 69 63  |quit%=. ...choic|
00003a90  65 28 22 55 6e 73 61 76  65 64 20 65 76 65 6e 74  |e("Unsaved event|
00003aa0  20 64 65 74 61 69 6c 73  2e 20 53 61 76 65 20 74  | details. Save t|
00003ab0  68 65 6d 20 62 65 66 6f  72 65 20 71 75 69 74 74  |hem before quitt|
00003ac0  69 6e 67 3f 20 43 61 6e  63 65 6c 20 77 69 6c 6c  |ing? Cancel will|
00003ad0  20 6c 6f 73 65 20 74 68  65 6d 2e 22 29 f2 73 61  | lose them.").sa|
00003ae0  76 65 64 61 74 61 0d 13  24 0b 71 75 69 74 25 3d  |vedata..$.quit%=|
00003af0  b9 0d 13 2e 05 cb 0d 13  38 04 0d 13 42 08 c9 62  |........8...B..b|
00003b00  6d 25 0d 13 4c 16 64 6f  25 3d 64 25 2b 28 77 62  |m%..L.do%=d%+(wb|
00003b10  64 25 2d 31 29 2a 33 38  0d 13 56 0b c8 8e 62 25  |d%-1)*38..V...b%|
00003b20  21 30 ca 0d 13 60 69 c9  31 3a e7 3f 28 64 6f 25  |!0...`i.1:.?(do%|
00003b30  2b 32 36 29 3d 32 39 80  3f 28 64 6f 25 2b 32 37  |+26)=29.?(do%+27|
00003b40  29 3d 32 f2 6d 73 67 28  22 53 6f 72 72 79 21 20  |)=2.msg("Sorry! |
00003b50  54 68 69 73 20 66 65 61  74 75 72 65 20 69 73 20  |This feature is |
00003b60  75 6e 61 76 61 69 6c 61  62 6c 65 20 66 6f 72 20  |unavailable for |
00003b70  65 76 65 6e 74 73 20 6f  6e 20 32 39 74 68 20 46  |events on 29th F|
00003b80  65 62 72 75 61 72 79 2e  22 29 3a e1 0d 13 6a c9  |ebruary."):...j.|
00003b90  e7 28 3f 28 64 6f 25 2b  33 37 29 80 25 31 30 30  |.(?(do%+37).%100|
00003ba0  30 30 29 3d 30 f2 6d 73  67 28 22 53 6f 72 72 79  |00)=0.msg("Sorry|
00003bb0  21 20 54 68 65 20 66 69  72 73 74 20 79 65 61 72  |! The first year|
00003bc0  20 66 6f 72 20 74 68 69  73 20 65 76 65 6e 74 20  | for this event |
00003bd0  69 73 20 75 6e 6b 6e 6f  77 6e 20 6f 72 20 64 65  |is unknown or de|
00003be0  73 65 6c 65 63 74 65 64  20 61 74 20 70 72 65 73  |selected at pres|
00003bf0  65 6e 74 2e 20 43 68 6f  6f 73 65 20 45 64 69 74  |ent. Choose Edit|
00003c00  20 44 65 74 61 69 6c 73  20 61 6e 64 20 65 6e 74  | Details and ent|
00003c10  65 72 20 74 68 65 20 27  66 69 72 73 74 20 79 65  |er the 'first ye|
00003c20  61 72 27 20 76 61 72 69  61 62 6c 65 20 61 66 74  |ar' variable aft|
00003c30  65 72 20 64 65 73 65 6c  65 63 74 69 6e 67 20 27  |er deselecting '|
00003c40  49 67 6e 6f 72 65 20 61  67 65 2f 79 65 61 72 73  |Ignore age/years|
00003c50  27 22 29 3a e1 0d 13 74  14 24 a4 69 6d 28 63 57  |'"):...t.$.im(cW|
00003c60  25 2c 33 29 3d 24 64 6f  25 0d 13 7e 12 24 a4 69  |%,3)=$do%..~.$.i|
00003c70  6d 28 63 57 25 2c 32 29  3d 22 22 0d 13 88 2c 24  |m(cW%,2)=""...,$|
00003c80  a4 69 6d 28 63 57 25 2c  39 29 3d c3 3f 28 64 6f  |.im(cW%,9)=.?(do|
00003c90  25 2b 32 36 29 2b 22 20  22 2b 6d 24 28 3f 28 64  |%+26)+" "+m$(?(d|
00003ca0  6f 25 2b 32 37 29 29 0d  13 92 14 24 a4 69 6d 28  |o%+27))....$.im(|
00003cb0  63 57 25 2c 31 30 29 3d  22 2d 22 0d 13 9c 28 79  |cW%,10)="-"...(y|
00003cc0  6f 62 3d 3f 28 64 6f 25  2b 33 36 29 2b 28 28 3f  |ob=?(do%+36)+((?|
00003cd0  28 64 6f 25 2b 33 37 29  80 25 31 31 31 31 29 3c  |(do%+37).%1111)<|
00003ce0  3c 38 29 0d 13 a6 12 f2  64 74 73 3a 61 6e 3d 79  |<8).....dts:an=y|
00003cf0  79 2d 79 6f 62 0d 13 b0  30 e7 6d 6d 3c 3f 28 64  |y-yob...0.mm<?(d|
00003d00  6f 25 2b 32 37 29 84 6d  6d 3d 3f 28 64 6f 25 2b  |o%+27).mm=?(do%+|
00003d10  32 37 29 80 64 64 3c 3f  28 64 6f 25 2b 32 36 29  |27).dd<?(do%+26)|
00003d20  61 6e 2d 3d 31 0d 13 ba  13 24 a4 69 6d 28 63 57  |an-=1....$.im(cW|
00003d30  25 2c 35 29 3d c3 61 6e  0d 13 c4 04 0d 13 ce 1b  |%,5)=.an........|
00003d40  f2 6f 70 65 6e 77 28 63  57 25 29 3a f2 73 74 63  |.openw(cW%):.stc|
00003d50  28 63 57 25 2c 32 29 0d  13 d8 06 c9 33 0d 13 e2  |(cW%,2).....3...|
00003d60  16 24 28 a4 69 6d 28 65  57 25 2c 36 29 29 3d 24  |.$(.im(eW%,6))=$|
00003d70  64 6f 25 0d 13 ec 1c 24  28 a4 69 6d 28 65 57 25  |do%....$(.im(eW%|
00003d80  2c 39 29 29 3d c3 3f 28  64 6f 25 2b 32 36 29 0d  |,9))=.?(do%+26).|
00003d90  13 f6 1d 24 28 a4 69 6d  28 65 57 25 2c 31 38 29  |...$(.im(eW%,18)|
00003da0  29 3d c3 3f 28 64 6f 25  2b 32 38 29 0d 14 00 1f  |)=.?(do%+28)....|
00003db0  24 28 a4 69 6d 28 65 57  25 2c 31 29 29 3d 6d 24  |$(.im(eW%,1))=m$|
00003dc0  28 3f 28 64 6f 25 2b 32  37 29 29 0d 14 0a 31 f2  |(?(do%+27))...1.|
00003dd0  73 65 6c 65 63 74 28 65  57 25 2c 31 37 29 3a f2  |select(eW%,17):.|
00003de0  73 65 74 73 74 61 74 65  28 65 57 25 2c 31 36 2c  |setstate(eW%,16,|
00003df0  31 3c 3c 32 32 2c 31 3c  3c 32 32 29 0d 14 14 40  |1<<22,1<<22)...@|
00003e00  e7 3f 28 64 6f 25 2b 33  37 29 80 25 31 30 30 30  |.?(do%+37).%1000|
00003e10  30 f2 64 65 73 65 6c 65  63 74 28 65 57 25 2c 31  |0.deselect(eW%,1|
00003e20  37 29 3a f2 73 65 74 73  74 61 74 65 28 65 57 25  |7):.setstate(eW%|
00003e30  2c 31 36 2c 31 3c 3c 32  32 2c 30 29 0d 14 1e 69  |,16,1<<22,0)...i|
00003e40  f2 64 65 73 65 6c 65 63  74 28 65 57 25 2c 31 31  |.deselect(eW%,11|
00003e50  29 3a f2 64 65 73 65 6c  65 63 74 28 65 57 25 2c  |):.deselect(eW%,|
00003e60  31 33 29 3a f2 64 65 73  65 6c 65 63 74 28 65 57  |13):.deselect(eW|
00003e70  25 2c 32 30 29 3a f2 64  65 73 65 6c 65 63 74 28  |%,20):.deselect(|
00003e80  65 57 25 2c 31 32 29 3a  f2 73 65 74 73 74 61 74  |eW%,12):.setstat|
00003e90  65 28 65 57 25 2c 31 34  2c 31 3c 3c 32 32 2c 31  |e(eW%,14,1<<22,1|
00003ea0  3c 3c 32 32 29 0d 14 28  15 24 28 a4 69 6d 28 65  |<<22)..(.$(.im(e|
00003eb0  57 25 2c 31 34 29 29 3d  22 22 0d 14 32 10 c8 8e  |W%,14))=""..2...|
00003ec0  24 28 64 6f 25 2b 33 30  29 ca 0d 14 3c 1c c9 22  |$(do%+30)...<.."|
00003ed0  42 74 68 64 79 22 3a f2  73 65 6c 65 63 74 28 65  |Bthdy":.select(e|
00003ee0  57 25 2c 31 31 29 0d 14  46 1c c9 22 57 65 64 41  |W%,11)..F.."WedA|
00003ef0  6e 22 3a f2 73 65 6c 65  63 74 28 65 57 25 2c 31  |n":.select(eW%,1|
00003f00  32 29 0d 14 50 1c c9 22  a0 a0 a0 a0 a0 22 3a f2  |2)..P..".....":.|
00003f10  73 65 6c 65 63 74 28 65  57 25 2c 32 30 29 0d 14  |select(eW%,20)..|
00003f20  5a 05 7f 0d 14 64 44 24  a4 69 6d 28 65 57 25 2c  |Z....dD$.im(eW%,|
00003f30  31 34 29 3d 24 28 64 6f  25 2b 33 30 29 3a f2 73  |14)=$(do%+30):.s|
00003f40  65 6c 65 63 74 28 65 57  25 2c 31 33 29 3a f2 73  |elect(eW%,13):.s|
00003f50  65 74 73 74 61 74 65 28  65 57 25 2c 31 34 2c 31  |etstate(eW%,14,1|
00003f60  3c 3c 32 32 2c 30 29 0d  14 6e 05 cb 0d 14 78 34  |<<22,0)..n....x4|
00003f70  24 a4 69 6d 28 65 57 25  2c 31 36 29 3d c3 28 3f  |$.im(eW%,16)=.(?|
00003f80  28 64 6f 25 2b 33 36 29  2b 28 28 3f 28 64 6f 25  |(do%+36)+((?(do%|
00003f90  2b 33 37 29 80 25 31 31  31 31 29 3c 3c 38 29 29  |+37).%1111)<<8))|
00003fa0  0d 14 82 0f f2 6f 70 65  6e 77 28 65 57 25 29 0d  |.....openw(eW%).|
00003fb0  14 8c 11 f2 73 74 63 28  65 57 25 2c 36 29 3a e1  |....stc(eW%,6):.|
00003fc0  0d 14 96 16 c9 34 3a f2  64 65 6c 65 74 65 28 77  |.....4:.delete(w|
00003fd0  62 64 25 29 3a e1 0d 14  a0 29 c9 35 3a e7 24 28  |bd%):....).5:.$(|
00003fe0  64 6f 25 2b 33 30 29 3d  22 a0 a0 a0 a0 a0 22 8c  |do%+30)=".....".|
00003ff0  f2 64 65 6c 65 74 65 28  77 62 64 25 29 3a e1 0d  |.delete(wbd%):..|
00004000  14 aa 0a f5 3a f2 64 74  73 0d 14 b4 10 3f 28 64  |....:.dts....?(d|
00004010  6f 25 2b 32 39 29 2b 3d  31 0d 14 be 39 fd a4 64  |o%+29)+=1...9..d|
00004020  61 79 73 28 64 64 2c 6d  6d 2c 79 79 2c 3f 28 64  |ays(dd,mm,yy,?(d|
00004030  6f 25 2b 32 36 29 2c 3f  28 64 6f 25 2b 32 37 29  |o%+26),?(do%+27)|
00004040  2c 3f 28 64 6f 25 2b 32  39 29 2b 31 39 30 30 29  |,?(do%+29)+1900)|
00004050  3e 30 0d 14 c8 1f e7 3f  28 64 6f 25 2b 32 37 29  |>0.....?(do%+27)|
00004060  3d 32 80 3f 28 64 6f 25  2b 32 36 29 3d 32 39 20  |=2.?(do%+26)=29 |
00004070  8c 0d 14 d2 20 c8 95 ac  a4 6c 65 61 70 79 65 61  |.... ....leapyea|
00004080  72 28 3f 28 64 6f 25 2b  32 39 29 2b 31 39 30 30  |r(?(do%+29)+1900|
00004090  29 0d 14 dc 10 3f 28 64  6f 25 2b 32 39 29 2b 3d  |)....?(do%+29)+=|
000040a0  31 0d 14 e6 05 ce 0d 14  f0 05 cd 0d 14 fa 1c 62  |1..............b|
000040b0  6d 25 21 31 35 36 3d 26  37 30 30 30 31 32 31 2b  |m%!156=&7000121+|
000040c0  28 31 3c 3c 32 32 29 0d  15 04 0e e7 6c 69 73 74  |(1<<22).....list|
000040d0  73 65 74 25 8c 0d 15 0e  24 3f 28 6c 25 2b 32 2b  |set%....$?(l%+2+|
000040e0  28 62 63 25 2d 31 29 2a  33 29 3d a3 3a f2 66 6f  |(bc%-1)*3)=.:.fo|
000040f0  72 63 65 72 65 64 72 61  77 0d 15 18 05 cc 0d 15  |rceredraw.......|
00004100  22 34 e3 6c 3d 62 63 25  b8 65 25 3a e3 6f 3d 30  |"4.l=bc%.e%:.o=0|
00004110  b8 33 3a 3f 28 6c 25 2b  6f 2b 28 6c 2d 31 29 2a  |.3:?(l%+o+(l-1)*|
00004120  33 29 3d 3f 28 6c 25 2b  6f 2b 6c 2a 33 29 3a ed  |3)=?(l%+o+l*3):.|
00004130  3a ed 0d 15 2c 14 f2 73  65 74 65 78 74 65 6e 74  |:...,..setextent|
00004140  28 65 25 2d 31 29 0d 15  36 05 cd 0d 15 40 0e 75  |(e%-1)..6....@.u|
00004150  70 74 6f 64 61 74 65 3d  a3 0d 15 4a 05 cb 0d 15  |ptodate=...J....|
00004160  54 04 0d 15 5e 08 c9 64  6d 25 0d 15 68 0e c8 8e  |T...^..dm%..h...|
00004170  6f 72 69 67 69 6e 25 ca  0d 15 72 08 c9 65 57 25  |origin%...r..eW%|
00004180  0d 15 7c 28 24 28 a4 69  6d 28 65 57 25 2c 31 29  |..|($(.im(eW%,1)|
00004190  29 3d 6d 24 28 62 25 21  30 2b 31 29 3a f2 75 70  |)=m$(b%!0+1):.up|
000041a0  64 28 65 57 25 2c 31 29  0d 15 86 08 c9 64 57 25  |d(eW%,1).....dW%|
000041b0  0d 15 90 20 e7 62 25 21  30 2b 31 3d 31 33 f2 73  |... .b%!0+1=13.s|
000041c0  6c 28 30 29 8b f2 73 6c  28 62 25 21 30 2b 31 29  |l(0)..sl(b%!0+1)|
000041d0  0d 15 9a 08 c9 6e 57 25  0d 15 a4 28 24 28 a4 69  |.....nW%...($(.i|
000041e0  6d 28 6e 57 25 2c 31 29  29 3d 6d 24 28 62 25 21  |m(nW%,1))=m$(b%!|
000041f0  30 2b 31 29 3a f2 75 70  64 28 6e 57 25 2c 31 29  |0+1):.upd(nW%,1)|
00004200  0d 15 ae 05 cb 0d 15 b8  04 0d 15 c2 08 c9 6d 6d  |..............mm|
00004210  25 0d 15 cc 0b c8 8e 62  25 21 30 ca 0d 15 d6 13  |%......b%!0.....|
00004220  c9 31 3a f2 63 6c 65 61  72 73 65 61 72 63 68 0d  |.1:.clearsearch.|
00004230  15 e0 0d c9 32 3a f2 73  6c 28 30 29 0d 15 ea 1e  |....2:.sl(0)....|
00004240  c9 33 3a e7 62 64 73 25  3e 35 34 35 f2 6f 70 65  |.3:.bds%>545.ope|
00004250  6e 77 28 62 6c 57 25 29  3a e1 0d 15 f4 0d f2 63  |nw(blW%):......c|
00004260  6c 65 61 72 6e 65 77 0d  15 fe 10 c9 34 3a f2 73  |learnew.....4:.s|
00004270  61 76 65 64 61 74 61 0d  16 08 05 cb 0d 16 12 04  |avedata.........|
00004280  0d 16 1c 05 cb 0d 16 26  3a c8 99 22 57 69 6d 70  |.......&:.."Wimp|
00004290  5f 47 65 74 50 6f 69 6e  74 65 72 49 6e 66 6f 22  |_GetPointerInfo"|
000042a0  2c 2c 62 25 3a e7 62 25  21 38 3d 31 f2 6d 65 6e  |,,b%:.b%!8=1.men|
000042b0  75 28 6c 61 74 65 73 74  6d 25 2c 30 2c 30 29 0d  |u(latestm%,0,0).|
000042c0  16 30 05 e1 0d 16 3a 04  0d 16 44 2a dd f2 73 6c  |.0....:...D*..sl|
000042d0  28 75 70 64 61 74 65 29  3a e7 75 70 64 61 74 65  |(update):.update|
000042e0  3d 2d 31 75 70 64 61 74  65 3d 6c 69 73 74 73 65  |=-1update=listse|
000042f0  74 25 0d 16 4e 18 f2 64  74 73 3a 6c 69 73 74 73  |t%..N..dts:lists|
00004300  65 74 25 3d 75 70 64 61  74 65 0d 16 58 3f e7 75  |et%=update..X?.u|
00004310  70 64 61 74 65 3e 30 20  24 28 a4 69 6d 28 64 57  |pdate>0 $(.im(dW|
00004320  25 2c 38 29 29 3d 6d 24  28 75 70 64 61 74 65 29  |%,8))=m$(update)|
00004330  8b 24 28 a4 69 6d 28 64  57 25 2c 38 29 29 3d 22  |.$(.im(dW%,8))="|
00004340  57 61 72 6e 69 6e 67 73  22 0d 16 62 0f f2 75 70  |Warnings"..b..up|
00004350  64 28 64 57 25 2c 38 29  0d 16 6c 08 65 25 3d 30  |d(dW%,8)..l.e%=0|
00004360  0d 16 76 0c e7 62 64 73  25 3e 30 8c 0d 16 80 14  |..v..bds%>0.....|
00004370  c8 99 22 48 6f 75 72 67  6c 61 73 73 5f 4f 6e 22  |.."Hourglass_On"|
00004380  0d 16 8a 0e e3 73 6c 3d  31 b8 62 64 73 25 0d 16  |.....sl=1.bds%..|
00004390  94 28 c8 99 22 48 6f 75  72 67 6c 61 73 73 5f 50  |.(.."Hourglass_P|
000043a0  65 72 63 65 6e 74 61 67  65 22 2c 73 6c 2a 31 30  |ercentage",sl*10|
000043b0  30 2f 62 64 73 25 0d 16  9e 17 73 62 64 25 3d 28  |0/bds%....sbd%=(|
000043c0  64 25 2b 33 38 2a 28 73  6c 2d 31 29 29 0d 16 a8  |d%+38*(sl-1))...|
000043d0  21 e7 3f 28 73 62 64 25  2b 32 37 29 3d 75 70 64  |!.?(sbd%+27)=upd|
000043e0  61 74 65 20 84 75 70 64  61 74 65 3d 30 8c 0d 16  |ate .update=0...|
000043f0  b2 09 65 25 2b 3d 31 0d  16 bc 1a 3f 28 6c 25 2b  |..e%+=1....?(l%+|
00004400  28 65 25 2d 31 29 2a 33  29 3d 73 6c 20 80 32 35  |(e%-1)*3)=sl .25|
00004410  35 0d 16 c6 26 3f 28 6c  25 2b 31 2b 28 65 25 2d  |5...&?(l%+1+(e%-|
00004420  31 29 2a 33 29 3d 28 73  6c 20 80 28 32 35 35 3c  |1)*3)=(sl .(255<|
00004430  3c 38 29 29 3e 3e 38 0d  16 d0 55 3f 28 6c 25 2b  |<8))>>8...U?(l%+|
00004440  32 2b 28 65 25 2d 31 29  2a 33 29 3d a4 77 61 72  |2+(e%-1)*3)=.war|
00004450  6e 28 64 64 2c 6d 6d 2c  79 79 2c 3f 28 73 62 64  |n(dd,mm,yy,?(sbd|
00004460  25 2b 32 36 29 2c 3f 28  73 62 64 25 2b 32 37 29  |%+26),?(sbd%+27)|
00004470  2c 3f 28 73 62 64 25 2b  32 39 29 2b 31 39 30 30  |,?(sbd%+29)+1900|
00004480  2c 3f 28 73 62 64 25 2b  32 38 29 29 0d 16 da 26  |,?(sbd%+28))...&|
00004490  e7 75 70 64 61 74 65 3d  30 80 3f 28 6c 25 2b 32  |.update=0.?(l%+2|
000044a0  2b 28 65 25 2d 31 29 2a  33 29 3d a3 20 65 25 2d  |+(e%-1)*3)=. e%-|
000044b0  3d 31 0d 16 e4 05 cd 0d  16 ee 05 ed 0d 16 f8 0f  |=1..............|
000044c0  e7 73 6f 72 74 20 f2 73  6f 72 74 0d 17 02 05 cd  |.sort .sort.....|
000044d0  0d 17 0c 24 f2 73 65 74  65 78 74 65 6e 74 28 65  |...$.setextent(e|
000044e0  25 29 3a c8 99 22 48 6f  75 72 67 6c 61 73 73 5f  |%):.."Hourglass_|
000044f0  4f 66 66 22 0d 17 16 05  e1 0d 17 20 04 0d 17 2a  |Off"....... ...*|
00004500  0a dd f2 73 6f 72 74 0d  17 34 0a e7 65 25 3c 32  |...sort..4..e%<2|
00004510  e1 0d 17 3e 79 e3 61 3d  31 b8 65 25 2d 31 3a e3  |...>y.a=1.e%-1:.|
00004520  62 3d 61 2b 31 b8 65 25  3a 61 6f 25 3d 64 25 2b  |b=a+1.e%:ao%=d%+|
00004530  33 38 2a 28 3f 28 6c 25  2b 33 2a 28 61 2d 31 29  |38*(?(l%+3*(a-1)|
00004540  29 2b 28 3f 28 6c 25 2b  31 2b 33 2a 28 61 2d 31  |)+(?(l%+1+3*(a-1|
00004550  29 29 3c 3c 38 29 2d 31  29 3a 62 6f 25 3d 64 25  |))<<8)-1):bo%=d%|
00004560  2b 33 38 2a 28 3f 28 6c  25 2b 33 2a 28 62 2d 31  |+38*(?(l%+3*(b-1|
00004570  29 29 2b 28 3f 28 6c 25  2b 31 2b 33 2a 28 62 2d  |))+(?(l%+1+3*(b-|
00004580  31 29 29 3c 3c 38 29 2d  31 29 0d 17 48 a1 e7 3f  |1))<<8)-1)..H..?|
00004590  28 61 6f 25 2b 32 36 29  3e 3f 28 62 6f 25 2b 32  |(ao%+26)>?(bo%+2|
000045a0  36 29 80 3f 28 61 6f 25  2b 32 37 29 3d 3f 28 62  |6).?(ao%+27)=?(b|
000045b0  6f 25 2b 32 37 29 84 3f  28 61 6f 25 2b 32 37 29  |o%+27).?(ao%+27)|
000045c0  3e 3f 28 62 6f 25 2b 32  37 29 c8 94 3f 28 6c 25  |>?(bo%+27)..?(l%|
000045d0  2b 33 2a 28 61 2d 31 29  29 2c 3f 28 6c 25 2b 33  |+3*(a-1)),?(l%+3|
000045e0  2a 28 62 2d 31 29 29 3a  c8 94 3f 28 6c 25 2b 31  |*(b-1)):..?(l%+1|
000045f0  2b 33 2a 28 61 2d 31 29  29 2c 3f 28 6c 25 2b 31  |+3*(a-1)),?(l%+1|
00004600  2b 33 2a 28 62 2d 31 29  29 3a c8 94 3f 28 6c 25  |+3*(b-1)):..?(l%|
00004610  2b 32 2b 33 2a 28 61 2d  31 29 29 2c 3f 28 6c 25  |+2+3*(a-1)),?(l%|
00004620  2b 32 2b 33 2a 28 62 2d  31 29 29 0d 17 52 05 ed  |+2+3*(b-1))..R..|
00004630  0d 17 5c 05 ed 0d 17 66  05 e1 0d 17 70 04 0d 17  |..\....f....p...|
00004640  7a 09 dd f2 64 74 73 0d  17 84 10 64 64 3d bb c1  |z...dts....dd=..|
00004650  91 24 2c 35 2c 32 29 0d  17 8e 19 6d 6d 3d a4 6d  |.$,5,2)....mm=.m|
00004660  6f 6e 74 68 6e 6f 28 c1  91 24 2c 38 2c 33 29 29  |onthno(..$,8,3))|
00004670  0d 17 98 11 79 79 3d bb  c1 91 24 2c 31 32 2c 34  |....yy=...$,12,4|
00004680  29 0d 17 a2 05 e1 0d 17  ac 04 0d 17 b6 22 dd a4  |)............"..|
00004690  6d 6f 6e 74 68 6e 6f 28  6d 24 29 3a e7 6d 24 3d  |monthno(m$):.m$=|
000046a0  22 57 61 72 6e 69 6e 67  73 22 3d 30 0d 17 c0 25  |"Warnings"=0...%|
000046b0  e3 53 3d 31 b8 31 32 3a  e7 6d 24 28 53 29 3d 6d  |.S=1.12:.m$(S)=m|
000046c0  24 84 c0 6d 24 28 53 29  2c 33 29 3d 6d 24 44 3d  |$..m$(S),3)=m$D=|
000046d0  53 0d 17 ca 08 ed 3a 3d  44 0d 17 d4 04 0d 17 de  |S.....:=D.......|
000046e0  16 dd a4 64 61 74 65 76  61 6c 69 64 28 64 64 2c  |...datevalid(dd,|
000046f0  6d 6d 29 0d 17 e8 0c e7  64 64 3d 30 8c 3d 30 0d  |mm).....dd=0.=0.|
00004700  17 f2 0a c8 8e 6d 6d 20  ca 0d 17 fc 1b c9 31 2c  |.....mm ......1,|
00004710  33 2c 35 2c 37 2c 38 2c  31 30 3a e7 64 64 3e 33  |3,5,7,8,10:.dd>3|
00004720  31 8c 3d 30 0d 18 06 10  c9 32 3a e7 64 64 3e 32  |1.=0.....2:.dd>2|
00004730  39 8c 3d 30 0d 18 10 0e  7f e7 64 64 3e 33 30 8c  |9.=0......dd>30.|
00004740  3d 30 0d 18 1a 05 cb 0d  18 24 06 3d b9 0d 18 2e  |=0.......$.=....|
00004750  04 0d 18 38 23 dd a4 64  61 79 73 28 63 64 25 2c  |...8#..days(cd%,|
00004760  63 6d 25 2c 63 79 25 2c  65 64 25 2c 65 6d 25 2c  |cm%,cy%,ed%,em%,|
00004770  65 79 25 29 0d 18 42 7e  e7 63 79 25 3c 31 37 35  |ey%)..B~.cy%<175|
00004780  33 84 65 79 25 3c 31 37  35 33 f2 6d 73 67 28 22  |3.ey%<1753.msg("|
00004790  42 65 63 61 75 73 65 20  74 68 65 20 47 72 65 67  |Because the Greg|
000047a0  6f 72 69 61 6e 20 63 61  6c 65 6e 64 61 72 20 77  |orian calendar w|
000047b0  61 73 20 6f 6e 6c 79 20  69 6e 74 72 6f 64 75 63  |as only introduc|
000047c0  65 64 20 69 6e 20 31 37  35 32 2c 20 49 20 63 61  |ed in 1752, I ca|
000047d0  6e 27 74 20 77 6f 72 6b  20 6f 75 74 20 6e 75 6d  |n't work out num|
000047e0  62 65 72 20 6f 66 20 64  61 79 73 21 22 29 3a 3d  |ber of days!"):=|
000047f0  2d 31 0d 18 4c 24 e7 65  64 25 3d 32 39 80 65 6d  |-1..L$.ed%=29.em|
00004800  25 3d 32 80 ac a4 6c 65  61 70 79 65 61 72 28 65  |%=2...leapyear(e|
00004810  79 25 29 3d 2d 31 0d 18  56 0e e7 65 79 25 3c 63  |y%)=-1..V..ey%<c|
00004820  79 25 3d 30 0d 18 60 0d  e7 65 79 25 3d 63 79 25  |y%=0..`..ey%=cy%|
00004830  8c 0d 18 6a 0e e7 65 6d  25 3c 63 6d 25 3d 30 0d  |...j..em%<cm%=0.|
00004840  18 74 17 e7 65 6d 25 3d  63 6d 25 80 65 64 25 3c  |.t..em%=cm%.ed%<|
00004850  3d 63 64 25 3d 30 0d 18  7e 05 cd 0d 18 88 1d 4b  |=cd%=0..~......K|
00004860  3d bb c1 22 31 32 30 31  31 32 32 33 34 34 35 35  |=.."120112234455|
00004870  22 2c 63 6d 25 2c 31 29  0d 18 92 1a 44 3d 63 64  |",cm%,1)....D=cd|
00004880  25 2b 33 30 2a 63 6d 25  2b 4b 2b 33 36 35 2a 63  |%+30*cm%+K+365*c|
00004890  79 25 0d 18 9c 1a e3 4c  25 3d 31 37 35 36 b8 63  |y%.....L%=1756.c|
000048a0  79 25 2b 28 63 6d 25 3c  33 29 88 34 0d 18 a6 1d  |y%+(cm%<3).4....|
000048b0  44 3d 44 2d 28 4c 25 83  31 30 30 3e 30 29 2d 28  |D=D-(L%.100>0)-(|
000048c0  4c 25 83 34 30 30 3d 30  29 0d 18 b0 07 ed 4c 25  |L%.400=0).....L%|
000048d0  0d 18 ba 08 44 46 3d 44  0d 18 c4 1d 4b 3d bb c1  |....DF=D....K=..|
000048e0  22 31 32 30 31 31 32 32  33 34 34 35 35 22 2c 65  |"120112234455",e|
000048f0  6d 25 2c 31 29 0d 18 ce  1a 44 3d 65 64 25 2b 33  |m%,1)....D=ed%+3|
00004900  30 2a 65 6d 25 2b 4b 2b  33 36 35 2a 65 79 25 0d  |0*em%+K+365*ey%.|
00004910  18 d8 1a e3 4c 25 3d 31  37 35 36 b8 65 79 25 2b  |....L%=1756.ey%+|
00004920  28 65 6d 25 3c 33 29 88  34 0d 18 e2 1d 44 3d 44  |(em%<3).4....D=D|
00004930  2d 28 4c 25 83 31 30 30  3e 30 29 2d 28 4c 25 83  |-(L%.100>0)-(L%.|
00004940  34 30 30 3d 30 29 0d 18  ec 07 ed 4c 25 0d 18 f6  |400=0).....L%...|
00004950  0c 3d 94 28 44 46 2d 44  29 0d 19 00 04 0d 19 0a  |.=.(DF-D).......|
00004960  26 dd a4 77 61 72 6e 28  63 64 25 2c 63 6d 25 2c  |&..warn(cd%,cm%,|
00004970  63 79 25 2c 65 64 25 2c  65 6d 25 2c 65 79 25 2c  |cy%,ed%,em%,ey%,|
00004980  77 25 29 0d 19 14 7e e7  63 79 25 3c 31 37 35 33  |w%)...~.cy%<1753|
00004990  84 65 79 25 3c 31 37 35  33 f2 6d 73 67 28 22 42  |.ey%<1753.msg("B|
000049a0  65 63 61 75 73 65 20 74  68 65 20 47 72 65 67 6f  |ecause the Grego|
000049b0  72 69 61 6e 20 63 61 6c  65 6e 64 61 72 20 77 61  |rian calendar wa|
000049c0  73 20 6f 6e 6c 79 20 69  6e 74 72 6f 64 75 63 65  |s only introduce|
000049d0  64 20 69 6e 20 31 37 35  32 2c 20 49 20 63 61 6e  |d in 1752, I can|
000049e0  27 74 20 77 6f 72 6b 20  6f 75 74 20 6e 75 6d 62  |'t work out numb|
000049f0  65 72 20 6f 66 20 64 61  79 73 21 22 29 3a 3d 2d  |er of days!"):=-|
00004a00  31 0d 19 1e 08 e7 77 25  8c 0d 19 28 0b e3 64 3d  |1.....w%...(..d=|
00004a10  31 b8 77 25 0d 19 32 0a  65 64 25 2d 3d 31 0d 19  |1.w%..2.ed%-=1..|
00004a20  3c 0b e7 65 64 25 3d 30  8c 0d 19 46 0a c8 8e 65  |<..ed%=0...F...e|
00004a30  6d 25 ca 0d 19 50 1f c9  32 2c 34 2c 36 2c 38 2c  |m%...P..2,4,6,8,|
00004a40  39 2c 31 31 3a 65 6d 25  2d 3d 31 3a 65 64 25 3d  |9,11:em%-=1:ed%=|
00004a50  33 31 0d 19 5a 1b c9 31  3a 65 6d 25 3d 31 32 3a  |31..Z..1:em%=12:|
00004a60  65 64 25 3d 33 31 3a 65  79 25 2d 3d 31 0d 19 64  |ed%=31:ey%-=1..d|
00004a70  29 c9 33 3a 65 6d 25 3d  32 3a e7 a4 6c 65 61 70  |).3:em%=2:..leap|
00004a80  79 65 61 72 28 65 79 25  29 65 64 25 3d 32 39 8b  |year(ey%)ed%=29.|
00004a90  65 64 25 3d 32 38 0d 19  6e 12 7f 65 6d 25 2d 3d  |ed%=28..n..em%-=|
00004aa0  31 3a 65 64 25 3d 33 30  0d 19 78 05 cb 0d 19 82  |1:ed%=30..x.....|
00004ab0  05 cd 0d 19 8c 05 ed 0d  19 96 05 cd 0d 19 a0 0f  |................|
00004ac0  e7 63 79 25 3e 65 79 25  8c 3d b9 0d 19 aa 16 e7  |.cy%>ey%.=......|
00004ad0  63 79 25 3d 65 79 25 80  63 6d 25 3e 65 6d 25 3d  |cy%=ey%.cm%>em%=|
00004ae0  b9 0d 19 b4 1f e7 63 79  25 3d 65 79 25 80 63 6d  |......cy%=ey%.cm|
00004af0  25 3d 65 6d 25 80 63 64  25 3e 3d 65 64 25 3d b9  |%=em%.cd%>=ed%=.|
00004b00  0d 19 be 06 3d a3 0d 19  c8 04 0d 19 d2 1e dd a4  |....=...........|
00004b10  77 61 72 6e 64 61 74 65  28 65 64 25 2c 65 6d 25  |warndate(ed%,em%|
00004b20  2c 65 79 25 2c 77 25 29  0d 19 dc 08 e7 77 25 8c  |,ey%,w%).....w%.|
00004b30  0d 19 e6 0b e3 64 3d 31  b8 77 25 0d 19 f0 0a 65  |.....d=1.w%....e|
00004b40  64 25 2d 3d 31 0d 19 fa  0b e7 65 64 25 3d 30 8c  |d%-=1.....ed%=0.|
00004b50  0d 1a 04 0a c8 8e 65 6d  25 ca 0d 1a 0e 1f c9 32  |......em%......2|
00004b60  2c 34 2c 36 2c 38 2c 39  2c 31 31 3a 65 6d 25 2d  |,4,6,8,9,11:em%-|
00004b70  3d 31 3a 65 64 25 3d 33  31 0d 1a 18 1b c9 31 3a  |=1:ed%=31.....1:|
00004b80  65 6d 25 3d 31 32 3a 65  64 25 3d 33 31 3a 65 79  |em%=12:ed%=31:ey|
00004b90  25 2d 3d 31 0d 1a 22 29  c9 33 3a 65 6d 25 3d 32  |%-=1..").3:em%=2|
00004ba0  3a e7 a4 6c 65 61 70 79  65 61 72 28 65 79 25 29  |:..leapyear(ey%)|
00004bb0  65 64 25 3d 32 39 8b 65  64 25 3d 32 38 0d 1a 2c  |ed%=29.ed%=28..,|
00004bc0  12 7f 65 6d 25 2d 3d 31  3a 65 64 25 3d 33 30 0d  |..em%-=1:ed%=30.|
00004bd0  1a 36 05 cb 0d 1a 40 05  cd 0d 1a 4a 05 ed 0d 1a  |.6....@....J....|
00004be0  54 05 cd 0d 1a 5e 22 3d  c3 65 64 25 2b 22 20 22  |T....^"=.ed%+" "|
00004bf0  2b c0 6d 24 28 65 6d 25  29 2c 33 29 2b 22 20 22  |+.m$(em%),3)+" "|
00004c00  2b c3 65 79 25 0d 1a 68  04 0d 1a 72 15 dd a4 6c  |+.ey%..h...r...l|
00004c10  65 61 70 79 65 61 72 28  79 65 61 72 25 29 0d 1a  |eapyear(year%)..|
00004c20  7c 53 e7 28 79 65 61 72  25 2f 34 3d a8 28 79 65  ||S.(year%/4=.(ye|
00004c30  61 72 25 2f 34 29 29 80  ac 28 79 65 61 72 25 2f  |ar%/4))..(year%/|
00004c40  31 30 30 3d a8 28 79 65  61 72 25 2f 31 30 30 29  |100=.(year%/100)|
00004c50  29 84 28 79 65 61 72 25  2f 34 30 30 3d a8 28 79  |).(year%/400=.(y|
00004c60  65 61 72 25 2f 34 30 30  29 29 8c 3d b9 20 8b 3d  |ear%/400)).=. .=|
00004c70  a3 0d 1a 86 04 0d 1a 90  16 dd f2 63 68 65 63 6b  |...........check|
00004c80  28 65 6e 76 24 29 3a f2  64 74 73 0d 1a 9a 19 e7  |(env$):.dts.....|
00004c90  65 6e 76 24 3d 22 62 22  80 62 64 73 25 3d 30 f2  |env$="b".bds%=0.|
00004ca0  71 75 69 74 0d 1a a4 0c  e7 62 64 73 25 3d 30 e1  |quit.....bds%=0.|
00004cb0  0d 1a ae 14 c8 99 22 48  6f 75 72 67 6c 61 73 73  |......"Hourglass|
00004cc0  5f 4f 6e 22 0d 1a b8 08  73 6c 3d 31 0d 1a c2 2a  |_On"....sl=1...*|
00004cd0  f5 3a c8 99 22 48 6f 75  72 67 6c 61 73 73 5f 50  |.:.."Hourglass_P|
00004ce0  65 72 63 65 6e 74 61 67  65 22 2c 31 30 30 2a 73  |ercentage",100*s|
00004cf0  6c 2f 62 64 73 25 0d 1a  cc 1d 73 62 64 25 3d 28  |l/bds%....sbd%=(|
00004d00  64 25 2b 33 38 2a 28 73  6c 2d 31 29 29 3a 73 6c  |d%+38*(sl-1)):sl|
00004d10  2b 3d 31 0d 1a d6 46 77  3d a4 77 61 72 6e 28 64  |+=1...Fw=.warn(d|
00004d20  64 2c 6d 6d 2c 79 79 2c  3f 28 73 62 64 25 2b 32  |d,mm,yy,?(sbd%+2|
00004d30  36 29 2c 3f 28 73 62 64  25 2b 32 37 29 2c 3f 28  |6),?(sbd%+27),?(|
00004d40  73 62 64 25 2b 32 39 29  2b 31 39 30 30 2c 3f 28  |sbd%+29)+1900,?(|
00004d50  73 62 64 25 2b 32 38 29  29 0d 1a e0 0f fd 77 20  |sbd%+28)).....w |
00004d60  84 73 6c 3e 62 64 73 25  0d 1a ea 15 c8 99 22 48  |.sl>bds%......"H|
00004d70  6f 75 72 67 6c 61 73 73  5f 4f 66 66 22 0d 1a f4  |ourglass_Off"...|
00004d80  09 e7 ac 77 20 8c 0d 1a  fe 15 e7 65 6e 76 24 3d  |...w ......env$=|
00004d90  22 62 22 f2 71 75 69 74  20 8b e1 0d 1b 08 05 cd  |"b".quit .......|
00004da0  0d 1b 12 0b c8 8e 65 6e  76 24 ca 0d 1b 1c 50 c9  |......env$....P.|
00004db0  22 62 22 3a f2 73 65 74  73 74 61 74 65 28 77 57  |"b":.setstate(wW|
00004dc0  25 2c 33 2c 31 3c 3c 32  33 2c 31 3c 3c 32 33 29  |%,3,1<<23,1<<23)|
00004dd0  3a f2 73 65 74 73 74 61  74 65 28 77 57 25 2c 34  |:.setstate(wW%,4|
00004de0  2c 31 3c 3c 32 33 2c 31  3c 3c 32 33 29 3a f2 6f  |,1<<23,1<<23):.o|
00004df0  70 65 6e 77 28 77 57 25  29 3a e1 0d 1b 26 31 c9  |penw(wW%):...&1.|
00004e00  22 72 22 3a f2 73 65 74  73 74 61 74 65 28 77 57  |"r":.setstate(wW|
00004e10  25 2c 36 2c 31 3c 3c 32  33 2c 31 3c 3c 32 33 29  |%,6,1<<23,1<<23)|
00004e20  3a f2 6f 70 65 6e 77 28  77 57 25 29 0d 1b 30 05  |:.openw(wW%)..0.|
00004e30  cb 0d 1b 3a 05 e1 0d 1b  44 04 0d 1b 4e 0e dd f2  |...:....D...N...|
00004e40  63 6c 65 61 72 6e 65 77  0d 1b 58 ee 24 28 a4 69  |clearnew..X.$(.i|
00004e50  6d 28 6e 57 25 2c 36 29  29 3d 22 22 3a 24 28 a4  |m(nW%,6))="":$(.|
00004e60  69 6d 28 6e 57 25 2c 39  29 29 3d 22 22 3a 24 28  |im(nW%,9))="":$(|
00004e70  a4 69 6d 28 6e 57 25 2c  31 36 29 29 3d 22 22 3a  |.im(nW%,16))="":|
00004e80  24 28 a4 69 6d 28 6e 57  25 2c 31 38 29 29 3d 22  |$(.im(nW%,18))="|
00004e90  37 22 3a 24 28 a4 69 6d  28 6e 57 25 2c 31 34 29  |7":$(.im(nW%,14)|
00004ea0  29 3d 22 22 3a f2 73 65  6c 65 63 74 28 6e 57 25  |)="":.select(nW%|
00004eb0  2c 31 31 29 3a f2 64 65  73 65 6c 65 63 74 28 6e  |,11):.deselect(n|
00004ec0  57 25 2c 32 31 29 3a f2  64 65 73 65 6c 65 63 74  |W%,21):.deselect|
00004ed0  28 6e 57 25 2c 31 33 29  3a f2 73 65 74 73 74 61  |(nW%,13):.setsta|
00004ee0  74 65 28 6e 57 25 2c 31  34 2c 31 3c 3c 32 32 2c  |te(nW%,14,1<<22,|
00004ef0  31 3c 3c 32 32 29 3a f2  64 65 73 65 6c 65 63 74  |1<<22):.deselect|
00004f00  28 6e 57 25 2c 31 32 29  3a f2 73 65 74 73 74 61  |(nW%,12):.setsta|
00004f10  74 65 28 6e 57 25 2c 31  36 2c 31 3c 3c 32 32 2c  |te(nW%,16,1<<22,|
00004f20  31 3c 3c 32 32 29 3a f2  73 65 6c 65 63 74 28 6e  |1<<22):.select(n|
00004f30  57 25 2c 31 37 29 0d 1b  62 24 f2 63 72 28 6e 57  |W%,17)..b$.cr(nW|
00004f40  25 29 3a f2 6f 70 65 6e  77 28 6e 57 25 29 3a f2  |%):.openw(nW%):.|
00004f50  73 74 63 28 6e 57 25 2c  36 29 0d 1b 6c 05 e1 0d  |stc(nW%,6)..l...|
00004f60  1b 76 04 0d 1b 80 11 dd  f2 6e 65 77 62 69 72 74  |.v.......newbirt|
00004f70  68 64 61 79 0d 1b 8a 0b  6e 62 6f 6b 25 3d b9 0d  |hday....nbok%=..|
00004f80  1b 94 1b 6d 3d a4 6d 6f  6e 74 68 6e 6f 28 24 a4  |...m=.monthno($.|
00004f90  69 6d 28 6e 57 25 2c 31  29 29 0d 1b 9e 14 64 3d  |im(nW%,1))....d=|
00004fa0  bb 24 28 a4 69 6d 28 6e  57 25 2c 39 29 29 0d 1b  |.$(.im(nW%,9))..|
00004fb0  a8 1b 77 24 3d 24 28 a4  69 6d 28 6e 57 25 2c 31  |..w$=$(.im(nW%,1|
00004fc0  38 29 29 3a 77 3d bb 77  24 0d 1b b2 17 6e 24 3d  |8)):w=.w$....n$=|
00004fd0  a4 69 63 6f 6e 74 65 78  74 28 6e 57 25 2c 36 29  |.icontext(nW%,6)|
00004fe0  0d 1b bc 16 66 79 3d bb  28 24 a4 69 6d 28 6e 57  |....fy=.($.im(nW|
00004ff0  25 2c 31 36 29 29 0d 1b  c6 22 e7 66 79 3c 31 37  |%,16))...".fy<17|
00005000  35 33 20 80 a4 73 65 6c  65 63 74 65 64 28 6e 57  |53 ..selected(nW|
00005010  25 2c 31 37 29 3d 30 8c  0d 1b d0 85 f2 6d 73 67  |%,17)=0......msg|
00005020  28 22 57 61 72 6e 69 6e  67 21 20 54 68 69 73 20  |("Warning! This |
00005030  64 61 74 65 20 69 73 20  69 6e 61 63 63 75 72 61  |date is inaccura|
00005040  74 65 20 62 65 63 61 75  73 65 20 74 68 65 20 47  |te because the G|
00005050  72 65 67 6f 72 69 61 6e  20 63 61 6c 65 6e 64 61  |regorian calenda|
00005060  72 20 77 61 73 20 6e 6f  74 20 69 6e 74 72 6f 64  |r was not introd|
00005070  75 63 65 64 20 75 6e 74  69 6c 20 31 37 35 33 20  |uced until 1753 |
00005080  2d 20 59 6f 75 20 6d 61  79 20 77 69 73 68 20 74  |- You may wish t|
00005090  6f 20 63 68 61 6e 67 65  20 69 74 22 29 0d 1b da  |o change it")...|
000050a0  61 cc e7 ac a4 6c 65 61  70 79 65 61 72 28 66 79  |a....leapyear(fy|
000050b0  29 80 64 3d 32 39 80 6d  3d 32 80 a4 73 65 6c 65  |).d=29.m=2..sele|
000050c0  63 74 65 64 28 6e 57 25  2c 31 37 29 3d 30 f2 6d  |cted(nW%,17)=0.m|
000050d0  73 67 28 22 54 68 69 73  20 79 65 61 72 20 77 61  |sg("This year wa|
000050e0  73 20 6e 6f 74 20 61 20  6c 65 61 70 20 79 65 61  |s not a leap yea|
000050f0  72 21 22 29 3a 6e 62 6f  6b 25 3d a3 3a e1 0d 1b  |r!"):nbok%=.:...|
00005100  e4 05 cd 0d 1b ee 44 e7  a9 6e 24 3c 31 84 77 24  |......D..n$<1.w$|
00005110  3d 22 22 84 ac a4 64 61  74 65 76 61 6c 69 64 28  |=""...datevalid(|
00005120  64 2c 6d 29 f2 6d 73 67  28 22 49 6e 61 63 63 65  |d,m).msg("Inacce|
00005130  70 74 61 62 6c 65 20 64  61 74 61 22 29 3a 6e 62  |ptable data"):nb|
00005140  6f 6b 25 3d a3 3a e1 0d  1b f8 51 e7 ac a4 73 65  |ok%=.:....Q...se|
00005150  6c 65 63 74 65 64 28 6e  57 25 2c 31 37 29 e7 66  |lected(nW%,17).f|
00005160  79 3e 79 79 20 84 24 a4  69 6d 28 6e 57 25 2c 31  |y>yy .$.im(nW%,1|
00005170  36 29 3d 22 22 f2 6d 73  67 28 22 49 6e 61 63 63  |6)="".msg("Inacc|
00005180  65 70 74 61 62 6c 65 20  64 61 74 61 22 29 3a 6e  |eptable data"):n|
00005190  62 6f 6b 25 3d a3 3a e1  0d 1c 02 0b 62 64 73 25  |bok%=.:.....bds%|
000051a0  2b 3d 31 0d 1c 0c 16 64  6f 25 3d 64 25 2b 28 62  |+=1....do%=d%+(b|
000051b0  64 73 25 2d 31 29 2a 33  38 0d 1c 16 2f 24 64 6f  |ds%-1)*38.../$do|
000051c0  25 3d 6e 24 3a 3f 28 64  6f 25 2b 32 36 29 3d 64  |%=n$:?(do%+26)=d|
000051d0  3a 3f 28 64 6f 25 2b 32  37 29 3d 6d 3a 3f 28 64  |:?(do%+27)=m:?(d|
000051e0  6f 25 2b 32 38 29 3d 77  0d 1c 20 27 e7 a4 73 65  |o%+28)=w.. '..se|
000051f0  6c 65 63 74 65 64 28 6e  57 25 2c 31 31 29 24 28  |lected(nW%,11)$(|
00005200  64 6f 25 2b 33 30 29 3d  22 42 74 68 64 79 22 0d  |do%+30)="Bthdy".|
00005210  1c 2a 27 e7 a4 73 65 6c  65 63 74 65 64 28 6e 57  |.*'..selected(nW|
00005220  25 2c 31 32 29 24 28 64  6f 25 2b 33 30 29 3d 22  |%,12)$(do%+30)="|
00005230  57 65 64 41 6e 22 0d 1c  34 27 e7 a4 73 65 6c 65  |WedAn"..4'..sele|
00005240  63 74 65 64 28 6e 57 25  2c 32 31 29 24 28 64 6f  |cted(nW%,21)$(do|
00005250  25 2b 33 30 29 3d 22 a0  a0 a0 a0 a0 22 0d 1c 3e  |%+30)="....."..>|
00005260  2c e7 a4 73 65 6c 65 63  74 65 64 28 6e 57 25 2c  |,..selected(nW%,|
00005270  31 33 29 24 28 64 6f 25  2b 33 30 29 3d 24 a4 69  |13)$(do%+30)=$.i|
00005280  6d 28 6e 57 25 2c 31 34  29 0d 1c 48 1b 3f 28 64  |m(nW%,14)..H.?(d|
00005290  6f 25 2b 33 36 29 3d 66  79 20 80 25 31 31 31 31  |o%+36)=fy .%1111|
000052a0  31 31 31 31 0d 1c 52 17  e7 a4 73 65 6c 65 63 74  |1111..R...select|
000052b0  65 64 28 6e 57 25 2c 31  37 29 8c 0d 1c 5c 24 3f  |ed(nW%,17)...\$?|
000052c0  28 64 6f 25 2b 33 37 29  3d 28 66 79 20 80 25 31  |(do%+37)=(fy .%1|
000052d0  31 31 31 30 30 30 30 30  30 30 30 29 3e 3e 38 0d  |11100000000)>>8.|
000052e0  1c 66 05 cc 0d 1c 70 2d  3f 28 64 6f 25 2b 33 37  |.f....p-?(do%+37|
000052f0  29 3d 25 31 30 30 30 30  2b 28 28 66 79 20 80 25  |)=%10000+((fy .%|
00005300  31 31 31 31 30 30 30 30  30 30 30 30 29 3e 3e 38  |111100000000)>>8|
00005310  29 0d 1c 7a 05 cd 0d 1c  84 08 f2 64 74 73 0d 1c  |)..z.......dts..|
00005320  8e 3f e7 6d 3c 6d 6d 20  84 28 64 3c 3d 64 64 20  |.?.m<mm .(d<=dd |
00005330  80 6d 6d 3d 6d 29 20 3f  28 64 6f 25 2b 32 39 29  |.mm=m) ?(do%+29)|
00005340  3d 79 79 2d 31 39 30 30  2b 31 20 8b 3f 28 64 6f  |=yy-1900+1 .?(do|
00005350  25 2b 32 39 29 3d 79 79  2d 31 39 30 30 0d 1c 98  |%+29)=yy-1900...|
00005360  0e e7 6d 3d 32 80 64 3d  32 39 8c 0d 1c a2 20 c8  |..m=2.d=29.... .|
00005370  95 ac a4 6c 65 61 70 79  65 61 72 28 3f 28 64 6f  |...leapyear(?(do|
00005380  25 2b 32 39 29 2b 31 39  30 30 29 0d 1c ac 10 3f  |%+29)+1900)....?|
00005390  28 64 6f 25 2b 32 39 29  2b 3d 31 0d 1c b6 05 ce  |(do%+29)+=1.....|
000053a0  0d 1c c0 05 cd 0d 1c ca  3e e7 62 64 73 25 3e 35  |........>.bds%>5|
000053b0  34 35 f2 6f 70 65 6e 77  28 62 6c 57 25 29 3a f2  |45.openw(blW%):.|
000053c0  63 77 28 6e 57 25 29 3a  f2 73 6c 28 2d 31 29 3a  |cw(nW%):.sl(-1):|
000053d0  6e 62 6f 6b 25 3d a3 20  8b 75 70 74 6f 64 61 74  |nbok%=. .uptodat|
000053e0  65 3d a3 0d 1c d4 05 e1  0d 1c de 04 0d 1c e8 14  |e=..............|
000053f0  dd f2 73 65 74 65 64 69  74 64 65 74 61 69 6c 73  |..seteditdetails|
00005400  0d 1c f2 0b 6e 62 6f 6b  25 3d b9 0d 1c fc 1b 6d  |....nbok%=.....m|
00005410  3d a4 6d 6f 6e 74 68 6e  6f 28 24 a4 69 6d 28 65  |=.monthno($.im(e|
00005420  57 25 2c 31 29 29 0d 1d  06 14 64 3d bb 24 28 a4  |W%,1))....d=.$(.|
00005430  69 6d 28 65 57 25 2c 39  29 29 0d 1d 10 1b 77 24  |im(eW%,9))....w$|
00005440  3d 24 28 a4 69 6d 28 65  57 25 2c 31 38 29 29 3a  |=$(.im(eW%,18)):|
00005450  77 3d bb 77 24 0d 1d 1a  17 6e 24 3d a4 69 63 6f  |w=.w$....n$=.ico|
00005460  6e 74 65 78 74 28 65 57  25 2c 36 29 0d 1d 24 16  |ntext(eW%,6)..$.|
00005470  66 79 3d bb 28 24 a4 69  6d 28 65 57 25 2c 31 36  |fy=.($.im(eW%,16|
00005480  29 29 0d 1d 2e 22 e7 66  79 3c 31 37 35 33 20 80  |))...".fy<1753 .|
00005490  a4 73 65 6c 65 63 74 65  64 28 65 57 25 2c 31 37  |.selected(eW%,17|
000054a0  29 3d 30 8c 0d 1d 38 85  f2 6d 73 67 28 22 57 61  |)=0...8..msg("Wa|
000054b0  72 6e 69 6e 67 21 20 54  68 69 73 20 64 61 74 65  |rning! This date|
000054c0  20 69 73 20 69 6e 61 63  63 75 72 61 74 65 20 62  | is inaccurate b|
000054d0  65 63 61 75 73 65 20 74  68 65 20 47 72 65 67 6f  |ecause the Grego|
000054e0  72 69 61 6e 20 63 61 6c  65 6e 64 61 72 20 77 61  |rian calendar wa|
000054f0  73 20 6e 6f 74 20 69 6e  74 72 6f 64 75 63 65 64  |s not introduced|
00005500  20 75 6e 74 69 6c 20 31  37 35 33 20 2d 20 59 6f  | until 1753 - Yo|
00005510  75 20 6d 61 79 20 77 69  73 68 20 74 6f 20 63 68  |u may wish to ch|
00005520  61 6e 67 65 20 69 74 22  29 0d 1d 42 61 cc e7 ac  |ange it")..Ba...|
00005530  a4 6c 65 61 70 79 65 61  72 28 66 79 29 80 64 3d  |.leapyear(fy).d=|
00005540  32 39 80 6d 3d 32 80 a4  73 65 6c 65 63 74 65 64  |29.m=2..selected|
00005550  28 65 57 25 2c 31 37 29  3d 30 f2 6d 73 67 28 22  |(eW%,17)=0.msg("|
00005560  54 68 69 73 20 79 65 61  72 20 77 61 73 20 6e 6f  |This year was no|
00005570  74 20 61 20 6c 65 61 70  20 79 65 61 72 21 22 29  |t a leap year!")|
00005580  3a 6e 62 6f 6b 25 3d a3  3a e1 0d 1d 4c 05 cd 0d  |:nbok%=.:...L...|
00005590  1d 56 44 e7 a9 6e 24 3c  31 84 77 24 3d 22 22 84  |.VD..n$<1.w$="".|
000055a0  ac a4 64 61 74 65 76 61  6c 69 64 28 64 2c 6d 29  |..datevalid(d,m)|
000055b0  f2 6d 73 67 28 22 49 6e  61 63 63 65 70 74 61 62  |.msg("Inacceptab|
000055c0  6c 65 20 64 61 74 61 22  29 3a 6e 62 6f 6b 25 3d  |le data"):nbok%=|
000055d0  a3 3a e1 0d 1d 60 18 e7  ac a4 73 65 6c 65 63 74  |.:...`....select|
000055e0  65 64 28 65 57 25 2c 31  37 29 8c 0d 1d 6a 5e e7  |ed(eW%,17)...j^.|
000055f0  66 79 3e 79 79 20 84 66  79 3d 79 79 20 80 6d 3e  |fy>yy .fy=yy .m>|
00005600  6d 6d 20 84 66 79 3d 79  79 20 80 6d 3d 6d 6d 20  |mm .fy=yy .m=mm |
00005610  80 64 3e 64 64 20 84 24  a4 69 6d 28 65 57 25 2c  |.d>dd .$.im(eW%,|
00005620  31 36 29 3d 22 22 f2 6d  73 67 28 22 49 6e 61 63  |16)="".msg("Inac|
00005630  63 65 70 74 61 62 6c 65  20 64 61 74 61 22 29 3a  |ceptable data"):|
00005640  6e 62 6f 6b 25 3d a3 3a  e1 0d 1d 74 05 cd 0d 1d  |nbok%=.:...t....|
00005650  7e 16 64 6f 25 3d 64 25  2b 28 77 62 64 25 2d 31  |~.do%=d%+(wbd%-1|
00005660  29 2a 33 38 0d 1d 88 2f  24 64 6f 25 3d 6e 24 3a  |)*38.../$do%=n$:|
00005670  3f 28 64 6f 25 2b 32 36  29 3d 64 3a 3f 28 64 6f  |?(do%+26)=d:?(do|
00005680  25 2b 32 37 29 3d 6d 3a  3f 28 64 6f 25 2b 32 38  |%+27)=m:?(do%+28|
00005690  29 3d 77 0d 1d 92 27 e7  a4 73 65 6c 65 63 74 65  |)=w...'..selecte|
000056a0  64 28 65 57 25 2c 31 31  29 24 28 64 6f 25 2b 33  |d(eW%,11)$(do%+3|
000056b0  30 29 3d 22 42 74 68 64  79 22 0d 1d 9c 27 e7 a4  |0)="Bthdy"...'..|
000056c0  73 65 6c 65 63 74 65 64  28 65 57 25 2c 31 32 29  |selected(eW%,12)|
000056d0  24 28 64 6f 25 2b 33 30  29 3d 22 57 65 64 41 6e  |$(do%+30)="WedAn|
000056e0  22 0d 1d a6 27 e7 a4 73  65 6c 65 63 74 65 64 28  |"...'..selected(|
000056f0  65 57 25 2c 32 30 29 24  28 64 6f 25 2b 33 30 29  |eW%,20)$(do%+30)|
00005700  3d 22 a0 a0 a0 a0 a0 22  0d 1d b0 2c e7 a4 73 65  |="....."...,..se|
00005710  6c 65 63 74 65 64 28 65  57 25 2c 31 33 29 24 28  |lected(eW%,13)$(|
00005720  64 6f 25 2b 33 30 29 3d  24 a4 69 6d 28 65 57 25  |do%+30)=$.im(eW%|
00005730  2c 31 34 29 0d 1d ba 1b  3f 28 64 6f 25 2b 33 36  |,14)....?(do%+36|
00005740  29 3d 66 79 20 80 25 31  31 31 31 31 31 31 31 0d  |)=fy .%11111111.|
00005750  1d c4 17 e7 a4 73 65 6c  65 63 74 65 64 28 65 57  |.....selected(eW|
00005760  25 2c 31 37 29 8c 0d 1d  ce 24 3f 28 64 6f 25 2b  |%,17)....$?(do%+|
00005770  33 37 29 3d 28 66 79 20  80 25 31 31 31 31 30 30  |37)=(fy .%111100|
00005780  30 30 30 30 30 30 29 3e  3e 38 0d 1d d8 05 cc 0d  |000000)>>8......|
00005790  1d e2 2d 3f 28 64 6f 25  2b 33 37 29 3d 25 31 30  |..-?(do%+37)=%10|
000057a0  30 30 30 2b 28 28 66 79  20 80 25 31 31 31 31 30  |000+((fy .%11110|
000057b0  30 30 30 30 30 30 30 29  3e 3e 38 29 0d 1d ec 05  |0000000)>>8)....|
000057c0  cd 0d 1d f6 08 f2 64 74  73 0d 1e 00 3f e7 6d 3c  |......dts...?.m<|
000057d0  6d 6d 20 84 28 64 3c 3d  64 64 20 80 6d 6d 3d 6d  |mm .(d<=dd .mm=m|
000057e0  29 20 3f 28 64 6f 25 2b  32 39 29 3d 79 79 2d 31  |) ?(do%+29)=yy-1|
000057f0  39 30 30 2b 31 20 8b 3f  28 64 6f 25 2b 32 39 29  |900+1 .?(do%+29)|
00005800  3d 79 79 2d 31 39 30 30  0d 1e 0a 0e e7 6d 3d 32  |=yy-1900.....m=2|
00005810  80 64 3d 32 39 8c 0d 1e  14 20 c8 95 ac a4 6c 65  |.d=29.... ....le|
00005820  61 70 79 65 61 72 28 3f  28 64 6f 25 2b 32 39 29  |apyear(?(do%+29)|
00005830  2b 31 39 30 30 29 0d 1e  1e 10 3f 28 64 6f 25 2b  |+1900)....?(do%+|
00005840  32 39 29 2b 3d 31 0d 1e  28 05 ce 0d 1e 32 05 cd  |29)+=1..(....2..|
00005850  0d 1e 3c 14 f2 73 6c 28  2d 31 29 3a f2 63 77 28  |..<..sl(-1):.cw(|
00005860  65 57 25 29 0d 1e 46 0e  75 70 74 6f 64 61 74 65  |eW%)..F.uptodate|
00005870  3d a3 0d 1e 50 05 e1 0d  1e 5a 04 0d 1e 64 1c dd  |=...P....Z...d..|
00005880  f2 64 65 6c 65 74 65 28  6e 6f 25 29 3a 75 70 74  |.delete(no%):upt|
00005890  6f 64 61 74 65 3d a3 0d  1e 6e 1b e7 62 64 73 25  |odate=...n..bds%|
000058a0  3d 31 62 64 73 25 3d 30  3a f2 73 6c 28 2d 31 29  |=1bds%=0:.sl(-1)|
000058b0  3a e1 0d 1e 78 0b 62 64  73 25 2d 3d 31 0d 1e 82  |:...x.bds%-=1...|
000058c0  28 6f 64 25 3d 28 64 25  2b 62 64 73 25 2a 33 38  |(od%=(d%+bds%*38|
000058d0  29 3a 6e 64 25 3d 28 64  25 2b 28 6e 6f 25 2d 31  |):nd%=(d%+(no%-1|
000058e0  29 2a 33 38 29 0d 1e 8c  1f e3 6c 3d 30 b8 33 37  |)*38).....l=0.37|
000058f0  3a 3f 28 6e 64 25 2b 6c  29 3d 3f 28 6f 64 25 2b  |:?(nd%+l)=?(od%+|
00005900  6c 29 3a ed 0d 1e 96 70  e3 63 3d 31 b8 65 25 3a  |l):....p.c=1.e%:|
00005910  e7 3f 28 6c 25 2b 28 63  2d 31 29 2a 33 29 2b 28  |.?(l%+(c-1)*3)+(|
00005920  28 3f 28 6c 25 2b 31 2b  28 63 2d 31 29 2a 33 29  |(?(l%+1+(c-1)*3)|
00005930  29 3c 3c 38 29 3d 62 64  73 25 2b 31 20 3f 28 6c  |)<<8)=bds%+1 ?(l|
00005940  25 2b 28 63 2d 31 29 2a  33 29 3d 6e 6f 25 80 32  |%+(c-1)*3)=no%.2|
00005950  35 35 3a 3f 28 6c 25 2b  31 2b 28 63 2d 31 29 2a  |55:?(l%+1+(c-1)*|
00005960  33 29 3d 28 6e 6f 25 80  28 32 35 35 3c 3c 38 29  |3)=(no%.(255<<8)|
00005970  29 3e 3e 38 0d 1e a0 05  ed 0d 1e aa 36 e3 6c 3d  |)>>8........6.l=|
00005980  62 63 25 b8 65 25 2d 31  3a e3 6f 3d 30 b8 33 3a  |bc%.e%-1:.o=0.3:|
00005990  3f 28 6c 25 2b 6f 2b 28  6c 2d 31 29 2a 33 29 3d  |?(l%+o+(l-1)*3)=|
000059a0  3f 28 6c 25 2b 6f 2b 6c  2a 33 29 3a ed 3a ed 0d  |?(l%+o+l*3):.:..|
000059b0  1e b4 14 f2 73 65 74 65  78 74 65 6e 74 28 65 25  |....setextent(e%|
000059c0  2d 31 29 0d 1e be 05 e1  0d 1e c8 04 0d 1e d2 0f  |-1).............|
000059d0  dd a4 75 70 70 65 72 28  73 24 29 0d 1e dc 09 65  |..upper(s$)....e|
000059e0  24 3d 22 22 0d 1e e6 0c  e3 63 3d 31 b8 a9 73 24  |$="".....c=1..s$|
000059f0  0d 1e f0 11 76 3d 97 28  c1 73 24 2c 63 2c 31 29  |....v=.(.s$,c,1)|
00005a00  29 0d 1e fa 16 e7 76 3e  3d 39 37 80 76 3c 3d 31  |).....v>=97.v<=1|
00005a10  32 32 76 2d 3d 33 32 0d  1f 04 16 e7 76 3e 3d 36  |22v-=32.....v>=6|
00005a20  35 80 76 3c 3d 39 30 65  24 2b 3d bd 76 0d 1f 0e  |5.v<=90e$+=.v...|
00005a30  05 ed 0d 1f 18 07 3d 65  24 0d 1f 22 04 0d 1f 2c  |......=e$.."...,|
00005a40  11 dd f2 63 6c 65 61 72  73 65 61 72 63 68 0d 1f  |...clearsearch..|
00005a50  36 26 e7 ac a4 77 6f 70  65 6e 28 73 65 61 72 63  |6&...wopen(searc|
00005a60  68 77 25 29 f2 6f 70 65  6e 77 28 73 65 61 72 63  |hw%).openw(searc|
00005a70  68 77 25 29 0d 1f 40 25  f2 73 65 74 73 74 61 74  |hw%)..@%.setstat|
00005a80  65 28 73 65 61 72 63 68  77 25 2c 37 2c 31 3c 3c  |e(searchw%,7,1<<|
00005a90  32 33 2c 31 3c 3c 32 33  29 0d 1f 4a 83 73 70 6f  |23,1<<23)..J.spo|
00005aa0  73 3d 31 3a 24 28 a4 69  6d 28 73 65 61 72 63 68  |s=1:$(.im(search|
00005ab0  77 25 2c 33 29 29 3d 22  22 3a f2 75 70 64 28 73  |w%,3))="":.upd(s|
00005ac0  65 61 72 63 68 77 25 2c  33 29 3a 24 28 a4 69 6d  |earchw%,3):$(.im|
00005ad0  28 73 65 61 72 63 68 77  25 2c 39 29 29 3d 22 2d  |(searchw%,9))="-|
00005ae0  22 3a 24 28 a4 69 6d 28  73 65 61 72 63 68 77 25  |":$(.im(searchw%|
00005af0  2c 31 30 29 29 3d 22 2d  22 3a f2 75 70 64 28 73  |,10))="-":.upd(s|
00005b00  65 61 72 63 68 77 25 2c  39 29 3a f2 75 70 64 28  |earchw%,9):.upd(|
00005b10  73 65 61 72 63 68 77 25  2c 31 30 29 0d 1f 54 57  |searchw%,10)..TW|
00005b20  24 28 a4 69 6d 28 73 65  61 72 63 68 77 25 2c 31  |$(.im(searchw%,1|
00005b30  32 29 29 3d 22 2d 22 3a  f2 75 70 64 28 73 65 61  |2))="-":.upd(sea|
00005b40  72 63 68 77 25 2c 31 32  29 3a 24 28 a4 69 6d 28  |rchw%,12):$(.im(|
00005b50  73 65 61 72 63 68 77 25  2c 31 33 29 29 3d 22 2d  |searchw%,13))="-|
00005b60  22 3a f2 75 70 64 28 73  65 61 72 63 68 77 25 2c  |":.upd(searchw%,|
00005b70  31 33 29 0d 1f 5e 57 24  28 a4 69 6d 28 73 65 61  |13)..^W$(.im(sea|
00005b80  72 63 68 77 25 2c 31 34  29 29 3d 22 2d 22 3a f2  |rchw%,14))="-":.|
00005b90  75 70 64 28 73 65 61 72  63 68 77 25 2c 31 34 29  |upd(searchw%,14)|
00005ba0  3a 24 28 a4 69 6d 28 73  65 61 72 63 68 77 25 2c  |:$(.im(searchw%,|
00005bb0  31 35 29 29 3d 22 2d 22  3a f2 75 70 64 28 73 65  |15))="-":.upd(se|
00005bc0  61 72 63 68 77 25 2c 31  35 29 0d 1f 68 14 f2 73  |archw%,15)..h..s|
00005bd0  74 63 28 73 65 61 72 63  68 77 25 2c 33 29 0d 1f  |tc(searchw%,3)..|
00005be0  72 05 e1 0d 1f 7c 04 0d  1f 86 28 dd f2 73 65 61  |r....|....(..sea|
00005bf0  72 63 68 3a 73 24 3d a4  75 70 70 65 72 28 24 a4  |rch:s$=.upper($.|
00005c00  69 6d 28 73 65 61 72 63  68 77 25 2c 33 29 29 0d  |im(searchw%,3)).|
00005c10  1f 90 2a e7 62 64 73 25  3d 30 f2 6d 73 67 28 22  |..*.bds%=0.msg("|
00005c20  4e 6f 20 52 65 63 6f 72  64 73 20 74 6f 20 73 65  |No Records to se|
00005c30  61 72 63 68 21 22 29 3a  e1 0d 1f 9a 3d e7 73 70  |arch!"):....=.sp|
00005c40  6f 73 3e 62 64 73 25 f2  6d 73 67 28 22 4e 6f 20  |os>bds%.msg("No |
00005c50  72 65 63 6f 72 64 20 6d  61 74 63 68 65 73 22 29  |record matches")|
00005c60  3a 73 70 6f 73 3d 31 3a  f2 63 6c 65 61 72 73 65  |:spos=1:.clearse|
00005c70  61 72 63 68 3a e1 0d 1f  a4 14 c8 99 22 48 6f 75  |arch:......."Hou|
00005c80  72 67 6c 61 73 73 5f 4f  6e 22 0d 1f ae 0d 66 6f  |rglass_On"....fo|
00005c90  75 6e 64 3d 30 3a f5 0d  1f b8 30 64 24 3d a4 75  |und=0:....0d$=.u|
00005ca0  70 70 65 72 28 24 28 64  25 2b 28 73 70 6f 73 2d  |pper($(d%+(spos-|
00005cb0  31 29 2a 33 38 29 29 3a  e7 a7 64 24 2c 73 24 29  |1)*38)):..d$,s$)|
00005cc0  66 6f 75 6e 64 3d b9 0d  1f c2 1c 73 70 6f 73 2b  |found=.....spos+|
00005cd0  3d 31 3a fd 73 70 6f 73  3e 62 64 73 25 84 66 6f  |=1:.spos>bds%.fo|
00005ce0  75 6e 64 0d 1f cc 15 c8  99 22 48 6f 75 72 67 6c  |und......"Hourgl|
00005cf0  61 73 73 5f 4f 66 66 22  0d 1f d6 44 e7 73 70 6f  |ass_Off"...D.spo|
00005d00  73 3e 62 64 73 25 80 66  6f 75 6e 64 3d a3 20 f2  |s>bds%.found=. .|
00005d10  6d 73 67 28 22 4e 6f 20  72 65 63 6f 72 64 20 6d  |msg("No record m|
00005d20  61 74 63 68 65 73 22 29  3a 73 70 6f 73 3d 31 3a  |atches"):spos=1:|
00005d30  f2 63 6c 65 61 72 73 65  61 72 63 68 0d 1f e0 0c  |.clearsearch....|
00005d40  e7 66 6f 75 6e 64 20 8c  0d 1f ea ae 66 6f 75 6e  |.found .....foun|
00005d50  64 3d a3 3a 64 6f 25 3d  64 25 2b 28 73 70 6f 73  |d=.:do%=d%+(spos|
00005d60  2d 32 29 2a 33 38 3a f2  73 6c 28 3f 28 64 6f 25  |-2)*38:.sl(?(do%|
00005d70  2b 32 37 29 29 3a f2 73  65 74 73 74 61 74 65 28  |+27)):.setstate(|
00005d80  73 65 61 72 63 68 77 25  2c 37 2c 31 3c 3c 32 33  |searchw%,7,1<<23|
00005d90  2c 30 29 3a 24 28 a4 69  6d 28 73 65 61 72 63 68  |,0):$(.im(search|
00005da0  77 25 2c 39 29 29 3d 24  64 6f 25 3a 24 28 a4 69  |w%,9))=$do%:$(.i|
00005db0  6d 28 73 65 61 72 63 68  77 25 2c 31 30 29 29 3d  |m(searchw%,10))=|
00005dc0  c3 3f 28 64 6f 25 2b 32  36 29 2b 22 20 22 2b c0  |.?(do%+26)+" "+.|
00005dd0  6d 24 28 3f 28 64 6f 25  2b 32 37 29 29 2c 33 29  |m$(?(do%+27)),3)|
00005de0  2b 22 20 22 2b c3 28 31  39 30 30 2b 3f 28 64 6f  |+" "+.(1900+?(do|
00005df0  25 2b 32 39 29 29 0d 1f  f4 50 f2 64 74 73 3a 24  |%+29))...P.dts:$|
00005e00  28 a4 69 6d 28 73 65 61  72 63 68 77 25 2c 31 32  |(.im(searchw%,12|
00005e10  29 29 3d c3 a4 64 61 79  73 28 64 64 2c 6d 6d 2c  |))=..days(dd,mm,|
00005e20  79 79 2c 3f 28 64 6f 25  2b 32 36 29 2c 3f 28 64  |yy,?(do%+26),?(d|
00005e30  6f 25 2b 32 37 29 2c 3f  28 64 6f 25 2b 32 39 29  |o%+27),?(do%+29)|
00005e40  2b 31 39 30 30 29 0d 1f  fe 4d 24 28 a4 69 6d 28  |+1900)...M$(.im(|
00005e50  73 65 61 72 63 68 77 25  2c 31 33 29 29 3d 24 28  |searchw%,13))=$(|
00005e60  64 6f 25 2b 33 30 29 3a  e7 24 28 64 6f 25 2b 33  |do%+30):.$(do%+3|
00005e70  30 29 3d 22 a0 a0 a0 a0  a0 22 24 28 a4 69 6d 28  |0)="....."$(.im(|
00005e80  73 65 61 72 63 68 77 25  2c 31 33 29 29 3d 22 4e  |searchw%,13))="N|
00005e90  2f 41 22 0d 20 08 35 24  28 a4 69 6d 28 73 65 61  |/A". .5$(.im(sea|
00005ea0  72 63 68 77 25 2c 31 34  29 29 3d 22 2d 2d 22 3a  |rchw%,14))="--":|
00005eb0  24 28 a4 69 6d 28 73 65  61 72 63 68 77 25 2c 31  |$(.im(searchw%,1|
00005ec0  35 29 29 3d 22 2d 2d 22  0d 20 12 16 e7 3f 28 64  |5))="--". ...?(d|
00005ed0  6f 25 2b 33 37 29 80 25  31 30 30 30 30 8c 0d 20  |o%+37).%10000.. |
00005ee0  1c 4f 24 28 a4 69 6d 28  73 65 61 72 63 68 77 25  |.O$(.im(searchw%|
00005ef0  2c 31 34 29 29 3d a4 79  65 61 72 73 28 3f 28 64  |,14))=.years(?(d|
00005f00  6f 25 2b 33 36 29 2b 28  28 3f 28 64 6f 25 2b 33  |o%+36)+((?(do%+3|
00005f10  37 29 80 25 31 31 31 31  29 3c 3c 38 29 2c 3f 28  |7).%1111)<<8),?(|
00005f20  64 6f 25 2b 32 39 29 2b  31 39 30 30 29 0d 20 26  |do%+29)+1900). &|
00005f30  67 e7 24 28 64 6f 25 2b  33 30 29 3d 22 57 65 64  |g.$(do%+30)="Wed|
00005f40  41 6e 22 24 28 a4 69 6d  28 73 65 61 72 63 68 77  |An"$(.im(searchw|
00005f50  25 2c 31 35 29 29 3d a4  61 6e 6e 69 76 65 72 73  |%,15))=.annivers|
00005f60  61 72 79 28 3f 28 64 6f  25 2b 33 36 29 2b 28 28  |ary(?(do%+36)+((|
00005f70  3f 28 64 6f 25 2b 33 37  29 80 25 31 31 31 31 29  |?(do%+37).%1111)|
00005f80  3c 3c 38 29 2c 3f 28 64  6f 25 2b 32 39 29 2b 31  |<<8),?(do%+29)+1|
00005f90  39 30 30 29 0d 20 30 05  cd 0d 20 3a 6e f2 75 70  |900). 0... :n.up|
00005fa0  64 28 73 65 61 72 63 68  77 25 2c 39 29 3a f2 75  |d(searchw%,9):.u|
00005fb0  70 64 28 73 65 61 72 63  68 77 25 2c 31 30 29 3a  |pd(searchw%,10):|
00005fc0  f2 75 70 64 28 73 65 61  72 63 68 77 25 2c 31 32  |.upd(searchw%,12|
00005fd0  29 3a f2 75 70 64 28 73  65 61 72 63 68 77 25 2c  |):.upd(searchw%,|
00005fe0  31 33 29 3a f2 75 70 64  28 73 65 61 72 63 68 77  |13):.upd(searchw|
00005ff0  25 2c 31 34 29 3a f2 75  70 64 28 73 65 61 72 63  |%,14):.upd(searc|
00006000  68 77 25 2c 31 35 29 0d  20 44 05 cd 0d 20 4e 05  |hw%,15). D... N.|
00006010  e1 0d 20 58 04 0d 20 62  0e dd f2 63 61 6c 63 64  |.. X.. b...calcd|
00006020  61 79 73 0d 20 6c 16 64  6f 25 3d 64 25 2b 28 77  |ays. l.do%=d%+(w|
00006030  62 64 25 2d 31 29 2a 33  38 0d 20 76 08 f2 64 74  |bd%-1)*38. v..dt|
00006040  73 0d 20 80 14 61 67 65  3d bb 24 a4 69 6d 28 63  |s. ..age=.$.im(c|
00006050  57 25 2c 32 29 0d 20 8a  51 64 61 79 73 3d a4 64  |W%,2). .Qdays=.d|
00006060  61 79 73 28 64 64 2c 6d  6d 2c 79 79 2c 3f 28 64  |ays(dd,mm,yy,?(d|
00006070  6f 25 2b 32 36 29 2c 3f  28 64 6f 25 2b 32 37 29  |o%+26),?(do%+27)|
00006080  2c 3f 28 64 6f 25 2b 33  36 29 2b 28 28 3f 28 64  |,?(do%+36)+((?(d|
00006090  6f 25 2b 33 37 29 80 25  31 31 31 31 29 3c 3c 38  |o%+37).%1111)<<8|
000060a0  29 2b 61 67 65 29 0d 20  94 3a e7 64 61 79 73 3d  |)+age). .:.days=|
000060b0  30 24 a4 69 6d 28 63 57  25 2c 31 30 29 3d 22 42  |0$.im(cW%,10)="B|
000060c0  61 63 6b 20 69 6e 20 74  69 6d 65 22 20 8b 24 a4  |ack in time" .$.|
000060d0  69 6d 28 63 57 25 2c 31  30 29 3d c3 64 61 79 73  |im(cW%,10)=.days|
000060e0  0d 20 9e 27 e7 64 61 79  73 3d 2d 31 24 a4 69 6d  |. .'.days=-1$.im|
000060f0  28 63 57 25 2c 31 30 29  3d 22 4e 6f 74 20 70 6f  |(cW%,10)="Not po|
00006100  73 73 69 62 6c 65 22 0d  20 a8 5c e7 64 64 3d 3f  |ssible". .\.dd=?|
00006110  28 64 6f 25 2b 32 36 29  80 6d 6d 3d 3f 28 64 6f  |(do%+26).mm=?(do|
00006120  25 2b 32 37 29 80 79 79  3d 3f 28 64 6f 25 2b 33  |%+27).yy=?(do%+3|
00006130  36 29 2b 28 28 3f 28 64  6f 25 2b 33 37 29 80 25  |6)+((?(do%+37).%|
00006140  31 31 31 31 29 3c 3c 38  29 2b 61 67 65 20 24 a4  |1111)<<8)+age $.|
00006150  69 6d 28 63 57 25 2c 31  30 29 3d 22 54 4f 44 41  |im(cW%,10)="TODA|
00006160  59 21 22 0d 20 b2 5a 24  a4 69 6d 28 63 57 25 2c  |Y!". .Z$.im(cW%,|
00006170  39 29 3d c3 28 3f 28 64  6f 25 2b 32 36 29 29 2b  |9)=.(?(do%+26))+|
00006180  22 20 22 2b 6d 24 28 3f  28 64 6f 25 2b 32 37 29  |" "+m$(?(do%+27)|
00006190  29 2b 22 20 22 2b c3 28  3f 28 64 6f 25 2b 33 36  |)+" "+.(?(do%+36|
000061a0  29 2b 28 28 3f 28 64 6f  25 2b 33 37 29 80 25 31  |)+((?(do%+37).%1|
000061b0  31 31 31 29 3c 3c 38 29  2b 61 67 65 29 0d 20 bc  |111)<<8)+age). .|
000061c0  1c f2 75 70 64 28 63 57  25 2c 39 29 3a f2 75 70  |..upd(cW%,9):.up|
000061d0  64 28 63 57 25 2c 31 30  29 0d 20 c6 05 e1 0d 20  |d(cW%,10). .... |
000061e0  d0 04 0d 20 da 12 dd a4  79 65 61 72 73 28 79 31  |... ....years(y1|
000061f0  2c 79 32 29 0d 20 e4 13  e7 79 32 2d 79 31 3c 31  |,y2). ...y2-y1<1|
00006200  20 3d 22 3f 3f 3f 22 0d  20 ee 0d 3d c3 28 79 32  | ="???". ..=.(y2|
00006210  2d 79 31 29 0d 20 f8 04  0d 21 02 18 dd a4 61 6e  |-y1). ...!....an|
00006220  6e 69 76 65 72 73 61 72  79 28 79 31 2c 79 32 29  |niversary(y1,y2)|
00006230  0d 21 0c 1e e7 a4 79 65  61 72 73 28 79 31 2c 79  |.!....years(y1,y|
00006240  32 29 3d 22 3f 3f 3f 22  3d 22 3f 3f 3f 22 0d 21  |2)="???"="???".!|
00006250  16 15 c8 8e bb a4 79 65  61 72 73 28 79 31 2c 79  |......years(y1,y|
00006260  32 29 ca 0d 21 20 0f c9  31 3a 3d 22 50 61 70 65  |2)..! ..1:="Pape|
00006270  72 22 0d 21 2a 10 c9 32  3a 3d 22 43 6f 74 74 6f  |r".!*..2:="Cotto|
00006280  6e 22 0d 21 34 11 c9 33  3a 3d 22 4c 65 61 74 68  |n".!4..3:="Leath|
00006290  65 72 22 0d 21 3e 17 c9  34 3a 3d 22 46 72 75 69  |er".!>..4:="Frui|
000062a0  74 2f 46 6c 6f 77 65 72  73 22 0d 21 48 0e c9 35  |t/Flowers".!H..5|
000062b0  3a 3d 22 57 6f 6f 64 22  0d 21 52 14 c9 36 3a 3d  |:="Wood".!R..6:=|
000062c0  22 49 72 6f 6e 2f 53 75  67 61 72 22 0d 21 5c 15  |"Iron/Sugar".!\.|
000062d0  c9 37 3a 3d 22 57 6f 6f  6c 2f 43 6f 70 70 65 72  |.7:="Wool/Copper|
000062e0  22 0d 21 66 10 c9 38 3a  3d 22 42 72 6f 6e 7a 65  |".!f..8:="Bronze|
000062f0  22 0d 21 70 11 c9 39 3a  3d 22 50 6f 74 74 65 72  |".!p..9:="Potter|
00006300  79 22 0d 21 7a 18 c9 31  30 3a 3d 22 54 69 6e 2f  |y".!z..10:="Tin/|
00006310  41 6c 75 6d 69 6e 69 75  6d 22 0d 21 84 10 c9 31  |Aluminium".!...1|
00006320  31 3a 3d 22 53 74 65 65  6c 22 0d 21 8e 1a c9 31  |1:="Steel".!...1|
00006330  32 3a 3d 22 53 69 6c 6b  2f 46 69 6e 65 20 6c 69  |2:="Silk/Fine li|
00006340  6e 65 6e 22 0d 21 98 0f  c9 31 33 3a 3d 22 4c 61  |nen".!...13:="La|
00006350  63 65 22 0d 21 a2 10 c9  31 34 3a 3d 22 49 76 6f  |ce".!...14:="Ivo|
00006360  72 79 22 0d 21 ac 12 c9  31 35 3a 3d 22 43 72 79  |ry".!...15:="Cry|
00006370  73 74 61 6c 22 0d 21 b6  10 c9 32 30 3a 3d 22 43  |stal".!...20:="C|
00006380  68 69 6e 61 22 0d 21 c0  11 c9 32 35 3a 3d 22 53  |hina".!...25:="S|
00006390  69 6c 76 65 72 22 0d 21  ca 10 c9 33 30 3a 3d 22  |ilver".!...30:="|
000063a0  50 65 61 72 6c 22 0d 21  d4 10 c9 33 35 3a 3d 22  |Pearl".!...35:="|
000063b0  43 6f 72 61 6c 22 0d 21  de 0f c9 34 30 3a 3d 22  |Coral".!...40:="|
000063c0  52 75 62 79 22 0d 21 e8  13 c9 34 35 3a 3d 22 53  |Ruby".!...45:="S|
000063d0  61 70 70 68 69 72 65 22  0d 21 f2 11 c9 35 30 3a  |apphire".!...50:|
000063e0  3d 22 47 6f 6c 64 65 6e  22 0d 21 fc 12 c9 35 35  |="Golden".!...55|
000063f0  3a 3d 22 45 6d 65 72 61  6c 64 22 0d 22 06 15 c9  |:="Emerald"."...|
00006400  36 30 2c 37 35 3a 3d 22  44 69 61 6d 6f 6e 64 22  |60,75:="Diamond"|
00006410  0d 22 10 13 7f 3d 22 4e  6f 20 6d 61 74 65 72 69  |."...="No materi|
00006420  61 6c 22 0d 22 1a 05 cb  0d ff                    |al".".....|
0000642a