THE NAME MACHINE

00000000: 01 08 3B 08 0A 00 89 39  30 30 30 3A 8F 20 28 43  |..;....9000:. (C|
00000010: 29 20 31 39 38 32 20 42  59 20 43 4F 4D 4D 4F 44  |) 1982 BY COMMOD|
00000020: 4F 52 45 20 42 55 53 49  4E 45 53 53 20 4D 41 43  |ORE BUSINESS MAC|
00000030: 48 49 4E 45 53 2C 20 49  4E 43 2E 00 4A 08 14 00  |HINES, INC..J...|
00000040: A1 43 24 3A 8B 43 24 89  32 30 00 67 08 19 00 A1  |.C$:.C$.20.g....|
00000050: 43 24 3A 8B 43 24 A7 99  22 20 9D 22 3B 3A 43 B2  |C$:.C$.." .";:C.|
00000060: C6 28 43 24 29 3A 8E 00  76 08 1B 00 99 22 A4 9D  |.(C$):..v...."..|
00000070: 22 3B 3A 89 32 35 00 8A  08 64 00 A0 31 3A 8F 20  |";:.25...d..1:. |
00000080: 4D 45 4E 55 20 45 4E 54  52 59 00 B3 08 6E 00 99  |MENU ENTRY...n..|
00000090: 22 93 20 20 20 20 20 12  20 C3 4F 4D 4D 4F 44 4F  |".     . .OMMODO|
000000A0: 52 45 20 CE C1 CD C5 A0  CD C1 C3 C8 C9 CE C5 20  |RE ............ |
000000B0: 92 11 11 00 DE 08 78 00  99 22 C3 48 4F 49 43 45  |......x..".HOICE|
000000C0: 53 3A 20 20 12 C1 92 44  44 20 41 20 CE 41 4D 45  |S:  ...DD A .AME|
000000D0: 2F C1 44 44 52 45 53 53  20 45 4E 54 52 59 00 03  |/.DDRESS ENTRY..|
000000E0: 09 82 00 99 2C 22 12 C3  92 48 4F 4F 53 45 20 41  |....,"...HOOSE A|
000000F0: 20 CE 41 4D 45 2F C1 44  44 52 45 53 53 20 45 4E  | .AME/.DDRESS EN|
00000100: 54 52 59 00 26 09 8C 00  99 2C 22 12 D0 92 52 49  |TRY.&....,"...RI|
00000110: 4E 54 20 CE 41 4D 45 2F  C1 44 44 52 45 53 53 20  |NT .AME/.DDRESS |
00000120: 4C 41 42 45 4C 53 00 47  09 96 00 99 2C 22 12 C2  |LABELS.G....,"..|
00000130: 92 55 49 4C 44 20 D7 CF  D2 C4 20 CD C1 C3 C8 C9  |.UILD .... .....|
00000140: CE C5 20 46 49 4C 45 00  68 09 A0 00 99 2C 22 12  |.. FILE.h....,".|
00000150: D4 92 45 4C 45 50 48 4F  4E 45 20 42 4F 4F 4B 20  |..ELEPHONE BOOK |
00000160: 50 52 49 4E 54 4F 55 54  00 84 09 AA 00 99 2C 22  |PRINTOUT......,"|
00000170: 12 D3 92 41 56 45 20 54  48 45 20 CE 41 4D 45 20  |...AVE THE .AME |
00000180: CC 49 53 54 00 9E 09 B4  00 99 2C 22 12 D1 92 55  |.IST......,"...U|
00000190: 49 54 20 54 48 45 20 50  52 4F 47 52 41 4D 00 B8  |IT THE PROGRAM..|
000001A0: 09 B9 00 99 2C 22 12 C6  92 49 4C 45 20 4E 41 4D  |....,"...ILE NAM|
000001B0: 45 20 43 48 41 4E 47 45  00 DF 09 BE 00 99 22 11  |E CHANGE......".|
000001C0: D7 48 49 43 48 20 4F 4E  45 22 3B 3A 58 24 B2 22  |.HICH ONE";:X$."|
000001D0: 51 41 43 50 42 53 54 46  22 3A 8D 38 30 36 30 00  |QACPBSTF":.8060.|
000001E0: 09 0A FA 00 91 49 89 34  30 30 30 2C 35 30 30 30  |.....I.4000,5000|
000001F0: 2C 37 30 30 30 2C 36 30  30 30 2C 33 30 30 30 2C  |,7000,6000,3000,|
00000200: 37 31 30 30 2C 39 30 30  30 00 3E 0A 04 01 99 22  |7100,9000.>...."|
00000210: 93 C5 4A 45 43 54 20 41  20 50 41 47 45 22 3B 3A  |..JECT A PAGE";:|
00000220: 8D 38 30 35 30 3A 8B 49  B2 30 A7 9F 31 2C 30 34  |.8050:.I.0..1,04|
00000230: 3A 4C B2 2E 31 3A 8D 37  39 35 30 3A A0 31 00 6F  |:L..1:.7950:.1.o|
00000240: 0A 0E 01 8B 4F 46 A7 99  22 11 D3 41 56 45 20 54  |....OF.."..AVE T|
00000250: 48 45 20 CE 41 4D 45 20  CC 49 53 54 22 3B 3A 8D  |HE .AME .IST";:.|
00000260: 38 30 35 30 3A 8B 49 B2  30 A7 8D 33 30 32 30 00  |8050:.I.0..3020.|
00000270: 86 0A 18 01 A0 31 3A 99  22 93 11 C7 4F 4F 44 42  |.....1:."...OODB|
00000280: 59 45 21 22 3A A2 00 9C  0A 2C 01 8F 20 46 4F 52  |YE!":....,.. FOR|
00000290: 4D 41 54 20 54 48 45 20  4C 49 4E 45 00 CC 0A 36  |MAT THE LINE...6|
000002A0: 01 58 24 B2 54 24 28 54  2C 30 29 3A 59 24 B2 54  |.X$.T$(T,0):Y$.T|
000002B0: 24 28 54 2C 31 29 3A 8B  C3 28 59 24 29 B1 31 A7  |$(T,1):..(Y$).1.|
000002C0: 58 24 B2 59 24 AA 22 20  22 AA 58 24 00 F1 0A 40  |X$.Y$." ".X$...@|
000002D0: 01 59 24 B2 54 24 28 54  2C 32 29 3A 8B C3 28 59  |.Y$.T$(T,2):..(Y|
000002E0: 24 29 B1 31 A7 58 24 B2  59 24 AA 22 20 22 AA 58  |$).1.X$.Y$." ".X|
000002F0: 24 00 17 0B 4A 01 59 24  B2 54 24 28 54 2C 33 29  |$...J.Y$.T$(T,3)|
00000300: 3A 8B C3 28 59 24 29 B1  31 A7 58 24 B2 58 24 AA  |:..(Y$).1.X$.X$.|
00000310: 22 2C 20 22 AA 59 24 00  59 0B 5E 01 41 24 28 4A  |", ".Y$.Y.^.A$(J|
00000320: 2C 30 29 B2 58 24 3A 81  49 B2 31 A4 33 3A 41 24  |,0).X$:.I.1.3:A$|
00000330: 28 4A 2C 49 29 B2 22 22  3A 59 24 B2 54 24 28 54  |(J,I)."":Y$.T$(T|
00000340: 2C 49 AA 33 29 3A 8B C3  28 59 24 29 B1 31 A7 41  |,I.3):..(Y$).1.A|
00000350: 24 28 4A 2C 49 29 B2 59  24 00 8A 0B 68 01 82 3A  |$(J,I).Y$...h..:|
00000360: 8B C3 28 54 24 28 54 2C  37 29 29 B1 31 A7 41 24  |..(T$(T,7)).1.A$|
00000370: 28 4A 2C 33 29 B2 41 24  28 4A 2C 33 29 AA 22 2C  |(J,3).A$(J,3).",|
00000380: 20 22 AA 54 24 28 54 2C  37 29 00 B1 0B 72 01 41  | ".T$(T,7)...r.A|
00000390: 24 28 4A 2C 34 29 B2 54  24 28 54 2C 38 29 3A 58  |$(J,4).T$(T,8):X|
000003A0: B2 C6 28 54 24 28 54 2C  39 29 29 AF 31 32 37 3A  |..(T$(T,9)).127:|
000003B0: 8E 00 C3 0B B8 0B 8F 20  4F 55 54 50 55 54 20 46  |....... OUTPUT F|
000003C0: 49 4C 45 00 D2 0B C2 0B  8D 33 30 32 30 3A 89 31  |ILE......3020:.1|
000003D0: 30 30 00 EF 0B CC 0B 59  24 B2 48 24 3A 8D 33 35  |00.....Y$.H$:.35|
000003E0: 30 30 3A 8B C5 28 58 24  29 89 36 30 30 30 30 00  |00:..(X$).60000.|
000003F0: F8 0B D6 0B 8B 58 A7 8E  00 09 0C 1C 0C 4F 46 B2  |.....X.......OF.|
00000400: 30 3A 98 31 2C 44 24 3A  99 00 26 0C 4E 0C 81 49  |0:.1,D$:..&.N..I|
00000410: B2 30 A4 4E 58 3A 54 B2  54 25 28 49 29 3A 99 54  |.0.NX:T.T%(I):.T|
00000420: 24 28 54 2C 30 29 00 41  0C 58 0C 81 4A B2 30 A4  |$(T,0).A.X..J.0.|
00000430: 39 3A 98 31 2C 54 24 28  54 2C 4A 29 3A 82 4A 2C  |9:.1,T$(T,J):.J,|
00000440: 49 00 59 0C 76 0C 98 31  2C 22 5C 22 3A 8E 3A 8F  |I.Y.v..1,"\":.:.|
00000450: 20 43 4F 4D 50 4C 45 54  45 00 76 0C AC 0D 8F 20  | COMPLETE.v.... |
00000460: 4F 50 45 4E 20 54 48 45  20 46 49 4C 45 20 54 4F  |OPEN THE FILE TO|
00000470: 20 57 52 49 54 45 00 A7  0C C0 0D 44 46 B2 30 3A  | WRITE.....DF.0:|
00000480: 58 B2 30 3A 58 24 B2 22  22 3A 8B 43 46 B1 32 A7  |X.0:X$."":.CF.2.|
00000490: 99 22 93 D4 4F 20 44 41  54 41 53 45 54 54 45 22  |."..O DATASETTE"|
000004A0: 3B 3A 8D 38 30 35 30 00  C8 0C CA 0D 8B 43 46 B2  |;:.8050......CF.|
000004B0: 32 B0 28 43 46 B2 33 AF  49 B2 30 29 A7 9F 31 2C  |2.(CF.3.I.0)..1,|
000004C0: 31 2C 31 2C 59 24 3A 8E  00 F8 0C DE 0D 44 46 B2  |1,1,Y$:......DF.|
000004D0: AB 31 3A 4C 24 B2 22 30  3A 22 AA 59 24 3A 9F 31  |.1:L$."0:".Y$:.1|
000004E0: 2C 30 38 2C 32 2C 4C 24  3A 84 38 2C 58 3A A0 31  |,08,2,L$:.8,X:.1|
000004F0: 3A 8B 58 89 33 35 38 30  00 28 0D E8 0D 99 22 11  |:.X.3580.(....".|
00000500: C6 49 4C 45 20 45 58 49  53 54 53 20 2D 20 4F 56  |.ILE EXISTS - OV|
00000510: 45 52 57 52 49 54 45 22  3B 3A 8D 38 30 35 30 3A  |ERWRITE";:.8050:|
00000520: 8B 49 A7 58 B2 31 3A 8E  00 3C 0D F2 0D 98 38 2C  |.I.X.1:..<....8,|
00000530: 22 53 22 4C 24 3A 98 38  2C 22 49 30 00 5C 0D FC  |"S"L$:.8,"I0.\..|
00000540: 0D 9F 31 2C 30 38 2C 33  2C 4C 24 AA 22 2C 53 2C  |..1,08,3,L$.",S,|
00000550: 57 22 3A 84 38 2C 58 2C  58 24 3A 8E 00 72 0D A0  |W":.8,X,X$:..r..|
00000560: 0F 8F 20 43 52 45 41 54  45 20 41 4E 20 45 4E 54  |.. CREATE AN ENT|
00000570: 52 59 00 AB 0D AA 0F 8B  4E 58 B1 B2 56 A7 99 22  |RY......NX..V.."|
00000580: 11 12 20 D3 4F 52 52 59  20 2D 20 4E 4F 20 50 4C  |.. .ORRY - NO PL|
00000590: 41 43 45 20 54 4F 20 50  55 54 20 49 54 21 20 22  |ACE TO PUT IT! "|
000005A0: 3A 8D 38 30 30 30 3A 89  31 30 30 00 D3 0D B4 0F  |:.8000:.100.....|
000005B0: 4E 58 B2 4E 58 AA 31 3A  4B B2 4E 58 3A 54 B2 54  |NX.NX.1:K.NX:T.T|
000005C0: 25 28 4B 29 3A 54 24 28  54 2C 39 29 B2 C7 28 31  |%(K):T$(T,9)..(1|
000005D0: 32 38 29 00 F8 0D 04 10  4F 46 B2 31 3A 4D B2 33  |28).....OF.1:M.3|
000005E0: 39 3A 59 B2 30 3A 8F 20  47 45 54 20 4E 41 4D 45  |9:Y.0:. GET NAME|
000005F0: 2F 41 44 44 52 45 53 53  00 05 0E 0E 10 4A B2 30  |/ADDRESS.....J.0|
00000600: 3A 8D 33 30 30 00 37 0E  18 10 99 22 93 20 22 3B  |:.300.7....". ";|
00000610: 3A 81 49 B2 31 A4 33 30  3A 99 22 A4 22 3B 3A 82  |:.I.1.30:.".";:.|
00000620: 3A 81 49 B2 31 A4 35 3A  99 22 11 A5 9D 22 3B 3A  |:.I.1.5:."...";:|
00000630: 82 3A 99 22 11 22 3B 00  62 0E 1A 10 81 49 B2 31  |.:.".";.b....I.1|
00000640: A4 33 30 3A 99 22 9D A3  9D 22 3B 3A 82 3A 81 49  |.30:."...";:.:.I|
00000650: B2 31 A4 35 3A 99 22 91  9D A7 22 3B 3A 82 3A 99  |.1.5:."...";:.:.|
00000660: 22 13 00 85 0E 22 10 81  49 B2 30 A4 34 3A 99 22  |"...."..I.0.4:."|
00000670: 1D 22 41 24 28 4A 2C 49  29 3A 82 3A 8B 59 B1 38  |."A$(J,I):.:.Y.8|
00000680: 89 34 32 30 30 00 AB 0E  36 10 99 22 13 11 11 11  |.4200...6.."....|
00000690: 11 11 11 11 11 11 22 42  30 24 3A 99 22 91 22 46  |......"B0$:."."F|
000006A0: 24 28 59 29 3A 99 42 30  24 22 91 00 C1 0E 3B 10  |$(Y):.B0$"....;.|
000006B0: 8D 38 32 30 30 3A 8B 43  B3 B1 31 33 89 34 31 32  |.8200:.C..13.412|
000006C0: 30 00 EB 0E 3D 10 99 3A  8B C9 28 58 24 2C 31 29  |0...=..:..(X$,1)|
000006D0: B2 22 20 22 A7 58 24 B2  C8 28 58 24 2C C3 28 58  |." ".X$..(X$,.(X|
000006E0: 24 29 AB 31 29 3A 89 34  31 35 37 00 1A 0F 40 10  |$).1):.4157...@.|
000006F0: 8B 58 24 B2 22 22 AF 54  24 28 54 2C 59 29 B1 22  |.X$."".T$(T,Y)."|
00000700: 22 A7 59 B2 59 AA 31 3A  91 32 AA 28 59 B3 39 29  |".Y.Y.1:.2.(Y.9)|
00000710: 89 34 31 35 30 2C 34 31  31 30 00 2C 0F 4A 10 8B  |.4150,4110.,.J..|
00000720: C3 28 58 24 29 B1 31 89  34 31 39 30 00 5D 0F 54  |.(X$).1.4190.].T|
00000730: 10 58 24 B2 22 2D 22 3A  8B 59 B2 30 A7 99 22 11  |.X$."-":.Y.0..".|
00000740: C4 45 4C 45 54 45 22 3B  3A 8D 38 30 35 30 3A 91  |.ELETE";:.8050:.|
00000750: 49 AA 31 89 34 39 30 30  2C 34 31 31 30 00 78 0F  |I.1.4900,4110.x.|
00000760: 5E 10 54 24 28 54 2C 59  29 B2 58 24 3A 59 B2 59  |^.T$(T,Y).X$:Y.Y|
00000770: AA 31 3A 89 34 31 31 30  00 9D 0F 68 10 58 24 B2  |.1:.4110...h.X$.|
00000780: 22 31 32 33 34 35 36 37  22 AA 52 24 3A 8F 20 47  |"1234567".R$:. G|
00000790: 45 54 20 43 41 54 45 47  4F 52 49 45 53 00 B8 0F  |ET CATEGORIES...|
000007A0: 72 10 99 22 13 11 11 11  11 11 11 11 11 C3 41 54  |r.."..........AT|
000007B0: 45 47 4F 52 49 45 53 3A  00 D3 0F 7C 10 81 49 B2  |EGORIES:...|..I.|
000007C0: 30 A4 36 3A 99 2C 3A 8B  58 AF 32 AE 49 A7 99 22  |0.6:.,:.X.2.I.."|
000007D0: 12 22 3B 00 E6 0F 86 10  99 49 AA 31 22 92 22 4B  |.";......I.1"."K|
000007E0: 24 28 49 29 3A 82 00 18  10 90 10 99 22 11 D3 45  |$(I):......."..E|
000007F0: 54 2F 52 45 53 45 54 20  57 48 49 43 48 20 43 41  |T/RESET WHICH CA|
00000800: 54 45 47 4F 52 59 3F 20  20 9D 22 3B 3A 8D 38 30  |TEGORY?  .";:.80|
00000810: 37 30 3A 49 B2 32 AE 49  00 37 10 9A 10 58 B2 28  |70:I.2.I.7...X.(|
00000820: 58 B0 49 29 AF A8 28 58  AF 49 29 3A 8B 58 B3 31  |X.I)..(X.I):.X.1|
00000830: 32 38 89 34 32 31 30 00  58 10 CC 10 54 24 28 54  |28.4210.X...T$(T|
00000840: 2C 39 29 B2 C7 28 58 29  3A 8F 20 43 4F 4D 50 4C  |,9)..(X):. COMPL|
00000850: 45 54 45 20 45 44 49 54  00 7F 10 D6 10 99 22 91  |ETE EDIT......".|
00000860: 91 22 42 30 24 3A 99 22  91 C1 43 43 45 50 54 22  |."B0$:."..CCEPT"|
00000870: 3B 3A 8D 38 30 35 30 3A  8B 49 89 34 31 30 30 00  |;:.8050:.I.4100.|
00000880: A0 10 E0 10 8B 4E 58 B3  31 89 31 30 30 3A 8F 20  |.....NX.1.100:. |
00000890: 4D 55 53 54 20 42 45 20  49 4E 20 4F 52 44 45 52  |MUST BE IN ORDER|
000008A0: 00 DA 10 EA 10 58 24 B2  54 24 28 54 2C 30 29 3A  |.....X$.T$(T,0):|
000008B0: 8B 4B B3 4E 58 A7 81 49  B2 4B A4 4E 58 AB 31 3A  |.K.NX..I.K.NX.1:|
000008C0: 54 25 28 49 29 B2 54 25  28 49 AA 31 29 3A 82 3A  |T%(I).T%(I.1):.:|
000008D0: 8F 20 52 45 4D 4F 56 45  20 54 00 0C 11 F4 10 81  |. REMOVE T......|
000008E0: 49 B2 30 A4 4E 58 AB 31  3A 8B 54 24 28 54 25 28  |I.0.NX.1:.T$(T%(|
000008F0: 49 29 2C 30 29 B3 58 24  A7 82 3A 8F 20 4C 4F 43  |I),0).X$..:. LOC|
00000900: 41 54 45 20 54 27 53 20  53 4C 4F 54 00 49 11 FE  |ATE T'S SLOT.I..|
00000910: 10 8B 49 B3 4E 58 A7 4A  B2 49 AA 31 3A 81 49 B2  |..I.NX.J.I.1:.I.|
00000920: 4E 58 A4 4A A9 AB 31 3A  54 25 28 49 29 B2 54 25  |NX.J..1:T%(I).T%|
00000930: 28 49 AB 31 29 3A 82 3A  8F 20 4D 41 4B 45 20 52  |(I.1):.:. MAKE R|
00000940: 4F 4F 4D 20 46 4F 52 20  54 00 6B 11 08 11 54 25  |OOM FOR T.k...T%|
00000950: 28 49 29 B2 54 3A 89 31  30 30 3A 8F 20 49 4E 53  |(I).T:.100:. INS|
00000960: 45 52 54 20 54 2C 20 45  58 49 54 00 83 11 24 13  |ERT T, EXIT...$.|
00000970: 8F 20 43 4C 45 41 4E 20  55 50 20 44 45 4C 45 54  |. CLEAN UP DELET|
00000980: 49 4F 4E 00 9B 11 2E 13  81 49 B2 30 A4 39 3A 54  |ION......I.0.9:T|
00000990: 24 28 54 2C 49 29 B2 22  22 3A 82 00 CC 11 38 13  |$(T,I)."":....8.|
000009A0: 4E 58 B2 4E 58 AB 31 3A  81 49 B2 4B A4 4E 58 3A  |NX.NX.1:.I.K.NX:|
000009B0: 54 25 28 49 29 B2 54 25  28 49 AA 31 29 3A 82 3A  |T%(I).T%(I.1):.:|
000009C0: 54 25 28 49 29 B2 54 3A  89 31 30 30 00 E7 11 88  |T%(I).T:.100....|
000009D0: 13 8F 20 53 45 4C 45 43  54 2F 45 44 49 54 20 41  |.. SELECT/EDIT A|
000009E0: 4E 20 45 4E 54 52 59 00  08 12 92 13 99 22 93 22  |N ENTRY......"."|
000009F0: 3A 99 22 C6 49 4E 44 20  42 59 3A 20 20 12 CC 92  |:.".IND BY:  ...|
00000A00: 41 53 54 20 CE 41 4D 45  00 1C 12 9C 13 99 2C 22  |AST .AME......,"|
00000A10: 12 C6 92 49 52 53 54 20  CE 41 4D 45 00 2A 12 A6  |...IRST .AME.*..|
00000A20: 13 99 2C 22 12 C3 92 49  54 59 00 3E 12 B0 13 99  |..,"...ITY.>....|
00000A30: 2C 22 12 D3 92 54 41 54  45 20 20 DA 49 50 00 51  |,"...TATE  .IP.Q|
00000A40: 12 BA 13 99 2C 22 12 D4  92 45 4C 45 50 48 4F 4E  |....,"...ELEPHON|
00000A50: 45 00 7D 12 CE 13 99 22  11 D7 48 49 43 48 20 4F  |E.}...."..HICH O|
00000A60: 4E 45 22 3B 3A 58 24 B2  22 4C 46 4C 4C 4C 4C 43  |NE";:X$."LFLLLLC|
00000A70: 53 54 22 3A 8D 38 30 36  30 3A 46 B2 49 00 A9 12  |ST":.8060:F.I...|
00000A80: D8 13 4D B2 34 30 3A 99  22 11 CB 45 59 57 4F 52  |..M.40:."..EYWOR|
00000A90: 44 3A 20 22 3B 3A 8D 38  32 30 30 3A 5A 24 B2 58  |D: ";:.8200:Z$.X|
00000AA0: 24 3A 5A B2 C3 28 5A 24  29 00 C4 12 EC 13 4B B2  |$:Z..(Z$).....K.|
00000AB0: 30 3A 8F 20 53 45 41 52  43 48 20 46 4F 52 20 46  |0:. SEARCH FOR F|
00000AC0: 49 45 4C 44 00 DF 12 F6  13 54 B2 54 25 28 4B 29  |IELD.....T.T%(K)|
00000AD0: 3A 58 24 B2 54 24 28 54  2C 46 29 3A 59 B2 30 00  |:X$.T$(T,F):Y.0.|
00000AE0: 11 13 00 14 81 49 B2 31  A4 C3 28 58 24 29 AB 5A  |.....I.1..(X$).Z|
00000AF0: AA 31 3A 59 B2 28 CA 28  58 24 2C 49 2C 5A 29 B2  |.1:Y.(.(X$,I,Z).|
00000B00: 5A 24 29 B0 59 3A 82 3A  8B 59 B2 30 89 35 31 35  |Z$).Y:.:.Y.0.515|
00000B10: 30 00 35 13 0A 14 4A B2  30 3A 8D 33 30 30 3A 99  |0.5...J.0:.300:.|
00000B20: 22 93 22 3A 81 49 B2 30  A4 34 3A 99 41 24 28 30  |".":.I.0.4:.A$(0|
00000B30: 2C 49 29 3A 82 00 5D 13  14 14 99 22 11 CC 4F 4F  |,I):..]...."..OO|
00000B40: 4B 20 46 4F 52 20 41 4E  4F 54 48 45 52 22 3B 3A  |K FOR ANOTHER";:|
00000B50: 8D 38 30 35 30 3A 8B 49  89 35 31 38 30 00 73 13  |.8050:.I.5180.s.|
00000B60: 1E 14 4B B2 4B AA 31 3A  8B 4B B3 B2 4E 58 89 35  |..K.K.1:.K..NX.5|
00000B70: 31 31 30 00 9C 13 28 14  99 3A 99 22 11 C1 4C 4C  |110...(..:."..LL|
00000B80: 20 45 4E 54 52 49 45 53  20 43 48 45 43 4B 45 44  | ENTRIES CHECKED|
00000B90: 22 3A 8D 38 30 30 30 3A  89 31 30 30 00 BD 13 3C  |":.8000:.100...<|
00000BA0: 14 99 22 11 C5 44 49 54  22 3B 3A 8D 38 30 35 30  |.."..DIT";:.8050|
00000BB0: 3A 91 49 89 31 30 30 3A  89 34 31 30 30 00 D9 13  |:.I.100:.4100...|
00000BC0: 70 17 8F 20 46 49 4C 45  20 46 4F 52 20 57 4F 52  |p.. FILE FOR WOR|
00000BD0: 44 20 4D 41 43 48 49 4E  45 00 0C 14 7A 17 99 22  |D MACHINE...z.."|
00000BE0: 93 CE 41 4D 45 20 4F 46  20 54 48 45 20 46 49 4C  |..AME OF THE FIL|
00000BF0: 45 3A 20 22 3B 3A 4D B2  31 36 3A 8D 38 32 30 30  |E: ";:M.16:.8200|
00000C00: 3A 8B 58 24 B2 22 22 89  36 30 31 30 00 29 14 84  |:.X$."".6010.)..|
00000C10: 17 59 24 B2 58 24 3A 8D  33 35 30 30 3A 8B C5 28  |.Y$.X$:.3500:..(|
00000C20: 58 24 29 89 36 30 30 30  30 00 34 14 8E 17 8B 58  |X$).60000.4....X|
00000C30: 89 31 30 30 00 6A 14 A2  17 8D 37 32 30 30 3A 99  |.100.j....7200:.|
00000C40: 22 11 D3 45 4C 45 43 54  20 49 4E 44 49 56 49 44  |"..ELECT INDIVID|
00000C50: 55 41 4C 4C 59 22 3B 3A  8D 38 30 35 30 3A 53 46  |UALLY";:.8050:SF|
00000C60: B2 49 3A 4A B2 30 3A 4B  B2 30 00 8D 14 AC 17 54  |.I:J.0:K.0.....T|
00000C70: B2 54 25 28 4B 29 3A 8B  28 46 AF C6 28 54 24 28  |.T%(K):.(F..(T$(|
00000C80: 54 2C 39 29 29 29 B2 30  89 36 31 38 30 00 A4 14  |T,9))).0.6180...|
00000C90: B6 17 8B 53 46 A7 99 54  24 28 54 2C 30 29 3A 89  |...SF..T$(T,0):.|
00000CA0: 36 31 30 30 00 C4 14 C0  17 8D 33 30 30 3A 99 22  |6100......300:."|
00000CB0: 93 22 3A 81 49 B2 30 A4  33 3A 99 41 24 28 4A 2C  |.":.I.0.3:.A$(J,|
00000CC0: 49 29 3A 82 00 EC 14 CA  17 99 22 11 C9 4E 43 4C  |I):......."..NCL|
00000CD0: 55 44 45 20 54 48 49 53  20 4F 4E 45 22 3B 3A 8D  |UDE THIS ONE";:.|
00000CE0: 38 30 35 30 3A 8B 49 89  36 31 38 30 00 02 15 D4  |8050:.I.6180....|
00000CF0: 17 8F 20 4F 55 54 50 55  54 20 54 48 45 20 46 49  |.. OUTPUT THE FI|
00000D00: 4C 45 00 23 15 DE 17 81  49 B2 30 A4 37 3A 98 31  |LE.#....I.0.7:.1|
00000D10: 2C 54 24 28 54 2C 49 29  3A 82 3A 44 46 B2 B6 28  |,T$(T,I):.:DF..(|
00000D20: 44 46 29 00 39 15 24 18  4B B2 4B AA 31 3A 8B 4B  |DF).9.$.K.K.1:.K|
00000D30: B3 B2 4E 58 89 36 30 36  30 00 6F 15 2E 18 98 31  |..NX.6060.o....1|
00000D40: 2C 22 5C 22 3A 8B 44 46  B1 AB 31 A7 91 53 46 AA  |,"\":.DF..1..SF.|
00000D50: 31 89 36 32 32 30 2C 31  30 30 3A 8F 20 20 2D 31  |1.6220,100:.  -1|
00000D60: 3D 45 4D 50 54 59 20 44  49 53 43 46 49 4C 45 00  |=EMPTY DISCFILE.|
00000D70: 9F 15 38 18 99 22 11 D4  48 45 20 46 49 4C 45 20  |..8.."..HE FILE |
00000D80: 57 41 53 20 45 4D 50 54  59 3B 20 49 54 20 49 53  |WAS EMPTY; IT IS|
00000D90: 20 42 45 49 4E 47 20 43  4C 45 41 52 45 44 2E 00  | BEING CLEARED..|
00000DA0: B8 15 42 18 A0 31 3A 98  38 2C 22 53 30 3A 22 59  |..B..1:.8,"S0:"Y|
00000DB0: 24 3A 98 38 2C 22 49 30  00 C7 15 4C 18 8D 38 30  |$:.8,"I0...L..80|
00000DC0: 30 30 3A 89 31 30 30 00  DA 15 58 1B 8F 20 50 52  |00:.100...X.. PR|
00000DD0: 49 4E 54 20 4C 41 42 45  4C 53 00 FB 15 5D 1B 8F  |INT LABELS...]..|
00000DE0: 20 4D 20 3D 20 53 45 43  4F 4E 44 20 43 4F 4C 55  | M = SECOND COLU|
00000DF0: 4D 4E 20 50 4F 53 49 54  49 4F 4E 00 18 16 62 1B  |MN POSITION...b.|
00000E00: 53 46 B2 AB 31 3A 4D B2  33 36 3A 9F 31 2C 30 34  |SF..1:M.36:.1,04|
00000E10: 3A 4C 4C B2 39 39 39 39  00 40 16 6C 1B 99 22 11  |:LL.9999.@.l..".|
00000E20: D3 49 4E 47 4C 45 20 C3  4F 4C 55 4D 4E 20 CC 41  |.INGLE .OLUMN .A|
00000E30: 42 45 4C 53 22 3B 3A 8D  38 30 35 30 3A 59 B2 49  |BELS";:.8050:Y.I|
00000E40: 00 68 16 8A 1B 99 22 11  C1 4C 49 47 4E 20 54 48  |.h...."..LIGN TH|
00000E50: 45 20 4C 41 42 45 4C 53  22 3B 3A 8D 38 30 35 30  |E LABELS";:.8050|
00000E60: 3A 8B 49 89 37 30 39 30  00 96 16 94 1B 50 24 B2  |:.I.7090.....P$.|
00000E70: 22 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 46 49 52 53 54  |"----------FIRST|
00000E80: 20 4C 49 4E 45 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 22  | LINE----------"|
00000E90: 3A 8D 37 39 30 30 00 CD  16 9E 1B 81 49 B2 30 A4  |:.7900......I.0.|
00000EA0: 31 3A 50 24 B2 22 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |1:P$."----------|
00000EB0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000EC0: 2D 2D 2D 2D 22 3A 8D 37  39 30 30 3A 82 00 0A 17  |----":.7900:....|
00000ED0: A8 1B 50 24 B2 22 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |..P$."----------|
00000EE0: 46 49 4E 41 4C 20 4C 49  4E 45 2D 2D 2D 2D 2D 2D  |FINAL LINE------|
00000EF0: 2D 2D 2D 2D 22 3A 81 49  B2 31 A4 33 3A 8D 37 39  |----":.I.1.3:.79|
00000F00: 30 30 3A 82 3A 89 37 30  35 30 00 2F 17 B2 1B 8D  |00:.:.7050./....|
00000F10: 37 32 30 30 3A 8D 37 33  30 30 3A 89 31 30 30 3A  |7200:.7300:.100:|
00000F20: 8F 20 4F 55 54 50 55 54  20 4C 41 42 45 4C 53 00  |. OUTPUT LABELS.|
00000F30: 46 17 BC 1B 8F 20 50 52  49 4E 54 20 50 48 4F 4E  |F.... PRINT PHON|
00000F40: 45 20 42 4F 4F 4B 00 62  17 C6 1B 53 46 B2 30 3A  |E BOOK.b...SF.0:|
00000F50: 4D B2 33 36 3A 59 B2 31  3A 9F 31 2C 30 34 3A 4C  |M.36:Y.1:.1,04:L|
00000F60: B2 30 00 88 17 D0 1B 99  22 11 CC 49 4E 45 53 20  |.0......"..INES |
00000F70: 50 45 52 20 50 41 47 45  20 22 4C 30 22 9D 9D 9D  |PER PAGE "L0"...|
00000F80: 9D 9D 22 3B 3A 85 4C 4C  00 A3 17 DA 1B 8D 37 32  |..";:.LL......72|
00000F90: 30 30 3A 8D 37 33 30 30  3A 8D 37 39 35 30 3A 89  |00:.7300:.7950:.|
00000FA0: 31 30 30 00 B6 17 20 1C  8F 20 47 45 54 20 43 41  |100... .. GET CA|
00000FB0: 54 45 47 4F 52 59 00 EC  17 2A 1C 99 22 93 D3 45  |TEGORY...*.."..E|
00000FC0: 4C 45 43 54 20 42 59 3A  22 3A 81 49 B2 30 A4 36  |LECT BY:":.I.0.6|
00000FD0: 3A 99 2C 22 12 22 CA 28  C4 28 49 AA 31 29 2C 32  |:.,".".(.(I.1),2|
00000FE0: 29 22 92 20 22 4B 24 28  49 29 3A 82 00 27 18 34  |)". "K$(I):..'.4|
00000FF0: 1C 99 2C 22 12 38 92 20  C1 4C 4C 22 3A 99 22 11  |..,".8. .LL":.".|
00001000: D9 4F 55 52 20 43 48 4F  49 43 45 22 3B 3A 58 24  |.OUR CHOICE";:X$|
00001010: B2 22 31 32 33 34 35 36  37 38 22 3A 8D 38 30 36  |."12345678":.806|
00001020: 30 3A 46 B2 32 AE 49 00  46 18 3E 1C 8E 3A 8F 20  |0:F.2.I.F.>..:. |
00001030: 41 4C 4C 20 41 52 45 20  4F 52 2D 45 44 20 57 49  |ALL ARE OR-ED WI|
00001040: 54 48 20 31 32 38 00 59  18 84 1C 8F 20 50 52 49  |TH 128.Y.... PRI|
00001050: 4E 54 20 45 49 54 48 45  52 00 88 18 8E 1C 4A B2  |NT EITHER.....J.|
00001060: 59 3A 81 4B B2 30 A4 4E  58 3A 54 B2 54 25 28 4B  |Y:.K.0.NX:T.T%(K|
00001070: 29 3A 8B 28 46 AF C6 28  54 24 28 54 2C 39 29 29  |):.(F..(T$(T,9))|
00001080: 29 B2 30 89 37 33 38 30  00 A6 18 98 1C 4A B2 59  |).0.7380.....J.Y|
00001090: AB 4A 3A 8D 33 30 30 3A  8B 53 46 A7 41 24 28 4A  |.J:.300:.SF.A$(J|
000010A0: 2C 34 29 B2 22 22 00 B4  18 A2 1C 8B 4A B3 59 89  |,4).""......J.Y.|
000010B0: 37 33 38 30 00 CF 18 B6  1C 81 49 B2 30 A4 34 3A  |7380......I.0.4:|
000010C0: 50 24 B2 C8 28 41 24 28  30 2C 49 29 2C 4D 29 00  |P$..(A$(0,I),M).|
000010D0: F9 18 C0 1C 8B 4A A7 50  24 B2 50 24 AA C8 28 42  |.....J.P$.P$..(B|
000010E0: 24 2C 4D AA 36 AB C3 28  50 24 29 29 AA C8 28 41  |$,M.6..(P$))..(A|
000010F0: 24 28 31 2C 49 29 2C 4D  29 00 0B 19 CA 1C 8D 37  |$(1,I),M)......7|
00001100: 39 30 30 3A 82 3A 8D 37  39 30 30 00 3C 19 D4 1C  |900:.:.7900.<...|
00001110: 82 4B 3A 8B 4A B3 59 A7  81 49 B2 30 A4 34 3A 50  |.K:.J.Y..I.0.4:P|
00001120: 24 B2 C8 28 41 24 28 30  2C 49 29 2C 4D 29 3A 8D  |$..(A$(0,I),M):.|
00001130: 37 39 30 30 3A 82 3A 8D  37 39 30 30 00 42 19 DE  |7900:.:.7900.B..|
00001140: 1C 8E 00 6F 19 DC 1E 4C  B2 4C AA 31 3A 98 31 2C  |...o...L.L.1:.1,|
00001150: 22 11 22 AA 50 24 3A 50  24 B2 22 22 3A 8B 4C B3  |".".P$:P$."":.L.|
00001160: 4C 4C A7 8E 3A 8F 20 4C  49 4E 45 20 4F 55 54 00  |LL..:. LINE OUT.|
00001170: 91 19 E6 1E 4C B2 4C AA  31 3A 98 31 2C 22 11 22  |....L.L.1:.1,"."|
00001180: AA 50 24 3A 50 24 B2 22  22 3A 8B 4C B3 4C 4C A7  |.P$:P$."":.L.LL.|
00001190: 8E 00 BF 19 0E 1F 8B 4C  A7 81 4C B2 4C A4 4C 50  |.......L..L.L.LP|
000011A0: AB 31 3A 98 31 3A 82 3A  4C B2 30 3A 8E 3A 8F 20  |.1:.1:.:L.0:.:. |
000011B0: 46 49 4E 49 53 48 20 54  48 45 20 50 41 47 45 00  |FINISH THE PAGE.|
000011C0: CF 19 40 1F 8F 20 55 54  49 4C 49 54 49 45 53 00  |..@.. UTILITIES.|
000011D0: FD 19 4A 1F 99 22 11 12  20 C8 49 54 20 41 20 4B  |..J..".. .IT A K|
000011E0: 45 59 20 54 4F 20 43 4F  4E 54 49 4E 55 45 22 3B  |EY TO CONTINUE";|
000011F0: 3A 8D 32 30 3A 99 3A 99  22 93 22 3A 8E 00 08 1A  |:.20:.:.".":....|
00001200: 72 1F 58 24 B2 22 59 4E  00 13 1A 7C 1F 99 22 3F  |r.X$."YN...|.."?|
00001210: 20 22 3B 00 3D 1A 86 1F  8D 32 30 3A 81 49 B2 31  | ";.=....20:.I.1|
00001220: A4 C3 28 58 24 29 3A 8B  43 24 B3 B1 CA 28 58 24  |..(X$):.C$...(X$|
00001230: 2C 49 2C 31 29 A7 82 3A  89 38 30 37 30 00 56 1A  |,I,1)..:.8070.V.|
00001240: 8B 1F 49 B2 49 AB 31 3A  99 43 24 3B 3A 8B 43 B2  |..I.I.1:.C$;:.C.|
00001250: 31 33 A7 99 3A 8E 00 72  1A 90 1F A1 57 24 3A 8B  |13..:..r....W$:.|
00001260: 57 24 B2 22 22 A7 99 22  A4 9D 22 3B 3A 89 38 30  |W$."".."..";:.80|
00001270: 38 30 00 88 1A 95 1F 99  22 20 9D 22 3B 3A 8B 57  |80......" .";:.W|
00001280: 24 B2 52 24 A7 99 3A 8E  00 A1 1A 9A 1F 8B 57 24  |$.R$..:.......W$|
00001290: B2 C7 28 32 30 29 A7 99  57 24 3B 3A 89 38 30 37  |..(20)..W$;:.807|
000012A0: 30 00 AB 1A 9F 1F 89 38  30 38 30 00 C6 1A 08 20  |0......8080.... |
000012B0: 58 24 B2 22 22 3A 8F 20  49 4E 50 55 54 20 41 20  |X$."":. INPUT A |
000012C0: 53 54 52 49 4E 47 00 D7  1A 12 20 A1 43 24 3A 8B  |STRING.... .C$:.|
000012D0: 43 24 89 38 32 31 30 00  E7 1A 1C 20 8D 32 35 3A  |C$.8210.... .25:|
000012E0: 8B 43 B2 31 33 A7 8E 00  16 1B 26 20 8B 43 B2 32  |.C.13.....& .C.2|
000012F0: 30 AF 58 24 B1 22 22 A7  99 43 24 3B 3A 58 24 B2  |0.X$.""..C$;:X$.|
00001300: C8 28 58 24 2C C3 28 58  24 29 AB 31 29 3A 8F 20  |.(X$,.(X$).1):. |
00001310: 44 45 4C 45 54 45 00 3F  1B 2B 20 8B 28 31 32 37  |DELETE.?.+ .(127|
00001320: AF 43 29 B3 33 32 89 38  32 32 30 3A 8F 20 43 55  |.C).32.8220:. CU|
00001330: 52 53 4F 52 20 43 48 41  52 41 43 54 45 52 53 00  |RSOR CHARACTERS.|
00001340: 68 1B 30 20 8B 28 4B 25  28 43 29 B0 47 29 A7 99  |h.0 .(K%(C).G)..|
00001350: 43 24 3B 3A 58 24 B2 58  24 AA 43 24 3A 8B C3 28  |C$;:X$.X$.C$:..(|
00001360: 58 24 29 B1 B2 4D A7 8E  00 72 1B 3A 20 89 38 32  |X$)..M...r.: .82|
00001370: 32 30 00 87 1B 28 23 9C  3A 8C 3A 8F 20 49 4E 49  |20...(#.:.:. INI|
00001380: 54 49 41 4C 49 5A 45 00  9D 1B 2A 23 97 35 33 32  |TIALIZE...*#.532|
00001390: 38 30 2C 30 3A 97 35 33  32 38 31 2C 30 00 D2 1B  |80,0:.53281,0...|
000013A0: 2D 23 4C 30 B2 36 30 3A  4C 50 B2 36 36 3A 4E 58  |-#L0.60:LP.66:NX|
000013B0: B2 AB 31 3A 52 24 B2 C7  28 31 33 29 3A 48 24 B2  |..1:R$..(13):H$.|
000013C0: 22 54 48 45 20 41 44 44  52 45 53 53 20 46 49 4C  |"THE ADDRESS FIL|
000013D0: 45 22 00 01 1C 2E 23 99  C7 28 31 34 29 2C 22 9F  |E"....#..(14),".|
000013E0: 93 1D 1D 1D 1D 1D 12 20  CE C1 CD C5 20 CD C1 C3  |....... .... ...|
000013F0: C8 C9 CE C5 20 C6 49 4C  45 20 CE 41 4D 45 20 92  |.... .ILE .AME .|
00001400: 22 00 43 1C 2F 23 99 22  11 1D 1D C1 54 20 50 52  |".C./#."....T PR|
00001410: 45 53 45 4E 54 20 54 48  45 20 4E 41 4D 45 20 4F  |ESENT THE NAME O|
00001420: 46 20 54 48 45 20 41 44  44 52 45 53 53 22 3A 99  |F THE ADDRESS":.|
00001430: 22 11 1D 1D 46 49 4C 45  20 49 53 20 22 3B 48 24  |"...FILE IS ";H$|
00001440: 22 2E 22 00 77 1C 30 23  85 22 11 11 1D 1D D7 41  |".".w.0#.".....A|
00001450: 4E 54 20 54 4F 20 43 48  41 4E 47 45 20 49 54 22  |NT TO CHANGE IT"|
00001460: 3B 5A 24 3A 8B 20 C8 28  5A 24 2C 31 29 B2 22 4E  |;Z$:. .(Z$,1)."N|
00001470: 22 89 20 39 30 31 35 00  8F 1C 31 23 8B 20 C8 28  |". 9015...1#. .(|
00001480: 5A 24 2C 31 29 B2 22 59  22 89 20 39 30 31 34 00  |Z$,1)."Y". 9014.|
00001490: BD 1C 32 23 99 22 11 11  1D 1D D9 CF D5 20 CD D5  |..2#."....... ..|
000014A0: D3 D4 20 C5 CE D4 C5 D2  20 12 D9 92 C5 D3 20 CF  |.. ..... ..... .|
000014B0: D2 20 12 CE 92 30 20 CF  CE CC D9 2E 22 00 D7 1C  |. ...0 ....."...|
000014C0: 33 23 81 20 5A B2 31 20  A4 20 32 30 30 30 3A 20  |3#. Z.1 . 2000: |
000014D0: 8F 20 50 41 55 53 45 00  DF 1C 34 23 82 20 5A 00  |. PAUSE...4#. Z.|
000014E0: EA 1C 35 23 89 20 39 30  30 36 00 06 1D 36 23 85  |..5#. 9006...6#.|
000014F0: 22 11 11 1D 1D CE 45 57  20 46 49 4C 45 20 4E 41  |".....EW FILE NA|
00001500: 4D 45 22 3B 48 24 00 27  1D 37 23 86 4B 25 28 32  |ME";H$.'.7#.K%(2|
00001510: 35 35 29 2C 41 24 28 31  2C 34 29 2C 4B 24 28 36  |55),A$(1,4),K$(6|
00001520: 29 2C 46 24 28 38 29 00  68 1D 3C 23 99 22 93 8E  |),F$(8).h.<#."..|
00001530: 13 13 0F 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
00001540: 11 11 11 11 11 11 11 11  11 11 11 11 22 A6 33 39  |............".39|
00001550: 29 22 8F 05 22 3A 97 35  39 34 36 38 2C 31 34 3A  |)"..":.59468,14:|
00001560: 8F 20 46 4F 52 4D 41 54  00 A2 1D 41 23 97 35 33  |. FORMAT...A#.53|
00001570: 32 37 32 2C 32 B0 C2 28  35 33 32 37 32 29 3A 99  |272,2..(53272):.|
00001580: 22 9F 93 20 20 20 20 20  12 20 C3 4F 4D 4D 4F 44  |"..     . .OMMOD|
00001590: 4F 52 45 20 CE C1 CD C5  A0 CD C1 C3 C8 C9 CE C5  |ORE ............|
000015A0: 20 92 00 BD 1D 43 23 8D  36 31 30 30 30 3A 20 8F  | ....C#.61000: .|
000015B0: 20 43 4F 4C 4F 52 20 43  48 41 4E 47 45 00 F6 1D  | COLOR CHANGE...|
000015C0: 46 23 99 22 11 12 D4 92  41 50 45 2C 20 12 C4 92  |F#."....APE, ...|
000015D0: 49 53 43 2C 20 4F 52 20  12 C2 92 4F 54 48 22 3B  |ISC, OR ...OTH";|
000015E0: 3A 58 24 B2 22 44 54 42  22 3A 8D 38 30 36 30 3A  |:X$."DTB":.8060:|
000015F0: 43 46 B2 49 AA 31 00 2E  1E 4B 23 81 49 B2 33 32  |CF.I.1...K#.I.32|
00001600: A4 39 30 3A 87 4B 25 28  49 29 3A 82 3A 81 49 B2  |.90:.K%(I):.:.I.|
00001610: 31 39 33 A4 32 31 38 3A  4B 25 28 49 29 B2 31 3A  |193.218:K%(I).1:|
00001620: 82 3A 8F 20 43 48 41 52  20 41 52 52 41 59 00 65  |.:. CHAR ARRAY.e|
00001630: 1E 50 23 42 24 B2 22 20  20 20 20 20 22 3A 81 49  |.P#B$."     ":.I|
00001640: B2 31 A4 35 3A 42 24 B2  42 24 AA 42 24 3A 82 3A  |.1.5:B$.B$.B$:.:|
00001650: 42 30 24 B2 C8 28 42 24  2C 33 39 29 3A 9F 38 2C  |B0$..(B$,39):.8,|
00001660: 30 38 2C 31 35 00 A2 1E  55 23 99 22 11 D4 4F 44  |08,15...U#."..OD|
00001670: 41 59 27 53 20 C4 41 54  45 3A 20 22 3A 4D B2 36  |AY'S .ATE: ":M.6|
00001680: 30 3A 47 B2 31 3A 8D 38  32 30 30 3A 47 B2 30 3A  |0:G.1:.8200:G.0:|
00001690: 44 24 B2 58 24 3A 8B 44  24 B2 22 22 A7 44 24 B2  |D$.X$:.D$."".D$.|
000016A0: 22 2D 00 C6 1E 6E 23 99  3A 81 49 B2 30 A4 38 3A  |"-...n#.:.I.0.8:|
000016B0: 87 46 24 28 49 29 3A 82  3A 8F 20 46 49 45 4C 44  |.F$(I):.:. FIELD|
000016C0: 20 4E 41 4D 45 53 00 E7  1E 78 23 81 49 B2 30 A4  | NAMES...x#.I.0.|
000016D0: 36 3A 87 4B 24 28 49 29  3A 82 3A 8F 20 43 41 54  |6:.K$(I):.:. CAT|
000016E0: 45 47 4F 52 49 45 53 00  20 1F 82 23 56 B2 B5 28  |EGORIES. ..#V..(|
000016F0: 28 B8 28 30 29 AB 32 30  30 30 29 AD 31 37 30 29  |(.(0).2000).170)|
00001700: 3A 86 54 24 28 56 2C 39  29 2C 54 25 28 56 29 3A  |:.T$(V,9),T%(V):|
00001710: 81 49 B2 30 A4 56 3A 54  25 28 49 29 B2 49 3A 82  |.I.0.V:T%(I).I:.|
00001720: 00 31 1F 1C 25 8F 20 49  4E 50 55 54 20 46 49 4C  |.1..%. INPUT FIL|
00001730: 45 00 55 1F 26 25 8B 43  46 B1 32 A7 99 22 11 C6  |E.U.&%.CF.2.."..|
00001740: 52 4F 4D 20 44 41 54 41  53 45 54 54 45 22 3B 3A  |ROM DATASETTE";:|
00001750: 8D 38 30 35 30 00 87 1F  30 25 8B 43 46 B2 32 B0  |.8050...0%.CF.2.|
00001760: 28 43 46 B2 33 AF 49 B2  30 29 A7 8D 39 37 30 30  |(CF.3.I.0)..9700|
00001770: 3A 91 49 89 31 30 30 3A  9F 31 2C 31 2C 30 2C 48  |:.I.100:.1,1,0,H|
00001780: 24 3A 89 39 36 30 30 00  AB 1F 4E 25 A0 31 3A 9F  |$:.9600...N%.1:.|
00001790: 31 2C 30 38 2C 32 2C 48  24 3A 84 38 2C 58 2C 58  |1,08,2,H$:.8,X,X|
000017A0: 24 3A 8B 58 B2 30 89 39  36 30 30 00 BC 1F 58 25  |$:.X.0.9600...X%|
000017B0: 8D 39 37 30 30 3A 8B 49  89 31 30 30 00 EB 1F 62  |.9700:.I.100...b|
000017C0: 25 99 22 11 D0 4C 45 41  53 45 20 50 55 54 20 49  |%."..LEASE PUT I|
000017D0: 4E 20 54 48 45 20 44 49  53 43 20 41 4E 44 22 3A  |N THE DISC AND":|
000017E0: 8D 38 30 30 30 3A 89 39  35 35 30 00 F5 1F 80 25  |.8000:.9550....%|
000017F0: 58 24 B2 22 22 00 17 20  83 25 A1 23 31 2C 43 24  |X$."".. .%.#1,C$|
00001800: 3A 8B 43 24 B3 B1 52 24  A7 58 24 B2 58 24 AA 43  |:.C$..R$.X$.X$.C|
00001810: 24 3A 89 39 36 30 33 00  43 20 85 25 99 22 93 C5  |$:.9603.C .%."..|
00001820: 4E 54 45 52 45 44 3A 20  12 22 58 24 3A 99 3A 8F  |NTERED: ."X$:.:.|
00001830: 20 44 41 54 45 4C 49 4E  45 20 46 52 4F 4D 20 46  | DATELINE FROM F|
00001840: 49 4C 45 00 79 20 8A 25  81 49 B2 30 A4 56 3A 84  |ILE.y .%.I.0.V:.|
00001850: 31 2C 58 24 3A 8B 58 24  B2 22 5C 22 B0 53 54 B1  |1,X$:.X$."\".ST.|
00001860: 30 89 39 36 35 30 3A 8F  20 52 45 41 44 49 4E 47  |0.9650:. READING|
00001870: 20 43 4F 4D 50 4C 45 54  45 00 AA 20 94 25 99 58  | COMPLETE.. .%.X|
00001880: 24 3A 54 24 28 49 2C 30  29 B2 58 24 3A 81 4A B2  |$:T$(I,0).X$:.J.|
00001890: 31 A4 39 3A 84 31 2C 54  24 28 49 2C 4A 29 3A 82  |1.9:.1,T$(I,J):.|
000018A0: 3A 54 25 28 49 29 B2 49  3A 82 00 C5 20 B2 25 4E  |:T%(I).I:... .%N|
000018B0: 58 B2 49 AB 31 3A 89 31  30 30 3A 8F 20 43 4F 4D  |X.I.1:.100:. COM|
000018C0: 50 4C 45 54 45 00 E5 20  E4 25 99 22 11 CE 45 57  |PLETE.. .%."..EW|
000018D0: 20 46 49 4C 45 22 3B 3A  8D 38 30 35 30 3A 49 B2  | FILE";:.8050:I.|
000018E0: 31 AB 49 3A 8E 00 07 21  AC 26 8F 20 41 43 43 45  |1.I:...!.&. ACCE|
000018F0: 50 54 41 42 4C 45 20 43  48 41 52 41 43 54 45 52  |PTABLE CHARACTER|
00001900: 53 20 33 32 2D 39 30 00  4C 21 B6 26 83 31 2C 31  |S 32-90.L!.&.1,1|
00001910: 2C 30 2C 31 2C 31 2C 31  2C 31 2C 31 2C 31 2C 31  |,0,1,1,1,1,1,1,1|
00001920: 2C 31 2C 31 2C 30 2C 31  2C 31 2C 31 2C 31 2C 31  |,1,1,0,1,1,1,1,1|
00001930: 2C 31 2C 31 2C 31 2C 31  2C 31 2C 31 2C 31 2C 31  |,1,1,1,1,1,1,1,1|
00001940: 2C 30 2C 30 2C 31 2C 31  2C 31 2C 31 00 87 21 C0  |,0,0,1,1,1,1..!.|
00001950: 26 83 31 2C 31 2C 31 2C  31 2C 31 2C 31 2C 31 2C  |&.1,1,1,1,1,1,1,|
00001960: 31 2C 31 2C 31 2C 31 2C  31 2C 31 2C 31 2C 31 2C  |1,1,1,1,1,1,1,1,|
00001970: 31 2C 31 2C 31 2C 31 2C  31 2C 31 2C 31 2C 31 2C  |1,1,1,1,1,1,1,1,|
00001980: 31 2C 31 2C 31 2C 31 00  D2 21 CA 26 83 22 CC 41  |1,1,1,1..!.&.".A|
00001990: 53 54 20 CE 41 4D 45 22  2C 22 C6 49 52 53 54 20  |ST .AME",".IRST |
000019A0: CE 41 4D 45 22 2C 22 D0  52 45 46 49 58 20 28 45  |.AME",".REFIX (E|
000019B0: 2E 47 2E 2C 20 CD 53 2E  2C 20 CD 52 2E 20 26 20  |.G., .S., .R. & |
000019C0: CD 52 53 2E 2C 20 C4 52  2E 29 22 2C 22 D4 49 54  |.RS., .R.)",".IT|
000019D0: 4C 45 00 0F 22 D4 26 83  22 CF 52 47 41 4E 49 5A  |LE..".&.".RGANIZ|
000019E0: 41 54 49 4F 4E 22 2C 22  C1 44 44 52 45 53 53 22  |ATION",".DDRESS"|
000019F0: 2C 22 C3 49 54 59 22 2C  22 D3 54 41 54 45 20 20  |,".ITY",".TATE  |
00001A00: DA 49 50 22 2C 22 D4 45  4C 45 50 48 4F 4E 45 00  |.IP",".ELEPHONE.|
00001A10: 26 22 10 27 8F 20 53 45  56 45 4E 20 43 41 54 45  |&".'. SEVEN CATE|
00001A20: 47 4F 52 49 45 53 00 33  22 1A 27 83 20 46 41 4D  |GORIES.3".'. FAM|
00001A30: 49 4C 59 00 41 22 24 27  83 20 46 52 49 45 4E 44  |ILY.A"$'. FRIEND|
00001A40: 53 00 50 22 2E 27 83 20  42 55 53 49 4E 45 53 53  |S.P".'. BUSINESS|
00001A50: 00 5D 22 38 27 83 20 53  43 48 4F 4F 4C 00 6D 22  |.]"8'. SCHOOL.m"|
00001A60: 42 27 83 20 49 4E 53 55  52 41 4E 43 45 00 7F 22  |B'. INSURANCE.."|
00001A70: 4C 27 83 20 50 48 4F 54  4F 47 52 41 50 48 59 00  |L'. PHOTOGRAPHY.|
00001A80: 8F 22 56 27 83 20 43 4F  4D 50 55 54 45 52 53 00  |."V'. COMPUTERS.|
00001A90: A2 22 60 EA 99 58 24 3A  8D 38 30 30 30 3A 89 31  |."`..X$:.8000:.1|
00001AA0: 30 30 00 BD 22 48 EE 8F  20 43 4F 4C 4F 52 20 43  |00.."H.. COLOR C|
00001AB0: 48 41 4E 47 45 20 52 4F  55 54 49 4E 45 00 E1 22  |HANGE ROUTINE.."|
00001AC0: 49 EE 96 A5 43 28 58 29  B2 C2 28 58 29 AA 31 AA  |I...C(X)..(X).1.|
00001AD0: 31 36 AC 28 28 C2 28 58  29 AF 31 35 29 B2 31 35  |16.((.(X).15).15|
00001AE0: 29 00 00 23 4A EE 99 22  13 11 11 11 D4 4F 20 C3  |)..#J..".....O .|
00001AF0: 48 41 4E 47 45 20 43 4F  4C 4F 52 53 2E 2E 2E 22  |HANGE COLORS..."|
00001B00: 00 36 23 4B EE 99 22 11  11 12 C6 31 92 3D C2 4F  |.6#K.."....1.=.O|
00001B10: 52 44 45 52 20 C3 4F 4C  4F 52 20 20 20 20 20 20  |RDER .OLOR      |
00001B20: 12 C6 33 92 3D C2 41 43  4B 47 52 4F 55 4E 44 20  |..3.=.ACKGROUND |
00001B30: C3 4F 4C 4F 52 22 00 66  23 4D EE 99 22 11 12 C6  |.OLOR".f#M.."...|
00001B40: 35 92 3D C3 48 41 52 41  43 54 45 52 20 C3 4F 4C  |5.=.HARACTER .OL|
00001B50: 4F 52 20 20 20 12 D2 C5  D4 D5 D2 CE 92 3D C4 4F  |OR   ........=.O|
00001B60: 4E 45 11 11 11 22 00 78  23 52 EE A1 43 24 3A 8B  |NE...".x#R..C$:.|
00001B70: 43 24 89 36 31 30 31 30  00 8D 23 5C EE A1 43 24  |C$.61010..#\..C$|
00001B80: 3A 8B 43 24 B2 22 22 89  36 31 30 32 30 00 B4 23  |:.C$."".61020..#|
00001B90: 66 EE 43 B2 C6 28 43 24  29 3A 8B 43 B2 31 33 35  |f.C..(C$):.C.135|
00001BA0: A7 97 36 34 36 2C A5 43  28 36 34 36 29 3A 89 36  |..646,.C(646):.6|
00001BB0: 31 30 30 32 00 E0 23 7A  EE 43 B2 C6 28 43 24 29  |1002..#z.C..(C$)|
00001BC0: 3A 8B 43 B2 31 33 33 B0  43 B2 31 33 34 A7 58 B2  |:.C.133.C.134.X.|
00001BD0: 35 33 31 34 37 AA 43 3A  97 58 2C A5 43 28 58 29  |53147.C:.X,.C(X)|
00001BE0: 00 F0 23 7F EE 8B 43 B2  39 35 89 36 31 30 37 30  |..#...C.95.61070|
00001BF0: 00 01 24 84 EE 8B 43 B3  B1 31 33 89 36 31 30 31  |..$...C..13.6101|
00001C00: 30 00 07 24 8E EE 8E 00  00 00                    |0..$......      |

..;....9000:. (C) 1982 BY COMMODORE BUSI
NESS MACHINES, INC..J....C$:.C$.20.G....
C$:.C$.." .";:C.F(C$):..V...."..";:.25..
.D. 1:. MENU ENTRY...N..".     . COMMODO
RE NAME MACHINE ......X.."CHOICES:  .A.D
D A NAME/ADDRESS ENTRY......,".C.HOOSE A
 NAME/ADDRESS ENTRY.&....,".P.RINT NAME/
ADDRESS LABELS.G....,".B.UILD WORD MACHI
NE FILE.H. ..,".T.ELEPHONE BOOK PRINTOUT
......,".S.AVE THE NAME LIST......,".Q.U
IT THE PROGRAM......,".F.ILE NAME CHANGE
......".WHICH ONE";:X$."QACPBSTF":.8060.
.....I.4000,5000,7000,6000,3000,7100,900
0.>....".EJECT A PAGE";:.8050:.I.0..1,04
:L..1:.7950: 1.O....OF..".SAVE THE NAME 
LIST";:.8050:.I.0..3020..... 1:."..GOODB
YE!":....,.. FORMAT THE LINE.L.6.X$.T$(T
,0):Y$.T$(T,1):.C(Y$).1.X$.Y$." ".X$...@
.Y$.T$(T,2):.C(Y$).1.X$.Y$." ".X$...J.Y$
.T$(T,3):.C(Y$).1.X$.X$.", ".Y$.Y.^.A$(J
,0).X$:.I.1.3:A$(J,I)."":Y$.T$(T,I.3):.C
(Y$).1.A$(J,I).Y$...H..:.C(T$(T,7)).1.A$
(J,3).A$(J,3).", ".T$(T,7)...R.A$(J,4).T
$(T,8):X.F(T$(T,9)).127:..C.... OUTPUT F
ILE.R.B..3020:.100...L.Y$.H$:.3500:.E(X$
).60000...V..X.......OF.0:.1,D$:..&.N..I
.0.NX:T.T%(I):.T$(T,0).A.X..J.0.9:.1,T$(
T,J):.J,I.Y.V..1,"\":.:. COMPLETE.V.... 
OPEN THE FILE TO WRITE.....DF.0:X.0:X$."
":.CF.2..".TO DATASETTE";:.8050.H.J..CF.
2.(CF.3.I.0)..1,1,1,Y$:......DF..1:L$."0
:".Y$:.1,08,2,L$:.8,X: 1:.X.3580.(....".
FILE EXISTS - OVERWRITE";:.8050:.I.X.1:.
.<....8,"S"L$:.8,"I0.\....1,08,3,L$.",S,
W":.8,X,X$:..R. .. CREATE AN ENTRY......
NX..V..".. SORRY - NO PLACE TO PUT IT! "
:.8000:.100.S...NX.NX.1:K.NX:T.T%(K):T$(
T,9).G(128).....OF.1:M.39:Y.0:. GET NAME
/ADDRESS.....J.0:.300.7....". ";:.I.1.30
:.".";:.:.I.1.5:."...";:.:.".";.B....I.1
.30:."...";:.:.I.1.5:."...";:.:."...."..
I.0.4:."."A$(J,I):.:.Y.8.4200...6.."....
......"B0$:."."F$(Y):.B0$"..A.;..8200:.C
..13.4120...=..:.I(X$,1)." ".X$.H(X$,C(X
$).1):.4157...@..X$."".T$(T,Y)."".Y.Y.1:
.2.(Y.9).4150,4110.,.J..C(X$).1.4190.].T
.X$."-":.Y.0..".DELETE";:.8050:.I.1.4900
,4110.X.^.T$(T,Y).X$:Y.Y.1:.4110...H.X$.
"1234567".R$:. GET CATEGORIES...R.."....
.....CATEGORIES:.S.|..I.0.6:.,:.X.2.I.."
.";......I.1"."K$(I):.......".SET/RESET 
WHICH CATEGORY?  .";:.8070:I.2.I.7...X.(
X.I)..(X.I):.X.128.4210.X.L.T$(T,9).G(X)
:. COMPLETE EDIT..V..".."B0$:.".ACCEPT"
;:.8050:.I.4100. ....NX.1.100:. MUST BE 
IN ORDER.Z...X$.T$(T,0):.K.NX..I.K.NX.1:
T%(I).T%(I.1):.:. REMOVE T......I.0.NX.1
:.T$(T%(I),0).X$..:. LOCATE T'S SLOT.I..
..I.NX.J.I.1:.I.NX.J..1:T%(I).T%(I.1):.:
. MAKE ROOM FOR T.K...T%(I).T:.100:. INS
ERT T, EXIT...$.. CLEAN UP DELETION.....
.I.0.9:T$(T,I)."":..L.8.NX.NX.1:.I.K.NX:
T%(I).T%(I.1):.:T%(I).T:.100...... SELEC
T/EDIT AN ENTRY......".":."FIND BY:  .L.
AST NAME......,".F.IRST NAME.*....,".C.I
TY.>....,".S.TATE  ZIP.Q....,".T.ELEPHON
E.}.N..".WHICH ONE";:X$."LFLLLLCST":.806
0:F.I...X.M.40:.".KEYWORD: ";:.8200:Z$.X
$:Z.C(Z$).D...K.0:. SEARCH FOR FIELD....
.T.T%(K):X$.T$(T,F):Y.0......I.1.C(X$).Z
.1:Y.(J(X$,I,Z).Z$).Y:.:.Y.0.5150.5...J.
0:.300:.".":.I.0.4:.A$(0,I):..]....".LOO
K FOR ANOTHER";:.8050:.I.5180.S...K.K.1:
.K..NX.5110...(..:.".ALL ENTRIES CHECKED
":.8000:.100...<..".EDIT";:.8050:.I.100:
.4100.Y.P.. FILE FOR WORD MACHINE...Z.."
.NAME OF THE FILE: ";:M.16:.8200:.X$."".
6010.)...Y$.X$:.3500:.E(X$).60000.4....X
.100.J....7200:.".SELECT INDIVIDUALLY";:
.8050:SF.I:J.0:K.0.....T.T%(K):.(F.F(T$(
T,9))).0.6180......SF..T$(T,0):.6100.D..
..300:.".":.I.0.3:.A$(J,I):....J..".INCL
UDE THIS ONE";:.8050:.I.6180...T.. OUTPU
T THE FILE.#....I.0.7:.1,T$(T,I):.:DF..(
DF).9.$.K.K.1:.K..NX.6060.O....1,"\":.DF
..1..SF.1.6220,100:.  -1=EMPTY DISCFILE.
..8..".THE FILE WAS EMPTY; IT IS BEING C
LEARED....B. 1:.8,"S0:"Y$:.8,"I0.G.L..80
00:.100.Z.X.. PRINT LABELS...].. M = SEC
OND COLUMN POSITION...B.SF..1:M.36:.1,04
:LL.9999.@.L..".SINGLE COLUMN LABELS";:.
8050:Y.I.H....".ALIGN THE LABELS";:.8050
:.I.7090.....P$."----------FIRST LINE---
-------":.7900.M....I.0.1:P$."----------
--------------------":.7900:......P$."--
--------FINAL LINE----------":.I.1.3:.79
00:.:.7050./....7200:.7300:.100:. OUTPUT
 LABELS.F.... PRINT PHONE BOOK.B.F.SF.0:
