00000000  0d 00 0a 16 20 f4 22 83  44 49 41 52 59 20 4b 45  |.... .".DIARY KE|
00000010  45 50 45 52 87 22 0d 00  14 1b 20 f4 22 82 42 4f  |EPER.".... .".BO|
00000020  42 20 41 4e 44 45 52 53  4f 4e 20 31 39 38 35 87  |B ANDERSON 1985.|
00000030  22 0d 00 1e 05 3a 0d 00  28 0e 20 ee 85 20 f2 65  |"....:..(. .. .e|
00000040  72 72 6f 72 0d 00 32 06  20 d8 0d 00 3c 0d 20 f2  |rror..2. ...<. .|
00000050  69 6e 69 74 69 61 6c 0d  00 46 06 20 f5 0d 00 50  |initial..F. ...P|
00000060  06 20 f5 0d 00 5a 15 20  eb 37 3a f2 70 72 69 6e  |. ...Z. .7:.prin|
00000070  74 6f 70 74 69 6f 6e 73  0d 00 64 0b 20 6f 70 74  |toptions..d. opt|
00000080  25 3d a5 0d 00 6e 0c 20  2a 46 58 31 35 2c 30 0d  |%=...n. *FX15,0.|
00000090  00 78 18 20 e7 6f 70 74  25 3d 32 37 20 f2 65 64  |.x. .opt%=27 .ed|
000000a0  69 74 64 69 61 72 79 0d  00 82 18 20 e7 6f 70 74  |itdiary.... .opt|
000000b0  25 3d 34 39 20 f2 6c 6f  61 64 64 69 61 72 79 0d  |%=49 .loaddiary.|
000000c0  00 8c 19 20 e7 6f 70 74  25 3d 35 30 20 f2 69 6e  |... .opt%=50 .in|
000000d0  69 74 69 61 6c 69 73 65  0d 00 96 15 20 e7 6f 70  |itialise.... .op|
000000e0  74 25 3d 35 31 20 f2 73  75 62 73 65 74 0d 00 a0  |t%=51 .subset...|
000000f0  1b 20 e7 6f 70 74 25 3d  35 32 20 84 20 6f 70 74  |. .opt%=52 . opt|
00000100  25 3d 34 32 20 f2 6f 73  0d 00 aa 0d 20 fd 6f 70  |%=42 .os.... .op|
00000110  74 25 3d 35 33 0d 00 b4  1e 20 ef 33 31 2c 32 2c  |t%=53.... .31,2,|
00000120  39 3b 31 33 36 3b 32 38  2c 30 2c 32 34 2c 33 39  |9;136;28,0,24,39|
00000130  2c 61 25 0d 00 be 0f 20  fd a4 73 75 72 65 3d 22  |,a%.... ..sure="|
00000140  59 22 0d 00 c8 0b 20 2a  46 58 34 2c 30 0d 00 d2  |Y".... *FX4,0...|
00000150  0d 20 2a 46 58 32 30 30  2c 30 0d 00 dc 0d 20 2a  |. *FX200,0.... *|
00000160  46 58 32 32 39 2c 30 0d  00 e6 08 20 d9 23 30 0d  |FX229,0.... .#0.|
00000170  00 f0 09 20 eb 37 3a e0  0d 00 fa 05 3a 0d 01 04  |... .7:.....:...|
00000180  1a 20 f4 22 83 4d 41 49  4e 20 53 55 42 52 4f 55  |. .".MAIN SUBROU|
00000190  54 49 4e 45 53 87 22 0d  01 0e 05 3a 0d 01 18 0e  |TINES."....:....|
000001a0  20 dd f2 69 6e 69 74 69  61 6c 0d 01 22 08 20 d9  | ..initial..". .|
000001b0  23 30 0d 01 2c 1c 20 e3  74 25 3d 26 39 30 30 20  |#0..,. .t%=&900 |
000001c0  b8 20 26 41 36 45 3a 3f  74 25 3d 30 3a ed 0d 01  |. &A6E:?t%=0:...|
000001d0  36 29 20 66 69 6c 65 24  3d 22 22 3a 73 75 62 25  |6) file$="":sub%|
000001e0  3d 30 3a 73 66 69 6c 65  24 3d 22 22 3a 73 70 6f  |=0:sfile$="":spo|
000001f0  6f 6c 66 24 3d 22 22 0d  01 40 0c 20 70 66 6c 61  |olf$=""..@. pfla|
00000200  67 3d b9 0d 01 4a 13 20  79 65 61 72 25 3d 30 3a  |g=...J. year%=0:|
00000210  64 61 79 25 3d 30 0d 01  54 0b 20 2a 46 58 34 2c  |day%=0..T. *FX4,|
00000220  31 0d 01 5e 0d 20 2a 46  58 32 32 39 2c 31 0d 01  |1..^. *FX229,1..|
00000230  68 20 20 de 20 64 24 28  35 30 29 2c 64 61 79 24  |h  . d$(50),day$|
00000240  28 37 29 2c 6d 6f 6e 74  68 24 28 32 34 29 0d 01  |(7),month$(24)..|
00000250  72 1e 20 f7 8d 74 46 41  3a e3 62 25 3d 31 b8 37  |r. ..tFA:.b%=1.7|
00000260  3a f3 64 61 79 24 28 62  25 29 3a ed 0d 01 7c 1b  |:.day$(b%):...|.|
00000270  20 e3 62 25 3d 31 b8 32  34 3a f3 6d 6f 6e 74 68  | .b%=1.24:.month|
00000280  24 28 62 25 29 3a ed 0d  01 86 3f 20 dc 20 4d 4f  |$(b%):....? . MO|
00000290  4e 44 41 59 2c 54 55 45  53 44 41 59 2c 57 45 44  |NDAY,TUESDAY,WED|
000002a0  4e 45 53 44 41 59 2c 54  48 55 52 53 44 41 59 2c  |NESDAY,THURSDAY,|
000002b0  46 52 49 44 41 59 2c 53  41 54 55 52 44 41 59 2c  |FRIDAY,SATURDAY,|
000002c0  53 55 4e 44 41 59 0d 01  90 80 20 dc 20 4a 41 4e  |SUNDAY.... . JAN|
000002d0  55 41 52 59 2c 46 45 42  52 55 41 52 59 2c 4d 41  |UARY,FEBRUARY,MA|
000002e0  52 43 48 2c 41 50 52 49  4c 2c 4d 41 59 2c 4a 55  |RCH,APRIL,MAY,JU|
000002f0  4e 45 2c 4a 55 4c 59 2c  41 55 47 55 53 54 2c 53  |NE,JULY,AUGUST,S|
00000300  45 50 54 45 4d 42 45 52  2c 4f 43 54 4f 42 45 52  |EPTEMBER,OCTOBER|
00000310  2c 4e 4f 56 45 4d 42 45  52 2c 44 45 43 45 4d 42  |,NOVEMBER,DECEMB|
00000320  45 52 2c 33 31 2c 32 38  2c 33 31 2c 33 30 2c 33  |ER,31,28,31,30,3|
00000330  31 2c 33 30 2c 33 31 2c  33 31 2c 33 30 2c 33 31  |1,30,31,31,30,31|
00000340  2c 33 30 2c 33 31 0d 01  9a 06 20 e1 0d 01 a4 05  |,30,31.... .....|
00000350  3a 0d 01 ae 13 20 dd f2  70 72 69 6e 74 6f 70 74  |:.... ..printopt|
00000360  69 6f 6e 73 0d 01 b8 0a  20 f7 8d 64 7e 41 0d 01  |ions.... ..d~A..|
00000370  c2 36 20 f2 64 6f 75 62  6c 65 28 bd 31 33 32 2b  |.6 .double(.132+|
00000380  bd 31 35 37 2b bd 31 33  31 2b 22 44 49 41 52 59  |.157+.131+"DIARY|
00000390  20 4b 45 45 50 45 52 20  20 22 2b bd 31 35 36 2c  | KEEPER  "+.156,|
000003a0  38 2c 31 29 0d 01 cc 30  20 e3 61 25 3d 34 b8 38  |8,1)...0 .a%=4.8|
000003b0  3a f3 61 24 3a f1 8a 35  2c 61 25 29 bd 31 33 31  |:.a$:..5,a%).131|
000003c0  bd 28 61 25 2b 34 35 29  22 29 22 bd 31 33 34 3b  |.(a%+45)")".134;|
000003d0  61 24 3a ed 0d 01 d6 35  20 f1 8a 33 2c 61 25 2b  |a$:....5 ..3,a%+|
000003e0  31 29 bd 28 31 33 31 29  22 45 53 43 41 50 45 22  |1).(131)"ESCAPE"|
000003f0  bd 28 31 33 34 29 22 2d  20 44 49 41 52 59 20 45  |.(134)"- DIARY E|
00000400  44 49 54 20 4d 4f 44 45  22 0d 01 e0 66 20 e7 20  |DIT MODE"...f . |
00000410  66 69 6c 65 24 3d 22 22  20 f1 8a 33 2c 61 25 2b  |file$="" ..3,a%+|
00000420  33 29 bd 28 31 33 31 29  22 4e 4f 20 44 49 41 52  |3).(131)"NO DIAR|
00000430  59 20 49 4e 20 4d 45 4d  4f 52 59 22 20 8b 20 f1  |Y IN MEMORY" . .|
00000440  8a 33 2c 61 25 2b 33 29  bd 28 31 33 31 29 22 43  |.3,a%+3).(131)"C|
00000450  55 52 52 45 4e 54 20 44  49 41 52 59 20 46 49 4c  |URRENT DIARY FIL|
00000460  45 4e 41 4d 45 20 3a 20  22 3b 66 69 6c 65 24 0d  |ENAME : ";file$.|
00000470  01 ea 1b 20 f1 8a 30 2c  61 25 2b 34 29 bd 31 34  |... ..0,a%+4).14|
00000480  38 3b c4 33 38 2c 22 2c  22 29 0d 01 f4 0c 20 61  |8;.38,",").... a|
00000490  25 3d 61 25 2b 35 0d 01  fe 54 20 dc 20 4c 4f 41  |%=a%+5...T . LOA|
000004a0  44 20 44 49 41 52 59 2c  49 4e 49 54 49 41 4c 49  |D DIARY,INITIALI|
000004b0  53 45 20 4e 45 57 20 44  49 41 52 59 2c 53 55 42  |SE NEW DIARY,SUB|
000004c0  53 45 54 20 4d 45 4e 55  2c 4f 50 45 52 41 54 49  |SET MENU,OPERATI|
000004d0  4e 47 20 53 59 53 54 45  4d 20 43 4f 4d 4d 41 4e  |NG SYSTEM COMMAN|
000004e0  44 20 28 2a 29 2c 45 58  49 54 0d 02 08 06 20 e1  |D (*),EXIT.... .|
000004f0  0d 02 12 05 3a 0d 02 1c  11 20 dd f2 69 6e 69 74  |....:.... ..init|
00000500  69 61 6c 69 73 65 0d 02  26 1e 20 ef 33 31 2c 32  |ialise..&. .31,2|
00000510  2c 35 3b 31 33 36 3b 32  38 2c 30 2c 32 34 2c 33  |,5;136;28,0,24,3|
00000520  39 2c 61 25 0d 02 30 2a  20 74 65 6d 70 31 24 3d  |9,a%..0* temp1$=|
00000530  66 69 6c 65 24 3a 74 65  6d 70 32 25 3d 79 65 61  |file$:temp2%=yea|
00000540  72 25 3a 74 65 6d 70 33  25 3d 64 61 79 25 0d 02  |r%:temp3%=day%..|
00000550  3a 11 20 f2 61 73 6b 66  69 6c 65 6e 61 6d 65 0d  |:. .askfilename.|
00000560  02 44 0d 20 f2 67 65 74  79 65 61 72 0d 02 4e 58  |.D. .getyear..NX|
00000570  20 f5 3a f1 bd 31 33 33  3b 22 45 4e 54 45 52 20  | .:..133;"ENTER |
00000580  50 41 53 53 57 4f 52 44  20 46 4f 52 20 54 48 49  |PASSWORD FOR THI|
00000590  53 20 44 49 41 52 59 20  28 6d 61 78 31 35 29 22  |S DIARY (max15)"|
000005a0  27 bd 31 33 33 3b 3a e8  70 61 73 73 32 24 3a fd  |'.133;:.pass2$:.|
000005b0  a9 70 61 73 73 32 24 3c  31 36 80 a9 70 61 73 73  |.pass2$<16..pass|
000005c0  32 24 3e 30 0d 02 58 27  20 70 61 73 73 32 24 3d  |2$>0..X' pass2$=|
000005d0  70 61 73 73 32 24 2b 28  c4 31 35 2d a9 28 70 61  |pass2$+(.15-.(pa|
000005e0  73 73 32 24 29 2c 22 20  22 29 29 0d 02 62 0d 20  |ss2$)," "))..b. |
000005f0  f2 63 61 6c 63 64 61 79  0d 02 6c 2e 20 f1 bd 31  |.calcday..l. ..1|
00000600  33 31 bd 31 33 36 22 50  4c 45 41 53 45 20 57 41  |31.136"PLEASE WA|
00000610  49 54 2c 20 49 4e 49 54  49 41 4c 49 53 49 4e 47  |IT, INITIALISING|
00000620  20 44 49 53 43 22 0d 02  76 13 20 66 69 6c 65 32  | DISC"..v. file2|
00000630  3d ae 28 66 69 6c 65 24  29 0d 02 80 27 20 f1 23  |=.(file$)...' .#|
00000640  66 69 6c 65 32 2c 22 44  49 41 52 59 31 22 2c 70  |file2,"DIARY1",p|
00000650  61 73 73 32 24 2c 79 65  61 72 25 2c 64 61 79 25  |ass2$,year%,day%|
00000660  0d 02 8a 24 20 e7 79 65  61 72 25 83 34 3d 30 64  |...$ .year%.4=0d|
00000670  61 79 73 32 25 3d 33 36  36 8b 64 61 79 73 32 25  |ays2%=366.days2%|
00000680  3d 33 36 35 0d 02 94 2d  20 e3 62 25 3d 31 b8 64  |=365...- .b%=1.d|
00000690  61 79 73 32 25 3a f1 23  66 69 6c 65 32 2c c4 31  |ays2%:.#file2,.1|
000006a0  35 36 2c 22 20 22 29 3a  ed 3a d9 23 66 69 6c 65  |56," "):.:.#file|
000006b0  32 0d 02 9e 2a 20 66 69  6c 65 24 3d 74 65 6d 70  |2...* file$=temp|
000006c0  31 24 3a 79 65 61 72 25  3d 74 65 6d 70 32 25 3a  |1$:year%=temp2%:|
000006d0  64 61 79 25 3d 74 65 6d  70 33 25 0d 02 a8 06 20  |day%=temp3%.... |
000006e0  e1 0d 02 b2 05 3a 0d 02  bc 09 20 dd f2 6f 73 0d  |.....:.... ..os.|
000006f0  02 c6 1b 20 ef 33 31 2c  32 2c 37 3b 31 33 36 3b  |... .31,2,7;136;|
00000700  32 36 3b 33 31 2c 30 2c  61 25 0d 02 d0 06 20 f5  |26;31,0,a%.... .|
00000710  0d 02 da 2b 20 f1 bd 31  33 31 3b 22 45 6e 74 65  |...+ ..131;"Ente|
00000720  72 20 6f 70 65 72 61 74  69 6e 67 20 73 79 73 74  |r operating syst|
00000730  65 6d 20 63 6f 6d 6d 61  6e 64 22 0d 02 e4 0b 20  |em command".... |
00000740  e8 22 2a 22 61 24 0d 02  ee 0a 20 ff 28 61 24 29  |."*"a$.... .(a$)|
00000750  0d 02 f8 2f 20 f1 27 bd  31 33 31 2b 22 50 52 45  |.../ .'.131+"PRE|
00000760  53 53 20 53 50 41 43 45  42 41 52 20 54 4f 20 43  |SS SPACEBAR TO C|
00000770  4f 4e 54 49 4e 55 45 20  28 6f 72 20 2a 29 22 0d  |ONTINUE (or *)".|
00000780  03 02 0c 20 fd 20 be 3d  22 20 22 0d 03 0c 06 20  |... . .=" ".... |
00000790  e1 0d 03 16 05 3a 0d 03  20 10 20 dd f2 6c 6f 61  |.....:.. . ..loa|
000007a0  64 64 69 61 72 79 0d 03  2a 1e 20 ef 33 31 2c 32  |ddiary..*. .31,2|
000007b0  2c 34 3b 31 33 36 3b 32  38 2c 30 2c 32 34 2c 33  |,4;136;28,0,24,3|
000007c0  39 2c 61 25 0d 03 34 08  20 d9 23 30 0d 03 3e 11  |9,a%..4. .#0..>.|
000007d0  20 f2 61 73 6b 66 69 6c  65 6e 61 6d 65 0d 03 48  | .askfilename..H|
000007e0  2d 20 66 69 6c 65 3d ad  28 66 69 6c 65 24 29 3a  |- file=.(file$):|
000007f0  e8 23 66 69 6c 65 2c 61  24 2c 70 61 73 73 24 2c  |.#file,a$,pass$,|
00000800  79 65 61 72 25 2c 64 61  79 25 0d 03 52 0f 20 66  |year%,day%..R. f|
00000810  64 61 79 25 3d 64 61 79  25 0d 03 5c 6d 20 e7 61  |day%=day%..\m .a|
00000820  24 3c 3e 22 44 49 41 52  59 31 22 f1 27 bd 31 33  |$<>"DIARY1".'.13|
00000830  31 bd 31 33 36 22 54 48  49 53 20 49 53 20 4e 4f  |1.136"THIS IS NO|
00000840  54 20 41 20 46 49 4c 45  20 47 45 4e 45 52 41 54  |T A FILE GENERAT|
00000850  45 44 20 42 59 20 44 49  41 52 59 22 27 bd 31 33  |ED BY DIARY"'.13|
00000860  31 bd 31 33 36 22 4b 45  45 50 45 52 22 3a d9 23  |1.136"KEEPER":.#|
00000870  30 3a 66 69 6c 65 24 3d  22 22 3a f2 73 70 61 63  |0:file$="":.spac|
00000880  65 62 61 72 3a e1 0d 03  66 51 20 f1 bd 31 33 33  |ebar:...fQ ..133|
00000890  22 45 4e 54 45 52 20 50  41 53 53 57 4f 52 44 22  |"ENTER PASSWORD"|
000008a0  27 bd 31 35 32 3b 3a e8  62 24 3a e7 a9 28 62 24  |'.152;:.b$:..(b$|
000008b0  29 3c 31 84 a9 28 62 24  29 3e 31 35 e5 8d 44 70  |)<1..(b$)>15..Dp|
000008c0  43 20 8b 62 24 3d 62 24  2b c4 31 35 2d a9 28 62  |C .b$=b$+.15-.(b|
000008d0  24 29 2c 22 20 22 29 0d  03 70 7c 20 e7 62 24 3c  |$)," ")..p| .b$<|
000008e0  3e 70 61 73 73 24 f1 27  bd 31 32 39 bd 31 33 36  |>pass$.'.129.136|
000008f0  22 53 45 43 55 52 49 54  59 20 42 52 45 41 43 48  |"SECURITY BREACH|
00000900  20 2d 20 74 68 65 20 75  73 65 72 20 69 73 20 6e  | - the user is n|
00000910  6f 74 22 27 bd 31 32 39  bd 31 33 36 22 61 6c 6c  |ot"'.129.136"all|
00000920  6f 77 65 64 20 74 6f 20  61 63 63 65 73 73 20 74  |owed to access t|
00000930  68 69 73 20 66 69 6c 65  2e 22 3a 66 69 6c 65 24  |his file.":file$|
00000940  3d 22 22 3a d9 23 30 3a  f2 73 70 61 63 65 62 61  |="":.#0:.spaceba|
00000950  72 3a e1 0d 03 7a 1d 20  e3 62 25 3d 31 b8 35 30  |r:...z. .b%=1.50|
00000960  3a e8 23 66 69 6c 65 2c  64 24 28 62 25 29 3a ed  |:.#file,d$(b%):.|
00000970  0d 03 84 67 20 6d 6f 6e  74 68 25 3d 31 3a 64 61  |...g month%=1:da|
00000980  74 65 25 3d 31 3a 64 70  74 72 25 3d 31 3a 65 6e  |te%=1:dptr%=1:en|
00000990  74 72 79 25 3d 31 3a e7  79 65 61 72 25 83 34 3d  |try%=1:.year%.4=|
000009a0  30 20 64 61 79 73 25 3d  33 36 36 3a 6d 6f 6e 74  |0 days%=366:mont|
000009b0  68 24 28 31 34 29 3d 22  32 39 22 20 8b 20 64 61  |h$(14)="29" . da|
000009c0  79 73 25 3d 33 36 35 3a  6d 6f 6e 74 68 24 28 31  |ys%=365:month$(1|
000009d0  34 29 3d 22 32 38 22 0d  03 8e 06 20 e1 0d 03 98  |4)="28".... ....|
000009e0  05 3a 0d 03 a2 10 20 dd  f2 65 64 69 74 64 69 61  |.:.... ..editdia|
000009f0  72 79 0d 03 ac 1f 20 ef  33 31 2c 30 2c 31 30 3b  |ry.... .31,0,10;|
00000a00  31 33 36 3b 32 38 2c 30  2c 32 34 2c 33 39 2c 61  |136;28,0,24,39,a|
00000a10  25 0d 03 b6 1a 20 e7 20  66 69 6c 65 24 3d 22 22  |%.... . file$=""|
00000a20  20 f2 6e 6f 64 69 61 72  79 3a e1 0d 03 c0 0f 20  | .nodiary:..... |
00000a30  f2 73 65 74 73 63 72 65  65 6e 0d 03 ca 06 20 f5  |.setscreen.... .|
00000a40  0d 03 d4 0c 20 6f 70 74  32 25 3d a5 0d 03 de 17  |.... opt2%=.....|
00000a50  20 e7 6f 70 74 32 25 3d  31 33 38 20 f2 6d 6f 76  | .opt2%=138 .mov|
00000a60  65 75 70 0d 03 e8 19 20  e7 6f 70 74 32 25 3d 31  |eup.... .opt2%=1|
00000a70  33 39 20 f2 6d 6f 76 65  64 6f 77 6e 0d 03 f2 1b  |39 .movedown....|
00000a80  20 e7 6f 70 74 32 25 3d  36 37 20 f2 63 68 61 6e  | .opt2%=67 .chan|
00000a90  67 65 65 6e 74 72 79 0d  03 fc 18 20 e7 6f 70 74  |geentry.... .opt|
00000aa0  32 25 3d 37 34 20 f2 64  61 74 65 6a 75 6d 70 0d  |2%=74 .datejump.|
00000ab0  04 06 43 20 e7 6f 70 74  32 25 3d 38 30 20 ef 37  |..C .opt2%=80 .7|
00000ac0  3a e7 20 3f 28 26 38 46  46 2b 65 6e 74 72 79 25  |:. ?(&8FF+entry%|
00000ad0  29 3d 30 20 8c 20 3f 28  26 38 46 46 2b 65 6e 74  |)=0 . ?(&8FF+ent|
00000ae0  72 79 25 29 3d 31 3a 73  75 62 25 3d 73 75 62 25  |ry%)=1:sub%=sub%|
00000af0  2b 31 0d 04 10 0c 20 2a  46 58 32 31 2c 30 0d 04  |+1.... *FX21,0..|
00000b00  1a 0e 20 fd 6f 70 74 32  25 3d 32 37 0d 04 24 06  |.. .opt2%=27..$.|
00000b10  20 e1 0d 04 2e 05 3a 0d  04 38 0d 20 dd f2 73 75  | .....:..8. ..su|
00000b20  62 73 65 74 0d 04 42 1e  20 ef 33 31 2c 32 2c 36  |bset..B. .31,2,6|
00000b30  3b 31 33 36 3b 32 38 2c  30 2c 32 34 2c 33 39 2c  |;136;28,0,24,39,|
00000b40  61 25 0d 04 4c 1a 20 e7  20 66 69 6c 65 24 3d 22  |a%..L. . file$="|
00000b50  22 20 f2 6e 6f 64 69 61  72 79 3a e1 0d 04 56 06  |" .nodiary:...V.|
00000b60  20 f5 0d 04 60 0b 20 ef  32 36 3b 31 32 0d 04 6a  | ...`. .26;12..j|
00000b70  42 20 f2 64 6f 75 62 6c  65 28 bd 31 33 32 2b bd  |B .double(.132+.|
00000b80  31 35 37 2b bd 31 33 31  2b 22 44 49 41 52 59 20  |157+.131+"DIARY |
00000b90  4b 45 45 50 45 52 20 53  55 42 53 45 54 20 4d 45  |KEEPER SUBSET ME|
00000ba0  4e 55 20 20 22 2b bd 31  35 36 2c 33 2c 31 29 0d  |NU  "+.156,3,1).|
00000bb0  04 74 0b 20 f7 20 8d 74  66 44 0d 04 7e 33 20 e3  |.t. . .tfD..~3 .|
00000bc0  74 25 3d 34 20 b8 20 31  31 3a f3 61 24 3a f1 8a  |t%=4 . 11:.a$:..|
00000bd0  35 2c 74 25 29 bd 31 33  31 bd 28 74 25 2b 34 35  |5,t%).131.(t%+45|
00000be0  29 22 29 22 bd 31 33 34  3b 61 24 3a ed 0d 04 88  |)")".134;a$:....|
00000bf0  37 20 f1 8a 30 2c 74 25  2b 31 29 bd 31 33 31 22  |7 ..0,t%+1).131"|
00000c00  4e 55 4d 42 45 52 20 4f  46 20 52 45 43 4f 52 44  |NUMBER OF RECORD|
00000c10  53 20 49 4e 20 53 55 42  53 45 54 20 3a 20 22 3b  |S IN SUBSET : ";|
00000c20  73 75 62 25 0d 04 92 38  20 e7 20 73 66 69 6c 65  |sub%...8 . sfile|
00000c30  24 3c 3e 22 22 20 f1 8a  31 2c 74 25 2b 32 29 22  |$<>"" ..1,t%+2)"|
00000c40  50 52 45 56 49 4f 55 53  20 46 49 4c 45 4e 41 4d  |PREVIOUS FILENAM|
00000c50  45 20 3a 20 22 3b 73 66  69 6c 65 24 0d 04 9c 1b  |E : ";sfile$....|
00000c60  20 f1 8a 31 2c 74 25 2b  34 29 bd 31 34 38 3b c4  | ..1,t%+4).148;.|
00000c70  33 38 2c 22 2c 22 29 0d  04 a6 84 20 dc 20 41 4c  |38,",").... . AL|
00000c80  4c 20 52 45 43 4f 52 44  53 20 49 4e 20 53 55 42  |L RECORDS IN SUB|
00000c90  53 45 54 2c 4e 4f 20 52  45 43 4f 52 44 53 20 49  |SET,NO RECORDS I|
00000ca0  4e 20 53 55 42 53 45 54  2c 4c 4f 41 44 20 53 55  |N SUBSET,LOAD SU|
00000cb0  42 53 45 54 2c 53 41 56  45 20 53 55 42 53 45 54  |BSET,SAVE SUBSET|
00000cc0  2c 44 49 41 52 59 20 53  45 41 52 43 48 2c 50 52  |,DIARY SEARCH,PR|
00000cd0  49 4e 54 20 53 55 42 53  45 54 2c 53 50 4f 4f 4c  |INT SUBSET,SPOOL|
00000ce0  20 53 55 42 53 45 54 2c  52 45 54 55 52 4e 20 54  | SUBSET,RETURN T|
00000cf0  4f 20 4d 41 49 4e 20 4d  45 4e 55 0d 04 b0 0c 20  |O MAIN MENU.... |
00000d00  6f 70 74 33 25 3d a5 0d  04 ba 0c 20 2a 46 58 31  |opt3%=..... *FX1|
00000d10  35 2c 30 0d 04 c4 34 20  e7 20 6f 70 74 33 25 3d  |5,0...4 . opt3%=|
00000d20  34 39 20 8c 20 e3 74 25  3d 26 39 30 30 20 b8 20  |49 . .t%=&900 . |
00000d30  26 41 36 45 3a 3f 74 25  3d 31 3a ed 3a 73 75 62  |&A6E:?t%=1:.:sub|
00000d40  25 3d 64 61 79 73 25 0d  04 ce 30 20 e7 20 6f 70  |%=days%...0 . op|
00000d50  74 33 25 3d 35 30 20 8c  20 e3 74 25 3d 26 39 30  |t3%=50 . .t%=&90|
00000d60  30 20 b8 20 26 41 36 45  3a 3f 74 25 3d 30 3a ed  |0 . &A6E:?t%=0:.|
00000d70  3a 73 75 62 25 3d 30 0d  04 d8 15 20 e7 20 6f 70  |:sub%=0.... . op|
00000d80  74 33 25 3d 35 31 20 f2  6c 6f 61 64 0d 04 e2 73  |t3%=51 .load...s|
00000d90  20 e7 20 6f 70 74 33 25  3d 35 32 20 ef 33 31 2c  | . opt3%=52 .31,|
00000da0  30 2c 37 3b 31 33 36 3b  32 38 2c 30 2c 32 34 2c  |0,7;136;28,0,24,|
00000db0  33 39 2c 31 37 3a 74 24  3d 66 69 6c 65 24 3a f2  |39,17:t$=file$:.|
00000dc0  61 73 6b 66 69 6c 65 6e  61 6d 65 3a 73 66 69 6c  |askfilename:sfil|
00000dd0  65 24 3d 66 69 6c 65 24  3a 66 69 6c 65 24 3d 74  |e$=file$:file$=t|
00000de0  24 3a ff 28 22 2a 53 41  56 45 20 22 2b 73 66 69  |$:.("*SAVE "+sfi|
00000df0  6c 65 24 2b 22 20 39 30  30 2b 31 36 45 22 29 0d  |le$+" 900+16E").|
00000e00  04 ec 17 20 e7 20 6f 70  74 33 25 3d 35 33 20 f2  |... . opt3%=53 .|
00000e10  73 65 61 72 63 68 0d 04  f6 19 20 e7 20 6f 70 74  |search.... . opt|
00000e20  33 25 3d 35 34 20 f2 70  72 69 6e 74 73 75 62 0d  |3%=54 .printsub.|
00000e30  05 00 19 20 e7 20 6f 70  74 33 25 3d 35 35 20 f2  |... . opt3%=55 .|
00000e40  73 70 6f 6f 6c 73 75 62  0d 05 0a 0f 20 fd 20 6f  |spoolsub.... . o|
00000e50  70 74 33 25 3d 35 36 0d  05 14 06 20 e1 0d 05 1e  |pt3%=56.... ....|
00000e60  0b 20 dd f2 6c 6f 61 64  0d 05 28 1e 20 ef 33 31  |. ..load..(. .31|
00000e70  2c 30 2c 36 3b 31 33 36  3b 32 38 2c 30 2c 32 34  |,0,6;136;28,0,24|
00000e80  2c 33 39 2c 31 37 0d 05  32 30 20 74 24 3d 66 69  |,39,17..20 t$=fi|
00000e90  6c 65 24 3a f2 61 73 6b  66 69 6c 65 6e 61 6d 65  |le$:.askfilename|
00000ea0  3a 73 66 69 6c 65 24 3d  66 69 6c 65 24 3a 66 69  |:sfile$=file$:fi|
00000eb0  6c 65 24 3d 74 24 0d 05  3c 1e 20 ff 28 22 2a 4c  |le$=t$..<. .("*L|
00000ec0  4f 41 44 20 22 2b 73 66  69 6c 65 24 2b 22 20 39  |OAD "+sfile$+" 9|
00000ed0  30 30 22 29 0d 05 46 0b  20 73 75 62 25 3d 30 0d  |00")..F. sub%=0.|
00000ee0  05 50 14 20 e3 74 25 3d  26 39 30 30 20 b8 20 26  |.P. .t%=&900 . &|
00000ef0  41 36 44 0d 05 5a 12 20  73 75 62 25 3d 73 75 62  |A6D..Z. sub%=sub|
00000f00  25 2b 3f 74 25 0d 05 64  06 20 ed 0d 05 6e 26 20  |%+?t%..d. ...n& |
00000f10  e7 20 64 61 79 73 25 3d  33 36 35 20 80 20 3f 26  |. days%=365 . ?&|
00000f20  41 36 44 3d 31 20 73 75  62 25 3d 73 75 62 25 2d  |A6D=1 sub%=sub%-|
00000f30  31 0d 05 78 06 20 e1 0d  05 82 0d 20 dd f2 73 65  |1..x. ..... ..se|
00000f40  61 72 63 68 0d 05 8c 1e  20 ef 33 31 2c 30 2c 38  |arch.... .31,0,8|
00000f50  3b 31 33 36 3b 32 38 2c  30 2c 32 34 2c 33 39 2c  |;136;28,0,24,39,|
00000f60  31 37 0d 05 96 06 20 f5  0d 05 a0 24 20 f1 bd 31  |17.... ....$ ..1|
00000f70  33 31 3b 22 45 6e 74 65  72 20 74 68 65 20 73 65  |31;"Enter the se|
00000f80  61 72 63 68 20 73 74 72  69 6e 67 22 0d 05 aa 0e  |arch string"....|
00000f90  20 e8 20 73 65 61 72 63  68 24 0d 05 b4 24 20 fd  | . search$...$ .|
00000fa0  20 a9 28 73 65 61 72 63  68 24 29 3e 30 20 80 20  | .(search$)>0 . |
00000fb0  a9 28 73 65 61 72 63 68  24 29 3c 31 36 30 0d 05  |.(search$)<160..|
00000fc0  be 34 20 f1 bd 31 33 31  3b 22 53 45 41 52 43 48  |.4 ..131;"SEARCH|
00000fd0  49 4e 47 20 3a 20 70 72  65 73 73 20 45 53 43 41  |ING : press ESCA|
00000fe0  50 45 20 74 6f 20 73 74  6f 70 20 73 65 61 72 63  |PE to stop searc|
00000ff0  68 22 0d 05 c8 1b 20 74  65 6d 70 31 3d 8f 23 66  |h".... temp1=.#f|
00001000  69 6c 65 3a cf 23 66 69  6c 65 3d 33 35 0d 05 d2  |ile:.#file=35...|
00001010  12 20 e3 74 25 3d 31 20  b8 20 64 61 79 73 25 0d  |. .t%=1 . days%.|
00001020  05 dc 0e 20 e8 23 66 69  6c 65 2c 64 24 0d 05 e6  |... .#file,d$...|
00001030  1e 20 e7 20 a7 64 24 2c  73 65 61 72 63 68 24 2c  |. . .d$,search$,|
00001040  31 29 3d 30 20 e5 20 8d  54 44 46 0d 05 f0 4a 20  |1)=0 . .TDF...J |
00001050  f1 bd 31 33 31 3b 22 41  20 4d 41 54 43 48 20 48  |..131;"A MATCH H|
00001060  41 53 20 42 45 45 4e 20  46 4f 55 4e 44 20 3a 22  |AS BEEN FOUND :"|
00001070  27 64 24 27 3b bd 31 33  31 3b 22 45 4e 54 45 52  |'d$';.131;"ENTER|
00001080  20 49 4e 54 4f 20 53 55  42 53 45 54 20 3f 20 28  | INTO SUBSET ? (|
00001090  59 2f 4e 29 22 0d 05 fa  4e 20 67 25 3d a5 3a e7  |Y/N)"...N g%=.:.|
000010a0  20 67 25 3d 32 37 20 74  25 3d 64 61 79 73 25 20  | g%=27 t%=days% |
000010b0  8b 20 e7 20 67 25 3d 38  39 20 80 20 3f 28 26 38  |. . g%=89 . ?(&8|
000010c0  46 46 2b 74 25 29 3d 30  20 8c 20 3f 28 26 38 46  |FF+t%)=0 . ?(&8F|
000010d0  46 2b 74 25 29 3d 31 3a  73 75 62 25 3d 73 75 62  |F+t%)=1:sub%=sub|
000010e0  25 2b 31 0d 06 04 17 20  e7 20 a6 28 2d 31 31 33  |%+1.... . .(-113|
000010f0  29 20 74 25 3d 64 61 79  73 25 0d 06 0e 06 20 ed  |) t%=days%.... .|
00001100  0d 06 18 11 20 cf 23 66  69 6c 65 3d 74 65 6d 70  |.... .#file=temp|
00001110  31 0d 06 22 06 20 e1 0d  06 2c 0f 20 dd f2 70 72  |1..". ...,. ..pr|
00001120  69 6e 74 73 75 62 0d 06  36 1e 20 ef 33 31 2c 30  |intsub..6. .31,0|
00001130  2c 39 3b 31 33 36 3b 32  38 2c 30 2c 32 34 2c 33  |,9;136;28,0,24,3|
00001140  39 2c 31 37 0d 06 40 38  20 e7 20 73 75 62 25 3d  |9,17..@8 . sub%=|
00001150  30 20 f1 bd 31 33 31 3b  22 4e 4f 20 52 45 43 4f  |0 ..131;"NO RECO|
00001160  52 44 53 20 49 4e 20 53  55 42 53 45 54 20 21 22  |RDS IN SUBSET !"|
00001170  3a f2 73 70 61 63 65 62  61 72 3a e1 0d 06 4a 30  |:.spacebar:...J0|
00001180  20 f1 bd 31 33 31 3b 22  50 52 45 53 53 20 41 4e  | ..131;"PRESS AN|
00001190  59 20 4b 45 59 20 54 4f  20 42 45 47 49 4e 20 50  |Y KEY TO BEGIN P|
000011a0  52 49 4e 54 49 4e 47 22  3a 41 3d a5 0d 06 54 23  |RINTING":A=...T#|
000011b0  20 f4 20 50 4c 41 43 45  20 41 4e 59 20 50 52 49  | . PLACE ANY PRI|
000011c0  4e 54 45 52 20 43 4f 44  45 53 20 48 45 52 45 0d  |NTER CODES HERE.|
000011d0  06 5e 07 20 ef 32 0d 06  68 23 20 f4 20 2d 2d 2d  |.^. .2..h# . ---|
000011e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000011f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 06 72 0c 20 70 66  |---------..r. pf|
00001200  6c 61 67 3d b9 0d 06 7c  13 20 f2 6f 75 74 70 75  |lag=...|. .outpu|
00001210  74 72 65 63 6f 72 64 73  0d 06 86 07 20 ef 33 0d  |trecords.... .3.|
00001220  06 90 06 20 e1 0d 06 9a  0f 20 dd f2 73 70 6f 6f  |... ..... ..spoo|
00001230  6c 73 75 62 0d 06 a4 1f  20 ef 33 31 2c 30 2c 31  |lsub.... .31,0,1|
00001240  30 3b 31 33 36 3b 32 38  2c 30 2c 32 34 2c 33 39  |0;136;28,0,24,39|
00001250  2c 31 37 0d 06 ae 38 20  e7 20 73 75 62 25 3d 30  |,17...8 . sub%=0|
00001260  20 f1 bd 31 33 31 3b 22  4e 4f 20 52 45 43 4f 52  | ..131;"NO RECOR|
00001270  44 53 20 49 4e 20 53 55  42 53 45 54 20 21 22 3a  |DS IN SUBSET !":|
00001280  f2 73 70 61 63 65 62 61  72 3a e1 0d 06 b8 39 20  |.spacebar:....9 |
00001290  74 65 6d 70 31 24 3d 66  69 6c 65 24 3a f2 61 73  |temp1$=file$:.as|
000012a0  6b 66 69 6c 65 6e 61 6d  65 3a 73 70 6f 6f 6c 66  |kfilename:spoolf|
000012b0  24 3d 66 69 6c 65 24 3a  66 69 6c 65 24 3d 74 65  |$=file$:file$=te|
000012c0  6d 70 31 24 0d 06 c2 19  20 ff 28 22 2a 53 50 4f  |mp1$.... .("*SPO|
000012d0  4f 4c 20 22 2b 73 70 6f  6f 6c 66 24 29 0d 06 cc  |OL "+spoolf$)...|
000012e0  0c 20 70 66 6c 61 67 3d  a3 0d 06 d6 13 20 f2 6f  |. pflag=..... .o|
000012f0  75 74 70 75 74 72 65 63  6f 72 64 73 0d 06 e0 10  |utputrecords....|
00001300  20 ff 28 22 2a 53 50 4f  4f 4c 22 29 0d 06 ea 06  | .("*SPOOL")....|
00001310  20 e1 0d 06 f4 14 20 dd  f2 6f 75 74 70 75 74 72  | ..... ..outputr|
00001320  65 63 6f 72 64 73 0d 06  fe 2b 20 74 65 6d 70 31  |ecords...+ temp1|
00001330  25 3d 64 61 79 25 3a 74  65 6d 70 32 25 3d 64 61  |%=day%:temp2%=da|
00001340  74 65 25 3a 74 65 6d 70  33 25 3d 6d 6f 6e 74 68  |te%:temp3%=month|
00001350  25 0d 07 08 1b 20 74 65  6d 70 34 3d 8f 23 66 69  |%.... temp4=.#fi|
00001360  6c 65 3a cf 23 66 69 6c  65 3d 33 35 0d 07 12 20  |le:.#file=35... |
00001370  20 64 61 79 25 3d 66 64  61 79 25 3a 64 61 74 65  | day%=fday%:date|
00001380  25 3d 31 3a 6d 6f 6e 74  68 25 3d 31 0d 07 1c 12  |%=1:month%=1....|
00001390  20 e3 74 25 3d 31 20 b8  20 64 61 79 73 25 0d 07  | .t%=1 . days%..|
000013a0  26 2e 20 e7 20 3f 28 26  38 46 46 2b 74 25 29 3d  |&. . ?(&8FF+t%)=|
000013b0  30 20 8c 20 cf 23 66 69  6c 65 3d 8f 23 66 69 6c  |0 . .#file=.#fil|
000013c0  65 2b 31 35 38 3a e5 20  8d 44 4e 47 0d 07 30 0e  |e+158:. .DNG..0.|
000013d0  20 e8 23 66 69 6c 65 2c  64 24 0d 07 3a 2d 20 f1  | .#file,d$..:- .|
000013e0  64 61 79 24 28 64 61 79  25 29 3b 22 20 22 3b 64  |day$(day%);" ";d|
000013f0  61 74 65 25 3b 22 20 22  3b 6d 6f 6e 74 68 24 28  |ate%;" ";month$(|
00001400  6d 6f 6e 74 68 25 29 0d  07 44 3d 20 e7 20 70 66  |month%)..D= . pf|
00001410  6c 61 67 20 f1 c0 64 24  2c 33 39 29 27 c1 64 24  |lag ..d$,39)'.d$|
00001420  2c 34 30 2c 33 39 29 27  c1 64 24 2c 37 39 2c 33  |,40,39)'.d$,79,3|
00001430  39 29 27 c1 64 24 2c 31  31 38 2c 33 39 29 20 8b  |9)'.d$,118,39) .|
00001440  20 f1 64 24 0d 07 4e 15  20 f2 64 61 79 61 64 64  | .d$..N. .dayadd|
00001450  3a f2 64 61 74 65 61 64  64 0d 07 58 17 20 e7 20  |:.dateadd..X. . |
00001460  a6 28 2d 31 31 33 29 20  74 25 3d 64 61 79 73 25  |.(-113) t%=days%|
00001470  0d 07 62 06 20 ed 0d 07  6c 38 20 64 61 79 25 3d  |..b. ...l8 day%=|
00001480  74 65 6d 70 31 25 3a 64  61 74 65 25 3d 74 65 6d  |temp1%:date%=tem|
00001490  70 32 25 3a 6d 6f 6e 74  68 25 3d 74 65 6d 70 33  |p2%:month%=temp3|
000014a0  25 3a cf 23 66 69 6c 65  3d 74 65 6d 70 34 0d 07  |%:.#file=temp4..|
000014b0  76 06 20 e1 0d 07 80 05  3a 0d 07 8a 0c 20 dd f2  |v. .....:.... ..|
000014c0  65 72 72 6f 72 0d 07 94  25 20 ef 37 3a d9 23 30  |error...% .7:.#0|
000014d0  3a 66 69 6c 65 24 3d 22  22 3a f6 3a f1 22 20 61  |:file$="":.:." a|
000014e0  74 20 6c 69 6e 65 20 22  3b 9e 0d 07 9e 0e 20 f2  |t line ";..... .|
000014f0  73 70 61 63 65 62 61 72  0d 07 a8 06 20 e1 0d 07  |spacebar.... ...|
00001500  b2 05 3a 0d 07 bc 19 20  f4 22 83 53 55 42 2d 73  |..:.... .".SUB-s|
00001510  75 62 52 4f 55 54 49 4e  45 53 87 22 0d 07 c6 05  |ubROUTINES."....|
00001520  3a 0d 07 d0 17 20 dd f2  64 6f 75 62 6c 65 28 64  |:.... ..double(d|
00001530  24 2c 78 25 2c 79 25 29  0d 07 da 23 20 e3 61 25  |$,x%,y%)...# .a%|
00001540  3d 79 25 20 b8 79 25 2b  31 3a f1 8a 78 25 2c 61  |=y% .y%+1:..x%,a|
00001550  25 29 bd 31 34 31 2b 64  24 3a ed 0d 07 e4 06 20  |%).141+d$:..... |
00001560  e1 0d 07 ee 05 3a 0d 07  f8 0b 20 dd a4 73 75 72  |.....:.... ..sur|
00001570  65 0d 08 02 22 20 ef 37  3a f1 27 bd 31 33 31 bd  |e..." .7:.'.131.|
00001580  31 33 36 2b 22 41 52 45  20 59 4f 55 20 53 55 52  |136+"ARE YOU SUR|
00001590  45 3f 22 0d 08 0c 07 20  3d be 0d 08 16 05 3a 0d  |E?".... =.....:.|
000015a0  08 20 12 20 dd f2 61 73  6b 66 69 6c 65 6e 61 6d  |. . ..askfilenam|
000015b0  65 0d 08 2a 40 20 f5 3a  ef 31 33 31 3b 3a e8 3b  |e..*@ .:.131;:.;|
000015c0  22 54 59 50 45 20 49 4e  20 46 49 4c 45 4e 41 4d  |"TYPE IN FILENAM|
000015d0  45 20 22 3b 66 69 6c 65  24 3a fd a9 28 66 69 6c  |E ";file$:..(fil|
000015e0  65 24 29 3c 31 30 80 a9  28 66 69 6c 65 24 29 3e  |e$)<10..(file$)>|
000015f0  30 0d 08 34 06 20 e1 0d  08 3e 05 3a 0d 08 48 0e  |0..4. ...>.:..H.|
00001600  20 dd f2 6e 6f 64 69 61  72 79 0d 08 52 35 20 f1  | ..nodiary..R5 .|
00001610  bd 31 33 31 2b 22 4e 4f  20 44 49 41 52 59 20 4c  |.131+"NO DIARY L|
00001620  4f 41 44 45 44 20 2d 20  55 73 65 20 6f 70 74 69  |OADED - Use opti|
00001630  6f 6e 20 31 22 3a f2 73  70 61 63 65 62 61 72 0d  |on 1":.spacebar.|
00001640  08 5c 06 20 e1 0d 08 66  05 3a 0d 08 70 0f 20 dd  |.\. ...f.:..p. .|
00001650  f2 73 70 61 63 65 62 61  72 0d 08 7a 29 20 f1 27  |.spacebar..z) .'|
00001660  bd 31 33 31 2b 22 50 52  45 53 53 20 53 50 41 43  |.131+"PRESS SPAC|
00001670  45 20 42 41 52 20 54 4f  20 43 4f 4e 54 49 4e 55  |E BAR TO CONTINU|
00001680  45 22 0d 08 84 0b 20 f5  fd a5 3d 33 32 0d 08 8e  |E".... ...=32...|
00001690  06 20 e1 0d 08 98 05 3a  0d 08 a2 0e 20 dd f2 67  |. .....:.... ..g|
000016a0  65 74 79 65 61 72 0d 08  ac 46 20 f5 3a f1 bd 31  |etyear...F .:..1|
000016b0  33 31 3b 22 45 4e 54 45  52 20 54 48 45 20 59 45  |31;"ENTER THE YE|
000016c0  41 52 20 28 69 6e 20 66  75 6c 6c 29 22 3b 3a e8  |AR (in full)";:.|
000016d0  79 65 61 72 25 3a fd 79  65 61 72 25 3c 33 30 30  |year%:.year%<300|
000016e0  30 80 79 65 61 72 25 3e  31 39 30 35 0d 08 b6 06  |0.year%>1905....|
000016f0  20 e1 0d 08 c0 05 3a 0d  08 ca 0e 20 dd f2 63 61  | .....:.... ..ca|
00001700  6c 63 64 61 79 0d 08 d4  0b 20 64 61 79 25 3d 37  |lcday.... day%=7|
00001710  0d 08 de 16 20 e3 79 65  25 3d 31 39 30 35 b8 79  |.... .ye%=1905.y|
00001720  65 61 72 25 2d 31 0d 08  e8 15 20 e7 79 65 25 83  |ear%-1.... .ye%.|
00001730  34 3d 30 20 f2 64 61 79  61 64 64 0d 08 f2 0c 20  |4=0 .dayadd.... |
00001740  f2 64 61 79 61 64 64 0d  08 fc 06 20 ed 0d 09 06  |.dayadd.... ....|
00001750  06 20 e1 0d 09 10 05 3a  0d 09 1a 0d 20 dd f2 64  |. .....:.... ..d|
00001760  61 79 61 64 64 0d 09 24  1e 20 64 61 79 25 3d 64  |ayadd..$. day%=d|
00001770  61 79 25 2b 31 3a e7 64  61 79 25 3d 38 64 61 79  |ay%+1:.day%=8day|
00001780  25 3d 31 0d 09 2e 06 20  e1 0d 09 38 05 3a 0d 09  |%=1.... ...8.:..|
00001790  42 0d 20 dd f2 64 61 79  73 75 62 0d 09 4c 1e 20  |B. ..daysub..L. |
000017a0  64 61 79 25 3d 64 61 79  25 2d 31 3a e7 64 61 79  |day%=day%-1:.day|
000017b0  25 3d 30 64 61 79 25 3d  37 0d 09 56 06 20 e1 0d  |%=0day%=7..V. ..|
000017c0  09 60 05 3a 0d 09 6a 0e  20 dd f2 64 61 74 65 61  |.`.:..j. ..datea|
000017d0  64 64 0d 09 74 12 20 64  61 74 65 25 3d 64 61 74  |dd..t. date%=dat|
000017e0  65 25 2b 31 0d 09 7e 3b  20 e7 20 bb 28 6d 6f 6e  |e%+1..~; . .(mon|
000017f0  74 68 24 28 6d 6f 6e 74  68 25 2b 31 32 29 29 2b  |th$(month%+12))+|
00001800  31 3d 64 61 74 65 25 20  6d 6f 6e 74 68 25 3d 6d  |1=date% month%=m|
00001810  6f 6e 74 68 25 2b 31 3a  64 61 74 65 25 3d 31 0d  |onth%+1:date%=1.|
00001820  09 88 06 20 e1 0d 09 92  05 3a 0d 09 9c 0e 20 dd  |... .....:.... .|
00001830  f2 64 61 74 65 73 75 62  0d 09 a6 12 20 64 61 74  |.datesub.... dat|
00001840  65 25 3d 64 61 74 65 25  2d 31 0d 09 b0 39 20 e7  |e%=date%-1...9 .|
00001850  20 64 61 74 65 25 3d 30  20 6d 6f 6e 74 68 25 3d  | date%=0 month%=|
00001860  6d 6f 6e 74 68 25 2d 31  3a 64 61 74 65 25 3d bb  |month%-1:date%=.|
00001870  28 6d 6f 6e 74 68 24 28  6d 6f 6e 74 68 25 2b 31  |(month$(month%+1|
00001880  32 29 29 0d 09 ba 06 20  e1 0d 09 c4 05 3a 0d 09  |2)).... .....:..|
00001890  ce 0d 20 dd f2 6d 6f 76  65 75 70 0d 09 d8 1a 20  |.. ..moveup.... |
000018a0  e7 64 61 74 65 25 3d 33  31 80 6d 6f 6e 74 68 25  |.date%=31.month%|
000018b0  3d 31 32 20 e1 0d 09 e2  1b 20 e7 64 70 74 72 25  |=12 ..... .dptr%|
000018c0  3d 34 39 20 f2 6c 6f 61  64 6d 6f 72 65 72 65 63  |=49 .loadmorerec|
000018d0  0d 09 ec 0d 20 ef 33 31  2c 30 2c 31 35 0d 09 f6  |.... .31,0,15...|
000018e0  14 20 f2 64 61 79 61 64  64 3a f2 64 61 79 61 64  |. .dayadd:.dayad|
000018f0  64 0d 0a 00 16 20 f2 64  61 74 65 61 64 64 3a f2  |d.... .dateadd:.|
00001900  64 61 74 65 61 64 64 0d  0a 0a 66 20 e7 28 64 61  |dateadd...f .(da|
00001910  74 65 25 3d 33 32 80 6d  6f 6e 74 68 25 3d 31 32  |te%=32.month%=12|
00001920  29 84 28 6d 6f 6e 74 68  25 3d 31 33 29 f1 27 27  |).(month%=13).''|
00001930  27 27 8b 20 f1 c0 64 61  79 24 28 64 61 79 25 29  |''. ..day$(day%)|
00001940  2c 33 29 3b 22 20 22 3b  64 61 74 65 25 3b 22 20  |,3);" ";date%;" |
00001950  22 3b 6d 6f 6e 74 68 24  28 6d 6f 6e 74 68 25 29  |";month$(month%)|
00001960  27 64 24 28 64 70 74 72  25 2b 32 29 3b 0d 0a 14  |'d$(dptr%+2);...|
00001970  0c 20 f2 64 61 79 73 75  62 0d 0a 1e 0d 20 f2 64  |. .daysub.... .d|
00001980  61 74 65 73 75 62 0d 0a  28 22 20 64 70 74 72 25  |atesub..(" dptr%|
00001990  3d 64 70 74 72 25 2b 31  3a 65 6e 74 72 79 25 3d  |=dptr%+1:entry%=|
000019a0  65 6e 74 72 79 25 2b 31  0d 0a 32 06 20 e1 0d 0a  |entry%+1..2. ...|
000019b0  3c 05 3a 0d 0a 46 0f 20  dd f2 6d 6f 76 65 64 6f  |<.:..F. ..movedo|
000019c0  77 6e 0d 0a 50 19 20 e7  20 64 61 74 65 25 3d 31  |wn..P. . date%=1|
000019d0  80 6d 6f 6e 74 68 25 3d  31 20 e1 0d 0a 5a 31 20  |.month%=1 ...Z1 |
000019e0  e7 28 64 70 74 72 25 3d  32 20 80 20 ac 28 64 61  |.(dptr%=2 . .(da|
000019f0  74 65 25 3d 32 80 6d 6f  6e 74 68 25 3d 31 29 29  |te%=2.month%=1))|
00001a00  20 f2 6c 6f 61 64 70 72  65 72 65 63 0d 0a 64 1c  | .loadprerec..d.|
00001a10  20 ef 33 31 2c 30 2c 30  3a ef 31 31 3b 31 31 3b  | .31,0,0:.11;11;|
00001a20  31 31 3b 31 31 3b 31 31  0d 0a 6e 14 20 f2 64 61  |11;11;11..n. .da|
00001a30  79 73 75 62 3a f2 64 61  79 73 75 62 0d 0a 78 16  |ysub:.daysub..x.|
00001a40  20 f2 64 61 74 65 73 75  62 3a f2 64 61 74 65 73  | .datesub:.dates|
00001a50  75 62 0d 0a 82 57 20 e7  64 70 74 72 25 2d 32 3c  |ub...W .dptr%-2<|
00001a60  3e 30 20 f1 8a 30 2c 30  29 c0 64 61 79 24 28 64  |>0 ..0,0).day$(d|
00001a70  61 79 25 29 2c 33 29 3b  22 20 22 3b 64 61 74 65  |ay%),3);" ";date|
00001a80  25 3b 22 20 22 3b 6d 6f  6e 74 68 24 28 6d 6f 6e  |%;" ";month$(mon|
00001a90  74 68 25 29 27 64 24 28  64 70 74 72 25 2d 32 29  |th%)'d$(dptr%-2)|
00001aa0  3b 20 8b f1 27 27 27 27  27 0d 0a 8c 0c 20 f2 64  |; ..'''''.... .d|
00001ab0  61 79 61 64 64 0d 0a 96  0d 20 f2 64 61 74 65 61  |ayadd.... .datea|
00001ac0  64 64 0d 0a a0 22 20 64  70 74 72 25 3d 64 70 74  |dd..." dptr%=dpt|
00001ad0  72 25 2d 31 3a 65 6e 74  72 79 25 3d 65 6e 74 72  |r%-1:entry%=entr|
00001ae0  79 25 2d 31 0d 0a aa 06  20 e1 0d 0a b4 05 3a 0d  |y%-1.... .....:.|
00001af0  0a be 12 20 dd f2 6c 6f  61 64 6d 6f 72 65 72 65  |... ..loadmorere|
00001b00  63 0d 0a c8 20 20 e3 62  25 3d 31 b8 32 35 3a 64  |c...  .b%=1.25:d|
00001b10  24 28 62 25 29 3d 64 24  28 32 35 2b 62 25 29 3a  |$(b%)=d$(25+b%):|
00001b20  ed 0d 0a d2 3b 20 f5 3a  e8 23 66 69 6c 65 2c 64  |....; .:.#file,d|
00001b30  24 28 62 25 29 3a 62 25  3d 62 25 2b 31 3a fd 20  |$(b%):b%=b%+1:. |
00001b40  62 25 3d 35 31 20 84 20  28 62 25 2d 32 35 2b 65  |b%=51 . (b%-25+e|
00001b50  6e 74 72 79 25 29 3d 64  61 79 73 25 0d 0a dc 0d  |ntry%)=days%....|
00001b60  20 64 70 74 72 25 3d 32  34 0d 0a e6 06 20 e1 0d  | dptr%=24.... ..|
00001b70  0a f0 05 3a 0d 0a fa 11  20 dd f2 6c 6f 61 64 70  |...:.... ..loadp|
00001b80  72 65 72 65 63 0d 0b 04  20 20 e3 62 25 3d 31 b8  |rerec...  .b%=1.|
00001b90  32 35 3a 64 24 28 62 25  2b 32 35 29 3d 64 24 28  |25:d$(b%+25)=d$(|
00001ba0  62 25 29 3a ed 0d 0b 0e  17 20 f4 22 83 52 45 53  |b%):..... .".RES|
00001bb0  45 54 20 50 4f 49 4e 54  45 52 87 22 0d 0b 18 4c  |ET POINTER."...L|
00001bc0  20 e7 20 65 6e 74 72 79  25 3d 33 32 37 20 8c 20  | . entry%=327 . |
00001bd0  cf 23 66 69 6c 65 3d 8f  23 66 69 6c 65 2d 28 28  |.#file=.#file-((|
00001be0  64 61 79 73 25 2d 33 30  30 29 2a 31 35 38 29 20  |days%-300)*158) |
00001bf0  8b 20 cf 23 66 69 6c 65  3d 8f 23 66 69 6c 65 2d  |. .#file=.#file-|
00001c00  28 37 35 2a 31 35 38 29  0d 0b 22 1d 20 e3 63 25  |(75*158)..". .c%|
00001c10  3d 31 b8 32 35 3a e8 23  66 69 6c 65 2c 64 24 28  |=1.25:.#file,d$(|
00001c20  63 25 29 3a ed 0d 0b 2c  0d 20 64 70 74 72 25 3d  |c%):...,. dptr%=|
00001c30  32 37 0d 0b 36 1b 20 cf  23 66 69 6c 65 3d 8f 23  |27..6. .#file=.#|
00001c40  66 69 6c 65 2b 28 32 35  2a 31 35 38 29 0d 0b 40  |file+(25*158)..@|
00001c50  06 20 e1 0d 0b 4a 05 3a  0d 0b 54 12 20 dd f2 63  |. ...J.:..T. ..c|
00001c60  68 61 6e 67 65 65 6e 74  72 79 0d 0b 5e 21 20 ef  |hangeentry..^! .|
00001c70  32 36 3a e3 62 25 3d 31  39 b8 32 33 3a f1 8a 30  |26:.b%=19.23:..0|
00001c80  2c 62 25 29 bd 31 33 31  3b 3a ed 0d 0b 68 13 20  |,b%).131;:...h. |
00001c90  ef 32 38 2c 31 2c 32 34  2c 33 39 2c 31 39 0d 0b  |.28,1,24,39,19..|
00001ca0  72 06 20 f5 0d 0b 7c 29  20 db 3a f1 bd 31 33 31  |r. ...|) .:..131|
00001cb0  3b 22 54 59 50 45 20 49  4e 20 45 4e 54 52 59 3a  |;"TYPE IN ENTRY:|
00001cc0  22 3a f1 c4 31 35 36 2c  22 2e 22 29 3b 0d 0b 86  |":..156,".");...|
00001cd0  14 20 e8 8a 30 2c 31 29  64 24 28 64 70 74 72 25  |. ..0,1)d$(dptr%|
00001ce0  29 0d 0b 90 16 20 fd a9  28 64 24 28 64 70 74 72  |).... ..(d$(dptr|
00001cf0  25 29 29 3c 31 35 37 0d  0b 9a 2f 20 64 24 28 64  |%))<157.../ d$(d|
00001d00  70 74 72 25 29 3d 64 24  28 64 70 74 72 25 29 2b  |ptr%)=d$(dptr%)+|
00001d10  c4 31 35 36 2d a9 28 64  24 28 64 70 74 72 25 29  |.156-.(d$(dptr%)|
00001d20  29 2c 22 20 22 29 0d 0b  a4 44 20 74 25 3d 8f 23  |)," ")...D t%=.#|
00001d30  66 69 6c 65 3a cf 23 66  69 6c 65 3d 33 35 2b 28  |file:.#file=35+(|
00001d40  28 65 6e 74 72 79 25 2d  31 29 2a 31 35 38 29 3a  |(entry%-1)*158):|
00001d50  f1 23 66 69 6c 65 2c 64  24 28 64 70 74 72 25 29  |.#file,d$(dptr%)|
00001d60  3a cf 23 66 69 6c 65 3d  74 25 0d 0b ae 0a 20 db  |:.#file=t%.... .|
00001d70  3a ef 32 36 0d 0b b8 0f  20 f2 70 72 69 6e 74 6b  |:.26.... .printk|
00001d80  65 79 73 0d 0b c2 24 20  ef 32 38 2c 31 2c 31 37  |eys...$ .28,1,17|
00001d90  2c 33 39 2c 32 3a f1 8a  30 2c 36 29 3b 64 24 28  |,39,2:..0,6);d$(|
00001da0  64 70 74 72 25 29 3b 0d  0b cc 06 20 e1 0d 0b d6  |dptr%);.... ....|
00001db0  05 3a 0d 0b e0 0f 20 dd  f2 64 61 74 65 6a 75 6d  |.:.... ..datejum|
00001dc0  70 0d 0b ea 13 20 ef 32  38 2c 31 2c 32 34 2c 33  |p.... .28,1,24,3|
00001dd0  39 2c 31 39 0d 0b f4 06  20 f5 0d 0b fe 06 20 db  |9,19.... ..... .|
00001de0  0d 0c 08 28 20 f1 bd 31  33 31 3b 22 45 4e 54 45  |...( ..131;"ENTE|
00001df0  52 20 41 20 4d 4f 4e 54  48 20 28 61 73 20 61 20  |R A MONTH (as a |
00001e00  6e 75 6d 62 65 72 29 22  0d 0c 12 09 20 e8 20 62  |number)".... . b|
00001e10  25 0d 0c 1c 13 20 fd 20  62 25 3e 30 20 80 20 62  |%.... . b%>0 . b|
00001e20  25 3c 31 33 0d 0c 26 17  20 e7 20 62 25 3d 6d 6f  |%<13..&. . b%=mo|
00001e30  6e 74 68 25 20 e5 20 8d  64 6e 4c 0d 0c 30 17 20  |nth% . .dnL..0. |
00001e40  6d 6f 6e 74 68 25 3d 62  25 3a 64 61 74 65 25 3d  |month%=b%:date%=|
00001e50  31 35 0d 0c 3a 0f 20 6e  6f 73 64 61 79 73 25 3d  |15..:. nosdays%=|
00001e60  30 0d 0c 44 12 20 e7 20  62 25 3d 31 20 e5 20 8d  |0..D. . b%=1 . .|
00001e70  44 58 4c 0d 0c 4e 36 20  e3 63 25 3d 31 b8 28 62  |DXL..N6 .c%=1.(b|
00001e80  25 2d 31 29 3a 6e 6f 73  64 61 79 73 25 3d 6e 6f  |%-1):nosdays%=no|
00001e90  73 64 61 79 73 25 2b bb  28 6d 6f 6e 74 68 24 28  |sdays%+.(month$(|
00001ea0  31 32 2b 63 25 29 29 3a  ed 0d 0c 58 19 20 6e 6f  |12+c%)):...X. no|
00001eb0  73 64 61 79 73 25 3d 6e  6f 73 64 61 79 73 25 2b  |sdays%=nosdays%+|
00001ec0  31 35 0d 0c 62 27 20 64  61 79 25 3d 28 28 28 6e  |15..b' day%=(((n|
00001ed0  6f 73 64 61 79 73 25 20  83 20 37 29 2b 66 64 61  |osdays% . 7)+fda|
00001ee0  79 25 29 83 20 37 29 2d  31 0d 0c 6c 36 20 e7 62  |y%). 7)-1..l6 .b|
00001ef0  25 3d 31 32 20 80 20 64  61 79 73 25 3d 33 36 36  |%=12 . days%=366|
00001f00  20 64 70 74 72 25 3d 32  35 20 8b 20 64 70 74 72  | dptr%=25 . dptr|
00001f10  25 3d 6e 6f 73 64 61 79  73 25 20 83 20 35 30 0d  |%=nosdays% . 50.|
00001f20  0c 76 0d 20 65 6e 74 72  79 25 3d 30 0d 0c 80 12  |.v. entry%=0....|
00001f30  20 e7 20 62 25 3d 31 20  e5 20 8d 74 68 4c 0d 0c  | . b%=1 . .thL..|
00001f40  8a 13 20 e3 63 25 3d 31  33 b8 28 62 25 2b 31 31  |.. .c%=13.(b%+11|
00001f50  29 0d 0c 94 20 20 65 6e  74 72 79 25 3d 65 6e 74  |)...  entry%=ent|
00001f60  72 79 25 2b bb 28 6d 6f  6e 74 68 24 28 63 25 29  |ry%+.(month$(c%)|
00001f70  29 0d 0c 9e 06 20 ed 0d  0c a8 15 20 65 6e 74 72  |).... ..... entr|
00001f80  79 25 3d 65 6e 74 72 79  25 2b 31 35 0d 0c b2 4a  |y%=entry%+15...J|
00001f90  20 e7 62 25 3d 31 32 80  64 61 79 73 25 3d 33 36  | .b%=12.days%=36|
00001fa0  36 20 8c 20 cf 23 66 69  6c 65 3d 33 35 2b 28 31  |6 . .#file=35+(1|
00001fb0  35 38 2a 33 32 35 29 3a  e3 62 25 3d 31 b8 34 31  |58*325):.b%=1.41|
00001fc0  3a e8 23 66 69 6c 65 2c  64 24 28 62 25 29 3a ed  |:.#file,d$(b%):.|
00001fd0  3a e5 8d 64 6e 4c 0d 0c  bc 19 20 62 6c 6f 63 6b  |:..dnL.... block|
00001fe0  6e 6f 73 3d 65 6e 74 72  79 25 20 81 20 35 30 0d  |nos=entry% . 50.|
00001ff0  0c c6 20 20 cf 23 66 69  6c 65 3d 33 35 2b 28 31  |..  .#file=35+(1|
00002000  35 38 2a 35 30 2a 62 6c  6f 63 6b 6e 6f 73 29 0d  |58*50*blocknos).|
00002010  0c d0 0d 20 e3 62 25 3d  31 b8 35 30 0d 0c da 12  |... .b%=1.50....|
00002020  20 e8 23 66 69 6c 65 2c  64 24 28 62 25 29 0d 0c  | .#file,d$(b%)..|
00002030  e4 06 20 ed 0d 0c ee 23  20 db 3a ef 32 36 3a f2  |.. ....# .:.26:.|
00002040  70 72 69 6e 74 6b 65 79  73 3a ef 32 38 2c 31 2c  |printkeys:.28,1,|
00002050  31 37 2c 33 39 2c 32 0d  0c f8 0f 20 f2 73 65 74  |17,39,2.... .set|
00002060  73 63 72 65 65 6e 0d 0d  02 06 20 e1 0d 0d 0c 05  |screen.... .....|
00002070  3a 0d 0d 16 10 20 dd f2  70 72 69 6e 74 6b 65 79  |:.... ..printkey|
00002080  73 0d 0d 20 ae 20 f1 8a  30 2c 31 38 29 bd 31 34  |s.. . ..0,18).14|
00002090  38 3b c4 33 39 2c bd 31  37 32 29 3b bd 31 33 31  |8;.39,.172);.131|
000020a0  22 41 52 52 4f 57 20 4b  45 59 53 20 5d 20 73 63  |"ARROW KEYS ] sc|
000020b0  72 6f 6c 6c 20 64 69 61  72 79 22 27 bd 31 33 31  |roll diary"'.131|
000020c0  22 45 53 43 41 50 45 20  5d 20 72 65 74 75 72 6e  |"ESCAPE ] return|
000020d0  20 74 6f 20 6d 61 69 6e  20 6d 65 6e 75 22 27 bd  | to main menu"'.|
000020e0  31 33 31 22 50 20 5d 20  70 6c 61 63 65 20 65 6e  |131"P ] place en|
000020f0  74 72 79 20 69 6e 74 6f  20 73 75 62 73 65 74 22  |try into subset"|
00002100  27 bd 31 33 31 22 43 20  5d 20 63 68 61 6e 67 65  |'.131"C ] change|
00002110  20 65 6e 74 72 79 22 27  bd 31 33 31 22 4a 20 5d  | entry"'.131"J ]|
00002120  20 6a 75 6d 70 20 74 6f  20 64 61 74 65 22 3b 0d  | jump to date";.|
00002130  0d 2a 06 20 e1 0d 0d 34  05 3a 0d 0d 3e 10 20 dd  |.*. ...4.:..>. .|
00002140  f2 73 65 74 73 63 72 65  65 6e 0d 0d 48 0a 20 ef  |.setscreen..H. .|
00002150  32 36 3a db 0d 0d 52 4a  20 f2 64 6f 75 62 6c 65  |26:...RJ .double|
00002160  28 bd 31 33 32 2b bd 31  35 37 2b bd 31 33 31 2b  |(.132+.157+.131+|
00002170  c3 28 79 65 61 72 25 29  2b 22 20 44 49 41 52 59  |.(year%)+" DIARY|
00002180  20 4b 45 45 50 45 52 20  45 44 49 54 20 4d 4f 44  | KEEPER EDIT MOD|
00002190  45 20 20 22 2b bd 31 35  36 2c 31 2c 30 29 0d 0d  |E  "+.156,1,0)..|
000021a0  5c 28 20 f7 8d 44 66 4d  3a e3 62 25 3d 32 b8 31  |\( ..DfM:.b%=2.1|
000021b0  37 3a f3 63 25 3a f1 8a  30 2c 62 25 29 3b bd 28  |7:.c%:..0,b%);.(|
000021c0  63 25 29 3b 3a ed 0d 0d  66 45 20 dc 31 33 30 2c  |c%);:...fE .130,|
000021d0  31 33 34 2c 31 33 34 2c  31 33 34 2c 31 33 34 2c  |134,134,134,134,|
000021e0  31 33 31 2c 31 33 34 2c  31 33 34 2c 31 33 34 2c  |131,134,134,134,|
000021f0  31 33 34 2c 31 33 30 2c  31 33 34 2c 31 33 34 2c  |134,130,134,134,|
00002200  31 33 34 2c 31 33 34 2c  31 35 32 0d 0d 70 0f 20  |134,134,152..p. |
00002210  f2 70 72 69 6e 74 6b 65  79 73 0d 0d 7a 12 20 ef  |.printkeys..z. .|
00002220  32 38 2c 31 2c 31 37 2c  33 39 2c 32 0d 0d 84 1c  |28,1,17,39,2....|
00002230  20 f2 6d 6f 76 65 75 70  3a f2 6d 6f 76 65 75 70  | .moveup:.moveup|
00002240  3a f2 6d 6f 76 65 75 70  0d 0d 8e 22 20 f2 6d 6f  |:.moveup..." .mo|
00002250  76 65 64 6f 77 6e 3a f2  6d 6f 76 65 64 6f 77 6e  |vedown:.movedown|
00002260  3a f2 6d 6f 76 65 64 6f  77 6e 0d 0d 98 06 20 e1  |:.movedown.... .|
00002270  0d ea                                             |..|
00002272