ADRESSDATEI
FILE INFORMATION
FILENAME(S): ADRESSDATEI
FILE TYPE(S): PRG
FILE SIZE: 5K
FIRST SEEN: 2025-12-01 13:57:56
APPEARS ON: 1 disk(s)
FILE HASH
a07b6e1cb833cb4292628c531ce9d7968e2fdddc7b8f639c41fadabf2baef4ff
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TEST | ADRESSDATEI | PRG | HOL2001, Misc | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 0A 00 97 35 33 32 38 30 2C 32 3A 97 |.......53280,2:.|
00000010: 35 33 32 38 31 2C 32 3A 99 C7 28 31 35 38 29 00 |53281,2:..(158).|
00000020: 2F 08 14 00 86 44 24 20 28 32 30 30 2C 37 29 00 |/....D$ (200,7).|
00000030: 47 08 1E 00 46 24 28 31 29 B2 22 41 4E 52 45 44 |G...F$(1)."ANRED|
00000040: 45 20 20 20 20 20 22 00 5F 08 1F 00 46 24 28 32 |E "._...F$(2|
00000050: 29 B2 22 56 4F 52 4E 41 4D 45 20 20 20 20 22 00 |)."VORNAME ".|
00000060: 77 08 20 00 46 24 28 33 29 B2 22 4E 41 4D 45 20 |w. .F$(3)."NAME |
00000070: 20 20 20 20 20 20 22 00 8F 08 21 00 46 24 28 34 | "...!.F$(4|
00000080: 29 B2 22 53 54 52 41 53 53 45 20 20 20 20 22 00 |)."STRASSE ".|
00000090: A7 08 22 00 46 24 28 35 29 B2 22 50 4C 5A 2F 4F |..".F$(5)."PLZ/O|
000000A0: 52 54 20 20 20 20 22 00 BF 08 23 00 46 24 28 36 |RT "...#.F$(6|
000000B0: 29 B2 22 54 45 4C 45 46 4F 4E 20 20 20 20 22 00 |)."TELEFON ".|
000000C0: D7 08 24 00 46 24 28 37 29 B2 22 42 45 4D 45 52 |..$.F$(7)."BEMER|
000000D0: 4B 55 4E 47 20 20 22 00 E1 08 63 00 89 31 30 30 |KUNG "...c..100|
000000E0: 30 00 07 09 64 00 8F 3D 3D 3D 3D 3D 3D 3D 3D 3D |0...d..=========|
000000F0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000100: 3D 3D 3D 3D 3D 3D 3D 00 1E 09 6E 00 8F 20 20 20 |=======...n.. |
00000110: 20 20 50 52 4F 47 52 41 4D 4D 4B 4F 50 46 00 44 | PROGRAMMKOPF.D|
00000120: 09 78 00 8F 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.x..============|
00000130: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000140: 3D 3D 3D 3D 00 52 09 82 00 99 20 C7 28 31 34 37 |====.R.... .(147|
00000150: 29 3B 00 66 09 8C 00 81 49 B2 31 A4 34 30 3A 99 |);.f....I.1.40:.|
00000160: 22 3D 22 3B 3A 82 00 8C 09 96 00 99 20 22 20 20 |"=";:....... " |
00000170: 20 20 20 20 20 20 20 20 20 41 44 52 45 53 53 45 | ADRESSE|
00000180: 4E 56 45 52 57 41 4C 54 55 4E 47 22 00 A0 09 A0 |NVERWALTUNG"....|
00000190: 00 81 49 B2 31 A4 34 30 3A 99 22 3D 22 3B 3A 82 |..I.1.40:."=";:.|
000001A0: 00 A8 09 AA 00 99 3A 99 00 AE 09 B4 00 8E 00 D3 |......:.........|
000001B0: 09 C8 00 8F 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |....============|
000001C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000001D0: 3D 3D 3D 00 EF 09 D2 00 8F 20 20 20 20 20 20 20 |===...... |
000001E0: 20 20 46 45 48 4C 45 52 4D 45 4C 44 55 4E 47 00 | FEHLERMELDUNG.|
000001F0: 14 0A DC 00 8F 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.....===========|
00000200: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000210: 3D 3D 3D 3D 00 21 0A E6 00 99 20 C7 28 31 39 29 |====.!.... .(19)|
00000220: 3B 00 38 0A F0 00 81 58 B2 31 A4 32 34 3A 99 20 |;.8....X.1.24:. |
00000230: C7 28 31 37 29 3B 3A 82 00 50 0A FA 00 99 20 C7 |.(17);:..P.... .|
00000240: 28 31 38 29 3B 46 45 24 3B C7 28 31 34 36 29 3B |(18);FE$;.(146);|
00000250: 00 60 0A 04 01 81 58 B2 31 A4 31 30 30 30 3A 82 |.`....X.1.1000:.|
00000260: 00 66 0A 0E 01 8E 00 8B 0A 2C 01 8F 3D 3D 3D 3D |.f.......,..====|
00000270: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000280: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 AA 0A 36 01 |===========...6.|
00000290: 8F 20 20 20 20 20 4B 4F 45 50 46 45 20 50 52 4F |. KOEPFE PRO|
000002A0: 47 52 41 4D 4D 54 45 49 4C 45 00 CF 0A 40 01 8F |GRAMMTEILE...@..|
000002B0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000002C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 |===============.|
000002D0: EE 0A 4A 01 50 54 24 28 31 29 B2 22 20 20 20 44 |..J.PT$(1)." D|
000002E0: 41 54 45 49 20 4C 41 44 45 4E 20 20 20 22 00 0D |ATEI LADEN "..|
000002F0: 0B 54 01 50 54 24 28 32 29 B2 22 20 44 41 54 45 |.T.PT$(2)." DATE|
00000300: 49 20 53 50 45 49 43 48 45 52 4E 20 22 00 2C 0B |I SPEICHERN ".,.|
00000310: 5E 01 50 54 24 28 33 29 B2 22 41 44 52 45 53 53 |^.PT$(3)."ADRESS|
00000320: 45 4E 20 45 49 4E 47 45 42 45 4E 22 00 4B 0B 68 |EN EINGEBEN".K.h|
00000330: 01 50 54 24 28 34 29 B2 22 41 44 52 45 53 53 45 |.PT$(4)."ADRESSE|
00000340: 4E 20 41 45 4E 44 45 52 4E 20 22 00 6A 0B 72 01 |N AENDERN ".j.r.|
00000350: 50 54 24 28 35 29 B2 22 41 44 52 45 53 53 45 4E |PT$(5)."ADRESSEN|
00000360: 20 4C 4F 45 53 43 48 45 4E 22 00 89 0B 7C 01 50 | LOESCHEN"...|.P|
00000370: 54 24 28 36 29 B2 22 41 44 52 45 53 53 45 4E 20 |T$(6)."ADRESSEN |
00000380: 41 55 53 47 45 42 45 4E 22 00 A8 0B 86 01 50 54 |AUSGEBEN".....PT|
00000390: 24 28 37 29 B2 22 50 52 4F 47 52 41 4D 4D 20 42 |$(7)."PROGRAMM B|
000003A0: 45 45 4E 44 45 4E 20 22 00 B2 0B 90 01 8D 20 31 |EENDEN "...... 1|
000003B0: 30 30 00 CB 0B 9A 01 99 22 20 20 20 20 20 20 20 |00......" |
000003C0: 20 20 20 22 3B C7 28 33 30 29 3B 00 E6 0B A4 01 | ";.(30);.....|
000003D0: 99 22 D5 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |."..............|
000003E0: C0 C0 C0 C0 C9 22 00 11 0C AE 01 99 22 20 20 20 |....."......" |
000003F0: 20 20 20 20 20 20 20 DD 22 3B C7 28 31 35 38 29 | .";.(158)|
00000400: 3B 50 54 24 28 46 29 3B C7 28 33 30 29 3B 22 DD |;PT$(F);.(30);".|
00000410: 22 00 3D 0C B8 01 99 22 20 20 20 20 20 20 20 20 |".=...." |
00000420: 20 20 CA C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | ..............|
00000430: C0 C0 C0 C0 CB 22 3B C7 28 31 35 38 29 00 43 0C |.....";.(158).C.|
00000440: C2 01 8E 00 5E 0C F4 01 8F 20 3D 3D 3D 3D 3D 3D |....^.... ======|
00000450: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 76 |==============.v|
00000460: 0C FE 01 8F 20 20 44 41 54 45 4E 20 49 4D 20 52 |.... DATEN IM R|
00000470: 45 43 48 4E 45 52 00 90 0C 08 02 8F 3D 3D 3D 3D |ECHNER......====|
00000480: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000490: 00 A0 0C 12 02 8B 20 5A B1 30 20 A7 20 35 36 30 |...... Z.0 . 560|
000004A0: 00 C4 0C 1C 02 46 45 24 B2 22 4B 45 49 4E 45 20 |.....FE$."KEINE |
000004B0: 44 41 54 45 4E 20 4F 49 4D 20 52 45 43 48 4E 45 |DATEN OIM RECHNE|
000004C0: 52 20 21 22 00 CE 0C 26 02 8D 20 32 30 30 00 D4 |R !"...&.. 200..|
000004D0: 0C 30 02 8E 00 DD 0C E8 03 8D 31 30 30 00 07 0D |.0........100...|
000004E0: ED 03 99 20 C7 28 33 30 29 3B 22 20 20 20 20 D5 |... .(30);" .|
000004F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000500: C0 C0 C0 C0 C0 C9 22 00 3D 0D F2 03 99 22 20 20 |......".=...." |
00000510: 20 20 DD 22 3B C7 28 31 35 30 29 3B 22 20 50 52 | .";.(150);" PR|
00000520: 4F 47 52 41 4D 4D 46 55 4E 4B 54 49 4F 4E 45 4E |OGRAMMFUNKTIONEN|
00000530: 3A 22 3B C7 28 33 30 29 3B 22 20 DD 22 00 67 0D |:";.(30);" .".g.|
00000540: F7 03 99 22 20 20 20 20 CA C0 C0 C0 C0 C0 C0 C0 |..." ........|
00000550: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 CB 22 |..............."|
00000560: 3B C7 28 31 35 38 29 00 6D 0D 06 04 99 00 9B 0D |;.(158).m.......|
00000570: 10 04 99 20 C7 28 31 34 34 29 3B 22 20 20 20 20 |... .(144);" |
00000580: 20 2D 31 2D 20 22 3B C7 28 31 35 38 29 3B 22 44 | -1- ";.(158);"D|
00000590: 41 54 45 49 20 4C 41 44 45 4E 22 00 CD 0D 1A 04 |ATEI LADEN".....|
000005A0: 99 20 C7 28 31 34 34 29 3B 22 20 20 20 20 20 2D |. .(144);" -|
000005B0: 32 2D 20 22 3B C7 28 31 35 38 29 3B 22 44 41 54 |2- ";.(158);"DAT|
000005C0: 45 49 20 53 50 45 49 43 48 45 52 4E 22 00 01 0E |EI SPEICHERN"...|
000005D0: 24 04 99 20 C7 28 31 34 34 29 3B 22 20 20 20 20 |$.. .(144);" |
000005E0: 20 2D 33 2D 20 22 3B C7 28 31 35 38 29 3B 22 41 | -3- ";.(158);"A|
000005F0: 44 52 45 53 53 45 4E 20 45 49 4E 47 45 42 45 4E |DRESSEN EINGEBEN|
00000600: 22 00 34 0E 2E 04 99 20 C7 28 31 34 34 29 3B 22 |".4.... .(144);"|
00000610: 20 20 20 20 20 2D 34 2D 20 22 3B C7 28 31 35 38 | -4- ";.(158|
00000620: 29 3B 22 41 44 52 45 53 53 45 4E 20 41 45 4E 44 |);"ADRESSEN AEND|
00000630: 45 52 4E 22 00 68 0E 38 04 99 20 C7 28 31 34 34 |ERN".h.8.. .(144|
00000640: 29 3B 22 20 20 20 20 20 2D 35 2D 20 22 3B C7 28 |);" -5- ";.(|
00000650: 31 35 38 29 3B 22 41 44 52 45 53 53 45 4E 20 4C |158);"ADRESSEN L|
00000660: 4F 45 53 43 48 45 4E 22 00 9C 0E 42 04 99 20 C7 |OESCHEN"...B.. .|
00000670: 28 31 34 34 29 3B 22 20 20 20 20 20 2D 36 2D 20 |(144);" -6- |
00000680: 22 3B C7 28 31 35 38 29 3B 22 41 44 52 45 53 53 |";.(158);"ADRESS|
00000690: 45 4E 20 41 55 53 47 45 42 45 4E 22 00 D0 0E 4C |EN AUSGEBEN"...L|
000006A0: 04 99 20 C7 28 31 34 34 29 3B 22 20 20 20 20 20 |.. .(144);" |
000006B0: 2D 37 2D 20 22 3B C7 28 31 35 38 29 3B 22 50 52 |-7- ";.(158);"PR|
000006C0: 4F 47 52 41 4D 4D 20 42 45 45 4E 44 45 4E 20 22 |OGRAMM BEENDEN "|
000006D0: 00 D8 0E 51 04 99 3A 99 00 FC 0E 56 04 99 C7 28 |...Q..:....V...(|
000006E0: 31 34 34 29 3B 22 20 20 20 20 20 41 55 53 57 41 |144);" AUSWA|
000006F0: 48 4C 20 22 3B C7 28 31 35 38 29 3B 00 04 0F 5B |HL ";.(158);...[|
00000700: 04 85 20 46 00 38 0F 60 04 8B 20 46 B2 30 20 B0 |.. F.8.`.. F.0 .|
00000710: 20 46 B1 37 20 A7 20 46 45 24 B2 22 55 4E 47 55 | F.7 . FE$."UNGU|
00000720: 45 4C 54 49 47 45 52 20 57 45 52 54 22 3A 8D 32 |ELTIGER WERT":.2|
00000730: 30 30 3A 89 31 30 30 30 00 6C 0F 6A 04 91 20 46 |00:.1000.l.j.. F|
00000740: 20 89 20 35 30 30 30 2C 31 30 30 30 30 2C 31 35 | . 5000,10000,15|
00000750: 30 30 30 2C 20 32 30 30 30 30 2C 32 35 30 30 30 |000, 20000,25000|
00000760: 2C 33 30 30 30 30 2C 33 35 30 30 30 00 91 0F 88 |,30000,35000....|
00000770: 13 8F 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |..==============|
00000780: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000790: 3D 00 A8 0F 92 13 8F 20 20 20 20 20 20 44 41 54 |=...... DAT|
000007A0: 45 49 20 4C 41 44 45 4E 00 CD 0F 9C 13 8F 3D 3D |EI LADEN......==|
000007B0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000007C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 D8 0F |=============...|
000007D0: A6 13 8D 33 30 30 3A 99 00 04 10 B0 13 99 22 42 |...300:......."B|
000007E0: 49 54 54 45 20 44 41 54 45 4E 4B 41 53 53 45 54 |ITTE DATENKASSET|
000007F0: 54 45 20 45 49 4E 4C 45 47 45 4E 20 55 4E 44 20 |TE EINLEGEN UND |
00000800: 5A 55 2D 22 00 0A 10 BA 13 99 00 1E 10 C4 13 99 |ZU-"............|
00000810: 22 52 55 45 43 4B 53 50 55 4C 45 4E 21 22 00 24 |"RUECKSPULEN!".$|
00000820: 10 C9 13 99 00 46 10 CE 13 99 22 44 52 55 45 43 |.....F...."DRUEC|
00000830: 4B 45 4E 20 53 49 45 20 44 41 4E 41 43 48 20 52 |KEN SIE DANACH R|
00000840: 45 54 55 52 4E 22 00 4E 10 D8 13 85 58 24 00 54 |ETURN".N....X$.T|
00000850: 10 DD 13 99 00 6A 10 E2 13 9F 31 2C 31 2C 30 2C |.....j....1,1,0,|
00000860: 22 41 44 52 45 53 53 45 4E 22 00 73 10 EC 13 84 |"ADRESSEN".s....|
00000870: 31 2C 5A 00 7E 10 F6 13 81 59 B2 31 A4 5A 00 89 |1,Z.~....Y.1.Z..|
00000880: 10 00 14 81 49 B2 31 A4 37 00 98 10 0A 14 84 31 |....I.1.7......1|
00000890: 2C 44 24 28 59 2C 49 29 00 9F 10 14 14 82 49 00 |,D$(Y,I)......I.|
000008A0: A6 10 1E 14 82 59 00 AD 10 28 14 A0 31 00 C8 10 |.....Y...(..1...|
000008B0: 32 14 99 22 44 41 54 45 4E 20 53 49 4E 44 20 47 |2.."DATEN SIND G|
000008C0: 45 4C 41 44 45 4E 21 22 00 D8 10 3C 14 81 58 B2 |ELADEN!"...<..X.|
000008D0: 31 A4 32 30 30 30 3A 82 00 E2 10 46 14 89 31 30 |1.2000:....F..10|
000008E0: 30 30 00 04 11 10 27 8F 3D 3D 3D 3D 3D 3D 3D 3D |00....'.========|
000008F0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000900: 3D 3D 3D 3D 00 20 11 24 27 8F 20 20 20 20 20 20 |====. .$'. |
00000910: 20 44 41 54 45 49 20 53 50 45 49 43 48 45 52 4E | DATEI SPEICHERN|
00000920: 00 42 11 2E 27 8F 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.B..'.==========|
00000930: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000940: 3D 3D 00 4D 11 38 27 8D 33 30 30 3A 99 00 63 11 |==.M.8'.300:..c.|
00000950: 3D 27 8D 35 30 30 3A 8B 20 5A B2 30 20 A7 20 31 |='.500:. Z.0 . 1|
00000960: 30 30 30 00 8F 11 4C 27 99 22 42 49 54 54 45 20 |000...L'."BITTE |
00000970: 44 41 54 45 4E 4B 41 53 53 45 54 54 45 20 45 49 |DATENKASSETTE EI|
00000980: 4E 4C 45 47 45 4E 20 55 4E 44 20 5A 55 2D 22 00 |NLEGEN UND ZU-".|
00000990: 95 11 56 27 99 00 A9 11 60 27 99 22 52 55 45 43 |..V'....`'."RUEC|
000009A0: 4B 53 50 55 4C 45 4E 21 22 00 AF 11 65 27 99 00 |KSPULEN!"...e'..|
000009B0: D2 11 6A 27 99 22 44 52 55 45 43 4B 45 4E 20 53 |..j'."DRUECKEN S|
000009C0: 49 45 20 44 41 4E 41 43 48 20 52 45 54 55 52 4E |IE DANACH RETURN|
000009D0: 20 22 00 DB 11 6F 27 85 20 58 24 00 F1 11 74 27 | "...o'. X$...t'|
000009E0: 9F 31 2C 31 2C 31 2C 22 41 44 52 45 53 53 45 4E |.1,1,1,"ADRESSEN|
000009F0: 22 00 FA 11 7E 27 98 31 2C 5A 00 07 12 88 27 81 |"...~'.1,Z....'.|
00000A00: 20 59 B2 31 A4 20 5A 00 13 12 92 27 81 20 49 B2 | Y.1. Z....'. I.|
00000A10: 31 A4 37 00 22 12 9C 27 98 31 2C 44 24 28 59 2C |1.7."..'.1,D$(Y,|
00000A20: 49 29 00 29 12 A6 27 82 49 00 30 12 B0 27 82 59 |I).)..'.I.0..'.Y|
00000A30: 00 37 12 B5 27 A0 31 00 58 12 BA 27 99 3A 99 22 |.7..'.1.X..'.:."|
00000A40: 44 41 54 45 4E 20 53 49 4E 44 20 47 45 53 50 45 |DATEN SIND GESPE|
00000A50: 49 43 48 45 52 54 21 22 00 68 12 C4 27 81 58 B2 |ICHERT!".h..'.X.|
00000A60: 31 A4 32 30 30 30 3A 82 00 73 12 CE 27 89 20 31 |1.2000:..s..'. 1|
00000A70: 30 30 30 00 90 12 98 3A 8F 3D 3D 3D 3D 3D 3D 3D |000....:.=======|
00000A80: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000A90: 00 A8 12 A2 3A 8F 20 41 44 52 45 53 53 45 4E 20 |....:. ADRESSEN |
00000AA0: 45 49 4E 47 45 42 45 4E 00 C5 12 AC 3A 8F 3D 3D |EINGEBEN....:.==|
00000AB0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000AC0: 3D 3D 3D 3D 3D 00 CE 12 B6 3A 8D 33 30 30 00 D8 |=====....:.300..|
00000AD0: 12 C0 3A 5A B2 5A AA 31 00 DE 12 CA 3A 99 00 E9 |..:Z.Z.1....:...|
00000AE0: 12 D4 3A 81 49 B2 31 A4 37 00 F6 12 DE 3A 99 20 |..:.I.1.7....:. |
00000AF0: 46 24 28 49 29 3B 00 04 13 E8 3A 85 20 44 24 28 |F$(I);....:. D$(|
00000B00: 5A 2C 49 29 00 0A 13 F2 3A 82 00 10 13 FC 3A 99 |Z,I)....:.....:.|
00000B10: 00 37 13 06 3B 99 22 44 41 54 45 4E 20 52 49 43 |.7..;."DATEN RIC|
00000B20: 48 54 49 47 20 45 49 4E 47 45 47 45 42 45 4E 20 |HTIG EINGEGEBEN |
00000B30: 28 4A 2F 4E 29 22 3B 00 46 13 10 3B 58 24 B2 22 |(J/N)";.F..;X$."|
00000B40: 22 3A 85 20 58 24 00 59 13 1A 3B 8B 20 58 24 B2 |":. X$.Y..;. X$.|
00000B50: 22 4A 22 A7 31 35 31 36 30 00 73 13 24 3B 8B 20 |"J".15160.s.$;. |
00000B60: 58 24 B2 22 4E 22 A7 5A B2 5A AB 31 3A 89 31 35 |X$."N".Z.Z.1:.15|
00000B70: 30 30 30 00 88 13 2E 3B 99 20 C7 28 31 34 35 29 |000....;. .(145)|
00000B80: 3B 3A 89 31 35 31 31 30 00 A7 13 38 3B 99 22 57 |;:.15110...8;."W|
00000B90: 45 49 54 45 52 45 20 45 49 4E 47 41 42 45 4E 20 |EITERE EINGABEN |
00000BA0: 28 4A 2F 4E 29 22 3B 00 B6 13 42 3B 58 24 B2 22 |(J/N)";...B;X$."|
00000BB0: 22 3A 85 20 58 24 00 CB 13 4C 3B 8B 20 58 24 B2 |":. X$...L;. X$.|
00000BC0: 22 4A 22 20 A7 20 31 35 30 30 30 00 DD 13 56 3B |"J" . 15000...V;|
00000BD0: 8B 20 58 24 B2 22 4E 22 A7 31 30 30 30 00 01 14 |. X$."N".1000...|
00000BE0: 20 4E 8F 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D | N.=============|
00000BF0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000C00: 3D 00 1E 14 2A 4E 8F 20 20 20 20 20 20 20 41 44 |=...*N. AD|
00000C10: 52 45 53 53 45 4E 20 41 45 4E 44 45 52 4E 00 27 |RESSEN AENDERN.'|
00000C20: 14 3E 4E 5A 5A B2 31 00 31 14 48 4E 8D 20 33 30 |.>NZZ.1.1.HN. 30|
00000C30: 30 00 37 14 52 4E 99 00 43 14 5C 4E 81 20 49 B2 |0.7.RN..C.\N. I.|
00000C40: 31 A4 37 00 5A 14 66 4E 99 20 49 3B 46 24 28 49 |1.7.Z.fN. I;F$(I|
00000C50: 29 3B 44 24 28 5A 5A 2C 49 29 00 60 14 70 4E 82 |);D$(ZZ,I).`.pN.|
00000C60: 00 79 14 7A 4E A1 20 58 24 3A 8B 20 58 24 B2 22 |.y.zN. X$:. X$."|
00000C70: 22 20 A7 20 32 30 30 39 30 00 9C 14 84 4E 8B 20 |" . 20090....N. |
00000C80: C6 28 58 24 29 B3 31 33 33 20 B0 C6 28 58 24 29 |.(X$).133 ..(X$)|
00000C90: B1 31 33 36 20 A7 20 32 30 30 39 30 00 B3 14 8E |.136 . 20090....|
00000CA0: 4E 8B 20 C6 28 58 24 29 B2 31 33 36 20 A7 20 31 |N. .(X$).136 . 1|
00000CB0: 30 30 30 00 DA 14 98 4E 8B 20 C6 28 58 24 29 B2 |000....N. .(X$).|
00000CC0: 31 33 33 20 AF 20 5A 5A B3 5A 20 A7 5A 5A B2 5A |133 . ZZ.Z .ZZ.Z|
00000CD0: 5A AA 31 3A 89 32 30 30 34 30 00 01 15 A2 4E 8B |Z.1:.20040....N.|
00000CE0: 20 C6 28 58 24 29 B2 31 33 34 20 AF 20 5A 5A B1 | .(X$).134 . ZZ.|
00000CF0: 31 20 A7 5A 5A B2 5A 5A AB 31 3A 89 32 30 30 34 |1 .ZZ.ZZ.1:.2004|
00000D00: 30 00 18 15 AC 4E 8B 20 C6 28 58 24 29 B2 31 33 |0....N. .(X$).13|
00000D10: 35 20 A7 32 30 31 36 30 00 24 15 B6 4E 89 20 32 |5 .20160.$..N. 2|
00000D20: 30 30 39 30 00 2A 15 C0 4E 99 00 45 15 CA 4E 85 |0090.*..N..E..N.|
00000D30: 22 46 45 4C 44 4E 55 4D 4D 45 52 20 28 31 2D 37 |"FELDNUMMER (1-7|
00000D40: 29 20 22 3B 58 00 69 15 D4 4E 8B 20 58 B3 31 20 |) ";X.i..N. X.1 |
00000D50: B0 20 58 B1 37 20 A7 20 99 20 C7 28 31 34 35 29 |. X.7 . . .(145)|
00000D60: 3B 3A 89 20 32 30 31 37 30 00 6F 15 DE 4E 99 00 |;:. 20170.o..N..|
00000D70: 8E 15 E8 4E 85 22 4E 45 55 45 52 20 49 4E 48 41 |...N."NEUER INHA|
00000D80: 4C 54 3A 20 22 3B 44 24 28 5A 5A 2C 58 29 00 9A |LT: ";D$(ZZ,X)..|
00000D90: 15 F2 4E 89 20 32 30 30 34 30 00 B6 15 A8 61 8F |..N. 20040....a.|
00000DA0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000DB0: 3D 3D 3D 3D 3D 3D 00 D1 15 B2 61 8F 20 20 20 20 |======....a. |
00000DC0: 41 44 52 45 53 53 45 4E 20 4C 4F 45 53 43 48 45 |ADRESSEN LOESCHE|
00000DD0: 4E 00 ED 15 BC 61 8F 3D 3D 3D 3D 3D 3D 3D 3D 3D |N....a.=========|
00000DE0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 FE 15 |=============...|
00000DF0: C6 61 8D 20 33 30 30 3A 8F 20 4B 4F 50 46 00 04 |.a. 300:. KOPF..|
00000E00: 16 D0 61 99 00 22 16 DA 61 8D 20 35 30 30 3A 8F |..a.."..a. 500:.|
00000E10: 20 44 41 54 45 4E 20 49 4D 20 52 45 43 48 4E 45 | DATEN IM RECHNE|
00000E20: 52 3F 00 33 16 DF 61 8B 20 5A B2 30 20 A7 20 31 |R?.3..a. Z.0 . 1|
00000E30: 30 30 30 00 49 16 E4 61 85 20 22 56 4F 52 4E 41 |000.I..a. "VORNA|
00000E40: 4D 45 3A 20 22 3B 44 31 24 00 5F 16 EE 61 85 20 |ME: ";D1$._..a. |
00000E50: 22 4E 41 4D 45 20 20 20 3A 20 22 3B 44 32 24 00 |"NAME : ";D2$.|
00000E60: 67 16 F8 61 58 B2 31 00 8E 16 02 62 8B 20 44 24 |g..aX.1....b. D$|
00000E70: 28 58 2C 32 29 B2 44 31 24 20 AF 20 44 24 28 58 |(X,2).D1$ . D$(X|
00000E80: 2C 33 29 B2 44 32 24 20 A7 32 35 31 33 30 00 A9 |,3).D2$ .25130..|
00000E90: 16 0C 62 8B 20 58 B3 5A 20 A7 20 58 B2 58 AA 31 |..b. X.Z . X.X.1|
00000EA0: 3A 20 89 20 32 35 30 39 30 00 CA 16 16 62 46 45 |: . 25090....bFE|
00000EB0: 24 B2 22 4E 41 4D 45 20 4E 49 43 48 54 20 47 45 |$."NAME NICHT GE|
00000EC0: 46 55 4E 44 45 4E 21 20 3A 22 00 D9 16 20 62 8D |FUNDEN! :"... b.|
00000ED0: 32 30 30 3A 89 31 30 30 30 00 E4 16 2A 62 8D 33 |200:.1000...*b.3|
00000EE0: 30 30 3A 99 00 EF 16 2F 62 81 49 B2 31 A4 37 00 |00:..../b.I.1.7.|
00000EF0: 02 17 34 62 99 46 24 28 49 29 3B 44 24 28 58 2C |..4b.F$(I);D$(X,|
00000F00: 49 29 00 08 17 3E 62 82 00 0E 17 43 62 99 00 31 |I)...>b....Cb..1|
00000F10: 17 48 62 85 22 41 44 52 45 53 53 45 4E 20 4C 4F |.Hb."ADRESSEN LO|
00000F20: 45 53 43 48 45 4E 20 28 4A 2F 4E 29 20 22 3B 58 |ESCHEN (J/N) ";X|
00000F30: 24 00 46 17 52 62 8B 20 58 24 B2 22 4A 22 20 A7 |$.F.Rb. X$."J" .|
00000F40: 20 32 35 32 30 30 00 5A 17 5C 62 8B 20 58 24 B2 | 25200.Z.\b. X$.|
00000F50: 22 4E 22 20 A7 20 31 30 30 30 00 6F 17 66 62 99 |"N" . 1000.o.fb.|
00000F60: C7 28 31 34 35 29 3B 3A 89 20 32 35 31 36 30 00 |.(145);:. 25160.|
00000F70: 7F 17 70 62 81 20 59 B2 58 20 A4 20 5A AB 31 00 |..pb. Y.X . Z.1.|
00000F80: 8A 17 7A 62 81 49 B2 31 A4 37 00 A0 17 84 62 44 |..zb.I.1.7....bD|
00000F90: 24 28 59 2C 49 29 B2 44 24 28 59 AA 31 2C 49 29 |$(Y,I).D$(Y.1,I)|
00000FA0: 00 A7 17 8E 62 82 49 00 AE 17 98 62 82 59 00 B8 |....b.I....b.Y..|
00000FB0: 17 A2 62 5A B2 5A AB 31 00 C3 17 AC 62 89 20 31 |..bZ.Z.1....b. 1|
00000FC0: 30 30 30 00 DD 17 30 75 8F 3D 3D 3D 3D 3D 3D 3D |000...0u.=======|
00000FD0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 F9 17 |=============...|
00000FE0: 3A 75 8F 20 20 20 20 20 41 44 52 45 53 53 45 4E |:u. ADRESSEN|
00000FF0: 20 41 55 53 47 45 42 45 4E 00 18 18 44 75 8F 3D | AUSGEBEN...Du.=|
00001000: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001010: 3D 3D 3D 3D 3D 3D 3D 3D 00 24 18 4E 75 8D 20 33 |========.$.Nu. 3|
00001020: 30 30 3A 99 00 2E 18 58 75 8D 20 35 30 30 00 3F |00:....Xu. 500.?|
00001030: 18 62 75 8B 20 5A B2 30 20 A7 20 31 30 30 30 00 |.bu. Z.0 . 1000.|
00001040: 68 18 6C 75 85 22 44 52 55 43 4B 45 52 20 4F 44 |h.lu."DRUCKER OD|
00001050: 45 52 20 42 49 4C 44 53 43 48 49 52 4D 20 28 44 |ER BILDSCHIRM (D|
00001060: 2F 42 29 20 22 3B 47 24 00 94 18 76 75 8B 20 47 |/B) ";G$...vu. G|
00001070: 24 B3 B1 22 42 22 20 AF 20 47 24 B3 B1 22 44 22 |$.."B" . G$.."D"|
00001080: 20 A7 20 99 20 C7 28 31 34 35 29 3B 3A 89 20 33 | . . .(145);:. 3|
00001090: 30 30 36 30 00 A8 18 7B 75 8B 20 47 24 B2 22 44 |0060...{u. G$."D|
000010A0: 22 20 A7 20 9F 31 2C 34 00 B4 18 80 75 8D 20 33 |" . .1,4....u. 3|
000010B0: 30 30 3A 99 00 C9 18 8A 75 99 22 53 55 43 48 42 |00:.....u."SUCHB|
000010C0: 45 47 52 49 46 46 45 3A 22 00 DE 18 94 75 99 22 |EGRIFFE:"....u."|
000010D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 E4 |-------------"..|
000010E0: 18 9E 75 99 00 FA 18 A8 75 81 49 B2 31 A4 37 3A |..u.....u.I.1.7:|
000010F0: 53 24 28 49 29 B2 22 22 3A 82 00 05 19 B2 75 81 |S$(I)."":.....u.|
00001100: 49 B2 31 A4 37 00 12 19 BC 75 99 20 46 24 28 49 |I.1.7....u. F$(I|
00001110: 29 3B 00 1E 19 C6 75 85 20 53 24 28 49 29 00 24 |);....u. S$(I).$|
00001120: 19 D0 75 82 00 2F 19 DA 75 81 59 B2 31 A4 5A 00 |..u../..u.Y.1.Z.|
00001130: 37 19 E4 75 53 B2 30 00 42 19 EE 75 81 49 B2 31 |7..uS.0.B..u.I.1|
00001140: A4 37 00 61 19 F8 75 8B 20 53 24 28 49 29 B2 22 |.7.a..u. S$(I)."|
00001150: 22 20 A7 20 53 B2 53 AA 31 3A 89 20 33 30 32 32 |" . S.S.1:. 3022|
00001160: 30 00 7C 19 02 76 8B 20 44 24 28 59 2C 49 29 B2 |0.|..v. D$(Y,I).|
00001170: 53 24 28 49 29 A7 20 53 B2 53 AA 31 00 83 19 0C |S$(I). S.S.1....|
00001180: 76 82 49 00 96 19 16 76 8B 20 53 B3 B1 37 20 A7 |v.I....v. S..7 .|
00001190: 20 33 30 33 30 30 00 A6 19 20 76 8B 47 24 B2 22 | 30300... v.G$."|
000011A0: 44 22 A7 20 98 31 00 BA 19 25 76 8B 47 24 B2 22 |D". .1...%v.G$."|
000011B0: 42 22 A7 8D 20 33 30 30 3A 99 00 C5 19 2A 76 81 |B".. 300:....*v.|
000011C0: 4E B2 31 A4 37 00 E1 19 34 76 8B 20 47 24 B2 22 |N.1.7...4v. G$."|
000011D0: 42 22 A7 99 46 24 28 4E 29 3B 44 24 28 59 2C 4E |B"..F$(N);D$(Y,N|
000011E0: 29 00 FF 19 3E 76 8B 20 47 24 B2 22 44 22 A7 98 |)...>v. G$."D"..|
000011F0: 31 2C 46 24 28 4E 29 3B 44 24 28 59 2C 4E 29 00 |1,F$(N);D$(Y,N).|
00001200: 06 1A 48 76 82 4E 00 1A 1A 4D 76 8B 20 47 24 B2 |..Hv.N...Mv. G$.|
00001210: 22 44 22 20 A7 33 30 33 30 30 00 3A 1A 52 76 99 |"D" .30300.:.Rv.|
00001220: 3A 85 22 44 52 55 45 43 4B 45 4E 20 53 49 45 20 |:."DRUECKEN SIE |
00001230: 52 45 54 55 52 4E 22 3B 58 24 00 41 1A 5C 76 82 |RETURN";X$.A.\v.|
00001240: 59 00 4F 1A 66 76 8D 20 33 30 30 3A 99 3A 99 00 |Y.O.fv. 300:.:..|
00001250: 61 1A 70 76 99 20 22 44 41 54 45 49 45 4E 44 45 |a.pv. "DATEIENDE|
00001260: 22 00 7F 1A 7A 76 85 22 44 52 55 45 43 4B 45 4E |"...zv."DRUECKEN|
00001270: 20 53 49 45 20 52 45 54 55 52 4E 22 3B 58 24 00 | SIE RETURN";X$.|
00001280: 91 1A 84 76 8B 20 47 24 B2 22 44 22 20 A7 20 A0 |...v. G$."D" . .|
00001290: 31 00 9C 1A 8E 76 89 20 31 30 30 30 00 BF 1A B8 |1....v. 1000....|
000012A0: 88 8F 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |..==============|
000012B0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 |===============.|
000012C0: D7 1A C2 88 8F 20 20 50 52 4F 47 52 41 4D 4D 20 |..... PROGRAMM |
000012D0: 42 45 45 4E 44 45 4E 00 FA 1A CC 88 8F 3D 3D 3D |BEENDEN......===|
000012E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000012F0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 05 1B D6 88 8D |==========......|
00001300: 33 30 30 3A 99 00 16 1B E0 88 8B 5A B2 30 20 A7 |300:.......Z.0 .|
00001310: 20 33 35 31 35 30 00 3F 1B EA 88 99 22 53 49 4E | 35150.?...."SIN|
00001320: 44 20 41 4C 4C 45 20 44 41 54 45 4E 20 47 45 53 |D ALLE DATEN GES|
00001330: 49 43 48 45 52 54 20 28 4A 2F 4E 29 20 22 3B 00 |ICHERT (J/N) ";.|
00001340: 47 1B F4 88 85 58 24 00 58 1B FE 88 8B 58 24 B2 |G....X$.X....X$.|
00001350: 22 4E 22 A7 31 30 30 30 00 6A 1B 08 89 8B 58 24 |"N".1000.j....X$|
00001360: B2 22 4A 22 A7 33 35 31 30 30 00 80 1B 12 89 99 |."J".35100......|
00001370: 20 C7 28 31 34 35 29 3B 3A 89 20 33 35 30 35 30 | .(145);:. 35050|
00001380: 00 89 1B 1C 89 8D 33 30 30 00 BA 1B 26 89 99 22 |......300...&.."|
00001390: 44 41 53 20 50 52 4F 47 52 41 4D 4D 20 4B 41 4E |DAS PROGRAMM KAN|
000013A0: 4E 20 4D 49 54 20 27 47 4F 54 4F 20 31 30 30 30 |N MIT 'GOTO 1000|
000013B0: 27 20 57 49 45 44 45 52 22 3B 00 E8 1B 30 89 99 |' WIEDER";...0..|
000013C0: 22 47 45 53 54 41 52 54 45 54 20 57 45 52 44 45 |"GESTARTET WERDE|
000013D0: 4E 2C 20 4F 48 4E 45 20 44 41 53 53 20 44 41 54 |N, OHNE DASS DAT|
000013E0: 45 4E 20 56 45 52 2D 22 00 FC 1B 3A 89 99 22 4C |EN VER-"...:.."L|
000013F0: 4F 52 45 4E 20 47 45 48 45 4E 21 22 00 02 1C 44 |OREN GEHEN!"...D|
00001400: 89 99 00 08 1C 4E 89 80 00 00 00 |.....N..... |
.......53280,2:.53281,2:.G(158)./....D$
(200,7).G...F$(1)."ANREDE "._...F$(2
)."VORNAME ".W. .F$(3)."NAME ".
..!.F$(4)."STRASSE "...".F$(5)."PLZ/O
RT "...#.F$(6)."TELEFON ".W.$.F$(7
)."BEMERKUNG "...C..1000...D..=========
=======================...N.. PROGRA
MMKOPF.D.X..============================
====.R.... G(147);.F....I.1.40:."=";:...
.... " ADRESSENVERWALTUNG". .
..I.1.40:."=";:.......:........S.H..====
===========================...R..
FEHLERMELDUNG......===================
============.!.... G(19);.8....X.1.24:.
G(17);:..P.... G(18);FE$;G(146);.`....X.
1.1000:..F.......,..====================
===========...6.. KOEPFE PROGRAMMTEI
LE.O.@..===============================.
..J.PT$(1)." DATEI LADEN "...T.PT$(2
)." DATEI SPEICHERN ".,.^.PT$(3)."ADRESS
EN EINGEBEN".K.H.PT$(4)."ADRESSEN AENDER
N ".J.R.PT$(5)."ADRESSEN LOESCHEN"...|.P
T$(6)."ADRESSEN AUSGEBEN".....PT$(7)."PR
OGRAMM BEENDEN "...... 100.K...."
";G(30);......"U.................I"..
...." .";G(158);PT$(F);G(30);".
".=...." J.................K";G
(158).C.B...^.... ====================.V
.... DATEN IM RECHNER......============
========. .... Z.0 . 560.D...FE$."KEINE
DATEN OIM RECHNER !".N.&.. 200.T.0......
..100...... G(30);" U................
.....I".=...." .";G(150);" PROGRAMMFU
NKTIONEN:";G(30);" .".G...." J.......
..............K";G(158).M.......... G(14
4);" -1- ";G(158);"DATEI LADEN".M...
. G(144);" -2- ";G(158);"DATEI SPEIC
HERN"...$.. G(144);" -3- ";G(158);"A
DRESSEN EINGEBEN".4.... G(144);" -4-
";G(158);"ADRESSEN AENDERN".H.8.. G(144
);" -5- ";G(158);"ADRESSEN LOESCHEN"
...B.. G(144);" -6- ";G(158);"ADRESS
EN AUSGEBEN".P.L.. G(144);" -7- ";G(
158);"PROGRAMM BEENDEN ".X.Q..:....V..G(
144);" AUSWAHL ";G(158);...[.. F.8.`
.. F.0 . F.7 . FE$."UNGUELTIGER WERT":.2
00:.1000.L.J.. F . 5000,10000,15000, 200
00,25000,30000,35000......==============
=================...... DATEI LADEN
.M....===============================.X.
...300:......."BITTE DATENKASSETTE EINLE
GEN UND ZU-".........D.."RUECKSPULEN!".$
.I...F.N.."DRUECKEN SIE DANACH RETURN".N
.X..X$.T.....J....1,1,0,"ADRESSEN".S....
1,Z.~....Y.1.Z......I.1.7......1,D$(Y,I)
......I......Y...(. 1.H.2.."DATEN SIND G
ELADEN!".X.<..X.1.2000:....F..1000....'.
============================. .$'.
DATEI SPEICHERN.B..'.==================
==========.M.8'.300:..C.='.500:. Z.0 . 1
000...L'."BITTE DATENKASSETTE EINLEGEN U
ND ZU-"...V'....`'."RUECKSPULEN!"...E'..
R.J'."DRUECKEN SIE DANACH RETURN "...O'.
X$...T'.1,1,1,"ADRESSEN"...~'.1,Z....'.
Y.1. Z....'. I.1.7."..'.1,D$(Y,I).)..'.
I.0..'.Y.7..' 1.X..'.:."DATEN SIND GESPE
ICHERT!".H.D'.X.1.2000:..S.N'. 1000....:
.=======================....:. ADRESSEN
EINGEBEN.E..:.=======================.N.
.:.300.X..:Z.Z.1...J:....T:.I.1.7....:.
F$(I);....:. D$(Z,I)....:.....:..7..;."D
ATEN RICHTIG EINGEGEBEN (J/N)";.F..;X$."
":. X$.Y..;. X$."J".15160.S.$;. X$."N".Z
.Z.1:.15000....;. G(145);:.15110...8;."W
EITERE EINGABEN (J/N)";...B;X$."":. X$.K
.L;. X$."J" . 15000...V;. X$."N".1000...
N.==============================...*N.
ADRESSEN AENDERN.'.>NZZ.1.1.HN. 30
0.7.RN..C.\N. I.1.7.Z.FN. I;F$(I);D$(ZZ,
I).`.PN..Y.ZN. X$:. X$."" . 20090....N.
F(X$).133 .F(X$).136 . 20090....N. F(X$)
.136 . 1000.Z..N. F(X$).133 . ZZ.Z .ZZ.Z
Z.1:.20040....N. F(X$).134 . ZZ.1 .ZZ.ZZ
.1:.20040....N. F(X$).135 .20160.$..N. 2
0090.*..N..E.JN."FELDNUMMER (1-7) ";X.I.
TN. X.1 . X.7 . . G(145);:. 20170.O..N..
...N."NEUER INHALT: ";D$(ZZ,X)....N. 200
40....A.======================.Q..A.
ADRESSEN LOESCHEN....A.=================
=====...FA. 300:. KOPF...PA..".ZA. 500:.
DATEN IM RECHNER?.3..A. Z.0 . 1000.I..A
. "VORNAME: ";D1$._..A. "NAME : ";D2$.
G..AX.1....B. D$(X,2).D1$ . D$(X,3).D2$
.25130....B. X.Z . X.X.1: . 25090.J..BFE
$."NAME NICHT GEFUNDEN! :".Y. B.200:.100
0...*B.300:..../B.I.1.7...4B.F$(I);D$(X,
I)...>B....CB..1.HB."ADRESSEN LOESCHEN (
J/N) ";X$.F.RB. X$."J" . 25200.Z.\B. X$.
"N" . 1000.O.FB.G(145);:. 25160..PB. Y.
X . Z.1...ZB.I.1.7. ..BD$(Y,I).D$(Y.1,I)
....B.I....B.Y....BZ.Z.1.C..B. 1000...0U
.====================...:U. ADRESSEN
AUSGEBEN...DU.=========================
.$.NU. 300:....XU. 500.?.BU. Z.0 . 1000.
H.LU."DRUCKER ODER BILDSCHIRM (D/B) ";G$
...VU. G$.."B" . G$.."D" . . G(145);:. 3
0060...{U. G$."D" . .1,4....U. 300:..I..
U."SUCHBEGRIFFE:"....U."-------------"..
..U.....U.I.1.7:S$(I)."":.....U.I.1.7...
.U. F$(I);...FU. S$(I).$.PU../.ZU.Y.1.Z.
7..US.0.B..U.I.1.7.A..U. S$(I)."" . S.S.
1:. 30220.|..V. D$(Y,I).S$(I). S.S.1....
V.I....V. S..7 . 30300... V.G$."D". .1..
.%V.G$."B".. 300:..E.*V.N.1.7...4V. G$."
B"..F$(N);D$(Y,N)...>V. G$."D"..1,F$(N);
D$(Y,N)...HV.N...MV. G$."D" .30300.:.RV.
:."DRUECKEN SIE RETURN";X$.A.\V.Y.O.FV.
300:.:..A.PV. "DATEIENDE"..ZV."DRUECKEN
SIE RETURN";X$....V. G$."D" . 1....V.
1000......=============================.
W.B.. PROGRAMM BEENDEN...L..===========
==================...V..300:.......Z.0 .
35150.?...."SIND ALLE DATEN GESICHERT (
J/N) ";.G....X$.X....X$."N".1000.J....X$
."J".35100...... G(145);:. 35050......30
0...&.."DAS PROGRAMM KANN MIT 'GOTO 1000
' WIEDER";...0.."GESTARTET WERDEN, OHNE
DASS DATEN VER-"...:.."LOREN GEHEN!"...D
.....N.....
> CLICK IMAGE PREVIEW FOR FULL MODAL