Multiple names: P D♠, PRINT DATES.╳2

00000000: 01 08 35 08 0A 00 97 36  34 34 2C 31 32 38 3A 97  |..5....644,128:.|
00000010: 35 36 2C 31 32 38 3A 9C  3A 97 35 33 32 38 30 2C  |56,128:.:.53280,|
00000020: 32 3A 97 35 33 32 38 31  2C 30 3A 99 22 9E 22 3B  |2:.53281,0:.".";|
00000030: C7 28 31 34 29 00 49 08  0F 00 99 22 93 22 3A 50  |.(14).I....".":P|
00000040: 52 54 B2 30 3A 46 4C B2  30 00 6A 08 14 00 86 54  |RT.0:FL.0.j....T|
00000050: 4B 28 31 32 38 29 2C 53  43 28 31 32 38 29 3A 86  |K(128),SC(128):.|
00000060: 44 41 54 45 24 28 31 32  37 29 00 8A 08 19 00 4E  |DATE$(127).....N|
00000070: B2 35 3A 81 58 B2 31 A4  38 3A 50 28 58 29 B2 4E  |.5:.X.1.8:P(X).N|
00000080: 3A 4E B2 4E AA 33 32 3A  82 58 00 A8 08 1E 00 81  |:N.N.32:.X......|
00000090: 58 B2 31 A4 39 3A 87 4E  3A 44 42 24 B2 44 42 24  |X.1.9:.N:DB$.DB$|
000000A0: AA C7 28 4E 29 3A 82 58  00 CA 08 23 00 99 22 9F  |..(N):.X...#..".|
000000B0: 93 11 11 11 22 3B A3 31  35 29 3B 22 12 20 20 20  |....";.15);".   |
000000C0: 20 20 20 20 20 20 20 20  92 22 00 E4 08 28 00 99  |        ."...(..|
000000D0: A3 31 35 29 3B 22 12 20  CD C1 C9 CE 20 CD C5 CE  |.15);". .... ...|
000000E0: D5 20 92 22 00 FF 08 2D  00 99 A3 31 35 29 3B 22  |. ."...-...15);"|
000000F0: 12 20 20 20 20 20 20 20  20 20 20 20 92 9E 22 00  |.           ..".|
00000100: 26 09 32 00 99 A3 38 29  3B 22 11 11 11 11 C6 31  |&.2...8);".....1|
00000110: 20 3D 20 CF 50 45 4E 20  44 41 54 45 42 4F 4F 4B  | = .PEN DATEBOOK|
00000120: 20 46 49 4C 45 22 00 4E  09 37 00 99 A3 38 29 3B  | FILE".N.7...8);|
00000130: 22 11 11 C6 33 20 3D 20  C4 49 53 50 4C 41 59 2F  |"...3 = .ISPLAY/|
00000140: 50 52 49 4E 54 20 45 4E  54 52 49 45 53 22 00 76  |PRINT ENTRIES".v|
00000150: 09 3C 00 99 A3 38 29 3B  22 11 11 C6 35 20 3D 20  |.<...8);"...5 = |
00000160: D0 52 49 4E 54 20 45 4E  54 49 52 45 20 44 41 54  |.RINT ENTIRE DAT|
00000170: 45 42 4F 4F 4B 22 00 98  09 41 00 99 A3 38 29 3B  |EBOOK"...A...8);|
00000180: 22 11 11 C6 37 20 3D 20  D1 55 49 54 20 54 4F 20  |"...7 = .UIT TO |
00000190: 44 45 53 4B 54 4F 50 22  00 AB 09 46 00 A1 41 24  |DESKTOP"...F..A$|
000001A0: 3A 8B 41 24 B2 22 22 A7  37 30 20 00 C3 09 4B 00  |:.A$."".70 ...K.|
000001B0: 8B 41 24 B2 C7 28 31 33  33 29 A7 8D 31 30 30 3A  |.A$..(133)..100:|
000001C0: 89 33 35 00 DB 09 50 00  8B 41 24 B2 C7 28 31 33  |.35...P..A$..(13|
000001D0: 34 29 A7 8D 33 37 30 3A  89 33 35 00 F3 09 55 00  |4)..370:.35...U.|
000001E0: 8B 41 24 B2 C7 28 31 33  35 29 A7 8D 36 34 30 3A  |.A$..(135)..640:|
000001F0: 89 33 35 00 06 0A 5A 00  8B 41 24 B2 C7 28 31 33  |.35...Z..A$..(13|
00000200: 36 29 A7 38 32 35 00 0F  0A 5F 00 89 37 30 20 00  |6).825..._..70 .|
00000210: 43 0A 64 00 4E 55 4D 45  4E 54 B2 30 3A 85 22 93  |C.d.NUMENT.0:.".|
00000220: 1D 1D 1D 1D 1D 1D 1D 1D  1D 1D 1D 1D 1D 1D 1D 1D  |................|
00000230: 11 11 11 11 11 11 11 11  11 11 44 52 49 56 45 22  |..........DRIVE"|
00000240: 3B 44 52 00 56 0A 69 00  8B 44 52 B3 38 B0 44 52  |;DR.V.i..DR.8.DR|
00000250: B1 39 A7 31 30 30 00 85  0A 6E 00 9F 31 35 2C 44  |.9.100...n..15,D|
00000260: 52 2C 31 35 3A 98 31 35  2C 22 49 30 22 3A 84 31  |R,15:.15,"I0":.1|
00000270: 35 2C 45 4E 24 2C 45 4D  24 2C 45 54 24 2C 45 53  |5,EN$,EM$,ET$,ES|
00000280: 24 3A A0 31 35 00 97 0A  73 00 8B 45 4E 24 B2 22  |$:.15...s..EN$."|
00000290: 30 30 22 A7 31 33 35 00  D9 0A 78 00 99 22 93 11  |00".135...x.."..|
000002A0: 11 11 11 11 11 11 11 11  22 3B A3 31 30 29 3B 45  |........";.10);E|
000002B0: 4E 24 2C 45 4D 24 3A 99  A3 38 29 3B 22 11 11 48  |N$,EM$:..8);"..H|
000002C0: 49 54 20 41 4E 59 20 4B  45 59 20 46 4F 52 20 4D  |IT ANY KEY FOR M|
000002D0: 41 49 4E 20 4D 45 4E 55  22 00 EC 0A 7D 00 A1 41  |AIN MENU"...}..A|
000002E0: 24 3A 8B 41 24 B2 22 22  A7 31 32 35 00 F2 0A 82  |$:.A$."".125....|
000002F0: 00 8E 00 27 0B 87 00 99  22 93 11 11 11 11 11 11  |...'....".......|
00000300: 11 11 11 11 22 3B A3 37  29 3B 22 53 45 41 52 43  |....";.7);"SEARC|
00000310: 48 49 4E 47 20 46 4F 52  20 44 41 54 45 42 4F 4F  |HING FOR DATEBOO|
00000320: 4B 20 46 49 4C 45 22 00  41 0B 8C 00 9F 31 35 2C  |K FILE".A....15,|
00000330: 44 52 2C 31 35 3A 9F 35  2C 44 52 2C 35 2C 22 23  |DR,15:.5,DR,5,"#|
00000340: 22 00 5F 0B 91 00 81 53  B2 31 A4 31 39 3A 98 31  |"._....S.1.19:.1|
00000350: 35 2C 22 55 31 22 3B 35  3B 30 3B 31 38 3B 53 00  |5,"U1";5;0;18;S.|
00000360: 84 0B 96 00 81 46 B2 31  A4 38 3A 4E 41 4D 45 24  |.....F.1.8:NAME$|
00000370: B2 22 22 3A 98 31 35 2C  22 42 2D 50 22 3B 35 3B  |."":.15,"B-P";5;|
00000380: 50 28 46 29 00 A5 0B 9B  00 81 49 B2 31 A4 39 3A  |P(F)......I.1.9:|
00000390: A1 23 35 2C 41 24 3A 8B  41 24 B2 22 22 A7 41 24  |.#5,A$:.A$."".A$|
000003A0: B2 C7 28 30 29 00 C0 0B  A0 00 41 B2 C6 28 41 24  |..(0).....A..(A$|
000003B0: 29 3A 8B 41 B1 31 32 37  A7 41 B2 41 AB 31 32 38  |):.A.127.A.A.128|
000003C0: 00 CF 0B A5 00 8B 41 B2  33 34 A7 41 B2 36 33 00  |......A.34.A.63.|
000003D0: F5 0B AA 00 4E 41 4D 45  24 B2 4E 41 4D 45 24 AA  |....NAME$.NAME$.|
000003E0: C7 28 41 29 3A 82 3A 8B  4E 41 4D 45 24 B2 44 42  |.(A):.:.NAME$.DB|
000003F0: 24 A7 32 30 30 00 FD 0B  AF 00 82 3A 82 00 36 0C  |$.200......:..6.|
00000400: B4 00 A0 32 3A A0 31 35  3A 99 22 93 11 11 11 11  |...2:.15:.".....|
00000410: 11 11 11 11 11 22 3B A3  37 29 3B 22 44 41 54 45  |.....";.7);"DATE|
00000420: 42 4F 4F 4B 20 46 49 4C  45 20 4E 4F 54 20 4F 4E  |BOOK FILE NOT ON|
00000430: 20 44 49 53 4B 22 00 66  0C B9 00 99 22 11 11 1D  | DISK".f...."...|
00000440: 1D 1D 43 48 45 43 4B 20  44 49 53 4B 3B 20 48 49  |..CHECK DISK; HI|
00000450: 54 20 41 4E 59 20 4B 45  59 20 54 4F 20 43 4F 4E  |T ANY KEY TO CON|
00000460: 54 49 4E 55 45 22 00 79  0C BE 00 A1 41 24 3A 8B  |TINUE".y....A$:.|
00000470: 41 24 B2 22 22 A7 31 39  30 00 7F 0C C3 00 8E 00  |A$."".190.......|
00000480: B4 0C C8 00 98 31 35 2C  22 42 2D 50 22 3B 35 3B  |.....15,"B-P";5;|
00000490: 50 28 46 29 AB 32 3A A1  23 35 2C 54 24 3A A1 23  |P(F).2:.#5,T$:.#|
000004A0: 35 2C 53 24 3A 54 B2 C6  28 54 24 29 3A 53 B2 C6  |5,S$:T..(T$):S..|
000004B0: 28 53 24 29 00 C9 0C CD  00 98 31 35 2C 22 55 31  |(S$)......15,"U1|
000004C0: 22 3B 35 3B 30 3B 54 3B  53 00 DF 0C D2 00 A1 23  |";5;0;T;S......#|
000004D0: 35 2C 41 24 3A A1 23 35  2C 41 24 3A 58 B2 31 00  |5,A$:.#5,A$:X.1.|
000004E0: F5 0C D7 00 A1 23 35 2C  41 24 3A 8B 41 24 B2 22  |.....#5,A$:.A$."|
000004F0: 22 A7 32 34 30 00 04 0D  DC 00 8B 53 54 B3 B1 30  |".240......ST..0|
00000500: A7 32 34 30 00 14 0D E1  00 54 4B 28 58 29 B2 C6  |.240.....TK(X)..|
00000510: 28 41 24 29 00 30 0D E6  00 A1 23 35 2C 41 24 3A  |(A$).0....#5,A$:|
00000520: 53 43 28 58 29 B2 C6 28  41 24 AA C7 28 30 29 29  |SC(X)..(A$..(0))|
00000530: 00 3F 0D EB 00 58 B2 58  AA 31 3A 89 32 31 35 00  |.?...X.X.1:.215.|
00000540: 6C 0D F0 00 99 22 93 11  11 11 11 11 11 11 11 11  |l...."..........|
00000550: 22 3B A3 31 31 29 3B 22  46 4F 55 4E 44 20 44 41  |";.11);"FOUND DA|
00000560: 54 45 42 4F 4F 4B 20 46  49 4C 45 22 00 8E 0D F5  |TEBOOK FILE"....|
00000570: 00 99 A3 31 31 29 3B 22  11 11 52 45 41 44 49 4E  |...11);"..READIN|
00000580: 47 20 45 4E 54 52 59 20  44 41 54 45 53 22 00 A6  |G ENTRY DATES"..|
00000590: 0D FA 00 54 B2 54 4B 28  31 29 3A 53 B2 53 43 28  |...T.TK(1):S.SC(|
000005A0: 31 29 3A 58 B2 31 00 BB  0D FF 00 98 31 35 2C 22  |1):X.1......15,"|
000005B0: 55 31 22 3B 35 3B 30 3B  54 3B 53 00 D3 0D 04 01  |U1";5;0;T;S.....|
000005C0: A1 23 35 2C 41 24 3A 54  B2 C6 28 41 24 AA C7 28  |.#5,A$:T..(A$..(|
000005D0: 30 29 29 00 EB 0D 09 01  A1 23 35 2C 41 24 3A 53  |0))......#5,A$:S|
000005E0: B2 C6 28 41 24 AA C7 28  30 29 29 00 F6 0D 0E 01  |..(A$..(0)).....|
000005F0: A1 23 35 2C 41 24 00 01  0E 13 01 81 49 B2 31 A4  |.#5,A$......I.1.|
00000600: 36 00 29 0E 18 01 A1 23  35 2C 41 24 3A 8B 49 B2  |6.)....#5,A$:.I.|
00000610: 31 AF 41 24 B2 22 22 A7  4E 55 4D 45 4E 54 B2 58  |1.A$."".NUMENT.X|
00000620: 3A A0 35 3A A0 31 35 3A  8E 00 3C 0E 1D 01 8B 41  |:.5:.15:..<....A|
00000630: 24 B2 22 22 A7 41 24 B2  C7 28 30 29 00 45 0E 22  |$."".A$..(0).E."|
00000640: 01 8D 33 34 30 00 64 0E  27 01 91 49 8D 33 30 35  |..340.d.'..I.305|
00000650: 2C 33 31 35 2C 33 33 30  2C 33 33 35 2C 33 33 35  |,315,330,335,335|
00000660: 2C 33 33 35 00 83 0E 2C  01 82 49 3A 44 41 54 45  |,335...,..I:DATE|
00000670: 24 28 58 29 B2 44 41 24  3A 58 B2 58 AA 31 3A 89  |$(X).DA$:X.X.1:.|
00000680: 32 37 35 00 BB 0E 31 01  41 24 B2 C4 28 C6 28 41  |275...1.A$..(.(A|
00000690: 24 29 29 3A 44 41 24 B2  C9 28 41 24 2C C3 28 41  |$)):DA$..(A$,.(A|
000006A0: 24 29 AB 31 29 3A 8B C3  28 44 41 24 29 B3 32 A7  |$).1):..(DA$).2.|
000006B0: 44 41 24 B2 22 30 22 AA  44 41 24 00 C1 0E 36 01  |DA$."0".DA$...6.|
000006C0: 8E 00 E4 0E 3B 01 41 24  B2 C4 28 C6 28 41 24 29  |....;.A$..(.(A$)|
000006D0: AA 31 29 3A 41 24 B2 C9  28 41 24 2C C3 28 41 24  |.1):A$..(A$,.(A$|
000006E0: 29 AB 31 29 00 FB 0E 40  01 8B C3 28 41 24 29 B3  |).1)...@...(A$).|
000006F0: 32 A7 41 24 B2 22 30 22  AA 41 24 00 10 0F 45 01  |2.A$."0".A$...E.|
00000700: 44 41 24 B2 41 24 AA 22  2F 22 AA 44 41 24 3A 8E  |DA$.A$."/".DA$:.|
00000710: 00 2E 0F 4A 01 44 41 24  B2 44 41 24 AA 22 2F 22  |...J.DA$.DA$."/"|
00000720: AA C7 28 C6 28 41 24 29  AA 34 38 29 3A 8E 00 48  |..(.(A$).48):..H|
00000730: 0F 4F 01 44 41 24 B2 44  41 24 AA C7 28 C6 28 41  |.O.DA$.DA$..(.(A|
00000740: 24 29 AA 34 38 29 3A 8E  00 54 0F 54 01 8B 53 54  |$).48):..T.T..ST|
00000750: B2 30 A7 8E 00 69 0F 59  01 98 31 35 2C 22 55 31  |.0...i.Y..15,"U1|
00000760: 22 3B 35 3B 30 3B 54 3B  53 00 81 0F 5E 01 A1 23  |";5;0;T;S...^..#|
00000770: 35 2C 41 24 3A 54 B2 C6  28 41 24 AA C7 28 30 29  |5,A$:T..(A$..(0)|
00000780: 29 00 99 0F 63 01 A1 23  35 2C 41 24 3A 53 B2 C6  |)...c..#5,A$:S..|
00000790: 28 41 24 AA C7 28 30 29  29 00 9F 0F 68 01 8E 00  |(A$..(0))...h...|
000007A0: AC 0F 6D 01 A0 35 3A A0  31 35 3A 8E 00 BF 0F 72  |..m..5:.15:....r|
000007B0: 01 8B 4E 55 4D 45 4E 54  B3 B1 30 A7 34 30 35 00  |..NUMENT..0.405.|
000007C0: EE 0F 77 01 99 22 93 11  11 11 11 11 11 11 22 3B  |..w.."........";|
000007D0: A3 38 29 3B 22 CE CF 20  C5 CE D4 D2 D9 20 C4 C1  |.8);".. ..... ..|
000007E0: D4 C5 D3 20 C9 CE 20 CD  C5 CD CF D2 D9 22 00 15  |... .. ......"..|
000007F0: 10 7C 01 99 22 11 11 22  3B A3 39 29 3B 22 C3 48  |.|.."..";.9);".H|
00000800: 4F 4F 53 45 20 C6 31 20  41 54 20 4D 41 49 4E 20  |OOSE .1 AT MAIN |
00000810: 4D 45 4E 55 22 00 37 10  81 01 99 A3 39 29 3B 22  |MENU".7.....9);"|
00000820: 54 4F 20 4F 50 45 4E 20  44 41 54 45 42 4F 4F 4B  |TO OPEN DATEBOOK|
00000830: 20 46 49 4C 45 2E 22 00  62 10 86 01 99 22 11 11  | FILE.".b...."..|
00000840: 22 3B A3 37 29 3B 22 C8  49 54 20 41 4E 59 20 4B  |";.7);".IT ANY K|
00000850: 45 59 20 54 4F 20 43 4F  4E 54 49 4E 55 45 2E 2E  |EY TO CONTINUE..|
00000860: 2E 22 00 75 10 8B 01 A1  41 24 3A 8B 41 24 B2 22  |.".u....A$:.A$."|
00000870: 22 A7 33 39 35 00 7B 10  90 01 8E 00 85 10 95 01  |".395.{.........|
00000880: 50 54 52 B2 31 00 9C 10  9A 01 99 22 93 11 22 3A  |PTR.1......"..":|
00000890: 81 58 B2 50 54 52 A4 50  54 52 AA 34 00 B2 10 9F  |.X.PTR.PTR.4....|
000008A0: 01 8B 58 B1 4E 55 4D 45  4E 54 A7 82 58 3A 89 34  |..X.NUMENT..X:.4|
000008B0: 33 35 00 DC 10 A4 01 8B  58 AA 35 B1 4E 55 4D 45  |35......X.5.NUME|
000008C0: 4E 54 A7 99 22 11 22 3B  A3 35 29 3B 44 41 54 45  |NT..".";.5);DATE|
000008D0: 24 28 58 29 3A 82 58 3A  89 34 33 35 00 03 11 A9  |$(X):.X:.435....|
000008E0: 01 99 22 11 22 3B A3 35  29 3B 44 41 54 45 24 28  |..".";.5);DATE$(|
000008F0: 58 29 3B A3 32 35 29 3B  44 41 54 45 24 28 58 AA  |X);.25);DATE$(X.|
00000900: 31 30 29 00 0A 11 AE 01  82 58 00 3E 11 B3 01 99  |10)......X.>....|
00000910: 22 11 11 11 45 4E 54 45  52 20 12 20 4D 4F 2F 44  |"...ENTER . MO/D|
00000920: 41 2F 59 52 20 92 20 54  4F 20 44 49 53 50 4C 41  |A/YR . TO DISPLA|
00000930: 59 2F 50 52 49 4E 54 20  45 4E 54 52 59 22 00 6F  |Y/PRINT ENTRY".o|
00000940: 11 B8 01 99 22 1D 1D 1D  11 45 4E 54 45 52 20 12  |...."....ENTER .|
00000950: 20 4D 4F 2F 59 52 20 92  20 54 4F 20 50 52 49 4E  | MO/YR . TO PRIN|
00000960: 54 20 45 4E 54 49 52 45  20 4D 4F 4E 54 48 22 00  |T ENTIRE MONTH".|
00000970: 9F 11 BD 01 99 22 1D 1D  1D 1D 11 48 49 54 20 12  |.....".....HIT .|
00000980: 20 52 45 54 55 52 4E 20  92 20 46 4F 52 20 4D 4F  | RETURN . FOR MO|
00000990: 52 45 20 45 4E 54 52 59  20 44 41 54 45 53 22 00  |RE ENTRY DATES".|
000009A0: CF 11 C2 01 99 22 1D 1D  1D 1D 1D 1D 1D 11 45 4E  |....."........EN|
000009B0: 54 45 52 20 12 20 4D 20  92 20 46 4F 52 20 4D 41  |TER . M . FOR MA|
000009C0: 49 4E 20 4D 45 4E 55 11  22 3A 41 24 B2 22 22 00  |IN MENU.":A$."".|
000009D0: E8 11 C7 01 85 22 1D 1D  1D 1D 1D 1D 1D 1D 1D 1D  |....."..........|
000009E0: 1D 1D 1D 1D 22 3B 41 24  00 F7 11 CC 01 8B 41 24  |....";A$......A$|
000009F0: B2 22 4D 22 A7 20 8E 00  0E 12 D1 01 8B C3 28 41  |."M". ........(A|
00000A00: 24 29 B2 38 A7 8D 35 34  35 3A 89 34 31 30 00 25  |$).8..545:.410.%|
00000A10: 12 D6 01 8B C3 28 41 24  29 B2 35 A7 8D 35 31 30  |.....(A$).5..510|
00000A20: 3A 89 34 31 30 00 35 12  DB 01 8B 41 24 B3 B1 22  |:.410.5....A$.."|
00000A30: 22 A7 34 31 30 00 4F 12  E0 01 8B 58 AA 39 B1 4E  |".410.O....X.9.N|
00000A40: 55 4D 45 4E 54 A7 8D 34  39 30 3A 89 34 30 35 00  |UMENT..490:.405.|
00000A50: 61 12 E5 01 50 54 52 B2  58 AA 31 30 3A 89 34 31  |a...PTR.X.10:.41|
00000A60: 30 00 8A 12 EA 01 99 22  93 11 11 11 11 11 11 11  |0......"........|
00000A70: 11 11 22 3B A3 31 33 29  3B 22 CE CF 20 CD CF D2  |..";.13);".. ...|
00000A80: C5 20 C5 CE D4 D2 C9 C5  D3 22 00 B2 12 EF 01 99  |. ......."......|
00000A90: A3 38 29 3B 22 11 11 C8  49 54 20 41 4E 59 20 4B  |.8);"...IT ANY K|
00000AA0: 45 59 20 54 4F 20 43 4F  4E 54 49 4E 55 45 2E 2E  |EY TO CONTINUE..|
00000AB0: 2E 22 00 C5 12 F4 01 A1  41 24 3A 8B 41 24 B2 22  |."......A$:.A$."|
00000AC0: 22 A7 35 30 30 00 CB 12  F9 01 8E 00 DF 12 FE 01  |".500...........|
00000AD0: 4E B2 31 3A 81 58 B2 31  A4 4E 55 4D 45 4E 54 00  |N.1:.X.1.NUMENT.|
00000AE0: FF 12 03 02 8B C8 28 44  41 54 45 24 28 58 29 2C  |......(DATE$(X),|
00000AF0: 32 29 B3 B1 C8 28 41 24  2C 32 29 A7 35 33 35 00  |2)...(A$,2).535.|
00000B00: 21 13 08 02 8B CA 28 44  41 54 45 24 28 58 29 2C  |!.....(DATE$(X),|
00000B10: 39 2C 32 29 B3 B1 C9 28  41 24 2C 32 29 A7 35 33  |9,2)...(A$,2).53|
00000B20: 35 00 32 13 0D 02 8B 4E  B2 31 A7 42 45 47 B2 58  |5.2....N.1.BEG.X|
00000B30: AA 31 00 48 13 12 02 4E  B2 58 AA 31 3A 99 44 41  |.1.H...N.X.1:.DA|
00000B40: 54 45 24 28 4E AB 31 29  00 5B 13 17 02 82 58 3A  |TE$(N.1).[....X:|
00000B50: 8B 4E B2 31 A7 8D 35 38  30 3A 8E 00 6F 13 1C 02  |.N.1..580:..o...|
00000B60: 46 49 4E 49 53 48 B2 4E  3A 8D 36 35 30 3A 8E 00  |FINISH.N:.650:..|
00000B70: 84 13 21 02 4E B2 31 3A  81 58 B2 31 A4 20 4E 55  |..!.N.1:.X.1. NU|
00000B80: 4D 45 4E 54 00 A4 13 26  02 8B C8 28 44 41 54 45  |MENT...&...(DATE|
00000B90: 24 28 58 29 2C 35 29 B3  B1 C8 28 41 24 2C 35 29  |$(X),5)...(A$,5)|
00000BA0: A7 35 37 30 00 C4 13 2B  02 8B C9 28 44 41 54 45  |.570...+...(DATE|
00000BB0: 24 28 58 29 2C 32 29 B3  B1 C9 28 41 24 2C 32 29  |$(X),2)...(A$,2)|
00000BC0: A7 35 37 30 00 D5 13 30  02 8B 4E B2 31 A7 42 45  |.570...0..N.1.BE|
00000BD0: 47 B2 58 AA 31 00 EB 13  35 02 4E B2 58 AA 31 3A  |G.X.1...5.N.X.1:|
00000BE0: 99 44 41 54 45 24 28 4E  AB 31 29 00 FE 13 3A 02  |.DATE$(N.1)...:.|
00000BF0: 82 58 3A 8B 4E B2 31 A7  8D 35 38 30 3A 8E 00 12  |.X:.N.1..580:...|
00000C00: 14 3F 02 46 49 4E 49 53  48 B2 4E 3A 8D 36 35 30  |.?.FINISH.N:.650|
00000C10: 3A 8E 00 46 14 44 02 99  22 93 11 11 11 11 11 11  |:..F.D..".......|
00000C20: 11 11 11 22 3B A3 36 29  3B 22 4E 4F 20 45 4E 54  |...";.6);"NO ENT|
00000C30: 52 49 45 53 20 46 4F 52  20 44 41 54 45 20 45 4E  |RIES FOR DATE EN|
00000C40: 54 45 52 45 44 22 00 6B  14 49 02 99 A3 38 29 3B  |TERED".k.I...8);|
00000C50: 22 11 11 48 49 54 20 41  4E 59 20 4B 45 59 20 54  |"..HIT ANY KEY T|
00000C60: 4F 20 43 4F 4E 54 49 4E  55 45 22 00 7E 14 4E 02  |O CONTINUE".~.N.|
00000C70: A1 41 24 3A 8B 41 24 B2  22 22 A7 35 39 30 00 84  |.A$:.A$."".590..|
00000C80: 14 53 02 8E 00 8D 14 58  02 8D 37 37 35 00 AC 14  |.S.....X..775...|
00000C90: 5D 02 99 22 93 11 22 3B  A3 31 35 29 3B 44 41 54  |].."..";.15);DAT|
00000CA0: 45 24 28 58 AB 31 29 3B  22 11 11 22 00 B4 14 62  |E$(X.1);".."...b|
00000CB0: 02 99 44 24 00 D1 14 67  02 99 A3 31 33 29 3B 22  |..D$...g...13);"|
00000CC0: 11 11 48 49 54 20 50 20  54 4F 20 50 52 49 4E 54  |..HIT P TO PRINT|
00000CD0: 22 00 EC 14 69 02 99 A3  31 33 29 3B 22 11 48 49  |"...i...13);".HI|
00000CE0: 54 20 51 20 54 4F 20 51  55 49 54 22 00 15 15 6C  |T Q TO QUIT"...l|
00000CF0: 02 99 A3 36 29 3B 22 11  4F 52 20 41 4E 59 20 4F  |...6);".OR ANY O|
00000D00: 54 48 45 52 20 4B 45 59  20 54 4F 20 43 4F 4E 54  |THER KEY TO CONT|
00000D10: 49 4E 55 45 22 00 28 15  71 02 A1 41 24 3A 8B 41  |INUE".(.q..A$:.A|
00000D20: 24 B2 22 22 A7 36 32 35  00 39 15 73 02 8B 41 24  |$."".625.9.s..A$|
00000D30: B2 22 50 22 A7 8D 38 31  30 00 47 15 76 02 8B 41  |."P"..810.G.v..A|
00000D40: 24 B2 22 51 22 A7 8E 00  4D 15 7B 02 8E 00 62 15  |$."Q"...M.{...b.|
00000D50: 80 02 8B 4E 55 4D 45 4E  54 B2 30 A7 8D 33 37 35  |...NUMENT.0..375|
00000D60: 3A 8E 00 8B 15 85 02 46  4C B2 31 3A 42 45 47 B2  |:......FL.1:BEG.|
00000D70: 32 3A 46 49 4E 49 53 48  B2 4E 55 4D 45 4E 54 3A  |2:FINISH.NUMENT:|
00000D80: 8D 36 35 30 3A 46 4C B2  30 3A 8E 00 B7 15 8A 02  |.650:FL.0:......|
00000D90: 99 22 93 11 11 11 11 11  11 11 11 11 11 22 3B A3  |."...........";.|
00000DA0: 31 31 29 3B 22 D4 D2 C1  CE D3 CC C1 D4 C9 CE C7  |11);"...........|
00000DB0: 20 C1 D3 C3 C9 C9 22 00  C6 15 8F 02 8B 46 4C B3  | ....."......FL.|
00000DC0: B1 31 A7 36 37 30 00 E0  15 94 02 99 A3 31 34 29  |.1.670.......14)|
00000DD0: 3B 22 11 C1 CE C4 20 D0  D2 C9 CE D4 C9 CE C7 22  |;".... ........"|
00000DE0: 00 FB 15 99 02 99 A3 31  33 29 3B 22 11 48 49 54  |.......13);".HIT|
00000DF0: 20 51 20 54 4F 20 51 55  49 54 22 00 15 16 9E 02  | Q TO QUIT".....|
00000E00: 9F 31 35 2C 44 52 2C 31  35 3A 9F 35 2C 44 52 2C  |.15,DR,15:.5,DR,|
00000E10: 35 2C 22 23 22 00 29 16  A3 02 81 58 B2 42 45 47  |5,"#".)....X.BEG|
00000E20: 20 A4 20 46 49 4E 49 53  48 00 43 16 A8 02 54 B2  | . FINISH.C...T.|
00000E30: 54 4B 28 58 29 3A 53 B2  53 43 28 58 29 3A 44 24  |TK(X):S.SC(X):D$|
00000E40: B2 22 22 00 58 16 AD 02  98 31 35 2C 22 55 31 22  |."".X....15,"U1"|
00000E50: 3B 35 3B 30 3B 54 3B 53  00 70 16 B2 02 A1 23 35  |;5;0;T;S.p....#5|
00000E60: 2C 41 24 3A 54 B2 C6 28  41 24 AA C7 28 30 29 29  |,A$:T..(A$..(0))|
00000E70: 00 88 16 B7 02 A1 23 35  2C 41 24 3A 53 B2 C6 28  |......#5,A$:S..(|
00000E80: 41 24 AA C7 28 30 29 29  00 9E 16 BC 02 A1 23 35  |A$..(0))......#5|
00000E90: 2C 41 24 3A 8B 41 24 B2  22 22 A7 37 32 35 00 B6  |,A$:.A$."".725..|
00000EA0: 16 C1 02 8B C6 28 41 24  29 B2 31 34 31 A7 41 24  |.....(A$).141.A$|
00000EB0: B2 C7 28 31 33 29 00 BF  16 C6 02 8D 37 35 30 00  |..(13)......750.|
00000EC0: D2 16 CB 02 8B C3 28 44  24 29 B2 32 35 34 A7 37  |......(D$).254.7|
00000ED0: 32 35 00 E4 16 D0 02 44  24 B2 44 24 AA 41 24 3A  |25.....D$.D$.A$:|
00000EE0: 89 37 30 30 00 F3 16 D5  02 8B 46 4C B3 B1 31 A7  |.700......FL..1.|
00000EF0: 37 34 30 00 0C 17 DA 02  A1 58 24 3A 8B 58 24 B2  |740......X$:.X$.|
00000F00: 22 51 22 A7 A0 35 3A A0  31 35 3A 8E 00 1F 17 DF  |"Q"..5:.15:.....|
00000F10: 02 8D 37 37 35 3A 8D 38  31 30 3A 89 37 34 35 00  |..775:.810:.745.|
00000F20: 39 17 E4 02 8D 36 30 30  3A 8B 41 24 B2 22 51 22  |9....600:.A$."Q"|
00000F30: A7 A0 35 3A A0 31 35 3A  8E 00 49 17 E9 02 82 58  |..5:.15:..I....X|
00000F40: 3A A0 35 3A A0 31 35 3A  8E 00 55 17 EE 02 8B 53  |:.5:.15:..U....S|
00000F50: 54 B2 30 A7 8E 00 6A 17  F3 02 98 31 35 2C 22 55  |T.0...j....15,"U|
00000F60: 31 22 3B 35 3B 30 3B 54  3B 53 00 82 17 F8 02 A1  |1";5;0;T;S......|
00000F70: 23 35 2C 41 24 3A 54 B2  C6 28 41 24 AA C7 28 30  |#5,A$:T..(A$..(0|
00000F80: 29 29 00 9A 17 FD 02 A1  23 35 2C 41 24 3A 53 B2  |))......#5,A$:S.|
00000F90: C6 28 41 24 AA C7 28 30  29 29 00 A0 17 02 03 8E  |.(A$..(0))......|
00000FA0: 00 D4 17 07 03 4C B2 C3  28 44 24 29 3A 44 44 24  |.....L..(D$):DD$|
00000FB0: B2 22 22 3A 81 43 50 B2  31 A4 4C 3A 43 43 24 B2  |."":.CP.1.L:CC$.|
00000FC0: CA 28 44 24 2C 43 50 2C  31 29 3A 43 41 B2 C6 28  |.(D$,CP,1):CA..(|
00000FD0: 43 43 24 29 00 EA 17 0C  03 8B 43 41 B1 39 36 AF  |CC$)......CA.96.|
00000FE0: 43 41 B3 31 32 33 A7 37  39 35 00 FF 17 11 03 8B  |CA.123.795......|
00000FF0: 43 41 B1 36 34 AF 43 41  B3 39 31 A7 38 30 30 00  |CA.64.CA.91.800.|
00001000: 14 18 16 03 44 44 24 B2  44 44 24 AA 43 43 24 3A  |....DD$.DD$.CC$:|
00001010: 89 38 30 35 00 30 18 1B  03 43 41 B2 43 41 AB 33  |.805.0...CA.CA.3|
00001020: 32 3A 43 43 24 B2 C7 28  43 41 29 3A 89 37 39 30  |2:CC$..(CA):.790|
00001030: 00 4C 18 20 03 43 41 B2  43 41 AA 33 32 3A 43 43  |.L. .CA.CA.32:CC|
00001040: 24 B2 C7 28 43 41 29 3A  89 37 39 30 00 5B 18 25  |$..(CA):.790.[.%|
00001050: 03 82 3A 44 24 B2 44 44  24 3A 8E 00 81 18 2A 03  |..:D$.DD$:....*.|
00001060: 50 52 54 B2 31 3A 9F 34  2C 34 2C 37 3A 98 34 2C  |PRT.1:.4,4,7:.4,|
00001070: 22 20 22 3A 98 34 2C 44  41 54 45 24 28 58 AB 31  |" ":.4,DATE$(X.1|
00001080: 29 00 90 18 2F 03 98 34  2C 44 24 3A A0 34 3A 8E  |).../..4,D$:.4:.|
00001090: 00 99 18 34 03 89 38 32  30 00 B7 18 39 03 8B 50  |...4..820...9..P|
000010A0: 52 54 B2 31 A7 9F 34 2C  34 2C 30 3A 98 34 2C C7  |RT.1..4,4,0:.4,.|
000010B0: 28 31 32 29 3A A0 34 00  CB 18 3E 03 9E 34 39 38  |(12):.4...>..498|
000010C0: 39 33 3A 9E 34 39 37 30  38 3A A2 00 F0 18 43 03  |93:.49708:....C.|
000010D0: 83 36 38 2C 39 37 2C 31  31 36 2C 31 30 31 2C 33  |.68,97,116,101,3|
000010E0: 32 2C 36 36 2C 31 31 31  2C 31 31 31 2C 31 30 37  |2,66,111,111,107|
000010F0: 00 00 00                                          |...             |

..5....644,128:.56,128:.:.53280,2:.53281
,0:.".";G(14).I....".":PRT.0:FL.0.J....T
K(128),SC(128):.DATE$(127).....N.5:.X.1.
8:P(X).N:N.N.32:.X......X.1.9:.N:DB$.DB$
.G(N):.X.J.#..".....";.15);".           
."...(...15);". MAIN MENU ."...-...15);"
.           ..".&.2...8);"....F1 = OPEN 
DATEBOOK FILE".N.7...8);"..F3 = DISPLAY/
PRINT ENTRIES".V.<...8);"..F5 = PRINT EN
TIRE DATEBOOK"...A...8);"..F7 = QUIT TO 
DESKTOP"...F..A$:.A$."".70 .C.K..A$.G(13
3)..100:.35...P..A$.G(134)..370:.35...U.
.A$.G(135)..640:.35...Z..A$.G(136).825..
._..70 .C.D.NUMENT.0:.".................
..........DRIVE";DR.V.I..DR.8.DR.9.100..
.N..15,DR,15:.15,"I0":.15,EN$,EM$,ET$,ES
$: 15...S..EN$."00".135.Y.X.."..........
";.10);EN$,EM$:..8);"..HIT ANY KEY FOR M
AIN MENU"...}..A$:.A$."".125.......'....
"...........";.7);"SEARCHING FOR DATEBOO
K FILE".A....15,DR,15:.5,DR,5,"#"._....S
.1.19:.15,"U1";5;0;18;S......F.1.8:NAME$
."":.15,"B-P";5;P(F)......I.1.9:.#5,A$:.
A$."".A$.G(0)... .A.F(A$):.A.127.A.A.128
.O....A.34.A.63.....NAME$.NAME$.G(A):.:.
NAME$.DB$.200......:..6... 2: 15:.".....
.....";.7);"DATEBOOK FILE NOT ON DISK".F
....".....CHECK DISK; HIT ANY KEY TO CON
TINUE".Y....A$:.A$."".190..C.....H..15,
"B-P";5;P(F).2:.#5,T$:.#5,S$:T.F(T$):S.F
(S$).I.M..15,"U1";5;0;T;S...R..#5,A$:.#5
,A$:X.1...W..#5,A$:.A$."".240......ST..0
.240.....TK(X).F(A$).0....#5,A$:SC(X).F(
A$.G(0)).?...X.X.1:.215.L...."..........
";.11);"FOUND DATEBOOK FILE".......11);"
..READING ENTRY DATES".....T.TK(1):S.SC(
1):X.1......15,"U1";5;0;T;S.S....#5,A$:T
.F(A$.G(0))......#5,A$:S.F(A$.G(0)).....
.#5,A$......I.1.6.)....#5,A$:.I.1.A$."".
NUMENT.X: 5: 15:..<....A$."".A$.G(0).E."
..340.D.'..I.305,315,330,335,335,335...,
..I:DATE$(X).DA$:X.X.1:.275...1.A$.D(F(A
$)):DA$.I(A$,C(A$).1):.C(DA$).2.DA$."0".
DA$.A.6.....;.A$.D(F(A$).1):A$.I(A$,C(A$
).1)...@..C(A$).2.A$."0".A$...E.DA$.A$."
/".DA$:....J.DA$.DA$."/".G(F(A$).48):..H
.O.DA$.DA$.G(F(A$).48):..T.T..ST.0...I.Y
..15,"U1";5;0;T;S...^..#5,A$:T.F(A$.G(0)
)...C..#5,A$:S.F(A$.G(0))...H.....M. 5: 
15:....R..NUMENT..0.405...W.."........";
.8);"NO ENTRY DATES IN MEMORY"...|..".."
;.9);"CHOOSE F1 AT MAIN MENU".7.....9);"
TO OPEN DATEBOOK FILE.".B...."..";.7);"H
IT ANY KEY TO CONTINUE...".U....A$:.A$."
".395.{.........PTR.1......"..":.X.PTR.P
TR.4......X.NUMENT..X:.435......X.5.NUME
NT..".";.5);DATE$(X):.X:.435......".";.5
);DATE$(X);.25);DATE$(X.10)......X.>....
"...ENTER . MO/DA/YR . TO DISPLAY/PRINT 
ENTRY".O...."....ENTER . MO/YR . TO PRIN
T ENTIRE MONTH"......".....HIT . RETURN 
. FOR MORE ENTRY DATES".O.B.."........EN
TER . M . FOR MAIN MENU.":A$.""...G.."..
............";A$...L..A$."M". ....Q..C(A
$).8..545:.410.%.V..C(A$).5..510:.410.5.
...A$.."".410.O....X.9.NUMENT..490:.405.
A...PTR.X.10:.410......"..........";.13)
;"NO MORE ENTRIES".......8);"..HIT ANY K
EY TO CONTINUE...".E....A$:.A$."".500.K.
........N.1:.X.1.NUMENT......H(DATE$(X),
2)..H(A$,2).535.!....J(DATE$(X),9,2)..I(
A$,2).535.2....N.1.BEG.X.1.H...N.X.1:.DA
TE$(N.1).[....X:.N.1..580:..O...FINISH.N
:.650:....!.N.1:.X.1. NUMENT...&..H(DATE
$(X),5)..H(A$,5).570.D.+..I(DATE$(X),2).
.I(A$,2).570.U.0..N.1.BEG.X.1...5.N.X.1:
.DATE$(N.1)...:..X:.N.1..580:....?.FINIS
H.N:.650:..F.D.."..........";.6);"NO ENT
RIES FOR DATE ENTERED".K.I...8);"..HIT A
NY KEY TO CONTINUE".~.N..A$:.A$."".590..
.S.....X..775...].."..";.15);DATE$(X.1);
".."...B..D$.Q.G...13);"..HIT P TO PRINT
"...I...13);".HIT Q TO QUIT"...L...6);".
OR ANY OTHER KEY TO CONTINUE".(.Q..A$:.A
$."".625.9.S..A$."P"..810.G.V..A$."Q"...
M.{...B....NUMENT.0..375:......FL.1:BEG.
2:FINISH.NUMENT:.650:FL.0:......."......
.....";.11);"TRANSLATING ASCII".F....FL.
.1.670.......14);".AND PRINTING".......1
3);".HIT Q TO QUIT"......15,DR,15:.5,DR,
5,"#".)....X.BEG . FINISH.C...T.TK(X):S.
SC(X):D$."".X....15,"U1";5;0;T;S.P....#5
,A$:T.F(A$.G(0))......#5,A$:S.F(A$.G(0))
......#5,A$:.A$."".725...A..F(A$).141.A$
.G(13)...F..750.R.K..C(D$).254.725...P.D
$.D$.A$:.700...U..FL..1.740...Z..X$:.X$.
"Q". 5: 15:.......775:.810:.745.9....600
:.A$."Q". 5: 15:..I....X: 5: 15:..U....S
T.0...J....15,"U1";5;0;T;S......#5,A$:T.
F(A$.G(0))......#5,A$:S.F(A$.G(0)). ....
.T...L.C(D$):DD$."":.CP.1.L:CC$.J(D$,CP,
1):CA.F(CC$)......CA.96.CA.123.795......
CA.64.CA.91.800.....DD$.DD$.CC$:.805.0..
.CA.CA.32:CC$.G(CA):.790.L. .CA.CA.32:CC
$.G(CA):.790.[.%..:D$.DD$:....*.PRT.1:.4
,4,7:.4," ":.4,DATE$(X.1).../..4,D$: 4:.
...4..820...9..PRT.1..4,4,0:.4,G(12): 4.
K.>..49893:.49708:....C..68,97,116,101,3
2,66,111,111,107...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL