MEMO DIARY
FILE INFORMATION
FILENAME(S): MEMO DIARY
FILE TYPE(S): PRG
FILE SIZE: 4.4K
FIRST SEEN: 2025-10-19 22:48:37
APPEARS ON: 1 disk(s)
FILE HASH
53f54a3eecc49ddbfcb8221fee81d057ff7bd3ee0272352516ef2a3d4483d135
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAZETTE SPEC 88 | MEMO DIARY | PRG | Radd Maxx | 27 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0D 08 5A 00 46 B2 28 31 B2 31 29 00 18 08 |....Z.F.(1.1)...|
00000010: 64 00 8D 20 32 32 35 30 00 36 08 6E 00 83 20 4A |d.. 2250.6.n.. J|
00000020: 41 4E 2C 46 45 42 2C 4D 41 52 2C 41 50 52 2C 4D |AN,FEB,MAR,APR,M|
00000030: 41 59 2C 4A 55 4E 00 54 08 78 00 83 20 4A 55 4C |AY,JUN.T.x.. JUL|
00000040: 2C 41 55 47 2C 53 45 50 2C 4F 43 54 2C 4E 4F 56 |,AUG,SEP,OCT,NOV|
00000050: 2C 44 45 43 00 7A 08 82 00 83 20 53 55 4E 44 41 |,DEC.z.... SUNDA|
00000060: 59 2C 4D 4F 4E 44 41 59 2C 54 55 45 53 44 41 59 |Y,MONDAY,TUESDAY|
00000070: 2C 57 45 44 4E 45 53 44 41 59 00 99 08 8C 00 83 |,WEDNESDAY......|
00000080: 20 54 48 55 52 53 44 41 59 2C 46 52 49 44 41 59 | THURSDAY,FRIDAY|
00000090: 2C 53 41 54 55 52 44 41 59 00 B4 08 96 00 86 20 |,SATURDAY...... |
000000A0: 4D 24 28 31 32 29 2C 57 24 28 36 29 2C 4C 24 28 |M$(12),W$(6),L$(|
000000B0: 31 30 30 29 00 C3 08 A0 00 81 20 4A B2 31 20 A4 |100)...... J.1 .|
000000C0: 20 31 32 00 CF 08 AA 00 87 20 4D 24 28 4A 29 00 | 12...... M$(J).|
000000D0: D7 08 B4 00 82 20 4A 00 E5 08 BE 00 81 20 4A B2 |..... J...... J.|
000000E0: 30 20 A4 20 36 00 F1 08 C8 00 87 20 57 24 28 4A |0 . 6...... W$(J|
000000F0: 29 00 F9 08 D2 00 82 20 4A 00 10 09 DC 00 99 20 |)...... J...... |
00000100: 22 45 56 45 4E 54 20 43 41 4C 45 4E 44 41 52 22 |"EVENT CALENDAR"|
00000110: 00 20 09 E6 00 8B 20 46 B2 30 20 A7 20 32 36 30 |. .... F.0 . 260|
00000120: 00 28 09 F0 00 43 B2 31 00 33 09 FA 00 8D 20 33 |.(...C.1.3.... 3|
00000130: 30 31 30 00 43 09 FF 00 8B 20 45 B2 30 20 A7 20 |010.C.... E.0 . |
00000140: 32 36 30 00 4B 09 00 01 46 B2 30 00 61 09 04 01 |260.K...F.0.a...|
00000150: 99 20 22 54 4F 44 41 59 27 53 20 44 41 54 45 3A |. "TODAY'S DATE:|
00000160: 22 00 6B 09 0E 01 59 38 B2 59 39 00 76 09 18 01 |".k...Y8.Y9.v...|
00000170: 8D 20 31 36 37 30 00 7F 09 22 01 4D 38 B2 4D 00 |. 1670...".M8.M.|
00000180: 88 09 2C 01 44 38 B2 44 00 9B 09 36 01 8B 20 4D |..,.D8.D...6.. M|
00000190: 38 B1 B2 4D 39 20 A7 20 33 33 30 00 A7 09 40 01 |8..M9 . 330...@.|
000001A0: 59 38 B2 59 39 AA 31 00 C3 09 4A 01 8B 20 4D 38 |Y8.Y9.1...J.. M8|
000001B0: B3 B1 4D 39 20 B0 20 44 38 B1 B2 44 39 20 A7 20 |..M9 . D8..D9 . |
000001C0: 33 35 30 00 CF 09 54 01 59 38 B2 59 39 AA 31 00 |350...T.Y8.Y9.1.|
000001D0: E2 09 5E 01 8B 20 59 38 B3 B2 59 39 20 A7 20 33 |..^.. Y8..Y9 . 3|
000001E0: 37 30 00 F9 09 68 01 99 20 22 48 41 50 50 59 20 |70...h.. "HAPPY |
000001F0: 4E 45 57 20 59 45 41 52 22 00 07 0A 72 01 8B 20 |NEW YEAR"...r.. |
00000200: 46 20 A7 20 34 30 30 00 15 0A 7C 01 99 20 22 59 |F . 400...|.. "Y|
00000210: 45 41 52 22 3B 00 1E 0A 86 01 85 20 59 38 00 39 |EAR";...... Y8.9|
00000220: 0A 90 01 44 39 24 B2 C9 28 C4 28 31 30 30 AA 4D |...D9$..(.(100.M|
00000230: 39 29 2C 32 29 AA 22 2F 22 00 54 0A 9A 01 44 39 |9),2)."/".T...D9|
00000240: 24 B2 44 39 24 AA C9 28 C4 28 31 30 30 AA 44 39 |$.D9$..(.(100.D9|
00000250: 29 2C 32 29 00 62 0A A4 01 8B 20 46 20 A7 20 34 |),2).b.... F . 4|
00000260: 34 30 00 6E 0A AE 01 44 39 24 B2 44 38 24 00 7A |40.n...D9$.D8$.z|
00000270: 0A B8 01 46 B2 28 31 B2 31 29 00 85 0A C2 01 8D |...F.(1.1)......|
00000280: 20 31 39 36 30 00 9C 0A CC 01 99 20 22 50 41 53 | 1960...... "PAS|
00000290: 54 20 45 56 45 4E 54 53 3A 20 22 3B 00 AE 0A D6 |T EVENTS: ";....|
000002A0: 01 8B 20 4C 30 B1 B2 30 20 A7 20 35 30 30 00 BB |.. L0..0 . 500..|
000002B0: 0A E0 01 99 20 22 4E 4F 4E 45 22 00 C5 0A EA 01 |.... "NONE".....|
000002C0: 89 20 36 35 30 00 D0 0A F4 01 99 20 4C 30 AA 31 |. 650...... L0.1|
000002D0: 00 DB 0A FE 01 8D 20 34 30 31 30 00 E5 0A 08 02 |...... 4010.....|
000002E0: 46 39 B2 AB 31 00 F4 0A 12 02 81 20 4A B2 30 20 |F9..1...... J.0 |
000002F0: A4 20 4C 30 00 11 0B 1C 02 8B 20 CA 28 4C 24 28 |. L0...... .(L$(|
00000300: 4A 29 2C 36 2C 31 29 B2 22 2F 22 20 A7 20 35 37 |J),6,1)."/" . 57|
00000310: 30 00 22 0B 26 02 4C 24 28 4C 39 29 B2 4C 24 28 |0.".&.L$(L9).L$(|
00000320: 4A 29 00 2E 0B 30 02 4C 39 B2 4C 39 AA 31 00 36 |J)...0.L9.L9.1.6|
00000330: 0B 3A 02 82 20 4A 00 42 0B 44 02 4C 38 B2 4C 30 |.:.. J.B.D.L8.L0|
00000340: AA 31 00 54 0B 4E 02 81 20 4A B2 4C 38 20 A4 20 |.1.T.N.. J.L8 . |
00000350: 4C 39 AB 31 00 67 0B 58 02 4C 24 28 4A AB 4C 38 |L9.1.g.X.L$(J.L8|
00000360: 29 B2 4C 24 28 4A 29 00 6F 0B 62 02 82 20 4A 00 |).L$(J).o.b.. J.|
00000370: 7C 0B 6C 02 4C 39 B2 4C 39 AB 4C 38 00 85 0B 76 ||.l.L9.L9.L8...v|
00000380: 02 4C 38 B2 30 00 8E 0B 80 02 4C B2 4C 39 00 96 |.L8.0.....L.L9..|
00000390: 0B 8A 02 46 B2 30 00 9F 0B 94 02 46 39 B2 30 00 |...F.0.....F9.0.|
000003A0: AB 0B 9E 02 44 39 24 B2 44 38 24 00 B7 0B A8 02 |....D9$.D8$.....|
000003B0: 4C B2 4C 39 AB 4C 38 00 C8 0B B2 02 8B 20 4C B3 |L.L9.L8...... L.|
000003C0: B1 30 20 A7 20 37 31 30 00 E1 0B BC 02 99 20 22 |.0 . 710...... "|
000003D0: 4E 4F 20 46 55 54 55 52 45 20 45 56 45 4E 54 53 |NO FUTURE EVENTS|
000003E0: 22 00 F1 0B C6 02 8B 20 4C B2 30 20 A7 20 37 33 |"...... L.0 . 73|
000003F0: 30 00 0A 0C D0 02 99 20 4C 3B 22 20 46 55 54 55 |0...... L;" FUTU|
00000400: 52 45 20 45 56 45 4E 54 53 22 00 10 0C DA 02 99 |RE EVENTS"......|
00000410: 00 2D 0C E4 02 99 20 22 31 2E 20 53 45 45 20 46 |.-.... "1. SEE F|
00000420: 55 54 55 52 45 20 45 56 45 4E 54 53 22 00 46 0C |UTURE EVENTS".F.|
00000430: EE 02 99 20 22 32 2E 20 41 44 44 20 4E 45 57 20 |... "2. ADD NEW |
00000440: 45 56 45 4E 54 22 00 5E 0C F8 02 99 20 22 33 2E |EVENT".^.... "3.|
00000450: 20 43 41 4E 43 45 4C 20 45 56 45 4E 54 22 00 7A | CANCEL EVENT".z|
00000460: 0C 02 03 99 20 22 34 2E 20 53 45 41 52 43 48 20 |.... "4. SEARCH |
00000470: 46 4F 52 20 45 56 45 4E 54 22 00 8A 0C 0C 03 99 |FOR EVENT"......|
00000480: 20 22 35 2E 20 51 55 49 54 22 00 90 0C 16 03 99 | "5. QUIT"......|
00000490: 00 AE 0C 20 03 99 20 22 2E 2E 2E 59 4F 55 52 20 |... .. "...YOUR |
000004A0: 43 48 4F 49 43 45 20 28 31 2D 35 29 22 3B 00 B6 |CHOICE (1-5)";..|
000004B0: 0C 2A 03 85 20 41 00 BC 0C 34 03 99 00 DD 0C 3E |.*.. A...4.....>|
000004C0: 03 91 20 41 20 89 20 38 35 30 2C 39 34 30 2C 31 |.. A . 850,940,1|
000004D0: 32 31 30 2C 31 34 35 30 2C 31 35 37 30 00 E7 0C |210,1450,1570...|
000004E0: 48 03 89 20 37 33 30 00 FE 0C 52 03 99 20 22 41 |H.. 730...R.. "A|
000004F0: 48 45 41 44 20 54 4F 20 44 41 54 45 3A 22 00 09 |HEAD TO DATE:"..|
00000500: 0D 5C 03 8D 20 31 36 37 30 00 14 0D 66 03 8D 20 |.\.. 1670...f.. |
00000510: 31 39 36 30 00 27 0D 70 03 8B 20 4C 30 B3 B1 AB |1960.'.p.. L0...|
00000520: 31 20 A7 20 39 31 30 00 39 0D 7A 03 99 20 22 4E |1 . 910.9.z.. "N|
00000530: 4F 20 45 56 45 4E 54 53 22 00 43 0D 84 03 89 20 |O EVENTS".C.... |
00000540: 39 32 30 00 4E 0D 8E 03 8D 20 34 30 31 30 00 73 |920.N.... 4010.s|
00000550: 0D 98 03 99 20 4C 39 AB 4C 30 AB 31 3B 22 20 4F |.... L9.L0.1;" O|
00000560: 54 48 45 52 20 46 55 54 55 52 45 20 45 56 45 4E |THER FUTURE EVEN|
00000570: 54 53 22 00 7D 0D A2 03 89 20 37 33 30 00 9E 0D |TS".}.... 730...|
00000580: AC 03 99 20 22 41 4E 4E 55 41 4C 20 4F 52 20 4F |... "ANNUAL OR O|
00000590: 4E 45 2D 54 49 4D 45 20 28 41 2F 4F 29 22 00 A7 |NE-TIME (A/O)"..|
000005A0: 0D B6 03 85 20 50 24 00 AF 0D C0 03 41 B2 30 00 |.... P$.....A.0.|
000005B0: BE 0D CA 03 50 24 B2 C8 28 50 24 2C 31 29 00 D2 |....P$..(P$,1)..|
000005C0: 0D D4 03 8B 20 50 24 B2 22 4F 22 20 A7 20 31 30 |.... P$."O" . 10|
000005D0: 31 30 00 DA 0D DE 03 41 B2 31 00 EE 0D E8 03 8B |10.....A.1......|
000005E0: 20 50 24 B3 B1 22 41 22 20 A7 20 37 33 30 00 F9 | P$.."A" . 730..|
000005F0: 0D F2 03 8D 20 31 36 37 30 00 13 0E FC 03 59 24 |.... 1670.....Y$|
00000600: B2 22 2F 22 AA C9 28 C4 28 31 30 31 AA 59 38 29 |."/"..(.(101.Y8)|
00000610: 2C 32 29 00 29 0E 06 04 8B 20 44 38 24 B3 B2 44 |,2).).... D8$..D|
00000620: 39 24 20 A7 20 31 30 35 30 00 43 0E 10 04 59 24 |9$ . 1050.C...Y$|
00000630: B2 22 2F 22 AA C9 28 C4 28 31 30 30 AA 59 38 29 |."/"..(.(100.Y8)|
00000640: 2C 32 29 00 55 0E 1A 04 8B 20 41 B3 B1 31 20 A7 |,2).U.... A..1 .|
00000650: 20 31 30 37 30 00 5F 0E 24 04 59 24 B2 22 22 00 | 1070._.$.Y$."".|
00000660: 6A 0E 2E 04 8D 20 31 39 36 30 00 81 0E 38 04 8B |j.... 1960...8..|
00000670: 20 4C 39 AB 31 B3 4C 30 AA 31 20 A7 20 31 31 32 | L9.1.L0.1 . 112|
00000680: 30 00 9A 0E 42 04 81 20 4A B2 4C 39 AB 31 20 A4 |0...B.. J.L9.1 .|
00000690: 20 4C 30 AA 31 20 A9 20 AB 31 00 AC 0E 4C 04 4C | L0.1 . .1...L.L|
000006A0: 24 28 4A AA 31 29 B2 4C 24 28 4A 29 00 B4 0E 56 |$(J.1).L$(J)...V|
000006B0: 04 82 20 4A 00 C4 0E 60 04 99 20 22 44 45 54 41 |.. J...`.. "DETA|
000006C0: 49 4C 22 3B 00 CE 0E 6A 04 85 20 4C 4C 24 00 DD |IL";...j.. LL$..|
000006D0: 0E 74 04 44 38 24 B2 44 38 24 AA 59 24 00 ED 0E |.t.D8$.D8$.Y$...|
000006E0: 7E 04 44 38 24 B2 44 38 24 AA 22 20 22 00 02 0F |~.D8$.D8$." "...|
000006F0: 88 04 4C 24 28 4C 30 AA 31 29 B2 44 38 24 AA 4C |..L$(L0.1).D8$.L|
00000700: 4C 24 00 0E 0F 92 04 4C 39 B2 4C 39 AA 31 00 17 |L$.....L9.L9.1..|
00000710: 0F 9C 04 4C B2 4C 39 00 21 0F A6 04 46 39 B2 AB |...L.L9.!...F9..|
00000720: 31 00 2B 0F B0 04 89 20 36 38 30 00 46 0F BA 04 |1.+.... 680.F...|
00000730: 99 20 22 43 48 41 4E 47 45 20 57 48 49 43 48 20 |. "CHANGE WHICH |
00000740: 44 41 54 45 3A 22 00 51 0F C4 04 8D 20 31 36 37 |DATE:".Q.... 167|
00000750: 30 00 5B 0F CE 04 4C 30 B2 AB 31 00 6D 0F D8 04 |0.[...L0..1.m...|
00000760: 81 20 4A B2 4C 38 20 A4 20 4C 39 AB 31 00 8A 0F |. J.L8 . L9.1...|
00000770: E2 04 8B 20 44 38 24 B3 B1 C8 28 4C 24 28 4A 29 |... D8$...(L$(J)|
00000780: 2C 35 29 20 A7 20 31 33 30 30 00 93 0F EC 04 4C |,5) . 1300.....L|
00000790: 31 B2 4A 00 A7 0F F6 04 8B 20 4C 30 B3 B1 AB 31 |1.J...... L0...1|
000007A0: 20 A7 20 31 32 39 30 00 B0 0F 00 05 4C 30 B2 4A | . 1290.....L0.J|
000007B0: 00 C3 0F 0A 05 99 20 4A 3B 22 3A 20 22 3B 4C 24 |...... J;": ";L$|
000007C0: 28 4A 29 00 CB 0F 14 05 82 20 4A 00 DF 0F 1E 05 |(J)...... J.....|
000007D0: 8B 20 4C 30 B3 B1 AB 31 20 A7 20 31 33 34 30 00 |. L0...1 . 1340.|
000007E0: F1 0F 28 05 99 20 22 4E 4F 20 45 56 45 4E 54 53 |..(.. "NO EVENTS|
000007F0: 22 00 FB 0F 32 05 89 20 37 33 30 00 01 10 3C 05 |"...2.. 730...<.|
00000800: 99 00 24 10 46 05 99 20 22 20 44 45 4C 45 54 45 |..$.F.. " DELETE|
00000810: 20 57 48 49 43 48 20 45 56 45 4E 54 20 41 42 4F | WHICH EVENT ABO|
00000820: 56 45 22 3B 00 2C 10 50 05 85 20 41 00 44 10 5A |VE";.,.P.. A.D.Z|
00000830: 05 8B 20 41 B3 4C 30 20 B0 20 41 B1 4C 31 20 A7 |.. A.L0 . A.L1 .|
00000840: 20 37 33 30 00 55 10 64 05 81 20 4A B2 41 20 A4 | 730.U.d.. J.A .|
00000850: 20 4C 39 AB 31 00 67 10 6E 05 4C 24 28 4A 29 B2 | L9.1.g.n.L$(J).|
00000860: 4C 24 28 4A AA 31 29 00 6F 10 78 05 82 20 4A 00 |L$(J.1).o.x.. J.|
00000870: 7B 10 82 05 4C 39 B2 4C 39 AB 31 00 85 10 8C 05 |{...L9.L9.1.....|
00000880: 46 39 B2 AB 31 00 9A 10 96 05 99 20 22 20 2E 2E |F9..1...... " ..|
00000890: 2E 20 44 45 4C 45 54 45 44 22 00 A4 10 A0 05 89 |. DELETED"......|
000008A0: 20 36 38 30 00 B8 10 AA 05 99 20 22 53 45 41 52 | 680...... "SEAR|
000008B0: 43 48 20 46 4F 52 22 3B 00 C1 10 B4 05 85 20 50 |CH FOR";...... P|
000008C0: 24 00 CD 10 BE 05 50 B2 C3 28 50 24 29 00 DE 10 |$.....P..(P$)...|
000008D0: C8 05 81 20 4A B2 30 20 A4 20 4C 39 AB 31 00 E6 |... J.0 . L9.1..|
000008E0: 10 D2 05 41 B2 37 00 05 11 DC 05 8B 20 CA 28 4C |...A.7...... .(L|
000008F0: 24 28 4A 29 2C 36 2C 31 29 B3 B1 22 2F 22 20 A7 |$(J),6,1).."/" .|
00000900: 20 31 35 32 30 00 0E 11 E6 05 41 B2 31 30 00 3D | 1520.....A.10.=|
00000910: 11 F0 05 8B 20 41 AA 50 AB 31 B1 C3 28 4C 24 28 |.... A.P.1..(L$(|
00000920: 4A 29 29 20 B0 20 50 24 B3 B1 CA 28 4C 24 28 4A |J)) . P$...(L$(J|
00000930: 29 2C 41 2C 50 29 20 A7 20 31 35 34 30 00 49 11 |),A,P) . 1540.I.|
00000940: FA 05 99 20 4C 24 28 4A 29 00 51 11 04 06 82 20 |... L$(J).Q.... |
00000950: 4A 00 6B 11 0E 06 99 20 22 20 20 20 20 45 4E 44 |J.k.... " END|
00000960: 20 4F 46 20 53 45 41 52 43 48 22 00 75 11 18 06 | OF SEARCH".u...|
00000970: 89 20 37 33 30 00 88 11 22 06 8B 20 46 39 B3 B1 |. 730...".. F9..|
00000980: 30 20 A7 20 31 35 39 30 00 93 11 27 06 8B 4F A7 |0 . 1590...'..O.|
00000990: A0 31 35 00 99 11 2C 06 80 00 C6 11 36 06 99 20 |.15...,.....6.. |
000009A0: 22 52 45 41 44 59 20 54 4F 20 57 52 49 54 45 20 |"READY TO WRITE |
000009B0: 4E 45 57 20 45 56 45 4E 54 53 20 46 49 4C 45 20 |NEW EVENTS FILE |
000009C0: 28 59 2F 4E 29 22 00 CF 11 40 06 85 20 50 24 00 |(Y/N)"...@.. P$.|
000009D0: E8 11 4A 06 8B 20 C8 28 50 24 2C 31 29 B2 22 59 |..J.. .(P$,1)."Y|
000009E0: 22 20 A7 20 31 36 33 30 00 EE 11 54 06 90 00 FE |" . 1630...T....|
000009F0: 11 5E 06 44 39 24 B2 44 39 24 AA 22 2F 22 00 19 |.^.D9$.D9$."/"..|
00000A00: 12 68 06 44 39 24 B2 44 39 24 AA C9 28 C4 28 59 |.h.D9$.D9$..(.(Y|
00000A10: 38 AA 31 30 30 29 2C 32 29 00 21 12 72 06 43 B2 |8.100),2).!.r.C.|
00000A20: 32 00 2C 12 7C 06 89 20 33 30 31 30 00 34 12 86 |2.,.|.. 3010.4..|
00000A30: 06 4D B2 30 00 43 12 90 06 99 20 22 4D 4F 4E 54 |.M.0.C.... "MONT|
00000A40: 48 22 3B 00 4D 12 9A 06 85 20 4D 4D 24 00 5A 12 |H";.M.... MM$.Z.|
00000A50: A4 06 4D B2 C5 28 4D 4D 24 29 00 70 12 AE 06 4D |..M..(MM$).p...M|
00000A60: 4D 24 B2 C8 28 4D 4D 24 AA 22 58 58 22 2C 33 29 |M$..(MM$."XX",3)|
00000A70: 00 81 12 B8 06 8B 20 4D B2 30 20 A7 20 31 37 36 |...... M.0 . 176|
00000A80: 30 00 99 12 C2 06 8B 20 4D B3 31 20 B0 20 4D B1 |0...... M.1 . M.|
00000A90: 31 32 20 A7 20 31 36 37 30 00 A5 12 CC 06 99 20 |12 . 1670...... |
00000AA0: 4D 24 28 4D 29 00 B0 12 D6 06 89 20 31 38 31 30 |M$(M)...... 1810|
00000AB0: 00 BF 12 E0 06 81 20 4A B2 31 20 A4 20 31 32 00 |...... J.1 . 12.|
00000AC0: D7 12 EA 06 8B 20 4D 4D 24 B3 B1 4D 24 28 4A 29 |..... MM$..M$(J)|
00000AD0: 20 A7 20 31 37 39 30 00 DF 12 F4 06 4D B2 4A 00 | . 1790.....M.J.|
00000AE0: E7 12 FE 06 82 20 4A 00 FF 12 08 07 8B 20 4D B3 |..... J...... M.|
00000AF0: 31 20 B0 20 4D B1 31 32 20 A7 20 31 36 37 30 00 |1 . M.12 . 1670.|
00000B00: 0C 13 12 07 99 20 22 44 41 59 22 3B 00 14 13 1C |..... "DAY";....|
00000B10: 07 85 20 44 00 2C 13 26 07 8B 20 44 B3 31 20 B0 |.. D.,.&.. D.1 .|
00000B20: 20 44 B1 33 31 20 A7 20 31 36 37 30 00 46 13 30 | D.31 . 1670.F.0|
00000B30: 07 44 38 24 B2 C9 28 C4 28 31 30 30 AA 4D 29 2C |.D8$..(.(100.M),|
00000B40: 32 29 AA 22 2F 22 00 60 13 3A 07 44 38 24 B2 44 |2)."/".`.:.D8$.D|
00000B50: 38 24 AA C9 28 C4 28 31 30 30 AA 44 29 2C 32 29 |8$..(.(100.D),2)|
00000B60: 00 69 13 44 07 59 B2 59 38 00 7E 13 4E 07 8B 20 |.i.D.Y.Y8.~.N.. |
00000B70: 44 38 24 B1 44 39 24 20 A7 20 31 38 39 30 00 89 |D8$.D9$ . 1890..|
00000B80: 13 58 07 59 B2 59 38 AA 31 00 94 13 62 07 8D 20 |.X.Y.Y8.1...b.. |
00000B90: 32 31 35 30 00 AB 13 6C 07 8B 20 C3 28 4C 4C 24 |2150...l.. .(LL$|
00000BA0: 29 B3 B2 30 20 A7 20 31 39 32 30 00 BF 13 76 07 |)..0 . 1920...v.|
00000BB0: 99 20 22 28 22 3B 57 24 28 57 29 3B 22 29 22 00 |. "(";W$(W);")".|
00000BC0: C5 13 80 07 8E 00 CD 13 8A 07 43 B2 31 00 D8 13 |..........C.1...|
00000BD0: 94 07 8D 20 33 30 31 30 00 DE 13 9E 07 8E 00 ED |... 3010........|
00000BE0: 13 A8 07 4C 4C 24 B2 C7 28 32 35 35 29 00 F7 13 |...LL$..(255)...|
00000BF0: B2 07 4C 30 B2 AB 31 00 09 14 BC 07 8B 20 4C B3 |..L0..1...... L.|
00000C00: B1 30 20 A7 20 32 30 30 30 00 0F 14 C6 07 8E 00 |.0 . 2000.......|
00000C10: 1E 14 D0 07 56 24 B2 44 38 24 AA 4C 4C 24 00 2A |....V$.D8$.LL$.*|
00000C20: 14 DA 07 57 57 24 B2 44 39 24 00 3C 14 E4 07 8B |...WW$.D9$.<....|
00000C30: 20 46 B3 B1 30 20 A7 20 32 30 34 30 00 4C 14 EE | F..0 . 2040.L..|
00000C40: 07 57 57 24 B2 44 39 24 AA 4C 4C 24 00 5D 14 F8 |.WW$.D9$.LL$.]..|
00000C50: 07 46 31 B2 28 57 57 24 B1 B2 56 24 29 00 6F 14 |.F1.(WW$..V$).o.|
00000C60: 02 08 81 20 4A B2 4C 38 20 A4 20 4C 39 AB 31 00 |... J.L8 . L9.1.|
00000C70: 82 14 0C 08 46 32 B2 28 4C 24 28 4A 29 B1 57 57 |....F2.(L$(J).WW|
00000C80: 24 29 00 94 14 16 08 46 33 B2 28 56 24 B1 4C 24 |$).....F3.(V$.L$|
00000C90: 28 4A 29 29 00 A3 14 20 08 46 30 B2 46 32 20 AF |(J))... .F0.F2 .|
00000CA0: 20 46 33 00 B5 14 2A 08 8B 20 46 31 B2 30 20 A7 | F3...*.. F1.0 .|
00000CB0: 20 32 31 31 30 00 C4 14 34 08 46 30 B2 46 32 20 | 2110...4.F0.F2 |
00000CC0: B0 20 46 33 00 D6 14 3E 08 8B 20 46 30 B2 30 20 |. F3...>.. F0.0 |
00000CD0: A7 20 32 31 33 30 00 DF 14 48 08 4C 30 B2 4A 00 |. 2130...H.L0.J.|
00000CE0: E7 14 52 08 82 20 4A 00 ED 14 5C 08 8E 00 00 15 |..R.. J...\.....|
00000CF0: 66 08 8B 20 59 B1 B2 38 35 20 A7 20 32 31 37 30 |f.. Y..85 . 2170|
00000D00: 00 0C 15 70 08 59 B2 59 AA 31 30 30 00 17 15 7A |...p.Y.Y.100...z|
00000D10: 08 4D 31 B2 4D AA 31 00 29 15 84 08 4D 32 B2 B5 |.M1.M.1.)...M2..|
00000D20: 28 31 AD 4D 31 AA 2E 37 29 00 35 15 8E 08 4D 33 |(1.M1..7).5...M3|
00000D30: B2 59 AB 4D 32 00 45 15 98 08 4D 34 B2 4D 31 AA |.Y.M2.E...M4.M1.|
00000D40: 31 32 AC 4D 32 00 68 15 A2 08 4E B2 B5 28 4D 34 |12.M2.h...N..(M4|
00000D50: AC 33 30 2E 36 30 30 31 29 AA B5 28 4D 33 AC 33 |.30.6001)..(M3.3|
00000D60: 36 35 2E 32 35 29 AA 44 00 76 15 AC 08 4D 36 B2 |65.25).D.v...M6.|
00000D70: B5 28 4E AD 37 29 00 83 15 B6 08 57 B2 4E AB 37 |.(N.7).....W.N.7|
00000D80: AC 4D 36 00 89 15 C0 08 8E 00 9A 15 CA 08 99 20 |.M6............ |
00000D90: C7 28 31 34 37 29 C7 28 35 29 00 A0 15 D4 08 8E |.(147).(5)......|
00000DA0: 00 BB 15 B8 0B 8F 20 49 4E 50 55 54 2F 4F 55 54 |...... INPUT/OUT|
00000DB0: 50 55 54 20 52 4F 55 54 49 4E 45 00 CB 15 C2 0B |PUT ROUTINE.....|
00000DC0: 46 24 B2 22 45 56 45 4E 54 53 22 00 EA 15 CC 0B |F$."EVENTS".....|
00000DD0: 99 22 44 49 53 4B 20 4F 52 20 43 41 53 53 45 54 |."DISK OR CASSET|
00000DE0: 54 45 20 28 44 2F 43 29 3F 22 00 14 16 D6 0B A1 |TE (D/C)?"......|
00000DF0: 41 24 3A 8B 28 28 41 24 B3 B1 22 43 22 29 AF 28 |A$:.((A$.."C").(|
00000E00: 41 24 B3 B1 22 44 22 29 29 B0 41 24 B2 22 22 A7 |A$.."D")).A$."".|
00000E10: 33 30 33 30 00 25 16 E0 0B 8B 41 24 B2 22 44 22 |3030.%....A$."D"|
00000E20: A7 33 30 36 30 00 3A 16 EA 0B 44 31 B2 30 3A 47 |.3060.:...D1.0:G|
00000E30: 24 B2 22 22 3A 89 33 30 37 30 00 4F 16 F4 0B 46 |$."":.3070.O...F|
00000E40: 24 B2 22 40 30 3A 22 AA 46 24 3A 44 31 B2 31 00 |$."@0:".F$:D1.1.|
00000E50: 5D 16 FE 0B 8B 43 B2 32 A7 33 31 36 30 00 71 16 |]....C.2.3160.q.|
00000E60: 08 0C 8B 44 31 B2 31 A7 47 24 B2 22 2C 53 2C 52 |...D1.1.G$.",S,R|
00000E70: 22 00 9C 16 12 0C 9F 31 2C 31 AA 37 AC 44 31 2C |"......1,1.7.D1,|
00000E80: 38 AC 44 31 2C 46 24 AA 47 24 3A 8D 33 32 32 30 |8.D1,F$.G$:.3220|
00000E90: 3A 8B 45 A7 A0 31 3A 89 33 31 35 30 00 C6 16 1C |:.E..1:.3150....|
00000EA0: 0C 84 31 2C 4C 4C 24 3A 8B 20 C3 28 4C 4C 24 29 |..1,LL$:. .(LL$)|
00000EB0: B3 B1 38 20 A7 20 99 20 4C 4C 24 3B 22 3F 22 3A |..8 . . LL$;"?":|
00000EC0: 89 20 33 31 34 30 00 F9 16 26 0C 4D B2 C5 28 C8 |. 3140...&.M..(.|
00000ED0: 28 4C 4C 24 2C 32 29 29 3A 44 B2 C5 28 CA 28 4C |(LL$,2)):D..(.(L|
00000EE0: 4C 24 2C 34 2C 32 29 29 3A 59 30 B2 C5 28 CA 28 |L$,4,2)):Y0..(.(|
00000EF0: 4C 4C 24 2C 37 2C 32 29 29 00 27 17 30 0C 4D 39 |LL$,7,2)).'.0.M9|
00000F00: B2 4D 3A 44 39 B2 44 3A 59 39 B2 59 30 3A 4C B2 |.M:D9.D:Y9.Y0:L.|
00000F10: 30 3A 99 20 22 4C 41 53 54 20 41 43 43 45 53 53 |0:. "LAST ACCESS|
00000F20: 3A 20 22 3B 4C 4C 24 00 48 17 3A 0C 84 31 2C 4C |: ";LL$.H.:..1,L|
00000F30: 24 28 4C 29 3A 4C B2 4C AA 31 3A 8B 20 53 54 B2 |$(L):L.L.1:. ST.|
00000F40: 30 20 A7 20 33 31 33 30 00 55 17 44 0C A0 31 3A |0 . 3130.U.D..1:|
00000F50: 8D 33 32 32 30 00 65 17 4E 0C 4C 38 B2 30 3A 4C |.3220.e.N.L8.0:L|
00000F60: 39 B2 4C 3A 8E 00 79 17 58 0C 8B 44 31 B2 31 A7 |9.L:..y.X..D1.1.|
00000F70: 47 24 B2 22 2C 53 2C 57 22 00 A6 17 62 0C 9F 31 |G$.",S,W"...b..1|
00000F80: 2C 31 AA 37 AC 44 31 2C 31 AA 37 AC 44 31 2C 46 |,1.7.D1,1.7.D1,F|
00000F90: 24 AA 47 24 3A 8D 33 32 32 30 3A 8B 45 A7 A0 31 |$.G$:.3220:.E..1|
00000FA0: 3A A0 31 35 3A 80 00 B8 17 6C 0C 98 31 2C 44 39 |:.15:....l..1,D9|
00000FB0: 24 3B C7 28 31 33 29 3B 00 D9 17 76 0C 81 4A B2 |$;.(13);...v..J.|
00000FC0: 30 A4 4C 39 AB 31 3A 98 31 2C 4C 24 28 4A 29 3B |0.L9.1:.1,L$(J);|
00000FD0: C7 28 31 33 29 3B 3A 82 4A 00 F3 17 80 0C 8D 33 |.(13);:.J......3|
00000FE0: 32 32 30 3A A0 31 3A 8D 33 32 32 30 3A 8B 4F A7 |220:.1:.3220:.O.|
00000FF0: A0 31 35 00 F9 17 8A 0C 80 00 05 18 94 0C 8B 44 |.15............D|
00001000: 31 B2 30 A7 8E 00 1B 18 9E 0C 8B 4F B2 30 A7 9F |1.0........O.0..|
00001010: 31 35 2C 38 2C 31 35 3A 4F B2 31 00 37 18 A8 0C |15,8,15:O.1.7...|
00001020: 84 31 35 2C 45 2C 42 24 3A 8B 45 A7 99 42 24 3A |.15,E,B$:.E..B$:|
00001030: A0 31 35 3A 4F B2 30 00 3D 18 B2 0C 8E 00 51 18 |.15:O.0.=.....Q.|
00001040: A0 0F 8F 20 50 52 49 4E 54 20 52 4F 55 54 49 4E |... PRINT ROUTIN|
00001050: 45 00 5F 18 AA 0F 44 24 B2 22 22 3A 50 B2 33 00 |E._...D$."":P.3.|
00001060: 87 18 B4 0F 85 20 22 57 41 4E 54 20 45 56 45 4E |..... "WANT EVEN|
00001070: 54 53 20 4F 4E 20 50 52 49 4E 54 45 52 20 28 59 |TS ON PRINTER (Y|
00001080: 2F 4E 29 22 3B 50 24 00 A1 18 BE 0F 8B 20 C8 28 |/N)";P$...... .(|
00001090: 50 24 2C 31 29 B3 B1 22 59 22 20 A7 20 34 30 35 |P$,1).."Y" . 405|
000010A0: 30 00 A9 18 C8 0F 50 B2 34 00 B3 18 D2 0F 9F 20 |0.....P.4...... |
000010B0: 33 2C 50 00 C3 18 DC 0F 81 20 4A B2 4C 38 20 A4 |3,P...... J.L8 .|
000010C0: 20 4C 30 00 DE 18 E6 0F 8B 20 44 24 B2 C8 28 4C | L0...... D$..(L|
000010D0: 24 28 4A 29 2C 35 29 20 A7 20 34 31 35 30 00 F0 |$(J),5) . 4150..|
000010E0: 18 F0 0F 44 24 B2 C8 28 4C 24 28 4A 29 2C 35 29 |...D$..(L$(J),5)|
000010F0: 00 01 19 FA 0F 4D B2 C5 28 C8 28 44 24 2C 32 29 |.....M..(.(D$,2)|
00001100: 29 00 14 19 04 10 44 B2 C5 28 CA 28 44 24 2C 34 |).....D..(.(D$,4|
00001110: 2C 32 29 29 00 30 19 0E 10 59 B2 59 38 3A 8B 20 |,2)).0...Y.Y8:. |
00001120: 44 24 B3 B2 44 39 24 20 A7 20 59 B2 59 38 AA 31 |D$..D9$ . Y.Y8.1|
00001130: 00 3B 19 18 10 8D 20 32 31 35 30 00 4D 19 22 10 |.;.... 2150.M.".|
00001140: 98 33 2C 57 24 28 57 29 3B 22 20 22 3B 00 5C 19 |.3,W$(W);" ";.\.|
00001150: 2C 10 98 33 2C 4D 24 28 4D 29 3B 44 00 74 19 36 |,..3,M$(M);D.t.6|
00001160: 10 98 33 2C 22 20 20 20 22 3B CA 28 4C 24 28 4A |..3," ";.(L$(J|
00001170: 29 2C 36 29 00 7C 19 40 10 82 20 4A 00 84 19 4A |),6).|.@.. J...J|
00001180: 10 A0 20 33 00 8A 19 54 10 8E 00 00 00 |.. 3...T..... |
....Z.F.(1.1)...D.. 2250.6.N.. JAN,FEB,M
AR,APR,MAY,JUN.T.X.. JUL,AUG,SEP,OCT,NOV
,DEC.Z.... SUNDAY,MONDAY,TUESDAY,WEDNESD
AY...... THURSDAY,FRIDAY,SATURDAY......
M$(12),W$(6),L$(100).C. .. J.1 . 12.O...
. M$(J).W.... J...... J.0 . 6...H.. W$(J
)...R.. J...... "EVENT CALENDAR". .... F
.0 . 260.(...C.1.3.... 3010.C.... E.0 .
260.K...F.0.A.... "TODAY'S DATE:".K...Y8
.Y9.V.... 1670..".M8.M...,.D8.D...6.. M
8..M9 . 330...@.Y8.Y9.1.C.J.. M8..M9 . D
8..D9 . 350.O.T.Y8.Y9.1...^.. Y8..Y9 . 3
70...H.. "HAPPY NEW YEAR"...R.. F . 400.
..|.. "YEAR";...... Y8.9...D9$.I(D(100.M
9),2)."/".T...D9$.D9$.I(D(100.D9),2).B..
.. F . 440.N...D9$.D8$.Z...F.(1.1)...B..
1960...L.. "PAST EVENTS: ";...V.. L0..0
. 500...... "NONE".E.... 650.P.... L0.1
...... 4010.....F9..1...... J.0 . L0....
.. J(L$(J),6,1)."/" . 570.".&.L$(L9).L$(
J)...0.L9.L9.1.6.:.. J.B.D.L8.L0.1.T.N..
J.L8 . L9.1.G.X.L$(J.L8).L$(J).O.B.. J.
|.L.L9.L9.L8...V.L8.0.....L.L9.....F.0..
...F9.0.....D9$.D8$.....L.L9.L8.H.... L.
.0 . 710...... "NO FUTURE EVENTS"...F..
L.0 . 730...P.. L;" FUTURE EVENTS"...Z..
.-.... "1. SEE FUTURE EVENTS".F.... "2.
ADD NEW EVENT".^.... "3. CANCEL EVENT".Z
.... "4. SEARCH FOR EVENT"...... "5. QUI
T"......... .. "...YOUR CHOICE (1-5)";..
.*.. A...4.....>.. A . 850,940,1210,1450
,1570...H.. 730...R.. "AHEAD TO DATE:"..
.\.. 1670...F.. 1960.'.P.. L0...1 . 910.
9.Z.. "NO EVENTS".C.... 920.N.... 4010.S
.... L9.L0.1;" OTHER FUTURE EVENTS".}...
. 730...... "ANNUAL OR ONE-TIME (A/O)"..
.... P$.....A.0...J.P$.H(P$,1).R.T.. P$.
"O" . 1010.Z...A.1...... P$.."A" . 730..
.... 1670.....Y$."/".I(D(101.Y8),2).)...
. D8$..D9$ . 1050.C...Y$."/".I(D(100.Y8)
,2).U.... A..1 . 1070._.$.Y$."".J.... 19
60...8.. L9.1.L0.1 . 1120...B.. J.L9.1 .
L0.1 . .1...L.L$(J.1).L$(J)...V.. J.D.`
.. "DETAIL";.N.J.. LL$...T.D8$.D8$.Y$...
~.D8$.D8$." ".....L$(L0.1).D8$.LL$.....L
9.L9.1.....L.L9.!...F9..1.+.... 680.F...
. "CHANGE WHICH DATE:".Q.D.. 1670.[.N.L0
..1.M.X.. J.L8 . L9.1...... D8$..H(L$(J)
,5) . 1300.....L1.J...... L0...1 . 1290.
....L0.J.C.... J;": ";L$(J).K.... J.....
. L0...1 . 1340...(.. "NO EVENTS"...2..
730...<...$.F.. " DELETE WHICH EVENT ABO
VE";.,.P.. A.D.Z.. A.L0 . A.L1 . 730.U.D
.. J.A . L9.1.G.N.L$(J).L$(J.1).O.X.. J.
{...L9.L9.1.....F9..1...... " ... DELETE
D"... .. 680...... "SEARCH FOR";.A.... P
$.M...P.C(P$)...H.. J.0 . L9.1...R.A.7..
.... J(L$(J),6,1).."/" . 1520.....A.10.=
.... A.P.1.C(L$(J)) . P$..J(L$(J),A,P) .
1540.I.... L$(J).Q.... J.K.... " END
OF SEARCH".U.... 730...".. F9..0 . 1590
...'..O. 15...,...F.6.. "READY TO WRITE
NEW EVENTS FILE (Y/N)".O.@.. P$...J.. H(
P$,1)."Y" . 1630...T.....^.D9$.D9$."/"..
.H.D9$.D9$.I(D(Y8.100),2).!.R.C.2.,.|..
3010.4...M.0.C.... "MONTH";.M.... MM$.Z.
..M.E(MM$).P...MM$.H(MM$."XX",3)...... M
.0 . 1760...B.. M.1 . M.12 . 1670...L..
M$(M)...V.. 1810...... J.1 . 12.W.... MM
$..M$(J) . 1790.....M.J...... J...... M.
1 . M.12 . 1670...... "DAY";...... D.,.&
.. D.1 . D.31 . 1670.F.0.D8$.I(D(100.M),
2)."/".`.:.D8$.D8$.I(D(100.D),2).I.D.Y.Y
8.~.N.. D8$.D9$ . 1890...X.Y.Y8.1...B..
2150...L.. C(LL$)..0 . 1920...V.. "(";W$
(W);")".E.....M...C.1.X.... 3010........
...LL$.G(255).....L0..1...... L..0 . 200
0...F.....P.V$.D8$.LL$.*.Z.WW$.D9$.<....
F..0 . 2040.L...WW$.D9$.LL$.]...F1.(WW$
..V$).O.... J.L8 . L9.1.....F2.(L$(J).WW
$).....F3.(V$.L$(J))... .F0.F2 . F3...*.
. F1.0 . 2110.D.4.F0.F2 . F3.V.>.. F0.0
. 2130...H.L0.J...R.. J...\.....F.. Y..8
5 . 2170...P.Y.Y.100...Z.M1.M.1.)...M2..
(1.M1..7).5...M3.Y.M2.E...M4.M1.12.M2.H.
..N..(M4.30.6001)..(M3.365.25).D.V...M6.
.(N.7).....W.N.7.M6.........J.. G(147)G(
5). .T........ INPUT/OUTPUT ROUTINE.K.B.
F$."EVENTS"...L.."DISK OR CASSETTE (D/C)
?"...V..A$:.((A$.."C").(A$.."D")).A$."".
3030.%....A$."D".3060.:...D1.0:G$."":.30
70.O...F$."@0:".F$:D1.1.]....C.2.3160.Q.
...D1.1.G$.",S,R"......1,1.7.D1,8.D1,F$.
G$:.3220:.E. 1:.3150.F....1,LL$:. C(LL$)
..8 . . LL$;"?":. 3140...&.M.E(H(LL$,2))
:D.E(J(LL$,4,2)):Y0.E(J(LL$,7,2)).'.0.M9
.M:D9.D:Y9.Y0:L.0:. "LAST ACCESS: ";LL$.
H.:..1,L$(L):L.L.1:. ST.0 . 3130.U.D. 1:
.3220.E.N.L8.0:L9.L:..Y.X..D1.1.G$.",S,W
"...B..1,1.7.D1,1.7.D1,F$.G$:.3220:.E. 1
: 15:....L..1,D9$;G(13);.Y.V..J.0.L9.1:.
1,L$(J);G(13);:.J......3220: 1:.3220:.O.
15............D1.0........O.0..15,8,15:
O.1.7....15,E,B$:.E..B$: 15:O.0.=.....Q.
.. PRINT ROUTINE._...D$."":P.3...... "W
ANT EVENTS ON PRINTER (Y/N)";P$...... H(
P$,1).."Y" . 4050...H.P.4...R.. 3,P.C...
. J.L8 . L0...... D$.H(L$(J),5) . 4150..
...D$.H(L$(J),5).....M.E(H(D$,2)).....D.
E(J(D$,4,2)).0...Y.Y8:. D$..D9$ . Y.Y8.1
.;.... 2150.M."..3,W$(W);" ";.\.,..3,M$(
M);D.T.6..3," ";J(L$(J),6).|.@.. J...J
. 3...T.....
> CLICK IMAGE PREVIEW FOR FULL MODAL