M.36:Y.1:.1,04:L.0...P..".LINES PER PAGE
 "L0".....";:.LL...Z..7200:.7300:.7950:.
100... .. GET CATEGORY...*..".SELECT BY:
":.I.0.6:.,"."J(D(I.1),2)". "K$(I):..'.4
..,".8. ALL":.".YOUR CHOICE";:X$."123456
78":.8060:F.2.I.F.>..:. ALL ARE OR-ED WI
TH 128.Y.... PRINT EITHER.....J.Y:.K.0.N
X:T.T%(K):.(F.F(T$(T,9))).0.7380.....J.Y
.J:.300:.SF.A$(J,4).""......J.Y.7380.O..
..I.0.4:P$.H(A$(0,I),M)......J.P$.P$.H(B
$,M.6.C(P$)).H(A$(1,I),M)...J..7900:.:.7
900.<.T..K:.J.Y..I.0.4:P$.H(A$(0,I),M):.
7900:.:.7900.B.....O...L.L.1:.1,".".P$:P
$."":.L.LL..:. LINE OUT.....L.L.1:.1,"."
.P$:P$."":.L.LL........L..L.L.LP.1:.1:.:
L.0:.:. FINISH THE PAGE.O.@.. UTILITIES.
..J..".. HIT A KEY TO CONTINUE";:.20:.:.
".":....R.X$."YN...|.."? ";.=....20:.I.1
.C(X$):.C$..J(X$,I,1)..:.8070.V...I.I.1:
.C$;:.C.13..:..R....W$:.W$."".."..";:.80
80......" .";:.W$.R$..:.......W$.G(20)..
W$;:.8070......8080.F.. X$."":. INPUT A 
STRING.W.. .C$:.C$.8210.... .25:.C.13...
..& .C.20.X$.""..C$;:X$.H(X$,C(X$).1):. 
DELETE.?.+ .(127.C).32.8220:. CURSOR CHA
RACTERS.H.0 .(K%(C).G)..C$;:X$.X$.C$:.C(
X$)..M...R.: .8220...(#.:.:. INITIALIZE.
..*#.53280,0:.53281,0.R.-#L0.60:LP.66:NX
..1:R$.G(13):H$."THE ADDRESS FILE"....#.
G(14),"........ NAME MACHINE FILE NAME .
".C./#."...AT PRESENT THE NAME OF THE AD
DRESS":."...FILE IS ";H$".".W.0#."....WA
NT TO CHANGE IT";Z$:. H(Z$,1)."N". 9015.
..1#. H(Z$,1)."Y". 9014...2#."....YOU MU
ST ENTER .Y.ES OR .N.0 ONLY.".W.3#. Z.1 
. 2000: . PAUSE...4#. Z...5#. 9006...6#.
"....NEW FILE NAME";H$.'.7#.K%(255),A$(1
,4),K$(6),F$(8).H.<#."..................
............".39)"..":.59468,14:. FORMAT
...A#.53272,2.B(53272):."..     . COMMOD
ORE NAME MACHINE ....C#.61000: . COLOR C
HANGE...F#."..T.APE, .D.ISC, OR .B.OTH";
:X$."DTB":.8060:CF.I.1...K#.I.32.90:.K%(
I):.:.I.193.218:K%(I).1:.:. CHAR ARRAY.E
.P#B$."     ":.I.1.5:B$.B$.B$:.:B0$.H(B$
,39):.8,08,15...U#.".TODAY'S DATE: ":M.6
0:G.1:.8200:G.0:D$.X$:.D$."".D$."-.F.N#.
:.I.0.8:.F$(I):.:. FIELD NAMES...X#.I.0.
6:.K$(I):.:. CATEGORIES. ..#V..((.(0).20
00).170):.T$(V,9),T%(V):.I.0.V:T%(I).I:.
.1..%. INPUT FILE.U.&%.CF.2..".FROM DATA
SETTE";:.8050...0%.CF.2.(CF.3.I.0)..9700
:.I.100:.1,1,0,H$:.9600...N% 1:.1,08,2,H
$:.8,X,X$:.X.0.9600...X%.9700:.I.100...B
%.".PLEASE PUT IN THE DISC AND":.8000:.9
550....%X$."".. .%.#1,C$:.C$..R$.X$.X$.C
$:.9603.C .%.".ENTERED: ."X$:.:. DATELIN
E FROM FILE.Y .%.I.0.V:.1,X$:.X$."\".ST.
0.9650:. READING COMPLETE.. .%.X$:T$(I,0
).X$:.J.1.9:.1,T$(I,J):.:T%(I).I:..E .%N
X.I.1:.100:. COMPLETE.. .%.".NEW FILE";:
.8050:I.1.I:...!.&. ACCEPTABLE CHARACTER
S 32-90.L!.&.1,1,0,1,1,1,1,1,1,1,1,1,0,1
,1,1,1,1,1,1,1,1,1,1,1,1,0,0,1,1,1,1..!.
&.1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
1,1,1,1,1,1,1,1.R!J&."LAST NAME","FIRST 
NAME","PREFIX (E.G., MS., MR. & MRS., DR
.)","TITLE.."T&."ORGANIZATION","ADDRESS"
,"CITY","STATE  ZIP","TELEPHONE.&".'. SE
VEN CATEGORIES.3".'. FAMILY.A"$'. FRIEND
S.P".'. BUSINESS.]"8'. SCHOOL.M"B'. INSU
RANCE."L'. PHOTOGRAPHY.."V'. COMPUTERS.
."`..X$:.8000:.100.."H.. COLOR CHANGE RO
UTINE.."I...C(X).B(X).1.16.((B(X).15).15
)..#J.."....TO CHANGE COLORS...".6#K..".
..F1.=BORDER COLOR      .F3.=BACKGROUND 
COLOR".F#M.."..F5.=CHARACTER COLOR   .RE
TURN.=DONE...".X#R..C$:.C$.61010..#\..C$
:.C$."".61020..#F.C.F(C$):.C.135..646,.C
(646):.61002..#Z.C.F(C$):.C.133.C.134.X.
53147.C:.X,.C(X)..#..C.95.61070..$...C.
.13.61010..$......

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL