ADRESSVERWALTUNG
FILE INFORMATION
FILENAME(S): ADRESSVERWALTUNG
FILE TYPE(S): PRG
FILE SIZE: 4.2K
FIRST SEEN: 2025-11-30 01:12:33
APPEARS ON: 2 disk(s)
FILE HASH
91a88dc774b5a85c20dc15ea9cac4c93f00a559d0fa0ccdb3e779e4e5eea05ca
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SONDERHEFT 2 86 | ADRESSVERWALTUNG | PRG | C64er | 13 | 16 | DOWNLOAD FILE |
| SONDER 2 86 1 | ADRESSVERWALTUNG | PRG | DuncanTwain | 14 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 50 08 64 00 8F 2D 2D 2D 20 41 44 52 45 53 |..P.d..--- ADRES| 00000010: 53 56 45 52 57 41 4C 54 55 4E 47 20 4D 49 54 20 |SVERWALTUNG MIT | 00000020: 49 4E 44 45 58 53 45 51 55 45 4E 54 49 45 4C 4C |INDEXSEQUENTIELL| 00000030: 45 52 20 44 41 54 45 49 4F 52 47 41 4E 49 53 41 |ER DATEIORGANISA| 00000040: 54 49 4F 4E 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |TION -----------| 00000050: 00 9F 08 6E 00 8F 2D 2D 2D 20 28 57 29 20 31 39 |...n..--- (W) 19| 00000060: 38 35 20 42 59 20 4D 41 52 54 49 4E 20 48 45 43 |85 BY MARTIN HEC| 00000070: 48 54 2C 53 54 47 54 20 2D 2D 2D 2D 2D 2D 2D 2D |HT,STGT --------| 00000080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |---------------.| 000000A0: A5 08 78 00 3A 00 AB 08 82 00 3A 00 B1 08 8C 00 |..x.:.....:.....| 000000B0: 3A 00 00 09 96 00 8F 2D 2D 2D 20 44 49 4D 45 4E |:......--- DIMEN| 000000C0: 53 49 4F 4E 49 45 52 55 4E 47 45 4E 20 2D 2D 2D |SIONIERUNGEN ---| 000000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000000E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000100: 00 06 09 A0 00 3A 00 2C 09 AA 00 44 4D B2 31 30 |.....:.,...DM.10| 00000110: 30 3A 8F 20 4D 41 58 49 4D 41 4C 45 20 44 41 54 |0:. MAXIMALE DAT| 00000120: 45 4E 53 41 54 5A 41 4E 5A 41 48 4C 00 32 09 B4 |ENSATZANZAHL.2..| 00000130: 00 3A 00 61 09 BE 00 86 20 49 44 24 28 44 4D 29 |.:.a.... ID$(DM)| 00000140: 3A 8F 20 49 4E 44 45 58 46 45 4C 44 20 28 45 4E |:. INDEXFELD (EN| 00000150: 54 48 41 45 4C 54 20 4E 41 43 48 4E 41 4D 45 4E |THAELT NACHNAMEN| 00000160: 29 00 93 09 C8 00 86 20 49 4E 28 44 4D 29 3A 8F |)...... IN(DM):.| 00000170: 20 45 4E 54 48 41 45 4C 54 20 5A 55 47 45 48 4F | ENTHAELT ZUGEHO| 00000180: 45 52 49 47 45 20 52 45 43 4F 52 44 4E 55 4D 4D |ERIGE RECORDNUMM| 00000190: 45 52 4E 00 AE 09 D2 00 86 20 44 53 24 28 35 29 |ERN...... DS$(5)| 000001A0: 3A 8F 20 44 41 54 45 4E 46 45 4C 44 45 52 00 B4 |:. DATENFELDER..| 000001B0: 09 DC 00 3A 00 BA 09 E6 00 3A 00 C0 09 F0 00 3A |...:.....:.....:| 000001C0: 00 0F 0A FA 00 8F 2D 2D 2D 20 48 41 55 50 54 4D |......--- HAUPTM| 000001D0: 45 4E 55 45 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |ENUE -----------| 000001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000200: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |---------------.| 00000210: 15 0A 04 01 3A 00 22 0A 0E 01 57 4C B2 30 3A 99 |....:."...WL.0:.| 00000220: 3A 99 00 42 0A 18 01 99 20 A3 31 31 29 20 22 41 |:..B.... .11) "A| 00000230: 44 52 45 53 53 45 4E 56 45 52 57 41 4C 54 55 4E |DRESSENVERWALTUN| 00000240: 47 22 00 48 0A 22 01 99 00 6D 0A 2C 01 99 20 A3 |G".H."...m.,.. .| 00000250: 38 29 22 2D 31 2D 3A 20 44 41 54 45 49 41 52 42 |8)"-1-: DATEIARB| 00000260: 45 49 54 20 42 45 47 49 4E 4E 45 4E 22 00 8F 0A |EIT BEGINNEN"...| 00000270: 36 01 99 20 A3 38 29 22 2D 32 2D 3A 20 41 44 52 |6.. .8)"-2-: ADR| 00000280: 45 53 53 45 4E 20 45 49 4E 47 45 42 45 4E 22 00 |ESSEN EINGEBEN".| 00000290: B1 0A 40 01 99 20 A3 38 29 22 2D 33 2D 3A 20 41 |..@.. .8)"-3-: A| 000002A0: 44 52 45 53 53 45 4E 20 41 55 53 47 45 42 45 4E |DRESSEN AUSGEBEN| 000002B0: 22 00 D5 0A 4A 01 99 20 A3 38 29 22 2D 34 2D 3A |"...J.. .8)"-4-:| 000002C0: 20 44 41 54 45 49 41 52 42 45 49 54 20 42 45 45 | DATEIARBEIT BEE| 000002D0: 4E 44 45 4E 22 00 DB 0A 54 01 99 00 E1 0A 5E 01 |NDEN"...T.....^.| 000002E0: 3A 00 04 0B 68 01 99 20 A3 31 31 29 20 22 49 48 |:...h.. .11) "IH| 000002F0: 52 45 20 57 41 48 4C 20 28 31 2D 34 29 22 3B 3A |RE WAHL (1-4)";:| 00000300: 85 20 57 4C 00 0A 0B 72 01 3A 00 34 0B 7C 01 8B |. WL...r.:.4.|..| 00000310: 20 57 4C B2 31 20 A7 20 8D 20 34 39 30 3A 8F 20 | WL.1 . . 490:. | 00000320: 44 41 54 45 49 41 52 42 45 49 54 20 42 45 47 49 |DATEIARBEIT BEGI| 00000330: 4E 4E 45 4E 00 5B 0B 86 01 8B 20 57 4C B2 32 20 |NNEN.[.... WL.2 | 00000340: A7 20 8D 20 37 31 30 3A 8F 20 41 44 52 45 53 53 |. . 710:. ADRESS| 00000350: 45 4E 20 45 49 4E 47 45 42 45 4E 00 83 0B 90 01 |EN EINGEBEN.....| 00000360: 8B 20 57 4C B2 33 20 A7 20 8D 20 31 31 31 30 3A |. WL.3 . . 1110:| 00000370: 8F 20 41 44 52 45 53 53 45 4E 20 41 55 53 47 45 |. ADRESSEN AUSGE| 00000380: 42 45 4E 00 AD 0B 9A 01 8B 20 57 4C B2 34 20 A7 |BEN...... WL.4 .| 00000390: 20 89 20 31 34 38 30 3A 8F 20 44 41 54 45 49 41 | . 1480:. DATEIA| 000003A0: 52 42 45 49 54 20 42 45 45 4E 44 45 4E 00 B3 0B |RBEIT BEENDEN...| 000003B0: A4 01 3A 00 D6 0B AE 01 89 20 32 37 30 3A 8F 20 |..:...... 270:. | 000003C0: 5A 55 52 55 45 43 4B 20 5A 55 4D 20 48 41 55 50 |ZURUECK ZUM HAUP| 000003D0: 54 4D 45 4E 55 45 00 DC 0B B8 01 3A 00 E2 0B C2 |TMENUE.....:....| 000003E0: 01 3A 00 E8 0B CC 01 3A 00 37 0C D6 01 8F 2D 2D |.:.....:.7....--| 000003F0: 2D 20 44 41 54 45 49 41 52 42 45 49 54 20 42 45 |- DATEIARBEIT BE| 00000400: 47 49 4E 4E 45 4E 20 2D 2D 2D 2D 2D 2D 2D 2D 2D |GINNEN ---------| 00000410: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000420: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000430: 2D 2D 2D 2D 2D 2D 2D 00 3D 0C E0 01 3A 00 87 0C |-------.=...:...| 00000440: EA 01 4C 46 B2 31 3A 53 41 B2 32 3A 44 4E 24 B2 |..LF.1:SA.2:DN$.| 00000450: 22 52 45 4C 41 44 52 22 3A 52 4C B2 36 37 3A 8D |"RELADR":RL.67:.| 00000460: 20 31 38 30 30 3A 8F 20 52 45 4C 41 54 49 56 45 | 1800:. RELATIVE| 00000470: 20 44 41 54 45 49 20 27 52 45 4C 41 44 52 27 20 | DATEI 'RELADR' | 00000480: 4F 45 46 46 4E 45 4E 00 8D 0C F4 01 3A 00 D6 0C |OEFFNEN.....:...| 00000490: FE 01 9F 20 32 2C 38 2C 33 2C 22 53 45 51 41 44 |... 2,8,3,"SEQAD| 000004A0: 52 2C 53 2C 52 22 3A 8F 20 53 45 51 55 45 4E 54 |R,S,R":. SEQUENT| 000004B0: 49 45 4C 4C 45 20 44 41 54 45 49 20 27 53 45 51 |IELLE DATEI 'SEQ| 000004C0: 41 44 52 27 20 5A 55 4D 20 4C 45 53 45 4E 20 4F |ADR' ZUM LESEN O| 000004D0: 45 46 46 4E 45 4E 00 DC 0C 08 02 3A 00 05 0D 12 |EFFNEN.....:....| 000004E0: 02 8D 20 31 36 32 30 3A 8F 20 46 4C 4F 50 50 59 |.. 1620:. FLOPPY| 000004F0: 2D 46 45 48 4C 45 52 4B 41 4E 41 4C 20 41 55 53 |-FEHLERKANAL AUS| 00000500: 4C 45 53 45 4E 00 3E 0D 1C 02 8B 20 45 52 B3 B1 |LESEN.>.... ER..| 00000510: 30 20 A7 20 41 44 B2 30 3A 89 20 35 39 30 3A 8F |0 . AD.0:. 590:.| 00000520: 20 44 41 54 45 49 20 49 53 54 20 4E 4F 43 48 20 | DATEI IST NOCH | 00000530: 4E 49 43 48 54 20 41 4E 47 45 4C 45 47 54 00 44 |NICHT ANGELEGT.D| 00000540: 0D 26 02 3A 00 67 0D 30 02 84 32 2C 41 44 3A 8F |.&.:.g.0..2,AD:.| 00000550: 20 41 4E 5A 41 48 4C 20 44 45 52 20 44 41 54 45 | ANZAHL DER DATE| 00000560: 4E 53 41 45 54 5A 45 00 A0 0D 3A 02 81 20 49 B2 |NSAETZE...:.. I.| 00000570: 31 20 A4 20 41 44 3A 84 32 2C 49 44 24 28 49 29 |1 . AD:.2,ID$(I)| 00000580: 2C 49 4E 28 49 29 3A 82 20 49 3A 8F 20 49 4E 44 |,IN(I):. I:. IND| 00000590: 45 58 44 41 54 45 49 20 45 49 4E 4C 45 53 45 4E |EXDATEI EINLESEN| 000005A0: 00 A6 0D 44 02 3A 00 D7 0D 4E 02 46 4C B2 31 3A |...D.:...N.FL.1:| 000005B0: 8F 20 4B 45 4E 4E 5A 45 49 43 48 4E 55 4E 47 20 |. KENNZEICHNUNG | 000005C0: 46 55 45 52 20 27 44 41 54 45 49 20 49 4D 20 52 |FUER 'DATEI IM R| 000005D0: 45 43 48 4E 45 52 27 00 DD 0D 58 02 3A 00 05 0E |ECHNER'...X.:...| 000005E0: 62 02 A0 20 32 3A 8F 20 53 45 51 55 45 4E 54 49 |b.. 2:. SEQUENTI| 000005F0: 45 4C 4C 45 20 44 41 54 45 49 20 53 43 48 4C 49 |ELLE DATEI SCHLI| 00000600: 45 53 53 45 4E 00 0B 0E 6C 02 3A 00 37 0E 76 02 |ESSEN...l.:.7.v.| 00000610: 99 3A 99 3A 99 20 A3 37 29 20 22 44 41 54 45 49 |.:.:. .7) "DATEI| 00000620: 41 52 42 45 49 54 20 4B 41 4E 4E 20 42 45 47 49 |ARBEIT KANN BEGI| 00000630: 4E 4E 45 4E 20 21 22 00 3D 0E 80 02 3A 00 43 0E |NNEN !".=...:.C.| 00000640: 8A 02 8E 00 49 0E 94 02 3A 00 4F 0E 9E 02 3A 00 |....I...:.O...:.| 00000650: 55 0E A8 02 3A 00 A4 0E B2 02 8F 2D 2D 2D 20 41 |U...:......--- A| 00000660: 44 52 45 53 53 45 4E 20 45 49 4E 47 45 42 45 4E |DRESSEN EINGEBEN| 00000670: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---------------| 00000680: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000690: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000006A0: 2D 2D 2D 2D 00 AA 0E BC 02 3A 00 DC 0E C6 02 8B |----.....:......| 000006B0: 20 46 4C B2 30 20 A7 20 99 3A 99 20 A3 38 29 20 | FL.0 . .:. .8) | 000006C0: 22 4B 45 49 4E 45 20 44 41 54 45 49 20 49 4D 20 |"KEINE DATEI IM | 000006D0: 52 45 43 48 4E 45 52 20 21 22 3A 8E 00 E2 0E D0 |RECHNER !":.....| 000006E0: 02 3A 00 F9 0E DA 02 8F 20 41 44 52 45 53 53 45 |.:...... ADRESSE| 000006F0: 20 45 49 4E 47 45 42 45 4E 00 01 0F E4 02 99 3A | EINGEBEN......:| 00000700: 99 00 20 0F EE 02 85 20 22 4E 41 43 48 4E 41 4D |.. .... "NACHNAM| 00000710: 45 20 28 31 35 29 20 3A 22 3B 44 53 24 28 31 29 |E (15) :";DS$(1)| 00000720: 00 3E 0F F8 02 85 20 22 56 4F 52 4E 41 4D 45 20 |.>.... "VORNAME | 00000730: 28 31 30 29 20 3A 22 3B 44 53 24 28 32 29 00 5C |(10) :";DS$(2).\| 00000740: 0F 02 03 85 20 22 53 54 52 41 53 53 45 20 28 31 |.... "STRASSE (1| 00000750: 35 29 20 3A 22 3B 44 53 24 28 33 29 00 7A 0F 0C |5) :";DS$(3).z..| 00000760: 03 85 20 22 57 4F 48 4E 4F 52 54 20 28 31 35 29 |.. "WOHNORT (15)| 00000770: 20 3A 22 3B 44 53 24 28 34 29 00 98 0F 16 03 85 | :";DS$(4)......| 00000780: 20 22 54 45 4C 45 46 4F 4E 20 28 31 31 29 20 3A | "TELEFON (11) :| 00000790: 22 3B 44 53 24 28 35 29 00 9E 0F 20 03 3A 00 C4 |";DS$(5)... .:..| 000007A0: 0F 2A 03 8F 20 41 44 52 45 53 53 45 20 49 4E 20 |.*.. ADRESSE IN | 000007B0: 49 4E 44 45 58 44 41 54 45 49 20 56 45 52 4D 45 |INDEXDATEI VERME| 000007C0: 52 4B 45 4E 00 F4 0F 34 03 41 44 B2 41 44 AA 31 |RKEN...4.AD.AD.1| 000007D0: 3A 8F 20 41 4E 5A 41 48 4C 20 44 45 52 20 41 44 |:. ANZAHL DER AD| 000007E0: 52 45 53 53 45 4E 20 55 4D 20 31 20 45 52 48 4F |RESSEN UM 1 ERHO| 000007F0: 45 48 45 4E 00 12 10 3E 03 49 44 24 28 41 44 29 |EHEN...>.ID$(AD)| 00000800: B2 44 53 24 28 31 29 3A 8F 20 4E 41 43 48 4E 41 |.DS$(1):. NACHNA| 00000810: 4D 45 00 2F 10 48 03 49 4E 28 41 44 29 B2 52 4E |ME./.H.IN(AD).RN| 00000820: 3A 8F 20 52 45 43 4F 52 44 4E 55 4D 4D 45 52 00 |:. RECORDNUMMER.| 00000830: 35 10 52 03 3A 00 64 10 5C 03 8F 20 41 44 52 45 |5.R.:.d.\.. ADRE| 00000840: 53 53 46 45 4C 44 45 52 20 41 55 46 20 52 49 43 |SSFELDER AUF RIC| 00000850: 48 54 49 47 45 20 4C 41 45 4E 47 45 20 42 52 49 |HTIGE LAENGE BRI| 00000860: 4E 47 45 4E 00 A5 10 66 03 4C 45 24 B2 22 20 20 |NGEN...f.LE$." | 00000870: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 8F | ":.| 00000880: 20 4C 45 45 52 53 54 52 49 4E 47 20 5A 55 4D 20 | LEERSTRING ZUM | 00000890: 41 55 46 46 55 45 4C 4C 45 4E 20 44 45 52 20 46 |AUFFUELLEN DER F| 000008A0: 45 4C 44 45 52 00 D4 10 70 03 44 53 24 28 31 29 |ELDER...p.DS$(1)| 000008B0: B2 C8 28 44 53 24 28 31 29 AA C8 28 4C 45 24 2C |..(DS$(1)..(LE$,| 000008C0: B6 28 31 35 AB C3 28 44 53 24 28 31 29 29 29 29 |.(15..(DS$(1))))| 000008D0: 2C 31 35 29 00 03 11 7A 03 44 53 24 28 32 29 B2 |,15)...z.DS$(2).| 000008E0: C8 28 44 53 24 28 32 29 AA C8 28 4C 45 24 2C B6 |.(DS$(2)..(LE$,.| 000008F0: 28 31 30 AB C3 28 44 53 24 28 32 29 29 29 29 2C |(10..(DS$(2)))),| 00000900: 31 30 29 00 32 11 84 03 44 53 24 28 33 29 B2 C8 |10).2...DS$(3)..| 00000910: 28 44 53 24 28 33 29 AA C8 28 4C 45 24 2C B6 28 |(DS$(3)..(LE$,.(| 00000920: 31 35 AB C3 28 44 53 24 28 33 29 29 29 29 2C 31 |15..(DS$(3)))),1| 00000930: 35 29 00 61 11 8E 03 44 53 24 28 34 29 B2 C8 28 |5).a...DS$(4)..(| 00000940: 44 53 24 28 34 29 AA C8 28 4C 45 24 2C B6 28 31 |DS$(4)..(LE$,.(1| 00000950: 35 AB C3 28 44 53 24 28 34 29 29 29 29 2C 31 35 |5..(DS$(4)))),15| 00000960: 29 00 90 11 98 03 44 53 24 28 35 29 B2 C8 28 44 |).....DS$(5)..(D| 00000970: 53 24 28 35 29 AA C8 28 4C 45 24 2C B6 28 31 31 |S$(5)..(LE$,.(11| 00000980: AB C3 28 44 53 24 28 35 29 29 29 29 2C 31 31 29 |..(DS$(5)))),11)| 00000990: 00 96 11 A2 03 3A 00 C4 11 AC 03 8F 20 41 44 52 |.....:...... ADR| 000009A0: 45 53 53 45 20 46 55 45 52 20 53 50 45 49 43 48 |ESSE FUER SPEICH| 000009B0: 45 52 55 4E 47 20 5A 55 53 41 4D 4D 45 4E 46 41 |ERUNG ZUSAMMENFA| 000009C0: 53 53 45 4E 00 CF 11 B6 03 52 43 24 B2 22 22 00 |SSEN.....RC$."".| 000009D0: F0 11 C0 03 81 20 49 B2 31 20 A4 20 35 3A 52 43 |..... I.1 . 5:RC| 000009E0: 24 B2 52 43 24 AA 44 53 24 28 49 29 3A 82 20 49 |$.RC$.DS$(I):. I| 000009F0: 00 F6 11 CA 03 3A 00 0E 12 D4 03 8F 20 41 44 52 |.....:...... ADR| 00000A00: 45 53 53 45 20 53 50 45 49 43 48 45 52 4E 00 48 |ESSE SPEICHERN.H| 00000A10: 12 DE 03 52 4E B2 41 44 3A 52 50 B2 31 3A 8D 20 |...RN.AD:RP.1:. | 00000A20: 31 39 33 30 3A 8F 20 41 55 46 20 52 45 43 4F 52 |1930:. AUF RECOR| 00000A30: 44 20 28 4E 52 2E 3D 41 44 29 20 50 4F 53 49 54 |D (NR.=AD) POSIT| 00000A40: 49 4F 4E 49 45 52 45 4E 00 72 12 E8 03 98 4C 46 |IONIEREN.r....LF| 00000A50: 2C 52 43 24 3A 8F 20 41 44 52 45 53 53 45 20 49 |,RC$:. ADRESSE I| 00000A60: 4E 20 52 45 43 4F 52 44 20 53 43 48 52 45 49 42 |N RECORD SCHREIB| 00000A70: 45 4E 00 9B 12 F2 03 8D 20 31 36 30 30 3A 8F 20 |EN...... 1600:. | 00000A80: 46 4C 4F 50 50 59 2D 46 45 48 4C 45 52 4B 41 4E |FLOPPY-FEHLERKAN| 00000A90: 41 4C 20 41 55 53 4C 45 53 45 4E 00 A1 12 FC 03 |AL AUSLESEN.....| 00000AA0: 3A 00 C9 12 06 04 99 3A 99 3A 99 A3 35 29 22 41 |:......:.:..5)"A| 00000AB0: 44 52 45 53 53 45 20 49 53 54 20 47 45 53 50 45 |DRESSE IST GESPE| 00000AC0: 49 43 48 45 52 54 20 21 22 00 CF 12 10 04 3A 00 |ICHERT !".....:.| 00000AD0: D5 12 1A 04 8E 00 DB 12 24 04 3A 00 E1 12 2E 04 |........$.:.....| 00000AE0: 3A 00 E7 12 38 04 3A 00 36 13 42 04 8F 2D 2D 2D |:...8.:.6.B..---| 00000AF0: 20 41 44 52 45 53 53 45 4E 20 41 55 53 47 45 42 | ADRESSEN AUSGEB| 00000B00: 45 4E 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |EN -------------| 00000B10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000B20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000B30: 2D 2D 2D 2D 2D 2D 00 3C 13 4C 04 3A 00 6E 13 56 |------.<.L.:.n.V| 00000B40: 04 8B 20 46 4C B2 30 20 A7 20 99 3A 99 20 A3 38 |.. FL.0 . .:. .8| 00000B50: 29 20 22 4B 45 49 4E 45 20 44 41 54 45 49 20 49 |) "KEINE DATEI I| 00000B60: 4D 20 52 45 43 48 4E 45 52 20 21 22 3A 8E 00 74 |M RECHNER !":..t| 00000B70: 13 60 04 3A 00 9E 13 6A 04 99 3A 99 3A 85 20 22 |.`.:...j..:.:. "| 00000B80: 4E 41 43 48 4E 41 4D 45 22 3B 4E 4E 24 3A 8F 20 |NACHNAME";NN$:. | 00000B90: 49 4E 44 45 58 20 45 52 46 52 41 47 45 4E 00 A4 |INDEX ERFRAGEN..| 00000BA0: 13 74 04 3A 00 CC 13 7E 04 81 20 49 B2 31 20 A4 |.t.:...~.. I.1 .| 00000BB0: 20 41 44 3A 8F 20 49 4E 44 45 58 44 41 54 45 49 | AD:. INDEXDATEI| 00000BC0: 20 44 55 52 43 48 53 55 43 48 45 4E 00 05 14 88 | DURCHSUCHEN....| 00000BD0: 04 8B 20 4E 4E 24 B2 49 44 24 28 49 29 20 A7 20 |.. NN$.ID$(I) . | 00000BE0: 47 4E B2 49 3A 49 B2 41 44 3A 82 20 49 3A 89 20 |GN.I:I.AD:. I:. | 00000BF0: 31 32 32 30 3A 8F 20 49 4E 44 45 58 20 47 45 46 |1220:. INDEX GEF| 00000C00: 55 4E 44 45 4E 00 0D 14 92 04 82 20 49 00 13 14 |UNDEN...... I...| 00000C10: 9C 04 3A 00 41 14 A6 04 99 3A 99 3A 99 20 A3 35 |..:.A....:.:. .5| 00000C20: 29 20 22 41 44 52 45 53 53 45 20 49 53 54 20 4E |) "ADRESSE IST N| 00000C30: 49 43 48 54 20 56 4F 52 48 41 4E 44 45 4E 20 21 |ICHT VORHANDEN !| 00000C40: 22 00 47 14 B0 04 8E 00 4D 14 BA 04 3A 00 8C 14 |".G.....M...:...| 00000C50: C4 04 52 4E B2 47 4E 3A 52 50 B2 31 3A 8D 20 31 |..RN.GN:RP.1:. 1| 00000C60: 39 33 30 3A 8F 20 41 55 46 20 52 45 43 4F 52 44 |930:. AUF RECORD| 00000C70: 20 28 4E 52 2E 20 3D 20 49 4E 28 49 29 29 20 50 | (NR. = IN(I)) P| 00000C80: 4F 53 49 54 49 4F 4E 49 45 52 45 4E 00 AA 14 CE |OSITIONIEREN....| 00000C90: 04 84 4C 46 2C 52 43 24 3A 8F 20 52 45 43 4F 52 |..LF,RC$:. RECOR| 00000CA0: 44 20 45 49 4E 4C 45 53 45 4E 00 B0 14 D8 04 3A |D EINLESEN.....:| 00000CB0: 00 C7 14 E2 04 8F 20 52 45 43 4F 52 44 20 41 55 |...... RECORD AU| 00000CC0: 46 54 45 49 4C 45 4E 00 E9 14 EC 04 44 53 24 28 |FTEILEN.....DS$(| 00000CD0: 31 29 B2 CA 28 52 43 24 2C 31 2C 31 35 29 3A 8F |1)..(RC$,1,15):.| 00000CE0: 20 4E 41 43 48 4E 41 4D 45 00 0B 15 F6 04 44 53 | NACHNAME.....DS| 00000CF0: 24 28 32 29 B2 CA 28 52 43 24 2C 31 36 2C 31 30 |$(2)..(RC$,16,10| 00000D00: 29 3A 8F 20 56 4F 52 4E 41 4D 45 00 2D 15 00 05 |):. VORNAME.-...| 00000D10: 44 53 24 28 33 29 B2 CA 28 52 43 24 2C 32 36 2C |DS$(3)..(RC$,26,| 00000D20: 31 35 29 3A 8F 20 53 54 52 41 53 53 45 00 4F 15 |15):. STRASSE.O.| 00000D30: 0A 05 44 53 24 28 34 29 B2 CA 28 52 43 24 2C 34 |..DS$(4)..(RC$,4| 00000D40: 31 2C 31 35 29 3A 8F 20 57 4F 48 4E 4F 52 54 00 |1,15):. WOHNORT.| 00000D50: 71 15 14 05 44 53 24 28 35 29 B2 CA 28 52 43 24 |q...DS$(5)..(RC$| 00000D60: 2C 35 36 2C 31 31 29 3A 8F 20 57 4F 48 4E 4F 52 |,56,11):. WOHNOR| 00000D70: 54 00 77 15 1E 05 3A 00 8D 15 28 05 8F 20 52 45 |T.w...:...(.. RE| 00000D80: 43 4F 52 44 20 41 55 53 47 45 42 45 4E 00 95 15 |CORD AUSGEBEN...| 00000D90: 32 05 99 3A 99 00 AF 15 3C 05 99 20 22 4E 41 43 |2..:....<.. "NAC| 00000DA0: 48 4E 41 4D 45 3A 20 22 3B 44 53 24 28 31 29 00 |HNAME: ";DS$(1).| 00000DB0: C8 15 46 05 99 20 22 56 4F 52 4E 41 4D 45 3A 20 |..F.. "VORNAME: | 00000DC0: 22 3B 44 53 24 28 32 29 00 E1 15 50 05 99 20 22 |";DS$(2)...P.. "| 00000DD0: 53 54 52 41 53 53 45 3A 20 22 3B 44 53 24 28 33 |STRASSE: ";DS$(3| 00000DE0: 29 00 FA 15 5A 05 99 20 22 57 4F 48 4E 4F 52 54 |)...Z.. "WOHNORT| 00000DF0: 3A 20 22 3B 44 53 24 28 34 29 00 13 16 64 05 99 |: ";DS$(4)...d..| 00000E00: 20 22 54 45 4C 45 46 4F 4E 3A 20 22 3B 44 53 24 | "TELEFON: ";DS$| 00000E10: 28 35 29 00 19 16 6E 05 3A 00 3A 16 78 05 99 3A |(5)...n.:.:.x..:| 00000E20: 99 3A 99 20 22 57 45 49 54 45 52 20 4D 49 54 20 |.:. "WEITER MIT | 00000E30: 27 53 50 41 43 45 27 20 21 22 00 6C 16 82 05 A1 |'SPACE' !".l....| 00000E40: 20 54 24 3A 8B 20 54 24 B3 B1 C7 28 33 32 29 20 | T$:. T$...(32) | 00000E50: A7 20 31 34 31 30 3A 8F 20 57 41 52 54 45 4E 20 |. 1410:. WARTEN | 00000E60: 41 55 46 20 27 52 45 54 55 52 4E 27 00 72 16 8C |AUF 'RETURN'.r..| 00000E70: 05 3A 00 78 16 96 05 8E 00 7E 16 A0 05 3A 00 84 |.:.x.....~...:..| 00000E80: 16 AA 05 3A 00 8A 16 B4 05 3A 00 D9 16 BE 05 8F |...:.....:......| 00000E90: 2D 2D 2D 20 44 41 54 45 49 41 52 42 45 49 54 20 |--- DATEIARBEIT | 00000EA0: 42 45 45 4E 44 45 4E 20 2D 2D 2D 2D 2D 2D 2D 2D |BEENDEN --------| 00000EB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000EC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000ED0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 0F 17 C8 05 98 31 |---------......1| 00000EE0: 35 2C 22 53 3A 53 45 51 41 44 52 22 3A 8F 20 49 |5,"S:SEQADR":. I| 00000EF0: 4E 44 45 58 44 41 54 45 49 20 41 55 46 20 44 49 |NDEXDATEI AUF DI| 00000F00: 53 4B 45 54 54 45 20 4C 4F 45 53 43 48 45 4E 00 |SKETTE LOESCHEN.| 00000F10: 15 17 D2 05 3A 00 5A 17 DC 05 9F 20 32 2C 38 2C |....:.Z.... 2,8,| 00000F20: 33 2C 22 53 45 51 41 44 52 2C 53 2C 57 22 3A 8F |3,"SEQADR,S,W":.| 00000F30: 20 53 45 51 2E 20 44 41 54 45 49 20 27 53 45 51 | SEQ. DATEI 'SEQ| 00000F40: 41 44 52 27 20 5A 55 4D 20 53 43 48 52 45 49 42 |ADR' ZUM SCHREIB| 00000F50: 45 4E 20 4F 45 46 46 4E 45 4E 00 7D 17 E6 05 98 |EN OEFFNEN.}....| 00000F60: 32 2C 41 44 3A 8F 20 41 4E 5A 41 48 4C 20 44 45 |2,AD:. ANZAHL DE| 00000F70: 52 20 44 41 54 45 4E 53 41 45 54 5A 45 00 B9 17 |R DATENSAETZE...| 00000F80: F0 05 81 20 49 B2 31 20 A4 20 41 44 3A 98 32 2C |... I.1 . AD:.2,| 00000F90: 49 44 24 28 49 29 22 2C 22 49 4E 28 49 29 3A 82 |ID$(I)","IN(I):.| 00000FA0: 20 49 3A 8F 20 49 4E 44 45 58 44 41 54 45 49 20 | I:. INDEXDATEI | 00000FB0: 53 50 45 49 43 48 45 52 4E 00 BF 17 FA 05 3A 00 |SPEICHERN.....:.| 00000FC0: E6 17 04 06 8D 20 32 30 34 30 3A 8F 20 52 45 4C |..... 2040:. REL| 00000FD0: 41 54 49 56 45 20 44 41 54 45 49 20 53 43 48 4C |ATIVE DATEI SCHL| 00000FE0: 49 45 53 53 45 4E 00 EC 17 0E 06 3A 00 05 18 18 |IESSEN.....:....| 00000FF0: 06 80 3A 8F 20 50 52 4F 47 52 41 4D 4D 20 42 45 |..:. PROGRAMM BE| 00001000: 45 4E 44 45 4E 00 0B 18 22 06 3A 00 11 18 2C 06 |ENDEN...".:...,.| 00001010: 3A 00 17 18 36 06 3A 00 66 18 40 06 8F 2D 2D 2D |:...6.:.f.@..---| 00001020: 20 46 4C 4F 50 50 59 2D 46 45 48 4C 45 52 4B 41 | FLOPPY-FEHLERKA| 00001030: 4E 41 4C 20 41 55 53 4C 45 53 45 4E 20 2D 2D 2D |NAL AUSLESEN ---| 00001040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001060: 2D 2D 2D 2D 2D 2D 00 6C 18 4A 06 3A 00 81 18 54 |------.l.J.:...T| 00001070: 06 84 31 35 2C 45 52 2C 45 52 24 2C 54 52 2C 53 |..15,ER,ER$,TR,S| 00001080: 4B 00 87 18 5E 06 3A 00 8D 18 68 06 8E 00 93 18 |K...^.:...h.....| 00001090: 72 06 3A 00 99 18 7C 06 3A 00 9F 18 86 06 3A 00 |r.:...|.:.....:.| 000010A0: 00 00 |.. |
..P.D..--- ADRESSVERWALTUNG MIT INDEXSEQ
UENTIELLER DATEIORGANISATION -----------
...N..--- (W) 1985 BY MARTIN HECHT,STGT
---------------------------------------.
..X.:.....:.....:......--- DIMENSIONIERU
NGEN -----------------------------------
----------------... .:.,...DM.100:. MAXI
MALE DATENSATZANZAHL.2...:.A.... ID$(DM)
:. INDEXFELD (ENTHAELT NACHNAMEN)...H..
IN(DM):. ENTHAELT ZUGEHOERIGE RECORDNUMM
ERN...R.. DS$(5):. DATENFELDER.....:....
.:.....:......--- HAUPTMENUE -----------
----------------------------------------
-------.....:."...WL.0:.:..B.... .11) "A
DRESSENVERWALTUNG".H."...M.,.. .8)"-1-:
DATEIARBEIT BEGINNEN"...6.. .8)"-2-: ADR
ESSEN EINGEBEN"...@.. .8)"-3-: ADRESSEN
AUSGEBEN".U.J.. .8)"-4-: DATEIARBEIT BEE
NDEN"...T.....^.:...H.. .11) "IHRE WAHL
(1-4)";:. WL...R.:.4.|.. WL.1 . . 490:.
DATEIARBEIT BEGINNEN.[.... WL.2 . . 710:
. ADRESSEN EINGEBEN...... WL.3 . . 1110:
. ADRESSEN AUSGEBEN...... WL.4 . . 1480:
. DATEIARBEIT BEENDEN.....:.V.... 270:.
ZURUECK ZUM HAUPTMENUE.....:...B.:...L.:
.7.V..--- DATEIARBEIT BEGINNEN ---------
---------------------------------------.
=...:.....LF.1:SA.2:DN$."RELADR":RL.67:.
1800:. RELATIVE DATEI 'RELADR' OEFFNEN.
....:.V.... 2,8,3,"SEQADR,S,R":. SEQUENT
IELLE DATEI 'SEQADR' ZUM LESEN OEFFNEN..
...:...... 1620:. FLOPPY-FEHLERKANAL AUS
LESEN.>.... ER..0 . AD.0:. 590:. DATEI I
ST NOCH NICHT ANGELEGT.D.&.:.G.0..2,AD:.
ANZAHL DER DATENSAETZE. .:.. I.1 . AD:.
2,ID$(I),IN(I):. I:. INDEXDATEI EINLESEN
...D.:.W.N.FL.1:. KENNZEICHNUNG FUER 'DA
TEI IM RECHNER'...X.:...B. 2:. SEQUENTI
ELLE DATEI SCHLIESSEN...L.:.7.V..:.:. .7
) "DATEIARBEIT KANN BEGINNEN !".=...:.C.
....I...:.O...:.U...:......--- ADRESSEN
EINGEBEN -------------------------------
--------------------.....:...F.. FL.0 .
.:. .8) "KEINE DATEI IM RECHNER !":....P
.:...Z.. ADRESSE EINGEBEN......:.. ....
"NACHNAME (15) :";DS$(1).>.... "VORNAME
(10) :";DS$(2).\.... "STRASSE (15) :";DS
$(3).Z.... "WOHNORT (15) :";DS$(4)......
"TELEFON (11) :";DS$(5)... .:.D.*.. ADR
ESSE IN INDEXDATEI VERMERKEN...4.AD.AD.1
:. ANZAHL DER ADRESSEN UM 1 ERHOEHEN...>
.ID$(AD).DS$(1):. NACHNAME./.H.IN(AD).RN
:. RECORDNUMMER.5.R.:.D.\.. ADRESSFELDER
AUF RICHTIGE LAENGE BRINGEN...F.LE$."
":. LEERSTRING ZUM AUFFUELL
EN DER FELDER.T.P.DS$(1).H(DS$(1).H(LE$,
.(15.C(DS$(1)))),15)...Z.DS$(2).H(DS$(2)
.H(LE$,.(10.C(DS$(2)))),10).2...DS$(3).H
(DS$(3).H(LE$,.(15.C(DS$(3)))),15).A...D
S$(4).H(DS$(4).H(LE$,.(15.C(DS$(4)))),15
).....DS$(5).H(DS$(5).H(LE$,.(11.C(DS$(5
)))),11).....:.D.... ADRESSE FUER SPEICH
ERUNG ZUSAMMENFASSEN.O...RC$.""...... I.
1 . 5:RC$.RC$.DS$(I):. I...J.:...T.. ADR
ESSE SPEICHERN.H...RN.AD:RP.1:. 1930:. A
UF RECORD (NR.=AD) POSITIONIEREN.R....LF
,RC$:. ADRESSE IN RECORD SCHREIBEN......
1600:. FLOPPY-FEHLERKANAL AUSLESEN.....
:.I....:.:..5)"ADRESSE IST GESPEICHERT !
".O...:.U.......$.:.....:...8.:.6.B..---
ADRESSEN AUSGEBEN ---------------------
------------------------------.<.L.:.N.V
.. FL.0 . .:. .8) "KEINE DATEI IM RECHNE
R !":..T.`.:...J..:.:. "NACHNAME";NN$:.
INDEX ERFRAGEN...T.:.L.~.. I.1 . AD:. IN
DEXDATEI DURCHSUCHEN...... NN$.ID$(I) .
GN.I:I.AD:. I:. 1220:. INDEX GEFUNDEN...
... I.....:.A....:.:. .5) "ADRESSE IST N
ICHT VORHANDEN !".G.....M...:...D.RN.GN:
RP.1:. 1930:. AUF RECORD (NR. = IN(I)) P
OSITIONIEREN...N..LF,RC$:. RECORD EINLES
EN...X.:.G.... RECORD AUFTEILEN.....DS$(
1).J(RC$,1,15):. NACHNAME.....DS$(2).J(R
C$,16,10):. VORNAME.-...DS$(3).J(RC$,26,
15):. STRASSE.O...DS$(4).J(RC$,41,15):.
WOHNORT.Q...DS$(5).J(RC$,56,11):. WOHNOR
T.W...:...(.. RECORD AUSGEBEN...2..:....
<.. "NACHNAME: ";DS$(1).H.F.. "VORNAME:
";DS$(2)...P.. "STRASSE: ";DS$(3)...Z..
"WOHNORT: ";DS$(4)...D.. "TELEFON: ";DS$
(5)...N.:.:.X..:.:. "WEITER MIT 'SPACE'
!".L.... T$:. T$..G(32) . 1410:. WARTEN
AUF 'RETURN'.R...:.X.....~. .:.....:....
.:.Y....--- DATEIARBEIT BEENDEN --------
----------------------------------------
-...H..15,"S:SEQADR":. INDEXDATEI AUF DI
SKETTE LOESCHEN...R.:.Z.... 2,8,3,"SEQAD
R,S,W":. SEQ. DATEI 'SEQADR' ZUM SCHREIB
EN OEFFNEN.}....2,AD:. ANZAHL DER DATENS
AETZE...... I.1 . AD:.2,ID$(I)","IN(I):.
I:. INDEXDATEI SPEICHERN.....:...... 20
40:. RELATIVE DATEI SCHLIESSEN.....:....
..:. PROGRAMM BEENDEN...".:...,.:...6.:.
F.@..--- FLOPPY-FEHLERKANAL AUSLESEN ---
--------------------------------------.L
.J.:...T..15,ER,ER$,TR,SK...^.:...H.....
R.:...|.:.....:...
> CLICK IMAGE PREVIEW FOR FULL MODAL