ADRESSVERWALTUNG
FILE INFORMATION
FILENAME(S): ADRESSVERWALTUNG
FILE TYPE(S): PRG
FILE SIZE: 3.7K
FIRST SEEN: 2025-11-30 21:23:21
APPEARS ON: 1 disk(s)
FILE HASH
be484ea33ac00f4369fb014c9838c9908227a6d84e7adeee9593f36a7efed2cd
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 13 1 | ADRESSVERWALTUNG | PRG | DuncanTwain | 6 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0E 08 04 00 99 22 93 22 3A 99 3A 99 00 3C |.......".":.:..<|
00000010: 08 05 00 99 22 20 20 20 20 20 20 20 20 12 2A 2A |...." .**|
00000020: 2A 20 20 20 41 44 52 45 53 53 45 4E 44 41 54 45 |* ADRESSENDATE|
00000030: 49 20 20 2A 2A 2A 92 22 3A 99 3A 99 00 4C 08 06 |I ***.":.:..L..|
00000040: 00 81 20 5A 5A B2 31 A4 32 30 30 30 00 8E 08 0A |.. ZZ.1.2000....|
00000050: 00 86 4E 41 24 28 31 30 30 29 2C 41 44 24 28 31 |..NA$(100),AD$(1|
00000060: 30 30 29 2C 41 4E 28 31 30 30 29 2C 54 45 24 28 |00),AN(100),TE$(|
00000070: 31 30 30 29 2C 41 4F 28 31 30 30 29 2C 57 49 24 |100),AO(100),WI$|
00000080: 28 31 30 30 29 2C 44 41 24 28 31 30 30 29 00 97 |(100),DA$(100)..|
00000090: 08 14 00 4E 46 B2 30 00 C2 08 1E 00 99 22 20 20 |...NF.0......" |
000000A0: 20 20 20 20 20 20 20 20 20 20 12 2A 2A 2A 20 20 | .*** |
000000B0: 4D 45 4E 55 45 20 20 2A 2A 2A 92 22 3A 99 3A 99 |MENUE ***.":.:.|
000000C0: 3A 99 00 E2 08 28 00 99 22 12 20 31 2D 4C 4F 41 |:....(..". 1-LOA|
000000D0: 44 20 4B 55 4E 44 45 4E 20 20 20 20 20 20 20 20 |D KUNDEN |
000000E0: 92 22 00 02 09 32 00 99 22 12 20 32 2D 53 41 56 |."...2..". 2-SAV|
000000F0: 45 20 4B 55 4E 44 45 4E 20 20 20 20 20 20 20 20 |E KUNDEN |
00000100: 92 22 00 22 09 3C 00 99 22 12 20 33 2D 4C 49 53 |.".".<..". 3-LIS|
00000110: 54 45 20 44 45 52 20 4B 55 4E 44 45 4E 20 20 20 |TE DER KUNDEN |
00000120: 92 22 00 42 09 46 00 99 22 12 20 34 2D 53 55 43 |.".B.F..". 4-SUC|
00000130: 48 45 20 4E 41 43 48 20 4B 44 2E 4E 41 4D 45 20 |HE NACH KD.NAME |
00000140: 92 22 00 62 09 50 00 99 22 12 20 35 2D 53 55 43 |.".b.P..". 5-SUC|
00000150: 48 45 20 4E 41 43 48 20 4B 44 2E 4E 52 2E 20 20 |HE NACH KD.NR. |
00000160: 92 22 00 82 09 5A 00 99 22 12 20 36 2D 41 45 4E |."...Z..". 6-AEN|
00000170: 44 45 52 4E 20 4B 44 2E 2D 4E 41 4D 45 20 20 20 |DERN KD.-NAME |
00000180: 92 22 00 A2 09 64 00 99 22 12 20 37 2D 4E 45 55 |."...d..". 7-NEU|
00000190: 45 52 20 4B 44 2E 2D 4E 41 4D 45 20 20 20 20 20 |ER KD.-NAME |
000001A0: 92 22 00 C2 09 6E 00 99 22 12 20 38 2D 4C 4F 45 |."...n..". 8-LOE|
000001B0: 53 43 48 45 20 41 4C 4C 45 20 4B 44 2E 20 20 20 |SCHE ALLE KD. |
000001C0: 92 22 00 E2 09 78 00 99 22 12 20 39 2D 4C 4F 45 |."...x..". 9-LOE|
000001D0: 53 43 48 45 20 45 49 4E 45 4E 20 4B 44 2E 20 20 |SCHE EINEN KD. |
000001E0: 92 22 00 02 0A 7D 00 99 22 12 31 30 2D 45 4E 44 |."...}..".10-END|
000001F0: 45 20 44 45 53 20 50 52 4F 47 52 41 4D 4D 2E 20 |E DES PROGRAMM. |
00000200: 92 22 00 1C 0A 82 00 85 20 22 12 57 45 4C 43 48 |."...... ".WELCH|
00000210: 45 20 4E 55 4D 4D 45 52 22 3B 43 48 00 33 0A 8C |E NUMMER";CH.3..|
00000220: 00 43 48 B2 B5 28 43 48 29 3A 8B 20 43 48 B2 31 |.CH..(CH):. CH.1|
00000230: 30 A7 80 00 45 0A A0 00 8B 43 48 B3 31 B0 43 48 |0...E....CH.1.CH|
00000240: B1 39 A7 33 30 00 7B 0A AA 00 91 43 48 8D 31 30 |.9.30.{....CH.10|
00000250: 30 30 2C 32 30 30 30 2C 33 30 30 30 2C 35 30 30 |00,2000,3000,500|
00000260: 30 2C 36 30 30 30 2C 37 30 30 30 2C 38 30 30 30 |0,6000,7000,8000|
00000270: 2C 39 30 30 30 2C 31 30 30 30 30 00 92 0A B4 00 |,9000,10000.....|
00000280: 85 22 12 46 4F 52 54 53 45 54 5A 45 4E 22 3B 41 |.".FORTSETZEN";A|
00000290: 41 24 00 9A 0A BE 00 89 33 30 00 A3 0A E8 03 99 |A$......30......|
000002A0: 22 93 22 00 D3 0A ED 03 99 22 93 22 3A 99 22 12 |"."......".":.".|
000002B0: 52 45 54 55 52 4E 20 57 45 4E 4E 20 42 41 4E 44 |RETURN WENN BAND|
000002C0: 20 50 4F 53 49 54 49 4F 4E 49 45 52 54 22 3A 85 | POSITIONIERT":.|
000002D0: 58 58 24 00 F6 0A EE 03 99 22 12 41 44 52 45 53 |XX$......".ADRES|
000002E0: 53 45 4E 4C 49 53 54 45 20 57 49 52 44 20 47 45 |SENLISTE WIRD GE|
000002F0: 53 55 43 48 54 22 00 11 0B EF 03 99 3A 99 3A 99 |SUCHT"......:.:.|
00000300: 3A 99 22 12 42 49 54 54 45 20 57 41 52 54 45 4E |:.".BITTE WARTEN|
00000310: 22 00 1C 0B F0 03 9F 31 2C 31 2C 30 00 26 0B F1 |"......1,1,0.&..|
00000320: 03 84 31 2C 4E 46 00 32 0B F2 03 81 58 B2 31 A4 |..1,NF.2....X.1.|
00000330: 4E 46 00 40 0B FC 03 84 31 2C 4E 41 24 28 58 29 |NF.@....1,NA$(X)|
00000340: 00 4D 0B FD 03 84 31 2C 41 4E 28 58 29 00 5B 0B |.M....1,AN(X).[.|
00000350: FE 03 84 31 2C 41 44 24 28 58 29 00 69 0B FF 03 |...1,AD$(X).i...|
00000360: 84 31 2C 54 45 24 28 58 29 00 76 0B 00 04 84 31 |.1,TE$(X).v....1|
00000370: 2C 41 4F 28 58 29 00 84 0B 01 04 84 31 2C 57 49 |,AO(X)......1,WI|
00000380: 24 28 58 29 00 92 0B 02 04 84 31 2C 44 41 24 28 |$(X)......1,DA$(|
00000390: 58 29 00 98 0B 06 04 82 00 A1 0B 10 04 A0 31 3A |X)............1:|
000003A0: 8E 00 AA 0B D0 07 99 22 93 22 00 E1 0B D5 07 99 |......."."......|
000003B0: 22 93 22 3A 99 22 12 44 52 55 45 43 4B 45 20 52 |".":.".DRUECKE R|
000003C0: 45 54 55 52 4E 20 57 45 4E 4E 20 42 41 4E 44 20 |ETURN WENN BAND |
000003D0: 50 4F 53 49 54 49 4F 4E 49 45 52 54 22 3A 85 41 |POSITIONIERT":.A|
000003E0: 24 00 08 0C D6 07 99 22 12 41 44 52 45 53 53 45 |$......".ADRESSE|
000003F0: 4E 4C 49 53 54 45 20 57 49 52 44 20 47 45 53 50 |NLISTE WIRD GESP|
00000400: 45 49 43 48 45 52 54 22 00 26 0C D7 07 99 3A 99 |EICHERT".&....:.|
00000410: 3A 99 3A 99 3A 99 22 12 42 49 54 54 45 20 57 41 |:.:.:.".BITTE WA|
00000420: 52 54 45 4E 21 22 00 31 0C D8 07 9F 31 2C 31 2C |RTEN!".1....1,1,|
00000430: 32 00 3B 0C D9 07 98 31 2C 4E 46 00 47 0C DA 07 |2.;....1,NF.G...|
00000440: 81 58 B2 31 A4 4E 46 00 55 0C E4 07 98 31 2C 4E |.X.1.NF.U....1,N|
00000450: 41 24 28 58 29 00 62 0C E5 07 98 31 2C 41 4E 28 |A$(X).b....1,AN(|
00000460: 58 29 00 70 0C E6 07 98 31 2C 41 44 24 28 58 29 |X).p....1,AD$(X)|
00000470: 00 7E 0C E7 07 98 31 2C 54 45 24 28 58 29 00 8B |.~....1,TE$(X)..|
00000480: 0C E8 07 98 31 2C 41 4F 28 58 29 00 99 0C E9 07 |....1,AO(X).....|
00000490: 98 31 2C 57 49 24 28 58 29 00 A7 0C EA 07 98 31 |.1,WI$(X)......1|
000004A0: 2C 44 41 24 28 58 29 00 AD 0C EE 07 82 00 B7 0C |,DA$(X).........|
000004B0: F8 07 A0 20 31 3A 8E 00 DA 0C B8 0B 99 22 93 12 |... 1:......."..|
000004C0: 41 44 52 45 53 53 45 4E 4C 49 53 54 45 20 44 52 |ADRESSENLISTE DR|
000004D0: 55 43 4B 45 4E 22 3A 85 5A 24 00 EB 0C B9 0B 8B |UCKEN":.Z$......|
000004E0: 5A 24 B2 22 4A 22 A7 34 30 30 30 00 FC 0C BD 0B |Z$."J".4000.....|
000004F0: 99 22 93 22 3A 81 58 B2 31 A4 4E 46 00 08 0D C2 |.".":.X.1.NF....|
00000500: 0B 99 4E 41 24 28 58 29 00 1F 0D CC 0B 8B 58 AD |..NA$(X)......X.|
00000510: 31 30 B2 B5 28 58 AD 31 30 29 A7 33 30 35 30 00 |10..(X.10).3050.|
00000520: 25 0D D6 0B 82 00 2B 0D E0 0B 8E 00 46 0D EA 0B |%.....+.....F...|
00000530: 85 22 12 44 52 55 45 43 4B 45 20 52 45 54 55 52 |.".DRUECKE RETUR|
00000540: 4E 22 3B 41 41 24 00 50 0D F4 0B 89 33 30 33 30 |N";AA$.P....3030|
00000550: 00 59 0D A0 0F 9F 34 2C 34 00 65 0D AA 0F 81 58 |.Y....4,4.e....X|
00000560: B2 31 A4 4E 46 00 A2 0D B4 0F 98 34 2C C7 28 31 |.1.NF......4,.(1|
00000570: 37 29 4E 41 24 28 58 29 3B C7 28 31 36 29 22 32 |7)NA$(X);.(16)"2|
00000580: 30 22 2C 41 4E 28 58 29 3B C7 28 31 36 29 22 33 |0",AN(X);.(16)"3|
00000590: 30 22 2C 41 4F 28 58 29 3B C7 28 31 36 29 22 35 |0",AO(X);.(16)"5|
000005A0: 32 22 00 B1 0D B5 0F 99 23 34 3B 57 49 24 28 58 |2"......#4;WI$(X|
000005B0: 29 00 C8 0D BE 0F 8B 58 AD 31 30 B2 B5 28 58 AD |)......X.10..(X.|
000005C0: 31 30 29 A7 34 30 36 30 00 CE 0D C8 0F 82 00 D7 |10).4060........|
000005D0: 0D D2 0F A0 34 3A 8E 00 F2 0D DC 0F 85 22 12 44 |....4:.......".D|
000005E0: 52 55 45 43 4B 45 20 52 45 54 55 52 4E 22 3B 41 |RUECKE RETURN";A|
000005F0: 41 24 00 FD 0D E6 0F 89 20 34 30 34 30 00 15 0E |A$...... 4040...|
00000600: 94 11 99 22 12 41 44 52 45 53 53 45 20 44 52 55 |...".ADRESSE DRU|
00000610: 43 4B 45 4E 22 00 2A 0E 9E 11 85 46 24 3A 8B 46 |CKEN".*....F$:.F|
00000620: 24 B2 22 4A 22 A7 34 36 30 30 00 38 0E A8 11 8B |$."J".4600.8....|
00000630: 46 24 B2 22 4E 22 A7 8E 00 41 0E F8 11 9F 34 2C |F$."N"...A....4,|
00000640: 34 00 55 0E 02 12 99 23 34 2C C7 28 31 37 29 4E |4.U....#4,.(17)N|
00000650: 41 24 28 58 29 00 74 0E 0C 12 99 23 34 2C C7 28 |A$(X).t....#4,.(|
00000660: 31 37 29 41 44 24 28 58 29 3B 22 20 22 3B 54 45 |17)AD$(X);" ";TE|
00000670: 24 28 58 29 00 7D 0E 16 12 99 23 34 2C 00 9B 0E |$(X).}....#4,...|
00000680: 20 12 99 23 34 2C C7 28 31 37 29 41 4F 28 58 29 | ..#4,.(17)AO(X)|
00000690: 3B 22 20 22 3B 57 49 24 28 58 29 00 A3 0E 25 12 |;" ";WI$(X)...%.|
000006A0: 99 23 34 00 AB 0E 26 12 99 23 34 00 B2 0E 2A 12 |.#4...&..#4...*.|
000006B0: A0 34 00 B8 0E 34 12 8E 00 D5 0E 88 13 99 22 93 |.4...4........".|
000006C0: 12 4E 41 4D 45 20 44 45 53 20 4B 55 4E 44 45 4E |.NAME DES KUNDEN|
000006D0: 22 3A 85 4E 24 00 E1 0E 92 13 81 58 B2 31 A4 4E |":.N$......X.1.N|
000006E0: 46 00 FF 0E 9C 13 8B 20 C8 28 4E 41 24 28 58 29 |F...... .(NA$(X)|
000006F0: 2C C3 28 4E 24 29 29 B2 4E 24 A7 35 30 36 30 00 |,.(N$)).N$.5060.|
00000700: 05 0F A6 13 82 00 23 0F B0 13 99 22 12 4B 55 4E |......#....".KUN|
00000710: 44 45 20 4E 49 43 48 54 20 47 45 46 55 4E 44 45 |DE NICHT GEFUNDE|
00000720: 4E 21 22 00 29 0F BA 13 8E 00 40 0F C4 13 99 22 |N!".).....@...."|
00000730: 12 4B 55 4E 44 45 20 47 45 46 55 4E 44 45 4E 22 |.KUNDE GEFUNDEN"|
00000740: 00 5D 0F CE 13 99 22 4B 44 2E 2D 4E 52 2E 22 3B |.]...."KD.-NR.";|
00000750: 41 4E 28 58 29 3A 99 4E 41 24 28 58 29 00 73 0F |AN(X):.NA$(X).s.|
00000760: D8 13 99 41 44 24 28 58 29 3B 22 20 22 54 45 24 |...AD$(X);" "TE$|
00000770: 28 58 29 00 79 0F DD 13 99 00 8E 0F E2 13 99 41 |(X).y..........A|
00000780: 4F 28 58 29 3B 22 20 22 57 49 24 28 58 29 00 A8 |O(X);" "WI$(X)..|
00000790: 0F EC 13 99 22 54 45 4C 45 46 2E 20 22 3B 22 20 |...."TELEF. ";" |
000007A0: 22 3B 44 41 24 28 58 29 00 B2 0F F6 13 8D 34 35 |";DA$(X)......45|
000007B0: 30 30 00 B8 0F 0A 14 8E 00 DB 0F 70 17 99 22 93 |00.........p..".|
000007C0: 22 3A 85 22 12 57 49 45 20 49 53 54 20 44 49 45 |":.".WIE IST DIE|
000007D0: 20 4B 44 2E 2D 4E 52 2E 22 3B 4E 00 E7 0F 7A 17 | KD.-NR.";N...z.|
000007E0: 81 58 B2 31 A4 4E 46 00 FA 0F 84 17 8B 20 41 4E |.X.1.NF...... AN|
000007F0: 28 58 29 B2 4E A7 36 30 36 30 00 00 10 8E 17 82 |(X).N.6060......|
00000800: 00 1E 10 98 17 99 22 12 4B 55 4E 44 45 20 4E 49 |......".KUNDE NI|
00000810: 43 48 54 20 47 45 46 55 4E 44 45 4E 21 22 00 24 |CHT GEFUNDEN!".$|
00000820: 10 A2 17 8E 00 3B 10 AC 17 99 22 12 4B 55 4E 44 |.....;....".KUND|
00000830: 45 20 47 45 46 55 4E 44 45 4E 22 00 5A 10 B6 17 |E GEFUNDEN".Z...|
00000840: 99 22 12 4B 44 2E 2D 4E 52 2E 22 3B 20 41 4E 28 |.".KD.-NR."; AN(|
00000850: 58 29 3A 99 4E 41 24 28 58 29 00 70 10 C0 17 99 |X):.NA$(X).p....|
00000860: 41 44 24 28 58 29 3B 22 20 22 54 45 24 28 58 29 |AD$(X);" "TE$(X)|
00000870: 00 76 10 C5 17 99 00 8A 10 CA 17 99 41 4F 28 58 |.v..........AO(X|
00000880: 29 20 3B 20 57 49 24 28 58 29 00 A2 10 D4 17 99 |) ; WI$(X)......|
00000890: 22 54 45 4C 45 46 2E 3D 22 20 20 20 44 41 24 28 |"TELEF.=" DA$(|
000008A0: 58 29 00 AC 10 DE 17 8D 34 35 30 30 00 B2 10 F2 |X)......4500....|
000008B0: 17 8E 00 D3 10 58 1B 99 22 93 12 57 45 4C 43 48 |.....X.."..WELCH|
000008C0: 45 52 20 4B 55 4E 44 45 4E 20 4E 41 4D 45 22 3A |ER KUNDEN NAME":|
000008D0: 85 4E 24 00 DF 10 62 1B 81 58 B2 31 A4 4E 46 00 |.N$...b..X.1.NF.|
000008E0: FD 10 6C 1B 8B 20 C8 28 4E 41 24 28 58 29 2C C3 |..l.. .(NA$(X),.|
000008F0: 28 4E 24 29 29 B2 4E 24 A7 37 30 36 30 00 03 11 |(N$)).N$.7060...|
00000900: 76 1B 82 00 21 11 80 1B 99 22 12 4B 55 4E 44 45 |v...!....".KUNDE|
00000910: 20 4E 49 43 48 54 20 47 45 46 55 4E 44 45 4E 21 | NICHT GEFUNDEN!|
00000920: 22 00 27 11 8A 1B 8E 00 3E 11 94 1B 99 22 12 4B |".'.....>....".K|
00000930: 55 4E 44 45 20 47 45 46 55 4E 44 45 4E 22 00 5C |UNDE GEFUNDEN".\|
00000940: 11 9E 1B 99 22 4B 55 4E 44 45 20 42 45 56 4F 52 |...."KUNDE BEVOR|
00000950: 20 41 45 4E 44 45 52 55 4E 47 3A 22 00 7A 11 A8 | AENDERUNG:".z..|
00000960: 1B 99 22 4B 44 2E 2D 4E 52 2E 22 3B 20 41 4E 28 |.."KD.-NR."; AN(|
00000970: 58 29 3A 99 4E 41 24 28 58 29 00 91 11 B2 1B 99 |X):.NA$(X)......|
00000980: 41 44 24 28 58 29 3B 22 20 22 3B 54 45 24 28 58 |AD$(X);" ";TE$(X|
00000990: 29 00 97 11 B7 1B 99 00 AB 11 BC 1B 99 41 4F 28 |)............AO(|
000009A0: 58 29 20 3B 20 57 49 24 28 58 29 00 C3 11 C6 1B |X) ; WI$(X).....|
000009B0: 99 22 54 45 4C 45 46 2E 3D 22 20 3B 20 44 41 24 |."TELEF.=" ; DA$|
000009C0: 28 58 29 00 CD 11 D0 1B 99 3A 99 3A 99 00 EE 11 |(X)......:.:....|
000009D0: E4 1B 99 22 57 41 53 20 53 4F 4C 4C 20 47 45 41 |..."WAS SOLL GEA|
000009E0: 45 4E 44 45 52 54 20 57 45 52 44 45 4E 22 00 2D |ENDERT WERDEN".-|
000009F0: 12 E5 1B 99 22 31 3D 4E 41 4D 45 2C 32 3D 4B 44 |...."1=NAME,2=KD|
00000A00: 2E 2D 4E 52 2E 2C 33 3D 53 54 52 41 53 53 45 2C |.-NR.,3=STRASSE,|
00000A10: 34 3D 48 41 55 53 2D 4E 52 2E 2C 35 3D 50 20 4C |4=HAUS-NR.,5=P L|
00000A20: 20 5A 2C 36 3D 57 4F 48 4E 4F 52 54 22 00 41 12 | Z,6=WOHNORT".A.|
00000A30: E6 1B 99 22 37 3D 54 45 4C 45 46 2E 2D 4E 52 2E |..."7=TELEF.-NR.|
00000A40: 22 00 49 12 E7 1B 85 43 48 00 66 12 EE 1B 43 48 |".I....CH.f...CH|
00000A50: B2 B5 28 43 48 29 3A 8B 43 48 B3 31 B0 43 48 B1 |..(CH):.CH.1.CH.|
00000A60: 37 A7 37 30 37 30 00 91 12 F8 1B 91 43 48 89 37 |7.7070......CH.7|
00000A70: 31 37 30 2C 37 31 39 30 2C 37 32 31 30 2C 37 32 |170,7190,7210,72|
00000A80: 33 30 2C 37 32 35 30 2C 37 32 37 30 2C 37 32 39 |30,7250,7270,729|
00000A90: 30 00 B4 12 02 1C 99 22 93 22 3A 99 22 12 44 45 |0......".":.".DE|
00000AA0: 52 20 4E 45 55 45 20 4E 41 4D 45 22 3A 85 4E 41 |R NEUE NAME":.NA|
00000AB0: 24 28 58 29 00 BE 12 0C 1C 89 37 33 30 30 00 DA |$(X)......7300..|
00000AC0: 12 16 1C 99 22 93 4E 45 55 45 20 4B 44 2E 2D 4E |....".NEUE KD.-N|
00000AD0: 52 2E 22 3A 85 41 4E 28 58 29 00 E4 12 20 1C 89 |R.":.AN(X)... ..|
00000AE0: 37 33 30 30 00 06 13 2A 1C 99 22 93 20 44 49 45 |7300...*..". DIE|
00000AF0: 20 4E 45 55 45 20 53 54 52 41 53 53 45 22 3A 85 | NEUE STRASSE":.|
00000B00: 41 44 24 28 58 29 00 10 13 34 1C 89 37 33 30 30 |AD$(X)...4..7300|
00000B10: 00 2F 13 3E 1C 99 22 93 20 4E 45 55 45 20 48 41 |./.>..". NEUE HA|
00000B20: 55 53 2D 4E 52 2E 22 3A 85 54 45 24 28 58 29 00 |US-NR.":.TE$(X).|
00000B30: 39 13 48 1C 89 37 33 30 30 00 55 13 52 1C 99 22 |9.H..7300.U.R.."|
00000B40: 93 20 4E 45 55 45 20 50 20 4C 20 5A 20 22 3A 85 |. NEUE P L Z ":.|
00000B50: 41 4F 28 58 29 00 5F 13 5C 1C 89 37 33 30 30 00 |AO(X)._.\..7300.|
00000B60: 7E 13 66 1C 99 22 93 20 4E 45 55 45 52 20 57 4F |~.f..". NEUER WO|
00000B70: 48 4E 4F 52 54 22 3A 85 57 49 24 28 58 29 00 88 |HNORT":.WI$(X)..|
00000B80: 13 70 1C 89 37 33 30 30 00 A9 13 7A 1C 99 22 93 |.p..7300...z..".|
00000B90: 20 4E 45 55 45 20 54 45 4C 45 46 2E 2D 4E 52 2E | NEUE TELEF.-NR.|
00000BA0: 22 3A 85 44 41 24 28 58 29 00 C8 13 84 1C 85 22 |":.DA$(X)......"|
00000BB0: 57 45 49 54 45 52 45 20 41 45 4E 44 45 52 55 4E |WEITERE AENDERUN|
00000BC0: 47 45 4E 22 3B 41 41 24 00 DA 13 8E 1C 8B 41 41 |GEN";AA$......AA|
00000BD0: 24 B2 22 4A 22 A7 37 30 38 30 00 E0 13 98 1C 8E |$."J".7080......|
00000BE0: 00 EC 13 40 1F 4E 46 B2 4E 46 AA 31 00 F5 13 45 |...@.NF.NF.1...E|
00000BF0: 1F 99 22 93 22 00 11 14 4A 1F 85 22 12 4B 55 4E |.."."...J..".KUN|
00000C00: 44 45 4E 2D 4E 41 4D 45 22 3B 4E 41 24 28 4E 46 |DEN-NAME";NA$(NF|
00000C10: 29 00 2B 14 54 1F 85 22 12 4B 55 4E 44 45 4E 2D |).+.T..".KUNDEN-|
00000C20: 4E 52 2E 22 3B 41 4E 28 4E 46 29 00 43 14 5E 1F |NR.";AN(NF).C.^.|
00000C30: 85 22 12 53 54 52 41 53 53 45 22 3B 41 44 24 28 |.".STRASSE";AD$(|
00000C40: 4E 46 29 00 5C 14 68 1F 85 22 12 48 41 55 53 2D |NF).\.h..".HAUS-|
00000C50: 4E 52 2E 22 3B 54 45 24 28 4E 46 29 00 72 14 72 |NR.";TE$(NF).r.r|
00000C60: 1F 85 22 12 50 20 4C 20 5A 20 22 3B 41 4F 28 4E |..".P L Z ";AO(N|
00000C70: 46 29 00 8B 14 7C 1F 85 22 12 57 4F 48 4E 4F 52 |F)...|..".WOHNOR|
00000C80: 54 20 22 3B 57 49 24 28 4E 46 29 00 A6 14 86 1F |T ";WI$(NF).....|
00000C90: 85 22 12 54 45 4C 45 46 2E 2D 4E 52 2E 22 3B 44 |.".TELEF.-NR.";D|
00000CA0: 41 24 28 4E 46 29 00 AC 14 90 1F 8E 00 DB 14 28 |A$(NF).........(|
00000CB0: 23 85 22 53 4F 4C 4C 45 4E 20 41 4C 4C 45 20 4B |#."SOLLEN ALLE K|
00000CC0: 55 4E 44 45 4E 20 47 45 4C 4F 45 53 43 48 54 20 |UNDEN GELOESCHT |
00000CD0: 57 45 52 44 45 4E 22 3B 41 4E 24 00 EA 14 32 23 |WERDEN";AN$...2#|
00000CE0: 8B 41 4E 24 B2 22 4A 22 A7 9C 00 0E 15 3C 23 99 |.AN$."J".....<#.|
00000CF0: 22 12 41 4C 4C 45 20 4B 55 4E 44 45 4E 20 53 49 |".ALLE KUNDEN SI|
00000D00: 4E 44 20 47 45 4C 4F 45 53 43 48 54 21 22 00 15 |ND GELOESCHT!"..|
00000D10: 15 46 23 89 34 00 42 15 10 27 99 22 12 57 45 4C |.F#.4.B..'.".WEL|
00000D20: 43 48 45 52 20 4B 55 4E 44 45 20 53 4F 4C 4C 20 |CHER KUNDE SOLL |
00000D30: 47 45 4C 4F 45 53 43 48 54 20 57 45 52 44 45 4E |GELOESCHT WERDEN|
00000D40: 22 3B 00 4E 15 11 27 85 22 12 22 3B 4E 24 00 5A |";.N..'.".";N$.Z|
00000D50: 15 1A 27 81 58 B2 31 A4 4E 46 00 79 15 24 27 8B |..'.X.1.NF.y.$'.|
00000D60: 20 C8 28 4E 41 24 28 58 29 2C C3 28 4E 24 29 29 | .(NA$(X),.(N$))|
00000D70: B2 4E 24 A7 31 30 30 36 30 00 7F 15 2E 27 82 00 |.N$.10060....'..|
00000D80: 9C 15 38 27 99 22 12 4B 55 4E 44 45 20 4E 49 43 |..8'.".KUNDE NIC|
00000D90: 48 54 20 47 45 46 55 4E 44 45 4E 22 00 A2 15 42 |HT GEFUNDEN"...B|
00000DA0: 27 8E 00 C6 15 4C 27 99 22 12 53 4F 4C 4C 20 4B |'....L'.".SOLL K|
00000DB0: 55 4E 44 45 20 47 45 4C 4F 45 53 43 48 54 20 57 |UNDE GELOESCHT W|
00000DC0: 45 52 44 45 4E 22 00 E3 15 56 27 99 22 4B 44 2E |ERDEN"...V'."KD.|
00000DD0: 2D 4E 52 2E 22 3B 41 4E 28 58 29 3A 99 4E 41 24 |-NR.";AN(X):.NA$|
00000DE0: 28 58 29 00 F9 15 60 27 99 41 44 24 28 58 29 3B |(X)...`'.AD$(X);|
00000DF0: 22 20 22 54 45 24 28 58 29 00 FF 15 65 27 99 00 |" "TE$(X)...e'..|
00000E00: 14 16 6A 27 99 41 4F 28 58 29 3B 22 20 22 57 49 |..j'.AO(X);" "WI|
00000E10: 24 28 58 29 00 2E 16 74 27 99 22 54 45 4C 45 46 |$(X)...t'."TELEF|
00000E20: 2E 20 22 3B 22 20 22 3B 44 41 24 28 58 29 00 37 |. ";" ";DA$(X).7|
00000E30: 16 83 27 85 41 41 24 00 4A 16 84 27 8B 41 41 24 |..'.AA$.J..'.AA$|
00000E40: B2 22 4A 22 A7 31 30 31 32 30 00 5B 16 85 27 8B |."J".10120.[..'.|
00000E50: 41 41 24 B2 22 4E 22 A7 31 38 30 00 A1 16 88 27 |AA$."N".180....'|
00000E60: 4E 41 24 28 58 29 B2 22 22 3A 41 4E 28 58 29 B2 |NA$(X)."":AN(X).|
00000E70: 30 3A 41 44 24 28 58 29 B2 22 22 3A 54 45 24 28 |0:AD$(X)."":TE$(|
00000E80: 58 29 B2 22 22 3A 41 4F 28 58 29 B2 30 3A 57 49 |X)."":AO(X).0:WI|
00000E90: 24 28 58 29 B2 22 22 3A 44 41 24 28 58 29 B2 22 |$(X)."":DA$(X)."|
00000EA0: 22 00 B9 16 CE 27 99 22 12 4B 55 4E 44 45 20 47 |"....'.".KUNDE G|
00000EB0: 45 4C 4F 45 53 43 48 54 22 00 BF 16 D8 27 8E 00 |ELOESCHT"....'..|
00000EC0: C8 16 F8 2A 9F 34 2C 34 00 D1 16 5C 2B 9D 34 3A |...*.4,4...\+.4:|
00000ED0: 9B 00 00 00 |.... |
.......".":.:..<...." .*** ADRE
SSENDATEI ***.":.:..L.... ZZ.1.2000....
..NA$(100),AD$(100),AN(100),TE$(100),AO(
100),WI$(100),DA$(100).....NF.0.B...."
.*** MENUE ***.":.:.:....(..
". 1-LOAD KUNDEN ."...2..". 2-SAV
E KUNDEN .".".<..". 3-LISTE DER K
UNDEN .".B.F..". 4-SUCHE NACH KD.NAME
.".B.P..". 5-SUCHE NACH KD.NR. ."...Z..
". 6-AENDERN KD.-NAME ."...D..". 7-NEU
ER KD.-NAME .".B.N..". 8-LOESCHE ALL
E KD. ."...X..". 9-LOESCHE EINEN KD.
."...}..".10-ENDE DES PROGRAMM. ."......
".WELCHE NUMMER";CH.3...CH..(CH):. CH.1
0...E. ..CH.1.CH.9.30.{....CH.1000,2000,
3000,5000,6000,7000,8000,9000,10000.....
.".FORTSETZEN";AA$......30......".".S...
.".":.".RETURN WENN BAND POSITIONIERT":.
XX$......".ADRESSENLISTE WIRD GESUCHT"..
....:.:.:.".BITTE WARTEN"......1,1,0.&..
..1,NF.2....X.1.NF.@....1,NA$(X).M....1,
AN(X).[....1,AD$(X).I....1,TE$(X).V....1
,AO(X)......1,WI$(X)......1,DA$(X)......
..... 1:....P.."."...U..".":.".DRUECKE R
ETURN WENN BAND POSITIONIERT":.A$...V.."
.ADRESSENLISTE WIRD GESPEICHERT".&.W..:.
:.:.:.".BITTE WARTEN!".1.X..1,1,2.;.Y..1
,NF.G.Z..X.1.NF.U....1,NA$(X).B....1,AN(
X).P....1,AD$(X).~....1,TE$(X)......1,AO
(X)......1,WI$(X)......1,DA$(X).........
.. 1:..Z...."..ADRESSENLISTE DRUCKEN":.
Z$......Z$."J".4000......".":.X.1.NF...B
..NA$(X)...L..X.10..(X.10).3050.%.V...+.
....F....".DRUECKE RETURN";AA$.P....3030
.Y. ..4,4.E....X.1.NF......4,G(17)NA$(X)
;G(16)"20",AN(X);G(16)"30",AO(X);G(16)"5
2"......#4;WI$(X).H....X.10..(X.10).4060
.N.H...W.R. 4:.......".DRUECKE RETURN";A
A$...... 4040......".ADRESSE DRUCKEN".*.
...F$:.F$."J".4600.8....F$."N"...A....4,
4.U....#4,G(17)NA$(X).T....#4,G(17)AD$(X
);" ";TE$(X).}....#4,... ..#4,G(17)AO(X)
;" ";WI$(X)...%..#4...&..#4...*. 4...4..
.U...."..NAME DES KUNDEN":.N$......X.1.N
F...... H(NA$(X),C(N$)).N$.5060.......#.
...".KUNDE NICHT GEFUNDEN!".).....@.D.."
.KUNDE GEFUNDEN".].N.."KD.-NR.";AN(X):.N
A$(X).S.X..AD$(X);" "TE$(X).Y..........A
O(X);" "WI$(X)......"TELEF. ";" ";DA$(X)
......4500.........P..".":.".WIE IST DIE
KD.-NR.";N...Z..X.1.NF...... AN(X).N.60
60............".KUNDE NICHT GEFUNDEN!".$
.....;....".KUNDE GEFUNDEN".Z....".KD.-N
R."; AN(X):.NA$(X).P....AD$(X);" "TE$(X)
.V.E.....J..AO(X) ; WI$(X)...T.."TELEF.=
" DA$(X)......4500.......S.X.."..WELCH
ER KUNDEN NAME":.N$...B..X.1.NF...L.. H(
NA$(X),C(N$)).N$.7060...V...!....".KUNDE
NICHT GEFUNDEN!".'.....>....".KUNDE GEF
UNDEN".\...."KUNDE BEVOR AENDERUNG:".Z..
.."KD.-NR."; AN(X):.NA$(X)......AD$(X);"
";TE$(X)............AO(X) ; WI$(X).C.F.
."TELEF.=" ; DA$(X).M.P..:.:......."WAS
SOLL GEAENDERT WERDEN".-...."1=NAME,2=KD
.-NR.,3=STRASSE,4=HAUS-NR.,5=P L Z,6=WOH
NORT".A...."7=TELEF.-NR.".I....CH.F...CH
..(CH):.CH.1.CH.7.7070......CH.7170,7190
,7210,7230,7250,7270,7290......".":.".DE
R NEUE NAME":.NA$(X)......7300.Z....".NE
UE KD.-NR.":.AN(X)... ..7300...*..". DIE
NEUE STRASSE":.AD$(X)...4..7300./.>..".
NEUE HAUS-NR.":.TE$(X).9.H..7300.U.R.."
. NEUE P L Z ":.AO(X)._.\..7300.~.F..".
NEUER WOHNORT":.WI$(X)...P..7300...Z..".
NEUE TELEF.-NR.":.DA$(X).H...."WEITERE
AENDERUNGEN";AA$.Z....AA$."J".7080......
...@.NF.NF.1...E.."."...J..".KUNDEN-NAME
";NA$(NF).+.T..".KUNDEN-NR.";AN(NF).C.^.
.".STRASSE";AD$(NF).\.H..".HAUS-NR.";TE$
(NF).R.R..".P L Z ";AO(NF)...|..".WOHNOR
T ";WI$(NF)......".TELEF.-NR.";DA$(NF)..
.......(#."SOLLEN ALLE KUNDEN GELOESCHT
WERDEN";AN$...2#.AN$."J".....<#.".ALLE K
UNDEN SIND GELOESCHT!"...F#.4.B..'.".WEL
CHER KUNDE SOLL GELOESCHT WERDEN";.N..'.
".";N$.Z..'.X.1.NF.Y.$'. H(NA$(X),C(N$))
.N$.10060...'....8'.".KUNDE NICHT GEFUN
DEN"...B'..F.L'.".SOLL KUNDE GELOESCHT W
ERDEN"...V'."KD.-NR.";AN(X):.NA$(X)...`'
.AD$(X);" "TE$(X)...E'....J'.AO(X);" "WI
$(X)...T'."TELEF. ";" ";DA$(X).7..'.AA$.
J..'.AA$."J".10120.[..'.AA$."N".180....'
NA$(X)."":AN(X).0:AD$(X)."":TE$(X)."":AO
(X).0:WI$(X)."":DA$(X).""...N'.".KUNDE G
ELOESCHT"...X'..H..*.4,4.Q.\+.4:....
> CLICK IMAGE PREVIEW FOR FULL MODAL