ADRESSDATEI
FILE INFORMATION
FILENAME(S): ADRESSDATEI
FILE TYPE(S): PRG
FILE SIZE: 5.5K
FIRST SEEN: 2025-11-02 16:39:15
APPEARS ON: 3 disk(s)
FILE HASH
9bc74b3adc84012aee8bdbd550510071c85d28b66fb0bc22c49fc5160bd49edc
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PD DISK NR | ADRESSDATEI | PRG | Treasure Chest - Plattfuss | 6 | 7 | DOWNLOAD FILE |
| FREEWARE DISK NR | ADRESSDATEI | PRG | Treasure Chest - Wolfgang Rauprich | 6 | 7 | DOWNLOAD FILE |
| A NWENDER | ADRESSDATEI | PRG | Treasure Chest - Wolfgang Rauprich | 6 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 0A 00 97 35 33 32 38 30 2C 30 3A 97 |.......53280,0:.|
00000010: 35 33 32 38 31 2C 30 3A 99 22 93 1E 22 00 61 08 |53281,0:."..".a.|
00000020: 14 00 86 4E 41 24 28 31 30 30 29 2C 53 54 24 28 |...NA$(100),ST$(|
00000030: 31 30 30 29 2C 50 4C 24 28 31 30 30 29 2C 57 4F |100),PL$(100),WO|
00000040: 24 28 31 30 30 29 2C 54 45 24 28 31 30 30 29 2C |$(100),TE$(100),|
00000050: 5A 31 24 28 31 30 30 29 2C 5A 32 24 28 31 30 30 |Z1$(100),Z2$(100|
00000060: 29 00 91 08 1E 00 99 22 93 2A 2A 2A 2A 2A 2A 2A |)......".*******|
00000070: 2A 2A 2A 2A 20 41 20 44 20 52 20 45 20 53 20 53 |**** A D R E S S|
00000080: 20 45 20 4E 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | E N ***********|
00000090: 22 00 AA 08 28 00 99 3A 99 3A 99 22 20 20 12 31 |"...(..:.:." .1|
000000A0: 92 20 45 49 4E 47 41 42 45 22 00 B7 08 32 00 99 |. EINGABE"...2..|
000000B0: 22 20 20 12 20 92 22 00 CC 08 3C 00 99 22 20 20 |" . ."...<.." |
000000C0: 12 32 92 20 41 55 53 47 41 42 45 22 00 D9 08 46 |.2. AUSGABE"...F|
000000D0: 00 99 22 20 20 12 20 92 22 00 EE 08 50 00 99 22 |.." . ."...P.."|
000000E0: 20 20 12 33 92 20 41 45 4E 44 45 52 4E 22 00 FB | .3. AENDERN"..|
000000F0: 08 5A 00 99 22 20 20 12 20 92 22 00 11 09 64 00 |.Z.." . ."...d.|
00000100: 99 22 20 20 12 34 92 20 4C 4F 45 53 43 48 45 4E |." .4. LOESCHEN|
00000110: 22 00 1E 09 6E 00 99 22 20 20 12 20 92 22 00 35 |"...n.." . .".5|
00000120: 09 78 00 99 22 20 20 12 35 92 20 53 4F 52 54 49 |.x.." .5. SORTI|
00000130: 45 52 45 4E 22 00 42 09 82 00 99 22 20 20 12 20 |EREN".B...." . |
00000140: 92 22 00 58 09 8C 00 99 22 20 20 12 36 92 20 45 |.".X...." .6. E|
00000150: 49 4E 4C 45 53 45 4E 22 00 65 09 96 00 99 22 20 |INLESEN".e...." |
00000160: 20 12 20 92 22 00 7E 09 A0 00 99 22 20 20 12 37 | . .".~...." .7|
00000170: 92 20 41 42 53 50 45 49 43 48 45 52 4E 22 00 8B |. ABSPEICHERN"..|
00000180: 09 AA 00 99 22 20 20 12 20 92 22 00 A0 09 B4 00 |...." . .".....|
00000190: 99 22 20 20 12 38 92 20 42 45 45 4E 44 45 4E 22 |." .8. BEENDEN"|
000001A0: 00 C7 09 BE 00 99 3A 99 22 57 41 53 20 57 4F 4C |......:."WAS WOL|
000001B0: 4C 45 4E 20 53 49 45 20 4D 41 43 48 45 4E 20 3F |LEN SIE MACHEN ?|
000001C0: 20 22 3B 3A 4C B2 31 00 E7 09 C8 00 8D 36 30 30 | ";:L.1......600|
000001D0: 30 30 3A 8B 49 4E 24 B3 22 31 22 B0 49 4E 24 B1 |00:.IN$."1".IN$.|
000001E0: 22 38 22 A7 32 30 30 00 04 0A D2 00 49 4E B2 C5 |"8".200.....IN..|
000001F0: 28 49 4E 24 29 3A 8B 49 4E B3 31 B0 49 4E B1 38 |(IN$):.IN.1.IN.8|
00000200: A7 32 30 30 00 33 0A DC 00 91 49 4E 89 31 30 30 |.200.3....IN.100|
00000210: 30 2C 32 30 30 30 2C 33 30 30 30 2C 34 30 30 30 |0,2000,3000,4000|
00000220: 2C 35 30 30 30 2C 36 30 30 30 2C 37 30 30 30 2C |,5000,6000,7000,|
00000230: 32 33 30 00 39 0A E6 00 80 00 69 0A E8 03 99 22 |230.9.....i...."|
00000240: 93 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 45 20 |.************ E |
00000250: 49 20 4E 20 47 20 41 20 42 20 45 20 2A 2A 2A 2A |I N G A B E ****|
00000260: 2A 2A 2A 2A 2A 2A 2A 2A 22 00 83 0A F2 03 99 3A |********"......:|
00000270: 99 3A 5A B2 5A AA 31 3A 8B 5A B2 31 30 31 A7 38 |.:Z.Z.1:.Z.101.8|
00000280: 30 30 30 00 A4 0A FC 03 99 22 4E 41 4D 45 2F 56 |000......"NAME/V|
00000290: 4F 52 4E 2E 3A 20 22 3B 3A 4C B2 32 30 3A 8D 36 |ORN.: ";:L.20:.6|
000002A0: 30 30 30 30 00 C6 0A 06 04 4E 41 24 28 5A 29 B2 |0000.....NA$(Z).|
000002B0: 49 4E 24 3A 8B 49 4E 24 B2 22 22 A7 4E 41 24 28 |IN$:.IN$."".NA$(|
000002C0: 5A 29 B2 22 3F 22 00 E7 0A 10 04 99 22 53 54 52 |Z)."?"......"STR|
000002D0: 41 53 53 45 20 20 20 3A 20 22 3B 3A 4C B2 32 35 |ASSE : ";:L.25|
000002E0: 3A 8D 36 30 30 30 30 00 09 0B 1A 04 53 54 24 28 |:.60000.....ST$(|
000002F0: 5A 29 B2 49 4E 24 3A 8B 49 4E 24 B2 22 22 A7 53 |Z).IN$:.IN$."".S|
00000300: 54 24 28 5A 29 B2 22 3F 22 00 29 0B 24 04 99 22 |T$(Z)."?".).$.."|
00000310: 50 4C 5A 20 20 20 20 20 20 20 3A 20 22 3B 3A 4C |PLZ : ";:L|
00000320: B2 34 3A 8D 36 30 30 30 30 00 4B 0B 2E 04 50 4C |.4:.60000.K...PL|
00000330: 24 28 5A 29 B2 49 4E 24 3A 8B 49 4E 24 B2 22 22 |$(Z).IN$:.IN$.""|
00000340: A7 50 4C 24 28 5A 29 B2 22 3F 22 00 6C 0B 38 04 |.PL$(Z)."?".l.8.|
00000350: 99 22 57 4F 48 4E 4F 52 54 20 20 20 3A 20 22 3B |."WOHNORT : ";|
00000360: 3A 4C B2 33 30 3A 8D 36 30 30 30 30 00 8E 0B 42 |:L.30:.60000...B|
00000370: 04 57 4F 24 28 5A 29 B2 49 4E 24 3A 8B 49 4E 24 |.WO$(Z).IN$:.IN$|
00000380: B2 22 22 A7 57 4F 24 28 5A 29 B2 22 3F 22 00 AF |."".WO$(Z)."?"..|
00000390: 0B 4C 04 99 22 54 45 4C 45 46 4F 4E 4E 52 2E 3A |.L.."TELEFONNR.:|
000003A0: 20 22 3B 3A 4C B2 31 35 3A 8D 36 30 30 30 30 00 | ";:L.15:.60000.|
000003B0: D1 0B 56 04 54 45 24 28 5A 29 B2 49 4E 24 3A 8B |..V.TE$(Z).IN$:.|
000003C0: 49 4E 24 B2 22 22 A7 54 45 24 28 5A 29 B2 22 3F |IN$."".TE$(Z)."?|
000003D0: 22 00 F2 0B 60 04 99 22 5A 55 53 41 54 5A 20 31 |"...`.."ZUSATZ 1|
000003E0: 20 20 3A 20 22 3B 3A 4C B2 33 30 3A 8D 36 30 30 | : ";:L.30:.600|
000003F0: 30 30 00 14 0C 6A 04 5A 31 24 28 5A 29 B2 49 4E |00...j.Z1$(Z).IN|
00000400: 24 3A 8B 49 4E 24 B2 22 22 A7 5A 31 24 28 5A 29 |$:.IN$."".Z1$(Z)|
00000410: B2 22 3F 22 00 35 0C 74 04 99 22 5A 55 53 41 54 |."?".5.t.."ZUSAT|
00000420: 5A 20 32 20 20 3A 20 22 3B 3A 4C B2 33 30 3A 8D |Z 2 : ";:L.30:.|
00000430: 36 30 30 30 30 00 57 0C 7E 04 5A 32 24 28 5A 29 |60000.W.~.Z2$(Z)|
00000440: B2 49 4E 24 3A 8B 49 4E 24 B2 22 22 A7 5A 32 24 |.IN$:.IN$."".Z2$|
00000450: 28 5A 29 B2 22 3F 22 00 9F 0C 88 04 99 3A 99 22 |(Z)."?"......:."|
00000460: 57 4F 4C 4C 45 4E 20 53 49 45 20 57 45 49 54 45 |WOLLEN SIE WEITE|
00000470: 52 45 20 41 44 52 45 53 53 45 4E 20 20 20 20 20 |RE ADRESSEN |
00000480: 20 20 20 20 20 20 20 20 45 49 4E 47 45 42 45 4E | EINGEBEN|
00000490: 20 3F 20 28 4A 2F 4E 29 20 22 3B 3A 4C B2 31 00 | ? (J/N) ";:L.1.|
000004A0: C2 0C 92 04 8D 36 30 30 30 30 3A 8B 49 4E 24 B3 |.....60000:.IN$.|
000004B0: B1 22 4A 22 AF 49 4E 24 B3 B1 22 4E 22 A7 31 31 |."J".IN$.."N".11|
000004C0: 37 30 00 D4 0C 9C 04 8B 49 4E 24 B2 22 4A 22 A7 |70......IN$."J".|
000004D0: 31 30 30 30 00 DC 0C A6 04 89 33 30 00 0C 0D D0 |1000......30....|
000004E0: 07 99 22 93 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..".************|
000004F0: 20 41 20 55 20 53 20 47 20 41 20 42 20 45 20 2A | A U S G A B E *|
00000500: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 3F 0D DA |***********".?..|
00000510: 07 99 3A 99 22 57 4F 4C 4C 45 4E 20 53 49 45 20 |..:."WOLLEN SIE |
00000520: 45 49 4E 45 20 4C 49 53 54 45 20 48 41 42 45 4E |EINE LISTE HABEN|
00000530: 20 3F 20 28 4A 2F 4E 29 20 22 3B 3A 4C B2 31 00 | ? (J/N) ";:L.1.|
00000540: 62 0D E4 07 8D 36 30 30 30 30 3A 8B 49 4E 24 B3 |b....60000:.IN$.|
00000550: B1 22 4A 22 AF 49 4E 24 B3 B1 22 4E 22 A7 32 30 |."J".IN$.."N".20|
00000560: 32 30 00 75 0D EE 07 8B 49 4E 24 B2 22 4A 22 A7 |20.u....IN$."J".|
00000570: 8D 39 30 30 30 00 AC 0D F8 07 99 3A 99 22 57 45 |.9000......:."WE|
00000580: 4C 43 48 45 4E 20 4E 41 4D 45 4E 20 57 4F 4C 4C |LCHEN NAMEN WOLL|
00000590: 45 4E 20 53 49 45 20 53 45 48 45 4E 20 3F 22 3B |EN SIE SEHEN ?";|
000005A0: 3A 4C B2 32 30 3A 8D 36 30 30 30 30 00 B7 0D 02 |:L.20:.60000....|
000005B0: 08 8D 31 30 30 30 30 00 C5 0D 0C 08 99 4E 41 24 |..10000......NA$|
000005C0: 28 49 29 3A 99 00 D3 0D 16 08 99 53 54 24 28 49 |(I):.......ST$(I|
000005D0: 29 3A 99 00 EA 0D 20 08 99 50 4C 24 28 49 29 22 |):.... ..PL$(I)"|
000005E0: 20 22 57 4F 24 28 49 29 3A 99 00 F8 0D 2A 08 99 | "WO$(I):....*..|
000005F0: 54 45 24 28 49 29 3A 99 00 06 0E 34 08 99 5A 31 |TE$(I):....4..Z1|
00000600: 24 28 49 29 3A 99 00 14 0E 3E 08 99 5A 32 24 28 |$(I):....>..Z2$(|
00000610: 49 29 3A 99 00 59 0E 48 08 99 3A 99 22 57 4F 4C |I):..Y.H..:."WOL|
00000620: 4C 45 4E 20 53 49 45 20 57 45 49 54 45 52 45 20 |LEN SIE WEITERE |
00000630: 41 44 52 45 53 53 45 4E 20 20 20 20 20 20 20 20 |ADRESSEN |
00000640: 20 20 20 20 20 53 45 48 45 4E 20 3F 20 28 4A 2F | SEHEN ? (J/|
00000650: 4E 29 20 22 3B 3A 4C B2 31 00 7C 0E 52 08 8D 36 |N) ";:L.1.|.R..6|
00000660: 30 30 30 30 3A 8B 49 4E 24 B3 B1 22 4A 22 AF 49 |0000:.IN$.."J".I|
00000670: 4E 24 B3 B1 22 4E 22 A7 32 31 33 30 00 8E 0E 5C |N$.."N".2130...\|
00000680: 08 8B 49 4E 24 B2 22 4A 22 A7 32 30 30 30 00 96 |..IN$."J".2000..|
00000690: 0E 66 08 89 33 30 00 C6 0E B8 0B 99 22 93 2A 2A |.f..30......".**|
000006A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 41 20 45 20 4E |********** A E N|
000006B0: 20 44 20 45 20 52 20 4E 20 2A 2A 2A 2A 2A 2A 2A | D E R N *******|
000006C0: 2A 2A 2A 2A 2A 22 00 F9 0E C2 0B 99 3A 99 22 57 |*****"......:."W|
000006D0: 4F 4C 4C 45 4E 20 53 49 45 20 45 49 4E 45 20 4C |OLLEN SIE EINE L|
000006E0: 49 53 54 45 20 48 41 42 45 4E 20 3F 20 28 4A 2F |ISTE HABEN ? (J/|
000006F0: 4E 29 20 22 3B 3A 4C B2 31 00 1C 0F CC 0B 8D 36 |N) ";:L.1......6|
00000700: 30 30 30 30 3A 8B 49 4E 24 B3 B1 22 4A 22 AF 49 |0000:.IN$.."J".I|
00000710: 4E 24 B3 B1 22 4E 22 A7 33 30 32 30 00 2F 0F D6 |N$.."N".3020./..|
00000720: 0B 8B 49 4E 24 B2 22 4A 22 A7 8D 39 30 30 30 00 |..IN$."J"..9000.|
00000730: 68 0F E0 0B 99 3A 99 22 57 45 4C 43 48 45 4E 20 |h....:."WELCHEN |
00000740: 4E 41 4D 45 4E 20 57 4F 4C 4C 45 4E 20 53 49 45 |NAMEN WOLLEN SIE|
00000750: 20 41 45 4E 44 45 52 4E 20 3F 22 3B 3A 4C B2 32 | AENDERN ?";:L.2|
00000760: 30 3A 8D 36 30 30 30 30 00 73 0F EA 0B 8D 31 30 |0:.60000.s....10|
00000770: 30 30 30 00 A3 0F F4 0B 99 22 93 2A 2A 2A 2A 2A |000......".*****|
00000780: 2A 2A 2A 2A 2A 2A 2A 20 41 20 45 20 4E 20 44 20 |******* A E N D |
00000790: 45 20 52 20 4E 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |E R N **********|
000007A0: 2A 2A 22 00 BF 0F FE 0B 99 3A 99 3A 99 22 20 20 |**"......:.:." |
000007B0: 12 31 92 20 4E 41 4D 45 2F 56 4F 52 4E 2E 22 00 |.1. NAME/VORN.".|
000007C0: CC 0F 08 0C 99 22 20 20 12 20 92 22 00 E4 0F 12 |....." . ."....|
000007D0: 0C 99 22 20 20 12 32 92 20 53 54 52 41 53 53 45 |.." .2. STRASSE|
000007E0: 20 20 20 22 00 F1 0F 1C 0C 99 22 20 20 12 20 92 | "......" . .|
000007F0: 22 00 09 10 26 0C 99 22 20 20 12 33 92 20 50 4C |"...&.." .3. PL|
00000800: 5A 20 20 20 20 20 20 20 22 00 16 10 30 0C 99 22 |Z "...0.."|
00000810: 20 20 12 20 92 22 00 2E 10 3A 0C 99 22 20 20 12 | . ."...:.." .|
00000820: 34 92 20 57 4F 48 4E 4F 52 54 20 20 20 22 00 3B |4. WOHNORT ".;|
00000830: 10 44 0C 99 22 20 20 12 20 92 22 00 53 10 4E 0C |.D.." . .".S.N.|
00000840: 99 22 20 20 12 35 92 20 54 45 4C 45 46 4F 4E 4E |." .5. TELEFONN|
00000850: 52 2E 22 00 60 10 58 0C 99 22 20 20 12 20 92 22 |R.".`.X.." . ."|
00000860: 00 78 10 62 0C 99 22 20 20 12 36 92 20 5A 55 53 |.x.b.." .6. ZUS|
00000870: 41 54 5A 20 31 20 20 22 00 85 10 6C 0C 99 22 20 |ATZ 1 "...l.." |
00000880: 20 12 20 92 22 00 9D 10 76 0C 99 22 20 20 12 37 | . ."...v.." .7|
00000890: 92 20 5A 55 53 41 54 5A 20 32 20 20 22 00 C5 10 |. ZUSATZ 2 "...|
000008A0: 80 0C 99 3A 99 22 57 41 53 20 57 4F 4C 4C 45 4E |...:."WAS WOLLEN|
000008B0: 20 53 49 45 20 41 45 4E 44 45 52 4E 20 3F 20 22 | SIE AENDERN ? "|
000008C0: 3B 3A 4C B2 31 00 E6 10 8A 0C 8D 36 30 30 30 30 |;:L.1......60000|
000008D0: 3A 8B 49 4E 24 B3 22 31 22 B0 49 4E 24 B1 22 37 |:.IN$."1".IN$."7|
000008E0: 22 A7 33 32 31 30 00 1B 11 94 0C 49 4E B2 C5 28 |".3210.....IN..(|
000008F0: 49 4E 24 29 3A 91 49 4E 89 33 32 33 30 2C 33 32 |IN$):.IN.3230,32|
00000900: 35 30 2C 33 32 37 30 2C 33 32 39 30 2C 33 33 31 |50,3270,3290,331|
00000910: 30 2C 33 33 33 30 2C 33 33 35 30 00 59 11 9E 0C |0,3330,3350.Y...|
00000920: 99 22 41 4C 54 45 52 20 4E 41 4D 45 2F 56 4F 52 |."ALTER NAME/VOR|
00000930: 4E 2E 20 3A 20 22 4E 41 24 28 49 29 3A 99 22 4E |N. : "NA$(I):."N|
00000940: 45 55 45 52 20 4E 41 4D 45 2F 56 4F 52 4E 2E 20 |EUER NAME/VORN. |
00000950: 3A 20 22 3B 3A 4C B2 32 30 00 75 11 A8 0C 8D 36 |: ";:L.20.u....6|
00000960: 30 30 30 30 3A 4E 41 24 28 49 29 B2 49 4E 24 3A |0000:NA$(I).IN$:|
00000970: 89 33 33 37 30 00 B2 11 B2 0C 99 22 41 4C 54 45 |.3370......"ALTE|
00000980: 20 53 54 52 41 53 53 45 20 20 20 20 20 3A 20 22 | STRASSE : "|
00000990: 53 54 24 28 49 29 3A 99 22 4E 45 55 45 20 53 54 |ST$(I):."NEUE ST|
000009A0: 52 41 53 53 45 20 20 20 20 3A 20 22 3B 3A 4C B2 |RASSE : ";:L.|
000009B0: 32 35 00 CE 11 BC 0C 8D 36 30 30 30 30 3A 53 54 |25......60000:ST|
000009C0: 24 28 49 29 B2 49 4E 24 3A 89 33 33 37 30 00 0A |$(I).IN$:.3370..|
000009D0: 12 C6 0C 99 22 41 4C 54 45 20 50 4C 5A 20 20 20 |...."ALTE PLZ |
000009E0: 20 20 20 20 20 20 3A 20 22 50 4C 24 28 49 29 3A | : "PL$(I):|
000009F0: 99 22 4E 45 55 45 20 50 4C 5A 20 20 20 20 20 20 |."NEUE PLZ |
00000A00: 20 20 3A 20 22 3B 3A 4C B2 34 00 26 12 D0 0C 8D | : ";:L.4.&....|
00000A10: 36 30 30 30 30 3A 50 4C 24 28 49 29 B2 49 4E 24 |60000:PL$(I).IN$|
00000A20: 3A 89 33 33 37 30 00 65 12 DA 0C 99 22 41 4C 54 |:.3370.e...."ALT|
00000A30: 45 52 20 57 4F 48 4E 4F 52 54 20 20 20 20 20 3A |ER WOHNORT :|
00000A40: 20 22 57 4F 24 28 49 29 3A 99 22 4E 45 55 45 52 | "WO$(I):."NEUER|
00000A50: 20 57 4F 48 4E 4F 52 54 20 20 20 20 3A 20 22 3B | WOHNORT : ";|
00000A60: 3A 4C B2 33 30 00 81 12 E4 0C 8D 36 30 30 30 30 |:L.30......60000|
00000A70: 3A 57 4F 24 28 49 29 B2 49 4E 24 3A 89 33 33 37 |:WO$(I).IN$:.337|
00000A80: 30 00 BE 12 EE 0C 99 22 41 4C 54 45 20 54 45 4C |0......"ALTE TEL|
00000A90: 45 46 4F 4E 4E 52 2E 20 20 3A 20 22 54 45 24 28 |EFONNR. : "TE$(|
00000AA0: 49 29 3A 99 22 4E 45 55 45 20 54 45 4C 45 46 4F |I):."NEUE TELEFO|
00000AB0: 4E 4E 52 2E 20 3A 20 22 3B 3A 4C B2 31 35 00 DA |NNR. : ";:L.15..|
00000AC0: 12 F8 0C 8D 36 30 30 30 30 3A 54 45 24 28 49 29 |....60000:TE$(I)|
00000AD0: B2 49 4E 24 3A 89 33 33 37 30 00 19 13 02 0D 99 |.IN$:.3370......|
00000AE0: 22 41 4C 54 45 52 20 5A 55 53 41 54 5A 20 31 20 |"ALTER ZUSATZ 1 |
00000AF0: 20 20 20 3A 20 22 5A 31 24 28 49 29 3A 99 22 4E | : "Z1$(I):."N|
00000B00: 45 55 45 52 20 5A 55 53 41 54 5A 20 31 20 20 20 |EUER ZUSATZ 1 |
00000B10: 3A 20 22 3B 3A 4C B2 33 30 00 35 13 0C 0D 8D 36 |: ";:L.30.5....6|
00000B20: 30 30 30 30 3A 5A 31 24 28 49 29 B2 49 4E 24 3A |0000:Z1$(I).IN$:|
00000B30: 89 33 33 37 30 00 74 13 16 0D 99 22 41 4C 54 45 |.3370.t...."ALTE|
00000B40: 52 20 5A 55 53 41 54 5A 20 32 20 20 20 20 3A 20 |R ZUSATZ 2 : |
00000B50: 22 5A 32 24 28 49 29 3A 99 22 4E 45 55 45 52 20 |"Z2$(I):."NEUER |
00000B60: 5A 55 53 41 54 5A 20 32 20 20 20 3A 20 22 3B 3A |ZUSATZ 2 : ";:|
00000B70: 4C B2 33 30 00 8A 13 20 0D 8D 36 30 30 30 30 3A |L.30... ..60000:|
00000B80: 5A 32 24 28 49 29 B2 49 4E 24 00 BF 13 2A 0D 99 |Z2$(I).IN$...*..|
00000B90: 3A 99 22 57 4F 4C 4C 45 4E 20 53 49 45 20 4E 4F |:."WOLLEN SIE NO|
00000BA0: 43 48 20 45 54 57 41 53 20 41 45 4E 44 45 52 4E |CH ETWAS AENDERN|
00000BB0: 20 3F 20 28 4A 2F 4E 29 20 22 3B 3A 4C B2 31 00 | ? (J/N) ";:L.1.|
00000BC0: E3 13 34 0D 8D 36 30 30 30 30 3A 8B 49 4E 24 B3 |..4..60000:.IN$.|
00000BD0: B1 22 4A 41 CE 49 4E 24 3C 3E 22 4E 22 54 C8 33 |."JA.IN$<>"N"T.3|
00000BE0: 33 38 30 00 F5 13 3E 0D 8B 49 4E 24 B2 22 4A 22 |380...>..IN$."J"|
00000BF0: A7 33 30 30 30 00 FD 13 48 0D 89 33 30 00 2E 14 |.3000...H..30...|
00000C00: A0 0F 99 22 93 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...".***********|
00000C10: 20 4C 20 4F 20 45 20 53 20 43 20 48 20 45 20 4E | L O E S C H E N|
00000C20: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 61 | ************".a|
00000C30: 14 AA 0F 99 3A 99 22 57 4F 4C 4C 45 4E 20 53 49 |....:."WOLLEN SI|
00000C40: 45 20 45 49 4E 45 20 4C 49 53 54 45 20 48 41 42 |E EINE LISTE HAB|
00000C50: 45 4E 20 3F 20 28 4A 2F 4E 29 20 22 3B 3A 4C B2 |EN ? (J/N) ";:L.|
00000C60: 31 00 84 14 B4 0F 8D 36 30 30 30 30 3A 8B 49 4E |1......60000:.IN|
00000C70: 24 B3 B1 22 4A 22 AF 49 4E 24 B3 B1 22 4E 22 A7 |$.."J".IN$.."N".|
00000C80: 34 30 32 30 00 97 14 BE 0F 8B 49 4E 24 B2 22 4A |4020......IN$."J|
00000C90: 22 A7 8D 39 30 30 30 00 D1 14 C8 0F 99 3A 99 22 |"..9000......:."|
00000CA0: 57 45 4C 43 48 45 4E 20 4E 41 4D 45 4E 20 57 4F |WELCHEN NAMEN WO|
00000CB0: 4C 4C 45 4E 20 53 49 45 20 4C 4F 45 53 43 48 45 |LLEN SIE LOESCHE|
00000CC0: 4E 20 3F 22 3B 3A 4C B2 32 30 3A 8D 36 30 30 30 |N ?";:L.20:.6000|
00000CD0: 30 00 DC 14 D2 0F 8D 31 30 30 30 30 00 0C 15 DC |0......10000....|
00000CE0: 0F 99 3A 99 4E 41 24 28 49 29 22 20 57 49 52 44 |..:.NA$(I)" WIRD|
00000CF0: 20 4A 45 54 5A 54 20 47 45 4C 4F 45 53 43 48 54 | JETZT GELOESCHT|
00000D00: 20 22 3A 4C 24 B2 4E 41 24 28 49 29 00 1A 15 E6 | ":L$.NA$(I)....|
00000D10: 0F 81 49 49 B2 49 A4 5A AB 31 00 30 15 F0 0F 4E |..II.I.Z.1.0...N|
00000D20: 41 24 28 49 49 29 B2 4E 41 24 28 49 49 AA 31 29 |A$(II).NA$(II.1)|
00000D30: 00 46 15 FA 0F 53 54 24 28 49 49 29 B2 53 54 24 |.F...ST$(II).ST$|
00000D40: 28 49 49 AA 31 29 00 5C 15 04 10 50 4C 24 28 49 |(II.1).\...PL$(I|
00000D50: 49 29 B2 50 4C 24 28 49 49 AA 31 29 00 72 15 0E |I).PL$(II.1).r..|
00000D60: 10 57 4F 24 28 49 49 29 B2 57 4F 24 28 49 49 AA |.WO$(II).WO$(II.|
00000D70: 31 29 00 88 15 18 10 54 45 24 28 49 49 29 B2 54 |1).....TE$(II).T|
00000D80: 45 24 28 49 49 AA 31 29 00 9E 15 22 10 5A 31 24 |E$(II.1)...".Z1$|
00000D90: 28 49 49 29 B2 5A 31 24 28 49 49 AA 31 29 00 B4 |(II).Z1$(II.1)..|
00000DA0: 15 2C 10 5A 32 24 28 49 49 29 B2 5A 32 24 28 49 |.,.Z2$(II).Z2$(I|
00000DB0: 49 AA 31 29 00 00 16 36 10 82 3A 4E 41 24 28 5A |I.1)...6..:NA$(Z|
00000DC0: 29 B2 22 22 3A 53 54 24 28 5A 29 B2 22 22 3A 50 |)."":ST$(Z)."":P|
00000DD0: 4C 24 28 5A 29 B2 22 22 3A 57 4F 24 28 5A 29 B2 |L$(Z)."":WO$(Z).|
00000DE0: 22 22 3A 54 45 24 28 5A 29 B2 22 22 3A 5A 31 24 |"":TE$(Z)."":Z1$|
00000DF0: 28 5A 29 B2 22 22 3A 5A 32 24 28 5A 29 B2 22 22 |(Z)."":Z2$(Z).""|
00000E00: 00 0A 16 40 10 5A B2 5A AB 31 00 27 16 4A 10 99 |...@.Z.Z.1.'.J..|
00000E10: 3A 99 4C 24 22 20 57 55 52 44 45 20 47 45 4C 4F |:.L$" WURDE GELO|
00000E20: 45 53 43 48 54 20 22 00 6F 16 54 10 3A 99 99 22 |ESCHT ".o.T.:.."|
00000E30: 57 4F 4C 4C 45 4E 20 53 49 45 20 4E 4F 43 48 20 |WOLLEN SIE NOCH |
00000E40: 4D 45 48 52 20 41 44 52 45 53 53 45 4E 20 20 20 |MEHR ADRESSEN |
00000E50: 20 20 20 20 20 20 20 20 4C 4F 45 53 43 48 45 4E | LOESCHEN|
00000E60: 20 3F 20 28 4A 2F 4E 29 20 22 3B 3A 4C B2 31 00 | ? (J/N) ";:L.1.|
00000E70: 92 16 5E 10 8D 36 30 30 30 30 3A 8B 49 4E 24 B3 |..^..60000:.IN$.|
00000E80: B1 22 4A 22 AF 49 4E 24 B3 B1 22 4E 22 A7 34 31 |."J".IN$.."N".41|
00000E90: 39 30 00 A4 16 68 10 8B 49 4E 24 B2 22 4A 22 A7 |90...h..IN$."J".|
00000EA0: 34 30 30 30 00 AC 16 72 10 89 33 30 00 DC 16 88 |4000...r..30....|
00000EB0: 13 99 22 93 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 53 |..".********** S|
00000EC0: 20 4F 20 52 20 54 20 49 20 45 20 52 20 45 20 4E | O R T I E R E N|
00000ED0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 08 17 92 | **********"....|
00000EE0: 13 99 3A 99 22 44 49 45 20 41 44 52 45 53 53 45 |..:."DIE ADRESSE|
00000EF0: 4E 20 57 45 52 44 45 4E 20 4A 45 54 5A 54 20 53 |N WERDEN JETZT S|
00000F00: 4F 52 54 49 45 52 54 22 00 13 17 9C 13 81 57 B2 |ORTIERT"......W.|
00000F10: 30 A4 33 00 20 17 A6 13 81 41 B2 30 A4 5A AB 31 |0.3. ....A.0.Z.1|
00000F20: 00 2B 17 B0 13 81 42 B2 30 A4 41 00 3E 17 BA 13 |.+....B.0.A.>...|
00000F30: 99 22 13 11 11 11 11 11 22 57 2C 41 2C 42 00 56 |."......"W,A,B.V|
00000F40: 17 C4 13 8B 4E 41 24 28 42 29 B1 4E 41 24 28 41 |....NA$(B).NA$(A|
00000F50: 29 A7 35 30 38 30 00 67 17 CE 13 82 42 2C 41 2C |).5080.g....B,A,|
00000F60: 57 3A 89 35 31 36 30 00 8D 17 D8 13 54 24 B2 4E |W:.5160.....T$.N|
00000F70: 41 24 28 42 29 3A 4E 41 24 28 42 29 B2 4E 41 24 |A$(B):NA$(B).NA$|
00000F80: 28 41 29 3A 4E 41 24 28 41 29 B2 54 24 00 B3 17 |(A):NA$(A).T$...|
00000F90: E2 13 54 24 B2 53 54 24 28 42 29 3A 53 54 24 28 |..T$.ST$(B):ST$(|
00000FA0: 42 29 B2 53 54 24 28 41 29 3A 53 54 24 28 41 29 |B).ST$(A):ST$(A)|
00000FB0: B2 54 24 00 D9 17 EC 13 54 24 B2 50 4C 24 28 42 |.T$.....T$.PL$(B|
00000FC0: 29 3A 50 4C 24 28 42 29 B2 50 4C 24 28 41 29 3A |):PL$(B).PL$(A):|
00000FD0: 50 4C 24 28 41 29 B2 54 24 00 FF 17 F6 13 54 24 |PL$(A).T$.....T$|
00000FE0: B2 57 4F 24 28 42 29 3A 57 4F 24 28 42 29 B2 57 |.WO$(B):WO$(B).W|
00000FF0: 4F 24 28 41 29 3A 57 4F 24 28 41 29 B2 54 24 00 |O$(A):WO$(A).T$.|
00001000: 25 18 00 14 54 24 B2 54 45 24 28 42 29 3A 54 45 |%...T$.TE$(B):TE|
00001010: 24 28 42 29 B2 54 45 24 28 41 29 3A 54 45 24 28 |$(B).TE$(A):TE$(|
00001020: 41 29 B2 54 24 00 4B 18 0A 14 54 24 B2 5A 31 24 |A).T$.K...T$.Z1$|
00001030: 28 42 29 3A 5A 31 24 28 42 29 B2 5A 31 24 28 41 |(B):Z1$(B).Z1$(A|
00001040: 29 3A 5A 31 24 28 41 29 B2 54 24 00 71 18 14 14 |):Z1$(A).T$.q...|
00001050: 54 24 B2 5A 32 24 28 42 29 3A 5A 32 24 28 42 29 |T$.Z2$(B):Z2$(B)|
00001060: B2 5A 32 24 28 41 29 3A 5A 32 24 28 41 29 B2 54 |.Z2$(A):Z2$(A).T|
00001070: 24 00 7B 18 1E 14 89 35 30 37 30 00 9D 18 28 14 |$.{....5070...(.|
00001080: 99 3A 99 22 44 49 45 20 4E 41 4D 45 4E 20 53 49 |.:."DIE NAMEN SI|
00001090: 4E 44 20 53 4F 52 54 49 45 52 54 20 22 00 B1 18 |ND SORTIERT "...|
000010A0: 32 14 81 57 B2 30 A4 31 30 30 30 3A 82 3A 89 33 |2..W.0.1000:.:.3|
000010B0: 30 00 E1 18 70 17 99 22 93 2A 2A 2A 2A 2A 2A 2A |0...p..".*******|
000010C0: 2A 2A 2A 2A 20 45 20 49 20 4E 20 4C 20 45 20 53 |**** E I N L E S|
000010D0: 20 45 20 4E 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | E N ***********|
000010E0: 22 00 28 19 7A 17 99 3A 99 22 42 49 54 54 45 20 |".(.z..:."BITTE |
000010F0: 4C 45 47 45 4E 20 53 49 45 20 45 49 4E 45 20 44 |LEGEN SIE EINE D|
00001100: 49 53 4B 45 54 54 45 20 46 55 45 52 20 44 49 45 |ISKETTE FUER DIE|
00001110: 20 20 44 41 54 45 4E 20 49 4E 20 44 41 53 20 4C | DATEN IN DAS L|
00001120: 41 55 46 57 45 52 4B 22 00 6F 19 84 17 99 3A 99 |AUFWERK".o....:.|
00001130: 22 57 45 4E 4E 20 53 49 45 20 46 45 52 54 49 47 |"WENN SIE FERTIG|
00001140: 20 53 49 4E 44 20 44 52 55 45 43 4B 45 4E 20 53 | SIND DRUECKEN S|
00001150: 49 45 20 20 20 20 20 20 20 44 49 45 20 12 5C 92 |IE DIE .\.|
00001160: 2D 54 41 53 54 45 20 21 20 22 3B 3A 4C B2 31 00 |-TASTE ! ";:L.1.|
00001170: 89 19 8E 17 8D 36 30 30 30 30 3A 8B 49 4E 24 B3 |.....60000:.IN$.|
00001180: B1 22 5C 22 A7 36 30 33 30 00 AE 19 98 17 9F 31 |."\".6030......1|
00001190: 35 2C 38 2C 31 35 3A 9F 35 2C 38 2C 35 2C 22 30 |5,8,15:.5,8,5,"0|
000011A0: 3A 41 44 52 45 53 53 45 4E 2C 53 2C 52 22 00 B7 |:ADRESSEN,S,R"..|
000011B0: 19 A2 17 84 35 2C 5A 00 C2 19 AC 17 81 49 B2 30 |....5,Z......I.0|
000011C0: A4 5A 00 D0 19 B6 17 84 35 2C 4E 41 24 28 49 29 |.Z......5,NA$(I)|
000011D0: 00 DE 19 C0 17 84 35 2C 53 54 24 28 49 29 00 EC |......5,ST$(I)..|
000011E0: 19 CA 17 84 35 2C 50 4C 24 28 49 29 00 FA 19 D4 |....5,PL$(I)....|
000011F0: 17 84 35 2C 57 4F 24 28 49 29 00 08 1A DE 17 84 |..5,WO$(I)......|
00001200: 35 2C 54 45 24 28 49 29 00 16 1A E8 17 84 35 2C |5,TE$(I)......5,|
00001210: 5A 31 24 28 49 29 00 24 1A F2 17 84 35 2C 5A 32 |Z1$(I).$....5,Z2|
00001220: 24 28 49 29 00 2A 1A FC 17 82 00 54 1A 06 18 99 |$(I).*.....T....|
00001230: 22 44 49 45 20 41 44 52 45 53 53 45 4E 20 53 49 |"DIE ADRESSEN SI|
00001240: 4E 44 20 4A 45 54 5A 54 20 45 49 4E 47 45 4C 45 |ND JETZT EINGELE|
00001250: 53 45 4E 22 00 68 1A 10 18 81 57 B2 30 A4 31 30 |SEN".h....W.0.10|
00001260: 30 30 3A 82 3A 89 33 30 00 98 1A 58 1B 99 22 93 |00:.:.30...X..".|
00001270: 2A 2A 2A 2A 2A 2A 2A 2A 20 41 20 42 20 53 20 50 |******** A B S P|
00001280: 20 45 20 49 20 43 20 48 20 45 20 52 20 4E 20 2A | E I C H E R N *|
00001290: 2A 2A 2A 2A 2A 2A 2A 22 00 DF 1A 62 1B 99 3A 99 |*******"...b..:.|
000012A0: 22 42 49 54 54 45 20 4C 45 47 45 4E 20 53 49 45 |"BITTE LEGEN SIE|
000012B0: 20 45 49 4E 45 20 44 49 53 4B 45 54 54 45 20 46 | EINE DISKETTE F|
000012C0: 55 45 52 20 44 49 45 20 20 44 41 54 45 4E 20 49 |UER DIE DATEN I|
000012D0: 4E 20 44 41 53 20 4C 41 55 46 57 45 52 4B 22 00 |N DAS LAUFWERK".|
000012E0: 26 1B 6C 1B 99 3A 99 22 57 45 4E 4E 20 53 49 45 |&.l..:."WENN SIE|
000012F0: 20 46 45 52 54 49 47 20 53 49 4E 44 20 44 52 55 | FERTIG SIND DRU|
00001300: 45 43 4B 45 4E 20 53 49 45 20 20 20 20 20 20 20 |ECKEN SIE |
00001310: 44 49 45 20 12 5C 92 2D 54 41 53 54 45 20 21 20 |DIE .\.-TASTE ! |
00001320: 22 3B 3A 4C B2 31 00 40 1B 76 1B 8D 36 30 30 30 |";:L.1.@.v..6000|
00001330: 30 3A 8B 49 4E 24 B3 B1 22 5C 22 A7 37 30 33 30 |0:.IN$.."\".7030|
00001340: 00 65 1B 80 1B 9F 31 35 2C 38 2C 31 35 3A 9F 35 |.e....15,8,15:.5|
00001350: 2C 38 2C 35 2C 22 30 3A 41 44 52 45 53 53 45 4E |,8,5,"0:ADRESSEN|
00001360: 2C 53 2C 57 22 00 6E 1B 8A 1B 98 35 2C 5A 00 79 |,S,W".n....5,Z.y|
00001370: 1B 94 1B 81 49 B2 30 A4 5A 00 87 1B 9E 1B 98 35 |....I.0.Z......5|
00001380: 2C 4E 41 24 28 49 29 00 95 1B A8 1B 98 35 2C 53 |,NA$(I)......5,S|
00001390: 54 24 28 49 29 00 A2 1B B2 1B 98 2C 50 4C 24 28 |T$(I)......,PL$(|
000013A0: 49 29 00 B0 1B BC 1B 98 35 2C 57 4F 24 28 49 29 |I)......5,WO$(I)|
000013B0: 00 BE 1B C6 1B 98 35 2C 54 45 24 28 49 29 00 CC |......5,TE$(I)..|
000013C0: 1B D0 1B 98 35 2C 5A 31 24 28 49 29 00 DA 1B DA |....5,Z1$(I)....|
000013D0: 1B 98 35 2C 5A 32 24 28 49 29 00 E0 1B E4 1B 82 |..5,Z2$(I)......|
000013E0: 00 0D 1C EE 1B 99 22 44 49 45 20 41 44 52 45 53 |......"DIE ADRES|
000013F0: 53 45 4E 20 53 49 4E 44 20 4A 45 54 5A 54 20 41 |SEN SIND JETZT A|
00001400: 42 47 45 53 50 45 49 43 48 45 52 54 22 00 21 1C |BGESPEICHERT".!.|
00001410: F8 1B 81 57 B2 30 A4 31 30 30 30 3A 82 3A 89 33 |...W.0.1000:.:.3|
00001420: 30 00 34 1C 28 23 99 22 93 22 3A 81 41 B2 30 A4 |0.4.(#.".":.A.0.|
00001430: 5A A9 32 30 00 4D 1C 32 23 41 43 B2 32 30 3A 8B |Z.20.M.2#AC.20:.|
00001440: 41 AA 41 43 B1 5A A7 41 43 B2 5A AB 41 00 5C 1C |A.AC.Z.AC.Z.A.\.|
00001450: 3C 23 81 41 41 B2 41 A4 41 AA 41 43 00 69 1C 46 |<#.AA.A.A.AC.i.F|
00001460: 23 99 4E 41 24 28 41 41 29 00 6F 1C 50 23 82 00 |#.NA$(AA).o.P#..|
00001470: 8A 1C 5A 23 99 22 57 45 49 54 45 52 20 3F 20 28 |..Z#."WEITER ? (|
00001480: 4A 2F 4E 29 20 22 3B 4C B2 31 00 AD 1C 64 23 8D |J/N) ";L.1...d#.|
00001490: 36 30 30 30 30 3A 8B 49 4E 24 B3 B1 22 4A 22 AF |60000:.IN$.."J".|
000014A0: 49 4E 24 B3 B1 22 4E 22 A7 39 30 36 30 00 BC 1C |IN$.."N".9060...|
000014B0: 6E 23 8B 49 4E 24 B2 22 4E 22 A7 8E 00 C4 1C 78 |n#.IN$."N".....x|
000014C0: 23 82 3A 8E 00 CF 1C 10 27 81 49 B2 30 A4 5A 00 |#.:.....'.I.0.Z.|
000014D0: E1 1C 1A 27 8B 49 4E 24 B2 4E 41 24 28 49 29 A7 |...'.IN$.NA$(I).|
000014E0: 8E 00 E7 1C 24 27 82 00 04 1D 2E 27 99 22 4E 41 |....$'.....'."NA|
000014F0: 4D 45 20 4E 49 43 48 54 20 47 45 46 55 4E 44 45 |ME NICHT GEFUNDE|
00001500: 4E 20 21 22 00 15 1D 38 27 81 41 42 B2 30 A4 31 |N !"...8'.AB.0.1|
00001510: 30 30 30 3A 82 00 1B 1D 42 27 8E 00 2E 1D 60 EA |000:....B'....`.|
00001520: 81 49 B2 31 A4 4C 3A 99 22 23 22 3B 3A 82 00 41 |.I.1.L:."#";:..A|
00001530: 1D 61 EA 81 49 B2 31 A4 4C 3A 99 22 9D 22 3B 3A |.a..I.1.L:.".";:|
00001540: 82 00 57 1D 62 EA 49 24 B2 22 22 3A 49 4E 24 B2 |..W.b.I$."":IN$.|
00001550: 22 22 3A 5A 4C B2 30 00 65 1D 63 EA 99 22 12 23 |"":ZL.0.e.c..".#|
00001560: 92 9D 22 3B 3A 00 7A 1D 64 EA A1 49 24 3A 8B 49 |..";:.z.d..I$:.I|
00001570: 24 B2 22 22 A7 36 30 30 30 34 00 8F 1D 66 EA 8B |$."".60004...f..|
00001580: 49 24 B2 C7 28 31 33 29 A7 99 22 20 22 3A 8E 00 |I$..(13).." ":..|
00001590: C9 1D 67 EA 8B 49 24 B2 C7 28 31 33 33 29 A7 49 |..g..I$..(133).I|
000015A0: 4E 24 B2 C8 28 49 4E 24 2C 28 C3 28 49 4E 24 29 |N$..(IN$,(.(IN$)|
000015B0: AB 31 29 29 3A 99 22 9D 23 23 9D 9D 12 23 92 9D |.1)):.".##...#..|
000015C0: 22 3B 3A 89 36 30 30 30 34 00 DD 1D 68 EA 49 4E |";:.60004...h.IN|
000015D0: 24 B2 49 4E 24 AA 49 24 3A 99 49 24 3B 00 F6 1D |$.IN$.I$:.I$;...|
000015E0: 69 EA 5A 4C B2 5A 4C AA 31 3A 8B 5A 4C B2 4C A7 |i.ZL.ZL.1:.ZL.L.|
000015F0: 99 22 20 22 3A 8E 00 0A 1E 6A EA 99 22 12 23 92 |." ":....j..".#.|
00001600: 9D 22 3B 3A 89 36 30 30 30 34 00 00 00 55 42 00 |.";:.60004...UB.|
.......53280,0:.53281,0:."..".A....NA$(1
00),ST$(100),PL$(100),WO$(100),TE$(100),
Z1$(100),Z2$(100)......".*********** A D
R E S S E N ***********"...(..:.:." .1
. EINGABE"...2.." . .".L.<.." .2. AUSG
ABE".Y.F.." . ."...P.." .3. AENDERN"..
.Z.." . ."...D.." .4. LOESCHEN"...N.."
. .".5.X.." .5. SORTIEREN".B...." .
.".X...." .6. EINLESEN".E...." . .".~.
.." .7. ABSPEICHERN"......" . .". ...
." .8. BEENDEN".G....:."WAS WOLLEN SIE
MACHEN ? ";:L.1...H..60000:.IN$."1".IN$.
"8".200...R.IN.E(IN$):.IN.1.IN.8.200.3..
..IN.1000,2000,3000,4000,5000,6000,7000,
230.9.....I....".************ E I N G A
B E ************"......:.:Z.Z.1:.Z.101.8
000......"NAME/VORN.: ";:L.20:.60000.F..
.NA$(Z).IN$:.IN$."".NA$(Z)."?"......"STR
ASSE : ";:L.25:.60000.....ST$(Z).IN$:.
IN$."".ST$(Z)."?".).$.."PLZ : ";:L
.4:.60000.K...PL$(Z).IN$:.IN$."".PL$(Z).
"?".L.8.."WOHNORT : ";:L.30:.60000...B
.WO$(Z).IN$:.IN$."".WO$(Z)."?"...L.."TEL
EFONNR.: ";:L.15:.60000.Q.V.TE$(Z).IN$:.
IN$."".TE$(Z)."?"...`.."ZUSATZ 1 : ";:L
.30:.60000...J.Z1$(Z).IN$:.IN$."".Z1$(Z)
."?".5.T.."ZUSATZ 2 : ";:L.30:.60000.W.
~.Z2$(Z).IN$:.IN$."".Z2$(Z)."?"......:."
WOLLEN SIE WEITERE ADRESSEN
EINGEBEN ? (J/N) ";:L.1.B....60000:.IN$.
."J".IN$.."N".1170.T....IN$."J".1000....
..30...P..".************ A U S G A B E *
***********".?.Z..:."WOLLEN SIE EINE LIS
TE HABEN ? (J/N) ";:L.1.B....60000:.IN$.
."J".IN$.."N".2020.U....IN$."J"..9000...
...:."WELCHEN NAMEN WOLLEN SIE SEHEN ?";
:L.20:.60000......10000.E....NA$(I):..S.
...ST$(I):.... ..PL$(I)" "WO$(I):....*..
TE$(I):....4..Z1$(I):....>..Z2$(I):..Y.H
..:."WOLLEN SIE WEITERE ADRESSEN
SEHEN ? (J/N) ";:L.1.|.R..60000:.IN
$.."J".IN$.."N".2130...\..IN$."J".2000..
.F..30.F....".************ A E N D E R N
************"...B..:."WOLLEN SIE EINE L
ISTE HABEN ? (J/N) ";:L.1...L..60000:.IN
$.."J".IN$.."N".3020./.V..IN$."J"..9000.
H....:."WELCHEN NAMEN WOLLEN SIE AENDERN
?";:L.20:.60000.S....10000......".*****
******* A E N D E R N ************".....
.:.:." .1. NAME/VORN.".L...." . ."....
.." .2. STRASSE "......" . ."...&.."
.3. PLZ "...0.." . ."...:.." .
4. WOHNORT ".;.D.." . .".S.N.." .5.
TELEFONNR.".`.X.." . .".X.B.." .6. ZUS
ATZ 1 "...L.." . ."...V.." .7. ZUSATZ
2 ".E....:."WAS WOLLEN SIE AENDERN ? "
;:L.1......60000:.IN$."1".IN$."7".3210..
...IN.E(IN$):.IN.3230,3250,3270,3290,331
0,3330,3350.Y...."ALTER NAME/VORN. : "NA
$(I):."NEUER NAME/VORN. : ";:L.20.U....6
0000:NA$(I).IN$:.3370......"ALTE STRASSE
: "ST$(I):."NEUE STRASSE : ";:L.
25.N....60000:ST$(I).IN$:.3370...F.."ALT
E PLZ : "PL$(I):."NEUE PLZ
: ";:L.4.&.P..60000:PL$(I).IN$:.3370.E
.Z.."ALTER WOHNORT : "WO$(I):."NEUER
WOHNORT : ";:L.30......60000:WO$(I).
IN$:.3370......"ALTE TELEFONNR. : "TE$(
I):."NEUE TELEFONNR. : ";:L.15.Z....6000
0:TE$(I).IN$:.3370......"ALTER ZUSATZ 1
: "Z1$(I):."NEUER ZUSATZ 1 : ";:L.3
0.5....60000:Z1$(I).IN$:.3370.T...."ALTE
R ZUSATZ 2 : "Z2$(I):."NEUER ZUSATZ 2
: ";:L.30... ..60000:Z2$(I).IN$...*..
:."WOLLEN SIE NOCH ETWAS AENDERN ? (J/N)
";:L.1...4..60000:.IN$.."JANIN$<>"N"TH3
380...>..IN$."J".3000...H..30... ..".***
******** L O E S C H E N ************".A
....:."WOLLEN SIE EINE LISTE HABEN ? (J/
N) ";:L.1......60000:.IN$.."J".IN$.."N".
4020......IN$."J"..9000.Q.H..:."WELCHEN
NAMEN WOLLEN SIE LOESCHEN ?";:L.20:.6000
0...R..10000......:.NA$(I)" WIRD JETZT G
ELOESCHT ":L$.NA$(I)......II.I.Z.1.0...N
A$(II).NA$(II.1).F...ST$(II).ST$(II.1).\
...PL$(II).PL$(II.1).R...WO$(II).WO$(II.
1).....TE$(II).TE$(II.1)...".Z1$(II).Z1$
(II.1)...,.Z2$(II).Z2$(II.1)...6..:NA$(Z
)."":ST$(Z)."":PL$(Z)."":WO$(Z)."":TE$(Z
)."":Z1$(Z)."":Z2$(Z).""...@.Z.Z.1.'.J..
:.L$" WURDE GELOESCHT ".O.T.:.."WOLLEN S
IE NOCH MEHR ADRESSEN LOESCHEN
? (J/N) ";:L.1...^..60000:.IN$.."J".IN$
.."N".4190...H..IN$."J".4000...R..30....
..".********** S O R T I E R E N *******
***"......:."DIE ADRESSEN WERDEN JETZT S
ORTIERT"......W.0.3. ....A.0.Z.1.+....B.
0.A.>...."......"W,A,B.V.D..NA$(B).NA$(A
).5080.G.N..B,A,W:.5160...X.T$.NA$(B):NA
$(B).NA$(A):NA$(A).T$.....T$.ST$(B):ST$(
B).ST$(A):ST$(A).T$.Y...T$.PL$(B):PL$(B)
.PL$(A):PL$(A).T$.....T$.WO$(B):WO$(B).W
O$(A):WO$(A).T$.%...T$.TE$(B):TE$(B).TE$
(A):TE$(A).T$.K...T$.Z1$(B):Z1$(B).Z1$(A
):Z1$(A).T$.Q...T$.Z2$(B):Z2$(B).Z2$(A):
Z2$(A).T$.{....5070...(..:."DIE NAMEN SI
ND SORTIERT "...2..W.0.1000:.:.30...P.."
.*********** E I N L E S E N ***********
".(.Z..:."BITTE LEGEN SIE EINE DISKETTE
FUER DIE DATEN IN DAS LAUFWERK".O....:.
"WENN SIE FERTIG SIND DRUECKEN SIE
DIE .\.-TASTE ! ";:L.1......60000:.IN$.
."\".6030......15,8,15:.5,8,5,"0:ADRESSE
N,S,R"......5,Z.B....I.0.Z.P....5,NA$(I)
......5,ST$(I)...J..5,PL$(I)...T..5,WO$(
I)......5,TE$(I)......5,Z1$(I).$....5,Z2
$(I).*.....T...."DIE ADRESSEN SIND JETZT
EINGELESEN".H....W.0.1000:.:.30...X..".
******** A B S P E I C H E R N ********"
...B..:."BITTE LEGEN SIE EINE DISKETTE F
UER DIE DATEN IN DAS LAUFWERK".&.L..:."
WENN SIE FERTIG SIND DRUECKEN SIE
DIE .\.-TASTE ! ";:L.1.@.V..60000:.IN$..
"\".7030.E....15,8,15:.5,8,5,"0:ADRESSEN
,S,W".N....5,Z.Y....I.0.Z......5,NA$(I).
.....5,ST$(I)......,PL$(I)......5,WO$(I)
...F..5,TE$(I).L.P..5,Z1$(I).Z.Z..5,Z2$(
I)............"DIE ADRESSEN SIND JETZT A
BGESPEICHERT".!....W.0.1000:.:.30.4.(#."
.":.A.0.Z.20.M.2#AC.20:.A.AC.Z.AC.Z.A.\.
<#.AA.A.A.AC.I.F#.NA$(AA).O.P#....Z#."WE
ITER ? (J/N) ";L.1...D#.60000:.IN$.."J".
IN$.."N".9060...N#.IN$."N"...D.X#.:..O..
'.I.0.Z....'.IN$.NA$(I).....$'.....'."NA
ME NICHT GEFUNDEN !"...8'.AB.0.1000:....
B'....`..I.1.L:."#";:..A.A..I.1.L:.".";:
..W.B.I$."":IN$."":ZL.0.E.C..".#..";:.Z.
D..I$:.I$."".60004...F..I$.G(13).." ":..
I.G..I$.G(133).IN$.H(IN$,(C(IN$).1)):.".
##...#..";:.60004...H.IN$.IN$.I$:.I$;...
I.ZL.ZL.1:.ZL.L.." ":....J..".#..";:.600
04...UB.
> CLICK IMAGE PREVIEW FOR FULL MODAL