ADRESSEN 64

00000000: 01 08 15 08 05 00 99 C7  28 31 34 29 3A 97 36 35  |........(14):.65|
00000010: 30 2C 31 32 38 00 4F 08  0A 00 89 39 30 30 30 3A  |0,128.O....9000:|
00000020: 8F 20 28 43 29 20 31 39  38 32 20 42 59 20 43 4F  |. (C) 1982 BY CO|
00000030: 4D 4D 4F 44 4F 52 45 20  42 55 53 49 4E 45 53 53  |MMODORE BUSINESS|
00000040: 20 4D 41 43 48 49 4E 45  53 2C 20 49 4E 43 2E 00  | MACHINES, INC..|
00000050: 5E 08 14 00 A1 43 24 3A  8B 43 24 89 32 30 00 7B  |^....C$:.C$.20.{|
00000060: 08 19 00 A1 43 24 3A 8B  43 24 A7 99 22 20 9D 22  |....C$:.C$.." ."|
00000070: 3B 3A 43 B2 C6 28 43 24  29 3A 8E 00 8A 08 1B 00  |;:C..(C$):......|
00000080: 99 22 A4 9D 22 3B 3A 89  32 35 00 9E 08 64 00 A0  |."..";:.25...d..|
00000090: 31 3A 8F 20 4D 45 4E 55  20 45 4E 54 52 59 00 C8  |1:. MENU ENTRY..|
000000A0: 08 6E 00 99 22 93 20 20  20 20 20 20 12 20 C3 4F  |.n..".      . .O|
000000B0: 4D 4D 4F 44 4F 52 45 20  C1 C4 D2 C5 D3 D3 C5 CE  |MMODORE ........|
000000C0: 20 36 34 20 20 92 11 11  00 DD 08 78 00 99 22 C6  | 64  ......x..".|
000000D0: 55 4E 4B 54 49 4F 4E 45  4E 3A 11 11 22 00 04 09  |UNKTIONEN:.."...|
000000E0: 7D 00 99 2C 22 12 C5 92  52 46 41 53 53 45 4E 20  |}..,"...RFASSEN |
000000F0: 45 49 4E 45 53 20 CE 41  4D 45 4E 53 2F C1 44 52  |EINES .AMENS/.DR|
00000100: 45 53 53 45 00 29 09 82  00 99 2C 22 12 C1 92 55  |ESSE.)....,"...U|
00000110: 46 52 55 46 45 4E 20 56  4F 4E 20 CE 41 4D 45 4E  |FRUFEN VON .AMEN|
00000120: 2F C1 44 52 45 53 53 45  4E 00 4D 09 8C 00 99 2C  |/.DRESSEN.M....,|
00000130: 22 12 C4 92 52 55 43 4B  45 4E 20 56 4F 4E 20 CE  |"...RUCKEN VON .|
00000140: 41 4D 45 4E 2F C1 44 52  45 53 53 45 4E 00 6D 09  |AMEN/.DRESSEN.m.|
00000150: 96 00 99 2C 22 12 D2 92  55 4E 44 53 43 48 52 45  |...,"...UNDSCHRE|
00000160: 49 42 45 4E 2D C1 44 52  45 53 53 45 4E 00 8D 09  |IBEN-.DRESSEN...|
00000170: A0 00 99 2C 22 12 D4 92  45 4C 45 46 4F 4E 42 55  |...,"...ELEFONBU|
00000180: 43 48 20 C1 55 53 44 52  55 43 4B 45 4E 00 B1 09  |CH .USDRUCKEN...|
00000190: AA 00 99 2C 22 12 D3 92  50 45 49 43 48 45 52 4E  |...,"...PEICHERN|
000001A0: 20 44 45 52 20 CE 41 4D  45 4E 53 2D CC 49 53 54  | DER .AMENS-.IST|
000001B0: 45 00 C7 09 B4 00 99 2C  22 12 D0 92 52 4F 47 52  |E......,"...ROGR|
000001C0: 41 4D 4D 45 4E 44 45 00  ED 09 BE 00 99 22 11 D7  |AMMENDE......"..|
000001D0: 45 4C 43 48 45 20 20 20  22 3B 3A 58 24 B2 22 50  |ELCHE   ";:X$."P|
000001E0: 45 41 44 52 53 54 22 3A  8D 38 30 36 30 00 12 0A  |EADRST":.8060...|
000001F0: FA 00 91 49 89 34 30 30  30 2C 35 30 30 30 2C 37  |...I.4000,5000,7|
00000200: 30 30 30 2C 36 30 30 30  2C 33 30 30 30 2C 37 31  |000,6000,3000,71|
00000210: 30 30 00 49 0A 04 01 99  22 93 D3 45 49 54 45 4E  |00.I...."..EITEN|
00000220: 56 4F 52 53 43 48 55 42  22 3B 3A 8D 38 30 35 30  |VORSCHUB";:.8050|
00000230: 3A 8B 49 B2 30 A7 9F 31  2C 30 34 3A 4C B2 2E 31  |:.I.0..1,04:L..1|
00000240: 3A 8D 37 39 35 30 3A A0  31 00 81 0A 0E 01 8B 4F  |:.7950:.1......O|
00000250: 46 A7 99 22 11 D3 50 45  49 43 48 45 52 4E 20 44  |F.."..PEICHERN D|
00000260: 45 52 20 2A CE 41 4D 45  20 CC 49 53 54 2A 22 3B  |ER *.AME .IST*";|
00000270: 3A 8D 38 30 35 30 3A 8B  49 B2 30 A7 8D 33 30 32  |:.8050:.I.0..302|
00000280: 30 00 97 0A 18 01 A0 31  3A 99 22 93 11 D4 53 43  |0......1:."...SC|
00000290: 48 55 45 53 53 21 22 00  AD 0A 2C 01 8F 20 46 4F  |HUESS!"...,.. FO|
000002A0: 52 4D 41 54 20 54 48 45  20 4C 49 4E 45 00 DD 0A  |RMAT THE LINE...|
000002B0: 36 01 58 24 B2 54 24 28  54 2C 30 29 3A 59 24 B2  |6.X$.T$(T,0):Y$.|
000002C0: 54 24 28 54 2C 31 29 3A  8B C3 28 59 24 29 B1 31  |T$(T,1):..(Y$).1|
000002D0: A7 58 24 B2 59 24 AA 22  20 22 AA 58 24 00 02 0B  |.X$.Y$." ".X$...|
000002E0: 40 01 59 24 B2 54 24 28  54 2C 32 29 3A 8B C3 28  |@.Y$.T$(T,2):..(|
000002F0: 59 24 29 B1 31 A7 58 24  B2 59 24 AA 22 20 22 AA  |Y$).1.X$.Y$." ".|
00000300: 58 24 00 28 0B 4A 01 59  24 B2 54 24 28 54 2C 33  |X$.(.J.Y$.T$(T,3|
00000310: 29 3A 8B C3 28 59 24 29  B1 31 A7 58 24 B2 58 24  |):..(Y$).1.X$.X$|
00000320: AA 22 2C 20 22 AA 59 24  00 6A 0B 5E 01 41 24 28  |.", ".Y$.j.^.A$(|
00000330: 4A 2C 30 29 B2 58 24 3A  81 49 B2 31 A4 33 3A 41  |J,0).X$:.I.1.3:A|
00000340: 24 28 4A 2C 49 29 B2 22  22 3A 59 24 B2 54 24 28  |$(J,I)."":Y$.T$(|
00000350: 54 2C 49 AA 33 29 3A 8B  C3 28 59 24 29 B1 31 A7  |T,I.3):..(Y$).1.|
00000360: 41 24 28 4A 2C 49 29 B2  59 24 00 9B 0B 68 01 82  |A$(J,I).Y$...h..|
00000370: 3A 8B C3 28 54 24 28 54  2C 37 29 29 B1 31 A7 41  |:..(T$(T,7)).1.A|
00000380: 24 28 4A 2C 33 29 B2 41  24 28 4A 2C 33 29 AA 22  |$(J,3).A$(J,3)."|
00000390: 2C 20 22 AA 54 24 28 54  2C 37 29 00 C2 0B 72 01  |, ".T$(T,7)...r.|
000003A0: 41 24 28 4A 2C 34 29 B2  54 24 28 54 2C 38 29 3A  |A$(J,4).T$(T,8):|
000003B0: 58 B2 C6 28 54 24 28 54  2C 39 29 29 AF 31 32 37  |X..(T$(T,9)).127|
000003C0: 3A 8E 00 D1 0B 4B 02 42  4C 4F 43 4B 53 20 B8 45  |:....K.BLOCKS .E|
000003D0: 2E 00 E3 0B B8 0B 8F 20  4F 55 54 50 55 54 20 46  |....... OUTPUT F|
000003E0: 49 4C 45 00 F2 0B C2 0B  8D 33 30 32 30 3A 89 31  |ILE......3020:.1|
000003F0: 30 30 00 0F 0C CC 0B 59  24 B2 48 24 3A 8D 33 35  |00.....Y$.H$:.35|
00000400: 30 30 3A 8B C5 28 58 24  29 89 36 30 30 30 30 00  |00:..(X$).60000.|
00000410: 18 0C D6 0B 8B 58 A7 8E  00 29 0C 1C 0C 4F 46 B2  |.....X...)...OF.|
00000420: 30 3A 98 31 2C 44 24 3A  99 00 46 0C 4E 0C 81 49  |0:.1,D$:..F.N..I|
00000430: B2 30 A4 4E 58 3A 54 B2  54 25 28 49 29 3A 99 54  |.0.NX:T.T%(I):.T|
00000440: 24 28 54 2C 30 29 00 61  0C 58 0C 81 4A B2 30 A4  |$(T,0).a.X..J.0.|
00000450: 39 3A 98 31 2C 54 24 28  54 2C 4A 29 3A 82 4A 2C  |9:.1,T$(T,J):.J,|
00000460: 49 00 79 0C 76 0C 98 31  2C 22 5C 22 3A 8E 3A 8F  |I.y.v..1,"\":.:.|
00000470: 20 43 4F 4D 50 4C 45 54  45 00 96 0C AC 0D 8F 20  | COMPLETE...... |
00000480: 4F 50 45 4E 20 54 48 45  20 46 49 4C 45 20 54 4F  |OPEN THE FILE TO|
00000490: 20 57 52 49 54 45 00 C8  0C C0 0D 44 46 B2 30 3A  | WRITE.....DF.0:|
000004A0: 58 B2 30 3A 58 24 B2 22  22 3A 8B 43 46 B1 32 A7  |X.0:X$."":.CF.2.|
000004B0: 99 22 93 C1 55 46 20 C4  41 54 41 53 45 54 54 45  |."..UF .ATASETTE|
000004C0: 22 3B 3A 8D 38 30 35 30  00 E9 0C CA 0D 8B 43 46  |";:.8050......CF|
000004D0: B2 32 B0 28 43 46 B2 33  AF 49 B2 30 29 A7 9F 31  |.2.(CF.3.I.0)..1|
000004E0: 2C 31 2C 31 2C 59 24 3A  8E 00 19 0D DE 0D 44 46  |,1,1,Y$:......DF|
000004F0: B2 AB 31 3A 4C 24 B2 22  30 3A 22 AA 59 24 3A 9F  |..1:L$."0:".Y$:.|
00000500: 31 2C 30 38 2C 32 2C 4C  24 3A 84 38 2C 58 3A A0  |1,08,2,L$:.8,X:.|
00000510: 31 3A 8B 58 89 33 35 38  30 00 54 0D E8 0D 99 3A  |1:.X.3580.T....:|
00000520: 99 22 11 C4 41 54 45 49  20 45 58 49 53 54 49 45  |."..ATEI EXISTIE|
00000530: 52 54 20 2D 20 55 45 42  45 52 53 43 48 52 45 49  |RT - UEBERSCHREI|
00000540: 42 45 4E 22 3B 3A 8D 38  30 35 30 3A 8B 49 A7 58  |BEN";:.8050:.I.X|
00000550: B2 31 3A 8E 00 68 0D F2  0D 98 38 2C 22 53 22 4C  |.1:..h....8,"S"L|
00000560: 24 3A 98 38 2C 22 49 30  00 88 0D FC 0D 9F 31 2C  |$:.8,"I0......1,|
00000570: 30 38 2C 33 2C 4C 24 AA  22 2C 53 2C 57 22 3A 84  |08,3,L$.",S,W":.|
00000580: 38 2C 58 2C 58 24 3A 8E  00 9E 0D A0 0F 8F 20 43  |8,X,X$:....... C|
00000590: 52 45 41 54 45 20 41 4E  20 45 4E 54 52 59 00 D7  |REATE AN ENTRY..|
000005A0: 0D AA 0F 8B 4E 58 B1 B2  56 A7 99 22 11 12 20 CC  |....NX..V..".. .|
000005B0: 45 49 44 45 52 20 4B 45  49 4E 20 D0 4C 41 54 5A  |EIDER KEIN .LATZ|
000005C0: 20 4D 45 48 52 20 46 52  45 49 21 22 3A 8D 38 30  | MEHR FREI!":.80|
000005D0: 30 30 3A 89 31 30 30 00  FF 0D B4 0F 4E 58 B2 4E  |00:.100.....NX.N|
000005E0: 58 AA 31 3A 4B B2 4E 58  3A 54 B2 54 25 28 4B 29  |X.1:K.NX:T.T%(K)|
000005F0: 3A 54 24 28 54 2C 39 29  B2 C7 28 31 32 38 29 00  |:T$(T,9)..(128).|
00000600: 24 0E 04 10 4F 46 B2 31  3A 4D B2 33 39 3A 59 B2  |$...OF.1:M.39:Y.|
00000610: 30 3A 8F 20 47 45 54 20  4E 41 4D 45 2F 41 44 44  |0:. GET NAME/ADD|
00000620: 52 45 53 53 00 31 0E 0E  10 4A B2 30 3A 8D 33 30  |RESS.1...J.0:.30|
00000630: 30 00 63 0E 18 10 99 22  93 20 22 3B 3A 81 49 B2  |0.c....". ";:.I.|
00000640: 31 A4 33 30 3A 99 22 A4  22 3B 3A 82 3A 81 49 B2  |1.30:.".";:.:.I.|
00000650: 31 A4 35 3A 99 22 11 A5  9D 22 3B 3A 82 3A 99 22  |1.5:."...";:.:."|
00000660: 11 22 3B 00 8E 0E 1A 10  81 49 B2 31 A4 33 30 3A  |.";......I.1.30:|
00000670: 99 22 9D A3 9D 22 3B 3A  82 3A 81 49 B2 31 A4 35  |."...";:.:.I.1.5|
00000680: 3A 99 22 91 9D A7 22 3B  3A 82 3A 99 22 13 00 B1  |:."...";:.:."...|
00000690: 0E 22 10 81 49 B2 30 A4  34 3A 99 22 1D 22 41 24  |."..I.0.4:."."A$|
000006A0: 28 4A 2C 49 29 3A 82 3A  8B 59 B1 38 89 34 32 30  |(J,I):.:.Y.8.420|
000006B0: 30 00 D7 0E 36 10 99 22  13 11 11 11 11 11 11 11  |0...6.."........|
000006C0: 11 11 22 42 30 24 3A 99  22 91 22 46 24 28 59 29  |.."B0$:."."F$(Y)|
000006D0: 3A 99 42 30 24 22 91 00  ED 0E 3B 10 8D 38 32 30  |:.B0$"....;..820|
000006E0: 30 3A 8B 43 B3 B1 31 33  89 34 31 32 30 00 17 0F  |0:.C..13.4120...|
000006F0: 3D 10 99 3A 8B C9 28 58  24 2C 31 29 B2 22 20 22  |=..:..(X$,1)." "|
00000700: A7 58 24 B2 C8 28 58 24  2C C3 28 58 24 29 AB 31  |.X$..(X$,.(X$).1|
00000710: 29 3A 89 34 31 35 37 00  46 0F 40 10 8B 58 24 B2  |):.4157.F.@..X$.|
00000720: 22 22 AF 54 24 28 54 2C  59 29 B1 22 22 A7 59 B2  |"".T$(T,Y)."".Y.|
00000730: 59 AA 31 3A 91 32 AA 28  59 B3 39 29 89 34 31 35  |Y.1:.2.(Y.9).415|
00000740: 30 2C 34 31 31 30 00 58  0F 4A 10 8B C3 28 58 24  |0,4110.X.J...(X$|
00000750: 29 B1 31 89 34 31 39 30  00 8B 0F 54 10 58 24 B2  |).1.4190...T.X$.|
00000760: 22 2D 22 3A 8B 59 B2 30  A7 99 22 11 CC 4F 45 53  |"-":.Y.0.."..OES|
00000770: 43 48 45 4E 22 3B 3A 8D  38 30 35 30 3A 91 49 AA  |CHEN";:.8050:.I.|
00000780: 31 89 34 39 30 30 2C 34  31 31 30 00 A6 0F 5E 10  |1.4900,4110...^.|
00000790: 54 24 28 54 2C 59 29 B2  58 24 3A 59 B2 59 AA 31  |T$(T,Y).X$:Y.Y.1|
000007A0: 3A 89 34 31 31 30 00 CB  0F 68 10 58 24 B2 22 31  |:.4110...h.X$."1|
000007B0: 32 33 34 35 36 37 22 AA  52 24 3A 8F 20 47 45 54  |234567".R$:. GET|
000007C0: 20 43 41 54 45 47 4F 52  49 45 53 00 E6 0F 72 10  | CATEGORIES...r.|
000007D0: 99 22 13 11 11 11 11 11  11 11 11 CB 41 54 45 47  |."..........ATEG|
000007E0: 4F 52 49 45 4E 3A 00 01  10 7C 10 81 49 B2 30 A4  |ORIEN:...|..I.0.|
000007F0: 36 3A 99 2C 3A 8B 58 AF  32 AE 49 A7 99 22 12 22  |6:.,:.X.2.I.."."|
00000800: 3B 00 14 10 86 10 99 49  AA 31 22 92 22 4B 24 28  |;......I.1"."K$(|
00000810: 49 29 3A 82 00 44 10 90  10 99 22 11 D7 49 45 20  |I):..D...."..IE |
00000820: 5A 55 4F 52 44 4E 45 4E  2F 4C 4F 45 53 43 48 45  |ZUORDNEN/LOESCHE|
00000830: 4E 3F 20 20 20 9D 22 3B  3A 8D 38 30 37 30 3A 49  |N?   .";:.8070:I|
00000840: B2 32 AE 49 00 63 10 9A  10 58 B2 28 58 B0 49 29  |.2.I.c...X.(X.I)|
00000850: AF A8 28 58 AF 49 29 3A  8B 58 B3 31 32 38 89 34  |..(X.I):.X.128.4|
00000860: 32 31 30 00 84 10 CC 10  54 24 28 54 2C 39 29 B2  |210.....T$(T,9).|
00000870: C7 28 58 29 3A 8F 20 43  4F 4D 50 4C 45 54 45 20  |.(X):. COMPLETE |
00000880: 45 44 49 54 00 AF 10 D6  10 99 22 91 91 22 42 30  |EDIT......".."B0|
00000890: 24 3A 99 22 91 C1 4B 5A  45 50 54 49 45 52 54 22  |$:."..KZEPTIERT"|
000008A0: 3B 3A 8D 38 30 35 30 3A  8B 49 89 34 31 30 30 00  |;:.8050:.I.4100.|
000008B0: D0 10 E0 10 8B 4E 58 B3  31 89 31 30 30 3A 8F 20  |.....NX.1.100:. |
000008C0: 4D 55 53 54 20 42 45 20  49 4E 20 4F 52 44 45 52  |MUST BE IN ORDER|
000008D0: 00 0A 11 EA 10 58 24 B2  54 24 28 54 2C 30 29 3A  |.....X$.T$(T,0):|
000008E0: 8B 4B B3 4E 58 A7 81 49  B2 4B A4 4E 58 AB 31 3A  |.K.NX..I.K.NX.1:|
000008F0: 54 25 28 49 29 B2 54 25  28 49 AA 31 29 3A 82 3A  |T%(I).T%(I.1):.:|
00000900: 8F 20 52 45 4D 4F 56 45  20 54 00 3C 11 F4 10 81  |. REMOVE T.<....|
00000910: 49 B2 30 A4 4E 58 AB 31  3A 8B 54 24 28 54 25 28  |I.0.NX.1:.T$(T%(|
00000920: 49 29 2C 30 29 B3 58 24  A7 82 3A 8F 20 4C 4F 43  |I),0).X$..:. LOC|
00000930: 41 54 45 20 54 27 53 20  53 4C 4F 54 00 79 11 FE  |ATE T'S SLOT.y..|
00000940: 10 8B 49 B3 4E 58 A7 4A  B2 49 AA 31 3A 81 49 B2  |..I.NX.J.I.1:.I.|
00000950: 4E 58 A4 4A A9 AB 31 3A  54 25 28 49 29 B2 54 25  |NX.J..1:T%(I).T%|
00000960: 28 49 AB 31 29 3A 82 3A  8F 20 4D 41 4B 45 20 52  |(I.1):.:. MAKE R|
00000970: 4F 4F 4D 20 46 4F 52 20  54 00 9B 11 08 11 54 25  |OOM FOR T.....T%|
00000980: 28 49 29 B2 54 3A 89 31  30 30 3A 8F 20 49 4E 53  |(I).T:.100:. INS|
00000990: 45 52 54 20 54 2C 20 45  58 49 54 00 B3 11 24 13  |ERT T, EXIT...$.|
000009A0: 8F 20 43 4C 45 41 4E 20  55 50 20 44 45 4C 45 54  |. CLEAN UP DELET|
000009B0: 49 4F 4E 00 CB 11 2E 13  81 49 B2 30 A4 39 3A 54  |ION......I.0.9:T|
000009C0: 24 28 54 2C 49 29 B2 22  22 3A 82 00 FC 11 38 13  |$(T,I)."":....8.|
000009D0: 4E 58 B2 4E 58 AB 31 3A  81 49 B2 4B A4 4E 58 3A  |NX.NX.1:.I.K.NX:|
000009E0: 54 25 28 49 29 B2 54 25  28 49 AA 31 29 3A 82 3A  |T%(I).T%(I.1):.:|
000009F0: 54 25 28 49 29 B2 54 3A  89 31 30 30 00 17 12 88  |T%(I).T:.100....|
00000A00: 13 8F 20 53 45 4C 45 43  54 2F 45 44 49 54 20 41  |.. SELECT/EDIT A|
00000A10: 4E 20 45 4E 54 52 59 00  3B 12 92 13 99 22 93 22  |N ENTRY.;...."."|
00000A20: 3A 99 22 D3 55 43 48 45  4E 20 4E 41 43 48 3A 20  |:.".UCHEN NACH: |
00000A30: 20 12 CE 92 41 43 48 4E  41 4D 45 00 50 12 9C 13  | ...ACHNAME.P...|
00000A40: 99 2C 22 20 20 20 20 12  D6 92 4F 52 4E 41 4D 45  |.,"    ...ORNAME|
00000A50: 00 65 12 A6 13 99 2C 22  20 20 20 20 12 D0 92 CC  |.e....,"    ....|
00000A60: DA 2F CF 52 54 00 78 12  B0 13 99 2C 22 20 20 20  |./.RT.x....,"   |
00000A70: 20 12 D3 92 54 41 41 54  00 90 12 BA 13 99 2C 22  | ...TAAT......,"|
00000A80: 20 20 20 20 12 D4 92 45  4C 45 46 4F 4E 4E 52 2E  |    ...ELEFONNR.|
00000A90: 00 BC 12 CE 13 99 22 11  D7 45 4C 43 48 45 52 20  |......"..ELCHER |
00000AA0: 20 22 3B 3A 58 24 B2 22  4E 56 4C 4C 4C 4C 50 53  | ";:X$."NVLLLLPS|
00000AB0: 54 22 3A 8D 38 30 36 30  3A 46 B2 49 00 EF 12 D8  |T":.8060:F.I....|
00000AC0: 13 4D B2 34 30 3A 99 22  11 D3 43 48 4C 55 45 53  |.M.40:."..CHLUES|
00000AD0: 53 45 4C 57 4F 52 54 3A  20 22 3B 3A 8D 38 32 30  |SELWORT: ";:.820|
00000AE0: 30 3A 5A 24 B2 58 24 3A  5A B2 C3 28 5A 24 29 00  |0:Z$.X$:Z..(Z$).|
00000AF0: 0A 13 EC 13 4B B2 30 3A  8F 20 53 45 41 52 43 48  |....K.0:. SEARCH|
00000B00: 20 46 4F 52 20 46 49 45  4C 44 00 25 13 F6 13 54  | FOR FIELD.%...T|
00000B10: B2 54 25 28 4B 29 3A 58  24 B2 54 24 28 54 2C 46  |.T%(K):X$.T$(T,F|
00000B20: 29 3A 59 B2 30 00 57 13  00 14 81 49 B2 31 A4 C3  |):Y.0.W....I.1..|
00000B30: 28 58 24 29 AB 5A AA 31  3A 59 B2 28 CA 28 58 24  |(X$).Z.1:Y.(.(X$|
00000B40: 2C 49 2C 5A 29 B2 5A 24  29 B0 59 3A 82 3A 8B 59  |,I,Z).Z$).Y:.:.Y|
00000B50: B2 30 89 35 31 35 30 00  7B 13 0A 14 4A B2 30 3A  |.0.5150.{...J.0:|
00000B60: 8D 33 30 30 3A 99 22 93  22 3A 81 49 B2 30 A4 34  |.300:.".":.I.0.4|
00000B70: 3A 99 41 24 28 30 2C 49  29 3A 82 00 A3 13 14 14  |:.A$(0,I):......|
00000B80: 99 22 11 D7 45 49 54 45  52 53 55 43 48 45 4E 20  |."..EITERSUCHEN |
00000B90: 20 20 20 22 3B 3A 8D 38  30 35 30 3A 8B 49 89 35  |   ";:.8050:.I.5|
00000BA0: 31 38 30 00 B9 13 1E 14  4B B2 4B AA 31 3A 8B 4B  |180.....K.K.1:.K|
00000BB0: B3 B2 4E 58 89 35 31 31  30 00 E8 13 28 14 99 3A  |..NX.5110...(..:|
00000BC0: 99 22 11 C1 4C 4C 45 20  C5 49 4E 47 41 42 45 4E  |."..LLE .INGABEN|
00000BD0: 20 55 45 42 45 52 50 52  55 45 46 54 22 3A 8D 38  | UEBERPRUEFT":.8|
00000BE0: 30 30 30 3A 89 31 30 30  00 0C 14 3C 14 99 22 11  |000:.100...<..".|
00000BF0: C1 45 4E 44 45 52 4E 22  3B 3A 8D 38 30 35 30 3A  |.ENDERN";:.8050:|
00000C00: 91 49 89 31 30 30 3A 89  34 31 30 30 00 28 14 70  |.I.100:.4100.(.p|
00000C10: 17 8F 20 46 49 4C 45 20  46 4F 52 20 57 4F 52 44  |.. FILE FOR WORD|
00000C20: 20 4D 41 43 48 49 4E 45  00 5B 14 7A 17 99 22 93  | MACHINE.[.z..".|
00000C30: CE 41 4D 45 20 44 45 52  20 C4 41 54 45 49 3A 20  |.AME DER .ATEI: |
00000C40: 20 20 22 3B 3A 4D B2 31  36 3A 8D 38 32 30 30 3A  |  ";:M.16:.8200:|
00000C50: 8B 58 24 B2 22 22 89 36  30 31 30 00 78 14 84 17  |.X$."".6010.x...|
00000C60: 59 24 B2 58 24 3A 8D 33  35 30 30 3A 8B C5 28 58  |Y$.X$:.3500:..(X|
00000C70: 24 29 89 36 30 30 30 30  00 83 14 8E 17 8B 58 89  |$).60000......X.|
00000C80: 31 30 30 00 B9 14 A2 17  8D 37 32 30 30 3A 99 22  |100......7200:."|
00000C90: 11 D3 50 45 5A 49 45 4C  4C 45 20 C1 55 53 57 41  |..PEZIELLE .USWA|
00000CA0: 48 4C 20 20 22 3B 3A 8D  38 30 35 30 3A 53 46 B2  |HL  ";:.8050:SF.|
00000CB0: 49 3A 4A B2 30 3A 4B B2  30 00 DC 14 AC 17 54 B2  |I:J.0:K.0.....T.|
00000CC0: 54 25 28 4B 29 3A 8B 28  46 AF C6 28 54 24 28 54  |T%(K):.(F..(T$(T|
00000CD0: 2C 39 29 29 29 B2 30 89  36 31 38 30 00 F3 14 B6  |,9))).0.6180....|
00000CE0: 17 8B 53 46 A7 99 54 24  28 54 2C 30 29 3A 89 36  |..SF..T$(T,0):.6|
00000CF0: 31 30 30 00 13 15 C0 17  8D 33 30 30 3A 99 22 93  |100......300:.".|
00000D00: 22 3A 81 49 B2 30 A4 33  3A 99 41 24 28 4A 2C 49  |":.I.0.3:.A$(J,I|
00000D10: 29 3A 82 00 3B 15 CA 17  99 22 11 D5 45 42 45 52  |):..;...."..EBER|
00000D20: 4E 45 48 4D 45 4E 20 20  20 20 20 22 3B 3A 8D 38  |NEHMEN     ";:.8|
00000D30: 30 35 30 3A 8B 49 89 36  31 38 30 00 51 15 D4 17  |050:.I.6180.Q...|
00000D40: 8F 20 4F 55 54 50 55 54  20 54 48 45 20 46 49 4C  |. OUTPUT THE FIL|
00000D50: 45 00 72 15 DE 17 81 49  B2 30 A4 37 3A 98 31 2C  |E.r....I.0.7:.1,|
00000D60: 54 24 28 54 2C 49 29 3A  82 3A 44 46 B2 B6 28 44  |T$(T,I):.:DF..(D|
00000D70: 46 29 00 88 15 24 18 4B  B2 4B AA 31 3A 8B 4B B3  |F)...$.K.K.1:.K.|
00000D80: B2 4E 58 89 36 30 36 30  00 BE 15 2E 18 98 31 2C  |.NX.6060......1,|
00000D90: 22 5C 22 3A 8B 44 46 B1  AB 31 A7 91 53 46 AA 31  |"\":.DF..1..SF.1|
00000DA0: 89 36 32 32 30 2C 31 30  30 3A 8F 20 20 2D 31 3D  |.6220,100:.  -1=|
00000DB0: 45 4D 50 54 59 20 44 49  53 43 46 49 4C 45 00 E9  |EMPTY DISCFILE..|
00000DC0: 15 38 18 99 22 11 CB 45  49 4E 45 20 C1 44 52 45  |.8.."..EINE .DRE|
00000DD0: 53 53 45 20 49 4E 20 44  49 45 53 45 52 20 CB 41  |SSE IN DIESER .A|
00000DE0: 54 45 47 4F 52 49 45 2E  22 00 02 16 42 18 A0 31  |TEGORIE."...B..1|
00000DF0: 3A 98 38 2C 22 53 30 3A  22 59 24 3A 98 38 2C 22  |:.8,"S0:"Y$:.8,"|
00000E00: 49 30 00 11 16 4C 18 8D  38 30 30 30 3A 89 31 30  |I0...L..8000:.10|
00000E10: 30 00 24 16 58 1B 8F 20  50 52 49 4E 54 20 4C 41  |0.$.X.. PRINT LA|
00000E20: 42 45 4C 53 00 41 16 62  1B 53 46 B2 AB 31 3A 4D  |BELS.A.b.SF..1:M|
00000E30: B2 33 30 3A 9F 31 2C 30  34 3A 4C 4C B2 39 39 39  |.30:.1,04:LL.999|
00000E40: 39 00 6B 16 6C 1B 99 22  11 C5 49 4E 2D 53 50 41  |9.k.l.."..IN-SPA|
00000E50: 4C 54 49 47 45 20 C5 54  49 4B 45 54 54 45 4E 22  |LTIGE .TIKETTEN"|
00000E60: 3B 3A 8D 38 30 35 30 3A  59 B2 49 00 93 16 8A 1B  |;:.8050:Y.I.....|
00000E70: 99 22 11 D0 52 4F 42 45  41 55 53 44 52 55 43 4B  |."..ROBEAUSDRUCK|
00000E80: 20 20 20 22 3B 3A 8D 38  30 35 30 3A 8B 49 89 37  |   ";:.8050:.I.7|
00000E90: 30 39 30 00 C1 16 94 1B  50 24 B2 22 2D 2D 2D 2D  |090.....P$."----|
00000EA0: 2D 2D 2D 2D 2D 2D 45 52  53 54 45 20 DA 45 49 4C  |------ERSTE .EIL|
00000EB0: 45 2D 2D 2D 2D 2D 2D 2D  2D 2D 22 3A 8D 37 39 30  |E---------":.790|
00000EC0: 30 00 F8 16 9E 1B 81 49  B2 30 A4 31 3A 50 24 B2  |0......I.0.1:P$.|
00000ED0: 22 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |"---------------|
00000EE0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 22  |---------------"|
00000EF0: 3A 8D 37 39 30 30 3A 82  00 35 17 A8 1B 50 24 B2  |:.7900:..5...P$.|
00000F00: 22 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 4C 45 54 5A 54  |"----------LETZT|
00000F10: 45 20 DA 45 49 4C 45 2D  2D 2D 2D 2D 2D 2D 2D 22  |E .EILE--------"|
00000F20: 3A 81 49 B2 31 A4 33 3A  8D 37 39 30 30 3A 82 3A  |:.I.1.3:.7900:.:|
00000F30: 89 37 30 35 30 00 5A 17  B2 1B 8D 37 32 30 30 3A  |.7050.Z....7200:|
00000F40: 8D 37 33 30 30 3A 89 31  30 30 3A 8F 20 4F 55 54  |.7300:.100:. OUT|
00000F50: 50 55 54 20 4C 41 42 45  4C 53 00 71 17 BC 1B 8F  |PUT LABELS.q....|
00000F60: 20 50 52 49 4E 54 20 50  48 4F 4E 45 20 42 4F 4F  | PRINT PHONE BOO|
00000F70: 4B 00 8D 17 C6 1B 53 46  B2 30 3A 4D B2 33 36 3A  |K.....SF.0:M.36:|
00000F80: 59 B2 31 3A 9F 31 2C 30  34 3A 4C B2 30 00 B5 17  |Y.1:.1,04:L.0...|
00000F90: D0 1B 99 22 11 DA 45 49  4C 45 4E 20 50 52 4F 20  |..."..EILEN PRO |
00000FA0: D3 45 49 54 45 20 22 4C  30 22 9D 9D 9D 9D 9D 22  |.EITE "L0"....."|
00000FB0: 3B 3A 85 4C 4C 00 D0 17  DA 1B 8D 37 32 30 30 3A  |;:.LL......7200:|
00000FC0: 8D 37 33 30 30 3A 8D 37  39 35 30 3A 89 31 30 30  |.7300:.7950:.100|
00000FD0: 00 E3 17 20 1C 8F 20 47  45 54 20 43 41 54 45 47  |... .. GET CATEG|
00000FE0: 4F 52 59 00 1B 18 2A 1C  99 22 93 D3 55 43 48 45  |ORY...*.."..UCHE|
00000FF0: 4E 20 4E 41 43 48 3A 22  3A 81 49 B2 30 A4 36 3A  |N NACH:":.I.0.6:|
00001000: 99 2C 22 12 22 CA 28 C4  28 49 AA 31 29 2C 32 29  |.,".".(.(I.1),2)|
00001010: 22 92 20 22 4B 24 28 49  29 3A 82 00 57 18 34 1C  |". "K$(I):..W.4.|
00001020: 99 2C 22 12 38 92 20 C1  4C 4C 45 22 3A 99 22 11  |.,".8. .LLE":.".|
00001030: C9 48 52 45 20 D7 41 48  4C 20 20 22 3B 3A 58 24  |.HRE .AHL  ";:X$|
00001040: B2 22 31 32 33 34 35 36  37 38 22 3A 8D 38 30 36  |."12345678":.806|
00001050: 30 3A 46 B2 32 AE 49 00  76 18 3E 1C 8E 3A 8F 20  |0:F.2.I.v.>..:. |
00001060: 41 4C 4C 20 41 52 45 20  4F 52 2D 45 44 20 57 49  |ALL ARE OR-ED WI|
00001070: 54 48 20 31 32 38 00 89  18 84 1C 8F 20 50 52 49  |TH 128...... PRI|
00001080: 4E 54 20 45 49 54 48 45  52 00 B8 18 8E 1C 4A B2  |NT EITHER.....J.|
00001090: 59 3A 81 4B B2 30 A4 4E  58 3A 54 B2 54 25 28 4B  |Y:.K.0.NX:T.T%(K|
000010A0: 29 3A 8B 28 46 AF C6 28  54 24 28 54 2C 39 29 29  |):.(F..(T$(T,9))|
000010B0: 29 B2 30 89 37 33 38 30  00 D6 18 98 1C 4A B2 59  |).0.7380.....J.Y|
000010C0: AB 4A 3A 8D 33 30 30 3A  8B 53 46 A7 41 24 28 4A  |.J:.300:.SF.A$(J|
000010D0: 2C 34 29 B2 22 22 00 E4  18 A2 1C 8B 4A B3 59 89  |,4).""......J.Y.|
000010E0: 37 33 38 30 00 FF 18 B6  1C 81 49 B2 30 A4 34 3A  |7380......I.0.4:|
000010F0: 50 24 B2 C8 28 41 24 28  30 2C 49 29 2C 4D 29 00  |P$..(A$(0,I),M).|
00001100: 29 19 C0 1C 8B 4A A7 50  24 B2 50 24 AA C8 28 42  |)....J.P$.P$..(B|
00001110: 24 2C 4D AA 36 AB C3 28  50 24 29 29 AA C8 28 41  |$,M.6..(P$))..(A|
00001120: 24 28 31 2C 49 29 2C 4D  29 00 3B 19 CA 1C 8D 37  |$(1,I),M).;....7|
00001130: 39 30 30 3A 82 3A 8D 37  39 30 30 00 6C 19 D4 1C  |900:.:.7900.l...|
00001140: 82 4B 3A 8B 4A B3 59 A7  81 49 B2 30 A4 34 3A 50  |.K:.J.Y..I.0.4:P|
00001150: 24 B2 C8 28 41 24 28 30  2C 49 29 2C 4D 29 3A 8D  |$..(A$(0,I),M):.|
00001160: 37 39 30 30 3A 82 3A 8D  37 39 30 30 00 72 19 DE  |7900:.:.7900.r..|
00001170: 1C 8E 00 9F 19 DC 1E 4C  B2 4C AA 31 3A 98 31 2C  |.......L.L.1:.1,|
00001180: 22 11 22 AA 50 24 3A 50  24 B2 22 22 3A 8B 4C B3  |".".P$:P$."":.L.|
00001190: 4C 4C A7 8E 3A 8F 20 4C  49 4E 45 20 4F 55 54 00  |LL..:. LINE OUT.|
000011A0: C1 19 E6 1E 4C B2 4C AA  31 3A 98 31 2C 22 11 22  |....L.L.1:.1,"."|
000011B0: AA 50 24 3A 50 24 B2 22  22 3A 8B 4C B3 4C 4C A7  |.P$:P$."":.L.LL.|
000011C0: 8E 00 EF 19 0E 1F 8B 4C  A7 81 4C B2 4C A4 4C 50  |.......L..L.L.LP|
000011D0: AB 31 3A 98 31 3A 82 3A  4C B2 30 3A 8E 3A 8F 20  |.1:.1:.:L.0:.:. |
000011E0: 46 49 4E 49 53 48 20 54  48 45 20 50 41 47 45 00  |FINISH THE PAGE.|
000011F0: FF 19 40 1F 8F 20 55 54  49 4C 49 54 49 45 53 00  |..@.. UTILITIES.|
00001200: 33 1A 4A 1F 99 22 11 12  20 D7 45 49 54 45 52 20  |3.J..".. .EITER |
00001210: 4D 49 54 20 42 45 4C 49  45 42 49 47 45 52 20 D4  |MIT BELIEBIGER .|
00001220: 41 53 54 45 22 3B 3A 8D  32 30 3A 99 3A 99 22 93  |ASTE";:.20:.:.".|
00001230: 22 3A 8E 00 3E 1A 72 1F  58 24 B2 22 4A 4E 00 49  |":..>.r.X$."JN.I|
00001240: 1A 7C 1F 99 22 3F 20 22  3B 00 73 1A 86 1F 8D 32  |.|.."? ";.s....2|
00001250: 30 3A 81 49 B2 31 A4 C3  28 58 24 29 3A 8B 43 24  |0:.I.1..(X$):.C$|
00001260: B3 B1 CA 28 58 24 2C 49  2C 31 29 A7 82 3A 89 38  |...(X$,I,1)..:.8|
00001270: 30 37 30 00 8C 1A 8B 1F  49 B2 49 AB 31 3A 99 43  |070.....I.I.1:.C|
00001280: 24 3B 3A 8B 43 B2 31 33  A7 99 3A 8E 00 A8 1A 90  |$;:.C.13..:.....|
00001290: 1F A1 57 24 3A 8B 57 24  B2 22 22 A7 99 22 A4 9D  |..W$:.W$."".."..|
000012A0: 22 3B 3A 89 38 30 38 30  00 BE 1A 95 1F 99 22 20  |";:.8080......" |
000012B0: 9D 22 3B 3A 8B 57 24 B2  52 24 A7 99 3A 8E 00 D7  |.";:.W$.R$..:...|
000012C0: 1A 9A 1F 8B 57 24 B2 C7  28 32 30 29 A7 99 57 24  |....W$..(20)..W$|
000012D0: 3B 3A 89 38 30 37 30 00  E1 1A 9F 1F 89 38 30 38  |;:.8070......808|
000012E0: 30 00 FC 1A 08 20 58 24  B2 22 22 3A 8F 20 49 4E  |0.... X$."":. IN|
000012F0: 50 55 54 20 41 20 53 54  52 49 4E 47 00 0D 1B 12  |PUT A STRING....|
00001300: 20 A1 43 24 3A 8B 43 24  89 38 32 31 30 00 1D 1B  | .C$:.C$.8210...|
00001310: 1C 20 8D 32 35 3A 8B 43  B2 31 33 A7 8E 00 4C 1B  |. .25:.C.13...L.|
00001320: 26 20 8B 43 B2 32 30 AF  58 24 B1 22 22 A7 99 43  |& .C.20.X$.""..C|
00001330: 24 3B 3A 58 24 B2 C8 28  58 24 2C C3 28 58 24 29  |$;:X$..(X$,.(X$)|
00001340: AB 31 29 3A 8F 20 44 45  4C 45 54 45 00 75 1B 2B  |.1):. DELETE.u.+|
00001350: 20 8B 28 31 32 37 AF 43  29 B3 33 32 89 38 32 32  | .(127.C).32.822|
00001360: 30 3A 8F 20 43 55 52 53  4F 52 20 43 48 41 52 41  |0:. CURSOR CHARA|
00001370: 43 54 45 52 53 00 9E 1B  30 20 8B 28 4B 25 28 43  |CTERS...0 .(K%(C|
00001380: 29 B0 47 29 A7 99 43 24  3B 3A 58 24 B2 58 24 AA  |).G)..C$;:X$.X$.|
00001390: 43 24 3A 8B C3 28 58 24  29 B1 B2 4D A7 8E 00 A8  |C$:..(X$)..M....|
000013A0: 1B 3A 20 89 38 32 32 30  00 B9 1B 28 23 8F 20 49  |.: .8220...(#. I|
000013B0: 4E 49 54 49 41 4C 49 5A  45 00 E6 1B 2D 23 4C 30  |NITIALIZE...-#L0|
000013C0: B2 36 30 3A 4C 50 B2 37  32 3A 4E 58 B2 AB 31 3A  |.60:LP.72:NX..1:|
000013D0: 52 24 B2 C7 28 31 33 29  3A 48 24 B2 22 CE 41 4D  |R$..(13):H$.".AM|
000013E0: 45 20 CC 49 53 54 00 07  1C 32 23 86 4B 25 28 32  |E .IST...2#.K%(2|
000013F0: 35 35 29 2C 41 24 28 31  2C 34 29 2C 4B 24 28 36  |55),A$(1,4),K$(6|
00001400: 29 2C 46 24 28 38 29 00  48 1C 3C 23 99 22 93 8E  |),F$(8).H.<#."..|
00001410: 13 13 0F 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
00001420: 11 11 11 11 11 11 11 11  11 11 11 11 22 A6 33 39  |............".39|
00001430: 29 22 8F 05 22 3A 97 35  39 34 36 38 2C 31 34 3A  |)"..":.59468,14:|
00001440: 8F 20 46 4F 52 4D 41 54  00 81 1C 41 23 97 35 33  |. FORMAT...A#.53|
00001450: 32 37 32 2C 32 B0 C2 28  35 33 32 37 32 29 3A 99  |272,2..(53272):.|
00001460: 22 93 20 20 20 20 20 12  20 C3 4F 4D 4D 4F 44 4F  |".     . .OMMODO|
00001470: 52 45 20 C1 C4 D2 C5 D3  D3 C5 CE 20 36 34 20 20  |RE ........ 64  |
00001480: 92 00 9C 1C 43 23 8D 36  31 30 30 30 3A 20 8F 20  |....C#.61000: . |
00001490: 43 4F 4C 4F 52 20 43 48  41 4E 47 45 00 E1 1C 46  |COLOR CHANGE...F|
000014A0: 23 99 22 11 12 CB 92 41  53 53 45 54 54 45 2C 20  |#."....ASSETTE, |
000014B0: 12 C4 92 49 53 4B 45 54  54 45 2C 20 4F 44 45 52  |...ISKETTE, ODER|
000014C0: 20 12 42 92 45 49 44 45  53 22 3B 3A 58 24 B2 22  | .B.EIDES";:X$."|
000014D0: 44 4B 42 22 3A 8D 38 30  36 30 3A 43 46 B2 49 AA  |DKB":.8060:CF.I.|
000014E0: 31 00 19 1D 4B 23 81 49  B2 33 32 A4 39 30 3A 87  |1...K#.I.32.90:.|
000014F0: 4B 25 28 49 29 3A 82 3A  81 49 B2 31 39 33 A4 32  |K%(I):.:.I.193.2|
00001500: 31 38 3A 4B 25 28 49 29  B2 31 3A 82 3A 8F 20 43  |18:K%(I).1:.:. C|
00001510: 48 41 52 20 41 52 52 41  59 00 50 1D 50 23 42 24  |HAR ARRAY.P.P#B$|
00001520: B2 22 20 20 20 20 20 22  3A 81 49 B2 31 A4 35 3A  |."     ":.I.1.5:|
00001530: 42 24 B2 42 24 AA 42 24  3A 82 3A 42 30 24 B2 C8  |B$.B$.B$:.:B0$..|
00001540: 28 42 24 2C 33 39 29 3A  9F 38 2C 30 38 2C 31 35  |(B$,39):.8,08,15|
00001550: 00 8B 1D 55 23 99 22 11  D4 41 47 45 53 44 41 54  |...U#."..AGESDAT|
00001560: 55 4D 3A 20 22 3A 4D B2  36 30 3A 47 B2 31 3A 8D  |UM: ":M.60:G.1:.|
00001570: 38 32 30 30 3A 47 B2 30  3A 44 24 B2 58 24 3A 8B  |8200:G.0:D$.X$:.|
00001580: 44 24 B2 22 22 A7 44 24  B2 22 2D 00 AF 1D 6E 23  |D$."".D$."-...n#|
00001590: 99 3A 81 49 B2 30 A4 38  3A 87 46 24 28 49 29 3A  |.:.I.0.8:.F$(I):|
000015A0: 82 3A 8F 20 46 49 45 4C  44 20 4E 41 4D 45 53 00  |.:. FIELD NAMES.|
000015B0: D0 1D 78 23 81 49 B2 30  A4 36 3A 87 4B 24 28 49  |..x#.I.0.6:.K$(I|
000015C0: 29 3A 82 3A 8F 20 43 41  54 45 47 4F 52 49 45 53  |):.:. CATEGORIES|
000015D0: 00 09 1E 82 23 56 B2 B5  28 28 B8 28 30 29 AB 32  |....#V..((.(0).2|
000015E0: 30 30 30 29 AD 31 37 30  29 3A 86 54 24 28 56 2C  |000).170):.T$(V,|
000015F0: 39 29 2C 54 25 28 56 29  3A 81 49 B2 30 A4 56 3A  |9),T%(V):.I.0.V:|
00001600: 54 25 28 49 29 B2 49 3A  82 00 1A 1E 1C 25 8F 20  |T%(I).I:.....%. |
00001610: 49 4E 50 55 54 20 46 49  4C 45 00 3D 1E 26 25 8B  |INPUT FILE.=.&%.|
00001620: 43 46 B1 32 A7 99 22 11  D6 4F 4E 20 C4 41 54 41  |CF.2.."..ON .ATA|
00001630: 53 45 54 54 45 22 3B 3A  8D 38 30 35 30 00 6F 1E  |SETTE";:.8050.o.|
00001640: 30 25 8B 43 46 B2 32 B0  28 43 46 B2 33 AF 49 B2  |0%.CF.2.(CF.3.I.|
00001650: 30 29 A7 8D 39 37 30 30  3A 91 49 89 31 30 30 3A  |0)..9700:.I.100:|
00001660: 9F 31 2C 31 2C 30 2C 48  24 3A 89 39 36 30 30 00  |.1,1,0,H$:.9600.|
00001670: 93 1E 4E 25 A0 31 3A 9F  31 2C 30 38 2C 32 2C 48  |..N%.1:.1,08,2,H|
00001680: 24 3A 84 38 2C 58 2C 58  24 3A 8B 58 B2 30 89 39  |$:.8,X,X$:.X.0.9|
00001690: 36 30 30 00 A4 1E 58 25  8D 39 37 30 30 3A 8B 49  |600...X%.9700:.I|
000016A0: 89 31 30 30 00 DD 1E 62  25 99 22 11 CC 45 47 45  |.100...b%."..EGE|
000016B0: 4E 20 D3 49 45 20 42 49  54 54 45 20 44 49 45 20  |N .IE BITTE DIE |
000016C0: C4 49 53 4B 45 54 54 45  20 45 49 4E 20 55 4E 44  |.ISKETTE EIN UND|
000016D0: 22 3A 8D 38 30 30 30 3A  89 39 35 35 30 00 E7 1E  |":.8000:.9550...|
000016E0: 80 25 58 24 B2 22 22 00  09 1F 83 25 A1 23 31 2C  |.%X$.""....%.#1,|
000016F0: 43 24 3A 8B 43 24 B3 B1  52 24 A7 58 24 B2 58 24  |C$:.C$..R$.X$.X$|
00001700: AA 43 24 3A 89 39 36 30  33 00 35 1F 85 25 99 22  |.C$:.9603.5..%."|
00001710: 93 C5 4E 54 45 52 45 44  3A 20 12 22 58 24 3A 99  |..NTERED: ."X$:.|
00001720: 3A 8F 20 44 41 54 45 4C  49 4E 45 20 46 52 4F 4D  |:. DATELINE FROM|
00001730: 20 46 49 4C 45 00 6B 1F  8A 25 81 49 B2 30 A4 56  | FILE.k..%.I.0.V|
00001740: 3A 84 31 2C 58 24 3A 8B  58 24 B2 22 5C 22 B0 53  |:.1,X$:.X$."\".S|
00001750: 54 B1 30 89 39 36 35 30  3A 8F 20 52 45 41 44 49  |T.0.9650:. READI|
00001760: 4E 47 20 43 4F 4D 50 4C  45 54 45 00 9C 1F 94 25  |NG COMPLETE....%|
00001770: 99 58 24 3A 54 24 28 49  2C 30 29 B2 58 24 3A 81  |.X$:T$(I,0).X$:.|
00001780: 4A B2 31 A4 39 3A 84 31  2C 54 24 28 49 2C 4A 29  |J.1.9:.1,T$(I,J)|
00001790: 3A 82 3A 54 25 28 49 29  B2 49 3A 82 00 B7 1F B2  |:.:T%(I).I:.....|
000017A0: 25 4E 58 B2 49 AB 31 3A  89 31 30 30 3A 8F 20 43  |%NX.I.1:.100:. C|
000017B0: 4F 4D 50 4C 45 54 45 00  D9 1F E4 25 99 22 11 CE  |OMPLETE....%."..|
000017C0: 45 55 45 20 C4 41 54 45  49 22 3B 3A 8D 38 30 35  |EUE .ATEI";:.805|
000017D0: 30 3A 49 B2 31 AB 49 3A  8E 00 FB 1F AC 26 8F 20  |0:I.1.I:.....&. |
000017E0: 41 43 43 45 50 54 41 42  4C 45 20 43 48 41 52 41  |ACCEPTABLE CHARA|
000017F0: 43 54 45 52 53 20 33 32  2D 39 30 00 40 20 B6 26  |CTERS 32-90.@ .&|
00001800: 83 31 2C 31 2C 30 2C 31  2C 31 2C 31 2C 31 2C 31  |.1,1,0,1,1,1,1,1|
00001810: 2C 31 2C 31 2C 31 2C 31  2C 30 2C 31 2C 31 2C 31  |,1,1,1,1,0,1,1,1|
00001820: 2C 31 2C 31 2C 31 2C 31  2C 31 2C 31 2C 31 2C 31  |,1,1,1,1,1,1,1,1|
00001830: 2C 31 2C 31 2C 30 2C 30  2C 31 2C 31 2C 31 2C 31  |,1,1,0,0,1,1,1,1|
00001840: 00 7B 20 C0 26 83 31 2C  31 2C 31 2C 31 2C 31 2C  |.{ .&.1,1,1,1,1,|
00001850: 31 2C 31 2C 31 2C 31 2C  31 2C 31 2C 31 2C 31 2C  |1,1,1,1,1,1,1,1,|
00001860: 31 2C 31 2C 31 2C 31 2C  31 2C 31 2C 31 2C 31 2C  |1,1,1,1,1,1,1,1,|
00001870: 31 2C 31 2C 31 2C 31 2C  31 2C 31 00 C8 20 CA 26  |1,1,1,1,1,1.. .&|
00001880: 83 22 CE 41 43 48 4E 41  4D 45 20 22 2C 22 D6 4F  |.".ACHNAME ",".O|
00001890: 52 4E 41 4D 45 20 20 20  22 2C 22 C1 4E 52 45 44  |RNAME   ",".NRED|
000018A0: 45 20 28 44 2E 48 2E 20  C8 45 52 52 2C 20 C6 52  |E (D.H. .ERR, .R|
000018B0: 41 55 2C 20 C6 41 4D 2E  2C 20 C6 49 52 4D 41 29  |AU, .AM., .IRMA)|
000018C0: 22 2C 22 D4 49 54 45 4C  00 04 21 D4 26 83 22 CF  |",".ITEL..!.&.".|
000018D0: 52 47 41 4E 49 53 41 54  49 4F 4E 22 2C 22 D3 54  |RGANISATION",".T|
000018E0: 52 41 53 53 45 22 2C 22  D0 CC DA 2F CF 52 54 22  |RASSE",".../.RT"|
000018F0: 2C 22 D3 54 41 41 54 22  2C 22 D4 45 4C 45 46 4F  |,".TAAT",".ELEFO|
00001900: 4E 4E 52 2E 00 1B 21 10  27 8F 20 53 45 56 45 4E  |NNR...!.'. SEVEN|
00001910: 20 43 41 54 45 47 4F 52  49 45 53 00 2A 21 1A 27  | CATEGORIES.*!.'|
00001920: 83 20 22 C6 41 4D 49 4C  49 45 00 39 21 24 27 83  |. ".AMILIE.9!$'.|
00001930: 20 22 C6 52 45 55 4E 44  45 00 50 21 2E 27 83 20  | ".REUNDE.P!.'. |
00001940: 22 C1 52 42 45 49 54 53  4B 4F 4C 4C 45 47 45 4E  |".RBEITSKOLLEGEN|
00001950: 00 5E 21 38 27 83 20 22  C1 45 52 5A 54 45 00 73  |.^!8'. ".ERZTE.s|
00001960: 21 42 27 83 20 22 C9 4E  53 54 49 54 55 54 49 4F  |!B'. ".NSTITUTIO|
00001970: 4E 45 4E 00 81 21 4C 27  83 20 22 D3 43 48 55 4C  |NEN..!L'. ".CHUL|
00001980: 45 00 92 21 56 27 83 20  22 D3 4F 4E 53 54 49 47  |E..!V'. ".ONSTIG|
00001990: 45 53 00 A5 21 60 EA 99  58 24 3A 8D 38 30 30 30  |ES..!`..X$:.8000|
000019A0: 3A 89 31 30 30 00 C0 21  48 EE 8F 20 43 4F 4C 4F  |:.100..!H.. COLO|
000019B0: 52 20 43 48 41 4E 47 45  20 52 4F 55 54 49 4E 45  |R CHANGE ROUTINE|
000019C0: 00 E4 21 49 EE 96 A5 43  28 58 29 B2 C2 28 58 29  |..!I...C(X)..(X)|
000019D0: AA 31 AA 31 36 AC 28 28  C2 28 58 29 AF 31 35 29  |.1.16.((.(X).15)|
000019E0: B2 31 35 29 00 06 22 4A  EE 99 22 13 11 11 11 12  |.15).."J..".....|
000019F0: C6 31 92 3D 20 C6 41 52  42 45 20 44 45 53 20 D2  |.1.= .ARBE DES .|
00001A00: 41 4E 44 45 53 22 00 27  22 4B EE 99 22 11 11 12  |ANDES".'"K.."...|
00001A10: C6 33 92 3D 20 C8 49 4E  54 45 52 47 52 55 4E 44  |.3.= .INTERGRUND|
00001A20: 2D C6 41 52 42 45 22 00  48 22 4C EE 99 22 11 11  |-.ARBE".H"L.."..|
00001A30: 12 C6 35 92 3D 20 C6 41  52 42 45 20 44 45 52 20  |..5.= .ARBE DER |
00001A40: DA 45 49 43 48 45 4E 22  00 62 22 4D EE 99 22 11  |.EICHEN".b"M..".|
00001A50: 11 12 D2 C5 D4 D5 D2 CE  92 3D 20 D7 45 49 54 45  |.........= .EITE|
00001A60: 52 22 00 74 22 52 EE A1  43 24 3A 8B 43 24 89 36  |R".t"R..C$:.C$.6|
00001A70: 31 30 31 30 00 89 22 5C  EE A1 43 24 3A 8B 43 24  |1010.."\..C$:.C$|
00001A80: B2 22 22 89 36 31 30 32  30 00 B0 22 66 EE 43 B2  |."".61020.."f.C.|
00001A90: C6 28 43 24 29 3A 8B 43  B2 31 33 35 A7 97 36 34  |.(C$):.C.135..64|
00001AA0: 36 2C A5 43 28 36 34 36  29 3A 89 36 31 30 30 32  |6,.C(646):.61002|
00001AB0: 00 DC 22 7A EE 43 B2 C6  28 43 24 29 3A 8B 43 B2  |.."z.C..(C$):.C.|
00001AC0: 31 33 33 B0 43 B2 31 33  34 A7 58 B2 35 33 31 34  |133.C.134.X.5314|
00001AD0: 37 AA 43 3A 97 58 2C A5  43 28 58 29 00 ED 22 84  |7.C:.X,.C(X)..".|
00001AE0: EE 8B 43 B3 B1 31 33 89  36 31 30 31 30 00 F3 22  |..C..13.61010.."|
00001AF0: 8E EE 8E 00 00 00 B7 E0                           |........        |

.......G(14):.650,128.O....9000:. (C) 19
82 BY COMMODORE BUSINESS MACHINES, INC..
^....C$:.C$.20.{....C$:.C$.." .";:C.F(C$
):......."..";:.25...D. 1:. MENU ENTRY.H
.N..".      . COMMODORE ADRESSEN 64  ...
...X.."FUNKTIONEN:.."...}..,".E.RFASSEN 
EINES NAMENS/ADRESSE.)....,".A.UFRUFEN V
ON NAMEN/ADRESSEN.M....,".D.RUCKEN VON N
AMEN/ADRESSEN.M....,".R.UNDSCHREIBEN-ADR
ESSEN... ..,".T.ELEFONBUCH AUSDRUCKEN...
...,".S.PEICHERN DER NAMENS-LISTE.G....,
".P.ROGRAMMENDE......".WELCHE   ";:X$."P
EADRST":.8060......I.4000,5000,7000,6000
,3000,7100.I....".SEITENVORSCHUB";:.8050
:.I.0..1,04:L..1:.7950: 1......OF..".SPE
ICHERN DER *NAME LIST*";:.8050:.I.0..302
0..... 1:."..TSCHUESS!"...,.. FORMAT THE
 LINE...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$.J.^.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).B.R.A$(J,4).T$(T,8):X.F(T$(T,9)).127
:..Q.K.BLOCKS .E....... OUTPUT FILE...B.
.3020:.100...L.Y$.H$:.3500:.E(X$).60000.
..V..X...)...OF.0:.1,D$:..F.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...... OPEN THE
 FILE TO WRITE.H...DF.0:X.0:X$."":.CF.2.
.".AUF DATASETTE";:.8050...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.T....:.".DATEI
 EXISTIERT - UEBERSCHREIBEN";:.8050:.I.X
.1:..H....8,"S"L$:.8,"I0......1,08,3,L$.
",S,W":.8,X,X$:.... .. CREATE AN ENTRY.W
....NX..V..".. LEIDER KEIN PLATZ MEHR FR
EI!":.8000:.100.....NX.NX.1:K.NX:T.T%(K)
:T$(T,9).G(128).$...OF.1:M.39:Y.0:. GET 
NAME/ADDRESS.1...J.0:.300.C....". ";:.I.
1.30:.".";:.:.I.1.5:."...";:.:.".";.....
.I.1.30:."...";:.:.I.1.5:."...";:.:."...
."..I.0.4:."."A$(J,I):.:.Y.8.4200.W.6.."
.........."B0$:."."F$(Y):.B0$"....;..820
0:.C..13.4120...=..:.I(X$,1)." ".X$.H(X$
,C(X$).1):.4157.F.@..X$."".T$(T,Y)."".Y.
Y.1:.2.(Y.9).4150,4110.X.J..C(X$).1.4190
...T.X$."-":.Y.0..".LOESCHEN";:.8050:.I.
1.4900,4110...^.T$(T,Y).X$:Y.Y.1:.4110.K
.H.X$."1234567".R$:. GET CATEGORIES...R.
.".........KATEGORIEN:...|..I.0.6:.,:.X.
2.I..".";......I.1"."K$(I):..D....".WIE 
ZUORDNEN/LOESCHEN?   .";:.8070:I.2.I.C..
.X.(X.I)..(X.I):.X.128.4210...L.T$(T,9).
G(X):. COMPLETE EDIT...V..".."B0$:.".AKZ
EPTIERT";:.8050:.I.4100.P....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.Y....I.NX.J.I.1:.I.NX.J..1:T%(I).T%
(I.1):.:. MAKE ROOM FOR T.....T%(I).T:.1
00:. INSERT T, EXIT...$.. CLEAN UP DELET
ION.K....I.0.9:T$(T,I)."":....8.NX.NX.1:
.I.K.NX:T%(I).T%(I.1):.:T%(I).T:.100....
.. SELECT/EDIT AN ENTRY.;....".":."SUCHE
N NACH:  .N.ACHNAME.P....,"    .V.ORNAME
.E....,"    .P.LZ/ORT.X....,"    .S.TAAT
......,"    .T.ELEFONNR....N..".WELCHER 
 ";:X$."NVLLLLPST":.8060:F.I...X.M.40:."
.SCHLUESSELWORT: ";:.8200:Z$.X$:Z.C(Z$).
....K.0:. SEARCH FOR FIELD.%...T.T%(K):X
$.T$(T,F):Y.0.W....I.1.C(X$).Z.1:Y.(J(X$
,I,Z).Z$).Y:.:.Y.0.5150.{...J.0:.300:.".
":.I.0.4:.A$(0,I):.......".WEITERSUCHEN 
   ";:.8050:.I.5180.....K.K.1:.K..NX.511
0...(..:.".ALLE EINGABEN UEBERPRUEFT":.8
000:.100...<..".AENDERN";:.8050:.I.100:.
4100.(.P.. FILE FOR WORD MACHINE.[.Z..".
NAME DER DATEI:   ";:M.16:.8200:.X$."".6
010.X...Y$.X$:.3500:.E(X$).60000......X.
100......7200:.".SPEZIELLE AUSWAHL  ";:.
8050:SF.I:J.0:K.0.....T.T%(K):.(F.F(T$(T
,9))).0.6180......SF..T$(T,0):.6100.....
.300:.".":.I.0.3:.A$(J,I):..;.J..".UEBER
NEHMEN     ";:.8050:.I.6180.Q.T.. OUTPUT
 THE FILE.R....I.0.7:.1,T$(T,I):.:DF..(D
F)...$.K.K.1:.K..NX.6060......1,"\":.DF.
.1..SF.1.6220,100:.  -1=EMPTY DISCFILE..
.8..".KEINE ADRESSE IN DIESER KATEGORIE.
"...B. 1:.8,"S0:"Y$:.8,"I0...L..8000:.10
0.$.X.. PRINT LABELS.A.B.SF..1:M.30:.1,0
4:LL.9999.K.L..".EIN-SPALTIGE ETIKETTEN"
;:.8050:Y.I......".PROBEAUSDRUCK   ";:.8
050:.I.7090.A...P$."----------ERSTE ZEIL
E---------":.7900......I.0.1:P$."-------
-----------------------":.7900:..5...P$.
"----------LETZTE ZEILE--------":.I.1.3:
.7900:.:.7050.Z....7200:.7300:.100:. OUT
PUT LABELS.Q.... PRINT PHONE BOOK...F.SF
.0:M.36:Y.1:.1,04:L.0...P..".ZEILEN PRO 
SEITE "L0".....";:.LL.P.Z..7200:.7300:.7
950:.100... .. GET CATEGORY...*..".SUCHE
N NACH:":.I.0.6:.,"."J(D(I.1),2)". "K$(I
):..W.4..,".8. ALLE":.".IHRE WAHL  ";:X$
."12345678":.8060:F.2.I.V.>..:. ALL ARE 
OR-ED WITH 128...... PRINT EITHER.....J.
Y:.K.0.NX:T.T%(K):.(F.F(T$(T,9))).0.7380
.V...J.Y.J:.300:.SF.A$(J,4).""......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).;.J..7
900:.:.7900.L.T..K:.J.Y..I.0.4:P$.H(A$(0
,I),M):.7900:.:.7900.R.........L.L.1:.1,
".".P$:P$."":.L.LL..:. LINE OUT.A...L.L.
1:.1,".".P$:P$."":.L.LL........L..L.L.LP
.1:.1:.:L.0:.:. FINISH THE PAGE...@.. UT
ILITIES.3.J..".. WEITER MIT BELIEBIGER T
ASTE";:.20:.:.".":..>.R.X$."JN.I.|.."? "
;.S....20:.I.1.C(X$):.C$..J(X$,I,1)..:.8
070.....I.I.1:.C$;:.C.13..:.......W$:.W$
."".."..";:.8080......" .";:.W$.R$..:..W
....W$.G(20)..W$;:.8070......8080.... X$
."":. INPUT A STRING.... .C$:.C$.8210...
. .25:.C.13...L.& .C.20.X$.""..C$;:X$.H(
X$,C(X$).1):. DELETE.U.+ .(127.C).32.822
0:. CURSOR CHARACTERS...0 .(K%(C).G)..C$
;:X$.X$.C$:.C(X$)..M.....: .8220...(#. I
NITIALIZE...-#L0.60:LP.72:NX..1:R$.G(13)
:H$."NAME LIST...2#.K%(255),A$(1,4),K$(6
),F$(8).H.<#."..........................
....".39)"..":.59468,14:. FORMAT...A#.53
272,2.B(53272):.".     . COMMODORE ADRES
SEN 64  ....C#.61000: . COLOR CHANGE...F
#."..K.ASSETTE, .D.ISKETTE, ODER .B.EIDE
S";:X$."DKB":.8060:CF.I.1...K#.I.32.90:.
K%(I):.:.I.193.218:K%(I).1:.:. CHAR ARRA
Y.P.P#B$."     ":.I.1.5:B$.B$.B$:.:B0$.H
(B$,39):.8,08,15...U#.".TAGESDATUM: ":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).2
000).170):.T$(V,9),T%(V):.I.0.V:T%(I).I:
.....%. INPUT FILE.=.&%.CF.2..".VON DATA
SETTE";:.8050.O.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
%.".LEGEN SIE BITTE DIE DISKETTE EIN UND
":.8000:.9550....%X$.""....%.#1,C$:.C$..
R$.X$.X$.C$:.9603.5..%.".ENTERED: ."X$:.
:. DATELINE FROM FILE.K..%.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.Y..%.".N
EUE DATEI";:.8050:I.1.I:.....&. ACCEPTAB
LE 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.H J&."NACHNA
ME ","VORNAME   ","ANREDE (D.H. HERR, FR
AU, FAM., FIRMA)","TITEL..!T&."ORGANISAT
ION","STRASSE","PLZ/ORT","STAAT","TELEFO
NNR...!.'. SEVEN CATEGORIES.*!.'. "FAMIL
IE.9!$'. "FREUNDE.P!.'. "ARBEITSKOLLEGEN
.^!8'. "AERZTE.S!B'. "INSTITUTIONEN..!L'
. "SCHULE..!V'. "SONSTIGES..!`..X$:.8000
:.100..!H.. COLOR CHANGE ROUTINE..!I...C
(X).B(X).1.16.((B(X).15).15).."J..".....
F1.= FARBE DES RANDES".'"K.."...F3.= HIN
TERGRUND-FARBE".H"L.."...F5.= FARBE DER 
ZEICHEN".B"M.."...RETURN.= WEITER".T"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..13.61010.."........

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL