MEMORANDA.C
FILE INFORMATION
FILENAME(S): MEMORANDA.C
FILE TYPE(S): PRG
FILE SIZE: 5.5K
FIRST SEEN: 2025-11-30 01:08:41
APPEARS ON: 2 disk(s)
FILE HASH
2ad4fb983debd952901f81a3f9011abeaf2ff73851ca2b770199f82b755cc95a
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| A NWENDER | MEMORANDA.C | PRG | Treasure Chest - Wolfgang Rauprich | 13 | 20 | DOWNLOAD FILE |
| FREESOFT DISK NR | MEMORANDA.C | PRG | Treasure Chest - Wolfgang Rauprich | 13 | 20 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 46 08 0A 00 86 59 46 28 39 39 29 2C 54 46 |..F....YF(99),TF|
00000010: 24 28 39 39 29 2C 4D 46 28 39 39 29 2C 44 46 28 |$(99),MF(99),DF(|
00000020: 39 39 29 2C 54 24 28 39 39 29 2C 4D 28 31 31 29 |99),T$(99),M(11)|
00000030: 2C 4D 24 28 31 31 29 2C 44 4D 28 31 31 29 3A 99 |,M$(11),DM(11):.|
00000040: C7 28 31 34 32 29 00 84 08 14 00 81 49 B2 30 A4 |.(142)......I.0.|
00000050: 31 31 3A 87 4D 24 28 49 29 2C 4D 28 49 29 3A 82 |11:.M$(I),M(I):.|
00000060: 3A 83 4A 41 4E 2C 30 2C 46 45 42 2C 33 31 2C 4D |:.JAN,0,FEB,31,M|
00000070: 41 52 2C 35 39 2C 41 50 52 2C 39 30 2C 4D 41 59 |AR,59,APR,90,MAY|
00000080: 2C 31 32 30 00 99 08 19 00 81 49 B2 30 A4 31 31 |,120......I.0.11|
00000090: 3A 87 44 4D 28 49 29 3A 82 00 D6 08 1E 00 83 4A |:.DM(I):.......J|
000000A0: 55 4E 2C 31 35 31 2C 4A 55 4C 2C 31 38 31 2C 41 |UN,151,JUL,181,A|
000000B0: 55 47 2C 32 31 32 2C 53 45 50 2C 32 34 33 2C 4F |UG,212,SEP,243,O|
000000C0: 43 54 2C 32 37 33 2C 4E 4F 56 2C 33 30 34 2C 44 |CT,273,NOV,304,D|
000000D0: 45 43 2C 33 33 34 00 FF 08 23 00 83 33 31 2C 32 |EC,334...#..31,2|
000000E0: 38 2C 33 31 2C 33 30 2C 33 31 2C 33 30 2C 33 31 |8,31,30,31,30,31|
000000F0: 2C 33 31 2C 33 30 2C 33 31 2C 33 30 2C 33 31 00 |,31,30,31,30,31.|
00000100: 15 09 28 00 97 35 33 32 38 30 2C 31 3A 97 35 33 |..(..53280,1:.53|
00000110: 32 38 31 2C 31 00 4B 09 32 00 99 22 1F 93 11 11 |281,1.K.2.."....|
00000120: 11 11 11 11 AA CD 20 20 CE B4 CF B7 B7 AA CD 20 |...... ....... |
00000130: 20 CE B4 CE B7 CD 20 CF B7 CD 20 CE B7 CD AA CD | ..... ... .....|
00000140: 20 20 B4 CF B7 CD 20 CE B7 CD 22 00 79 09 3C 00 | .... ...".y.<.|
00000150: 99 22 AA 20 CD CE 20 B4 B4 20 20 AA 20 CD CE 20 |.". .. .. . .. |
00000160: B4 B4 20 AA 20 B4 20 AA 20 B4 20 AA AA 20 CD 20 |.. . . . . .. . |
00000170: B4 B4 20 AA 20 B4 20 AA 22 00 A7 09 46 00 99 22 |.. . . ."...F.."|
00000180: AA 20 20 20 20 B4 CF B7 20 AA 20 20 20 20 B4 B4 |. ... . ..|
00000190: 20 AA 20 CC AF CE 20 CC AF BA AA 20 20 CD B4 B4 | . ... .... ...|
000001A0: 20 AA 20 CC AF BA 22 00 D5 09 50 00 99 22 AA 20 | . ..."...P..". |
000001B0: 20 20 20 B4 CC AF AF AA 20 20 20 20 B4 CD AF CE | ..... ....|
000001C0: 20 B4 20 CD 20 B4 20 AA AA 20 20 20 B4 CC AF CE | . . . .. ....|
000001D0: 20 B4 20 AA 22 00 19 0A 5A 00 99 A3 31 31 29 3B | . ."...Z...11);|
000001E0: 22 11 11 11 11 11 45 4E 54 45 52 20 54 4F 44 41 |".....ENTER TODA|
000001F0: 59 27 53 20 44 41 54 45 11 22 3A 85 22 20 20 20 |Y'S DATE.":." |
00000200: 20 20 20 20 59 59 59 59 2C 4D 4D 2C 44 44 20 22 | YYYY,MM,DD "|
00000210: 3B 59 30 2C 4D 30 2C 44 30 00 57 0A 64 00 8B 59 |;Y0,M0,D0.W.d..Y|
00000220: 30 B3 31 39 38 33 B0 4D 30 B3 31 B0 4D 30 B1 31 |0.1983.M0.1.M0.1|
00000230: 32 B0 59 30 B3 B1 B5 28 59 30 29 B0 4D 30 B3 B1 |2.Y0...(Y0).M0..|
00000240: B5 28 4D 30 29 B0 44 30 B3 B1 B5 28 44 30 29 B0 |.(M0).D0...(D0).|
00000250: 44 30 B3 31 A7 35 30 00 85 0A 6E 00 4C 59 B2 30 |D0.1.50...n.LY.0|
00000260: 3A 8B 59 30 AD 34 B2 B5 28 59 30 AD 34 29 AF 59 |:.Y0.4..(Y0.4).Y|
00000270: 30 AD 31 30 30 B3 B1 B5 28 59 30 AD 31 30 30 29 |0.100...(Y0.100)|
00000280: A7 4C 59 B2 31 00 A0 0A 78 00 8B 59 30 AD 34 30 |.LY.1...x..Y0.40|
00000290: 30 B2 B5 28 59 30 AD 34 30 30 29 A7 4C 59 B2 31 |0..(Y0.400).LY.1|
000002A0: 00 BA 0A 82 00 8B 44 30 B1 44 4D 28 4D 30 AB 31 |......D0.DM(M0.1|
000002B0: 29 AF 4D 30 B3 B1 32 A7 35 30 00 D1 0A 8C 00 8B |).M0..2.50......|
000002C0: 44 30 B1 44 4D 28 4D 30 AB 31 29 AA 4C 59 A7 35 |D0.DM(M0.1).LY.5|
000002D0: 30 00 F2 0A 96 00 44 59 B2 4D 28 4D 30 AB 31 29 |0.....DY.M(M0.1)|
000002E0: AA 44 30 3A 8B 4D 30 B1 32 A7 44 59 B2 44 59 AA |.D0:.M0.2.DY.DY.|
000002F0: 4C 59 00 26 0B 97 00 43 59 B2 30 3A 4C 30 B2 44 |LY.&...CY.0:L0.D|
00000300: 59 3A 4C 31 B2 4C 30 3A 48 30 B2 44 59 AA 31 34 |Y:L1.L0:H0.DY.14|
00000310: 3A 48 31 B2 48 30 3A 8B 48 30 B3 B2 33 36 35 AA |:H1.H0:.H0..365.|
00000320: 4C 59 A7 31 35 35 00 4E 0B 98 00 48 30 B2 33 36 |LY.155.N...H0.36|
00000330: 35 AA 4C 59 3A 4C 31 B2 30 3A 48 31 B2 44 59 AA |5.LY:L1.0:H1.DY.|
00000340: 31 34 AB 33 36 35 AB 4C 59 3A 43 59 B2 31 00 57 |14.365.LY:CY.1.W|
00000350: 0B 9B 00 89 38 38 30 00 A0 0B A0 00 99 22 93 D5 |....880......"..|
00000360: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000370: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000380: C0 C0 C0 C0 C0 C0 C9 22 3A 81 49 39 B2 31 A4 32 |.......":.I9.1.2|
00000390: 31 3A 99 22 91 DD 22 3B A6 33 38 29 3B 22 DD 22 |1:."..";.38);"."|
000003A0: 00 D4 0B AA 00 82 3A 99 22 91 CA C0 C0 C0 C0 C0 |......:.".......|
000003B0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000003C0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000003D0: C0 CB 13 22 00 0A 0C B4 00 99 22 13 11 11 AB C0 |..."......".....|
000003E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000003F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000400: C0 C0 C0 C0 C0 B3 13 22 3A 8E 00 13 0C BE 00 8D |.......":.......|
00000410: 31 36 30 00 2F 0C C8 00 99 A3 31 33 29 3B 22 91 |160./.....13);".|
00000420: 90 43 4F 4D 4D 41 4E 44 20 4D 45 4E 55 11 22 00 |.COMMAND MENU.".|
00000430: 56 0C D2 00 99 A3 33 29 3B 22 31 20 2D 20 4C 49 |V.....3);"1 - LI|
00000440: 53 54 20 55 50 43 4F 4D 49 4E 47 20 42 49 52 54 |ST UPCOMING BIRT|
00000450: 48 44 41 59 53 22 00 81 0C DC 00 99 A3 33 29 3B |HDAYS".......3);|
00000460: 22 32 20 2D 20 4C 49 53 54 20 55 50 43 4F 4D 49 |"2 - LIST UPCOMI|
00000470: 4E 47 20 41 4E 4E 49 56 45 52 53 41 52 49 45 53 |NG ANNIVERSARIES|
00000480: 22 00 AB 0C E6 00 99 A3 33 29 3B 22 33 20 2D 20 |".......3);"3 - |
00000490: 4C 49 53 54 20 55 50 43 4F 4D 49 4E 47 20 41 50 |LIST UPCOMING AP|
000004A0: 50 4F 49 4E 54 4D 45 4E 54 53 22 00 CF 0C F0 00 |POINTMENTS".....|
000004B0: 99 A3 33 29 3B 22 34 20 2D 20 55 50 44 41 54 45 |..3);"4 - UPDATE|
000004C0: 20 42 49 52 54 48 44 41 59 20 46 49 4C 45 22 00 | BIRTHDAY FILE".|
000004D0: F6 0C FA 00 99 A3 33 29 3B 22 35 20 2D 20 55 50 |......3);"5 - UP|
000004E0: 44 41 54 45 20 41 4E 4E 49 56 45 52 53 41 52 59 |DATE ANNIVERSARY|
000004F0: 20 46 49 4C 45 22 00 1D 0D 04 01 99 A3 33 29 3B | FILE".......3);|
00000500: 22 36 20 2D 20 55 50 44 41 54 45 20 41 50 50 4F |"6 - UPDATE APPO|
00000510: 49 4E 54 4D 45 4E 54 20 46 49 4C 45 22 00 3B 0D |INTMENT FILE".;.|
00000520: 0E 01 99 A3 33 29 3B 22 5F 20 2D 20 45 58 49 54 |....3);"_ - EXIT|
00000530: 20 50 52 4F 47 52 41 4D 11 11 22 00 5A 0D 18 01 | PROGRAM..".Z...|
00000540: 99 A3 33 29 3B 22 1F 45 4E 54 45 52 20 59 4F 55 |..3);".ENTER YOU|
00000550: 52 20 43 4F 4D 4D 41 4E 44 22 00 6D 0D 22 01 A1 |R COMMAND".m."..|
00000560: 41 24 3A 8B 41 24 B2 22 22 A7 32 39 30 00 91 0D |A$:.A$."".290...|
00000570: 2C 01 8B 41 24 B2 22 5F 22 A7 39 37 30 3A 8F 20 |,..A$."_".970:. |
00000580: 53 41 56 45 20 46 49 4C 45 20 41 4E 44 20 45 4E |SAVE FILE AND EN|
00000590: 44 00 B3 0D 36 01 8B 41 24 B2 22 31 22 A7 31 30 |D...6..A$."1".10|
000005A0: 30 30 3A 8F 20 4C 49 53 54 20 42 49 52 54 48 44 |00:. LIST BIRTHD|
000005B0: 41 59 53 00 D9 0D 40 01 8B 41 24 B2 22 32 22 A7 |AYS...@..A$."2".|
000005C0: 32 30 30 30 3A 8F 20 4C 49 53 54 20 41 4E 4E 49 |2000:. LIST ANNI|
000005D0: 56 45 52 53 41 52 49 45 53 00 FE 0D 4A 01 8B 41 |VERSARIES...J..A|
000005E0: 24 B2 22 33 22 A7 33 30 30 30 3A 8F 20 4C 49 53 |$."3".3000:. LIS|
000005F0: 54 20 41 50 50 4F 49 4E 54 4D 45 4E 54 53 00 22 |T APPOINTMENTS."|
00000600: 0E 54 01 8B 41 24 B2 22 34 22 A7 34 30 30 30 3A |.T..A$."4".4000:|
00000610: 8F 20 55 50 44 41 54 45 20 42 49 52 54 48 44 41 |. UPDATE BIRTHDA|
00000620: 59 53 00 4A 0E 5E 01 8B 41 24 B2 22 35 22 A7 35 |YS.J.^..A$."5".5|
00000630: 30 30 30 3A 8F 20 55 50 44 41 54 45 20 41 4E 4E |000:. UPDATE ANN|
00000640: 49 56 45 52 53 41 52 49 45 53 00 71 0E 68 01 8B |IVERSARIES.q.h..|
00000650: 41 24 B2 22 36 22 A7 36 30 30 30 3A 8F 20 55 50 |A$."6".6000:. UP|
00000660: 44 41 54 45 20 41 50 50 4F 49 4E 54 4D 45 4E 54 |DATE APPOINTMENT|
00000670: 53 00 7A 0E 72 01 89 32 39 30 00 9F 0E 7C 01 84 |S.z.r..290...|..|
00000680: 31 35 2C 45 30 2C 45 24 2C 45 31 2C 45 32 3A 45 |15,E0,E$,E1,E2:E|
00000690: 46 B2 30 3A 8B 45 30 B1 31 39 A7 45 46 B2 31 00 |F.0:.E0.19.EF.1.|
000006A0: A5 0E 86 01 8E 00 E1 0E 90 01 99 22 13 11 11 11 |..........."....|
000006B0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000006C0: 11 11 11 11 1C 20 50 52 45 53 53 20 12 53 50 41 |..... PRESS .SPA|
000006D0: 43 45 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 13 |CE. TO CONTINUE.|
000006E0: 22 00 F6 0E 9A 01 A1 41 24 3A 8B 41 24 B3 B1 22 |"......A$:.A$.."|
000006F0: 20 22 A7 34 31 30 00 FC 0E A4 01 8E 00 20 0F AE | ".410....... ..|
00000700: 01 99 A3 31 30 29 3B 22 90 91 55 50 43 4F 4D 49 |...10);"..UPCOMI|
00000710: 4E 47 20 42 49 52 54 48 44 41 59 53 11 22 3A 8E |NG BIRTHDAYS.":.|
00000720: 00 47 0F B8 01 99 A3 38 29 3B 22 90 91 55 50 43 |.G.....8);"..UPC|
00000730: 4F 4D 49 4E 47 20 41 4E 4E 49 56 45 52 53 41 52 |OMING ANNIVERSAR|
00000740: 49 45 53 11 22 3A 8E 00 6D 0F C2 01 99 A3 38 29 |IES.":..m.....8)|
00000750: 3B 22 90 91 55 50 43 4F 4D 49 4E 47 20 41 50 50 |;"..UPCOMING APP|
00000760: 4F 49 4E 54 4D 45 4E 54 53 11 22 3A 8E 00 8F 0F |OINTMENTS.":....|
00000770: CC 01 99 22 93 22 3B 45 30 3B 22 20 22 3B 45 24 |...".";E0;" ";E$|
00000780: 3B 45 31 3B 45 32 3A A0 32 3A A0 31 35 3A 80 00 |;E1;E2:.2:.15:..|
00000790: C8 0F D6 01 99 22 13 11 11 11 11 11 11 11 11 11 |....."..........|
000007A0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 1C 20 |............... |
000007B0: 50 52 45 53 53 20 12 53 50 41 43 45 92 20 46 4F |PRESS .SPACE. FO|
000007C0: 52 20 4D 45 4E 55 13 22 00 D6 0F E0 01 8D 34 31 |R MENU."......41|
000007D0: 30 3A 89 31 39 30 00 00 10 FE 01 50 24 B2 4D 24 |0:.190.....P$.M$|
000007E0: 28 4D AB 31 29 AA C4 28 44 29 3A 8B 44 4E B2 B1 |(M.1)..(D):.DN..|
000007F0: 4C 31 AF 44 4E B3 B2 48 31 A7 59 B2 59 AB 43 59 |L1.DN..H1.Y.Y.CY|
00000800: 00 1C 10 08 02 8B C3 28 50 24 29 B3 37 A7 50 24 |.......(P$).7.P$|
00000810: B2 50 24 AA 22 20 22 3A 89 35 32 30 00 48 10 12 |.P$." ":.520.H..|
00000820: 02 50 24 B2 50 24 AA 22 2D 22 AA C4 28 59 30 AB |.P$.P$."-"..(Y0.|
00000830: 59 29 3A 44 4E B2 C5 28 C9 28 50 24 2C 31 29 29 |Y):DN..(.(P$,1))|
00000840: 3A 44 59 B2 59 30 AB 59 00 70 10 1C 02 8B 44 4E |:DY.Y0.Y.p....DN|
00000850: B2 31 AF 28 44 59 B3 31 30 B0 44 59 B1 32 30 29 |.1.(DY.10.DY.20)|
00000860: A7 50 24 B2 50 24 AA 22 53 54 22 3A 89 35 38 30 |.P$.P$."ST":.580|
00000870: 00 98 10 26 02 8B 44 4E B2 32 AF 28 44 59 B3 31 |...&..DN.2.(DY.1|
00000880: 30 B0 44 59 B1 32 30 29 A7 50 24 B2 50 24 AA 22 |0.DY.20).P$.P$."|
00000890: 4E 44 22 3A 89 35 38 30 00 C0 10 30 02 8B 44 4E |ND":.580...0..DN|
000008A0: B2 33 AF 28 44 59 B3 31 30 B0 44 59 B1 32 30 29 |.3.(DY.10.DY.20)|
000008B0: A7 50 24 B2 50 24 AA 22 52 44 22 3A 89 35 38 30 |.P$.P$."RD":.580|
000008C0: 00 CF 10 3A 02 50 24 B2 50 24 AA 22 54 48 22 00 |...:.P$.P$."TH".|
000008D0: EC 10 44 02 8B C3 28 50 24 29 B3 31 35 A7 50 24 |..D...(P$).15.P$|
000008E0: B2 50 24 AA 22 20 22 3A 89 35 38 30 00 14 11 4E |.P$." ":.580...N|
000008F0: 02 50 24 B2 50 24 AA 22 2D 20 22 AA 4E 24 3A 8B |.P$.P$."- ".N$:.|
00000900: C3 28 50 24 29 B1 33 35 A7 50 24 B2 C8 28 50 24 |.(P$).35.P$..(P$|
00000910: 2C 33 35 29 00 1A 11 58 02 8E 00 4C 11 62 02 99 |,35)...X...L.b..|
00000920: 22 93 1F D5 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |"...............|
00000930: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000940: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 22 00 7D 11 6C |...........".}.l|
00000950: 02 99 22 91 DD 20 20 52 20 2D 20 52 45 54 41 49 |..".. R - RETAI|
00000960: 4E 20 52 45 43 4F 52 44 20 41 53 20 49 53 20 20 |N RECORD AS IS |
00000970: 20 20 20 20 20 20 20 20 20 20 20 DD 22 00 AE 11 | ."...|
00000980: 76 02 99 22 91 DD 20 20 44 20 2D 20 44 45 4C 45 |v..".. D - DELE|
00000990: 54 45 20 52 45 43 4F 52 44 20 20 20 20 20 20 20 |TE RECORD |
000009A0: 20 20 20 20 20 20 20 20 20 20 20 20 DD 22 00 DF | ."..|
000009B0: 11 80 02 99 22 91 DD 20 20 55 20 2D 20 55 50 44 |....".. U - UPD|
000009C0: 41 54 45 20 52 45 43 4F 52 44 20 41 4E 44 20 53 |ATE RECORD AND S|
000009D0: 41 56 45 20 20 20 20 20 20 20 20 20 20 DD 22 00 |AVE .".|
000009E0: 11 12 8A 02 99 22 91 CA C0 C0 C0 C0 C0 C0 C0 C0 |....."..........|
000009F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000A00: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 CB 11 |................|
00000A10: 22 00 17 12 94 02 8E 00 3C 12 9E 02 A1 41 24 3A |".......<....A$:|
00000A20: 8B 41 24 B3 B1 22 52 22 AF 41 24 B3 B1 22 44 22 |.A$.."R".A$.."D"|
00000A30: AF 41 24 B3 B1 22 55 22 A7 36 37 30 00 42 12 A3 |.A$.."U".670.B..|
00000A40: 02 8E 00 53 12 A8 02 8B 41 24 B2 22 52 22 A7 34 |...S....A$."R".4|
00000A50: 31 32 30 00 64 12 B2 02 8B 41 24 B2 22 44 22 A7 |120.d....A$."D".|
00000A60: 34 30 39 30 00 6E 12 B7 02 89 34 31 32 35 00 A0 |4090.n....4125..|
00000A70: 12 BC 02 99 22 93 1F D5 C0 C0 C0 C0 C0 C0 C0 C0 |...."...........|
00000A80: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000A90: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 22 |..............."|
00000AA0: 00 D1 12 C6 02 99 22 91 DD 20 20 20 20 20 20 20 |......".. |
00000AB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000AC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 DD | .|
00000AD0: 22 00 04 13 D0 02 99 22 91 DD 20 20 49 4E 50 55 |"......".. INPU|
00000AE0: 54 20 55 50 44 41 54 45 44 20 44 41 54 41 20 4F |T UPDATED DATA O|
00000AF0: 52 20 50 52 45 53 53 20 12 52 45 54 55 52 4E 92 |R PRESS .RETURN.|
00000B00: 20 20 DD 22 00 35 13 DA 02 99 22 91 DD 20 20 20 | .".5....".. |
00000B10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B30: 20 20 20 DD 22 00 67 13 E4 02 99 22 91 CA C0 C0 | .".g...."....|
00000B40: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000B50: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000B60: C0 C0 C0 C0 CB 11 22 00 6D 13 EE 02 8E 00 91 13 |......".m.......|
00000B70: F8 02 99 22 93 1C 45 4E 44 20 4F 46 20 45 58 49 |..."..END OF EXI|
00000B80: 53 54 49 4E 47 20 52 45 43 4F 52 44 53 2E 11 1F |STING RECORDS...|
00000B90: 22 00 BE 13 02 03 99 22 44 4F 20 59 4F 55 20 57 |"......"DO YOU W|
00000BA0: 49 53 48 20 54 4F 20 41 44 44 20 4E 45 57 20 52 |ISH TO ADD NEW R|
00000BB0: 45 43 4F 52 44 53 20 28 59 2F 4E 29 3F 22 00 DB |ECORDS (Y/N)?"..|
00000BC0: 13 0C 03 A1 41 24 3A 8B 41 24 B3 B1 22 59 22 AF |....A$:.A$.."Y".|
00000BD0: 41 24 B3 B1 22 4E 22 A7 37 38 30 00 EC 13 16 03 |A$.."N".780.....|
00000BE0: 8B 41 24 B2 22 59 22 A7 34 32 30 30 00 F5 13 20 |.A$."Y".4200... |
00000BF0: 03 89 31 39 30 00 27 14 34 03 99 22 93 1F D5 C0 |..190.'.4.."....|
00000C00: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000C10: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000C20: C0 C0 C0 C0 C0 C9 22 00 58 14 3E 03 99 22 91 DD |......".X.>.."..|
00000C30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C50: 20 20 20 20 20 20 DD 22 00 89 14 48 03 99 22 91 | ."...H..".|
00000C60: DD 20 20 49 4E 50 55 54 20 4E 45 57 20 52 45 43 |. INPUT NEW REC|
00000C70: 4F 52 44 53 20 41 53 20 50 52 4F 4D 50 54 45 44 |ORDS AS PROMPTED|
00000C80: 20 20 20 20 20 20 20 DD 22 00 BA 14 52 03 99 22 | ."...R.."|
00000C90: 91 DD 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
00000CA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000CB0: 20 20 20 20 20 20 20 20 DD 22 00 EB 14 53 03 99 | ."...S..|
00000CC0: 22 91 DD 20 20 45 4E 54 45 52 20 59 2C 4D 20 26 |".. ENTER Y,M &|
00000CD0: 20 44 20 41 53 20 4E 55 4D 42 45 52 53 20 4F 4E | D AS NUMBERS ON|
00000CE0: 4C 59 20 20 20 20 20 20 20 DD 22 00 1C 15 54 03 |LY ."...T.|
00000CF0: 99 22 91 DD 20 20 20 20 20 20 20 20 20 20 20 20 |.".. |
00000D00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000D10: 20 20 20 20 20 20 20 20 20 20 DD 22 00 4E 15 5C | .".N.\|
00000D20: 03 99 22 91 CA C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |..".............|
00000D30: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000D40: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 CB 11 22 00 54 |.............".T|
00000D50: 15 66 03 8E 00 70 15 70 03 9F 31 35 2C 38 2C 31 |.f...p.p..15,8,1|
00000D60: 35 3A 8D 33 38 30 3A 8B 45 46 B2 31 A7 34 36 30 |5:.380:.EF.1.460|
00000D70: 00 9C 15 7A 03 9F 32 2C 38 2C 32 2C 22 30 3A 4D |...z..2,8,2,"0:M|
00000D80: 45 4D 4F 20 46 49 4C 45 2C 53 2C 52 22 3A 8D 33 |EMO FILE,S,R":.3|
00000D90: 38 30 3A 8B 45 46 B2 30 A7 39 34 30 00 AC 15 84 |80:.EF.0.940....|
00000DA0: 03 8B 45 30 B3 B1 36 32 A7 34 36 30 00 D9 15 8E |..E0..62.460....|
00000DB0: 03 A0 32 3A 9F 32 2C 38 2C 32 2C 22 4D 45 4D 4F |..2:.2,8,2,"MEMO|
00000DC0: 20 46 49 4C 45 2C 53 2C 57 22 3A 8D 33 38 30 3A | FILE,S,W":.380:|
00000DD0: 8B 45 46 B2 31 A7 34 36 30 00 17 16 98 03 98 32 |.EF.1.460......2|
00000DE0: 2C 31 3A 98 32 2C 22 4D 2C 22 59 30 22 2C 22 4D |,1:.2,"M,"Y0","M|
00000DF0: 30 22 2C 22 44 30 22 2C 53 54 41 52 54 20 4D 45 |0","D0",START ME|
00000E00: 4D 4F 20 46 49 4C 45 22 3A 8D 33 38 30 3A 8B 45 |MO FILE":.380:.E|
00000E10: 46 B2 31 A7 34 36 30 00 23 16 A2 03 A0 32 3A 89 |F.1.460.#....2:.|
00000E20: 38 39 30 00 3C 16 AC 03 84 32 2C 4E 52 3A 8D 33 |890.<....2,NR:.3|
00000E30: 38 30 3A 8B 45 46 B2 31 A7 34 36 30 00 7B 16 B6 |80:.EF.1.460.{..|
00000E40: 03 81 49 B2 30 A4 4E 52 AB 31 3A 84 32 2C 54 46 |..I.0.NR.1:.2,TF|
00000E50: 24 28 49 29 2C 59 46 28 49 29 2C 4D 46 28 49 29 |$(I),YF(I),MF(I)|
00000E60: 2C 44 46 28 49 29 2C 54 24 28 49 29 3A 8D 33 38 |,DF(I),T$(I):.38|
00000E70: 30 3A 8B 45 46 B2 31 A7 34 36 30 00 89 16 C0 03 |0:.EF.1.460.....|
00000E80: 82 3A A0 32 3A 89 31 39 30 00 B6 16 CA 03 9F 32 |.:.2:.190......2|
00000E90: 2C 38 2C 32 2C 22 40 30 3A 4D 45 4D 4F 20 46 49 |,8,2,"@0:MEMO FI|
00000EA0: 4C 45 2C 53 2C 57 22 3A 8D 33 38 30 3A 8B 45 46 |LE,S,W":.380:.EF|
00000EB0: B2 31 A7 34 36 30 00 CF 16 CB 03 98 32 2C 4E 52 |.1.460......2,NR|
00000EC0: 3A 8D 33 38 30 3A 8B 45 46 B2 31 A7 34 36 30 00 |:.380:.EF.1.460.|
00000ED0: 16 17 CC 03 81 49 B2 30 A4 4E 52 AB 31 3A 98 32 |.....I.0.NR.1:.2|
00000EE0: 2C 54 46 24 28 49 29 22 2C 22 59 46 28 49 29 22 |,TF$(I)","YF(I)"|
00000EF0: 2C 22 4D 46 28 49 29 22 2C 22 44 46 28 49 29 22 |,"MF(I)","DF(I)"|
00000F00: 2C 22 54 24 28 49 29 3A 8D 33 38 30 3A 8B 45 46 |,"T$(I):.380:.EF|
00000F10: B2 31 A7 34 36 30 00 2B 17 CD 03 82 3A A0 32 3A |.1.460.+....:.2:|
00000F20: A0 31 35 3A 99 22 93 22 3B 3A 80 00 41 17 E8 03 |.15:.".";:..A...|
00000F30: 54 59 24 B2 22 42 22 3A 8D 31 36 30 3A 8D 34 33 |TY$."B":.160:.43|
00000F40: 30 00 4D 17 F2 03 49 B2 30 3A 4A B2 30 00 63 17 |0.M...I.0:J.0.c.|
00000F50: FC 03 8B 54 46 24 28 49 29 B3 B1 54 59 24 A7 31 |...TF$(I)..TY$.1|
00000F60: 31 34 30 00 88 17 06 04 44 B2 44 46 28 49 29 3A |140.....D.DF(I):|
00000F70: 4D B2 4D 46 28 49 29 3A 59 B2 59 46 28 49 29 3A |M.MF(I):Y.YF(I):|
00000F80: 4E 24 B2 54 24 28 49 29 00 A6 17 10 04 44 4E B2 |N$.T$(I).....DN.|
00000F90: 4D 28 4D AB 31 29 AA 44 3A 8B 4D B1 32 A7 44 4E |M(M.1).D:.M.2.DN|
00000FA0: B2 44 4E AA 4C 59 00 CC 17 1A 04 8B 28 44 4E B3 |.DN.LY......(DN.|
00000FB0: 4C 30 B0 44 4E B1 48 30 29 AF 28 44 4E B3 4C 31 |L0.DN.H0).(DN.L1|
00000FC0: B0 44 4E B1 48 31 29 A7 31 31 34 30 00 DF 17 1C |.DN.H1).1140....|
00000FD0: 04 8B 54 59 24 B3 B1 22 4D 22 A7 31 30 36 30 00 |..TY$.."M".1060.|
00000FE0: FC 17 1D 04 8B 44 4E B1 B2 4C 30 AF 44 4E B3 B2 |.....DN..L0.DN..|
00000FF0: 48 30 AF 59 B2 59 30 A7 31 30 36 30 00 1C 18 1E |H0.Y.Y0.1060....|
00001000: 04 8B 44 4E B1 B2 4C 31 AF 44 4E B3 B2 48 31 AF |..DN..L1.DN..H1.|
00001010: 59 B2 59 30 AA 43 59 A7 31 30 36 30 00 26 18 1F |Y.Y0.CY.1060.&..|
00001020: 04 89 31 31 34 30 00 45 18 24 04 4A B2 4A AA 31 |..1140.E.$.J.J.1|
00001030: 3A 8B 54 59 24 B3 B1 22 4D 22 A7 8D 35 31 30 3A |:.TY$.."M"..510:|
00001040: 89 31 31 30 30 00 59 18 2E 04 50 24 B2 4D 24 28 |.1100.Y...P$.M$(|
00001050: 4D AB 31 29 AA C4 28 44 29 00 76 18 38 04 8B C3 |M.1)..(D).v.8...|
00001060: 28 50 24 29 B3 37 A7 50 24 B2 50 24 AA 22 20 22 |(P$).7.P$.P$." "|
00001070: 3A 89 31 30 38 30 00 7F 18 42 04 8D 35 39 30 00 |:.1080...B..590.|
00001080: 95 18 4C 04 99 A3 33 29 3B 50 24 3A 8B 4A B3 38 |..L...3);P$:.J.8|
00001090: A7 31 31 34 30 00 BB 18 56 04 8D 34 30 30 3A 8D |.1140...V..400:.|
000010A0: 31 36 30 3A 4A B2 30 3A 8B 54 59 24 B2 22 42 22 |160:J.0:.TY$."B"|
000010B0: A7 8D 34 33 30 3A 89 31 31 34 30 00 D3 18 60 04 |..430:.1140...`.|
000010C0: 8B 54 59 24 B2 22 41 22 A7 8D 34 34 30 3A 89 31 |.TY$."A"..440:.1|
000010D0: 31 34 30 00 DC 18 6A 04 8D 34 35 30 00 F1 18 74 |140...j..450...t|
000010E0: 04 49 B2 49 AA 31 3A 8B 49 B3 4E 52 A7 31 30 32 |.I.I.1:.I.NR.102|
000010F0: 30 00 10 19 7E 04 99 A3 33 29 3B 22 11 1C 45 4E |0...~...3);"..EN|
00001100: 44 20 4F 46 20 44 41 54 41 90 22 3A 89 34 37 30 |D OF DATA.":.470|
00001110: 00 2C 19 D0 07 54 59 24 B2 22 41 22 3A 8D 31 36 |.,...TY$."A":.16|
00001120: 30 3A 8D 34 34 30 3A 89 31 30 31 30 00 48 19 B8 |0:.440:.1010.H..|
00001130: 0B 54 59 24 B2 22 4D 22 3A 8D 31 36 30 3A 8D 34 |.TY$."M":.160:.4|
00001140: 35 30 3A 89 31 30 31 30 00 85 19 A0 0F 54 59 24 |50:.1010.....TY$|
00001150: B2 22 42 22 3A 99 22 93 55 50 44 41 54 45 20 42 |."B":.".UPDATE B|
00001160: 49 52 54 48 44 41 59 20 46 49 4C 45 22 3A 99 22 |IRTHDAY FILE":."|
00001170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001180: 2A 2A 2A 2A 22 00 AA 19 AA 0F 99 22 11 45 44 49 |****"......".EDI|
00001190: 54 20 45 58 49 53 54 49 4E 47 20 52 45 43 4F 52 |T EXISTING RECOR|
000011A0: 44 53 20 28 59 2F 4E 29 3F 22 00 C8 19 B4 0F A1 |DS (Y/N)?"......|
000011B0: 41 24 3A 8B 41 24 B3 B1 22 59 22 AF 41 24 B3 B1 |A$:.A$.."Y".A$..|
000011C0: 22 4E 22 A7 34 30 32 30 00 DF 19 BE 0F 8B 41 24 |"N".4020......A$|
000011D0: B2 22 4E 22 A7 99 22 93 22 3B 3A 89 37 37 30 00 |."N"..".";:.770.|
000011E0: E7 19 C8 0F 49 B2 30 00 FD 19 D2 0F 8B 54 46 24 |....I.0......TF$|
000011F0: 28 49 29 B3 B1 54 59 24 A7 34 31 32 30 00 16 1A |(I)..TY$.4120...|
00001200: DC 0F 8D 36 31 30 3A 8D 34 30 37 30 3A 8D 36 37 |...610:.4070:.67|
00001210: 30 3A 89 36 38 30 00 54 1A E6 0F 99 22 90 44 41 |0:.680.T....".DA|
00001220: 54 45 20 3A 20 22 3B 59 46 28 49 29 3B 22 2D 22 |TE : ";YF(I);"-"|
00001230: 3B 4D 46 28 49 29 3B 22 2D 22 44 46 28 49 29 3A |;MF(I);"-"DF(I):|
00001240: 99 22 45 56 45 4E 54 3A 20 22 3B 54 24 28 49 29 |."EVENT: ";T$(I)|
00001250: 3B 22 11 22 00 5A 1A F0 0F 8E 00 69 1A FA 0F 8B |;".".Z.....i....|
00001260: 4E 52 B2 31 A7 34 31 32 30 00 80 1A FF 0F 8B 49 |NR.1.4120......I|
00001270: B2 4E 52 AB 31 A7 4E 52 B2 49 3A 89 34 31 32 30 |.NR.1.NR.I:.4120|
00001280: 00 BC 1A 04 10 81 4A B2 49 AA 31 A4 4E 52 AB 31 |......J.I.1.NR.1|
00001290: 3A 59 46 28 4A AB 31 29 B2 59 46 28 4A 29 3A 54 |:YF(J.1).YF(J):T|
000012A0: 46 24 28 4A AB 31 29 B2 54 46 24 28 4A 29 3A 4D |F$(J.1).TF$(J):M|
000012B0: 46 28 4A AB 31 29 B2 4D 46 28 4A 29 00 E6 1A 0E |F(J.1).MF(J)....|
000012C0: 10 44 46 28 4A AB 31 29 B2 44 46 28 4A 29 3A 54 |.DF(J.1).DF(J):T|
000012D0: 24 28 4A AB 31 29 B2 54 24 28 4A 29 3A 82 3A 4E |$(J.1).T$(J):.:N|
000012E0: 52 B2 4E 52 AB 31 00 FB 1A 18 10 49 B2 49 AA 31 |R.NR.1.....I.I.1|
000012F0: 3A 8B 49 B3 4E 52 A7 34 30 35 30 00 04 1B 1A 10 |:.I.NR.4050.....|
00001300: 89 37 36 30 00 14 1B 1D 10 8D 34 31 33 30 3A 89 |.760......4130:.|
00001310: 34 30 36 30 00 39 1B 22 10 8D 37 30 30 3A 8D 34 |4060.9."..700:.4|
00001320: 30 37 30 3A 99 A3 35 29 3B 59 46 28 49 29 3A 85 |070:..5);YF(I):.|
00001330: 22 91 59 45 41 52 22 3B 59 00 62 1B 2C 10 8B 59 |".YEAR";Y.b.,..Y|
00001340: B3 B1 B5 28 59 29 B0 59 B3 31 35 38 33 B0 28 54 |...(Y).Y.1583.(T|
00001350: 59 24 B3 B1 22 4D 22 AF 59 B1 59 30 29 A7 34 31 |Y$.."M".Y.Y0).41|
00001360: 33 30 00 90 1B 36 10 59 46 28 49 29 B2 59 3A 8D |30...6.YF(I).Y:.|
00001370: 37 30 30 3A 8D 34 30 37 30 3A 99 A3 36 29 3B 4D |700:.4070:..6);M|
00001380: 46 28 49 29 3A 85 22 91 4D 4F 4E 54 48 22 3B 4D |F(I):.".MONTH";M|
00001390: 00 AB 1B 40 10 8B 4D B3 B1 B5 28 4D 29 B0 4D B3 |...@..M...(M).M.|
000013A0: 31 B0 4D B1 31 32 A7 34 31 35 30 00 D7 1B 4A 10 |1.M.12.4150...J.|
000013B0: 4D 46 28 49 29 B2 4D 3A 8D 37 30 30 3A 8D 34 30 |MF(I).M:.700:.40|
000013C0: 37 30 3A 99 A3 34 29 3B 44 46 28 49 29 3A 85 22 |70:..4);DF(I):."|
000013D0: 91 44 41 59 22 3B 44 00 0C 1C 54 10 8B 44 B3 B1 |.DAY";D...T..D..|
000013E0: B5 28 44 29 B0 44 B3 31 B0 44 B1 28 44 4D 28 4D |.(D).D.1.D.(DM(M|
000013F0: AB 31 29 AA 31 29 B0 28 4D B3 B1 32 AF 44 B1 44 |.1).1).(M..2.D.D|
00001400: 4D 28 4D AB 31 29 29 A7 34 31 37 30 00 48 1C 5E |M(M.1)).4170.H.^|
00001410: 10 44 46 28 49 29 B2 44 3A 8D 37 30 30 3A 8D 34 |.DF(I).D:.700:.4|
00001420: 30 37 30 3A 99 A3 36 29 3B 54 24 28 49 29 3A 85 |070:..6);T$(I):.|
00001430: 22 91 49 54 45 4D 22 3B 54 24 28 49 29 3A 8D 37 |".ITEM";T$(I):.7|
00001440: 30 30 3A 89 34 30 37 30 00 71 1C 68 10 8B 4E 52 |00:.4070.q.h..NR|
00001450: B1 B2 31 30 30 A7 99 22 1C 52 45 43 4F 52 44 20 |..100..".RECORD |
00001460: 41 52 52 41 59 20 46 55 4C 4C 21 22 3A 89 34 37 |ARRAY FULL!":.47|
00001470: 30 00 A7 1C 72 10 49 B2 4E 52 3A 59 46 28 49 29 |0...r.I.NR:YF(I)|
00001480: B2 30 3A 54 46 24 28 49 29 B2 54 59 24 3A 4D 46 |.0:TF$(I).TY$:MF|
00001490: 28 49 29 B2 30 3A 44 46 28 49 29 B2 30 3A 54 24 |(I).0:DF(I).0:T$|
000014A0: 28 49 29 B2 22 2D 22 00 D3 1C 7C 10 8D 38 32 30 |(I)."-"...|..820|
000014B0: 3A 8D 34 30 30 3A 8D 34 31 33 30 3A 99 22 11 1F |:.400:.4130:."..|
000014C0: 41 44 44 20 54 48 49 53 20 52 45 43 4F 52 44 20 |ADD THIS RECORD |
000014D0: 3F 22 3B 00 F1 1C 86 10 A1 41 24 3A 8B 41 24 B3 |?";......A$:.A$.|
000014E0: B1 22 59 22 AF 41 24 B3 B1 22 4E 22 A7 34 32 33 |."Y".A$.."N".423|
000014F0: 30 00 0B 1D 90 10 99 41 24 3A 99 3A 8B 41 24 B2 |0......A$:.:.A$.|
00001500: 22 59 22 A7 4E 52 B2 4E 52 AA 31 00 27 1D 9A 10 |"Y".NR.NR.1.'...|
00001510: 99 22 41 4E 4F 54 48 45 52 20 4E 45 57 20 52 45 |."ANOTHER NEW RE|
00001520: 43 4F 52 44 20 3F 22 00 45 1D A4 10 A1 41 24 3A |CORD ?".E....A$:|
00001530: 8B 41 24 B3 B1 22 59 22 AF 41 24 B3 B1 22 4E 22 |.A$.."Y".A$.."N"|
00001540: A7 34 32 36 30 00 56 1D AE 10 8B 41 24 B2 22 59 |.4260.V....A$."Y|
00001550: 22 A7 34 32 30 30 00 5F 1D B8 10 89 31 39 30 00 |".4200._....190.|
00001560: A8 1D 88 13 54 59 24 B2 22 41 22 3A 99 22 93 55 |....TY$."A":.".U|
00001570: 50 44 41 54 45 20 41 4E 4E 49 56 45 52 53 41 52 |PDATE ANNIVERSAR|
00001580: 59 20 46 49 4C 45 22 3A 99 22 2A 2A 2A 2A 2A 2A |Y FILE":."******|
00001590: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000015A0: 2A 22 3A 89 34 30 31 30 00 F1 1D 70 17 54 59 24 |*":.4010...p.TY$|
000015B0: B2 22 4D 22 3A 99 22 93 55 50 44 41 54 45 20 41 |."M":.".UPDATE A|
000015C0: 50 50 4F 49 4E 54 4D 45 4E 54 20 46 49 4C 45 22 |PPOINTMENT FILE"|
000015D0: 3A 99 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |:."*************|
000015E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 3A 89 34 30 31 |**********":.401|
000015F0: 30 00 00 00 |0... |
..F....YF(99),TF$(99),MF(99),DF(99),T$(9
9),M(11),M$(11),DM(11):.G(142)......I.0.
11:.M$(I),M(I):.:.JAN,0,FEB,31,MAR,59,AP
R,90,MAY,120......I.0.11:.DM(I):..V....J
UN,151,JUL,181,AUG,212,SEP,243,OCT,273,N
OV,304,DEC,334...#..31,28,31,30,31,30,31
,31,30,31,30,31...(..53280,1:.53281,1.K.
2..".........M N.O...M N.N.M O.M N.M.M
.O.M N.M".Y.<..". MN .. . MN .. . . .
. .. M .. . . ."...F..". .O. . ..
. L.N L... M.. . L..".U.P..". .L...
.M.N . M . .. .L.N . ."...Z...11);
".....ENTER TODAY'S DATE.":." YYYY
,MM,DD ";Y0,M0,D0.W.D..Y0.1983.M0.1.M0.1
2.Y0...(Y0).M0...(M0).D0...(D0).D0.1.50.
..N.LY.0:.Y0.4..(Y0.4).Y0.100...(Y0.100)
.LY.1. .X..Y0.400..(Y0.400).LY.1......D0
.DM(M0.1).M0..2.50.Q....D0.DM(M0.1).LY.5
0.....DY.M(M0.1).D0:.M0.2.DY.DY.LY.&...C
Y.0:L0.DY:L1.L0:H0.DY.14:H1.H0:.H0..365.
LY.155.N...H0.365.LY:L1.0:H1.DY.14.365.L
Y:CY.1.W....880. . ..".U................
......................I":.I9.1.21:."..";
.38);".".T....:.".J.....................
.................K."......".............
...............................":.......
160./.H...13);"..COMMAND MENU.".V.R...3)
;"1 - LIST UPCOMING BIRTHDAYS".......3);
"2 - LIST UPCOMING ANNIVERSARIES".......
3);"3 - LIST UPCOMING APPOINTMENTS".O...
..3);"4 - UPDATE BIRTHDAY FILE".......3)
;"5 - UPDATE ANNIVERSARY FILE".......3);
"6 - UPDATE APPOINTMENT FILE".;.....3);"
_ - EXIT PROGRAM..".Z.....3);".ENTER YOU
R COMMAND".M."..A$:.A$."".290...,..A$."_
".970:. SAVE FILE AND END...6..A$."1".10
00:. LIST BIRTHDAYS.Y.@..A$."2".2000:. L
IST ANNIVERSARIES...J..A$."3".3000:. LIS
T APPOINTMENTS.".T..A$."4".4000:. UPDATE
BIRTHDAYS.J.^..A$."5".5000:. UPDATE ANN
IVERSARIES.Q.H..A$."6".6000:. UPDATE APP
OINTMENTS.Z.R..290...|..15,E0,E$,E1,E2:E
F.0:.E0.19.EF.1............"............
............. PRESS .SPACE. TO CONTINUE.
"......A$:.A$.." ".410....... .....10);"
..UPCOMING BIRTHDAYS.":..G.....8);"..UPC
OMING ANNIVERSARIES.":..M.B...8);"..UPCO
MING APPOINTMENTS.":....L..".";E0;" ";E$
;E1;E2: 2: 15:..H.V.."..................
....... PRESS .SPACE. FOR MENU.".V....41
0:.190.....P$.M$(M.1).D(D):.DN..L1.DN..H
1.Y.Y.CY......C(P$).7.P$.P$." ":.520.H..
.P$.P$."-".D(Y0.Y):DN.E(I(P$,1)):DY.Y0.Y
.P....DN.1.(DY.10.DY.20).P$.P$."ST":.580
...&..DN.2.(DY.10.DY.20).P$.P$."ND":.580
...0..DN.3.(DY.10.DY.20).P$.P$."RD":.580
.O.:.P$.P$."TH"...D..C(P$).15.P$.P$." ":
.580...N.P$.P$."- ".N$:.C(P$).35.P$.H(P$
,35)...X...L.B.."..U....................
..................I".}.L..".. R - RETAI
N RECORD AS IS ."...V.."..
D - DELETE RECORD ."..
....".. U - UPDATE RECORD AND SAVE
."......".J........................
..............K.".......<....A$:.A$.."R"
.A$.."D".A$.."U".670.B.....S....A$."R".4
120.D....A$."D".4090.N....4125. ...."..U
......................................I"
.Q.F.."..
."...P..".. INPUT UPDATED DATA O
R PRESS .RETURN. .".5.Z.."..
.".G....".J..
....................................K.".
M.........."..END OF EXISTING RECORDS...
"......"DO YOU WISH TO ADD NEW RECORDS (
Y/N)?"......A$:.A$.."Y".A$.."N".780.....
.A$."Y".4200... ..190.'.4.."..U.........
.............................I".X.>.."..
."
...H..".. INPUT NEW RECORDS AS PROMPTED
."...R.."..
."...S..".. ENTER Y,M &
D AS NUMBERS ONLY ."...T.."..
.".N.\
..".J...................................
...K.".T.F...P.P..15,8,15:.380:.EF.1.460
...Z..2,8,2,"0:MEMO FILE,S,R":.380:.EF.0
.940......E0..62.460.Y... 2:.2,8,2,"MEMO
FILE,S,W":.380:.EF.1.460......2,1:.2,"M
,"Y0","M0","D0",START MEMO FILE":.380:.E
F.1.460.#... 2:.890.<....2,NR:.380:.EF.1
.460.{....I.0.NR.1:.2,TF$(I),YF(I),MF(I)
,DF(I),T$(I):.380:.EF.1.460......: 2:.19
0...J..2,8,2,"@0:MEMO FILE,S,W":.380:.EF
.1.460.O.K..2,NR:.380:.EF.1.460...L..I.0
.NR.1:.2,TF$(I)","YF(I)","MF(I)","DF(I)"
,"T$(I):.380:.EF.1.460.+.M..: 2: 15:."."
;:..A...TY$."B":.160:.430.M...I.0:J.0.C.
...TF$(I)..TY$.1140.....D.DF(I):M.MF(I):
Y.YF(I):N$.T$(I).....DN.M(M.1).D:.M.2.DN
.DN.LY.L....(DN.L0.DN.H0).(DN.L1.DN.H1).
1140......TY$.."M".1060......DN..L0.DN..
H0.Y.Y0.1060......DN..L1.DN..H1.Y.Y0.CY.
1060.&....1140.E.$.J.J.1:.TY$.."M"..510:
.1100.Y...P$.M$(M.1).D(D).V.8..C(P$).7.P
$.P$." ":.1080..B..590...L...3);P$:.J.8
.1140...V..400:.160:J.0:.TY$."B"..430:.1
140.S.`..TY$."A"..440:.1140...J..450...T
.I.I.1:.I.NR.1020...~...3);"..END OF DAT
A.":.470.,.P.TY$."A":.160:.440:.1010.H..
.TY$."M":.160:.450:.1010... .TY$."B":.".
UPDATE BIRTHDAY FILE":."****************
****"......".EDIT EXISTING RECORDS (Y/N)
?".H....A$:.A$.."Y".A$.."N".4020......A$
."N"..".";:.770...H.I.0...R..TF$(I)..TY$
.4120......610:.4070:.670:.680.T....".DA
TE : ";YF(I);"-";MF(I);"-"DF(I):."EVENT:
";T$(I);".".Z.....I....NR.1.4120......I
.NR.1.NR.I:.4120......J.I.1.NR.1:YF(J.1)
.YF(J):TF$(J.1).TF$(J):MF(J.1).MF(J)....
.DF(J.1).DF(J):T$(J.1).T$(J):.:NR.NR.1..
...I.I.1:.I.NR.4050......760......4130:.
4060.9."..700:.4070:..5);YF(I):.".YEAR";
Y.B.,..Y...(Y).Y.1583.(TY$.."M".Y.Y0).41
30...6.YF(I).Y:.700:.4070:..6);MF(I):.".
MONTH";M...@..M...(M).M.1.M.12.4150.W.J.
MF(I).M:.700:.4070:..4);DF(I):.".DAY";D.
..T..D...(D).D.1.D.(DM(M.1).1).(M..2.D.D
M(M.1)).4170.H.^.DF(I).D:.700:.4070:..6)
;T$(I):.".ITEM";T$(I):.700:.4070.Q.H..NR
..100..".RECORD ARRAY FULL!":.470...R.I.
NR:YF(I).0:TF$(I).TY$:MF(I).0:DF(I).0:T$
(I)."-".S.|..820:.400:.4130:."..ADD THIS
RECORD ?";......A$:.A$.."Y".A$.."N".423
0......A$:.:.A$."Y".NR.NR.1.'...."ANOTHE
R NEW RECORD ?".E....A$:.A$.."Y".A$.."N"
.4260.V....A$."Y".4200._....190.....TY$.
"A":.".UPDATE ANNIVERSARY FILE":."******
*****************":.4010...P.TY$."M":.".
UPDATE APPOINTMENT FILE":."*************
**********":.4010...
> CLICK IMAGE PREVIEW FOR FULL MODAL