� !RunImage (DJS)

ț "<Obey$Dir>.ToolKit"
(A$="Phaser"
2
<�Init(1400)
F-�TempInit(�ms("I1"),"2.89 (10-Sep-1993)")
P
�FontInit
Z
�DrawInit
d�VarInit
n
�MenuInit
x�Ticker
�
�� **-->>Main
�
��VarInit
�,� m$(12),w$(7),d(12):Month=1:t$="":y$=""
�-�i=1 � 12:i$="N"+�(i):m$(i)=�ms(i$):�d(i)
� � ��$,8,3)=�m$(i),3):Month=i
��
�(�i=1 � 7:i$="W"+�(i):w$(i)=�ms(i$):�
�)� 31,28,31,30,31,30,31,31,30,31,30,31
�
�Year=�(��$,12,4)):Moon=�
�buff%=�Buffer(28)
��Ft

�



��Draw(w%,wx,wy):g=0:h=0

"	�Calc

,�Header

6ȓ wx+15,wy-600,900,554

@�Border

J	�Days

T� Moon �Moon

^�

h

r
��Calc

|d(2)=28:st=0:ca=4

�� Year � 4=0 d(2)=29

�� Year � 100=0 d(2)=28

�� Year � 400=0 d(2)=29

�st+=(365*Year+(Year � 4))

�'� Month>1 �i=1 � Month-1:st+=d(i):�

�� Year � 4=0 st-=1

�wk=� ((st-1) � 7)+1

�
cb=4*wk-3

�-� Year>=0 add$=�ms("P1") � add$=�ms("P2")

��

�

���Header:�wx,wy

��� (head$="System" � draw=�) � wx+6,wy-5:� m$(Month);" ";�(Year);add$ � �Font(wx+20+g,wy-32+h,m$(Month)+" "+�(�(Year))+add$,head$,16)

� i=1 � 7
t� (labs$="System" � draw=�) � wx+((i-1)*130)+40,wy-70:�w$(i) � �Font(wx+g+(130*(i-1))+40,wy-90+h,w$(i),labs$,16)
�
&�
0
:��Border
D�x(140,694,46)
N�x(275,694,46)
X�x(15,600,694)
b�x(405,600,46)
l�x(530,600,46)
v�x(655,600,46)
��x(780,600,46)
��y(694,275)
��y(504,915)
��y(407,915)
��y(310,915)
��y(213,915)
��y(117,915)
��
�
���x(m,n,o)
�C� draw �line(g+m,h+800-n,g+m,h+800-o) � � wx+m,wy-n:� wx+m,wy-o
��
�
��y(m,n)
E� draw �line(g+15,h+800-m,g+n,h+800-m) � � wx+15,wy-m:� wx+n,wy-m
�
 
*��Days:�wx,wy
4f=Month:� Month=1 f=13
>�i=1 � (wk-1)
HX� (pre$="System" � draw=� � wk>1) �wx+(127*(((cb+3)/4)-i+1))-150,wy-158:�;d(f-1)-i+1
Rp� (pre$<>"System" � wk>1) � (draw � wk>1) �Font(wx+g+(127*(((cb+3)/4)-i))-30,wy-190+h,�(d(f-1)-i+1),pre$,12)
\�
f
p�i=1 � d(Month)
z�� numb$="System" � draw=� �wx+(127*((cb+3)/4))-150,wy-(32*ca)+2:�i � �Font(wx+g+(127*((cb+3)/4))-35,wy-(32*ca)-25+h,�(i),numb$,15)
�	cb+=4
�� cb>=29 ca+=3:cb=1
��
�
�	ca+=1
�� i=1�11
�	cb+=4
�� cb>29 ca+=3:cb=5
�� cb>9 � ca>17 m=0:�
ކ� pre$="System" � draw=� �wx+(127*((cb+3)/4)+1)-135,wy-(32*ca)+2:�;i � �Font(wx+g+(127*(cb+3)/4)-135,wy-(32*ca)-30+h,�(i),pre$,12)
��
��
�
��Moon:�wx,wy

�MCalc

�MDraw
$W� w%=SaveDY_W% � Month=12 g=-275:h-=175:�Font(wx+290+g,wy-593+h,�ms("L7"),head$,15)
. � w%<>SaveDY_W% � Month=12 �
8*�Font(wx+290+g,wy-627+h,"A","Moon",10)
B.�Font(wx+554+g,wy-627+h,"[   E","Moon",10)
L*�Font(wx+290+g,wy-660+h,"Q","Moon",10)
V.�Font(wx+554+g,wy-660+h,"L   V","Moon",10)
`.�Font(wx+290+g,wy-690+h,"I   X","Moon",10)
j� labs$<>"System" � draw �
t/�Font(wx+329+g,wy-629+h,�ms("L1"),labs$,13)
~/�Font(wx+329+g,wy-662+h,�ms("L2"),labs$,13)
�/�Font(wx+400+g,wy-695+h,�ms("L3"),labs$,13)
�/�Font(wx+650+g,wy-629+h,�ms("L4"),labs$,13)
�/�Font(wx+650+g,wy-662+h,�ms("L5"),labs$,13)
�)�Font(wx+320+g,wy-695+h,"&",labs$,13)
�)�Font(wx+587+g,wy-629+h,"&",labs$,13)
�)�Font(wx+587+g,wy-662+h,"&",labs$,13)
��
Α�wx+300,wy-605:�"  ";�ms("L1");�(7);" &   ";�ms("L4"):�wx+300,wy-637:�"  ";�ms("L2");�(6);" &   ";�ms("L5"):�wx+310,wy-670:�" &   ";�ms("L3")
��
��
��
�
��MCalc

lm=29.530587962961
(days=365*(Year-1900)+(Year-1900) � 4
#�i=1 � Month-1:days=days+d(i):�
(� Year � 4=0 days-=1
2)n=� (d(i)-((days-lm*�(days/lm)+1)))+1
<� Month=2 n+=3
F�
P
Z��MDraw:�wx,wy
dca=4:cb=1:y=97-n-wk
n� y<65 y=95-65+y
x� i=1 � 37
�� cb>=29 ca+=3:cb=1
�=�Font(wx+g+(32*(cb+1))-15,wy-(32*ca)-22+h,�(y),"Moon",11)
�y+=1:cb+=4
�� y>94 y=65
��
��
�
�� **-->>Menus
�ݤMenuE(w%)
�Ȏ w% �
�� -2:=Bar_M%
�� Main_W%:=Main_M%
�:=�
�

��MenuC(menu%)
"� menu%=Bar_M% �Bar � �Main
,�Adjust(menu%)
6;� i1%!8=4 � menu%=Main_M% � �_MenC(0)<>7 �WTop(Main_W%)
@�
J
T
��Main
^Ȏ �_MenC(0) �
h/� 1:� �_MenC(1)=1 z$=�GSA(buff%):Year=�(z$)
r(� 2:x=�_MenC(1):� x>0 � x<13 Month=x
|-� 3:�MT(Main_M%,3):� Moon Moon=� � Moon=�
�&� 4:i=�_MenC(1):� i=5 �Ft � �SFont
�.� 7:ș&400DE,"Run <!Phaser$Dir>.!Help":�:�
��:�WFD(Main_W%):�
�
���Ft
�head$=�ms("head")
�numb$=�ms("numb")
�pre$=�ms("pre")
�labs$=�ms("lab")
��
�
���SFont
�'ș"Wimp_DecodeMenu",,Main_M%,q%,ftt
#ft$=�$ftt,�$ftt,".")+1,�($ftt))
 ft$=�ft$,�ft$,".")+1,�(ft$))
� i=1 head$=ft$
&� i=2 numb$=ft$
0� i=3 pre$=ft$
:� i=4 labs$=ft$
D�
N
X
��Text
bt=�:Mon=Month
l� w%=SaveTY_W% t=�
vc%=�(g$)
�h$="":s$=""
�� x=1�40:s$+=" ":�x
�� x=1 � 7:h$+=w$(x)+" ":�x
�h$=�h$)
��� t h$+=�s$,13)+h$:�#c%,�(�(Year))+add$+"  "+�ms("P0")+�(10):� x=1 � 12 � 2:Month=x+1:�Calc:wk2=wk:j2=1:�MCalc:n2=n � x=Month:j2=d(x+1)+1:n2=1
�)Month=x:�Calc:wk1=wk:j1=1:�MCalc:n1=n
� x$=m$(x)+" "+�(�(Year))+add$
�@� t x$+=�s$,1,(40-�x$))+m$(x+1)+" "+�(�(Year))+add$:j2=2-wk2
��#c%,x$:�#c%,h$
�j1=2-wk1
�� l=1 � 6:x$=""
�j=j1:n=n1:i=d(x):�Loop:j1=k
�	� t �
j=j2:n=n2:i=d(x+1)
6� j>i �#c%,�x$) � x$+=�s$,12):�Loop:j2=k:�#c%,�x$)
�
 
�#c%,�x$)
*�
4�l
>�#c%,""
H
� t �x
RQ� Moon �#c%,�ms("L7"):�#c%,"N: "+�ms("L1")+"    F: "+�ms("L2"):�#c%,�ms("L6")
\
Month=Mon
f�#c%
p�("SetType "+g$+" FFF")
z�
�
�
��Loop
�� k=j � j+6 � 1
�I$="  "
�� Moon �
�� k=n I$="N "
�� k=n+16 � k=n-14 I$="F "
��
�� k>i � n=n2 � j=j2 �
�%� k>i � n=n1 � j=j1 � j2>d(x+1) �
�M� k<1 x$+="    " � � k>i x$+="    " � � k>9 x$+=�(k)+I$ � x$+=�(k)+" "+I$
��k
��
	
	� **-->>Draw
	��SaveFileE(g$,w%)
	$�WClose(w%):ș &400D4,-1
	.)� w%=SaveTM_W% � w%=SaveTY_W% �Text:�
	8draw=�:pt%=256
	B!Mon=Month:wx=0:wy=800:g=0:h=0
	Lc%=�(g$)
	V(�putw(&77617244):�putw(201):�putw(0)
	`0�puts12(�m$(Month),3)+"_"+��(Year),4)):l%=-1
	j�head_here(�)
	t�putw(0)
	~�head_here(�)
	��puts(�(1)+head$)
	��puts(�(2)+"Moon")
	��puts(�(3)+numb$)
	��puts(�(4)+pre$)
	��puts(�(5)+labs$)
	�
�align
	��group_End
	�ș&406C0
	�s� w%=SaveDY_W% h=3500:pt%=120:�group_Start:�Font(5,4335,�(�(Year))+add$+"  "+�ms("P0"),head$,30):� Month=1 � 12
	��group_Start
	��group_Start
	�ș&406C4,(Month/13)*100
�Calc:�Header:�Days

�group_End
�group_Start
=�path_start((g+15)*pt%,(h+200)*pt%,0,&00000000,&FFFFFFFF)
(&�path_draw((g+15)*pt%,(h+754)*pt%)
2'�path_draw((g+915)*pt%,(h+754)*pt%)
<'�path_draw((g+915)*pt%,(h+200)*pt%)
F�putw(5)
P
�path_end
Z�Border
d�group_End
n� Moon �
x�group_Start
�	�Moon
�?� w%=SaveDM_W% � Month=12 �Font(15,h+20,�ms("L6"),head$,14)
��group_End
��
��group_End
�0� w%=SaveDY_W% � g=2000 g=0:h-=750 � g+=1000
�� w%=SaveDY_W% �:�group_End
��group_End
�ș&406C2
��#c%
��("SetType "+g$+" AFF")
�draw=�:Month=Mon
��

��FConv
x%=5
"� i$=head$ x%=1
,� i$="Moon" x%=2
6� i$=numb$ x%=3
@� i$=pre$ x%=4
J�
T
^� **-->>Nut's & Bolts
h��Temps
rMain_W%=�WL("Main")
|SaveDM_W%=�WL("SaveDM")
�SaveDY_W%=�WL("SaveDY")
�SaveTM_W%=�WL("SaveTM")
�SaveTY_W%=�WL("SaveTY")
��
�
���MenuInit
�<Bar_M%=�MC(A$+"\"+�ms("B1")+"\"+�ms("B2")+"\"+�ms("B3"))
�uMain_M%=�MC(A$+"\"+�ms("M1")+"\"+�ms("M2")+"\"+�ms("M3")+"\"+�ms("M4")+"\"+�ms("M5")+"\"+�ms("B1")+"\"+�ms("B2"))
��Month_M%=�MC(�ms("M2")+"\"+�ms("N1")+"\"+�ms("N2")+"\"+�ms("N3")+"\"+�ms("N4")+"\"+�ms("N5")+"\"+�ms("N6")+"\"+�ms("N7")+"\"+�ms("N8")+"\"+�ms("N9")+"\"+�ms("N10")+"\"+�ms("N11")+"\"+�ms("N12"))
�$Year_M%=�MC(�ms("Y0")+"\      ")
�6Plus_M%=�MC(�ms("S0")+"\"+�ms("M2")+"\"+�ms("Y0"))
�7Type1_M%=�MC(�ms("T0")+"\"+�ms("T1")+"\"+�ms("T2"))
�7Type2_M%=�MC(�ms("T0")+"\"+�ms("T1")+"\"+�ms("T2"))
`Head_M%=�MC(�ms("M4")+"\"+�ms("Z1")+"\"+�ms("Z2")+"\"+�ms("Z3")+"\"+�ms("Z4")+"\"+�ms("Z5"))
Bar_M%!32=Info_W%
Main_M%!32=Year_M%
&Main_M%!56=Month_M%
0Main_M%!104=Head_M%
:Main_M%!128=Plus_M%
DMain_M%!152=Info_W%
NPlus_M%!32=Type1_M%
XType1_M%!32=SaveDM_W%
bType1_M%!56=SaveTM_W%
lPlus_M%!56=Type2_M%
vType2_M%!32=SaveDY_W%
�Type2_M%!56=SaveTY_W%
�Head_M%!32=Font_M%
�Head_M%!56=Font_M%
�Head_M%!80=Font_M%
�Head_M%!104=Font_M%
��MW(Year_M%,1,buff%,0,25)
�A�MDL(Bar_M%,2):�MDL(Main_M%,3):�MDL(Main_M%,5):�MDL(Bar_M%,2)
��MT(Main_M%,3)
��
�
�
��ErrE
�
Ȏ � �
�B� 20: Year=�(��$,12,4)):�WAl(�ms1("E3",�(Year))):�WFD(Main_W%)

g� 523:�WAl(�ms1("E2",ft$)):labs$="System":head$="System":numb$="System":pre$="System":�WFD(Main_W%)

: i1%=0

�

 �

*

4��TickE

>@w%=q%!12:� w%=SaveDY_W% � w%=SaveDM_W% Sp$="AFF" � Sp$="FFF"

H�� t$<>�m$(Month),3) � y$<>��(Year),4) t$=�m$(Month),3):y$=��(Year),4):�IPT(SaveDM_W%,1,t$+"_"+y$):�IPT(SaveTM_W%,1,t$+"_"+y$):�IPT(SaveDY_W%,1,y$):�IPT(SaveTY_W%,1,y$)

R�

\

f	��Bye

pș "OS_Module",7,,buff%

z�

�

���MouseE

�Ȏ w% �

�� -2:�WOpen(Main_W%)

�8� SaveDM_W%,SaveDY_W%,SaveTY_W%,SaveTM_W%:�MouseSave

��

��

�

�
��KeyE

�Ȏ w% �

�;� SaveDM_W%,SaveDY_W%,SaveTY_W%,SaveTM_W%:�SaveFile(w%)

��

��


ݤMess
Ȏ q%!32 �
$1� Main_W%:=�ms2("H20",m$(Month),�(Year)+add$)
.9� SaveDY_W%,SaveDM_W%,SaveTY_W%,SaveTM_W%:=�ms("Er4")
8
BȎmenu%�
L�Bar_M%
V
Ȏ i �
`�1:=�ms("A4")
j�2:=�ms("A5")
t�3:=�ms("A6")
~�
�
� Main_M%
�
Ȏ i �
�.�1::� i1>0 =�ms1("H13",�Year) � =�ms("H7")
�9�2::� i1>0 =�ms2("H14",m$(Month),m$(i1)) � =�ms("H8")
��3:=�ms("H9"+�Moon)
��4
�Ȏ i1 �
�#�1:=�ms2("H15",head$,�ms("Z1"))
�#�2:=�ms2("H15",numb$,�ms("Z2"))
�"�3:=�ms2("H15",pre$,�ms("Z3"))
�#�4:=�ms2("H15",labs$,�ms("Z4"))
��5:=�ms("H21")
:=�ms("H10")

�
�5
Ȏ i1 �
(�1
2Ȏ i2 �
<�1:=�ms("H18")
F�2:=�ms("H19")
P):=�ms2("H16",m$(Month),�(Year)+add$)
Z�
d�2
nȎ i2 �
x�1:=�ms("H18")
��2:=�ms("H19")
�:=�ms1("H17",�(Year)+add$)
��
�:=�ms("H11")
��
��6:=�ms("A4")
��7:=�ms("H12")
��
��
��
�=""
�

00000000  0d 00 0a 15 f4 20 21 52  75 6e 49 6d 61 67 65 20  |..... !RunImage |
00000010  28 44 4a 53 29 0d 00 14  04 0d 00 1e 1b c8 9b 20  |(DJS).......... |
00000020  22 3c 4f 62 65 79 24 44  69 72 3e 2e 54 6f 6f 6c  |"<Obey$Dir>.Tool|
00000030  4b 69 74 22 0d 00 28 0f  41 24 3d 22 50 68 61 73  |Kit"..(.A$="Phas|
00000040  65 72 22 0d 00 32 04 0d  00 3c 0f f2 49 6e 69 74  |er"..2...<..Init|
00000050  28 31 34 30 30 29 0d 00  46 2d f2 54 65 6d 70 49  |(1400)..F-.TempI|
00000060  6e 69 74 28 a4 6d 73 28  22 49 31 22 29 2c 22 32  |nit(.ms("I1"),"2|
00000070  2e 38 39 20 28 31 30 2d  53 65 70 2d 31 39 39 33  |.89 (10-Sep-1993|
00000080  29 22 29 0d 00 50 0d f2  46 6f 6e 74 49 6e 69 74  |)")..P..FontInit|
00000090  0d 00 5a 0d f2 44 72 61  77 49 6e 69 74 0d 00 64  |..Z..DrawInit..d|
000000a0  0c f2 56 61 72 49 6e 69  74 0d 00 6e 0d f2 4d 65  |..VarInit..n..Me|
000000b0  6e 75 49 6e 69 74 0d 00  78 0b f2 54 69 63 6b 65  |nuInit..x..Ticke|
000000c0  72 0d 00 82 04 0d 00 8c  10 f4 20 2a 2a 2d 2d 3e  |r......... **-->|
000000d0  3e 4d 61 69 6e 0d 00 96  0d dd f2 56 61 72 49 6e  |>Main......VarIn|
000000e0  69 74 0d 00 a0 2c de 20  6d 24 28 31 32 29 2c 77  |it...,. m$(12),w|
000000f0  24 28 37 29 2c 64 28 31  32 29 3a 4d 6f 6e 74 68  |$(7),d(12):Month|
00000100  3d 31 3a 74 24 3d 22 22  3a 79 24 3d 22 22 0d 00  |=1:t$="":y$=""..|
00000110  aa 2d e3 69 3d 31 20 b8  20 31 32 3a 69 24 3d 22  |.-.i=1 . 12:i$="|
00000120  4e 22 2b c3 28 69 29 3a  6d 24 28 69 29 3d a4 6d  |N"+.(i):m$(i)=.m|
00000130  73 28 69 24 29 3a f3 64  28 69 29 0d 00 b4 20 e7  |s(i$):.d(i)... .|
00000140  20 c1 91 24 2c 38 2c 33  29 3d c0 6d 24 28 69 29  | ..$,8,3)=.m$(i)|
00000150  2c 33 29 3a 4d 6f 6e 74  68 3d 69 0d 00 be 05 ed  |,3):Month=i.....|
00000160  0d 00 c8 28 e3 69 3d 31  20 b8 20 37 3a 69 24 3d  |...(.i=1 . 7:i$=|
00000170  22 57 22 2b c3 28 69 29  3a 77 24 28 69 29 3d a4  |"W"+.(i):w$(i)=.|
00000180  6d 73 28 69 24 29 3a ed  0d 00 d2 29 dc 20 33 31  |ms(i$):....). 31|
00000190  2c 32 38 2c 33 31 2c 33  30 2c 33 31 2c 33 30 2c  |,28,31,30,31,30,|
000001a0  33 31 2c 33 31 2c 33 30  2c 33 31 2c 33 30 2c 33  |31,31,30,31,30,3|
000001b0  31 0d 00 dc 04 0d 00 e6  1c 59 65 61 72 3d bb 28  |1........Year=.(|
000001c0  c1 91 24 2c 31 32 2c 34  29 29 3a 4d 6f 6f 6e 3d  |..$,12,4)):Moon=|
000001d0  b9 0d 00 f0 15 62 75 66  66 25 3d a4 42 75 66 66  |.....buff%=.Buff|
000001e0  65 72 28 32 38 29 0d 00  fa 07 f2 46 74 0d 01 04  |er(28).....Ft...|
000001f0  05 e1 0d 01 0e 04 0d 01  18 1c dd f2 44 72 61 77  |............Draw|
00000200  28 77 25 2c 77 78 2c 77  79 29 3a 67 3d 30 3a 68  |(w%,wx,wy):g=0:h|
00000210  3d 30 0d 01 22 09 f2 43  61 6c 63 0d 01 2c 0b f2  |=0.."..Calc..,..|
00000220  48 65 61 64 65 72 0d 01  36 1b c8 93 20 77 78 2b  |Header..6... wx+|
00000230  31 35 2c 77 79 2d 36 30  30 2c 39 30 30 2c 35 35  |15,wy-600,900,55|
00000240  34 0d 01 40 0b f2 42 6f  72 64 65 72 0d 01 4a 09  |4..@..Border..J.|
00000250  f2 44 61 79 73 0d 01 54  10 e7 20 4d 6f 6f 6e 20  |.Days..T.. Moon |
00000260  f2 4d 6f 6f 6e 0d 01 5e  05 e1 0d 01 68 04 0d 01  |.Moon..^....h...|
00000270  72 0a dd f2 43 61 6c 63  0d 01 7c 15 64 28 32 29  |r...Calc..|.d(2)|
00000280  3d 32 38 3a 73 74 3d 30  3a 63 61 3d 34 0d 01 86  |=28:st=0:ca=4...|
00000290  18 e7 20 59 65 61 72 20  83 20 34 3d 30 20 64 28  |.. Year . 4=0 d(|
000002a0  32 29 3d 32 39 0d 01 90  1a e7 20 59 65 61 72 20  |2)=29..... Year |
000002b0  83 20 31 30 30 3d 30 20  64 28 32 29 3d 32 38 0d  |. 100=0 d(2)=28.|
000002c0  01 9a 1a e7 20 59 65 61  72 20 83 20 34 30 30 3d  |.... Year . 400=|
000002d0  30 20 64 28 32 29 3d 32  39 0d 01 a4 1d 73 74 2b  |0 d(2)=29....st+|
000002e0  3d 28 33 36 35 2a 59 65  61 72 2b 28 59 65 61 72  |=(365*Year+(Year|
000002f0  20 81 20 34 29 29 0d 01  ae 27 e7 20 4d 6f 6e 74  | . 4))...'. Mont|
00000300  68 3e 31 20 e3 69 3d 31  20 b8 20 4d 6f 6e 74 68  |h>1 .i=1 . Month|
00000310  2d 31 3a 73 74 2b 3d 64  28 69 29 3a ed 0d 01 b8  |-1:st+=d(i):....|
00000320  16 e7 20 59 65 61 72 20  83 20 34 3d 30 20 73 74  |.. Year . 4=0 st|
00000330  2d 3d 31 0d 01 c2 17 77  6b 3d 94 20 28 28 73 74  |-=1....wk=. ((st|
00000340  2d 31 29 20 83 20 37 29  2b 31 0d 01 cc 0d 63 62  |-1) . 7)+1....cb|
00000350  3d 34 2a 77 6b 2d 33 0d  01 d6 2d e7 20 59 65 61  |=4*wk-3...-. Yea|
00000360  72 3e 3d 30 20 61 64 64  24 3d a4 6d 73 28 22 50  |r>=0 add$=.ms("P|
00000370  31 22 29 20 8b 20 61 64  64 24 3d a4 6d 73 28 22  |1") . add$=.ms("|
00000380  50 32 22 29 0d 01 e0 05  e1 0d 01 ea 04 0d 01 f4  |P2")............|
00000390  13 dd f2 48 65 61 64 65  72 3a ec 77 78 2c 77 79  |...Header:.wx,wy|
000003a0  0d 01 fe 88 e7 20 28 68  65 61 64 24 3d 22 53 79  |..... (head$="Sy|
000003b0  73 74 65 6d 22 20 80 20  64 72 61 77 3d a3 29 20  |stem" . draw=.) |
000003c0  ec 20 77 78 2b 36 2c 77  79 2d 35 3a f1 20 6d 24  |. wx+6,wy-5:. m$|
000003d0  28 4d 6f 6e 74 68 29 3b  22 20 22 3b 94 28 59 65  |(Month);" ";.(Ye|
000003e0  61 72 29 3b 61 64 64 24  20 8b 20 f2 46 6f 6e 74  |ar);add$ . .Font|
000003f0  28 77 78 2b 32 30 2b 67  2c 77 79 2d 33 32 2b 68  |(wx+20+g,wy-32+h|
00000400  2c 6d 24 28 4d 6f 6e 74  68 29 2b 22 20 22 2b c3  |,m$(Month)+" "+.|
00000410  28 94 28 59 65 61 72 29  29 2b 61 64 64 24 2c 68  |(.(Year))+add$,h|
00000420  65 61 64 24 2c 31 36 29  0d 02 08 0d e3 20 69 3d  |ead$,16)..... i=|
00000430  31 20 b8 20 37 0d 02 12  74 e7 20 28 6c 61 62 73  |1 . 7...t. (labs|
00000440  24 3d 22 53 79 73 74 65  6d 22 20 80 20 64 72 61  |$="System" . dra|
00000450  77 3d a3 29 20 ec 20 77  78 2b 28 28 69 2d 31 29  |w=.) . wx+((i-1)|
00000460  2a 31 33 30 29 2b 34 30  2c 77 79 2d 37 30 3a f1  |*130)+40,wy-70:.|
00000470  77 24 28 69 29 20 8b 20  f2 46 6f 6e 74 28 77 78  |w$(i) . .Font(wx|
00000480  2b 67 2b 28 31 33 30 2a  28 69 2d 31 29 29 2b 34  |+g+(130*(i-1))+4|
00000490  30 2c 77 79 2d 39 30 2b  68 2c 77 24 28 69 29 2c  |0,wy-90+h,w$(i),|
000004a0  6c 61 62 73 24 2c 31 36  29 0d 02 1c 05 ed 0d 02  |labs$,16).......|
000004b0  26 05 e1 0d 02 30 04 0d  02 3a 0c dd f2 42 6f 72  |&....0...:...Bor|
000004c0  64 65 72 0d 02 44 12 f2  78 28 31 34 30 2c 36 39  |der..D..x(140,69|
000004d0  34 2c 34 36 29 0d 02 4e  12 f2 78 28 32 37 35 2c  |4,46)..N..x(275,|
000004e0  36 39 34 2c 34 36 29 0d  02 58 12 f2 78 28 31 35  |694,46)..X..x(15|
000004f0  2c 36 30 30 2c 36 39 34  29 0d 02 62 12 f2 78 28  |,600,694)..b..x(|
00000500  34 30 35 2c 36 30 30 2c  34 36 29 0d 02 6c 12 f2  |405,600,46)..l..|
00000510  78 28 35 33 30 2c 36 30  30 2c 34 36 29 0d 02 76  |x(530,600,46)..v|
00000520  12 f2 78 28 36 35 35 2c  36 30 30 2c 34 36 29 0d  |..x(655,600,46).|
00000530  02 80 12 f2 78 28 37 38  30 2c 36 30 30 2c 34 36  |....x(780,600,46|
00000540  29 0d 02 8a 0f f2 79 28  36 39 34 2c 32 37 35 29  |).....y(694,275)|
00000550  0d 02 94 0f f2 79 28 35  30 34 2c 39 31 35 29 0d  |.....y(504,915).|
00000560  02 9e 0f f2 79 28 34 30  37 2c 39 31 35 29 0d 02  |....y(407,915)..|
00000570  a8 0f f2 79 28 33 31 30  2c 39 31 35 29 0d 02 b2  |...y(310,915)...|
00000580  0f f2 79 28 32 31 33 2c  39 31 35 29 0d 02 bc 0f  |..y(213,915)....|
00000590  f2 79 28 31 31 37 2c 39  31 35 29 0d 02 c6 05 e1  |.y(117,915).....|
000005a0  0d 02 d0 04 0d 02 da 0e  dd f2 78 28 6d 2c 6e 2c  |..........x(m,n,|
000005b0  6f 29 0d 02 e4 43 e7 20  64 72 61 77 20 f2 6c 69  |o)...C. draw .li|
000005c0  6e 65 28 67 2b 6d 2c 68  2b 38 30 30 2d 6e 2c 67  |ne(g+m,h+800-n,g|
000005d0  2b 6d 2c 68 2b 38 30 30  2d 6f 29 20 8b 20 ec 20  |+m,h+800-o) . . |
000005e0  77 78 2b 6d 2c 77 79 2d  6e 3a df 20 77 78 2b 6d  |wx+m,wy-n:. wx+m|
000005f0  2c 77 79 2d 6f 0d 02 ee  05 e1 0d 02 f8 04 0d 03  |,wy-o...........|
00000600  02 0c dd f2 79 28 6d 2c  6e 29 0d 03 0c 45 e7 20  |....y(m,n)...E. |
00000610  64 72 61 77 20 f2 6c 69  6e 65 28 67 2b 31 35 2c  |draw .line(g+15,|
00000620  68 2b 38 30 30 2d 6d 2c  67 2b 6e 2c 68 2b 38 30  |h+800-m,g+n,h+80|
00000630  30 2d 6d 29 20 8b 20 ec  20 77 78 2b 31 35 2c 77  |0-m) . . wx+15,w|
00000640  79 2d 6d 3a df 20 77 78  2b 6e 2c 77 79 2d 6d 0d  |y-m:. wx+n,wy-m.|
00000650  03 16 05 e1 0d 03 20 04  0d 03 2a 11 dd f2 44 61  |...... ...*...Da|
00000660  79 73 3a ec 77 78 2c 77  79 0d 03 34 1a 66 3d 4d  |ys:.wx,wy..4.f=M|
00000670  6f 6e 74 68 3a e7 20 4d  6f 6e 74 68 3d 31 20 66  |onth:. Month=1 f|
00000680  3d 31 33 0d 03 3e 11 e3  69 3d 31 20 b8 20 28 77  |=13..>..i=1 . (w|
00000690  6b 2d 31 29 0d 03 48 58  e7 20 28 70 72 65 24 3d  |k-1)..HX. (pre$=|
000006a0  22 53 79 73 74 65 6d 22  20 80 20 64 72 61 77 3d  |"System" . draw=|
000006b0  a3 20 80 20 77 6b 3e 31  29 20 ec 77 78 2b 28 31  |. . wk>1) .wx+(1|
000006c0  32 37 2a 28 28 28 63 62  2b 33 29 2f 34 29 2d 69  |27*(((cb+3)/4)-i|
000006d0  2b 31 29 29 2d 31 35 30  2c 77 79 2d 31 35 38 3a  |+1))-150,wy-158:|
000006e0  f1 3b 64 28 66 2d 31 29  2d 69 2b 31 0d 03 52 70  |.;d(f-1)-i+1..Rp|
000006f0  e7 20 28 70 72 65 24 3c  3e 22 53 79 73 74 65 6d  |. (pre$<>"System|
00000700  22 20 80 20 77 6b 3e 31  29 20 84 20 28 64 72 61  |" . wk>1) . (dra|
00000710  77 20 80 20 77 6b 3e 31  29 20 f2 46 6f 6e 74 28  |w . wk>1) .Font(|
00000720  77 78 2b 67 2b 28 31 32  37 2a 28 28 28 63 62 2b  |wx+g+(127*(((cb+|
00000730  33 29 2f 34 29 2d 69 29  29 2d 33 30 2c 77 79 2d  |3)/4)-i))-30,wy-|
00000740  31 39 30 2b 68 2c c3 28  64 28 66 2d 31 29 2d 69  |190+h,.(d(f-1)-i|
00000750  2b 31 29 2c 70 72 65 24  2c 31 32 29 0d 03 5c 05  |+1),pre$,12)..\.|
00000760  ed 0d 03 66 04 0d 03 70  13 e3 69 3d 31 20 b8 20  |...f...p..i=1 . |
00000770  64 28 4d 6f 6e 74 68 29  0d 03 7a 86 e7 20 6e 75  |d(Month)..z.. nu|
00000780  6d 62 24 3d 22 53 79 73  74 65 6d 22 20 80 20 64  |mb$="System" . d|
00000790  72 61 77 3d a3 20 ec 77  78 2b 28 31 32 37 2a 28  |raw=. .wx+(127*(|
000007a0  28 63 62 2b 33 29 2f 34  29 29 2d 31 35 30 2c 77  |(cb+3)/4))-150,w|
000007b0  79 2d 28 33 32 2a 63 61  29 2b 32 3a f1 69 20 8b  |y-(32*ca)+2:.i .|
000007c0  20 f2 46 6f 6e 74 28 77  78 2b 67 2b 28 31 32 37  | .Font(wx+g+(127|
000007d0  2a 28 28 63 62 2b 33 29  2f 34 29 29 2d 33 35 2c  |*((cb+3)/4))-35,|
000007e0  77 79 2d 28 33 32 2a 63  61 29 2d 32 35 2b 68 2c  |wy-(32*ca)-25+h,|
000007f0  c3 28 69 29 2c 6e 75 6d  62 24 2c 31 35 29 0d 03  |.(i),numb$,15)..|
00000800  84 09 63 62 2b 3d 34 0d  03 8e 17 e7 20 63 62 3e  |..cb+=4..... cb>|
00000810  3d 32 39 20 63 61 2b 3d  33 3a 63 62 3d 31 0d 03  |=29 ca+=3:cb=1..|
00000820  98 05 ed 0d 03 a2 04 0d  03 ac 09 63 61 2b 3d 31  |...........ca+=1|
00000830  0d 03 b6 0c e3 20 69 3d  31 b8 31 31 0d 03 c0 09  |..... i=1.11....|
00000840  63 62 2b 3d 34 0d 03 ca  16 e7 20 63 62 3e 32 39  |cb+=4..... cb>29|
00000850  20 63 61 2b 3d 33 3a 63  62 3d 35 0d 03 d4 18 e7  | ca+=3:cb=5.....|
00000860  20 63 62 3e 39 20 80 20  63 61 3e 31 37 20 6d 3d  | cb>9 . ca>17 m=|
00000870  30 3a e1 0d 03 de 86 e7  20 70 72 65 24 3d 22 53  |0:...... pre$="S|
00000880  79 73 74 65 6d 22 20 80  20 64 72 61 77 3d a3 20  |ystem" . draw=. |
00000890  ec 77 78 2b 28 31 32 37  2a 28 28 63 62 2b 33 29  |.wx+(127*((cb+3)|
000008a0  2f 34 29 2b 31 29 2d 31  33 35 2c 77 79 2d 28 33  |/4)+1)-135,wy-(3|
000008b0  32 2a 63 61 29 2b 32 3a  f1 3b 69 20 8b 20 f2 46  |2*ca)+2:.;i . .F|
000008c0  6f 6e 74 28 77 78 2b 67  2b 28 31 32 37 2a 28 63  |ont(wx+g+(127*(c|
000008d0  62 2b 33 29 2f 34 29 2d  31 33 35 2c 77 79 2d 28  |b+3)/4)-135,wy-(|
000008e0  33 32 2a 63 61 29 2d 33  30 2b 68 2c c3 28 69 29  |32*ca)-30+h,.(i)|
000008f0  2c 70 72 65 24 2c 31 32  29 0d 03 e8 05 ed 0d 03  |,pre$,12).......|
00000900  f2 05 e1 0d 03 fc 04 0d  04 06 11 dd f2 4d 6f 6f  |.............Moo|
00000910  6e 3a ec 77 78 2c 77 79  0d 04 10 0a f2 4d 43 61  |n:.wx,wy.....MCa|
00000920  6c 63 0d 04 1a 0a f2 4d  44 72 61 77 0d 04 24 57  |lc.....MDraw..$W|
00000930  e7 20 77 25 3d 53 61 76  65 44 59 5f 57 25 20 80  |. w%=SaveDY_W% .|
00000940  20 4d 6f 6e 74 68 3d 31  32 20 67 3d 2d 32 37 35  | Month=12 g=-275|
00000950  3a 68 2d 3d 31 37 35 3a  f2 46 6f 6e 74 28 77 78  |:h-=175:.Font(wx|
00000960  2b 32 39 30 2b 67 2c 77  79 2d 35 39 33 2b 68 2c  |+290+g,wy-593+h,|
00000970  a4 6d 73 28 22 4c 37 22  29 2c 68 65 61 64 24 2c  |.ms("L7"),head$,|
00000980  31 35 29 0d 04 2e 20 e7  20 77 25 3c 3e 53 61 76  |15)... . w%<>Sav|
00000990  65 44 59 5f 57 25 20 84  20 4d 6f 6e 74 68 3d 31  |eDY_W% . Month=1|
000009a0  32 20 8c 0d 04 38 2a f2  46 6f 6e 74 28 77 78 2b  |2 ...8*.Font(wx+|
000009b0  32 39 30 2b 67 2c 77 79  2d 36 32 37 2b 68 2c 22  |290+g,wy-627+h,"|
000009c0  41 22 2c 22 4d 6f 6f 6e  22 2c 31 30 29 0d 04 42  |A","Moon",10)..B|
000009d0  2e f2 46 6f 6e 74 28 77  78 2b 35 35 34 2b 67 2c  |..Font(wx+554+g,|
000009e0  77 79 2d 36 32 37 2b 68  2c 22 5b 20 20 20 45 22  |wy-627+h,"[   E"|
000009f0  2c 22 4d 6f 6f 6e 22 2c  31 30 29 0d 04 4c 2a f2  |,"Moon",10)..L*.|
00000a00  46 6f 6e 74 28 77 78 2b  32 39 30 2b 67 2c 77 79  |Font(wx+290+g,wy|
00000a10  2d 36 36 30 2b 68 2c 22  51 22 2c 22 4d 6f 6f 6e  |-660+h,"Q","Moon|
00000a20  22 2c 31 30 29 0d 04 56  2e f2 46 6f 6e 74 28 77  |",10)..V..Font(w|
00000a30  78 2b 35 35 34 2b 67 2c  77 79 2d 36 36 30 2b 68  |x+554+g,wy-660+h|
00000a40  2c 22 4c 20 20 20 56 22  2c 22 4d 6f 6f 6e 22 2c  |,"L   V","Moon",|
00000a50  31 30 29 0d 04 60 2e f2  46 6f 6e 74 28 77 78 2b  |10)..`..Font(wx+|
00000a60  32 39 30 2b 67 2c 77 79  2d 36 39 30 2b 68 2c 22  |290+g,wy-690+h,"|
00000a70  49 20 20 20 58 22 2c 22  4d 6f 6f 6e 22 2c 31 30  |I   X","Moon",10|
00000a80  29 0d 04 6a 1e e7 20 6c  61 62 73 24 3c 3e 22 53  |)..j.. labs$<>"S|
00000a90  79 73 74 65 6d 22 20 84  20 64 72 61 77 20 8c 0d  |ystem" . draw ..|
00000aa0  04 74 2f f2 46 6f 6e 74  28 77 78 2b 33 32 39 2b  |.t/.Font(wx+329+|
00000ab0  67 2c 77 79 2d 36 32 39  2b 68 2c a4 6d 73 28 22  |g,wy-629+h,.ms("|
00000ac0  4c 31 22 29 2c 6c 61 62  73 24 2c 31 33 29 0d 04  |L1"),labs$,13)..|
00000ad0  7e 2f f2 46 6f 6e 74 28  77 78 2b 33 32 39 2b 67  |~/.Font(wx+329+g|
00000ae0  2c 77 79 2d 36 36 32 2b  68 2c a4 6d 73 28 22 4c  |,wy-662+h,.ms("L|
00000af0  32 22 29 2c 6c 61 62 73  24 2c 31 33 29 0d 04 88  |2"),labs$,13)...|
00000b00  2f f2 46 6f 6e 74 28 77  78 2b 34 30 30 2b 67 2c  |/.Font(wx+400+g,|
00000b10  77 79 2d 36 39 35 2b 68  2c a4 6d 73 28 22 4c 33  |wy-695+h,.ms("L3|
00000b20  22 29 2c 6c 61 62 73 24  2c 31 33 29 0d 04 92 2f  |"),labs$,13).../|
00000b30  f2 46 6f 6e 74 28 77 78  2b 36 35 30 2b 67 2c 77  |.Font(wx+650+g,w|
00000b40  79 2d 36 32 39 2b 68 2c  a4 6d 73 28 22 4c 34 22  |y-629+h,.ms("L4"|
00000b50  29 2c 6c 61 62 73 24 2c  31 33 29 0d 04 9c 2f f2  |),labs$,13).../.|
00000b60  46 6f 6e 74 28 77 78 2b  36 35 30 2b 67 2c 77 79  |Font(wx+650+g,wy|
00000b70  2d 36 36 32 2b 68 2c a4  6d 73 28 22 4c 35 22 29  |-662+h,.ms("L5")|
00000b80  2c 6c 61 62 73 24 2c 31  33 29 0d 04 a6 29 f2 46  |,labs$,13)...).F|
00000b90  6f 6e 74 28 77 78 2b 33  32 30 2b 67 2c 77 79 2d  |ont(wx+320+g,wy-|
00000ba0  36 39 35 2b 68 2c 22 26  22 2c 6c 61 62 73 24 2c  |695+h,"&",labs$,|
00000bb0  31 33 29 0d 04 b0 29 f2  46 6f 6e 74 28 77 78 2b  |13)...).Font(wx+|
00000bc0  35 38 37 2b 67 2c 77 79  2d 36 32 39 2b 68 2c 22  |587+g,wy-629+h,"|
00000bd0  26 22 2c 6c 61 62 73 24  2c 31 33 29 0d 04 ba 29  |&",labs$,13)...)|
00000be0  f2 46 6f 6e 74 28 77 78  2b 35 38 37 2b 67 2c 77  |.Font(wx+587+g,w|
00000bf0  79 2d 36 36 32 2b 68 2c  22 26 22 2c 6c 61 62 73  |y-662+h,"&",labs|
00000c00  24 2c 31 33 29 0d 04 c4  05 cc 0d 04 ce 91 ec 77  |$,13)..........w|
00000c10  78 2b 33 30 30 2c 77 79  2d 36 30 35 3a f1 22 20  |x+300,wy-605:." |
00000c20  20 22 3b a4 6d 73 28 22  4c 31 22 29 3b 89 28 37  | ";.ms("L1");.(7|
00000c30  29 3b 22 20 26 20 20 20  22 3b a4 6d 73 28 22 4c  |);" &   ";.ms("L|
00000c40  34 22 29 3a ec 77 78 2b  33 30 30 2c 77 79 2d 36  |4"):.wx+300,wy-6|
00000c50  33 37 3a f1 22 20 20 22  3b a4 6d 73 28 22 4c 32  |37:."  ";.ms("L2|
00000c60  22 29 3b 89 28 36 29 3b  22 20 26 20 20 20 22 3b  |");.(6);" &   ";|
00000c70  a4 6d 73 28 22 4c 35 22  29 3a ec 77 78 2b 33 31  |.ms("L5"):.wx+31|
00000c80  30 2c 77 79 2d 36 37 30  3a f1 22 20 26 20 20 20  |0,wy-670:." &   |
00000c90  22 3b a4 6d 73 28 22 4c  33 22 29 0d 04 d8 05 cd  |";.ms("L3").....|
00000ca0  0d 04 e2 05 cd 0d 04 ec  05 e1 0d 04 f6 04 0d 05  |................|
00000cb0  00 0b dd f2 4d 43 61 6c  63 0d 05 0a 16 6c 6d 3d  |....MCalc....lm=|
00000cc0  32 39 2e 35 33 30 35 38  37 39 36 32 39 36 31 0d  |29.530587962961.|
00000cd0  05 14 28 64 61 79 73 3d  33 36 35 2a 28 59 65 61  |..(days=365*(Yea|
00000ce0  72 2d 31 39 30 30 29 2b  28 59 65 61 72 2d 31 39  |r-1900)+(Year-19|
00000cf0  30 30 29 20 81 20 34 0d  05 1e 23 e3 69 3d 31 20  |00) . 4...#.i=1 |
00000d00  b8 20 4d 6f 6e 74 68 2d  31 3a 64 61 79 73 3d 64  |. Month-1:days=d|
00000d10  61 79 73 2b 64 28 69 29  3a ed 0d 05 28 18 e7 20  |ays+d(i):...(.. |
00000d20  59 65 61 72 20 83 20 34  3d 30 20 64 61 79 73 2d  |Year . 4=0 days-|
00000d30  3d 31 0d 05 32 29 6e 3d  a8 20 28 64 28 69 29 2d  |=1..2)n=. (d(i)-|
00000d40  28 28 64 61 79 73 2d 6c  6d 2a a8 28 64 61 79 73  |((days-lm*.(days|
00000d50  2f 6c 6d 29 2b 31 29 29  29 2b 31 0d 05 3c 12 e7  |/lm)+1)))+1..<..|
00000d60  20 4d 6f 6e 74 68 3d 32  20 6e 2b 3d 33 0d 05 46  | Month=2 n+=3..F|
00000d70  05 e1 0d 05 50 04 0d 05  5a 12 dd f2 4d 44 72 61  |....P...Z...MDra|
00000d80  77 3a ec 77 78 2c 77 79  0d 05 64 17 63 61 3d 34  |w:.wx,wy..d.ca=4|
00000d90  3a 63 62 3d 31 3a 79 3d  39 37 2d 6e 2d 77 6b 0d  |:cb=1:y=97-n-wk.|
00000da0  05 6e 14 e7 20 79 3c 36  35 20 79 3d 39 35 2d 36  |.n.. y<65 y=95-6|
00000db0  35 2b 79 0d 05 78 0e e3  20 69 3d 31 20 b8 20 33  |5+y..x.. i=1 . 3|
00000dc0  37 0d 05 82 17 e7 20 63  62 3e 3d 32 39 20 63 61  |7..... cb>=29 ca|
00000dd0  2b 3d 33 3a 63 62 3d 31  0d 05 8c 3d f2 46 6f 6e  |+=3:cb=1...=.Fon|
00000de0  74 28 77 78 2b 67 2b 28  33 32 2a 28 63 62 2b 31  |t(wx+g+(32*(cb+1|
00000df0  29 29 2d 31 35 2c 77 79  2d 28 33 32 2a 63 61 29  |))-15,wy-(32*ca)|
00000e00  2d 32 32 2b 68 2c bd 28  79 29 2c 22 4d 6f 6f 6e  |-22+h,.(y),"Moon|
00000e10  22 2c 31 31 29 0d 05 96  0e 79 2b 3d 31 3a 63 62  |",11)....y+=1:cb|
00000e20  2b 3d 34 0d 05 a0 0f e7  20 79 3e 39 34 20 79 3d  |+=4..... y>94 y=|
00000e30  36 35 0d 05 aa 05 ed 0d  05 b4 05 e1 0d 05 be 04  |65..............|
00000e40  0d 05 c8 11 f4 20 2a 2a  2d 2d 3e 3e 4d 65 6e 75  |..... **-->>Menu|
00000e50  73 0d 05 d2 0f dd a4 4d  65 6e 75 45 28 77 25 29  |s......MenuE(w%)|
00000e60  0d 05 dc 0b c8 8e 20 77  25 20 ca 0d 05 e6 10 c9  |...... w% ......|
00000e70  20 2d 32 3a 3d 42 61 72  5f 4d 25 0d 05 f0 16 c9  | -2:=Bar_M%.....|
00000e80  20 4d 61 69 6e 5f 57 25  3a 3d 4d 61 69 6e 5f 4d  | Main_W%:=Main_M|
00000e90  25 0d 05 fa 08 7f 3a 3d  a3 0d 06 04 05 cb 0d 06  |%.....:=........|
00000ea0  0e 04 0d 06 18 12 dd f2  4d 65 6e 75 43 28 6d 65  |........MenuC(me|
00000eb0  6e 75 25 29 0d 06 22 1f  e7 20 6d 65 6e 75 25 3d  |nu%)..".. menu%=|
00000ec0  42 61 72 5f 4d 25 20 f2  42 61 72 20 8b 20 f2 4d  |Bar_M% .Bar . .M|
00000ed0  61 69 6e 0d 06 2c 12 f2  41 64 6a 75 73 74 28 6d  |ain..,..Adjust(m|
00000ee0  65 6e 75 25 29 0d 06 36  3b e7 20 69 31 25 21 38  |enu%)..6;. i1%!8|
00000ef0  3d 34 20 80 20 6d 65 6e  75 25 3d 4d 61 69 6e 5f  |=4 . menu%=Main_|
00000f00  4d 25 20 80 20 a4 5f 4d  65 6e 43 28 30 29 3c 3e  |M% . ._MenC(0)<>|
00000f10  37 20 f2 57 54 6f 70 28  4d 61 69 6e 5f 57 25 29  |7 .WTop(Main_W%)|
00000f20  0d 06 40 05 e1 0d 06 4a  04 0d 06 54 0a dd f2 4d  |..@....J...T...M|
00000f30  61 69 6e 0d 06 5e 12 c8  8e 20 a4 5f 4d 65 6e 43  |ain..^... ._MenC|
00000f40  28 30 29 20 ca 0d 06 68  2f c9 20 31 3a e7 20 a4  |(0) ...h/. 1:. .|
00000f50  5f 4d 65 6e 43 28 31 29  3d 31 20 7a 24 3d a4 47  |_MenC(1)=1 z$=.G|
00000f60  53 41 28 62 75 66 66 25  29 3a 59 65 61 72 3d bb  |SA(buff%):Year=.|
00000f70  28 7a 24 29 0d 06 72 28  c9 20 32 3a 78 3d a4 5f  |(z$)..r(. 2:x=._|
00000f80  4d 65 6e 43 28 31 29 3a  e7 20 78 3e 30 20 80 20  |MenC(1):. x>0 . |
00000f90  78 3c 31 33 20 4d 6f 6e  74 68 3d 78 0d 06 7c 2d  |x<13 Month=x..|-|
00000fa0  c9 20 33 3a f2 4d 54 28  4d 61 69 6e 5f 4d 25 2c  |. 3:.MT(Main_M%,|
00000fb0  33 29 3a e7 20 4d 6f 6f  6e 20 4d 6f 6f 6e 3d a3  |3):. Moon Moon=.|
00000fc0  20 8b 20 4d 6f 6f 6e 3d  b9 0d 06 86 26 c9 20 34  | . Moon=....&. 4|
00000fd0  3a 69 3d a4 5f 4d 65 6e  43 28 31 29 3a e7 20 69  |:i=._MenC(1):. i|
00000fe0  3d 35 20 f2 46 74 20 8b  20 f2 53 46 6f 6e 74 0d  |=5 .Ft . .SFont.|
00000ff0  06 90 2e c9 20 37 3a c8  99 26 34 30 30 44 45 2c  |.... 7:..&400DE,|
00001000  22 52 75 6e 20 3c 21 50  68 61 73 65 72 24 44 69  |"Run <!Phaser$Di|
00001010  72 3e 2e 21 48 65 6c 70  22 3a cb 3a e1 0d 06 9a  |r>.!Help":.:....|
00001020  15 cb 3a f2 57 46 44 28  4d 61 69 6e 5f 57 25 29  |..:.WFD(Main_W%)|
00001030  3a e1 0d 06 a4 04 0d 06  ae 08 dd f2 46 74 0d 06  |:...........Ft..|
00001040  b8 15 68 65 61 64 24 3d  a4 6d 73 28 22 68 65 61  |..head$=.ms("hea|
00001050  64 22 29 0d 06 c2 15 6e  75 6d 62 24 3d a4 6d 73  |d")....numb$=.ms|
00001060  28 22 6e 75 6d 62 22 29  0d 06 cc 13 70 72 65 24  |("numb")....pre$|
00001070  3d a4 6d 73 28 22 70 72  65 22 29 0d 06 d6 14 6c  |=.ms("pre")....l|
00001080  61 62 73 24 3d a4 6d 73  28 22 6c 61 62 22 29 0d  |abs$=.ms("lab").|
00001090  06 e0 05 e1 0d 06 ea 04  0d 06 f4 0b dd f2 53 46  |..............SF|
000010a0  6f 6e 74 0d 06 fe 27 c8  99 22 57 69 6d 70 5f 44  |ont...'.."Wimp_D|
000010b0  65 63 6f 64 65 4d 65 6e  75 22 2c 2c 4d 61 69 6e  |ecodeMenu",,Main|
000010c0  5f 4d 25 2c 71 25 2c 66  74 74 0d 07 08 23 66 74  |_M%,q%,ftt...#ft|
000010d0  24 3d c1 24 66 74 74 2c  a7 24 66 74 74 2c 22 2e  |$=.$ftt,.$ftt,".|
000010e0  22 29 2b 31 2c a9 28 24  66 74 74 29 29 0d 07 12  |")+1,.($ftt))...|
000010f0  20 66 74 24 3d c1 66 74  24 2c a7 66 74 24 2c 22  | ft$=.ft$,.ft$,"|
00001100  2e 22 29 2b 31 2c a9 28  66 74 24 29 29 0d 07 1c  |.")+1,.(ft$))...|
00001110  13 e7 20 69 3d 31 20 68  65 61 64 24 3d 66 74 24  |.. i=1 head$=ft$|
00001120  0d 07 26 13 e7 20 69 3d  32 20 6e 75 6d 62 24 3d  |..&.. i=2 numb$=|
00001130  66 74 24 0d 07 30 12 e7  20 69 3d 33 20 70 72 65  |ft$..0.. i=3 pre|
00001140  24 3d 66 74 24 0d 07 3a  13 e7 20 69 3d 34 20 6c  |$=ft$..:.. i=4 l|
00001150  61 62 73 24 3d 66 74 24  0d 07 44 05 e1 0d 07 4e  |abs$=ft$..D....N|
00001160  04 0d 07 58 0a dd f2 54  65 78 74 0d 07 62 11 74  |...X...Text..b.t|
00001170  3d a3 3a 4d 6f 6e 3d 4d  6f 6e 74 68 0d 07 6c 16  |=.:Mon=Month..l.|
00001180  e7 20 77 25 3d 53 61 76  65 54 59 5f 57 25 20 74  |. w%=SaveTY_W% t|
00001190  3d b9 0d 07 76 0c 63 25  3d ae 28 67 24 29 0d 07  |=...v.c%=.(g$)..|
000011a0  80 0f 68 24 3d 22 22 3a  73 24 3d 22 22 0d 07 8a  |..h$="":s$=""...|
000011b0  17 e3 20 78 3d 31 b8 34  30 3a 73 24 2b 3d 22 20  |.. x=1.40:s$+=" |
000011c0  22 3a ed 78 0d 07 94 1e  e3 20 78 3d 31 20 b8 20  |":.x..... x=1 . |
000011d0  37 3a 68 24 2b 3d 77 24  28 78 29 2b 22 20 22 3a  |7:h$+=w$(x)+" ":|
000011e0  ed 78 0d 07 9e 0b 68 24  3d c0 68 24 29 0d 07 a8  |.x....h$=.h$)...|
000011f0  92 e7 20 74 20 68 24 2b  3d c0 73 24 2c 31 33 29  |.. t h$+=.s$,13)|
00001200  2b 68 24 3a d5 23 63 25  2c c3 28 94 28 59 65 61  |+h$:.#c%,.(.(Yea|
00001210  72 29 29 2b 61 64 64 24  2b 22 20 20 22 2b a4 6d  |r))+add$+"  "+.m|
00001220  73 28 22 50 30 22 29 2b  bd 28 31 30 29 3a e3 20  |s("P0")+.(10):. |
00001230  78 3d 31 20 b8 20 31 32  20 88 20 32 3a 4d 6f 6e  |x=1 . 12 . 2:Mon|
00001240  74 68 3d 78 2b 31 3a f2  43 61 6c 63 3a 77 6b 32  |th=x+1:.Calc:wk2|
00001250  3d 77 6b 3a 6a 32 3d 31  3a f2 4d 43 61 6c 63 3a  |=wk:j2=1:.MCalc:|
00001260  6e 32 3d 6e 20 8b 20 78  3d 4d 6f 6e 74 68 3a 6a  |n2=n . x=Month:j|
00001270  32 3d 64 28 78 2b 31 29  2b 31 3a 6e 32 3d 31 0d  |2=d(x+1)+1:n2=1.|
00001280  07 b2 29 4d 6f 6e 74 68  3d 78 3a f2 43 61 6c 63  |..)Month=x:.Calc|
00001290  3a 77 6b 31 3d 77 6b 3a  6a 31 3d 31 3a f2 4d 43  |:wk1=wk:j1=1:.MC|
000012a0  61 6c 63 3a 6e 31 3d 6e  0d 07 bc 20 78 24 3d 6d  |alc:n1=n... x$=m|
000012b0  24 28 78 29 2b 22 20 22  2b c3 28 94 28 59 65 61  |$(x)+" "+.(.(Yea|
000012c0  72 29 29 2b 61 64 64 24  0d 07 c6 40 e7 20 74 20  |r))+add$...@. t |
000012d0  78 24 2b 3d c1 73 24 2c  31 2c 28 34 30 2d a9 78  |x$+=.s$,1,(40-.x|
000012e0  24 29 29 2b 6d 24 28 78  2b 31 29 2b 22 20 22 2b  |$))+m$(x+1)+" "+|
000012f0  c3 28 94 28 59 65 61 72  29 29 2b 61 64 64 24 3a  |.(.(Year))+add$:|
00001300  6a 32 3d 32 2d 77 6b 32  0d 07 d0 13 d5 23 63 25  |j2=2-wk2.....#c%|
00001310  2c 78 24 3a d5 23 63 25  2c 68 24 0d 07 da 0c 6a  |,x$:.#c%,h$....j|
00001320  31 3d 32 2d 77 6b 31 0d  07 e4 13 e3 20 6c 3d 31  |1=2-wk1..... l=1|
00001330  20 b8 20 36 3a 78 24 3d  22 22 0d 07 ee 1f 6a 3d  | . 6:x$=""....j=|
00001340  6a 31 3a 6e 3d 6e 31 3a  69 3d 64 28 78 29 3a f2  |j1:n=n1:i=d(x):.|
00001350  4c 6f 6f 70 3a 6a 31 3d  6b 0d 07 f8 09 e7 20 74  |Loop:j1=k..... t|
00001360  20 8c 0d 08 02 16 6a 3d  6a 32 3a 6e 3d 6e 32 3a  | .....j=j2:n=n2:|
00001370  69 3d 64 28 78 2b 31 29  0d 08 0c 36 e7 20 6a 3e  |i=d(x+1)...6. j>|
00001380  69 20 d5 23 63 25 2c c0  78 24 29 20 8b 20 78 24  |i .#c%,.x$) . x$|
00001390  2b 3d c0 73 24 2c 31 32  29 3a f2 4c 6f 6f 70 3a  |+=.s$,12):.Loop:|
000013a0  6a 32 3d 6b 3a d5 23 63  25 2c c0 78 24 29 0d 08  |j2=k:.#c%,.x$)..|
000013b0  16 05 cc 0d 08 20 0d d5  23 63 25 2c c0 78 24 29  |..... ..#c%,.x$)|
000013c0  0d 08 2a 05 cd 0d 08 34  06 ed 6c 0d 08 3e 0b d5  |..*....4..l..>..|
000013d0  23 63 25 2c 22 22 0d 08  48 0a e7 20 74 20 ed 78  |#c%,""..H.. t .x|
000013e0  0d 08 52 51 e7 20 4d 6f  6f 6e 20 d5 23 63 25 2c  |..RQ. Moon .#c%,|
000013f0  a4 6d 73 28 22 4c 37 22  29 3a d5 23 63 25 2c 22  |.ms("L7"):.#c%,"|
00001400  4e 3a 20 22 2b a4 6d 73  28 22 4c 31 22 29 2b 22  |N: "+.ms("L1")+"|
00001410  20 20 20 20 46 3a 20 22  2b a4 6d 73 28 22 4c 32  |    F: "+.ms("L2|
00001420  22 29 3a d5 23 63 25 2c  a4 6d 73 28 22 4c 36 22  |"):.#c%,.ms("L6"|
00001430  29 0d 08 5c 0d 4d 6f 6e  74 68 3d 4d 6f 6e 0d 08  |)..\.Month=Mon..|
00001440  66 08 d9 23 63 25 0d 08  70 1b ff 28 22 53 65 74  |f..#c%..p..("Set|
00001450  54 79 70 65 20 22 2b 67  24 2b 22 20 46 46 46 22  |Type "+g$+" FFF"|
00001460  29 0d 08 7a 05 e1 0d 08  84 04 0d 08 8e 0a dd f2  |)..z............|
00001470  4c 6f 6f 70 0d 08 98 13  e3 20 6b 3d 6a 20 b8 20  |Loop..... k=j . |
00001480  6a 2b 36 20 88 20 31 0d  08 a2 0b 49 24 3d 22 20  |j+6 . 1....I$=" |
00001490  20 22 0d 08 ac 0c e7 20  4d 6f 6f 6e 20 8c 0d 08  | "..... Moon ...|
000014a0  b6 11 e7 20 6b 3d 6e 20  49 24 3d 22 4e 20 22 0d  |... k=n I$="N ".|
000014b0  08 c0 1d e7 20 6b 3d 6e  2b 31 36 20 84 20 6b 3d  |.... k=n+16 . k=|
000014c0  6e 2d 31 34 20 49 24 3d  22 46 20 22 0d 08 ca 05  |n-14 I$="F "....|
000014d0  cd 0d 08 d4 19 e7 20 6b  3e 69 20 80 20 6e 3d 6e  |...... k>i . n=n|
000014e0  32 20 80 20 6a 3d 6a 32  20 e1 0d 08 de 25 e7 20  |2 . j=j2 ....%. |
000014f0  6b 3e 69 20 80 20 6e 3d  6e 31 20 80 20 6a 3d 6a  |k>i . n=n1 . j=j|
00001500  31 20 80 20 6a 32 3e 64  28 78 2b 31 29 20 e1 0d  |1 . j2>d(x+1) ..|
00001510  08 e8 4d e7 20 6b 3c 31  20 78 24 2b 3d 22 20 20  |..M. k<1 x$+="  |
00001520  20 20 22 20 8b 20 e7 20  6b 3e 69 20 78 24 2b 3d  |  " . . k>i x$+=|
00001530  22 20 20 20 20 22 20 8b  20 e7 20 6b 3e 39 20 78  |"    " . . k>9 x|
00001540  24 2b 3d c3 28 6b 29 2b  49 24 20 8b 20 78 24 2b  |$+=.(k)+I$ . x$+|
00001550  3d c3 28 6b 29 2b 22 20  22 2b 49 24 0d 08 f2 06  |=.(k)+" "+I$....|
00001560  ed 6b 0d 08 fc 05 e1 0d  09 06 04 0d 09 10 10 f4  |.k..............|
00001570  20 2a 2a 2d 2d 3e 3e 44  72 61 77 0d 09 1a 16 dd  | **-->>Draw.....|
00001580  f2 53 61 76 65 46 69 6c  65 45 28 67 24 2c 77 25  |.SaveFileE(g$,w%|
00001590  29 0d 09 24 1c f2 57 43  6c 6f 73 65 28 77 25 29  |)..$..WClose(w%)|
000015a0  3a c8 99 20 26 34 30 30  44 34 2c 2d 31 0d 09 2e  |:.. &400D4,-1...|
000015b0  29 e7 20 77 25 3d 53 61  76 65 54 4d 5f 57 25 20  |). w%=SaveTM_W% |
000015c0  84 20 77 25 3d 53 61 76  65 54 59 5f 57 25 20 f2  |. w%=SaveTY_W% .|
000015d0  54 65 78 74 3a e1 0d 09  38 12 64 72 61 77 3d b9  |Text:...8.draw=.|
000015e0  3a 70 74 25 3d 32 35 36  0d 09 42 21 4d 6f 6e 3d  |:pt%=256..B!Mon=|
000015f0  4d 6f 6e 74 68 3a 77 78  3d 30 3a 77 79 3d 38 30  |Month:wx=0:wy=80|
00001600  30 3a 67 3d 30 3a 68 3d  30 0d 09 4c 0c 63 25 3d  |0:g=0:h=0..L.c%=|
00001610  ae 28 67 24 29 0d 09 56  28 f2 70 75 74 77 28 26  |.(g$)..V(.putw(&|
00001620  37 37 36 31 37 32 34 34  29 3a f2 70 75 74 77 28  |77617244):.putw(|
00001630  32 30 31 29 3a f2 70 75  74 77 28 30 29 0d 09 60  |201):.putw(0)..`|
00001640  30 f2 70 75 74 73 31 32  28 c0 6d 24 28 4d 6f 6e  |0.puts12(.m$(Mon|
00001650  74 68 29 2c 33 29 2b 22  5f 22 2b c0 c3 28 59 65  |th),3)+"_"+..(Ye|
00001660  61 72 29 2c 34 29 29 3a  6c 25 3d 2d 31 0d 09 6a  |ar),4)):l%=-1..j|
00001670  11 f2 68 65 61 64 5f 68  65 72 65 28 b9 29 0d 09  |..head_here(.)..|
00001680  74 0c f2 70 75 74 77 28  30 29 0d 09 7e 11 f2 68  |t..putw(0)..~..h|
00001690  65 61 64 5f 68 65 72 65  28 a3 29 0d 09 88 15 f2  |ead_here(.).....|
000016a0  70 75 74 73 28 bd 28 31  29 2b 68 65 61 64 24 29  |puts(.(1)+head$)|
000016b0  0d 09 92 16 f2 70 75 74  73 28 bd 28 32 29 2b 22  |.....puts(.(2)+"|
000016c0  4d 6f 6f 6e 22 29 0d 09  9c 15 f2 70 75 74 73 28  |Moon").....puts(|
000016d0  bd 28 33 29 2b 6e 75 6d  62 24 29 0d 09 a6 14 f2  |.(3)+numb$).....|
000016e0  70 75 74 73 28 bd 28 34  29 2b 70 72 65 24 29 0d  |puts(.(4)+pre$).|
000016f0  09 b0 15 f2 70 75 74 73  28 bd 28 35 29 2b 6c 61  |....puts(.(5)+la|
00001700  62 73 24 29 0d 09 ba 0a  f2 61 6c 69 67 6e 0d 09  |bs$).....align..|
00001710  c4 0e f2 67 72 6f 75 70  5f 45 6e 64 0d 09 ce 0c  |...group_End....|
00001720  c8 99 26 34 30 36 43 30  0d 09 d8 73 e7 20 77 25  |..&406C0...s. w%|
00001730  3d 53 61 76 65 44 59 5f  57 25 20 68 3d 33 35 30  |=SaveDY_W% h=350|
00001740  30 3a 70 74 25 3d 31 32  30 3a f2 67 72 6f 75 70  |0:pt%=120:.group|
00001750  5f 53 74 61 72 74 3a f2  46 6f 6e 74 28 35 2c 34  |_Start:.Font(5,4|
00001760  33 33 35 2c c3 28 94 28  59 65 61 72 29 29 2b 61  |335,.(.(Year))+a|
00001770  64 64 24 2b 22 20 20 22  2b a4 6d 73 28 22 50 30  |dd$+"  "+.ms("P0|
00001780  22 29 2c 68 65 61 64 24  2c 33 30 29 3a e3 20 4d  |"),head$,30):. M|
00001790  6f 6e 74 68 3d 31 20 b8  20 31 32 0d 09 e2 10 f2  |onth=1 . 12.....|
000017a0  67 72 6f 75 70 5f 53 74  61 72 74 0d 09 ec 10 f2  |group_Start.....|
000017b0  67 72 6f 75 70 5f 53 74  61 72 74 0d 09 f6 1b c8  |group_Start.....|
000017c0  99 26 34 30 36 43 34 2c  28 4d 6f 6e 74 68 2f 31  |.&406C4,(Month/1|
000017d0  33 29 2a 31 30 30 0d 0a  00 17 f2 43 61 6c 63 3a  |3)*100.....Calc:|
000017e0  f2 48 65 61 64 65 72 3a  f2 44 61 79 73 0d 0a 0a  |.Header:.Days...|
000017f0  0e f2 67 72 6f 75 70 5f  45 6e 64 0d 0a 14 10 f2  |..group_End.....|
00001800  67 72 6f 75 70 5f 53 74  61 72 74 0d 0a 1e 3d f2  |group_Start...=.|
00001810  70 61 74 68 5f 73 74 61  72 74 28 28 67 2b 31 35  |path_start((g+15|
00001820  29 2a 70 74 25 2c 28 68  2b 32 30 30 29 2a 70 74  |)*pt%,(h+200)*pt|
00001830  25 2c 30 2c 26 30 30 30  30 30 30 30 30 2c 26 46  |%,0,&00000000,&F|
00001840  46 46 46 46 46 46 46 29  0d 0a 28 26 f2 70 61 74  |FFFFFFF)..(&.pat|
00001850  68 5f 64 72 61 77 28 28  67 2b 31 35 29 2a 70 74  |h_draw((g+15)*pt|
00001860  25 2c 28 68 2b 37 35 34  29 2a 70 74 25 29 0d 0a  |%,(h+754)*pt%)..|
00001870  32 27 f2 70 61 74 68 5f  64 72 61 77 28 28 67 2b  |2'.path_draw((g+|
00001880  39 31 35 29 2a 70 74 25  2c 28 68 2b 37 35 34 29  |915)*pt%,(h+754)|
00001890  2a 70 74 25 29 0d 0a 3c  27 f2 70 61 74 68 5f 64  |*pt%)..<'.path_d|
000018a0  72 61 77 28 28 67 2b 39  31 35 29 2a 70 74 25 2c  |raw((g+915)*pt%,|
000018b0  28 68 2b 32 30 30 29 2a  70 74 25 29 0d 0a 46 0c  |(h+200)*pt%)..F.|
000018c0  f2 70 75 74 77 28 35 29  0d 0a 50 0d f2 70 61 74  |.putw(5)..P..pat|
000018d0  68 5f 65 6e 64 0d 0a 5a  0b f2 42 6f 72 64 65 72  |h_end..Z..Border|
000018e0  0d 0a 64 0e f2 67 72 6f  75 70 5f 45 6e 64 0d 0a  |..d..group_End..|
000018f0  6e 0c e7 20 4d 6f 6f 6e  20 8c 0d 0a 78 10 f2 67  |n.. Moon ...x..g|
00001900  72 6f 75 70 5f 53 74 61  72 74 0d 0a 82 09 f2 4d  |roup_Start.....M|
00001910  6f 6f 6e 0d 0a 8c 3f e7  20 77 25 3d 53 61 76 65  |oon...?. w%=Save|
00001920  44 4d 5f 57 25 20 84 20  4d 6f 6e 74 68 3d 31 32  |DM_W% . Month=12|
00001930  20 f2 46 6f 6e 74 28 31  35 2c 68 2b 32 30 2c a4  | .Font(15,h+20,.|
00001940  6d 73 28 22 4c 36 22 29  2c 68 65 61 64 24 2c 31  |ms("L6"),head$,1|
00001950  34 29 0d 0a 96 0e f2 67  72 6f 75 70 5f 45 6e 64  |4).....group_End|
00001960  0d 0a a0 05 cd 0d 0a aa  0e f2 67 72 6f 75 70 5f  |..........group_|
00001970  45 6e 64 0d 0a b4 30 e7  20 77 25 3d 53 61 76 65  |End...0. w%=Save|
00001980  44 59 5f 57 25 20 e7 20  67 3d 32 30 30 30 20 67  |DY_W% . g=2000 g|
00001990  3d 30 3a 68 2d 3d 37 35  30 20 8b 20 67 2b 3d 31  |=0:h-=750 . g+=1|
000019a0  30 30 30 0d 0a be 1f e7  20 77 25 3d 53 61 76 65  |000..... w%=Save|
000019b0  44 59 5f 57 25 20 ed 3a  f2 67 72 6f 75 70 5f 45  |DY_W% .:.group_E|
000019c0  6e 64 0d 0a c8 0e f2 67  72 6f 75 70 5f 45 6e 64  |nd.....group_End|
000019d0  0d 0a d2 0c c8 99 26 34  30 36 43 32 0d 0a dc 08  |......&406C2....|
000019e0  d9 23 63 25 0d 0a e6 1b  ff 28 22 53 65 74 54 79  |.#c%.....("SetTy|
000019f0  70 65 20 22 2b 67 24 2b  22 20 41 46 46 22 29 0d  |pe "+g$+" AFF").|
00001a00  0a f0 14 64 72 61 77 3d  a3 3a 4d 6f 6e 74 68 3d  |...draw=.:Month=|
00001a10  4d 6f 6e 0d 0a fa 05 e1  0d 0b 04 04 0d 0b 0e 0b  |Mon.............|
00001a20  dd f2 46 43 6f 6e 76 0d  0b 18 08 78 25 3d 35 0d  |..FConv....x%=5.|
00001a30  0b 22 13 e7 20 69 24 3d  68 65 61 64 24 20 78 25  |.".. i$=head$ x%|
00001a40  3d 31 0d 0b 2c 14 e7 20  69 24 3d 22 4d 6f 6f 6e  |=1..,.. i$="Moon|
00001a50  22 20 78 25 3d 32 0d 0b  36 13 e7 20 69 24 3d 6e  |" x%=2..6.. i$=n|
00001a60  75 6d 62 24 20 78 25 3d  33 0d 0b 40 12 e7 20 69  |umb$ x%=3..@.. i|
00001a70  24 3d 70 72 65 24 20 78  25 3d 34 0d 0b 4a 05 e1  |$=pre$ x%=4..J..|
00001a80  0d 0b 54 04 0d 0b 5e 19  f4 20 2a 2a 2d 2d 3e 3e  |..T...^.. **-->>|
00001a90  4e 75 74 27 73 20 26 20  42 6f 6c 74 73 0d 0b 68  |Nut's & Bolts..h|
00001aa0  0b dd f2 54 65 6d 70 73  0d 0b 72 17 4d 61 69 6e  |...Temps..r.Main|
00001ab0  5f 57 25 3d a4 57 4c 28  22 4d 61 69 6e 22 29 0d  |_W%=.WL("Main").|
00001ac0  0b 7c 1b 53 61 76 65 44  4d 5f 57 25 3d a4 57 4c  |.|.SaveDM_W%=.WL|
00001ad0  28 22 53 61 76 65 44 4d  22 29 0d 0b 86 1b 53 61  |("SaveDM")....Sa|
00001ae0  76 65 44 59 5f 57 25 3d  a4 57 4c 28 22 53 61 76  |veDY_W%=.WL("Sav|
00001af0  65 44 59 22 29 0d 0b 90  1b 53 61 76 65 54 4d 5f  |eDY")....SaveTM_|
00001b00  57 25 3d a4 57 4c 28 22  53 61 76 65 54 4d 22 29  |W%=.WL("SaveTM")|
00001b10  0d 0b 9a 1b 53 61 76 65  54 59 5f 57 25 3d a4 57  |....SaveTY_W%=.W|
00001b20  4c 28 22 53 61 76 65 54  59 22 29 0d 0b a4 05 e1  |L("SaveTY").....|
00001b30  0d 0b ae 04 0d 0b b8 0e  dd f2 4d 65 6e 75 49 6e  |..........MenuIn|
00001b40  69 74 0d 0b c2 3c 42 61  72 5f 4d 25 3d a4 4d 43  |it...<Bar_M%=.MC|
00001b50  28 41 24 2b 22 5c 22 2b  a4 6d 73 28 22 42 31 22  |(A$+"\"+.ms("B1"|
00001b60  29 2b 22 5c 22 2b a4 6d  73 28 22 42 32 22 29 2b  |)+"\"+.ms("B2")+|
00001b70  22 5c 22 2b a4 6d 73 28  22 42 33 22 29 29 0d 0b  |"\"+.ms("B3"))..|
00001b80  cc 75 4d 61 69 6e 5f 4d  25 3d a4 4d 43 28 41 24  |.uMain_M%=.MC(A$|
00001b90  2b 22 5c 22 2b a4 6d 73  28 22 4d 31 22 29 2b 22  |+"\"+.ms("M1")+"|
00001ba0  5c 22 2b a4 6d 73 28 22  4d 32 22 29 2b 22 5c 22  |\"+.ms("M2")+"\"|
00001bb0  2b a4 6d 73 28 22 4d 33  22 29 2b 22 5c 22 2b a4  |+.ms("M3")+"\"+.|
00001bc0  6d 73 28 22 4d 34 22 29  2b 22 5c 22 2b a4 6d 73  |ms("M4")+"\"+.ms|
00001bd0  28 22 4d 35 22 29 2b 22  5c 22 2b a4 6d 73 28 22  |("M5")+"\"+.ms("|
00001be0  42 31 22 29 2b 22 5c 22  2b a4 6d 73 28 22 42 32  |B1")+"\"+.ms("B2|
00001bf0  22 29 29 0d 0b d6 c6 4d  6f 6e 74 68 5f 4d 25 3d  |"))....Month_M%=|
00001c00  a4 4d 43 28 a4 6d 73 28  22 4d 32 22 29 2b 22 5c  |.MC(.ms("M2")+"\|
00001c10  22 2b a4 6d 73 28 22 4e  31 22 29 2b 22 5c 22 2b  |"+.ms("N1")+"\"+|
00001c20  a4 6d 73 28 22 4e 32 22  29 2b 22 5c 22 2b a4 6d  |.ms("N2")+"\"+.m|
00001c30  73 28 22 4e 33 22 29 2b  22 5c 22 2b a4 6d 73 28  |s("N3")+"\"+.ms(|
00001c40  22 4e 34 22 29 2b 22 5c  22 2b a4 6d 73 28 22 4e  |"N4")+"\"+.ms("N|
00001c50  35 22 29 2b 22 5c 22 2b  a4 6d 73 28 22 4e 36 22  |5")+"\"+.ms("N6"|
00001c60  29 2b 22 5c 22 2b a4 6d  73 28 22 4e 37 22 29 2b  |)+"\"+.ms("N7")+|
00001c70  22 5c 22 2b a4 6d 73 28  22 4e 38 22 29 2b 22 5c  |"\"+.ms("N8")+"\|
00001c80  22 2b a4 6d 73 28 22 4e  39 22 29 2b 22 5c 22 2b  |"+.ms("N9")+"\"+|
00001c90  a4 6d 73 28 22 4e 31 30  22 29 2b 22 5c 22 2b a4  |.ms("N10")+"\"+.|
00001ca0  6d 73 28 22 4e 31 31 22  29 2b 22 5c 22 2b a4 6d  |ms("N11")+"\"+.m|
00001cb0  73 28 22 4e 31 32 22 29  29 0d 0b e0 24 59 65 61  |s("N12"))...$Yea|
00001cc0  72 5f 4d 25 3d a4 4d 43  28 a4 6d 73 28 22 59 30  |r_M%=.MC(.ms("Y0|
00001cd0  22 29 2b 22 5c 20 20 20  20 20 20 22 29 0d 0b ea  |")+"\      ")...|
00001ce0  36 50 6c 75 73 5f 4d 25  3d a4 4d 43 28 a4 6d 73  |6Plus_M%=.MC(.ms|
00001cf0  28 22 53 30 22 29 2b 22  5c 22 2b a4 6d 73 28 22  |("S0")+"\"+.ms("|
00001d00  4d 32 22 29 2b 22 5c 22  2b a4 6d 73 28 22 59 30  |M2")+"\"+.ms("Y0|
00001d10  22 29 29 0d 0b f4 37 54  79 70 65 31 5f 4d 25 3d  |"))...7Type1_M%=|
00001d20  a4 4d 43 28 a4 6d 73 28  22 54 30 22 29 2b 22 5c  |.MC(.ms("T0")+"\|
00001d30  22 2b a4 6d 73 28 22 54  31 22 29 2b 22 5c 22 2b  |"+.ms("T1")+"\"+|
00001d40  a4 6d 73 28 22 54 32 22  29 29 0d 0b fe 37 54 79  |.ms("T2"))...7Ty|
00001d50  70 65 32 5f 4d 25 3d a4  4d 43 28 a4 6d 73 28 22  |pe2_M%=.MC(.ms("|
00001d60  54 30 22 29 2b 22 5c 22  2b a4 6d 73 28 22 54 31  |T0")+"\"+.ms("T1|
00001d70  22 29 2b 22 5c 22 2b a4  6d 73 28 22 54 32 22 29  |")+"\"+.ms("T2")|
00001d80  29 0d 0c 08 60 48 65 61  64 5f 4d 25 3d a4 4d 43  |)...`Head_M%=.MC|
00001d90  28 a4 6d 73 28 22 4d 34  22 29 2b 22 5c 22 2b a4  |(.ms("M4")+"\"+.|
00001da0  6d 73 28 22 5a 31 22 29  2b 22 5c 22 2b a4 6d 73  |ms("Z1")+"\"+.ms|
00001db0  28 22 5a 32 22 29 2b 22  5c 22 2b a4 6d 73 28 22  |("Z2")+"\"+.ms("|
00001dc0  5a 33 22 29 2b 22 5c 22  2b a4 6d 73 28 22 5a 34  |Z3")+"\"+.ms("Z4|
00001dd0  22 29 2b 22 5c 22 2b a4  6d 73 28 22 5a 35 22 29  |")+"\"+.ms("Z5")|
00001de0  29 0d 0c 12 15 42 61 72  5f 4d 25 21 33 32 3d 49  |)....Bar_M%!32=I|
00001df0  6e 66 6f 5f 57 25 0d 0c  1c 16 4d 61 69 6e 5f 4d  |nfo_W%....Main_M|
00001e00  25 21 33 32 3d 59 65 61  72 5f 4d 25 0d 0c 26 17  |%!32=Year_M%..&.|
00001e10  4d 61 69 6e 5f 4d 25 21  35 36 3d 4d 6f 6e 74 68  |Main_M%!56=Month|
00001e20  5f 4d 25 0d 0c 30 17 4d  61 69 6e 5f 4d 25 21 31  |_M%..0.Main_M%!1|
00001e30  30 34 3d 48 65 61 64 5f  4d 25 0d 0c 3a 17 4d 61  |04=Head_M%..:.Ma|
00001e40  69 6e 5f 4d 25 21 31 32  38 3d 50 6c 75 73 5f 4d  |in_M%!128=Plus_M|
00001e50  25 0d 0c 44 17 4d 61 69  6e 5f 4d 25 21 31 35 32  |%..D.Main_M%!152|
00001e60  3d 49 6e 66 6f 5f 57 25  0d 0c 4e 17 50 6c 75 73  |=Info_W%..N.Plus|
00001e70  5f 4d 25 21 33 32 3d 54  79 70 65 31 5f 4d 25 0d  |_M%!32=Type1_M%.|
00001e80  0c 58 19 54 79 70 65 31  5f 4d 25 21 33 32 3d 53  |.X.Type1_M%!32=S|
00001e90  61 76 65 44 4d 5f 57 25  0d 0c 62 19 54 79 70 65  |aveDM_W%..b.Type|
00001ea0  31 5f 4d 25 21 35 36 3d  53 61 76 65 54 4d 5f 57  |1_M%!56=SaveTM_W|
00001eb0  25 0d 0c 6c 17 50 6c 75  73 5f 4d 25 21 35 36 3d  |%..l.Plus_M%!56=|
00001ec0  54 79 70 65 32 5f 4d 25  0d 0c 76 19 54 79 70 65  |Type2_M%..v.Type|
00001ed0  32 5f 4d 25 21 33 32 3d  53 61 76 65 44 59 5f 57  |2_M%!32=SaveDY_W|
00001ee0  25 0d 0c 80 19 54 79 70  65 32 5f 4d 25 21 35 36  |%....Type2_M%!56|
00001ef0  3d 53 61 76 65 54 59 5f  57 25 0d 0c 8a 16 48 65  |=SaveTY_W%....He|
00001f00  61 64 5f 4d 25 21 33 32  3d 46 6f 6e 74 5f 4d 25  |ad_M%!32=Font_M%|
00001f10  0d 0c 94 16 48 65 61 64  5f 4d 25 21 35 36 3d 46  |....Head_M%!56=F|
00001f20  6f 6e 74 5f 4d 25 0d 0c  9e 16 48 65 61 64 5f 4d  |ont_M%....Head_M|
00001f30  25 21 38 30 3d 46 6f 6e  74 5f 4d 25 0d 0c a8 17  |%!80=Font_M%....|
00001f40  48 65 61 64 5f 4d 25 21  31 30 34 3d 46 6f 6e 74  |Head_M%!104=Font|
00001f50  5f 4d 25 0d 0c b2 1d f2  4d 57 28 59 65 61 72 5f  |_M%.....MW(Year_|
00001f60  4d 25 2c 31 2c 62 75 66  66 25 2c 30 2c 32 35 29  |M%,1,buff%,0,25)|
00001f70  0d 0c bc 41 f2 4d 44 4c  28 42 61 72 5f 4d 25 2c  |...A.MDL(Bar_M%,|
00001f80  32 29 3a f2 4d 44 4c 28  4d 61 69 6e 5f 4d 25 2c  |2):.MDL(Main_M%,|
00001f90  33 29 3a f2 4d 44 4c 28  4d 61 69 6e 5f 4d 25 2c  |3):.MDL(Main_M%,|
00001fa0  35 29 3a f2 4d 44 4c 28  42 61 72 5f 4d 25 2c 32  |5):.MDL(Bar_M%,2|
00001fb0  29 0d 0c c6 12 f2 4d 54  28 4d 61 69 6e 5f 4d 25  |).....MT(Main_M%|
00001fc0  2c 33 29 0d 0c d0 05 e1  0d 0c da 04 0d 0c e4 0a  |,3).............|
00001fd0  dd f2 45 72 72 45 0d 0c  ee 0a c8 8e 20 9f 20 ca  |..ErrE...... . .|
00001fe0  0d 0c f8 42 c9 20 32 30  3a 20 59 65 61 72 3d bb  |...B. 20: Year=.|
00001ff0  28 c1 91 24 2c 31 32 2c  34 29 29 3a f2 57 41 6c  |(..$,12,4)):.WAl|
00002000  28 a4 6d 73 31 28 22 45  33 22 2c c3 28 59 65 61  |(.ms1("E3",.(Yea|
00002010  72 29 29 29 3a f2 57 46  44 28 4d 61 69 6e 5f 57  |r))):.WFD(Main_W|
00002020  25 29 0d 0d 02 67 c9 20  35 32 33 3a f2 57 41 6c  |%)...g. 523:.WAl|
00002030  28 a4 6d 73 31 28 22 45  32 22 2c 66 74 24 29 29  |(.ms1("E2",ft$))|
00002040  3a 6c 61 62 73 24 3d 22  53 79 73 74 65 6d 22 3a  |:labs$="System":|
00002050  68 65 61 64 24 3d 22 53  79 73 74 65 6d 22 3a 6e  |head$="System":n|
00002060  75 6d 62 24 3d 22 53 79  73 74 65 6d 22 3a 70 72  |umb$="System":pr|
00002070  65 24 3d 22 53 79 73 74  65 6d 22 3a f2 57 46 44  |e$="System":.WFD|
00002080  28 4d 61 69 6e 5f 57 25  29 0d 0d 0c 0c 7f 3a 20  |(Main_W%).....: |
00002090  69 31 25 3d 30 0d 0d 16  05 cb 0d 0d 20 05 e1 0d  |i1%=0....... ...|
000020a0  0d 2a 04 0d 0d 34 0b dd  f2 54 69 63 6b 45 0d 0d  |.*...4...TickE..|
000020b0  3e 40 77 25 3d 71 25 21  31 32 3a e7 20 77 25 3d  |>@w%=q%!12:. w%=|
000020c0  53 61 76 65 44 59 5f 57  25 20 84 20 77 25 3d 53  |SaveDY_W% . w%=S|
000020d0  61 76 65 44 4d 5f 57 25  20 53 70 24 3d 22 41 46  |aveDM_W% Sp$="AF|
000020e0  46 22 20 8b 20 53 70 24  3d 22 46 46 46 22 0d 0d  |F" . Sp$="FFF"..|
000020f0  48 ab e7 20 74 24 3c 3e  c0 6d 24 28 4d 6f 6e 74  |H.. t$<>.m$(Mont|
00002100  68 29 2c 33 29 20 84 20  79 24 3c 3e c0 c3 28 59  |h),3) . y$<>..(Y|
00002110  65 61 72 29 2c 34 29 20  74 24 3d c0 6d 24 28 4d  |ear),4) t$=.m$(M|
00002120  6f 6e 74 68 29 2c 33 29  3a 79 24 3d c0 c3 28 59  |onth),3):y$=..(Y|
00002130  65 61 72 29 2c 34 29 3a  f2 49 50 54 28 53 61 76  |ear),4):.IPT(Sav|
00002140  65 44 4d 5f 57 25 2c 31  2c 74 24 2b 22 5f 22 2b  |eDM_W%,1,t$+"_"+|
00002150  79 24 29 3a f2 49 50 54  28 53 61 76 65 54 4d 5f  |y$):.IPT(SaveTM_|
00002160  57 25 2c 31 2c 74 24 2b  22 5f 22 2b 79 24 29 3a  |W%,1,t$+"_"+y$):|
00002170  f2 49 50 54 28 53 61 76  65 44 59 5f 57 25 2c 31  |.IPT(SaveDY_W%,1|
00002180  2c 79 24 29 3a f2 49 50  54 28 53 61 76 65 54 59  |,y$):.IPT(SaveTY|
00002190  5f 57 25 2c 31 2c 79 24  29 0d 0d 52 05 e1 0d 0d  |_W%,1,y$)..R....|
000021a0  5c 04 0d 0d 66 09 dd f2  42 79 65 0d 0d 70 1b c8  |\...f...Bye..p..|
000021b0  99 20 22 4f 53 5f 4d 6f  64 75 6c 65 22 2c 37 2c  |. "OS_Module",7,|
000021c0  2c 62 75 66 66 25 0d 0d  7a 05 e1 0d 0d 84 04 0d  |,buff%..z.......|
000021d0  0d 8e 0c dd f2 4d 6f 75  73 65 45 0d 0d 98 0b c8  |.....MouseE.....|
000021e0  8e 20 77 25 20 ca 0d 0d  a2 18 c9 20 2d 32 3a f2  |. w% ...... -2:.|
000021f0  57 4f 70 65 6e 28 4d 61  69 6e 5f 57 25 29 0d 0d  |WOpen(Main_W%)..|
00002200  ac 38 c9 20 53 61 76 65  44 4d 5f 57 25 2c 53 61  |.8. SaveDM_W%,Sa|
00002210  76 65 44 59 5f 57 25 2c  53 61 76 65 54 59 5f 57  |veDY_W%,SaveTY_W|
00002220  25 2c 53 61 76 65 54 4d  5f 57 25 3a f2 4d 6f 75  |%,SaveTM_W%:.Mou|
00002230  73 65 53 61 76 65 0d 0d  b6 05 cb 0d 0d c0 05 e1  |seSave..........|
00002240  0d 0d ca 04 0d 0d d4 0a  dd f2 4b 65 79 45 0d 0d  |..........KeyE..|
00002250  de 0b c8 8e 20 77 25 20  ca 0d 0d e8 3b c9 20 53  |.... w% ....;. S|
00002260  61 76 65 44 4d 5f 57 25  2c 53 61 76 65 44 59 5f  |aveDM_W%,SaveDY_|
00002270  57 25 2c 53 61 76 65 54  59 5f 57 25 2c 53 61 76  |W%,SaveTY_W%,Sav|
00002280  65 54 4d 5f 57 25 3a f2  53 61 76 65 46 69 6c 65  |eTM_W%:.SaveFile|
00002290  28 77 25 29 0d 0d f2 05  cb 0d 0d fc 05 e1 0d 0e  |(w%)............|
000022a0  06 04 0d 0e 10 0a dd a4  4d 65 73 73 0d 0e 1a 0e  |........Mess....|
000022b0  c8 8e 20 71 25 21 33 32  20 ca 0d 0e 24 31 c9 20  |.. q%!32 ...$1. |
000022c0  4d 61 69 6e 5f 57 25 3a  3d a4 6d 73 32 28 22 48  |Main_W%:=.ms2("H|
000022d0  32 30 22 2c 6d 24 28 4d  6f 6e 74 68 29 2c c3 28  |20",m$(Month),.(|
000022e0  59 65 61 72 29 2b 61 64  64 24 29 0d 0e 2e 39 c9  |Year)+add$)...9.|
000022f0  20 53 61 76 65 44 59 5f  57 25 2c 53 61 76 65 44  | SaveDY_W%,SaveD|
00002300  4d 5f 57 25 2c 53 61 76  65 54 59 5f 57 25 2c 53  |M_W%,SaveTY_W%,S|
00002310  61 76 65 54 4d 5f 57 25  3a 3d a4 6d 73 28 22 45  |aveTM_W%:=.ms("E|
00002320  72 34 22 29 0d 0e 38 05  7f 0d 0e 42 0c c8 8e 6d  |r4")..8....B...m|
00002330  65 6e 75 25 ca 0d 0e 4c  0b c9 42 61 72 5f 4d 25  |enu%...L..Bar_M%|
00002340  0d 0e 56 0a c8 8e 20 69  20 ca 0d 0e 60 11 c9 31  |..V... i ...`..1|
00002350  3a 3d a4 6d 73 28 22 41  34 22 29 0d 0e 6a 11 c9  |:=.ms("A4")..j..|
00002360  32 3a 3d a4 6d 73 28 22  41 35 22 29 0d 0e 74 11  |2:=.ms("A5")..t.|
00002370  c9 33 3a 3d a4 6d 73 28  22 41 36 22 29 0d 0e 7e  |.3:=.ms("A6")..~|
00002380  05 cb 0d 0e 88 0d c9 20  4d 61 69 6e 5f 4d 25 0d  |....... Main_M%.|
00002390  0e 92 0a c8 8e 20 69 20  ca 0d 0e 9c 2e c9 31 3a  |..... i ......1:|
000023a0  3a e7 20 69 31 3e 30 20  3d a4 6d 73 31 28 22 48  |:. i1>0 =.ms1("H|
000023b0  31 33 22 2c c3 59 65 61  72 29 20 8b 20 3d a4 6d  |13",.Year) . =.m|
000023c0  73 28 22 48 37 22 29 0d  0e a6 39 c9 32 3a 3a e7  |s("H7")...9.2::.|
000023d0  20 69 31 3e 30 20 3d a4  6d 73 32 28 22 48 31 34  | i1>0 =.ms2("H14|
000023e0  22 2c 6d 24 28 4d 6f 6e  74 68 29 2c 6d 24 28 69  |",m$(Month),m$(i|
000023f0  31 29 29 20 8b 20 3d a4  6d 73 28 22 48 38 22 29  |1)) . =.ms("H8")|
00002400  0d 0e b0 17 c9 33 3a 3d  a4 6d 73 28 22 48 39 22  |.....3:=.ms("H9"|
00002410  2b c3 4d 6f 6f 6e 29 0d  0e ba 06 c9 34 0d 0e c4  |+.Moon).....4...|
00002420  0b c8 8e 20 69 31 20 ca  0d 0e ce 23 c9 31 3a 3d  |... i1 ....#.1:=|
00002430  a4 6d 73 32 28 22 48 31  35 22 2c 68 65 61 64 24  |.ms2("H15",head$|
00002440  2c a4 6d 73 28 22 5a 31  22 29 29 0d 0e d8 23 c9  |,.ms("Z1"))...#.|
00002450  32 3a 3d a4 6d 73 32 28  22 48 31 35 22 2c 6e 75  |2:=.ms2("H15",nu|
00002460  6d 62 24 2c a4 6d 73 28  22 5a 32 22 29 29 0d 0e  |mb$,.ms("Z2"))..|
00002470  e2 22 c9 33 3a 3d a4 6d  73 32 28 22 48 31 35 22  |.".3:=.ms2("H15"|
00002480  2c 70 72 65 24 2c a4 6d  73 28 22 5a 33 22 29 29  |,pre$,.ms("Z3"))|
00002490  0d 0e ec 23 c9 34 3a 3d  a4 6d 73 32 28 22 48 31  |...#.4:=.ms2("H1|
000024a0  35 22 2c 6c 61 62 73 24  2c a4 6d 73 28 22 5a 34  |5",labs$,.ms("Z4|
000024b0  22 29 29 0d 0e f6 12 c9  35 3a 3d a4 6d 73 28 22  |")).....5:=.ms("|
000024c0  48 32 31 22 29 0d 0f 00  11 7f 3a 3d a4 6d 73 28  |H21").....:=.ms(|
000024d0  22 48 31 30 22 29 0d 0f  0a 05 cb 0d 0f 14 06 c9  |"H10")..........|
000024e0  35 0d 0f 1e 0b c8 8e 20  69 31 20 ca 0d 0f 28 06  |5...... i1 ...(.|
000024f0  c9 31 0d 0f 32 0b c8 8e  20 69 32 20 ca 0d 0f 3c  |.1..2... i2 ...<|
00002500  12 c9 31 3a 3d a4 6d 73  28 22 48 31 38 22 29 0d  |..1:=.ms("H18").|
00002510  0f 46 12 c9 32 3a 3d a4  6d 73 28 22 48 31 39 22  |.F..2:=.ms("H19"|
00002520  29 0d 0f 50 29 7f 3a 3d  a4 6d 73 32 28 22 48 31  |)..P).:=.ms2("H1|
00002530  36 22 2c 6d 24 28 4d 6f  6e 74 68 29 2c c3 28 59  |6",m$(Month),.(Y|
00002540  65 61 72 29 2b 61 64 64  24 29 0d 0f 5a 05 cb 0d  |ear)+add$)..Z...|
00002550  0f 64 06 c9 32 0d 0f 6e  0b c8 8e 20 69 32 20 ca  |.d..2..n... i2 .|
00002560  0d 0f 78 12 c9 31 3a 3d  a4 6d 73 28 22 48 31 38  |..x..1:=.ms("H18|
00002570  22 29 0d 0f 82 12 c9 32  3a 3d a4 6d 73 28 22 48  |").....2:=.ms("H|
00002580  31 39 22 29 0d 0f 8c 1f  7f 3a 3d a4 6d 73 31 28  |19").....:=.ms1(|
00002590  22 48 31 37 22 2c c3 28  59 65 61 72 29 2b 61 64  |"H17",.(Year)+ad|
000025a0  64 24 29 0d 0f 96 05 cb  0d 0f a0 11 7f 3a 3d a4  |d$)..........:=.|
000025b0  6d 73 28 22 48 31 31 22  29 0d 0f aa 05 cb 0d 0f  |ms("H11").......|
000025c0  b4 11 c9 36 3a 3d a4 6d  73 28 22 41 34 22 29 0d  |...6:=.ms("A4").|
000025d0  0f be 12 c9 37 3a 3d a4  6d 73 28 22 48 31 32 22  |....7:=.ms("H12"|
000025e0  29 0d 0f c8 05 cb 0d 0f  d2 05 cb 0d 0f dc 05 cb  |)...............|
000025f0  0d 0f e6 07 3d 22 22 0d  ff                       |....=""..|
000025f9