ADRESSEN 64

00000000: 01 08 1D 08 05 00 99 C7  28 31 34 29 3A 97 36 35  |........(14):.65|
00000010: 37 2C 31 32 38 3A 97 37  38 38 2C 35 32 00 57 08  |7,128:.788,52.W.|
00000020: 0A 00 89 39 30 30 30 3A  8F 20 28 43 29 20 31 39  |...9000:. (C) 19|
00000030: 38 32 20 42 59 20 43 4F  4D 4D 4F 44 4F 52 45 20  |82 BY COMMODORE |
00000040: 42 55 53 49 4E 45 53 53  20 4D 41 43 48 49 4E 45  |BUSINESS MACHINE|
00000050: 53 2C 20 49 4E 43 2E 00  66 08 14 00 A1 43 24 3A  |S, INC..f....C$:|
00000060: 8B 43 24 89 32 30 00 83  08 19 00 A1 43 24 3A 8B  |.C$.20......C$:.|
00000070: 43 24 A7 99 22 20 9D 22  3B 3A 43 B2 C6 28 43 24  |C$.." .";:C..(C$|
00000080: 29 3A 8E 00 92 08 1B 00  99 22 A4 9D 22 3B 3A 89  |):......."..";:.|
00000090: 32 35 00 A6 08 64 00 A0  31 3A 8F 20 4D 45 4E 55  |25...d..1:. MENU|
000000A0: 20 45 4E 54 52 59 00 D0  08 6E 00 99 22 93 20 20  | ENTRY...n..".  |
000000B0: 20 20 20 20 12 20 C3 4F  4D 4D 4F 44 4F 52 45 20  |    . .OMMODORE |
000000C0: C1 C4 D2 C5 D3 D3 C5 CE  20 36 34 20 20 92 11 11  |........ 64  ...|
000000D0: 00 E5 08 78 00 99 22 C6  55 4E 4B 54 49 4F 4E 45  |...x..".UNKTIONE|
000000E0: 4E 3A 11 11 22 00 0C 09  7D 00 99 2C 22 12 C5 92  |N:.."...}..,"...|
000000F0: 52 46 41 53 53 45 4E 20  45 49 4E 45 53 20 CE 41  |RFASSEN EINES .A|
00000100: 4D 45 4E 53 2F C1 44 52  45 53 53 45 00 31 09 82  |MENS/.DRESSE.1..|
00000110: 00 99 2C 22 12 C1 92 55  46 52 55 46 45 4E 20 56  |..,"...UFRUFEN V|
00000120: 4F 4E 20 CE 41 4D 45 4E  2F C1 44 52 45 53 53 45  |ON .AMEN/.DRESSE|
00000130: 4E 00 55 09 8C 00 99 2C  22 12 C4 92 52 55 43 4B  |N.U....,"...RUCK|
00000140: 45 4E 20 56 4F 4E 20 CE  41 4D 45 4E 2F C1 44 52  |EN VON .AMEN/.DR|
00000150: 45 53 53 45 4E 00 75 09  96 00 99 2C 22 12 D2 92  |ESSEN.u....,"...|
00000160: 55 4E 44 53 43 48 52 45  49 42 45 4E 2D C1 44 52  |UNDSCHREIBEN-.DR|
00000170: 45 53 53 45 4E 00 95 09  A0 00 99 2C 22 12 D4 92  |ESSEN......,"...|
00000180: 45 4C 45 46 4F 4E 42 55  43 48 20 C1 55 53 44 52  |ELEFONBUCH .USDR|
00000190: 55 43 4B 45 4E 00 B9 09  AA 00 99 2C 22 12 D3 92  |UCKEN......,"...|
000001A0: 50 45 49 43 48 45 52 4E  20 44 45 52 20 CE 41 4D  |PEICHERN DER .AM|
000001B0: 45 4E 53 2D CC 49 53 54  45 00 CF 09 B4 00 99 2C  |ENS-.ISTE......,|
000001C0: 22 12 D0 92 52 4F 47 52  41 4D 4D 45 4E 44 45 00  |"...ROGRAMMENDE.|
000001D0: F5 09 BE 00 99 22 11 D7  45 4C 43 48 45 20 20 20  |....."..ELCHE   |
000001E0: 22 3B 3A 58 24 B2 22 50  45 41 44 52 53 54 22 3A  |";:X$."PEADRST":|
000001F0: 8D 38 30 36 30 00 1A 0A  FA 00 91 49 89 34 30 30  |.8060......I.400|
00000200: 30 2C 35 30 30 30 2C 37  30 30 30 2C 36 30 30 30  |0,5000,7000,6000|
00000210: 2C 33 30 30 30 2C 37 31  30 30 00 51 0A 04 01 99  |,3000,7100.Q....|
00000220: 22 93 D3 45 49 54 45 4E  56 4F 52 53 43 48 55 42  |"..EITENVORSCHUB|
00000230: 22 3B 3A 8D 38 30 35 30  3A 8B 49 B2 30 A7 9F 31  |";:.8050:.I.0..1|
00000240: 2C 30 34 3A 4C B2 2E 31  3A 8D 37 39 35 30 3A A0  |,04:L..1:.7950:.|
00000250: 31 00 89 0A 0E 01 8B 4F  46 A7 99 22 11 D3 50 45  |1......OF.."..PE|
00000260: 49 43 48 45 52 4E 20 44  45 52 20 2A CE 41 4D 45  |ICHERN DER *.AME|
00000270: 20 CC 49 53 54 2A 22 3B  3A 8D 38 30 35 30 3A 8B  | .IST*";:.8050:.|
00000280: 49 B2 30 A7 8D 33 30 32  30 00 A1 0A 18 01 A0 31  |I.0..3020......1|
00000290: 3A 99 22 93 11 D4 53 43  48 55 45 53 53 21 22 3A  |:."...SCHUESS!":|
000002A0: A2 00 B7 0A 2C 01 8F 20  46 4F 52 4D 41 54 20 54  |....,.. FORMAT T|
000002B0: 48 45 20 4C 49 4E 45 00  E7 0A 36 01 58 24 B2 54  |HE LINE...6.X$.T|
000002C0: 24 28 54 2C 30 29 3A 59  24 B2 54 24 28 54 2C 31  |$(T,0):Y$.T$(T,1|
000002D0: 29 3A 8B C3 28 59 24 29  B1 31 A7 58 24 B2 59 24  |):..(Y$).1.X$.Y$|
000002E0: AA 22 20 22 AA 58 24 00  0C 0B 40 01 59 24 B2 54  |." ".X$...@.Y$.T|
000002F0: 24 28 54 2C 32 29 3A 8B  C3 28 59 24 29 B1 31 A7  |$(T,2):..(Y$).1.|
00000300: 58 24 B2 59 24 AA 22 20  22 AA 58 24 00 32 0B 4A  |X$.Y$." ".X$.2.J|
00000310: 01 59 24 B2 54 24 28 54  2C 33 29 3A 8B C3 28 59  |.Y$.T$(T,3):..(Y|
00000320: 24 29 B1 31 A7 58 24 B2  58 24 AA 22 2C 20 22 AA  |$).1.X$.X$.", ".|
00000330: 59 24 00 74 0B 5E 01 41  24 28 4A 2C 30 29 B2 58  |Y$.t.^.A$(J,0).X|
00000340: 24 3A 81 49 B2 31 A4 33  3A 41 24 28 4A 2C 49 29  |$:.I.1.3:A$(J,I)|
00000350: B2 22 22 3A 59 24 B2 54  24 28 54 2C 49 AA 33 29  |."":Y$.T$(T,I.3)|
00000360: 3A 8B C3 28 59 24 29 B1  31 A7 41 24 28 4A 2C 49  |:..(Y$).1.A$(J,I|
00000370: 29 B2 59 24 00 A5 0B 68  01 82 3A 8B C3 28 54 24  |).Y$...h..:..(T$|
00000380: 28 54 2C 37 29 29 B1 31  A7 41 24 28 4A 2C 33 29  |(T,7)).1.A$(J,3)|
00000390: B2 41 24 28 4A 2C 33 29  AA 22 2C 20 22 AA 54 24  |.A$(J,3).", ".T$|
000003A0: 28 54 2C 37 29 00 CC 0B  72 01 41 24 28 4A 2C 34  |(T,7)...r.A$(J,4|
000003B0: 29 B2 54 24 28 54 2C 38  29 3A 58 B2 C6 28 54 24  |).T$(T,8):X..(T$|
000003C0: 28 54 2C 39 29 29 AF 31  32 37 3A 8E 00 DE 0B B8  |(T,9)).127:.....|
000003D0: 0B 8F 20 4F 55 54 50 55  54 20 46 49 4C 45 00 ED  |.. OUTPUT FILE..|
000003E0: 0B C2 0B 8D 33 30 32 30  3A 89 31 30 30 00 0A 0C  |....3020:.100...|
000003F0: CC 0B 59 24 B2 48 24 3A  8D 33 35 30 30 3A 8B C5  |..Y$.H$:.3500:..|
00000400: 28 58 24 29 89 36 30 30  30 30 00 13 0C D6 0B 8B  |(X$).60000......|
00000410: 58 A7 8E 00 24 0C 1C 0C  4F 46 B2 30 3A 98 31 2C  |X...$...OF.0:.1,|
00000420: 44 24 3A 99 00 41 0C 4E  0C 81 49 B2 30 A4 4E 58  |D$:..A.N..I.0.NX|
00000430: 3A 54 B2 54 25 28 49 29  3A 99 54 24 28 54 2C 30  |:T.T%(I):.T$(T,0|
00000440: 29 00 5C 0C 58 0C 81 4A  B2 30 A4 39 3A 98 31 2C  |).\.X..J.0.9:.1,|
00000450: 54 24 28 54 2C 4A 29 3A  82 4A 2C 49 00 74 0C 76  |T$(T,J):.J,I.t.v|
00000460: 0C 98 31 2C 22 5C 22 3A  8E 3A 8F 20 43 4F 4D 50  |..1,"\":.:. COMP|
00000470: 4C 45 54 45 00 91 0C AC  0D 8F 20 4F 50 45 4E 20  |LETE...... OPEN |
00000480: 54 48 45 20 46 49 4C 45  20 54 4F 20 57 52 49 54  |THE FILE TO WRIT|
00000490: 45 00 C3 0C C0 0D 44 46  B2 30 3A 58 B2 30 3A 58  |E.....DF.0:X.0:X|
000004A0: 24 B2 22 22 3A 8B 43 46  B1 32 A7 99 22 93 C1 55  |$."":.CF.2.."..U|
000004B0: 46 20 C4 41 54 41 53 45  54 54 45 22 3B 3A 8D 38  |F .ATASETTE";:.8|
000004C0: 30 35 30 00 E4 0C CA 0D  8B 43 46 B2 32 B0 28 43  |050......CF.2.(C|
000004D0: 46 B2 33 AF 49 B2 30 29  A7 9F 31 2C 31 2C 31 2C  |F.3.I.0)..1,1,1,|
000004E0: 59 24 3A 8E 00 14 0D DE  0D 44 46 B2 AB 31 3A 4C  |Y$:......DF..1:L|
000004F0: 24 B2 22 30 3A 22 AA 59  24 3A 9F 31 2C 30 38 2C  |$."0:".Y$:.1,08,|
00000500: 32 2C 4C 24 3A 84 38 2C  58 3A A0 31 3A 8B 58 89  |2,L$:.8,X:.1:.X.|
00000510: 33 35 38 30 00 4F 0D E8  0D 99 3A 99 22 11 C4 41  |3580.O....:."..A|
00000520: 54 45 49 20 45 58 49 53  54 49 45 52 54 20 2D 20  |TEI EXISTIERT - |
00000530: 55 45 42 45 52 53 43 48  52 45 49 42 45 4E 22 3B  |UEBERSCHREIBEN";|
00000540: 3A 8D 38 30 35 30 3A 8B  49 A7 58 B2 31 3A 8E 00  |:.8050:.I.X.1:..|
00000550: 63 0D F2 0D 98 38 2C 22  53 22 4C 24 3A 98 38 2C  |c....8,"S"L$:.8,|
00000560: 22 49 30 00 83 0D FC 0D  9F 31 2C 30 38 2C 33 2C  |"I0......1,08,3,|
00000570: 4C 24 AA 22 2C 53 2C 57  22 3A 84 38 2C 58 2C 58  |L$.",S,W":.8,X,X|
00000580: 24 3A 8E 00 99 0D A0 0F  8F 20 43 52 45 41 54 45  |$:....... CREATE|
00000590: 20 41 4E 20 45 4E 54 52  59 00 D2 0D AA 0F 8B 4E  | AN ENTRY......N|
000005A0: 58 B1 B2 56 A7 99 22 11  12 20 CC 45 49 44 45 52  |X..V..".. .EIDER|
000005B0: 20 4B 45 49 4E 20 D0 4C  41 54 5A 20 4D 45 48 52  | KEIN .LATZ MEHR|
000005C0: 20 46 52 45 49 21 22 3A  8D 38 30 30 30 3A 89 31  | FREI!":.8000:.1|
000005D0: 30 30 00 FA 0D B4 0F 4E  58 B2 4E 58 AA 31 3A 4B  |00.....NX.NX.1:K|
000005E0: B2 4E 58 3A 54 B2 54 25  28 4B 29 3A 54 24 28 54  |.NX:T.T%(K):T$(T|
000005F0: 2C 39 29 B2 C7 28 31 32  38 29 00 1F 0E 04 10 4F  |,9)..(128).....O|
00000600: 46 B2 31 3A 4D B2 33 39  3A 59 B2 30 3A 8F 20 47  |F.1:M.39:Y.0:. G|
00000610: 45 54 20 4E 41 4D 45 2F  41 44 44 52 45 53 53 00  |ET NAME/ADDRESS.|
00000620: 2C 0E 0E 10 4A B2 30 3A  8D 33 30 30 00 5E 0E 18  |,...J.0:.300.^..|
00000630: 10 99 22 93 20 22 3B 3A  81 49 B2 31 A4 33 30 3A  |..". ";:.I.1.30:|
00000640: 99 22 A4 22 3B 3A 82 3A  81 49 B2 31 A4 35 3A 99  |.".";:.:.I.1.5:.|
00000650: 22 11 A5 9D 22 3B 3A 82  3A 99 22 11 22 3B 00 89  |"...";:.:.".";..|
00000660: 0E 1A 10 81 49 B2 31 A4  33 30 3A 99 22 9D A3 9D  |....I.1.30:."...|
00000670: 22 3B 3A 82 3A 81 49 B2  31 A4 35 3A 99 22 91 9D  |";:.:.I.1.5:."..|
00000680: A7 22 3B 3A 82 3A 99 22  13 00 AC 0E 22 10 81 49  |.";:.:."...."..I|
00000690: B2 30 A4 34 3A 99 22 1D  22 41 24 28 4A 2C 49 29  |.0.4:."."A$(J,I)|
000006A0: 3A 82 3A 8B 59 B1 38 89  34 32 30 30 00 D2 0E 36  |:.:.Y.8.4200...6|
000006B0: 10 99 22 13 11 11 11 11  11 11 11 11 11 22 42 30  |..".........."B0|
000006C0: 24 3A 99 22 91 22 46 24  28 59 29 3A 99 42 30 24  |$:."."F$(Y):.B0$|
000006D0: 22 91 00 E8 0E 3B 10 8D  38 32 30 30 3A 8B 43 B3  |"....;..8200:.C.|
000006E0: B1 31 33 89 34 31 32 30  00 12 0F 3D 10 99 3A 8B  |.13.4120...=..:.|
000006F0: C9 28 58 24 2C 31 29 B2  22 20 22 A7 58 24 B2 C8  |.(X$,1)." ".X$..|
00000700: 28 58 24 2C C3 28 58 24  29 AB 31 29 3A 89 34 31  |(X$,.(X$).1):.41|
00000710: 35 37 00 41 0F 40 10 8B  58 24 B2 22 22 AF 54 24  |57.A.@..X$."".T$|
00000720: 28 54 2C 59 29 B1 22 22  A7 59 B2 59 AA 31 3A 91  |(T,Y)."".Y.Y.1:.|
00000730: 32 AA 28 59 B3 39 29 89  34 31 35 30 2C 34 31 31  |2.(Y.9).4150,411|
00000740: 30 00 53 0F 4A 10 8B C3  28 58 24 29 B1 31 89 34  |0.S.J...(X$).1.4|
00000750: 31 39 30 00 86 0F 54 10  58 24 B2 22 2D 22 3A 8B  |190...T.X$."-":.|
00000760: 59 B2 30 A7 99 22 11 CC  4F 45 53 43 48 45 4E 22  |Y.0.."..OESCHEN"|
00000770: 3B 3A 8D 38 30 35 30 3A  91 49 AA 31 89 34 39 30  |;:.8050:.I.1.490|
00000780: 30 2C 34 31 31 30 00 A1  0F 5E 10 54 24 28 54 2C  |0,4110...^.T$(T,|
00000790: 59 29 B2 58 24 3A 59 B2  59 AA 31 3A 89 34 31 31  |Y).X$:Y.Y.1:.411|
000007A0: 30 00 C6 0F 68 10 58 24  B2 22 31 32 33 34 35 36  |0...h.X$."123456|
000007B0: 37 22 AA 52 24 3A 8F 20  47 45 54 20 43 41 54 45  |7".R$:. GET CATE|
000007C0: 47 4F 52 49 45 53 00 E1  0F 72 10 99 22 13 11 11  |GORIES...r.."...|
000007D0: 11 11 11 11 11 11 CB 41  54 45 47 4F 52 49 45 4E  |.......ATEGORIEN|
000007E0: 3A 00 FC 0F 7C 10 81 49  B2 30 A4 36 3A 99 2C 3A  |:...|..I.0.6:.,:|
000007F0: 8B 58 AF 32 AE 49 A7 99  22 12 22 3B 00 0F 10 86  |.X.2.I..".";....|
00000800: 10 99 49 AA 31 22 92 22  4B 24 28 49 29 3A 82 00  |..I.1"."K$(I):..|
00000810: 3F 10 90 10 99 22 11 D7  49 45 20 5A 55 4F 52 44  |?...."..IE ZUORD|
00000820: 4E 45 4E 2F 4C 4F 45 53  43 48 45 4E 3F 20 20 20  |NEN/LOESCHEN?   |
00000830: 9D 22 3B 3A 8D 38 30 37  30 3A 49 B2 32 AE 49 00  |.";:.8070:I.2.I.|
00000840: 5E 10 9A 10 58 B2 28 58  B0 49 29 AF A8 28 58 AF  |^...X.(X.I)..(X.|
00000850: 49 29 3A 8B 58 B3 31 32  38 89 34 32 31 30 00 7F  |I):.X.128.4210..|
00000860: 10 CC 10 54 24 28 54 2C  39 29 B2 C7 28 58 29 3A  |...T$(T,9)..(X):|
00000870: 8F 20 43 4F 4D 50 4C 45  54 45 20 45 44 49 54 00  |. COMPLETE EDIT.|
00000880: AA 10 D6 10 99 22 91 91  22 42 30 24 3A 99 22 91  |.....".."B0$:.".|
00000890: C1 4B 5A 45 50 54 49 45  52 54 22 3B 3A 8D 38 30  |.KZEPTIERT";:.80|
000008A0: 35 30 3A 8B 49 89 34 31  30 30 00 CB 10 E0 10 8B  |50:.I.4100......|
000008B0: 4E 58 B3 31 89 31 30 30  3A 8F 20 4D 55 53 54 20  |NX.1.100:. MUST |
000008C0: 42 45 20 49 4E 20 4F 52  44 45 52 00 05 11 EA 10  |BE IN ORDER.....|
000008D0: 58 24 B2 54 24 28 54 2C  30 29 3A 8B 4B B3 4E 58  |X$.T$(T,0):.K.NX|
000008E0: A7 81 49 B2 4B A4 4E 58  AB 31 3A 54 25 28 49 29  |..I.K.NX.1:T%(I)|
000008F0: B2 54 25 28 49 AA 31 29  3A 82 3A 8F 20 52 45 4D  |.T%(I.1):.:. REM|
00000900: 4F 56 45 20 54 00 37 11  F4 10 81 49 B2 30 A4 4E  |OVE T.7....I.0.N|
00000910: 58 AB 31 3A 8B 54 24 28  54 25 28 49 29 2C 30 29  |X.1:.T$(T%(I),0)|
00000920: B3 58 24 A7 82 3A 8F 20  4C 4F 43 41 54 45 20 54  |.X$..:. LOCATE T|
00000930: 27 53 20 53 4C 4F 54 00  74 11 FE 10 8B 49 B3 4E  |'S SLOT.t....I.N|
00000940: 58 A7 4A B2 49 AA 31 3A  81 49 B2 4E 58 A4 4A A9  |X.J.I.1:.I.NX.J.|
00000950: AB 31 3A 54 25 28 49 29  B2 54 25 28 49 AB 31 29  |.1:T%(I).T%(I.1)|
00000960: 3A 82 3A 8F 20 4D 41 4B  45 20 52 4F 4F 4D 20 46  |:.:. MAKE ROOM F|
00000970: 4F 52 20 54 00 96 11 08  11 54 25 28 49 29 B2 54  |OR T.....T%(I).T|
00000980: 3A 89 31 30 30 3A 8F 20  49 4E 53 45 52 54 20 54  |:.100:. INSERT T|
00000990: 2C 20 45 58 49 54 00 AE  11 24 13 8F 20 43 4C 45  |, EXIT...$.. CLE|
000009A0: 41 4E 20 55 50 20 44 45  4C 45 54 49 4F 4E 00 C6  |AN UP DELETION..|
000009B0: 11 2E 13 81 49 B2 30 A4  39 3A 54 24 28 54 2C 49  |....I.0.9:T$(T,I|
000009C0: 29 B2 22 22 3A 82 00 F7  11 38 13 4E 58 B2 4E 58  |)."":....8.NX.NX|
000009D0: AB 31 3A 81 49 B2 4B A4  4E 58 3A 54 25 28 49 29  |.1:.I.K.NX:T%(I)|
000009E0: B2 54 25 28 49 AA 31 29  3A 82 3A 54 25 28 49 29  |.T%(I.1):.:T%(I)|
000009F0: B2 54 3A 89 31 30 30 00  12 12 88 13 8F 20 53 45  |.T:.100...... SE|
00000A00: 4C 45 43 54 2F 45 44 49  54 20 41 4E 20 45 4E 54  |LECT/EDIT AN ENT|
00000A10: 52 59 00 36 12 92 13 99  22 93 22 3A 99 22 D3 55  |RY.6....".":.".U|
00000A20: 43 48 45 4E 20 4E 41 43  48 3A 20 20 12 CE 92 41  |CHEN NACH:  ...A|
00000A30: 43 48 4E 41 4D 45 00 4B  12 9C 13 99 2C 22 20 20  |CHNAME.K....,"  |
00000A40: 20 20 12 D6 92 4F 52 4E  41 4D 45 00 60 12 A6 13  |  ...ORNAME.`...|
00000A50: 99 2C 22 20 20 20 20 12  D0 92 CC DA 2F CF 52 54  |.,"    ...../.RT|
00000A60: 00 73 12 B0 13 99 2C 22  20 20 20 20 12 D3 92 54  |.s....,"    ...T|
00000A70: 41 41 54 00 8B 12 BA 13  99 2C 22 20 20 20 20 12  |AAT......,"    .|
00000A80: D4 92 45 4C 45 46 4F 4E  4E 52 2E 00 B7 12 CE 13  |..ELEFONNR......|
00000A90: 99 22 11 D7 45 4C 43 48  45 52 20 20 22 3B 3A 58  |."..ELCHER  ";:X|
00000AA0: 24 B2 22 4E 56 4C 4C 4C  4C 50 53 54 22 3A 8D 38  |$."NVLLLLPST":.8|
00000AB0: 30 36 30 3A 46 B2 49 00  EA 12 D8 13 4D B2 34 30  |060:F.I.....M.40|
00000AC0: 3A 99 22 11 D3 43 48 4C  55 45 53 53 45 4C 57 4F  |:."..CHLUESSELWO|
00000AD0: 52 54 3A 20 22 3B 3A 8D  38 32 30 30 3A 5A 24 B2  |RT: ";:.8200:Z$.|
00000AE0: 58 24 3A 5A B2 C3 28 5A  24 29 00 05 13 EC 13 4B  |X$:Z..(Z$).....K|
00000AF0: B2 30 3A 8F 20 53 45 41  52 43 48 20 46 4F 52 20  |.0:. SEARCH FOR |
00000B00: 46 49 45 4C 44 00 20 13  F6 13 54 B2 54 25 28 4B  |FIELD. ...T.T%(K|
00000B10: 29 3A 58 24 B2 54 24 28  54 2C 46 29 3A 59 B2 30  |):X$.T$(T,F):Y.0|
00000B20: 00 52 13 00 14 81 49 B2  31 A4 C3 28 58 24 29 AB  |.R....I.1..(X$).|
00000B30: 5A AA 31 3A 59 B2 28 CA  28 58 24 2C 49 2C 5A 29  |Z.1:Y.(.(X$,I,Z)|
00000B40: B2 5A 24 29 B0 59 3A 82  3A 8B 59 B2 30 89 35 31  |.Z$).Y:.:.Y.0.51|
00000B50: 35 30 00 76 13 0A 14 4A  B2 30 3A 8D 33 30 30 3A  |50.v...J.0:.300:|
00000B60: 99 22 93 22 3A 81 49 B2  30 A4 34 3A 99 41 24 28  |.".":.I.0.4:.A$(|
00000B70: 30 2C 49 29 3A 82 00 9E  13 14 14 99 22 11 D7 45  |0,I):......."..E|
00000B80: 49 54 45 52 53 55 43 48  45 4E 20 20 20 20 22 3B  |ITERSUCHEN    ";|
00000B90: 3A 8D 38 30 35 30 3A 8B  49 89 35 31 38 30 00 B4  |:.8050:.I.5180..|
00000BA0: 13 1E 14 4B B2 4B AA 31  3A 8B 4B B3 B2 4E 58 89  |...K.K.1:.K..NX.|
00000BB0: 35 31 31 30 00 E3 13 28  14 99 3A 99 22 11 C1 4C  |5110...(..:."..L|
00000BC0: 4C 45 20 C5 49 4E 47 41  42 45 4E 20 55 45 42 45  |LE .INGABEN UEBE|
00000BD0: 52 50 52 55 45 46 54 22  3A 8D 38 30 30 30 3A 89  |RPRUEFT":.8000:.|
00000BE0: 31 30 30 00 07 14 3C 14  99 22 11 C1 45 4E 44 45  |100...<.."..ENDE|
00000BF0: 52 4E 22 3B 3A 8D 38 30  35 30 3A 91 49 89 31 30  |RN";:.8050:.I.10|
00000C00: 30 3A 89 34 31 30 30 00  23 14 70 17 8F 20 46 49  |0:.4100.#.p.. FI|
00000C10: 4C 45 20 46 4F 52 20 57  4F 52 44 20 4D 41 43 48  |LE FOR WORD MACH|
00000C20: 49 4E 45 00 56 14 7A 17  99 22 93 CE 41 4D 45 20  |INE.V.z.."..AME |
00000C30: 44 45 52 20 C4 41 54 45  49 3A 20 20 20 22 3B 3A  |DER .ATEI:   ";:|
00000C40: 4D B2 31 36 3A 8D 38 32  30 30 3A 8B 58 24 B2 22  |M.16:.8200:.X$."|
00000C50: 22 89 36 30 31 30 00 73  14 84 17 59 24 B2 58 24  |".6010.s...Y$.X$|
00000C60: 3A 8D 33 35 30 30 3A 8B  C5 28 58 24 29 89 36 30  |:.3500:..(X$).60|
00000C70: 30 30 30 00 7E 14 8E 17  8B 58 89 31 30 30 00 B4  |000.~....X.100..|
00000C80: 14 A2 17 8D 37 32 30 30  3A 99 22 11 D3 50 45 5A  |....7200:."..PEZ|
00000C90: 49 45 4C 4C 45 20 C1 55  53 57 41 48 4C 20 20 22  |IELLE .USWAHL  "|
00000CA0: 3B 3A 8D 38 30 35 30 3A  53 46 B2 49 3A 4A B2 30  |;:.8050:SF.I:J.0|
00000CB0: 3A 4B B2 30 00 D7 14 AC  17 54 B2 54 25 28 4B 29  |:K.0.....T.T%(K)|
00000CC0: 3A 8B 28 46 AF C6 28 54  24 28 54 2C 39 29 29 29  |:.(F..(T$(T,9)))|
00000CD0: B2 30 89 36 31 38 30 00  EE 14 B6 17 8B 53 46 A7  |.0.6180......SF.|
00000CE0: 99 54 24 28 54 2C 30 29  3A 89 36 31 30 30 00 0E  |.T$(T,0):.6100..|
00000CF0: 15 C0 17 8D 33 30 30 3A  99 22 93 22 3A 81 49 B2  |....300:.".":.I.|
00000D00: 30 A4 33 3A 99 41 24 28  4A 2C 49 29 3A 82 00 36  |0.3:.A$(J,I):..6|
00000D10: 15 CA 17 99 22 11 D5 45  42 45 52 4E 45 48 4D 45  |...."..EBERNEHME|
00000D20: 4E 20 20 20 20 20 22 3B  3A 8D 38 30 35 30 3A 8B  |N     ";:.8050:.|
00000D30: 49 89 36 31 38 30 00 4C  15 D4 17 8F 20 4F 55 54  |I.6180.L.... OUT|
00000D40: 50 55 54 20 54 48 45 20  46 49 4C 45 00 6D 15 DE  |PUT THE FILE.m..|
00000D50: 17 81 49 B2 30 A4 37 3A  98 31 2C 54 24 28 54 2C  |..I.0.7:.1,T$(T,|
00000D60: 49 29 3A 82 3A 44 46 B2  B6 28 44 46 29 00 83 15  |I):.:DF..(DF)...|
00000D70: 24 18 4B B2 4B AA 31 3A  8B 4B B3 B2 4E 58 89 36  |$.K.K.1:.K..NX.6|
00000D80: 30 36 30 00 B9 15 2E 18  98 31 2C 22 5C 22 3A 8B  |060......1,"\":.|
00000D90: 44 46 B1 AB 31 A7 91 53  46 AA 31 89 36 32 32 30  |DF..1..SF.1.6220|
00000DA0: 2C 31 30 30 3A 8F 20 20  2D 31 3D 45 4D 50 54 59  |,100:.  -1=EMPTY|
00000DB0: 20 44 49 53 43 46 49 4C  45 00 E4 15 38 18 99 22  | DISCFILE...8.."|
00000DC0: 11 CB 45 49 4E 45 20 C1  44 52 45 53 53 45 20 49  |..EINE .DRESSE I|
00000DD0: 4E 20 44 49 45 53 45 52  20 CB 41 54 45 47 4F 52  |N DIESER .ATEGOR|
00000DE0: 49 45 2E 22 00 FD 15 42  18 A0 31 3A 98 38 2C 22  |IE."...B..1:.8,"|
00000DF0: 53 30 3A 22 59 24 3A 98  38 2C 22 49 30 00 0C 16  |S0:"Y$:.8,"I0...|
00000E00: 4C 18 8D 38 30 30 30 3A  89 31 30 30 00 1F 16 58  |L..8000:.100...X|
00000E10: 1B 8F 20 50 52 49 4E 54  20 4C 41 42 45 4C 53 00  |.. PRINT LABELS.|
00000E20: 3C 16 62 1B 53 46 B2 AB  31 3A 4D B2 33 30 3A 9F  |<.b.SF..1:M.30:.|
00000E30: 31 2C 30 34 3A 4C 4C B2  39 39 39 39 00 66 16 6C  |1,04:LL.9999.f.l|
00000E40: 1B 99 22 11 C5 49 4E 2D  53 50 41 4C 54 49 47 45  |.."..IN-SPALTIGE|
00000E50: 20 C5 54 49 4B 45 54 54  45 4E 22 3B 3A 8D 38 30  | .TIKETTEN";:.80|
00000E60: 35 30 3A 59 B2 49 00 8E  16 8A 1B 99 22 11 D0 52  |50:Y.I......"..R|
00000E70: 4F 42 45 41 55 53 44 52  55 43 4B 20 20 20 22 3B  |OBEAUSDRUCK   ";|
00000E80: 3A 8D 38 30 35 30 3A 8B  49 89 37 30 39 30 00 BC  |:.8050:.I.7090..|
00000E90: 16 94 1B 50 24 B2 22 2D  2D 2D 2D 2D 2D 2D 2D 2D  |...P$."---------|
00000EA0: 2D 45 52 53 54 45 20 DA  45 49 4C 45 2D 2D 2D 2D  |-ERSTE .EILE----|
00000EB0: 2D 2D 2D 2D 2D 22 3A 8D  37 39 30 30 00 F3 16 9E  |-----":.7900....|
00000EC0: 1B 81 49 B2 30 A4 31 3A  50 24 B2 22 2D 2D 2D 2D  |..I.0.1:P$."----|
00000ED0: 2D 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 22 3A 8D 37 39 30  |----------":.790|
00000EF0: 30 3A 82 00 30 17 A8 1B  50 24 B2 22 2D 2D 2D 2D  |0:..0...P$."----|
00000F00: 2D 2D 2D 2D 2D 2D 4C 45  54 5A 54 45 20 DA 45 49  |------LETZTE .EI|
00000F10: 4C 45 2D 2D 2D 2D 2D 2D  2D 2D 22 3A 81 49 B2 31  |LE--------":.I.1|
00000F20: A4 33 3A 8D 37 39 30 30  3A 82 3A 89 37 30 35 30  |.3:.7900:.:.7050|
00000F30: 00 55 17 B2 1B 8D 37 32  30 30 3A 8D 37 33 30 30  |.U....7200:.7300|
00000F40: 3A 89 31 30 30 3A 8F 20  4F 55 54 50 55 54 20 4C  |:.100:. OUTPUT L|
00000F50: 41 42 45 4C 53 00 6C 17  BC 1B 8F 20 50 52 49 4E  |ABELS.l.... PRIN|
00000F60: 54 20 50 48 4F 4E 45 20  42 4F 4F 4B 00 88 17 C6  |T PHONE BOOK....|
00000F70: 1B 53 46 B2 30 3A 4D B2  33 36 3A 59 B2 31 3A 9F  |.SF.0:M.36:Y.1:.|
00000F80: 31 2C 30 34 3A 4C B2 30  00 B0 17 D0 1B 99 22 11  |1,04:L.0......".|
00000F90: DA 45 49 4C 45 4E 20 50  52 4F 20 D3 45 49 54 45  |.EILEN PRO .EITE|
00000FA0: 20 22 4C 30 22 9D 9D 9D  9D 9D 22 3B 3A 85 4C 4C  | "L0".....";:.LL|
00000FB0: 00 CB 17 DA 1B 8D 37 32  30 30 3A 8D 37 33 30 30  |......7200:.7300|
00000FC0: 3A 8D 37 39 35 30 3A 89  31 30 30 00 DE 17 20 1C  |:.7950:.100... .|
00000FD0: 8F 20 47 45 54 20 43 41  54 45 47 4F 52 59 00 16  |. GET CATEGORY..|
00000FE0: 18 2A 1C 99 22 93 D3 55  43 48 45 4E 20 4E 41 43  |.*.."..UCHEN NAC|
00000FF0: 48 3A 22 3A 81 49 B2 30  A4 36 3A 99 2C 22 12 22  |H:":.I.0.6:.,"."|
00001000: CA 28 C4 28 49 AA 31 29  2C 32 29 22 92 20 22 4B  |.(.(I.1),2)". "K|
00001010: 24 28 49 29 3A 82 00 52  18 34 1C 99 2C 22 12 38  |$(I):..R.4..,".8|
00001020: 92 20 C1 4C 4C 45 22 3A  99 22 11 C9 48 52 45 20  |. .LLE":."..HRE |
00001030: D7 41 48 4C 20 20 22 3B  3A 58 24 B2 22 31 32 33  |.AHL  ";:X$."123|
00001040: 34 35 36 37 38 22 3A 8D  38 30 36 30 3A 46 B2 32  |45678":.8060:F.2|
00001050: AE 49 00 71 18 3E 1C 8E  3A 8F 20 41 4C 4C 20 41  |.I.q.>..:. ALL A|
00001060: 52 45 20 4F 52 2D 45 44  20 57 49 54 48 20 31 32  |RE OR-ED WITH 12|
00001070: 38 00 84 18 84 1C 8F 20  50 52 49 4E 54 20 45 49  |8...... PRINT EI|
00001080: 54 48 45 52 00 B3 18 8E  1C 4A B2 59 3A 81 4B B2  |THER.....J.Y:.K.|
00001090: 30 A4 4E 58 3A 54 B2 54  25 28 4B 29 3A 8B 28 46  |0.NX:T.T%(K):.(F|
000010A0: AF C6 28 54 24 28 54 2C  39 29 29 29 B2 30 89 37  |..(T$(T,9))).0.7|
000010B0: 33 38 30 00 D1 18 98 1C  4A B2 59 AB 4A 3A 8D 33  |380.....J.Y.J:.3|
000010C0: 30 30 3A 8B 53 46 A7 41  24 28 4A 2C 34 29 B2 22  |00:.SF.A$(J,4)."|
000010D0: 22 00 DF 18 A2 1C 8B 4A  B3 59 89 37 33 38 30 00  |"......J.Y.7380.|
000010E0: FA 18 B6 1C 81 49 B2 30  A4 34 3A 50 24 B2 C8 28  |.....I.0.4:P$..(|
000010F0: 41 24 28 30 2C 49 29 2C  4D 29 00 24 19 C0 1C 8B  |A$(0,I),M).$....|
00001100: 4A A7 50 24 B2 50 24 AA  C8 28 42 24 2C 4D AA 36  |J.P$.P$..(B$,M.6|
00001110: AB C3 28 50 24 29 29 AA  C8 28 41 24 28 31 2C 49  |..(P$))..(A$(1,I|
00001120: 29 2C 4D 29 00 36 19 CA  1C 8D 37 39 30 30 3A 82  |),M).6....7900:.|
00001130: 3A 8D 37 39 30 30 00 67  19 D4 1C 82 4B 3A 8B 4A  |:.7900.g....K:.J|
00001140: B3 59 A7 81 49 B2 30 A4  34 3A 50 24 B2 C8 28 41  |.Y..I.0.4:P$..(A|
00001150: 24 28 30 2C 49 29 2C 4D  29 3A 8D 37 39 30 30 3A  |$(0,I),M):.7900:|
00001160: 82 3A 8D 37 39 30 30 00  6D 19 DE 1C 8E 00 9A 19  |.:.7900.m.......|
00001170: DC 1E 4C B2 4C AA 31 3A  98 31 2C 22 11 22 AA 50  |..L.L.1:.1,".".P|
00001180: 24 3A 50 24 B2 22 22 3A  8B 4C B3 4C 4C A7 8E 3A  |$:P$."":.L.LL..:|
00001190: 8F 20 4C 49 4E 45 20 4F  55 54 00 BC 19 E6 1E 4C  |. LINE OUT.....L|
000011A0: B2 4C AA 31 3A 98 31 2C  22 11 22 AA 50 24 3A 50  |.L.1:.1,".".P$:P|
000011B0: 24 B2 22 22 3A 8B 4C B3  4C 4C A7 8E 00 EA 19 0E  |$."":.L.LL......|
000011C0: 1F 8B 4C A7 81 4C B2 4C  A4 4C 50 AB 31 3A 98 31  |..L..L.L.LP.1:.1|
000011D0: 3A 82 3A 4C B2 30 3A 8E  3A 8F 20 46 49 4E 49 53  |:.:L.0:.:. FINIS|
000011E0: 48 20 54 48 45 20 50 41  47 45 00 FA 19 40 1F 8F  |H THE PAGE...@..|
000011F0: 20 55 54 49 4C 49 54 49  45 53 00 2E 1A 4A 1F 99  | UTILITIES...J..|
00001200: 22 11 12 20 D7 45 49 54  45 52 20 4D 49 54 20 42  |".. .EITER MIT B|
00001210: 45 4C 49 45 42 49 47 45  52 20 D4 41 53 54 45 22  |ELIEBIGER .ASTE"|
00001220: 3B 3A 8D 32 30 3A 99 3A  99 22 93 22 3A 8E 00 39  |;:.20:.:.".":..9|
00001230: 1A 72 1F 58 24 B2 22 4A  4E 00 44 1A 7C 1F 99 22  |.r.X$."JN.D.|.."|
00001240: 3F 20 22 3B 00 6E 1A 86  1F 8D 32 30 3A 81 49 B2  |? ";.n....20:.I.|
00001250: 31 A4 C3 28 58 24 29 3A  8B 43 24 B3 B1 CA 28 58  |1..(X$):.C$...(X|
00001260: 24 2C 49 2C 31 29 A7 82  3A 89 38 30 37 30 00 87  |$,I,1)..:.8070..|
00001270: 1A 8B 1F 49 B2 49 AB 31  3A 99 43 24 3B 3A 8B 43  |...I.I.1:.C$;:.C|
00001280: B2 31 33 A7 99 3A 8E 00  A3 1A 90 1F A1 57 24 3A  |.13..:.......W$:|
00001290: 8B 57 24 B2 22 22 A7 99  22 A4 9D 22 3B 3A 89 38  |.W$."".."..";:.8|
000012A0: 30 38 30 00 B9 1A 95 1F  99 22 20 9D 22 3B 3A 8B  |080......" .";:.|
000012B0: 57 24 B2 52 24 A7 99 3A  8E 00 D2 1A 9A 1F 8B 57  |W$.R$..:.......W|
000012C0: 24 B2 C7 28 32 30 29 A7  99 57 24 3B 3A 89 38 30  |$..(20)..W$;:.80|
000012D0: 37 30 00 DC 1A 9F 1F 89  38 30 38 30 00 F7 1A 08  |70......8080....|
000012E0: 20 58 24 B2 22 22 3A 8F  20 49 4E 50 55 54 20 41  | X$."":. INPUT A|
000012F0: 20 53 54 52 49 4E 47 00  08 1B 12 20 A1 43 24 3A  | STRING.... .C$:|
00001300: 8B 43 24 89 38 32 31 30  00 18 1B 1C 20 8D 32 35  |.C$.8210.... .25|
00001310: 3A 8B 43 B2 31 33 A7 8E  00 47 1B 26 20 8B 43 B2  |:.C.13...G.& .C.|
00001320: 32 30 AF 58 24 B1 22 22  A7 99 43 24 3B 3A 58 24  |20.X$.""..C$;:X$|
00001330: B2 C8 28 58 24 2C C3 28  58 24 29 AB 31 29 3A 8F  |..(X$,.(X$).1):.|
00001340: 20 44 45 4C 45 54 45 00  70 1B 2B 20 8B 28 31 32  | DELETE.p.+ .(12|
00001350: 37 AF 43 29 B3 33 32 89  38 32 32 30 3A 8F 20 43  |7.C).32.8220:. C|
00001360: 55 52 53 4F 52 20 43 48  41 52 41 43 54 45 52 53  |URSOR CHARACTERS|
00001370: 00 99 1B 30 20 8B 28 4B  25 28 43 29 B0 47 29 A7  |...0 .(K%(C).G).|
00001380: 99 43 24 3B 3A 58 24 B2  58 24 AA 43 24 3A 8B C3  |.C$;:X$.X$.C$:..|
00001390: 28 58 24 29 B1 B2 4D A7  8E 00 A3 1B 3A 20 89 38  |(X$)..M.....: .8|
000013A0: 32 32 30 00 B4 1B 28 23  8F 20 49 4E 49 54 49 41  |220...(#. INITIA|
000013B0: 4C 49 5A 45 00 E1 1B 2D  23 4C 30 B2 36 30 3A 4C  |LIZE...-#L0.60:L|
000013C0: 50 B2 37 32 3A 4E 58 B2  AB 31 3A 52 24 B2 C7 28  |P.72:NX..1:R$..(|
000013D0: 31 33 29 3A 48 24 B2 22  CE 41 4D 45 20 CC 49 53  |13):H$.".AME .IS|
000013E0: 54 00 02 1C 32 23 86 4B  25 28 32 35 35 29 2C 41  |T...2#.K%(255),A|
000013F0: 24 28 31 2C 34 29 2C 4B  24 28 36 29 2C 46 24 28  |$(1,4),K$(6),F$(|
00001400: 38 29 00 43 1C 3C 23 99  22 93 8E 13 13 0F 11 11  |8).C.<#.".......|
00001410: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
00001420: 11 11 11 11 11 11 11 22  A6 33 39 29 22 8F 05 22  |.......".39)".."|
00001430: 3A 97 35 39 34 36 38 2C  31 34 3A 8F 20 46 4F 52  |:.59468,14:. FOR|
00001440: 4D 41 54 00 7C 1C 41 23  97 35 33 32 37 32 2C 32  |MAT.|.A#.53272,2|
00001450: B0 C2 28 35 33 32 37 32  29 3A 99 22 93 20 20 20  |..(53272):.".   |
00001460: 20 20 12 20 C3 4F 4D 4D  4F 44 4F 52 45 20 C1 C4  |  . .OMMODORE ..|
00001470: D2 C5 D3 D3 C5 CE 20 36  34 20 20 92 00 97 1C 43  |...... 64  ....C|
00001480: 23 8D 36 31 30 30 30 3A  20 8F 20 43 4F 4C 4F 52  |#.61000: . COLOR|
00001490: 20 43 48 41 4E 47 45 00  DC 1C 46 23 99 22 11 12  | CHANGE...F#."..|
000014A0: CB 92 41 53 53 45 54 54  45 2C 20 12 C4 92 49 53  |..ASSETTE, ...IS|
000014B0: 4B 45 54 54 45 2C 20 4F  44 45 52 20 12 42 92 45  |KETTE, ODER .B.E|
000014C0: 49 44 45 53 22 3B 3A 58  24 B2 22 44 4B 42 22 3A  |IDES";:X$."DKB":|
000014D0: 8D 38 30 36 30 3A 43 46  B2 49 AA 31 00 14 1D 4B  |.8060:CF.I.1...K|
000014E0: 23 81 49 B2 33 32 A4 39  30 3A 87 4B 25 28 49 29  |#.I.32.90:.K%(I)|
000014F0: 3A 82 3A 81 49 B2 31 39  33 A4 32 31 38 3A 4B 25  |:.:.I.193.218:K%|
00001500: 28 49 29 B2 31 3A 82 3A  8F 20 43 48 41 52 20 41  |(I).1:.:. CHAR A|
00001510: 52 52 41 59 00 4B 1D 50  23 42 24 B2 22 20 20 20  |RRAY.K.P#B$."   |
00001520: 20 20 22 3A 81 49 B2 31  A4 35 3A 42 24 B2 42 24  |  ":.I.1.5:B$.B$|
00001530: AA 42 24 3A 82 3A 42 30  24 B2 C8 28 42 24 2C 33  |.B$:.:B0$..(B$,3|
00001540: 39 29 3A 9F 38 2C 30 38  2C 31 35 00 86 1D 55 23  |9):.8,08,15...U#|
00001550: 99 22 11 D4 41 47 45 53  44 41 54 55 4D 3A 20 22  |."..AGESDATUM: "|
00001560: 3A 4D B2 36 30 3A 47 B2  31 3A 8D 38 32 30 30 3A  |:M.60:G.1:.8200:|
00001570: 47 B2 30 3A 44 24 B2 58  24 3A 8B 44 24 B2 22 22  |G.0:D$.X$:.D$.""|
00001580: A7 44 24 B2 22 2D 00 AA  1D 6E 23 99 3A 81 49 B2  |.D$."-...n#.:.I.|
00001590: 30 A4 38 3A 87 46 24 28  49 29 3A 82 3A 8F 20 46  |0.8:.F$(I):.:. F|
000015A0: 49 45 4C 44 20 4E 41 4D  45 53 00 CB 1D 78 23 81  |IELD NAMES...x#.|
000015B0: 49 B2 30 A4 36 3A 87 4B  24 28 49 29 3A 82 3A 8F  |I.0.6:.K$(I):.:.|
000015C0: 20 43 41 54 45 47 4F 52  49 45 53 00 04 1E 82 23  | CATEGORIES....#|
000015D0: 56 B2 B5 28 28 B8 28 30  29 AB 32 30 30 30 29 AD  |V..((.(0).2000).|
000015E0: 31 37 30 29 3A 86 54 24  28 56 2C 39 29 2C 54 25  |170):.T$(V,9),T%|
000015F0: 28 56 29 3A 81 49 B2 30  A4 56 3A 54 25 28 49 29  |(V):.I.0.V:T%(I)|
00001600: B2 49 3A 82 00 15 1E 1C  25 8F 20 49 4E 50 55 54  |.I:.....%. INPUT|
00001610: 20 46 49 4C 45 00 38 1E  26 25 8B 43 46 B1 32 A7  | FILE.8.&%.CF.2.|
00001620: 99 22 11 D6 4F 4E 20 C4  41 54 41 53 45 54 54 45  |."..ON .ATASETTE|
00001630: 22 3B 3A 8D 38 30 35 30  00 6A 1E 30 25 8B 43 46  |";:.8050.j.0%.CF|
00001640: B2 32 B0 28 43 46 B2 33  AF 49 B2 30 29 A7 8D 39  |.2.(CF.3.I.0)..9|
00001650: 37 30 30 3A 91 49 89 31  30 30 3A 9F 31 2C 31 2C  |700:.I.100:.1,1,|
00001660: 30 2C 48 24 3A 89 39 36  30 30 00 8E 1E 4E 25 A0  |0,H$:.9600...N%.|
00001670: 31 3A 9F 31 2C 30 38 2C  32 2C 48 24 3A 84 38 2C  |1:.1,08,2,H$:.8,|
00001680: 58 2C 58 24 3A 8B 58 B2  30 89 39 36 30 30 00 9F  |X,X$:.X.0.9600..|
00001690: 1E 58 25 8D 39 37 30 30  3A 8B 49 89 31 30 30 00  |.X%.9700:.I.100.|
000016A0: D8 1E 62 25 99 22 11 CC  45 47 45 4E 20 D3 49 45  |..b%."..EGEN .IE|
000016B0: 20 42 49 54 54 45 20 44  49 45 20 C4 49 53 4B 45  | BITTE DIE .ISKE|
000016C0: 54 54 45 20 45 49 4E 20  55 4E 44 22 3A 8D 38 30  |TTE EIN UND":.80|
000016D0: 30 30 3A 89 39 35 35 30  00 E2 1E 80 25 58 24 B2  |00:.9550....%X$.|
000016E0: 22 22 00 04 1F 83 25 A1  23 31 2C 43 24 3A 8B 43  |""....%.#1,C$:.C|
000016F0: 24 B3 B1 52 24 A7 58 24  B2 58 24 AA 43 24 3A 89  |$..R$.X$.X$.C$:.|
00001700: 39 36 30 33 00 30 1F 85  25 99 22 93 C5 4E 54 45  |9603.0..%."..NTE|
00001710: 52 45 44 3A 20 12 22 58  24 3A 99 3A 8F 20 44 41  |RED: ."X$:.:. DA|
00001720: 54 45 4C 49 4E 45 20 46  52 4F 4D 20 46 49 4C 45  |TELINE FROM FILE|
00001730: 00 66 1F 8A 25 81 49 B2  30 A4 56 3A 84 31 2C 58  |.f..%.I.0.V:.1,X|
00001740: 24 3A 8B 58 24 B2 22 5C  22 B0 53 54 B1 30 89 39  |$:.X$."\".ST.0.9|
00001750: 36 35 30 3A 8F 20 52 45  41 44 49 4E 47 20 43 4F  |650:. READING CO|
00001760: 4D 50 4C 45 54 45 00 97  1F 94 25 99 58 24 3A 54  |MPLETE....%.X$:T|
00001770: 24 28 49 2C 30 29 B2 58  24 3A 81 4A B2 31 A4 39  |$(I,0).X$:.J.1.9|
00001780: 3A 84 31 2C 54 24 28 49  2C 4A 29 3A 82 3A 54 25  |:.1,T$(I,J):.:T%|
00001790: 28 49 29 B2 49 3A 82 00  B2 1F B2 25 4E 58 B2 49  |(I).I:.....%NX.I|
000017A0: AB 31 3A 89 31 30 30 3A  8F 20 43 4F 4D 50 4C 45  |.1:.100:. COMPLE|
000017B0: 54 45 00 D4 1F E4 25 99  22 11 CE 45 55 45 20 C4  |TE....%."..EUE .|
000017C0: 41 54 45 49 22 3B 3A 8D  38 30 35 30 3A 49 B2 31  |ATEI";:.8050:I.1|
000017D0: AB 49 3A 8E 00 F6 1F AC  26 8F 20 41 43 43 45 50  |.I:.....&. ACCEP|
000017E0: 54 41 42 4C 45 20 43 48  41 52 41 43 54 45 52 53  |TABLE CHARACTERS|
000017F0: 20 33 32 2D 39 30 00 3B  20 B6 26 83 31 2C 31 2C  | 32-90.; .&.1,1,|
00001800: 30 2C 31 2C 31 2C 31 2C  31 2C 31 2C 31 2C 31 2C  |0,1,1,1,1,1,1,1,|
00001810: 31 2C 31 2C 30 2C 31 2C  31 2C 31 2C 31 2C 31 2C  |1,1,0,1,1,1,1,1,|
00001820: 31 2C 31 2C 31 2C 31 2C  31 2C 31 2C 31 2C 31 2C  |1,1,1,1,1,1,1,1,|
00001830: 30 2C 30 2C 31 2C 31 2C  31 2C 31 00 76 20 C0 26  |0,0,1,1,1,1.v .&|
00001840: 83 31 2C 31 2C 31 2C 31  2C 31 2C 31 2C 31 2C 31  |.1,1,1,1,1,1,1,1|
00001850: 2C 31 2C 31 2C 31 2C 31  2C 31 2C 31 2C 31 2C 31  |,1,1,1,1,1,1,1,1|
00001860: 2C 31 2C 31 2C 31 2C 31  2C 31 2C 31 2C 31 2C 31  |,1,1,1,1,1,1,1,1|
00001870: 2C 31 2C 31 2C 31 00 C3  20 CA 26 83 22 CE 41 43  |,1,1,1.. .&.".AC|
00001880: 48 4E 41 4D 45 20 22 2C  22 D6 4F 52 4E 41 4D 45  |HNAME ",".ORNAME|
00001890: 20 20 20 22 2C 22 C1 4E  52 45 44 45 20 28 44 2E  |   ",".NREDE (D.|
000018A0: 48 2E 20 C8 45 52 52 2C  20 C6 52 41 55 2C 20 C6  |H. .ERR, .RAU, .|
000018B0: 41 4D 2E 2C 20 C6 49 52  4D 41 29 22 2C 22 D4 49  |AM., .IRMA)",".I|
000018C0: 54 45 4C 00 FF 20 D4 26  83 22 CF 52 47 41 4E 49  |TEL.. .&.".RGANI|
000018D0: 53 41 54 49 4F 4E 22 2C  22 D3 54 52 41 53 53 45  |SATION",".TRASSE|
000018E0: 22 2C 22 D0 CC DA 2F CF  52 54 22 2C 22 D3 54 41  |",".../.RT",".TA|
000018F0: 41 54 22 2C 22 D4 45 4C  45 46 4F 4E 4E 52 2E 00  |AT",".ELEFONNR..|
00001900: 16 21 10 27 8F 20 53 45  56 45 4E 20 43 41 54 45  |.!.'. SEVEN CATE|
00001910: 47 4F 52 49 45 53 00 25  21 1A 27 83 20 22 C6 41  |GORIES.%!.'. ".A|
00001920: 4D 49 4C 49 45 00 34 21  24 27 83 20 22 C6 52 45  |MILIE.4!$'. ".RE|
00001930: 55 4E 44 45 00 4B 21 2E  27 83 20 22 C1 52 42 45  |UNDE.K!.'. ".RBE|
00001940: 49 54 53 4B 4F 4C 4C 45  47 45 4E 00 59 21 38 27  |ITSKOLLEGEN.Y!8'|
00001950: 83 20 22 C1 45 52 5A 54  45 00 6E 21 42 27 83 20  |. ".ERZTE.n!B'. |
00001960: 22 C9 4E 53 54 49 54 55  54 49 4F 4E 45 4E 00 7C  |".NSTITUTIONEN.||
00001970: 21 4C 27 83 20 22 D3 43  48 55 4C 45 00 8D 21 56  |!L'. ".CHULE..!V|
00001980: 27 83 20 22 D3 4F 4E 53  54 49 47 45 53 00 A0 21  |'. ".ONSTIGES..!|
00001990: 60 EA 99 58 24 3A 8D 38  30 30 30 3A 89 31 30 30  |`..X$:.8000:.100|
000019A0: 00 BB 21 48 EE 8F 20 43  4F 4C 4F 52 20 43 48 41  |..!H.. COLOR CHA|
000019B0: 4E 47 45 20 52 4F 55 54  49 4E 45 00 DF 21 49 EE  |NGE ROUTINE..!I.|
000019C0: 96 A5 43 28 58 29 B2 C2  28 58 29 AA 31 AA 31 36  |..C(X)..(X).1.16|
000019D0: AC 28 28 C2 28 58 29 AF  31 35 29 B2 31 35 29 00  |.((.(X).15).15).|
000019E0: 01 22 4A EE 99 22 13 11  11 11 12 C6 31 92 3D 20  |."J.."......1.= |
000019F0: C6 41 52 42 45 20 44 45  53 20 D2 41 4E 44 45 53  |.ARBE DES .ANDES|
00001A00: 22 00 22 22 4B EE 99 22  11 11 12 C6 33 92 3D 20  |".""K.."....3.= |
00001A10: C8 49 4E 54 45 52 47 52  55 4E 44 2D C6 41 52 42  |.INTERGRUND-.ARB|
00001A20: 45 22 00 43 22 4C EE 99  22 11 11 12 C6 35 92 3D  |E".C"L.."....5.=|
00001A30: 20 C6 41 52 42 45 20 44  45 52 20 DA 45 49 43 48  | .ARBE DER .EICH|
00001A40: 45 4E 22 00 5D 22 4D EE  99 22 11 11 12 D2 C5 D4  |EN".]"M.."......|
00001A50: D5 D2 CE 92 3D 20 D7 45  49 54 45 52 22 00 6F 22  |....= .EITER".o"|
00001A60: 52 EE A1 43 24 3A 8B 43  24 89 36 31 30 31 30 00  |R..C$:.C$.61010.|
00001A70: 84 22 5C EE A1 43 24 3A  8B 43 24 B2 22 22 89 36  |."\..C$:.C$."".6|
00001A80: 31 30 32 30 00 AB 22 66  EE 43 B2 C6 28 43 24 29  |1020.."f.C..(C$)|
00001A90: 3A 8B 43 B2 31 33 35 A7  97 36 34 36 2C A5 43 28  |:.C.135..646,.C(|
00001AA0: 36 34 36 29 3A 89 36 31  30 30 32 00 D7 22 7A EE  |646):.61002.."z.|
00001AB0: 43 B2 C6 28 43 24 29 3A  8B 43 B2 31 33 33 B0 43  |C..(C$):.C.133.C|
00001AC0: B2 31 33 34 A7 58 B2 35  33 31 34 37 AA 43 3A 97  |.134.X.53147.C:.|
00001AD0: 58 2C A5 43 28 58 29 00  E8 22 84 EE 8B 43 B3 B1  |X,.C(X).."...C..|
00001AE0: 31 33 89 36 31 30 31 30  00 EE 22 8E EE 8E 00 00  |13.61010..".....|
00001AF0: 00 1F FF 8D 35                                    |....5           |

.......G(14):.657,128:.788,52.W....9000:
. (C) 1982 BY COMMODORE BUSINESS MACHINE
S, INC..F....C$:.C$.20......C$:.C$.." ."
;:C.F(C$):......."..";:.25...D. 1:. MENU
 ENTRY.P.N..".      . COMMODORE ADRESSEN
 64  ......X.."FUNKTIONEN:.."...}..,".E.
RFASSEN EINES NAMENS/ADRESSE.1....,".A.U
FRUFEN VON NAMEN/ADRESSEN.U....,".D.RUCK
EN VON NAMEN/ADRESSEN.U....,".R.UNDSCHRE
IBEN-ADRESSEN... ..,".T.ELEFONBUCH AUSDR
UCKEN......,".S.PEICHERN DER NAMENS-LIST
E.O....,".P.ROGRAMMENDE......".WELCHE   
";:X$."PEADRST":.8060......I.4000,5000,7
000,6000,3000,7100.Q....".SEITENVORSCHUB
";:.8050:.I.0..1,04:L..1:.7950: 1......O
F..".SPEICHERN DER *NAME LIST*";:.8050:.
I.0..3020..... 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$.2.J.Y$.T$(T,3):.C(Y
$).1.X$.X$.", ".Y$.T.^.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).L.R.A$(J,4).T$(T,8):X.F(T$
(T,9)).127:....... OUTPUT FILE...B..3020
:.100...L.Y$.H$:.3500:.E(X$).60000...V..
X...$...OF.0:.1,D$:..A.N..I.0.NX:T.T%(I)
:.T$(T,0).\.X..J.0.9:.1,T$(T,J):.J,I.T.V
..1,"\":.:. COMPLETE...... OPEN THE FILE
 TO WRITE.C...DF.0:X.0:X$."":.CF.2..".AU
F 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.O....:.".DATEI EXIS
TIERT - UEBERSCHREIBEN";:.8050:.I.X.1:..
C....8,"S"L$:.8,"I0......1,08,3,L$.",S,W
":.8,X,X$:.... .. CREATE AN ENTRY.R....N
X..V..".. LEIDER KEIN PLATZ MEHR FREI!":
.8000:.100.....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.^....". ";:.I.1.30:
.".";:.:.I.1.5:."...";:.:.".";......I.1.
30:."...";:.:.I.1.5:."...";:.:."...."..I
.0.4:."."A$(J,I):.:.Y.8.4200.R.6..".....
....."B0$:."."F$(Y):.B0$"....;..8200:.C.
.13.4120...=..:.I(X$,1)." ".X$.H(X$,C(X$
).1):.4157.A.@..X$."".T$(T,Y)."".Y.Y.1:.
2.(Y.9).4150,4110.S.J..C(X$).1.4190...T.
X$."-":.Y.0..".LOESCHEN";:.8050:.I.1.490
0,4110...^.T$(T,Y).X$:Y.Y.1:.4110.F.H.X$
."1234567".R$:. GET CATEGORIES...R.."...
......KATEGORIEN:...|..I.0.6:.,:.X.2.I..
".";......I.1"."K$(I):..?....".WIE ZUORD
NEN/LOESCHEN?   .";:.8070:I.2.I.^...X.(X
.I)..(X.I):.X.128.4210..L.T$(T,9).G(X):
. COMPLETE EDIT...V..".."B0$:.".AKZEPTIE
RT";:.8050:.I.4100.K....NX.1.100:. MUST 
BE IN ORDER.....X$.T$(T,0):.K.NX..I.K.NX
.1:T%(I).T%(I.1):.:. REMOVE T.7....I.0.N
X.1:.T$(T%(I),0).X$..:. LOCATE T'S SLOT.
T....I.NX.J.I.1:.I.NX.J..1:T%(I).T%(I.1)
:.:. MAKE ROOM FOR T.....T%(I).T:.100:. 
INSERT T, EXIT...$.. CLEAN UP DELETION.F
....I.0.9:T$(T,I)."":....8.NX.NX.1:.I.K.
NX:T%(I).T%(I.1):.:T%(I).T:.100...... SE
LECT/EDIT AN ENTRY.6....".":."SUCHEN NAC
H:  .N.ACHNAME.K....,"    .V.ORNAME.`...
.,"    .P.LZ/ORT.S....,"    .S.TAAT.....
.,"    .T.ELEFONNR....N..".WELCHER  ";:X
$."NVLLLLPST":.8060:F.I...X.M.40:.".SCHL
UESSELWORT: ";:.8200:Z$.X$:Z.C(Z$).....K
.0:. SEARCH FOR FIELD. ...T.T%(K):X$.T$(
T,F):Y.0.R....I.1.C(X$).Z.1:Y.(J(X$,I,Z)
.Z$).Y:.:.Y.0.5150.V...J.0:.300:.".":.I.
0.4:.A$(0,I):.......".WEITERSUCHEN    ";
:.8050:.I.5180.....K.K.1:.K..NX.5110...(
..:.".ALLE EINGABEN UEBERPRUEFT":.8000:.
100...<..".AENDERN";:.8050:.I.100:.4100.
#.P.. FILE FOR WORD MACHINE.V.Z..".NAME 
DER DATEI:   ";:M.16:.8200:.X$."".6010.S
...Y$.X$:.3500:.E(X$).60000.~....X.100..
....7200:.".SPEZIELLE AUSWAHL  ";:.8050:
SF.I:J.0:K.0.W...T.T%(K):.(F.F(T$(T,9)))
.0.6180......SF..T$(T,0):.6100......300:
.".":.I.0.3:.A$(J,I):..6.J..".UEBERNEHME
N     ";:.8050:.I.6180.L.T.. OUTPUT THE 
FILE.M....I.0.7:.1,T$(T,I):.:DF..(DF)...
$.K.K.1:.K..NX.6060......1,"\":.DF..1..S
F.1.6220,100:.  -1=EMPTY DISCFILE...8.."
.KEINE ADRESSE IN DIESER KATEGORIE."...B
. 1:.8,"S0:"Y$:.8,"I0...L..8000:.100...X
.. PRINT LABELS.<.B.SF..1:M.30:.1,04:LL.
9999.F.L..".EIN-SPALTIGE ETIKETTEN";:.80
50:Y.I......".PROBEAUSDRUCK   ";:.8050:.
I.7090.....P$."----------ERSTE ZEILE----
-----":.7900......I.0.1:P$."------------
------------------":.7900:..0...P$."----
------LETZTE ZEILE--------":.I.1.3:.7900
:.:.7050.U....7200:.7300:.100:. OUTPUT L
ABELS.L.... PRINT PHONE BOOK...F.SF.0:M.
36:Y.1:.1,04:L.0...P..".ZEILEN PRO SEITE
 "L0".....";:.LL.K.Z..7200:.7300:.7950:.
100... .. GET CATEGORY...*..".SUCHEN NAC
H:":.I.0.6:.,"."J(D(I.1),2)". "K$(I):..R
.4..,".8. ALLE":.".IHRE WAHL  ";:X$."123
45678":.8060:F.2.I.Q.>..:. ALL ARE OR-ED
 WITH 128...... PRINT EITHER.....J.Y:.K.
0.NX:T.T%(K):.(F.F(T$(T,9))).0.7380.Q...
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).6.J..7900:.
:.7900.G.T..K:.J.Y..I.0.4:P$.H(A$(0,I),M
):.7900:.:.7900.M.........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...@.. UTILITI
ES...J..".. WEITER MIT BELIEBIGER TASTE"
;:.20:.:.".":..9.R.X$."JN.D.|.."? ";.N..
..20:.I.1.C(X$):.C$..J(X$,I,1)..:.8070..
...I.I.1:.C$;:.C.13..:.......W$:.W$.""..
"..";:.8080......" .";:.W$.R$..:..R....W
$.G(20)..W$;:.8070......8080.... X$."":.
 INPUT A STRING.... .C$:.C$.8210.... .25
