� >!RunImage
� by Martyn Fox
� (C) Martyn Fox 1990
(:
2version$="1.00 (1-Oct-90)"
<� b% 400
F:ș "Wimp_Initialise",200,&4B534154,"Calendar" � ,task%
P	�init
Z�createicon
d� � � �error � �close:�
n�
x	�poll
�� quit%
�
�close
��
�:
�
��poll
�!ș "Wimp_Poll",&81831,b% � r%
�Ȏ r% �
�� 1:�redraw
� � 2:ș "Wimp_OpenWindow",,b%
�!� 3:ș "Wimp_CloseWindow",,b%
�� 6:�mouseclick
�� 9:�decode_menu
�� 17,18:�message

�

�

:

"��create_window

,$b%=�88,�0):� Clr

67b%!0=200:b%!4=200:b%!8=200+width%:b%!12=200+height%

@b%!24=-1:b%!28=&87000003

J<b%?32=7:b%?33=2:b%?34=7:b%?35=0:b%?36=3:b%?37=1:b%?38=12

TEb%!40=0:b%!44=-height%:b%!48=width%:b%!52=0:b%!56=&3D:b%!60=3<<12

^$(b%+72)="Calendar"

h2b%!84=2:b%!88=38:b%!92=-52:b%!96=70:b%!100=-12

r!b%!104=&2700303D:b%!108=&0D88

|Mb%!120=378:b%!124=-52:b%!128=410:b%!132=-12:b%!136=&2700303D:b%!140=&0D89

�#ș "Wimp_CreateWindow",,b% � w%

��

�:

���redraw

�� m%

�#ș "Wimp_RedrawWindow",,b% � m%

�	ȕ m%

�,� b%!0=w% �draw(b%!4,b%!16,month%,year%)

�#ș "Wimp_GetRectangle",,b% � m%

��

��

�:

���close
'ș "Wimp_CloseDown",task%,&4B534154
�
:
&ݤerror
0	!b%=�
:=� �=1 err_str$="":box%=1 � err_str$=" at line "+Þ:box%=2
D$(b%+4)=�$+err_str$+�0
N9ș "Wimp_ReportError",b%,box%,"Calendar" � ,response%
X=(response%=2)
b:
l��createicon
v6!b%=-1:b%!4=0:b%!8=0:b%!12=69:b%!16=68:b%!20=&3002
�5$(b%+24)="!Calendar":ș"Wimp_CreateIcon",,b% � i%
��
�:
���mouseclick
�Ȏ b%!12 �
�� w%:Ȏ b%!8 �
�� 4:Ȏ b%!16 �
�� 0:�previous
�
� 1:�next
��
�� 1:Ȏ b%!16 �
�
� 0:�next
�� 1:�previous
�
1� 2:$ind%="":�create_menu(datemenu%,!b%,b%!4)
�
 � -2:Ȏ b%!8 �
*V� 1,4:�make_calendar:b%!0=w%:ș "Wimp_GetWindowState",,b%:ș "Wimp_OpenWindow",,b%
4*� 2:�create_menu(mainmenu%,!b%-64,184)
>�
H�
R�
\:
f ��create_menu(menu%,xp%,yp%)
p+menu_start%=menu%:menux%=xp%:menuy%=yp%
z'ș "Wimp_CreateMenu",,menu%,xp%,yp%
��
�:
���decode_menu
�
� adj%,a$
�"ș "Wimp_GetPointerInfo",,buf%
�adj%=(buf%!8=1)
�4ș "Wimp_DecodeMenu",,menu_start%,b%,menustring%
�a$=�$menustring%,10)
�Ȏ a$ �
�� "this month":�this_month
�� "Quit":�close:�
�$� "new month.":�new_month($ind%)
��
2� adj% �create_menu(menu_start%,menux%,menuy%)
�
:
$ݤindirect(a$)
.� start%
8start%=ws%
B$start%=a$
Lws%=start%+�a$+1
V=start%
`:
j
��init
tquit%=�:wsmax%=100
~width%=448:height%=340
�z� month$(13),len%(12),start_day%(12),buf% 20,ind% 20,ws% wsmax%,menustring% 50,mainmenu% 76,inputmenu% 52,datemenu% 76
�wsend%=ws%+wsmax%
�[� January,February,March,April,May,June,July,August,September,October,November,December
�(�31,28,31,30,31,30,31,31,30,31,30,31
��0,3,3,6,1,4,6,2,5,0,3,5
�
� �t\D
�� N%=1 �12:� month$(N%):�
�� N%=1 � 12:� len%(N%):�
�"� N%=1 � 12:� start_day%(N%):�
��create_window
��create_info
�
�mainmenu
�inputmenu


�datemenu
�
:
(��make_calendar
2time$=�$
<this_month%=0
F�
Pthis_month%+=1
Z;�this_month%=13 � �time$,8,3) = �month$(this_month%),3)
d/� this_month%=13 � 1,"Month not recognised"
ntoday%=�(�time$,5,2))
xthis_year%=�(�time$,12,4))
�month%=this_month%
�year%=this_year%
��
�:
���draw(x0%,y0%,mon%,year%)
�2now%=((mon%=this_month%) � (year%=this_year%))
�#mask%=1<<22:notmask%=mask% � -1
�_� now% !(datemenu%+60)=!(datemenu%+60) � mask% � !(datemenu%+60)=!(datemenu%+60) � notmask%
�ș "Wimp_SetColour",7
�� b%!16-b%!40<60 �
�1� x0%+(width%-�(month$(mon%))*16-80)/2,y0%-20
�� ;month$(mon%);�(1);year%
��
)� b%!16-b%!32>=60 � b%!16-b%!40<100 �
� x0%+8,y0%-60
"�"Mon Tue Wed Thu Fri Sat Sun"
"�
,� b%!16-b%!32>98 �
6length%=len%(mon%)
@9start%=year%-1900+((year%-1900) � 4)+start_day%(mon%)
J)�((year%-1900) � 4)=0 � year%<>1900 �
T� mon%<3 start%-=1
^� mon%=2 length%+=1
h�
rstart%=start% � 7
|� day%=1 � length%
�E�((day%-1+start%) � 7)*64+16+x0%,y0%-100-((day%-1+start%) � 7)*40
�� day%<10 � �(1);
�G� now% � day%=today% � ș"Wimp_SetColour",8 � ș"Wimp_SetColour",11
��;day%;
��
��
��
�:
���previous
�4� month%=1 � year%=1900 � 1,"Year out of limits"
�
month%-=1
�!� month%<1 month%=12:year%-=1
��update
�
:

��next
&5� month%=12 � year%=2099 � 1,"Year out of limits"
0
month%+=1
:!� month%>12 month%=1:year%+=1
D�update
N�
X:
b��update
l)ș "Wimp_ForceRedraw",w%,70,-52,378,0
v2ș "Wimp_ForceRedraw",w%,0,-height%,width%,-52
��
�:
���mainmenu
�� m%
�m%=mainmenu%
�L$m%="Calendar":m%?12=7:m%?13=2:m%?14=7:m%?15=0:m%!16=92:m%!20=44:m%!24=0
�7m%!28=0:m%!32=info%:m%!36=&07000021:$(m%+40)="Info"
�6m%!52=&80:m%!56=-1:m%!60=&07000021:$(m%+64)="Quit"
��
�:
���inputmenu
�� m%
�m%=inputmenu%
I$m%="Date":m%?12=7:m%?13=2:m%?14=7:m%?15=0:m%!16=172:m%!20=44:m%!24=0
Cm%!28=&84:m%!32=-1:m%!36=&0700F121:m%!40=ind%:m%!44=-1:m%!48=19
�
 :
*��datemenu
4� m%
>m%=datemenu%
HM$m%="Calendar":m%?12=7:m%?13=2:m%?14=7:m%?15=0:m%!16=172:m%!20=44:m%!24=0
RAm%!28=0:m%!32=inputmenu%:m%!36=&07000021:$(m%+40)="new month"
\<m%!52=&80:m%!56=-1:m%!60=&07000021:$(m%+64)="this month"
f�
p:
z��new_month(a$)
�month%=�decode_month(a$)
�year%=�decode_year(a$)
��update
��
�:
�ݤdecode_month(a$)
�?� �(�a$,1))>&40 =�decode_letters(a$) � =�decode_numbers(a$)
�:
�ݤdecode_letters(a$)
�
� mon%,b$
�?b$=�(�(�a$,1)) � &DF)+�(�(�a$,2)) � &20)+�(�(�a$,3)) � &20)
�
mon%=0
��
	mon%+=1
	"�mon%=13 � b$=�month$(mon%),3)
	(� mon%=13 � 1,"Month not recognised"
	$	=mon%
	.:
	8ݤdecode_numbers(a$)
	B
� mon%
	Lmon%=�(�a$,2))
	V4� mon%<1 � mon%>12 � 1,"Month not valid":mon%=13
	`	=mon%
	j:
	tݤdecode_year(a$)
	~� b$,n%,y%
	�	b$=""
	�	n%=-1
	��
	�	n%+=1
	�0��(�a$,�a$-n%,1))<&30 � �(�a$,�a$-n%,1))>&39
	�b$=�a$,n%)
	�%� �b$<1 � 1,"Year not recognised"
	�y%=�(b$)
	�)� y%<100 y%=y%+(this_year% � 100)*100
	�.�y%<1900 � y%>2099 � 1,"Year out of range"
	�=y%
	�:
��this_month

month%=this_month%
year%=this_year%
�update
(�
2:
<��create_info
Fyb%!0=84:b%!4=652:b%!8=722:b%!12=864:b%!24=-1:b%!28=&84000010:b%?32=7:b%?33=2:b%?34=7:b%?35=1:b%?36=3:b%?37=1:b%?38=12
Pub%!40=0:b%!44=-212:b%!48=638:b%!52=0:b%!56=&13D:b%!60=3<<12:b%!64=0:b%!68=0:b%!72=�indirect("About this program")
Z}b%!76=-1:b%!80=20:b%!84=8:b%!88=14:b%!92=-48:b%!96=154:b%!100=-8:b%!104=&17000211:$(b%+108)="Name:":b%!120=14:b%!124=-100
d�b%!128=154:b%!132=-60:b%!136=&17000211:$(b%+140)="Purpose:":b%!152=14:b%!156=-152:b%!160=154:b%!164=-112:b%!168=&17000211:$(b%+172)="Author:":b%!184=14:b%!188=-200:b%!192=154:b%!196=-160:b%!200=&17000211:$(b%+204)="Version:"
n�b%!216=154:b%!220=-52:b%!224=630:b%!228=-4:b%!232=&0700603D:$(b%+236)="Calendar":b%!248=154::b%!252=-104:b%!256=630:b%!260=-56:b%!264=&0700613D:b%!268=�indirect("Month to a view 1900 - 2099"):b%!272=-1:b%!276=20
xYb%!280=154:b%!284=-156:b%!288=630:b%!292=-108:b%!296=&0700603D:$(b%+300)="Martyn Fox"
�qb%!312=154:b%!316=-208:b%!320=630:b%!324=-160:b%!328=&0700613D:b%!332=�indirect(version$):b%!336=-1:b%!340=20
�$ș "Wimp_CreateWindow",,b%�info%
��
�:
�
��message
�Ȏ b%!16 �
�� 0:quit%=�
�� &502:�help
��
��
�:
�
��help
�� a$
Ȏ b%!32 �
J� -2:a$="This is the Calendar icon.|MClick Select to show this month."
� w%:Ȏ b%!36 �
"P� 0:a$="Click Select for previous month|MClick Adjust for following month|M"
,P� 1:a$="Click Select for following month|MClick Adjust for previous month|M"
6: a$="Use arrow icons to step forwards or backwards|M"
@�
J4a$=a$+"Click Menu to enter a new month and year"
T�
^� a$<>"" �
hb%!12=b%!8
rb%!16=&503
|$(b%+20)=a$+�0
�!b%=(25+�a$) ��3
�$ș "Wimp_SendMessage",17,b%,b%!4
��
��
�

00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 14 13 f4 20 62 79  20 4d 61 72 74 79 6e 20  |..... by Martyn |
00000020  46 6f 78 0d 00 1e 19 f4  20 28 43 29 20 4d 61 72  |Fox..... (C) Mar|
00000030  74 79 6e 20 46 6f 78 20  31 39 39 30 0d 00 28 05  |tyn Fox 1990..(.|
00000040  3a 0d 00 32 1e 76 65 72  73 69 6f 6e 24 3d 22 31  |:..2.version$="1|
00000050  2e 30 30 20 28 31 2d 4f  63 74 2d 39 30 29 22 0d  |.00 (1-Oct-90)".|
00000060  00 3c 0c de 20 62 25 20  34 30 30 0d 00 46 3a c8  |.<.. b% 400..F:.|
00000070  99 20 22 57 69 6d 70 5f  49 6e 69 74 69 61 6c 69  |. "Wimp_Initiali|
00000080  73 65 22 2c 32 30 30 2c  26 34 42 35 33 34 31 35  |se",200,&4B53415|
00000090  34 2c 22 43 61 6c 65 6e  64 61 72 22 20 b8 20 2c  |4,"Calendar" . ,|
000000a0  74 61 73 6b 25 0d 00 50  09 f2 69 6e 69 74 0d 00  |task%..P..init..|
000000b0  5a 0f f2 63 72 65 61 74  65 69 63 6f 6e 0d 00 64  |Z..createicon..d|
000000c0  1b ee 20 85 20 e7 20 a4  65 72 72 6f 72 20 8c 20  |.. . . .error . |
000000d0  f2 63 6c 6f 73 65 3a e0  0d 00 6e 05 f5 0d 00 78  |.close:...n....x|
000000e0  09 f2 70 6f 6c 6c 0d 00  82 0b fd 20 71 75 69 74  |..poll..... quit|
000000f0  25 0d 00 8c 0a f2 63 6c  6f 73 65 0d 00 96 05 e0  |%.....close.....|
00000100  0d 00 a0 05 3a 0d 00 aa  0a dd f2 70 6f 6c 6c 0d  |....:......poll.|
00000110  00 b4 21 c8 99 20 22 57  69 6d 70 5f 50 6f 6c 6c  |..!.. "Wimp_Poll|
00000120  22 2c 26 38 31 38 33 31  2c 62 25 20 b8 20 72 25  |",&81831,b% . r%|
00000130  0d 00 be 0b c8 8e 20 72  25 20 ca 0d 00 c8 0f c9  |...... r% ......|
00000140  20 31 3a f2 72 65 64 72  61 77 0d 00 d2 20 c9 20  | 1:.redraw... . |
00000150  32 3a c8 99 20 22 57 69  6d 70 5f 4f 70 65 6e 57  |2:.. "Wimp_OpenW|
00000160  69 6e 64 6f 77 22 2c 2c  62 25 0d 00 dc 21 c9 20  |indow",,b%...!. |
00000170  33 3a c8 99 20 22 57 69  6d 70 5f 43 6c 6f 73 65  |3:.. "Wimp_Close|
00000180  57 69 6e 64 6f 77 22 2c  2c 62 25 0d 00 e6 13 c9  |Window",,b%.....|
00000190  20 36 3a f2 6d 6f 75 73  65 63 6c 69 63 6b 0d 00  | 6:.mouseclick..|
000001a0  f0 14 c9 20 39 3a f2 64  65 63 6f 64 65 5f 6d 65  |... 9:.decode_me|
000001b0  6e 75 0d 00 fa 14 c9 20  31 37 2c 31 38 3a f2 6d  |nu..... 17,18:.m|
000001c0  65 73 73 61 67 65 0d 01  04 05 cb 0d 01 0e 05 e1  |essage..........|
000001d0  0d 01 18 05 3a 0d 01 22  13 dd f2 63 72 65 61 74  |....:.."...creat|
000001e0  65 5f 77 69 6e 64 6f 77  0d 01 2c 15 24 62 25 3d  |e_window..,.$b%=|
000001f0  c4 38 38 2c bd 30 29 3a  f4 20 43 6c 72 0d 01 36  |.88,.0):. Clr..6|
00000200  37 62 25 21 30 3d 32 30  30 3a 62 25 21 34 3d 32  |7b%!0=200:b%!4=2|
00000210  30 30 3a 62 25 21 38 3d  32 30 30 2b 77 69 64 74  |00:b%!8=200+widt|
00000220  68 25 3a 62 25 21 31 32  3d 32 30 30 2b 68 65 69  |h%:b%!12=200+hei|
00000230  67 68 74 25 0d 01 40 1c  62 25 21 32 34 3d 2d 31  |ght%..@.b%!24=-1|
00000240  3a 62 25 21 32 38 3d 26  38 37 30 30 30 30 30 33  |:b%!28=&87000003|
00000250  0d 01 4a 3c 62 25 3f 33  32 3d 37 3a 62 25 3f 33  |..J<b%?32=7:b%?3|
00000260  33 3d 32 3a 62 25 3f 33  34 3d 37 3a 62 25 3f 33  |3=2:b%?34=7:b%?3|
00000270  35 3d 30 3a 62 25 3f 33  36 3d 33 3a 62 25 3f 33  |5=0:b%?36=3:b%?3|
00000280  37 3d 31 3a 62 25 3f 33  38 3d 31 32 0d 01 54 45  |7=1:b%?38=12..TE|
00000290  62 25 21 34 30 3d 30 3a  62 25 21 34 34 3d 2d 68  |b%!40=0:b%!44=-h|
000002a0  65 69 67 68 74 25 3a 62  25 21 34 38 3d 77 69 64  |eight%:b%!48=wid|
000002b0  74 68 25 3a 62 25 21 35  32 3d 30 3a 62 25 21 35  |th%:b%!52=0:b%!5|
000002c0  36 3d 26 33 44 3a 62 25  21 36 30 3d 33 3c 3c 31  |6=&3D:b%!60=3<<1|
000002d0  32 0d 01 5e 17 24 28 62  25 2b 37 32 29 3d 22 43  |2..^.$(b%+72)="C|
000002e0  61 6c 65 6e 64 61 72 22  0d 01 68 32 62 25 21 38  |alendar"..h2b%!8|
000002f0  34 3d 32 3a 62 25 21 38  38 3d 33 38 3a 62 25 21  |4=2:b%!88=38:b%!|
00000300  39 32 3d 2d 35 32 3a 62  25 21 39 36 3d 37 30 3a  |92=-52:b%!96=70:|
00000310  62 25 21 31 30 30 3d 2d  31 32 0d 01 72 21 62 25  |b%!100=-12..r!b%|
00000320  21 31 30 34 3d 26 32 37  30 30 33 30 33 44 3a 62  |!104=&2700303D:b|
00000330  25 21 31 30 38 3d 26 30  44 38 38 0d 01 7c 4d 62  |%!108=&0D88..|Mb|
00000340  25 21 31 32 30 3d 33 37  38 3a 62 25 21 31 32 34  |%!120=378:b%!124|
00000350  3d 2d 35 32 3a 62 25 21  31 32 38 3d 34 31 30 3a  |=-52:b%!128=410:|
00000360  62 25 21 31 33 32 3d 2d  31 32 3a 62 25 21 31 33  |b%!132=-12:b%!13|
00000370  36 3d 26 32 37 30 30 33  30 33 44 3a 62 25 21 31  |6=&2700303D:b%!1|
00000380  34 30 3d 26 30 44 38 39  0d 01 86 23 c8 99 20 22  |40=&0D89...#.. "|
00000390  57 69 6d 70 5f 43 72 65  61 74 65 57 69 6e 64 6f  |Wimp_CreateWindo|
000003a0  77 22 2c 2c 62 25 20 b8  20 77 25 0d 01 90 05 e1  |w",,b% . w%.....|
000003b0  0d 01 9a 05 3a 0d 01 a4  0c dd f2 72 65 64 72 61  |....:......redra|
000003c0  77 0d 01 ae 08 ea 20 6d  25 0d 01 b8 23 c8 99 20  |w..... m%...#.. |
000003d0  22 57 69 6d 70 5f 52 65  64 72 61 77 57 69 6e 64  |"Wimp_RedrawWind|
000003e0  6f 77 22 2c 2c 62 25 20  b8 20 6d 25 0d 01 c2 09  |ow",,b% . m%....|
000003f0  c8 95 20 6d 25 0d 01 cc  2c e7 20 62 25 21 30 3d  |.. m%...,. b%!0=|
00000400  77 25 20 f2 64 72 61 77  28 62 25 21 34 2c 62 25  |w% .draw(b%!4,b%|
00000410  21 31 36 2c 6d 6f 6e 74  68 25 2c 79 65 61 72 25  |!16,month%,year%|
00000420  29 0d 01 d6 23 c8 99 20  22 57 69 6d 70 5f 47 65  |)...#.. "Wimp_Ge|
00000430  74 52 65 63 74 61 6e 67  6c 65 22 2c 2c 62 25 20  |tRectangle",,b% |
00000440  b8 20 6d 25 0d 01 e0 05  ce 0d 01 ea 05 e1 0d 01  |. m%............|
00000450  f4 05 3a 0d 01 fe 0b dd  f2 63 6c 6f 73 65 0d 02  |..:......close..|
00000460  08 27 c8 99 20 22 57 69  6d 70 5f 43 6c 6f 73 65  |.'.. "Wimp_Close|
00000470  44 6f 77 6e 22 2c 74 61  73 6b 25 2c 26 34 42 35  |Down",task%,&4B5|
00000480  33 34 31 35 34 0d 02 12  05 e1 0d 02 1c 05 3a 0d  |34154.........:.|
00000490  02 26 0b dd a4 65 72 72  6f 72 0d 02 30 09 21 62  |.&...error..0.!b|
000004a0  25 3d 9f 0d 02 3a 3d e7  20 9f 3d 31 20 65 72 72  |%=...:=. .=1 err|
000004b0  5f 73 74 72 24 3d 22 22  3a 62 6f 78 25 3d 31 20  |_str$="":box%=1 |
000004c0  8b 20 65 72 72 5f 73 74  72 24 3d 22 20 61 74 20  |. err_str$=" at |
000004d0  6c 69 6e 65 20 22 2b c3  9e 3a 62 6f 78 25 3d 32  |line "+..:box%=2|
000004e0  0d 02 44 1a 24 28 62 25  2b 34 29 3d f6 24 2b 65  |..D.$(b%+4)=.$+e|
000004f0  72 72 5f 73 74 72 24 2b  bd 30 0d 02 4e 39 c8 99  |rr_str$+.0..N9..|
00000500  20 22 57 69 6d 70 5f 52  65 70 6f 72 74 45 72 72  | "Wimp_ReportErr|
00000510  6f 72 22 2c 62 25 2c 62  6f 78 25 2c 22 43 61 6c  |or",b%,box%,"Cal|
00000520  65 6e 64 61 72 22 20 b8  20 2c 72 65 73 70 6f 6e  |endar" . ,respon|
00000530  73 65 25 0d 02 58 12 3d  28 72 65 73 70 6f 6e 73  |se%..X.=(respons|
00000540  65 25 3d 32 29 0d 02 62  05 3a 0d 02 6c 10 dd f2  |e%=2)..b.:..l...|
00000550  63 72 65 61 74 65 69 63  6f 6e 0d 02 76 36 21 62  |createicon..v6!b|
00000560  25 3d 2d 31 3a 62 25 21  34 3d 30 3a 62 25 21 38  |%=-1:b%!4=0:b%!8|
00000570  3d 30 3a 62 25 21 31 32  3d 36 39 3a 62 25 21 31  |=0:b%!12=69:b%!1|
00000580  36 3d 36 38 3a 62 25 21  32 30 3d 26 33 30 30 32  |6=68:b%!20=&3002|
00000590  0d 02 80 35 24 28 62 25  2b 32 34 29 3d 22 21 43  |...5$(b%+24)="!C|
000005a0  61 6c 65 6e 64 61 72 22  3a c8 99 22 57 69 6d 70  |alendar":.."Wimp|
000005b0  5f 43 72 65 61 74 65 49  63 6f 6e 22 2c 2c 62 25  |_CreateIcon",,b%|
000005c0  20 b8 20 69 25 0d 02 8a  05 e1 0d 02 94 05 3a 0d  | . i%.........:.|
000005d0  02 9e 10 dd f2 6d 6f 75  73 65 63 6c 69 63 6b 0d  |.....mouseclick.|
000005e0  02 a8 0e c8 8e 20 62 25  21 31 32 20 ca 0d 02 b2  |..... b%!12 ....|
000005f0  12 c9 20 77 25 3a c8 8e  20 62 25 21 38 20 ca 0d  |.. w%:.. b%!8 ..|
00000600  02 bc 12 c9 20 34 3a c8  8e 20 62 25 21 31 36 20  |.... 4:.. b%!16 |
00000610  ca 0d 02 c6 11 c9 20 30  3a f2 70 72 65 76 69 6f  |...... 0:.previo|
00000620  75 73 0d 02 d0 0d c9 20  31 3a f2 6e 65 78 74 0d  |us..... 1:.next.|
00000630  02 da 05 cb 0d 02 e4 12  c9 20 31 3a c8 8e 20 62  |......... 1:.. b|
00000640  25 21 31 36 20 ca 0d 02  ee 0d c9 20 30 3a f2 6e  |%!16 ...... 0:.n|
00000650  65 78 74 0d 02 f8 11 c9  20 31 3a f2 70 72 65 76  |ext..... 1:.prev|
00000660  69 6f 75 73 0d 03 02 05  cb 0d 03 0c 31 c9 20 32  |ious........1. 2|
00000670  3a 24 69 6e 64 25 3d 22  22 3a f2 63 72 65 61 74  |:$ind%="":.creat|
00000680  65 5f 6d 65 6e 75 28 64  61 74 65 6d 65 6e 75 25  |e_menu(datemenu%|
00000690  2c 21 62 25 2c 62 25 21  34 29 0d 03 16 05 cb 0d  |,!b%,b%!4)......|
000006a0  03 20 12 c9 20 2d 32 3a  c8 8e 20 62 25 21 38 20  |. .. -2:.. b%!8 |
000006b0  ca 0d 03 2a 56 c9 20 31  2c 34 3a f2 6d 61 6b 65  |...*V. 1,4:.make|
000006c0  5f 63 61 6c 65 6e 64 61  72 3a 62 25 21 30 3d 77  |_calendar:b%!0=w|
000006d0  25 3a c8 99 20 22 57 69  6d 70 5f 47 65 74 57 69  |%:.. "Wimp_GetWi|
000006e0  6e 64 6f 77 53 74 61 74  65 22 2c 2c 62 25 3a c8  |ndowState",,b%:.|
000006f0  99 20 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |. "Wimp_OpenWind|
00000700  6f 77 22 2c 2c 62 25 0d  03 34 2a c9 20 32 3a f2  |ow",,b%..4*. 2:.|
00000710  63 72 65 61 74 65 5f 6d  65 6e 75 28 6d 61 69 6e  |create_menu(main|
00000720  6d 65 6e 75 25 2c 21 62  25 2d 36 34 2c 31 38 34  |menu%,!b%-64,184|
00000730  29 0d 03 3e 05 cb 0d 03  48 05 cb 0d 03 52 05 e1  |)..>....H....R..|
00000740  0d 03 5c 05 3a 0d 03 66  20 dd f2 63 72 65 61 74  |..\.:..f ..creat|
00000750  65 5f 6d 65 6e 75 28 6d  65 6e 75 25 2c 78 70 25  |e_menu(menu%,xp%|
00000760  2c 79 70 25 29 0d 03 70  2b 6d 65 6e 75 5f 73 74  |,yp%)..p+menu_st|
00000770  61 72 74 25 3d 6d 65 6e  75 25 3a 6d 65 6e 75 78  |art%=menu%:menux|
00000780  25 3d 78 70 25 3a 6d 65  6e 75 79 25 3d 79 70 25  |%=xp%:menuy%=yp%|
00000790  0d 03 7a 27 c8 99 20 22  57 69 6d 70 5f 43 72 65  |..z'.. "Wimp_Cre|
000007a0  61 74 65 4d 65 6e 75 22  2c 2c 6d 65 6e 75 25 2c  |ateMenu",,menu%,|
000007b0  78 70 25 2c 79 70 25 0d  03 84 05 e1 0d 03 8e 05  |xp%,yp%.........|
000007c0  3a 0d 03 98 11 dd f2 64  65 63 6f 64 65 5f 6d 65  |:......decode_me|
000007d0  6e 75 0d 03 a2 0d ea 20  61 64 6a 25 2c 61 24 0d  |nu..... adj%,a$.|
000007e0  03 ac 22 c8 99 20 22 57  69 6d 70 5f 47 65 74 50  |..".. "Wimp_GetP|
000007f0  6f 69 6e 74 65 72 49 6e  66 6f 22 2c 2c 62 75 66  |ointerInfo",,buf|
00000800  25 0d 03 b6 13 61 64 6a  25 3d 28 62 75 66 25 21  |%....adj%=(buf%!|
00000810  38 3d 31 29 0d 03 c0 34  c8 99 20 22 57 69 6d 70  |8=1)...4.. "Wimp|
00000820  5f 44 65 63 6f 64 65 4d  65 6e 75 22 2c 2c 6d 65  |_DecodeMenu",,me|
00000830  6e 75 5f 73 74 61 72 74  25 2c 62 25 2c 6d 65 6e  |nu_start%,b%,men|
00000840  75 73 74 72 69 6e 67 25  0d 03 ca 18 61 24 3d c0  |ustring%....a$=.|
00000850  24 6d 65 6e 75 73 74 72  69 6e 67 25 2c 31 30 29  |$menustring%,10)|
00000860  0d 03 d4 0b c8 8e 20 61  24 20 ca 0d 03 de 1e c9  |...... a$ ......|
00000870  20 22 74 68 69 73 20 6d  6f 6e 74 68 22 3a f2 74  | "this month":.t|
00000880  68 69 73 5f 6d 6f 6e 74  68 0d 03 e8 15 c9 20 22  |his_month..... "|
00000890  51 75 69 74 22 3a f2 63  6c 6f 73 65 3a e0 0d 03  |Quit":.close:...|
000008a0  f2 24 c9 20 22 6e 65 77  20 6d 6f 6e 74 68 2e 22  |.$. "new month."|
000008b0  3a f2 6e 65 77 5f 6d 6f  6e 74 68 28 24 69 6e 64  |:.new_month($ind|
000008c0  25 29 0d 03 fc 05 cb 0d  04 06 32 e7 20 61 64 6a  |%)........2. adj|
000008d0  25 20 f2 63 72 65 61 74  65 5f 6d 65 6e 75 28 6d  |% .create_menu(m|
000008e0  65 6e 75 5f 73 74 61 72  74 25 2c 6d 65 6e 75 78  |enu_start%,menux|
000008f0  25 2c 6d 65 6e 75 79 25  29 0d 04 10 05 e1 0d 04  |%,menuy%).......|
00000900  1a 05 3a 0d 04 24 12 dd  a4 69 6e 64 69 72 65 63  |..:..$...indirec|
00000910  74 28 61 24 29 0d 04 2e  0c ea 20 73 74 61 72 74  |t(a$)..... start|
00000920  25 0d 04 38 0e 73 74 61  72 74 25 3d 77 73 25 0d  |%..8.start%=ws%.|
00000930  04 42 0e 24 73 74 61 72  74 25 3d 61 24 0d 04 4c  |.B.$start%=a$..L|
00000940  14 77 73 25 3d 73 74 61  72 74 25 2b a9 61 24 2b  |.ws%=start%+.a$+|
00000950  31 0d 04 56 0b 3d 73 74  61 72 74 25 0d 04 60 05  |1..V.=start%..`.|
00000960  3a 0d 04 6a 0a dd f2 69  6e 69 74 0d 04 74 16 71  |:..j...init..t.q|
00000970  75 69 74 25 3d a3 3a 77  73 6d 61 78 25 3d 31 30  |uit%=.:wsmax%=10|
00000980  30 0d 04 7e 1a 77 69 64  74 68 25 3d 34 34 38 3a  |0..~.width%=448:|
00000990  68 65 69 67 68 74 25 3d  33 34 30 0d 04 88 7a de  |height%=340...z.|
000009a0  20 6d 6f 6e 74 68 24 28  31 33 29 2c 6c 65 6e 25  | month$(13),len%|
000009b0  28 31 32 29 2c 73 74 61  72 74 5f 64 61 79 25 28  |(12),start_day%(|
000009c0  31 32 29 2c 62 75 66 25  20 32 30 2c 69 6e 64 25  |12),buf% 20,ind%|
000009d0  20 32 30 2c 77 73 25 20  77 73 6d 61 78 25 2c 6d  | 20,ws% wsmax%,m|
000009e0  65 6e 75 73 74 72 69 6e  67 25 20 35 30 2c 6d 61  |enustring% 50,ma|
000009f0  69 6e 6d 65 6e 75 25 20  37 36 2c 69 6e 70 75 74  |inmenu% 76,input|
00000a00  6d 65 6e 75 25 20 35 32  2c 64 61 74 65 6d 65 6e  |menu% 52,datemen|
00000a10  75 25 20 37 36 0d 04 92  15 77 73 65 6e 64 25 3d  |u% 76....wsend%=|
00000a20  77 73 25 2b 77 73 6d 61  78 25 0d 04 9c 5b dc 20  |ws%+wsmax%...[. |
00000a30  4a 61 6e 75 61 72 79 2c  46 65 62 72 75 61 72 79  |January,February|
00000a40  2c 4d 61 72 63 68 2c 41  70 72 69 6c 2c 4d 61 79  |,March,April,May|
00000a50  2c 4a 75 6e 65 2c 4a 75  6c 79 2c 41 75 67 75 73  |,June,July,Augus|
00000a60  74 2c 53 65 70 74 65 6d  62 65 72 2c 4f 63 74 6f  |t,September,Octo|
00000a70  62 65 72 2c 4e 6f 76 65  6d 62 65 72 2c 44 65 63  |ber,November,Dec|
00000a80  65 6d 62 65 72 0d 04 a6  28 dc 33 31 2c 32 38 2c  |ember...(.31,28,|
00000a90  33 31 2c 33 30 2c 33 31  2c 33 30 2c 33 31 2c 33  |31,30,31,30,31,3|
00000aa0  31 2c 33 30 2c 33 31 2c  33 30 2c 33 31 0d 04 b0  |1,30,31,30,31...|
00000ab0  1c dc 30 2c 33 2c 33 2c  36 2c 31 2c 34 2c 36 2c  |..0,3,3,6,1,4,6,|
00000ac0  32 2c 35 2c 30 2c 33 2c  35 0d 04 ba 0a f7 20 8d  |2,5,0,3,5..... .|
00000ad0  74 5c 44 0d 04 c4 1d e3  20 4e 25 3d 31 20 b8 31  |t\D..... N%=1 .1|
00000ae0  32 3a f3 20 6d 6f 6e 74  68 24 28 4e 25 29 3a ed  |2:. month$(N%):.|
00000af0  0d 04 ce 1c e3 20 4e 25  3d 31 20 b8 20 31 32 3a  |..... N%=1 . 12:|
00000b00  f3 20 6c 65 6e 25 28 4e  25 29 3a ed 0d 04 d8 22  |. len%(N%):...."|
00000b10  e3 20 4e 25 3d 31 20 b8  20 31 32 3a f3 20 73 74  |. N%=1 . 12:. st|
00000b20  61 72 74 5f 64 61 79 25  28 4e 25 29 3a ed 0d 04  |art_day%(N%):...|
00000b30  e2 12 f2 63 72 65 61 74  65 5f 77 69 6e 64 6f 77  |...create_window|
00000b40  0d 04 ec 10 f2 63 72 65  61 74 65 5f 69 6e 66 6f  |.....create_info|
00000b50  0d 04 f6 0d f2 6d 61 69  6e 6d 65 6e 75 0d 05 00  |.....mainmenu...|
00000b60  0e f2 69 6e 70 75 74 6d  65 6e 75 0d 05 0a 0d f2  |..inputmenu.....|
00000b70  64 61 74 65 6d 65 6e 75  0d 05 14 05 e1 0d 05 1e  |datemenu........|
00000b80  05 3a 0d 05 28 13 dd f2  6d 61 6b 65 5f 63 61 6c  |.:..(...make_cal|
00000b90  65 6e 64 61 72 0d 05 32  0c 74 69 6d 65 24 3d 91  |endar..2.time$=.|
00000ba0  24 0d 05 3c 11 74 68 69  73 5f 6d 6f 6e 74 68 25  |$..<.this_month%|
00000bb0  3d 30 0d 05 46 05 f5 0d  05 50 12 74 68 69 73 5f  |=0..F....P.this_|
00000bc0  6d 6f 6e 74 68 25 2b 3d  31 0d 05 5a 3b fd 74 68  |month%+=1..Z;.th|
00000bd0  69 73 5f 6d 6f 6e 74 68  25 3d 31 33 20 84 20 c1  |is_month%=13 . .|
00000be0  74 69 6d 65 24 2c 38 2c  33 29 20 3d 20 c0 6d 6f  |time$,8,3) = .mo|
00000bf0  6e 74 68 24 28 74 68 69  73 5f 6d 6f 6e 74 68 25  |nth$(this_month%|
00000c00  29 2c 33 29 0d 05 64 2f  e7 20 74 68 69 73 5f 6d  |),3)..d/. this_m|
00000c10  6f 6e 74 68 25 3d 31 33  20 85 20 31 2c 22 4d 6f  |onth%=13 . 1,"Mo|
00000c20  6e 74 68 20 6e 6f 74 20  72 65 63 6f 67 6e 69 73  |nth not recognis|
00000c30  65 64 22 0d 05 6e 19 74  6f 64 61 79 25 3d a0 28  |ed"..n.today%=.(|
00000c40  c1 74 69 6d 65 24 2c 35  2c 32 29 29 0d 05 78 1e  |.time$,5,2))..x.|
00000c50  74 68 69 73 5f 79 65 61  72 25 3d a0 28 c1 74 69  |this_year%=.(.ti|
00000c60  6d 65 24 2c 31 32 2c 34  29 29 0d 05 82 16 6d 6f  |me$,12,4))....mo|
00000c70  6e 74 68 25 3d 74 68 69  73 5f 6d 6f 6e 74 68 25  |nth%=this_month%|
00000c80  0d 05 8c 14 79 65 61 72  25 3d 74 68 69 73 5f 79  |....year%=this_y|
00000c90  65 61 72 25 0d 05 96 05  e1 0d 05 a0 05 3a 0d 05  |ear%.........:..|
00000ca0  aa 1e dd f2 64 72 61 77  28 78 30 25 2c 79 30 25  |....draw(x0%,y0%|
00000cb0  2c 6d 6f 6e 25 2c 79 65  61 72 25 29 0d 05 b4 32  |,mon%,year%)...2|
00000cc0  6e 6f 77 25 3d 28 28 6d  6f 6e 25 3d 74 68 69 73  |now%=((mon%=this|
00000cd0  5f 6d 6f 6e 74 68 25 29  20 80 20 28 79 65 61 72  |_month%) . (year|
00000ce0  25 3d 74 68 69 73 5f 79  65 61 72 25 29 29 0d 05  |%=this_year%))..|
00000cf0  be 23 6d 61 73 6b 25 3d  31 3c 3c 32 32 3a 6e 6f  |.#mask%=1<<22:no|
00000d00  74 6d 61 73 6b 25 3d 6d  61 73 6b 25 20 82 20 2d  |tmask%=mask% . -|
00000d10  31 0d 05 c8 5f e7 20 6e  6f 77 25 20 21 28 64 61  |1..._. now% !(da|
00000d20  74 65 6d 65 6e 75 25 2b  36 30 29 3d 21 28 64 61  |temenu%+60)=!(da|
00000d30  74 65 6d 65 6e 75 25 2b  36 30 29 20 84 20 6d 61  |temenu%+60) . ma|
00000d40  73 6b 25 20 8b 20 21 28  64 61 74 65 6d 65 6e 75  |sk% . !(datemenu|
00000d50  25 2b 36 30 29 3d 21 28  64 61 74 65 6d 65 6e 75  |%+60)=!(datemenu|
00000d60  25 2b 36 30 29 20 80 20  6e 6f 74 6d 61 73 6b 25  |%+60) . notmask%|
00000d70  0d 05 d2 19 c8 99 20 22  57 69 6d 70 5f 53 65 74  |...... "Wimp_Set|
00000d80  43 6f 6c 6f 75 72 22 2c  37 0d 05 dc 16 e7 20 62  |Colour",7..... b|
00000d90  25 21 31 36 2d 62 25 21  34 30 3c 36 30 20 8c 0d  |%!16-b%!40<60 ..|
00000da0  05 e6 31 ec 20 78 30 25  2b 28 77 69 64 74 68 25  |..1. x0%+(width%|
00000db0  2d a9 28 6d 6f 6e 74 68  24 28 6d 6f 6e 25 29 29  |-.(month$(mon%))|
00000dc0  2a 31 36 2d 38 30 29 2f  32 2c 79 30 25 2d 32 30  |*16-80)/2,y0%-20|
00000dd0  0d 05 f0 1e f1 20 3b 6d  6f 6e 74 68 24 28 6d 6f  |..... ;month$(mo|
00000de0  6e 25 29 3b 89 28 31 29  3b 79 65 61 72 25 0d 05  |n%);.(1);year%..|
00000df0  fa 05 cd 0d 06 04 29 e7  20 62 25 21 31 36 2d 62  |......). b%!16-b|
00000e00  25 21 33 32 3e 3d 36 30  20 84 20 62 25 21 31 36  |%!32>=60 . b%!16|
00000e10  2d 62 25 21 34 30 3c 31  30 30 20 8c 0d 06 0e 12  |-b%!40<100 .....|
00000e20  ec 20 78 30 25 2b 38 2c  79 30 25 2d 36 30 0d 06  |. x0%+8,y0%-60..|
00000e30  18 22 f1 22 4d 6f 6e 20  54 75 65 20 57 65 64 20  |."."Mon Tue Wed |
00000e40  54 68 75 20 46 72 69 20  53 61 74 20 53 75 6e 22  |Thu Fri Sat Sun"|
00000e50  0d 06 22 05 cd 0d 06 2c  16 e7 20 62 25 21 31 36  |.."....,.. b%!16|
00000e60  2d 62 25 21 33 32 3e 39  38 20 8c 0d 06 36 16 6c  |-b%!32>98 ...6.l|
00000e70  65 6e 67 74 68 25 3d 6c  65 6e 25 28 6d 6f 6e 25  |ength%=len%(mon%|
00000e80  29 0d 06 40 39 73 74 61  72 74 25 3d 79 65 61 72  |)..@9start%=year|
00000e90  25 2d 31 39 30 30 2b 28  28 79 65 61 72 25 2d 31  |%-1900+((year%-1|
00000ea0  39 30 30 29 20 81 20 34  29 2b 73 74 61 72 74 5f  |900) . 4)+start_|
00000eb0  64 61 79 25 28 6d 6f 6e  25 29 0d 06 4a 29 e7 28  |day%(mon%)..J).(|
00000ec0  28 79 65 61 72 25 2d 31  39 30 30 29 20 83 20 34  |(year%-1900) . 4|
00000ed0  29 3d 30 20 80 20 79 65  61 72 25 3c 3e 31 39 30  |)=0 . year%<>190|
00000ee0  30 20 8c 0d 06 54 16 e7  20 6d 6f 6e 25 3c 33 20  |0 ...T.. mon%<3 |
00000ef0  73 74 61 72 74 25 2d 3d  31 0d 06 5e 17 e7 20 6d  |start%-=1..^.. m|
00000f00  6f 6e 25 3d 32 20 6c 65  6e 67 74 68 25 2b 3d 31  |on%=2 length%+=1|
00000f10  0d 06 68 05 cd 0d 06 72  15 73 74 61 72 74 25 3d  |..h....r.start%=|
00000f20  73 74 61 72 74 25 20 83  20 37 0d 06 7c 16 e3 20  |start% . 7..|.. |
00000f30  64 61 79 25 3d 31 20 b8  20 6c 65 6e 67 74 68 25  |day%=1 . length%|
00000f40  0d 06 86 45 ec 28 28 64  61 79 25 2d 31 2b 73 74  |...E.((day%-1+st|
00000f50  61 72 74 25 29 20 83 20  37 29 2a 36 34 2b 31 36  |art%) . 7)*64+16|
00000f60  2b 78 30 25 2c 79 30 25  2d 31 30 30 2d 28 28 64  |+x0%,y0%-100-((d|
00000f70  61 79 25 2d 31 2b 73 74  61 72 74 25 29 20 81 20  |ay%-1+start%) . |
00000f80  37 29 2a 34 30 0d 06 90  15 e7 20 64 61 79 25 3c  |7)*40..... day%<|
00000f90  31 30 20 f1 20 89 28 31  29 3b 0d 06 9a 47 e7 20  |10 . .(1);...G. |
00000fa0  6e 6f 77 25 20 80 20 64  61 79 25 3d 74 6f 64 61  |now% . day%=toda|
00000fb0  79 25 20 8c 20 c8 99 22  57 69 6d 70 5f 53 65 74  |y% . .."Wimp_Set|
00000fc0  43 6f 6c 6f 75 72 22 2c  38 20 8b 20 c8 99 22 57  |Colour",8 . .."W|
00000fd0  69 6d 70 5f 53 65 74 43  6f 6c 6f 75 72 22 2c 31  |imp_SetColour",1|
00000fe0  31 0d 06 a4 0b f1 3b 64  61 79 25 3b 0d 06 ae 05  |1.....;day%;....|
00000ff0  ed 0d 06 b8 05 cd 0d 06  c2 05 e1 0d 06 cc 05 3a  |...............:|
00001000  0d 06 d6 0e dd f2 70 72  65 76 69 6f 75 73 0d 06  |......previous..|
00001010  e0 34 e7 20 6d 6f 6e 74  68 25 3d 31 20 80 20 79  |.4. month%=1 . y|
00001020  65 61 72 25 3d 31 39 30  30 20 85 20 31 2c 22 59  |ear%=1900 . 1,"Y|
00001030  65 61 72 20 6f 75 74 20  6f 66 20 6c 69 6d 69 74  |ear out of limit|
00001040  73 22 0d 06 ea 0d 6d 6f  6e 74 68 25 2d 3d 31 0d  |s"....month%-=1.|
00001050  06 f4 21 e7 20 6d 6f 6e  74 68 25 3c 31 20 6d 6f  |..!. month%<1 mo|
00001060  6e 74 68 25 3d 31 32 3a  79 65 61 72 25 2d 3d 31  |nth%=12:year%-=1|
00001070  0d 06 fe 0b f2 75 70 64  61 74 65 0d 07 08 05 e1  |.....update.....|
00001080  0d 07 12 05 3a 0d 07 1c  0a dd f2 6e 65 78 74 0d  |....:......next.|
00001090  07 26 35 e7 20 6d 6f 6e  74 68 25 3d 31 32 20 80  |.&5. month%=12 .|
000010a0  20 79 65 61 72 25 3d 32  30 39 39 20 85 20 31 2c  | year%=2099 . 1,|
000010b0  22 59 65 61 72 20 6f 75  74 20 6f 66 20 6c 69 6d  |"Year out of lim|
000010c0  69 74 73 22 0d 07 30 0d  6d 6f 6e 74 68 25 2b 3d  |its"..0.month%+=|
000010d0  31 0d 07 3a 21 e7 20 6d  6f 6e 74 68 25 3e 31 32  |1..:!. month%>12|
000010e0  20 6d 6f 6e 74 68 25 3d  31 3a 79 65 61 72 25 2b  | month%=1:year%+|
000010f0  3d 31 0d 07 44 0b f2 75  70 64 61 74 65 0d 07 4e  |=1..D..update..N|
00001100  05 e1 0d 07 58 05 3a 0d  07 62 0c dd f2 75 70 64  |....X.:..b...upd|
00001110  61 74 65 0d 07 6c 29 c8  99 20 22 57 69 6d 70 5f  |ate..l).. "Wimp_|
00001120  46 6f 72 63 65 52 65 64  72 61 77 22 2c 77 25 2c  |ForceRedraw",w%,|
00001130  37 30 2c 2d 35 32 2c 33  37 38 2c 30 0d 07 76 32  |70,-52,378,0..v2|
00001140  c8 99 20 22 57 69 6d 70  5f 46 6f 72 63 65 52 65  |.. "Wimp_ForceRe|
00001150  64 72 61 77 22 2c 77 25  2c 30 2c 2d 68 65 69 67  |draw",w%,0,-heig|
00001160  68 74 25 2c 77 69 64 74  68 25 2c 2d 35 32 0d 07  |ht%,width%,-52..|
00001170  80 05 e1 0d 07 8a 05 3a  0d 07 94 0e dd f2 6d 61  |.......:......ma|
00001180  69 6e 6d 65 6e 75 0d 07  9e 08 ea 20 6d 25 0d 07  |inmenu..... m%..|
00001190  a8 10 6d 25 3d 6d 61 69  6e 6d 65 6e 75 25 0d 07  |..m%=mainmenu%..|
000011a0  b2 4c 24 6d 25 3d 22 43  61 6c 65 6e 64 61 72 22  |.L$m%="Calendar"|
000011b0  3a 6d 25 3f 31 32 3d 37  3a 6d 25 3f 31 33 3d 32  |:m%?12=7:m%?13=2|
000011c0  3a 6d 25 3f 31 34 3d 37  3a 6d 25 3f 31 35 3d 30  |:m%?14=7:m%?15=0|
000011d0  3a 6d 25 21 31 36 3d 39  32 3a 6d 25 21 32 30 3d  |:m%!16=92:m%!20=|
000011e0  34 34 3a 6d 25 21 32 34  3d 30 0d 07 bc 37 6d 25  |44:m%!24=0...7m%|
000011f0  21 32 38 3d 30 3a 6d 25  21 33 32 3d 69 6e 66 6f  |!28=0:m%!32=info|
00001200  25 3a 6d 25 21 33 36 3d  26 30 37 30 30 30 30 32  |%:m%!36=&0700002|
00001210  31 3a 24 28 6d 25 2b 34  30 29 3d 22 49 6e 66 6f  |1:$(m%+40)="Info|
00001220  22 0d 07 c6 36 6d 25 21  35 32 3d 26 38 30 3a 6d  |"...6m%!52=&80:m|
00001230  25 21 35 36 3d 2d 31 3a  6d 25 21 36 30 3d 26 30  |%!56=-1:m%!60=&0|
00001240  37 30 30 30 30 32 31 3a  24 28 6d 25 2b 36 34 29  |7000021:$(m%+64)|
00001250  3d 22 51 75 69 74 22 0d  07 d0 05 e1 0d 07 da 05  |="Quit".........|
00001260  3a 0d 07 e4 0f dd f2 69  6e 70 75 74 6d 65 6e 75  |:......inputmenu|
00001270  0d 07 ee 08 ea 20 6d 25  0d 07 f8 11 6d 25 3d 69  |..... m%....m%=i|
00001280  6e 70 75 74 6d 65 6e 75  25 0d 08 02 49 24 6d 25  |nputmenu%...I$m%|
00001290  3d 22 44 61 74 65 22 3a  6d 25 3f 31 32 3d 37 3a  |="Date":m%?12=7:|
000012a0  6d 25 3f 31 33 3d 32 3a  6d 25 3f 31 34 3d 37 3a  |m%?13=2:m%?14=7:|
000012b0  6d 25 3f 31 35 3d 30 3a  6d 25 21 31 36 3d 31 37  |m%?15=0:m%!16=17|
000012c0  32 3a 6d 25 21 32 30 3d  34 34 3a 6d 25 21 32 34  |2:m%!20=44:m%!24|
000012d0  3d 30 0d 08 0c 43 6d 25  21 32 38 3d 26 38 34 3a  |=0...Cm%!28=&84:|
000012e0  6d 25 21 33 32 3d 2d 31  3a 6d 25 21 33 36 3d 26  |m%!32=-1:m%!36=&|
000012f0  30 37 30 30 46 31 32 31  3a 6d 25 21 34 30 3d 69  |0700F121:m%!40=i|
00001300  6e 64 25 3a 6d 25 21 34  34 3d 2d 31 3a 6d 25 21  |nd%:m%!44=-1:m%!|
00001310  34 38 3d 31 39 0d 08 16  05 e1 0d 08 20 05 3a 0d  |48=19....... .:.|
00001320  08 2a 0e dd f2 64 61 74  65 6d 65 6e 75 0d 08 34  |.*...datemenu..4|
00001330  08 ea 20 6d 25 0d 08 3e  10 6d 25 3d 64 61 74 65  |.. m%..>.m%=date|
00001340  6d 65 6e 75 25 0d 08 48  4d 24 6d 25 3d 22 43 61  |menu%..HM$m%="Ca|
00001350  6c 65 6e 64 61 72 22 3a  6d 25 3f 31 32 3d 37 3a  |lendar":m%?12=7:|
00001360  6d 25 3f 31 33 3d 32 3a  6d 25 3f 31 34 3d 37 3a  |m%?13=2:m%?14=7:|
00001370  6d 25 3f 31 35 3d 30 3a  6d 25 21 31 36 3d 31 37  |m%?15=0:m%!16=17|
00001380  32 3a 6d 25 21 32 30 3d  34 34 3a 6d 25 21 32 34  |2:m%!20=44:m%!24|
00001390  3d 30 0d 08 52 41 6d 25  21 32 38 3d 30 3a 6d 25  |=0..RAm%!28=0:m%|
000013a0  21 33 32 3d 69 6e 70 75  74 6d 65 6e 75 25 3a 6d  |!32=inputmenu%:m|
000013b0  25 21 33 36 3d 26 30 37  30 30 30 30 32 31 3a 24  |%!36=&07000021:$|
000013c0  28 6d 25 2b 34 30 29 3d  22 6e 65 77 20 6d 6f 6e  |(m%+40)="new mon|
000013d0  74 68 22 0d 08 5c 3c 6d  25 21 35 32 3d 26 38 30  |th"..\<m%!52=&80|
000013e0  3a 6d 25 21 35 36 3d 2d  31 3a 6d 25 21 36 30 3d  |:m%!56=-1:m%!60=|
000013f0  26 30 37 30 30 30 30 32  31 3a 24 28 6d 25 2b 36  |&07000021:$(m%+6|
00001400  34 29 3d 22 74 68 69 73  20 6d 6f 6e 74 68 22 0d  |4)="this month".|
00001410  08 66 05 e1 0d 08 70 05  3a 0d 08 7a 13 dd f2 6e  |.f....p.:..z...n|
00001420  65 77 5f 6d 6f 6e 74 68  28 61 24 29 0d 08 84 1c  |ew_month(a$)....|
00001430  6d 6f 6e 74 68 25 3d a4  64 65 63 6f 64 65 5f 6d  |month%=.decode_m|
00001440  6f 6e 74 68 28 61 24 29  0d 08 8e 1a 79 65 61 72  |onth(a$)....year|
00001450  25 3d a4 64 65 63 6f 64  65 5f 79 65 61 72 28 61  |%=.decode_year(a|
00001460  24 29 0d 08 98 0b f2 75  70 64 61 74 65 0d 08 a2  |$).....update...|
00001470  05 e1 0d 08 ac 05 3a 0d  08 b6 16 dd a4 64 65 63  |......:......dec|
00001480  6f 64 65 5f 6d 6f 6e 74  68 28 61 24 29 0d 08 c0  |ode_month(a$)...|
00001490  3f e7 20 97 28 c0 61 24  2c 31 29 29 3e 26 34 30  |?. .(.a$,1))>&40|
000014a0  20 3d a4 64 65 63 6f 64  65 5f 6c 65 74 74 65 72  | =.decode_letter|
000014b0  73 28 61 24 29 20 8b 20  3d a4 64 65 63 6f 64 65  |s(a$) . =.decode|
000014c0  5f 6e 75 6d 62 65 72 73  28 61 24 29 0d 08 ca 05  |_numbers(a$)....|
000014d0  3a 0d 08 d4 18 dd a4 64  65 63 6f 64 65 5f 6c 65  |:......decode_le|
000014e0  74 74 65 72 73 28 61 24  29 0d 08 de 0d ea 20 6d  |tters(a$)..... m|
000014f0  6f 6e 25 2c 62 24 0d 08  e8 3f 62 24 3d bd 28 97  |on%,b$...?b$=.(.|
00001500  28 c0 61 24 2c 31 29 29  20 80 20 26 44 46 29 2b  |(.a$,1)) . &DF)+|
00001510  bd 28 97 28 c1 61 24 2c  32 29 29 20 84 20 26 32  |.(.(.a$,2)) . &2|
00001520  30 29 2b bd 28 97 28 c1  61 24 2c 33 29 29 20 84  |0)+.(.(.a$,3)) .|
00001530  20 26 32 30 29 0d 08 f2  0a 6d 6f 6e 25 3d 30 0d  | &20)....mon%=0.|
00001540  08 fc 05 f5 0d 09 06 0b  6d 6f 6e 25 2b 3d 31 0d  |........mon%+=1.|
00001550  09 10 22 fd 6d 6f 6e 25  3d 31 33 20 84 20 62 24  |..".mon%=13 . b$|
00001560  3d c0 6d 6f 6e 74 68 24  28 6d 6f 6e 25 29 2c 33  |=.month$(mon%),3|
00001570  29 0d 09 1a 28 e7 20 6d  6f 6e 25 3d 31 33 20 85  |)...(. mon%=13 .|
00001580  20 31 2c 22 4d 6f 6e 74  68 20 6e 6f 74 20 72 65  | 1,"Month not re|
00001590  63 6f 67 6e 69 73 65 64  22 0d 09 24 09 3d 6d 6f  |cognised"..$.=mo|
000015a0  6e 25 0d 09 2e 05 3a 0d  09 38 18 dd a4 64 65 63  |n%....:..8...dec|
000015b0  6f 64 65 5f 6e 75 6d 62  65 72 73 28 61 24 29 0d  |ode_numbers(a$).|
000015c0  09 42 0a ea 20 6d 6f 6e  25 0d 09 4c 12 6d 6f 6e  |.B.. mon%..L.mon|
000015d0  25 3d a0 28 c0 61 24 2c  32 29 29 0d 09 56 34 e7  |%=.(.a$,2))..V4.|
000015e0  20 6d 6f 6e 25 3c 31 20  84 20 6d 6f 6e 25 3e 31  | mon%<1 . mon%>1|
000015f0  32 20 85 20 31 2c 22 4d  6f 6e 74 68 20 6e 6f 74  |2 . 1,"Month not|
00001600  20 76 61 6c 69 64 22 3a  6d 6f 6e 25 3d 31 33 0d  | valid":mon%=13.|
00001610  09 60 09 3d 6d 6f 6e 25  0d 09 6a 05 3a 0d 09 74  |.`.=mon%..j.:..t|
00001620  15 dd a4 64 65 63 6f 64  65 5f 79 65 61 72 28 61  |...decode_year(a|
00001630  24 29 0d 09 7e 0e ea 20  62 24 2c 6e 25 2c 79 25  |$)..~.. b$,n%,y%|
00001640  0d 09 88 09 62 24 3d 22  22 0d 09 92 09 6e 25 3d  |....b$=""....n%=|
00001650  2d 31 0d 09 9c 05 f5 0d  09 a6 09 6e 25 2b 3d 31  |-1.........n%+=1|
00001660  0d 09 b0 30 fd 97 28 c1  61 24 2c a9 61 24 2d 6e  |...0..(.a$,.a$-n|
00001670  25 2c 31 29 29 3c 26 33  30 20 84 20 97 28 c1 61  |%,1))<&30 . .(.a|
00001680  24 2c a9 61 24 2d 6e 25  2c 31 29 29 3e 26 33 39  |$,.a$-n%,1))>&39|
00001690  0d 09 ba 0e 62 24 3d c2  61 24 2c 6e 25 29 0d 09  |....b$=.a$,n%)..|
000016a0  c4 25 e7 20 a9 62 24 3c  31 20 85 20 31 2c 22 59  |.%. .b$<1 . 1,"Y|
000016b0  65 61 72 20 6e 6f 74 20  72 65 63 6f 67 6e 69 73  |ear not recognis|
000016c0  65 64 22 0d 09 ce 0c 79  25 3d a0 28 62 24 29 0d  |ed"....y%=.(b$).|
000016d0  09 d8 29 e7 20 79 25 3c  31 30 30 20 79 25 3d 79  |..). y%<100 y%=y|
000016e0  25 2b 28 74 68 69 73 5f  79 65 61 72 25 20 81 20  |%+(this_year% . |
000016f0  31 30 30 29 2a 31 30 30  0d 09 e2 2e e7 79 25 3c  |100)*100.....y%<|
00001700  31 39 30 30 20 84 20 79  25 3e 32 30 39 39 20 85  |1900 . y%>2099 .|
00001710  20 31 2c 22 59 65 61 72  20 6f 75 74 20 6f 66 20  | 1,"Year out of |
00001720  72 61 6e 67 65 22 0d 09  ec 07 3d 79 25 0d 09 f6  |range"....=y%...|
00001730  05 3a 0d 0a 00 10 dd f2  74 68 69 73 5f 6d 6f 6e  |.:......this_mon|
00001740  74 68 0d 0a 0a 16 6d 6f  6e 74 68 25 3d 74 68 69  |th....month%=thi|
00001750  73 5f 6d 6f 6e 74 68 25  0d 0a 14 14 79 65 61 72  |s_month%....year|
00001760  25 3d 74 68 69 73 5f 79  65 61 72 25 0d 0a 1e 0b  |%=this_year%....|
00001770  f2 75 70 64 61 74 65 0d  0a 28 05 e1 0d 0a 32 05  |.update..(....2.|
00001780  3a 0d 0a 3c 11 dd f2 63  72 65 61 74 65 5f 69 6e  |:..<...create_in|
00001790  66 6f 0d 0a 46 79 62 25  21 30 3d 38 34 3a 62 25  |fo..Fyb%!0=84:b%|
000017a0  21 34 3d 36 35 32 3a 62  25 21 38 3d 37 32 32 3a  |!4=652:b%!8=722:|
000017b0  62 25 21 31 32 3d 38 36  34 3a 62 25 21 32 34 3d  |b%!12=864:b%!24=|
000017c0  2d 31 3a 62 25 21 32 38  3d 26 38 34 30 30 30 30  |-1:b%!28=&840000|
000017d0  31 30 3a 62 25 3f 33 32  3d 37 3a 62 25 3f 33 33  |10:b%?32=7:b%?33|
000017e0  3d 32 3a 62 25 3f 33 34  3d 37 3a 62 25 3f 33 35  |=2:b%?34=7:b%?35|
000017f0  3d 31 3a 62 25 3f 33 36  3d 33 3a 62 25 3f 33 37  |=1:b%?36=3:b%?37|
00001800  3d 31 3a 62 25 3f 33 38  3d 31 32 0d 0a 50 75 62  |=1:b%?38=12..Pub|
00001810  25 21 34 30 3d 30 3a 62  25 21 34 34 3d 2d 32 31  |%!40=0:b%!44=-21|
00001820  32 3a 62 25 21 34 38 3d  36 33 38 3a 62 25 21 35  |2:b%!48=638:b%!5|
00001830  32 3d 30 3a 62 25 21 35  36 3d 26 31 33 44 3a 62  |2=0:b%!56=&13D:b|
00001840  25 21 36 30 3d 33 3c 3c  31 32 3a 62 25 21 36 34  |%!60=3<<12:b%!64|
00001850  3d 30 3a 62 25 21 36 38  3d 30 3a 62 25 21 37 32  |=0:b%!68=0:b%!72|
00001860  3d a4 69 6e 64 69 72 65  63 74 28 22 41 62 6f 75  |=.indirect("Abou|
00001870  74 20 74 68 69 73 20 70  72 6f 67 72 61 6d 22 29  |t this program")|
00001880  0d 0a 5a 7d 62 25 21 37  36 3d 2d 31 3a 62 25 21  |..Z}b%!76=-1:b%!|
00001890  38 30 3d 32 30 3a 62 25  21 38 34 3d 38 3a 62 25  |80=20:b%!84=8:b%|
000018a0  21 38 38 3d 31 34 3a 62  25 21 39 32 3d 2d 34 38  |!88=14:b%!92=-48|
000018b0  3a 62 25 21 39 36 3d 31  35 34 3a 62 25 21 31 30  |:b%!96=154:b%!10|
000018c0  30 3d 2d 38 3a 62 25 21  31 30 34 3d 26 31 37 30  |0=-8:b%!104=&170|
000018d0  30 30 32 31 31 3a 24 28  62 25 2b 31 30 38 29 3d  |00211:$(b%+108)=|
000018e0  22 4e 61 6d 65 3a 22 3a  62 25 21 31 32 30 3d 31  |"Name:":b%!120=1|
000018f0  34 3a 62 25 21 31 32 34  3d 2d 31 30 30 0d 0a 64  |4:b%!124=-100..d|
00001900  e4 62 25 21 31 32 38 3d  31 35 34 3a 62 25 21 31  |.b%!128=154:b%!1|
00001910  33 32 3d 2d 36 30 3a 62  25 21 31 33 36 3d 26 31  |32=-60:b%!136=&1|
00001920  37 30 30 30 32 31 31 3a  24 28 62 25 2b 31 34 30  |7000211:$(b%+140|
00001930  29 3d 22 50 75 72 70 6f  73 65 3a 22 3a 62 25 21  |)="Purpose:":b%!|
00001940  31 35 32 3d 31 34 3a 62  25 21 31 35 36 3d 2d 31  |152=14:b%!156=-1|
00001950  35 32 3a 62 25 21 31 36  30 3d 31 35 34 3a 62 25  |52:b%!160=154:b%|
00001960  21 31 36 34 3d 2d 31 31  32 3a 62 25 21 31 36 38  |!164=-112:b%!168|
00001970  3d 26 31 37 30 30 30 32  31 31 3a 24 28 62 25 2b  |=&17000211:$(b%+|
00001980  31 37 32 29 3d 22 41 75  74 68 6f 72 3a 22 3a 62  |172)="Author:":b|
00001990  25 21 31 38 34 3d 31 34  3a 62 25 21 31 38 38 3d  |%!184=14:b%!188=|
000019a0  2d 32 30 30 3a 62 25 21  31 39 32 3d 31 35 34 3a  |-200:b%!192=154:|
000019b0  62 25 21 31 39 36 3d 2d  31 36 30 3a 62 25 21 32  |b%!196=-160:b%!2|
000019c0  30 30 3d 26 31 37 30 30  30 32 31 31 3a 24 28 62  |00=&17000211:$(b|
000019d0  25 2b 32 30 34 29 3d 22  56 65 72 73 69 6f 6e 3a  |%+204)="Version:|
000019e0  22 0d 0a 6e d7 62 25 21  32 31 36 3d 31 35 34 3a  |"..n.b%!216=154:|
000019f0  62 25 21 32 32 30 3d 2d  35 32 3a 62 25 21 32 32  |b%!220=-52:b%!22|
00001a00  34 3d 36 33 30 3a 62 25  21 32 32 38 3d 2d 34 3a  |4=630:b%!228=-4:|
00001a10  62 25 21 32 33 32 3d 26  30 37 30 30 36 30 33 44  |b%!232=&0700603D|
00001a20  3a 24 28 62 25 2b 32 33  36 29 3d 22 43 61 6c 65  |:$(b%+236)="Cale|
00001a30  6e 64 61 72 22 3a 62 25  21 32 34 38 3d 31 35 34  |ndar":b%!248=154|
00001a40  3a 3a 62 25 21 32 35 32  3d 2d 31 30 34 3a 62 25  |::b%!252=-104:b%|
00001a50  21 32 35 36 3d 36 33 30  3a 62 25 21 32 36 30 3d  |!256=630:b%!260=|
00001a60  2d 35 36 3a 62 25 21 32  36 34 3d 26 30 37 30 30  |-56:b%!264=&0700|
00001a70  36 31 33 44 3a 62 25 21  32 36 38 3d a4 69 6e 64  |613D:b%!268=.ind|
00001a80  69 72 65 63 74 28 22 4d  6f 6e 74 68 20 74 6f 20  |irect("Month to |
00001a90  61 20 76 69 65 77 20 31  39 30 30 20 2d 20 32 30  |a view 1900 - 20|
00001aa0  39 39 22 29 3a 62 25 21  32 37 32 3d 2d 31 3a 62  |99"):b%!272=-1:b|
00001ab0  25 21 32 37 36 3d 32 30  0d 0a 78 59 62 25 21 32  |%!276=20..xYb%!2|
00001ac0  38 30 3d 31 35 34 3a 62  25 21 32 38 34 3d 2d 31  |80=154:b%!284=-1|
00001ad0  35 36 3a 62 25 21 32 38  38 3d 36 33 30 3a 62 25  |56:b%!288=630:b%|
00001ae0  21 32 39 32 3d 2d 31 30  38 3a 62 25 21 32 39 36  |!292=-108:b%!296|
00001af0  3d 26 30 37 30 30 36 30  33 44 3a 24 28 62 25 2b  |=&0700603D:$(b%+|
00001b00  33 30 30 29 3d 22 4d 61  72 74 79 6e 20 46 6f 78  |300)="Martyn Fox|
00001b10  22 0d 0a 82 71 62 25 21  33 31 32 3d 31 35 34 3a  |"...qb%!312=154:|
00001b20  62 25 21 33 31 36 3d 2d  32 30 38 3a 62 25 21 33  |b%!316=-208:b%!3|
00001b30  32 30 3d 36 33 30 3a 62  25 21 33 32 34 3d 2d 31  |20=630:b%!324=-1|
00001b40  36 30 3a 62 25 21 33 32  38 3d 26 30 37 30 30 36  |60:b%!328=&07006|
00001b50  31 33 44 3a 62 25 21 33  33 32 3d a4 69 6e 64 69  |13D:b%!332=.indi|
00001b60  72 65 63 74 28 76 65 72  73 69 6f 6e 24 29 3a 62  |rect(version$):b|
00001b70  25 21 33 33 36 3d 2d 31  3a 62 25 21 33 34 30 3d  |%!336=-1:b%!340=|
00001b80  32 30 0d 0a 8c 24 c8 99  20 22 57 69 6d 70 5f 43  |20...$.. "Wimp_C|
00001b90  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 62 25  |reateWindow",,b%|
00001ba0  b8 69 6e 66 6f 25 0d 0a  96 05 e1 0d 0a a0 05 3a  |.info%.........:|
00001bb0  0d 0a aa 0d dd f2 6d 65  73 73 61 67 65 0d 0a b4  |......message...|
00001bc0  0e c8 8e 20 62 25 21 31  36 20 ca 0d 0a be 0f c9  |... b%!16 ......|
00001bd0  20 30 3a 71 75 69 74 25  3d b9 0d 0a c8 10 c9 20  | 0:quit%=...... |
00001be0  26 35 30 32 3a f2 68 65  6c 70 0d 0a d2 05 cb 0d  |&502:.help......|
00001bf0  0a dc 05 e1 0d 0a e6 05  3a 0d 0a f0 0a dd f2 68  |........:......h|
00001c00  65 6c 70 0d 0a fa 08 ea  20 61 24 0d 0b 04 0e c8  |elp..... a$.....|
00001c10  8e 20 62 25 21 33 32 20  ca 0d 0b 0e 4a c9 20 2d  |. b%!32 ....J. -|
00001c20  32 3a 61 24 3d 22 54 68  69 73 20 69 73 20 74 68  |2:a$="This is th|
00001c30  65 20 43 61 6c 65 6e 64  61 72 20 69 63 6f 6e 2e  |e Calendar icon.|
00001c40  7c 4d 43 6c 69 63 6b 20  53 65 6c 65 63 74 20 74  ||MClick Select t|
00001c50  6f 20 73 68 6f 77 20 74  68 69 73 20 6d 6f 6e 74  |o show this mont|
00001c60  68 2e 22 0d 0b 18 13 c9  20 77 25 3a c8 8e 20 62  |h."..... w%:.. b|
00001c70  25 21 33 36 20 ca 0d 0b  22 50 c9 20 30 3a 61 24  |%!36 ..."P. 0:a$|
00001c80  3d 22 43 6c 69 63 6b 20  53 65 6c 65 63 74 20 66  |="Click Select f|
00001c90  6f 72 20 70 72 65 76 69  6f 75 73 20 6d 6f 6e 74  |or previous mont|
00001ca0  68 7c 4d 43 6c 69 63 6b  20 41 64 6a 75 73 74 20  |h|MClick Adjust |
00001cb0  66 6f 72 20 66 6f 6c 6c  6f 77 69 6e 67 20 6d 6f  |for following mo|
00001cc0  6e 74 68 7c 4d 22 0d 0b  2c 50 c9 20 31 3a 61 24  |nth|M"..,P. 1:a$|
00001cd0  3d 22 43 6c 69 63 6b 20  53 65 6c 65 63 74 20 66  |="Click Select f|
00001ce0  6f 72 20 66 6f 6c 6c 6f  77 69 6e 67 20 6d 6f 6e  |or following mon|
00001cf0  74 68 7c 4d 43 6c 69 63  6b 20 41 64 6a 75 73 74  |th|MClick Adjust|
00001d00  20 66 6f 72 20 70 72 65  76 69 6f 75 73 20 6d 6f  | for previous mo|
00001d10  6e 74 68 7c 4d 22 0d 0b  36 3a 7f 20 61 24 3d 22  |nth|M"..6:. a$="|
00001d20  55 73 65 20 61 72 72 6f  77 20 69 63 6f 6e 73 20  |Use arrow icons |
00001d30  74 6f 20 73 74 65 70 20  66 6f 72 77 61 72 64 73  |to step forwards|
00001d40  20 6f 72 20 62 61 63 6b  77 61 72 64 73 7c 4d 22  | or backwards|M"|
00001d50  0d 0b 40 05 cb 0d 0b 4a  34 61 24 3d 61 24 2b 22  |..@....J4a$=a$+"|
00001d60  43 6c 69 63 6b 20 4d 65  6e 75 20 74 6f 20 65 6e  |Click Menu to en|
00001d70  74 65 72 20 61 20 6e 65  77 20 6d 6f 6e 74 68 20  |ter a new month |
00001d80  61 6e 64 20 79 65 61 72  22 0d 0b 54 05 cb 0d 0b  |and year"..T....|
00001d90  5e 0e e7 20 61 24 3c 3e  22 22 20 8c 0d 0b 68 0e  |^.. a$<>"" ...h.|
00001da0  62 25 21 31 32 3d 62 25  21 38 0d 0b 72 0e 62 25  |b%!12=b%!8..r.b%|
00001db0  21 31 36 3d 26 35 30 33  0d 0b 7c 12 24 28 62 25  |!16=&503..|.$(b%|
00001dc0  2b 32 30 29 3d 61 24 2b  bd 30 0d 0b 86 14 21 62  |+20)=a$+.0....!b|
00001dd0  25 3d 28 32 35 2b a9 61  24 29 20 80 ac 33 0d 0b  |%=(25+.a$) ..3..|
00001de0  90 24 c8 99 20 22 57 69  6d 70 5f 53 65 6e 64 4d  |.$.. "Wimp_SendM|
00001df0  65 73 73 61 67 65 22 2c  31 37 2c 62 25 2c 62 25  |essage",17,b%,b%|
00001e00  21 34 0d 0b 9a 05 cd 0d  0b a4 05 e1 0d ff        |!4............|
00001e0e