ADRESS 64

00000000: 01 08 11 08 01 00 8F 20  41 44 52 45 53 53 20 36  |....... ADRESS 6|
00000010: 34 00 2D 08 02 00 99 22  93 9A 22 3A 97 35 33 32  |4.-...."..":.532|
00000020: 38 31 2C 30 3A 97 35 33  32 38 30 2C 30 00 41 08  |81,0:.53280,0.A.|
00000030: 03 00 99 C7 28 31 34 29  3A 97 36 35 30 2C 31 32  |....(14):.650,12|
00000040: 38 00 4A 08 04 00 89 31  35 33 00 58 08 05 00 A1  |8.J....153.X....|
00000050: 43 24 3A 8B 43 24 89 35  00 75 08 06 00 A1 43 24  |C$:.C$.5.u....C$|
00000060: 3A 8B 43 24 A7 99 22 20  9D 22 3B 3A 43 B2 C6 28  |:.C$.." .";:C..(|
00000070: 43 24 29 3A 8E 00 83 08  07 00 99 22 A4 9D 22 3B  |C$):......."..";|
00000080: 3A 89 36 00 97 08 08 00  A0 31 3A 8F 20 4D 45 4E  |:.6......1:. MEN|
00000090: 55 20 45 4E 54 52 59 00  C1 08 09 00 99 22 93 20  |U ENTRY......". |
000000A0: 20 20 20 20 20 12 20 C3  4F 4D 4D 4F 44 4F 52 45  |     . .OMMODORE|
000000B0: 20 C1 C4 D2 C5 D3 D3 C5  CE 20 36 34 20 20 92 11  | ........ 64  ..|
000000C0: 11 00 D6 08 0A 00 99 22  C6 55 4E 4B 54 49 4F 4E  |.......".UNKTION|
000000D0: 45 4E 3A 11 11 22 00 FD  08 0B 00 99 2C 22 12 C5  |EN:.."......,"..|
000000E0: 92 52 46 41 53 53 45 4E  20 45 49 4E 45 53 20 CE  |.RFASSEN EINES .|
000000F0: 41 4D 45 4E 53 2F C1 44  52 45 53 53 45 00 22 09  |AMENS/.DRESSE.".|
00000100: 0C 00 99 2C 22 12 C1 92  55 46 52 55 46 45 4E 20  |...,"...UFRUFEN |
00000110: 56 4F 4E 20 CE 41 4D 45  4E 2F C1 44 52 45 53 53  |VON .AMEN/.DRESS|
00000120: 45 4E 00 46 09 0D 00 99  2C 22 12 C4 92 52 55 43  |EN.F....,"...RUC|
00000130: 4B 45 4E 20 56 4F 4E 20  CE 41 4D 45 4E 2F C1 44  |KEN VON .AMEN/.D|
00000140: 52 45 53 53 45 4E 00 66  09 0E 00 99 2C 22 12 D2  |RESSEN.f....,"..|
00000150: 92 55 4E 44 53 43 48 52  45 49 42 45 4E 2D C1 44  |.UNDSCHREIBEN-.D|
00000160: 52 45 53 53 45 4E 00 86  09 0F 00 99 2C 22 12 D4  |RESSEN......,"..|
00000170: 92 45 4C 45 46 4F 4E 42  55 43 48 20 C1 55 53 44  |.ELEFONBUCH .USD|
00000180: 52 55 43 4B 45 4E 00 AA  09 10 00 99 2C 22 12 D3  |RUCKEN......,"..|
00000190: 92 50 45 49 43 48 45 52  4E 20 44 45 52 20 CE 41  |.PEICHERN DER .A|
000001A0: 4D 45 4E 53 2D CC 49 53  54 45 00 C0 09 11 00 99  |MENS-.ISTE......|
000001B0: 2C 22 12 D0 92 52 4F 47  52 41 4D 4D 45 4E 44 45  |,"...ROGRAMMENDE|
000001C0: 00 E5 09 12 00 99 22 11  D7 45 4C 43 48 45 20 20  |......"..ELCHE  |
000001D0: 20 22 3B 3A 58 24 B2 22  50 45 41 44 52 53 54 22  | ";:X$."PEADRST"|
000001E0: 3A 8D 31 33 39 00 00 0A  13 00 91 49 89 34 35 2C  |:.139......I.45,|
000001F0: 37 36 2C 31 30 38 2C 39  32 2C 33 30 2C 31 31 36  |76,108,92,30,116|
00000200: 00 35 0A 14 00 99 22 93  D3 45 49 54 45 4E 56 4F  |.5...."..EITENVO|
00000210: 52 53 43 48 55 42 22 3B  3A 8D 31 33 38 3A 8B 49  |RSCHUB";:.138:.I|
00000220: B2 30 A7 9F 31 2C 30 34  3A 4C B2 2E 31 3A 8D 31  |.0..1,04:L..1:.1|
00000230: 33 35 3A A0 31 00 6A 0A  15 00 8B 4F 46 A7 99 22  |35:.1.j....OF.."|
00000240: 11 D3 50 45 49 43 48 45  52 4E 20 44 45 52 20 2A  |..PEICHERN DER *|
00000250: CE 41 4D 45 20 CC 49 53  54 2A 22 3B 3A 8D 31 33  |.AME .IST*";:.13|
00000260: 38 3A 8B 49 B2 30 A7 8D  33 32 00 82 0A 16 00 A0  |8:.I.0..32......|
00000270: 31 3A 99 22 93 11 D4 53  43 48 55 45 53 53 21 22  |1:."...SCHUESS!"|
00000280: 3A A2 00 98 0A 17 00 8F  20 46 4F 52 4D 41 54 20  |:....... FORMAT |
00000290: 54 48 45 20 4C 49 4E 45  00 C8 0A 18 00 58 24 B2  |THE LINE.....X$.|
000002A0: 54 24 28 54 2C 30 29 3A  59 24 B2 54 24 28 54 2C  |T$(T,0):Y$.T$(T,|
000002B0: 31 29 3A 8B C3 28 59 24  29 B1 31 A7 58 24 B2 59  |1):..(Y$).1.X$.Y|
000002C0: 24 AA 22 20 22 AA 58 24  00 ED 0A 19 00 59 24 B2  |$." ".X$.....Y$.|
000002D0: 54 24 28 54 2C 32 29 3A  8B C3 28 59 24 29 B1 31  |T$(T,2):..(Y$).1|
000002E0: A7 58 24 B2 59 24 AA 22  20 22 AA 58 24 00 13 0B  |.X$.Y$." ".X$...|
000002F0: 1A 00 59 24 B2 54 24 28  54 2C 33 29 3A 8B C3 28  |..Y$.T$(T,3):..(|
00000300: 59 24 29 B1 31 A7 58 24  B2 58 24 AA 22 2C 20 22  |Y$).1.X$.X$.", "|
00000310: AA 59 24 00 55 0B 1B 00  41 24 28 4A 2C 30 29 B2  |.Y$.U...A$(J,0).|
00000320: 58 24 3A 81 49 B2 31 A4  33 3A 41 24 28 4A 2C 49  |X$:.I.1.3:A$(J,I|
00000330: 29 B2 22 22 3A 59 24 B2  54 24 28 54 2C 49 AA 33  |)."":Y$.T$(T,I.3|
00000340: 29 3A 8B C3 28 59 24 29  B1 31 A7 41 24 28 4A 2C  |):..(Y$).1.A$(J,|
00000350: 49 29 B2 59 24 00 86 0B  1C 00 82 3A 8B C3 28 54  |I).Y$......:..(T|
00000360: 24 28 54 2C 37 29 29 B1  31 A7 41 24 28 4A 2C 33  |$(T,7)).1.A$(J,3|
00000370: 29 B2 41 24 28 4A 2C 33  29 AA 22 2C 20 22 AA 54  |).A$(J,3).", ".T|
00000380: 24 28 54 2C 37 29 00 AD  0B 1D 00 41 24 28 4A 2C  |$(T,7).....A$(J,|
00000390: 34 29 B2 54 24 28 54 2C  38 29 3A 58 B2 C6 28 54  |4).T$(T,8):X..(T|
000003A0: 24 28 54 2C 39 29 29 AF  31 32 37 3A 8E 00 BF 0B  |$(T,9)).127:....|
000003B0: 1E 00 8F 20 4F 55 54 50  55 54 20 46 49 4C 45 00  |... OUTPUT FILE.|
000003C0: CA 0B 1F 00 8D 33 32 3A  89 38 00 E3 0B 20 00 59  |.....32:.8... .Y|
000003D0: 24 B2 48 24 3A 8D 33 38  3A 8B C5 28 58 24 29 89  |$.H$:.38:..(X$).|
000003E0: 31 39 32 00 EC 0B 21 00  8B 58 A7 8E 00 FD 0B 22  |192...!..X....."|
000003F0: 00 4F 46 B2 30 3A 98 31  2C 44 24 3A 99 00 1A 0C  |.OF.0:.1,D$:....|
00000400: 23 00 81 49 B2 30 A4 4E  58 3A 54 B2 54 25 28 49  |#..I.0.NX:T.T%(I|
00000410: 29 3A 99 54 24 28 54 2C  30 29 00 35 0C 24 00 81  |):.T$(T,0).5.$..|
00000420: 4A B2 30 A4 39 3A 98 31  2C 54 24 28 54 2C 4A 29  |J.0.9:.1,T$(T,J)|
00000430: 3A 82 4A 2C 49 00 4D 0C  25 00 98 31 2C 22 5C 22  |:.J,I.M.%..1,"\"|
00000440: 3A 8E 3A 8F 20 43 4F 4D  50 4C 45 54 45 00 66 0C  |:.:. COMPLETE.f.|
00000450: 26 00 8F 20 4F 50 45 4E  20 46 49 4C 45 20 54 4F  |&.. OPEN FILE TO|
00000460: 20 57 52 49 54 45 00 97  0C 27 00 44 46 B2 30 3A  | WRITE...'.DF.0:|
00000470: 58 B2 30 3A 58 24 B2 22  22 3A 8B 43 46 B1 32 A7  |X.0:X$."":.CF.2.|
00000480: 99 22 93 C1 55 46 20 C4  41 54 41 53 45 54 54 45  |."..UF .ATASETTE|
00000490: 22 3B 3A 8D 31 33 38 00  B8 0C 28 00 8B 43 46 B2  |";:.138...(..CF.|
000004A0: 32 B0 28 43 46 B2 33 AF  49 B2 30 29 A7 9F 31 2C  |2.(CF.3.I.0)..1,|
000004B0: 31 2C 31 2C 59 24 3A 8E  00 E6 0C 29 00 44 46 B2  |1,1,Y$:....).DF.|
000004C0: AB 31 3A 4C 24 B2 22 30  3A 22 AA 59 24 3A 9F 31  |.1:L$."0:".Y$:.1|
000004D0: 2C 30 38 2C 32 2C 4C 24  3A 84 38 2C 58 3A A0 31  |,08,2,L$:.8,X:.1|
000004E0: 3A 8B 58 89 34 34 00 20  0D 2A 00 99 3A 99 22 11  |:.X.44. .*..:.".|
000004F0: C4 41 54 45 49 20 45 58  49 53 54 49 45 52 54 20  |.ATEI EXISTIERT |
00000500: 2D 20 55 45 42 45 52 53  43 48 52 45 49 42 45 4E  |- UEBERSCHREIBEN|
00000510: 22 3B 3A 8D 31 33 38 3A  8B 49 A7 58 B2 31 3A 8E  |";:.138:.I.X.1:.|
00000520: 00 34 0D 2B 00 98 38 2C  22 53 22 4C 24 3A 98 38  |.4.+..8,"S"L$:.8|
00000530: 2C 22 49 30 00 54 0D 2C  00 9F 31 2C 30 38 2C 33  |,"I0.T.,..1,08,3|
00000540: 2C 4C 24 AA 22 2C 53 2C  57 22 3A 84 38 2C 58 2C  |,L$.",S,W":.8,X,|
00000550: 58 24 3A 8E 00 6A 0D 2D  00 8F 20 43 52 45 41 54  |X$:..j.-.. CREAT|
00000560: 45 20 41 4E 20 45 4E 54  52 59 00 A0 0D 2E 00 8B  |E AN ENTRY......|
00000570: 4E 58 B1 B2 56 A7 99 22  11 12 20 CC 45 49 44 45  |NX..V..".. .EIDE|
00000580: 52 20 4B 45 49 4E 20 D0  4C 41 54 5A 20 4D 45 48  |R KEIN .LATZ MEH|
00000590: 52 20 46 52 45 49 21 22  3A 8D 31 33 36 3A 89 38  |R FREI!":.136:.8|
000005A0: 00 C8 0D 2F 00 4E 58 B2  4E 58 AA 31 3A 4B B2 4E  |.../.NX.NX.1:K.N|
000005B0: 58 3A 54 B2 54 25 28 4B  29 3A 54 24 28 54 2C 39  |X:T.T%(K):T$(T,9|
000005C0: 29 B2 C7 28 31 32 38 29  00 ED 0D 30 00 4F 46 B2  |)..(128)...0.OF.|
000005D0: 31 3A 4D B2 33 39 3A 59  B2 30 3A 8F 20 47 45 54  |1:M.39:Y.0:. GET|
000005E0: 20 4E 41 4D 45 2F 41 44  44 52 45 53 53 00 F9 0D  | NAME/ADDRESS...|
000005F0: 31 00 4A B2 30 3A 8D 32  33 00 2B 0E 32 00 99 22  |1.J.0:.23.+.2.."|
00000600: 93 20 22 3B 3A 81 49 B2  31 A4 33 30 3A 99 22 A4  |. ";:.I.1.30:.".|
00000610: 22 3B 3A 82 3A 81 49 B2  31 A4 35 3A 99 22 11 A5  |";:.:.I.1.5:."..|
00000620: 9D 22 3B 3A 82 3A 99 22  11 22 3B 00 56 0E 33 00  |.";:.:.".";.V.3.|
00000630: 81 49 B2 31 A4 33 30 3A  99 22 9D A3 9D 22 3B 3A  |.I.1.30:."...";:|
00000640: 82 3A 81 49 B2 31 A4 35  3A 99 22 91 9D A7 22 3B  |.:.I.1.5:."...";|
00000650: 3A 82 3A 99 22 13 00 77  0E 34 00 81 49 B2 30 A4  |:.:."..w.4..I.0.|
00000660: 34 3A 99 22 1D 22 41 24  28 4A 2C 49 29 3A 82 3A  |4:."."A$(J,I):.:|
00000670: 8B 59 B1 38 89 36 30 00  9D 0E 35 00 99 22 13 11  |.Y.8.60...5.."..|
00000680: 11 11 11 11 11 11 11 11  22 42 30 24 3A 99 22 91  |........"B0$:.".|
00000690: 22 46 24 28 59 29 3A 99  42 30 24 22 91 00 B0 0E  |"F$(Y):.B0$"....|
000006A0: 36 00 8D 31 34 36 3A 8B  43 B3 B1 31 33 89 35 30  |6..146:.C..13.50|
000006B0: 00 D8 0E 37 00 99 3A 8B  C9 28 58 24 2C 31 29 B2  |...7..:..(X$,1).|
000006C0: 22 20 22 A7 58 24 B2 C8  28 58 24 2C C3 28 58 24  |" ".X$..(X$,.(X$|
000006D0: 29 AB 31 29 3A 89 35 35  00 03 0F 38 00 8B 58 24  |).1):.55...8..X$|
000006E0: B2 22 22 AF 54 24 28 54  2C 59 29 B1 22 22 A7 59  |."".T$(T,Y)."".Y|
000006F0: B2 59 AA 31 3A 91 32 AA  28 59 B3 39 29 89 35 33  |.Y.1:.2.(Y.9).53|
00000700: 2C 34 39 00 13 0F 39 00  8B C3 28 58 24 29 B1 31  |,49...9...(X$).1|
00000710: 89 35 39 00 41 0F 3A 00  58 24 B2 22 2D 22 3A 8B  |.59.A.:.X$."-":.|
00000720: 59 B2 30 A7 99 22 11 CC  4F 45 53 43 48 45 4E 22  |Y.0.."..OESCHEN"|
00000730: 3B 3A 8D 31 33 38 3A 91  49 AA 31 89 37 33 2C 34  |;:.138:.I.1.73,4|
00000740: 39 00 5A 0F 3B 00 54 24  28 54 2C 59 29 B2 58 24  |9.Z.;.T$(T,Y).X$|
00000750: 3A 59 B2 59 AA 31 3A 89  34 39 00 7F 0F 3C 00 58  |:Y.Y.1:.49...<.X|
00000760: 24 B2 22 31 32 33 34 35  36 37 22 AA 52 24 3A 8F  |$."1234567".R$:.|
00000770: 20 47 45 54 20 43 41 54  45 47 4F 52 49 45 53 00  | GET CATEGORIES.|
00000780: 9A 0F 3D 00 99 22 13 11  11 11 11 11 11 11 11 CB  |..=.."..........|
00000790: 41 54 45 47 4F 52 49 45  4E 3A 00 B5 0F 3E 00 81  |ATEGORIEN:...>..|
000007A0: 49 B2 30 A4 36 3A 99 2C  3A 8B 58 AF 32 AE 49 A7  |I.0.6:.,:.X.2.I.|
000007B0: 99 22 12 22 3B 00 C8 0F  3F 00 99 49 AA 31 22 92  |.".";...?..I.1".|
000007C0: 22 4B 24 28 49 29 3A 82  00 F7 0F 40 00 99 22 11  |"K$(I):....@..".|
000007D0: D7 49 45 20 5A 55 4F 52  44 4E 45 4E 2F 4C 4F 45  |.IE ZUORDNEN/LOE|
000007E0: 53 43 48 45 4E 3F 20 20  20 9D 22 3B 3A 8D 31 34  |SCHEN?   .";:.14|
000007F0: 30 3A 49 B2 32 AE 49 00  14 10 41 00 58 B2 28 58  |0:I.2.I...A.X.(X|
00000800: B0 49 29 AF A8 28 58 AF  49 29 3A 8B 58 B3 31 32  |.I)..(X.I):.X.12|
00000810: 38 89 36 31 00 35 10 42  00 54 24 28 54 2C 39 29  |8.61.5.B.T$(T,9)|
00000820: B2 C7 28 58 29 3A 8F 20  43 4F 4D 50 4C 45 54 45  |..(X):. COMPLETE|
00000830: 20 45 44 49 54 00 5D 10  43 00 99 22 91 91 22 42  | EDIT.].C..".."B|
00000840: 30 24 3A 99 22 91 C1 4B  5A 45 50 54 49 45 52 54  |0$:."..KZEPTIERT|
00000850: 22 3B 3A 8D 31 33 38 3A  8B 49 89 34 38 00 7C 10  |";:.138:.I.48.|.|
00000860: 44 00 8B 4E 58 B3 31 89  38 3A 8F 20 4D 55 53 54  |D..NX.1.8:. MUST|
00000870: 20 42 45 20 49 4E 20 4F  52 44 45 52 00 B6 10 45  | BE IN ORDER...E|
00000880: 00 58 24 B2 54 24 28 54  2C 30 29 3A 8B 4B B3 4E  |.X$.T$(T,0):.K.N|
00000890: 58 A7 81 49 B2 4B A4 4E  58 AB 31 3A 54 25 28 49  |X..I.K.NX.1:T%(I|
000008A0: 29 B2 54 25 28 49 AA 31  29 3A 82 3A 8F 20 52 45  |).T%(I.1):.:. RE|
000008B0: 4D 4F 56 45 20 54 00 E8  10 46 00 81 49 B2 30 A4  |MOVE T...F..I.0.|
000008C0: 4E 58 AB 31 3A 8B 54 24  28 54 25 28 49 29 2C 30  |NX.1:.T$(T%(I),0|
000008D0: 29 B3 58 24 A7 82 3A 8F  20 4C 4F 43 41 54 45 20  |).X$..:. LOCATE |
000008E0: 54 27 53 20 53 4C 4F 54  00 25 11 47 00 8B 49 B3  |T'S SLOT.%.G..I.|
000008F0: 4E 58 A7 4A B2 49 AA 31  3A 81 49 B2 4E 58 A4 4A  |NX.J.I.1:.I.NX.J|
00000900: A9 AB 31 3A 54 25 28 49  29 B2 54 25 28 49 AB 31  |..1:T%(I).T%(I.1|
00000910: 29 3A 82 3A 8F 20 4D 41  4B 45 20 52 4F 4F 4D 20  |):.:. MAKE ROOM |
00000920: 46 4F 52 20 54 00 45 11  48 00 54 25 28 49 29 B2  |FOR T.E.H.T%(I).|
00000930: 54 3A 89 38 3A 8F 20 49  4E 53 45 52 54 20 54 2C  |T:.8:. INSERT T,|
00000940: 20 45 58 49 54 00 5D 11  49 00 8F 20 43 4C 45 41  | EXIT.].I.. CLEA|
00000950: 4E 20 55 50 20 44 45 4C  45 54 49 4F 4E 00 75 11  |N UP DELETION.u.|
00000960: 4A 00 81 49 B2 30 A4 39  3A 54 24 28 54 2C 49 29  |J..I.0.9:T$(T,I)|
00000970: B2 22 22 3A 82 00 A4 11  4B 00 4E 58 B2 4E 58 AB  |."":....K.NX.NX.|
00000980: 31 3A 81 49 B2 4B A4 4E  58 3A 54 25 28 49 29 B2  |1:.I.K.NX:T%(I).|
00000990: 54 25 28 49 AA 31 29 3A  82 3A 54 25 28 49 29 B2  |T%(I.1):.:T%(I).|
000009A0: 54 3A 89 38 00 BF 11 4C  00 8F 20 53 45 4C 45 43  |T:.8...L.. SELEC|
000009B0: 54 2F 45 44 49 54 20 41  4E 20 45 4E 54 52 59 00  |T/EDIT AN ENTRY.|
000009C0: E3 11 4D 00 99 22 93 22  3A 99 22 D3 55 43 48 45  |..M..".":.".UCHE|
000009D0: 4E 20 4E 41 43 48 3A 20  20 12 CE 92 41 43 48 4E  |N NACH:  ...ACHN|
000009E0: 41 4D 45 00 F8 11 4E 00  99 2C 22 20 20 20 20 12  |AME...N..,"    .|
000009F0: D6 92 4F 52 4E 41 4D 45  00 0D 12 4F 00 99 2C 22  |..ORNAME...O..,"|
00000A00: 20 20 20 20 12 D0 92 CC  DA 2F CF 52 54 00 20 12  |    ...../.RT. .|
00000A10: 50 00 99 2C 22 20 20 20  20 12 D3 92 54 41 41 54  |P..,"    ...TAAT|
00000A20: 00 38 12 51 00 99 2C 22  20 20 20 20 12 D4 92 45  |.8.Q..,"    ...E|
00000A30: 4C 45 46 4F 4E 4E 52 2E  00 63 12 52 00 99 22 11  |LEFONNR..c.R..".|
00000A40: D7 45 4C 43 48 45 52 20  20 22 3B 3A 58 24 B2 22  |.ELCHER  ";:X$."|
00000A50: 4E 56 4C 4C 4C 4C 50 53  54 22 3A 8D 31 33 39 3A  |NVLLLLPST":.139:|
00000A60: 46 B2 49 00 95 12 53 00  4D B2 34 30 3A 99 22 11  |F.I...S.M.40:.".|
00000A70: D3 43 48 4C 55 45 53 53  45 4C 57 4F 52 54 3A 20  |.CHLUESSELWORT: |
00000A80: 22 3B 3A 8D 31 34 36 3A  5A 24 B2 58 24 3A 5A B2  |";:.146:Z$.X$:Z.|
00000A90: C3 28 5A 24 29 00 B0 12  54 00 4B B2 30 3A 8F 20  |.(Z$)...T.K.0:. |
00000AA0: 53 45 41 52 43 48 20 46  4F 52 20 46 49 45 4C 44  |SEARCH FOR FIELD|
00000AB0: 00 CB 12 55 00 54 B2 54  25 28 4B 29 3A 58 24 B2  |...U.T.T%(K):X$.|
00000AC0: 54 24 28 54 2C 46 29 3A  59 B2 30 00 FB 12 56 00  |T$(T,F):Y.0...V.|
00000AD0: 81 49 B2 31 A4 C3 28 58  24 29 AB 5A AA 31 3A 59  |.I.1..(X$).Z.1:Y|
00000AE0: B2 28 CA 28 58 24 2C 49  2C 5A 29 B2 5A 24 29 B0  |.(.(X$,I,Z).Z$).|
00000AF0: 59 3A 82 3A 8B 59 B2 30  89 38 39 00 1E 13 57 00  |Y:.:.Y.0.89...W.|
00000B00: 4A B2 30 3A 8D 32 33 3A  99 22 93 22 3A 81 49 B2  |J.0:.23:.".":.I.|
00000B10: 30 A4 34 3A 99 41 24 28  30 2C 49 29 3A 82 00 43  |0.4:.A$(0,I):..C|
00000B20: 13 58 00 99 22 11 D7 45  49 54 45 52 53 55 43 48  |.X.."..EITERSUCH|
00000B30: 45 4E 20 20 20 20 22 3B  3A 8D 31 33 38 3A 8B 49  |EN    ";:.138:.I|
00000B40: 89 39 31 00 57 13 59 00  4B B2 4B AA 31 3A 8B 4B  |.91.W.Y.K.K.1:.K|
00000B50: B3 B2 4E 58 89 38 35 00  83 13 5A 00 99 3A 99 22  |..NX.85...Z..:."|
00000B60: 11 C1 4C 4C 45 20 C5 49  4E 47 41 42 45 4E 20 55  |..LLE .INGABEN U|
00000B70: 45 42 45 52 50 52 55 45  46 54 22 3A 8D 31 33 36  |EBERPRUEFT":.136|
00000B80: 3A 89 38 00 A2 13 5B 00  99 22 11 C1 45 4E 44 45  |:.8...[.."..ENDE|
00000B90: 52 4E 22 3B 3A 8D 31 33  38 3A 91 49 89 38 3A 89  |RN";:.138:.I.8:.|
00000BA0: 34 38 00 BE 13 5C 00 8F  20 46 49 4C 45 20 46 4F  |48...\.. FILE FO|
00000BB0: 52 20 57 4F 52 44 20 4D  41 43 48 49 4E 45 00 EE  |R WORD MACHINE..|
00000BC0: 13 5D 00 99 22 93 CE 41  4D 45 20 44 45 52 20 C4  |.].."..AME DER .|
00000BD0: 41 54 45 49 3A 20 20 20  22 3B 3A 4D B2 31 36 3A  |ATEI:   ";:M.16:|
00000BE0: 8D 31 34 36 3A 8B 58 24  B2 22 22 89 39 33 00 07  |.146:.X$."".93..|
00000BF0: 14 5E 00 59 24 B2 58 24  3A 8D 33 38 3A 8B C5 28  |.^.Y$.X$:.38:..(|
00000C00: 58 24 29 89 31 39 32 00  10 14 5F 00 8B 58 89 38  |X$).192..._..X.8|
00000C10: 00 44 14 60 00 8D 31 32  30 3A 99 22 11 D3 50 45  |.D.`..120:."..PE|
00000C20: 5A 49 45 4C 4C 45 20 C1  55 53 57 41 48 4C 20 20  |ZIELLE .USWAHL  |
00000C30: 22 3B 3A 8D 31 33 38 3A  53 46 B2 49 3A 4A B2 30  |";:.138:SF.I:J.0|
00000C40: 3A 4B B2 30 00 66 14 61  00 54 B2 54 25 28 4B 29  |:K.0.f.a.T.T%(K)|
00000C50: 3A 8B 28 46 AF C6 28 54  24 28 54 2C 39 29 29 29  |:.(F..(T$(T,9)))|
00000C60: B2 30 89 31 30 33 00 7C  14 62 00 8B 53 46 A7 99  |.0.103.|.b..SF..|
00000C70: 54 24 28 54 2C 30 29 3A  89 31 30 31 00 9B 14 63  |T$(T,0):.101...c|
00000C80: 00 8D 32 33 3A 99 22 93  22 3A 81 49 B2 30 A4 33  |..23:.".":.I.0.3|
00000C90: 3A 99 41 24 28 4A 2C 49  29 3A 82 00 C1 14 64 00  |:.A$(J,I):....d.|
00000CA0: 99 22 11 D5 45 42 45 52  4E 45 48 4D 45 4E 20 20  |."..EBERNEHMEN  |
00000CB0: 20 20 20 22 3B 3A 8D 31  33 38 3A 8B 49 89 31 30  |   ";:.138:.I.10|
00000CC0: 33 00 D7 14 65 00 8F 20  4F 55 54 50 55 54 20 54  |3...e.. OUTPUT T|
00000CD0: 48 45 20 46 49 4C 45 00  F8 14 66 00 81 49 B2 30  |HE FILE...f..I.0|
00000CE0: A4 37 3A 98 31 2C 54 24  28 54 2C 49 29 3A 82 3A  |.7:.1,T$(T,I):.:|
00000CF0: 44 46 B2 B6 28 44 46 29  00 0C 15 67 00 4B B2 4B  |DF..(DF)...g.K.K|
00000D00: AA 31 3A 8B 4B B3 B2 4E  58 89 39 37 00 3F 15 68  |.1:.K..NX.97.?.h|
00000D10: 00 98 31 2C 22 5C 22 3A  8B 44 46 B1 AB 31 A7 91  |..1,"\":.DF..1..|
00000D20: 53 46 AA 31 89 31 30 37  2C 38 3A 8F 20 20 2D 31  |SF.1.107,8:.  -1|
00000D30: 3D 45 4D 50 54 59 20 44  49 53 43 46 49 4C 45 00  |=EMPTY DISCFILE.|
00000D40: 6A 15 69 00 99 22 11 CB  45 49 4E 45 20 C1 44 52  |j.i.."..EINE .DR|
00000D50: 45 53 53 45 20 49 4E 20  44 49 45 53 45 52 20 CB  |ESSE IN DIESER .|
00000D60: 41 54 45 47 4F 52 49 45  2E 22 00 83 15 6A 00 A0  |ATEGORIE."...j..|
00000D70: 31 3A 98 38 2C 22 53 30  3A 22 59 24 3A 98 38 2C  |1:.8,"S0:"Y$:.8,|
00000D80: 22 49 30 00 8F 15 6B 00  8D 31 33 36 3A 89 38 00  |"I0...k..136:.8.|
00000D90: A2 15 6C 00 8F 20 50 52  49 4E 54 20 4C 41 42 45  |..l.. PRINT LABE|
00000DA0: 4C 53 00 BF 15 6D 00 53  46 B2 AB 31 3A 4D B2 33  |LS...m.SF..1:M.3|
00000DB0: 30 3A 9F 31 2C 30 34 3A  4C 4C B2 39 39 39 39 00  |0:.1,04:LL.9999.|
00000DC0: E8 15 6E 00 99 22 11 C5  49 4E 2D 53 50 41 4C 54  |..n.."..IN-SPALT|
00000DD0: 49 47 45 20 C5 54 49 4B  45 54 54 45 4E 22 3B 3A  |IGE .TIKETTEN";:|
00000DE0: 8D 31 33 38 3A 59 B2 49  00 0E 16 6F 00 99 22 11  |.138:Y.I...o..".|
00000DF0: D0 52 4F 42 45 41 55 53  44 52 55 43 4B 20 20 20  |.ROBEAUSDRUCK   |
00000E00: 22 3B 3A 8D 31 33 38 3A  8B 49 89 31 31 35 00 3B  |";:.138:.I.115.;|
00000E10: 16 70 00 50 24 B2 22 2D  2D 2D 2D 2D 2D 2D 2D 2D  |.p.P$."---------|
00000E20: 2D 45 52 53 54 45 20 DA  45 49 4C 45 2D 2D 2D 2D  |-ERSTE .EILE----|
00000E30: 2D 2D 2D 2D 2D 22 3A 8D  31 33 33 00 71 16 71 00  |-----":.133.q.q.|
00000E40: 81 49 B2 30 A4 31 3A 50  24 B2 22 2D 2D 2D 2D 2D  |.I.0.1:P$."-----|
00000E50: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000E60: 2D 2D 2D 2D 2D 2D 2D 2D  2D 22 3A 8D 31 33 33 3A  |---------":.133:|
00000E70: 82 00 AC 16 72 00 50 24  B2 22 2D 2D 2D 2D 2D 2D  |....r.P$."------|
00000E80: 2D 2D 2D 2D 4C 45 54 5A  54 45 20 DA 45 49 4C 45  |----LETZTE .EILE|
00000E90: 2D 2D 2D 2D 2D 2D 2D 2D  22 3A 81 49 B2 31 A4 33  |--------":.I.1.3|
00000EA0: 3A 8D 31 33 33 3A 82 3A  89 31 31 31 00 CD 16 73  |:.133:.:.111...s|
00000EB0: 00 8D 31 32 30 3A 8D 31  32 34 3A 89 38 3A 8F 20  |..120:.124:.8:. |
00000EC0: 4F 55 54 50 55 54 20 4C  41 42 45 4C 53 00 E4 16  |OUTPUT LABELS...|
00000ED0: 74 00 8F 20 50 52 49 4E  54 20 50 48 4F 4E 45 20  |t.. PRINT PHONE |
00000EE0: 42 4F 4F 4B 00 00 17 75  00 53 46 B2 30 3A 4D B2  |BOOK...u.SF.0:M.|
00000EF0: 33 36 3A 59 B2 31 3A 9F  31 2C 30 34 3A 4C B2 30  |36:Y.1:.1,04:L.0|
00000F00: 00 28 17 76 00 99 22 11  DA 45 49 4C 45 4E 20 50  |.(.v.."..EILEN P|
00000F10: 52 4F 20 D3 45 49 54 45  20 22 4C 30 22 9D 9D 9D  |RO .EITE "L0"...|
00000F20: 9D 9D 22 3B 3A 85 4C 4C  00 3E 17 77 00 8D 31 32  |..";:.LL.>.w..12|
00000F30: 30 3A 8D 31 32 34 3A 8D  31 33 35 3A 89 38 00 51  |0:.124:.135:.8.Q|
00000F40: 17 78 00 8F 20 47 45 54  20 43 41 54 45 47 4F 52  |.x.. GET CATEGOR|
00000F50: 59 00 89 17 79 00 99 22  93 D3 55 43 48 45 4E 20  |Y...y.."..UCHEN |
00000F60: 4E 41 43 48 3A 22 3A 81  49 B2 30 A4 36 3A 99 2C  |NACH:":.I.0.6:.,|
00000F70: 22 12 22 CA 28 C4 28 49  AA 31 29 2C 32 29 22 92  |".".(.(I.1),2)".|
00000F80: 20 22 4B 24 28 49 29 3A  82 00 C4 17 7A 00 99 2C  | "K$(I):....z..,|
00000F90: 22 12 38 92 20 C1 4C 4C  45 22 3A 99 22 11 C9 48  |".8. .LLE":."..H|
00000FA0: 52 45 20 D7 41 48 4C 20  20 22 3B 3A 58 24 B2 22  |RE .AHL  ";:X$."|
00000FB0: 31 32 33 34 35 36 37 38  22 3A 8D 31 33 39 3A 46  |12345678":.139:F|
00000FC0: B2 32 AE 49 00 E3 17 7B  00 8E 3A 8F 20 41 4C 4C  |.2.I...{..:. ALL|
00000FD0: 20 41 52 45 20 4F 52 2D  45 44 20 57 49 54 48 20  | ARE OR-ED WITH |
00000FE0: 31 32 38 00 F6 17 7C 00  8F 20 50 52 49 4E 54 20  |128...|.. PRINT |
00000FF0: 45 49 54 48 45 52 00 24  18 7D 00 4A B2 59 3A 81  |EITHER.$.}.J.Y:.|
00001000: 4B B2 30 A4 4E 58 3A 54  B2 54 25 28 4B 29 3A 8B  |K.0.NX:T.T%(K):.|
00001010: 28 46 AF C6 28 54 24 28  54 2C 39 29 29 29 B2 30  |(F..(T$(T,9))).0|
00001020: 89 31 33 31 00 41 18 7E  00 4A B2 59 AB 4A 3A 8D  |.131.A.~.J.Y.J:.|
00001030: 32 33 3A 8B 53 46 A7 41  24 28 4A 2C 34 29 B2 22  |23:.SF.A$(J,4)."|
00001040: 22 00 4E 18 7F 00 8B 4A  B3 59 89 31 33 31 00 69  |".N....J.Y.131.i|
00001050: 18 80 00 81 49 B2 30 A4  34 3A 50 24 B2 C8 28 41  |....I.0.4:P$..(A|
00001060: 24 28 30 2C 49 29 2C 4D  29 00 93 18 81 00 8B 4A  |$(0,I),M)......J|
00001070: A7 50 24 B2 50 24 AA C8  28 42 24 2C 4D AA 36 AB  |.P$.P$..(B$,M.6.|
00001080: C3 28 50 24 29 29 AA C8  28 41 24 28 31 2C 49 29  |.(P$))..(A$(1,I)|
00001090: 2C 4D 29 00 A3 18 82 00  8D 31 33 33 3A 82 3A 8D  |,M)......133:.:.|
000010A0: 31 33 33 00 D2 18 83 00  82 4B 3A 8B 4A B3 59 A7  |133......K:.J.Y.|
000010B0: 81 49 B2 30 A4 34 3A 50  24 B2 C8 28 41 24 28 30  |.I.0.4:P$..(A$(0|
000010C0: 2C 49 29 2C 4D 29 3A 8D  31 33 33 3A 82 3A 8D 31  |,I),M):.133:.:.1|
000010D0: 33 33 00 D8 18 84 00 8E  00 05 19 85 00 4C B2 4C  |33...........L.L|
000010E0: AA 31 3A 98 31 2C 22 11  22 AA 50 24 3A 50 24 B2  |.1:.1,".".P$:P$.|
000010F0: 22 22 3A 8B 4C B3 4C 4C  A7 8E 3A 8F 20 4C 49 4E  |"":.L.LL..:. LIN|
00001100: 45 20 4F 55 54 00 27 19  86 00 4C B2 4C AA 31 3A  |E OUT.'...L.L.1:|
00001110: 98 31 2C 22 11 22 AA 50  24 3A 50 24 B2 22 22 3A  |.1,".".P$:P$."":|
00001120: 8B 4C B3 4C 4C A7 8E 00  55 19 87 00 8B 4C A7 81  |.L.LL...U....L..|
00001130: 4C B2 4C A4 4C 50 AB 31  3A 98 31 3A 82 3A 4C B2  |L.L.LP.1:.1:.:L.|
00001140: 30 3A 8E 3A 8F 20 46 49  4E 49 53 48 20 54 48 45  |0:.:. FINISH THE|
00001150: 20 50 41 47 45 00 65 19  88 00 8F 20 55 54 49 4C  | PAGE.e.... UTIL|
00001160: 49 54 49 45 53 00 98 19  89 00 99 22 11 12 20 D7  |ITIES......".. .|
00001170: 45 49 54 45 52 20 4D 49  54 20 42 45 4C 49 45 42  |EITER MIT BELIEB|
00001180: 49 47 45 52 20 D4 41 53  54 45 22 3B 3A 8D 35 3A  |IGER .ASTE";:.5:|
00001190: 99 3A 99 22 93 22 3A 8E  00 A3 19 8A 00 58 24 B2  |.:.".":......X$.|
000011A0: 22 4A 4E 00 AE 19 8B 00  99 22 3F 20 22 3B 00 D6  |"JN......"? ";..|
000011B0: 19 8C 00 8D 35 3A 81 49  B2 31 A4 C3 28 58 24 29  |....5:.I.1..(X$)|
000011C0: 3A 8B 43 24 B3 B1 CA 28  58 24 2C 49 2C 31 29 A7  |:.C$...(X$,I,1).|
000011D0: 82 3A 89 31 34 30 00 EF  19 8D 00 49 B2 49 AB 31  |.:.140.....I.I.1|
000011E0: 3A 99 43 24 3B 3A 8B 43  B2 31 33 A7 99 3A 8E 00  |:.C$;:.C.13..:..|
000011F0: 0A 1A 8E 00 A1 57 24 3A  8B 57 24 B2 22 22 A7 99  |.....W$:.W$.""..|
00001200: 22 A4 9D 22 3B 3A 89 31  34 32 00 20 1A 8F 00 99  |"..";:.142. ....|
00001210: 22 20 9D 22 3B 3A 8B 57  24 B2 52 24 A7 99 3A 8E  |" .";:.W$.R$..:.|
00001220: 00 38 1A 90 00 8B 57 24  B2 C7 28 32 30 29 A7 99  |.8....W$..(20)..|
00001230: 57 24 3B 3A 89 31 34 30  00 41 1A 91 00 89 31 34  |W$;:.140.A....14|
00001240: 32 00 5C 1A 92 00 58 24  B2 22 22 3A 8F 20 49 4E  |2.\...X$."":. IN|
00001250: 50 55 54 20 41 20 53 54  52 49 4E 47 00 6C 1A 93  |PUT A STRING.l..|
00001260: 00 A1 43 24 3A 8B 43 24  89 31 34 37 00 7B 1A 94  |..C$:.C$.147.{..|
00001270: 00 8D 36 3A 8B 43 B2 31  33 A7 8E 00 AA 1A 95 00  |..6:.C.13.......|
00001280: 8B 43 B2 32 30 AF 58 24  B1 22 22 A7 99 43 24 3B  |.C.20.X$.""..C$;|
00001290: 3A 58 24 B2 C8 28 58 24  2C C3 28 58 24 29 AB 31  |:X$..(X$,.(X$).1|
000012A0: 29 3A 8F 20 44 45 4C 45  54 45 00 D2 1A 96 00 8B  |):. DELETE......|
000012B0: 28 31 32 37 AF 43 29 B3  33 32 89 31 34 38 3A 8F  |(127.C).32.148:.|
000012C0: 20 43 55 52 53 4F 52 20  43 48 41 52 41 43 54 45  | CURSOR CHARACTE|
000012D0: 52 53 00 FB 1A 97 00 8B  28 4B 25 28 43 29 B0 47  |RS......(K%(C).G|
000012E0: 29 A7 99 43 24 3B 3A 58  24 B2 58 24 AA 43 24 3A  |)..C$;:X$.X$.C$:|
000012F0: 8B C3 28 58 24 29 B1 B2  4D A7 8E 00 04 1B 98 00  |..(X$)..M.......|
00001300: 89 31 34 38 00 15 1B 99  00 8F 20 49 4E 49 54 49  |.148...... INITI|
00001310: 41 4C 49 5A 45 00 42 1B  9A 00 4C 30 B2 36 30 3A  |ALIZE.B...L0.60:|
00001320: 4C 50 B2 37 32 3A 4E 58  B2 AB 31 3A 52 24 B2 C7  |LP.72:NX..1:R$..|
00001330: 28 31 33 29 3A 48 24 B2  22 CE 41 4D 45 20 CC 49  |(13):H$.".AME .I|
00001340: 53 54 00 63 1B 9B 00 86  4B 25 28 32 35 35 29 2C  |ST.c....K%(255),|
00001350: 41 24 28 31 2C 34 29 2C  4B 24 28 36 29 2C 46 24  |A$(1,4),K$(6),F$|
00001360: 28 38 29 00 A4 1B 9C 00  99 22 93 8E 13 13 0F 11  |(8)......"......|
00001370: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
00001380: 11 11 11 11 11 11 11 11  22 A6 33 39 29 22 8F 05  |........".39)"..|
00001390: 22 3A 97 35 39 34 36 38  2C 31 34 3A 8F 20 46 4F  |":.59468,14:. FO|
000013A0: 52 4D 41 54 00 DD 1B 9D  00 97 35 33 32 37 32 2C  |RMAT......53272,|
000013B0: 32 B0 C2 28 35 33 32 37  32 29 3A 99 22 93 20 20  |2..(53272):.".  |
000013C0: 20 20 20 12 20 C3 4F 4D  4D 4F 44 4F 52 45 20 C1  |   . .OMMODORE .|
000013D0: C4 D2 C5 D3 D3 C5 CE 20  36 34 20 20 92 00 E6 1B  |....... 64  ....|
000013E0: 9E 00 8D 31 39 33 00 2A  1C 9F 00 99 22 11 12 CB  |...193.*...."...|
000013F0: 92 41 53 53 45 54 54 45  2C 20 12 C4 92 49 53 4B  |.ASSETTE, ...ISK|
00001400: 45 54 54 45 2C 20 4F 44  45 52 20 12 42 92 45 49  |ETTE, ODER .B.EI|
00001410: 44 45 53 22 3B 3A 58 24  B2 22 44 4B 42 22 3A 8D  |DES";:X$."DKB":.|
00001420: 31 33 39 3A 43 46 B2 49  AA 31 00 62 1C A0 00 81  |139:CF.I.1.b....|
00001430: 49 B2 33 32 A4 39 30 3A  87 4B 25 28 49 29 3A 82  |I.32.90:.K%(I):.|
00001440: 3A 81 49 B2 31 39 33 A4  32 31 38 3A 4B 25 28 49  |:.I.193.218:K%(I|
00001450: 29 B2 31 3A 82 3A 8F 20  43 48 41 52 20 41 52 52  |).1:.:. CHAR ARR|
00001460: 41 59 00 99 1C A1 00 42  24 B2 22 20 20 20 20 20  |AY.....B$."     |
00001470: 22 3A 81 49 B2 31 A4 35  3A 42 24 B2 42 24 AA 42  |":.I.1.5:B$.B$.B|
00001480: 24 3A 82 3A 42 30 24 B2  C8 28 42 24 2C 33 39 29  |$:.:B0$..(B$,39)|
00001490: 3A 9F 38 2C 30 38 2C 31  35 00 D3 1C A2 00 99 22  |:.8,08,15......"|
000014A0: 11 D4 41 47 45 53 44 41  54 55 4D 3A 20 22 3A 4D  |..AGESDATUM: ":M|
000014B0: B2 36 30 3A 47 B2 31 3A  8D 31 34 36 3A 47 B2 30  |.60:G.1:.146:G.0|
000014C0: 3A 44 24 B2 58 24 3A 8B  44 24 B2 22 22 A7 44 24  |:D$.X$:.D$."".D$|
000014D0: B2 22 2D 00 F7 1C A3 00  99 3A 81 49 B2 30 A4 38  |."-......:.I.0.8|
000014E0: 3A 87 46 24 28 49 29 3A  82 3A 8F 20 46 49 45 4C  |:.F$(I):.:. FIEL|
000014F0: 44 20 4E 41 4D 45 53 00  18 1D A4 00 81 49 B2 30  |D NAMES......I.0|
00001500: A4 36 3A 87 4B 24 28 49  29 3A 82 3A 8F 20 43 41  |.6:.K$(I):.:. CA|
00001510: 54 45 47 4F 52 49 45 53  00 51 1D A5 00 56 B2 B5  |TEGORIES.Q...V..|
00001520: 28 28 B8 28 30 29 AB 32  30 30 30 29 AD 31 37 30  |((.(0).2000).170|
00001530: 29 3A 86 54 24 28 56 2C  39 29 2C 54 25 28 56 29  |):.T$(V,9),T%(V)|
00001540: 3A 81 49 B2 30 A4 56 3A  54 25 28 49 29 B2 49 3A  |:.I.0.V:T%(I).I:|
00001550: 82 00 62 1D A6 00 8F 20  49 4E 50 55 54 20 46 49  |..b.... INPUT FI|
00001560: 4C 45 00 84 1D A7 00 8B  43 46 B1 32 A7 99 22 11  |LE......CF.2..".|
00001570: D6 4F 4E 20 C4 41 54 41  53 45 54 54 45 22 3B 3A  |.ON .ATASETTE";:|
00001580: 8D 31 33 38 00 B2 1D A8  00 8B 43 46 B2 32 B0 28  |.138......CF.2.(|
00001590: 43 46 B2 33 AF 49 B2 30  29 A7 8D 31 37 38 3A 91  |CF.3.I.0)..178:.|
000015A0: 49 89 38 3A 9F 31 2C 31  2C 30 2C 48 24 3A 89 31  |I.8:.1,1,0,H$:.1|
000015B0: 37 32 00 D5 1D A9 00 A0  31 3A 9F 31 2C 30 38 2C  |72......1:.1,08,|
000015C0: 32 2C 48 24 3A 84 38 2C  58 2C 58 24 3A 8B 58 B2  |2,H$:.8,X,X$:.X.|
000015D0: 30 89 31 37 32 00 E3 1D  AA 00 8D 31 37 38 3A 8B  |0.172......178:.|
000015E0: 49 89 38 00 1A 1E AB 00  99 22 11 CC 45 47 45 4E  |I.8......"..EGEN|
000015F0: 20 D3 49 45 20 42 49 54  54 45 20 44 49 45 20 C4  | .IE BITTE DIE .|
00001600: 49 53 4B 45 54 54 45 20  45 49 4E 20 55 4E 44 22  |ISKETTE EIN UND"|
00001610: 3A 8D 31 33 36 3A 89 31  36 39 00 24 1E AC 00 58  |:.136:.169.$...X|
00001620: 24 B2 22 22 00 45 1E AD  00 A1 23 31 2C 43 24 3A  |$."".E....#1,C$:|
00001630: 8B 43 24 B3 B1 52 24 A7  58 24 B2 58 24 AA 43 24  |.C$..R$.X$.X$.C$|
00001640: 3A 89 31 37 33 00 71 1E  AE 00 99 22 93 C5 4E 54  |:.173.q...."..NT|
00001650: 45 52 45 44 3A 20 12 22  58 24 3A 99 3A 8F 20 44  |ERED: ."X$:.:. D|
00001660: 41 54 45 4C 49 4E 45 20  46 52 4F 4D 20 46 49 4C  |ATELINE FROM FIL|
00001670: 45 00 A6 1E AF 00 81 49  B2 30 A4 56 3A 84 31 2C  |E......I.0.V:.1,|
00001680: 58 24 3A 8B 58 24 B2 22  5C 22 B0 53 54 B1 30 89  |X$:.X$."\".ST.0.|
00001690: 31 37 37 3A 8F 20 52 45  41 44 49 4E 47 20 43 4F  |177:. READING CO|
000016A0: 4D 50 4C 45 54 45 00 D7  1E B0 00 99 58 24 3A 54  |MPLETE......X$:T|
000016B0: 24 28 49 2C 30 29 B2 58  24 3A 81 4A B2 31 A4 39  |$(I,0).X$:.J.1.9|
000016C0: 3A 84 31 2C 54 24 28 49  2C 4A 29 3A 82 3A 54 25  |:.1,T$(I,J):.:T%|
000016D0: 28 49 29 B2 49 3A 82 00  F0 1E B1 00 4E 58 B2 49  |(I).I:......NX.I|
000016E0: AB 31 3A 89 38 3A 8F 20  43 4F 4D 50 4C 45 54 45  |.1:.8:. COMPLETE|
000016F0: 00 11 1F B2 00 99 22 11  CE 45 55 45 20 C4 41 54  |......"..EUE .AT|
00001700: 45 49 22 3B 3A 8D 31 33  38 3A 49 B2 31 AB 49 3A  |EI";:.138:I.1.I:|
00001710: 8E 00 33 1F B3 00 8F 20  41 43 43 45 50 54 41 42  |..3.... ACCEPTAB|
00001720: 4C 45 20 43 48 41 52 41  43 54 45 52 53 20 33 32  |LE CHARACTERS 32|
00001730: 2D 39 30 00 78 1F B4 00  83 31 2C 31 2C 30 2C 31  |-90.x....1,1,0,1|
00001740: 2C 31 2C 31 2C 31 2C 31  2C 31 2C 31 2C 31 2C 31  |,1,1,1,1,1,1,1,1|
00001750: 2C 30 2C 31 2C 31 2C 31  2C 31 2C 31 2C 31 2C 31  |,0,1,1,1,1,1,1,1|
00001760: 2C 31 2C 31 2C 31 2C 31  2C 31 2C 31 2C 30 2C 30  |,1,1,1,1,1,1,0,0|
00001770: 2C 31 2C 31 2C 31 2C 31  00 B3 1F B5 00 83 31 2C  |,1,1,1,1......1,|
00001780: 31 2C 31 2C 31 2C 31 2C  31 2C 31 2C 31 2C 31 2C  |1,1,1,1,1,1,1,1,|
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 31 2C 31 2C 31 2C  |1,1,1,1,1,1,1,1,|
000017B0: 31 2C 31 00 00 20 B6 00  83 22 CE 41 43 48 4E 41  |1,1.. ...".ACHNA|
000017C0: 4D 45 20 22 2C 22 D6 4F  52 4E 41 4D 45 20 20 20  |ME ",".ORNAME   |
000017D0: 22 2C 22 C1 4E 52 45 44  45 20 28 44 2E 48 2E 20  |",".NREDE (D.H. |
000017E0: C8 45 52 52 2C 20 C6 52  41 55 2C 20 C6 41 4D 2E  |.ERR, .RAU, .AM.|
000017F0: 2C 20 C6 49 52 4D 41 29  22 2C 22 D4 49 54 45 4C  |, .IRMA)",".ITEL|
00001800: 00 3C 20 B7 00 83 22 CF  52 47 41 4E 49 53 41 54  |.< ...".RGANISAT|
00001810: 49 4F 4E 22 2C 22 D3 54  52 41 53 53 45 22 2C 22  |ION",".TRASSE","|
00001820: D0 CC DA 2F CF 52 54 22  2C 22 D3 54 41 41 54 22  |.../.RT",".TAAT"|
00001830: 2C 22 D4 45 4C 45 46 4F  4E 4E 52 2E 00 53 20 B8  |,".ELEFONNR..S .|
00001840: 00 8F 20 53 45 56 45 4E  20 43 41 54 45 47 4F 52  |.. SEVEN CATEGOR|
00001850: 49 45 53 00 62 20 B9 00  83 20 22 C6 41 4D 49 4C  |IES.b ... ".AMIL|
00001860: 49 45 00 71 20 BA 00 83  20 22 C6 52 45 55 4E 44  |IE.q ... ".REUND|
00001870: 45 00 88 20 BB 00 83 20  22 C1 52 42 45 49 54 53  |E.. ... ".RBEITS|
00001880: 4B 4F 4C 4C 45 47 45 4E  00 96 20 BC 00 83 20 22  |KOLLEGEN.. ... "|
00001890: C1 45 52 5A 54 45 00 AB  20 BD 00 83 20 22 C9 4E  |.ERZTE.. ... ".N|
000018A0: 53 54 49 54 55 54 49 4F  4E 45 4E 00 B9 20 BE 00  |STITUTIONEN.. ..|
000018B0: 83 20 22 D3 43 48 55 4C  45 00 CA 20 BF 00 83 20  |. ".CHULE.. ... |
000018C0: 22 D3 4F 4E 53 54 49 47  45 53 00 DA 20 C0 00 99  |".ONSTIGES.. ...|
000018D0: 58 24 3A 8D 31 33 36 3A  89 38 00 F5 20 C1 00 8F  |X$:.136:.8.. ...|
000018E0: 20 43 4F 4C 4F 52 20 43  48 41 4E 47 45 20 52 4F  | COLOR CHANGE RO|
000018F0: 55 54 49 4E 45 00 19 21  C2 00 96 A5 43 28 58 29  |UTINE..!....C(X)|
00001900: B2 C2 28 58 29 AA 31 AA  31 36 AC 28 28 C2 28 58  |..(X).1.16.((.(X|
00001910: 29 AF 31 35 29 B2 31 35  29 00 3B 21 C3 00 99 22  |).15).15).;!..."|
00001920: 13 11 11 11 12 C6 31 92  3D 20 C6 41 52 42 45 20  |......1.= .ARBE |
00001930: 44 45 53 20 D2 41 4E 44  45 53 22 00 5C 21 C4 00  |DES .ANDES".\!..|
00001940: 99 22 11 11 12 C6 33 92  3D 20 C8 49 4E 54 45 52  |."....3.= .INTER|
00001950: 47 52 55 4E 44 2D C6 41  52 42 45 22 00 7D 21 C5  |GRUND-.ARBE".}!.|
00001960: 00 99 22 11 11 12 C6 35  92 3D 20 C6 41 52 42 45  |.."....5.= .ARBE|
00001970: 20 44 45 52 20 DA 45 49  43 48 45 4E 22 00 97 21  | DER .EICHEN"..!|
00001980: C6 00 99 22 11 11 12 D2  C5 D4 D5 D2 CE 92 3D 20  |..."..........= |
00001990: D7 45 49 54 45 52 22 00  A7 21 C7 00 A1 43 24 3A  |.EITER"..!...C$:|
000019A0: 8B 43 24 89 31 39 39 00  BA 21 C8 00 A1 43 24 3A  |.C$.199..!...C$:|
000019B0: 8B 43 24 B2 22 22 89 32  30 30 00 DF 21 C9 00 43  |.C$."".200..!..C|
000019C0: B2 C6 28 43 24 29 3A 8B  43 B2 31 33 35 A7 97 36  |..(C$):.C.135..6|
000019D0: 34 36 2C A5 43 28 36 34  36 29 3A 89 31 39 35 00  |46,.C(646):.195.|
000019E0: 0B 22 CA 00 43 B2 C6 28  43 24 29 3A 8B 43 B2 31  |."..C..(C$):.C.1|
000019F0: 33 33 B0 43 B2 31 33 34  A7 58 B2 35 33 31 34 37  |33.C.134.X.53147|
00001A00: AA 43 3A 97 58 2C A5 43  28 58 29 00 1A 22 CB 00  |.C:.X,.C(X).."..|
00001A10: 8B 43 B3 B1 31 33 89 31  39 39 00 20 22 CC 00 8E  |.C..13.199. "...|
00001A20: 00 00 00 5A                                       |...Z            |

....... ADRESS 64.-...."..":.53281,0:.53
280,0.A....G(14):.650,128.J....153.X....
C$:.C$.5.U....C$:.C$.." .";:C.F(C$):....
..."..";:.6..... 1:. MENU ENTRY.A....". 
     . COMMODORE ADRESSEN 64  ....V...."
FUNKTIONEN:.."......,".E.RFASSEN EINES N
AMENS/ADRESSE."....,".A.UFRUFEN VON NAME
N/ADRESSEN.F....,".D.RUCKEN VON NAMEN/AD
RESSEN.F....,".R.UNDSCHREIBEN-ADRESSEN..
....,".T.ELEFONBUCH AUSDRUCKEN......,".S
.PEICHERN DER NAMENS-LISTE......,".P.ROG
RAMMENDE......".WELCHE   ";:X$."PEADRST"
:.139......I.45,76,108,92,30,116.5....".
SEITENVORSCHUB";:.138:.I.0..1,04:L..1:.1
35: 1.J....OF..".SPEICHERN DER *NAME LIS
T*";:.138:.I.0..32..... 1:."..TSCHUESS!"
:....... FORMAT THE LINE.H...X$.T$(T,0):
Y$.T$(T,1):.C(Y$).1.X$.Y$." ".X$.....Y$.
T$(T,2):.C(Y$).1.X$.Y$." ".X$.....Y$.T$(
T,3):.C(Y$).1.X$.X$.", ".Y$.U...A$(J,0).
X$:.I.1.3:A$(J,I)."":Y$.T$(T,I.3):.C(Y$)
.1.A$(J,I).Y$......:.C(T$(T,7)).1.A$(J,3
).A$(J,3).", ".T$(T,7).....A$(J,4).T$(T,
8):X.F(T$(T,9)).127:....... OUTPUT FILE.
J....32:.8... .Y$.H$:.38:.E(X$).192...!.
.X.....".OF.0:.1,D$:....#..I.0.NX:T.T%(I
):.T$(T,0).5.$..J.0.9:.1,T$(T,J):.J,I.M.
%..1,"\":.:. COMPLETE.F.&.. OPEN FILE TO
 WRITE...'.DF.0:X.0:X$."":.CF.2..".AUF D
ATASETTE";:.138...(..CF.2.(CF.3.I.0)..1,
1,1,Y$:....).DF..1:L$."0:".Y$:.1,08,2,L$
:.8,X: 1:.X.44. .*..:.".DATEI EXISTIERT 
- UEBERSCHREIBEN";:.138:.I.X.1:..4.+..8,
"S"L$:.8,"I0.T.,..1,08,3,L$.",S,W":.8,X,
X$:..J.-.. CREATE AN ENTRY. ....NX..V.."
.. LEIDER KEIN PLATZ MEHR FREI!":.136:.8
.H./.NX.NX.1:K.NX:T.T%(K):T$(T,9).G(128)
...0.OF.1:M.39:Y.0:. GET NAME/ADDRESS...
1.J.0:.23.+.2..". ";:.I.1.30:.".";:.:.I.
1.5:."...";:.:.".";.V.3..I.1.30:."...";:
.:.I.1.5:."...";:.:."..W.4..I.0.4:."."A$
(J,I):.:.Y.8.60...5..".........."B0$:.".
"F$(Y):.B0$"....6..146:.C..13.50.X.7..:.
I(X$,1)." ".X$.H(X$,C(X$).1):.55...8..X$
."".T$(T,Y)."".Y.Y.1:.2.(Y.9).53,49...9.
.C(X$).1.59.A.:.X$."-":.Y.0..".LOESCHEN"
;:.138:.I.1.73,49.Z.;.T$(T,Y).X$:Y.Y.1:.
49..<.X$."1234567".R$:. GET CATEGORIES.
..=..".........KATEGORIEN:...>..I.0.6:.,
:.X.2.I..".";.H.?..I.1"."K$(I):....@..".
WIE ZUORDNEN/LOESCHEN?   .";:.140:I.2.I.
..A.X.(X.I)..(X.I):.X.128.61.5.B.T$(T,9)
.G(X):. COMPLETE EDIT.].C..".."B0$:.".AK
ZEPTIERT";:.138:.I.48.|.D..NX.1.8:. MUST
 BE IN ORDER...E.X$.T$(T,0):.K.NX..I.K.N
X.1:T%(I).T%(I.1):.:. REMOVE T...F..I.0.
NX.1:.T$(T%(I),0).X$..:. LOCATE T'S SLOT
.%.G..I.NX.J.I.1:.I.NX.J..1:T%(I).T%(I.1
):.:. MAKE ROOM FOR T.E.H.T%(I).T:.8:. I
NSERT T, EXIT.].I.. CLEAN UP DELETION.U.
J..I.0.9:T$(T,I)."":....K.NX.NX.1:.I.K.N
X:T%(I).T%(I.1):.:T%(I).T:.8...L.. SELEC
T/EDIT AN ENTRY...M..".":."SUCHEN NACH: 
 .N.ACHNAME...N..,"    .V.ORNAME...O..,"
    .P.LZ/ORT. .P..,"    .S.TAAT.8.Q..,"
    .T.ELEFONNR..C.R..".WELCHER  ";:X$."
NVLLLLPST":.139:F.I...S.M.40:.".SCHLUESS
ELWORT: ";:.146:Z$.X$:Z.C(Z$)...T.K.0:. 
SEARCH FOR FIELD.K.U.T.T%(K):X$.T$(T,F):
Y.0...V..I.1.C(X$).Z.1:Y.(J(X$,I,Z).Z$).
Y:.:.Y.0.89...W.J.0:.23:.".":.I.0.4:.A$(
0,I):..C.X..".WEITERSUCHEN    ";:.138:.I
.91.W.Y.K.K.1:.K..NX.85...Z..:.".ALLE EI
NGABEN UEBERPRUEFT":.136:.8...[..".AENDE
RN";:.138:.I.8:.48...\.. FILE FOR WORD M
ACHINE...]..".NAME DER DATEI:   ";:M.16:
.146:.X$."".93...^.Y$.X$:.38:.E(X$).192.
.._..X.8.D.`..120:.".SPEZIELLE AUSWAHL  
";:.138:SF.I:J.0:K.0.F.A.T.T%(K):.(F.F(T
$(T,9))).0.103.|.B..SF..T$(T,0):.101...C
..23:.".":.I.0.3:.A$(J,I):..A.D..".UEBER
NEHMEN     ";:.138:.I.103.W.E.. OUTPUT T
HE FILE...F..I.0.7:.1,T$(T,I):.:DF..(DF)
...G.K.K.1:.K..NX.97.?.H..1,"\":.DF..1..
SF.1.107,8:.  -1=EMPTY DISCFILE.J.I..".K
EINE ADRESSE IN DIESER KATEGORIE."...J. 
1:.8,"S0:"Y$:.8,"I0...K..136:.8...L.. PR
INT LABELS...M.SF..1:M.30:.1,04:LL.9999.
..N..".EIN-SPALTIGE ETIKETTEN";:.138:Y.I
...O..".PROBEAUSDRUCK   ";:.138:.I.115.;
.P.P$."----------ERSTE ZEILE---------":.
133.Q.Q..I.0.1:P$."---------------------
---------":.133:....R.P$."----------LETZ
TE ZEILE--------":.I.1.3:.133:.:.111.M.S
..120:.124:.8:. OUTPUT LABELS...T.. PRIN
T PHONE BOOK...U.SF.0:M.36:Y.1:.1,04:L.0
.(.V..".ZEILEN PRO SEITE "L0".....";:.LL
.>.W..120:.124:.135:.8.Q.X.. GET CATEGOR
Y...Y..".SUCHEN NACH:":.I.0.6:.,"."J(D(I
.1),2)". "K$(I):..D.Z..,".8. ALLE":.".IH
RE WAHL  ";:X$."12345678":.139:F.2.I...{
..:. ALL ARE OR-ED WITH 128...|.. PRINT 
EITHER.$.}.J.Y:.K.0.NX:T.T%(K):.(F.F(T$(
T,9))).0.131.A.~.J.Y.J:.23:.SF.A$(J,4)."
".N...J.Y.131.I....I.0.4:P$.H(A$(0,I),M
)......J.P$.P$.H(B$,M.6.C(P$)).H(A$(1,I)
,M)......133:.:.133.R....K:.J.Y..I.0.4:P
$.H(A$(0,I),M):.133:.:.133.X.........L.L
.1:.1,".".P$:P$."":.L.LL..:. LINE OUT.'.
..L.L.1:.1,".".P$:P$."":.L.LL...U....L..
L.L.LP.1:.1:.:L.0:.:. FINISH THE PAGE.E.
... UTILITIES......".. WEITER MIT BELIEB
IGER TASTE";:.5:.:.".":......X$."JN.....
."? ";.V....5:.I.1.C(X$):.C$..J(X$,I,1).
.:.140.....I.I.1:.C$;:.C.13..:.......W$:
.W$."".."..";:.142. ...." .";:.W$.R$..:.
.8....W$.G(20)..W$;:.140.A....142.\...X$
."":. INPUT A STRING.L....C$:.C$.147.{..
..6:.C.13........C.20.X$.""..C$;:X$.H(X$
,C(X$).1):. DELETE.R....(127.C).32.148:.
 CURSOR CHARACTERS......(K%(C).G)..C$;:X
$.X$.C$:.C(X$)..M........148...... INITI
ALIZE.B...L0.60:LP.72:NX..1:R$.G(13):H$.
"NAME LIST.C....K%(255),A$(1,4),K$(6),F$
(8)......"..............................
".39)"..":.59468,14:. FORMAT......53272,
2.B(53272):.".     . COMMODORE ADRESSEN 
64  .......193.*...."..K.ASSETTE, .D.ISK
ETTE, ODER .B.EIDES";:X$."DKB":.139:CF.I
.1.B. ..I.32.90:.K%(I):.:.I.193.218:K%(I
).1:.:. CHAR ARRAY.....B$."     ":.I.1.5
:B$.B$.B$:.:B0$.H(B$,39):.8,08,15.S...."
.TAGESDATUM: ":M.60:G.1:.146:G.0:D$.X$:.
D$."".D$."-......:.I.0.8:.F$(I):.:. FIEL
D NAMES......I.0.6:.K$(I):.:. CATEGORIES
.Q...V..((.(0).2000).170):.T$(V,9),T%(V)
:.I.0.V:T%(I).I:..B.... INPUT FILE......
CF.2..".VON DATASETTE";:.138......CF.2.(
CF.3.I.0)..178:.I.8:.1,1,0,H$:.172.U... 
1:.1,08,2,H$:.8,X,X$:.X.0.172......178:.
I.8......".LEGEN SIE BITTE DIE DISKETTE 
EIN UND":.136:.169.$...X$."".E....#1,C$:
.C$..R$.X$.X$.C$:.173.Q....".ENTERED: ."
X$:.:. DATELINE FROM FILE......I.0.V:.1,
X$:.X$."\".ST.0.177:. READING COMPLETE.W
....X$:T$(I,0).X$:.J.1.9:.1,T$(I,J):.:T%
(I).I:......NX.I.1:.8:. COMPLETE......".
NEUE DATEI";:.138:I.1.I:..3.... ACCEPTAB
LE CHARACTERS 32-90.X....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.. ..."NACHNA
ME ","VORNAME   ","ANREDE (D.H. HERR, FR
AU, FAM., FIRMA)","TITEL.< ..."ORGANISAT
ION","STRASSE","PLZ/ORT","STAAT","TELEFO
NNR..S ... SEVEN CATEGORIES.B ... "FAMIL
IE.Q ... "FREUNDE.. ... "ARBEITSKOLLEGEN
.. ... "AERZTE.. ... "INSTITUTIONEN.. ..
. "SCHULE.J ... "SONSTIGES.Z ...X$:.136:
.8.. A.. COLOR CHANGE ROUTINE..!B...C(X)
.B(X).1.16.((B(X).15).15).;!C..".....F1.
= FARBE DES RANDES".\!D.."...F3.= HINTER
GRUND-FARBE".}!E.."...F5.= FARBE DER ZEI
CHEN"..!F.."...RETURN.= WEITER"..!G..C$:
.C$.199..!H..C$:.C$."".200..!I.C.F(C$):.
C.135..646,.C(646):.195.."J.C.F(C$):.C.1
33.C.134.X.53147.C:.X,.C(X).."K..C..13.1
99. "L.....Z

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL