DBOOK

00000000: 01 04 11 04 00 00 9C 3A  97 35 39 34 36 38 2C 31  |.......:.59468,1|
00000010: 34 00 3C 04 01 00 8F 20  44 42 4F 4F 4B 20 43 4F  |4.<.... DBOOK CO|
00000020: 50 59 52 49 47 48 54 20  28 43 29 20 31 39 37 39  |PYRIGHT (C) 1979|
00000030: 20 47 4C 45 4E 20 46 49  53 48 45 52 00 59 04 02  | GLEN FISHER.Y..|
00000040: 00 8F 20 43 55 52 53 4F  52 20 23 38 2C 20 4D 41  |.. CURSOR #8, MA|
00000050: 52 43 48 2C 20 31 39 37  39 00 7A 04 03 00 8F 20  |RCH, 1979.z.... |
00000060: 42 4F 58 20 35 35 30 2C  20 47 4F 4C 45 54 41 2C  |BOX 550, GOLETA,|
00000070: 20 43 41 2E 20 39 33 30  31 37 00 80 04 04 00 3A  | CA. 93017.....:|
00000080: 00 9D 04 05 00 50 47 24  B2 22 44 42 4F 4F 4B 22  |.....PG$."DBOOK"|
00000090: 3A 4E 4D 24 B2 22 38 22  3A 8D 31 36 35 00 E6 04  |:NM$."8":.165...|
000000A0: 06 00 4D 58 B2 35 30 3A  43 4D B2 39 3A 4F 43 B2  |..MX.50:CM.9:OC.|
000000B0: 32 3A 86 4E 24 28 4D 58  29 2C 44 25 28 4D 58 29  |2:.N$(MX),D%(MX)|
000000C0: 2C 4F 25 28 4D 58 29 2C  50 25 28 4D 58 29 2C 4D  |,O%(MX),P%(MX),M|
000000D0: 4E 24 28 31 32 29 2C 43  4D 24 28 43 4D 29 2C 4F  |N$(12),CM$(CM),O|
000000E0: 43 24 28 4F 43 29 00 F4  04 07 00 43 52 24 B2 C7  |C$(OC).....CR$..|
000000F0: 28 31 33 29 00 0A 05 08  00 81 49 B2 31 A4 31 32  |(13)......I.1.12|
00000100: 3A 87 4D 4E 24 28 49 29  3A 82 00 35 05 09 00 83  |:.MN$(I):..5....|
00000110: 4A 41 4E 55 41 52 59 2C  46 45 42 52 55 41 52 59  |JANUARY,FEBRUARY|
00000120: 2C 4D 41 52 43 48 2C 41  50 52 49 4C 2C 4D 41 59  |,MARCH,APRIL,MAY|
00000130: 2C 4A 55 4E 45 00 6A 05  0A 00 83 4A 55 4C 59 2C  |,JUNE.j....JULY,|
00000140: 41 55 47 55 53 54 2C 53  45 50 54 45 4D 42 45 52  |AUGUST,SEPTEMBER|
00000150: 2C 4F 43 54 4F 42 45 52  2C 4E 4F 56 45 4D 42 45  |,OCTOBER,NOVEMBE|
00000160: 52 2C 44 45 43 45 4D 42  45 52 00 81 05 0B 00 81  |R,DECEMBER......|
00000170: 49 B2 31 A4 43 4D 3A 87  43 4D 24 28 49 29 3A 82  |I.1.CM:.CM$(I):.|
00000180: 49 00 B3 05 0C 00 83 41  44 44 2C 43 4C 45 41 52  |I......ADD,CLEAR|
00000190: 2C 44 55 4D 50 2C 45 44  49 54 2C 4C 49 53 54 2C  |,DUMP,EDIT,LIST,|
000001A0: 4C 4F 41 44 2C 51 55 49  54 2C 53 41 56 45 2C 53  |LOAD,QUIT,SAVE,S|
000001B0: 4F 52 54 00 CA 05 0D 00  81 49 B2 31 A4 4F 43 3A  |ORT......I.1.OC:|
000001C0: 87 4F 43 24 28 49 29 3A  82 49 00 E8 05 0E 00 83  |.OC$(I):.I......|
000001D0: 22 42 C9 D2 D4 C8 C4 C1  D9 22 2C 22 41 CE CE C9  |"B.......","A...|
000001E0: D6 C5 D2 D3 C1 D2 D9 22  00 F6 05 0F 00 4E 43 B2  |.......".....NC.|
000001F0: 30 3A 53 56 B2 31 00 1D  06 10 00 46 4C B2 30 3A  |0:SV.1.....FL.0:|
00000200: 99 22 43 CF CD CD C1 CE  C4 3F 20 22 3B 3A 8D 31  |."C......? ";:.1|
00000210: 35 33 3A 8B 49 4E 24 B2  22 22 A7 31 36 00 35 06  |53:.IN$."".16.5.|
00000220: 11 00 5A 43 B2 31 3A 5A  4E B2 30 3A 5A 4C B2 C3  |..ZC.1:ZN.0:ZL..|
00000230: 28 49 4E 24 29 00 60 06  12 00 81 49 B2 31 A4 43  |(IN$).`....I.1.C|
00000240: 4D 3A 8B C8 28 43 4D 24  28 49 29 2C 5A 4C 29 B2  |M:..(CM$(I),ZL).|
00000250: 49 4E 24 A7 5A 4E B2 49  3A 5A 43 B2 5A 43 AA 31  |IN$.ZN.I:ZC.ZC.1|
00000260: 00 85 06 13 00 82 49 3A  91 5A 43 89 32 30 2C 32  |......I:.ZC.20,2|
00000270: 34 3A 99 22 4E CF D4 20  D5 CE C9 D1 D5 C5 2E 22  |4:."N.. ......."|
00000280: 3B 3A 89 32 31 00 A6 06  14 00 8B 49 4E 24 B3 B1  |;:.21......IN$..|
00000290: 22 3F 22 A7 99 22 4E CF  D4 20 C1 20 C3 CF CD CD  |"?".."N.. . ....|
000002A0: C1 CE C4 2E 22 3B 00 BC  06 15 00 99 22 20 43 CF  |....";......" C.|
000002B0: CD CD C1 CE C4 D3 A0 C1  D2 C5 3A 22 00 DD 06 16  |..........:"....|
000002C0: 00 81 49 B2 31 A4 43 4D  3A 8B B9 28 30 29 AA C3  |..I.1.CM:..(0)..|
000002D0: 28 43 4D 24 28 49 29 29  B1 33 38 A7 99 00 F7 06  |(CM$(I)).38.....|
000002E0: 17 00 99 43 4D 24 28 49  29 3B 22 20 22 3B 3A 82  |...CM$(I);" ";:.|
000002F0: 49 3A 99 3A 89 31 36 00  1B 07 18 00 91 5A 4E 89  |I:.:.16......ZN.|
00000300: 32 37 2C 32 36 2C 33 30  2C 33 33 2C 31 31 34 2C  |27,26,30,33,114,|
00000310: 36 39 2C 38 30 2C 35 34  2C 38 32 00 23 07 19 00  |69,80,54,82.#...|
00000320: 89 31 36 00 30 07 1A 00  4E 43 B2 30 3A 89 31 36  |.16.0...NC.0:.16|
00000330: 00 5A 07 1B 00 8B 4E 43  B2 4D 58 A7 99 22 4E CF  |.Z....NC.MX.."N.|
00000340: A0 D2 CF CF CD A0 C6 CF  D2 A0 CD CF D2 C5 20 CE  |.............. .|
00000350: C1 CD C5 D3 2E 22 3A 89  31 36 00 8E 07 1C 00 4E  |.....":.16.....N|
00000360: 43 B2 4E 43 AA 31 3A 99  22 11 20 20 50 C5 D2 D3  |C.NC.1:.".  P...|
00000370: CF CE 22 3B 4E 43 3A 8D  31 33 30 3A 8B 4E 24 B2  |..";NC:.130:.N$.|
00000380: 22 22 A7 4E 43 B2 4E 43  AB 31 3A 89 31 36 00 BD  |"".NC.NC.1:.16..|
00000390: 07 1D 00 53 56 B2 30 3A  4E 50 B2 AB 31 3A 4E 24  |...SV.0:NP..1:N$|
000003A0: 28 4E 43 29 B2 4E 24 3A  44 25 28 4E 43 29 B2 44  |(NC).N$:D%(NC).D|
000003B0: 3A 4F 25 28 4E 43 29 B2  4F 3A 89 32 38 00 D8 07  |:O%(NC).O:.28...|
000003C0: 1E 00 8B 4E 43 B2 30 A7  99 22 4E CF 20 CE C1 CD  |...NC.0.."N. ...|
000003D0: C5 D3 2E 22 3A 89 31 36  00 02 08 1F 00 53 5A B2  |...":.16.....SZ.|
000003E0: 35 3A 4C 4E B2 30 3A 81  49 B2 31 A4 4E 43 3A 8D  |5:LN.0:.I.1.NC:.|
000003F0: 31 34 35 3A 99 22 11 20  20 50 C5 D2 D3 CF CE 22  |145:.".  P....."|
00000400: 3B 49 00 2D 08 20 00 4E  24 B2 4E 24 28 49 29 3A  |;I.-. .N$.N$(I):|
00000410: 44 B2 44 25 28 49 29 3A  4F B2 4F 25 28 49 29 3A  |D.D%(I):O.O%(I):|
00000420: 8D 31 34 30 3A 82 49 3A  99 3A 89 31 36 00 4E 08  |.140:.I:.:.16.N.|
00000430: 21 00 45 50 B2 31 3A 8B  45 50 B1 4E 43 A7 99 22  |!.EP.1:.EP.NC.."|
00000440: 4E CF A0 CE C1 CD C5 D3  2E 22 3A 89 31 36 00 83  |N........":.16..|
00000450: 08 22 00 99 22 11 20 20  50 C5 D2 D3 CF CE 22 3B  |."..".  P.....";|
00000460: 45 50 3A 4E 24 B2 4E 24  28 45 50 29 3A 44 B2 44  |EP:N$.N$(EP):D.D|
00000470: 25 28 45 50 29 3A 4F B2  4F 25 28 45 50 29 3A 8D  |%(EP):O.O%(EP):.|
00000480: 31 34 30 00 AA 08 23 00  46 4C B2 30 3A 99 22 43  |140...#.FL.0:."C|
00000490: C8 C1 CE C7 C5 3F 20 22  3B 3A 8D 31 35 33 3A 54  |.....? ";:.153:T|
000004A0: 24 B2 C8 28 49 4E 24 2C  31 29 00 D6 08 24 00 8D  |$..(IN$,1)...$..|
000004B0: 31 34 39 3A 8B 59 4E B2  31 A7 4E B2 C5 28 49 4E  |149:.YN.1.N..(IN|
000004C0: 24 29 3A 8B 4E B1 30 AF  4E B3 B2 4E 43 A7 45 50  |$):.N.0.N..NC.EP|
000004D0: B2 4E 3A 89 33 34 00 F7  08 25 00 8B 59 4E B2 31  |.N:.34...%..YN.1|
000004E0: A7 99 22 4E CF A0 D3 D5  C3 C8 A0 D0 C5 D2 D3 CF  |.."N............|
000004F0: CE 2E 22 3A 89 33 35 00  33 09 26 00 8B 54 24 B2  |..":.35.3.&..T$.|
00000500: 22 59 22 A7 8D 31 33 30  3A 4E 24 28 45 50 29 B2  |"Y"..130:N$(EP).|
00000510: 4E 24 3A 44 25 28 45 50  29 B2 44 3A 4F 25 28 45  |N$:D%(EP).D:O%(E|
00000520: 50 29 B2 4F 3A 53 56 B2  30 3A 4E 50 B2 AB 31 3A  |P).O:SV.0:NP..1:|
00000530: 89 33 34 00 42 09 27 00  8B 54 24 B2 22 51 22 A7  |.34.B.'..T$."Q".|
00000540: 31 36 00 58 09 28 00 8B  54 24 B2 22 4E 22 B0 49  |16.X.(..T$."N".I|
00000550: 4E 24 B2 22 22 A7 34 34  00 82 09 29 00 8B 54 24  |N$."".44...)..T$|
00000560: B2 22 44 22 A7 8D 35 30  3A 53 56 B2 30 3A 4E 50  |."D"..50:SV.0:NP|
00000570: B2 AB 31 3A 91 B4 28 45  50 29 AA 31 89 31 36 2C  |..1:..(EP).1.16,|
00000580: 33 34 00 91 09 2A 00 8B  54 24 B2 22 3F 22 A7 34  |34...*..T$."?".4|
00000590: 36 00 A1 09 2B 00 99 22  48 D5 C8 3F 22 3A 89 33  |6...+.."H..?":.3|
000005A0: 35 00 B7 09 2C 00 45 50  B2 45 50 AA 31 3A 8B 45  |5...,.EP.EP.1:.E|
000005B0: 50 B1 4E 43 A7 31 36 00  BF 09 2D 00 89 33 34 00  |P.NC.16...-..34.|
000005C0: FC 09 2E 00 99 22 43 C8  CF C9 C3 C5 D3 A0 C1 D2  |....."C.........|
000005D0: C5 3A 22 3A 99 22 59 20  20 20 43 C8 C1 CE C7 C5  |.:":."Y   C.....|
000005E0: 20 D4 C8 C9 D3 20 C5 CE  D4 D2 D9 22 3A 99 22 4E  | .... .....":."N|
000005F0: 20 CF D2 A0 12 52 45 54  55 52 4E 22 00 32 0A 2F  | ....RETURN".2./|
00000600: 00 99 22 20 20 20 20 4C  C5 C1 D6 C5 20 C9 D4 20  |.."    L.... .. |
00000610: C1 CC CF CE C5 22 3A 99  22 51 20 20 20 52 C5 D4  |.....":."Q   R..|
00000620: D5 D2 CE A0 D4 CF A0 27  43 CF CD CD C1 CE C4 3F  |.......'C......?|
00000630: 27 22 00 67 0A 30 00 99  22 44 20 20 20 44 C9 D3  |'".g.0.."D   D..|
00000640: C3 C1 D2 C4 20 D4 C8 C9  D3 20 C5 CE D4 D2 D9 22  |.... .... ....."|
00000650: 3A 99 22 3F 20 20 20 50  D2 C9 CE D4 20 D4 C8 C9  |:."?   P.... ...|
00000660: D3 20 CC C9 D3 D4 22 00  99 0A 31 00 99 22 D3 CF  |. ...."...1.."..|
00000670: CD C5 20 CE D5 CD C2 C5  D2 22 3A 99 22 20 20 20  |.. ......":."   |
00000680: 20 4D CF D6 C5 A0 D4 CF  20 D4 C8 C1 D4 20 D0 C5  | M...... .... ..|
00000690: D2 D3 CF CE 22 3A 89 33  34 00 B0 0A 32 00 4E 43  |....":.34...2.NC|
000006A0: B2 4E 43 AB 31 3A 8B 45  50 B3 B2 4E 43 A7 35 33  |.NC.1:.EP..NC.53|
000006B0: 00 D0 0A 33 00 8B 4E 43  B2 30 A7 99 22 41 CC CC  |...3..NC.0.."A..|
000006C0: A0 CE C1 CD C5 D3 20 C4  C5 CC C5 D4 C5 C4 2E 22  |...... ........"|
000006D0: 00 DC 0A 34 00 45 50 B2  4E 43 3A 8E 00 18 0B 35  |...4.EP.NC:....5|
000006E0: 00 81 49 B2 45 50 A4 4E  43 3A 4A B2 49 AA 31 3A  |..I.EP.NC:J.I.1:|
000006F0: 4E 24 28 49 29 B2 4E 24  28 4A 29 3A 44 25 28 49  |N$(I).N$(J):D%(I|
00000700: 29 B2 44 25 28 4A 29 3A  4F 25 28 49 29 B2 4F 25  |).D%(J):O%(I).O%|
00000710: 28 4A 29 3A 82 49 3A 8E  00 33 0B 36 00 8B 4E 43  |(J):.I:..3.6..NC|
00000720: B2 30 A7 99 22 4E CF 20  CE C1 CD C5 D3 2E 22 3A  |.0.."N. ......":|
00000730: 89 31 36 00 51 0B 37 00  46 4C B2 30 3A 99 22 46  |.16.Q.7.FL.0:."F|
00000740: C9 CC C5 20 CE C1 CD C5  3F 20 22 3B 3A 8D 31 35  |... ....? ";:.15|
00000750: 33 00 60 0B 38 00 8B 49  4E 24 B2 22 22 A7 31 36  |3.`.8..IN$."".16|
00000760: 00 6B 0B 39 00 46 24 B2  49 4E 24 00 90 0B 3A 00  |.k.9.F$.IN$...:.|
00000770: 9F 31 2C 31 2C 31 2C 46  24 3A 98 31 2C 4E 43 3A  |.1,1,1,F$:.1,NC:|
00000780: 58 24 B2 C7 28 31 29 3A  51 24 B2 C7 28 33 34 29  |X$..(1):Q$..(34)|
00000790: 00 C2 0B 3B 00 81 49 B2  31 A4 4E 43 3A 53 24 B2  |...;..I.1.NC:S$.|
000007A0: 4E 24 28 49 29 3A 44 B2  44 25 28 49 29 3A 4F B2  |N$(I):D.D%(I):O.|
000007B0: 4F 25 28 49 29 3A 99 22  2E 22 3B 3A 8D 36 31 3A  |O%(I):.".";:.61:|
000007C0: 82 49 00 D4 0B 3C 00 A0  31 3A 99 3A 53 56 B2 31  |.I...<..1:.:SV.1|
000007D0: 3A 89 31 36 00 E9 0B 3D  00 54 24 B2 22 22 3A 81  |:.16...=.T$."":.|
000007E0: 4A B2 31 A4 C3 28 53 24  29 00 1F 0C 3E 00 3A 43  |J.1..(S$)...>.:C|
000007F0: 24 B2 CA 28 53 24 2C 4A  2C 31 29 3A 8B 43 24 B2  |$..(S$,J,1):.C$.|
00000800: 22 3A 22 B0 43 24 B2 51  24 B0 43 24 B2 22 2C 22  |":".C$.Q$.C$.","|
00000810: A7 43 24 B2 C7 28 36 35  AA C6 28 43 24 29 29 00  |.C$..(65..(C$)).|
00000820: 30 0C 3F 00 3A 54 24 B2  54 24 AA 43 24 3A 82 4A  |0.?.:T$.T$.C$:.J|
00000830: 00 5E 0C 40 00 54 B2 54  49 3A 98 31 2C 51 24 3B  |.^.@.T.TI:.1,Q$;|
00000840: 54 24 3B 51 24 3B 22 2C  22 3B C4 28 44 29 3B 22  |T$;Q$;",";.(D);"|
00000850: 2C 22 3B C4 28 4F 29 3A  54 B2 54 49 AB 54 00 6A  |,";.(O):T.TI.T.j|
00000860: 0C 41 00 8B 54 B3 31 30  A7 8E 00 80 0C 42 00 97  |.A..T.10.....B..|
00000870: 35 39 34 31 31 2C 35 33  3A 54 B2 54 49 AA 32 30  |59411,53:T.TI.20|
00000880: 00 8D 0C 43 00 8B 54 49  B3 54 A7 36 37 00 9D 0C  |...C..TI.T.67...|
00000890: 44 00 97 35 39 34 31 31  2C 36 31 3A 8E 00 D5 0C  |D..59411,61:....|
000008A0: 45 00 99 22 46 C9 CC C5  20 CE C1 CD C5 20 28 3F  |E.."F... .... (?|
000008B0: 20 C9 C6 20 D5 CE CB CE  CF D7 CE 29 3F 20 22 3B  | .. .......)? ";|
000008C0: 3A 46 4C B2 30 3A 8D 31  35 33 3A 8B 49 4E 24 B2  |:FL.0:.153:.IN$.|
000008D0: 22 22 A7 31 36 00 E9 0C  46 00 8B 49 4E 24 B2 22  |"".16...F..IN$."|
000008E0: 3F 22 A7 49 4E 24 B2 22  22 00 10 0D 47 00 4D B2  |?".IN$.""...G.M.|
000008F0: 30 3A 9F 31 2C 31 2C 30  2C 49 4E 24 3A 84 31 2C  |0:.1,1,0,IN$:.1,|
00000900: 46 43 3A 8B 46 43 AA 4E  43 B3 B2 4D 58 A7 37 33  |FC:.FC.NC..MX.73|
00000910: 00 43 0D 48 00 99 22 4E  CF D4 A0 C5 CE CF D5 C7  |.C.H.."N........|
00000920: C8 A0 D2 CF CF CD A0 C6  CF D2 A0 C1 CC CC A0 D3  |................|
00000930: C1 D6 C5 C4 20 CE C1 CD  C5 D3 2E 22 3A A0 31 3A  |.... ......":.1:|
00000940: 89 31 36 00 65 0D 49 00  81 4D B2 4E 43 AA 31 A4  |.16.e.I..M.NC.1.|
00000950: 4E 43 AA 46 43 3A 84 31  2C 54 24 2C 44 2C 4F 3A  |NC.FC:.1,T$,D,O:|
00000960: 99 22 2E 22 3B 00 89 0D  4A 00 8D 37 37 3A 4E 24  |.".";...J..77:N$|
00000970: 28 4D 29 B2 54 24 3A 44  25 28 4D 29 B2 44 3A 4F  |(M).T$:D%(M).D:O|
00000980: 25 28 4D 29 B2 4F 3A 82  4D 00 AF 0D 4B 00 4E 50  |%(M).O:.M...K.NP|
00000990: B2 AB 31 3A 4E 43 B2 4E  43 AA 46 43 3A A0 31 3A  |..1:NC.NC.FC:.1:|
000009A0: 99 3A 3A 8B 4E 43 B3 B1  46 43 A7 53 56 B2 30 00  |.::.NC..FC.SV.0.|
000009B0: B7 0D 4C 00 89 31 36 00  CC 0D 4D 00 53 24 B2 22  |..L..16...M.S$."|
000009C0: 22 3A 81 49 B2 31 A4 C3  28 54 24 29 00 01 0E 4E  |":.I.1..(T$)...N|
000009D0: 00 3A 43 24 B2 CA 28 54  24 2C 49 2C 31 29 3A 8B  |.:C$..(T$,I,1):.|
000009E0: C6 28 43 24 29 B1 39 35  AF C6 28 43 24 29 B3 31  |.(C$).95..(C$).1|
000009F0: 32 38 A7 43 24 B2 C7 28  C6 28 43 24 29 AB 36 35  |28.C$..(.(C$).65|
00000A00: 29 00 14 0E 4F 00 3A 53  24 B2 53 24 AA 43 24 3A  |)...O.:S$.S$.C$:|
00000A10: 82 49 3A 8E 00 3F 0E 50  00 8B 53 56 B2 30 A7 99  |.I:..?.P..SV.0..|
00000A20: 22 4E C1 CD C5 D3 20 CE  CF D4 20 D9 C5 D4 20 D3  |"N.... ... ... .|
00000A30: C1 D6 C5 C4 2E 22 3A 53  56 B2 31 3A 89 31 36 00  |.....":SV.1:.16.|
00000A40: 45 0E 51 00 80 00 60 0E  52 00 8B 4E 43 B2 30 A7  |E.Q...`.R..NC.0.|
00000A50: 99 22 4E CF 20 CE C1 CD  C5 D3 2E 22 3A 89 31 36  |."N. ......":.16|
00000A60: 00 90 0E 53 00 99 22 42  D9 A0 CE C1 CD C5 A0 28  |...S.."B.......(|
00000A70: 31 29 2C 20 CF D2 A0 C2  D9 20 C4 C1 D4 C5 20 28  |1), ..... .... (|
00000A80: 32 29 3F 20 22 3B 3A 8D  31 35 33 3A 8D 31 34 39  |2)? ";:.153:.149|
00000A90: 00 B4 0E 54 00 8B 59 4E  B2 31 A7 42 59 B2 C5 28  |...T..YN.1.BY..(|
00000AA0: 49 4E 24 29 3A 8B 42 59  B1 30 A7 91 42 59 89 38  |IN$):.BY.0..BY.8|
00000AB0: 36 2C 39 33 00 CE 0E 55  00 99 22 54 D9 D0 C5 A0  |6,93...U.."T....|
00000AC0: C1 A0 31 20 CF D2 A0 32  2E 22 3A 89 38 33 00 F8  |..1 ...2.":.83..|
00000AD0: 0E 56 00 99 22 46 D2 CF  CD 3A 20 22 3B 3A 8D 31  |.V.."F...: ";:.1|
00000AE0: 35 33 3A 46 24 B2 49 4E  24 3A 8B 46 24 B2 22 22  |53:F$.IN$:.F$.""|
00000AF0: A7 46 24 B2 C7 28 30 29  00 22 0F 57 00 99 22 54  |.F$..(0).".W.."T|
00000B00: CF 3A 20 22 3B 3A 8D 31  35 33 3A 54 24 B2 49 4E  |.: ";:.153:T$.IN|
00000B10: 24 3A 8B 54 24 B2 22 22  A7 54 24 B2 C7 28 32 35  |$:.T$."".T$..(25|
00000B20: 35 29 00 3F 0F 58 00 8B  46 24 B1 54 24 A7 58 24  |5).?.X..F$.T$.X$|
00000B30: B2 46 24 3A 46 24 B2 54  24 3A 54 24 B2 58 24 00  |.F$:F$.T$:T$.X$.|
00000B40: 55 0F 59 00 46 4C B2 C3  28 46 24 29 3A 54 4C B2  |U.Y.FL..(F$):TL.|
00000B50: C3 28 54 24 29 00 89 0F  5A 00 4E 50 B2 30 3A 81  |.(T$)...Z.NP.0:.|
00000B60: 49 B2 31 A4 4E 43 3A 4E  24 B2 4E 24 28 49 29 3A  |I.1.NC:N$.N$(I):|
00000B70: 8B 4F 25 28 49 29 B1 31  A7 4E 24 B2 C8 28 4E 24  |.O%(I).1.N$..(N$|
00000B80: 2C 4F 25 28 49 29 AB 31  29 00 BA 0F 5B 00 3A 8B  |,O%(I).1)...[.:.|
00000B90: 46 24 B3 B2 C8 28 4E 24  2C 46 4C 29 AF C8 28 4E  |F$...(N$,FL)..(N|
00000BA0: 24 2C 54 4C 29 B3 B2 54  24 A7 4E 50 B2 4E 50 AA  |$,TL)..T$.NP.NP.|
00000BB0: 31 3A 50 25 28 4E 50 29  B2 49 00 C7 0F 5C 00 3A  |1:P%(NP).I...\.:|
00000BC0: 82 49 3A 89 31 30 36 00  DF 0F 5D 00 99 22 46 D2  |.I:.106...].."F.|
00000BD0: CF CD 20 22 3B 3A 8D 31  31 39 3A 46 44 B2 44 00  |.. ";:.119:FD.D.|
00000BE0: 03 10 5E 00 99 22 54 CF  20 22 3B 3A 8D 31 31 39  |..^.."T. ";:.119|
00000BF0: 3A 54 44 B2 44 3A 8B 54  44 B2 30 A7 54 44 B2 31  |:TD.D:.TD.0.TD.1|
00000C00: 33 30 30 00 1E 10 5F 00  8B 46 44 B1 54 44 A7 58  |300..._..FD.TD.X|
00000C10: B2 46 44 3A 46 44 B2 54  44 3A 54 44 B2 58 00 55  |.FD:FD.TD:TD.X.U|
00000C20: 10 60 00 4E 50 B2 30 3A  81 49 B2 31 A4 4E 43 3A  |.`.NP.0:.I.1.NC:|
00000C30: 8B 46 44 B3 B2 44 25 28  49 29 AF 44 25 28 49 29  |.FD..D%(I).D%(I)|
00000C40: B3 B2 54 44 A7 4E 50 B2  4E 50 AA 31 3A 50 25 28  |..TD.NP.NP.1:P%(|
00000C50: 4E 50 29 B2 49 00 62 10  61 00 3A 82 49 3A 89 31  |NP).I.b.a.:.I:.1|
00000C60: 30 36 00 78 10 62 00 46  24 B2 4E 24 28 46 29 3A  |06.x.b.F$.N$(F):|
00000C70: 54 24 B2 4E 24 28 54 29  00 8A 10 63 00 43 50 B2  |T$.N$(T)...c.CP.|
00000C80: 31 3A 8B 46 24 B1 54 24  A7 8E 00 9C 10 64 00 43  |1:.F$.T$.....d.C|
00000C90: 50 B2 30 3A 8B 46 24 B2  54 24 A7 8E 00 A8 10 65  |P.0:.F$.T$.....e|
00000CA0: 00 43 50 B2 AB 31 3A 8E  00 BE 10 66 00 46 44 B2  |.CP..1:....f.FD.|
00000CB0: 44 25 28 46 29 3A 54 44  B2 44 25 28 54 29 00 D0  |D%(F):TD.D%(T)..|
00000CC0: 10 67 00 43 50 B2 31 3A  8B 46 44 B1 54 44 A7 8E  |.g.CP.1:.FD.TD..|
00000CD0: 00 E2 10 68 00 43 50 B2  30 3A 8B 46 44 B2 54 44  |...h.CP.0:.FD.TD|
00000CE0: A7 8E 00 EE 10 69 00 43  50 B2 AB 31 3A 8E 00 12  |.....i.CP..1:...|
00000CF0: 11 6A 00 99 22 4E CF D7  20 D3 CF D2 D4 C9 CE C7  |.j.."N.. .......|
00000D00: 22 3A 8F 20 49 4E 53 45  52 54 49 4F 4E 20 53 4F  |":. INSERTION SO|
00000D10: 52 54 00 2D 11 6B 00 81  4E 53 B2 31 A4 4E 50 3A  |RT.-.k..NS.1.NP:|
00000D20: 4E B2 4E 53 3A 54 B2 50  25 28 4E 53 29 00 3B 11  |N.NS:T.P%(NS).;.|
00000D30: 6C 00 8B 4E B3 B2 31 A7  31 31 32 00 55 11 6D 00  |l..N..1.112.U.m.|
00000D40: 3A 46 B2 50 25 28 4E AB  31 29 3A 91 42 59 8D 39  |:F.P%(N.1):.BY.9|
00000D50: 38 2C 31 30 32 00 65 11  6E 00 3A 8B 43 50 B3 B2  |8,102.e.n.:.CP..|
00000D60: 30 A7 31 31 32 00 84 11  6F 00 3A 3A 50 25 28 4E  |0.112...o.::P%(N|
00000D70: 29 B2 50 25 28 4E AB 31  29 3A 4E B2 4E AB 31 3A  |).P%(N.1):N.N.1:|
00000D80: 89 31 30 38 00 91 11 70  00 3A 50 25 28 4E 29 B2  |.108...p.:P%(N).|
00000D90: 54 00 9D 11 71 00 82 4E  53 3A 89 31 36 00 BF 11  |T...q..NS:.16...|
00000DA0: 72 00 8B 4E 50 B3 30 A7  99 22 4C C9 D3 D4 20 CE  |r..NP.0.."L... .|
00000DB0: CF D4 20 D3 CF D2 D4 C5  C4 2E 22 3A 89 31 36 00  |.. .......":.16.|
00000DC0: DA 11 73 00 8B 4E 50 B2  30 A7 99 22 4E CF 20 CE  |..s..NP.0.."N. .|
00000DD0: C1 CD C5 D3 2E 22 3A 89  31 36 00 FD 11 74 00 4C  |.....":.16...t.L|
00000DE0: 4E B2 30 3A 53 5A B2 34  3A 81 49 B2 31 A4 4E 50  |N.0:SZ.4:.I.1.NP|
00000DF0: 3A 4E B2 50 25 28 49 29  3A 8D 31 34 35 00 21 12  |:N.P%(I):.145.!.|
00000E00: 75 00 4E 24 B2 4E 24 28  4E 29 3A 44 B2 44 25 28  |u.N$.N$(N):D.D%(|
00000E10: 4E 29 3A 4F B2 4F 25 28  4E 29 3A 99 3A 8D 31 34  |N):O.O%(N):.:.14|
00000E20: 30 00 2E 12 76 00 82 49  3A 99 3A 89 31 36 00 56  |0...v..I:.:.16.V|
00000E30: 12 77 00 46 4C B2 30 3A  99 22 4D CF CE D4 C8 3A  |.w.FL.0:."M....:|
00000E40: 20 22 3B 3A 8D 31 35 33  3A 8B 49 4E 24 B2 22 22  | ";:.153:.IN$.""|
00000E50: A7 44 B2 30 3A 8E 00 6E  12 78 00 5A 43 B2 31 3A  |.D.0:..n.x.ZC.1:|
00000E60: 5A 4E B2 30 3A 5A 4C B2  C3 28 49 4E 24 29 00 9C  |ZN.0:ZL..(IN$)..|
00000E70: 12 79 00 81 5A 49 B2 31  A4 31 32 3A 8B C8 28 4D  |.y..ZI.1.12:..(M|
00000E80: 4E 24 28 5A 49 29 2C 5A  4C 29 B2 49 4E 24 A7 5A  |N$(ZI),ZL).IN$.Z|
00000E90: 43 B2 5A 43 AA 31 3A 5A  4E B2 5A 49 00 C4 12 7A  |C.ZC.1:ZN.ZI...z|
00000EA0: 00 82 5A 49 3A 91 5A 43  89 31 32 34 2C 31 32 33  |..ZI:.ZC.124,123|
00000EB0: 3A 99 22 4E CF D4 20 D5  CE C9 D1 D5 C5 2E 22 3A  |:."N.. .......":|
00000EC0: 89 31 31 39 00 D2 12 7B  00 4D B2 5A 4E 3A 89 31  |.119...{.M.ZN:.1|
00000ED0: 32 36 00 F8 12 7C 00 8D  31 34 39 3A 8B 59 4E B2  |26...|..149:.YN.|
00000EE0: 31 A7 4D B2 C5 28 49 4E  24 29 3A 8B 4D B1 30 AF  |1.M..(IN$):.M.0.|
00000EF0: 4D B3 31 33 A7 31 32 36  00 1F 13 7D 00 99 22 54  |M.13.126...}.."T|
00000F00: D9 D0 C5 20 C1 A0 CE C1  CD C5 2C 20 CF D2 A0 31  |... ......, ...1|
00000F10: 20 D4 C8 D2 D5 A0 31 32  2E 22 3A 89 31 31 39 00  | .....12.":.119.|
00000F20: 38 13 7E 00 99 22 44 C1  D4 C5 3A 20 22 3B 3A 8D  |8.~.."D...: ";:.|
00000F30: 31 35 33 3A 8D 31 34 39  00 59 13 7F 00 8B 59 4E  |153:.149.Y....YN|
00000F40: B2 31 A7 44 B2 C5 28 49  4E 24 29 3A 8B 44 B1 30  |.1.D..(IN$):.D.0|
00000F50: AF 44 B3 33 32 A7 31 32  39 00 81 13 80 00 99 22  |.D.32.129......"|
00000F60: 54 D9 D0 C5 A0 C1 A0 CE  D5 CD C2 C5 D2 20 C6 D2  |T............ ..|
00000F70: CF CD A0 31 20 D4 CF A0  33 31 2E 22 3A 89 31 32  |...1 ...31.":.12|
00000F80: 36 00 91 13 81 00 44 B2  4D AC 31 30 30 AA 44 3A  |6.....D.M.100.D:|
00000F90: 8E 00 BA 13 82 00 46 4C  B2 31 3A 99 22 4E C1 CD  |......FL.1:."N..|
00000FA0: C5 3A 20 22 3B 3A 8D 31  35 33 3A 4E 24 B2 49 4E  |.: ";:.153:N$.IN|
00000FB0: 24 3A 8B 4E 24 B2 22 22  A7 8E 00 CC 13 83 00 8D  |$:.N$.""........|
00000FC0: 31 31 39 3A 8B 44 B2 30  A7 31 33 31 00 E4 13 84  |119:.D.0.131....|
00000FD0: 00 99 22 4F C3 C3 C1 D3  C9 CF CE 3A 20 22 3B 3A  |.."O.......: ";:|
00000FE0: 8D 31 35 33 00 0D 14 85  00 8D 31 34 39 3A 8B 59  |.153......149:.Y|
00000FF0: 4E B2 31 A7 4F B2 C5 28  49 4E 24 29 3A 8B 4F B1  |N.1.O..(IN$):.O.|
00001000: 30 AF 4F B3 B2 4F 43 AA  31 A7 31 33 36 00 3C 14  |0.O..OC.1.136.<.|
00001010: 86 00 99 22 54 D9 D0 C5  22 3B 3A 81 49 B2 31 A4  |..."T...";:.I.1.|
00001020: 4F 43 3A 99 A3 34 29 3B  49 3B 22 28 22 3B 4F 43  |OC:..4);I;"(";OC|
00001030: 24 28 49 29 3B 22 29 2C  22 3A 82 49 00 65 14 87  |$(I);"),":.I.e..|
00001040: 00 99 22 20 20 CF D2 22  3B 4F 43 AA 31 3B 22 28  |.."  ..";OC.1;"(|
00001050: D3 CF CD C5 D4 C8 C9 CE  C7 A0 C5 CC D3 C5 29 22  |..............)"|
00001060: 3A 89 31 33 32 00 77 14  88 00 8B 4F B3 B2 4F 43  |:.132.w....O..OC|
00001070: A7 4F B2 AB 4F 3A 8E 00  85 14 89 00 4F B2 C3 28  |.O..O:......O..(|
00001080: 4E 24 29 AA 31 00 B0 14  8A 00 46 4C B2 31 3A 99  |N$).1.....FL.1:.|
00001090: 22 57 C8 C1 D4 20 C9 D3  20 C9 D4 3F 20 22 3B 3A  |"W... .. ..? ";:|
000010A0: 8D 31 35 33 3A 8B 49 4E  24 B2 22 22 A7 31 33 32  |.153:.IN$."".132|
000010B0: 00 C0 14 8B 00 4E 24 B2  4E 24 AA 49 4E 24 3A 8E  |.....N$.N$.IN$:.|
000010C0: 00 E6 14 8C 00 4D B2 B5  28 44 AD 31 30 30 29 3A  |.....M..(D.100):|
000010D0: 8B 4F B3 30 A7 4F 24 B2  4F 43 24 28 B6 28 4F 29  |.O.0.O$.OC$(.(O)|
000010E0: 29 3A 89 31 34 32 00 02  15 8D 00 4F 24 B2 CA 28  |):.142.....O$..(|
000010F0: 4E 24 2C 4F 29 3A 4E 24  B2 C8 28 4E 24 2C 4F AB  |N$,O):N$..(N$,O.|
00001100: 31 29 00 2C 15 8E 00 99  22 4E C1 CD C5 3A 20 22  |1).,...."N...: "|
00001110: 3B 4E 24 3A 99 22 44 C1  D4 C5 3A 20 22 3B 4D 4E  |;N$:."D...: ";MN|
00001120: 24 28 4D 29 3B 44 AB 31  30 30 AC 4D 00 38 15 8F  |$(M);D.100.M.8..|
00001130: 00 99 A3 36 29 3B 4F 24  00 3E 15 90 00 8E 00 54  |...6);O$.>.....T|
00001140: 15 91 00 4C 4E B2 4C 4E  AA 53 5A 3A 8B 4C 4E B3  |...LN.LN.SZ:.LN.|
00001150: 32 32 A7 8E 00 78 15 92  00 99 22 11 20 20 48 C9  |22...x....".  H.|
00001160: D4 20 12 52 45 54 55 52  4E 92 20 D4 CF A0 C3 CF  |. .RETURN. .....|
00001170: CE D4 C9 CE D5 C5 2E 22  00 8B 15 93 00 A1 54 24  |......."......T$|
00001180: 3A 8B 54 24 B2 22 22 A7  31 34 37 00 97 15 94 00  |:.T$."".147.....|
00001190: 4C 4E B2 53 5A 3A 8E 00  AA 15 95 00 8B 49 4E 24  |LN.SZ:.......IN$|
000011A0: B2 22 22 A7 59 4E B2 30  3A 8E 00 C8 15 96 00 81  |."".YN.0:.......|
000011B0: 49 B2 31 A4 C3 28 49 4E  24 29 3A 54 24 B2 CA 28  |I.1..(IN$):T$..(|
000011C0: 49 4E 24 2C 49 2C 31 29  00 E3 15 97 00 3A 8B 54  |IN$,I,1).....:.T|
000011D0: 24 B3 22 30 22 B0 54 24  B1 22 39 22 A7 59 4E B2  |$."0".T$."9".YN.|
000011E0: 30 3A 8E 00 F1 15 98 00  82 49 3A 59 4E B2 31 3A  |0:.......I:YN.1:|
000011F0: 8E 00 12 16 99 00 49 4E  24 B2 22 20 22 3A 5A 54  |......IN$." ":ZT|
00001200: B2 54 49 3A 5A 43 B2 32  3A 5A 44 24 B2 C7 28 32  |.TI:ZC.2:ZD$..(2|
00001210: 30 29 00 26 16 9A 00 A1  5A 24 3A 8B 5A 24 B3 B1  |0).&....Z$:.Z$..|
00001220: 22 22 A7 31 35 37 00 56  16 9B 00 8B 5A 54 B3 B2  |"".157.V....ZT..|
00001230: 54 49 A7 99 CA 28 22 20  A6 22 2C 5A 43 2C 31 29  |TI...(" .",ZC,1)|
00001240: 3B 22 9D 22 3B 3A 5A 43  B2 33 AB 5A 43 3A 5A 54  |;".";:ZC.3.ZC:ZT|
00001250: B2 54 49 AA 31 35 00 5F  16 9C 00 89 31 35 34 00  |.TI.15._....154.|
00001260: 8D 16 9D 00 5A B2 C6 28  5A 24 29 3A 5A 4C B2 C3  |....Z..(Z$):ZL..|
00001270: 28 49 4E 24 29 3A 8B 28  5A AF 31 32 37 29 B3 33  |(IN$):.(Z.127).3|
00001280: 32 A7 99 22 20 9D 22 3B  3A 89 31 36 31 00 BD 16  |2.." .";:.161...|
00001290: 9E 00 8B 46 4C AF 28 5A  AF 31 32 37 29 B1 36 34  |...FL.(Z.127).64|
000012A0: AF 28 5A AF 31 32 37 29  B3 39 31 A7 5A 24 B2 C7  |.(Z.127).91.Z$..|
000012B0: 28 28 5A AA 31 32 38 29  AF 32 35 35 29 00 CD 16  |((Z.128).255)...|
000012C0: 9F 00 8B 5A 4C B1 32 35  34 A7 31 35 34 00 E8 16  |...ZL.254.154...|
000012D0: A0 00 49 4E 24 B2 49 4E  24 AA 5A 24 3A 99 5A 24  |..IN$.IN$.Z$:.Z$|
000012E0: 3B 5A 44 24 3B 5A 24 3B  00 07 17 A1 00 8B 5A B2  |;ZD$;Z$;......Z.|
000012F0: 31 33 A7 49 4E 24 B2 CA  28 49 4E 24 2C 32 29 3A  |13.IN$..(IN$,2):|
00001300: 99 43 52 24 3B 3A 8E 00  31 17 A2 00 8B 5A B2 32  |.CR$;:..1....Z.2|
00001310: 30 AF 5A 4C B1 31 A7 49  4E 24 B2 C8 28 49 4E 24  |0.ZL.1.IN$..(IN$|
00001320: 2C 5A 4C AB 31 29 3A 99  22 9D 22 3B 3A 89 31 35  |,ZL.1):.".";:.15|
00001330: 34 00 62 17 A3 00 8B 5A  B2 31 34 31 A7 5A 24 B2  |4.b....Z.141.Z$.|
00001340: C7 28 AB 32 30 AC 28 5A  4C B1 31 29 29 3A 81 5A  |.(.20.(ZL.1)):.Z|
00001350: B2 32 A4 5A 4C 3A 99 5A  24 3B 3A 82 5A 3A 89 31  |.2.ZL:.Z$;:.Z:.1|
00001360: 35 33 00 6B 17 A4 00 89  31 35 34 00 A2 17 A5 00  |53.k....154.....|
00001370: 99 22 93 11 22 3B 50 47  24 3B 22 20 2D 20 43 D5  |."..";PG$;" - C.|
00001380: D2 D3 CF D2 A0 23 22 3B  4E 4D 24 3B 22 20 20 43  |.....#";NM$;"  C|
00001390: CF D0 D9 D2 C9 C7 C8 D4  20 28 43 29 20 31 39 37  |........ (C) 197|
000013A0: 39 22 00 BE 17 A6 00 99  22 11 4B C5 C5 D0 20 D4  |9"......".K... .|
000013B0: D2 C1 C3 CB A0 CF C6 A0  C4 C1 D4 C5 D3 22 00 E1  |............."..|
000013C0: 17 A7 00 99 22 11 11 11  50 D2 C5 D3 D3 A0 12 52  |...."...P......R|
000013D0: 45 54 55 52 4E 92 20 D4  CF 20 C2 C5 C7 C9 CE 2E  |ETURN. .. ......|
000013E0: 22 00 F4 17 A8 00 A1 54  24 3A 8B 54 24 B2 22 22  |"......T$:.T$.""|
000013F0: A7 31 36 38 00 FF 17 A9  00 99 22 93 22 3A 8E 00  |.168......".":..|
00001400: 00 00                                             |..              |

