Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_17.ADF » PROGS/CALTXT1
PROGS/CALTXT1
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_17.ADF |
| Filename: | PROGS/CALTXT1 |
| Read OK: | ✔ |
| File size: | 0DDD bytes |
| Load address: | 43204556 |
| Exec address: | 78546C61 |
File contents
CUSTOMISED CALENDAR
~~~~~~~~~~~~~~~~~~~
By Richard Dimond
I thought my calendar program would
be a good contribution for the
Christmas issue. You may well say
that you have a calendar program or
that there are already several to
choose from but I do not think that
youwill have seen one quite like
this one!! I have called it
'CustomisedCalendar' as you have
several options to print it out as
you wish.
This one makes full use of an Epson
type printer graphics to form a
neatprintout and also Bank
Holidays and/or Week-ends can be
emphasised. Thedates can also be
printed from Sunday as they used to
be or from Monday asnow. Those of
you who are without a printer will
be able to see the datesemphasised
as these will be shown in inverse
colours.
On running the program you are
first asked for the year and this
should bethe full four figure
number - eg 1995. This is followed
by the start day(S)unday or
(M)onday.
The next option is whether you want
the Bank Holidays emphasised. If
youdo these will need to be
entered by the day and month
numbers as they arerequested.
When all eight are entered you have
the choice of emphasisingthe
week-ends and the screen display or
printout.
The program is rather complex and
probably not the tidiest or my
programsas I have rather hastily
added the procedures at the end of
the program.It originally only
printed Sun to Sat and I have only
just realised how toalter it to
Mon to Sun. Perhaps a few notes on
each procedure will helpthose
interested in looking to see how it
works.
PROCinput - allows input of the year
calls PROCweekstart and
sets b=37 for Sun/Sat listing
or b=36 for Mon/Sun listing
line 290 - lp%=1 if a leap year,
lp%=0 if not
line 310 - finds day of Jan 1, =D%
init initiates the arrays and
loads the arrays m$ and M%
with the name of the month
and number of days
calc enters tha array d% with the
day numbers for each month,
starting at the day position
of the first day.
For example, if Jan 1 is a
Friday
for aMon/Sun listing d%(1,5)=1
for a Sun/Sat listing d%(1,6)=1
list prints to screen in paged
mode
print gives a printer output
m(m%) selects name of the month and
column to print it also the
underlining on a printout
lm prints a month line
d prints the day headings
l prints the dividing lines
line(a%,b%,n%) prints the dates
a% and b% select the limits
for the c% FOR/NEXT loop to
print the 7 dates or blanks
if d%(o%,c%)=0
n% selects the month number
heading this selects double width
and double height printing
for the printouts. The
graphics characters can be
varied to give a different
heading - you could even
add further procedures to
give a choice.
Anyone fancy submitting some ideas??.....
listing prints out the calendar
p sets B% TRUE for dates to be
emphasised
e sets the printer for emphasis
pt inverts colours and prints
bank allows entry of the 8 bank
holidays
weekstart sets sun% TRUE for Sun/
Sat listing or FALSE for Mon/
Sun listing
empwe selects the Sats and Suns and
sets B% TRUE for these
wkends sets we% TRUE for emphasis
and FALSE if not
00000000 20 20 20 20 20 20 20 43 55 53 54 4f 4d 49 53 45 | CUSTOMISE| 00000010 44 20 43 41 4c 45 4e 44 41 52 0d 20 20 20 20 20 |D CALENDAR. | 00000020 20 20 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e | ~~~~~~~~~~~~~~| 00000030 7e 7e 7e 7e 7e 0d 20 20 20 20 20 20 20 42 79 20 |~~~~~. By | 00000040 52 69 63 68 61 72 64 20 44 69 6d 6f 6e 64 0d 0d |Richard Dimond..| 00000050 49 1a 20 74 68 6f 75 67 68 74 1a 20 6d 79 1a 20 |I. thought. my. | 00000060 63 61 6c 65 6e 64 61 72 1a 20 70 72 6f 67 72 61 |calendar. progra| 00000070 6d 1a 20 77 6f 75 6c 64 1a 20 0d 62 65 1a 20 61 |m. would. .be. a| 00000080 1a 20 67 6f 6f 64 20 63 6f 6e 74 72 69 62 75 74 |. good contribut| 00000090 69 6f 6e 20 66 6f 72 20 74 68 65 10 0d 43 68 72 |ion for the..Chr| 000000a0 69 73 74 6d 61 73 20 69 73 73 75 65 2e 20 20 59 |istmas issue. Y| 000000b0 6f 75 20 6d 61 79 20 77 65 6c 6c 20 73 61 79 20 |ou may well say | 000000c0 0d 74 68 61 74 20 79 6f 75 20 68 61 76 65 1a 20 |.that you have. | 000000d0 61 1a 20 63 61 6c 65 6e 64 61 72 1a 20 70 72 6f |a. calendar. pro| 000000e0 67 72 61 6d 1a 20 6f 72 10 0d 74 68 61 74 1a 20 |gram. or..that. | 000000f0 74 68 65 72 65 20 61 72 65 20 61 6c 72 65 61 64 |there are alread| 00000100 79 20 73 65 76 65 72 61 6c 20 74 6f 20 0d 63 68 |y several to .ch| 00000110 6f 6f 73 65 20 66 72 6f 6d 20 62 75 74 20 49 20 |oose from but I | 00000120 64 6f 20 6e 6f 74 20 74 68 69 6e 6b 20 74 68 61 |do not think tha| 00000130 74 20 0d 79 6f 75 10 77 69 6c 6c 1a 20 68 61 76 |t .you.will. hav| 00000140 65 20 73 65 65 6e 20 6f 6e 65 20 71 75 69 74 65 |e seen one quite| 00000150 20 6c 69 6b 65 20 0d 74 68 69 73 20 6f 6e 65 21 | like .this one!| 00000160 21 20 20 49 20 68 61 76 65 20 63 61 6c 6c 65 64 |! I have called| 00000170 1a 20 69 74 1a 20 0d 27 43 75 73 74 6f 6d 69 73 |. it. .'Customis| 00000180 65 64 10 43 61 6c 65 6e 64 61 72 27 20 61 73 20 |ed.Calendar' as | 00000190 79 6f 75 20 68 61 76 65 20 0d 73 65 76 65 72 61 |you have .severa| 000001a0 6c 20 6f 70 74 69 6f 6e 73 20 74 6f 20 70 72 69 |l options to pri| 000001b0 6e 74 20 69 74 20 6f 75 74 20 61 73 20 0d 79 6f |nt it out as .yo| 000001c0 75 20 77 69 73 68 2e 0d 0d 54 68 69 73 20 6f 6e |u wish...This on| 000001d0 65 1a 20 6d 61 6b 65 73 1a 20 66 75 6c 6c 20 75 |e. makes. full u| 000001e0 73 65 20 6f 66 20 61 6e 20 45 70 73 6f 6e 20 0d |se of an Epson .| 000001f0 74 79 70 65 20 70 72 69 6e 74 65 72 20 67 72 61 |type printer gra| 00000200 70 68 69 63 73 20 74 6f 20 66 6f 72 6d 20 61 20 |phics to form a | 00000210 0d 6e 65 61 74 10 70 72 69 6e 74 6f 75 74 20 61 |.neat.printout a| 00000220 6e 64 20 61 6c 73 6f 20 42 61 6e 6b 1a 20 0d 48 |nd also Bank. .H| 00000230 6f 6c 69 64 61 79 73 1a 20 61 6e 64 2f 6f 72 20 |olidays. and/or | 00000240 57 65 65 6b 2d 65 6e 64 73 20 63 61 6e 20 62 65 |Week-ends can be| 00000250 20 0d 65 6d 70 68 61 73 69 73 65 64 2e 20 20 54 | .emphasised. T| 00000260 68 65 10 64 61 74 65 73 20 63 61 6e 20 61 6c 73 |he.dates can als| 00000270 6f 20 62 65 20 0d 70 72 69 6e 74 65 64 20 66 72 |o be .printed fr| 00000280 6f 6d 20 53 75 6e 64 61 79 20 61 73 20 74 68 65 |om Sunday as the| 00000290 79 20 75 73 65 64 20 74 6f 20 0d 62 65 20 6f 72 |y used to .be or| 000002a0 20 66 72 6f 6d 20 4d 6f 6e 64 61 79 20 61 73 10 | from Monday as.| 000002b0 6e 6f 77 2e 20 20 54 68 6f 73 65 20 6f 66 20 0d |now. Those of .| 000002c0 79 6f 75 20 77 68 6f 20 61 72 65 20 77 69 74 68 |you who are with| 000002d0 6f 75 74 20 61 20 70 72 69 6e 74 65 72 20 77 69 |out a printer wi| 000002e0 6c 6c 20 0d 62 65 20 61 62 6c 65 20 74 6f 20 73 |ll .be able to s| 000002f0 65 65 20 74 68 65 20 64 61 74 65 73 10 65 6d 70 |ee the dates.emp| 00000300 68 61 73 69 73 65 64 20 0d 61 73 20 74 68 65 73 |hasised .as thes| 00000310 65 20 77 69 6c 6c 20 62 65 20 73 68 6f 77 6e 20 |e will be shown | 00000320 69 6e 20 69 6e 76 65 72 73 65 20 0d 63 6f 6c 6f |in inverse .colo| 00000330 75 72 73 2e 0d 0d 4f 6e 20 72 75 6e 6e 69 6e 67 |urs...On running| 00000340 20 74 68 65 20 70 72 6f 67 72 61 6d 20 79 6f 75 | the program you| 00000350 20 61 72 65 20 0d 66 69 72 73 74 20 61 73 6b 65 | are .first aske| 00000360 64 20 66 6f 72 20 74 68 65 20 79 65 61 72 20 61 |d for the year a| 00000370 6e 64 20 74 68 69 73 20 0d 73 68 6f 75 6c 64 20 |nd this .should | 00000380 62 65 10 74 68 65 20 66 75 6c 6c 20 66 6f 75 72 |be.the full four| 00000390 20 66 69 67 75 72 65 20 0d 6e 75 6d 62 65 72 20 | figure .number | 000003a0 2d 1a 20 65 67 20 31 39 39 35 2e 20 20 54 68 69 |-. eg 1995. Thi| 000003b0 73 20 69 73 20 66 6f 6c 6c 6f 77 65 64 20 0d 62 |s is followed .b| 000003c0 79 20 74 68 65 20 73 74 61 72 74 20 64 61 79 10 |y the start day.| 000003d0 28 53 29 75 6e 64 61 79 20 6f 72 20 0d 28 4d 29 |(S)unday or .(M)| 000003e0 6f 6e 64 61 79 2e 0d 0d 54 68 65 20 6e 65 78 74 |onday...The next| 000003f0 20 6f 70 74 69 6f 6e 20 69 73 20 77 68 65 74 68 | option is wheth| 00000400 65 72 20 79 6f 75 20 77 61 6e 74 1a 20 0d 74 68 |er you want. .th| 00000410 65 20 42 61 6e 6b 20 48 6f 6c 69 64 61 79 73 20 |e Bank Holidays | 00000420 65 6d 70 68 61 73 69 73 65 64 2e 20 20 49 66 20 |emphasised. If | 00000430 0d 79 6f 75 10 64 6f 20 74 68 65 73 65 20 77 69 |.you.do these wi| 00000440 6c 6c 20 6e 65 65 64 20 74 6f 20 62 65 20 0d 65 |ll need to be .e| 00000450 6e 74 65 72 65 64 20 62 79 1a 20 74 68 65 20 64 |ntered by. the d| 00000460 61 79 20 61 6e 64 20 6d 6f 6e 74 68 20 0d 6e 75 |ay and month .nu| 00000470 6d 62 65 72 73 20 61 73 20 74 68 65 79 20 61 72 |mbers as they ar| 00000480 65 10 72 65 71 75 65 73 74 65 64 2e 20 20 0d 57 |e.requested. .W| 00000490 68 65 6e 20 61 6c 6c 20 65 69 67 68 74 20 61 72 |hen all eight ar| 000004a0 65 20 65 6e 74 65 72 65 64 20 79 6f 75 20 68 61 |e entered you ha| 000004b0 76 65 20 0d 74 68 65 1a 20 63 68 6f 69 63 65 20 |ve .the. choice | 000004c0 6f 66 20 65 6d 70 68 61 73 69 73 69 6e 67 10 74 |of emphasising.t| 000004d0 68 65 20 0d 77 65 65 6b 2d 65 6e 64 73 20 61 6e |he .week-ends an| 000004e0 64 20 74 68 65 20 73 63 72 65 65 6e 20 64 69 73 |d the screen dis| 000004f0 70 6c 61 79 20 6f 72 20 0d 70 72 69 6e 74 6f 75 |play or .printou| 00000500 74 2e 0d 0d 54 68 65 1a 20 70 72 6f 67 72 61 6d |t...The. program| 00000510 20 69 73 20 72 61 74 68 65 72 20 63 6f 6d 70 6c | is rather compl| 00000520 65 78 20 61 6e 64 20 0d 70 72 6f 62 61 62 6c 79 |ex and .probably| 00000530 20 6e 6f 74 20 74 68 65 20 74 69 64 69 65 73 74 | not the tidiest| 00000540 20 6f 72 20 6d 79 20 0d 70 72 6f 67 72 61 6d 73 | or my .programs| 00000550 10 61 73 20 49 1a 20 68 61 76 65 1a 20 72 61 74 |.as I. have. rat| 00000560 68 65 72 20 68 61 73 74 69 6c 79 20 0d 61 64 64 |her hastily .add| 00000570 65 64 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 |ed the procedure| 00000580 73 20 61 74 20 74 68 65 20 65 6e 64 20 6f 66 20 |s at the end of | 00000590 0d 74 68 65 20 70 72 6f 67 72 61 6d 2e 10 49 74 |.the program..It| 000005a0 20 6f 72 69 67 69 6e 61 6c 6c 79 20 6f 6e 6c 79 | originally only| 000005b0 20 0d 70 72 69 6e 74 65 64 20 53 75 6e 20 74 6f | .printed Sun to| 000005c0 20 53 61 74 20 61 6e 64 20 49 20 68 61 76 65 20 | Sat and I have | 000005d0 6f 6e 6c 79 20 0d 6a 75 73 74 20 72 65 61 6c 69 |only .just reali| 000005e0 73 65 64 20 68 6f 77 20 74 6f 10 61 6c 74 65 72 |sed how to.alter| 000005f0 20 69 74 20 74 6f 20 0d 4d 6f 6e 20 74 6f 1a 20 | it to .Mon to. | 00000600 53 75 6e 2e 1a 20 20 50 65 72 68 61 70 73 20 61 |Sun.. Perhaps a| 00000610 20 66 65 77 20 6e 6f 74 65 73 20 6f 6e 20 0d 65 | few notes on .e| 00000620 61 63 68 20 70 72 6f 63 65 64 75 72 65 20 77 69 |ach procedure wi| 00000630 6c 6c 20 68 65 6c 70 10 74 68 6f 73 65 20 0d 69 |ll help.those .i| 00000640 6e 74 65 72 65 73 74 65 64 20 69 6e 20 6c 6f 6f |nterested in loo| 00000650 6b 69 6e 67 20 74 6f 20 73 65 65 20 68 6f 77 20 |king to see how | 00000660 69 74 20 0d 77 6f 72 6b 73 2e 0d 0d 0d 50 52 4f |it .works....PRO| 00000670 43 69 6e 70 75 74 20 2d 20 61 6c 6c 6f 77 73 20 |Cinput - allows | 00000680 69 6e 70 75 74 20 6f 66 20 74 68 65 20 79 65 61 |input of the yea| 00000690 72 20 0d 20 20 20 20 20 20 20 20 20 20 20 20 63 |r . c| 000006a0 61 6c 6c 73 20 50 52 4f 43 77 65 65 6b 73 74 61 |alls PROCweeksta| 000006b0 72 74 20 61 6e 64 0d 20 20 20 20 20 20 73 65 74 |rt and. set| 000006c0 73 20 62 3d 33 37 20 66 6f 72 20 53 75 6e 2f 53 |s b=37 for Sun/S| 000006d0 61 74 20 6c 69 73 74 69 6e 67 0d 20 20 20 20 20 |at listing. | 000006e0 20 20 20 6f 72 20 62 3d 33 36 20 66 6f 72 20 4d | or b=36 for M| 000006f0 6f 6e 2f 53 75 6e 20 6c 69 73 74 69 6e 67 0d 20 |on/Sun listing. | 00000700 6c 69 6e 65 20 32 39 30 20 2d 20 6c 70 25 3d 31 |line 290 - lp%=1| 00000710 20 69 66 20 61 20 6c 65 61 70 20 79 65 61 72 2c | if a leap year,| 00000720 0d 20 20 20 20 20 20 20 20 20 20 20 20 6c 70 25 |. lp%| 00000730 3d 30 20 69 66 20 6e 6f 74 0d 20 6c 69 6e 65 20 |=0 if not. line | 00000740 33 31 30 20 2d 20 66 69 6e 64 73 20 64 61 79 20 |310 - finds day | 00000750 6f 66 20 4a 61 6e 20 31 2c 20 3d 44 25 0d 0d 20 |of Jan 1, =D%.. | 00000760 69 6e 69 74 20 20 69 6e 69 74 69 61 74 65 73 20 |init initiates | 00000770 74 68 65 20 61 72 72 61 79 73 20 61 6e 64 20 0d |the arrays and .| 00000780 20 20 20 20 20 20 20 6c 6f 61 64 73 20 74 68 65 | loads the| 00000790 20 61 72 72 61 79 73 20 6d 24 20 61 6e 64 20 4d | arrays m$ and M| 000007a0 25 0d 20 20 20 20 20 20 20 77 69 74 68 20 74 68 |%. with th| 000007b0 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 6d 6f |e name of the mo| 000007c0 6e 74 68 20 0d 20 20 20 20 20 20 20 61 6e 64 20 |nth . and | 000007d0 6e 75 6d 62 65 72 20 6f 66 20 64 61 79 73 0d 0d |number of days..| 000007e0 20 63 61 6c 63 20 20 65 6e 74 65 72 73 20 74 68 | calc enters th| 000007f0 61 20 61 72 72 61 79 20 64 25 20 77 69 74 68 20 |a array d% with | 00000800 74 68 65 0d 20 20 20 20 20 20 20 64 61 79 20 6e |the. day n| 00000810 75 6d 62 65 72 73 20 66 6f 72 20 65 61 63 68 20 |umbers for each | 00000820 6d 6f 6e 74 68 2c 0d 20 20 20 20 20 20 20 73 74 |month,. st| 00000830 61 72 74 69 6e 67 20 61 74 20 74 68 65 20 64 61 |arting at the da| 00000840 79 20 70 6f 73 69 74 69 6f 6e 0d 20 20 20 20 20 |y position. | 00000850 20 20 6f 66 20 74 68 65 20 66 69 72 73 74 20 64 | of the first d| 00000860 61 79 2e 20 20 0d 20 20 20 20 20 20 20 46 6f 72 |ay. . For| 00000870 20 65 78 61 6d 70 6c 65 2c 20 69 66 20 4a 61 6e | example, if Jan| 00000880 20 31 20 69 73 20 61 20 0d 20 20 20 20 20 20 20 | 1 is a . | 00000890 46 72 69 64 61 79 0d 10 20 20 20 20 20 20 66 6f |Friday.. fo| 000008a0 72 20 61 10 4d 6f 6e 2f 53 75 6e 20 6c 69 73 74 |r a.Mon/Sun list| 000008b0 69 6e 67 20 64 25 28 31 2c 35 29 3d 31 0d 20 20 |ing d%(1,5)=1. | 000008c0 20 20 20 20 20 66 6f 72 20 61 20 53 75 6e 2f 53 | for a Sun/S| 000008d0 61 74 20 6c 69 73 74 69 6e 67 20 64 25 28 31 2c |at listing d%(1,| 000008e0 36 29 3d 31 0d 0d 20 6c 69 73 74 20 20 70 72 69 |6)=1.. list pri| 000008f0 6e 74 73 20 74 6f 20 73 63 72 65 65 6e 20 69 6e |nts to screen in| 00000900 20 70 61 67 65 64 20 0d 20 20 20 20 20 20 20 6d | paged . m| 00000910 6f 64 65 0d 0d 20 70 72 69 6e 74 20 67 69 76 65 |ode.. print give| 00000920 73 20 61 20 70 72 69 6e 74 65 72 20 6f 75 74 70 |s a printer outp| 00000930 75 74 0d 0d 20 6d 28 6d 25 29 20 73 65 6c 65 63 |ut.. m(m%) selec| 00000940 74 73 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 6d |ts name of the m| 00000950 6f 6e 74 68 20 61 6e 64 0d 20 20 20 20 20 20 20 |onth and. | 00000960 63 6f 6c 75 6d 6e 20 74 6f 20 70 72 69 6e 74 20 |column to print | 00000970 69 74 20 61 6c 73 6f 20 74 68 65 20 0d 20 20 20 |it also the . | 00000980 20 20 20 20 75 6e 64 65 72 6c 69 6e 69 6e 67 20 | underlining | 00000990 6f 6e 20 61 20 70 72 69 6e 74 6f 75 74 0d 0d 20 |on a printout.. | 000009a0 6c 6d 20 20 20 20 70 72 69 6e 74 73 20 61 20 6d |lm prints a m| 000009b0 6f 6e 74 68 20 6c 69 6e 65 0d 20 20 20 0d 20 64 |onth line. . d| 000009c0 20 20 20 20 20 70 72 69 6e 74 73 20 74 68 65 20 | prints the | 000009d0 64 61 79 20 68 65 61 64 69 6e 67 73 0d 0d 20 6c |day headings.. l| 000009e0 20 20 20 20 20 70 72 69 6e 74 73 20 74 68 65 20 | prints the | 000009f0 64 69 76 69 64 69 6e 67 20 6c 69 6e 65 73 0d 0d |dividing lines..| 00000a00 20 6c 69 6e 65 28 61 25 2c 62 25 2c 6e 25 29 20 | line(a%,b%,n%) | 00000a10 20 20 20 70 72 69 6e 74 73 20 74 68 65 20 64 61 | prints the da| 00000a20 74 65 73 10 20 20 20 20 20 20 20 0d 20 20 20 20 |tes. . | 00000a30 20 20 20 61 25 20 61 6e 64 20 62 25 20 73 65 6c | a% and b% sel| 00000a40 65 63 74 20 74 68 65 20 6c 69 6d 69 74 73 20 10 |ect the limits .| 00000a50 20 20 20 20 20 20 20 20 20 20 0d 20 20 20 20 20 | . | 00000a60 20 20 66 6f 72 20 74 68 65 20 63 25 20 46 4f 52 | for the c% FOR| 00000a70 2f 4e 45 58 54 20 6c 6f 6f 70 20 74 6f 20 0d 20 |/NEXT loop to . | 00000a80 20 20 20 20 20 20 70 72 69 6e 74 20 74 68 65 20 | print the | 00000a90 37 20 64 61 74 65 73 20 6f 72 20 62 6c 61 6e 6b |7 dates or blank| 00000aa0 73 20 0d 20 20 20 20 20 20 20 69 66 20 64 25 28 |s . if d%(| 00000ab0 6f 25 2c 63 25 29 3d 30 10 20 20 20 20 20 20 20 |o%,c%)=0. | 00000ac0 20 20 20 20 20 0d 20 20 20 20 20 20 20 6e 25 20 | . n% | 00000ad0 73 65 6c 65 63 74 73 20 74 68 65 20 6d 6f 6e 74 |selects the mont| 00000ae0 68 20 6e 75 6d 62 65 72 0d 0d 20 68 65 61 64 69 |h number.. headi| 00000af0 6e 67 20 74 68 69 73 20 73 65 6c 65 63 74 73 20 |ng this selects | 00000b00 64 6f 75 62 6c 65 20 77 69 64 74 68 20 0d 20 20 |double width . | 00000b10 20 20 20 20 20 61 6e 64 20 64 6f 75 62 6c 65 20 | and double | 00000b20 68 65 69 67 68 74 20 70 72 69 6e 74 69 6e 67 0d |height printing.| 00000b30 20 20 20 20 20 20 20 66 6f 72 20 74 68 65 20 70 | for the p| 00000b40 72 69 6e 74 6f 75 74 73 2e 20 54 68 65 20 0d 20 |rintouts. The . | 00000b50 20 20 20 20 20 20 67 72 61 70 68 69 63 73 20 63 | graphics c| 00000b60 68 61 72 61 63 74 65 72 73 20 63 61 6e 20 62 65 |haracters can be| 00000b70 20 0d 20 20 20 20 20 20 20 76 61 72 69 65 64 20 | . varied | 00000b80 74 6f 20 67 69 76 65 20 61 20 64 69 66 66 65 72 |to give a differ| 00000b90 65 6e 74 0d 20 20 20 20 20 20 20 68 65 61 64 69 |ent. headi| 00000ba0 6e 67 20 2d 20 79 6f 75 20 63 6f 75 6c 64 20 65 |ng - you could e| 00000bb0 76 65 6e 20 0d 20 20 20 20 20 20 20 61 64 64 20 |ven . add | 00000bc0 66 75 72 74 68 65 72 20 70 72 6f 63 65 64 75 72 |further procedur| 00000bd0 65 73 20 74 6f 20 0d 20 20 20 20 20 20 20 67 69 |es to . gi| 00000be0 76 65 20 61 20 20 63 68 6f 69 63 65 2e 20 20 0d |ve a choice. .| 00000bf0 0d 41 6e 79 6f 6e 65 20 66 61 6e 63 79 20 73 75 |.Anyone fancy su| 00000c00 62 6d 69 74 74 69 6e 67 20 73 6f 6d 65 20 69 64 |bmitting some id| 00000c10 65 61 73 3f 3f 2e 2e 2e 2e 2e 0d 0d 20 6c 69 73 |eas??....... lis| 00000c20 74 69 6e 67 20 70 72 69 6e 74 73 20 6f 75 74 20 |ting prints out | 00000c30 74 68 65 20 63 61 6c 65 6e 64 61 72 0d 0d 20 70 |the calendar.. p| 00000c40 20 20 20 20 20 73 65 74 73 20 42 25 20 54 52 55 | sets B% TRU| 00000c50 45 20 66 6f 72 20 64 61 74 65 73 20 74 6f 20 62 |E for dates to b| 00000c60 65 0d 20 20 20 20 20 20 20 65 6d 70 68 61 73 69 |e. emphasi| 00000c70 73 65 64 0d 20 20 20 20 0d 20 65 20 20 20 20 20 |sed. . e | 00000c80 73 65 74 73 20 74 68 65 20 70 72 69 6e 74 65 72 |sets the printer| 00000c90 20 66 6f 72 20 65 6d 70 68 61 73 69 73 0d 0d 20 | for emphasis.. | 00000ca0 70 74 20 20 20 20 69 6e 76 65 72 74 73 20 63 6f |pt inverts co| 00000cb0 6c 6f 75 72 73 20 61 6e 64 20 70 72 69 6e 74 73 |lours and prints| 00000cc0 0d 0d 20 62 61 6e 6b 20 20 61 6c 6c 6f 77 73 20 |.. bank allows | 00000cd0 65 6e 74 72 79 20 6f 66 20 74 68 65 20 38 20 62 |entry of the 8 b| 00000ce0 61 6e 6b 20 0d 20 20 20 20 20 20 20 68 6f 6c 69 |ank . holi| 00000cf0 64 61 79 73 0d 0d 20 77 65 65 6b 73 74 61 72 74 |days.. weekstart| 00000d00 20 20 73 65 74 73 20 73 75 6e 25 20 54 52 55 45 | sets sun% TRUE| 00000d10 20 66 6f 72 20 53 75 6e 2f 0d 20 20 20 20 20 20 | for Sun/. | 00000d20 20 53 61 74 20 6c 69 73 74 69 6e 67 20 6f 72 20 | Sat listing or | 00000d30 46 41 4c 53 45 20 66 6f 72 20 4d 6f 6e 2f 0d 20 |FALSE for Mon/. | 00000d40 20 20 20 20 20 20 53 75 6e 20 6c 69 73 74 69 6e | Sun listin| 00000d50 67 20 0d 20 65 6d 70 77 65 20 73 65 6c 65 63 74 |g . empwe select| 00000d60 73 20 74 68 65 20 53 61 74 73 20 61 6e 64 20 53 |s the Sats and S| 00000d70 75 6e 73 20 61 6e 64 0d 20 20 20 20 20 20 20 73 |uns and. s| 00000d80 65 74 73 20 42 25 20 54 52 55 45 20 66 6f 72 20 |ets B% TRUE for | 00000d90 74 68 65 73 65 0d 0d 20 77 6b 65 6e 64 73 20 73 |these.. wkends s| 00000da0 65 74 73 20 77 65 25 20 54 52 55 45 20 66 6f 72 |ets we% TRUE for| 00000db0 20 65 6d 70 68 61 73 69 73 0d 20 20 20 20 20 20 | emphasis. | 00000dc0 20 20 20 20 20 20 20 20 20 20 20 61 6e 64 20 46 | and F| 00000dd0 41 4c 53 45 20 69 66 20 6e 6f 74 0d 0d |ALSE if not..| 00000ddd
PROGS/CALTXT1.m0
PROGS/CALTXT1.m1
PROGS/CALTXT1.m2
PROGS/CALTXT1.m4
PROGS/CALTXT1.m5
.