home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: ArcFS Archive
(archive/arcFS).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| ArcFS Archive (archive/arcFS)
| magic
| Supported |
| 100%
| file
| RISC OS archive (ArcFS format)
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Acorn ArcFS Archive
| default
| |
| 100%
| gt2
| Kopftext: 'Archive'
| default (weak)
| |
| 100%
| detectItEasy
| Archive: ArcFS
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | 20 01 00 00 80 01 00 00 |Archive.| .......|
|00000010| 28 00 00 00 64 00 00 00 | 00 00 00 00 00 00 00 00 |(...d...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 82 21 50 72 6e 74 44 69 | 61 72 79 00 ff ff ff ff |.!PrntDi|ary.....|
|00000070| 44 ff ff ff 76 43 c9 e1 | 00 00 00 00 ff ff ff ff |D...vC..|........|
|00000080| fc 00 00 80 82 21 42 6f | 6f 74 00 00 00 00 00 d3 |.....!Bo|ot......|
|00000090| 56 00 00 00 44 eb ff ff | 40 b4 ca e1 03 00 4d 08 |V...D...|@.....M.|
|000000a0| 56 00 00 00 24 00 00 00 | 82 21 52 75 6e 00 04 00 |V...$...|.!Run...|
|000000b0| 00 00 00 d3 54 00 00 00 | 44 eb ff ff ad c5 ca e1 |....T...|D.......|
|000000c0| 03 00 dd 8f 54 00 00 00 | 9e 00 00 00 82 21 53 70 |....T...|.....!Sp|
|000000d0| 72 69 74 65 73 00 00 d3 | c0 00 00 00 44 f9 ff ff |rites...|....D...|
|000000e0| d4 e2 ca e1 03 00 73 2c | c0 00 00 00 16 01 00 00 |......s,|........|
|000000f0| 82 48 65 6c 70 00 04 00 | 00 00 00 d3 0c 2b 00 00 |.Help...|.....+..|
|00000100| 44 ff ff ff b5 b1 d1 e0 | 03 00 1e 55 0c 2b 00 00 |D.......|...U.+..|
|00000110| fa 01 00 00 82 50 72 69 | 6e 74 44 69 61 72 79 00 |.....Pri|ntDiary.|
|00000120| 5e 68 00 00 45 fb ff ff | 3d 18 23 33 03 00 73 3f |^h..E...|=.#3..s?|
|00000130| 5e 68 00 00 2a 2d 00 00 | 00 00 00 00 c3 00 04 00 |^h..*-..|........|
|00000140| 00 00 00 d3 fd fd fd fd | fd fd fd fd fd fd fd fd |........|........|
|00000150| fd fd fd d3 fd d3 fd d3 | d9 27 e2 fb 00 00 00 00 |........|.'......|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 d4 01 00 00 |........|........|
|00000180| 46 69 6c 65 44 61 74 61 | 82 21 42 6f 6f 74 00 00 |FileData|.!Boot..|
|00000190| 00 00 00 d3 56 00 00 00 | 44 eb ff ff 40 b4 ca e1 |....V...|D...@...|
|000001a0| 03 00 4d 08 7c 20 21 42 | 6f 6f 74 20 46 69 6c 65 |..M.| !B|oot File|
|000001b0| 20 20 21 50 72 6e 74 44 | 61 69 72 79 0a 53 65 74 | !PrntD|airy.Set|
|000001c0| 20 44 69 61 72 79 24 44 | 69 72 20 3c 4f 62 65 79 | Diary$D|ir <Obey|
|000001d0| 24 44 69 72 3e 0a 49 63 | 6f 6e 53 70 72 69 74 65 |$Dir>.Ic|onSprite|
|000001e0| 73 20 3c 4f 62 65 79 24 | 44 69 72 3e 2e 21 53 70 |s <Obey$|Dir>.!Sp|
|000001f0| 72 69 74 65 73 0a 0a 0a | 7c 0a 46 69 6c 65 44 61 |rites...||.FileDa|
|00000200| 74 61 82 21 52 75 6e 00 | 04 00 00 00 00 d3 54 00 |ta.!Run.|......T.|
|00000210| 00 00 44 eb ff ff ad c5 | ca e1 03 00 dd 8f 53 65 |..D.....|......Se|
|00000220| 74 20 44 69 61 72 79 24 | 44 69 72 20 3c 4f 62 65 |t Diary$|Dir <Obe|
|00000230| 79 24 44 69 72 3e 0a 49 | 63 6f 6e 53 70 72 69 74 |y$Dir>.I|conSprit|
|00000240| 65 73 20 3c 4f 62 65 79 | 24 44 69 72 3e 2e 21 53 |es <Obey|$Dir>.!S|
|00000250| 70 72 69 74 65 73 20 0a | 52 75 6e 20 3c 4f 62 65 |prites .|Run <Obe|
|00000260| 79 24 44 69 72 3e 2e 50 | 72 69 6e 74 44 69 61 72 |y$Dir>.P|rintDiar|
|00000270| 79 0a 46 69 6c 65 44 61 | 74 61 82 21 53 70 72 69 |y.FileDa|ta.!Spri|
|00000280| 74 65 73 00 00 d3 c0 00 | 00 00 44 f9 ff ff d4 e2 |tes.....|..D.....|
|00000290| ca e1 03 00 73 2c 01 00 | 00 00 10 00 00 00 c4 00 |....s,..|........|
|000002a0| 00 00 b4 00 00 00 21 70 | 72 6e 74 64 69 61 72 79 |......!p|rntdiary|
|000002b0| 00 00 00 00 00 00 10 00 | 00 00 00 00 00 00 17 00 |........|........|
|000002c0| 00 00 2c 00 00 00 70 00 | 00 00 00 00 00 00 00 00 |..,...p.|........|
|000002d0| 06 00 ff ff 7f 00 01 00 | 40 00 21 46 42 00 21 c9 |........|@.!FB.!.|
|000002e0| 42 00 21 4f 43 00 39 49 | 42 00 01 00 40 00 25 49 |B.!OC.9I|B...@.%I|
|000002f0| 52 80 01 00 40 00 25 49 | 52 00 01 00 40 00 25 49 |R...@.%I|R...@.%I|
|00000300| 52 00 01 00 40 00 25 49 | 52 80 01 00 40 00 ff ff |R...@.%I|R...@...|
|00000310| 7f 00 00 00 00 3f ff ff | 7f 3f ff ff 7f 3f ff ff |.....?..|.?...?..|
|00000320| 7f 3f ff ff 7f 3f ff ff | 7f 3f ff ff 7f 3f ff ff |.?...?..|.?...?..|
|00000330| 7f 3f ff ff 7f bf ff ff | 7f 3f ff ff 7f 3f ff ff |.?......|.?...?..|
|00000340| 7f 3f ff ff 7f 3f ff ff | 7f 3f ff ff 7f 3f ff ff |.?...?..|.?...?..|
|00000350| 7f 3f ff ff 7f 3f 46 69 | 6c 65 44 61 74 61 82 48 |.?...?Fi|leData.H|
|00000360| 65 6c 70 00 04 00 00 00 | 00 d3 0c 2b 00 00 44 ff |elp.....|...+..D.|
|00000370| ff ff b5 b1 d1 e0 03 00 | 1e 55 54 68 65 20 27 50 |........|.UThe 'P|
|00000380| 72 69 6e 74 44 69 61 72 | 79 27 20 70 72 6f 67 72 |rintDiar|y' progr|
|00000390| 61 6d 20 70 72 69 6e 74 | 73 20 61 20 64 65 73 6b |am print|s a desk|
|000003a0| 5f 64 69 61 72 79 20 73 | 68 6f 77 69 6e 67 20 6e |_diary s|howing n|
|000003b0| 65 61 72 6c 79 20 61 0a | 63 6f 6d 70 6c 65 74 65 |early a.|complete|
|000003c0| 20 6d 6f 6e 74 68 20 6f | 6e 20 65 61 63 68 20 70 | month o|n each p|
|000003d0| 61 67 65 2e 20 49 74 20 | 69 6e 73 65 72 74 73 20 |age. It |inserts |
|000003e0| 61 20 62 6c 61 6e 6b 20 | 68 61 6c 66 2d 70 61 67 |a blank |half-pag|
|000003f0| 65 20 74 6f 20 68 65 6c | 70 0a 73 79 6e 63 68 72 |e to hel|p.synchr|
|00000400| 6f 6e 69 73 65 20 74 68 | 65 20 64 61 74 65 73 20 |onise th|e dates |
|00000410| 77 69 74 68 20 74 68 65 | 20 34 2d 77 65 65 6b 20 |with the| 4-week |
|00000420| 70 61 67 65 73 2e 20 44 | 61 79 73 20 63 61 6e 20 |pages. D|ays can |
|00000430| 61 6e 6e 6f 74 61 74 65 | 64 20 77 69 74 68 0a 70 |annotate|d with.p|
|00000440| 65 72 73 6f 6e 61 6c 69 | 73 65 64 20 61 6e 6e 69 |ersonali|sed anni|
|00000450| 76 65 72 73 61 72 79 2d | 64 61 74 65 73 2c 20 63 |versary-|dates, c|
|00000460| 61 6c 63 75 6c 61 74 65 | 64 2d 61 67 65 73 20 65 |alculate|d-ages e|
|00000470| 74 63 2e 0a 20 0a 20 20 | 0a 49 74 20 77 61 73 20 |tc.. . |.It was |
|00000480| 66 69 72 73 74 20 77 72 | 69 74 74 65 6e 20 6f 6e |first wr|itten on|
|00000490| 20 61 20 42 42 43 20 4d | 6f 64 65 6c 20 42 20 61 | a BBC M|odel B a|
|000004a0| 6e 64 20 75 73 65 64 20 | 73 75 63 63 65 73 73 66 |nd used |successf|
|000004b0| 75 6c 6c 79 20 66 6f 72 | 0a 35 a0 79 65 61 72 73 |ully for|.5.years|
|000004c0| 3b 20 69 74 20 77 61 73 | 20 74 68 65 6e 20 72 65 |; it was| then re|
|000004d0| 77 72 69 74 74 65 6e 20 | 69 6e 20 31 39 39 32 20 |written |in 1992 |
|000004e0| 69 6e 20 42 61 73 69 63 | 20 35 20 6f 6e 20 61 6e |in Basic| 5 on an|
|000004f0| 20 41 33 30 30 30 20 61 | 6e 64 20 69 73 0a 6e 6f | A3000 a|nd is.no|
|00000500| 77 20 73 75 69 74 61 62 | 6c 65 20 66 6f 72 20 41 |w suitab|le for A|
|00000510| 72 63 68 69 6d 65 64 65 | 73 20 63 6f 6d 70 75 74 |rchimede|s comput|
|00000520| 65 72 73 2e 0a 0a 20 20 | 0a 54 68 65 20 70 72 6f |ers... |.The pro|
|00000530| 67 72 61 6d 20 68 61 73 | 20 6e 6f 20 47 4f 54 4f |gram has| no GOTO|
|00000540| 20 69 6e 73 74 72 75 63 | 74 69 6f 6e 73 20 61 6e | instruc|tions an|
|00000550| 64 20 69 74 20 77 61 73 | 20 64 65 76 65 6c 6f 70 |d it was| develop|
|00000560| 65 64 20 75 73 69 6e 67 | 0a 44 65 73 6b 45 64 69 |ed using|.DeskEdi|
|00000570| 74 20 66 72 6f 6d 20 52 | 69 73 63 20 55 73 65 72 |t from R|isc User|
|00000580| 2e 20 49 20 73 74 72 6f | 6e 67 6c 79 20 72 65 63 |. I stro|ngly rec|
|00000590| 6f 6d 6d 65 6e 64 20 44 | 65 73 6b 65 64 69 74 20 |ommend D|eskedit |
|000005a0| 66 6f 72 20 77 72 69 74 | 69 6e 67 0a 6c 65 74 74 |for writ|ing.lett|
|000005b0| 65 72 73 20 61 6e 64 20 | 65 64 69 74 69 6e 67 20 |ers and |editing |
|000005c0| 70 72 6f 67 72 61 6d 73 | 2e 20 27 50 72 69 6e 74 |programs|. 'Print|
|000005d0| 44 69 61 72 79 27 20 63 | 6f 6e 74 72 6f 6c 73 20 |Diary' c|ontrols |
|000005e0| 74 68 65 20 70 72 69 6e | 74 65 72 0a 64 69 72 65 |the prin|ter.dire|
|000005f0| 63 74 6c 79 20 69 65 3a | 20 6e 6f 20 64 72 69 76 |ctly ie:| no driv|
|00000600| 65 72 20 69 73 20 6e 65 | 65 64 65 64 3b 20 69 74 |er is ne|eded; it|
|00000610| 20 77 61 73 20 74 65 73 | 74 65 64 20 75 73 69 6e | was tes|ted usin|
|00000620| 67 20 61 6e 20 45 70 73 | 6f 6e 20 46 58 2d 38 30 |g an Eps|on FX-80|
|00000630| 2e 0a 0a 0a 54 6f 20 63 | 68 61 6e 67 65 20 66 6f |....To c|hange fo|
|00000640| 6e 74 73 20 6f 72 20 61 | 64 6a 75 73 74 20 66 6f |nts or a|djust fo|
|00000650| 72 20 69 6e 63 6f 6d 70 | 61 74 69 62 6c 65 20 70 |r incomp|atible p|
|00000660| 72 69 6e 74 65 72 73 2c | 20 61 6c 74 65 72 20 74 |rinters,| alter t|
|00000670| 68 65 20 50 72 69 6e 74 | 0a 50 72 6f 63 65 64 75 |he Print|.Procedu|
|00000680| 72 65 73 20 61 74 20 74 | 68 65 20 65 6e 64 20 6f |res at t|he end o|
|00000690| 66 20 74 68 65 20 70 72 | 6f 67 72 61 6d 2e 20 52 |f the pr|ogram. R|
|000006a0| 65 66 65 72 20 74 6f 20 | 74 68 65 20 63 6f 72 72 |efer to |the corr|
|000006b0| 65 73 70 6f 6e 64 69 6e | 67 0a 63 6f 6e 74 72 6f |espondin|g.contro|
|000006c0| 6c 20 63 6f 64 65 73 20 | 66 6f 72 20 79 6f 75 72 |l codes |for your|
|000006d0| 20 6f 77 6e 20 70 72 69 | 6e 74 65 72 2e 20 4e 6f | own pri|nter. No|
|000006e0| 74 65 20 74 68 61 74 20 | 61 20 70 69 74 63 68 20 |te that |a pitch |
|000006f0| 6f 66 20 31 32 20 6c 69 | 6e 65 73 2f 69 6e 63 68 |of 12 li|nes/inch|
|00000700| 0a 69 73 20 73 65 74 2d | 75 70 20 69 6e 73 74 65 |.is set-|up inste|
|00000710| 61 64 20 6f 66 20 74 68 | 65 20 64 65 66 61 75 6c |ad of th|e defaul|
|00000720| 74 20 36 20 6c 69 6e 65 | 73 2f 69 6e 63 68 2e 20 |t 6 line|s/inch. |
|00000730| 56 65 72 74 69 63 61 6c | 20 74 61 62 75 6c 61 74 |Vertical| tabulat|
|00000740| 69 6f 6e 20 69 73 0a 73 | 65 74 20 74 6f 20 67 69 |ion is.s|et to gi|
|00000750| 76 65 20 61 20 68 61 6c | 66 2d 70 61 67 65 20 74 |ve a hal|f-page t|
|00000760| 61 62 20 61 6e 64 20 6f | 6e 65 20 61 6c 6c 6f 77 |ab and o|ne allow|
|00000770| 69 6e 67 20 70 72 69 6e | 74 69 6e 67 20 6a 75 73 |ing prin|ting jus|
|00000780| 74 20 62 65 6c 6f 77 20 | 74 68 65 0a 70 65 72 66 |t below |the.perf|
|00000790| 6f 72 61 74 69 6f 6e 73 | 2e 20 52 65 76 65 72 73 |orations|. Revers|
|000007a0| 69 6e 67 20 69 73 20 61 | 6c 73 6f 20 6e 65 63 65 |ing is a|lso nece|
|000007b0| 73 73 61 72 79 2e 0a 0a | 31 31 20 69 6e 63 68 20 |ssary...|11 inch |
|000007c0| 78 20 32 34 31 20 6d 6d | 20 66 61 6e 66 6f 6c 64 |x 241 mm| fanfold|
|000007d0| 20 70 61 70 65 72 20 69 | 73 20 6e 6f 72 6d 61 6c | paper i|s normal|
|000007e0| 6c 79 20 75 73 65 64 2e | 0a 20 0a 20 0a 46 6f 6c |ly used.|. . .Fol|
|000007f0| 6c 6f 77 20 74 68 65 20 | 53 65 74 2d 75 70 20 50 |low the |Set-up P|
|00000800| 72 6f 63 65 64 75 72 65 | 20 42 65 6c 6f 77 20 74 |rocedure| Below t|
|00000810| 6f 20 61 64 6a 75 73 74 | 20 66 6f 72 20 65 61 63 |o adjust| for eac|
|00000820| 68 20 79 65 61 72 3a 0a | 20 20 20 20 20 0a 20 31 |h year:.| . 1|
|00000830| 2e 20 53 65 74 20 74 68 | 65 20 79 65 61 72 2c 20 |. Set th|e year, |
|00000840| 61 6e 64 20 69 74 73 20 | 76 61 72 69 61 62 6c 65 |and its |variable|
|00000850| 20 68 6f 6c 69 64 61 79 | 73 20 69 6e 20 74 68 65 | holiday|s in the|
|00000860| 20 44 69 61 72 79 2d 64 | 61 74 65 73 20 44 41 54 | Diary-d|ates DAT|
|00000870| 41 0a 20 20 20 20 20 20 | 73 74 61 74 65 6d 65 6e |A. |statemen|
|00000880| 74 73 20 61 74 20 74 68 | 65 20 45 6e 64 20 6f 66 |ts at th|e End of|
|00000890| 20 74 68 65 20 50 72 6f | 67 72 61 6d 2e 0a 20 0a | the Pro|gram.. .|
|000008a0| 20 32 2e 20 4f 74 68 65 | 72 20 69 74 65 6d 73 20 | 2. Othe|r items |
|000008b0| 61 72 65 20 63 6f 6e 74 | 72 6f 6c 6c 65 64 20 77 |are cont|rolled w|
|000008c0| 68 65 6e 20 74 68 65 20 | 70 72 6f 67 72 61 6d 20 |hen the |program |
|000008d0| 69 73 20 72 75 6e 20 65 | 67 3a 0a 20 0a 20 33 2e |is run e|g:. . 3.|
|000008e0| 20 53 65 74 20 6f 70 74 | 25 3d 30 20 26 20 31 20 | Set opt|%=0 & 1 |
|000008f0| 66 6f 72 20 50 72 65 76 | 69 65 77 73 20 74 6f 20 |for Prev|iews to |
|00000900| 63 68 65 63 6b 20 72 61 | 77 20 64 61 74 61 2c 20 |check ra|w data, |
|00000910| 6d 65 73 73 61 67 65 73 | 2c 20 61 6e 64 0a 20 20 |messages|, and. |
|00000920| 20 20 20 20 64 61 74 65 | 73 2e 0a 20 0a 20 34 2e | date|s.. . 4.|
|00000930| 20 54 68 65 6e 20 53 65 | 74 20 6f 70 74 25 3d 34 | Then Se|t opt%=4|
|00000940| 20 66 6f 72 20 74 68 65 | 20 46 69 6e 61 6c 20 50 | for the| Final P|
|00000950| 72 69 6e 74 20 77 68 69 | 63 68 20 74 61 6b 65 73 |rint whi|ch takes|
|00000960| 20 61 62 6f 75 74 20 35 | 30 20 6d 69 6e 75 74 65 | about 5|0 minute|
|00000970| 73 2e 0a 20 0a 20 35 2e | 20 6f 70 74 25 3d 33 20 |s.. . 5.| opt%=3 |
|00000980| 77 69 6c 6c 20 67 69 76 | 65 20 61 20 70 61 72 74 |will giv|e a part|
|00000990| 69 61 6c 20 70 72 69 6e | 74 20 69 66 20 79 6f 75 |ial prin|t if you|
|000009a0| 72 20 70 72 69 6e 74 65 | 72 20 66 6f 75 6c 73 20 |r printe|r fouls |
|000009b0| 75 70 20 28 6d 79 0a 20 | 20 20 20 20 20 45 70 73 |up (my. | Eps|
|000009c0| 6f 6e 20 6e 65 76 65 72 | 20 68 61 73 29 2e 0a 20 |on never| has).. |
|000009d0| 0a 20 36 2e 20 46 6f 72 | 20 61 20 64 65 74 61 69 |. 6. For| a detai|
|000009e0| 6c 65 64 20 73 63 72 65 | 65 6e 2d 6f 6e 6c 79 20 |led scre|en-only |
|000009f0| 70 72 65 76 69 65 77 2c | 20 75 73 65 20 61 20 70 |preview,| use a p|
|00000a00| 72 69 6e 74 69 6e 67 20 | 6f 70 74 69 6f 6e 20 62 |rinting |option b|
|00000a10| 75 74 0a 20 20 20 20 20 | 20 20 72 65 70 6c 79 20 |ut. | reply |
|00000a20| 4e 20 28 3d 4e 4f 29 20 | 77 68 65 6e 20 61 73 6b |N (=NO) |when ask|
|00000a30| 65 64 20 74 6f 20 63 6f | 6e 66 69 72 6d 20 74 68 |ed to co|nfirm th|
|00000a40| 61 74 20 74 68 65 20 70 | 72 69 6e 74 65 72 20 69 |at the p|rinter i|
|00000a50| 73 20 6f 6e 2e 0a 0a 0a | 20 0a 54 68 65 72 65 20 |s on....| .There |
|00000a60| 69 73 20 61 20 46 75 6c | 6c 20 44 61 74 61 20 44 |is a Ful|l Data D|
|00000a70| 65 73 63 72 69 70 74 69 | 6f 6e 20 66 6f 6c 6c 6f |escripti|on follo|
|00000a80| 77 65 64 20 62 79 20 6c | 69 76 65 20 64 61 74 61 |wed by l|ive data|
|00000a90| 20 61 74 20 74 68 65 20 | 45 6e 64 20 6f 66 0a 74 | at the |End of.t|
|00000aa0| 68 65 20 50 72 6f 67 72 | 61 6d 3b 20 69 74 20 69 |he Progr|am; it i|
|00000ab0| 73 20 63 6f 70 69 65 64 | 20 68 65 72 65 20 66 6f |s copied| here fo|
|00000ac0| 72 20 63 6f 6e 76 65 6e | 69 65 6e 63 65 3a 0a 0a |r conven|ience:..|
|00000ad0| 0a 54 68 69 73 20 44 61 | 74 61 2d 6c 69 73 74 20 |.This Da|ta-list |
|00000ae0| 69 73 20 63 6f 72 72 65 | 63 74 20 66 6f 72 20 31 |is corre|ct for 1|
|00000af0| 39 39 33 2e 0a 54 68 6f | 73 65 20 64 61 74 65 73 |993..Tho|se dates|
|00000b00| 20 61 6c 72 65 61 64 79 | 20 64 65 63 69 64 65 64 | already| decided|
|00000b10| 20 66 6f 72 20 31 39 39 | 34 20 61 72 65 20 69 6e | for 199|4 are in|
|00000b20| 63 6c 75 64 65 64 20 77 | 69 74 68 0a 63 6f 6e 64 |cluded w|ith.cond|
|00000b30| 69 74 69 6f 6e 2d 6e 75 | 6d 62 65 72 73 20 77 68 |ition-nu|mbers wh|
|00000b40| 69 63 68 20 77 69 6c 6c | 20 61 63 74 69 76 61 74 |ich will| activat|
|00000b50| 65 20 74 68 65 6d 20 77 | 68 65 6e 20 44 69 61 72 |e them w|hen Diar|
|00000b60| 79 2d 79 65 61 72 20 31 | 39 39 34 20 69 73 0a 73 |y-year 1|994 is.s|
|00000b70| 65 6c 65 63 74 65 64 2e | 0a 20 0a 44 61 74 65 73 |elected.|. .Dates|
|00000b80| 20 66 6f 72 20 31 39 39 | 32 20 68 61 76 65 20 62 | for 199|2 have b|
|00000b90| 65 65 6e 20 6c 65 66 74 | 20 69 6e 20 61 73 20 65 |een left| in as e|
|00000ba0| 78 61 6d 70 6c 65 73 3b | 20 74 68 65 79 20 63 61 |xamples;| they ca|
|00000bb0| 6e 20 62 65 20 72 65 6d | 6f 76 65 64 20 6e 6f 77 |n be rem|oved now|
|00000bc0| 2e 0a 59 6f 75 20 77 69 | 6c 6c 20 6e 65 65 64 20 |..You wi|ll need |
|00000bd0| 74 6f 20 72 65 70 6c 61 | 63 65 20 6d 79 20 42 69 |to repla|ce my Bi|
|00000be0| 72 74 68 64 61 79 73 20 | 61 6e 64 20 6f 74 68 65 |rthdays |and othe|
|00000bf0| 72 20 41 6e 6e 69 76 65 | 72 73 61 72 69 65 73 20 |r Annive|rsaries |
|00000c00| 77 69 74 68 0a 65 76 65 | 6e 74 73 20 74 68 61 74 |with.eve|nts that|
|00000c10| 20 79 6f 75 20 6e 65 65 | 64 20 74 6f 20 72 65 6d | you nee|d to rem|
|00000c20| 65 6d 62 65 72 3b 20 69 | 74 20 74 61 6b 65 73 20 |ember; i|t takes |
|00000c30| 73 6f 6d 65 20 65 66 66 | 6f 72 74 20 62 75 74 20 |some eff|ort but |
|00000c40| 69 74 20 6c 61 73 74 73 | 0a 66 6f 72 20 79 65 61 |it lasts|.for yea|
|00000c50| 72 73 20 77 68 65 6e 20 | 79 6f 75 27 76 65 20 64 |rs when |you've d|
|00000c60| 6f 6e 65 20 69 74 2e 0a | 20 0a 54 68 65 20 70 72 |one it..| .The pr|
|00000c70| 6f 67 72 61 6d 20 69 6e | 69 74 69 61 6c 69 73 65 |ogram in|itialise|
|00000c80| 73 20 74 68 65 20 70 72 | 69 6e 74 65 72 20 74 6f |s the pr|inter to|
|00000c90| 20 73 75 69 74 20 69 74 | 73 65 6c 66 20 61 6e 64 | suit it|self and|
|00000ca0| 20 72 65 73 74 6f 72 65 | 73 20 69 74 20 74 6f 0a | restore|s it to.|
|00000cb0| 6e 6f 72 6d 61 6c 20 6f | 6e 20 65 78 69 74 2e 20 |normal o|n exit. |
|00000cc0| 54 68 65 20 70 72 69 6e | 74 65 72 20 77 69 6c 6c |The prin|ter will|
|00000cd0| 20 72 65 76 65 72 73 65 | 2d 73 74 65 70 20 6f 76 | reverse|-step ov|
|00000ce0| 65 72 20 74 68 65 20 70 | 65 72 66 6f 72 61 74 69 |er the p|erforati|
|00000cf0| 6f 6e 73 0a 61 6e 64 20 | 74 68 65 20 69 6e 69 74 |ons.and |the init|
|00000d00| 69 61 6c 69 73 61 74 69 | 6f 6e 20 69 73 20 66 6f |ialisati|on is fo|
|00000d10| 72 20 61 20 70 61 67 65 | 20 77 68 69 63 68 20 69 |r a page| which i|
|00000d20| 73 20 6f 6e 6c 79 20 68 | 61 6c 66 2d 61 2d 66 61 |s only h|alf-a-fa|
|00000d30| 6e 66 6f 6c 64 2d 70 61 | 67 65 0a 69 6e 20 6c 65 |nfold-pa|ge.in le|
|00000d40| 6e 67 74 68 2e 20 54 68 | 69 73 20 77 69 6c 6c 20 |ngth. Th|is will |
|00000d50| 62 65 20 63 61 6e 63 65 | 6c 6c 65 64 20 77 68 65 |be cance|lled whe|
|00000d60| 6e 20 61 20 70 72 69 6e | 74 20 65 6e 64 73 20 6e |n a prin|t ends n|
|00000d70| 6f 72 6d 61 6c 6c 79 20 | 62 75 74 20 61 0a 70 61 |ormally |but a.pa|
|00000d80| 70 65 72 20 66 6f 75 6c | 2d 75 70 20 77 69 6c 6c |per foul|-up will|
|00000d90| 20 6c 65 61 76 65 20 74 | 68 65 20 70 72 69 6e 74 | leave t|he print|
|00000da0| 65 72 20 77 6f 6e 64 65 | 72 69 6e 67 20 77 68 65 |er wonde|ring whe|
|00000db0| 72 65 20 69 74 20 69 73 | 2e 0a 20 0a 52 65 61 64 |re it is|.. .Read|
|00000dc0| 20 74 68 65 20 66 6f 6c | 6c 6f 77 69 6e 67 20 6e | the fol|lowing n|
|00000dd0| 6f 74 65 73 20 61 6e 64 | 20 65 78 70 65 72 69 6d |otes and| experim|
|00000de0| 65 6e 74 20 69 6e 20 6f | 6e 65 20 6f 66 20 74 68 |ent in o|ne of th|
|00000df0| 65 20 6e 6f 6e 2d 70 72 | 69 6e 74 69 6e 67 0a 70 |e non-pr|inting.p|
|00000e00| 72 65 76 69 65 77 20 6d | 6f 64 65 73 2e 20 54 68 |review m|odes. Th|
|00000e10| 65 6e 20 70 72 69 6e 74 | 20 61 20 73 75 6d 6d 61 |en print| a summa|
|00000e20| 72 79 20 6f 66 20 74 68 | 65 20 73 70 65 63 69 61 |ry of th|e specia|
|00000e30| 6c 20 64 61 74 65 73 20 | 61 6e 64 20 63 68 65 63 |l dates |and chec|
|00000e40| 6b 20 69 74 0a 74 68 6f | 72 6f 75 67 68 6c 79 20 |k it.tho|roughly |
|00000e50| 61 67 61 69 6e 20 61 6e | 64 20 61 67 61 69 6e 2e |again an|d again.|
|00000e60| 20 4c 65 61 76 65 20 69 | 74 20 6f 76 65 72 6e 69 | Leave i|t overni|
|00000e70| 67 68 74 20 69 6e 20 63 | 61 73 65 20 79 6f 75 20 |ght in c|ase you |
|00000e80| 68 61 76 65 20 61 6e 79 | 0a 6d 6f 72 65 20 62 72 |have any|.more br|
|00000e90| 69 67 68 74 20 69 64 65 | 61 73 2e 0a 0a 59 6f 75 |ight ide|as...You|
|00000ea0| 20 63 61 6e 20 70 72 69 | 6e 74 20 72 65 70 6c 61 | can pri|nt repla|
|00000eb0| 63 65 6d 65 6e 74 20 73 | 65 63 74 69 6f 6e 73 20 |cement s|ections |
|00000ec0| 62 75 74 20 69 74 73 20 | 62 65 74 74 65 72 20 74 |but its |better t|
|00000ed0| 6f 20 67 6f 20 66 6f 72 | 20 6f 6e 65 20 67 6f 6f |o go for| one goo|
|00000ee0| 64 0a 70 72 69 6e 74 20 | 6f 6e 6c 79 2e 20 45 6e |d.print |only. En|
|00000ef0| 73 75 72 65 20 74 68 61 | 74 20 79 6f 75 20 68 61 |sure tha|t you ha|
|00000f00| 76 65 20 61 74 20 6c 65 | 61 73 74 20 31 33 20 73 |ve at le|ast 13 s|
|00000f10| 68 65 65 74 73 20 6f 66 | 20 66 61 6e 66 6f 6c 64 |heets of| fanfold|
|00000f20| 20 61 6e 64 20 61 0a 67 | 6f 6f 64 20 72 69 62 62 | and a.g|ood ribb|
|00000f30| 6f 6e 20 62 65 66 6f 72 | 65 20 74 68 65 20 66 75 |on befor|e the fu|
|00000f40| 6c 6c 20 70 72 69 6e 74 | 6f 75 74 2e 0a 20 0a 54 |ll print|out.. .T|
|00000f50| 68 65 20 44 61 74 61 2d | 6c 69 73 74 20 69 73 20 |he Data-|list is |
|00000f60| 68 65 61 64 65 64 20 62 | 79 20 74 68 65 20 44 69 |headed b|y the Di|
|00000f70| 61 72 79 2d 79 65 61 72 | 20 6e 75 6d 62 65 72 20 |ary-year| number |
|00000f80| 69 6e 20 6c 6f 6e 67 20 | 6f 72 20 73 68 6f 72 74 |in long |or short|
|00000f90| 0a 66 6f 72 6d 2c 20 69 | 65 3a 20 39 33 20 6f 72 |.form, i|e: 93 or|
|00000fa0| 20 31 39 39 33 2c 20 20 | 30 20 6f 72 20 30 30 20 | 1993, |0 or 00 |
|00000fb0| 6f 72 20 32 30 30 30 2c | 20 20 37 20 6f 72 20 32 |or 2000,| 7 or 2|
|00000fc0| 30 30 37 2c 20 20 32 39 | 20 6f 72 20 32 30 32 39 |007, 29| or 2029|
|00000fd0| 2e 0a 20 0a 54 68 65 72 | 65 61 66 74 65 72 20 74 |.. .Ther|eafter t|
|00000fe0| 68 65 20 64 61 74 61 20 | 69 73 20 72 65 61 64 20 |he data |is read |
|00000ff0| 69 6e 20 73 65 74 73 20 | 6f 66 20 33 20 69 6e 74 |in sets |of 3 int|
|00001000| 65 67 65 72 73 20 66 6f | 6c 6c 6f 77 65 64 20 62 |egers fo|llowed b|
|00001010| 79 20 61 0a 73 74 72 69 | 6e 67 2e 20 54 68 65 20 |y a.stri|ng. The |
|00001020| 6f 72 64 65 72 20 69 73 | 3a 20 4d 6f 6e 74 68 2c |order is|: Month,|
|00001030| 20 20 44 61 74 65 2c 20 | 20 43 6f 6e 64 69 74 69 | Date, | Conditi|
|00001040| 6f 6e 2c 20 20 4d 65 73 | 73 61 67 65 2d 73 74 72 |on, Mes|sage-str|
|00001050| 69 6e 67 2e 0a 0a 43 6f | 6d 6d 65 6e 74 73 20 66 |ing...Co|mments f|
|00001060| 6f 6c 6c 6f 77 69 6e 67 | 20 74 68 65 20 73 74 72 |ollowing| the str|
|00001070| 69 6e 67 20 74 6f 20 74 | 68 65 20 6c 69 6e 65 2d |ing to t|he line-|
|00001080| 65 6e 64 20 77 69 6c 6c | 20 62 65 20 69 67 6e 6f |end will| be igno|
|00001090| 72 65 64 0a 70 72 6f 76 | 69 64 69 6e 67 20 74 68 |red.prov|iding th|
|000010a0| 61 74 20 74 68 65 79 20 | 61 72 65 20 61 6c 70 68 |at they |are alph|
|000010b0| 61 2d 6f 6e 6c 79 2e 0a | 0a 20 20 20 20 20 20 54 |a-only..|. T|
|000010c0| 41 4b 45 20 43 41 52 45 | 20 57 49 54 48 20 43 4f |AKE CARE| WITH CO|
|000010d0| 4d 4d 45 4e 54 53 20 4f | 52 20 28 42 45 54 54 45 |MMENTS O|R (BETTE|
|000010e0| 52 29 20 41 56 4f 49 44 | 20 54 48 45 4d 20 41 4c |R) AVOID| THEM AL|
|000010f0| 54 4f 47 45 54 48 45 52 | 0a 20 0a 41 66 74 65 72 |TOGETHER|. .After|
|00001100| 20 74 68 65 20 59 65 61 | 72 2d 6e 75 6d 62 65 72 | the Yea|r-number|
|00001110| 2c 20 74 68 65 20 46 69 | 72 73 74 2d 6e 75 6d 62 |, the Fi|rst-numb|
|00001120| 65 72 20 69 73 20 74 68 | 65 20 4d 6f 6e 74 68 2d |er is th|e Month-|
|00001130| 6e 75 6d 62 65 72 3a 0a | 54 68 65 20 4d 6f 6e 74 |number:.|The Mont|
|00001140| 68 2d 6e 75 6d 62 65 72 | 20 6d 75 73 74 20 72 69 |h-number| must ri|
|00001150| 73 65 20 66 72 6f 6d 20 | 30 20 28 6f 72 20 6d 6f |se from |0 (or mo|
|00001160| 72 65 29 20 74 6f 20 31 | 33 20 28 6f 72 20 6c 65 |re) to 1|3 (or le|
|00001170| 73 73 29 3b 20 30 20 20 | 6d 65 61 6e 73 0a 44 65 |ss); 0 |means.De|
|00001180| 63 20 6f 66 20 79 65 61 | 72 20 62 65 66 6f 72 65 |c of yea|r before|
|00001190| 20 44 69 61 72 79 2d 79 | 65 61 72 2c 20 31 20 69 | Diary-y|ear, 1 i|
|000011a0| 73 20 4a 61 6e 20 6f 66 | 20 44 69 61 72 79 2d 79 |s Jan of| Diary-y|
|000011b0| 65 61 72 3b 20 31 33 20 | 6d 65 61 6e 73 20 4a 61 |ear; 13 |means Ja|
|000011c0| 6e 20 6f 66 0a 79 65 61 | 72 20 61 66 74 65 72 20 |n of.yea|r after |
|000011d0| 44 69 61 72 79 2d 79 65 | 61 72 2e 20 41 20 4d 6f |Diary-ye|ar. A Mo|
|000011e0| 6e 74 68 2d 6e 75 6d 62 | 65 72 20 63 61 6e 20 62 |nth-numb|er can b|
|000011f0| 65 20 6d 69 73 73 65 64 | 20 6f 75 74 20 62 75 74 |e missed| out but|
|00001200| 20 6f 6e 65 20 63 61 6e | 6e 6f 74 0a 62 65 20 69 | one can|not.be i|
|00001210| 6e 73 65 72 74 65 64 20 | 6f 75 74 20 6f 66 20 6f |nserted |out of o|
|00001220| 72 64 65 72 2e 0a 20 0a | 54 68 65 20 53 65 63 6f |rder.. .|The Seco|
|00001230| 6e 64 2d 6e 75 6d 62 65 | 72 20 69 73 20 74 68 65 |nd-numbe|r is the|
|00001240| 20 44 61 74 65 2d 6e 75 | 6d 62 65 72 3a 0a 54 68 | Date-nu|mber:.Th|
|00001250| 69 73 20 69 73 20 63 68 | 65 63 6b 65 64 20 74 6f |is is ch|ecked to|
|00001260| 20 62 65 20 69 6e 20 72 | 61 6e 67 65 20 30 20 2d | be in r|ange 0 -|
|00001270| 20 33 31 20 6f 6e 6c 79 | 2e 0a 41 20 6d 65 73 73 | 31 only|..A mess|
|00001280| 61 67 65 20 63 6f 75 6c | 64 20 62 65 20 73 65 74 |age coul|d be set|
|00001290| 20 61 67 61 69 6e 73 74 | 20 46 65 62 20 33 30 20 | against| Feb 30 |
|000012a0| 62 75 74 20 69 74 20 77 | 6f 75 6c 64 20 6e 65 76 |but it w|ould nev|
|000012b0| 65 72 20 62 65 20 70 72 | 69 6e 74 65 64 2e 0a 44 |er be pr|inted..D|
|000012c0| 61 74 65 73 20 64 6f 20 | 6e 6f 74 20 68 61 76 65 |ates do |not have|
|000012d0| 20 74 6f 20 62 65 20 69 | 6e 20 61 73 63 65 6e 64 | to be i|n ascend|
|000012e0| 69 6e 67 20 6f 72 64 65 | 72 3b 20 74 68 65 79 20 |ing orde|r; they |
|000012f0| 63 61 6e 20 62 65 20 6f | 75 74 20 6f 66 20 6f 72 |can be o|ut of or|
|00001300| 64 65 72 2e 0a 20 0a 54 | 68 65 20 54 68 69 72 64 |der.. .T|he Third|
|00001310| 2d 6e 75 6d 62 65 72 20 | 69 73 20 74 68 65 20 43 |-number |is the C|
|00001320| 6f 6e 64 69 74 69 6f 6e | 2d 6e 75 6d 62 65 72 20 |ondition|-number |
|00001330| 28 6c 65 74 27 73 20 63 | 61 6c 6c 20 69 74 20 43 |(let's c|all it C|
|00001340| 29 3a 0a 41 62 73 6f 6c | 75 74 65 20 76 61 6c 75 |):.Absol|ute valu|
|00001350| 65 73 20 6f 66 20 43 20 | 67 72 65 61 74 65 72 20 |es of C |greater |
|00001360| 74 68 61 6e 20 73 61 79 | 20 32 30 30 30 20 77 69 |than say| 2000 wi|
|00001370| 6c 6c 20 70 72 6f 62 61 | 62 6c 79 20 6e 6f 74 20 |ll proba|bly not |
|00001380| 62 65 0a 75 73 65 66 75 | 6c 2e 20 54 68 65 20 65 |be.usefu|l. The e|
|00001390| 66 66 65 63 74 20 6f 66 | 20 43 20 64 65 70 65 6e |ffect of| C depen|
|000013a0| 64 73 20 75 70 6f 6e 20 | 68 6f 77 20 6d 61 6e 79 |ds upon |how many|
|000013b0| 20 64 69 67 69 74 73 20 | 69 74 20 68 61 73 20 61 | digits |it has a|
|000013c0| 6e 64 20 69 74 73 0a 73 | 69 67 6e 2e 0a 0a 43 6f |nd its.s|ign...Co|
|000013d0| 6e 73 69 64 65 72 20 70 | 6f 73 69 74 69 76 65 20 |nsider p|ositive |
|000013e0| 28 2b 76 65 29 20 76 61 | 6c 75 65 73 20 6f 66 20 |(+ve) va|lues of |
|000013f0| 43 3a 0a 20 0a 20 20 43 | 20 76 61 6c 75 65 73 20 |C:. . C| values |
|00001400| 66 72 6f 6d 20 30 20 74 | 6f 20 39 39 20 28 31 20 |from 0 t|o 99 (1 |
|00001410| 6f 72 20 32 20 64 69 67 | 69 74 73 29 2c 20 63 61 |or 2 dig|its), ca|
|00001420| 75 73 65 20 6d 65 73 73 | 61 67 65 73 20 74 6f 20 |use mess|ages to |
|00001430| 62 65 20 70 72 69 6e 74 | 65 64 0a 20 20 20 20 69 |be print|ed. i|
|00001440| 6e 20 74 68 65 20 6d 61 | 74 63 68 69 6e 67 20 79 |n the ma|tching y|
|00001450| 65 61 72 20 6f 6e 6c 79 | 3a 0a 20 20 20 20 20 20 |ear only|:. |
|00001460| 20 20 65 67 20 49 66 20 | 43 3d 39 34 20 6d 65 73 | eg If |C=94 mes|
|00001470| 73 61 67 65 20 70 72 69 | 6e 74 65 64 20 69 6e 20 |sage pri|nted in |
|00001480| 44 69 61 72 79 2d 79 65 | 61 72 20 31 39 39 34 20 |Diary-ye|ar 1994 |
|00001490| 6f 6e 6c 79 0a 20 20 20 | 20 20 20 20 20 20 20 20 |only. | |
|000014a0| 49 66 20 43 3d 20 36 20 | 6d 65 73 73 61 67 65 20 |If C= 6 |message |
|000014b0| 70 72 69 6e 74 65 64 20 | 69 6e 20 44 69 61 72 79 |printed |in Diary|
|000014c0| 2d 79 65 61 72 20 32 30 | 30 36 20 6f 6e 6c 79 0a |-year 20|06 only.|
|000014d0| 20 20 20 20 20 20 20 20 | 20 20 20 49 66 20 43 3d | | If C=|
|000014e0| 32 38 20 6d 65 73 73 61 | 67 65 20 70 72 69 6e 74 |28 messa|ge print|
|000014f0| 65 64 20 69 6e 20 44 69 | 61 72 79 2d 79 65 61 72 |ed in Di|ary-year|
|00001500| 20 32 30 32 38 20 6f 6e | 6c 79 2e 0a 20 0a 20 20 | 2028 on|ly.. . |
|00001510| 43 20 76 61 6c 75 65 73 | 20 66 72 6f 6d 20 31 30 |C values| from 10|
|00001520| 30 20 74 6f 20 39 39 39 | 20 28 33 20 64 69 67 69 |0 to 999| (3 digi|
|00001530| 74 73 29 2c 20 63 61 75 | 73 65 20 6d 65 73 73 61 |ts), cau|se messa|
|00001540| 67 65 73 20 74 6f 20 62 | 65 20 70 72 69 6e 74 65 |ges to b|e printe|
|00001550| 64 20 69 6e 0a 20 20 20 | 20 61 6e 79 20 44 69 61 |d in. | any Dia|
|00001560| 72 79 2d 79 65 61 72 2e | 20 41 6c 6c 20 33 2d 64 |ry-year.| All 3-d|
|00001570| 69 67 69 74 20 6e 75 6d | 62 65 72 73 20 68 61 76 |igit num|bers hav|
|00001580| 65 20 74 68 65 20 73 61 | 6d 65 20 65 66 66 65 63 |e the sa|me effec|
|00001590| 74 3b 20 63 68 6f 6f 73 | 65 0a 20 20 20 20 6f 6e |t; choos|e. on|
|000015a0| 65 20 61 6e 64 20 73 74 | 69 63 6b 20 74 6f 20 69 |e and st|ick to i|
|000015b0| 74 2e 20 49 20 75 73 65 | 20 31 31 31 20 62 65 63 |t. I use| 111 bec|
|000015c0| 61 75 73 65 20 69 74 20 | 69 73 20 65 61 73 79 20 |ause it |is easy |
|000015d0| 74 6f 20 74 79 70 65 2e | 0a 20 0a 20 20 43 20 76 |to type.|. . C v|
|000015e0| 61 6c 75 65 73 20 66 72 | 6f 6d 20 31 30 30 30 20 |alues fr|om 1000 |
|000015f0| 75 70 77 61 72 64 73 20 | 28 34 2b 20 64 69 67 69 |upwards |(4+ digi|
|00001600| 74 73 29 2c 20 63 61 75 | 73 65 20 6d 65 73 73 61 |ts), cau|se messa|
|00001610| 67 65 73 20 74 6f 20 62 | 65 20 70 72 69 6e 74 65 |ges to b|e printe|
|00001620| 64 0a 20 20 20 20 69 6e | 20 61 6e 79 20 44 69 61 |d. in| any Dia|
|00001630| 72 79 2d 79 65 61 72 20 | 61 6e 64 20 74 68 65 79 |ry-year |and they|
|00001640| 20 61 72 65 20 69 6d 6d | 65 64 69 61 74 65 6c 79 | are imm|ediately|
|00001650| 20 66 6f 6c 6c 6f 77 65 | 64 20 62 79 20 61 6e 20 | followe|d by an |
|00001660| 69 6e 74 65 67 65 72 0a | 20 20 20 20 6e 75 6d 62 |integer.| numb|
|00001670| 65 72 20 63 61 6c 63 75 | 6c 61 74 65 64 20 62 79 |er calcu|lated by|
|00001680| 20 74 68 65 20 70 72 6f | 67 72 61 6d 2e 0a 20 20 | the pro|gram.. |
|00001690| 20 20 0a 20 20 54 68 65 | 20 6e 75 6d 62 65 72 20 | . The| number |
|000016a0| 6d 61 6b 65 73 20 73 65 | 6e 73 65 20 69 66 20 74 |makes se|nse if t|
|000016b0| 68 6f 75 67 68 74 20 6f | 66 20 61 73 20 74 68 65 |hought o|f as the|
|000016c0| 20 27 61 67 65 27 20 6f | 66 20 61 20 70 65 72 73 | 'age' o|f a pers|
|000016d0| 6f 6e 20 6f 72 20 74 68 | 65 0a 20 20 20 20 27 61 |on or th|e. 'a|
|000016e0| 67 65 27 20 6f 66 20 61 | 6e 20 69 74 65 6d 2e 0a |ge' of a|n item..|
|000016f0| 20 20 46 6f 72 20 74 68 | 69 73 20 74 6f 20 62 65 | For th|is to be|
|00001700| 20 75 73 65 66 75 6c 20 | 74 68 65 20 76 61 6c 75 | useful |the valu|
|00001710| 65 20 6f 66 20 43 20 77 | 69 6c 6c 20 62 65 20 65 |e of C w|ill be e|
|00001720| 69 74 68 65 72 3a 0a 20 | 20 20 20 74 68 65 20 79 |ither:. | the y|
|00001730| 65 61 72 2d 6f 66 2d 62 | 69 72 74 68 20 6f 66 20 |ear-of-b|irth of |
|00001740| 74 68 65 20 70 65 72 73 | 6f 6e 20 77 68 6f 73 65 |the pers|on whose|
|00001750| 20 62 69 72 74 68 64 61 | 79 20 6f 63 63 75 72 73 | birthda|y occurs|
|00001760| 20 6f 6e 20 74 68 61 74 | 20 64 61 79 2c 0a 20 20 | on that| day,. |
|00001770| 20 20 6f 72 20 74 68 65 | 20 79 65 61 72 2d 6f 66 | or the| year-of|
|00001780| 2d 61 63 71 75 69 73 69 | 74 69 6f 6e 20 6f 66 20 |-acquisi|tion of |
|00001790| 74 68 65 20 69 74 65 6d | 20 77 68 6f 73 65 20 61 |the item| whose a|
|000017a0| 6e 6e 69 76 65 72 73 61 | 72 79 20 69 74 20 69 73 |nniversa|ry it is|
|000017b0| 2e 0a 20 20 20 20 0a 20 | 0a 45 78 61 6d 70 6c 65 |.. . |.Example|
|000017c0| 20 31 3a 0a 20 0a 20 20 | 49 66 20 53 61 72 61 68 | 1:. . |If Sarah|
|000017d0| 20 77 61 73 20 62 6f 72 | 6e 20 6f 6e 20 41 75 67 | was bor|n on Aug|
|000017e0| 20 32 34 74 68 20 31 39 | 38 32 2c 20 74 68 65 20 | 24th 19|82, the |
|000017f0| 66 6f 6c 6c 6f 77 69 6e | 67 20 64 61 74 61 20 6d |followin|g data m|
|00001800| 69 67 68 74 20 62 65 0a | 20 20 20 20 73 75 69 74 |ight be.| suit|
|00001810| 61 62 6c 65 3a 0a 20 20 | 20 20 20 0a 20 20 20 20 |able:. | . |
|00001820| 44 41 54 41 20 20 38 2c | 20 20 32 34 2c 20 31 39 |DATA 8,| 24, 19|
|00001830| 38 32 2c 20 20 20 22 53 | 61 72 61 68 20 69 73 20 |82, "S|arah is |
|00001840| 22 0a 20 0a 20 20 20 20 | 49 6e 20 74 68 65 20 44 |". . |In the D|
|00001850| 69 61 72 79 20 66 6f 72 | 20 31 39 39 34 20 28 73 |iary for| 1994 (s|
|00001860| 61 79 29 2c 20 74 68 69 | 73 20 77 6f 75 6c 64 20 |ay), thi|s would |
|00001870| 70 72 69 6e 74 20 74 68 | 65 20 72 65 6d 69 6e 64 |print th|e remind|
|00001880| 65 72 3a 0a 20 20 20 20 | 20 20 20 0a 20 20 20 20 |er:. | . |
|00001890| 20 20 27 53 61 72 61 68 | 20 69 73 20 31 32 27 20 | 'Sarah| is 12' |
|000018a0| 66 6f 72 20 74 68 65 20 | 61 70 70 72 6f 70 72 69 |for the |appropri|
|000018b0| 61 74 65 20 64 61 74 65 | 20 69 65 20 41 75 67 20 |ate date| ie Aug |
|000018c0| 32 34 74 68 2e 0a 20 20 | 20 20 0a 20 0a 45 78 61 |24th.. | . .Exa|
|000018d0| 6d 70 6c 65 20 32 3a 0a | 20 0a 20 20 49 66 20 79 |mple 2:.| . If y|
|000018e0| 6f 75 72 20 63 61 72 20 | 28 6f 72 20 64 6f 67 29 |our car |(or dog)|
|000018f0| 20 77 61 73 20 61 63 71 | 75 69 72 65 64 20 28 62 | was acq|uired (b|
|00001900| 6f 72 6e 29 20 6f 6e 20 | 44 65 63 20 32 39 74 68 |orn) on |Dec 29th|
|00001910| 20 31 39 37 37 2c 20 63 | 6f 6e 73 69 64 65 72 3a | 1977, c|onsider:|
|00001920| 0a 20 0a 20 20 20 20 44 | 41 54 41 20 31 32 2c 20 |. . D|ATA 12, |
|00001930| 20 32 39 2c 20 31 39 37 | 37 2c 20 20 20 22 52 6f | 29, 197|7, "Ro|
|00001940| 76 65 72 20 69 73 20 22 | 0a 20 0a 20 20 20 20 49 |ver is "|. . I|
|00001950| 6e 20 74 68 65 20 44 69 | 61 72 79 20 66 6f 72 20 |n the Di|ary for |
|00001960| 31 39 39 34 20 28 73 61 | 79 29 2c 20 74 68 69 73 |1994 (sa|y), this|
|00001970| 20 77 6f 75 6c 64 20 70 | 72 69 6e 74 20 74 68 65 | would p|rint the|
|00001980| 20 72 65 6d 69 6e 64 65 | 72 3a 0a 20 20 20 20 20 | reminde|r:. |
|00001990| 20 20 0a 20 20 20 20 20 | 20 27 52 6f 76 65 72 20 | . | 'Rover |
|000019a0| 69 73 20 31 37 27 20 66 | 6f 72 20 20 44 65 63 20 |is 17' f|or Dec |
|000019b0| 32 39 74 68 20 31 39 39 | 34 2e 0a 20 20 20 20 20 |29th 199|4.. |
|000019c0| 0a 20 0a 20 20 54 6f 20 | 69 6e 63 6c 75 64 65 20 |. . To |include |
|000019d0| 61 20 63 6f 72 72 65 73 | 70 6f 6e 64 69 6e 67 20 |a corres|ponding |
|000019e0| 6d 65 73 73 61 67 65 20 | 69 6e 20 74 68 65 20 44 |message |in the D|
|000019f0| 65 63 65 6d 62 65 72 20 | 6f 66 20 74 68 65 20 6f |ecember |of the o|
|00001a00| 75 74 67 6f 69 6e 67 0a | 20 20 20 20 79 65 61 72 |utgoing.| year|
|00001a10| 20 28 69 6e 20 74 68 69 | 73 20 63 61 73 65 20 31 | (in thi|s case 1|
|00001a20| 39 39 33 29 2c 20 79 6f | 75 20 77 69 6c 6c 20 6e |993), yo|u will n|
|00001a30| 65 65 64 20 74 6f 20 70 | 75 74 20 69 74 20 69 6e |eed to p|ut it in|
|00001a40| 74 6f 20 74 68 65 0a 20 | 20 20 20 6f 76 65 72 6c |to the. | overl|
|00001a50| 61 70 70 69 6e 67 20 6d | 6f 6e 74 68 20 63 61 6c |apping m|onth cal|
|00001a60| 6c 65 64 20 4d 6f 6e 74 | 68 20 30 20 61 74 20 74 |led Mont|h 0 at t|
|00001a70| 68 65 20 73 74 61 72 74 | 20 6f 66 20 74 68 65 20 |he start| of the |
|00001a80| 64 69 61 72 79 2e 0a 20 | 20 20 20 54 6f 20 64 6f |diary.. | To do|
|00001a90| 20 74 68 69 73 2c 20 79 | 6f 75 20 63 6f 75 6c 64 | this, y|ou could|
|00001aa0| 20 61 64 64 3a 0a 20 20 | 20 20 20 20 20 20 20 0a | add:. | .|
|00001ab0| 20 20 20 20 44 41 54 41 | 20 20 30 2c 20 20 32 39 | DATA| 0, 29|
|00001ac0| 2c 20 31 39 37 37 2c 20 | 20 20 22 52 6f 76 65 72 |, 1977, | "Rover|
|00001ad0| 20 69 73 20 22 0a 20 20 | 20 20 0a 20 20 20 20 49 | is ". | . I|
|00001ae0| 6e 20 74 68 65 20 44 69 | 61 72 79 20 66 6f 72 20 |n the Di|ary for |
|00001af0| 31 39 39 34 20 28 73 61 | 79 29 2c 20 74 68 69 73 |1994 (sa|y), this|
|00001b00| 20 77 6f 75 6c 64 20 70 | 72 69 6e 74 20 74 68 65 | would p|rint the|
|00001b10| 20 72 65 6d 69 6e 64 65 | 72 3a 0a 20 20 20 20 20 | reminde|r:. |
|00001b20| 20 20 0a 20 20 20 20 20 | 20 27 52 6f 76 65 72 20 | . | 'Rover |
|00001b30| 69 73 20 31 36 27 20 66 | 6f 72 20 20 44 65 63 20 |is 16' f|or Dec |
|00001b40| 32 39 74 68 20 31 39 39 | 33 2e 0a 20 20 20 20 20 |29th 199|3.. |
|00001b50| 20 0a 20 20 20 20 20 44 | 65 63 20 39 33 20 61 70 | . D|ec 93 ap|
|00001b60| 70 65 61 72 73 20 61 74 | 20 74 68 65 20 73 74 61 |pears at| the sta|
|00001b70| 72 74 20 6f 66 20 74 68 | 65 20 27 39 34 20 44 69 |rt of th|e '94 Di|
|00001b80| 61 72 79 2e 0a 20 20 20 | 20 20 44 65 63 20 39 34 |ary.. | Dec 94|
|00001b90| 20 61 70 70 65 61 72 73 | 20 61 74 20 74 68 65 20 | appears| at the |
|00001ba0| 20 65 6e 64 20 20 6f 66 | 20 74 68 65 20 27 39 34 | end of| the '94|
|00001bb0| 20 44 69 61 72 79 3b 20 | 66 6f 6c 6c 6f 77 65 64 | Diary; |followed|
|00001bc0| 20 62 79 20 4a 61 6e 20 | 39 35 2e 0a 20 20 20 20 | by Jan |95.. |
|00001bd0| 20 0a 20 20 0a 20 0a 4e | 6f 77 20 43 6f 6e 73 69 | . . .N|ow Consi|
|00001be0| 64 65 72 20 6e 65 67 61 | 74 69 76 65 20 28 2d 76 |der nega|tive (-v|
|00001bf0| 65 29 20 76 61 6c 75 65 | 73 20 6f 66 20 43 3a 0a |e) value|s of C:.|
|00001c00| 20 20 4e 65 67 61 74 69 | 76 65 20 76 61 6c 75 65 | Negati|ve value|
|00001c10| 73 20 6f 66 20 43 20 6d | 61 72 6b 20 64 61 74 65 |s of C m|ark date|
|00001c20| 73 20 61 73 20 27 53 70 | 65 63 69 61 6c 20 64 61 |s as 'Sp|ecial da|
|00001c30| 74 65 73 27 0a 20 20 53 | 70 65 63 69 61 6c 20 64 |tes'. S|pecial d|
|00001c40| 61 74 65 73 20 69 6e 63 | 6c 75 64 65 64 20 69 6e |ates inc|luded in|
|00001c50| 20 74 68 65 20 64 61 74 | 61 2d 6c 69 73 74 2c 20 | the dat|a-list, |
|00001c60| 63 61 6e 20 62 65 20 65 | 78 63 6c 75 64 65 64 20 |can be e|xcluded |
|00001c70| 66 72 6f 6d 20 74 68 65 | 0a 20 20 20 20 79 6f 75 |from the|. you|
|00001c80| 72 20 70 72 69 6e 74 2d | 6f 75 74 20 62 79 20 61 |r print-|out by a|
|00001c90| 6e 20 6f 70 74 69 6f 6e | 20 61 74 20 72 75 6e 2d |n option| at run-|
|00001ca0| 74 69 6d 65 2e 20 54 68 | 69 73 20 65 6e 61 62 6c |time. Th|is enabl|
|00001cb0| 65 73 20 79 6f 75 20 74 | 6f 0a 20 20 20 20 70 72 |es you t|o. pr|
|00001cc0| 65 76 65 6e 74 20 70 65 | 72 73 6f 6e 61 6c 20 6d |event pe|rsonal m|
|00001cd0| 65 73 73 61 67 65 73 20 | 66 72 6f 6d 20 62 65 69 |essages |from bei|
|00001ce0| 6e 67 20 69 6e 63 6c 75 | 64 65 64 20 69 6e 20 61 |ng inclu|ded in a|
|00001cf0| 20 64 69 61 72 79 20 62 | 65 69 6e 67 0a 20 20 20 | diary b|eing. |
|00001d00| 20 70 72 69 6e 74 65 64 | 20 66 6f 72 20 61 20 66 | printed| for a f|
|00001d10| 72 69 65 6e 64 2e 0a 20 | 0a 20 20 54 68 65 20 61 |riend.. |. The a|
|00001d20| 63 74 69 6f 6e 20 6f 66 | 20 43 20 64 65 70 65 6e |ction of| C depen|
|00001d30| 64 73 20 6f 6e 20 69 74 | 73 20 73 69 7a 65 2c 20 |ds on it|s size, |
|00001d40| 6a 75 73 74 20 74 68 65 | 20 73 61 6d 65 20 61 73 |just the| same as|
|00001d50| 20 66 6f 72 20 2b 76 65 | 0a 20 20 20 20 76 61 6c | for +ve|. val|
|00001d60| 75 65 73 2e 20 49 6e 20 | 66 61 63 74 20 79 6f 75 |ues. In |fact you|
|00001d70| 20 73 69 6d 70 6c 79 20 | 63 61 6c 63 75 6c 61 74 | simply |calculat|
|00001d80| 65 20 74 68 65 20 76 61 | 6c 75 65 20 6f 66 20 43 |e the va|lue of C|
|00001d90| 20 72 65 71 75 69 72 65 | 64 0a 20 20 20 20 6e 6f | require|d. no|
|00001da0| 72 6d 61 6c 6c 79 2c 20 | 61 6e 64 20 74 68 65 6e |rmally, |and then|
|00001db0| 20 70 72 65 66 61 63 65 | 20 69 74 20 62 79 20 61 | preface| it by a|
|00001dc0| 20 6d 69 6e 75 73 2d 73 | 69 67 6e 3a 20 27 2d 27 | minus-s|ign: '-'|
|00001dd0| 0a 20 0a 45 78 61 6d 70 | 6c 65 20 33 3a 0a 20 0a |. .Examp|le 3:. .|
|00001de0| 20 20 54 68 65 20 64 61 | 74 65 73 20 61 62 6f 76 | The da|tes abov|
|00001df0| 65 20 61 72 65 20 6d 61 | 64 65 20 73 70 65 63 69 |e are ma|de speci|
|00001e00| 61 6c 20 61 6e 64 20 70 | 75 74 20 69 6e 20 6f 72 |al and p|ut in or|
|00001e10| 64 65 72 3a 0a 20 0a 20 | 20 20 20 44 41 54 41 20 |der:. . | DATA |
|00001e20| 20 30 2c 20 20 32 39 2c | 20 2d 31 39 37 37 2c 20 | 0, 29,| -1977, |
|00001e30| 20 20 22 52 6f 76 65 72 | 20 69 73 20 22 0a 20 20 | "Rover| is ". |
|00001e40| 20 20 44 41 54 41 20 20 | 38 2c 20 20 32 34 2c 20 | DATA |8, 24, |
|00001e50| 2d 31 39 38 32 2c 20 20 | 20 22 53 61 72 61 68 20 |-1982, | "Sarah |
|00001e60| 69 73 20 22 0a 20 20 20 | 20 44 41 54 41 20 31 32 |is ". | DATA 12|
|00001e70| 2c 20 20 32 39 2c 20 2d | 31 39 37 37 2c 20 20 20 |, 29, -|1977, |
|00001e80| 22 52 6f 76 65 72 20 69 | 73 20 22 0a 20 20 20 20 |"Rover i|s ". |
|00001e90| 0a 20 20 4e 6f 77 20 49 | 20 63 61 6e 20 73 74 6f |. Now I| can sto|
|00001ea0| 70 20 74 68 65 73 65 20 | 6d 65 73 73 61 67 65 73 |p these |messages|
|00001eb0| 20 66 72 6f 6d 20 61 70 | 70 65 61 72 69 6e 67 20 | from ap|pearing |
|00001ec0| 69 6e 20 61 20 44 69 61 | 72 79 20 74 68 61 74 20 |in a Dia|ry that |
|00001ed0| 49 20 61 6d 0a 20 20 20 | 20 70 72 69 6e 74 69 6e |I am. | printin|
|00001ee0| 67 20 66 6f 72 20 61 20 | 66 72 69 65 6e 64 2c 20 |g for a |friend, |
|00001ef0| 49 20 63 61 6e 20 63 68 | 6f 6f 73 65 20 74 6f 20 |I can ch|oose to |
|00001f00| 69 6e 63 6c 75 64 65 20 | 74 68 65 6d 20 6f 72 20 |include |them or |
|00001f10| 65 78 63 6c 75 64 65 0a | 20 20 20 20 74 68 65 6d |exclude.| them|
|00001f20| 20 61 74 20 72 75 6e 2d | 74 69 6d 65 20 6a 75 73 | at run-|time jus|
|00001f30| 74 20 70 72 69 6f 72 20 | 74 6f 20 70 72 69 6e 74 |t prior |to print|
|00001f40| 69 6e 67 2e 0a 20 0a 20 | 0a 45 6e 64 20 74 68 65 |ing.. . |.End the|
|00001f50| 20 44 61 74 61 2d 6c 69 | 73 74 20 77 69 74 68 20 | Data-li|st with |
|00001f60| 27 62 6f 67 75 73 27 20 | 4d 6f 6e 74 68 2d 6e 75 |'bogus' |Month-nu|
|00001f70| 6d 62 65 72 2c 20 69 65 | 20 61 20 6e 75 6d 62 65 |mber, ie| a numbe|
|00001f80| 72 20 69 6e 20 74 68 65 | 0a 20 20 70 6f 73 69 74 |r in the|. posit|
|00001f90| 69 6f 6e 20 6f 66 20 61 | 20 4d 6f 6e 74 68 2d 6e |ion of a| Month-n|
|00001fa0| 75 6d 62 65 72 20 62 75 | 74 20 6f 62 76 69 6f 75 |umber bu|t obviou|
|00001fb0| 73 6c 79 20 74 6f 6f 20 | 62 69 67 20 69 65 20 67 |sly too |big ie g|
|00001fc0| 72 65 61 74 65 72 20 74 | 68 61 6e 20 31 33 2e 0a |reater t|han 13..|
|00001fd0| 20 20 0a 20 20 49 20 75 | 73 65 20 39 39 39 20 62 | . I u|se 999 b|
|00001fe0| 75 74 20 61 6e 79 74 68 | 69 6e 67 20 3e 20 31 33 |ut anyth|ing > 13|
|00001ff0| 20 77 69 6c 6c 20 64 6f | 0a 20 20 0a 20 20 54 68 | will do|. . Th|
|00002000| 65 20 72 65 73 74 20 6f | 66 20 74 68 65 20 6c 69 |e rest o|f the li|
|00002010| 6e 65 20 63 61 6e 20 62 | 65 20 62 6c 61 6e 6b 20 |ne can b|e blank |
|00002020| 6f 72 20 63 61 6e 20 63 | 6f 6e 74 61 69 6e 20 63 |or can c|ontain c|
|00002030| 6f 6d 6d 65 6e 74 2e 0a | 20 20 0a 20 20 0a 46 69 |omment..| . .Fi|
|00002040| 6e 61 6c 6c 79 2c 20 61 | 20 6e 6f 74 65 20 6f 6e |nally, a| note on|
|00002050| 20 48 6f 6c 69 64 61 79 | 73 3a 0a 20 20 20 20 20 | Holiday|s:. |
|00002060| 20 20 0a 20 20 43 68 72 | 69 73 74 6d 61 73 20 61 | . Chr|istmas a|
|00002070| 6e 64 20 4e 65 77 2d 79 | 65 61 72 20 48 6f 6c 69 |nd New-y|ear Holi|
|00002080| 64 61 79 73 20 61 72 65 | 20 73 6f 6d 65 74 69 6d |days are| sometim|
|00002090| 65 73 20 64 69 66 66 69 | 63 75 6c 74 2e 0a 0a 20 |es diffi|cult... |
|000020a0| 20 20 20 57 68 65 6e 20 | 43 68 72 69 73 74 6d 61 | When |Christma|
|000020b0| 73 20 6f 72 20 42 6f 78 | 69 6e 67 20 44 61 79 20 |s or Box|ing Day |
|000020c0| 66 61 6c 6c 73 20 6f 6e | 20 61 20 53 61 74 75 72 |falls on| a Satur|
|000020d0| 64 61 79 20 6f 72 20 53 | 75 6e 64 61 79 20 74 68 |day or S|unday th|
|000020e0| 65 0a 20 20 20 20 66 6f | 6c 6c 6f 77 69 6e 67 20 |e. fo|llowing |
|000020f0| 4d 6f 6e 64 61 79 20 61 | 6e 64 20 70 65 72 68 61 |Monday a|nd perha|
|00002100| 70 73 20 54 75 65 73 64 | 61 79 20 77 69 6c 6c 20 |ps Tuesd|ay will |
|00002110| 62 65 20 61 20 48 6f 6c | 69 64 61 79 2e 20 54 68 |be a Hol|iday. Th|
|00002120| 69 73 20 63 61 6e 0a 20 | 20 20 20 62 65 20 74 68 |is can. | be th|
|00002130| 75 6e 6b 20 6f 75 74 20 | 28 6d 79 20 70 65 72 73 |unk out |(my pers|
|00002140| 6f 6e 61 6c 20 70 61 73 | 74 2d 74 65 6e 73 65 20 |onal pas|t-tense |
|00002150| 6f 66 20 74 68 65 20 76 | 65 72 62 20 74 6f 20 74 |of the v|erb to t|
|00002160| 68 69 6e 6b 29 20 6f 72 | 0a 20 20 20 20 69 67 6e |hink) or|. ign|
|00002170| 6f 72 65 64 2e 0a 20 20 | 20 20 0a 20 20 4f 74 68 |ored.. | . Oth|
|00002180| 65 72 20 48 6f 6c 69 64 | 61 79 73 20 61 72 65 20 |er Holid|ays are |
|00002190| 65 61 73 79 20 62 65 63 | 61 75 73 65 20 74 68 65 |easy bec|ause the|
|000021a0| 79 20 61 72 65 20 6d 61 | 69 6e 6c 79 20 4d 6f 6e |y are ma|inly Mon|
|000021b0| 64 61 79 73 2e 0a 20 20 | 20 20 49 20 6e 65 76 65 |days.. | I neve|
|000021c0| 72 20 75 73 65 20 74 68 | 65 20 74 65 72 6d 20 27 |r use th|e term '|
|000021d0| 42 61 6e 6b 20 48 6f 6c | 69 64 61 79 27 20 62 65 |Bank Hol|iday' be|
|000021e0| 63 61 75 73 65 20 49 20 | 68 61 76 65 20 6e 6f 20 |cause I |have no |
|000021f0| 67 72 65 61 74 20 6c 69 | 6b 69 6e 67 0a 20 20 20 |great li|king. |
|00002200| 20 66 6f 72 20 62 61 6e | 6b 73 20 61 6e 64 20 49 | for ban|ks and I|
|00002210| 20 64 6f 6e 27 74 20 77 | 69 73 68 20 74 6f 20 73 | don't w|ish to s|
|00002220| 70 6f 69 6c 20 4d 59 20 | 48 4f 4c 49 44 41 59 20 |poil MY |HOLIDAY |
|00002230| 62 79 20 74 68 69 6e 6b | 69 6e 67 20 74 68 61 74 |by think|ing that|
|00002240| 20 49 20 61 6d 0a 20 20 | 20 20 69 6e 64 65 62 74 | I am. | indebt|
|00002250| 65 64 20 74 6f 20 61 20 | 62 61 6e 6b 20 66 6f 72 |ed to a |bank for|
|00002260| 20 69 74 2e 20 49 6e 20 | 79 6f 75 72 20 64 69 61 | it. In |your dia|
|00002270| 72 79 20 79 6f 75 20 63 | 61 6e 20 63 61 6c 6c 20 |ry you c|an call |
|00002280| 74 68 65 73 65 20 64 61 | 79 73 0a 20 20 20 20 77 |these da|ys. w|
|00002290| 68 61 74 65 76 65 72 20 | 79 6f 75 20 6c 69 6b 65 |hatever |you like|
|000022a0| 2e 0a 20 0a 54 68 65 20 | 6c 69 76 65 20 64 61 74 |.. .The |live dat|
|000022b0| 61 20 63 6f 70 69 65 64 | 20 66 72 6f 6d 20 74 68 |a copied| from th|
|000022c0| 65 20 70 72 6f 67 72 61 | 6d 20 66 6f 6c 6c 6f 77 |e progra|m follow|
|000022d0| 73 3a 0a 20 0a 3a 0a 44 | 41 54 41 20 20 39 33 0a |s:. .:.D|ATA 93.|
|000022e0| 3a 0a 44 41 54 41 20 20 | 30 2c 20 20 32 35 2c 20 |:.DATA |0, 25, |
|000022f0| 20 20 31 31 31 2c 20 20 | 20 22 43 68 72 69 73 74 | 111, | "Christ|
|00002300| 6d 61 73 22 20 20 20 20 | 20 20 20 44 65 63 20 6f |mas" | Dec o|
|00002310| 66 20 79 65 61 72 20 62 | 65 66 6f 72 65 20 44 69 |f year b|efore Di|
|00002320| 61 72 79 20 79 65 61 72 | 0a 44 41 54 41 20 20 30 |ary year|.DATA 0|
|00002330| 2c 20 20 32 36 2c 20 20 | 20 31 31 31 2c 20 20 20 |, 26, | 111, |
|00002340| 22 42 6f 78 69 6e 67 22 | 0a 44 41 54 41 20 20 30 |"Boxing"|.DATA 0|
|00002350| 2c 20 20 32 39 2c 20 2d | 31 39 37 37 2c 20 20 20 |, 29, -|1977, |
|00002360| 22 52 6f 76 65 72 20 69 | 73 20 22 20 20 20 20 20 |"Rover i|s " |
|00002370| 20 20 50 72 6f 67 72 61 | 6d 20 61 64 6a 75 73 74 | Progra|m adjust|
|00002380| 73 20 61 67 65 20 74 6f | 20 79 65 61 72 20 62 65 |s age to| year be|
|00002390| 66 6f 72 65 0a 44 41 54 | 41 20 20 30 2c 20 20 32 |fore.DAT|A 0, 2|
|000023a0| 31 2c 20 20 20 31 31 31 | 2c 20 20 20 22 53 68 6f |1, 111|, "Sho|
|000023b0| 72 74 65 73 74 20 44 61 | 79 22 0a 3a 0a 44 41 54 |rtest Da|y".:.DAT|
|000023c0| 41 20 20 31 2c 20 20 20 | 31 2c 20 20 20 31 31 31 |A 1, |1, 111|
|000023d0| 2c 20 20 20 22 4e 65 77 | 20 59 65 61 72 22 20 20 |, "New| Year" |
|000023e0| 20 20 20 20 20 20 4a 61 | 6e 0a 44 41 54 41 20 20 | Ja|n.DATA |
|000023f0| 31 2c 20 20 20 31 2c 20 | 20 20 20 39 32 2c 20 20 |1, 1, | 92, |
|00002400| 20 22 4e 65 77 20 4c 65 | 61 70 20 59 65 61 72 22 | "New Le|ap Year"|
|00002410| 0a 44 41 54 41 20 20 31 | 2c 20 20 20 31 2c 20 20 |.DATA 1|, 1, |
|00002420| 20 20 39 36 2c 20 20 20 | 22 4e 65 77 20 4c 65 61 | 96, |"New Lea|
|00002430| 70 20 59 65 61 72 22 0a | 44 41 54 41 20 20 31 2c |p Year".|DATA 1,|
|00002440| 20 20 20 33 2c 20 20 20 | 20 39 34 2c 20 20 20 22 | 3, | 94, "|
|00002450| 48 6f 6c 69 64 61 79 22 | 0a 44 41 54 41 20 20 31 |Holiday"|.DATA 1|
|00002460| 2c 20 20 20 32 2c 20 20 | 20 20 39 35 2c 20 20 20 |, 2, | 95, |
|00002470| 22 48 6f 6c 69 64 61 79 | 22 0a 44 41 54 41 20 20 |"Holiday|".DATA |
|00002480| 31 2c 20 20 31 30 2c 20 | 2d 31 39 30 30 2c 20 20 |1, 10, |-1900, |
|00002490| 20 22 47 72 61 6e 6e 79 | 20 6d 69 67 68 74 20 62 | "Granny| might b|
|000024a0| 65 20 22 0a 44 41 54 41 | 20 20 31 2c 20 20 32 30 |e ".DATA| 1, 20|
|000024b0| 2c 20 2d 31 39 38 30 2c | 20 20 20 22 42 69 67 20 |, -1980,| "Big |
|000024c0| 4a 6f 65 20 77 69 6c 6c | 20 62 65 20 22 0a 3a 0a |Joe will| be ".:.|
|000024d0| 44 41 54 41 20 20 32 2c | 20 20 20 38 2c 20 2d 31 |DATA 2,| 8, -1|
|000024e0| 39 36 36 2c 20 20 20 22 | 50 65 74 65 72 20 69 73 |966, "|Peter is|
|000024f0| 20 22 20 20 20 20 20 20 | 20 46 65 62 0a 44 41 54 | " | Feb.DAT|
|00002500| 41 20 20 32 2c 20 20 31 | 34 2c 20 20 20 31 31 31 |A 2, 1|4, 111|
|00002510| 2c 20 20 20 22 56 61 6c | 65 6e 74 69 6e 65 22 0a |, "Val|entine".|
|00002520| 44 41 54 41 20 20 32 2c | 20 20 32 30 2c 20 2d 31 |DATA 2,| 20, -1|
|00002530| 39 38 37 2c 20 20 20 22 | 4c 69 74 74 6c 65 20 4a |987, "|Little J|
|00002540| 6f 65 20 77 69 6c 6c 20 | 62 65 20 22 0a 44 41 54 |oe will |be ".DAT|
|00002550| 41 20 20 32 2c 20 20 32 | 33 2c 20 20 20 20 39 33 |A 2, 2|3, 93|
|00002560| 2c 20 20 20 22 53 68 72 | 6f 76 65 2f 50 61 6e 63 |, "Shr|ove/Panc|
|00002570| 61 6b 65 22 0a 44 41 54 | 41 20 20 32 2c 20 20 31 |ake".DAT|A 2, 1|
|00002580| 35 2c 20 20 20 20 39 34 | 2c 20 20 20 22 53 68 72 |5, 94|, "Shr|
|00002590| 6f 76 65 2f 50 61 6e 63 | 61 6b 65 22 0a 3a 0a 44 |ove/Panc|ake".:.D|
|000025a0| 41 54 41 20 20 33 2c 20 | 20 20 33 2c 20 20 20 20 |ATA 3, | 3, |
|000025b0| 39 32 2c 20 20 20 22 53 | 68 72 6f 76 65 2f 50 61 |92, "S|hrove/Pa|
|000025c0| 6e 63 61 6b 65 22 20 20 | 4d 61 72 0a 44 41 54 41 |ncake" |Mar.DATA|
|000025d0| 20 20 33 2c 20 20 31 30 | 2c 20 20 2d 31 31 31 2c | 3, 10|, -111,|
|000025e0| 20 20 20 22 46 69 64 6f | 27 73 20 42 69 72 74 68 | "Fido|'s Birth|
|000025f0| 64 61 79 22 0a 44 41 54 | 41 20 20 33 2c 20 20 32 |day".DAT|A 3, 2|
|00002600| 30 2c 20 20 20 31 31 31 | 2c 20 20 20 22 53 70 72 |0, 111|, "Spr|
|00002610| 69 6e 67 20 45 71 75 69 | 6e 6f 78 22 0a 44 41 54 |ing Equi|nox".DAT|
|00002620| 41 20 20 33 2c 20 20 32 | 38 2c 20 20 20 20 39 32 |A 3, 2|8, 92|
|00002630| 2c 20 20 20 22 43 6c 6f | 63 6b 73 20 46 6f 72 77 |, "Clo|cks Forw|
|00002640| 61 72 64 22 0a 44 41 54 | 41 20 20 33 2c 20 20 32 |ard".DAT|A 3, 2|
|00002650| 37 2c 20 20 20 20 39 33 | 2c 20 20 20 22 43 6c 6f |7, 93|, "Clo|
|00002660| 63 6b 73 20 46 6f 72 77 | 61 72 64 22 20 20 50 72 |cks Forw|ard" Pr|
|00002670| 6f 76 69 73 69 6f 6e 61 | 6c 20 64 61 74 65 0a 44 |ovisiona|l date.D|
|00002680| 41 54 41 20 20 33 2c 20 | 20 32 36 2c 20 20 20 20 |ATA 3, | 26, |
|00002690| 39 34 2c 20 20 20 22 43 | 6c 6f 63 6b 73 20 46 6f |94, "C|locks Fo|
|000026a0| 72 77 61 72 64 22 20 20 | 50 72 6f 76 69 73 69 6f |rward" |Provisio|
|000026b0| 6e 61 6c 20 64 61 74 65 | 0a 44 41 54 41 20 20 33 |nal date|.DATA 3|
|000026c0| 2c 20 20 32 39 2c 20 20 | 20 20 39 32 2c 20 20 20 |, 29, | 92, |
|000026d0| 22 4d 6f 74 68 65 72 73 | 20 44 61 79 22 0a 44 41 |"Mothers| Day".DA|
|000026e0| 54 41 20 20 33 2c 20 20 | 32 31 2c 20 20 20 20 39 |TA 3, |21, 9|
|000026f0| 33 2c 20 20 20 22 4d 6f | 74 68 65 72 73 20 44 61 |3, "Mo|thers Da|
|00002700| 79 22 0a 44 41 54 41 20 | 20 33 2c 20 20 31 33 2c |y".DATA | 3, 13,|
|00002710| 20 20 20 20 39 34 2c 20 | 20 20 22 4d 6f 74 68 65 | 94, | "Mothe|
|00002720| 72 73 20 44 61 79 22 0a | 3a 0a 44 41 54 41 20 20 |rs Day".|:.DATA |
|00002730| 34 2c 20 20 31 37 2c 20 | 20 20 20 39 32 2c 20 20 |4, 17, | 92, |
|00002740| 20 22 47 6f 6f 64 20 46 | 72 69 64 61 79 22 20 20 | "Good F|riday" |
|00002750| 20 20 20 41 70 72 0a 44 | 41 54 41 20 20 34 2c 20 | Apr.D|ATA 4, |
|00002760| 20 20 39 2c 20 20 20 20 | 39 33 2c 20 20 20 22 47 | 9, |93, "G|
|00002770| 6f 6f 64 20 46 72 69 64 | 61 79 22 0a 44 41 54 41 |ood Frid|ay".DATA|
|00002780| 20 20 34 2c 20 20 20 31 | 2c 20 20 20 20 39 34 2c | 4, 1|, 94,|
|00002790| 20 20 20 22 47 6f 6f 64 | 20 46 72 69 64 61 79 22 | "Good| Friday"|
|000027a0| 0a 44 41 54 41 20 20 34 | 2c 20 20 31 39 2c 20 20 |.DATA 4|, 19, |
|000027b0| 20 20 39 32 2c 20 20 20 | 22 45 61 73 74 65 72 22 | 92, |"Easter"|
|000027c0| 0a 44 41 54 41 20 20 34 | 2c 20 20 32 30 2c 20 20 |.DATA 4|, 20, |
|000027d0| 20 20 39 32 2c 20 20 20 | 22 45 61 73 74 65 72 22 | 92, |"Easter"|
|000027e0| 0a 44 41 54 41 20 20 34 | 2c 20 20 31 31 2c 20 20 |.DATA 4|, 11, |
|000027f0| 20 20 39 33 2c 20 20 20 | 22 45 61 73 74 65 72 22 | 93, |"Easter"|
|00002800| 0a 44 41 54 41 20 20 34 | 2c 20 20 31 32 2c 20 20 |.DATA 4|, 12, |
|00002810| 20 20 39 33 2c 20 20 20 | 22 45 61 73 74 65 72 22 | 93, |"Easter"|
|00002820| 0a 44 41 54 41 20 20 34 | 2c 20 20 20 33 2c 20 20 |.DATA 4|, 3, |
|00002830| 20 20 39 34 2c 20 20 20 | 22 45 61 73 74 65 72 22 | 94, |"Easter"|
|00002840| 0a 44 41 54 41 20 20 34 | 2c 20 20 20 34 2c 20 20 |.DATA 4|, 4, |
|00002850| 20 20 39 34 2c 20 20 20 | 22 45 61 73 74 65 72 22 | 94, |"Easter"|
|00002860| 0a 44 41 54 41 20 20 34 | 2c 20 20 32 39 2c 20 2d |.DATA 4|, 29, -|
|00002870| 31 39 36 37 2c 20 20 20 | 22 52 22 0a 44 41 54 41 |1967, |"R".DATA|
|00002880| 20 20 34 2c 20 20 20 32 | 2c 20 2d 31 39 38 31 2c | 4, 2|, -1981,|
|00002890| 20 20 20 22 4d 22 0a 3a | 0a 44 41 54 41 20 20 35 | "M".:|.DATA 5|
|000028a0| 2c 20 20 20 31 2c 20 20 | 20 31 31 31 2c 20 20 20 |, 1, | 111, |
|000028b0| 22 50 61 79 20 57 61 74 | 65 72 20 42 69 6c 6c 22 |"Pay Wat|er Bill"|
|000028c0| 20 20 4d 61 79 0a 44 41 | 54 41 20 20 35 2c 20 20 | May.DA|TA 5, |
|000028d0| 20 34 2c 20 20 20 20 39 | 32 2c 20 20 20 22 4d 61 | 4, 9|2, "Ma|
|000028e0| 79 64 61 79 22 0a 44 41 | 54 41 20 20 35 2c 20 20 |yday".DA|TA 5, |
|000028f0| 20 33 2c 20 20 20 20 39 | 33 2c 20 20 20 22 4d 61 | 3, 9|3, "Ma|
|00002900| 79 64 61 79 22 0a 44 41 | 54 41 20 20 35 2c 20 20 |yday".DA|TA 5, |
|00002910| 20 32 2c 20 20 20 20 39 | 34 2c 20 20 20 22 4d 61 | 2, 9|4, "Ma|
|00002920| 79 64 61 79 22 0a 44 41 | 54 41 20 20 35 2c 20 20 |yday".DA|TA 5, |
|00002930| 31 30 2c 20 20 2d 31 31 | 31 2c 20 20 20 22 43 61 |10, -11|1, "Ca|
|00002940| 74 74 6f 27 73 20 42 69 | 72 74 68 64 61 79 22 0a |tto's Bi|rthday".|
|00002950| 44 41 54 41 20 20 35 2c | 20 20 32 35 2c 20 20 20 |DATA 5,| 25, |
|00002960| 20 39 32 2c 20 20 20 22 | 53 70 72 69 6e 67 22 0a | 92, "|Spring".|
|00002970| 44 41 54 41 20 20 35 2c | 20 20 33 31 2c 20 20 20 |DATA 5,| 31, |
|00002980| 20 39 33 2c 20 20 20 22 | 53 70 72 69 6e 67 22 0a | 93, "|Spring".|
|00002990| 44 41 54 41 20 20 35 2c | 20 20 33 30 2c 20 20 20 |DATA 5,| 30, |
|000029a0| 20 39 34 2c 20 20 20 22 | 53 70 72 69 6e 67 22 0a | 94, "|Spring".|
|000029b0| 3a 0a 44 41 54 41 20 20 | 36 2c 20 20 31 30 2c 20 |:.DATA |6, 10, |
|000029c0| 2d 31 39 37 33 2c 20 20 | 20 22 53 75 65 20 69 73 |-1973, | "Sue is|
|000029d0| 20 22 20 20 20 20 20 20 | 20 20 20 4a 75 6e 0a 44 | " | Jun.D|
|000029e0| 41 54 41 20 20 36 2c 20 | 20 32 31 2c 20 20 20 31 |ATA 6, | 21, 1|
|000029f0| 31 31 2c 20 20 20 22 4c | 6f 6e 67 65 73 74 20 44 |11, "L|ongest D|
|00002a00| 61 79 22 0a 44 41 54 41 | 20 20 37 2c 20 20 32 39 |ay".DATA| 7, 29|
|00002a10| 2c 20 2d 31 39 38 36 2c | 20 20 20 22 52 69 63 68 |, -1986,| "Rich|
|00002a20| 61 72 64 20 69 73 20 22 | 20 20 20 20 20 4a 6c 79 |ard is "| Jly|
|00002a30| 0a 44 41 54 41 20 20 37 | 2c 20 20 33 30 2c 20 2d |.DATA 7|, 30, -|
|00002a40| 31 39 38 32 2c 20 20 20 | 22 52 6f 62 65 72 74 20 |1982, |"Robert |
|00002a50| 77 69 6c 6c 20 62 65 20 | 22 0a 3a 0a 44 41 54 41 |will be |".:.DATA|
|00002a60| 20 20 38 2c 20 20 32 34 | 2c 20 2d 31 39 38 32 2c | 8, 24|, -1982,|
|00002a70| 20 20 20 22 53 61 72 61 | 68 20 69 73 20 22 20 20 | "Sara|h is " |
|00002a80| 20 20 20 20 20 41 75 67 | 0a 44 41 54 41 20 20 38 | Aug|.DATA 8|
|00002a90| 2c 20 20 33 31 2c 20 20 | 20 20 39 32 2c 20 20 20 |, 31, | 92, |
|00002aa0| 22 4c 61 74 65 20 53 75 | 6d 6d 65 72 22 0a 44 41 |"Late Su|mmer".DA|
|00002ab0| 54 41 20 20 38 2c 20 20 | 33 30 2c 20 20 20 20 39 |TA 8, |30, 9|
|00002ac0| 33 2c 20 20 20 22 4c 61 | 74 65 20 53 75 6d 6d 65 |3, "La|te Summe|
|00002ad0| 72 22 0a 44 41 54 41 20 | 20 38 2c 20 20 32 39 2c |r".DATA | 8, 29,|
|00002ae0| 20 20 20 20 39 34 2c 20 | 20 20 22 4c 61 74 65 20 | 94, | "Late |
|00002af0| 53 75 6d 6d 65 72 22 0a | 3a 0a 44 41 54 41 20 20 |Summer".|:.DATA |
|00002b00| 39 2c 20 20 31 30 2c 20 | 20 2d 31 31 31 2c 20 20 |9, 10, | -111, |
|00002b10| 20 22 4d 4f 54 22 20 20 | 20 20 20 20 20 20 20 20 | "MOT" | |
|00002b20| 20 20 20 53 65 70 0a 44 | 41 54 41 20 20 39 2c 20 | Sep.D|ATA 9, |
|00002b30| 20 32 32 2c 20 20 20 20 | 39 32 2c 20 20 20 22 41 | 22, |92, "A|
|00002b40| 75 74 75 6d 6e 20 45 71 | 75 69 6e 6f 78 22 0a 44 |utumn Eq|uinox".D|
|00002b50| 41 54 41 20 20 39 2c 20 | 20 32 33 2c 20 20 20 20 |ATA 9, | 23, |
|00002b60| 39 33 2c 20 20 20 22 41 | 75 74 75 6d 6e 20 45 71 |93, "A|utumn Eq|
|00002b70| 75 69 6e 6f 78 22 0a 44 | 41 54 41 20 20 39 2c 20 |uinox".D|ATA 9, |
|00002b80| 20 32 33 2c 20 20 20 20 | 39 34 2c 20 20 20 22 41 | 23, |94, "A|
|00002b90| 75 74 75 6d 6e 20 45 71 | 75 69 6e 6f 78 22 0a 3a |utumn Eq|uinox".:|
|00002ba0| 0a 44 41 54 41 20 31 30 | 2c 20 20 20 31 2c 20 20 |.DATA 10|, 1, |
|00002bb0| 20 31 31 31 2c 20 20 20 | 22 50 61 79 20 57 61 74 | 111, |"Pay Wat|
|00002bc0| 65 72 20 42 69 6c 6c 22 | 20 20 4f 63 74 0a 44 41 |er Bill"| Oct.DA|
|00002bd0| 54 41 20 31 30 2c 20 20 | 32 34 2c 20 20 20 20 39 |TA 10, |24, 9|
|00002be0| 32 2c 20 20 20 22 43 6c | 6f 63 6b 73 20 42 61 63 |2, "Cl|ocks Bac|
|00002bf0| 6b 22 0a 44 41 54 41 20 | 31 30 2c 20 20 33 30 2c |k".DATA |10, 30,|
|00002c00| 20 20 20 20 39 33 2c 20 | 20 20 22 43 6c 6f 63 6b | 93, | "Clock|
|00002c10| 73 20 42 61 63 6b 22 20 | 20 20 20 20 50 72 6f 76 |s Back" | Prov|
|00002c20| 69 73 69 6f 6e 61 6c 20 | 64 61 74 65 0a 44 41 54 |isional |date.DAT|
|00002c30| 41 20 31 30 2c 20 20 33 | 31 2c 20 20 20 20 39 34 |A 10, 3|1, 94|
|00002c40| 2c 20 20 20 22 43 6c 6f | 63 6b 73 20 42 61 63 6b |, "Clo|cks Back|
|00002c50| 22 20 20 20 20 20 50 72 | 6f 76 69 73 69 6f 6e 61 |" Pr|ovisiona|
|00002c60| 6c 20 64 61 74 65 0a 3a | 0a 44 41 54 41 20 31 31 |l date.:|.DATA 11|
|00002c70| 2c 20 20 20 35 2c 20 20 | 20 31 31 31 2c 20 20 20 |, 5, | 111, |
|00002c80| 22 42 6f 6e 66 69 72 65 | 22 20 20 20 20 20 20 20 |"Bonfire|" |
|00002c90| 20 20 4e 6f 76 0a 44 41 | 54 41 20 31 31 2c 20 20 | Nov.DA|TA 11, |
|00002ca0| 20 35 2c 20 2d 31 39 38 | 33 2c 20 20 20 22 42 6f | 5, -198|3, "Bo|
|00002cb0| 6e 66 69 72 65 2c 20 44 | 61 6e 69 65 6c 20 69 73 |nfire, D|aniel is|
|00002cc0| 20 22 0a 3a 0a 44 41 54 | 41 20 31 32 2c 20 20 32 | ".:.DAT|A 12, 2|
|00002cd0| 31 2c 20 20 20 31 31 31 | 2c 20 20 20 22 53 68 6f |1, 111|, "Sho|
|00002ce0| 72 74 65 73 74 20 44 61 | 79 22 20 20 20 20 44 65 |rtest Da|y" De|
|00002cf0| 63 0a 44 41 54 41 20 31 | 32 2c 20 20 32 35 2c 20 |c.DATA 1|2, 25, |
|00002d00| 20 20 31 31 31 2c 20 20 | 20 22 43 68 72 69 73 74 | 111, | "Christ|
|00002d10| 6d 61 73 22 0a 44 41 54 | 41 20 31 32 2c 20 20 32 |mas".DAT|A 12, 2|
|00002d20| 36 2c 20 20 20 31 31 31 | 2c 20 20 20 22 42 6f 78 |6, 111|, "Box|
|00002d30| 69 6e 67 22 0a 44 41 54 | 41 20 31 32 2c 20 20 32 |ing".DAT|A 12, 2|
|00002d40| 38 2c 20 20 20 20 39 32 | 2c 20 20 20 22 48 6f 6c |8, 92|, "Hol|
|00002d50| 69 64 61 79 22 0a 44 41 | 54 41 20 31 32 2c 20 20 |iday".DA|TA 12, |
|00002d60| 32 38 2c 20 20 20 20 39 | 33 2c 20 20 20 22 48 6f |28, 9|3, "Ho|
|00002d70| 6c 69 64 61 79 22 0a 44 | 41 54 41 20 31 32 2c 20 |liday".D|ATA 12, |
|00002d80| 20 32 37 2c 20 20 20 20 | 39 33 2c 20 20 20 22 48 | 27, |93, "H|
|00002d90| 6f 6c 69 64 61 79 22 0a | 44 41 54 41 20 31 32 2c |oliday".|DATA 12,|
|00002da0| 20 20 32 37 2c 20 20 20 | 20 39 34 2c 20 20 20 22 | 27, | 94, "|
|00002db0| 48 6f 6c 69 64 61 79 22 | 0a 44 41 54 41 20 31 32 |Holiday"|.DATA 12|
|00002dc0| 2c 20 20 32 39 2c 20 2d | 31 39 37 37 2c 20 20 20 |, 29, -|1977, |
|00002dd0| 22 52 6f 76 65 72 20 69 | 73 20 22 0a 3a 0a 44 41 |"Rover i|s ".:.DA|
|00002de0| 54 41 20 31 33 2c 20 20 | 20 31 2c 20 20 20 31 31 |TA 13, | 1, 11|
|00002df0| 31 2c 20 20 20 22 4e 65 | 77 20 59 65 61 72 22 20 |1, "Ne|w Year" |
|00002e00| 20 20 20 20 20 20 20 4a | 61 6e 20 6f 66 20 79 65 | J|an of ye|
|00002e10| 61 72 20 66 6f 6c 6c 6f | 77 69 6e 67 20 44 69 61 |ar follo|wing Dia|
|00002e20| 72 79 20 79 65 61 72 0a | 44 41 54 41 20 31 33 2c |ry year.|DATA 13,|
|00002e30| 20 20 20 31 2c 20 20 20 | 20 39 36 2c 20 20 20 22 | 1, | 96, "|
|00002e40| 4e 65 77 20 4c 65 61 70 | 20 59 65 61 72 22 0a 3a |New Leap| Year".:|
|00002e50| 0a 44 41 54 41 20 39 39 | 39 20 20 20 20 20 20 20 |.DATA 99|9 |
|00002e60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002e70| 20 20 20 20 20 20 20 20 | 20 20 45 6e 64 20 6f 66 | | End of|
|00002e80| 20 44 61 74 61 0a 46 69 | 6c 65 44 61 74 61 82 50 | Data.Fi|leData.P|
|00002e90| 72 69 6e 74 44 69 61 72 | 79 00 5e 68 00 00 45 fb |rintDiar|y.^h..E.|
|00002ea0| ff ff 3d 18 23 33 03 00 | 73 3f 0d 00 01 11 f4 20 |..=.#3..|s?..... |
|00002eb0| 3e 44 65 73 6b 5f 64 69 | 61 72 79 0d 00 02 5c f4 |>Desk_di|ary...\.|
|00002ec0| 20 50 72 6f 76 69 64 65 | 73 20 61 20 70 72 69 6e | Provide|s a prin|
|00002ed0| 74 65 64 20 44 65 73 6b | 2d 64 69 61 72 79 20 77 |ted Desk|-diary w|
|00002ee0| 69 74 68 20 70 65 72 73 | 6f 6e 61 6c 69 73 65 64 |ith pers|onalised|
|00002ef0| 20 61 6e 6e 69 76 65 72 | 73 61 72 79 2d 64 61 74 | anniver|sary-dat|
|00002f00| 65 73 2c 20 63 61 6c 63 | 75 6c 61 74 65 64 2d 61 |es, calc|ulated-a|
|00002f10| 67 65 73 20 65 74 63 0d | 00 03 05 f4 0d 00 04 18 |ges etc.|........|
|00002f20| f4 20 28 43 29 20 41 20 | 48 20 45 76 61 6e 73 20 |. (C) A |H Evans |
|00002f30| 31 39 39 33 0d 00 05 05 | f4 0d 00 06 46 f4 20 46 |1993....|....F. F|
|00002f40| 69 72 73 74 20 77 72 69 | 74 74 65 6e 20 6f 6e 20 |irst wri|tten on |
|00002f50| 61 20 42 42 43 20 4d 6f | 64 65 6c 20 42 20 61 6e |a BBC Mo|del B an|
|00002f60| 64 20 75 73 65 64 20 73 | 75 63 63 65 73 73 66 75 |d used s|uccessfu|
|00002f70| 6c 6c 79 20 66 6f 72 20 | 35 20 79 65 61 72 73 0d |lly for |5 years.|
|00002f80| 00 07 53 f4 20 52 65 77 | 72 69 74 74 65 6e 20 28 |..S. Rew|ritten (|
|00002f90| 31 39 39 32 29 20 69 6e | 20 42 61 73 69 63 20 35 |1992) in| Basic 5|
|00002fa0| 20 6f 6e 20 61 6e 20 41 | 33 30 30 30 20 61 6e 64 | on an A|3000 and|
|00002fb0| 20 73 75 69 74 61 62 6c | 65 20 66 6f 72 20 41 72 | suitabl|e for Ar|
|00002fc0| 63 68 69 6d 65 64 65 73 | 20 63 6f 6d 70 75 74 65 |chimedes| compute|
|00002fd0| 72 73 0d 00 08 2c f4 20 | 54 68 69 73 20 69 73 20 |rs...,. |This is |
|00002fe0| 76 65 72 73 69 6f 6e 20 | 32 2e 31 30 20 6f 66 20 |version |2.10 of |
|00002ff0| 53 65 70 74 65 6d 62 65 | 72 20 31 39 39 33 0d 00 |Septembe|r 1993..|
|00003000| 09 05 f4 0d 00 0a 05 f4 | 0d 00 0b 40 f4 20 54 68 |........|...@. Th|
|00003010| 65 72 65 20 69 73 20 61 | 20 46 75 6c 6c 20 44 61 |ere is a| Full Da|
|00003020| 74 61 20 44 65 73 63 72 | 69 70 74 69 6f 6e 20 61 |ta Descr|iption a|
|00003030| 74 20 74 68 65 20 45 6e | 64 20 6f 66 20 74 68 65 |t the En|d of the|
|00003040| 20 50 72 6f 67 72 61 6d | 0d 00 0c 05 f4 0d 00 0d | Program|........|
|00003050| 4d f4 20 54 68 69 73 20 | 70 72 6f 67 72 61 6d 20 |M. This |program |
|00003060| 68 61 73 20 6e 6f 20 47 | 4f 54 4f 20 69 6e 73 74 |has no G|OTO inst|
|00003070| 72 75 63 74 69 6f 6e 73 | 3b 20 69 74 20 77 61 73 |ructions|; it was|
|00003080| 20 64 65 76 65 6c 6f 70 | 65 64 20 75 73 69 6e 67 | develop|ed using|
|00003090| 20 44 65 73 6b 45 64 69 | 74 2e 0d 00 0e 48 f4 20 | DeskEdi|t....H. |
|000030a0| 54 68 65 20 70 72 6f 67 | 72 61 6d 20 63 6f 6e 74 |The prog|ram cont|
|000030b0| 72 6f 6c 73 20 74 68 65 | 20 70 72 69 6e 74 65 72 |rols the| printer|
|000030c0| 20 64 69 72 65 63 74 6c | 79 20 69 65 3a 20 6e 6f | directl|y ie: no|
|000030d0| 20 64 72 69 76 65 72 20 | 69 73 20 6e 65 65 64 65 | driver |is neede|
|000030e0| 64 2e 0d 00 0f 26 f4 20 | 49 74 20 77 61 73 20 74 |d....&. |It was t|
|000030f0| 65 73 74 65 64 20 6f 6e | 20 61 6e 20 45 70 73 6f |ested on| an Epso|
|00003100| 6e 20 46 58 2d 38 30 2e | 0d 00 10 4a f4 20 54 6f |n FX-80.|...J. To|
|00003110| 20 63 68 61 6e 67 65 20 | 66 6f 6e 74 73 20 6f 72 | change |fonts or|
|00003120| 20 61 64 6a 75 73 74 20 | 66 6f 72 20 69 6e 63 6f | adjust |for inco|
|00003130| 6d 70 61 74 69 62 6c 65 | 20 70 72 69 6e 74 65 72 |mpatible| printer|
|00003140| 73 2c 20 61 6c 74 65 72 | 20 74 68 65 20 50 72 69 |s, alter| the Pri|
|00003150| 6e 74 0d 00 11 4a f4 20 | 50 72 6f 63 65 64 75 72 |nt...J. |Procedur|
|00003160| 65 73 20 61 74 20 74 68 | 65 20 65 6e 64 2e 20 52 |es at th|e end. R|
|00003170| 65 66 65 72 20 74 6f 20 | 63 6f 72 72 65 73 70 6f |efer to |correspo|
|00003180| 6e 64 69 6e 67 20 63 6f | 6e 74 72 6f 6c 20 63 6f |nding co|ntrol co|
|00003190| 64 65 73 20 66 6f 72 20 | 79 6f 75 72 0d 00 12 47 |des for |your...G|
|000031a0| f4 20 6f 77 6e 20 70 72 | 69 6e 74 65 72 2e 20 4e |. own pr|inter. N|
|000031b0| 6f 74 65 20 74 68 61 74 | 20 61 20 70 69 74 63 68 |ote that| a pitch|
|000031c0| 20 6f 66 20 31 32 20 6c | 69 6e 65 73 2f 69 6e 63 | of 12 l|ines/inc|
|000031d0| 68 20 69 73 20 73 65 74 | 2d 75 70 20 69 6e 73 74 |h is set|-up inst|
|000031e0| 65 61 64 0d 00 13 47 f4 | 20 6f 66 20 74 68 65 20 |ead...G.| of the |
|000031f0| 64 65 66 61 75 6c 74 20 | 36 20 6c 69 6e 65 73 2f |default |6 lines/|
|00003200| 69 6e 63 68 2e 20 56 65 | 72 74 69 63 61 6c 20 74 |inch. Ve|rtical t|
|00003210| 61 62 75 6c 61 74 69 6f | 6e 20 69 73 20 73 65 74 |abulatio|n is set|
|00003220| 20 74 6f 20 67 69 76 65 | 20 61 0d 00 14 4a f4 20 | to give| a...J. |
|00003230| 68 61 6c 66 2d 70 61 67 | 65 20 74 61 62 20 61 6e |half-pag|e tab an|
|00003240| 64 20 6f 6e 65 20 61 6c | 6c 6f 77 69 6e 67 20 70 |d one al|lowing p|
|00003250| 72 69 6e 74 69 6e 67 20 | 6a 75 73 74 20 62 65 6c |rinting |just bel|
|00003260| 6f 77 20 74 68 65 20 70 | 65 72 66 6f 72 61 74 69 |ow the p|erforati|
|00003270| 6f 6e 73 2e 0d 00 15 22 | f4 20 52 65 76 65 72 73 |ons...."|. Revers|
|00003280| 69 6e 67 20 69 73 20 61 | 6c 73 6f 20 6e 65 63 65 |ing is a|lso nece|
|00003290| 73 73 61 72 79 2e 0d 00 | 16 36 f4 20 31 31 20 69 |ssary...|.6. 11 i|
|000032a0| 6e 63 68 20 78 20 32 34 | 31 20 6d 6d 20 66 61 6e |nch x 24|1 mm fan|
|000032b0| 66 6f 6c 64 20 70 61 70 | 65 72 20 69 73 20 6e 6f |fold pap|er is no|
|000032c0| 72 6d 61 6c 6c 79 20 75 | 73 65 64 2e 0d 00 17 05 |rmally u|sed.....|
|000032d0| f4 0d 00 18 05 f4 0d 00 | 19 3c f4 20 46 6f 6c 6c |........|.<. Foll|
|000032e0| 6f 77 20 53 65 74 2d 75 | 70 20 50 72 6f 63 65 64 |ow Set-u|p Proced|
|000032f0| 75 72 65 20 42 65 6c 6f | 77 20 74 6f 20 61 64 6a |ure Belo|w to adj|
|00003300| 75 73 74 20 66 6f 72 20 | 65 61 63 68 20 79 65 61 |ust for |each yea|
|00003310| 72 3a 0d 00 1a 4e f4 20 | 31 2e 20 53 65 74 20 79 |r:...N. |1. Set y|
|00003320| 65 61 72 2c 20 61 6e 64 | 20 76 61 72 69 61 62 6c |ear, and| variabl|
|00003330| 65 20 68 6f 6c 69 64 61 | 79 73 20 69 6e 20 44 69 |e holida|ys in Di|
|00003340| 61 72 79 2d 64 61 74 65 | 73 20 44 61 74 61 20 61 |ary-date|s Data a|
|00003350| 74 20 45 6e 64 20 6f 66 | 20 50 72 6f 67 72 61 6d |t End of| Program|
|00003360| 0d 00 1b 05 f4 0d 00 1c | 3f f4 20 32 2e 20 4f 74 |........|?. 2. Ot|
|00003370| 68 65 72 20 69 74 65 6d | 73 20 61 72 65 20 63 6f |her item|s are co|
|00003380| 6e 74 72 6f 6c 6c 65 64 | 20 77 68 65 6e 20 74 68 |ntrolled| when th|
|00003390| 65 20 70 72 6f 67 72 61 | 6d 20 69 73 20 72 75 6e |e progra|m is run|
|000033a0| 20 65 67 3a 0d 00 1d 05 | f4 0d 00 1e 4b f4 20 33 | eg:....|....K. 3|
|000033b0| 2e 20 53 65 74 20 6f 70 | 74 25 3d 30 20 26 20 31 |. Set op|t%=0 & 1|
|000033c0| 20 66 6f 72 20 50 72 65 | 76 69 65 77 73 20 74 6f | for Pre|views to|
|000033d0| 20 63 68 65 63 6b 20 72 | 61 77 20 64 61 74 61 2c | check r|aw data,|
|000033e0| 20 6d 65 73 73 61 67 65 | 73 2c 20 61 6e 64 20 64 | message|s, and d|
|000033f0| 61 74 65 73 0d 00 1f 05 | f4 0d 00 20 45 f4 20 34 |ates....|... E. 4|
|00003400| 2e 20 54 68 65 6e 20 53 | 65 74 20 6f 70 74 25 3d |. Then S|et opt%=|
|00003410| 34 20 66 6f 72 20 46 69 | 6e 61 6c 20 50 72 69 6e |4 for Fi|nal Prin|
|00003420| 74 20 77 68 69 63 68 20 | 74 61 6b 65 73 20 61 62 |t which |takes ab|
|00003430| 6f 75 74 20 35 30 20 6d | 69 6e 75 74 65 73 0d 00 |out 50 m|inutes..|
|00003440| 21 05 f4 0d 00 22 57 f4 | 20 35 2e 20 6f 70 74 25 |!...."W.| 5. opt%|
|00003450| 3d 33 20 77 69 6c 6c 20 | 67 69 76 65 20 61 20 70 |=3 will |give a p|
|00003460| 61 72 74 69 61 6c 20 70 | 72 69 6e 74 20 69 66 20 |artial p|rint if |
|00003470| 79 6f 75 72 20 70 72 69 | 6e 74 65 72 20 66 6f 75 |your pri|nter fou|
|00003480| 6c 73 20 75 70 20 28 6d | 79 20 45 70 73 6f 6e 20 |ls up (m|y Epson |
|00003490| 6e 65 76 65 72 20 68 61 | 73 29 0d 00 23 05 f4 0d |never ha|s)..#...|
|000034a0| 00 24 46 f4 20 36 2e 20 | 46 6f 72 20 61 20 64 65 |.$F. 6. |For a de|
|000034b0| 74 61 69 6c 65 64 20 73 | 63 72 65 65 6e 2d 6f 6e |tailed s|creen-on|
|000034c0| 6c 79 20 70 72 65 76 69 | 65 77 2c 20 75 73 65 20 |ly previ|ew, use |
|000034d0| 61 20 70 72 69 6e 74 69 | 6e 67 20 6f 70 74 69 6f |a printi|ng optio|
|000034e0| 6e 20 62 75 74 0d 00 25 | 46 f4 20 20 20 20 20 20 |n but..%|F. |
|000034f0| 20 72 65 70 6c 79 20 4e | 20 28 3d 4e 4f 29 20 77 | reply N| (=NO) w|
|00003500| 68 65 6e 20 61 73 6b 65 | 64 20 74 6f 20 63 6f 6e |hen aske|d to con|
|00003510| 66 69 72 6d 20 74 68 61 | 74 20 74 68 65 20 70 72 |firm tha|t the pr|
|00003520| 69 6e 74 65 72 20 69 73 | 20 6f 6e 0d 00 26 05 3a |inter is| on..&.:|
|00003530| 0d 00 27 1a ee 20 85 20 | ef 33 3a 20 f1 20 f6 24 |..'.. . |.3: . .$|
|00003540| 3b 22 20 20 22 3b 9e 3b | 3a fa 0d 00 28 05 3a 0d |;" ";.;|:...(.:.|
|00003550| 00 29 28 66 69 72 73 74 | 25 3d b9 3a 63 68 61 6e |.)(first|%=.:chan|
|00003560| 67 65 5f 79 65 61 72 25 | 3d a3 3a 65 6e 64 6f 66 |ge_year%|=.:endof|
|00003570| 64 61 74 61 25 3d a3 0d | 00 2a 11 de 20 6d 73 74 |data%=..|.*.. mst|
|00003580| 61 72 74 25 28 31 35 29 | 0d 00 2b 4e de 20 6d 6f |art%(15)|..+N. mo|
|00003590| 6e 74 68 5f 6c 69 73 74 | 25 28 32 30 30 29 2c 64 |nth_list|%(200),d|
|000035a0| 61 74 65 5f 6c 69 73 74 | 25 28 32 30 30 29 2c 63 |ate_list|%(200),c|
|000035b0| 6f 6e 64 69 74 69 6f 6e | 5f 6c 69 73 74 25 28 32 |ondition|_list%(2|
|000035c0| 30 30 29 2c 6d 65 73 73 | 61 67 65 5f 6c 69 73 74 |00),mess|age_list|
|000035d0| 24 28 32 30 30 29 0d 00 | 2c 26 e3 20 69 25 3d 30 |$(200)..|,&. i%=0|
|000035e0| 20 b8 20 31 35 3a 20 6d | 73 74 61 72 74 25 28 69 | . 15: m|start%(i|
|000035f0| 25 29 3d 2d 31 3a ed 3a | 69 25 3d 30 0d 00 2d 05 |%)=-1:.:|i%=0..-.|
|00003600| 3a 0d 00 2e 05 3a 0d 00 | 2f 35 f4 20 52 65 61 64 |:....:..|/5. Read|
|00003610| 20 44 69 61 72 79 2d 64 | 61 74 65 73 20 64 61 74 | Diary-d|ates dat|
|00003620| 61 3a 20 46 69 72 73 74 | 20 69 74 65 6d 20 69 73 |a: First| item is|
|00003630| 20 44 69 61 72 79 2d 79 | 65 61 72 0d 00 30 1d f3 | Diary-y|ear..0..|
|00003640| 20 79 72 25 3a 20 79 65 | 61 72 25 3d 94 28 79 72 | yr%: ye|ar%=.(yr|
|00003650| 25 29 20 83 20 31 30 30 | 0d 00 31 2d 79 65 61 72 |%) . 100|..1-year|
|00003660| 24 3d c3 79 65 61 72 25 | 3a e7 20 a9 28 79 65 61 |$=.year%|:. .(yea|
|00003670| 72 24 29 3c 32 20 79 65 | 61 72 24 3d 22 30 22 2b |r$)<2 ye|ar$="0"+|
|00003680| 79 65 61 72 24 0d 00 32 | 3b e7 20 79 65 61 72 25 |year$..2|;. year%|
|00003690| 3e 3d 35 31 20 66 75 6c | 6c 79 65 61 72 25 3d 31 |>=51 ful|lyear%=1|
|000036a0| 39 30 30 2b 79 65 61 72 | 25 20 8b 20 66 75 6c 6c |900+year|% . full|
|000036b0| 79 65 61 72 25 3d 32 30 | 30 30 2b 79 65 61 72 25 |year%=20|00+year%|
|000036c0| 0d 00 33 2f e7 20 79 65 | 61 72 25 3d 20 30 20 6c |..3/. ye|ar%= 0 l|
|000036d0| 61 73 74 79 65 61 72 25 | 3d 39 39 20 8b 20 6c 61 |astyear%|=99 . la|
|000036e0| 73 74 79 65 61 72 25 3d | 79 65 61 72 25 2d 31 0d |styear%=|year%-1.|
|000036f0| 00 34 41 6c 61 73 74 79 | 65 61 72 24 3d c3 6c 61 |.4Alasty|ear$=.la|
|00003700| 73 74 79 65 61 72 25 3a | e7 20 a9 28 6c 61 73 74 |styear%:|. .(last|
|00003710| 79 65 61 72 24 29 3c 32 | 20 6c 61 73 74 79 65 61 |year$)<2| lastyea|
|00003720| 72 24 3d 22 30 22 2b 6c | 61 73 74 79 65 61 72 24 |r$="0"+l|astyear$|
|00003730| 0d 00 35 2f e7 20 79 65 | 61 72 25 3d 39 39 20 6e |..5/. ye|ar%=99 n|
|00003740| 65 78 74 79 65 61 72 25 | 3d 20 30 20 8b 20 6e 65 |extyear%|= 0 . ne|
|00003750| 78 74 79 65 61 72 25 3d | 79 65 61 72 25 2b 31 0d |xtyear%=|year%+1.|
|00003760| 00 36 41 6e 65 78 74 79 | 65 61 72 24 3d c3 6e 65 |.6Anexty|ear$=.ne|
|00003770| 78 74 79 65 61 72 25 3a | e7 20 a9 28 6e 65 78 74 |xtyear%:|. .(next|
|00003780| 79 65 61 72 24 29 3c 32 | 20 6e 65 78 74 79 65 61 |year$)<2| nextyea|
|00003790| 72 24 3d 22 30 22 2b 6e | 65 78 74 79 65 61 72 24 |r$="0"+n|extyear$|
|000037a0| 0d 00 37 05 3a 0d 00 38 | 05 3a 0d 00 39 46 f4 20 |..7.:..8|.:..9F. |
|000037b0| 52 65 61 64 20 44 69 61 | 72 79 2d 64 61 74 65 73 |Read Dia|ry-dates|
|000037c0| 20 64 61 74 61 20 69 6e | 20 6f 72 64 65 72 3a 20 | data in| order: |
|000037d0| 20 4d 6f 6e 74 68 2c 20 | 44 61 74 65 2c 20 43 6f | Month, |Date, Co|
|000037e0| 6e 64 69 74 69 6f 6e 2c | 20 4d 65 73 73 61 67 65 |ndition,| Message|
|000037f0| 0d 00 3a 10 f5 3a e7 20 | 66 69 72 73 74 25 20 8c |..:..:. |first% .|
|00003800| 0d 00 3b 41 20 20 f3 20 | 6d 6f 6e 74 68 25 3a 70 |..;A . |month%:p|
|00003810| 72 65 76 69 6f 75 73 5f | 6d 6f 6e 74 68 25 3d 6d |revious_|month%=m|
|00003820| 6f 6e 74 68 25 3a 6d 73 | 74 61 72 74 25 28 6d 6f |onth%:ms|tart%(mo|
|00003830| 6e 74 68 25 29 3d 69 25 | 3a 66 69 72 73 74 25 3d |nth%)=i%|:first%=|
|00003840| a3 0d 00 3c 37 cc 20 f3 | 20 6d 6f 6e 74 68 25 3a |...<7. .| month%:|
|00003850| 20 f4 20 52 65 61 64 20 | 61 6e 64 20 74 65 73 74 | . Read |and test|
|00003860| 20 66 69 72 73 74 20 64 | 61 74 61 2d 69 74 65 6d | first d|ata-item|
|00003870| 20 28 4d 6f 6e 74 68 29 | 0d 00 3d 05 cd 0d 00 3e | (Month)|..=....>|
|00003880| 11 e7 20 6d 6f 6e 74 68 | 25 3e 31 33 20 8c 0d 00 |.. month|%>13 ...|
|00003890| 3f 17 20 20 6c 61 73 74 | 64 61 74 75 6d 25 3d 6d |?. last|datum%=m|
|000038a0| 6f 6e 74 68 25 0d 00 40 | 4b 20 20 65 6e 64 6f 66 |onth%..@|K endof|
|000038b0| 64 61 74 61 25 3d b9 3a | 6d 6f 6e 74 68 5f 6c 69 |data%=.:|month_li|
|000038c0| 73 74 25 28 69 25 29 3d | 39 39 39 3a 20 f4 20 53 |st%(i%)=|999: . S|
|000038d0| 74 6f 70 20 72 65 61 64 | 69 6e 67 20 61 74 20 4d |top read|ing at M|
|000038e0| 6f 6e 74 68 20 3e 31 33 | 20 73 61 79 20 39 39 39 |onth >13| say 999|
|000038f0| 0d 00 41 05 cc 0d 00 42 | 2b 20 20 e7 20 6d 6f 6e |..A....B|+ . mon|
|00003900| 74 68 25 3c 30 20 84 20 | 6d 6f 6e 74 68 25 3c 70 |th%<0 . |month%<p|
|00003910| 72 65 76 69 6f 75 73 5f | 6d 6f 6e 74 68 25 20 8c |revious_|month% .|
|00003920| 0d 00 43 3b 20 20 20 20 | db 3a 20 f1 27 22 20 44 |..C; |.: .'" D|
|00003930| 61 74 61 2d 6c 69 73 74 | 20 45 72 72 6f 72 3a 20 |ata-list| Error: |
|00003940| 20 20 20 4d 6f 6e 74 68 | 20 28 22 3b 69 25 3b 22 | Month| (";i%;"|
|00003950| 29 3d 20 22 3b 6d 6f 6e | 74 68 25 0d 00 44 44 20 |)= ";mon|th%..DD |
|00003960| 20 20 20 f1 27 22 20 4d | 6f 6e 74 68 20 6e 75 6d | .'" M|onth num|
|00003970| 62 65 72 20 6d 75 73 74 | 20 72 69 73 65 20 66 72 |ber must| rise fr|
|00003980| 6f 6d 20 30 20 28 6f 72 | 20 6d 6f 72 65 29 20 74 |om 0 (or| more) t|
|00003990| 6f 20 31 33 20 28 6f 72 | 20 6c 65 73 73 29 22 0d |o 13 (or| less)".|
|000039a0| 00 45 09 20 20 20 20 fa | 0d 00 46 07 20 20 cd 0d |.E. .|..F. ..|
|000039b0| 00 47 05 cd 0d 00 48 14 | e7 20 ac 20 65 6e 64 6f |.G....H.|. . endo|
|000039c0| 66 64 61 74 61 25 20 8c | 0d 00 49 36 20 20 f3 20 |fdata% .|..I6 . |
|000039d0| 64 61 74 65 25 3a 20 f4 | 20 52 65 61 64 20 61 6e |date%: .| Read an|
|000039e0| 64 20 74 65 73 74 20 73 | 65 63 6f 6e 64 20 64 61 |d test s|econd da|
|000039f0| 74 61 2d 69 74 65 6d 20 | 28 44 61 74 65 29 0d 00 |ta-item |(Date)..|
|00003a00| 4a 1c 20 20 e7 20 64 61 | 74 65 25 3c 31 20 84 20 |J. . da|te%<1 . |
|00003a10| 64 61 74 65 25 3e 33 31 | 20 8c 0d 00 4b 39 20 20 |date%>31| ...K9 |
|00003a20| 20 20 db 3a 20 f1 27 22 | 20 44 61 74 61 2d 6c 69 | .: .'"| Data-li|
|00003a30| 73 74 20 45 72 72 6f 72 | 3a 20 20 20 20 44 61 74 |st Error|: Dat|
|00003a40| 65 20 28 22 3b 69 25 3b | 22 29 3d 20 22 3b 64 61 |e (";i%;|")= ";da|
|00003a50| 74 65 25 0d 00 4c 3d 20 | 20 20 20 f1 27 22 20 44 |te%..L= | .'" D|
|00003a60| 61 74 65 20 6e 75 6d 62 | 65 72 20 6d 75 73 74 20 |ate numb|er must |
|00003a70| 62 65 20 62 65 74 77 65 | 65 6e 20 31 20 61 6e 64 |be betwe|en 1 and|
|00003a80| 20 33 31 20 69 6e 63 6c | 75 73 69 76 65 22 3a fa | 31 incl|usive":.|
|00003a90| 0d 00 4d 07 20 20 cd 0d | 00 4e 05 cd 0d 00 4f 05 |..M. ..|.N....O.|
|00003aa0| 3a 0d 00 50 39 f4 20 49 | 6e 70 75 74 20 72 65 73 |:..P9. I|nput res|
|00003ab0| 74 20 6f 66 20 64 61 74 | 61 2d 6c 69 6e 65 3a 20 |t of dat|a-line: |
|00003ac0| 43 6f 6e 64 69 74 69 6f | 6e 20 26 20 4d 65 73 73 |Conditio|n & Mess|
|00003ad0| 61 67 65 2d 73 74 72 69 | 6e 67 0d 00 51 14 e7 20 |age-stri|ng..Q.. |
|00003ae0| ac 20 65 6e 64 6f 66 64 | 61 74 61 25 20 8c 0d 00 |. endofd|ata% ...|
|00003af0| 52 2d 20 20 f3 20 63 6f | 6e 64 69 74 69 6f 6e 5f |R- . co|ndition_|
|00003b00| 6c 69 73 74 25 28 69 25 | 29 2c 6d 65 73 73 61 67 |list%(i%|),messag|
|00003b10| 65 5f 6c 69 73 74 24 28 | 69 25 29 0d 00 53 1c 20 |e_list$(|i%)..S. |
|00003b20| 20 6d 6f 6e 74 68 5f 6c | 69 73 74 25 28 69 25 29 | month_l|ist%(i%)|
|00003b30| 3d 6d 6f 6e 74 68 25 0d | 00 54 48 20 20 e7 20 6d |=month%.|.TH . m|
|00003b40| 6f 6e 74 68 25 3e 70 72 | 65 76 69 6f 75 73 5f 6d |onth%>pr|evious_m|
|00003b50| 6f 6e 74 68 25 20 6d 73 | 74 61 72 74 25 28 6d 6f |onth% ms|tart%(mo|
|00003b60| 6e 74 68 25 29 3d 69 25 | 3a 70 72 65 76 69 6f 75 |nth%)=i%|:previou|
|00003b70| 73 5f 6d 6f 6e 74 68 25 | 3d 6d 6f 6e 74 68 25 0d |s_month%|=month%.|
|00003b80| 00 55 2e 20 20 64 61 74 | 65 5f 6c 69 73 74 25 28 |.U. dat|e_list%(|
|00003b90| 69 25 29 3d 64 61 74 65 | 25 3a 65 6e 74 72 69 65 |i%)=date|%:entrie|
|00003ba0| 73 25 3d 69 25 3a 69 25 | 3d 69 25 2b 31 0d 00 56 |s%=i%:i%|=i%+1..V|
|00003bb0| 05 cd 0d 00 57 10 fd 20 | 65 6e 64 6f 66 64 61 74 |....W.. |endofdat|
|00003bc0| 61 25 0d 00 58 05 3a 0d | 00 59 05 3a 0d 00 5a 23 |a%..X.:.|.Y.:..Z#|
|00003bd0| f4 20 4d 61 69 6e 70 72 | 6f 67 20 53 74 61 72 74 |. Mainpr|og Start|
|00003be0| 3b 20 53 65 6c 65 63 74 | 20 6f 70 74 69 6f 6e 0d |; Select| option.|
|00003bf0| 00 5b 10 f4 66 69 72 73 | 74 25 3d 54 52 55 45 0d |.[..firs|t%=TRUE.|
|00003c00| 00 5c 43 f5 3a 20 f4 20 | 27 55 6e 74 69 6c 20 46 |.\C.: . |'Until F|
|00003c10| 61 6c 73 65 27 20 61 74 | 20 65 6e 64 3b 20 4c 6f |alse' at| end; Lo|
|00003c20| 6f 70 73 20 70 72 6f 67 | 61 6d 20 75 6e 74 69 6c |ops prog|am until|
|00003c30| 20 51 55 49 54 20 6f 70 | 74 69 6f 6e 20 74 61 6b | QUIT op|tion tak|
|00003c40| 65 6e 0d 00 5d 26 f5 3a | 20 f4 20 4c 6f 6f 70 73 |en..]&.:| . Loops|
|00003c50| 20 6f 70 74 69 6f 6e 73 | 20 75 6e 74 69 6c 20 73 | options| until s|
|00003c60| 61 74 69 73 66 69 65 64 | 0d 00 5e 43 20 20 20 20 |atisfied|..^C |
|00003c70| 20 20 20 20 f4 20 63 68 | 61 6e 67 65 5f 79 65 61 | . ch|ange_yea|
|00003c80| 72 20 69 73 20 73 65 74 | 20 54 72 75 65 20 61 67 |r is set| True ag|
|00003c90| 61 69 6e 20 69 66 20 43 | 48 41 4e 47 45 20 20 6f |ain if C|HANGE o|
|00003ca0| 70 74 69 6f 6e 20 74 61 | 6b 65 6e 0d 00 5f 41 73 |ption ta|ken.._As|
|00003cb0| 74 61 72 74 25 3d 30 3a | 66 69 6e 69 73 68 25 3d |tart%=0:|finish%=|
|00003cc0| 35 36 3a 70 72 65 76 69 | 65 77 5f 6c 69 6e 65 73 |56:previ|ew_lines|
|00003cd0| 25 3d 30 3a 61 64 6a 75 | 73 74 25 3d a3 3a 64 69 |%=0:adju|st%=.:di|
|00003ce0| 61 72 79 5f 70 72 69 6e | 74 25 3d a3 0d 00 60 3f |ary_prin|t%=...`?|
|00003cf0| 70 72 69 6e 74 65 72 5f | 6f 6e 25 3d a3 3a 20 f4 |printer_|on%=.: .|
|00003d00| 20 46 41 4c 53 45 20 61 | 6c 6c 6f 77 73 20 70 72 | FALSE a|llows pr|
|00003d10| 69 6e 74 65 72 20 6f 75 | 74 70 75 74 20 74 6f 20 |inter ou|tput to |
|00003d20| 73 63 72 65 65 6e 20 6f | 6e 6c 79 0d 00 61 05 3a |screen o|nly..a.:|
|00003d30| 0d 00 62 05 3a 0d 00 63 | 14 e7 20 63 68 61 6e 67 |..b.:..c|.. chang|
|00003d40| 65 5f 79 65 61 72 25 20 | 8c 0d 00 64 09 20 20 f5 |e_year% |...d. .|
|00003d50| 3a db 0d 00 65 37 20 20 | f1 27 22 20 44 69 61 72 |:...e7 |.'" Diar|
|00003d60| 79 2d 79 65 61 72 20 63 | 61 6e 20 62 65 20 61 6e |y-year c|an be an|
|00003d70| 79 20 79 65 61 72 20 66 | 72 6f 6d 20 31 39 35 31 |y year f|rom 1951|
|00003d80| 20 74 6f 20 32 30 35 30 | 22 0d 00 66 37 20 20 f1 | to 2050|"..f7 .|
|00003d90| 27 22 20 59 65 61 72 20 | 69 73 20 73 70 65 63 69 |'" Year |is speci|
|00003da0| 66 69 65 64 20 62 79 20 | 74 77 6f 20 64 69 67 69 |fied by |two digi|
|00003db0| 74 73 20 6f 72 20 6c 65 | 73 73 20 20 65 67 3a 22 |ts or le|ss eg:"|
|00003dc0| 0d 00 67 45 20 20 f1 27 | 22 20 45 6e 74 65 72 20 |..gE .'|" Enter |
|00003dd0| 39 33 20 66 6f 72 20 31 | 39 39 33 3b 20 65 6e 74 |93 for 1|993; ent|
|00003de0| 65 72 20 39 34 20 66 6f | 72 20 31 39 39 34 20 65 |er 94 fo|r 1994 e|
|00003df0| 74 63 20 75 70 20 74 6f | 20 39 39 20 66 6f 72 20 |tc up to| 99 for |
|00003e00| 31 39 39 39 22 0d 00 68 | 45 20 20 f1 27 22 20 45 |1999"..h|E .'" E|
|00003e10| 6e 74 65 72 20 20 30 20 | 66 6f 72 20 32 30 30 30 |nter 0 |for 2000|
|00003e20| 3b 20 65 6e 74 65 72 20 | 20 31 20 66 6f 72 20 32 |; enter | 1 for 2|
|00003e30| 30 30 31 20 65 74 63 20 | 75 70 20 74 6f 20 35 30 |001 etc |up to 50|
|00003e40| 20 66 6f 72 20 32 30 35 | 30 22 0d 00 69 37 20 20 | for 205|0"..i7 |
|00003e50| f1 27 27 22 20 45 6e 74 | 65 72 20 6e 75 6d 62 65 |.''" Ent|er numbe|
|00003e60| 72 20 66 72 6f 6d 20 30 | 20 74 6f 20 39 39 20 66 |r from 0| to 99 f|
|00003e70| 6f 72 20 44 69 61 72 79 | 2d 79 65 61 72 3a 20 22 |or Diary|-year: "|
|00003e80| 3b 0d 00 6a 38 20 20 e8 | 22 22 79 65 61 72 25 3a |;..j8 .|""year%:|
|00003e90| 79 65 61 72 24 3d c3 79 | 65 61 72 25 3a e7 20 a9 |year$=.y|ear%:. .|
|00003ea0| 28 79 65 61 72 24 29 3c | 32 20 79 65 61 72 24 3d |(year$)<|2 year$=|
|00003eb0| 22 30 22 2b 79 65 61 72 | 24 0d 00 6b 3d 20 20 e7 |"0"+year|$..k= .|
|00003ec0| 20 79 65 61 72 25 3e 3d | 35 31 20 66 75 6c 6c 79 | year%>=|51 fully|
|00003ed0| 65 61 72 25 3d 31 39 30 | 30 2b 79 65 61 72 25 20 |ear%=190|0+year% |
|00003ee0| 8b 20 66 75 6c 6c 79 65 | 61 72 25 3d 32 30 30 30 |. fullye|ar%=2000|
|00003ef0| 2b 79 65 61 72 25 0d 00 | 6c 1c 20 20 fd 20 79 65 |+year%..|l. . ye|
|00003f00| 61 72 25 3e 3d 30 20 80 | 20 79 65 61 72 25 3c 3d |ar%>=0 .| year%<=|
|00003f10| 39 39 0d 00 6d 31 20 20 | e7 20 79 65 61 72 25 3d |99..m1 |. year%=|
|00003f20| 20 30 20 6c 61 73 74 79 | 65 61 72 25 3d 39 39 20 | 0 lasty|ear%=99 |
|00003f30| 8b 20 6c 61 73 74 79 65 | 61 72 25 3d 79 65 61 72 |. lastye|ar%=year|
|00003f40| 25 2d 31 0d 00 6e 43 20 | 20 6c 61 73 74 79 65 61 |%-1..nC | lastyea|
|00003f50| 72 24 3d c3 6c 61 73 74 | 79 65 61 72 25 3a e7 20 |r$=.last|year%:. |
|00003f60| a9 28 6c 61 73 74 79 65 | 61 72 24 29 3c 32 20 6c |.(lastye|ar$)<2 l|
|00003f70| 61 73 74 79 65 61 72 24 | 3d 22 30 22 2b 6c 61 73 |astyear$|="0"+las|
|00003f80| 74 79 65 61 72 24 0d 00 | 6f 31 20 20 e7 20 79 65 |tyear$..|o1 . ye|
|00003f90| 61 72 25 3d 39 39 20 6e | 65 78 74 79 65 61 72 25 |ar%=99 n|extyear%|
|00003fa0| 3d 20 30 20 8b 20 6e 65 | 78 74 79 65 61 72 25 3d |= 0 . ne|xtyear%=|
|00003fb0| 79 65 61 72 25 2b 31 0d | 00 70 43 20 20 6e 65 78 |year%+1.|.pC nex|
|00003fc0| 74 79 65 61 72 24 3d c3 | 6e 65 78 74 79 65 61 72 |tyear$=.|nextyear|
|00003fd0| 25 3a e7 20 a9 28 6e 65 | 78 74 79 65 61 72 24 29 |%:. .(ne|xtyear$)|
|00003fe0| 3c 32 20 6e 65 78 74 79 | 65 61 72 24 3d 22 30 22 |<2 nexty|ear$="0"|
|00003ff0| 2b 6e 65 78 74 79 65 61 | 72 24 0d 00 71 28 cd 3a |+nextyea|r$..q(.:|
|00004000| 63 68 61 6e 67 65 5f 79 | 65 61 72 25 3d a3 3a 20 |change_y|ear%=.: |
|00004010| f4 20 45 6d 65 72 67 65 | 20 77 69 74 68 20 59 65 |. Emerge| with Ye|
|00004020| 61 72 0d 00 72 05 3a 0d | 00 73 05 3a 0d 00 74 05 |ar..r.:.|.s.:..t.|
|00004030| db 0d 00 75 3e f1 27 22 | 20 43 68 6f 6f 73 65 3a |...u>.'"| Choose:|
|00004040| 20 50 72 65 76 69 65 77 | 20 20 20 20 20 20 20 20 | Preview| |
|00004050| 20 44 61 74 61 2d 6c 69 | 73 74 20 20 20 20 20 20 | Data-li|st |
|00004060| 20 20 20 20 28 6f 70 74 | 69 6f 6e 20 30 29 22 0d | (opt|ion 0)".|
|00004070| 00 76 3e f1 20 22 20 20 | 20 20 20 20 20 20 20 50 |.v>. " | P|
|00004080| 72 65 76 69 65 77 20 20 | 20 20 20 20 20 20 20 44 |review | D|
|00004090| 69 61 72 79 20 6d 65 73 | 73 61 67 65 73 20 20 20 |iary mes|sages |
|000040a0| 20 20 28 6f 70 74 69 6f | 6e 20 31 29 22 0d 00 77 | (optio|n 1)"..w|
|000040b0| 3e f1 20 22 20 20 20 20 | 20 20 20 20 20 50 72 65 |>. " | Pre|
|000040c0| 76 69 65 77 20 26 20 70 | 72 69 6e 74 20 44 69 61 |view & p|rint Dia|
|000040d0| 72 79 20 6d 65 73 73 61 | 67 65 73 20 20 20 20 20 |ry messa|ges |
|000040e0| 28 6f 70 74 69 6f 6e 20 | 32 29 22 0d 00 78 3e f1 |(option |2)"..x>.|
|000040f0| 20 22 20 20 20 20 20 20 | 20 20 20 50 72 69 6e 74 | " | Print|
|00004100| 20 70 61 72 74 2d 79 65 | 61 72 20 44 69 61 72 79 | part-ye|ar Diary|
|00004110| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 6f | | (o|
|00004120| 70 74 69 6f 6e 20 33 29 | 22 0d 00 79 3e f1 20 22 |ption 3)|"..y>. "|
|00004130| 20 20 20 20 20 20 20 20 | 20 50 72 69 6e 74 20 66 | | Print f|
|00004140| 75 6c 6c 2d 79 65 61 72 | 20 44 69 61 72 79 20 20 |ull-year| Diary |
|00004150| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 6f 70 74 | | (opt|
|00004160| 69 6f 6e 20 34 29 22 0d | 00 7a 48 f1 27 22 20 20 |ion 4)".|.zH.'" |
|00004170| 20 20 20 20 20 20 20 43 | 68 61 6e 67 65 20 44 69 | C|hange Di|
|00004180| 61 72 79 2d 79 65 61 72 | 20 28 6e 6f 77 20 22 2b |ary-year| (now "+|
|00004190| c3 66 75 6c 6c 79 65 61 | 72 25 2b 22 29 20 20 20 |.fullyea|r%+") |
|000041a0| 20 20 20 20 28 6f 70 74 | 69 6f 6e 20 43 29 22 0d | (opt|ion C)".|
|000041b0| 00 7b 43 f1 27 22 20 20 | 20 20 20 20 20 20 20 54 |.{C.'" | T|
|000041c0| 65 72 6d 69 6e 61 74 65 | 20 70 72 6f 67 72 61 6d |erminate| program|
|000041d0| 20 28 51 75 69 74 29 20 | 20 20 20 20 20 20 20 20 | (Quit) | |
|000041e0| 20 20 28 6f 70 74 69 6f | 6e 20 51 29 20 20 20 3a | (optio|n Q) :|
|000041f0| 22 3b 0d 00 7c 2f f5 3a | 6b 65 79 24 3d be 3a fd |";..|/.:|key$=.:.|
|00004200| 20 a7 22 30 31 32 33 34 | 63 43 71 51 22 2c 6b 65 | ."01234|cCqQ",ke|
|00004210| 79 24 29 3c 3e 30 3a 6f | 70 74 25 3d bb 6b 65 79 |y$)<>0:o|pt%=.key|
|00004220| 24 0d 00 7d 30 e7 20 6b | 65 79 24 3d 22 63 22 20 |$..}0. k|ey$="c" |
|00004230| 84 20 6b 65 79 24 3d 22 | 43 22 20 6f 70 74 25 3d |. key$="|C" opt%=|
|00004240| 2d 31 3a 63 68 61 6e 67 | 65 5f 79 65 61 72 25 3d |-1:chang|e_year%=|
|00004250| b9 0d 00 7e 3e e7 20 6b | 65 79 24 3d 22 71 22 20 |...~>. k|ey$="q" |
|00004260| 84 20 6b 65 79 24 3d 22 | 51 22 20 e0 3a 20 f4 20 |. key$="|Q" .: . |
|00004270| 45 6d 65 72 67 65 20 77 | 69 74 68 20 4f 70 74 69 |Emerge w|ith Opti|
|00004280| 6f 6e 20 6f 70 74 25 20 | 6f 72 20 51 75 69 74 0d |on opt% |or Quit.|
|00004290| 00 7f 05 3a 0d 00 80 0e | e7 20 6f 70 74 25 3d 30 |...:....|. opt%=0|
|000042a0| 20 8c 0d 00 81 1d 20 20 | f4 20 44 61 74 61 2d 6c | ..... |. Data-l|
|000042b0| 69 73 74 20 63 68 65 63 | 6b 20 62 65 6c 6f 77 0d |ist chec|k below.|
|000042c0| 00 82 4b 20 20 f4 46 4f | 52 69 25 3d 30 20 54 4f |..K .FO|Ri%=0 TO|
|000042d0| 20 31 35 3a 50 52 49 4e | 54 20 6d 73 74 61 72 74 | 15:PRIN|T mstart|
|000042e0| 25 28 69 25 29 3b 3a 4e | 45 58 54 3a 50 52 49 4e |%(i%);:N|EXT:PRIN|
|000042f0| 54 65 6e 74 72 69 65 73 | 25 3a 20 50 52 4f 43 61 |Tentries|%: PROCa|
|00004300| 6e 79 6b 65 79 28 31 2c | 31 29 0d 00 83 31 20 20 |nykey(1,|1)...1 |
|00004310| db 3a f1 22 20 20 20 20 | 20 20 20 20 46 69 72 73 |.:." | Firs|
|00004320| 74 20 69 74 65 6d 20 6f | 6e 20 44 61 74 61 2d 6c |t item o|n Data-l|
|00004330| 69 73 74 20 3d 20 22 3b | 79 72 25 0d 00 84 16 20 |ist = ";|yr%.... |
|00004340| 20 e3 69 25 3d 30 20 b8 | 20 65 6e 74 72 69 65 73 | .i%=0 .| entries|
|00004350| 25 0d 00 85 52 20 20 f1 | 20 6d 6f 6e 74 68 5f 6c |%...R .| month_l|
|00004360| 69 73 74 25 28 69 25 29 | 2c 64 61 74 65 5f 6c 69 |ist%(i%)|,date_li|
|00004370| 73 74 25 28 69 25 29 2c | 63 6f 6e 64 69 74 69 6f |st%(i%),|conditio|
|00004380| 6e 5f 6c 69 73 74 25 28 | 69 25 29 2c 22 20 20 20 |n_list%(|i%)," |
|00004390| 22 3b 6d 65 73 73 61 67 | 65 5f 6c 69 73 74 24 28 |";messag|e_list$(|
|000043a0| 69 25 29 0d 00 86 15 20 | 20 e7 28 69 25 2b 31 29 |i%).... | .(i%+1)|
|000043b0| 20 83 20 34 3d 30 20 f1 | 0d 00 87 20 20 20 e7 28 | . 4=0 .|... .(|
|000043c0| 69 25 2b 31 29 20 83 20 | 38 3d 30 20 f2 61 6e 79 |i%+1) . |8=0 .any|
|000043d0| 6b 65 79 28 30 2c 31 29 | 0d 00 88 38 20 20 ed 3a |key(0,1)|...8 .:|
|000043e0| 20 f1 22 20 20 20 20 20 | 20 20 20 4c 61 73 74 20 | ." | Last |
|000043f0| 69 74 65 6d 20 6f 6e 20 | 44 61 74 61 2d 6c 69 73 |item on |Data-lis|
|00004400| 74 20 3d 20 22 3b 6c 61 | 73 74 64 61 74 75 6d 25 |t = ";la|stdatum%|
|00004410| 0d 00 89 12 20 20 f2 61 | 6e 79 6b 65 79 28 31 2c |.... .a|nykey(1,|
|00004420| 30 29 0d 00 8a 05 cd 0d | 00 8b 05 3a 0d 00 8c 0d |0)......|...:....|
|00004430| e7 6f 70 74 25 3d 33 20 | 8c 0d 00 8d 0c 20 20 f5 |.opt%=3 |..... .|
|00004440| 3a db 3a f4 21 0d 00 8e | 42 20 20 e8 27 27 22 20 |:.:.!...|B .''" |
|00004450| 45 6e 74 65 72 20 57 65 | 65 6b 20 4e 75 6d 62 65 |Enter We|ek Numbe|
|00004460| 72 20 66 6f 72 20 53 74 | 61 72 74 20 20 6f 66 20 |r for St|art of |
|00004470| 70 72 69 6e 74 20 28 30 | 20 2d 20 35 30 29 3a 20 |print (0| - 50): |
|00004480| 22 73 74 61 72 74 25 0d | 00 8f 1e 20 20 fd 20 73 |"start%.|... . s|
|00004490| 74 61 72 74 25 3e 3d 30 | 20 80 20 73 74 61 72 74 |tart%>=0| . start|
|000044a0| 25 3c 3d 35 30 0d 00 90 | 45 20 20 f5 3a e8 27 20 |%<=50...|E .:.' |
|000044b0| 22 20 45 6e 74 65 72 20 | 57 65 65 6b 20 4e 75 6d |" Enter |Week Num|
|000044c0| 62 65 72 20 66 6f 72 20 | 46 69 6e 69 73 68 20 6f |ber for |Finish o|
|000044d0| 66 20 70 72 69 6e 74 20 | 28 31 20 2d 20 35 36 29 |f print |(1 - 56)|
|000044e0| 3a 20 22 66 69 6e 69 73 | 68 25 0d 00 91 25 20 20 |: "finis|h%...% |
|000044f0| fd 20 66 69 6e 69 73 68 | 25 3e 73 74 61 72 74 25 |. finish|%>start%|
|00004500| 20 80 20 20 66 69 6e 69 | 73 68 25 3c 3d 35 36 0d | . fini|sh%<=56.|
|00004510| 00 92 2b 20 20 e7 20 66 | 69 6e 69 73 68 25 2d 73 |..+ . f|inish%-s|
|00004520| 74 61 72 74 25 3e 3d 35 | 30 20 6f 70 74 25 3d 34 |tart%>=5|0 opt%=4|
|00004530| 3a 61 64 6a 75 73 74 25 | 3d b9 0d 00 93 36 cd 3a |:adjust%|=....6.:|
|00004540| 20 f4 20 45 6d 65 72 67 | 65 20 77 69 74 68 20 6e | . Emerg|e with n|
|00004550| 65 77 20 76 61 6c 75 65 | 73 20 66 6f 72 20 73 74 |ew value|s for st|
|00004560| 61 72 74 25 20 61 6e 64 | 20 66 69 6e 69 73 68 25 |art% and| finish%|
|00004570| 0d 00 94 05 3a 0d 00 95 | 0e e7 6f 70 74 25 3e 3d |....:...|..opt%>=|
|00004580| 31 20 8c 0d 00 96 36 20 | 20 db 3a f1 27 22 20 43 |1 ....6 | .:.'" C|
|00004590| 68 6f 6f 73 65 3a 20 49 | 6e 63 6c 75 64 65 20 73 |hoose: I|nclude s|
|000045a0| 70 65 63 69 61 6c 20 64 | 61 74 65 73 20 28 6f 70 |pecial d|ates (op|
|000045b0| 74 69 6f 6e 20 49 20 29 | 22 0d 00 97 39 20 20 f1 |tion I )|"...9 .|
|000045c0| 27 22 20 20 20 20 20 20 | 20 20 20 45 78 63 6c 75 |'" | Exclu|
|000045d0| 64 65 20 73 70 65 63 69 | 61 6c 20 64 61 74 65 73 |de speci|al dates|
|000045e0| 20 28 6f 70 74 69 6f 6e | 20 58 20 29 20 20 20 3a | (option| X ) :|
|000045f0| 22 3b 0d 00 98 3e 20 20 | f5 3a 6b 65 79 24 3d be |";...> |.:key$=.|
|00004600| 3a fd 20 a7 22 69 49 78 | 58 65 45 22 2c 6b 65 79 |:. ."iIx|XeE",key|
|00004610| 24 29 3c 3e 30 3a 73 70 | 65 63 69 61 6c 25 3d 6b |$)<>0:sp|ecial%=k|
|00004620| 65 79 24 3d 22 69 22 84 | 6b 65 79 24 3d 22 49 22 |ey$="i".|key$="I"|
|00004630| 0d 00 99 29 cd 3a db 3a | 20 f4 20 45 6d 65 72 67 |...).:.:| . Emerg|
|00004640| 65 20 77 69 74 68 20 76 | 61 6c 75 65 20 66 6f 72 |e with v|alue for|
|00004650| 20 73 70 65 63 69 61 6c | 25 0d 00 9a 05 3a 0d 00 | special|%....:..|
|00004660| 9b 0e e7 6f 70 74 25 3e | 3d 33 20 8c 0d 00 9c 2f |...opt%>|=3 ..../|
|00004670| 20 20 db 3a f1 27 22 20 | 43 68 65 63 6b 20 74 68 | .:.'" |Check th|
|00004680| 61 74 20 79 6f 75 72 20 | 72 65 71 75 69 72 65 6d |at your |requirem|
|00004690| 65 6e 74 73 20 61 72 65 | 3a 20 22 0d 00 9d 42 20 |ents are|: "...B |
|000046a0| 20 e7 6f 70 74 25 3d 33 | 20 f1 27 89 32 34 22 50 | .opt%=3| .'.24"P|
|000046b0| 72 69 6e 74 20 44 69 61 | 72 79 20 66 72 6f 6d 20 |rint Dia|ry from |
|000046c0| 57 6b 20 22 3b 73 74 61 | 72 74 25 3b 22 20 74 6f |Wk ";sta|rt%;" to|
|000046d0| 20 57 6b 20 22 3b 66 69 | 6e 69 73 68 25 0d 00 9e | Wk ";fi|nish%...|
|000046e0| 32 20 20 e7 6f 70 74 25 | 3d 34 20 f1 27 89 32 34 |2 .opt%|=4 .'.24|
|000046f0| 22 50 72 69 6e 74 20 44 | 69 61 72 79 20 66 6f 72 |"Print D|iary for|
|00004700| 20 74 68 65 20 66 75 6c | 6c 20 79 65 61 72 22 0d | the ful|l year".|
|00004710| 00 9f 11 20 20 e7 73 70 | 65 63 69 61 6c 25 20 8c |... .sp|ecial% .|
|00004720| 0d 00 a0 25 20 20 20 20 | f1 27 89 32 34 22 49 6e |...% |.'.24"In|
|00004730| 63 6c 75 64 65 20 53 70 | 65 63 69 61 6c 20 64 61 |clude Sp|ecial da|
|00004740| 74 65 73 22 27 0d 00 a1 | 25 20 20 cc 20 f1 27 89 |tes"'...|% . .'.|
|00004750| 32 34 22 45 78 63 6c 75 | 64 65 20 53 70 65 63 69 |24"Exclu|de Speci|
|00004760| 61 6c 20 64 61 74 65 73 | 22 27 0d 00 a2 07 20 20 |al dates|"'.... |
|00004770| cd 0d 00 a3 4b 20 20 e7 | 61 64 6a 75 73 74 25 f1 |....K .|adjust%.|
|00004780| 27 27 22 20 4e 42 20 50 | 72 69 6e 74 73 20 6f 66 |''" NB P|rints of|
|00004790| 20 35 30 20 77 65 65 6b | 73 20 6f 72 20 6d 6f 72 | 50 week|s or mor|
|000047a0| 65 20 61 72 65 20 63 68 | 61 6e 67 65 64 20 74 6f |e are ch|anged to|
|000047b0| 20 66 75 6c 6c 20 79 65 | 61 72 22 27 0d 00 a4 3c | full ye|ar"'...<|
|000047c0| cd 3a 20 f4 20 45 6d 65 | 72 67 65 20 77 69 74 68 |.: . Eme|rge with|
|000047d0| 20 76 61 6c 75 65 73 20 | 64 69 73 70 6c 61 79 65 | values |displaye|
|000047e0| 64 20 66 6f 72 20 63 6f | 6e 66 69 72 6d 61 74 69 |d for co|nfirmati|
|000047f0| 6f 6e 20 62 65 6c 6f 77 | 0d 00 a5 05 3a 0d 00 a6 |on below|....:...|
|00004800| 0e e7 6f 70 74 25 3e 3d | 33 20 8c 0d 00 a7 4c 20 |..opt%>=|3 ....L |
|00004810| 20 e7 ac 20 a4 63 6f 6e | 66 69 72 6d 28 22 20 43 | .. .con|firm(" C|
|00004820| 6f 6e 66 69 72 6d 20 74 | 68 65 73 65 20 61 72 65 |onfirm t|hese are|
|00004830| 20 79 6f 75 72 20 72 65 | 71 75 69 72 65 6d 65 6e | your re|quiremen|
|00004840| 74 73 20 20 20 28 59 2f | 4e 29 3a 22 2c 30 29 20 |ts (Y/|N):",0) |
|00004850| 6f 70 74 25 3d 2d 31 0d | 00 a8 05 cd 0d 00 a9 0e |opt%=-1.|........|
|00004860| e7 6f 70 74 25 3e 3d 32 | 20 8c 0d 00 aa 07 20 20 |.opt%>=2| ..... |
|00004870| f1 0d 00 ab 47 20 20 e7 | 20 a4 63 6f 6e 66 69 72 |....G .| .confir|
|00004880| 6d 28 22 20 43 6f 6e 66 | 69 72 6d 20 70 72 69 6e |m(" Conf|irm prin|
|00004890| 74 65 72 20 69 73 20 6f | 6e 20 66 6f 72 20 70 72 |ter is o|n for pr|
|000048a0| 69 6e 74 65 64 20 64 69 | 61 72 79 20 28 59 2f 4e |inted di|ary (Y/N|
|000048b0| 29 3a 22 2c 30 29 20 8c | 0d 00 ac 15 20 20 20 20 |):",0) .|.... |
|000048c0| 70 72 69 6e 74 65 72 5f | 6f 6e 25 3d b9 0d 00 ad |printer_|on%=....|
|000048d0| 07 20 20 cd 0d 00 ae 05 | cd 0d 00 af 2d fd 20 6f |. .....|....-. o|
|000048e0| 70 74 25 3e 3d 31 3a 20 | f4 20 4d 61 74 63 68 65 |pt%>=1: |. Matche|
|000048f0| 73 20 43 48 41 4e 47 45 | 20 52 65 70 65 61 74 20 |s CHANGE| Repeat |
|00004900| 61 74 20 74 6f 70 0d 00 | b0 05 3a 0d 00 b1 05 3a |at top..|..:....:|
|00004910| 0d 00 b2 22 f4 20 49 6e | 69 74 69 61 6c 69 73 65 |...". In|itialise|
|00004920| 20 62 65 66 6f 72 65 20 | 70 72 69 6e 74 2d 6c 6f | before |print-lo|
|00004930| 6f 70 0d 00 b3 49 f4 20 | 50 52 4f 43 73 75 6e 64 |op...I. |PROCsund|
|00004940| 61 79 5f 73 74 61 72 74 | 20 6d 75 73 74 20 62 65 |ay_start| must be|
|00004950| 20 66 69 72 73 74 2c 20 | 63 65 72 74 61 69 6e 6c | first, |certainl|
|00004960| 79 20 62 65 66 6f 72 65 | 20 50 52 4f 43 61 64 6a |y before| PROCadj|
|00004970| 75 73 74 5f 70 72 69 6e | 74 65 72 0d 00 b4 49 f2 |ust_prin|ter...I.|
|00004980| 73 75 6e 64 61 79 5f 73 | 74 61 72 74 3a f4 20 53 |sunday_s|tart:. S|
|00004990| 65 74 73 20 4c 65 66 74 | 20 28 6c 29 20 26 20 52 |ets Left| (l) & R|
|000049a0| 69 67 68 74 20 28 72 29 | 3a 20 73 75 6e 64 61 74 |ight (r)|: sundat|
|000049b0| 65 2c 20 64 61 74 65 2c | 20 6d 6f 6e 74 68 2c 20 |e, date,| month, |
|000049c0| 77 65 65 6b 0d 00 b5 05 | 3a 0d 00 b6 2b f4 20 50 |week....|:...+. P|
|000049d0| 72 69 6e 74 65 72 20 63 | 61 6e 20 72 65 6d 61 69 |rinter c|an remai|
|000049e0| 6e 20 6f 6e 20 74 68 72 | 6f 75 67 68 6f 75 74 20 |n on thr|oughout |
|000049f0| 4f 70 74 32 0d 00 b7 1c | e7 6f 70 74 25 3d 32 20 |Opt2....|.opt%=2 |
|00004a00| 80 20 70 72 69 6e 74 65 | 72 5f 6f 6e 25 20 ef 32 |. printe|r_on% .2|
|00004a10| 0d 00 b8 05 3a 0d 00 b9 | 2e f4 20 50 72 69 6e 74 |....:...|.. Print|
|00004a20| 65 72 20 63 61 6e 6e 6f | 74 20 72 65 6d 61 69 6e |er canno|t remain|
|00004a30| 20 6f 6e 20 74 68 72 6f | 75 67 68 6f 75 74 20 4f | on thro|ughout O|
|00004a40| 70 74 33 0d 00 ba 47 f4 | 20 49 66 20 70 72 69 6e |pt3...G.| If prin|
|00004a50| 74 65 72 20 69 73 20 6e | 6f 74 20 63 6f 6e 66 69 |ter is n|ot confi|
|00004a60| 72 6d 65 64 2d 6f 6e 2c | 20 70 72 69 6e 74 65 72 |rmed-on,| printer|
|00004a70| 20 70 72 6f 63 65 64 75 | 72 65 73 20 68 61 76 65 | procedu|res have|
|00004a80| 20 6e 6f 20 61 63 74 69 | 6f 6e 0d 00 bb 4d f4 20 | no acti|on...M. |
|00004a90| 53 6b 69 70 70 65 64 20 | 77 65 65 6b 73 20 61 72 |Skipped |weeks ar|
|00004aa0| 65 20 62 79 70 61 73 73 | 65 64 20 74 68 72 6f 75 |e bypass|ed throu|
|00004ab0| 67 68 20 70 72 65 76 69 | 65 77 20 73 65 63 74 69 |gh previ|ew secti|
|00004ac0| 6f 6e 20 77 68 69 63 68 | 20 6d 75 73 74 20 6e 6f |on which| must no|
|00004ad0| 74 20 70 72 69 6e 74 0d | 00 bc 38 e7 6f 70 74 25 |t print.|..8.opt%|
|00004ae0| 3e 3d 33 20 f2 61 64 6a | 75 73 74 5f 70 72 69 6e |>=3 .adj|ust_prin|
|00004af0| 74 65 72 3a 20 f4 20 49 | 6e 63 6c 20 56 44 55 32 |ter: . I|ncl VDU2|
|00004b00| 2f 33 3b 20 50 72 69 6e | 74 65 72 20 6f 66 66 0d |/3; Prin|ter off.|
|00004b10| 00 bd 05 3a 0d 00 be 05 | 3a 0d 00 bf 18 f4 20 50 |...:....|:..... P|
|00004b20| 72 69 6e 74 2d 6c 6f 6f | 70 20 66 6f 6c 6c 6f 77 |rint-loo|p follow|
|00004b30| 73 0d 00 c0 32 f5 3a 20 | f4 40 20 50 72 69 6e 74 |s...2.: |.@ Print|
|00004b40| 2d 6c 6f 6f 70 20 69 6e | 63 72 65 61 73 65 73 20 |-loop in|creases |
|00004b50| 6c 77 65 65 6b 25 20 20 | 62 79 20 32 20 61 74 20 |lweek% |by 2 at |
|00004b60| 65 6e 64 0d 00 c1 31 f4 | 20 44 61 69 6c 79 20 61 |end...1.| Daily a|
|00004b70| 6e 64 20 57 65 65 6b 6c | 79 20 69 6e 63 72 65 6d |nd Weekl|y increm|
|00004b80| 65 6e 74 73 20 61 72 65 | 20 61 74 20 4c 6f 6f 70 |ents are| at Loop|
|00004b90| 2d 65 6e 64 0d 00 c2 47 | 64 69 61 72 79 5f 70 72 |-end...G|diary_pr|
|00004ba0| 69 6e 74 25 3d 28 6f 70 | 74 25 3d 33 20 80 20 6c |int%=(op|t%=3 . l|
|00004bb0| 77 65 65 6b 25 2b 32 3e | 73 74 61 72 74 25 20 80 |week%+2>|start% .|
|00004bc0| 20 6c 77 65 65 6b 25 20 | 3c 3d 66 69 6e 69 73 68 | lweek% |<=finish|
|00004bd0| 25 29 20 84 20 6f 70 74 | 25 3d 34 0d 00 c3 05 3a |%) . opt|%=4....:|
|00004be0| 0d 00 c4 14 e7 20 64 69 | 61 72 79 5f 70 72 69 6e |..... di|ary_prin|
|00004bf0| 74 25 20 8c 0d 00 c5 2b | 20 20 f4 20 50 72 65 76 |t% ....+| . Prev|
|00004c00| 69 65 77 20 73 6b 69 70 | 73 20 74 68 69 73 20 70 |iew skip|s this p|
|00004c10| 72 69 6e 74 69 6e 67 20 | 73 65 63 74 69 6f 6e 0d |rinting |section.|
|00004c20| 00 c6 30 20 20 e7 6c 6d | 6f 6e 74 68 25 3d 30 20 |..0 .lm|onth%=0 |
|00004c30| 6c 6d 6f 6e 74 68 79 72 | 24 3d 6c 6d 6f 6e 74 68 |lmonthyr|$=lmonth|
|00004c40| 24 2b 22 20 22 2b 6c 61 | 73 74 79 65 61 72 24 0d |$+" "+la|styear$.|
|00004c50| 00 c7 30 20 20 e7 72 6d | 6f 6e 74 68 25 3d 30 20 |..0 .rm|onth%=0 |
|00004c60| 72 6d 6f 6e 74 68 79 72 | 24 3d 72 6d 6f 6e 74 68 |rmonthyr|$=rmonth|
|00004c70| 24 2b 22 20 22 2b 6c 61 | 73 74 79 65 61 72 24 0d |$+" "+la|styear$.|
|00004c80| 00 c8 39 20 20 e7 6c 6d | 6f 6e 74 68 25 3e 3d 31 |..9 .lm|onth%>=1|
|00004c90| 80 6c 6d 6f 6e 74 68 25 | 3c 3d 31 32 20 6c 6d 6f |.lmonth%|<=12 lmo|
|00004ca0| 6e 74 68 79 72 24 3d 6c | 6d 6f 6e 74 68 24 2b 22 |nthyr$=l|month$+"|
|00004cb0| 20 22 2b 79 65 61 72 24 | 0d 00 c9 39 20 20 e7 72 | "+year$|...9 .r|
|00004cc0| 6d 6f 6e 74 68 25 3e 3d | 31 80 72 6d 6f 6e 74 68 |month%>=|1.rmonth|
|00004cd0| 25 3c 3d 31 32 20 72 6d | 6f 6e 74 68 79 72 24 3d |%<=12 rm|onthyr$=|
|00004ce0| 72 6d 6f 6e 74 68 24 2b | 22 20 22 2b 79 65 61 72 |rmonth$+|" "+year|
|00004cf0| 24 0d 00 ca 31 20 20 e7 | 6c 6d 6f 6e 74 68 25 3d |$...1 .|lmonth%=|
|00004d00| 31 33 20 6c 6d 6f 6e 74 | 68 79 72 24 3d 6c 6d 6f |13 lmont|hyr$=lmo|
|00004d10| 6e 74 68 24 2b 22 20 22 | 2b 6e 65 78 74 79 65 61 |nth$+" "|+nextyea|
|00004d20| 72 24 0d 00 cb 31 20 20 | e7 72 6d 6f 6e 74 68 25 |r$...1 |.rmonth%|
|00004d30| 3d 31 33 20 72 6d 6f 6e | 74 68 79 72 24 3d 72 6d |=13 rmon|thyr$=rm|
|00004d40| 6f 6e 74 68 24 2b 22 20 | 22 2b 6e 65 78 74 79 65 |onth$+" |"+nextye|
|00004d50| 61 72 24 0d 00 cc 04 0d | 00 cd 46 20 20 f4 20 50 |ar$.....|..F . P|
|00004d60| 72 69 6e 74 20 4d 6f 6e | 74 68 2b 59 65 61 72 20 |rint Mon|th+Year |
|00004d70| 48 65 61 64 69 6e 67 3b | 20 4c 69 6e 65 20 69 6e |Heading;| Line in|
|00004d80| 20 52 65 6d 20 69 64 65 | 6e 74 69 66 69 65 73 20 | Rem ide|ntifies |
|00004d90| 50 72 69 6e 74 6f 75 74 | 2d 6c 69 6e 65 0d 00 ce |Printout|-line...|
|00004da0| 2a 20 20 f2 6d 6f 6e 74 | 68 5f 66 6f 6e 74 3a 20 |* .mont|h_font: |
|00004db0| f4 20 49 6e 63 6c 20 56 | 44 55 32 3b 20 50 72 69 |. Incl V|DU2; Pri|
|00004dc0| 6e 74 65 72 20 6f 6e 0d | 00 cf 2d 20 20 e3 69 25 |nter on.|..- .i%|
|00004dd0| 3d 31 20 b8 20 33 3a f1 | 8a 32 30 29 3b 3a f2 76 |=1 . 3:.|.20);:.v|
|00004de0| 6c 69 6e 65 3a f1 3a ed | 3a f4 20 4c 69 6e 65 73 |line:.:.|:. Lines|
|00004df0| 20 31 2d 33 0d 00 d0 3d | 20 20 f1 22 20 20 20 20 | 1-3...=| ." |
|00004e00| 20 20 20 22 2b 6c 6d 6f | 6e 74 68 79 72 24 3b 8a | "+lmo|nthyr$;.|
|00004e10| 32 30 29 3b 3a f2 76 6c | 69 6e 65 3a f1 3b 22 20 |20);:.vl|ine:.;" |
|00004e20| 20 20 20 20 20 20 22 2b | 72 6d 6f 6e 74 68 79 72 | "+|rmonthyr|
|00004e30| 24 0d 00 d1 2d 20 20 e3 | 69 25 3d 31 20 b8 20 32 |$...- .|i%=1 . 2|
|00004e40| 3a f1 8a 32 30 29 3b 3a | f2 76 6c 69 6e 65 3a f1 |:..20);:|.vline:.|
|00004e50| 3a ed 3a f4 20 4c 69 6e | 65 73 20 35 2c 36 0d 00 |:.:. Lin|es 5,6..|
|00004e60| d2 15 20 20 f2 68 6c 69 | 6e 65 3a f4 20 4c 69 6e |.. .hli|ne:. Lin|
|00004e70| 65 20 37 0d 00 d3 17 20 | 20 ef 33 3a 20 f4 20 50 |e 7.... | .3: . P|
|00004e80| 72 69 6e 74 65 72 20 6f | 66 66 0d 00 d4 05 cd 0d |rinter o|ff......|
|00004e90| 00 d5 05 3a 0d 00 d6 21 | f4 20 50 72 65 76 69 65 |...:...!|. Previe|
|00004ea0| 77 20 65 6e 74 65 72 73 | 20 74 68 69 73 20 73 65 |w enters| this se|
|00004eb0| 63 74 69 6f 6e 0d 00 d7 | 05 3a 0d 00 d8 16 f4 23 |ction...|.:.....#|
|00004ec0| 20 4c 6f 6f 70 20 66 6f | 72 20 37 20 64 61 79 73 | Loop fo|r 7 days|
|00004ed0| 0d 00 d9 19 e3 20 64 61 | 79 25 3d 30 20 b8 20 36 |..... da|y%=0 . 6|
|00004ee0| 3a f2 67 65 74 5f 64 61 | 79 0d 00 da 3e f2 6d 65 |:.get_da|y...>.me|
|00004ef0| 73 73 61 67 65 28 22 4c | 22 2c 6c 6d 6f 6e 74 68 |ssage("L|",lmonth|
|00004f00| 25 2c 6c 64 61 74 65 25 | 29 3a 20 f2 6d 65 73 73 |%,ldate%|): .mess|
|00004f10| 61 67 65 28 22 52 22 2c | 72 6d 6f 6e 74 68 25 2c |age("R",|rmonth%,|
|00004f20| 72 64 61 74 65 25 29 0d | 00 db 05 3a 0d 00 dc 14 |rdate%).|...:....|
|00004f30| e7 20 64 69 61 72 79 5f | 70 72 69 6e 74 25 20 8c |. diary_|print% .|
|00004f40| 0d 00 dd 2b 20 20 f4 20 | 50 72 65 76 69 65 77 20 |...+ . |Preview |
|00004f50| 73 6b 69 70 73 20 74 68 | 69 73 20 70 72 69 6e 74 |skips th|is print|
|00004f60| 69 6e 67 20 73 65 63 74 | 69 6f 6e 0d 00 de 32 20 |ing sect|ion...2 |
|00004f70| 20 f4 20 4c 69 6e 65 20 | 30 3d 42 6c 61 6e 6b 2c | . Line |0=Blank,|
|00004f80| 20 20 4c 69 6e 65 20 31 | 3d 44 61 79 3a 20 53 75 | Line 1|=Day: Su|
|00004f90| 6e 20 4d 6f 6e 20 54 75 | 65 20 65 74 63 0d 00 df |n Mon Tu|e etc...|
|00004fa0| 32 20 20 f2 64 61 79 5f | 66 6f 6e 74 3a 20 f4 20 |2 .day_|font: . |
|00004fb0| 49 6e 63 6c 20 56 44 55 | 32 3b 20 50 72 69 6e 74 |Incl VDU|2; Print|
|00004fc0| 65 72 20 6f 6e 20 26 20 | 6c 65 66 74 20 6f 6e 0d |er on & |left on.|
|00004fd0| 00 e0 1e 20 20 f1 8a 34 | 30 29 3b 3a f2 76 6c 69 |... ..4|0);:.vli|
|00004fe0| 6e 65 3a f1 3a f4 20 4c | 69 6e 65 20 30 0d 00 e1 |ne:.:. L|ine 0...|
|00004ff0| 32 20 20 f1 20 64 61 79 | 24 2b 22 20 20 22 2b 6c |2 . day|$+" "+l|
|00005000| 6d 65 73 73 61 67 65 24 | 3b 8a 34 30 29 3b 3a f2 |message$|;.40);:.|
|00005010| 76 6c 69 6e 65 3a f4 20 | 4c 69 6e 65 20 31 4c 0d |vline:. |Line 1L.|
|00005020| 00 e2 2a 20 20 f1 3b 22 | 20 20 22 2b 64 61 79 24 |..* .;"| "+day$|
|00005030| 2b 22 20 20 22 2b 72 6d | 65 73 73 61 67 65 24 3a |+" "+rm|essage$:|
|00005040| f4 20 4c 69 6e 65 20 31 | 52 0d 00 e3 05 3a 0d 00 |. Line 1|R....:..|
|00005050| e4 34 20 20 f4 20 4c 69 | 6e 65 73 20 32 2c 33 3d |.4 . Li|nes 2,3=|
|00005060| 42 6c 61 6e 6b 2c 20 20 | 4c 69 6e 65 20 34 3d 44 |Blank, |Line 4=D|
|00005070| 61 74 65 2c 20 20 4c 69 | 6e 65 20 35 3d 42 6c 61 |ate, Li|ne 5=Bla|
|00005080| 6e 6b 0d 00 e5 2f 20 20 | f2 64 61 74 65 5f 66 6f |nk.../ |.date_fo|
|00005090| 6e 74 3a 20 f4 20 49 6e | 63 6c 20 56 44 55 32 3b |nt: . In|cl VDU2;|
|000050a0| 20 50 72 69 6e 74 65 72 | 20 73 74 69 6c 6c 20 6f | Printer| still o|
|000050b0| 6e 0d 00 e6 2d 20 20 e3 | 69 25 3d 31 20 b8 20 32 |n...- .|i%=1 . 2|
|000050c0| 3a f1 8a 32 30 29 3b 3a | f2 76 6c 69 6e 65 3a f1 |:..20);:|.vline:.|
|000050d0| 3a ed 3a f4 20 4c 69 6e | 65 73 20 32 2c 33 0d 00 |:.:. Lin|es 2,3..|
|000050e0| e7 16 20 20 e7 6c 64 61 | 74 65 25 3c 31 30 20 f1 |.. .lda|te%<10 .|
|000050f0| 22 20 22 3b 0d 00 e8 25 | 20 20 f1 c3 6c 64 61 74 |" ";...%| ..ldat|
|00005100| 65 25 3b 8a 32 30 29 3b | 3a f2 76 6c 69 6e 65 3a |e%;.20);|:.vline:|
|00005110| f4 20 4c 69 6e 65 20 34 | 4c 0d 00 e9 17 20 20 e7 |. Line 4|L.... .|
|00005120| 72 64 61 74 65 25 3c 31 | 30 20 f1 3b 22 20 22 3b |rdate%<1|0 .;" ";|
|00005130| 0d 00 ea 1d 20 20 f1 3b | 22 20 22 2b c3 72 64 61 |.... .;|" "+.rda|
|00005140| 74 65 25 3a f4 20 4c 69 | 6e 65 20 34 52 0d 00 eb |te%:. Li|ne 4R...|
|00005150| 1e 20 20 f1 8a 32 30 29 | 3b 3a f2 76 6c 69 6e 65 |. ..20)|;:.vline|
|00005160| 3a f1 3a f4 20 4c 69 6e | 65 20 35 0d 00 ec 05 3a |:.:. Lin|e 5....:|
|00005170| 0d 00 ed 3a 20 20 f4 20 | 4c 69 6e 65 20 36 3d 57 |...: . |Line 6=W|
|00005180| 65 65 6b 20 6f 6e 20 4d | 6f 6e 2c 20 6f 74 68 65 |eek on M|on, othe|
|00005190| 72 77 69 73 65 20 42 6c | 61 6e 6b 3b 20 20 4c 69 |rwise Bl|ank; Li|
|000051a0| 6e 65 20 37 3d 48 6c 69 | 6e 65 0d 00 ee 2f 20 20 |ne 7=Hli|ne.../ |
|000051b0| f2 77 65 65 6b 5f 66 6f | 6e 74 3a 20 f4 20 49 6e |.week_fo|nt: . In|
|000051c0| 63 6c 20 56 44 55 32 3b | 20 50 72 69 6e 74 65 72 |cl VDU2;| Printer|
|000051d0| 20 73 74 69 6c 6c 20 6f | 6e 0d 00 ef 0f 20 20 e7 | still o|n.... .|
|000051e0| 64 61 79 25 3d 31 20 8c | 0d 00 f0 2f 20 20 20 20 |day%=1 .|.../ |
|000051f0| f4 20 57 65 65 6b 20 6e | 75 6d 62 65 72 20 69 73 |. Week n|umber is|
|00005200| 20 70 72 69 6e 74 65 64 | 20 6f 6e 20 4d 6f 6e 64 | printed| on Mond|
|00005210| 61 79 20 6f 6e 6c 79 0d | 00 f1 25 20 20 20 20 6c |ay only.|..% l|
|00005220| 77 65 65 6b 24 3d c3 6c | 77 65 65 6b 25 3a 72 77 |week$=.l|week%:rw|
|00005230| 65 65 6b 24 3d c3 72 77 | 65 65 6b 25 0d 00 f2 29 |eek$=.rw|eek%...)|
|00005240| 20 20 20 20 e7 20 6c 77 | 65 65 6b 25 3e 3d 31 20 | . lw|eek%>=1 |
|00005250| 80 20 6c 77 65 65 6b 25 | 3c 3d 77 65 65 6b 35 32 |. lweek%|<=week52|
|00005260| 35 33 25 20 8c 0d 00 f3 | 2d 20 20 20 20 20 20 f1 |53% ....|- .|
|00005270| 22 57 65 65 6b 20 22 2b | 6c 77 65 65 6b 24 3b 8a |"Week "+|lweek$;.|
|00005280| 34 30 29 3b 3a f2 76 6c | 69 6e 65 3a 20 20 f4 20 |40);:.vl|ine: . |
|00005290| 36 4c 0d 00 f4 30 20 20 | 20 20 cc 20 f1 8a 34 30 |6L...0 | . ..40|
|000052a0| 29 3b 3a f2 76 6c 69 6e | 65 3a 20 20 20 20 20 20 |);:.vlin|e: |
|000052b0| 20 20 20 20 20 20 20 20 | f4 20 36 4c 20 42 6c 61 | |. 6L Bla|
|000052c0| 6e 6b 0d 00 f5 09 20 20 | 20 20 cd 0d 00 f6 29 20 |nk.... | ....) |
|000052d0| 20 20 20 e7 20 72 77 65 | 65 6b 25 3e 3d 31 20 80 | . rwe|ek%>=1 .|
|000052e0| 20 72 77 65 65 6b 25 3c | 3d 77 65 65 6b 35 32 35 | rweek%<|=week525|
|000052f0| 33 25 20 8c 0d 00 f7 33 | 20 20 20 20 20 20 f1 3b |3% ....3| .;|
|00005300| 22 20 20 57 65 65 6b 20 | 22 2b 72 77 65 65 6b 24 |" Week |"+rweek$|
|00005310| 3a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |: | |
|00005320| 20 20 20 f4 20 36 52 0d | 00 f8 36 20 20 20 20 cc | . 6R.|..6 .|
|00005330| 20 f1 3a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | .: | |
|00005340| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005350| 20 20 20 f4 20 36 52 20 | 42 6c 61 6e 6b 0d 00 f9 | . 6R |Blank...|
|00005360| 09 20 20 20 20 cd 0d 00 | fa 07 20 20 cc 0d 00 fb |. ...|.. ....|
|00005370| 2b 20 20 20 20 f4 20 43 | 6f 6e 74 69 6e 75 65 20 |+ . C|ontinue |
|00005380| 54 75 65 20 64 61 79 25 | 3d 32 20 74 6f 20 53 61 |Tue day%|=2 to Sa|
|00005390| 74 20 64 61 79 25 3d 36 | 0d 00 fc 2f 20 20 20 20 |t day%=6|.../ |
|000053a0| f1 8a 34 30 29 3b 3a f2 | 76 6c 69 6e 65 3a f1 3a |..40);:.|vline:.:|
|000053b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 f4 20 36 | | . 6|
|000053c0| 20 20 42 6c 61 6e 6b 0d | 00 fd 07 20 20 cd 0d 00 | Blank.|... ...|
|000053d0| fe 31 20 20 f2 68 6c 69 | 6e 65 3a ef 33 3a 20 20 |.1 .hli|ne:.3: |
|000053e0| 20 20 20 20 f4 20 53 74 | 6f 70 20 70 72 69 6e 74 | . St|op print|
|000053f0| 65 72 20 20 20 20 20 20 | 20 20 52 45 4d 20 37 0d |er | REM 7.|
|00005400| 00 ff 05 3a 0d 01 00 05 | cc 0d 01 01 36 20 20 f4 |...:....|....6 .|
|00005410| 24 20 50 72 65 76 69 65 | 77 20 52 6f 75 74 69 6e |$ Previe|w Routin|
|00005420| 65 3b 20 20 50 72 65 76 | 69 65 77 20 65 6e 74 65 |e; Prev|iew ente|
|00005430| 72 73 20 74 68 69 73 20 | 73 65 63 74 69 6f 6e 0d |rs this |section.|
|00005440| 01 02 20 20 20 e7 6c 6d | 65 73 73 61 67 65 24 2b |.. .lm|essage$+|
|00005450| 72 6d 65 73 73 61 67 65 | 24 3c 3e 22 22 20 8c 0d |rmessage|$<>"" ..|
|00005460| 01 03 12 20 20 20 20 73 | 70 61 63 65 24 3d 22 20 |... s|pace$=" |
|00005470| 22 0d 01 04 1e 20 20 20 | 20 e7 6c 64 61 74 65 25 |".... | .ldate%|
|00005480| 3c 31 30 20 73 70 61 63 | 65 24 3d 22 20 20 22 0d |<10 spac|e$=" ".|
|00005490| 01 05 18 20 20 20 20 e7 | 6c 6d 65 73 73 61 67 65 |... .|lmessage|
|000054a0| 24 3c 3e 22 22 20 8c 0d | 01 06 43 20 20 20 20 20 |$<>"" ..|..C |
|000054b0| 20 e7 70 72 65 76 69 65 | 77 5f 6c 69 6e 65 73 25 | .previe|w_lines%|
|000054c0| 3e 3d 35 20 70 72 65 76 | 69 65 77 5f 6c 69 6e 65 |>=5 prev|iew_line|
|000054d0| 73 25 3d 30 3a e7 20 6f | 70 74 25 3d 31 20 f2 61 |s%=0:. o|pt%=1 .a|
|000054e0| 6e 79 6b 65 79 28 31 2c | 31 29 0d 01 07 29 20 20 |nykey(1,|1)...) |
|000054f0| 20 20 20 20 70 72 65 76 | 69 65 77 5f 6c 69 6e 65 | prev|iew_line|
|00005500| 73 25 3d 70 72 65 76 69 | 65 77 5f 6c 69 6e 65 73 |s%=previ|ew_lines|
|00005510| 25 2b 31 0d 01 08 3f 20 | 20 20 20 20 20 f1 27 22 |%+1...? | .'"|
|00005520| 20 22 2b 6c 6d 6f 6e 74 | 68 24 2b 73 70 61 63 65 | "+lmont|h$+space|
|00005530| 24 2b c3 6c 64 61 74 65 | 25 2b 22 20 20 22 2b 64 |$+.ldate|%+" "+d|
|00005540| 61 79 24 2b 22 20 20 22 | 2b 6c 6d 65 73 73 61 67 |ay$+" "|+lmessag|
|00005550| 65 24 0d 01 09 09 20 20 | 20 20 cd 0d 01 0a 12 20 |e$.... | ..... |
|00005560| 20 20 20 73 70 61 63 65 | 24 3d 22 20 22 0d 01 0b | space|$=" "...|
|00005570| 1e 20 20 20 20 e7 72 64 | 61 74 65 25 3c 31 30 20 |. .rd|ate%<10 |
|00005580| 73 70 61 63 65 24 3d 22 | 20 20 22 0d 01 0c 18 20 |space$="| ".... |
|00005590| 20 20 20 e7 72 6d 65 73 | 73 61 67 65 24 3c 3e 22 | .rmes|sage$<>"|
|000055a0| 22 20 8c 0d 01 0d 44 20 | 20 20 20 20 20 e7 70 72 |" ....D | .pr|
|000055b0| 65 76 69 65 77 5f 6c 69 | 6e 65 73 25 3e 3d 35 20 |eview_li|nes%>=5 |
|000055c0| 20 70 72 65 76 69 65 77 | 5f 6c 69 6e 65 73 25 3d | preview|_lines%=|
|000055d0| 30 3a e7 20 6f 70 74 25 | 3d 31 20 f2 61 6e 79 6b |0:. opt%|=1 .anyk|
|000055e0| 65 79 28 31 2c 31 29 0d | 01 0e 29 20 20 20 20 20 |ey(1,1).|..) |
|000055f0| 20 70 72 65 76 69 65 77 | 5f 6c 69 6e 65 73 25 3d | preview|_lines%=|
|00005600| 70 72 65 76 69 65 77 5f | 6c 69 6e 65 73 25 2b 31 |preview_|lines%+1|
|00005610| 0d 01 0f 41 20 20 20 20 | 20 20 f1 27 89 28 33 30 |...A | .'.(30|
|00005620| 29 3b 72 6d 6f 6e 74 68 | 24 2b 73 70 61 63 65 24 |);rmonth|$+space$|
|00005630| 2b c3 72 64 61 74 65 25 | 2b 22 20 20 22 2b 64 61 |+.rdate%|+" "+da|
|00005640| 79 24 2b 22 20 20 22 2b | 72 6d 65 73 73 61 67 65 |y$+" "+|rmessage|
|00005650| 24 0d 01 10 09 20 20 20 | 20 cd 0d 01 11 07 20 20 |$.... | ..... |
|00005660| cd 0d 01 12 05 cd 0d 01 | 13 17 f4 25 20 44 61 69 |........|...% Dai|
|00005670| 6c 79 20 49 6e 63 72 65 | 6d 65 6e 74 73 0d 01 14 |ly Incre|ments...|
|00005680| 23 6c 64 61 74 65 25 3d | 6c 64 61 74 65 25 2b 31 |#ldate%=|ldate%+1|
|00005690| 3a 72 64 61 74 65 25 3d | 72 64 61 74 65 25 2b 31 |:rdate%=|rdate%+1|
|000056a0| 0d 01 15 42 e7 6c 64 61 | 74 65 25 3e 6d 6f 6e 74 |...B.lda|te%>mont|
|000056b0| 68 65 6e 64 25 20 6c 6d | 6f 6e 74 68 25 3d 6c 6d |hend% lm|onth%=lm|
|000056c0| 6f 6e 74 68 25 2b 31 3a | 6c 64 61 74 65 25 3d 31 |onth%+1:|ldate%=1|
|000056d0| 3a f2 67 65 74 5f 6d 6f | 6e 74 68 28 22 4c 22 2c |:.get_mo|nth("L",|
|000056e0| b9 29 0d 01 16 42 e7 72 | 64 61 74 65 25 3e 6d 6f |.)...B.r|date%>mo|
|000056f0| 6e 74 68 65 6e 64 25 20 | 72 6d 6f 6e 74 68 25 3d |nthend% |rmonth%=|
|00005700| 72 6d 6f 6e 74 68 25 2b | 31 3a 72 64 61 74 65 25 |rmonth%+|1:rdate%|
|00005710| 3d 31 3a f2 67 65 74 5f | 6d 6f 6e 74 68 28 22 52 |=1:.get_|month("R|
|00005720| 22 2c b9 29 0d 01 17 20 | ed 3a 20 f4 20 45 6e 64 |",.)... |.: . End|
|00005730| 20 6f 66 20 64 61 79 25 | 3d 30 20 54 4f 20 36 20 | of day%|=0 TO 6 |
|00005740| 4c 6f 6f 70 0d 01 18 05 | 3a 0d 01 19 3e f4 20 57 |Loop....|:...>. W|
|00005750| 65 65 6b 6c 79 20 49 6e | 63 72 65 6d 65 6e 74 73 |eekly In|crements|
|00005760| 3b 20 53 65 74 20 73 74 | 61 72 74 69 6e 67 20 76 |; Set st|arting v|
|00005770| 61 6c 75 65 73 20 66 6f | 72 20 6e 65 77 20 4c 65 |alues fo|r new Le|
|00005780| 66 74 2d 77 65 65 6b 0d | 01 1a 23 6c 6d 6f 6e 74 |ft-week.|..#lmont|
|00005790| 68 25 3d 72 6d 6f 6e 74 | 68 25 3a 6c 6d 6f 6e 74 |h%=rmont|h%:lmont|
|000057a0| 68 24 3d 72 6d 6f 6e 74 | 68 24 0d 01 1b 2a 6c 73 |h$=rmont|h$...*ls|
|000057b0| 75 6e 64 61 74 65 25 3d | 72 64 61 74 65 25 3a 72 |undate%=|rdate%:r|
|000057c0| 73 75 6e 64 61 74 65 25 | 3d 6c 73 75 6e 64 61 74 |sundate%|=lsundat|
|000057d0| 65 25 2b 37 0d 01 1c 1a | e7 72 73 75 6e 64 61 74 |e%+7....|.rsundat|
|000057e0| 65 25 3e 6d 6f 6e 74 68 | 65 6e 64 25 20 8c 0d 01 |e%>month|end% ...|
|000057f0| 1d 47 20 20 72 6d 6f 6e | 74 68 25 3d 72 6d 6f 6e |.G rmon|th%=rmon|
|00005800| 74 68 25 2b 31 3a 72 73 | 75 6e 64 61 74 65 25 3d |th%+1:rs|undate%=|
|00005810| 72 73 75 6e 64 61 74 65 | 25 2d 6d 6f 6e 74 68 65 |rsundate|%-monthe|
|00005820| 6e 64 25 3a f2 67 65 74 | 5f 6d 6f 6e 74 68 28 22 |nd%:.get|_month("|
|00005830| 52 22 2c a3 29 0d 01 1e | 05 cd 0d 01 1f 25 6c 64 |R",.)...|.....%ld|
|00005840| 61 74 65 25 3d 6c 73 75 | 6e 64 61 74 65 25 3a 72 |ate%=lsu|ndate%:r|
|00005850| 64 61 74 65 25 3d 72 73 | 75 6e 64 61 74 65 25 0d |date%=rs|undate%.|
|00005860| 01 20 23 6c 77 65 65 6b | 25 3d 6c 77 65 65 6b 25 |. #lweek|%=lweek%|
|00005870| 2b 32 3a 72 77 65 65 6b | 25 3d 72 77 65 65 6b 25 |+2:rweek|%=rweek%|
|00005880| 2b 32 0d 01 21 05 3a 0d | 01 22 42 e7 20 64 69 61 |+2..!.:.|."B. dia|
|00005890| 72 79 5f 70 72 69 6e 74 | 25 20 80 20 70 72 69 6e |ry_print|% . prin|
|000058a0| 74 65 72 5f 6f 6e 25 20 | f2 76 74 61 62 3a 20 f4 |ter_on% |.vtab: .|
|000058b0| 20 49 6e 63 6c 20 56 44 | 55 32 2f 33 3b 20 50 72 | Incl VD|U2/3; Pr|
|000058c0| 69 6e 74 65 72 20 6f 66 | 66 0d 01 23 05 3a 0d 01 |inter of|f..#.:..|
|000058d0| 24 2f f4 20 4e 65 77 20 | 68 61 6c 66 2d 70 61 67 |$/. New |half-pag|
|000058e0| 65 20 69 66 20 70 72 69 | 6e 74 69 6e 67 3b 20 73 |e if pri|nting; s|
|000058f0| 65 65 20 6e 6f 74 65 20 | 62 65 6c 6f 77 0d 01 25 |ee note |below..%|
|00005900| 48 f4 20 54 6f 20 68 65 | 6c 70 20 6b 65 65 70 20 |H. To he|lp keep |
|00005910| 6d 6f 73 74 20 6f 66 20 | 6f 6e 65 20 6d 6f 6e 74 |most of |one mont|
|00005920| 68 20 6f 6e 20 64 69 73 | 70 6c 61 79 20 77 68 65 |h on dis|play whe|
|00005930| 6e 20 64 69 61 72 79 20 | 70 61 67 65 20 69 73 20 |n diary |page is |
|00005940| 6f 70 65 6e 2c 0d 01 26 | 48 f4 20 4c 57 6b 33 35 |open,..&|H. LWk35|
|00005950| 20 28 53 74 61 72 74 3d | 2d 31 29 20 6f 72 20 4c | (Start=|-1) or L|
|00005960| 57 6b 20 33 36 20 28 53 | 74 61 72 74 3d 30 29 20 |Wk 36 (S|tart=0) |
|00005970| 69 73 20 6d 6f 76 65 64 | 20 74 6f 20 74 68 65 20 |is moved| to the |
|00005980| 74 6f 70 20 6f 66 20 61 | 20 70 61 67 65 0d 01 27 |top of a| page..'|
|00005990| 05 3a 0d 01 28 32 e7 20 | 64 69 61 72 79 5f 70 72 |.:..(2. |diary_pr|
|000059a0| 69 6e 74 25 20 80 20 28 | 6c 77 65 65 6b 25 3d 33 |int% . (|lweek%=3|
|000059b0| 35 20 84 20 6c 77 65 65 | 6b 25 3d 33 36 29 20 f2 |5 . lwee|k%=36) .|
|000059c0| 76 74 61 62 0d 01 29 14 | fd 20 6c 77 65 65 6b 25 |vtab..).|. lweek%|
|000059d0| 3e 66 69 6e 69 73 68 25 | 0d 01 2a 05 3a 0d 01 2b |>finish%|..*.:..+|
|000059e0| 05 3a 0d 01 2c 3d e7 20 | 20 6f 70 74 25 20 3d 32 |.:..,=. | opt% =2|
|000059f0| 20 20 80 20 70 72 69 6e | 74 65 72 5f 6f 6e 25 20 | . prin|ter_on% |
|00005a00| ef 33 3a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.3: | |
|00005a10| 20 20 70 72 69 6e 74 65 | 72 5f 6f 6e 25 3d a3 0d | printe|r_on%=..|
|00005a20| 01 2d 3c e7 20 20 6f 70 | 74 25 3e 3d 33 20 20 80 |.-<. op|t%>=3 .|
|00005a30| 20 70 72 69 6e 74 65 72 | 5f 6f 6e 25 20 f2 72 65 | printer|_on% .re|
|00005a40| 73 74 6f 72 65 5f 70 72 | 69 6e 74 65 72 3a 70 72 |store_pr|inter:pr|
|00005a50| 69 6e 74 65 72 5f 6f 6e | 25 3d a3 0d 01 2e 3a f4 |inter_on|%=....:.|
|00005a60| 20 6f 70 74 25 3e 3d 33 | 20 20 45 6e 64 73 20 61 | opt%>=3| Ends a|
|00005a70| 74 20 54 6f 70 2d 6f 66 | 2d 46 6f 72 6d 20 77 69 |t Top-of|-Form wi|
|00005a80| 74 68 20 50 72 69 6e 74 | 65 72 20 6f 66 66 20 28 |th Print|er off (|
|00005a90| 56 44 55 33 29 0d 01 2f | 05 3a 0d 01 30 05 3a 0d |VDU3)../|.:..0.:.|
|00005aa0| 01 31 06 f4 5e 0d 01 32 | 15 66 6f 6c 64 25 3d a3 |.1..^..2|.fold%=.|
|00005ab0| 3a 70 72 66 6f 6c 64 25 | 3d a3 0d 01 33 0e e7 20 |:prfold%|=...3.. |
|00005ac0| 6f 70 74 25 3d 31 20 8c | 0d 01 34 42 20 20 66 6f |opt%=1 .|..4B fo|
|00005ad0| 6c 64 25 3d 20 a4 63 6f | 6e 66 69 72 6d 28 22 20 |ld%= .co|nfirm(" |
|00005ae0| 44 6f 20 79 6f 75 20 77 | 61 6e 74 20 66 6f 6c 64 |Do you w|ant fold|
|00005af0| 69 6e 67 20 69 6e 73 74 | 72 75 63 74 69 6f 6e 73 |ing inst|ructions|
|00005b00| 20 28 59 2f 4e 29 22 2c | 31 29 0d 01 35 10 cc 20 | (Y/N)",|1)..5.. |
|00005b10| e7 20 6f 70 74 25 3d 32 | 20 8c 0d 01 36 44 20 20 |. opt%=2| ...6D |
|00005b20| 20 20 66 6f 6c 64 25 3d | 20 a4 63 6f 6e 66 69 72 | fold%=| .confir|
|00005b30| 6d 28 22 20 44 6f 20 79 | 6f 75 20 77 61 6e 74 20 |m(" Do y|ou want |
|00005b40| 66 6f 6c 64 69 6e 67 20 | 69 6e 73 74 72 75 63 74 |folding |instruct|
|00005b50| 69 6f 6e 73 20 28 59 2f | 4e 29 22 2c 31 29 0d 01 |ions (Y/|N)",1)..|
|00005b60| 37 4d 20 20 20 20 70 72 | 66 6f 6c 64 25 3d a4 63 |7M pr|fold%=.c|
|00005b70| 6f 6e 66 69 72 6d 28 22 | 20 44 6f 20 79 6f 75 20 |onfirm("| Do you |
|00005b80| 77 61 6e 74 20 70 72 69 | 6e 74 65 64 20 66 6f 6c |want pri|nted fol|
|00005b90| 64 69 6e 67 20 69 6e 73 | 74 72 75 63 74 69 6f 6e |ding ins|truction|
|00005ba0| 73 20 28 59 2f 4e 29 22 | 2c 31 29 0d 01 38 19 20 |s (Y/N)"|,1)..8. |
|00005bb0| 20 20 20 e7 20 70 72 66 | 6f 6c 64 25 20 66 6f 6c | . prf|old% fol|
|00005bc0| 64 25 3d a3 0d 01 39 07 | 20 20 cd 0d 01 3a 05 cd |d%=...9.| ...:..|
|00005bd0| 0d 01 3b 05 3a 0d 01 3c | 17 e7 20 66 6f 6c 64 25 |..;.:..<|.. fold%|
|00005be0| 20 84 20 70 72 66 6f 6c | 64 25 20 8c 0d 01 3d 14 | . prfol|d% ...=.|
|00005bf0| 20 20 e7 20 66 6f 6c 64 | 25 20 db 20 8b 20 ef 32 | . fold|% . . .2|
|00005c00| 0d 01 3e 41 20 20 f1 27 | 27 22 20 50 6c 61 63 65 |..>A .'|'" Place|
|00005c10| 20 74 68 65 20 73 74 61 | 63 6b 20 6f 66 20 66 61 | the sta|ck of fa|
|00005c20| 6e 66 6f 6c 64 65 64 20 | 70 61 70 65 72 20 6f 6e |nfolded |paper on|
|00005c30| 20 61 20 63 6f 76 65 72 | 65 64 20 74 61 62 6c 65 | a cover|ed table|
|00005c40| 22 0d 01 3f 3e 20 20 f1 | 27 22 20 54 68 65 20 74 |"..?> .|'" The t|
|00005c50| 61 62 6c 65 20 73 68 6f | 75 6c 64 20 62 65 20 63 |able sho|uld be c|
|00005c60| 6f 76 65 72 65 64 20 74 | 6f 20 70 72 6f 74 65 63 |overed t|o protec|
|00005c70| 74 20 69 74 20 66 72 6f | 6d 20 67 6c 75 65 22 0d |t it fro|m glue".|
|00005c80| 01 40 42 20 20 f1 27 22 | 20 52 65 6d 6f 76 65 20 |.@B .'"| Remove |
|00005c90| 74 68 65 20 74 72 61 63 | 74 6f 72 2d 73 74 72 69 |the trac|tor-stri|
|00005ca0| 70 73 20 62 75 74 20 64 | 6f 20 6e 6f 74 20 73 65 |ps but d|o not se|
|00005cb0| 70 61 72 61 74 65 20 74 | 68 65 20 70 61 67 65 73 |parate t|he pages|
|00005cc0| 22 0d 01 41 39 20 20 f1 | 27 22 20 45 6e 73 75 72 |"..A9 .|'" Ensur|
|00005cd0| 65 20 74 68 61 74 20 74 | 68 65 20 77 6f 72 64 73 |e that t|he words|
|00005ce0| 20 27 54 4f 50 27 20 61 | 72 65 20 69 6e 20 76 69 | 'TOP' a|re in vi|
|00005cf0| 65 77 20 6f 6e 20 74 6f | 70 22 0d 01 42 1c 20 20 |ew on to|p"..B. |
|00005d00| e7 20 66 6f 6c 64 25 20 | f2 61 6e 79 6b 65 79 28 |. fold% |.anykey(|
|00005d10| 33 2c 31 29 3a db 0d 01 | 43 04 0d 01 44 42 20 20 |3,1):...|C...DB |
|00005d20| f1 27 27 22 20 46 6f 6c | 64 20 74 68 65 20 74 6f |.''" Fol|d the to|
|00005d30| 70 20 73 68 65 65 74 20 | 65 78 61 63 74 6c 79 20 |p sheet |exactly |
|00005d40| 69 6e 20 68 61 6c 66 20 | 62 79 20 66 6f 6c 64 69 |in half |by foldi|
|00005d50| 6e 67 20 64 6f 77 6e 20 | 69 74 73 22 0d 01 45 3a |ng down |its"..E:|
|00005d60| 20 20 f1 22 20 20 20 20 | 74 6f 70 20 65 64 67 65 | ." |top edge|
|00005d70| 20 74 6f 20 6c 69 65 20 | 65 78 61 63 74 6c 79 20 | to lie |exactly |
|00005d80| 61 6c 6f 6e 67 20 69 74 | 73 20 62 6f 74 74 6f 6d |along it|s bottom|
|00005d90| 20 65 64 67 65 22 0d 01 | 46 36 20 20 f1 27 22 20 | edge"..|F6 .'" |
|00005da0| 54 68 65 20 77 6f 72 64 | 73 20 27 54 4f 50 27 20 |The word|s 'TOP' |
|00005db0| 61 72 65 20 6e 6f 77 20 | 6f 75 74 2d 6f 66 2d 73 |are now |out-of-s|
|00005dc0| 69 67 68 74 20 69 6e 73 | 69 64 65 22 0d 01 47 1c |ight ins|ide"..G.|
|00005dd0| 20 20 e7 20 66 6f 6c 64 | 25 20 f2 61 6e 79 6b 65 | . fold|% .anyke|
|00005de0| 79 28 33 2c 31 29 3a db | 0d 01 48 04 0d 01 49 40 |y(3,1):.|..H...I@|
|00005df0| 20 20 f1 27 27 22 20 4d | 61 6b 65 20 61 20 53 48 | .''" M|ake a SH|
|00005e00| 41 52 50 20 63 72 65 61 | 73 65 20 45 58 41 43 54 |ARP crea|se EXACT|
|00005e10| 4c 59 20 61 6c 6f 6e 67 | 20 74 68 65 20 68 61 6c |LY along| the hal|
|00005e20| 66 2d 70 61 67 65 20 6c | 69 6e 65 22 0d 01 4a 40 |f-page l|ine"..J@|
|00005e30| 20 20 f1 27 22 20 54 68 | 65 20 61 63 63 75 72 61 | .'" Th|e accura|
|00005e40| 63 79 20 61 6e 64 20 71 | 75 61 6c 69 74 79 20 6f |cy and q|uality o|
|00005e50| 66 20 74 68 69 73 20 63 | 72 65 61 73 65 20 61 72 |f this c|rease ar|
|00005e60| 65 20 69 6d 70 6f 72 74 | 61 6e 74 22 0d 01 4b 1c |e import|ant"..K.|
|00005e70| 20 20 e7 20 66 6f 6c 64 | 25 20 f2 61 6e 79 6b 65 | . fold|% .anyke|
|00005e80| 79 28 33 2c 31 29 3a db | 0d 01 4c 04 0d 01 4d 41 |y(3,1):.|..L...MA|
|00005e90| 20 20 f1 27 27 22 20 48 | 6f 6c 64 20 74 68 65 20 | .''" H|old the |
|00005ea0| 66 6f 6c 64 65 64 20 66 | 69 72 73 74 20 70 61 67 |folded f|irst pag|
|00005eb0| 65 20 61 6e 64 20 74 68 | 65 20 6e 65 78 74 20 70 |e and th|e next p|
|00005ec0| 61 67 65 20 74 6f 67 65 | 74 68 65 72 22 0d 01 4e |age toge|ther"..N|
|00005ed0| 42 20 20 f1 27 22 20 4f | 70 65 6e 20 70 61 67 65 |B .'" O|pen page|
|00005ee0| 73 20 32 20 26 20 33 20 | 6f 75 74 20 66 6c 61 74 |s 2 & 3 |out flat|
|00005ef0| 20 74 6f 20 72 65 76 65 | 61 6c 20 74 68 65 20 66 | to reve|al the f|
|00005f00| 72 6f 6e 74 20 6f 66 20 | 70 61 67 65 20 32 22 0d |ront of |page 2".|
|00005f10| 01 4f 1c 20 20 e7 20 66 | 6f 6c 64 25 20 f2 61 6e |.O. . f|old% .an|
|00005f20| 79 6b 65 79 28 33 2c 31 | 29 3a db 0d 01 50 04 0d |ykey(3,1|):...P..|
|00005f30| 01 51 41 20 20 f1 27 27 | 22 20 41 67 61 69 6e 2c |.QA .''|" Again,|
|00005f40| 20 66 6f 6c 64 20 74 6f | 70 2d 65 64 67 65 20 64 | fold to|p-edge d|
|00005f50| 6f 77 6e 20 74 6f 20 62 | 72 69 6e 67 20 74 68 65 |own to b|ring the|
|00005f60| 20 74 6f 70 20 61 6e 64 | 20 62 6f 74 74 6f 6d 22 | top and| bottom"|
|00005f70| 0d 01 52 30 20 20 f1 22 | 20 20 20 20 70 65 72 66 |..R0 ."| perf|
|00005f80| 6f 72 61 74 65 64 20 65 | 64 67 65 73 20 6f 66 20 |orated e|dges of |
|00005f90| 70 61 67 65 20 32 20 74 | 6f 67 65 74 68 65 72 22 |page 2 t|ogether"|
|00005fa0| 0d 01 53 34 20 20 f1 27 | 22 20 43 72 65 61 73 65 |..S4 .'|" Crease|
|00005fb0| 20 61 74 20 74 68 65 20 | 6d 69 64 2d 6c 69 6e 65 | at the |mid-line|
|00005fc0| 20 6f 66 20 74 68 65 20 | 73 65 63 6f 6e 64 20 70 | of the |second p|
|00005fd0| 61 67 65 22 0d 01 54 1c | 20 20 e7 20 66 6f 6c 64 |age"..T.| . fold|
|00005fe0| 25 20 f2 61 6e 79 6b 65 | 79 28 33 2c 31 29 3a db |% .anyke|y(3,1):.|
|00005ff0| 0d 01 55 05 3a 0d 01 56 | 33 20 20 f1 27 27 22 20 |..U.:..V|3 .''" |
|00006000| 48 6f 6c 64 20 74 68 65 | 20 73 74 61 63 6b 20 6f |Hold the| stack o|
|00006010| 66 20 66 6f 6c 64 65 64 | 20 70 61 67 65 73 20 74 |f folded| pages t|
|00006020| 6f 67 65 74 68 65 72 22 | 0d 01 57 3d 20 20 f1 27 |ogether"|..W= .'|
|00006030| 22 20 46 6f 6c 64 20 74 | 68 65 6d 20 75 6e 64 65 |" Fold t|hem unde|
|00006040| 72 6e 65 61 74 68 20 74 | 68 65 20 74 6f 70 20 68 |rneath t|he top h|
|00006050| 61 6c 66 20 6f 66 20 74 | 68 65 20 6e 65 78 74 20 |alf of t|he next |
|00006060| 70 61 67 65 22 0d 01 58 | 38 20 20 f1 27 22 20 43 |page"..X|8 .'" C|
|00006070| 72 65 61 73 65 20 61 67 | 61 69 6e 20 61 74 20 74 |rease ag|ain at t|
|00006080| 68 65 20 6d 69 64 2d 6c | 69 6e 65 20 6f 66 20 74 |he mid-l|ine of t|
|00006090| 68 65 20 6e 65 78 74 20 | 70 61 67 65 22 0d 01 59 |he next |page"..Y|
|000060a0| 1c 20 20 e7 20 66 6f 6c | 64 25 20 f2 61 6e 79 6b |. . fol|d% .anyk|
|000060b0| 65 79 28 33 2c 31 29 3a | db 0d 01 5a 05 3a 0d 01 |ey(3,1):|...Z.:..|
|000060c0| 5b 45 20 20 f1 27 27 22 | 20 43 6f 6e 74 69 6e 75 |[E .''"| Continu|
|000060d0| 65 20 74 68 69 73 20 66 | 6f 6c 64 69 6e 67 20 63 |e this f|olding c|
|000060e0| 79 63 6c 65 20 75 6e 74 | 69 6c 20 79 6f 75 20 68 |ycle unt|il you h|
|000060f0| 61 76 65 20 61 20 6e 65 | 61 74 20 66 61 6e 66 6f |ave a ne|at fanfo|
|00006100| 6c 64 22 0d 01 5c 30 20 | 20 f1 27 22 20 45 6e 73 |ld"..\0 | .'" Ens|
|00006110| 75 72 65 20 74 68 61 74 | 20 61 6c 6c 20 74 68 65 |ure that| all the|
|00006120| 20 63 72 65 61 73 65 73 | 20 61 72 65 20 53 48 41 | creases| are SHA|
|00006130| 52 50 22 0d 01 5d 44 20 | 20 f1 27 22 20 46 61 6e |RP"..]D | .'" Fan|
|00006140| 66 6f 6c 64 20 63 61 6e | 20 62 65 20 6f 70 65 6e |fold can| be open|
|00006150| 65 64 20 61 6e 79 77 68 | 65 72 65 20 74 6f 20 72 |ed anywh|ere to r|
|00006160| 65 76 65 61 6c 20 66 6f | 75 72 20 64 69 61 72 79 |eveal fo|ur diary|
|00006170| 20 77 65 65 6b 73 22 0d | 01 5e 1c 20 20 e7 20 66 | weeks".|.^. . f|
|00006180| 6f 6c 64 25 20 f2 61 6e | 79 6b 65 79 28 33 2c 31 |old% .an|ykey(3,1|
|00006190| 29 3a db 0d 01 5f 05 3a | 0d 01 60 3d 20 20 f1 27 |):..._.:|..`= .'|
|000061a0| 27 22 20 41 70 70 6c 79 | 20 61 20 6e 6f 6e 2d 63 |'" Apply| a non-c|
|000061b0| 72 69 6e 6b 6c 65 20 70 | 61 73 74 65 2d 67 6c 75 |rinkle p|aste-glu|
|000061c0| 65 20 73 75 63 68 20 61 | 73 20 50 72 69 74 74 73 |e such a|s Pritts|
|000061d0| 74 69 63 6b 22 0d 01 61 | 39 20 20 f1 22 20 20 20 |tick"..a|9 ." |
|000061e0| 20 74 6f 20 61 20 62 61 | 6e 64 20 61 62 6f 75 74 | to a ba|nd about|
|000061f0| 20 31 2f 32 20 69 6e 63 | 68 20 28 31 20 63 6d 29 | 1/2 inc|h (1 cm)|
|00006200| 20 77 69 64 65 20 62 65 | 74 77 65 65 6e 22 0d 01 | wide be|tween"..|
|00006210| 62 40 20 20 f1 22 20 20 | 20 20 65 61 63 68 20 6f |b@ ." | each o|
|00006220| 66 20 74 68 65 20 66 6f | 6c 64 73 20 77 68 69 63 |f the fo|lds whic|
|00006230| 68 20 61 72 65 20 69 6e | 20 74 68 65 20 6d 69 64 |h are in| the mid|
|00006240| 64 6c 65 20 6f 66 20 61 | 20 70 61 67 65 22 0d 01 |dle of a| page"..|
|00006250| 63 34 20 20 f1 27 22 20 | 20 4e 42 3a 20 47 4c 55 |c4 .'" | NB: GLU|
|00006260| 45 20 4c 49 4e 45 20 49 | 53 20 4e 4f 54 20 41 54 |E LINE I|S NOT AT|
|00006270| 20 54 48 45 20 50 45 52 | 46 4f 52 41 54 49 4f 4e | THE PER|FORATION|
|00006280| 53 22 0d 01 64 1c 20 20 | e7 20 66 6f 6c 64 25 20 |S"..d. |. fold% |
|00006290| f2 61 6e 79 6b 65 79 28 | 33 2c 31 29 3a db 0d 01 |.anykey(|3,1):...|
|000062a0| 65 05 3a 0d 01 66 3a 20 | 20 f1 27 27 22 20 54 68 |e.:..f: | .''" Th|
|000062b0| 65 20 67 6c 75 65 64 20 | 73 75 72 66 61 63 65 73 |e glued |surfaces|
|000062c0| 20 61 72 65 20 61 6c 6c | 20 62 6c 61 6e 6b 20 62 | are all| blank b|
|000062d0| 61 63 6b 2d 73 75 72 66 | 61 63 65 73 22 0d 01 67 |ack-surf|aces"..g|
|000062e0| 44 20 20 f1 27 22 20 54 | 6f 72 6e 20 70 65 72 66 |D .'" T|orn perf|
|000062f0| 6f 72 61 74 69 6f 6e 73 | 20 77 69 6c 6c 20 6e 6f |orations| will no|
|00006300| 74 20 63 61 75 73 65 20 | 74 68 69 73 20 64 69 61 |t cause |this dia|
|00006310| 72 79 20 74 6f 20 66 61 | 6c 6c 20 61 70 61 72 74 |ry to fa|ll apart|
|00006320| 22 0d 01 68 25 20 20 e7 | 20 66 6f 6c 64 25 20 f2 |"..h% .| fold% .|
|00006330| 61 6e 79 6b 65 79 28 33 | 2c 31 29 20 8b 20 ef 31 |anykey(3|,1) . .1|
|00006340| 2c 31 32 3a ef 33 0d 01 | 69 05 cd 0d 01 6a 09 fd |,12:.3..|i....j..|
|00006350| 20 a3 3a e0 0d 01 6b 05 | 3a 0d 01 6c 05 3a 0d 01 | .:...k.|:..l.:..|
|00006360| 6d 30 f4 26 20 2a 2a 2a | 2a 2a 20 44 41 59 2f 44 |m0.& ***|** DAY/D|
|00006370| 41 54 45 20 46 49 4e 44 | 49 4e 47 20 50 52 4f 43 |ATE FIND|ING PROC|
|00006380| 53 20 42 45 4c 4f 57 3a | 20 2a 2a 2a 2a 2a 0d 01 |S BELOW:| *****..|
|00006390| 6e 05 3a 0d 01 6f 49 dd | f2 73 75 6e 64 61 79 5f |n.:..oI.|.sunday_|
|000063a0| 73 74 61 72 74 3a 20 f4 | 20 53 65 74 73 20 4c 65 |start: .| Sets Le|
|000063b0| 66 74 20 26 20 52 69 67 | 68 74 20 28 6c 2f 72 29 |ft & Rig|ht (l/r)|
|000063c0| 3a 20 73 75 6e 64 61 74 | 65 2c 20 64 61 74 65 2c |: sundat|e, date,|
|000063d0| 20 6d 6f 6e 74 68 2c 20 | 77 65 65 6b 0d 01 70 40 | month, |week..p@|
|000063e0| e7 20 79 65 61 72 25 83 | 34 3d 30 20 6c 65 61 70 |. year%.|4=0 leap|
|000063f0| 25 3d b9 20 8b 20 6c 65 | 61 70 25 3d a3 3a 20 f4 |%=. . le|ap%=.: .|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
