HE AME ACHINE

00000000: 01 04 3B 04 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 04 14 00  |HINES, INC..J...|
00000040: A1 43 24 3A 8B 43 24 89  32 30 00 67 04 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 04 1B 00 99 22 A4 9D  |.(C$):..v...."..|
00000070: 22 3B 3A 89 32 35 00 8A  04 64 00 A0 31 3A 8F 20  |";:.25...d..1:. |
00000080: 4D 45 4E 55 20 45 4E 54  52 59 00 B4 04 6E 00 99  |MENU ENTRY...n..|
00000090: 22 93 20 20 20 20 20 20  12 20 C3 4F 4D 4D 4F 44  |".      . .OMMOD|
000000A0: 4F 52 45 20 CE C1 CD C5  A0 CD C1 C3 C8 C9 CE C5  |ORE ............|
000000B0: 20 92 11 11 00 DF 04 78  00 99 22 C3 48 4F 49 43  | ......x..".HOIC|
000000C0: 45 53 3A 20 20 12 C1 92  44 44 20 41 20 CE 41 4D  |ES:  ...DD A .AM|
000000D0: 45 2F C1 44 44 52 45 53  53 20 45 4E 54 52 59 00  |E/.DDRESS ENTRY.|
000000E0: 04 05 82 00 99 2C 22 12  C3 92 48 4F 4F 53 45 20  |.....,"...HOOSE |
000000F0: 41 20 CE 41 4D 45 2F C1  44 44 52 45 53 53 20 45  |A .AME/.DDRESS E|
00000100: 4E 54 52 59 00 27 05 8C  00 99 2C 22 12 D0 92 52  |NTRY.'....,"...R|
00000110: 49 4E 54 20 CE 41 4D 45  2F C1 44 44 52 45 53 53  |INT .AME/.DDRESS|
00000120: 20 4C 41 42 45 4C 53 00  48 05 96 00 99 2C 22 12  | LABELS.H....,".|
00000130: C2 92 55 49 4C 44 20 D7  CF D2 C4 20 CD C1 C3 C8  |..UILD .... ....|
00000140: C9 CE C5 20 46 49 4C 45  00 69 05 A0 00 99 2C 22  |... FILE.i....,"|
00000150: 12 D4 92 45 4C 45 50 48  4F 4E 45 20 42 4F 4F 4B  |...ELEPHONE BOOK|
00000160: 20 50 52 49 4E 54 4F 55  54 00 85 05 AA 00 99 2C  | PRINTOUT......,|
00000170: 22 12 D3 92 41 56 45 20  54 48 45 20 CE 41 4D 45  |"...AVE THE .AME|
00000180: 20 CC 49 53 54 00 9F 05  B4 00 99 2C 22 12 D1 92  | .IST......,"...|
00000190: 55 49 54 20 54 48 45 20  50 52 4F 47 52 41 4D 00  |UIT THE PROGRAM.|
000001A0: C5 05 BE 00 99 22 11 D7  48 49 43 48 20 4F 4E 45  |....."..HICH ONE|
000001B0: 22 3B 3A 58 24 B2 22 51  41 43 50 42 53 54 22 3A  |";:X$."QACPBST":|
000001C0: 8D 38 30 36 30 00 EA 05  FA 00 91 49 89 34 30 30  |.8060......I.400|
000001D0: 30 2C 35 30 30 30 2C 37  30 30 30 2C 36 30 30 30  |0,5000,7000,6000|
000001E0: 2C 33 30 30 30 2C 37 31  30 30 00 1F 06 04 01 99  |,3000,7100......|
000001F0: 22 93 C5 4A 45 43 54 20  41 20 50 41 47 45 22 3B  |"..JECT A PAGE";|
00000200: 3A 8D 38 30 35 30 3A 8B  49 B2 30 A7 9F 31 2C 30  |:.8050:.I.0..1,0|
00000210: 34 3A 4C B2 2E 31 3A 8D  37 39 35 30 3A A0 31 00  |4:L..1:.7950:.1.|
00000220: 50 06 0E 01 8B 4F 46 A7  99 22 11 D3 41 56 45 20  |P....OF.."..AVE |
00000230: 54 48 45 20 CE 41 4D 45  20 CC 49 53 54 22 3B 3A  |THE .AME .IST";:|
00000240: 8D 38 30 35 30 3A 8B 49  B2 30 A7 8D 33 30 32 30  |.8050:.I.0..3020|
00000250: 00 67 06 18 01 A0 31 3A  99 22 93 11 C7 4F 4F 44  |.g....1:."...OOD|
00000260: 42 59 45 21 22 3A A2 00  7D 06 2C 01 8F 20 46 4F  |BYE!":..}.,.. FO|
00000270: 52 4D 41 54 20 54 48 45  20 4C 49 4E 45 00 AD 06  |RMAT THE LINE...|
00000280: 36 01 58 24 B2 54 24 28  54 2C 30 29 3A 59 24 B2  |6.X$.T$(T,0):Y$.|
00000290: 54 24 28 54 2C 31 29 3A  8B C3 28 59 24 29 B1 31  |T$(T,1):..(Y$).1|
000002A0: A7 58 24 B2 59 24 AA 22  20 22 AA 58 24 00 D2 06  |.X$.Y$." ".X$...|
000002B0: 40 01 59 24 B2 54 24 28  54 2C 32 29 3A 8B C3 28  |@.Y$.T$(T,2):..(|
000002C0: 59 24 29 B1 31 A7 58 24  B2 59 24 AA 22 20 22 AA  |Y$).1.X$.Y$." ".|
000002D0: 58 24 00 F8 06 4A 01 59  24 B2 54 24 28 54 2C 33  |X$...J.Y$.T$(T,3|
000002E0: 29 3A 8B C3 28 59 24 29  B1 31 A7 58 24 B2 58 24  |):..(Y$).1.X$.X$|
000002F0: AA 22 2C 20 22 AA 59 24  00 3A 07 5E 01 41 24 28  |.", ".Y$.:.^.A$(|
00000300: 4A 2C 30 29 B2 58 24 3A  81 49 B2 31 A4 33 3A 41  |J,0).X$:.I.1.3:A|
00000310: 24 28 4A 2C 49 29 B2 22  22 3A 59 24 B2 54 24 28  |$(J,I)."":Y$.T$(|
00000320: 54 2C 49 AA 33 29 3A 8B  C3 28 59 24 29 B1 31 A7  |T,I.3):..(Y$).1.|
00000330: 41 24 28 4A 2C 49 29 B2  59 24 00 6B 07 68 01 82  |A$(J,I).Y$.k.h..|
00000340: 3A 8B C3 28 54 24 28 54  2C 37 29 29 B1 31 A7 41  |:..(T$(T,7)).1.A|
00000350: 24 28 4A 2C 33 29 B2 41  24 28 4A 2C 33 29 AA 22  |$(J,3).A$(J,3)."|
00000360: 2C 20 22 AA 54 24 28 54  2C 37 29 00 92 07 72 01  |, ".T$(T,7)...r.|
00000370: 41 24 28 4A 2C 34 29 B2  54 24 28 54 2C 38 29 3A  |A$(J,4).T$(T,8):|
00000380: 58 B2 C6 28 54 24 28 54  2C 39 29 29 AF 31 32 37  |X..(T$(T,9)).127|
00000390: 3A 8E 00 A4 07 B8 0B 8F  20 4F 55 54 50 55 54 20  |:....... OUTPUT |
000003A0: 46 49 4C 45 00 B3 07 C2  0B 8D 33 30 32 30 3A 89  |FILE......3020:.|
000003B0: 31 30 30 00 D0 07 CC 0B  59 24 B2 48 24 3A 8D 33  |100.....Y$.H$:.3|
000003C0: 35 30 30 3A 8B C5 28 58  24 29 89 36 30 30 30 30  |500:..(X$).60000|
000003D0: 00 D9 07 D6 0B 8B 58 A7  8E 00 EA 07 1C 0C 4F 46  |......X.......OF|
000003E0: B2 30 3A 98 31 2C 44 24  3A 99 00 07 08 4E 0C 81  |.0:.1,D$:....N..|
000003F0: 49 B2 30 A4 4E 58 3A 54  B2 54 25 28 49 29 3A 99  |I.0.NX:T.T%(I):.|
00000400: 54 24 28 54 2C 30 29 00  22 08 58 0C 81 4A B2 30  |T$(T,0).".X..J.0|
00000410: A4 39 3A 98 31 2C 54 24  28 54 2C 4A 29 3A 82 4A  |.9:.1,T$(T,J):.J|
00000420: 2C 49 00 3A 08 76 0C 98  31 2C 22 5C 22 3A 8E 3A  |,I.:.v..1,"\":.:|
00000430: 8F 20 43 4F 4D 50 4C 45  54 45 00 57 08 AC 0D 8F  |. COMPLETE.W....|
00000440: 20 4F 50 45 4E 20 54 48  45 20 46 49 4C 45 20 54  | OPEN THE FILE T|
00000450: 4F 20 57 52 49 54 45 00  88 08 C0 0D 44 46 B2 30  |O WRITE.....DF.0|
00000460: 3A 58 B2 30 3A 58 24 B2  22 22 3A 8B 43 46 B1 32  |:X.0:X$."":.CF.2|
00000470: A7 99 22 93 D4 4F 20 44  41 54 41 53 45 54 54 45  |.."..O DATASETTE|
00000480: 22 3B 3A 8D 38 30 35 30  00 A9 08 CA 0D 8B 43 46  |";:.8050......CF|
00000490: B2 32 B0 28 43 46 B2 33  AF 49 B2 30 29 A7 9F 31  |.2.(CF.3.I.0)..1|
000004A0: 2C 31 2C 31 2C 59 24 3A  8E 00 D9 08 DE 0D 44 46  |,1,1,Y$:......DF|
000004B0: B2 AB 31 3A 4C 24 B2 22  30 3A 22 AA 59 24 3A 9F  |..1:L$."0:".Y$:.|
000004C0: 31 2C 30 38 2C 32 2C 4C  24 3A 84 38 2C 58 3A A0  |1,08,2,L$:.8,X:.|
000004D0: 31 3A 8B 58 89 33 35 38  30 00 09 09 E8 0D 99 22  |1:.X.3580......"|
000004E0: 11 C6 49 4C 45 20 45 58  49 53 54 53 20 2D 20 4F  |..ILE EXISTS - O|
000004F0: 56 45 52 57 52 49 54 45  22 3B 3A 8D 38 30 35 30  |VERWRITE";:.8050|
00000500: 3A 8B 49 A7 58 B2 31 3A  8E 00 1D 09 F2 0D 98 38  |:.I.X.1:.......8|
00000510: 2C 22 53 22 4C 24 3A 98  38 2C 22 49 30 00 3D 09  |,"S"L$:.8,"I0.=.|
00000520: FC 0D 9F 31 2C 30 38 2C  33 2C 4C 24 AA 22 2C 53  |...1,08,3,L$.",S|
00000530: 2C 57 22 3A 84 38 2C 58  2C 58 24 3A 8E 00 53 09  |,W":.8,X,X$:..S.|
00000540: A0 0F 8F 20 43 52 45 41  54 45 20 41 4E 20 45 4E  |... CREATE AN EN|
00000550: 54 52 59 00 8C 09 AA 0F  8B 4E 58 B1 B2 56 A7 99  |TRY......NX..V..|
00000560: 22 11 12 20 D3 4F 52 52  59 20 2D 20 4E 4F 20 50  |".. .ORRY - NO P|
00000570: 4C 41 43 45 20 54 4F 20  50 55 54 20 49 54 21 20  |LACE TO PUT IT! |
00000580: 22 3A 8D 38 30 30 30 3A  89 31 30 30 00 B4 09 B4  |":.8000:.100....|
00000590: 0F 4E 58 B2 4E 58 AA 31  3A 4B B2 4E 58 3A 54 B2  |.NX.NX.1:K.NX:T.|
000005A0: 54 25 28 4B 29 3A 54 24  28 54 2C 39 29 B2 C7 28  |T%(K):T$(T,9)..(|
000005B0: 31 32 38 29 00 D9 09 04  10 4F 46 B2 31 3A 4D B2  |128).....OF.1:M.|
000005C0: 33 39 3A 59 B2 30 3A 8F  20 47 45 54 20 4E 41 4D  |39:Y.0:. GET NAM|
000005D0: 45 2F 41 44 44 52 45 53  53 00 E6 09 0E 10 4A B2  |E/ADDRESS.....J.|
000005E0: 30 3A 8D 33 30 30 00 18  0A 18 10 99 22 93 20 22  |0:.300......". "|
000005F0: 3B 3A 81 49 B2 31 A4 33  30 3A 99 22 A4 22 3B 3A  |;:.I.1.30:.".";:|
00000600: 82 3A 81 49 B2 31 A4 35  3A 99 22 11 A5 9D 22 3B  |.:.I.1.5:."...";|
00000610: 3A 82 3A 99 22 11 22 3B  00 43 0A 1A 10 81 49 B2  |:.:.".";.C....I.|
00000620: 31 A4 33 30 3A 99 22 9D  A3 9D 22 3B 3A 82 3A 81  |1.30:."...";:.:.|
00000630: 49 B2 31 A4 35 3A 99 22  91 9D A7 22 3B 3A 82 3A  |I.1.5:."...";:.:|
00000640: 99 22 13 00 66 0A 22 10  81 49 B2 30 A4 34 3A 99  |."..f."..I.0.4:.|
00000650: 22 1D 22 41 24 28 4A 2C  49 29 3A 82 3A 8B 59 B1  |"."A$(J,I):.:.Y.|
00000660: 38 89 34 32 30 30 00 8C  0A 36 10 99 22 13 11 11  |8.4200...6.."...|
00000670: 11 11 11 11 11 11 11 22  42 30 24 3A 99 22 91 22  |......."B0$:."."|
00000680: 46 24 28 59 29 3A 99 42  30 24 22 91 00 A2 0A 3B  |F$(Y):.B0$"....;|
00000690: 10 8D 38 32 30 30 3A 8B  43 B3 B1 31 33 89 34 31  |..8200:.C..13.41|
000006A0: 32 30 00 CC 0A 3D 10 99  3A 8B C9 28 58 24 2C 31  |20...=..:..(X$,1|
000006B0: 29 B2 22 20 22 A7 58 24  B2 C8 28 58 24 2C C3 28  |)." ".X$..(X$,.(|
000006C0: 58 24 29 AB 31 29 3A 89  34 31 35 37 00 FB 0A 40  |X$).1):.4157...@|
000006D0: 10 8B 58 24 B2 22 22 AF  54 24 28 54 2C 59 29 B1  |..X$."".T$(T,Y).|
000006E0: 22 22 A7 59 B2 59 AA 31  3A 91 32 AA 28 59 B3 39  |"".Y.Y.1:.2.(Y.9|
000006F0: 29 89 34 31 35 30 2C 34  31 31 30 00 0D 0B 4A 10  |).4150,4110...J.|
00000700: 8B C3 28 58 24 29 B1 31  89 34 31 39 30 00 3E 0B  |..(X$).1.4190.>.|
00000710: 54 10 58 24 B2 22 2D 22  3A 8B 59 B2 30 A7 99 22  |T.X$."-":.Y.0.."|
00000720: 11 C4 45 4C 45 54 45 22  3B 3A 8D 38 30 35 30 3A  |..ELETE";:.8050:|
00000730: 91 49 AA 31 89 34 39 30  30 2C 34 31 31 30 00 59  |.I.1.4900,4110.Y|
00000740: 0B 5E 10 54 24 28 54 2C  59 29 B2 58 24 3A 59 B2  |.^.T$(T,Y).X$:Y.|
00000750: 59 AA 31 3A 89 34 31 31  30 00 7E 0B 68 10 58 24  |Y.1:.4110.~.h.X$|
00000760: B2 22 31 32 33 34 35 36  37 22 AA 52 24 3A 8F 20  |."1234567".R$:. |
00000770: 47 45 54 20 43 41 54 45  47 4F 52 49 45 53 00 99  |GET CATEGORIES..|
00000780: 0B 72 10 99 22 13 11 11  11 11 11 11 11 11 C3 41  |.r.."..........A|
00000790: 54 45 47 4F 52 49 45 53  3A 00 B4 0B 7C 10 81 49  |TEGORIES:...|..I|
000007A0: B2 30 A4 36 3A 99 2C 3A  8B 58 AF 32 AE 49 A7 99  |.0.6:.,:.X.2.I..|
000007B0: 22 12 22 3B 00 C7 0B 86  10 99 49 AA 31 22 92 22  |".";......I.1"."|
000007C0: 4B 24 28 49 29 3A 82 00  F9 0B 90 10 99 22 11 D3  |K$(I):......."..|
000007D0: 45 54 2F 52 45 53 45 54  20 57 48 49 43 48 20 43  |ET/RESET WHICH C|
000007E0: 41 54 45 47 4F 52 59 3F  20 20 9D 22 3B 3A 8D 38  |ATEGORY?  .";:.8|
000007F0: 30 37 30 3A 49 B2 32 AE  49 00 18 0C 9A 10 58 B2  |070:I.2.I.....X.|
00000800: 28 58 B0 49 29 AF A8 28  58 AF 49 29 3A 8B 58 B3  |(X.I)..(X.I):.X.|
00000810: 31 32 38 89 34 32 31 30  00 39 0C CC 10 54 24 28  |128.4210.9...T$(|
00000820: 54 2C 39 29 B2 C7 28 58  29 3A 8F 20 43 4F 4D 50  |T,9)..(X):. COMP|
00000830: 4C 45 54 45 20 45 44 49  54 00 60 0C D6 10 99 22  |LETE EDIT.`...."|
00000840: 91 91 22 42 30 24 3A 99  22 91 C1 43 43 45 50 54  |.."B0$:."..CCEPT|
00000850: 22 3B 3A 8D 38 30 35 30  3A 8B 49 89 34 31 30 30  |";:.8050:.I.4100|
00000860: 00 81 0C E0 10 8B 4E 58  B3 31 89 31 30 30 3A 8F  |......NX.1.100:.|
00000870: 20 4D 55 53 54 20 42 45  20 49 4E 20 4F 52 44 45  | MUST BE IN ORDE|
00000880: 52 00 BB 0C EA 10 58 24  B2 54 24 28 54 2C 30 29  |R.....X$.T$(T,0)|
00000890: 3A 8B 4B B3 4E 58 A7 81  49 B2 4B A4 4E 58 AB 31  |:.K.NX..I.K.NX.1|
000008A0: 3A 54 25 28 49 29 B2 54  25 28 49 AA 31 29 3A 82  |:T%(I).T%(I.1):.|
000008B0: 3A 8F 20 52 45 4D 4F 56  45 20 54 00 ED 0C F4 10  |:. REMOVE T.....|
000008C0: 81 49 B2 30 A4 4E 58 AB  31 3A 8B 54 24 28 54 25  |.I.0.NX.1:.T$(T%|
000008D0: 28 49 29 2C 30 29 B3 58  24 A7 82 3A 8F 20 4C 4F  |(I),0).X$..:. LO|
000008E0: 43 41 54 45 20 54 27 53  20 53 4C 4F 54 00 2A 0D  |CATE T'S SLOT.*.|
000008F0: FE 10 8B 49 B3 4E 58 A7  4A B2 49 AA 31 3A 81 49  |...I.NX.J.I.1:.I|
00000900: B2 4E 58 A4 4A A9 AB 31  3A 54 25 28 49 29 B2 54  |.NX.J..1:T%(I).T|
00000910: 25 28 49 AB 31 29 3A 82  3A 8F 20 4D 41 4B 45 20  |%(I.1):.:. MAKE |
00000920: 52 4F 4F 4D 20 46 4F 52  20 54 00 4C 0D 08 11 54  |ROOM FOR T.L...T|
00000930: 25 28 49 29 B2 54 3A 89  31 30 30 3A 8F 20 49 4E  |%(I).T:.100:. IN|
00000940: 53 45 52 54 20 54 2C 20  45 58 49 54 00 64 0D 24  |SERT T, EXIT.d.$|
00000950: 13 8F 20 43 4C 45 41 4E  20 55 50 20 44 45 4C 45  |.. CLEAN UP DELE|
00000960: 54 49 4F 4E 00 7C 0D 2E  13 81 49 B2 30 A4 39 3A  |TION.|....I.0.9:|
00000970: 54 24 28 54 2C 49 29 B2  22 22 3A 82 00 AD 0D 38  |T$(T,I)."":....8|
00000980: 13 4E 58 B2 4E 58 AB 31  3A 81 49 B2 4B A4 4E 58  |.NX.NX.1:.I.K.NX|
00000990: 3A 54 25 28 49 29 B2 54  25 28 49 AA 31 29 3A 82  |:T%(I).T%(I.1):.|
000009A0: 3A 54 25 28 49 29 B2 54  3A 89 31 30 30 00 C8 0D  |:T%(I).T:.100...|
000009B0: 88 13 8F 20 53 45 4C 45  43 54 2F 45 44 49 54 20  |... SELECT/EDIT |
000009C0: 41 4E 20 45 4E 54 52 59  00 E9 0D 92 13 99 22 93  |AN ENTRY......".|
000009D0: 22 3A 99 22 C6 49 4E 44  20 42 59 3A 20 20 12 CC  |":.".IND BY:  ..|
000009E0: 92 41 53 54 20 CE 41 4D  45 00 FD 0D 9C 13 99 2C  |.AST .AME......,|
000009F0: 22 12 C6 92 49 52 53 54  20 CE 41 4D 45 00 0B 0E  |"...IRST .AME...|
00000A00: A6 13 99 2C 22 12 C3 92  49 54 59 00 1F 0E B0 13  |...,"...ITY.....|
00000A10: 99 2C 22 12 D3 92 54 41  54 45 20 20 DA 49 50 00  |.,"...TATE  .IP.|
00000A20: 32 0E BA 13 99 2C 22 12  D4 92 45 4C 45 50 48 4F  |2....,"...ELEPHO|
00000A30: 4E 45 00 5E 0E CE 13 99  22 11 D7 48 49 43 48 20  |NE.^...."..HICH |
00000A40: 4F 4E 45 22 3B 3A 58 24  B2 22 4C 46 4C 4C 4C 4C  |ONE";:X$."LFLLLL|
00000A50: 43 53 54 22 3A 8D 38 30  36 30 3A 46 B2 49 00 8A  |CST":.8060:F.I..|
00000A60: 0E D8 13 4D B2 34 30 3A  99 22 11 CB 45 59 57 4F  |...M.40:."..EYWO|
00000A70: 52 44 3A 20 22 3B 3A 8D  38 32 30 30 3A 5A 24 B2  |RD: ";:.8200:Z$.|
00000A80: 58 24 3A 5A B2 C3 28 5A  24 29 00 A5 0E EC 13 4B  |X$:Z..(Z$).....K|
00000A90: B2 30 3A 8F 20 53 45 41  52 43 48 20 46 4F 52 20  |.0:. SEARCH FOR |
00000AA0: 46 49 45 4C 44 00 C0 0E  F6 13 54 B2 54 25 28 4B  |FIELD.....T.T%(K|
00000AB0: 29 3A 58 24 B2 54 24 28  54 2C 46 29 3A 59 B2 30  |):X$.T$(T,F):Y.0|
00000AC0: 00 F2 0E 00 14 81 49 B2  31 A4 C3 28 58 24 29 AB  |......I.1..(X$).|
00000AD0: 5A AA 31 3A 59 B2 28 CA  28 58 24 2C 49 2C 5A 29  |Z.1:Y.(.(X$,I,Z)|
00000AE0: B2 5A 24 29 B0 59 3A 82  3A 8B 59 B2 30 89 35 31  |.Z$).Y:.:.Y.0.51|
00000AF0: 35 30 00 16 0F 0A 14 4A  B2 30 3A 8D 33 30 30 3A  |50.....J.0:.300:|
00000B00: 99 22 93 22 3A 81 49 B2  30 A4 34 3A 99 41 24 28  |.".":.I.0.4:.A$(|
00000B10: 30 2C 49 29 3A 82 00 3E  0F 14 14 99 22 11 CC 4F  |0,I):..>...."..O|
00000B20: 4F 4B 20 46 4F 52 20 41  4E 4F 54 48 45 52 22 3B  |OK FOR ANOTHER";|
00000B30: 3A 8D 38 30 35 30 3A 8B  49 89 35 31 38 30 00 54  |:.8050:.I.5180.T|
00000B40: 0F 1E 14 4B B2 4B AA 31  3A 8B 4B B3 B2 4E 58 89  |...K.K.1:.K..NX.|
00000B50: 35 31 31 30 00 7D 0F 28  14 99 3A 99 22 11 C1 4C  |5110.}.(..:."..L|
00000B60: 4C 20 45 4E 54 52 49 45  53 20 43 48 45 43 4B 45  |L ENTRIES CHECKE|
00000B70: 44 22 3A 8D 38 30 30 30  3A 89 31 30 30 00 9E 0F  |D":.8000:.100...|
00000B80: 3C 14 99 22 11 C5 44 49  54 22 3B 3A 8D 38 30 35  |<.."..DIT";:.805|
00000B90: 30 3A 91 49 89 31 30 30  3A 89 34 31 30 30 00 BA  |0:.I.100:.4100..|
00000BA0: 0F 70 17 8F 20 46 49 4C  45 20 46 4F 52 20 57 4F  |.p.. FILE FOR WO|
00000BB0: 52 44 20 4D 41 43 48 49  4E 45 00 ED 0F 7A 17 99  |RD MACHINE...z..|
00000BC0: 22 93 CE 41 4D 45 20 4F  46 20 54 48 45 20 46 49  |"..AME OF THE FI|
00000BD0: 4C 45 3A 20 22 3B 3A 4D  B2 31 36 3A 8D 38 32 30  |LE: ";:M.16:.820|
00000BE0: 30 3A 8B 58 24 B2 22 22  89 36 30 31 30 00 0A 10  |0:.X$."".6010...|
00000BF0: 84 17 59 24 B2 58 24 3A  8D 33 35 30 30 3A 8B C5  |..Y$.X$:.3500:..|
00000C00: 28 58 24 29 89 36 30 30  30 30 00 15 10 8E 17 8B  |(X$).60000......|
00000C10: 58 89 31 30 30 00 4B 10  A2 17 8D 37 32 30 30 3A  |X.100.K....7200:|
00000C20: 99 22 11 D3 45 4C 45 43  54 20 49 4E 44 49 56 49  |."..ELECT INDIVI|
00000C30: 44 55 41 4C 4C 59 22 3B  3A 8D 38 30 35 30 3A 53  |DUALLY";:.8050:S|
00000C40: 46 B2 49 3A 4A B2 30 3A  4B B2 30 00 6E 10 AC 17  |F.I:J.0:K.0.n...|
00000C50: 54 B2 54 25 28 4B 29 3A  8B 28 46 AF C6 28 54 24  |T.T%(K):.(F..(T$|
00000C60: 28 54 2C 39 29 29 29 B2  30 89 36 31 38 30 00 85  |(T,9))).0.6180..|
00000C70: 10 B6 17 8B 53 46 A7 99  54 24 28 54 2C 30 29 3A  |....SF..T$(T,0):|
00000C80: 89 36 31 30 30 00 A5 10  C0 17 8D 33 30 30 3A 99  |.6100......300:.|
00000C90: 22 93 22 3A 81 49 B2 30  A4 33 3A 99 41 24 28 4A  |".":.I.0.3:.A$(J|
00000CA0: 2C 49 29 3A 82 00 CD 10  CA 17 99 22 11 C9 4E 43  |,I):......."..NC|
00000CB0: 4C 55 44 45 20 54 48 49  53 20 4F 4E 45 22 3B 3A  |LUDE THIS ONE";:|
00000CC0: 8D 38 30 35 30 3A 8B 49  89 36 31 38 30 00 E3 10  |.8050:.I.6180...|
00000CD0: D4 17 8F 20 4F 55 54 50  55 54 20 54 48 45 20 46  |... OUTPUT THE F|
00000CE0: 49 4C 45 00 04 11 DE 17  81 49 B2 30 A4 37 3A 98  |ILE......I.0.7:.|
00000CF0: 31 2C 54 24 28 54 2C 49  29 3A 82 3A 44 46 B2 B6  |1,T$(T,I):.:DF..|
00000D00: 28 44 46 29 00 1A 11 24  18 4B B2 4B AA 31 3A 8B  |(DF)...$.K.K.1:.|
00000D10: 4B B3 B2 4E 58 89 36 30  36 30 00 50 11 2E 18 98  |K..NX.6060.P....|
00000D20: 31 2C 22 5C 22 3A 8B 44  46 B1 AB 31 A7 91 53 46  |1,"\":.DF..1..SF|
00000D30: AA 31 89 36 32 32 30 2C  31 30 30 3A 8F 20 20 2D  |.1.6220,100:.  -|
00000D40: 31 3D 45 4D 50 54 59 20  44 49 53 43 46 49 4C 45  |1=EMPTY DISCFILE|
00000D50: 00 80 11 38 18 99 22 11  D4 48 45 20 46 49 4C 45  |...8.."..HE FILE|
00000D60: 20 57 41 53 20 45 4D 50  54 59 3B 20 49 54 20 49  | WAS EMPTY; IT I|
00000D70: 53 20 42 45 49 4E 47 20  43 4C 45 41 52 45 44 2E  |S BEING CLEARED.|
00000D80: 00 99 11 42 18 A0 31 3A  98 38 2C 22 53 30 3A 22  |...B..1:.8,"S0:"|
00000D90: 59 24 3A 98 38 2C 22 49  30 00 A8 11 4C 18 8D 38  |Y$:.8,"I0...L..8|
00000DA0: 30 30 30 3A 89 31 30 30  00 BB 11 58 1B 8F 20 50  |000:.100...X.. P|
00000DB0: 52 49 4E 54 20 4C 41 42  45 4C 53 00 D8 11 62 1B  |RINT LABELS...b.|
00000DC0: 53 46 B2 AB 31 3A 4D B2  33 30 3A 9F 31 2C 30 34  |SF..1:M.30:.1,04|
00000DD0: 3A 4C 4C B2 39 39 39 39  00 00 12 6C 1B 99 22 11  |:LL.9999...l..".|
00000DE0: D3 49 4E 47 4C 45 20 C3  4F 4C 55 4D 4E 20 CC 41  |.INGLE .OLUMN .A|
00000DF0: 42 45 4C 53 22 3B 3A 8D  38 30 35 30 3A 59 B2 49  |BELS";:.8050:Y.I|
00000E00: 00 28 12 8A 1B 99 22 11  C1 4C 49 47 4E 20 54 48  |.(...."..LIGN TH|
00000E10: 45 20 4C 41 42 45 4C 53  22 3B 3A 8D 38 30 35 30  |E LABELS";:.8050|
00000E20: 3A 8B 49 89 37 30 39 30  00 56 12 94 1B 50 24 B2  |:.I.7090.V...P$.|
00000E30: 22 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 46 49 52 53 54  |"----------FIRST|
00000E40: 20 4C 49 4E 45 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 22  | LINE----------"|
00000E50: 3A 8D 37 39 30 30 00 8D  12 9E 1B 81 49 B2 30 A4  |:.7900......I.0.|
00000E60: 31 3A 50 24 B2 22 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |1:P$."----------|
00000E70: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000E80: 2D 2D 2D 2D 22 3A 8D 37  39 30 30 3A 82 00 CA 12  |----":.7900:....|
00000E90: A8 1B 50 24 B2 22 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |..P$."----------|
00000EA0: 46 49 4E 41 4C 20 4C 49  4E 45 2D 2D 2D 2D 2D 2D  |FINAL LINE------|
00000EB0: 2D 2D 2D 2D 22 3A 81 49  B2 31 A4 33 3A 8D 37 39  |----":.I.1.3:.79|
00000EC0: 30 30 3A 82 3A 89 37 30  35 30 00 EF 12 B2 1B 8D  |00:.:.7050......|
00000ED0: 37 32 30 30 3A 8D 37 33  30 30 3A 89 31 30 30 3A  |7200:.7300:.100:|
00000EE0: 8F 20 4F 55 54 50 55 54  20 4C 41 42 45 4C 53 00  |. OUTPUT LABELS.|
00000EF0: 06 13 BC 1B 8F 20 50 52  49 4E 54 20 50 48 4F 4E  |..... PRINT PHON|
00000F00: 45 20 42 4F 4F 4B 00 22  13 C6 1B 53 46 B2 30 3A  |E BOOK."...SF.0:|
00000F10: 4D B2 33 36 3A 59 B2 31  3A 9F 31 2C 30 34 3A 4C  |M.36:Y.1:.1,04:L|
00000F20: B2 30 00 48 13 D0 1B 99  22 11 CC 49 4E 45 53 20  |.0.H...."..INES |
00000F30: 50 45 52 20 50 41 47 45  20 22 4C 30 22 9D 9D 9D  |PER PAGE "L0"...|
00000F40: 9D 9D 22 3B 3A 85 4C 4C  00 63 13 DA 1B 8D 37 32  |..";:.LL.c....72|
00000F50: 30 30 3A 8D 37 33 30 30  3A 8D 37 39 35 30 3A 89  |00:.7300:.7950:.|
00000F60: 31 30 30 00 76 13 20 1C  8F 20 47 45 54 20 43 41  |100.v. .. GET CA|
00000F70: 54 45 47 4F 52 59 00 AC  13 2A 1C 99 22 93 D3 45  |TEGORY...*.."..E|
00000F80: 4C 45 43 54 20 42 59 3A  22 3A 81 49 B2 30 A4 36  |LECT BY:":.I.0.6|
00000F90: 3A 99 2C 22 12 22 CA 28  C4 28 49 AA 31 29 2C 32  |:.,".".(.(I.1),2|
00000FA0: 29 22 92 20 22 4B 24 28  49 29 3A 82 00 E7 13 34  |)". "K$(I):....4|
00000FB0: 1C 99 2C 22 12 38 92 20  C1 4C 4C 22 3A 99 22 11  |..,".8. .LL":.".|
00000FC0: D9 4F 55 52 20 43 48 4F  49 43 45 22 3B 3A 58 24  |.OUR CHOICE";:X$|
00000FD0: B2 22 31 32 33 34 35 36  37 38 22 3A 8D 38 30 36  |."12345678":.806|
00000FE0: 30 3A 46 B2 32 AE 49 00  06 14 3E 1C 8E 3A 8F 20  |0:F.2.I...>..:. |
00000FF0: 41 4C 4C 20 41 52 45 20  4F 52 2D 45 44 20 57 49  |ALL ARE OR-ED WI|
00001000: 54 48 20 31 32 38 00 19  14 84 1C 8F 20 50 52 49  |TH 128...... PRI|
00001010: 4E 54 20 45 49 54 48 45  52 00 48 14 8E 1C 4A B2  |NT EITHER.H...J.|
00001020: 59 3A 81 4B B2 30 A4 4E  58 3A 54 B2 54 25 28 4B  |Y:.K.0.NX:T.T%(K|
00001030: 29 3A 8B 28 46 AF C6 28  54 24 28 54 2C 39 29 29  |):.(F..(T$(T,9))|
00001040: 29 B2 30 89 37 33 38 30  00 66 14 98 1C 4A B2 59  |).0.7380.f...J.Y|
00001050: AB 4A 3A 8D 33 30 30 3A  8B 53 46 A7 41 24 28 4A  |.J:.300:.SF.A$(J|
00001060: 2C 34 29 B2 22 22 00 74  14 A2 1C 8B 4A B3 59 89  |,4)."".t....J.Y.|
00001070: 37 33 38 30 00 8F 14 B6  1C 81 49 B2 30 A4 34 3A  |7380......I.0.4:|
00001080: 50 24 B2 C8 28 41 24 28  30 2C 49 29 2C 4D 29 00  |P$..(A$(0,I),M).|
00001090: B9 14 C0 1C 8B 4A A7 50  24 B2 50 24 AA C8 28 42  |.....J.P$.P$..(B|
000010A0: 24 2C 4D AA 36 AB C3 28  50 24 29 29 AA C8 28 41  |$,M.6..(P$))..(A|
000010B0: 24 28 31 2C 49 29 2C 4D  29 00 CB 14 CA 1C 8D 37  |$(1,I),M)......7|
000010C0: 39 30 30 3A 82 3A 8D 37  39 30 30 00 FC 14 D4 1C  |900:.:.7900.....|
000010D0: 82 4B 3A 8B 4A B3 59 A7  81 49 B2 30 A4 34 3A 50  |.K:.J.Y..I.0.4:P|
000010E0: 24 B2 C8 28 41 24 28 30  2C 49 29 2C 4D 29 3A 8D  |$..(A$(0,I),M):.|
000010F0: 37 39 30 30 3A 82 3A 8D  37 39 30 30 00 02 15 DE  |7900:.:.7900....|
00001100: 1C 8E 00 2F 15 DC 1E 4C  B2 4C AA 31 3A 98 31 2C  |.../...L.L.1:.1,|
00001110: 22 11 22 AA 50 24 3A 50  24 B2 22 22 3A 8B 4C B3  |".".P$:P$."":.L.|
00001120: 4C 4C A7 8E 3A 8F 20 4C  49 4E 45 20 4F 55 54 00  |LL..:. LINE OUT.|
00001130: 51 15 E6 1E 4C B2 4C AA  31 3A 98 31 2C 22 11 22  |Q...L.L.1:.1,"."|
00001140: AA 50 24 3A 50 24 B2 22  22 3A 8B 4C B3 4C 4C A7  |.P$:P$."":.L.LL.|
00001150: 8E 00 7F 15 0E 1F 8B 4C  A7 81 4C B2 4C A4 4C 50  |.......L..L.L.LP|
00001160: AB 31 3A 98 31 3A 82 3A  4C B2 30 3A 8E 3A 8F 20  |.1:.1:.:L.0:.:. |
00001170: 46 49 4E 49 53 48 20 54  48 45 20 50 41 47 45 00  |FINISH THE PAGE.|
00001180: 8F 15 40 1F 8F 20 55 54  49 4C 49 54 49 45 53 00  |..@.. UTILITIES.|
00001190: BD 15 4A 1F 99 22 11 12  20 C8 49 54 20 41 20 4B  |..J..".. .IT A K|
000011A0: 45 59 20 54 4F 20 43 4F  4E 54 49 4E 55 45 22 3B  |EY TO CONTINUE";|
000011B0: 3A 8D 32 30 3A 99 3A 99  22 93 22 3A 8E 00 C8 15  |:.20:.:.".":....|
000011C0: 72 1F 58 24 B2 22 59 4E  00 D3 15 7C 1F 99 22 3F  |r.X$."YN...|.."?|
000011D0: 20 22 3B 00 FD 15 86 1F  8D 32 30 3A 81 49 B2 31  | ";......20:.I.1|
000011E0: A4 C3 28 58 24 29 3A 8B  43 24 B3 B1 CA 28 58 24  |..(X$):.C$...(X$|
000011F0: 2C 49 2C 31 29 A7 82 3A  89 38 30 37 30 00 16 16  |,I,1)..:.8070...|
00001200: 8B 1F 49 B2 49 AB 31 3A  99 43 24 3B 3A 8B 43 B2  |..I.I.1:.C$;:.C.|
00001210: 31 33 A7 99 3A 8E 00 32  16 90 1F A1 57 24 3A 8B  |13..:..2....W$:.|
00001220: 57 24 B2 22 22 A7 99 22  A4 9D 22 3B 3A 89 38 30  |W$."".."..";:.80|
00001230: 38 30 00 48 16 95 1F 99  22 20 9D 22 3B 3A 8B 57  |80.H...." .";:.W|
00001240: 24 B2 52 24 A7 99 3A 8E  00 61 16 9A 1F 8B 57 24  |$.R$..:..a....W$|
00001250: B2 C7 28 32 30 29 A7 99  57 24 3B 3A 89 38 30 37  |..(20)..W$;:.807|
00001260: 30 00 6B 16 9F 1F 89 38  30 38 30 00 86 16 08 20  |0.k....8080.... |
00001270: 58 24 B2 22 22 3A 8F 20  49 4E 50 55 54 20 41 20  |X$."":. INPUT A |
00001280: 53 54 52 49 4E 47 00 97  16 12 20 A1 43 24 3A 8B  |STRING.... .C$:.|
00001290: 43 24 89 38 32 31 30 00  A7 16 1C 20 8D 32 35 3A  |C$.8210.... .25:|
000012A0: 8B 43 B2 31 33 A7 8E 00  D6 16 26 20 8B 43 B2 32  |.C.13.....& .C.2|
000012B0: 30 AF 58 24 B1 22 22 A7  99 43 24 3B 3A 58 24 B2  |0.X$.""..C$;:X$.|
000012C0: C8 28 58 24 2C C3 28 58  24 29 AB 31 29 3A 8F 20  |.(X$,.(X$).1):. |
000012D0: 44 45 4C 45 54 45 00 FF  16 2B 20 8B 28 31 32 37  |DELETE...+ .(127|
000012E0: AF 43 29 B3 33 32 89 38  32 32 30 3A 8F 20 43 55  |.C).32.8220:. CU|
000012F0: 52 53 4F 52 20 43 48 41  52 41 43 54 45 52 53 00  |RSOR CHARACTERS.|
00001300: 28 17 30 20 8B 28 4B 25  28 43 29 B0 47 29 A7 99  |(.0 .(K%(C).G)..|
00001310: 43 24 3B 3A 58 24 B2 58  24 AA 43 24 3A 8B C3 28  |C$;:X$.X$.C$:..(|
00001320: 58 24 29 B1 B2 4D A7 8E  00 32 17 3A 20 89 38 32  |X$)..M...2.: .82|
00001330: 32 30 00 43 17 28 23 8F  20 49 4E 49 54 49 41 4C  |20.C.(#. INITIAL|
00001340: 49 5A 45 00 70 17 2D 23  4C 30 B2 36 30 3A 4C 50  |IZE.p.-#L0.60:LP|
00001350: B2 36 36 3A 4E 58 B2 AB  31 3A 52 24 B2 C7 28 31  |.66:NX..1:R$..(1|
00001360: 33 29 3A 48 24 B2 22 CE  41 4D 45 20 CC 49 53 54  |3):H$.".AME .IST|
00001370: 00 91 17 32 23 86 4B 25  28 32 35 35 29 2C 41 24  |...2#.K%(255),A$|
00001380: 28 31 2C 34 29 2C 4B 24  28 36 29 2C 46 24 28 38  |(1,4),K$(6),F$(8|
00001390: 29 00 D2 17 3C 23 99 22  93 8E 13 13 0F 11 11 11  |)...<#."........|
000013A0: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
000013B0: 11 11 11 11 11 11 22 A6  33 39 29 22 8F 05 22 3A  |......".39)"..":|
000013C0: 97 35 39 34 36 38 2C 31  34 3A 8F 20 46 4F 52 4D  |.59468,14:. FORM|
000013D0: 41 54 00 0B 18 41 23 97  35 33 32 37 32 2C 32 B0  |AT...A#.53272,2.|
000013E0: C2 28 35 33 32 37 32 29  3A 99 22 93 20 20 20 20  |.(53272):.".    |
000013F0: 20 12 20 C3 4F 4D 4D 4F  44 4F 52 45 20 CE C1 CD  | . .OMMODORE ...|
00001400: C5 A0 CD C1 C3 C8 C9 CE  C5 20 92 00 26 18 43 23  |......... ..&.C#|
00001410: 8D 36 31 30 30 30 3A 20  8F 20 43 4F 4C 4F 52 20  |.61000: . COLOR |
00001420: 43 48 41 4E 47 45 00 5F  18 46 23 99 22 11 12 D4  |CHANGE._.F#."...|
00001430: 92 41 50 45 2C 20 12 C4  92 49 53 43 2C 20 4F 52  |.APE, ...ISC, OR|
00001440: 20 12 C2 92 4F 54 48 22  3B 3A 58 24 B2 22 44 54  | ...OTH";:X$."DT|
00001450: 42 22 3A 8D 38 30 36 30  3A 43 46 B2 49 AA 31 00  |B":.8060:CF.I.1.|
00001460: 97 18 4B 23 81 49 B2 33  32 A4 39 30 3A 87 4B 25  |..K#.I.32.90:.K%|
00001470: 28 49 29 3A 82 3A 81 49  B2 31 39 33 A4 32 31 38  |(I):.:.I.193.218|
00001480: 3A 4B 25 28 49 29 B2 31  3A 82 3A 8F 20 43 48 41  |:K%(I).1:.:. CHA|
00001490: 52 20 41 52 52 41 59 00  CE 18 50 23 42 24 B2 22  |R ARRAY...P#B$."|
000014A0: 20 20 20 20 20 22 3A 81  49 B2 31 A4 35 3A 42 24  |     ":.I.1.5:B$|
000014B0: B2 42 24 AA 42 24 3A 82  3A 42 30 24 B2 C8 28 42  |.B$.B$:.:B0$..(B|
000014C0: 24 2C 33 39 29 3A 9F 38  2C 30 38 2C 31 35 00 0B  |$,39):.8,08,15..|
000014D0: 19 55 23 99 22 11 D4 4F  44 41 59 27 53 20 C4 41  |.U#."..ODAY'S .A|
000014E0: 54 45 3A 20 22 3A 4D B2  36 30 3A 47 B2 31 3A 8D  |TE: ":M.60:G.1:.|
000014F0: 38 32 30 30 3A 47 B2 30  3A 44 24 B2 58 24 3A 8B  |8200:G.0:D$.X$:.|
00001500: 44 24 B2 22 22 A7 44 24  B2 22 2D 00 2F 19 6E 23  |D$."".D$."-./.n#|
00001510: 99 3A 81 49 B2 30 A4 38  3A 87 46 24 28 49 29 3A  |.:.I.0.8:.F$(I):|
00001520: 82 3A 8F 20 46 49 45 4C  44 20 4E 41 4D 45 53 00  |.:. FIELD NAMES.|
00001530: 50 19 78 23 81 49 B2 30  A4 36 3A 87 4B 24 28 49  |P.x#.I.0.6:.K$(I|
00001540: 29 3A 82 3A 8F 20 43 41  54 45 47 4F 52 49 45 53  |):.:. CATEGORIES|
00001550: 00 89 19 82 23 56 B2 B5  28 28 B8 28 30 29 AB 32  |....#V..((.(0).2|
00001560: 30 30 30 29 AD 31 37 30  29 3A 86 54 24 28 56 2C  |000).170):.T$(V,|
00001570: 39 29 2C 54 25 28 56 29  3A 81 49 B2 30 A4 56 3A  |9),T%(V):.I.0.V:|
00001580: 54 25 28 49 29 B2 49 3A  82 00 9A 19 1C 25 8F 20  |T%(I).I:.....%. |
00001590: 49 4E 50 55 54 20 46 49  4C 45 00 BE 19 26 25 8B  |INPUT FILE...&%.|
000015A0: 43 46 B1 32 A7 99 22 11  C6 52 4F 4D 20 44 41 54  |CF.2.."..ROM DAT|
000015B0: 41 53 45 54 54 45 22 3B  3A 8D 38 30 35 30 00 F0  |ASETTE";:.8050..|
000015C0: 19 30 25 8B 43 46 B2 32  B0 28 43 46 B2 33 AF 49  |.0%.CF.2.(CF.3.I|
000015D0: B2 30 29 A7 8D 39 37 30  30 3A 91 49 89 31 30 30  |.0)..9700:.I.100|
000015E0: 3A 9F 31 2C 31 2C 30 2C  48 24 3A 89 39 36 30 30  |:.1,1,0,H$:.9600|
000015F0: 00 14 1A 4E 25 A0 31 3A  9F 31 2C 30 38 2C 32 2C  |...N%.1:.1,08,2,|
00001600: 48 24 3A 84 38 2C 58 2C  58 24 3A 8B 58 B2 30 89  |H$:.8,X,X$:.X.0.|
00001610: 39 36 30 30 00 25 1A 58  25 8D 39 37 30 30 3A 8B  |9600.%.X%.9700:.|
00001620: 49 89 31 30 30 00 54 1A  62 25 99 22 11 D0 4C 45  |I.100.T.b%."..LE|
00001630: 41 53 45 20 50 55 54 20  49 4E 20 54 48 45 20 44  |ASE PUT IN THE D|
00001640: 49 53 43 20 41 4E 44 22  3A 8D 38 30 30 30 3A 89  |ISC AND":.8000:.|
00001650: 39 35 35 30 00 5E 1A 80  25 58 24 B2 22 22 00 80  |9550.^..%X$.""..|
00001660: 1A 83 25 A1 23 31 2C 43  24 3A 8B 43 24 B3 B1 52  |..%.#1,C$:.C$..R|
00001670: 24 A7 58 24 B2 58 24 AA  43 24 3A 89 39 36 30 33  |$.X$.X$.C$:.9603|
00001680: 00 AC 1A 85 25 99 22 93  C5 4E 54 45 52 45 44 3A  |....%."..NTERED:|
00001690: 20 12 22 58 24 3A 99 3A  8F 20 44 41 54 45 4C 49  | ."X$:.:. DATELI|
000016A0: 4E 45 20 46 52 4F 4D 20  46 49 4C 45 00 E2 1A 8A  |NE FROM FILE....|
000016B0: 25 81 49 B2 30 A4 56 3A  84 31 2C 58 24 3A 8B 58  |%.I.0.V:.1,X$:.X|
000016C0: 24 B2 22 5C 22 B0 53 54  B1 30 89 39 36 35 30 3A  |$."\".ST.0.9650:|
000016D0: 8F 20 52 45 41 44 49 4E  47 20 43 4F 4D 50 4C 45  |. READING COMPLE|
000016E0: 54 45 00 13 1B 94 25 99  58 24 3A 54 24 28 49 2C  |TE....%.X$:T$(I,|
000016F0: 30 29 B2 58 24 3A 81 4A  B2 31 A4 39 3A 84 31 2C  |0).X$:.J.1.9:.1,|
00001700: 54 24 28 49 2C 4A 29 3A  82 3A 54 25 28 49 29 B2  |T$(I,J):.:T%(I).|
00001710: 49 3A 82 00 2E 1B B2 25  4E 58 B2 49 AB 31 3A 89  |I:.....%NX.I.1:.|
00001720: 31 30 30 3A 8F 20 43 4F  4D 50 4C 45 54 45 00 4E  |100:. COMPLETE.N|
00001730: 1B E4 25 99 22 11 CE 45  57 20 46 49 4C 45 22 3B  |..%."..EW FILE";|
00001740: 3A 8D 38 30 35 30 3A 49  B2 31 AB 49 3A 8E 00 70  |:.8050:I.1.I:..p|
00001750: 1B AC 26 8F 20 41 43 43  45 50 54 41 42 4C 45 20  |..&. ACCEPTABLE |
00001760: 43 48 41 52 41 43 54 45  52 53 20 33 32 2D 39 30  |CHARACTERS 32-90|
00001770: 00 B5 1B B6 26 83 31 2C  31 2C 30 2C 31 2C 31 2C  |....&.1,1,0,1,1,|
00001780: 31 2C 31 2C 31 2C 31 2C  31 2C 31 2C 31 2C 30 2C  |1,1,1,1,1,1,1,0,|
00001790: 31 2C 31 2C 31 2C 31 2C  31 2C 31 2C 31 2C 31 2C  |1,1,1,1,1,1,1,1,|
000017A0: 31 2C 31 2C 31 2C 31 2C  31 2C 30 2C 30 2C 31 2C  |1,1,1,1,1,0,0,1,|
000017B0: 31 2C 31 2C 31 00 F0 1B  C0 26 83 31 2C 31 2C 31  |1,1,1....&.1,1,1|
000017C0: 2C 31 2C 31 2C 31 2C 31  2C 31 2C 31 2C 31 2C 31  |,1,1,1,1,1,1,1,1|
000017D0: 2C 31 2C 31 2C 31 2C 31  2C 31 2C 31 2C 31 2C 31  |,1,1,1,1,1,1,1,1|
000017E0: 2C 31 2C 31 2C 31 2C 31  2C 31 2C 31 2C 31 2C 31  |,1,1,1,1,1,1,1,1|
000017F0: 00 3B 1C CA 26 83 22 CC  41 53 54 20 CE 41 4D 45  |.;..&.".AST .AME|
00001800: 22 2C 22 C6 49 52 53 54  20 CE 41 4D 45 22 2C 22  |",".IRST .AME","|
00001810: D0 52 45 46 49 58 20 28  45 2E 47 2E 2C 20 CD 53  |.REFIX (E.G., .S|
00001820: 2E 2C 20 CD 52 2E 20 26  20 CD 52 53 2E 2C 20 C4  |., .R. & .RS., .|
00001830: 52 2E 29 22 2C 22 D4 49  54 4C 45 00 78 1C D4 26  |R.)",".ITLE.x..&|
00001840: 83 22 CF 52 47 41 4E 49  5A 41 54 49 4F 4E 22 2C  |.".RGANIZATION",|
00001850: 22 C1 44 44 52 45 53 53  22 2C 22 C3 49 54 59 22  |".DDRESS",".ITY"|
00001860: 2C 22 D3 54 41 54 45 20  20 DA 49 50 22 2C 22 D4  |,".TATE  .IP",".|
00001870: 45 4C 45 50 48 4F 4E 45  00 8F 1C 10 27 8F 20 53  |ELEPHONE....'. S|
00001880: 45 56 45 4E 20 43 41 54  45 47 4F 52 49 45 53 00  |EVEN CATEGORIES.|
00001890: 9C 1C 1A 27 83 20 46 41  4D 49 4C 59 00 AA 1C 24  |...'. FAMILY...$|
000018A0: 27 83 20 46 52 49 45 4E  44 53 00 BA 1C 2E 27 83  |'. FRIENDS....'.|
000018B0: 20 57 4F 52 4B 4D 41 54  45 53 00 C8 1C 38 27 83  | WORKMATES...8'.|
000018C0: 20 4D 45 44 49 43 41 4C  00 DC 1C 42 27 83 20 4F  | MEDICAL...B'. O|
000018D0: 52 47 41 4E 49 5A 41 54  49 4F 4E 53 00 E9 1C 4C  |RGANIZATIONS...L|
000018E0: 27 83 20 53 43 48 4F 4F  4C 00 F5 1C 56 27 83 20  |'. SCHOOL...V'. |
000018F0: 4F 54 48 45 52 00 08 1D  60 EA 99 58 24 3A 8D 38  |OTHER...`..X$:.8|
00001900: 30 30 30 3A 89 31 30 30  00 23 1D 48 EE 8F 20 43  |000:.100.#.H.. C|
00001910: 4F 4C 4F 52 20 43 48 41  4E 47 45 20 52 4F 55 54  |OLOR CHANGE ROUT|
00001920: 49 4E 45 00 47 1D 49 EE  96 A5 43 28 58 29 B2 C2  |INE.G.I...C(X)..|
00001930: 28 58 29 AA 31 AA 31 36  AC 28 28 C2 28 58 29 AF  |(X).1.16.((.(X).|
00001940: 31 35 29 B2 31 35 29 00  66 1D 4A EE 99 22 13 11  |15).15).f.J.."..|
00001950: 11 11 D4 4F 20 C3 48 41  4E 47 45 20 43 4F 4C 4F  |...O .HANGE COLO|
00001960: 52 53 2E 2E 2E 22 00 9C  1D 4B EE 99 22 11 11 12  |RS..."...K.."...|
00001970: C6 31 92 3D C2 4F 52 44  45 52 20 C3 4F 4C 4F 52  |.1.=.ORDER .OLOR|
00001980: 20 20 20 20 20 20 12 C6  33 92 3D C2 41 43 4B 47  |      ..3.=.ACKG|
00001990: 52 4F 55 4E 44 20 C3 4F  4C 4F 52 22 00 CC 1D 4D  |ROUND .OLOR"...M|
000019A0: EE 99 22 11 12 C6 35 92  3D C3 48 41 52 41 43 54  |.."...5.=.HARACT|
000019B0: 45 52 20 C3 4F 4C 4F 52  20 20 20 12 D2 C5 D4 D5  |ER .OLOR   .....|
000019C0: D2 CE 92 3D C4 4F 4E 45  11 11 11 22 00 DE 1D 52  |...=.ONE..."...R|
000019D0: EE A1 43 24 3A 8B 43 24  89 36 31 30 31 30 00 F3  |..C$:.C$.61010..|
000019E0: 1D 5C EE A1 43 24 3A 8B  43 24 B2 22 22 89 36 31  |.\..C$:.C$."".61|
000019F0: 30 32 30 00 1A 1E 66 EE  43 B2 C6 28 43 24 29 3A  |020...f.C..(C$):|
00001A00: 8B 43 B2 31 33 35 A7 97  36 34 36 2C A5 43 28 36  |.C.135..646,.C(6|
00001A10: 34 36 29 3A 89 36 31 30  30 32 00 46 1E 7A EE 43  |46):.61002.F.z.C|
00001A20: B2 C6 28 43 24 29 3A 8B  43 B2 31 33 33 B0 43 B2  |..(C$):.C.133.C.|
00001A30: 31 33 34 A7 58 B2 35 33  31 34 37 AA 43 3A 97 58  |134.X.53147.C:.X|
00001A40: 2C A5 43 28 58 29 00 56  1E 7F EE 8B 43 B2 39 35  |,.C(X).V....C.95|
00001A50: 89 36 31 30 37 30 00 67  1E 84 EE 8B 43 B3 B1 31  |.61070.g....C..1|
00001A60: 33 89 36 31 30 31 30 00  6D 1E 8E EE 8E 00 00 00  |3.61010.m.......|

..;....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..".      . COMMOD
ORE NAME MACHINE ......X.."CHOICES:  .A.
DD A NAME/ADDRESS ENTRY......,".C.HOOSE 
A NAME/ADDRESS ENTRY.'....,".P.RINT NAME
/ADDRESS LABELS.H....,".B.UILD WORD MACH
INE FILE.I. ..,".T.ELEPHONE BOOK PRINTOU
T......,".S.AVE THE NAME LIST......,".Q.
UIT THE PROGRAM.E....".WHICH ONE";:X$."Q
ACPBST":.8060......I.4000,5000,7000,6000
,3000,7100......".EJECT A PAGE";:.8050:.
I.0..1,04:L..1:.7950: 1.P....OF..".SAVE 
THE NAME LIST";:.8050:.I.0..3020.G... 1:
."..GOODBYE!":..}.,.. FORMAT THE LINE...
6.X$.T$(T,0):Y$.T$(T,1):.C(Y$).1.X$.Y$."
 ".X$.R.@.Y$.T$(T,2):.C(Y$).1.X$.Y$." ".
X$...J.Y$.T$(T,3):.C(Y$).1.X$.X$.", ".Y$
.:.^.A$(J,0).X$:.I.1.3:A$(J,I)."":Y$.T$(
T,I.3):.C(Y$).1.A$(J,I).Y$.K.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:.......
 OUTPUT FILE...B..3020:.100.P.L.Y$.H$:.3
500:.E(X$).60000.Y.V..X.......OF.0:.1,D$
:....N..I.0.NX:T.T%(I):.T$(T,0).".X..J.0
.9:.1,T$(T,J):.J,I.:.V..1,"\":.:. COMPLE
TE.W.... OPEN THE FILE TO WRITE.....DF.0
:X.0:X$."":.CF.2..".TO DATASETTE";:.8050
...J..CF.2.(CF.3.I.0)..1,1,1,Y$:..Y...DF
..1:L$."0:".Y$:.1,08,2,L$:.8,X: 1:.X.358
0......".FILE EXISTS - OVERWRITE";:.8050
:.I.X.1:.......8,"S"L$:.8,"I0.=....1,08,
3,L$.",S,W":.8,X,X$:..S. .. CREATE AN EN
TRY......NX..V..".. SORRY - NO PLACE TO 
PUT IT! ":.8000:.100.....NX.NX.1:K.NX:T.
T%(K):T$(T,9).G(128).Y...OF.1:M.39:Y.0:.
 GET NAME/ADDRESS.....J.0:.300......". "
;:.I.1.30:.".";:.:.I.1.5:."...";:.:.".";
.C....I.1.30:."...";:.:.I.1.5:."...";:.:
."..F."..I.0.4:."."A$(J,I):.:.Y.8.4200..
.6..".........."B0$:."."F$(Y):.B0$"....;
..8200:.C..13.4120.L.=..:.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.Y.^.T$(T,Y).X$:Y.Y.1:.411
0.~.H.X$."1234567".R$:. GET CATEGORIES..
.R..".........CATEGORIES:...|..I.0.6:.,:
.X.2.I..".";.G....I.1"."K$(I):.......".S
ET/RESET WHICH CATEGORY?  .";:.8070:I.2.
I.....X.(X.I)..(X.I):.X.128.4210.9.L.T$(
T,9).G(X):. COMPLETE EDIT.`.V..".."B0$:.
".ACCEPT";:.8050:.I.4100......NX.1.100:.
 MUST BE IN ORDER.....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.NX.J.I.1:.I.NX.J..1:T%(I).T
%(I.1):.:. MAKE ROOM FOR T.L...T%(I).T:.
100:. INSERT T, EXIT.D.$.. CLEAN UP DELE
TION.|....I.0.9:T$(T,I)."":....8.NX.NX.1
:.I.K.NX:T%(I).T%(I.1):.:T%(I).T:.100.H.
... SELECT/EDIT AN ENTRY......".":."FIND
 BY:  .L.AST NAME......,".F.IRST NAME...
...,".C.ITY......,".S.TATE  ZIP.2....,".
T.ELEPHONE.^.N..".WHICH ONE";:X$."LFLLLL
CST":.8060:F.I...X.M.40:.".KEYWORD: ";:.
8200:Z$.X$:Z.C(Z$).....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.51
50.....J.0:.300:.".":.I.0.4:.A$(0,I):..>
....".LOOK FOR ANOTHER";:.8050:.I.5180.T
...K.K.1:.K..NX.5110.}.(..:.".ALL ENTRIE
S CHECKED":.8000:.100...<..".EDIT";:.805
0:.I.100:.4100...P.. FILE FOR WORD MACHI
NE...Z..".NAME OF THE FILE: ";:M.16:.820
0:.X$."".6010.....Y$.X$:.3500:.E(X$).600
00......X.100.K....7200:.".SELECT INDIVI
DUALLY";:.8050:SF.I:J.0:K.0.N...T.T%(K):
.(F.F(T$(T,9))).0.6180......SF..T$(T,0):
.6100......300:.".":.I.0.3:.A$(J,I):..M.
J..".INCLUDE THIS ONE";:.8050:.I.6180...
T.. OUTPUT THE FILE......I.0.7:.1,T$(T,I
):.:DF..(DF)...$.K.K.1:.K..NX.6060.P....
1,"\":.DF..1..SF.1.6220,100:.  -1=EMPTY 
DISCFILE...8..".THE FILE WAS EMPTY; IT I
S BEING CLEARED....B. 1:.8,"S0:"Y$:.8,"I
0...L..8000:.100...X.. PRINT LABELS.X.B.
SF..1:M.30:.1,04:LL.9999...L..".SINGLE C
OLUMN LABELS";:.8050:Y.I.(....".ALIGN TH
E LABELS";:.8050:.I.7090.V...P$."-------
---FIRST LINE----------":.7900......I.0.
1:P$."------------------------------":.7
900:..J...P$."----------FINAL LINE------
----":.I.1.3:.7900:.:.7050......7200:.73
00:.100:. OUTPUT LABELS...... PRINT PHON
E BOOK.".F.SF.0:M.36:Y.1:.1,04:L.0.H.P..
".LINES PER PAGE "L0".....";:.LL.C.Z..72
00:.7300:.7950:.100.V. .. GET CATEGORY..
.*..".SELECT BY:":.I.0.6:.,"."J(D(I.1),2
)". "K$(I):....4..,".8. ALL":.".YOUR CHO
ICE";:X$."12345678":.8060:F.2.I...>..:. 
ALL ARE OR-ED WITH 128...... PRINT EITHE
R.H...J.Y:.K.0.NX:T.T%(K):.(F.F(T$(T,9))
).0.7380.F...J.Y.J:.300:.SF.A$(J,4)."".T
....J.Y.7380......I.0.4:P$.H(A$(0,I),M).
.....J.P$.P$.H(B$,M.6.C(P$)).H(A$(1,I),M
).K.J..7900:.:.7900...T..K:.J.Y..I.0.4:P
$.H(A$(0,I),M):.7900:.:.7900......./...L
.L.1:.1,".".P$:P$."":.L.LL..:. LINE OUT.
Q...L.L.1:.1,".".P$:P$."":.L.LL.......L
..L.L.LP.1:.1:.:L.0:.:. FINISH THE PAGE.
..@.. UTILITIES...J..".. HIT A KEY TO CO
NTINUE";:.20:.:.".":..H.R.X$."YN.S.|.."?
 ";......20:.I.1.C(X$):.C$..J(X$,I,1)..:
.8070.....I.I.1:.C$;:.C.13..:..2....W$:.
W$."".."..";:.8080.H...." .";:.W$.R$..:.
.A....W$.G(20)..W$;:.8070.K....8080.... 
X$."":. INPUT A STRING.... .C$:.C$.8210.
... .25:.C.13...V.& .C.20.X$.""..C$;:X$.
H(X$,C(X$).1):. DELETE...+ .(127.C).32.8
220:. CURSOR CHARACTERS.(.0 .(K%(C).G)..
C$;:X$.X$.C$:.C(X$)..M...2.: .8220.C.(#.
 INITIALIZE.P.-#L0.60:LP.66:NX..1:R$.G(1
3):H$."NAME LIST...2#.K%(255),A$(1,4),K$
(6),F$(8).R.<#."........................
......".39)"..":.59468,14:. FORMAT...A#.
53272,2.B(53272):.".     . COMMODORE NAM
E MACHINE ..&.C#.61000: . COLOR CHANGE._
.F#."..T.APE, .D.ISC, OR .B.OTH";:X$."DT
B":.8060:CF.I.1...K#.I.32.90:.K%(I):.:.I
.193.218:K%(I).1:.:. CHAR ARRAY.N.P#B$."
     ":.I.1.5:B$.B$.B$:.:B0$.H(B$,39):.8
,08,15...U#.".TODAY'S DATE: ":M.60:G.1:.
8200:G.0:D$.X$:.D$."".D$."-./.N#.:.I.0.8
:.F$(I):.:. FIELD NAMES.P.X#.I.0.6:.K$(I
):.:. CATEGORIES....#V..((.(0).2000).170
):.T$(V,9),T%(V):.I.0.V:T%(I).I:.....%. 
INPUT FILE...&%.CF.2..".FROM DATASETTE";
:.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.T.B%.".PLE
ASE PUT IN THE DISC AND":.8000:.9550.^..
%X$.""....%.#1,C$:.C$..R$.X$.X$.C$:.9603
....%.".ENTERED: ."X$:.:. DATELINE FROM 
FILE....%.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:.....%NX.I.1:.
100:. COMPLETE.N..%.".NEW FILE";:.8050:I
.1.I:..P..&. ACCEPTABLE CHARACTERS 32-90
....&.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.;.J&."LAST NAME","FIRST NAME","
PREFIX (E.G., MS., MR. & MRS., DR.)","TI
TLE.X.T&."ORGANIZATION","ADDRESS","CITY"
,"STATE  ZIP","TELEPHONE....'. SEVEN CAT
EGORIES....'. FAMILY...$'. FRIENDS....'.
 WORKMATES.H.8'. MEDICAL...B'. ORGANIZAT
IONS...L'. SCHOOL...V'. OTHER...`..X$:.8
000:.100.#.H.. COLOR CHANGE ROUTINE.G.I.
..C(X).B(X).1.16.((B(X).15).15).F.J.."..
..TO CHANGE COLORS..."...K.."...F1.=BORD
ER COLOR      .F3.=BACKGROUND COLOR".L.M
.."..F5.=CHARACTER COLOR   .RETURN.=DONE
..."...R..C$:.C$.61010...\..C$:.C$."".61
020...F.C.F(C$):.C.135..646,.C(646):.610
02.F.Z.C.F(C$):.C.133.C.134.X.53147.C:.X
,.C(X).V...C.95.61070.G....C..13.61010.
M.......

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL