� Calendar
q� block% 2000,icon% 11,mainind% 118,infoind% 67,nmind% 15,menu% 96,temp% 11,fntarray% 256,dim%(12),month$(12)

(0dim%()=0,31,28,31,30,31,30,31,31,30,31,30,31
2}month$()="","January","February","March","April","May","June","July","August","September","October","November","December"
<
F(!temp%=0:ș"OS_Byte",129,0,255 �,os%
P+� os%=&A1 � os%=&A2 ver%=200 � ver%=300
ZD$block%="TASK":ș"Wimp_Initialise",ver%,!block%,"Calendar",temp%
d
n"� ��error:ș"Wimp_CloseDown":�
x
��init:�makemenu
�
�.quit%=�:� ș"Wimp_Poll",1,block% � reason%
�Ȏ reason% �
�#� 2:ș"Wimp_OpenWindow",,block%
�$� 3:ș"Wimp_CloseWindow",,block%
�� 6:�button
�� 9:�menusel
�� 17,18:�wimpmessage
��
�� quit%
��end
�ș"Wimp_CloseDown":�



��error

-!block%=�:$(block%+4)=�$+" at line "+�(�)

"-ș "Wimp_ReportError",block%,2,"Calendar"

,�end

6�

@

J	��end

Tș"Font_LoseFont",font%

^�

h

r
��init

|� cnt%,cnt2%

�5ș"Font_FindFont",,"Trinity.Bold",576,576 � font%

�!fntarray%=font%

�

�0ș"Wimp_OpenTemplate",,"<Cal$Dir>.Templates"

�,main%=�loadcreate("Calend",mainind%,118)

�*infow%=�loadcreate("Info",infoind%,67)

�-newmon%=�loadcreate("NewMonth",nmind%,15)

�ș"Wimp_CloseTemplate"

�

�$icon%="!Calendar"

�>!block%=-1:block%!4=0:block%!8=0:block%!12=68:block%!16=68

�Cblock%!20=&2102:block%!24=icon%:block%!28=1:block%!32=�($icon%)

�*ș"Wimp_CreateIcon",,block% � baricon%

#month%=�nowmonth:year%=�nowyear
�dayplot
&�
0
:��makemenu
DI$menu%="Calendar":menu%!12=&70207:menu%!16=200:menu%!20=44:menu%!24=0
NCmenu%!28=0:menu%!32=infow%:menu%!36=&7000021:$(menu%+40)="Info"
XImenu%!52=8:menu%!56=newmon%:menu%!60=&7000021:$(menu%+64)="New month"
bAmenu%!76=128:menu%!80=-1:menu%!84=&7000021:$(menu%+88)="Quit"
l�
v
�$ݤloadcreate(name$,ind%,insize%)
�
� win%
�$temp%=name$
�Fș "Wimp_LoadTemplate",,block%,ind%,ind%+insize%,fntarray%,temp%,0
�)ș "Wimp_CreateWindow",,block% � win%
�	=win%
�
���button
�#� mx%,my%,button%,ihand%,whand%
�Omx%=!block%:my%=block%!4:button%=block%!8:whand%=block%!12:ihand%=block%!16
�
�Ȏ whand% �
� � -2:� ihand%=baricon% �
 Ȏ button% �
/  � 2:ș"Wimp_CreateMenu",,menu%,mx%-64,228
  � 4:�opwin(main%)
  �
*�
4 � main%:� button% � 5 �
> Ȏ ihand% �
H  � 0:� year%<2100 �
R+month%+=1:� month%=13 month%=1:year%+=1
\�dayplot
f�
p1  � 1:� year%>1995 �(year%=1995 � month%>1) �
z+month%-=1:� month%=0 month%=12:year%-=1
��dayplot
��
� �
��
�5� button%=2 ș"Wimp_CreateMenu",,menu%,mx%-64,my%
� � newmon%:� button% � 5 �
� Ȏ � �
�J  � ((ihand%=2 � button%=4) � (ihand%=3 � button%=1)) � menuyear%<2100
�(menumon%-=1:� menumon%=0 menumon%=12
�&�write(newmon%,0,month$(menumon%))
�J  � ((ihand%=3 � button%=4) � (ihand%=2 � button%=1)) � menuyear%<2100
�(menumon%+=1:� menumon%=13 menumon%=1
�&�write(newmon%,0,month$(menumon%))
I  � ((ihand%=4 � button%=4) � (ihand%=5 � button%=1))� menuyear%>1995
/menuyear%-=1:�write(newmon%,1,�(menuyear%))
I  � ((ihand%=5 � button%=4) � (ihand%=4 � button%=1))� menuyear%<2099
$/menuyear%+=1:�write(newmon%,1,�(menuyear%))
.9  � ihand%=6:month%=menumon%:year%=menuyear%:�dayplot
8'� button%=4 ș"Wimp_CreateMenu",,-1
B6  � ihand%=7:menumon%=�nowmonth:menuyear%=�nowyear
LE�write(newmon%,0,month$(menumon%)):�write(newmon%,1,�(menuyear%))
V �
`�
j�
t�
~
�
��menusel
�� !block%=2 quit%=�
�#ș"Wimp_GetPointerInfo",,block%
�/� block%!8=1 ș"Wimp_CreateMenu",,menu%,0,0
��
�
���wimpmessage
�� men%,mx%,my%
�Ȏ block%!16 �
� � 0:quit%=�
�8 � &400C0:men%=block%!20:mx%=block%!24:my%=block%!28
�#menumon%=month%:menuyear%=year%
?�write(newmon%,0,month$(month%)):�write(newmon%,1,�(year%))

(ș"Wimp_CreateSubMenu",,men%,mx%,my%
�
�
(
2��opwin(win%)
<0!block%=win%:ș"Wimp_GetWindowState",,block%
F,block%!28=-1:ș"Wimp_OpenWindow",,block%
P�
Z
dݤread(win%,icon%)
n=!block%=win%:block%!4=icon%:ș"Wimp_GetIconState",,block%
x=$(block%!28)
�
���write(win%,icon%,str$)
�=!block%=win%:block%!4=icon%:ș"Wimp_GetIconState",,block%
�>block%!8=0:block%!12=0:$(block%!28)=str$:block%!32=�(str$)
�!ș"Wimp_SetIconState",,block%
��
�
�
ݤnowyear
�#!block%=1:ș"OS_Word",14,block%
�*=1900+((?block%)�15)+((?block%)�16)*10
�
�ݤnowmonth
�#!block%=1:ș"OS_Word",14,block%
'=((block%?1)�15)+((block%?1)�16)*10

ݤnowday
"#!block%=1:ș"OS_Word",14,block%
,'=((block%?2)�15)+((block%?2)�16)*10
6
@ݤday(day%,month%,year%)
J� days%,mo%,ye%,leaps%
T!ye%=year%-1995:� year%>1995 �
^leaps%=ye% �4
h� ye% �4<>0 leaps%+=1
r� month%<3 leaps%-=1
|�
�days%=0
�2� month%>1 �mo%=1� month%-1:days%+=dim%(mo%):�
�days%+=day%-1
�days%+=leaps%+ye%*365
�
=days% �7
�
�
��dayplot
�
� cnt%
�/�write(main%,2,month$(month%)+" "+�(year%))
�"first%=�day(1,month%,year%)+10
�i� first%>10 �cnt%=10�first%-1:�write(main%,cnt%,""):�shadeicon(main%,cnt%,�):�seticon(main%,cnt%,�):�
�.� cnt%=first%� first%+�dim(month%,year%)-1
�'�write(main%,cnt%,�(cnt%-first%+1))
5�shadeicon(main%,cnt%,�):�seticon(main%,cnt%,�):�
z� first%<16 �cnt%=first%+�dim(month%,year%)�46:�write(main%,cnt%,""):�shadeicon(main%,cnt%,�):�seticon(main%,cnt%,�):�
J� month%=�nowmonth � year%=�nowyear �seticon(main%,first%+�nowday-1,�)
&�
0
:ݤdim(month%,year%)
D� leap%
N.� (year% �4=0)� month%=2 leap%=1 � leap%=0
X=dim%(month%)+leap%
b
l!��shadeicon(win%,icon%,flag%)
v=!block%=win%:block%!4=icon%:ș"Wimp_GetIconState",,block%
�Kblock%!8=-&400000*flag%:block%!12=&400000:ș"Wimp_SetIconState",,block%
��
�
���message(mes$)
�#!block%=0:$(block%+4)=mes$+�(0)
�:ș"Wimp_ReportError",block%,17,"Message from Calendar"
��
�
���seticon(win%,icon%,flag%)
�=!block%=win%:block%!4=icon%:ș"Wimp_GetIconState",,block%
�Kblock%!8=-&200000*flag%:block%!12=&200000:ș"Wimp_SetIconState",,block%
��
�

00000000  0d 00 0a 0e f4 20 43 61  6c 65 6e 64 61 72 0d 00  |..... Calendar..|
00000010  14 71 de 20 62 6c 6f 63  6b 25 20 32 30 30 30 2c  |.q. block% 2000,|
00000020  69 63 6f 6e 25 20 31 31  2c 6d 61 69 6e 69 6e 64  |icon% 11,mainind|
00000030  25 20 31 31 38 2c 69 6e  66 6f 69 6e 64 25 20 36  |% 118,infoind% 6|
00000040  37 2c 6e 6d 69 6e 64 25  20 31 35 2c 6d 65 6e 75  |7,nmind% 15,menu|
00000050  25 20 39 36 2c 74 65 6d  70 25 20 31 31 2c 66 6e  |% 96,temp% 11,fn|
00000060  74 61 72 72 61 79 25 20  32 35 36 2c 64 69 6d 25  |tarray% 256,dim%|
00000070  28 31 32 29 2c 6d 6f 6e  74 68 24 28 31 32 29 0d  |(12),month$(12).|
00000080  00 1e 04 0d 00 28 30 64  69 6d 25 28 29 3d 30 2c  |.....(0dim%()=0,|
00000090  33 31 2c 32 38 2c 33 31  2c 33 30 2c 33 31 2c 33  |31,28,31,30,31,3|
000000a0  30 2c 33 31 2c 33 31 2c  33 30 2c 33 31 2c 33 30  |0,31,31,30,31,30|
000000b0  2c 33 31 0d 00 32 7d 6d  6f 6e 74 68 24 28 29 3d  |,31..2}month$()=|
000000c0  22 22 2c 22 4a 61 6e 75  61 72 79 22 2c 22 46 65  |"","January","Fe|
000000d0  62 72 75 61 72 79 22 2c  22 4d 61 72 63 68 22 2c  |bruary","March",|
000000e0  22 41 70 72 69 6c 22 2c  22 4d 61 79 22 2c 22 4a  |"April","May","J|
000000f0  75 6e 65 22 2c 22 4a 75  6c 79 22 2c 22 41 75 67  |une","July","Aug|
00000100  75 73 74 22 2c 22 53 65  70 74 65 6d 62 65 72 22  |ust","September"|
00000110  2c 22 4f 63 74 6f 62 65  72 22 2c 22 4e 6f 76 65  |,"October","Nove|
00000120  6d 62 65 72 22 2c 22 44  65 63 65 6d 62 65 72 22  |mber","December"|
00000130  0d 00 3c 04 0d 00 46 28  21 74 65 6d 70 25 3d 30  |..<...F(!temp%=0|
00000140  3a c8 99 22 4f 53 5f 42  79 74 65 22 2c 31 32 39  |:.."OS_Byte",129|
00000150  2c 30 2c 32 35 35 20 b8  2c 6f 73 25 0d 00 50 2b  |,0,255 .,os%..P+|
00000160  e7 20 6f 73 25 3d 26 41  31 20 84 20 6f 73 25 3d  |. os%=&A1 . os%=|
00000170  26 41 32 20 76 65 72 25  3d 32 30 30 20 8b 20 76  |&A2 ver%=200 . v|
00000180  65 72 25 3d 33 30 30 0d  00 5a 44 24 62 6c 6f 63  |er%=300..ZD$bloc|
00000190  6b 25 3d 22 54 41 53 4b  22 3a c8 99 22 57 69 6d  |k%="TASK":.."Wim|
000001a0  70 5f 49 6e 69 74 69 61  6c 69 73 65 22 2c 76 65  |p_Initialise",ve|
000001b0  72 25 2c 21 62 6c 6f 63  6b 25 2c 22 43 61 6c 65  |r%,!block%,"Cale|
000001c0  6e 64 61 72 22 2c 74 65  6d 70 25 0d 00 64 04 0d  |ndar",temp%..d..|
000001d0  00 6e 22 ee 20 85 f2 65  72 72 6f 72 3a c8 99 22  |.n". ..error:.."|
000001e0  57 69 6d 70 5f 43 6c 6f  73 65 44 6f 77 6e 22 3a  |Wimp_CloseDown":|
000001f0  e0 0d 00 78 04 0d 00 82  13 f2 69 6e 69 74 3a f2  |...x......init:.|
00000200  6d 61 6b 65 6d 65 6e 75  0d 00 8c 04 0d 00 96 2e  |makemenu........|
00000210  71 75 69 74 25 3d a3 3a  f5 20 c8 99 22 57 69 6d  |quit%=.:. .."Wim|
00000220  70 5f 50 6f 6c 6c 22 2c  31 2c 62 6c 6f 63 6b 25  |p_Poll",1,block%|
00000230  20 b8 20 72 65 61 73 6f  6e 25 0d 00 a0 10 c8 8e  | . reason%......|
00000240  20 72 65 61 73 6f 6e 25  20 ca 0d 00 aa 23 c9 20  | reason% ....#. |
00000250  32 3a c8 99 22 57 69 6d  70 5f 4f 70 65 6e 57 69  |2:.."Wimp_OpenWi|
00000260  6e 64 6f 77 22 2c 2c 62  6c 6f 63 6b 25 0d 00 b4  |ndow",,block%...|
00000270  24 c9 20 33 3a c8 99 22  57 69 6d 70 5f 43 6c 6f  |$. 3:.."Wimp_Clo|
00000280  73 65 57 69 6e 64 6f 77  22 2c 2c 62 6c 6f 63 6b  |seWindow",,block|
00000290  25 0d 00 be 0f c9 20 36  3a f2 62 75 74 74 6f 6e  |%..... 6:.button|
000002a0  0d 00 c8 10 c9 20 39 3a  f2 6d 65 6e 75 73 65 6c  |..... 9:.menusel|
000002b0  0d 00 d2 18 c9 20 31 37  2c 31 38 3a f2 77 69 6d  |..... 17,18:.wim|
000002c0  70 6d 65 73 73 61 67 65  0d 00 dc 05 cb 0d 00 e6  |pmessage........|
000002d0  0b fd 20 71 75 69 74 25  0d 00 f0 08 f2 65 6e 64  |.. quit%.....end|
000002e0  0d 00 fa 18 c8 99 22 57  69 6d 70 5f 43 6c 6f 73  |......"Wimp_Clos|
000002f0  65 44 6f 77 6e 22 3a e0  0d 01 04 04 0d 01 0e 0b  |eDown":.........|
00000300  dd f2 65 72 72 6f 72 0d  01 18 2d 21 62 6c 6f 63  |..error...-!bloc|
00000310  6b 25 3d 9f 3a 24 28 62  6c 6f 63 6b 25 2b 34 29  |k%=.:$(block%+4)|
00000320  3d f6 24 2b 22 20 61 74  20 6c 69 6e 65 20 22 2b  |=.$+" at line "+|
00000330  c3 28 9e 29 0d 01 22 2d  c8 99 20 22 57 69 6d 70  |.(.).."-.. "Wimp|
00000340  5f 52 65 70 6f 72 74 45  72 72 6f 72 22 2c 62 6c  |_ReportError",bl|
00000350  6f 63 6b 25 2c 32 2c 22  43 61 6c 65 6e 64 61 72  |ock%,2,"Calendar|
00000360  22 0d 01 2c 08 f2 65 6e  64 0d 01 36 05 e1 0d 01  |"..,..end..6....|
00000370  40 04 0d 01 4a 09 dd f2  65 6e 64 0d 01 54 1b c8  |@...J...end..T..|
00000380  99 22 46 6f 6e 74 5f 4c  6f 73 65 46 6f 6e 74 22  |."Font_LoseFont"|
00000390  2c 66 6f 6e 74 25 0d 01  5e 05 e1 0d 01 68 04 0d  |,font%..^....h..|
000003a0  01 72 0a dd f2 69 6e 69  74 0d 01 7c 10 ea 20 63  |.r...init..|.. c|
000003b0  6e 74 25 2c 63 6e 74 32  25 0d 01 86 35 c8 99 22  |nt%,cnt2%...5.."|
000003c0  46 6f 6e 74 5f 46 69 6e  64 46 6f 6e 74 22 2c 2c  |Font_FindFont",,|
000003d0  22 54 72 69 6e 69 74 79  2e 42 6f 6c 64 22 2c 35  |"Trinity.Bold",5|
000003e0  37 36 2c 35 37 36 20 b8  20 66 6f 6e 74 25 0d 01  |76,576 . font%..|
000003f0  90 14 21 66 6e 74 61 72  72 61 79 25 3d 66 6f 6e  |..!fntarray%=fon|
00000400  74 25 0d 01 9a 04 0d 01  a4 30 c8 99 22 57 69 6d  |t%.......0.."Wim|
00000410  70 5f 4f 70 65 6e 54 65  6d 70 6c 61 74 65 22 2c  |p_OpenTemplate",|
00000420  2c 22 3c 43 61 6c 24 44  69 72 3e 2e 54 65 6d 70  |,"<Cal$Dir>.Temp|
00000430  6c 61 74 65 73 22 0d 01  ae 2c 6d 61 69 6e 25 3d  |lates"...,main%=|
00000440  a4 6c 6f 61 64 63 72 65  61 74 65 28 22 43 61 6c  |.loadcreate("Cal|
00000450  65 6e 64 22 2c 6d 61 69  6e 69 6e 64 25 2c 31 31  |end",mainind%,11|
00000460  38 29 0d 01 b8 2a 69 6e  66 6f 77 25 3d a4 6c 6f  |8)...*infow%=.lo|
00000470  61 64 63 72 65 61 74 65  28 22 49 6e 66 6f 22 2c  |adcreate("Info",|
00000480  69 6e 66 6f 69 6e 64 25  2c 36 37 29 0d 01 c2 2d  |infoind%,67)...-|
00000490  6e 65 77 6d 6f 6e 25 3d  a4 6c 6f 61 64 63 72 65  |newmon%=.loadcre|
000004a0  61 74 65 28 22 4e 65 77  4d 6f 6e 74 68 22 2c 6e  |ate("NewMonth",n|
000004b0  6d 69 6e 64 25 2c 31 35  29 0d 01 cc 1a c8 99 22  |mind%,15)......"|
000004c0  57 69 6d 70 5f 43 6c 6f  73 65 54 65 6d 70 6c 61  |Wimp_CloseTempla|
000004d0  74 65 22 0d 01 d6 04 0d  01 e0 16 24 69 63 6f 6e  |te"........$icon|
000004e0  25 3d 22 21 43 61 6c 65  6e 64 61 72 22 0d 01 ea  |%="!Calendar"...|
000004f0  3e 21 62 6c 6f 63 6b 25  3d 2d 31 3a 62 6c 6f 63  |>!block%=-1:bloc|
00000500  6b 25 21 34 3d 30 3a 62  6c 6f 63 6b 25 21 38 3d  |k%!4=0:block%!8=|
00000510  30 3a 62 6c 6f 63 6b 25  21 31 32 3d 36 38 3a 62  |0:block%!12=68:b|
00000520  6c 6f 63 6b 25 21 31 36  3d 36 38 0d 01 f4 43 62  |lock%!16=68...Cb|
00000530  6c 6f 63 6b 25 21 32 30  3d 26 32 31 30 32 3a 62  |lock%!20=&2102:b|
00000540  6c 6f 63 6b 25 21 32 34  3d 69 63 6f 6e 25 3a 62  |lock%!24=icon%:b|
00000550  6c 6f 63 6b 25 21 32 38  3d 31 3a 62 6c 6f 63 6b  |lock%!28=1:block|
00000560  25 21 33 32 3d a9 28 24  69 63 6f 6e 25 29 0d 01  |%!32=.($icon%)..|
00000570  fe 2a c8 99 22 57 69 6d  70 5f 43 72 65 61 74 65  |.*.."Wimp_Create|
00000580  49 63 6f 6e 22 2c 2c 62  6c 6f 63 6b 25 20 b8 20  |Icon",,block% . |
00000590  62 61 72 69 63 6f 6e 25  0d 02 08 04 0d 02 12 23  |baricon%.......#|
000005a0  6d 6f 6e 74 68 25 3d a4  6e 6f 77 6d 6f 6e 74 68  |month%=.nowmonth|
000005b0  3a 79 65 61 72 25 3d a4  6e 6f 77 79 65 61 72 0d  |:year%=.nowyear.|
000005c0  02 1c 0c f2 64 61 79 70  6c 6f 74 0d 02 26 05 e1  |....dayplot..&..|
000005d0  0d 02 30 04 0d 02 3a 0e  dd f2 6d 61 6b 65 6d 65  |..0...:...makeme|
000005e0  6e 75 0d 02 44 49 24 6d  65 6e 75 25 3d 22 43 61  |nu..DI$menu%="Ca|
000005f0  6c 65 6e 64 61 72 22 3a  6d 65 6e 75 25 21 31 32  |lendar":menu%!12|
00000600  3d 26 37 30 32 30 37 3a  6d 65 6e 75 25 21 31 36  |=&70207:menu%!16|
00000610  3d 32 30 30 3a 6d 65 6e  75 25 21 32 30 3d 34 34  |=200:menu%!20=44|
00000620  3a 6d 65 6e 75 25 21 32  34 3d 30 0d 02 4e 43 6d  |:menu%!24=0..NCm|
00000630  65 6e 75 25 21 32 38 3d  30 3a 6d 65 6e 75 25 21  |enu%!28=0:menu%!|
00000640  33 32 3d 69 6e 66 6f 77  25 3a 6d 65 6e 75 25 21  |32=infow%:menu%!|
00000650  33 36 3d 26 37 30 30 30  30 32 31 3a 24 28 6d 65  |36=&7000021:$(me|
00000660  6e 75 25 2b 34 30 29 3d  22 49 6e 66 6f 22 0d 02  |nu%+40)="Info"..|
00000670  58 49 6d 65 6e 75 25 21  35 32 3d 38 3a 6d 65 6e  |XImenu%!52=8:men|
00000680  75 25 21 35 36 3d 6e 65  77 6d 6f 6e 25 3a 6d 65  |u%!56=newmon%:me|
00000690  6e 75 25 21 36 30 3d 26  37 30 30 30 30 32 31 3a  |nu%!60=&7000021:|
000006a0  24 28 6d 65 6e 75 25 2b  36 34 29 3d 22 4e 65 77  |$(menu%+64)="New|
000006b0  20 6d 6f 6e 74 68 22 0d  02 62 41 6d 65 6e 75 25  | month"..bAmenu%|
000006c0  21 37 36 3d 31 32 38 3a  6d 65 6e 75 25 21 38 30  |!76=128:menu%!80|
000006d0  3d 2d 31 3a 6d 65 6e 75  25 21 38 34 3d 26 37 30  |=-1:menu%!84=&70|
000006e0  30 30 30 32 31 3a 24 28  6d 65 6e 75 25 2b 38 38  |00021:$(menu%+88|
000006f0  29 3d 22 51 75 69 74 22  0d 02 6c 05 e1 0d 02 76  |)="Quit"..l....v|
00000700  04 0d 02 80 24 dd a4 6c  6f 61 64 63 72 65 61 74  |....$..loadcreat|
00000710  65 28 6e 61 6d 65 24 2c  69 6e 64 25 2c 69 6e 73  |e(name$,ind%,ins|
00000720  69 7a 65 25 29 0d 02 8a  0a ea 20 77 69 6e 25 0d  |ize%)..... win%.|
00000730  02 94 10 24 74 65 6d 70  25 3d 6e 61 6d 65 24 0d  |...$temp%=name$.|
00000740  02 9e 46 c8 99 20 22 57  69 6d 70 5f 4c 6f 61 64  |..F.. "Wimp_Load|
00000750  54 65 6d 70 6c 61 74 65  22 2c 2c 62 6c 6f 63 6b  |Template",,block|
00000760  25 2c 69 6e 64 25 2c 69  6e 64 25 2b 69 6e 73 69  |%,ind%,ind%+insi|
00000770  7a 65 25 2c 66 6e 74 61  72 72 61 79 25 2c 74 65  |ze%,fntarray%,te|
00000780  6d 70 25 2c 30 0d 02 a8  29 c8 99 20 22 57 69 6d  |mp%,0...).. "Wim|
00000790  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
000007a0  2c 62 6c 6f 63 6b 25 20  b8 20 77 69 6e 25 0d 02  |,block% . win%..|
000007b0  b2 09 3d 77 69 6e 25 0d  02 bc 04 0d 02 c6 0c dd  |..=win%.........|
000007c0  f2 62 75 74 74 6f 6e 0d  02 d0 23 ea 20 6d 78 25  |.button...#. mx%|
000007d0  2c 6d 79 25 2c 62 75 74  74 6f 6e 25 2c 69 68 61  |,my%,button%,iha|
000007e0  6e 64 25 2c 77 68 61 6e  64 25 0d 02 da 4f 6d 78  |nd%,whand%...Omx|
000007f0  25 3d 21 62 6c 6f 63 6b  25 3a 6d 79 25 3d 62 6c  |%=!block%:my%=bl|
00000800  6f 63 6b 25 21 34 3a 62  75 74 74 6f 6e 25 3d 62  |ock%!4:button%=b|
00000810  6c 6f 63 6b 25 21 38 3a  77 68 61 6e 64 25 3d 62  |lock%!8:whand%=b|
00000820  6c 6f 63 6b 25 21 31 32  3a 69 68 61 6e 64 25 3d  |lock%!12:ihand%=|
00000830  62 6c 6f 63 6b 25 21 31  36 0d 02 e4 04 0d 02 ee  |block%!16.......|
00000840  0f c8 8e 20 77 68 61 6e  64 25 20 ca 0d 02 f8 1d  |... whand% .....|
00000850  20 c9 20 2d 32 3a e7 20  69 68 61 6e 64 25 3d 62  | . -2:. ihand%=b|
00000860  61 72 69 63 6f 6e 25 20  8c 0d 03 02 11 20 c8 8e  |aricon% ..... ..|
00000870  20 62 75 74 74 6f 6e 25  20 ca 0d 03 0c 2f 20 20  | button% ..../  |
00000880  c9 20 32 3a c8 99 22 57  69 6d 70 5f 43 72 65 61  |. 2:.."Wimp_Crea|
00000890  74 65 4d 65 6e 75 22 2c  2c 6d 65 6e 75 25 2c 6d  |teMenu",,menu%,m|
000008a0  78 25 2d 36 34 2c 32 32  38 0d 03 16 17 20 20 c9  |x%-64,228....  .|
000008b0  20 34 3a f2 6f 70 77 69  6e 28 6d 61 69 6e 25 29  | 4:.opwin(main%)|
000008c0  0d 03 20 06 20 cb 0d 03  2a 05 cd 0d 03 34 1c 20  |.. . ...*....4. |
000008d0  c9 20 6d 61 69 6e 25 3a  e7 20 62 75 74 74 6f 6e  |. main%:. button|
000008e0  25 20 80 20 35 20 8c 0d  03 3e 10 20 c8 8e 20 69  |% . 5 ...>. .. i|
000008f0  68 61 6e 64 25 20 ca 0d  03 48 18 20 20 c9 20 30  |hand% ...H.  . 0|
00000900  3a e7 20 79 65 61 72 25  3c 32 31 30 30 20 8c 0d  |:. year%<2100 ..|
00000910  03 52 2b 6d 6f 6e 74 68  25 2b 3d 31 3a e7 20 6d  |.R+month%+=1:. m|
00000920  6f 6e 74 68 25 3d 31 33  20 6d 6f 6e 74 68 25 3d  |onth%=13 month%=|
00000930  31 3a 79 65 61 72 25 2b  3d 31 0d 03 5c 0c f2 64  |1:year%+=1..\..d|
00000940  61 79 70 6c 6f 74 0d 03  66 05 cd 0d 03 70 31 20  |ayplot..f....p1 |
00000950  20 c9 20 31 3a e7 20 79  65 61 72 25 3e 31 39 39  | . 1:. year%>199|
00000960  35 20 84 28 79 65 61 72  25 3d 31 39 39 35 20 80  |5 .(year%=1995 .|
00000970  20 6d 6f 6e 74 68 25 3e  31 29 20 8c 0d 03 7a 2b  | month%>1) ...z+|
00000980  6d 6f 6e 74 68 25 2d 3d  31 3a e7 20 6d 6f 6e 74  |month%-=1:. mont|
00000990  68 25 3d 30 20 6d 6f 6e  74 68 25 3d 31 32 3a 79  |h%=0 month%=12:y|
000009a0  65 61 72 25 2d 3d 31 0d  03 84 0c f2 64 61 79 70  |ear%-=1.....dayp|
000009b0  6c 6f 74 0d 03 8e 05 cd  0d 03 98 06 20 cb 0d 03  |lot......... ...|
000009c0  a2 05 cd 0d 03 ac 35 e7  20 62 75 74 74 6f 6e 25  |......5. button%|
000009d0  3d 32 20 c8 99 22 57 69  6d 70 5f 43 72 65 61 74  |=2 .."Wimp_Creat|
000009e0  65 4d 65 6e 75 22 2c 2c  6d 65 6e 75 25 2c 6d 78  |eMenu",,menu%,mx|
000009f0  25 2d 36 34 2c 6d 79 25  0d 03 b6 1e 20 c9 20 6e  |%-64,my%.... . n|
00000a00  65 77 6d 6f 6e 25 3a e7  20 62 75 74 74 6f 6e 25  |ewmon%:. button%|
00000a10  20 80 20 35 20 8c 0d 03  c0 0b 20 c8 8e 20 b9 20  | . 5 ..... .. . |
00000a20  ca 0d 03 ca 4a 20 20 c9  20 28 28 69 68 61 6e 64  |....J  . ((ihand|
00000a30  25 3d 32 20 80 20 62 75  74 74 6f 6e 25 3d 34 29  |%=2 . button%=4)|
00000a40  20 84 20 28 69 68 61 6e  64 25 3d 33 20 80 20 62  | . (ihand%=3 . b|
00000a50  75 74 74 6f 6e 25 3d 31  29 29 20 80 20 6d 65 6e  |utton%=1)) . men|
00000a60  75 79 65 61 72 25 3c 32  31 30 30 0d 03 d4 28 6d  |uyear%<2100...(m|
00000a70  65 6e 75 6d 6f 6e 25 2d  3d 31 3a e7 20 6d 65 6e  |enumon%-=1:. men|
00000a80  75 6d 6f 6e 25 3d 30 20  6d 65 6e 75 6d 6f 6e 25  |umon%=0 menumon%|
00000a90  3d 31 32 0d 03 de 26 f2  77 72 69 74 65 28 6e 65  |=12...&.write(ne|
00000aa0  77 6d 6f 6e 25 2c 30 2c  6d 6f 6e 74 68 24 28 6d  |wmon%,0,month$(m|
00000ab0  65 6e 75 6d 6f 6e 25 29  29 0d 03 e8 4a 20 20 c9  |enumon%))...J  .|
00000ac0  20 28 28 69 68 61 6e 64  25 3d 33 20 80 20 62 75  | ((ihand%=3 . bu|
00000ad0  74 74 6f 6e 25 3d 34 29  20 84 20 28 69 68 61 6e  |tton%=4) . (ihan|
00000ae0  64 25 3d 32 20 80 20 62  75 74 74 6f 6e 25 3d 31  |d%=2 . button%=1|
00000af0  29 29 20 80 20 6d 65 6e  75 79 65 61 72 25 3c 32  |)) . menuyear%<2|
00000b00  31 30 30 0d 03 f2 28 6d  65 6e 75 6d 6f 6e 25 2b  |100...(menumon%+|
00000b10  3d 31 3a e7 20 6d 65 6e  75 6d 6f 6e 25 3d 31 33  |=1:. menumon%=13|
00000b20  20 6d 65 6e 75 6d 6f 6e  25 3d 31 0d 03 fc 26 f2  | menumon%=1...&.|
00000b30  77 72 69 74 65 28 6e 65  77 6d 6f 6e 25 2c 30 2c  |write(newmon%,0,|
00000b40  6d 6f 6e 74 68 24 28 6d  65 6e 75 6d 6f 6e 25 29  |month$(menumon%)|
00000b50  29 0d 04 06 49 20 20 c9  20 28 28 69 68 61 6e 64  |)...I  . ((ihand|
00000b60  25 3d 34 20 80 20 62 75  74 74 6f 6e 25 3d 34 29  |%=4 . button%=4)|
00000b70  20 84 20 28 69 68 61 6e  64 25 3d 35 20 80 20 62  | . (ihand%=5 . b|
00000b80  75 74 74 6f 6e 25 3d 31  29 29 80 20 6d 65 6e 75  |utton%=1)). menu|
00000b90  79 65 61 72 25 3e 31 39  39 35 0d 04 10 2f 6d 65  |year%>1995.../me|
00000ba0  6e 75 79 65 61 72 25 2d  3d 31 3a f2 77 72 69 74  |nuyear%-=1:.writ|
00000bb0  65 28 6e 65 77 6d 6f 6e  25 2c 31 2c c3 28 6d 65  |e(newmon%,1,.(me|
00000bc0  6e 75 79 65 61 72 25 29  29 0d 04 1a 49 20 20 c9  |nuyear%))...I  .|
00000bd0  20 28 28 69 68 61 6e 64  25 3d 35 20 80 20 62 75  | ((ihand%=5 . bu|
00000be0  74 74 6f 6e 25 3d 34 29  20 84 20 28 69 68 61 6e  |tton%=4) . (ihan|
00000bf0  64 25 3d 34 20 80 20 62  75 74 74 6f 6e 25 3d 31  |d%=4 . button%=1|
00000c00  29 29 80 20 6d 65 6e 75  79 65 61 72 25 3c 32 30  |)). menuyear%<20|
00000c10  39 39 0d 04 24 2f 6d 65  6e 75 79 65 61 72 25 2b  |99..$/menuyear%+|
00000c20  3d 31 3a f2 77 72 69 74  65 28 6e 65 77 6d 6f 6e  |=1:.write(newmon|
00000c30  25 2c 31 2c c3 28 6d 65  6e 75 79 65 61 72 25 29  |%,1,.(menuyear%)|
00000c40  29 0d 04 2e 39 20 20 c9  20 69 68 61 6e 64 25 3d  |)...9  . ihand%=|
00000c50  36 3a 6d 6f 6e 74 68 25  3d 6d 65 6e 75 6d 6f 6e  |6:month%=menumon|
00000c60  25 3a 79 65 61 72 25 3d  6d 65 6e 75 79 65 61 72  |%:year%=menuyear|
00000c70  25 3a f2 64 61 79 70 6c  6f 74 0d 04 38 27 e7 20  |%:.dayplot..8'. |
00000c80  62 75 74 74 6f 6e 25 3d  34 20 c8 99 22 57 69 6d  |button%=4 .."Wim|
00000c90  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 2d  |p_CreateMenu",,-|
00000ca0  31 0d 04 42 36 20 20 c9  20 69 68 61 6e 64 25 3d  |1..B6  . ihand%=|
00000cb0  37 3a 6d 65 6e 75 6d 6f  6e 25 3d a4 6e 6f 77 6d  |7:menumon%=.nowm|
00000cc0  6f 6e 74 68 3a 6d 65 6e  75 79 65 61 72 25 3d a4  |onth:menuyear%=.|
00000cd0  6e 6f 77 79 65 61 72 0d  04 4c 45 f2 77 72 69 74  |nowyear..LE.writ|
00000ce0  65 28 6e 65 77 6d 6f 6e  25 2c 30 2c 6d 6f 6e 74  |e(newmon%,0,mont|
00000cf0  68 24 28 6d 65 6e 75 6d  6f 6e 25 29 29 3a f2 77  |h$(menumon%)):.w|
00000d00  72 69 74 65 28 6e 65 77  6d 6f 6e 25 2c 31 2c c3  |rite(newmon%,1,.|
00000d10  28 6d 65 6e 75 79 65 61  72 25 29 29 0d 04 56 06  |(menuyear%))..V.|
00000d20  20 cb 0d 04 60 05 cd 0d  04 6a 05 cb 0d 04 74 05  | ...`....j....t.|
00000d30  e1 0d 04 7e 04 0d 04 88  0d dd f2 6d 65 6e 75 73  |...~.......menus|
00000d40  65 6c 0d 04 92 17 e7 20  21 62 6c 6f 63 6b 25 3d  |el..... !block%=|
00000d50  32 20 71 75 69 74 25 3d  b9 0d 04 9c 23 c8 99 22  |2 quit%=....#.."|
00000d60  57 69 6d 70 5f 47 65 74  50 6f 69 6e 74 65 72 49  |Wimp_GetPointerI|
00000d70  6e 66 6f 22 2c 2c 62 6c  6f 63 6b 25 0d 04 a6 2f  |nfo",,block%.../|
00000d80  e7 20 62 6c 6f 63 6b 25  21 38 3d 31 20 c8 99 22  |. block%!8=1 .."|
00000d90  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
00000da0  2c 2c 6d 65 6e 75 25 2c  30 2c 30 0d 04 b0 05 e1  |,,menu%,0,0.....|
00000db0  0d 04 ba 04 0d 04 c4 11  dd f2 77 69 6d 70 6d 65  |..........wimpme|
00000dc0  73 73 61 67 65 0d 04 ce  12 ea 20 6d 65 6e 25 2c  |ssage..... men%,|
00000dd0  6d 78 25 2c 6d 79 25 0d  04 d8 12 c8 8e 20 62 6c  |mx%,my%...... bl|
00000de0  6f 63 6b 25 21 31 36 20  ca 0d 04 e2 10 20 c9 20  |ock%!16 ..... . |
00000df0  30 3a 71 75 69 74 25 3d  b9 0d 04 ec 38 20 c9 20  |0:quit%=....8 . |
00000e00  26 34 30 30 43 30 3a 6d  65 6e 25 3d 62 6c 6f 63  |&400C0:men%=bloc|
00000e10  6b 25 21 32 30 3a 6d 78  25 3d 62 6c 6f 63 6b 25  |k%!20:mx%=block%|
00000e20  21 32 34 3a 6d 79 25 3d  62 6c 6f 63 6b 25 21 32  |!24:my%=block%!2|
00000e30  38 0d 04 f6 23 6d 65 6e  75 6d 6f 6e 25 3d 6d 6f  |8...#menumon%=mo|
00000e40  6e 74 68 25 3a 6d 65 6e  75 79 65 61 72 25 3d 79  |nth%:menuyear%=y|
00000e50  65 61 72 25 0d 05 00 3f  f2 77 72 69 74 65 28 6e  |ear%...?.write(n|
00000e60  65 77 6d 6f 6e 25 2c 30  2c 6d 6f 6e 74 68 24 28  |ewmon%,0,month$(|
00000e70  6d 6f 6e 74 68 25 29 29  3a f2 77 72 69 74 65 28  |month%)):.write(|
00000e80  6e 65 77 6d 6f 6e 25 2c  31 2c c3 28 79 65 61 72  |newmon%,1,.(year|
00000e90  25 29 29 0d 05 0a 28 c8  99 22 57 69 6d 70 5f 43  |%))...(.."Wimp_C|
00000ea0  72 65 61 74 65 53 75 62  4d 65 6e 75 22 2c 2c 6d  |reateSubMenu",,m|
00000eb0  65 6e 25 2c 6d 78 25 2c  6d 79 25 0d 05 14 05 cb  |en%,mx%,my%.....|
00000ec0  0d 05 1e 05 e1 0d 05 28  04 0d 05 32 11 dd f2 6f  |.......(...2...o|
00000ed0  70 77 69 6e 28 77 69 6e  25 29 0d 05 3c 30 21 62  |pwin(win%)..<0!b|
00000ee0  6c 6f 63 6b 25 3d 77 69  6e 25 3a c8 99 22 57 69  |lock%=win%:.."Wi|
00000ef0  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00000f00  65 22 2c 2c 62 6c 6f 63  6b 25 0d 05 46 2c 62 6c  |e",,block%..F,bl|
00000f10  6f 63 6b 25 21 32 38 3d  2d 31 3a c8 99 22 57 69  |ock%!28=-1:.."Wi|
00000f20  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
00000f30  62 6c 6f 63 6b 25 0d 05  50 05 e1 0d 05 5a 04 0d  |block%..P....Z..|
00000f40  05 64 16 dd a4 72 65 61  64 28 77 69 6e 25 2c 69  |.d...read(win%,i|
00000f50  63 6f 6e 25 29 0d 05 6e  3d 21 62 6c 6f 63 6b 25  |con%)..n=!block%|
00000f60  3d 77 69 6e 25 3a 62 6c  6f 63 6b 25 21 34 3d 69  |=win%:block%!4=i|
00000f70  63 6f 6e 25 3a c8 99 22  57 69 6d 70 5f 47 65 74  |con%:.."Wimp_Get|
00000f80  49 63 6f 6e 53 74 61 74  65 22 2c 2c 62 6c 6f 63  |IconState",,bloc|
00000f90  6b 25 0d 05 78 11 3d 24  28 62 6c 6f 63 6b 25 21  |k%..x.=$(block%!|
00000fa0  32 38 29 0d 05 82 04 0d  05 8c 1c dd f2 77 72 69  |28)..........wri|
00000fb0  74 65 28 77 69 6e 25 2c  69 63 6f 6e 25 2c 73 74  |te(win%,icon%,st|
00000fc0  72 24 29 0d 05 96 3d 21  62 6c 6f 63 6b 25 3d 77  |r$)...=!block%=w|
00000fd0  69 6e 25 3a 62 6c 6f 63  6b 25 21 34 3d 69 63 6f  |in%:block%!4=ico|
00000fe0  6e 25 3a c8 99 22 57 69  6d 70 5f 47 65 74 49 63  |n%:.."Wimp_GetIc|
00000ff0  6f 6e 53 74 61 74 65 22  2c 2c 62 6c 6f 63 6b 25  |onState",,block%|
00001000  0d 05 a0 3e 62 6c 6f 63  6b 25 21 38 3d 30 3a 62  |...>block%!8=0:b|
00001010  6c 6f 63 6b 25 21 31 32  3d 30 3a 24 28 62 6c 6f  |lock%!12=0:$(blo|
00001020  63 6b 25 21 32 38 29 3d  73 74 72 24 3a 62 6c 6f  |ck%!28)=str$:blo|
00001030  63 6b 25 21 33 32 3d a9  28 73 74 72 24 29 0d 05  |ck%!32=.(str$)..|
00001040  aa 21 c8 99 22 57 69 6d  70 5f 53 65 74 49 63 6f  |.!.."Wimp_SetIco|
00001050  6e 53 74 61 74 65 22 2c  2c 62 6c 6f 63 6b 25 0d  |nState",,block%.|
00001060  05 b4 05 e1 0d 05 be 04  0d 05 c8 0d dd a4 6e 6f  |..............no|
00001070  77 79 65 61 72 0d 05 d2  23 21 62 6c 6f 63 6b 25  |wyear...#!block%|
00001080  3d 31 3a c8 99 22 4f 53  5f 57 6f 72 64 22 2c 31  |=1:.."OS_Word",1|
00001090  34 2c 62 6c 6f 63 6b 25  0d 05 dc 2a 3d 31 39 30  |4,block%...*=190|
000010a0  30 2b 28 28 3f 62 6c 6f  63 6b 25 29 80 31 35 29  |0+((?block%).15)|
000010b0  2b 28 28 3f 62 6c 6f 63  6b 25 29 81 31 36 29 2a  |+((?block%).16)*|
000010c0  31 30 0d 05 e6 04 0d 05  f0 0e dd a4 6e 6f 77 6d  |10..........nowm|
000010d0  6f 6e 74 68 0d 05 fa 23  21 62 6c 6f 63 6b 25 3d  |onth...#!block%=|
000010e0  31 3a c8 99 22 4f 53 5f  57 6f 72 64 22 2c 31 34  |1:.."OS_Word",14|
000010f0  2c 62 6c 6f 63 6b 25 0d  06 04 27 3d 28 28 62 6c  |,block%...'=((bl|
00001100  6f 63 6b 25 3f 31 29 80  31 35 29 2b 28 28 62 6c  |ock%?1).15)+((bl|
00001110  6f 63 6b 25 3f 31 29 81  31 36 29 2a 31 30 0d 06  |ock%?1).16)*10..|
00001120  0e 04 0d 06 18 0c dd a4  6e 6f 77 64 61 79 0d 06  |........nowday..|
00001130  22 23 21 62 6c 6f 63 6b  25 3d 31 3a c8 99 22 4f  |"#!block%=1:.."O|
00001140  53 5f 57 6f 72 64 22 2c  31 34 2c 62 6c 6f 63 6b  |S_Word",14,block|
00001150  25 0d 06 2c 27 3d 28 28  62 6c 6f 63 6b 25 3f 32  |%..,'=((block%?2|
00001160  29 80 31 35 29 2b 28 28  62 6c 6f 63 6b 25 3f 32  |).15)+((block%?2|
00001170  29 81 31 36 29 2a 31 30  0d 06 36 04 0d 06 40 1c  |).16)*10..6...@.|
00001180  dd a4 64 61 79 28 64 61  79 25 2c 6d 6f 6e 74 68  |..day(day%,month|
00001190  25 2c 79 65 61 72 25 29  0d 06 4a 1a ea 20 64 61  |%,year%)..J.. da|
000011a0  79 73 25 2c 6d 6f 25 2c  79 65 25 2c 6c 65 61 70  |ys%,mo%,ye%,leap|
000011b0  73 25 0d 06 54 21 79 65  25 3d 79 65 61 72 25 2d  |s%..T!ye%=year%-|
000011c0  31 39 39 35 3a e7 20 79  65 61 72 25 3e 31 39 39  |1995:. year%>199|
000011d0  35 20 8c 0d 06 5e 11 6c  65 61 70 73 25 3d 79 65  |5 ...^.leaps%=ye|
000011e0  25 20 81 34 0d 06 68 19  e7 20 79 65 25 20 83 34  |% .4..h.. ye% .4|
000011f0  3c 3e 30 20 6c 65 61 70  73 25 2b 3d 31 0d 06 72  |<>0 leaps%+=1..r|
00001200  18 e7 20 6d 6f 6e 74 68  25 3c 33 20 6c 65 61 70  |.. month%<3 leap|
00001210  73 25 2d 3d 31 0d 06 7c  05 cd 0d 06 86 0b 64 61  |s%-=1..|......da|
00001220  79 73 25 3d 30 0d 06 90  32 e7 20 6d 6f 6e 74 68  |ys%=0...2. month|
00001230  25 3e 31 20 e3 6d 6f 25  3d 31 b8 20 6d 6f 6e 74  |%>1 .mo%=1. mont|
00001240  68 25 2d 31 3a 64 61 79  73 25 2b 3d 64 69 6d 25  |h%-1:days%+=dim%|
00001250  28 6d 6f 25 29 3a ed 0d  06 9a 11 64 61 79 73 25  |(mo%):.....days%|
00001260  2b 3d 64 61 79 25 2d 31  0d 06 a4 19 64 61 79 73  |+=day%-1....days|
00001270  25 2b 3d 6c 65 61 70 73  25 2b 79 65 25 2a 33 36  |%+=leaps%+ye%*36|
00001280  35 0d 06 ae 0d 3d 64 61  79 73 25 20 83 37 0d 06  |5....=days% .7..|
00001290  b8 04 0d 06 c2 0d dd f2  64 61 79 70 6c 6f 74 0d  |........dayplot.|
000012a0  06 cc 0a ea 20 63 6e 74  25 0d 06 d6 2f f2 77 72  |.... cnt%.../.wr|
000012b0  69 74 65 28 6d 61 69 6e  25 2c 32 2c 6d 6f 6e 74  |ite(main%,2,mont|
000012c0  68 24 28 6d 6f 6e 74 68  25 29 2b 22 20 22 2b c3  |h$(month%)+" "+.|
000012d0  28 79 65 61 72 25 29 29  0d 06 e0 22 66 69 72 73  |(year%))..."firs|
000012e0  74 25 3d a4 64 61 79 28  31 2c 6d 6f 6e 74 68 25  |t%=.day(1,month%|
000012f0  2c 79 65 61 72 25 29 2b  31 30 0d 06 ea 69 e7 20  |,year%)+10...i. |
00001300  66 69 72 73 74 25 3e 31  30 20 e3 63 6e 74 25 3d  |first%>10 .cnt%=|
00001310  31 30 b8 66 69 72 73 74  25 2d 31 3a f2 77 72 69  |10.first%-1:.wri|
00001320  74 65 28 6d 61 69 6e 25  2c 63 6e 74 25 2c 22 22  |te(main%,cnt%,""|
00001330  29 3a f2 73 68 61 64 65  69 63 6f 6e 28 6d 61 69  |):.shadeicon(mai|
00001340  6e 25 2c 63 6e 74 25 2c  b9 29 3a f2 73 65 74 69  |n%,cnt%,.):.seti|
00001350  63 6f 6e 28 6d 61 69 6e  25 2c 63 6e 74 25 2c a3  |con(main%,cnt%,.|
00001360  29 3a ed 0d 06 f4 2e e3  20 63 6e 74 25 3d 66 69  |):...... cnt%=fi|
00001370  72 73 74 25 b8 20 66 69  72 73 74 25 2b a4 64 69  |rst%. first%+.di|
00001380  6d 28 6d 6f 6e 74 68 25  2c 79 65 61 72 25 29 2d  |m(month%,year%)-|
00001390  31 0d 06 fe 27 f2 77 72  69 74 65 28 6d 61 69 6e  |1...'.write(main|
000013a0  25 2c 63 6e 74 25 2c c3  28 63 6e 74 25 2d 66 69  |%,cnt%,.(cnt%-fi|
000013b0  72 73 74 25 2b 31 29 29  0d 07 08 35 f2 73 68 61  |rst%+1))...5.sha|
000013c0  64 65 69 63 6f 6e 28 6d  61 69 6e 25 2c 63 6e 74  |deicon(main%,cnt|
000013d0  25 2c a3 29 3a f2 73 65  74 69 63 6f 6e 28 6d 61  |%,.):.seticon(ma|
000013e0  69 6e 25 2c 63 6e 74 25  2c a3 29 3a ed 0d 07 12  |in%,cnt%,.):....|
000013f0  7a e7 20 66 69 72 73 74  25 3c 31 36 20 e3 63 6e  |z. first%<16 .cn|
00001400  74 25 3d 66 69 72 73 74  25 2b a4 64 69 6d 28 6d  |t%=first%+.dim(m|
00001410  6f 6e 74 68 25 2c 79 65  61 72 25 29 b8 34 36 3a  |onth%,year%).46:|
00001420  f2 77 72 69 74 65 28 6d  61 69 6e 25 2c 63 6e 74  |.write(main%,cnt|
00001430  25 2c 22 22 29 3a f2 73  68 61 64 65 69 63 6f 6e  |%,""):.shadeicon|
00001440  28 6d 61 69 6e 25 2c 63  6e 74 25 2c b9 29 3a f2  |(main%,cnt%,.):.|
00001450  73 65 74 69 63 6f 6e 28  6d 61 69 6e 25 2c 63 6e  |seticon(main%,cn|
00001460  74 25 2c a3 29 3a ed 0d  07 1c 4a e7 20 6d 6f 6e  |t%,.):....J. mon|
00001470  74 68 25 3d a4 6e 6f 77  6d 6f 6e 74 68 20 80 20  |th%=.nowmonth . |
00001480  79 65 61 72 25 3d a4 6e  6f 77 79 65 61 72 20 f2  |year%=.nowyear .|
00001490  73 65 74 69 63 6f 6e 28  6d 61 69 6e 25 2c 66 69  |seticon(main%,fi|
000014a0  72 73 74 25 2b a4 6e 6f  77 64 61 79 2d 31 2c b9  |rst%+.nowday-1,.|
000014b0  29 0d 07 26 05 e1 0d 07  30 04 0d 07 3a 17 dd a4  |)..&....0...:...|
000014c0  64 69 6d 28 6d 6f 6e 74  68 25 2c 79 65 61 72 25  |dim(month%,year%|
000014d0  29 0d 07 44 0b ea 20 6c  65 61 70 25 0d 07 4e 2e  |)..D.. leap%..N.|
000014e0  e7 20 28 79 65 61 72 25  20 83 34 3d 30 29 80 20  |. (year% .4=0). |
000014f0  6d 6f 6e 74 68 25 3d 32  20 6c 65 61 70 25 3d 31  |month%=2 leap%=1|
00001500  20 8b 20 6c 65 61 70 25  3d 30 0d 07 58 17 3d 64  | . leap%=0..X.=d|
00001510  69 6d 25 28 6d 6f 6e 74  68 25 29 2b 6c 65 61 70  |im%(month%)+leap|
00001520  25 0d 07 62 04 0d 07 6c  21 dd f2 73 68 61 64 65  |%..b...l!..shade|
00001530  69 63 6f 6e 28 77 69 6e  25 2c 69 63 6f 6e 25 2c  |icon(win%,icon%,|
00001540  66 6c 61 67 25 29 0d 07  76 3d 21 62 6c 6f 63 6b  |flag%)..v=!block|
00001550  25 3d 77 69 6e 25 3a 62  6c 6f 63 6b 25 21 34 3d  |%=win%:block%!4=|
00001560  69 63 6f 6e 25 3a c8 99  22 57 69 6d 70 5f 47 65  |icon%:.."Wimp_Ge|
00001570  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 62 6c 6f  |tIconState",,blo|
00001580  63 6b 25 0d 07 80 4b 62  6c 6f 63 6b 25 21 38 3d  |ck%...Kblock%!8=|
00001590  2d 26 34 30 30 30 30 30  2a 66 6c 61 67 25 3a 62  |-&400000*flag%:b|
000015a0  6c 6f 63 6b 25 21 31 32  3d 26 34 30 30 30 30 30  |lock%!12=&400000|
000015b0  3a c8 99 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |:.."Wimp_SetIcon|
000015c0  53 74 61 74 65 22 2c 2c  62 6c 6f 63 6b 25 0d 07  |State",,block%..|
000015d0  8a 05 e1 0d 07 94 04 0d  07 9e 13 dd f2 6d 65 73  |.............mes|
000015e0  73 61 67 65 28 6d 65 73  24 29 0d 07 a8 23 21 62  |sage(mes$)...#!b|
000015f0  6c 6f 63 6b 25 3d 30 3a  24 28 62 6c 6f 63 6b 25  |lock%=0:$(block%|
00001600  2b 34 29 3d 6d 65 73 24  2b bd 28 30 29 0d 07 b2  |+4)=mes$+.(0)...|
00001610  3a c8 99 22 57 69 6d 70  5f 52 65 70 6f 72 74 45  |:.."Wimp_ReportE|
00001620  72 72 6f 72 22 2c 62 6c  6f 63 6b 25 2c 31 37 2c  |rror",block%,17,|
00001630  22 4d 65 73 73 61 67 65  20 66 72 6f 6d 20 43 61  |"Message from Ca|
00001640  6c 65 6e 64 61 72 22 0d  07 bc 05 e1 0d 07 c6 04  |lendar".........|
00001650  0d 07 d0 1f dd f2 73 65  74 69 63 6f 6e 28 77 69  |......seticon(wi|
00001660  6e 25 2c 69 63 6f 6e 25  2c 66 6c 61 67 25 29 0d  |n%,icon%,flag%).|
00001670  07 da 3d 21 62 6c 6f 63  6b 25 3d 77 69 6e 25 3a  |..=!block%=win%:|
00001680  62 6c 6f 63 6b 25 21 34  3d 69 63 6f 6e 25 3a c8  |block%!4=icon%:.|
00001690  99 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  |."Wimp_GetIconSt|
000016a0  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 0d 07 e4 4b  |ate",,block%...K|
000016b0  62 6c 6f 63 6b 25 21 38  3d 2d 26 32 30 30 30 30  |block%!8=-&20000|
000016c0  30 2a 66 6c 61 67 25 3a  62 6c 6f 63 6b 25 21 31  |0*flag%:block%!1|
000016d0  32 3d 26 32 30 30 30 30  30 3a c8 99 22 57 69 6d  |2=&200000:.."Wim|
000016e0  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
000016f0  2c 62 6c 6f 63 6b 25 0d  07 ee 05 e1 0d ff        |,block%.......|
000016fe