:.C.13...G.& .C.20.X$.""..C$;:X$.H(X$,C(
X$).1):. DELETE.P.+ .(127.C).32.8220:. C
URSOR CHARACTERS...0 .(K%(C).G)..C$;:X$.
X$.C$:.C(X$)..M.....: .8220...(#. INITIA
LIZE...-#L0.60:LP.72:NX..1:R$.G(13):H$."
NAME LIST...2#.K%(255),A$(1,4),K$(6),F$(
8).C.<#.".............................."
.39)"..":.59468,14:. FORMAT.|.A#.53272,2
.B(53272):.".     . COMMODORE ADRESSEN 6
4  ....C#.61000: . COLOR CHANGE...F#."..
K.ASSETTE, .D.ISKETTE, ODER .B.EIDES";:X
$."DKB":.8060:CF.I.1...K#.I.32.90:.K%(I)
:.:.I.193.218:K%(I).1:.:. CHAR ARRAY.K.P
#B$."     ":.I.1.5:B$.B$.B$:.:B0$.H(B$,3
9):.8,08,15...U#.".TAGESDATUM: ":M.60:G.
1:.8200:G.0:D$.X$:.D$."".D$."-...N#.:.I.
0.8:.F$(I):.:. FIELD NAMES.K.X#.I.0.6:.K
$(I):.:. CATEGORIES....#V..((.(0).2000).
170):.T$(V,9),T%(V):.I.0.V:T%(I).I:.....
%. INPUT FILE.8.&%.CF.2..".VON DATASETTE
";:.8050.J.0%.CF.2.(CF.3.I.0)..9700:.I.1
00:.1,1,0,H$:.9600...N% 1:.1,08,2,H$:.8,
X,X$:.X.0.9600...X%.9700:.I.100.X.B%.".L
EGEN SIE BITTE DIE DISKETTE EIN UND":.80
00:.9550....%X$.""....%.#1,C$:.C$..R$.X$
.X$.C$:.9603.0..%.".ENTERED: ."X$:.:. DA
TELINE FROM FILE.F..%.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.T..%.".NEUE D
ATEI";:.8050:I.1.I:.....&. ACCEPTABLE CH
ARACTERS 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.V .&.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.C J&."NACHNAME ",
"VORNAME   ","ANREDE (D.H. HERR, FRAU, F
AM., FIRMA)","TITEL.. T&."ORGANISATION",
"STRASSE","PLZ/ORT","STAAT","TELEFONNR..
.!.'. SEVEN CATEGORIES.%!.'. "FAMILIE.4!
$'. "FREUNDE.K!.'. "ARBEITSKOLLEGEN.Y!8'
. "AERZTE.N!B'. "INSTITUTIONEN.|!L'. "SC
HULE..!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.= HINTERGR
UND-FARBE".C"L.."...F5.= FARBE DER ZEICH
EN".]"M.."...RETURN.= WEITER".O"R..C$:.C
$.61010.."\..C$:.C$."".61020.."F.C.F(C$)
:.C.135..646,.C(646):.61002.W"Z.C.F(C$):
.C.133.C.134.X.53147.C:.X,.C(X).."...C..
13.61010..".........5

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL