/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / utilities / utilsd / dairy / !Diary / !Filo

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 3a f4 20 44 69 | 61 72 79 2c 20 61 6e 20 |...:. Di|ary, an |
|00000010| 61 70 70 70 6c 69 63 61 | 74 69 6f 6e 20 74 6f 20 |appplica|tion to |
|00000020| 63 72 65 61 74 65 20 79 | 6f 75 72 20 76 65 72 79 |create y|our very|
|00000030| 20 6f 77 6e 20 44 69 61 | 72 79 0d 00 14 17 f4 20 | own Dia|ry..... |
|00000040| 62 79 20 4b 65 69 74 68 | 20 54 68 65 6f 62 61 6c |by Keith| Theobal|
|00000050| 64 0d 00 15 0f f4 20 56 | 65 72 73 69 6f 6e 20 32 |d..... V|ersion 2|
|00000060| 0d 00 16 0d f4 20 33 2f | 31 31 2f 39 35 0d 00 1e |..... 3/|11/95...|
|00000070| 04 0d 00 28 38 de 20 64 | 24 28 37 29 2c 6d 74 68 |...(8. d|$(7),mth|
|00000080| 24 28 31 33 29 2c 64 6d | 28 31 33 29 2c 66 69 6c |$(13),dm|(13),fil|
|00000090| 65 24 28 36 30 29 2c 6f | 70 24 28 33 2c 35 2c 37 |e$(60),o|p$(3,5,7|
|000000a0| 29 2c 6c 24 28 31 31 30 | 29 0d 00 32 6c 6c 24 28 |),l$(110|)..2ll$(|
|000000b0| 30 29 3d 22 7b 22 2b bd | 28 33 34 29 2b 22 43 61 |0)="{"+.|(34)+"Ca|
|000000c0| 6c 61 6e 64 61 72 22 2b | bd 28 33 34 29 2b 22 6f |landar"+|.(34)+"o|
|000000d0| 6e 7d 7b 6e 65 78 74 66 | 72 61 6d 65 7d 7b 74 61 |n}{nextf|rame}{ta|
|000000e0| 62 7d 53 75 7b 74 61 62 | 7d 4d 6f 7b 74 61 62 7d |b}Su{tab|}Mo{tab}|
|000000f0| 54 75 7b 74 61 62 7d 57 | 65 7b 74 61 62 7d 54 68 |Tu{tab}W|e{tab}Th|
|00000100| 7b 74 61 62 7d 46 72 7b | 74 61 62 7d 53 61 22 2b |{tab}Fr{|tab}Sa"+|
|00000110| bd 28 31 33 29 0d 00 3c | 16 6c 3d 2d 31 3a 6c 24 |.(13)..<|.l=-1:l$|
|00000120| 3d 22 22 3a 6e 75 6d 3d | 33 36 35 0d 00 46 0d f4 |="":num=|365..F..|
|00000130| 20 66 69 6c 6f 66 61 78 | 0d 00 50 13 dc 20 35 2c | filofax|..P.. 5,|
|00000140| 35 2c 35 2c 35 2c 35 2c | 35 2c 34 0d 00 5a 1a dc |5,5,5,5,|5,4..Z..|
|00000150| 20 31 30 2c 31 30 2c 31 | 30 2c 31 30 2c 31 34 2c | 10,10,1|0,10,14,|
|00000160| 31 34 2c 31 34 0d 00 64 | 19 dc 20 2d 31 2c 2d 31 |14,14..d|.. -1,-1|
|00000170| 2c 2d 31 2c 2d 31 2c 2d | 31 2c 2d 31 2c 30 0d 00 |,-1,-1,-|1,-1,0..|
|00000180| 6e 08 f4 20 41 35 0d 00 | 78 13 dc 20 35 2c 35 2c |n.. A5..|x.. 5,5,|
|00000190| 35 2c 35 2c 35 2c 35 2c | 34 0d 00 82 1a dc 20 31 |5,5,5,5,|4..... 1|
|000001a0| 30 2c 31 30 2c 31 30 2c | 31 30 2c 31 34 2c 31 34 |0,10,10,|10,14,14|
|000001b0| 2c 31 34 0d 00 8c 19 dc | 20 2d 31 2c 2d 31 2c 2d |,14.....| -1,-1,-|
|000001c0| 31 2c 2d 31 2c 2d 31 2c | 2d 31 2c 30 0d 00 96 08 |1,-1,-1,|-1,0....|
|000001d0| f4 20 41 34 0d 00 a0 13 | dc 20 35 2c 35 2c 35 2c |. A4....|. 5,5,5,|
|000001e0| 35 2c 36 2c 36 2c 37 0d | 00 aa 1a dc 20 31 31 2c |5,6,6,7.|.... 11,|
|000001f0| 31 31 2c 31 31 2c 31 31 | 2c 31 34 2c 31 34 2c 31 |11,11,11|,14,14,1|
|00000200| 34 0d 00 b4 19 dc 20 2d | 31 2c 2d 31 2c 2d 31 2c |4..... -|1,-1,-1,|
|00000210| 2d 31 2c 2d 31 2c 2d 31 | 2c 30 0d 00 be 21 e3 20 |-1,-1,-1|,0...!. |
|00000220| 77 3d 31 20 b8 20 33 3a | e3 20 78 3d 31 20 b8 20 |w=1 . 3:|. x=1 . |
|00000230| 33 3a e3 20 79 3d 31 20 | b8 20 37 0d 00 c8 30 f3 |3:. y=1 |. 7...0.|
|00000240| 20 61 3a e7 20 61 3d 2d | 31 20 8c 20 6f 70 24 28 | a:. a=-|1 . op$(|
|00000250| 77 2c 78 2c 79 29 3d 22 | 7b 6e 65 78 74 66 72 61 |w,x,y)="|{nextfra|
|00000260| 6d 65 7d 22 3a e5 20 8d | 64 5c 40 0d 00 d2 18 6f |me}":. .|d\@....o|
|00000270| 70 24 28 77 2c 78 2c 79 | 29 3d c4 61 2c bd 28 31 |p$(w,x,y|)=.a,.(1|
|00000280| 33 29 29 0d 00 dc 0b ed | 20 79 2c 78 2c 77 0d 00 |3)).....| y,x,w..|
|00000290| e6 72 6f 70 24 28 31 2c | 32 2c 30 29 3d 22 7b 22 |.rop$(1,|2,0)="{"|
|000002a0| 2b bd 28 33 34 29 2b 22 | 55 6e 64 65 72 6c 69 6e |+.(34)+"|Underlin|
|000002b0| 65 22 2b bd 28 33 34 29 | 2b 22 20 6f 6e 20 7d 22 |e"+.(34)|+" on }"|
|000002c0| 2b c4 33 2c bd 28 39 29 | 29 2b 22 7b 22 2b bd 28 |+.3,.(9)|)+"{"+.(|
|000002d0| 33 34 29 2b 22 55 6e 64 | 65 72 6c 69 6e 65 22 2b |34)+"Und|erline"+|
|000002e0| bd 28 33 34 29 2b 22 20 | 6f 66 66 20 7d 22 3a f4 |.(34)+" |off }":.|
|000002f0| 20 55 4e 44 45 52 20 4c | 49 4e 45 20 66 69 6c 6f | UNDER L|INE filo|
|00000300| 0d 00 f0 70 6f 70 24 28 | 32 2c 32 2c 30 29 3d 22 |...pop$(|2,2,0)="|
|00000310| 7b 22 2b bd 28 33 34 29 | 2b 22 55 6e 64 65 72 6c |{"+.(34)|+"Underl|
|00000320| 69 6e 65 22 2b bd 28 33 | 34 29 2b 22 20 6f 6e 20 |ine"+.(3|4)+" on |
|00000330| 7d 22 2b c4 35 2c bd 28 | 39 29 29 2b 22 7b 22 2b |}"+.5,.(|9))+"{"+|
|00000340| bd 28 33 34 29 2b 22 55 | 6e 64 65 72 6c 69 6e 65 |.(34)+"U|nderline|
|00000350| 22 2b bd 28 33 34 29 2b | 22 20 6f 66 66 20 7d 22 |"+.(34)+|" off }"|
|00000360| 3a f4 20 55 4e 44 45 52 | 20 4c 49 4e 45 20 41 35 |:. UNDER| LINE A5|
|00000370| 0d 00 fa 71 6f 70 24 28 | 33 2c 32 2c 30 29 3d 22 |...qop$(|3,2,0)="|
|00000380| 7b 22 2b bd 28 33 34 29 | 2b 22 55 6e 64 65 72 6c |{"+.(34)|+"Underl|
|00000390| 69 6e 65 22 2b bd 28 33 | 34 29 2b 22 20 6f 6e 20 |ine"+.(3|4)+" on |
|000003a0| 7d 22 2b c4 37 2c bd 28 | 39 29 29 2b 22 7b 22 2b |}"+.7,.(|9))+"{"+|
|000003b0| bd 28 33 34 29 2b 22 55 | 6e 64 65 72 6c 69 6e 65 |.(34)+"U|nderline|
|000003c0| 22 2b bd 28 33 34 29 2b | 22 20 6f 66 66 20 7d 22 |"+.(34)+|" off }"|
|000003d0| 3a f4 20 55 4e 44 45 52 | 20 4c 49 4e 45 20 41 34 |:. UNDER| LINE A4|
|000003e0| 52 0d 01 04 65 6f 70 24 | 28 31 2c 33 2c 30 29 3d |R...eop$|(1,3,0)=|
|000003f0| 22 20 66 6f 6e 74 73 69 | 7a 65 20 38 70 74 3b 22 |" fontsi|ze 8pt;"|
|00000400| 3a 6f 70 24 28 32 2c 33 | 2c 30 29 3d 22 20 66 6f |:op$(2,3|,0)=" fo|
|00000410| 6e 74 73 69 7a 65 20 31 | 30 70 74 3b 22 3a 6f 70 |ntsize 1|0pt;":op|
|00000420| 24 28 33 2c 33 2c 30 29 | 3d 22 20 66 6f 6e 74 73 |$(3,3,0)|=" fonts|
|00000430| 69 7a 65 20 31 32 70 74 | 3b 22 3a f4 20 46 4f 4e |ize 12pt|;":. FON|
|00000440| 54 20 53 49 5a 45 0d 01 | 0e 74 64 24 28 31 29 3d |T SIZE..|.td$(1)=|
|00000450| 22 53 75 6e 64 61 79 22 | 3a 64 24 28 32 29 3d 22 |"Sunday"|:d$(2)="|
|00000460| 4d 6f 6e 64 61 79 22 3a | 64 24 28 33 29 3d 22 54 |Monday":|d$(3)="T|
|00000470| 75 65 73 64 61 79 22 3a | 64 24 28 34 29 3d 22 57 |uesday":|d$(4)="W|
|00000480| 65 64 6e 65 73 64 61 79 | 22 3a 64 24 28 35 29 3d |ednesday|":d$(5)=|
|00000490| 22 54 68 75 72 73 64 61 | 79 22 3a 64 24 28 36 29 |"Thursda|y":d$(6)|
|000004a0| 3d 22 46 72 69 64 61 79 | 22 3a 64 24 28 37 29 3d |="Friday|":d$(7)=|
|000004b0| 22 53 61 74 75 72 64 61 | 79 22 0d 01 18 45 e3 20 |"Saturda|y"...E. |
|000004c0| 58 3d 31 20 b8 20 31 33 | 3a f3 20 6d 74 68 24 28 |X=1 . 13|:. mth$(|
|000004d0| 58 29 2c 64 6d 28 58 29 | 3a ed 3a 6d 6f 6e 74 68 |X),dm(X)|:.:month|
|000004e0| 3d 31 3a 68 6c 58 3d 30 | 3a 68 6c 59 3d 30 3a 64 |=1:hlX=0|:hlY=0:d|
|000004f0| 61 79 3d 30 3a 73 24 3d | 22 20 22 3a 67 3d 30 0d |ay=0:s$=|" ":g=0.|
|00000500| 01 22 3d dc 20 4a 61 6e | 75 61 72 79 2c 33 31 2c |."=. Jan|uary,31,|
|00000510| 46 65 62 72 75 61 72 79 | 2c 32 38 2c 4d 61 72 63 |February|,28,Marc|
|00000520| 68 2c 33 31 2c 41 70 72 | 69 6c 2c 33 30 2c 4d 61 |h,31,Apr|il,30,Ma|
|00000530| 79 2c 33 31 2c 4a 75 6e | 65 2c 33 30 0d 01 2c 51 |y,31,Jun|e,30..,Q|
|00000540| dc 20 4a 75 6c 79 2c 33 | 31 2c 41 75 67 75 73 74 |. July,3|1,August|
|00000550| 2c 33 31 2c 53 65 70 74 | 65 6d 62 65 72 2c 33 30 |,31,Sept|ember,30|
|00000560| 2c 4f 63 74 6f 62 65 72 | 2c 33 31 2c 4e 6f 76 65 |,October|,31,Nove|
|00000570| 6d 62 65 72 2c 33 30 2c | 44 65 63 65 6d 62 65 72 |mber,30,|December|
|00000580| 2c 33 31 2c 4a 61 6e 75 | 61 72 79 2c 30 0d 01 36 |,31,Janu|ary,0..6|
|00000590| 20 e8 20 22 59 65 61 72 | 20 28 31 39 38 39 20 2d | . "Year| (1989 -|
|000005a0| 20 32 30 35 30 29 20 22 | 3b 79 65 61 72 0d 01 40 | 2050) "|;year..@|
|000005b0| 22 e7 20 79 65 61 72 3c | 31 39 38 39 20 84 20 79 |". year<|1989 . y|
|000005c0| 65 61 72 3e 32 30 35 30 | 20 8c 20 8d 54 76 41 0d |ear>2050| . .TvA.|
|000005d0| 01 4a 16 f1 3a f1 20 22 | 28 31 29 20 46 69 6c 6f |.J..:. "|(1) Filo|
|000005e0| 20 46 61 78 22 0d 01 54 | 0e f1 20 22 28 32 29 20 | Fax"..T|.. "(2) |
|000005f0| 41 35 22 0d 01 5e 0e f1 | 20 22 28 33 29 20 41 34 |A5"..^..| "(3) A4|
|00000600| 22 0d 01 68 05 f1 0d 01 | 72 16 e8 20 22 43 68 6f |"..h....|r.. "Cho|
|00000610| 6f 73 65 20 28 31 2d 33 | 29 22 3b 71 0d 01 7c 16 |ose (1-3|)";q..|.|
|00000620| e7 20 71 3c 31 20 84 20 | 71 3e 33 20 8c 20 8d 44 |. q<1 . |q>3 . .D|
|00000630| 72 41 0d 01 86 20 f1 3a | f1 20 22 28 31 29 20 4f |rA... .:|. "(1) O|
|00000640| 6e 65 20 57 65 65 6b 20 | 74 6f 20 61 20 50 61 67 |ne Week |to a Pag|
|00000650| 65 22 0d 01 90 20 f1 22 | 28 32 29 20 4f 6e 65 20 |e"... ."|(2) One |
|00000660| 57 65 65 6b 20 74 6f 20 | 74 77 6f 20 50 61 67 65 |Week to |two Page|
|00000670| 73 22 0d 01 9a 1c f1 22 | 28 33 29 20 4f 6e 65 20 |s"....."|(3) One |
|00000680| 44 61 79 20 74 6f 20 61 | 20 50 61 67 65 22 0d 01 |Day to a| Page"..|
|00000690| a4 05 f1 0d 01 ae 16 e8 | 20 22 43 68 6f 6f 73 65 |........| "Choose|
|000006a0| 20 28 31 2d 33 29 22 3b | 72 0d 01 b8 16 e7 20 72 | (1-3)";|r..... r|
|000006b0| 3c 31 20 84 20 72 3e 33 | 20 8c 20 8d 74 6e 41 0d |<1 . r>3| . .tnA.|
|000006c0| 01 c2 1d f1 3a f1 20 22 | 28 31 29 20 4a 61 6e 75 |....:. "|(1) Janu|
|000006d0| 61 72 79 20 74 6f 20 4a | 75 6e 65 22 0d 01 cc 1c |ary to J|une"....|
|000006e0| f1 20 22 28 32 29 20 4a | 75 6c 79 20 74 6f 20 44 |. "(2) J|uly to D|
|000006f0| 65 63 65 6d 62 65 72 22 | 0d 01 d6 1f f1 20 22 28 |ecember"|..... "(|
|00000700| 33 29 20 4a 61 6e 75 61 | 72 79 20 74 6f 20 44 65 |3) Janua|ry to De|
|00000710| 63 65 6d 62 65 72 22 0d | 01 e0 05 f1 0d 01 ea 16 |cember".|........|
|00000720| e8 20 22 43 68 6f 6f 73 | 65 20 28 31 2d 33 29 22 |. "Choos|e (1-3)"|
|00000730| 3b 68 0d 01 f4 16 e7 20 | 68 3c 31 20 84 20 68 3e |;h..... |h<1 . h>|
|00000740| 33 20 8c 20 8d 64 6a 41 | 0d 01 fe 1b e7 20 68 3d |3 . .djA|..... h=|
|00000750| 31 20 8c 20 7a 3d 31 3a | 79 3d 37 3a 6e 75 6d 3d |1 . z=1:|y=7:num=|
|00000760| 31 38 31 0d 02 08 1c e7 | 20 68 3d 32 20 8c 20 7a |181.....| h=2 . z|
|00000770| 3d 37 3a 79 3d 31 33 3a | 6e 75 6d 3d 31 38 34 0d |=7:y=13:|num=184.|
|00000780| 02 12 1c e7 20 68 3d 33 | 20 8c 20 7a 3d 31 3a 79 |.... h=3| . z=1:y|
|00000790| 3d 31 33 3a 6e 75 6d 3d | 33 36 35 0d 02 1c 0a f2 |=13:num=|365.....|
|000007a0| 73 74 61 72 74 0d 02 26 | 1a 74 68 69 73 3d 28 79 |start..&|.this=(y|
|000007b0| 65 61 72 3c 3c 34 29 20 | 84 20 6d 6f 6e 74 68 0d |ear<<4) |. month.|
|000007c0| 02 30 1c 6d 6f 6e 74 68 | 3d 31 3a f2 73 65 74 28 |.0.month|=1:.set(|
|000007d0| 6d 6f 6e 74 68 2c 79 65 | 61 72 29 0d 02 3a 20 e7 |month,ye|ar)..: .|
|000007e0| 20 64 6d 28 32 29 3d 32 | 39 20 80 20 7a 3d 31 20 | dm(2)=2|9 . z=1 |
|000007f0| 8c 20 6e 75 6d 3d 6e 75 | 6d 2b 31 0d 02 44 20 6a |. num=nu|m+1..D j|
|00000800| 3d 36 2d 73 74 61 72 74 | 3a e7 20 72 3d 33 20 8c |=6-start|:. r=3 .|
|00000810| 20 63 3d 32 3a e5 20 8d | 44 62 42 0d 02 4e 0d 6e | c=2:. .|DbB..N.n|
|00000820| 75 6d 3d 6e 75 6d 2d 6a | 0d 02 58 1c 61 3d a8 28 |um=num-j|..X.a=.(|
|00000830| 6e 75 6d 2f 37 29 3a 62 | 3d 61 2a 37 3a 63 3d 6e |num/7):b|=a*7:c=n|
|00000840| 75 6d 2d 62 0d 02 62 0e | 64 6d 28 79 29 3d 31 36 |um-b..b.|dm(y)=16|
|00000850| 2d 63 0d 02 6c 1f f1 3a | f1 20 22 28 31 29 20 49 |-c..l..:|. "(1) I|
|00000860| 6d 70 72 65 73 73 69 6f | 6e 20 46 6f 72 6d 61 74 |mpressio|n Format|
|00000870| 22 0d 02 76 17 f1 20 22 | 28 32 29 20 54 65 78 74 |"..v.. "|(2) Text|
|00000880| 20 46 6f 72 6d 61 74 22 | 0d 02 80 27 f1 3a e8 20 | Format"|...'.:. |
|00000890| 22 43 68 6f 6f 73 65 20 | 28 31 2d 32 29 22 3b 66 |"Choose |(1-2)";f|
|000008a0| 66 3a e7 20 66 66 3d 30 | 20 8c 20 8d 74 40 42 0d |f:. ff=0| . .t@B.|
|000008b0| 02 8a 18 e7 20 66 66 3c | 31 20 84 20 66 66 3e 32 |.... ff<|1 . ff>2|
|000008c0| 20 8c 20 8d 74 40 42 0d | 02 94 10 63 68 3d ae 20 | . .t@B.|...ch=. |
|000008d0| 22 44 69 61 72 79 22 0d | 02 9e 11 e7 20 66 66 3d |"Diary".|.... ff=|
|000008e0| 32 20 8c 20 8d 64 50 42 | 0d 02 a8 0e e3 20 78 3d |2 . .dPB|..... x=|
|000008f0| 31 20 b8 20 35 35 0d 02 | b2 12 20 d5 23 63 68 2c |1 . 55..|.. .#ch,|
|00000900| 66 69 6c 65 24 28 78 29 | 0d 02 bc 05 ed 0d 02 c6 |file$(x)|........|
|00000910| 13 d5 23 63 68 2c 66 69 | 6c 65 24 28 35 36 29 3b |..#ch,fi|le$(56);|
|00000920| 0d 02 d0 11 e3 20 6d 6f | 6e 74 68 3d 7a 20 b8 20 |..... mo|nth=z . |
|00000930| 79 0d 02 da 50 6c 3d 6c | 2b 32 3a 6c 24 28 6c 29 |y...Pl=l|+2:l$(l)|
|00000940| 3d 6c 24 28 6c 29 2b 6d | 74 68 24 28 6d 6f 6e 74 |=l$(l)+m|th$(mont|
|00000950| 68 29 2b 22 20 22 2b c3 | 28 79 65 61 72 29 3a 6c |h)+" "+.|(year):l|
|00000960| 3d 6c 2b 32 3a 6c 24 28 | 6c 29 3d 6c 24 28 6c 29 |=l+2:l$(|l)=l$(l)|
|00000970| 2b c4 28 73 74 61 72 74 | 2d 31 29 2c bd 28 39 29 |+.(start|-1),.(9)|
|00000980| 29 0d 02 e4 19 20 20 e3 | 20 64 61 79 3d 31 20 b8 |)....  .| day=1 .|
|00000990| 20 64 6d 28 6d 6f 6e 74 | 68 29 0d 02 ee 39 20 20 | dm(mont|h)...9  |
|000009a0| 20 d5 23 63 68 2c 64 24 | 28 73 74 61 72 74 29 2b | .#ch,d$|(start)+|
|000009b0| 73 24 2b c3 28 64 61 79 | 29 2b 73 24 2b 6d 74 68 |s$+.(day|)+s$+mth|
|000009c0| 24 28 6d 6f 6e 74 68 29 | 2b 73 24 2b c3 28 79 65 |$(month)|+s$+.(ye|
|000009d0| 61 72 29 0d 02 f8 18 d5 | 23 63 68 2c 6f 70 24 28 |ar).....|#ch,op$(|
|000009e0| 71 2c 72 2c 73 74 61 72 | 74 29 3b 0d 03 02 25 e7 |q,r,star|t);...%.|
|000009f0| 20 73 74 61 72 74 3c 37 | 20 80 20 72 3c 33 20 8c | start<7| . r<3 .|
|00000a00| 20 d5 23 63 68 2c 6f 70 | 24 28 71 2c 32 2c 30 29 | .#ch,op|$(q,2,0)|
|00000a10| 0d 03 0c 23 e7 20 a9 28 | c3 28 64 61 79 29 29 3d |...#. .(|.(day))=|
|00000a20| 31 20 8c 20 71 24 3d 22 | 20 20 22 20 8b 20 71 24 |1 . q$="|  " . q$|
|00000a30| 3d 22 22 0d 03 16 1e 6c | 24 28 6c 29 3d 6c 24 28 |=""....l|$(l)=l$(|
|00000a40| 6c 29 2b bd 28 39 29 2b | 71 24 2b c3 28 64 61 79 |l)+.(9)+|q$+.(day|
|00000a50| 29 0d 03 20 42 20 20 20 | 73 74 61 72 74 3d 73 74 |).. B   |start=st|
|00000a60| 61 72 74 2b 31 3a e7 20 | 73 74 61 72 74 3d 38 20 |art+1:. |start=8 |
|00000a70| 8c 20 d5 23 63 68 2c 22 | 7b 6e 65 78 74 66 72 61 |. .#ch,"|{nextfra|
|00000a80| 6d 65 7d 22 3b 3a 73 74 | 61 72 74 3d 31 3a 6c 3d |me}";:st|art=1:l=|
|00000a90| 6c 2b 31 0d 03 2a 0b 20 | 20 ed 20 64 61 79 0d 03 |l+1..*. | . day..|
|00000aa0| 34 1e 20 20 e7 20 6d 6f | 6e 74 68 3d 31 32 20 8c |4.  . mo|nth=12 .|
|00000ab0| 20 79 65 61 72 3d 79 65 | 61 72 2b 31 0d 03 3e 0b | year=ye|ar+1..>.|
|00000ac0| ed 20 6d 6f 6e 74 68 0d | 03 48 4b 66 24 3d 22 7b |. month.|.HKf$="{|
|00000ad0| 22 2b bd 28 33 34 29 2b | 22 44 69 61 72 79 22 2b |"+.(34)+|"Diary"+|
|00000ae0| bd 28 33 34 29 2b 22 20 | 6f 66 66 20 7d 22 2b 22 |.(34)+" |off }"+"|
|00000af0| 7b 22 2b bd 28 33 34 29 | 2b 22 43 61 6c 61 6e 64 |{"+.(34)|+"Caland|
|00000b00| 65 72 22 2b bd 28 33 34 | 29 2b 22 20 6f 66 66 20 |er"+.(34|)+" off |
|00000b10| 7d 22 0d 03 52 0e e3 20 | 6c 6c 3d 30 20 b8 20 6c |}"..R.. |ll=0 . l|
|00000b20| 0d 03 5c 36 e7 20 c0 6c | 24 28 6c 6c 29 2c 33 29 |..\6. .l|$(ll),3)|
|00000b30| 3d 22 4d 61 79 22 20 84 | 20 c0 6c 24 28 6c 6c 29 |="May" .| .l$(ll)|
|00000b40| 2c 33 29 3d 22 53 65 70 | 22 20 8c 20 d5 23 63 68 |,3)="Sep|" . .#ch|
|00000b50| 2c 6c 24 28 30 29 0d 03 | 66 15 6c 24 3d 6c 24 28 |,l$(0)..|f.l$=l$(|
|00000b60| 6c 6c 29 3a d5 23 63 68 | 2c 6c 24 0d 03 70 08 ed |ll):.#ch|,l$..p..|
|00000b70| 20 6c 6c 0d 03 7a 0b d5 | 23 63 68 2c 66 24 0d 03 | ll..z..|#ch,f$..|
|00000b80| 84 08 d9 23 63 68 0d 03 | 8e 05 e0 0d 03 98 04 0d |...#ch..|........|
|00000b90| 03 a2 11 dd 20 f2 73 65 | 74 28 6d 31 2c 79 31 29 |.... .se|t(m1,y1)|
|00000ba0| 0d 03 ac 3a e7 20 79 31 | 20 83 34 3d 30 20 80 28 |...:. y1| .4=0 .(|
|00000bb0| 79 31 20 83 31 30 30 3e | 30 20 84 20 79 31 20 83 |y1 .100>|0 . y1 .|
|00000bc0| 34 30 30 3d 30 29 3a 64 | 6d 28 32 29 3d 32 39 20 |400=0):d|m(2)=29 |
|00000bd0| 8b 20 64 6d 28 32 29 3d | 32 38 0d 03 b6 1f e7 20 |. dm(2)=|28..... |
|00000be0| 6d 31 3e 32 3a 6d 31 2d | 3d 32 20 8b 20 6d 31 2b |m1>2:m1-|=2 . m1+|
|00000bf0| 3d 31 30 3a 79 31 2d 3d | 31 0d 03 c0 46 73 74 61 |=10:y1-=|1...Fsta|
|00000c00| 72 74 3d 28 28 32 36 2a | 6d 31 2d 31 29 81 31 30 |rt=((26*|m1-1).10|
|00000c10| 2b 79 31 2b 79 31 20 81 | 34 2d 79 31 20 81 31 30 |+y1+y1 .|4-y1 .10|
|00000c20| 30 2b 79 31 20 81 34 30 | 30 2b 31 29 83 37 3a f4 |0+y1 .40|0+1).7:.|
|00000c30| 20 30 20 66 6f 72 20 31 | 3d 53 75 6e 64 61 79 0d | 0 for 1|=Sunday.|
|00000c40| 03 ca 19 73 3d 73 74 61 | 72 74 3a 73 74 61 72 74 |...s=sta|rt:start|
|00000c50| 3d 73 74 61 72 74 2b 31 | 0d 03 d4 10 20 e7 20 73 |=start+1|.... . s|
|00000c60| 3d 30 20 8c 20 73 3d 37 | 0d 03 de 19 20 73 31 3d |=0 . s=7|.... s1=|
|00000c70| 73 2d 31 3a e7 20 73 31 | 3d 30 20 8c 20 73 31 3d |s-1:. s1|=0 . s1=|
|00000c80| 37 0d 03 e8 05 e1 0d 03 | f2 04 0d 03 fc 0c dd 20 |7.......|....... |
|00000c90| f2 73 74 61 72 74 0d 04 | 06 10 63 68 3d 8e 20 22 |.start..|..ch=. "|
|00000ca0| 53 74 61 72 74 22 0d 04 | 10 0e e3 20 78 3d 31 20 |Start"..|... x=1 |
|00000cb0| b8 20 35 36 0d 04 1a 18 | 20 66 24 3d be 23 63 68 |. 56....| f$=.#ch|
|00000cc0| 3a 66 69 6c 65 24 28 78 | 29 3d 66 24 0d 04 24 05 |:file$(x|)=f$..$.|
|00000cd0| ed 0d 04 2e 08 d9 23 63 | 68 0d 04 38 18 66 69 6c |......#c|h..8.fil|
|00000ce0| 65 24 28 34 31 29 3d 6f | 70 24 28 71 2c 33 2c 30 |e$(41)=o|p$(q,3,0|
|00000cf0| 29 0d 04 42 05 e1 0d ff |                         |)..B....|        |
+--------+-------------------------+-------------------------+--------+--------+