AGENDA
FILE INFORMATION
FILENAME(S): AGENDA
FILE TYPE(S): PRG
FILE SIZE: 5.2K
FIRST SEEN: 2025-11-30 21:08:14
APPEARS ON: 1 disk(s)
FILE HASH
5880807a2233ae9f7f65cdefc5bc39694a51e2ac30ff4d3884ed7fd2ce82e59d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ADMINISTRATIEF | AGENDA | PRG | DuncanTwain | 4 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2C 08 01 00 8F 20 44 42 4F 4F 4B 20 43 4F |..,.... DBOOK CO|
00000010: 50 59 52 49 47 48 54 20 28 43 29 20 31 39 37 39 |PYRIGHT (C) 1979|
00000020: 20 47 4C 45 4E 20 46 49 53 48 45 52 00 49 08 02 | GLEN FISHER.I..|
00000030: 00 8F 20 43 55 52 53 4F 52 20 23 38 2C 20 4D 41 |.. CURSOR #8, MA|
00000040: 52 43 48 2C 20 31 39 37 39 00 6A 08 03 00 8F 20 |RCH, 1979.j.... |
00000050: 42 4F 58 20 35 35 30 2C 20 47 4F 4C 45 54 41 2C |BOX 550, GOLETA,|
00000060: 20 43 41 2E 20 39 33 30 31 37 00 70 08 04 00 3A | CA. 93017.p...:|
00000070: 00 8F 08 5A 00 50 47 24 B2 22 44 42 4F 4F 4B 22 |...Z.PG$."DBOOK"|
00000080: 3A 4E 4D 24 B2 22 38 22 3A 8D 36 32 30 30 30 00 |:NM$."8":.62000.|
00000090: D8 08 64 00 4D 58 B2 35 30 3A 43 4D B2 39 3A 4F |..d.MX.50:CM.9:O|
000000A0: 43 B2 32 3A 86 4E 24 28 4D 58 29 2C 44 25 28 4D |C.2:.N$(MX),D%(M|
000000B0: 58 29 2C 4F 25 28 4D 58 29 2C 50 25 28 4D 58 29 |X),O%(MX),P%(MX)|
000000C0: 2C 4D 4E 24 28 31 32 29 2C 43 4D 24 28 43 4D 29 |,MN$(12),CM$(CM)|
000000D0: 2C 4F 43 24 28 4F 43 29 00 E6 08 6E 00 43 52 24 |,OC$(OC)...n.CR$|
000000E0: B2 C7 28 31 33 29 00 FC 08 78 00 81 49 B2 31 A4 |..(13)...x..I.1.|
000000F0: 31 32 3A 87 4D 4E 24 28 49 29 3A 82 00 27 09 82 |12:.MN$(I):..'..|
00000100: 00 83 4A 41 4E 55 41 52 59 2C 46 45 42 52 55 41 |..JANUARY,FEBRUA|
00000110: 52 59 2C 4D 41 52 43 48 2C 41 50 52 49 4C 2C 4D |RY,MARCH,APRIL,M|
00000120: 41 59 2C 4A 55 4E 45 00 5C 09 8C 00 83 4A 55 4C |AY,JUNE.\....JUL|
00000130: 59 2C 41 55 47 55 53 54 2C 53 45 50 54 45 4D 42 |Y,AUGUST,SEPTEMB|
00000140: 45 52 2C 4F 43 54 4F 42 45 52 2C 4E 4F 56 45 4D |ER,OCTOBER,NOVEM|
00000150: 42 45 52 2C 44 45 43 45 4D 42 45 52 00 73 09 96 |BER,DECEMBER.s..|
00000160: 00 81 49 B2 31 A4 43 4D 3A 87 43 4D 24 28 49 29 |..I.1.CM:.CM$(I)|
00000170: 3A 82 49 00 A5 09 A0 00 83 41 44 44 2C 43 4C 45 |:.I......ADD,CLE|
00000180: 41 52 2C 44 55 4D 50 2C 45 44 49 54 2C 4C 49 53 |AR,DUMP,EDIT,LIS|
00000190: 54 2C 4C 4F 41 44 2C 51 55 49 54 2C 53 41 56 45 |T,LOAD,QUIT,SAVE|
000001A0: 2C 53 4F 52 54 00 BC 09 AA 00 81 49 B2 31 A4 4F |,SORT......I.1.O|
000001B0: 43 3A 87 4F 43 24 28 49 29 3A 82 49 00 DA 09 B4 |C:.OC$(I):.I....|
000001C0: 00 83 22 42 C9 D2 D4 C8 C4 C1 D9 22 2C 22 41 CE |.."B.......","A.|
000001D0: CE C9 D6 C5 D2 D3 C1 D2 D9 22 00 E8 09 84 03 4E |.........".....N|
000001E0: 43 B2 30 3A 53 56 B2 31 00 13 0A E8 03 46 4C B2 |C.0:SV.1.....FL.|
000001F0: 30 3A 99 22 43 CF CD CD C1 CE C4 3F 20 22 3B 3A |0:."C......? ";:|
00000200: 8D 36 30 30 30 30 3A 8B 49 4E 24 B2 22 22 A7 31 |.60000:.IN$."".1|
00000210: 30 30 30 00 2B 0A F2 03 5A 43 B2 31 3A 5A 4E B2 |000.+...ZC.1:ZN.|
00000220: 30 3A 5A 4C B2 C3 28 49 4E 24 29 00 56 0A FC 03 |0:ZL..(IN$).V...|
00000230: 81 49 B2 31 A4 43 4D 3A 8B C8 28 43 4D 24 28 49 |.I.1.CM:..(CM$(I|
00000240: 29 2C 5A 4C 29 B2 49 4E 24 A7 5A 4E B2 49 3A 5A |),ZL).IN$.ZN.I:Z|
00000250: 43 B2 5A 43 AA 31 00 81 0A 06 04 82 49 3A 91 5A |C.ZC.1......I:.Z|
00000260: 43 89 31 30 34 30 2C 31 31 30 30 3A 99 22 4E CF |C.1040,1100:."N.|
00000270: D4 20 D5 CE C9 D1 D5 C5 2E 22 3B 3A 89 31 30 35 |. .......";:.105|
00000280: 30 00 A2 0A 10 04 8B 49 4E 24 B3 B1 22 3F 22 A7 |0......IN$.."?".|
00000290: 99 22 4E CF D4 20 C1 20 C3 CF CD CD C1 CE C4 2E |."N.. . ........|
000002A0: 22 3B 00 B8 0A 1A 04 99 22 20 43 CF CD CD C1 CE |";......" C.....|
000002B0: C4 D3 A0 C1 D2 C5 3A 22 00 D9 0A 24 04 81 49 B2 |......:"...$..I.|
000002C0: 31 A4 43 4D 3A 8B B9 28 30 29 AA C3 28 43 4D 24 |1.CM:..(0)..(CM$|
000002D0: 28 49 29 29 B1 33 38 A7 99 00 F5 0A 2E 04 99 43 |(I)).38........C|
000002E0: 4D 24 28 49 29 3B 22 20 22 3B 3A 82 49 3A 99 3A |M$(I);" ";:.I:.:|
000002F0: 89 31 30 30 30 00 2A 0B 4C 04 91 5A 4E 89 32 30 |.1000.*.L..ZN.20|
00000300: 30 30 2C 31 39 30 30 2C 32 31 30 30 2C 33 30 30 |00,1900,2100,300|
00000310: 30 2C 37 36 30 30 2C 35 30 30 30 2C 36 30 30 30 |0,7600,5000,6000|
00000320: 2C 34 30 30 30 2C 37 30 30 30 00 34 0B B0 04 89 |,4000,7000.4....|
00000330: 31 30 30 30 00 43 0B 6C 07 4E 43 B2 30 3A 89 31 |1000.C.l.NC.0:.1|
00000340: 30 30 30 00 6F 0B D0 07 8B 4E 43 B2 4D 58 A7 99 |000.o....NC.MX..|
00000350: 22 4E CF A0 D2 CF CF CD A0 C6 CF D2 A0 CD CF D2 |"N..............|
00000360: C5 20 CE C1 CD C5 D3 2E 22 3A 89 31 30 30 30 00 |. ......":.1000.|
00000370: A7 0B E4 07 4E 43 B2 4E 43 AA 31 3A 99 22 11 20 |....NC.NC.1:.". |
00000380: 20 50 C5 D2 D3 CF CE 22 3B 4E 43 3A 8D 35 30 31 | P.....";NC:.501|
00000390: 30 30 3A 8B 4E 24 B2 22 22 A7 4E 43 B2 4E 43 AB |00:.N$."".NC.NC.|
000003A0: 31 3A 89 31 30 30 30 00 D8 0B EE 07 53 56 B2 30 |1:.1000.....SV.0|
000003B0: 3A 4E 50 B2 AB 31 3A 4E 24 28 4E 43 29 B2 4E 24 |:NP..1:N$(NC).N$|
000003C0: 3A 44 25 28 4E 43 29 B2 44 3A 4F 25 28 4E 43 29 |:D%(NC).D:O%(NC)|
000003D0: B2 4F 3A 89 32 30 32 30 00 F5 0B 34 08 8B 4E 43 |.O:.2020...4..NC|
000003E0: B2 30 A7 99 22 4E CF 20 CE C1 CD C5 D3 2E 22 3A |.0.."N. ......":|
000003F0: 89 31 30 30 30 00 21 0C 48 08 53 5A B2 35 3A 4C |.1000.!.H.SZ.5:L|
00000400: 4E B2 30 3A 81 49 B2 31 A4 4E 43 3A 8D 35 30 33 |N.0:.I.1.NC:.503|
00000410: 30 30 3A 99 22 11 20 20 50 C5 D2 D3 CF CE 22 3B |00:.". P.....";|
00000420: 49 00 50 0C 52 08 4E 24 B2 4E 24 28 49 29 3A 44 |I.P.R.N$.N$(I):D|
00000430: B2 44 25 28 49 29 3A 4F B2 4F 25 28 49 29 3A 8D |.D%(I):O.O%(I):.|
00000440: 35 30 32 30 30 3A 82 49 3A 99 3A 89 31 30 30 30 |50200:.I:.:.1000|
00000450: 00 73 0C B8 0B 45 50 B2 31 3A 8B 45 50 B1 4E 43 |.s...EP.1:.EP.NC|
00000460: A7 99 22 4E CF A0 CE C1 CD C5 D3 2E 22 3A 89 31 |.."N........":.1|
00000470: 30 30 30 00 AA 0C CC 0B 99 22 11 20 20 50 C5 D2 |000......". P..|
00000480: D3 CF CE 22 3B 45 50 3A 4E 24 B2 4E 24 28 45 50 |...";EP:N$.N$(EP|
00000490: 29 3A 44 B2 44 25 28 45 50 29 3A 4F B2 4F 25 28 |):D.D%(EP):O.O%(|
000004A0: 45 50 29 3A 8D 35 30 32 30 30 00 D3 0C E0 0B 46 |EP):.50200.....F|
000004B0: 4C B2 30 3A 99 22 43 C8 C1 CE C7 C5 3F 20 22 3B |L.0:."C.....? ";|
000004C0: 3A 8D 36 30 30 30 30 3A 54 24 B2 C8 28 49 4E 24 |:.60000:T$..(IN$|
000004D0: 2C 31 29 00 03 0D EA 0B 8D 35 39 30 30 30 3A 8B |,1)......59000:.|
000004E0: 59 4E B2 31 A7 4E B2 C5 28 49 4E 24 29 3A 8B 4E |YN.1.N..(IN$):.N|
000004F0: B1 30 AF 4E B3 B2 4E 43 A7 45 50 B2 4E 3A 89 33 |.0.N..NC.EP.N:.3|
00000500: 30 32 30 00 26 0D EF 0B 8B 59 4E B2 31 A7 99 22 |020.&....YN.1.."|
00000510: 4E CF A0 D3 D5 C3 C8 A0 D0 C5 D2 D3 CF CE 2E 22 |N.............."|
00000520: 3A 89 33 30 34 30 00 66 0D F4 0B 8B 54 24 B2 22 |:.3040.f....T$."|
00000530: 59 22 A7 8D 35 30 31 30 30 3A 4E 24 28 45 50 29 |Y"..50100:N$(EP)|
00000540: B2 4E 24 3A 44 25 28 45 50 29 B2 44 3A 4F 25 28 |.N$:D%(EP).D:O%(|
00000550: 45 50 29 B2 4F 3A 53 56 B2 30 3A 4E 50 B2 AB 31 |EP).O:SV.0:NP..1|
00000560: 3A 89 33 30 32 30 00 77 0D F9 0B 8B 54 24 B2 22 |:.3020.w....T$."|
00000570: 51 22 A7 31 30 30 30 00 8F 0D FE 0B 8B 54 24 B2 |Q".1000......T$.|
00000580: 22 4E 22 B0 49 4E 24 B2 22 22 A7 33 30 39 30 00 |"N".IN$."".3090.|
00000590: BF 0D 03 0C 8B 54 24 B2 22 44 22 A7 8D 33 35 30 |.....T$."D"..350|
000005A0: 30 3A 53 56 B2 30 3A 4E 50 B2 AB 31 3A 91 B4 28 |0:SV.0:NP..1:..(|
000005B0: 45 50 29 AA 31 89 31 30 30 30 2C 33 30 32 30 00 |EP).1.1000,3020.|
000005C0: D0 0D 08 0C 8B 54 24 B2 22 3F 22 A7 33 32 30 30 |.....T$."?".3200|
000005D0: 00 E2 0D 0D 0C 99 22 48 D5 C8 3F 22 3A 89 33 30 |......"H..?":.30|
000005E0: 34 30 00 FA 0D 12 0C 45 50 B2 45 50 AA 31 3A 8B |40.....EP.EP.1:.|
000005F0: 45 50 B1 4E 43 A7 31 30 30 30 00 04 0E 1C 0C 89 |EP.NC.1000......|
00000600: 33 30 32 30 00 41 0E 80 0C 99 22 43 C8 CF C9 C3 |3020.A...."C....|
00000610: C5 D3 A0 C1 D2 C5 3A 22 3A 99 22 59 20 20 20 43 |......:":."Y C|
00000620: C8 C1 CE C7 C5 20 D4 C8 C9 D3 20 C5 CE D4 D2 D9 |..... .... .....|
00000630: 22 3A 99 22 4E 20 CF D2 A0 12 52 45 54 55 52 4E |":."N ....RETURN|
00000640: 22 00 77 0E 94 0C 99 22 20 20 20 20 4C C5 C1 D6 |".w...." L...|
00000650: C5 20 C9 D4 20 C1 CC CF CE C5 22 3A 99 22 51 20 |. .. .....":."Q |
00000660: 20 20 52 C5 D4 D5 D2 CE A0 D4 CF A0 27 43 CF CD | R.........'C..|
00000670: CD C1 CE C4 3F 27 22 00 AC 0E A8 0C 99 22 44 20 |....?'"......"D |
00000680: 20 20 44 C9 D3 C3 C1 D2 C4 20 D4 C8 C9 D3 20 C5 | D...... .... .|
00000690: CE D4 D2 D9 22 3A 99 22 3F 20 20 20 50 D2 C9 CE |....":."? P...|
000006A0: D4 20 D4 C8 C9 D3 20 CC C9 D3 D4 22 00 E0 0E C6 |. .... ...."....|
000006B0: 0C 99 22 D3 CF CD C5 20 CE D5 CD C2 C5 D2 22 3A |..".... ......":|
000006C0: 99 22 20 20 20 20 4D CF D6 C5 A0 D4 CF 20 D4 C8 |." M...... ..|
000006D0: C1 D4 20 D0 C5 D2 D3 CF CE 22 3A 89 33 30 32 30 |.. ......":.3020|
000006E0: 00 F9 0E AC 0D 4E 43 B2 4E 43 AB 31 3A 8B 45 50 |.....NC.NC.1:.EP|
000006F0: B3 B2 4E 43 A7 33 36 30 30 00 19 0F B6 0D 8B 4E |..NC.3600......N|
00000700: 43 B2 30 A7 99 22 41 CC CC A0 CE C1 CD C5 D3 20 |C.0.."A........ |
00000710: C4 C5 CC C5 D4 C5 C4 2E 22 00 25 0F C0 0D 45 50 |........".%...EP|
00000720: B2 4E 43 3A 8E 00 61 0F 10 0E 81 49 B2 45 50 A4 |.NC:..a....I.EP.|
00000730: 4E 43 3A 4A B2 49 AA 31 3A 4E 24 28 49 29 B2 4E |NC:J.I.1:N$(I).N|
00000740: 24 28 4A 29 3A 44 25 28 49 29 B2 44 25 28 4A 29 |$(J):D%(I).D%(J)|
00000750: 3A 4F 25 28 49 29 B2 4F 25 28 4A 29 3A 82 49 3A |:O%(I).O%(J):.I:|
00000760: 8E 00 7E 0F A0 0F 8B 4E 43 B2 30 A7 99 22 4E CF |..~....NC.0.."N.|
00000770: 20 CE C1 CD C5 D3 2E 22 3A 89 31 30 30 30 00 9E | ......":.1000..|
00000780: 0F B4 0F 46 4C B2 30 3A 99 22 46 C9 CC C5 20 CE |...FL.0:."F... .|
00000790: C1 CD C5 3F 20 22 3B 3A 8D 36 30 30 30 30 00 AF |...? ";:.60000..|
000007A0: 0F BE 0F 8B 49 4E 24 B2 22 22 A7 31 30 30 30 00 |....IN$."".1000.|
000007B0: BA 0F C8 0F 46 24 B2 49 4E 24 00 DF 0F 04 10 9F |....F$.IN$......|
000007C0: 31 2C 31 2C 31 2C 46 24 3A 98 31 2C 4E 43 3A 58 |1,1,1,F$:.1,NC:X|
000007D0: 24 B2 C7 28 31 29 3A 51 24 B2 C7 28 33 34 29 00 |$..(1):Q$..(34).|
000007E0: 13 10 18 10 81 49 B2 31 A4 4E 43 3A 53 24 B2 4E |.....I.1.NC:S$.N|
000007F0: 24 28 49 29 3A 44 B2 44 25 28 49 29 3A 4F B2 4F |$(I):D.D%(I):O.O|
00000800: 25 28 49 29 3A 99 22 2E 22 3B 3A 8D 34 32 30 30 |%(I):.".";:.4200|
00000810: 3A 82 49 00 27 10 2C 10 A0 31 3A 99 3A 53 56 B2 |:.I.'.,..1:.:SV.|
00000820: 31 3A 89 31 30 30 30 00 3C 10 68 10 54 24 B2 22 |1:.1000.<.h.T$."|
00000830: 22 3A 81 4A B2 31 A4 C3 28 53 24 29 00 72 10 7C |":.J.1..(S$).r.||
00000840: 10 3A 43 24 B2 CA 28 53 24 2C 4A 2C 31 29 3A 8B |.:C$..(S$,J,1):.|
00000850: 43 24 B2 22 3A 22 B0 43 24 B2 51 24 B0 43 24 B2 |C$.":".C$.Q$.C$.|
00000860: 22 2C 22 A7 43 24 B2 C7 28 36 35 AA C6 28 43 24 |",".C$..(65..(C$|
00000870: 29 29 00 83 10 90 10 3A 54 24 B2 54 24 AA 43 24 |)).....:T$.T$.C$|
00000880: 3A 82 4A 00 B1 10 CC 10 54 B2 54 49 3A 98 31 2C |:.J.....T.TI:.1,|
00000890: 51 24 3B 54 24 3B 51 24 3B 22 2C 22 3B C4 28 44 |Q$;T$;Q$;",";.(D|
000008A0: 29 3B 22 2C 22 3B C4 28 4F 29 3A 54 B2 54 49 AB |);",";.(O):T.TI.|
000008B0: 54 00 BD 10 D6 10 8B 54 B3 31 30 A7 8E 00 D3 10 |T......T.10.....|
000008C0: E0 10 97 35 39 34 31 31 2C 35 33 3A 54 B2 54 49 |...59411,53:T.TI|
000008D0: AA 32 30 00 E2 10 EA 10 8B 54 49 B3 54 A7 34 33 |.20......TI.T.43|
000008E0: 33 30 00 F2 10 F4 10 97 35 39 34 31 31 2C 36 31 |30......59411,61|
000008F0: 3A 8E 00 2E 11 88 13 99 22 46 C9 CC C5 20 CE C1 |:......."F... ..|
00000900: CD C5 20 28 3F 20 C9 C6 20 D5 CE CB CE CF D7 CE |.. (? .. .......|
00000910: 29 3F 20 22 3B 3A 46 4C B2 30 3A 8D 36 30 30 30 |)? ";:FL.0:.6000|
00000920: 30 3A 8B 49 4E 24 B2 22 22 A7 31 30 30 30 00 42 |0:.IN$."".1000.B|
00000930: 11 98 13 8B 49 4E 24 B2 22 3F 22 A7 49 4E 24 B2 |....IN$."?".IN$.|
00000940: 22 22 00 6B 11 9C 13 4D B2 30 3A 9F 31 2C 31 2C |"".k...M.0:.1,1,|
00000950: 30 2C 49 4E 24 3A 84 31 2C 46 43 3A 8B 46 43 AA |0,IN$:.1,FC:.FC.|
00000960: 4E 43 B3 B2 4D 58 A7 35 31 30 30 00 A0 11 BA 13 |NC..MX.5100.....|
00000970: 99 22 4E CF D4 A0 C5 CE CF D5 C7 C8 A0 D2 CF CF |."N.............|
00000980: CD A0 C6 CF D2 A0 C1 CC CC A0 D3 C1 D6 C5 C4 20 |............... |
00000990: CE C1 CD C5 D3 2E 22 3A A0 31 3A 89 31 30 30 30 |......":.1:.1000|
000009A0: 00 C2 11 EC 13 81 4D B2 4E 43 AA 31 A4 4E 43 AA |......M.NC.1.NC.|
000009B0: 46 43 3A 84 31 2C 54 24 2C 44 2C 4F 3A 99 22 2E |FC:.1,T$,D,O:.".|
000009C0: 22 3B 00 E8 11 14 14 8D 35 32 30 30 3A 4E 24 28 |";......5200:N$(|
000009D0: 4D 29 B2 54 24 3A 44 25 28 4D 29 B2 44 3A 4F 25 |M).T$:D%(M).D:O%|
000009E0: 28 4D 29 B2 4F 3A 82 4D 00 0E 12 28 14 4E 50 B2 |(M).O:.M...(.NP.|
000009F0: AB 31 3A 4E 43 B2 4E 43 AA 46 43 3A A0 31 3A 99 |.1:NC.NC.FC:.1:.|
00000A00: 3A 3A 8B 4E 43 B3 B1 46 43 A7 53 56 B2 30 00 18 |::.NC..FC.SV.0..|
00000A10: 12 32 14 89 31 30 30 30 00 2D 12 50 14 53 24 B2 |.2..1000.-.P.S$.|
00000A20: 22 22 3A 81 49 B2 31 A4 C3 28 54 24 29 00 62 12 |"":.I.1..(T$).b.|
00000A30: 64 14 3A 43 24 B2 CA 28 54 24 2C 49 2C 31 29 3A |d.:C$..(T$,I,1):|
00000A40: 8B C6 28 43 24 29 B1 39 35 AF C6 28 43 24 29 B3 |..(C$).95..(C$).|
00000A50: 31 32 38 A7 43 24 B2 C7 28 C6 28 43 24 29 AB 36 |128.C$..(.(C$).6|
00000A60: 35 29 00 75 12 6E 14 3A 53 24 B2 53 24 AA 43 24 |5).u.n.:S$.S$.C$|
00000A70: 3A 82 49 3A 8E 00 A2 12 70 17 8B 53 56 B2 30 A7 |:.I:....p..SV.0.|
00000A80: 99 22 4E C1 CD C5 D3 20 CE CF D4 20 D9 C5 D4 20 |."N.... ... ... |
00000A90: D3 C1 D6 C5 C4 2E 22 3A 53 56 B2 31 3A 89 31 30 |......":SV.1:.10|
00000AA0: 30 30 00 A8 12 84 17 80 00 C5 12 58 1B 8B 4E 43 |00.........X..NC|
00000AB0: B2 30 A7 99 22 4E CF 20 CE C1 CD C5 D3 2E 22 3A |.0.."N. ......":|
00000AC0: 89 31 30 30 30 00 F9 12 6C 1B 99 22 42 D9 A0 CE |.1000...l.."B...|
00000AD0: C1 CD C5 A0 28 31 29 2C 20 CF D2 A0 C2 D9 20 C4 |....(1), ..... .|
00000AE0: C1 D4 C5 20 28 32 29 3F 20 22 3B 3A 8D 36 30 30 |... (2)? ";:.600|
00000AF0: 30 30 3A 8D 35 39 30 30 30 00 21 13 76 1B 8B 59 |00:.59000.!.v..Y|
00000B00: 4E B2 31 A7 42 59 B2 C5 28 49 4E 24 29 3A 8B 42 |N.1.BY..(IN$):.B|
00000B10: 59 B1 30 A7 91 42 59 89 37 31 30 30 2C 37 32 30 |Y.0..BY.7100,720|
00000B20: 30 00 3D 13 80 1B 99 22 54 D9 D0 C5 A0 C1 A0 31 |0.=...."T......1|
00000B30: 20 CF D2 A0 32 2E 22 3A 89 37 30 32 30 00 69 13 | ...2.":.7020.i.|
00000B40: BC 1B 99 22 46 D2 CF CD 3A 20 22 3B 3A 8D 36 30 |..."F...: ";:.60|
00000B50: 30 30 30 3A 46 24 B2 49 4E 24 3A 8B 46 24 B2 22 |000:F$.IN$:.F$."|
00000B60: 22 A7 46 24 B2 C7 28 30 29 00 95 13 C6 1B 99 22 |".F$..(0)......"|
00000B70: 54 CF 3A 20 22 3B 3A 8D 36 30 30 30 30 3A 54 24 |T.: ";:.60000:T$|
00000B80: B2 49 4E 24 3A 8B 54 24 B2 22 22 A7 54 24 B2 C7 |.IN$:.T$."".T$..|
00000B90: 28 32 35 35 29 00 B2 13 D0 1B 8B 46 24 B1 54 24 |(255)......F$.T$|
00000BA0: A7 58 24 B2 46 24 3A 46 24 B2 54 24 3A 54 24 B2 |.X$.F$:F$.T$:T$.|
00000BB0: 58 24 00 C8 13 D5 1B 46 4C B2 C3 28 46 24 29 3A |X$.....FL..(F$):|
00000BC0: 54 4C B2 C3 28 54 24 29 00 FC 13 E4 1B 4E 50 B2 |TL..(T$).....NP.|
00000BD0: 30 3A 81 49 B2 31 A4 4E 43 3A 4E 24 B2 4E 24 28 |0:.I.1.NC:N$.N$(|
00000BE0: 49 29 3A 8B 4F 25 28 49 29 B1 31 A7 4E 24 B2 C8 |I):.O%(I).1.N$..|
00000BF0: 28 4E 24 2C 4F 25 28 49 29 AB 31 29 00 2D 14 EE |(N$,O%(I).1).-..|
00000C00: 1B 3A 8B 46 24 B3 B2 C8 28 4E 24 2C 46 4C 29 AF |.:.F$...(N$,FL).|
00000C10: C8 28 4E 24 2C 54 4C 29 B3 B2 54 24 A7 4E 50 B2 |.(N$,TL)..T$.NP.|
00000C20: 4E 50 AA 31 3A 50 25 28 4E 50 29 B2 49 00 3B 14 |NP.1:P%(NP).I.;.|
00000C30: F8 1B 3A 82 49 3A 89 37 35 30 30 00 55 14 20 1C |..:.I:.7500.U. .|
00000C40: 99 22 46 D2 CF CD 20 22 3B 3A 8D 35 30 30 30 30 |."F... ";:.50000|
00000C50: 3A 46 44 B2 44 00 7B 14 2A 1C 99 22 54 CF 20 22 |:FD.D.{.*.."T. "|
00000C60: 3B 3A 8D 35 30 30 30 30 3A 54 44 B2 44 3A 8B 54 |;:.50000:TD.D:.T|
00000C70: 44 B2 30 A7 54 44 B2 31 33 30 30 00 96 14 34 1C |D.0.TD.1300...4.|
00000C80: 8B 46 44 B1 54 44 A7 58 B2 46 44 3A 46 44 B2 54 |.FD.TD.X.FD:FD.T|
00000C90: 44 3A 54 44 B2 58 00 CD 14 48 1C 4E 50 B2 30 3A |D:TD.X...H.NP.0:|
00000CA0: 81 49 B2 31 A4 4E 43 3A 8B 46 44 B3 B2 44 25 28 |.I.1.NC:.FD..D%(|
00000CB0: 49 29 AF 44 25 28 49 29 B3 B2 54 44 A7 4E 50 B2 |I).D%(I)..TD.NP.|
00000CC0: 4E 50 AA 31 3A 50 25 28 4E 50 29 B2 49 00 DB 14 |NP.1:P%(NP).I...|
00000CD0: 52 1C 3A 82 49 3A 89 37 35 30 30 00 F1 14 84 1C |R.:.I:.7500.....|
00000CE0: 46 24 B2 4E 24 28 46 29 3A 54 24 B2 4E 24 28 54 |F$.N$(F):T$.N$(T|
00000CF0: 29 00 03 15 8E 1C 43 50 B2 31 3A 8B 46 24 B1 54 |).....CP.1:.F$.T|
00000D00: 24 A7 8E 00 15 15 98 1C 43 50 B2 30 3A 8B 46 24 |$.......CP.0:.F$|
00000D10: B2 54 24 A7 8E 00 21 15 A2 1C 43 50 B2 AB 31 3A |.T$...!...CP..1:|
00000D20: 8E 00 37 15 E8 1C 46 44 B2 44 25 28 46 29 3A 54 |..7...FD.D%(F):T|
00000D30: 44 B2 44 25 28 54 29 00 49 15 F2 1C 43 50 B2 31 |D.D%(T).I...CP.1|
00000D40: 3A 8B 46 44 B1 54 44 A7 8E 00 5B 15 FC 1C 43 50 |:.FD.TD...[...CP|
00000D50: B2 30 3A 8B 46 44 B2 54 44 A7 8E 00 67 15 06 1D |.0:.FD.TD...g...|
00000D60: 43 50 B2 AB 31 3A 8E 00 8B 15 4C 1D 99 22 4E CF |CP..1:....L.."N.|
00000D70: D7 20 D3 CF D2 D4 C9 CE C7 22 3A 8F 20 49 4E 53 |. .......":. INS|
00000D80: 45 52 54 49 4F 4E 20 53 4F 52 54 00 A6 15 56 1D |ERTION SORT...V.|
00000D90: 81 4E 53 B2 31 A4 4E 50 3A 4E B2 4E 53 3A 54 B2 |.NS.1.NP:N.NS:T.|
00000DA0: 50 25 28 4E 53 29 00 B5 15 6A 1D 8B 4E B3 B2 31 |P%(NS)...j..N..1|
00000DB0: A7 37 35 37 30 00 D2 15 74 1D 3A 46 B2 50 25 28 |.7570...t.:F.P%(|
00000DC0: 4E AB 31 29 3A 91 42 59 8D 37 33 30 30 2C 37 34 |N.1):.BY.7300,74|
00000DD0: 30 30 00 E3 15 7E 1D 3A 8B 43 50 B3 B2 30 A7 37 |00...~.:.CP..0.7|
00000DE0: 35 37 30 00 03 16 88 1D 3A 3A 50 25 28 4E 29 B2 |570.....::P%(N).|
00000DF0: 50 25 28 4E AB 31 29 3A 4E B2 4E AB 31 3A 89 37 |P%(N.1):N.N.1:.7|
00000E00: 35 33 30 00 10 16 92 1D 3A 50 25 28 4E 29 B2 54 |530.....:P%(N).T|
00000E10: 00 1E 16 9C 1D 82 4E 53 3A 89 31 30 30 30 00 42 |......NS:.1000.B|
00000E20: 16 B0 1D 8B 4E 50 B3 30 A7 99 22 4C C9 D3 D4 20 |....NP.0.."L... |
00000E30: CE CF D4 20 D3 CF D2 D4 C5 C4 2E 22 3A 89 31 30 |... .......":.10|
00000E40: 30 30 00 5F 16 BA 1D 8B 4E 50 B2 30 A7 99 22 4E |00._....NP.0.."N|
00000E50: CF 20 CE C1 CD C5 D3 2E 22 3A 89 31 30 30 30 00 |. ......":.1000.|
00000E60: 84 16 C4 1D 4C 4E B2 30 3A 53 5A B2 34 3A 81 49 |....LN.0:SZ.4:.I|
00000E70: B2 31 A4 4E 50 3A 4E B2 50 25 28 49 29 3A 8D 35 |.1.NP:N.P%(I):.5|
00000E80: 30 33 30 30 00 AA 16 CE 1D 4E 24 B2 4E 24 28 4E |0300.....N$.N$(N|
00000E90: 29 3A 44 B2 44 25 28 4E 29 3A 4F B2 4F 25 28 4E |):D.D%(N):O.O%(N|
00000EA0: 29 3A 99 3A 8D 35 30 32 30 30 00 B9 16 D8 1D 82 |):.:.50200......|
00000EB0: 49 3A 99 3A 89 31 30 30 30 00 E3 16 50 C3 46 4C |I:.:.1000...P.FL|
00000EC0: B2 30 3A 99 22 4D CF CE D4 C8 3A 20 22 3B 3A 8D |.0:."M....: ";:.|
00000ED0: 36 30 30 30 30 3A 8B 49 4E 24 B2 22 22 A7 44 B2 |60000:.IN$."".D.|
00000EE0: 30 3A 8E 00 FB 16 5A C3 5A 43 B2 31 3A 5A 4E B2 |0:....Z.ZC.1:ZN.|
00000EF0: 30 3A 5A 4C B2 C3 28 49 4E 24 29 00 29 17 64 C3 |0:ZL..(IN$).).d.|
00000F00: 81 5A 49 B2 31 A4 31 32 3A 8B C8 28 4D 4E 24 28 |.ZI.1.12:..(MN$(|
00000F10: 5A 49 29 2C 5A 4C 29 B2 49 4E 24 A7 5A 43 B2 5A |ZI),ZL).IN$.ZC.Z|
00000F20: 43 AA 31 3A 5A 4E B2 5A 49 00 57 17 6E C3 82 5A |C.1:ZN.ZI.W.n..Z|
00000F30: 49 3A 91 5A 43 89 35 30 30 35 30 2C 35 30 30 34 |I:.ZC.50050,5004|
00000F40: 30 3A 99 22 4E CF D4 20 D5 CE C9 D1 D5 C5 2E 22 |0:."N.. ......."|
00000F50: 3A 89 35 30 30 30 30 00 67 17 78 C3 4D B2 5A 4E |:.50000.g.x.M.ZN|
00000F60: 3A 89 35 30 30 37 30 00 91 17 82 C3 8D 35 39 30 |:.50070......590|
00000F70: 30 30 3A 8B 59 4E B2 31 A7 4D B2 C5 28 49 4E 24 |00:.YN.1.M..(IN$|
00000F80: 29 3A 8B 4D B1 30 AF 4D B3 31 33 A7 35 30 30 37 |):.M.0.M.13.5007|
00000F90: 30 00 BA 17 8C C3 99 22 54 D9 D0 C5 20 C1 A0 CE |0......"T... ...|
00000FA0: C1 CD C5 2C 20 CF D2 A0 31 20 D4 C8 D2 D5 A0 31 |..., ...1 .....1|
00000FB0: 32 2E 22 3A 89 35 30 30 30 30 00 D7 17 96 C3 99 |2.":.50000......|
00000FC0: 22 44 C1 D4 C5 3A 20 22 3B 3A 8D 36 30 30 30 30 |"D...: ";:.60000|
00000FD0: 3A 8D 35 39 30 30 30 00 FA 17 A0 C3 8B 59 4E B2 |:.59000......YN.|
00000FE0: 31 A7 44 B2 C5 28 49 4E 24 29 3A 8B 44 B1 30 AF |1.D..(IN$):.D.0.|
00000FF0: 44 B3 33 32 A7 35 30 30 39 30 00 24 18 A5 C3 99 |D.32.50090.$....|
00001000: 22 54 D9 D0 C5 A0 C1 A0 CE D5 CD C2 C5 D2 20 C6 |"T............ .|
00001010: D2 CF CD A0 31 20 D4 CF A0 33 31 2E 22 3A 89 35 |....1 ...31.":.5|
00001020: 30 30 37 30 00 34 18 AA C3 44 B2 4D AC 31 30 30 |0070.4...D.M.100|
00001030: AA 44 3A 8E 00 5F 18 B4 C3 46 4C B2 31 3A 99 22 |.D:.._...FL.1:."|
00001040: 4E C1 CD C5 3A 20 22 3B 3A 8D 36 30 30 30 30 3A |N...: ";:.60000:|
00001050: 4E 24 B2 49 4E 24 3A 8B 4E 24 B2 22 22 A7 8E 00 |N$.IN$:.N$.""...|
00001060: 75 18 BE C3 8D 35 30 30 30 30 3A 8B 44 B2 30 A7 |u....50000:.D.0.|
00001070: 35 30 31 31 30 00 8F 18 C8 C3 99 22 4F C3 C3 C1 |50110......"O...|
00001080: D3 C9 CF CE 3A 20 22 3B 3A 8D 36 30 30 30 30 00 |....: ";:.60000.|
00001090: BC 18 D2 C3 8D 35 39 30 30 30 3A 8B 59 4E B2 31 |.....59000:.YN.1|
000010A0: A7 4F B2 C5 28 49 4E 24 29 3A 8B 4F B1 30 AF 4F |.O..(IN$):.O.0.O|
000010B0: B3 B2 4F 43 AA 31 A7 35 30 31 35 30 00 EB 18 DC |..OC.1.50150....|
000010C0: C3 99 22 54 D9 D0 C5 22 3B 3A 81 49 B2 31 A4 4F |.."T...";:.I.1.O|
000010D0: 43 3A 99 A3 34 29 3B 49 3B 22 28 22 3B 4F 43 24 |C:..4);I;"(";OC$|
000010E0: 28 49 29 3B 22 29 2C 22 3A 82 49 00 16 19 E1 C3 |(I);"),":.I.....|
000010F0: 99 22 20 20 CF D2 22 3B 4F 43 AA 31 3B 22 28 D3 |." ..";OC.1;"(.|
00001100: CF CD C5 D4 C8 C9 CE C7 A0 C5 CC D3 C5 29 22 3A |.............)":|
00001110: 89 35 30 31 32 30 00 28 19 E6 C3 8B 4F B3 B2 4F |.50120.(....O..O|
00001120: 43 A7 4F B2 AB 4F 3A 8E 00 36 19 F0 C3 4F B2 C3 |C.O..O:..6...O..|
00001130: 28 4E 24 29 AA 31 00 65 19 FA C3 46 4C B2 31 3A |(N$).1.e...FL.1:|
00001140: 99 22 57 C8 C1 D4 20 C9 D3 20 C9 D4 3F 20 22 3B |."W... .. ..? ";|
00001150: 3A 8D 36 30 30 30 30 3A 8B 49 4E 24 B2 22 22 A7 |:.60000:.IN$."".|
00001160: 35 30 31 32 30 00 75 19 04 C4 4E 24 B2 4E 24 AA |50120.u...N$.N$.|
00001170: 49 4E 24 3A 8E 00 9D 19 18 C4 4D B2 B5 28 44 AD |IN$:......M..(D.|
00001180: 31 30 30 29 3A 8B 4F B3 30 A7 4F 24 B2 4F 43 24 |100):.O.0.O$.OC$|
00001190: 28 B6 28 4F 29 29 3A 89 35 30 32 32 30 00 B9 19 |(.(O)):.50220...|
000011A0: 22 C4 4F 24 B2 CA 28 4E 24 2C 4F 29 3A 4E 24 B2 |".O$..(N$,O):N$.|
000011B0: C8 28 4E 24 2C 4F AB 31 29 00 E3 19 2C C4 99 22 |.(N$,O.1)...,.."|
000011C0: 4E C1 CD C5 3A 20 22 3B 4E 24 3A 99 22 44 C1 D4 |N...: ";N$:."D..|
000011D0: C5 3A 20 22 3B 4D 4E 24 28 4D 29 3B 44 AB 31 30 |.: ";MN$(M);D.10|
000011E0: 30 AC 4D 00 EF 19 36 C4 99 A3 36 29 3B 4F 24 00 |0.M...6...6);O$.|
000011F0: F5 19 40 C4 8E 00 0B 1A 7C C4 4C 4E B2 4C 4E AA |..@.....|.LN.LN.|
00001200: 53 5A 3A 8B 4C 4E B3 32 32 A7 8E 00 2F 1A 86 C4 |SZ:.LN.22.../...|
00001210: 99 22 11 20 20 48 C9 D4 20 12 52 45 54 55 52 4E |.". H.. .RETURN|
00001220: 92 20 D4 CF A0 C3 CF CE D4 C9 CE D5 C5 2E 22 00 |. ............".|
00001230: 44 1A 90 C4 A1 54 24 3A 8B 54 24 B2 22 22 A7 35 |D....T$:.T$."".5|
00001240: 30 33 32 30 00 50 1A 9A C4 4C 4E B2 53 5A 3A 8E |0320.P...LN.SZ:.|
00001250: 00 63 1A 78 E6 8B 49 4E 24 B2 22 22 A7 59 4E B2 |.c.x..IN$."".YN.|
00001260: 30 3A 8E 00 81 1A 82 E6 81 49 B2 31 A4 C3 28 49 |0:.......I.1..(I|
00001270: 4E 24 29 3A 54 24 B2 CA 28 49 4E 24 2C 49 2C 31 |N$):T$..(IN$,I,1|
00001280: 29 00 9C 1A 8C E6 3A 8B 54 24 B3 22 30 22 B0 54 |).....:.T$."0".T|
00001290: 24 B1 22 39 22 A7 59 4E B2 30 3A 8E 00 AA 1A 96 |$."9".YN.0:.....|
000012A0: E6 82 49 3A 59 4E B2 31 3A 8E 00 CB 1A 60 EA 49 |..I:YN.1:....`.I|
000012B0: 4E 24 B2 22 20 22 3A 5A 54 B2 54 49 3A 5A 43 B2 |N$." ":ZT.TI:ZC.|
000012C0: 32 3A 5A 44 24 B2 C7 28 32 30 29 00 E1 1A 6A EA |2:ZD$..(20)...j.|
000012D0: A1 5A 24 3A 8B 5A 24 B3 B1 22 22 A7 36 30 30 37 |.Z$:.Z$.."".6007|
000012E0: 30 00 11 1B 74 EA 8B 5A 54 B3 B2 54 49 A7 99 CA |0...t..ZT..TI...|
000012F0: 28 22 20 A6 22 2C 5A 43 2C 31 29 3B 22 9D 22 3B |(" .",ZC,1);".";|
00001300: 3A 5A 43 B2 33 AB 5A 43 3A 5A 54 B2 54 49 AA 31 |:ZC.3.ZC:ZT.TI.1|
00001310: 35 00 1C 1B 7E EA 89 36 30 30 31 30 00 4C 1B A6 |5...~..60010.L..|
00001320: EA 5A B2 C6 28 5A 24 29 3A 5A 4C B2 C3 28 49 4E |.Z..(Z$):ZL..(IN|
00001330: 24 29 3A 8B 28 5A AF 31 32 37 29 B3 33 32 A7 99 |$):.(Z.127).32..|
00001340: 22 20 9D 22 3B 3A 89 36 30 31 31 30 00 7C 1B B0 |" .";:.60110.|..|
00001350: EA 8B 46 4C AF 28 5A AF 31 32 37 29 B1 36 34 AF |..FL.(Z.127).64.|
00001360: 28 5A AF 31 32 37 29 B3 39 31 A7 5A 24 B2 C7 28 |(Z.127).91.Z$..(|
00001370: 28 5A AA 31 32 38 29 AF 32 35 35 29 00 8E 1B BA |(Z.128).255)....|
00001380: EA 8B 5A 4C B1 32 35 34 A7 36 30 30 31 30 00 A9 |..ZL.254.60010..|
00001390: 1B C4 EA 49 4E 24 B2 49 4E 24 AA 5A 24 3A 99 5A |...IN$.IN$.Z$:.Z|
000013A0: 24 3B 5A 44 24 3B 5A 24 3B 00 C8 1B CE EA 8B 5A |$;ZD$;Z$;......Z|
000013B0: B2 31 33 A7 49 4E 24 B2 CA 28 49 4E 24 2C 32 29 |.13.IN$..(IN$,2)|
000013C0: 3A 99 43 52 24 3B 3A 8E 00 F4 1B D8 EA 8B 5A B2 |:.CR$;:.......Z.|
000013D0: 32 30 AF 5A 4C B1 31 A7 49 4E 24 B2 C8 28 49 4E |20.ZL.1.IN$..(IN|
000013E0: 24 2C 5A 4C AB 31 29 3A 99 22 9D 22 3B 3A 89 36 |$,ZL.1):.".";:.6|
000013F0: 30 30 31 30 00 27 1C E2 EA 8B 5A B2 31 34 31 A7 |0010.'....Z.141.|
00001400: 5A 24 B2 C7 28 AB 32 30 AC 28 5A 4C B1 31 29 29 |Z$..(.20.(ZL.1))|
00001410: 3A 81 5A B2 32 A4 5A 4C 3A 99 5A 24 3B 3A 82 5A |:.Z.2.ZL:.Z$;:.Z|
00001420: 3A 89 36 30 30 30 30 00 32 1C EC EA 89 36 30 30 |:.60000.2....600|
00001430: 31 30 00 69 1C 30 F2 99 22 93 11 22 3B 50 47 24 |10.i.0.."..";PG$|
00001440: 3B 22 20 2D 20 43 D5 D2 D3 CF D2 A0 23 22 3B 4E |;" - C......#";N|
00001450: 4D 24 3B 22 20 20 43 CF D0 D9 D2 C9 C7 C8 D4 20 |M$;" C........ |
00001460: 28 43 29 20 31 39 37 39 22 00 85 1C 3A F2 99 22 |(C) 1979"...:.."|
00001470: 11 4B C5 C5 D0 20 D4 D2 C1 C3 CB A0 CF C6 A0 C4 |.K... ..........|
00001480: C1 D4 C5 D3 22 00 A8 1C 44 F2 99 22 11 11 11 50 |...."...D.."...P|
00001490: D2 C5 D3 D3 A0 12 52 45 54 55 52 4E 92 20 D4 CF |......RETURN. ..|
000014A0: 20 C2 C5 C7 C9 CE 2E 22 00 BD 1C 4E F2 A1 54 24 | ......"...N..T$|
000014B0: 3A 8B 54 24 B2 22 22 A7 36 32 30 33 30 00 C8 1C |:.T$."".62030...|
000014C0: 58 F2 99 22 93 22 3A 8E 00 00 00 00 0E |X..".":...... |
..,.... DBOOK COPYRIGHT (C) 1979 GLEN FI
SHER.I.... CURSOR #8, MARCH, 1979.J....
BOX 550, GOLETA, CA. 93017.P...:...Z.PG$
."DBOOK":NM$."8":.62000.X.D.MX.50:CM.9:O
C.2:.N$(MX),D%(MX),O%(MX),P%(MX),MN$(12)
,CM$(CM),OC$(OC)...N.CR$.G(13)...X..I.1.
12:.MN$(I):..'....JANUARY,FEBRUARY,MARCH
,APRIL,MAY,JUNE.\....JULY,AUGUST,SEPTEMB
ER,OCTOBER,NOVEMBER,DECEMBER.S....I.1.CM
:.CM$(I):.I... ..ADD,CLEAR,DUMP,EDIT,LIS
T,LOAD,QUIT,SAVE,SORT......I.1.OC:.OC$(I
):.I.Z...."BIRTHDAY","ANNIVERSARY".....N
C.0:SV.1.....FL.0:."COMMAND? ";:.60000:.
IN$."".1000.+...ZC.1:ZN.0:ZL.C(IN$).V...
.I.1.CM:.H(CM$(I),ZL).IN$.ZN.I:ZC.ZC.1..
....I:.ZC.1040,1100:."NOT UNIQUE.";:.105
0......IN$.."?".."NOT A COMMAND.";......
" COMMANDS ARE:".Y.$..I.1.CM:..(0).C(CM$
(I)).38........CM$(I);" ";:.I:.:.1000.*.
L..ZN.2000,1900,2100,3000,7600,5000,6000
,4000,7000.4....1000.C.L.NC.0:.1000.O.P.
.NC.MX.."NO ROOM FOR MORE NAMES.":.1000.
....NC.NC.1:.". PERSON";NC:.50100:.N$."
".NC.NC.1:.1000.X...SV.0:NP..1:N$(NC).N$
:D%(NC).D:O%(NC).O:.2020...4..NC.0.."NO
NAMES.":.1000.!.H.SZ.5:LN.0:.I.1.NC:.503
00:.". PERSON";I.P.R.N$.N$(I):D.D%(I):O
.O%(I):.50200:.I:.:.1000.S...EP.1:.EP.NC
.."NO NAMES.":.1000...L..". PERSON";EP:
N$.N$(EP):D.D%(EP):O.O%(EP):.50200.S...F
L.0:."CHANGE? ";:.60000:T$.H(IN$,1).....
.59000:.YN.1.N.E(IN$):.N.0.N..NC.EP.N:.3
020.&....YN.1.."NO SUCH PERSON.":.3040.F
....T$."Y"..50100:N$(EP).N$:D%(EP).D:O%(
EP).O:SV.0:NP..1:.3020.W....T$."Q".1000.
.....T$."N".IN$."".3090......T$."D"..350
0:SV.0:NP..1:..(EP).1.1000,3020.P....T$.
"?".3200......"HUH?":.3040.....EP.EP.1:.
EP.NC.1000......3020.A...."CHOICES ARE:"
:."Y CHANGE THIS ENTRY":."N OR .RETURN
".W...." LEAVE IT ALONE":."Q RETURN
TO 'COMMAND?'"......"D DISCARD THIS E
NTRY":."? PRINT THIS LIST"...F.."SOME
NUMBER":." MOVE TO THAT PERSON":.3020
.....NC.NC.1:.EP..NC.3600......NC.0.."AL
L NAMES DELETED.".%...EP.NC:..A....I.EP.
NC:J.I.1:N$(I).N$(J):D%(I).D%(J):O%(I).O
%(J):.I:..~. ..NC.0.."NO NAMES.":.1000..
...FL.0:."FILE NAME? ";:.60000......IN$.
"".1000...H.F$.IN$......1,1,1,F$:.1,NC:X
$.G(1):Q$.G(34)......I.1.NC:S$.N$(I):D.D
%(I):O.O%(I):.".";:.4200:.I.'.,. 1:.:SV.
1:.1000.<.H.T$."":.J.1.C(S$).R.|.:C$.J(S
$,J,1):.C$.":".C$.Q$.C$.",".C$.G(65.F(C$
)).....:T$.T$.C$:.J...L.T.TI:.1,Q$;T$;Q$
;",";D(D);",";D(O):T.TI.T...V..T.10...S.
...59411,53:T.TI.20......TI.T.4330......
59411,61:......."FILE NAME (? IF UNKNOWN
)? ";:FL.0:.60000:.IN$."".1000.B....IN$.
"?".IN$."".K...M.0:.1,1,0,IN$:.1,FC:.FC.
NC..MX.5100. ...."NOT ENOUGH ROOM FOR AL
L SAVED NAMES.": 1:.1000.B....M.NC.1.NC.
FC:.1,T$,D,O:.".";......5200:N$(M).T$:D%
(M).D:O%(M).O:.M...(.NP..1:NC.NC.FC: 1:.
::.NC..FC.SV.0...2..1000.-.P.S$."":.I.1.
C(T$).B.D.:C$.J(T$,I,1):.F(C$).95.F(C$).
128.C$.G(F(C$).65).U.N.:S$.S$.C$:.I:....
P..SV.0.."NAMES NOT YET SAVED.":SV.1:.10
00.......E.X..NC.0.."NO NAMES.":.1000...
L.."BY NAME (1), OR BY DATE (2)? ";:.600
00:.59000.!.V..YN.1.BY.E(IN$):.BY.0..BY.
7100,7200.=...."TYPE A 1 OR 2.":.7020.I.
..."FROM: ";:.60000:F$.IN$:.F$."".F$.G(0
)...F.."TO: ";:.60000:T$.IN$:.T$."".T$.G
(255)...P..F$.T$.X$.F$:F$.T$:T$.X$.H.U.F
L.C(F$):TL.C(T$).....NP.0:.I.1.NC:N$.N$(
I):.O%(I).1.N$.H(N$,O%(I).1).-...:.F$..H
(N$,FL).H(N$,TL)..T$.NP.NP.1:P%(NP).I.;.
..:.I:.7500.U. .."FROM ";:.50000:FD.D.{.
*.."TO ";:.50000:TD.D:.TD.0.TD.1300...4.
.FD.TD.X.FD:FD.TD:TD.X.M.H.NP.0:.I.1.NC:
.FD..D%(I).D%(I)..TD.NP.NP.1:P%(NP).I...
R.:.I:.7500.....F$.N$(F):T$.N$(T).....CP
.1:.F$.T$.......CP.0:.F$.T$...!...CP..1:
..7...FD.D%(F):TD.D%(T).I...CP.1:.FD.TD.
..[...CP.0:.FD.TD...G...CP..1:....L.."NO
W SORTING":. INSERTION SORT...V..NS.1.NP
:N.NS:T.P%(NS)...J..N..1.7570.R.T.:F.P%(
N.1):.BY.7300,7400...~.:.CP..0.7570.....
::P%(N).P%(N.1):N.N.1:.7530.....:P%(N).T
......NS:.1000.B....NP.0.."LIST NOT SORT
ED.":.1000._....NP.0.."NO NAMES.":.1000.
..D.LN.0:SZ.4:.I.1.NP:N.P%(I):.50300...N
.N$.N$(N):D.D%(N):O.O%(N):.:.50200...X..
I:.:.1000...PCFL.0:."MONTH: ";:.60000:.I
N$."".D.0:....ZCZC.1:ZN.0:ZL.C(IN$).).DC
.ZI.1.12:.H(MN$(ZI),ZL).IN$.ZC.ZC.1:ZN.Z
I.W.NC.ZI:.ZC.50050,50040:."NOT UNIQUE."
:.50000.G.XCM.ZN:.50070....C.59000:.YN.1
.M.E(IN$):.M.0.M.13.50070....C."TYPE A N
AME, OR 1 THRU 12.":.50000.W..C."DATE: "
;:.60000:.59000... C.YN.1.D.E(IN$):.D.0.
D.32.50090.$..C."TYPE A NUMBER FROM 1 TO
31.":.50070.4..CD.M.100.D:.._..CFL.1:."
NAME: ";:.60000:N$.IN$:.N$.""...U..C.500
00:.D.0.50110...HC."OCCASION: ";:.60000.
..RC.59000:.YN.1.O.E(IN$):.O.0.O..OC.1.5
0150....C."TYPE";:.I.1.OC:..4);I;"(";OC$
(I);"),":.I....C." OR";OC.1;"(SOMETHING
ELSE)":.50120.(..C.O..OC.O..O:..6..CO.C
(N$).1.E..CFL.1:."WHAT IS IT? ";:.60000:
.IN$."".50120.U..DN$.N$.IN$:.....DM..(D.
100):.O.0.O$.OC$(.(O)):.50220..."DO$.J(N
$,O):N$.H(N$,O.1)...,D."NAME: ";N$:."DAT
E: ";MN$(M);D.100.M...6D..6);O$...@D....
|DLN.LN.SZ:.LN.22.../..D.". HIT .RETURN
. TO CONTINUE.".D..D.T$:.T$."".50320.P..
DLN.SZ:..C.X..IN$."".YN.0:.......I.1.C(I
N$):T$.J(IN$,I,1).....:.T$."0".T$."9".YN
.0:.......I:YN.1:..K.`.IN$." ":ZT.TI:ZC.
2:ZD$.G(20)...J..Z$:.Z$.."".60070...T..Z
T..TI..J(" .",ZC,1);".";:ZC.3.ZC:ZT.TI.1
5...~..60010.L...Z.F(Z$):ZL.C(IN$):.(Z.1
27).32.." .";:.60110.|....FL.(Z.127).64.
(Z.127).91.Z$.G((Z.128).255)......ZL.254
.60010...D.IN$.IN$.Z$:.Z$;ZD$;Z$;.H.N..Z
.13.IN$.J(IN$,2):.CR$;:....X..Z.20.ZL.1.
IN$.H(IN$,ZL.1):.".";:.60010.'....Z.141.
Z$.G(.20.(ZL.1)):.Z.2.ZL:.Z$;:.Z:.60000.
2....60010.I.0.."..";PG$;" - CURSOR #";N
M$;" COPYRIGHT (C) 1979"...:..".KEEP TR
ACK OF DATES"...D.."...PRESS .RETURN. TO
BEGIN."...N..T$:.T$."".62030.H.X..".":.
.....
> CLICK IMAGE PREVIEW FOR FULL MODAL