� ****************
� Calendar
� By R.A.Dimond
(� (c) October 1994
2� ****************
<�
F��6:�:�" at line ";�:�
P�6
ZD%=6
d�14,1)"CALENDAR"
n�14,2)"~~~~~~~~"
x�12,4)"by R.A.Dimond"
�
�input
�	�init
��:�bank
�
�:�wkends
�	�calc
�'�:�6,10)"Screen or Printer? (S/P)"
��:A%=�"SsPp",�):�A%
��3
��A%<3 �list ��print
��"Another copy? (Y/N)"
��:A%=�"YyNn",�):�A%
��A%<3 �tt@
��

��input

%�10,10);"Which year? "Y%:y%=Y%-1

�weekstart

"4� Y% �4=0 �(Y% �100<>0 � Y% �400=0) lp%=1 �lp%=0

,�sun% b=37 �b=36

6&a=b+y%+(y% �4)-(y% �100)+(y% �400)

@&D%=�((a/7-(a �7))*7+.5):�D%=0 D%=7

J�

T
��init

^%� d%(12,42),m%(12),m$(12),a%(8,1)

h�i%=1�12

r� m$,m%:m$(i%)=m$:m%(i%)=m%

|�

�� January,31,February,28,March,31,April,30,May,31,June,30,July,31,August,31,September,30,October,31,November,30,December,31

��

�
��calc

��lp%=1 m%(2)=29

��a%=1�12

�	p%=D%

��b%=1�m%(a%)

�d%(a%,p%)=b%

�p%=p%+1

�D%=D%+1:�D%>7 D%=1

��:�

��

�
��list
�14:�listing
�
��print
&"�2,1,27,1,54,1,27,1,116,1,1,15
0�listing
:�3:�
D��m(n%)
N6�n%>9 m%=n%-9 ��n%>6 m%=n%-6 ��n%>3 m%=n%-3 �m%=n%
X"�(23*(m%-1))+(12-�m$(n%)/2));
b+�1,27,1,45,1,1:�;m$(n%);:�1,27,1,45,1,0
l�
vQ��lm(n%):�186;:�m(n%):�23);�179;:�m(n%+1):�46);�179;:�m(n%+2):�69);�186:�
���d
�B�sun% d$=" Su Mo Tu We Th Fr Sa " �d$=" Mo Tu We Th Fr Sa Su "
�#�186;d$;�179;d$;�179;d$;�186:�
�<��l:�199;�22,�196);�197;�22,�196);�197;�22,�196);�182:�
���line(a%,b%,n%)
�U�186;�2);:o%=n%:�c%=a%�b%:�d%(o%,c%)=0 �;"   "; ��d%(o%,c%)>0 t$=�(d%(o%,c%)):�p
��:�179;
�R�" ";:o%=n%+1:�c%=a%�b%:�d%(o%,c%)=0 �;"   "; ��d%(o%,c%)>0 t$=�(d%(o%,c%)):�p
��:�179;
�R�" ";:o%=n%+2:�c%=a%�b%:�d%(o%,c%)=0 �;"   "; ��d%(o%,c%)>0 t$=�(d%(o%,c%)):�p
��:�186
��
�
��heading
!�1,27,1,119,1,1,1,27,1,87,1,1
�12);�201;�8,�205);�187'
.�1);Y%;�12);�186;"CALENDAR";�186;�30);Y%'
 �12);�200;�8,�205);�188
*!�1,27,1,119,1,0,1,27,1,87,1,0
4�
>
��listing
H�heading
R6�201;�22,�205);�209;�22,�205);�209;�22,�205);�187
\
�lm(1)
f�d
p�line(1,7,1)
z�line(8,14,1)
��line(15,21,1)
��line(22,28,1)
��line(29,35,1)
��line(36,42,1)
��l
�
�lm(4)
��d
��line(1,7,4)
��line(8,14,4)
��line(15,21,4)
��line(22,28,4)
��line(29,35,4)
��line(36,42,4)
�l

�lm(7)
�d
$�line(1,7,7)
.�line(8,14,7)
8�line(15,21,7)
B�line(22,28,7)
L�line(29,35,7)
V�line(36,42,7)
`�l
j�lm(10)
t�d
~�line(1,7,10)
��line(8,14,10)
��line(15,21,10)
��line(22,28,10)
��line(29,35,10)
��line(36,42,10)
�6�200;�22,�205);�207;�22,�205);�207;�22,�205);�188
��
���p
�B%=�
��we%=� �empwe
�/�(d%(a%(1,1),c%)=a%(1,0) � o%=a%(1,1)) B%=�
�/�(d%(a%(2,1),c%)=a%(2,0) � o%=a%(2,1)) B%=�
/�(d%(a%(3,1),c%)=a%(3,0) � o%=a%(3,1)) B%=�

/�(d%(a%(4,1),c%)=a%(4,0) � o%=a%(4,1)) B%=�
/�(d%(a%(5,1),c%)=a%(5,0) � o%=a%(5,1)) B%=�
/�(d%(a%(6,1),c%)=a%(6,0) � o%=a%(6,1)) B%=�
(/�(d%(a%(7,1),c%)=a%(7,0) � o%=a%(7,1)) B%=�
2/�(d%(a%(8,1),c%)=a%(8,0) � o%=a%(8,1)) B%=�
<,�B% �e ��t$=1 �;" ";t$;" ";  ��;t$;" ";
F�
P��e 
Z�1,27,1,69
d,�t$=1 �;" ";:�pt:�;" ";  ��;:�pt:�;" ";
n�1,27,1,70
x�
� ��pt:�0:�129:�;t$;:�1:�128:�
�
��bank
�<�''"Do you want to emphasise Bank holidays?";�15)"(Y/N)"
��:A%=�"YyNy",�):�A%
��A%>2 �
��n%=1�8
�.�"Enter Bank Holiday no. ";n%;" Day No. ";
�
�a%(n%,0)
��23)"Month no. ";
�
�a%(n%,1)
��
��
���weekstart
'�6,12);"Do you want week to start"
%�7,13);"Sunday or Monday? (S/M)"
�:a%=�"SsMm",�):�a%
"�a%<3 sun%=� �sun%=�
,�
6��empwe
@�c%=b% B%=�
J�sun% �c%=b%-1 B%=�
T�sun% �c%=a% B%=�
^�
h��wkends
r9�''"Do you want to emphasise Week-ends?";�15);"(Y/N)"
|�:b%=�"YyNn",�):�b%
��b%<3 we%=� �we%=�
��
�

00000000  0d 00 0a 16 f4 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |..... **********|
00000010  2a 2a 2a 2a 2a 2a 0d 00  14 0e f4 20 43 61 6c 65  |******..... Cale|
00000020  6e 64 61 72 0d 00 1e 13  f4 20 42 79 20 52 2e 41  |ndar..... By R.A|
00000030  2e 44 69 6d 6f 6e 64 0d  00 28 16 f4 20 28 63 29  |.Dimond..(.. (c)|
00000040  20 4f 63 74 6f 62 65 72  20 31 39 39 34 0d 00 32  | October 1994..2|
00000050  16 f4 20 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.. *************|
00000060  2a 2a 2a 0d 00 3c 05 f4  0d 00 46 1b ee 85 eb 36  |***..<....F....6|
00000070  3a f6 3a f1 22 20 61 74  20 6c 69 6e 65 20 22 3b  |:.:." at line ";|
00000080  9e 3a e0 0d 00 50 06 eb  36 0d 00 5a 08 44 25 3d  |.:...P..6..Z.D%=|
00000090  36 0d 00 64 15 f1 8a 31  34 2c 31 29 22 43 41 4c  |6..d...14,1)"CAL|
000000a0  45 4e 44 41 52 22 0d 00  6e 15 f1 8a 31 34 2c 32  |ENDAR"..n...14,2|
000000b0  29 22 7e 7e 7e 7e 7e 7e  7e 7e 22 0d 00 78 1a f1  |)"~~~~~~~~"..x..|
000000c0  8a 31 32 2c 34 29 22 62  79 20 52 2e 41 2e 44 69  |.12,4)"by R.A.Di|
000000d0  6d 6f 6e 64 22 0d 00 82  0a f2 69 6e 70 75 74 0d  |mond".....input.|
000000e0  00 8c 09 f2 69 6e 69 74  0d 00 96 0b db 3a f2 62  |....init.....:.b|
000000f0  61 6e 6b 0d 00 a0 0d db  3a f2 77 6b 65 6e 64 73  |ank.....:.wkends|
00000100  0d 00 aa 09 f2 63 61 6c  63 0d 00 b4 27 db 3a f1  |.....calc...'.:.|
00000110  8a 36 2c 31 30 29 22 53  63 72 65 65 6e 20 6f 72  |.6,10)"Screen or|
00000120  20 50 72 69 6e 74 65 72  3f 20 28 53 2f 50 29 22  | Printer? (S/P)"|
00000130  0d 00 be 17 f5 3a 41 25  3d a7 22 53 73 50 70 22  |.....:A%=."SsPp"|
00000140  2c be 29 3a fd 41 25 0d  00 c8 06 eb 33 0d 00 d2  |,.):.A%.....3...|
00000150  17 e7 41 25 3c 33 20 f2  6c 69 73 74 20 8b f2 70  |..A%<3 .list ..p|
00000160  72 69 6e 74 0d 00 dc 1a  f1 22 41 6e 6f 74 68 65  |rint....."Anothe|
00000170  72 20 63 6f 70 79 3f 20  28 59 2f 4e 29 22 0d 00  |r copy? (Y/N)"..|
00000180  e6 17 f5 3a 41 25 3d a7  22 59 79 4e 6e 22 2c be  |...:A%=."YyNn",.|
00000190  29 3a fd 41 25 0d 00 f0  0f e7 41 25 3c 33 20 e5  |):.A%.....A%<3 .|
000001a0  8d 74 74 40 0d 00 fa 05  e0 0d 01 04 0b dd f2 69  |.tt@...........i|
000001b0  6e 70 75 74 0d 01 0e 25  e8 8a 31 30 2c 31 30 29  |nput...%..10,10)|
000001c0  3b 22 57 68 69 63 68 20  79 65 61 72 3f 20 22 59  |;"Which year? "Y|
000001d0  25 3a 79 25 3d 59 25 2d  31 0d 01 18 0e f2 77 65  |%:y%=Y%-1.....we|
000001e0  65 6b 73 74 61 72 74 0d  01 22 34 e7 20 59 25 20  |ekstart.."4. Y% |
000001f0  83 34 3d 30 20 80 28 59  25 20 83 31 30 30 3c 3e  |.4=0 .(Y% .100<>|
00000200  30 20 84 20 59 25 20 83  34 30 30 3d 30 29 20 6c  |0 . Y% .400=0) l|
00000210  70 25 3d 31 20 8b 6c 70  25 3d 30 0d 01 2c 14 e7  |p%=1 .lp%=0..,..|
00000220  73 75 6e 25 20 62 3d 33  37 20 8b 62 3d 33 36 0d  |sun% b=37 .b=36.|
00000230  01 36 26 61 3d 62 2b 79  25 2b 28 79 25 20 81 34  |.6&a=b+y%+(y% .4|
00000240  29 2d 28 79 25 20 81 31  30 30 29 2b 28 79 25 20  |)-(y% .100)+(y% |
00000250  81 34 30 30 29 0d 01 40  26 44 25 3d a8 28 28 61  |.400)..@&D%=.((a|
00000260  2f 37 2d 28 61 20 81 37  29 29 2a 37 2b 2e 35 29  |/7-(a .7))*7+.5)|
00000270  3a e7 44 25 3d 30 20 44  25 3d 37 0d 01 4a 05 e1  |:.D%=0 D%=7..J..|
00000280  0d 01 54 0a dd f2 69 6e  69 74 0d 01 5e 25 de 20  |..T...init..^%. |
00000290  64 25 28 31 32 2c 34 32  29 2c 6d 25 28 31 32 29  |d%(12,42),m%(12)|
000002a0  2c 6d 24 28 31 32 29 2c  61 25 28 38 2c 31 29 0d  |,m$(12),a%(8,1).|
000002b0  01 68 0c e3 69 25 3d 31  b8 31 32 0d 01 72 1f f3  |.h..i%=1.12..r..|
000002c0  20 6d 24 2c 6d 25 3a 6d  24 28 69 25 29 3d 6d 24  | m$,m%:m$(i%)=m$|
000002d0  3a 6d 25 28 69 25 29 3d  6d 25 0d 01 7c 05 ed 0d  |:m%(i%)=m%..|...|
000002e0  01 86 7f dc 20 4a 61 6e  75 61 72 79 2c 33 31 2c  |.... January,31,|
000002f0  46 65 62 72 75 61 72 79  2c 32 38 2c 4d 61 72 63  |February,28,Marc|
00000300  68 2c 33 31 2c 41 70 72  69 6c 2c 33 30 2c 4d 61  |h,31,April,30,Ma|
00000310  79 2c 33 31 2c 4a 75 6e  65 2c 33 30 2c 4a 75 6c  |y,31,June,30,Jul|
00000320  79 2c 33 31 2c 41 75 67  75 73 74 2c 33 31 2c 53  |y,31,August,31,S|
00000330  65 70 74 65 6d 62 65 72  2c 33 30 2c 4f 63 74 6f  |eptember,30,Octo|
00000340  62 65 72 2c 33 31 2c 4e  6f 76 65 6d 62 65 72 2c  |ber,31,November,|
00000350  33 30 2c 44 65 63 65 6d  62 65 72 2c 33 31 0d 01  |30,December,31..|
00000360  90 05 e1 0d 01 9a 0a dd  f2 63 61 6c 63 0d 01 a4  |.........calc...|
00000370  13 e7 6c 70 25 3d 31 20  6d 25 28 32 29 3d 32 39  |..lp%=1 m%(2)=29|
00000380  0d 01 ae 0c e3 61 25 3d  31 b8 31 32 0d 01 b8 09  |.....a%=1.12....|
00000390  70 25 3d 44 25 0d 01 c2  10 e3 62 25 3d 31 b8 6d  |p%=D%.....b%=1.m|
000003a0  25 28 61 25 29 0d 01 cc  10 64 25 28 61 25 2c 70  |%(a%)....d%(a%,p|
000003b0  25 29 3d 62 25 0d 01 d6  0b 70 25 3d 70 25 2b 31  |%)=b%....p%=p%+1|
000003c0  0d 01 e0 16 44 25 3d 44  25 2b 31 3a e7 44 25 3e  |....D%=D%+1:.D%>|
000003d0  37 20 44 25 3d 31 0d 01  ea 07 ed 3a ed 0d 01 f4  |7 D%=1.....:....|
000003e0  05 e1 0d 01 fe 0a dd f2  6c 69 73 74 0d 02 08 10  |........list....|
000003f0  ef 31 34 3a f2 6c 69 73  74 69 6e 67 0d 02 12 05  |.14:.listing....|
00000400  e1 0d 02 1c 0b dd f2 70  72 69 6e 74 0d 02 26 22  |.......print..&"|
00000410  ef 32 2c 31 2c 32 37 2c  31 2c 35 34 2c 31 2c 32  |.2,1,27,1,54,1,2|
00000420  37 2c 31 2c 31 31 36 2c  31 2c 31 2c 31 35 0d 02  |7,1,116,1,1,15..|
00000430  30 0c f2 6c 69 73 74 69  6e 67 0d 02 3a 08 ef 33  |0..listing..:..3|
00000440  3a e1 0d 02 44 0b dd f2  6d 28 6e 25 29 0d 02 4e  |:...D...m(n%)..N|
00000450  36 e7 6e 25 3e 39 20 6d  25 3d 6e 25 2d 39 20 8b  |6.n%>9 m%=n%-9 .|
00000460  e7 6e 25 3e 36 20 6d 25  3d 6e 25 2d 36 20 8b e7  |.n%>6 m%=n%-6 ..|
00000470  6e 25 3e 33 20 6d 25 3d  6e 25 2d 33 20 8b 6d 25  |n%>3 m%=n%-3 .m%|
00000480  3d 6e 25 0d 02 58 22 f1  8a 28 32 33 2a 28 6d 25  |=n%..X"..(23*(m%|
00000490  2d 31 29 29 2b 28 31 32  2d a9 6d 24 28 6e 25 29  |-1))+(12-.m$(n%)|
000004a0  2f 32 29 29 3b 0d 02 62  2b ef 31 2c 32 37 2c 31  |/2));..b+.1,27,1|
000004b0  2c 34 35 2c 31 2c 31 3a  f1 3b 6d 24 28 6e 25 29  |,45,1,1:.;m$(n%)|
000004c0  3b 3a ef 31 2c 32 37 2c  31 2c 34 35 2c 31 2c 30  |;:.1,27,1,45,1,0|
000004d0  0d 02 6c 05 e1 0d 02 76  51 dd f2 6c 6d 28 6e 25  |..l....vQ..lm(n%|
000004e0  29 3a f1 bd 31 38 36 3b  3a f2 6d 28 6e 25 29 3a  |):..186;:.m(n%):|
000004f0  f1 8a 32 33 29 3b bd 31  37 39 3b 3a f2 6d 28 6e  |..23);.179;:.m(n|
00000500  25 2b 31 29 3a f1 8a 34  36 29 3b bd 31 37 39 3b  |%+1):..46);.179;|
00000510  3a f2 6d 28 6e 25 2b 32  29 3a f1 8a 36 39 29 3b  |:.m(n%+2):..69);|
00000520  bd 31 38 36 3a e1 0d 02  80 07 dd f2 64 0d 02 8a  |.186:.......d...|
00000530  42 e7 73 75 6e 25 20 64  24 3d 22 20 53 75 20 4d  |B.sun% d$=" Su M|
00000540  6f 20 54 75 20 57 65 20  54 68 20 46 72 20 53 61  |o Tu We Th Fr Sa|
00000550  20 22 20 8b 64 24 3d 22  20 4d 6f 20 54 75 20 57  | " .d$=" Mo Tu W|
00000560  65 20 54 68 20 46 72 20  53 61 20 53 75 20 22 0d  |e Th Fr Sa Su ".|
00000570  02 94 23 f1 bd 31 38 36  3b 64 24 3b bd 31 37 39  |..#..186;d$;.179|
00000580  3b 64 24 3b bd 31 37 39  3b 64 24 3b bd 31 38 36  |;d$;.179;d$;.186|
00000590  3a e1 0d 02 9e 3c dd f2  6c 3a f1 bd 31 39 39 3b  |:....<..l:..199;|
000005a0  c4 32 32 2c bd 31 39 36  29 3b bd 31 39 37 3b c4  |.22,.196);.197;.|
000005b0  32 32 2c bd 31 39 36 29  3b bd 31 39 37 3b c4 32  |22,.196);.197;.2|
000005c0  32 2c bd 31 39 36 29 3b  bd 31 38 32 3a e1 0d 02  |2,.196);.182:...|
000005d0  a8 14 dd f2 6c 69 6e 65  28 61 25 2c 62 25 2c 6e  |....line(a%,b%,n|
000005e0  25 29 0d 02 b2 55 f1 bd  31 38 36 3b 8a 32 29 3b  |%)...U..186;.2);|
000005f0  3a 6f 25 3d 6e 25 3a e3  63 25 3d 61 25 b8 62 25  |:o%=n%:.c%=a%.b%|
00000600  3a e7 64 25 28 6f 25 2c  63 25 29 3d 30 20 f1 3b  |:.d%(o%,c%)=0 .;|
00000610  22 20 20 20 22 3b 20 8b  e7 64 25 28 6f 25 2c 63  |"   "; ..d%(o%,c|
00000620  25 29 3e 30 20 74 24 3d  c3 28 64 25 28 6f 25 2c  |%)>0 t$=.(d%(o%,|
00000630  63 25 29 29 3a f2 70 0d  02 bc 0c ed 3a f1 bd 31  |c%)):.p.....:..1|
00000640  37 39 3b 0d 02 c6 52 f1  22 20 22 3b 3a 6f 25 3d  |79;...R." ";:o%=|
00000650  6e 25 2b 31 3a e3 63 25  3d 61 25 b8 62 25 3a e7  |n%+1:.c%=a%.b%:.|
00000660  64 25 28 6f 25 2c 63 25  29 3d 30 20 f1 3b 22 20  |d%(o%,c%)=0 .;" |
00000670  20 20 22 3b 20 8b e7 64  25 28 6f 25 2c 63 25 29  |  "; ..d%(o%,c%)|
00000680  3e 30 20 74 24 3d c3 28  64 25 28 6f 25 2c 63 25  |>0 t$=.(d%(o%,c%|
00000690  29 29 3a f2 70 0d 02 d0  0c ed 3a f1 bd 31 37 39  |)):.p.....:..179|
000006a0  3b 0d 02 da 52 f1 22 20  22 3b 3a 6f 25 3d 6e 25  |;...R." ";:o%=n%|
000006b0  2b 32 3a e3 63 25 3d 61  25 b8 62 25 3a e7 64 25  |+2:.c%=a%.b%:.d%|
000006c0  28 6f 25 2c 63 25 29 3d  30 20 f1 3b 22 20 20 20  |(o%,c%)=0 .;"   |
000006d0  22 3b 20 8b e7 64 25 28  6f 25 2c 63 25 29 3e 30  |"; ..d%(o%,c%)>0|
000006e0  20 74 24 3d c3 28 64 25  28 6f 25 2c 63 25 29 29  | t$=.(d%(o%,c%))|
000006f0  3a f2 70 0d 02 e4 0b ed  3a f1 bd 31 38 36 0d 02  |:.p.....:..186..|
00000700  ee 05 e1 0d 02 f8 0d dd  f2 68 65 61 64 69 6e 67  |.........heading|
00000710  0d 03 02 21 ef 31 2c 32  37 2c 31 2c 31 31 39 2c  |...!.1,27,1,119,|
00000720  31 2c 31 2c 31 2c 32 37  2c 31 2c 38 37 2c 31 2c  |1,1,1,27,1,87,1,|
00000730  31 0d 03 0c 1d f1 8a 31  32 29 3b bd 32 30 31 3b  |1......12);.201;|
00000740  c4 38 2c bd 32 30 35 29  3b bd 31 38 37 27 0d 03  |.8,.205);.187'..|
00000750  16 2e f1 8a 31 29 3b 59  25 3b 8a 31 32 29 3b bd  |....1);Y%;.12);.|
00000760  31 38 36 3b 22 43 41 4c  45 4e 44 41 52 22 3b bd  |186;"CALENDAR";.|
00000770  31 38 36 3b 8a 33 30 29  3b 59 25 27 0d 03 20 1c  |186;.30);Y%'.. .|
00000780  f1 8a 31 32 29 3b bd 32  30 30 3b c4 38 2c bd 32  |..12);.200;.8,.2|
00000790  30 35 29 3b bd 31 38 38  0d 03 2a 21 ef 31 2c 32  |05);.188..*!.1,2|
000007a0  37 2c 31 2c 31 31 39 2c  31 2c 30 2c 31 2c 32 37  |7,1,119,1,0,1,27|
000007b0  2c 31 2c 38 37 2c 31 2c  30 0d 03 34 05 e1 0d 03  |,1,87,1,0..4....|
000007c0  3e 0d dd f2 6c 69 73 74  69 6e 67 0d 03 48 0c f2  |>...listing..H..|
000007d0  68 65 61 64 69 6e 67 0d  03 52 36 f1 bd 32 30 31  |heading..R6..201|
000007e0  3b c4 32 32 2c bd 32 30  35 29 3b bd 32 30 39 3b  |;.22,.205);.209;|
000007f0  c4 32 32 2c bd 32 30 35  29 3b bd 32 30 39 3b c4  |.22,.205);.209;.|
00000800  32 32 2c bd 32 30 35 29  3b bd 31 38 37 0d 03 5c  |22,.205);.187..\|
00000810  0a f2 6c 6d 28 31 29 0d  03 66 06 f2 64 0d 03 70  |..lm(1)..f..d..p|
00000820  10 f2 6c 69 6e 65 28 31  2c 37 2c 31 29 0d 03 7a  |..line(1,7,1)..z|
00000830  11 f2 6c 69 6e 65 28 38  2c 31 34 2c 31 29 0d 03  |..line(8,14,1)..|
00000840  84 12 f2 6c 69 6e 65 28  31 35 2c 32 31 2c 31 29  |...line(15,21,1)|
00000850  0d 03 8e 12 f2 6c 69 6e  65 28 32 32 2c 32 38 2c  |.....line(22,28,|
00000860  31 29 0d 03 98 12 f2 6c  69 6e 65 28 32 39 2c 33  |1).....line(29,3|
00000870  35 2c 31 29 0d 03 a2 12  f2 6c 69 6e 65 28 33 36  |5,1).....line(36|
00000880  2c 34 32 2c 31 29 0d 03  ac 06 f2 6c 0d 03 b6 0a  |,42,1).....l....|
00000890  f2 6c 6d 28 34 29 0d 03  c0 06 f2 64 0d 03 ca 10  |.lm(4).....d....|
000008a0  f2 6c 69 6e 65 28 31 2c  37 2c 34 29 0d 03 d4 11  |.line(1,7,4)....|
000008b0  f2 6c 69 6e 65 28 38 2c  31 34 2c 34 29 0d 03 de  |.line(8,14,4)...|
000008c0  12 f2 6c 69 6e 65 28 31  35 2c 32 31 2c 34 29 0d  |..line(15,21,4).|
000008d0  03 e8 12 f2 6c 69 6e 65  28 32 32 2c 32 38 2c 34  |....line(22,28,4|
000008e0  29 0d 03 f2 12 f2 6c 69  6e 65 28 32 39 2c 33 35  |).....line(29,35|
000008f0  2c 34 29 0d 03 fc 12 f2  6c 69 6e 65 28 33 36 2c  |,4).....line(36,|
00000900  34 32 2c 34 29 0d 04 06  06 f2 6c 0d 04 10 0a f2  |42,4).....l.....|
00000910  6c 6d 28 37 29 0d 04 1a  06 f2 64 0d 04 24 10 f2  |lm(7).....d..$..|
00000920  6c 69 6e 65 28 31 2c 37  2c 37 29 0d 04 2e 11 f2  |line(1,7,7).....|
00000930  6c 69 6e 65 28 38 2c 31  34 2c 37 29 0d 04 38 12  |line(8,14,7)..8.|
00000940  f2 6c 69 6e 65 28 31 35  2c 32 31 2c 37 29 0d 04  |.line(15,21,7)..|
00000950  42 12 f2 6c 69 6e 65 28  32 32 2c 32 38 2c 37 29  |B..line(22,28,7)|
00000960  0d 04 4c 12 f2 6c 69 6e  65 28 32 39 2c 33 35 2c  |..L..line(29,35,|
00000970  37 29 0d 04 56 12 f2 6c  69 6e 65 28 33 36 2c 34  |7)..V..line(36,4|
00000980  32 2c 37 29 0d 04 60 06  f2 6c 0d 04 6a 0b f2 6c  |2,7)..`..l..j..l|
00000990  6d 28 31 30 29 0d 04 74  06 f2 64 0d 04 7e 11 f2  |m(10)..t..d..~..|
000009a0  6c 69 6e 65 28 31 2c 37  2c 31 30 29 0d 04 88 12  |line(1,7,10)....|
000009b0  f2 6c 69 6e 65 28 38 2c  31 34 2c 31 30 29 0d 04  |.line(8,14,10)..|
000009c0  92 13 f2 6c 69 6e 65 28  31 35 2c 32 31 2c 31 30  |...line(15,21,10|
000009d0  29 0d 04 9c 13 f2 6c 69  6e 65 28 32 32 2c 32 38  |).....line(22,28|
000009e0  2c 31 30 29 0d 04 a6 13  f2 6c 69 6e 65 28 32 39  |,10).....line(29|
000009f0  2c 33 35 2c 31 30 29 0d  04 b0 13 f2 6c 69 6e 65  |,35,10).....line|
00000a00  28 33 36 2c 34 32 2c 31  30 29 0d 04 ba 36 f1 bd  |(36,42,10)...6..|
00000a10  32 30 30 3b c4 32 32 2c  bd 32 30 35 29 3b bd 32  |200;.22,.205);.2|
00000a20  30 37 3b c4 32 32 2c bd  32 30 35 29 3b bd 32 30  |07;.22,.205);.20|
00000a30  37 3b c4 32 32 2c bd 32  30 35 29 3b bd 31 38 38  |7;.22,.205);.188|
00000a40  0d 04 c4 05 e1 0d 04 ce  07 dd f2 70 0d 04 d8 08  |...........p....|
00000a50  42 25 3d a3 0d 04 e2 11  e7 77 65 25 3d b9 20 f2  |B%=......we%=. .|
00000a60  65 6d 70 77 65 0d 04 ec  2f e7 28 64 25 28 61 25  |empwe.../.(d%(a%|
00000a70  28 31 2c 31 29 2c 63 25  29 3d 61 25 28 31 2c 30  |(1,1),c%)=a%(1,0|
00000a80  29 20 80 20 6f 25 3d 61  25 28 31 2c 31 29 29 20  |) . o%=a%(1,1)) |
00000a90  42 25 3d b9 0d 04 f6 2f  e7 28 64 25 28 61 25 28  |B%=..../.(d%(a%(|
00000aa0  32 2c 31 29 2c 63 25 29  3d 61 25 28 32 2c 30 29  |2,1),c%)=a%(2,0)|
00000ab0  20 80 20 6f 25 3d 61 25  28 32 2c 31 29 29 20 42  | . o%=a%(2,1)) B|
00000ac0  25 3d b9 0d 05 00 2f e7  28 64 25 28 61 25 28 33  |%=..../.(d%(a%(3|
00000ad0  2c 31 29 2c 63 25 29 3d  61 25 28 33 2c 30 29 20  |,1),c%)=a%(3,0) |
00000ae0  80 20 6f 25 3d 61 25 28  33 2c 31 29 29 20 42 25  |. o%=a%(3,1)) B%|
00000af0  3d b9 0d 05 0a 2f e7 28  64 25 28 61 25 28 34 2c  |=..../.(d%(a%(4,|
00000b00  31 29 2c 63 25 29 3d 61  25 28 34 2c 30 29 20 80  |1),c%)=a%(4,0) .|
00000b10  20 6f 25 3d 61 25 28 34  2c 31 29 29 20 42 25 3d  | o%=a%(4,1)) B%=|
00000b20  b9 0d 05 14 2f e7 28 64  25 28 61 25 28 35 2c 31  |..../.(d%(a%(5,1|
00000b30  29 2c 63 25 29 3d 61 25  28 35 2c 30 29 20 80 20  |),c%)=a%(5,0) . |
00000b40  6f 25 3d 61 25 28 35 2c  31 29 29 20 42 25 3d b9  |o%=a%(5,1)) B%=.|
00000b50  0d 05 1e 2f e7 28 64 25  28 61 25 28 36 2c 31 29  |.../.(d%(a%(6,1)|
00000b60  2c 63 25 29 3d 61 25 28  36 2c 30 29 20 80 20 6f  |,c%)=a%(6,0) . o|
00000b70  25 3d 61 25 28 36 2c 31  29 29 20 42 25 3d b9 0d  |%=a%(6,1)) B%=..|
00000b80  05 28 2f e7 28 64 25 28  61 25 28 37 2c 31 29 2c  |.(/.(d%(a%(7,1),|
00000b90  63 25 29 3d 61 25 28 37  2c 30 29 20 80 20 6f 25  |c%)=a%(7,0) . o%|
00000ba0  3d 61 25 28 37 2c 31 29  29 20 42 25 3d b9 0d 05  |=a%(7,1)) B%=...|
00000bb0  32 2f e7 28 64 25 28 61  25 28 38 2c 31 29 2c 63  |2/.(d%(a%(8,1),c|
00000bc0  25 29 3d 61 25 28 38 2c  30 29 20 80 20 6f 25 3d  |%)=a%(8,0) . o%=|
00000bd0  61 25 28 38 2c 31 29 29  20 42 25 3d b9 0d 05 3c  |a%(8,1)) B%=...<|
00000be0  2c e7 42 25 20 f2 65 20  8b e7 a9 74 24 3d 31 20  |,.B% .e ...t$=1 |
00000bf0  f1 3b 22 20 22 3b 74 24  3b 22 20 22 3b 20 20 8b  |.;" ";t$;" ";  .|
00000c00  f1 3b 74 24 3b 22 20 22  3b 0d 05 46 05 e1 0d 05  |.;t$;" ";..F....|
00000c10  50 08 dd f2 65 20 0d 05  5a 0e ef 31 2c 32 37 2c  |P...e ..Z..1,27,|
00000c20  31 2c 36 39 0d 05 64 2c  e7 a9 74 24 3d 31 20 f1  |1,69..d,..t$=1 .|
00000c30  3b 22 20 22 3b 3a f2 70  74 3a f1 3b 22 20 22 3b  |;" ";:.pt:.;" ";|
00000c40  20 20 8b f1 3b 3a f2 70  74 3a f1 3b 22 20 22 3b  |  ..;:.pt:.;" ";|
00000c50  0d 05 6e 0e ef 31 2c 32  37 2c 31 2c 37 30 0d 05  |..n..1,27,1,70..|
00000c60  78 05 e1 0d 05 82 20 dd  f2 70 74 3a fb 30 3a fb  |x..... ..pt:.0:.|
00000c70  31 32 39 3a f1 3b 74 24  3b 3a fb 31 3a fb 31 32  |129:.;t$;:.1:.12|
00000c80  38 3a e1 0d 05 8c 0a dd  f2 62 61 6e 6b 0d 05 96  |8:.......bank...|
00000c90  3c f1 27 27 22 44 6f 20  79 6f 75 20 77 61 6e 74  |<.''"Do you want|
00000ca0  20 74 6f 20 65 6d 70 68  61 73 69 73 65 20 42 61  | to emphasise Ba|
00000cb0  6e 6b 20 68 6f 6c 69 64  61 79 73 3f 22 3b 8a 31  |nk holidays?";.1|
00000cc0  35 29 22 28 59 2f 4e 29  22 0d 05 a0 17 f5 3a 41  |5)"(Y/N)".....:A|
00000cd0  25 3d a7 22 59 79 4e 79  22 2c be 29 3a fd 41 25  |%=."YyNy",.):.A%|
00000ce0  0d 05 aa 0b e7 41 25 3e  32 20 e1 0d 05 b4 0b e3  |.....A%>2 ......|
00000cf0  6e 25 3d 31 b8 38 0d 05  be 2e f1 22 45 6e 74 65  |n%=1.8....."Ente|
00000d00  72 20 42 61 6e 6b 20 48  6f 6c 69 64 61 79 20 6e  |r Bank Holiday n|
00000d10  6f 2e 20 22 3b 6e 25 3b  22 20 44 61 79 20 4e 6f  |o. ";n%;" Day No|
00000d20  2e 20 22 3b 0d 05 c8 0d  e8 61 25 28 6e 25 2c 30  |. ";.....a%(n%,0|
00000d30  29 0d 05 d2 16 f1 8a 32  33 29 22 4d 6f 6e 74 68  |)......23)"Month|
00000d40  20 6e 6f 2e 20 22 3b 0d  05 dc 0d e8 61 25 28 6e  | no. ";.....a%(n|
00000d50  25 2c 31 29 0d 05 e6 05  ed 0d 05 f0 05 e1 0d 05  |%,1)............|
00000d60  fa 0f dd f2 77 65 65 6b  73 74 61 72 74 0d 06 04  |....weekstart...|
00000d70  27 f1 8a 36 2c 31 32 29  3b 22 44 6f 20 79 6f 75  |'..6,12);"Do you|
00000d80  20 77 61 6e 74 20 77 65  65 6b 20 74 6f 20 73 74  | want week to st|
00000d90  61 72 74 22 0d 06 0e 25  f1 8a 37 2c 31 33 29 3b  |art"...%..7,13);|
00000da0  22 53 75 6e 64 61 79 20  6f 72 20 4d 6f 6e 64 61  |"Sunday or Monda|
00000db0  79 3f 20 28 53 2f 4d 29  22 0d 06 18 17 f5 3a 61  |y? (S/M)".....:a|
00000dc0  25 3d a7 22 53 73 4d 6d  22 2c be 29 3a fd 61 25  |%=."SsMm",.):.a%|
00000dd0  0d 06 22 18 e7 61 25 3c  33 20 73 75 6e 25 3d b9  |.."..a%<3 sun%=.|
00000de0  20 8b 73 75 6e 25 3d a3  0d 06 2c 05 e1 0d 06 36  | .sun%=...,....6|
00000df0  0b dd f2 65 6d 70 77 65  0d 06 40 0f e7 63 25 3d  |...empwe..@..c%=|
00000e00  62 25 20 42 25 3d b9 0d  06 4a 18 e7 ac 73 75 6e  |b% B%=...J...sun|
00000e10  25 20 80 63 25 3d 62 25  2d 31 20 42 25 3d b9 0d  |% .c%=b%-1 B%=..|
00000e20  06 54 15 e7 73 75 6e 25  20 80 63 25 3d 61 25 20  |.T..sun% .c%=a% |
00000e30  42 25 3d b9 0d 06 5e 05  e1 0d 06 68 0c dd f2 77  |B%=...^....h...w|
00000e40  6b 65 6e 64 73 0d 06 72  39 f1 27 27 22 44 6f 20  |kends..r9.''"Do |
00000e50  79 6f 75 20 77 61 6e 74  20 74 6f 20 65 6d 70 68  |you want to emph|
00000e60  61 73 69 73 65 20 57 65  65 6b 2d 65 6e 64 73 3f  |asise Week-ends?|
00000e70  22 3b 8a 31 35 29 3b 22  28 59 2f 4e 29 22 0d 06  |";.15);"(Y/N)"..|
00000e80  7c 17 f5 3a 62 25 3d a7  22 59 79 4e 6e 22 2c be  ||..:b%=."YyNn",.|
00000e90  29 3a fd 62 25 0d 06 86  16 e7 62 25 3c 33 20 77  |):.b%.....b%<3 w|
00000ea0  65 25 3d b9 20 8b 77 65  25 3d a3 0d 06 90 05 e1  |e%=. .we%=......|
00000eb0  0d ff                                             |..|
00000eb2