ADRESSENVERW.
FILE INFORMATION
FILENAME(S): ADRESSENVERW.
FILE TYPE(S): PRG
FILE SIZE: 4.9K
FIRST SEEN: 2025-10-20 00:37:04
APPEARS ON: 1 disk(s)
FILE HASH
499cdd95a19e59de9c065c8e8e38337b99172fa97e8c75c63a47fbf9cd143a36
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VP SPIELE 8 | ADRESSENVERW. | PRG | Treasure Chest - Holger | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 26 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 20 20 20 20 20 20 |53281,2:.. |
00000020: 20 28 31 35 38 29 00 35 08 14 00 86 44 24 28 32 | (158).5....D$(2|
00000030: 30 30 2C 37 29 00 4D 08 1E 00 46 24 28 31 29 B2 |00,7).M...F$(1).|
00000040: 22 41 4E 52 45 44 45 20 20 20 20 20 22 00 65 08 |"ANREDE ".e.|
00000050: 1F 00 46 24 28 32 29 B2 22 56 4F 52 4E 41 4D 45 |..F$(2)."VORNAME|
00000060: 4E 20 20 20 22 00 7D 08 20 00 46 24 28 33 29 B2 |N ".}. .F$(3).|
00000070: 22 4E 41 4D 45 20 20 20 20 20 20 20 22 00 95 08 |"NAME "...|
00000080: 21 00 46 24 28 34 29 B2 22 53 54 52 41 53 53 45 |!.F$(4)."STRASSE|
00000090: 20 20 20 20 22 00 AD 08 22 00 46 24 28 35 29 B2 | "...".F$(5).|
000000A0: 22 50 4C 5A 2F 4F 52 54 20 20 20 20 22 00 C5 08 |"PLZ/ORT "...|
000000B0: 23 00 46 24 28 36 29 B2 22 54 45 4C 45 46 4F 4E |#.F$(6)."TELEFON|
000000C0: 20 20 20 20 22 00 DD 08 24 00 46 24 28 37 29 B2 | "...$.F$(7).|
000000D0: 22 42 45 4D 45 52 4B 55 4E 47 20 20 22 00 E7 08 |"BEMERKUNG "...|
000000E0: 63 00 89 31 30 30 30 00 0A 09 64 00 8F 20 20 20 |c..1000...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 3D 3D 3D 00 25 09 6E 00 8F |==========.%.n..|
00000110: 20 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D | PROGRAM|
00000120: 4D 4B 4F 50 46 00 48 09 78 00 8F 20 20 20 3D 3D |MKOPF.H.x.. ==|
00000130: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000140: 3D 3D 3D 3D 3D 3D 3D 3D 00 56 09 82 00 99 20 C7 |========.V.... .|
00000150: 28 31 34 37 29 3B 00 6A 09 8C 00 81 49 B2 31 A4 |(147);.j....I.1.|
00000160: 34 30 3A 99 22 3D 22 3B 3A 82 00 8E 09 96 00 99 |40:."=";:.......|
00000170: 20 22 20 20 20 20 20 20 20 20 20 41 44 52 45 53 | " ADRES|
00000180: 53 45 4E 56 45 52 57 41 4C 54 55 4E 47 22 00 A2 |SENVERWALTUNG"..|
00000190: 09 A0 00 81 49 B2 31 A4 34 30 3A 99 22 3D 22 3B |....I.1.40:."=";|
000001A0: 3A 82 00 AA 09 AA 00 99 3A 99 00 B0 09 B4 00 8E |:.......:.......|
000001B0: 00 CB 09 C8 00 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D |...... =========|
000001C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 E1 09 D2 00 |===========.....|
000001D0: 8F 20 20 20 46 45 48 4C 45 52 4D 45 4C 44 55 4E |. FEHLERMELDUN|
000001E0: 47 00 FC 09 DC 00 8F 20 3D 3D 3D 3D 3D 3D 3D 3D |G...... ========|
000001F0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 09 0A E6 |============....|
00000200: 00 99 20 C7 28 31 39 29 3B 00 20 0A F0 00 81 58 |.. .(19);. ....X|
00000210: B2 31 A4 32 34 3A 99 20 C7 28 31 37 29 3B 3A 82 |.1.24:. .(17);:.|
00000220: 00 38 0A FA 00 99 20 C7 28 31 38 29 3B 46 45 24 |.8.... .(18);FE$|
00000230: 3B C7 28 31 34 36 29 3B 00 4B 0A 04 01 81 20 58 |;.(146);.K.... X|
00000240: B2 31 20 A4 20 33 30 30 30 3A 82 00 51 0A 0E 01 |.1 . 3000:..Q...|
00000250: 8E 00 6C 0A 2C 01 8F 20 3D 3D 3D 3D 3D 3D 3D 3D |..l.,.. ========|
00000260: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 87 0A 36 |============...6|
00000270: 01 8F 20 4B 4F 45 50 46 45 20 50 52 4F 47 52 41 |.. KOEPFE PROGRA|
00000280: 4D 4D 54 45 49 4C 45 00 A2 0A 40 01 8F 20 3D 3D |MMTEILE...@.. ==|
00000290: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000002A0: 3D 3D 00 C1 0A 4A 01 50 54 24 28 31 29 B2 22 20 |==...J.PT$(1)." |
000002B0: 20 20 44 41 54 45 49 20 4C 41 44 45 4E 20 20 20 | DATEI LADEN |
000002C0: 22 00 E0 0A 54 01 50 54 24 28 32 29 B2 22 20 44 |"...T.PT$(2)." D|
000002D0: 41 54 45 49 20 53 50 45 49 43 48 45 52 4E 20 22 |ATEI SPEICHERN "|
000002E0: 00 FF 0A 5E 01 50 54 24 28 33 29 B2 22 41 44 52 |...^.PT$(3)."ADR|
000002F0: 45 53 53 45 4E 20 45 49 4E 47 45 42 45 4E 22 00 |ESSEN EINGEBEN".|
00000300: 1E 0B 68 01 50 54 24 28 34 29 B2 22 41 44 52 45 |..h.PT$(4)."ADRE|
00000310: 53 53 45 4E 20 41 45 4E 44 45 52 4E 20 22 00 3D |SSEN AENDERN ".=|
00000320: 0B 72 01 50 54 24 28 35 29 B2 22 41 44 52 45 53 |.r.PT$(5)."ADRES|
00000330: 53 45 4E 20 4C 4F 45 53 43 48 45 4E 22 00 5C 0B |SEN LOESCHEN".\.|
00000340: 7C 01 50 54 24 28 36 29 B2 22 41 44 52 45 53 53 ||.PT$(6)."ADRESS|
00000350: 45 4E 20 41 55 53 47 45 42 45 4E 22 00 7B 0B 86 |EN AUSGEBEN".{..|
00000360: 01 50 54 24 28 37 29 B2 22 50 52 4F 47 52 41 4D |.PT$(7)."PROGRAM|
00000370: 4D 20 42 45 45 4E 44 45 4E 20 22 00 85 0B 90 01 |M BEENDEN ".....|
00000380: 8D 20 31 30 30 00 9D 0B 9A 01 99 22 20 20 20 20 |. 100......" |
00000390: 20 20 20 20 20 22 3B C7 28 33 30 29 3B 00 BB 0B | ";.(30);...|
000003A0: A4 01 99 20 20 20 22 B0 C3 C3 C3 C3 C3 C3 C3 C3 |... ".........|
000003B0: C3 C3 C3 C3 C3 C3 C3 C3 C3 AE 22 00 E5 0B AE 01 |..........".....|
000003C0: 99 22 20 20 20 20 20 20 20 20 20 DD 22 3B C7 28 |." .";.(|
000003D0: 31 35 38 29 3B 50 54 24 28 46 29 3B C7 28 33 30 |158);PT$(F);.(30|
000003E0: 29 3B 22 DD 22 00 10 0C B8 01 99 22 20 20 20 20 |);"."......" |
000003F0: 20 20 20 20 20 AD C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 | ...........|
00000400: C3 C3 C3 C3 C3 C3 C3 BD 22 3B C7 28 31 35 38 29 |........";.(158)|
00000410: 00 16 0C C2 01 8E 00 31 0C F4 01 8F 20 3D 3D 3D |.......1.... ===|
00000420: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000430: 3D 00 4B 0C FE 01 8F 20 20 44 41 54 45 4E 20 49 |=.K.... DATEN I|
00000440: 4D 20 52 45 43 48 4E 45 52 20 3F 00 66 0C 08 02 |M RECHNER ?.f...|
00000450: 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |. ==============|
00000460: 3D 3D 3D 3D 3D 3D 00 75 0C 12 02 8B 20 5A B1 30 |======.u.... Z.0|
00000470: A7 20 35 36 30 00 97 0C 1C 02 46 45 24 B2 22 4B |. 560.....FE$."K|
00000480: 45 49 4E 45 20 44 41 54 45 4E 20 49 4D 20 52 45 |EINE DATEN IM RE|
00000490: 43 48 4E 45 52 21 22 00 A1 0C 26 02 8D 20 32 30 |CHNER!"...&.. 20|
000004A0: 30 00 A7 0C 30 02 8E 00 B0 0C E8 03 8D 31 30 30 |0...0........100|
000004B0: 00 DC 0C ED 03 99 C7 28 33 30 29 3B 22 20 20 20 |.......(30);" |
000004C0: 20 20 20 20 B0 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 | ............|
000004D0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 AE 22 00 15 0D F2 |..........."....|
000004E0: 03 99 22 20 20 20 20 20 20 20 DD 22 3B C7 28 31 |.." .";.(1|
000004F0: 35 38 29 3B 22 20 50 52 4F 47 52 41 4D 4D 46 55 |58);" PROGRAMMFU|
00000500: 4E 4B 54 49 4F 4E 45 4E 3A 22 3B C7 28 33 30 29 |NKTIONEN:";.(30)|
00000510: 3B 22 20 DD 22 00 42 0D F7 03 99 22 20 20 20 20 |;" .".B...." |
00000520: 20 20 20 AD C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 | .............|
00000530: C3 C3 C3 C3 C3 C3 C3 C3 C3 BD 22 3B C7 28 31 35 |..........";.(15|
00000540: 38 29 00 48 0D 06 04 99 00 79 0D 10 04 99 C7 28 |8).H.....y.....(|
00000550: 31 34 34 29 3B 22 20 20 20 20 20 2D 31 2D 22 3B |144);" -1-";|
00000560: C7 28 31 35 38 29 20 20 20 20 20 3B 22 44 41 54 |.(158) ;"DAT|
00000570: 45 49 20 4C 41 44 45 4E 22 00 AE 0D 1A 04 99 C7 |EI LADEN".......|
00000580: 28 31 34 34 29 3B 22 20 20 20 20 20 2D 32 2D 22 |(144);" -2-"|
00000590: 3B C7 28 31 35 38 29 20 20 20 20 20 3B 22 44 41 |;.(158) ;"DA|
000005A0: 54 45 49 20 53 50 45 49 43 48 45 52 4E 22 00 E5 |TEI SPEICHERN"..|
000005B0: 0D 24 04 99 C7 28 31 34 34 29 3B 22 20 20 20 20 |.$...(144);" |
000005C0: 20 2D 33 2D 22 3B C7 28 31 35 38 29 20 20 20 20 | -3-";.(158) |
000005D0: 20 3B 22 41 44 52 45 53 53 45 4E 20 45 49 4E 47 | ;"ADRESSEN EING|
000005E0: 45 42 45 4E 22 00 1B 0E 2E 04 99 C7 28 31 34 34 |EBEN".......(144|
000005F0: 29 3B 22 20 20 20 20 20 2D 34 2D 22 3B C7 28 31 |);" -4-";.(1|
00000600: 35 38 29 20 20 20 20 20 3B 22 41 44 52 45 53 53 |58) ;"ADRESS|
00000610: 45 4E 20 41 45 4E 44 45 52 4E 22 00 52 0E 38 04 |EN AENDERN".R.8.|
00000620: 99 C7 28 31 34 34 29 3B 22 20 20 20 20 20 2D 35 |..(144);" -5|
00000630: 2D 22 3B C7 28 31 35 38 29 20 20 20 20 20 3B 22 |-";.(158) ;"|
00000640: 41 44 52 45 53 53 45 4E 20 4C 4F 45 53 43 48 45 |ADRESSEN LOESCHE|
00000650: 4E 22 00 89 0E 42 04 99 C7 28 31 34 34 29 3B 22 |N"...B...(144);"|
00000660: 20 20 20 20 20 2D 36 2D 22 3B C7 28 31 35 38 29 | -6-";.(158)|
00000670: 20 20 20 20 20 3B 22 41 44 52 45 53 53 45 4E 20 | ;"ADRESSEN |
00000680: 41 55 53 47 45 42 45 4E 22 00 BF 0E 4C 04 99 C7 |AUSGEBEN"...L...|
00000690: 28 31 34 34 29 3B 22 20 20 20 20 20 2D 37 2D 22 |(144);" -7-"|
000006A0: 3B C7 28 31 35 38 29 20 20 20 20 20 3B 22 50 52 |;.(158) ;"PR|
000006B0: 4F 47 52 41 4D 4D 20 42 45 45 4E 44 45 4E 22 00 |OGRAMM BEENDEN".|
000006C0: C7 0E 51 04 99 3A 99 00 F0 0E 56 04 99 C7 28 31 |..Q..:....V...(1|
000006D0: 34 34 29 3B 22 20 20 20 20 20 41 55 53 57 41 48 |44);" AUSWAH|
000006E0: 4C 20 22 3B C7 20 20 20 20 20 28 31 35 38 29 3B |L ";. (158);|
000006F0: 00 F8 0E 5B 04 85 20 46 00 2D 0F 60 04 8B 46 B2 |...[.. F.-.`..F.|
00000700: 30 20 B0 20 46 B1 37 20 A7 20 46 45 24 B2 22 55 |0 . F.7 . FE$."U|
00000710: 4E 47 55 45 4C 54 49 47 45 52 20 57 45 52 54 22 |NGUELTIGER WERT"|
00000720: 3A 8D 20 32 30 30 3A 89 20 31 30 30 30 00 67 0F |:. 200:. 1000.g.|
00000730: 6A 04 91 20 46 20 89 20 35 30 30 30 2C 31 30 30 |j.. F . 5000,100|
00000740: 30 30 2C 31 35 30 30 30 2C 32 30 30 30 30 2C 20 |00,15000,20000, |
00000750: 20 20 20 20 20 20 32 35 30 30 30 2C 33 30 30 30 | 25000,3000|
00000760: 30 2C 33 35 30 30 30 00 7B 0F 88 13 8F 20 3D 3D |0,35000.{.... ==|
00000770: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 8E 0F 92 13 |===========.....|
00000780: 8F 20 20 44 41 54 45 49 20 4C 41 44 45 4E 00 A2 |. DATEI LADEN..|
00000790: 0F 9C 13 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.... ===========|
000007A0: 3D 3D 00 AD 0F A6 13 8D 33 30 30 3A 99 00 D9 0F |==......300:....|
000007B0: B0 13 99 22 42 49 54 54 45 20 50 52 4F 47 52 41 |..."BITTE PROGRA|
000007C0: 4D 4D 44 49 53 4B 45 54 54 45 20 48 45 52 41 55 |MMDISKETTE HERAU|
000007D0: 53 4E 45 48 4D 45 4E 21 22 00 DF 0F BA 13 99 00 |SNEHMEN!".......|
000007E0: 04 10 C4 13 99 22 42 49 54 54 45 20 44 41 54 45 |....."BITTE DATE|
000007F0: 4E 44 49 53 4B 45 54 54 45 20 45 49 4E 4C 45 47 |NDISKETTE EINLEG|
00000800: 45 4E 21 22 00 0A 10 C9 13 99 00 2E 10 CE 13 99 |EN!"............|
00000810: 22 44 52 55 45 43 4B 45 4E 20 53 49 45 20 44 41 |"DRUECKEN SIE DA|
00000820: 4E 41 43 48 20 52 45 54 55 52 4E 20 22 3B 00 36 |NACH RETURN ";.6|
00000830: 10 D8 13 85 58 24 00 3C 10 DD 13 99 00 57 10 E2 |....X$.<.....W..|
00000840: 13 9F 20 32 2C 38 2C 32 2C 22 41 44 52 45 53 53 |.. 2,8,2,"ADRESS|
00000850: 45 4E 2C 53 2C 52 22 00 60 10 EC 13 84 32 2C 5A |EN,S,R".`....2,Z|
00000860: 00 6C 10 F6 13 81 20 59 B2 31 A4 5A 00 78 10 00 |.l.... Y.1.Z.x..|
00000870: 14 81 20 49 B2 31 A4 37 00 87 10 0A 14 84 32 2C |.. I.1.7......2,|
00000880: 44 24 28 59 2C 49 29 00 8E 10 14 14 82 49 00 95 |D$(Y,I)......I..|
00000890: 10 1E 14 82 59 00 9D 10 28 14 A0 20 32 00 B8 10 |....Y...(.. 2...|
000008A0: 32 14 99 22 44 41 54 45 4E 20 53 49 4E 44 20 47 |2.."DATEN SIND G|
000008B0: 45 4C 41 44 45 4E 21 22 00 C9 10 3C 14 81 20 58 |ELADEN!"...<.. X|
000008C0: B2 31 A4 32 30 30 30 3A 82 00 D4 10 46 14 89 20 |.1.2000:....F.. |
000008D0: 31 30 30 30 00 EC 10 10 27 8F 20 3D 3D 3D 3D 3D |1000....'. =====|
000008E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 03 11 24 |============...$|
000008F0: 27 8F 20 20 44 41 54 45 49 20 53 50 45 49 43 48 |'. DATEI SPEICH|
00000900: 45 52 4E 00 1B 11 2E 27 8F 20 3D 3D 3D 3D 3D 3D |ERN....'. ======|
00000910: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 26 11 38 27 |===========.&.8'|
00000920: 8D 33 30 30 3A 99 00 3B 11 3D 27 8D 35 30 30 3A |.300:..;.='.500:|
00000930: 8B 20 5A B2 30 20 A7 31 30 30 30 00 67 11 4C 27 |. Z.0 .1000.g.L'|
00000940: 99 22 42 49 54 54 45 20 50 52 4F 47 52 41 4D 4D |."BITTE PROGRAMM|
00000950: 44 49 53 4B 45 54 54 45 20 48 45 52 41 55 53 4E |DISKETTE HERAUSN|
00000960: 45 48 4D 45 4E 21 22 00 6D 11 56 27 99 00 92 11 |EHMEN!".m.V'....|
00000970: 60 27 99 22 42 49 54 54 45 20 44 41 54 45 4E 44 |`'."BITTE DATEND|
00000980: 49 53 4B 45 54 54 45 20 45 49 4E 4C 45 47 45 4E |ISKETTE EINLEGEN|
00000990: 21 22 00 98 11 65 27 99 00 BC 11 6A 27 99 22 44 |!"...e'....j'."D|
000009A0: 52 55 45 43 4B 45 4E 20 53 49 45 20 44 41 4E 41 |RUECKEN SIE DANA|
000009B0: 43 48 20 52 45 54 55 52 4E 20 22 3B 00 C4 11 6F |CH RETURN ";...o|
000009C0: 27 85 58 24 00 E1 11 74 27 9F 20 32 2C 38 2C 32 |'.X$...t'. 2,8,2|
000009D0: 2C 22 40 3A 41 44 52 45 53 53 45 4E 2C 53 2C 57 |,"@:ADRESSEN,S,W|
000009E0: 22 00 EA 11 7E 27 98 32 2C 5A 00 F6 11 88 27 81 |"...~'.2,Z....'.|
000009F0: 20 59 B2 31 A4 5A 00 02 12 92 27 81 20 49 B2 31 | Y.1.Z....'. I.1|
00000A00: A4 37 00 11 12 9C 27 98 32 2C 44 24 28 59 2C 49 |.7....'.2,D$(Y,I|
00000A10: 29 00 18 12 A6 27 82 49 00 1F 12 B0 27 82 59 00 |)....'.I....'.Y.|
00000A20: 26 12 B5 27 A0 32 00 47 12 BA 27 99 3A 99 22 44 |&..'.2.G..'.:."D|
00000A30: 41 54 45 4E 20 53 49 4E 44 20 47 45 53 50 45 49 |ATEN SIND GESPEI|
00000A40: 43 48 45 52 54 21 22 00 58 12 C4 27 81 20 58 B2 |CHERT!".X..'. X.|
00000A50: 31 A4 32 30 30 30 3A 82 00 62 12 CE 27 89 31 30 |1.2000:..b..'.10|
00000A60: 30 30 00 7C 12 98 3A 8F 20 3D 3D 3D 3D 3D 3D 3D |00.|..:. =======|
00000A70: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 95 12 A2 |============....|
00000A80: 3A 8F 20 20 41 44 52 45 53 53 45 4E 20 45 49 4E |:. ADRESSEN EIN|
00000A90: 47 45 42 45 4E 00 AF 12 AC 3A 8F 20 3D 3D 3D 3D |GEBEN....:. ====|
00000AA0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 |===============.|
00000AB0: B9 12 B6 3A 8D 20 33 30 30 00 C3 12 C0 3A 5A B2 |...:. 300....:Z.|
00000AC0: 5A AA 31 00 C9 12 CA 3A 99 00 D4 12 D4 3A 81 49 |Z.1....:.....:.I|
00000AD0: B2 31 A4 37 00 E0 12 DE 3A 99 46 24 28 49 29 3B |.1.7....:.F$(I);|
00000AE0: 00 EE 12 E8 3A 85 20 44 24 28 5A 2C 49 29 00 F4 |....:. D$(Z,I)..|
00000AF0: 12 F2 3A 82 00 FA 12 FC 3A 99 00 21 13 06 3B 99 |..:.....:..!..;.|
00000B00: 22 44 41 54 45 4E 20 52 49 43 48 54 49 47 20 45 |"DATEN RICHTIG E|
00000B10: 49 4E 47 45 47 45 42 45 4E 20 28 4A 2F 4E 29 22 |INGEGEBEN (J/N)"|
00000B20: 3B 00 30 13 10 3B 58 24 B2 22 22 3A 85 20 58 24 |;.0..;X$."":. X$|
00000B30: 00 43 13 1A 3B 8B 20 58 24 B2 22 4A 22 A7 31 35 |.C..;. X$."J".15|
00000B40: 31 36 30 00 5D 13 24 3B 8B 20 58 24 B2 22 4E 22 |160.].$;. X$."N"|
00000B50: A7 5A B2 5A AB 31 3A 89 31 35 30 30 30 00 72 13 |.Z.Z.1:.15000.r.|
00000B60: 2E 3B 99 20 C7 28 31 34 35 29 3B 3A 89 31 35 31 |.;. .(145);:.151|
00000B70: 31 30 00 91 13 38 3B 99 22 57 45 49 54 45 52 45 |10...8;."WEITERE|
00000B80: 20 45 49 4E 47 41 42 45 4E 20 28 4A 2F 4E 29 22 | EINGABEN (J/N)"|
00000B90: 3B 00 A0 13 42 3B 58 24 B2 22 22 3A 85 20 58 24 |;...B;X$."":. X$|
00000BA0: 00 B5 13 4C 3B 8B 20 58 24 B2 22 4A 22 20 A7 20 |...L;. X$."J" . |
00000BB0: 31 35 30 30 30 00 C9 13 56 3B 99 C7 28 31 34 35 |15000...V;..(145|
00000BC0: 29 3B 3A 89 32 35 31 36 30 00 DF 13 60 3B 99 20 |);:.25160...`;. |
00000BD0: C7 28 31 34 35 29 3B 3A 89 20 31 35 31 36 30 00 |.(145);:. 15160.|
00000BE0: FA 13 20 4E 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.. N. ==========|
00000BF0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 13 14 2A 4E 8F |==========...*N.|
00000C00: 20 20 20 41 44 52 45 53 53 45 4E 20 41 45 4E 44 | ADRESSEN AEND|
00000C10: 45 52 4E 00 2E 14 34 4E 8F 20 3D 3D 3D 3D 3D 3D |ERN...4N. ======|
00000C20: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 37 |==============.7|
00000C30: 14 3E 4E 5A 5A B2 31 00 40 14 48 4E 8D 33 30 30 |.>NZZ.1.@.HN.300|
00000C40: 00 46 14 52 4E 99 00 52 14 5C 4E 81 20 49 B2 31 |.F.RN..R.\N. I.1|
00000C50: A4 37 00 69 14 66 4E 99 20 49 3B 46 24 28 49 29 |.7.i.fN. I;F$(I)|
00000C60: 3B 44 24 28 5A 5A 2C 49 29 00 6F 14 70 4E 82 00 |;D$(ZZ,I).o.pN..|
00000C70: 86 14 7A 4E A1 20 58 24 3A 8B 20 58 24 B2 22 22 |..zN. X$:. X$.""|
00000C80: A7 32 30 30 39 30 00 A8 14 84 4E 8B C6 28 58 24 |.20090....N..(X$|
00000C90: 29 B3 31 33 33 20 B0 20 C6 28 58 24 29 B1 31 33 |).133 . .(X$).13|
00000CA0: 36 20 A7 32 30 30 39 30 00 BD 14 8E 4E 8B 20 C6 |6 .20090....N. .|
00000CB0: 28 58 24 29 B2 31 33 36 A7 31 30 30 30 00 E4 14 |(X$).136.1000...|
00000CC0: 98 4E 8B 20 C6 28 58 24 29 B2 31 33 33 20 AF 20 |.N. .(X$).133 . |
00000CD0: 5A 5A B3 5A 20 A7 5A 5A B2 5A 5A AA 31 3A 89 32 |ZZ.Z .ZZ.ZZ.1:.2|
00000CE0: 30 30 34 30 00 0B 15 A2 4E 8B 20 C6 28 58 24 29 |0040....N. .(X$)|
00000CF0: B2 31 33 34 20 AF 20 5A 5A B1 31 20 A7 5A 5A B2 |.134 . ZZ.1 .ZZ.|
00000D00: 5A 5A AB 31 3A 89 32 30 30 34 30 00 23 15 AC 4E |ZZ.1:.20040.#..N|
00000D10: 8B 20 C6 28 58 24 29 B2 31 33 35 20 A7 20 32 30 |. .(X$).135 . 20|
00000D20: 31 36 30 00 2E 15 B6 4E 89 32 30 30 39 30 00 34 |160....N.20090.4|
00000D30: 15 C0 4E 99 00 4F 15 CA 4E 85 22 46 45 4C 44 4E |..N..O..N."FELDN|
00000D40: 55 4D 4D 45 52 20 28 31 2D 37 29 20 22 3B 58 00 |UMMER (1-7) ";X.|
00000D50: 6F 15 D4 4E 8B 20 58 B3 31 B0 20 58 B1 37 20 A7 |o..N. X.1. X.7 .|
00000D60: 99 C7 28 31 34 35 29 3B 3A 89 32 30 31 37 30 00 |..(145);:.20170.|
00000D70: 75 15 DE 4E 99 00 94 15 E8 4E 85 22 4E 45 55 45 |u..N.....N."NEUE|
00000D80: 52 20 49 4E 48 41 4C 54 3A 20 22 3B 44 24 28 5A |R INHALT: ";D$(Z|
00000D90: 5A 2C 58 29 00 A0 15 F2 4E 89 20 32 30 30 34 30 |Z,X)....N. 20040|
00000DA0: 00 BA 15 A8 61 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D |....a. =========|
00000DB0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 D3 15 B2 61 8F |==========....a.|
00000DC0: 20 20 41 44 52 45 53 53 45 4E 20 4C 4F 45 53 43 | ADRESSEN LOESC|
00000DD0: 48 45 4E 00 ED 15 BC 61 8F 20 3D 3D 3D 3D 3D 3D |HEN....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 31 16 DF 61 8B 20 5A B2 30 A7 31 30 30 |R?.1..a. Z.0.100|
00000E30: 30 00 47 16 E4 61 85 20 22 56 4F 52 4E 41 4D 45 |0.G..a. "VORNAME|
00000E40: 3A 20 22 3B 44 31 24 00 5D 16 EE 61 85 20 22 4E |: ";D1$.]..a. "N|
00000E50: 41 4D 45 20 20 20 3A 20 22 3B 44 32 24 00 65 16 |AME : ";D2$.e.|
00000E60: F8 61 58 B2 31 00 8B 16 02 62 8B 20 44 24 28 58 |.aX.1....b. D$(X|
00000E70: 2C 32 29 B2 44 31 24 AF 20 44 24 28 58 2C 33 29 |,2).D1$. D$(X,3)|
00000E80: B2 44 32 24 20 A7 32 35 31 33 30 00 A2 16 0C 62 |.D2$ .25130....b|
00000E90: 8B 20 58 B3 5A A7 58 B2 58 AA 31 3A 89 32 35 30 |. X.Z.X.X.1:.250|
00000EA0: 39 30 00 C2 16 16 62 46 45 24 B2 22 4E 41 4D 45 |90....bFE$."NAME|
00000EB0: 20 4E 49 43 48 54 20 47 45 46 55 4E 44 45 4E 21 | NICHT GEFUNDEN!|
00000EC0: 3A 22 00 D1 16 20 62 8D 32 30 30 3A 89 31 30 30 |:"... b.200:.100|
00000ED0: 30 00 DC 16 2A 62 8D 33 30 30 3A 99 00 E7 16 2F |0...*b.300:..../|
00000EE0: 62 81 49 B2 31 A4 37 00 FA 16 34 62 99 46 24 28 |b.I.1.7...4b.F$(|
00000EF0: 49 29 3B 44 24 28 58 2C 49 29 00 00 17 3E 62 82 |I);D$(X,I)...>b.|
00000F00: 00 06 17 43 62 99 00 29 17 48 62 85 22 41 44 52 |...Cb..).Hb."ADR|
00000F10: 45 53 53 45 20 4C 4F 45 53 43 48 45 4E 20 28 4A |ESSE LOESCHEN (J|
00000F20: 2F 4E 29 20 20 22 3B 58 24 00 3E 17 52 62 8B 20 |/N) ";X$.>.Rb. |
00000F30: 58 24 B2 22 4A 22 20 A7 20 32 35 32 30 30 00 52 |X$."J" . 25200.R|
00000F40: 17 5C 62 8B 20 58 24 B2 22 4E 22 20 A7 20 31 30 |.\b. X$."N" . 10|
00000F50: 30 30 00 62 17 70 62 81 20 59 B2 58 20 A4 20 5A |00.b.pb. Y.X . Z|
00000F60: AB 31 00 6E 17 7A 62 81 20 49 B2 31 A4 37 00 84 |.1.n.zb. I.1.7..|
00000F70: 17 84 62 44 24 28 59 2C 49 29 B2 44 24 28 59 AA |..bD$(Y,I).D$(Y.|
00000F80: 31 2C 49 29 00 8B 17 8E 62 82 49 00 92 17 98 62 |1,I)....b.I....b|
00000F90: 82 59 00 9C 17 A2 62 5A B2 5A AB 31 00 A6 17 AC |.Y....bZ.Z.1....|
00000FA0: 62 89 31 30 30 30 00 C0 17 30 75 8F 20 3D 3D 3D |b.1000...0u. ===|
00000FB0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000FC0: 00 D9 17 3A 75 8F 20 20 41 44 52 45 53 53 45 4E |...:u. ADRESSEN|
00000FD0: 20 41 55 53 47 45 42 45 4E 00 F3 17 44 75 8F 20 | AUSGEBEN...Du. |
00000FE0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000FF0: 3D 3D 3D 00 FE 17 4E 75 8D 33 30 30 3A 99 00 07 |===...Nu.300:...|
00001000: 18 58 75 8D 35 30 30 00 18 18 62 75 8B 20 5A B2 |.Xu.500...bu. Z.|
00001010: 30 20 A7 20 31 30 30 30 00 40 18 6C 75 85 22 44 |0 . 1000.@.lu."D|
00001020: 52 55 43 4B 45 52 20 4F 44 45 52 20 42 49 4C 44 |RUCKER ODER BILD|
00001030: 53 43 48 49 52 4D 20 28 44 2F 42 29 22 3B 47 24 |SCHIRM (D/B)";G$|
00001040: 00 6C 18 76 75 8B 20 47 24 B3 B1 22 42 22 20 AF |.l.vu. G$.."B" .|
00001050: 20 47 24 B3 B1 22 44 22 20 A7 20 99 20 C7 28 31 | G$.."D" . . .(1|
00001060: 34 35 29 3B 3A 89 20 33 30 30 36 30 00 7D 18 7B |45);:. 30060.}.{|
00001070: 75 8B 47 24 B2 22 44 22 A7 9F 31 2C 34 00 88 18 |u.G$."D"..1,4...|
00001080: 80 75 8D 33 30 30 3A 99 00 9D 18 8A 75 99 22 53 |.u.300:.....u."S|
00001090: 55 43 48 42 45 47 52 49 46 46 45 3A 22 00 B2 18 |UCHBEGRIFFE:"...|
000010A0: 94 75 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.u."------------|
000010B0: 2D 22 00 B8 18 9E 75 99 00 CE 18 A8 75 81 49 B2 |-"....u.....u.I.|
000010C0: 31 A4 37 3A 53 24 28 49 29 B2 22 22 3A 82 00 DA |1.7:S$(I)."":...|
000010D0: 18 B2 75 81 20 49 B2 31 A4 37 00 E7 18 BC 75 99 |..u. I.1.7....u.|
000010E0: 20 46 24 28 49 29 3B 00 F3 18 C6 75 85 20 53 24 | F$(I);....u. S$|
000010F0: 28 49 29 00 F9 18 D0 75 82 00 05 19 DA 75 81 20 |(I)....u.....u. |
00001100: 59 B2 31 A4 5A 00 0D 19 E4 75 53 B2 30 00 19 19 |Y.1.Z....uS.0...|
00001110: EE 75 81 20 49 B2 31 A4 37 00 35 19 F8 75 8B 20 |.u. I.1.7.5..u. |
00001120: 53 24 28 49 29 B2 22 22 A7 53 B2 53 AA 31 3A 89 |S$(I)."".S.S.1:.|
00001130: 33 30 32 32 30 00 50 19 02 76 8B 20 44 24 28 59 |30220.P..v. D$(Y|
00001140: 2C 49 29 B2 53 24 28 49 29 A7 20 53 B2 53 AA 31 |,I).S$(I). S.S.1|
00001150: 00 58 19 0C 76 82 20 49 00 6B 19 16 76 8B 20 53 |.X..v. I.k..v. S|
00001160: B3 B1 37 20 A7 20 33 30 33 30 30 00 7A 19 20 76 |..7 . 30300.z. v|
00001170: 8B 47 24 B2 22 44 22 A7 98 31 00 8D 19 25 76 8B |.G$."D"..1...%v.|
00001180: 47 24 B2 22 42 22 A7 8D 33 30 30 3A 99 00 98 19 |G$."B"..300:....|
00001190: 2A 76 81 49 B2 31 A4 37 00 B4 19 34 76 8B 20 47 |*v.I.1.7...4v. G|
000011A0: 24 B2 22 42 22 A7 99 46 24 28 49 29 3B 44 24 28 |$."B"..F$(I);D$(|
000011B0: 59 2C 49 29 00 D2 19 3E 76 8B 20 47 24 B2 22 44 |Y,I)...>v. G$."D|
000011C0: 22 A7 98 31 2C 46 24 28 49 29 3B 44 24 28 59 2C |"..1,F$(I);D$(Y,|
000011D0: 49 29 00 D9 19 48 76 82 49 00 ED 19 4D 76 8B 20 |I)...Hv.I...Mv. |
000011E0: 47 24 B2 22 44 22 A7 20 33 30 33 30 30 00 0D 1A |G$."D". 30300...|
000011F0: 52 76 99 3A 85 22 44 52 55 45 43 4B 45 4E 20 53 |Rv.:."DRUECKEN S|
00001200: 49 45 20 52 45 54 55 52 4E 22 3B 58 24 00 14 1A |IE RETURN";X$...|
00001210: 5C 76 82 59 00 22 1A 66 76 8D 20 33 30 30 3A 99 |\v.Y.".fv. 300:.|
00001220: 3A 99 00 33 1A 70 76 99 22 44 41 54 45 49 45 4E |:..3.pv."DATEIEN|
00001230: 44 45 22 00 51 1A 7A 76 85 22 44 52 55 45 43 4B |DE".Q.zv."DRUECK|
00001240: 45 4E 20 53 49 45 20 52 45 54 55 52 4E 22 3B 58 |EN SIE RETURN";X|
00001250: 24 00 62 1A 84 76 8B 20 47 24 B2 22 44 22 A7 20 |$.b..v. G$."D". |
00001260: A0 31 00 6D 1A 8E 76 89 20 31 30 30 30 00 86 1A |.1.m..v. 1000...|
00001270: B8 88 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |... ============|
00001280: 3D 3D 3D 3D 3D 3D 00 9E 1A C2 88 8F 20 20 50 52 |======...... PR|
00001290: 4F 47 52 41 4D 4D 20 42 45 45 4E 44 45 4E 00 B7 |OGRAMM BEENDEN..|
000012A0: 1A CC 88 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.... ===========|
000012B0: 3D 3D 3D 3D 3D 3D 3D 00 C2 1A D6 88 8D 33 30 30 |=======......300|
000012C0: 3A 99 00 D4 1A E0 88 8B 20 5A B2 30 20 A7 20 33 |:....... Z.0 . 3|
000012D0: 35 31 35 30 00 FD 1A EA 88 99 22 53 49 4E 44 20 |5150......"SIND |
000012E0: 41 4C 4C 45 20 44 41 54 45 4E 20 47 45 53 49 43 |ALLE DATEN GESIC|
000012F0: 48 45 52 54 20 28 4A 2F 4E 29 20 22 3B 00 05 1B |HERT (J/N) ";...|
00001300: F4 88 85 58 24 00 17 1B FE 88 8B 58 24 B2 22 4E |...X$......X$."N|
00001310: 22 A7 20 31 30 30 30 00 2A 1B 08 89 8B 58 24 B2 |". 1000.*....X$.|
00001320: 22 4A 22 A7 20 33 35 31 30 30 00 40 1B 12 89 99 |"J". 35100.@....|
00001330: 20 C7 28 31 34 35 29 3B 3A 89 20 33 35 30 35 30 | .(145);:. 35050|
00001340: 00 4A 1B 1C 89 8D 20 33 30 30 00 7B 1B 26 89 99 |.J.... 300.{.&..|
00001350: 22 44 41 53 20 50 52 4F 47 52 41 4D 4D 20 4B 41 |"DAS PROGRAMM KA|
00001360: 4E 4E 20 4D 49 54 20 27 47 4F 54 4F 20 31 30 30 |NN MIT 'GOTO 100|
00001370: 30 27 20 57 49 45 44 45 52 22 3B 00 A8 1B 30 89 |0' WIEDER";...0.|
00001380: 99 22 47 45 53 54 41 52 54 45 54 20 57 45 52 44 |."GESTARTET WERD|
00001390: 45 4E 2C 4F 48 4E 45 20 44 41 53 53 20 44 41 54 |EN,OHNE DASS DAT|
000013A0: 45 4E 20 56 45 52 2D 22 00 BC 1B 3A 89 99 22 4C |EN VER-"...:.."L|
000013B0: 4F 52 45 4E 20 47 45 48 45 4E 21 22 00 C2 1B 44 |OREN GEHEN!"...D|
000013C0: 89 99 00 C8 1B 4E 89 80 00 00 00 99 |.....N...... |
..&....53280,2:.53281,2:.G (158).5
....D$(200,7).M...F$(1)."ANREDE ".E.
..F$(2)."VORNAMEN ".}. .F$(3)."NAME
"...!.F$(4)."STRASSE "...".F$(5).
"PLZ/ORT ".E.#.F$(6)."TELEFON "...
$.F$(7)."BEMERKUNG "...C..1000...D..
==========================.%.N..
PROGRAMMKOPF.H.X.. ==================
========.V.... G(147);.J....I.1.40:."=";
:....... " ADRESSENVERWALTUNG"..
. ..I.1.40:."=";:.......:........K.H.. =
===================...R.. FEHLERMELDUN
G...... ====================...... G(19)
;. ....X.1.24:. G(17);:..8.... G(18);FE$
;G(146);.K.... X.1 . 3000:..Q.....L.,..
====================...6.. KOEPFE PROGRA
MMTEILE...@.. ====================.A.J.P
T$(1)." DATEI LADEN "...T.PT$(2)." D
ATEI SPEICHERN "...^.PT$(3)."ADRESSEN EI
NGEBEN"...H.PT$(4)."ADRESSEN AENDERN ".=
.R.PT$(5)."ADRESSEN LOESCHEN".\.|.PT$(6)
."ADRESSEN AUSGEBEN".{...PT$(7)."PROGRAM
M BEENDEN "...... 100......" ";G
(30);...... ".CCCCCCCCCCCCCCCCC.".....
." .";G(158);PT$(F);G(30);"."...
..." .CCCCCCCCCCCCCCCCC.";G(158)
...B...1.... ====================.K....
DATEN IM RECHNER ?.F.... ==============
======.U.... Z.0. 560.....FE$."KEINE DAT
EN IM RECHNER!"...&.. 200...0........100
......G(30);" .CCCCCCCCCCCCCCCCCCC
CC."......" .";G(158);" PROGRAMMFU
NKTIONEN:";G(30);" .".B...." .CCCC
CCCCCCCCCCCCCCCCC.";G(158).H.....Y....G(
144);" -1-";G(158) ;"DATEI LADEN
"......G(144);" -2-";G(158) ;"DA
TEI SPEICHERN"...$..G(144);" -3-";G(
158) ;"ADRESSEN EINGEBEN"......G(144
);" -4-";G(158) ;"ADRESSEN AENDE
RN".R.8..G(144);" -5-";G(158) ;"
ADRESSEN LOESCHEN"...B..G(144);" -6-
";G(158) ;"ADRESSEN AUSGEBEN"...L..G
(144);" -7-";G(158) ;"PROGRAMM B
EENDEN".G.Q..:....V..G(144);" AUSWAH
L ";G (158);...[.. F.-.`..F.0 . F.7
. FE$."UNGUELTIGER WERT":. 200:. 1000.G.
J.. F . 5000,10000,15000,20000, 25
000,30000,35000.{.... =============.....
. DATEI LADEN...... =============......
300:..Y...."BITTE PROGRAMMDISKETTE HERAU
SNEHMEN!".........D.."BITTE DATENDISKETT
E EINLEGEN!"...I.....N.."DRUECKEN SIE DA
NACH RETURN ";.6.X..X$.<.....W.... 2,8,2
,"ADRESSEN,S,R".`....2,Z.L.... Y.1.Z.X..
.. I.1.7......2,D$(Y,I)......I......Y...
(. 2...2.."DATEN SIND GELADEN!".I.<.. X
.1.2000:..T.F.. 1000....'. =============
====...$'. DATEI SPEICHERN....'. ======
===========.&.8'.300:..;.='.500:. Z.0 .1
000.G.L'."BITTE PROGRAMMDISKETTE HERAUSN
EHMEN!".M.V'....`'."BITTE DATENDISKETTE
EINLEGEN!"...E'....J'."DRUECKEN SIE DANA
CH RETURN ";.D.O'.X$...T'. 2,8,2,"@:ADRE
SSEN,S,W"...~'.2,Z....'. Y.1.Z....'. I.1
.7....'.2,D$(Y,I)....'.I....'.Y.&..' 2.G
..'.:."DATEN SIND GESPEICHERT!".X.D'. X.
1.2000:..B.N'.1000.|..:. ===============
====....:. ADRESSEN EINGEBEN....:. ====
===============....:. 300.C..:Z.Z.1.I.J:
..T.T:.I.1.7....:.F$(I);....:. D$(Z,I)..
..:.....:..!..;."DATEN RICHTIG EINGEGEBE
N (J/N)";.0..;X$."":. X$.C..;. X$."J".15
160.].$;. X$."N".Z.Z.1:.15000.R..;. G(14
5);:.15110...8;."WEITERE EINGABEN (J/N)"
;. .B;X$."":. X$...L;. X$."J" . 15000.I.
V;.G(145);:.25160...`;. G(145);:. 15160.
.. N. ====================...*N. ADRES
SEN AENDERN...4N. ====================.7
.>NZZ.1.@.HN.300.F.RN..R.\N. I.1.7.I.FN.
I;F$(I);D$(ZZ,I).O.PN....ZN. X$:. X$.""
.20090....N.F(X$).133 . F(X$).136 .20090
....N. F(X$).136.1000....N. F(X$).133 .
ZZ.Z .ZZ.ZZ.1:.20040....N. F(X$).134 . Z
Z.1 .ZZ.ZZ.1:.20040.#..N. F(X$).135 . 20
160....N.20090.4..N..O.JN."FELDNUMMER (1
-7) ";X.O.TN. X.1. X.7 ..G(145);:.20170.
U..N.....N."NEUER INHALT: ";D$(ZZ,X). ..
N. 20040....A. ===================.S..A.
ADRESSEN LOESCHEN....A. ==============
=====...FA. 300:. KOPF...PA..".ZA. 500:.
DATEN IM RECHNER?.1..A. Z.0.1000.G..A.
"VORNAME: ";D1$.]..A. "NAME : ";D2$.E.
.AX.1....B. D$(X,2).D1$. D$(X,3).D2$ .25
130....B. X.Z.X.X.1:.25090.B..BFE$."NAME
NICHT GEFUNDEN!:".Q. B.200:.1000...*B.3
00:..../B.I.1.7...4B.F$(I);D$(X,I)...>B.
...CB..).HB."ADRESSE LOESCHEN (J/N) ";X
$.>.RB. X$."J" . 25200.R.\B. X$."N" . 10
00.B.PB. Y.X . Z.1.N.ZB. I.1.7....BD$(Y,
I).D$(Y.1,I)....B.I....B.Y....BZ.Z.1....
B.1000...0U. ===================.Y.:U.
ADRESSEN AUSGEBEN...DU. ================
===...NU.300:....XU.500...BU. Z.0 . 1000
.@.LU."DRUCKER ODER BILDSCHIRM (D/B)";G$
.L.VU. G$.."B" . G$.."D" . . G(145);:. 3
0060.}.{U.G$."D"..1,4....U.300:.....U."S
UCHBEGRIFFE:"....U."-------------"....U.
.N..U.I.1.7:S$(I)."":..Z..U. I.1.7....U.
F$(I);...FU. S$(I)...PU....ZU. Y.1.Z...
.US.0....U. I.1.7.5..U. S$(I)."".S.S.1:.
30220.P..V. D$(Y,I).S$(I). S.S.1.X..V. I
.K..V. S..7 . 30300.Z. V.G$."D"..1...%V.
G$."B"..300:....*V.I.1.7...4V. G$."B"..F
$(I);D$(Y,I).R.>V. G$."D"..1,F$(I);D$(Y,
I).Y.HV.I...MV. G$."D". 30300...RV.:."DR
UECKEN SIE RETURN";X$...\V.Y.".FV. 300:.
:..3.PV."DATEIENDE".Q.ZV."DRUECKEN SIE R
ETURN";X$.B..V. G$."D". 1.M..V. 1000...
... ==================...B.. PROGRAMM B
EENDEN...L.. ==================.B.V..300
:..T.... Z.0 . 35150......"SIND ALLE DAT
EN GESICHERT (J/N) ";......X$......X$."N
". 1000.*....X$."J". 35100.@.... G(145);
:. 35050.J.... 300.{.&.."DAS PROGRAMM KA
NN MIT 'GOTO 1000' WIEDER";...0.."GESTAR
TET WERDEN,OHNE DASS DATEN VER-"...:.."L
OREN GEHEN!".B.D...H.N......
> CLICK IMAGE PREVIEW FOR FULL MODAL