.......:.59468,14.<.... DBOOK COPYRIGHT 
(C) 1979 GLEN FISHER.Y.... CURSOR #8, MA
RCH, 1979.Z.... BOX 550, GOLETA, CA. 930
17.....:.....PG$."DBOOK":NM$."8":.165...
..MX.50:CM.9:OC.2:.N$(MX),D%(MX),O%(MX),
P%(MX),MN$(12),CM$(CM),OC$(OC).....CR$.G
(13)......I.1.12:.MN$(I):..5....JANUARY,
FEBRUARY,MARCH,APRIL,MAY,JUNE.J....JULY,
AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMB
ER......I.1.CM:.CM$(I):.I......ADD,CLEAR
,DUMP,EDIT,LIST,LOAD,QUIT,SAVE,SORT.J...
.I.1.OC:.OC$(I):.I......"BIRTHDAY","ANNI
VERSARY".....NC.0:SV.1.....FL.0:."COMMAN
D? ";:.153:.IN$."".16.5...ZC.1:ZN.0:ZL.C
(IN$).`....I.1.CM:.H(CM$(I),ZL).IN$.ZN.I
:ZC.ZC.1......I:.ZC.20,24:."NOT UNIQUE."
;:.21......IN$.."?".."NOT A COMMAND.";..
...." COMMANDS ARE:"......I.1.CM:..(0).C
(CM$(I)).38........CM$(I);" ";:.I:.:.16.
.....ZN.27,26,30,33,114,69,80,54,82.#...
.16.0...NC.0:.16.Z....NC.MX.."NO ROOM FO
R MORE NAMES.":.16.....NC.NC.1:.".  PERS
ON";NC:.130:.N$."".NC.NC.1:.16.....SV.0:
NP..1:N$(NC).N$:D%(NC).D:O%(NC).O:.28.X.
...NC.0.."NO NAMES.":.16.....SZ.5:LN.0:.
I.1.NC:.145:.".  PERSON";I.-. .N$.N$(I):
D.D%(I):O.O%(I):.140:.I:.:.16.N.!.EP.1:.
EP.NC.."NO NAMES.":.16..."..".  PERSON";
EP:N$.N$(EP):D.D%(EP):O.O%(EP):.140...#.
FL.0:."CHANGE? ";:.153:T$.H(IN$,1).V.$..
149:.YN.1.N.E(IN$):.N.0.N..NC.EP.N:.34..
.%..YN.1.."NO SUCH PERSON.":.35.3.&..T$.
"Y"..130:N$(EP).N$:D%(EP).D:O%(EP).O:SV.
0:NP..1:.34.B.'..T$."Q".16.X.(..T$."N".I
N$."".44...)..T$."D"..50:SV.0:NP..1:..(E
P).1.16,34...*..T$."?".46...+.."HUH?":.3
5...,.EP.EP.1:.EP.NC.16...-..34......"CH
OICES ARE:":."Y   CHANGE THIS ENTRY":."N
 OR .RETURN".2./.."    LEAVE IT ALONE":.
"Q   RETURN TO 'COMMAND?'".G.0.."D   DIS
CARD THIS ENTRY":."?   PRINT THIS LIST".
..1.."SOME NUMBER":."    MOVE TO THAT PE
RSON":.34...2.NC.NC.1:.EP..NC.53.P.3..NC
.0.."ALL NAMES DELETED."...4.EP.NC:....5
..I.EP.NC:J.I.1:N$(I).N$(J):D%(I).D%(J):
O%(I).O%(J):.I:..3.6..NC.0.."NO NAMES.":
.16.Q.7.FL.0:."FILE NAME? ";:.153.`.8..I
N$."".16.K.9.F$.IN$...:..1,1,1,F$:.1,NC:
X$.G(1):Q$.G(34).B.;..I.1.NC:S$.N$(I):D.
D%(I):O.O%(I):.".";:.61:.I.T.<. 1:.:SV.1
:.16...=.T$."":.J.1.C(S$)...>.:C$.J(S$,J
,1):.C$.":".C$.Q$.C$.",".C$.G(65.F(C$)).
0.?.:T$.T$.C$:.J.^.@.T.TI:.1,Q$;T$;Q$;",
";D(D);",";D(O):T.TI.T.J.A..T.10.....B..
59411,53:T.TI.20...C..TI.T.67...D..59411
,61:..U.E.."FILE NAME (? IF UNKNOWN)? ";
:FL.0:.153:.IN$."".16...F..IN$."?".IN$."
"...G.M.0:.1,1,0,IN$:.1,FC:.FC.NC..MX.73
.C.H.."NOT ENOUGH ROOM FOR ALL SAVED NAM
ES.": 1:.16.E.I..M.NC.1.NC.FC:.1,T$,D,O:
.".";...J..77:N$(M).T$:D%(M).D:O%(M).O:.
M...K.NP..1:NC.NC.FC: 1:.::.NC..FC.SV.0.
..L..16.L.M.S$."":.I.1.C(T$)...N.:C$.J(T
$,I,1):.F(C$).95.F(C$).128.C$.G(F(C$).65
)...O.:S$.S$.C$:.I:..?.P..SV.0.."NAMES N
OT YET SAVED.":SV.1:.16.E.Q...`.R..NC.0.
."NO NAMES.":.16...S.."BY NAME (1), OR B
Y DATE (2)? ";:.153:.149...T..YN.1.BY.E(
IN$):.BY.0..BY.86,93.N.U.."TYPE A 1 OR 2
.":.83...V.."FROM: ";:.153:F$.IN$:.F$.""
.F$.G(0).".W.."TO: ";:.153:T$.IN$:.T$.""
.T$.G(255).?.X..F$.T$.X$.F$:F$.T$:T$.X$.
U.Y.FL.C(F$):TL.C(T$)...Z.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.G.\.:.I:.106...].."FROM ";:.119:FD.D.
..^.."TO ";:.119:TD.D:.TD.0.TD.1300..._.
.FD.TD.X.FD:FD.TD:TD.X.U.`.NP.0:.I.1.NC:
.FD..D%(I).D%(I)..TD.NP.NP.1:P%(NP).I.B.
A.:.I:.106.X.B.F$.N$(F):T$.N$(T)...C.CP.
1:.F$.T$.....D.CP.0:.F$.T$.....E.CP..1:.
...F.FD.D%(F):TD.D%(T).P.G.CP.1:.FD.TD..
...H.CP.0:.FD.TD.....I.CP..1:....J.."NOW
 SORTING":. INSERTION SORT.-.K..NS.1.NP:
N.NS:T.P%(NS).;.L..N..1.112.U.M.:F.P%(N.
1):.BY.98,102.E.N.:.CP..0.112...O.::P%(N
).P%(N.1):N.N.1:.108...P.:P%(N).T...Q..N
S:.16...R..NP.0.."LIST NOT SORTED.":.16.
Z.S..NP.0.."NO NAMES.":.16...T.LN.0:SZ.4
:.I.1.NP:N.P%(I):.145.!.U.N$.N$(N):D.D%(
N):O.O%(N):.:.140...V..I:.:.16.V.W.FL.0:
."MONTH: ";:.153:.IN$."".D.0:..N.X.ZC.1:
ZN.0:ZL.C(IN$)...Y..ZI.1.12:.H(MN$(ZI),Z
L).IN$.ZC.ZC.1:ZN.ZI.D.Z..ZI:.ZC.124,123
:."NOT UNIQUE.":.119.R.{.M.ZN:.126...|..
149:.YN.1.M.E(IN$):.M.0.M.13.126...}.."T
YPE A NAME, OR 1 THRU 12.":.119.8.~.."DA
TE: ";:.153:.149.Y...YN.1.D.E(IN$):.D.0
.D.32.129......"TYPE A NUMBER FROM 1 TO 
31.":.126.....D.M.100.D:......FL.1:."NAM
E: ";:.153:N$.IN$:.N$.""...L....119:.D.0
.131......"OCCASION: ";:.153......149:.Y
N.1.O.E(IN$):.O.0.O..OC.1.136.<...."TYPE
";:.I.1.OC:..4);I;"(";OC$(I);"),":.I.E..
.."  OR";OC.1;"(SOMETHING ELSE)":.132.W.
...O..OC.O..O:......O.C(N$).1.....FL.1:.
"WHAT IS IT? ";:.153:.IN$."".132.....N$.
N$.IN$:......M..(D.100):.O.0.O$.OC$(.(O)
):.142.....O$.J(N$,O):N$.H(N$,O.1).,....
"NAME: ";N$:."DATE: ";MN$(M);D.100.M.8..
...6);O$.>.....T...LN.LN.SZ:.LN.22...X..
..".  HIT .RETURN. TO CONTINUE."......T$
:.T$."".147.....LN.SZ:.......IN$."".YN.0
:..H....I.1.C(IN$):T$.J(IN$,I,1).....:.T
$."0".T$."9".YN.0:.......I:YN.1:......IN
$." ":ZT.TI:ZC.2:ZD$.G(20).&....Z$:.Z$..
"".157.V....ZT..TI..J(" .",ZC,1);".";:ZC
.3.ZC:ZT.TI.15._....154.....Z.F(Z$):ZL.C
(IN$):.(Z.127).32.." .";:.161......FL.(Z
.127).64.(Z.127).91.Z$.G((Z.128).255).M.
...ZL.254.154... .IN$.IN$.Z$:.Z$;ZD$;Z$;
......Z.13.IN$.J(IN$,2):.CR$;:..1....Z.2
0.ZL.1.IN$.H(IN$,ZL.1):.".";:.154.B....Z
.141.Z$.G(.20.(ZL.1)):.Z.2.ZL:.Z$;:.Z:.1
53.K....154......"..";PG$;" - CURSOR #";
NM$;"  COPYRIGHT (C) 1979"......".KEEP T
RACK OF DATES"......"...PRESS .RETURN. T
O BEGIN."......T$:.T$."".168......".":..
..

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL