ADRESSENVERWALTU
FILE INFORMATION
FILENAME(S): ADRESSENVERWALTU
FILE TYPE(S): PRG
FILE SIZE: 4.9K
FIRST SEEN: 2025-11-02 16:54:40
APPEARS ON: 1 disk(s)
FILE HASH
546f159f352dd1d0d8f5fee5b9308a8e8d3b5f7871b74a1a879e29ad8416f827
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DATEIVERWALTUNG | ADRESSENVERWALTU | PRG | Treasure Chest - Reamigation | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1A 08 01 00 8F 20 41 44 52 45 53 53 45 4E |....... ADRESSEN|
00000010: 56 45 52 57 41 4C 54 55 4E 47 00 38 08 0A 00 97 |VERWALTUNG.8....|
00000020: 35 33 32 38 30 2C 32 3A 97 35 33 32 38 31 2C 32 |53280,2:.53281,2|
00000030: 3A 99 C7 28 31 35 38 29 00 47 08 14 00 86 44 24 |:..(158).G....D$|
00000040: 28 32 30 30 2C 37 29 00 5F 08 1E 00 46 24 28 31 |(200,7)._...F$(1|
00000050: 29 B2 22 41 4E 52 45 44 45 20 20 20 20 20 22 00 |)."ANREDE ".|
00000060: 77 08 1F 00 46 24 28 32 29 B2 22 56 4F 52 4E 41 |w...F$(2)."VORNA|
00000070: 4D 45 20 20 20 20 22 00 8F 08 20 00 46 24 28 33 |ME "... .F$(3|
00000080: 29 B2 22 4E 41 4D 45 20 20 20 20 20 20 20 22 00 |)."NAME ".|
00000090: A7 08 21 00 46 24 28 34 29 B2 22 53 54 52 41 53 |..!.F$(4)."STRAS|
000000A0: 53 45 20 20 20 20 22 00 BF 08 22 00 46 24 28 35 |SE "...".F$(5|
000000B0: 29 B2 22 50 4C 5A 2F 4F 52 54 20 20 20 20 22 00 |)."PLZ/ORT ".|
000000C0: D7 08 23 00 46 24 28 36 29 B2 22 54 45 4C 45 46 |..#.F$(6)."TELEF|
000000D0: 4F 4E 20 20 20 20 22 00 EF 08 24 00 46 24 28 37 |ON "...$.F$(7|
000000E0: 29 B2 22 42 45 4D 45 52 4B 55 4E 47 20 20 22 00 |)."BEMERKUNG ".|
000000F0: F9 08 63 00 89 31 30 30 30 00 14 09 64 00 8F 20 |..c..1000...d.. |
00000100: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000110: 3D 3D 3D 3D 00 29 09 6E 00 8F 20 20 20 50 52 4F |====.).n.. PRO|
00000120: 47 52 41 4D 4D 4B 4F 50 46 00 44 09 78 00 8F 20 |GRAMMKOPF.D.x.. |
00000130: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000140: 3D 3D 3D 3D 00 51 09 82 00 99 C7 28 31 34 37 29 |====.Q.....(147)|
00000150: 3B 00 65 09 8C 00 81 49 B2 31 A4 34 30 3A 99 22 |;.e....I.1.40:."|
00000160: 3D 22 3B 3A 82 00 8B 09 96 00 99 20 22 20 20 20 |=";:....... " |
00000170: 20 20 20 20 20 20 20 20 41 44 52 45 53 53 45 4E | ADRESSEN|
00000180: 56 45 52 57 41 4C 54 55 4E 47 22 00 9F 09 A0 00 |VERWALTUNG".....|
00000190: 81 49 B2 31 A4 34 30 3A 99 22 3D 22 3B 3A 82 00 |.I.1.40:."=";:..|
000001A0: A7 09 AA 00 99 3A 99 00 AD 09 B4 00 8E 00 C8 09 |.....:..........|
000001B0: C8 00 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |... ============|
000001C0: 3D 3D 3D 3D 3D 3D 3D 3D 00 DE 09 D2 00 8F 20 20 |========...... |
000001D0: 20 46 45 48 4C 45 52 4D 45 4C 44 55 4E 47 00 F9 | FEHLERMELDUNG..|
000001E0: 09 DC 00 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.... ===========|
000001F0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 06 0A E6 00 99 20 |=========...... |
00000200: C7 28 31 39 29 3B 00 1C 0A F0 00 81 58 B2 31 A4 |.(19);......X.1.|
00000210: 32 34 3A 99 C7 28 31 37 29 3B 3A 82 00 33 0A FA |24:..(17);:..3..|
00000220: 00 99 C7 28 31 38 29 3B 46 45 24 3B C7 28 31 34 |...(18);FE$;.(14|
00000230: 36 29 3B 00 46 0A 04 01 81 20 58 B2 31 20 A4 20 |6);.F.... X.1 . |
00000240: 31 30 30 30 3A 82 00 4C 0A 0E 01 8E 00 67 0A 2C |1000:..L.....g.,|
00000250: 01 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.. =============|
00000260: 3D 3D 3D 3D 3D 3D 3D 00 82 0A 36 01 8F 20 4B 4F |=======...6.. KO|
00000270: 45 50 46 45 20 50 52 4F 47 52 41 4D 4D 54 45 49 |EPFE PROGRAMMTEI|
00000280: 4C 45 00 9D 0A 40 01 8F 20 3D 3D 3D 3D 3D 3D 3D |LE...@.. =======|
00000290: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 BC 0A |=============...|
000002A0: 4A 01 50 54 24 28 31 29 B2 22 20 20 20 44 41 54 |J.PT$(1)." DAT|
000002B0: 45 49 20 4C 41 44 45 4E 20 20 20 22 00 DB 0A 54 |EI LADEN "...T|
000002C0: 01 50 54 24 28 32 29 B2 22 20 44 41 54 45 49 20 |.PT$(2)." DATEI |
000002D0: 53 50 45 49 43 48 45 52 4E 20 22 00 FA 0A 5E 01 |SPEICHERN "...^.|
000002E0: 50 54 24 28 33 29 B2 22 41 44 52 45 53 53 45 4E |PT$(3)."ADRESSEN|
000002F0: 20 45 49 4E 47 45 42 45 4E 22 00 19 0B 68 01 50 | EINGEBEN"...h.P|
00000300: 54 24 28 34 29 B2 22 41 44 52 45 53 53 45 4E 20 |T$(4)."ADRESSEN |
00000310: 41 45 4E 44 45 52 4E 20 22 00 38 0B 72 01 50 54 |AENDERN ".8.r.PT|
00000320: 24 28 35 29 B2 22 41 44 52 45 53 53 45 4E 20 4C |$(5)."ADRESSEN L|
00000330: 4F 45 53 43 48 45 4E 22 00 57 0B 7C 01 50 54 24 |OESCHEN".W.|.PT$|
00000340: 28 36 29 B2 22 41 44 52 45 53 53 45 4E 20 41 55 |(6)."ADRESSEN AU|
00000350: 53 47 45 42 45 4E 22 00 76 0B 86 01 50 54 24 28 |SGEBEN".v...PT$(|
00000360: 37 29 B2 22 50 52 4F 47 52 41 4D 4D 20 42 45 45 |7)."PROGRAMM BEE|
00000370: 4E 44 45 4E 20 22 00 7F 0B 90 01 8D 31 30 30 00 |NDEN "......100.|
00000380: 97 0B 9A 01 99 22 20 20 20 20 20 20 20 20 20 22 |....." "|
00000390: 3B C7 28 33 30 29 3B 00 B2 0B A4 01 99 22 D5 C0 |;.(30);......"..|
000003A0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000003B0: C9 22 00 DC 0B AE 01 99 22 20 20 20 20 20 20 20 |."......" |
000003C0: 20 20 DD 22 3B C7 28 31 35 38 29 3B 50 54 24 28 | .";.(158);PT$(|
000003D0: 46 29 3B C7 28 33 30 29 3B 22 DD 22 00 07 0C B8 |F);.(30);"."....|
000003E0: 01 99 22 20 20 20 20 20 20 20 20 20 CA C0 C0 C0 |.." ....|
000003F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 CB 22 |..............."|
00000400: 3B C7 28 31 35 38 29 00 0D 0C C2 01 8E 00 28 0C |;.(158).......(.|
00000410: F4 01 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |... ============|
00000420: 3D 3D 3D 3D 3D 3D 3D 3D 00 40 0C FE 01 8F 20 44 |========.@.... D|
00000430: 41 54 45 4E 20 49 4D 20 52 45 43 48 4E 45 52 3F |ATEN IM RECHNER?|
00000440: 00 5B 0C 08 02 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D |.[.... =========|
00000450: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 6A 0C 12 02 |===========.j...|
00000460: 8B 20 5A B1 30 A7 20 35 36 30 00 8C 0C 1C 02 46 |. Z.0. 560.....F|
00000470: 45 24 B2 22 4B 45 49 4E 45 20 44 41 54 45 4E 20 |E$."KEINE DATEN |
00000480: 49 4D 20 52 45 43 48 4E 45 52 21 22 00 96 0C 26 |IM RECHNER!"...&|
00000490: 02 8D 20 32 30 30 00 9C 0C 30 02 8E 00 A5 0C E8 |.. 200...0......|
000004A0: 03 8D 31 30 30 00 CE 0C ED 03 99 C7 28 33 30 29 |..100.......(30)|
000004B0: 3B 22 20 20 20 20 D5 C0 C0 C0 C0 C0 C0 C0 C0 C0 |;" ..........|
000004C0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 22 00 04 |............."..|
000004D0: 0D F2 03 99 22 20 20 20 20 DD 22 3B C7 28 31 35 |...." .";.(15|
000004E0: 38 29 3B 22 20 50 52 4F 47 52 41 4D 4D 46 55 4E |8);" PROGRAMMFUN|
000004F0: 4B 54 49 4F 4E 45 4E 3A 22 3B C7 28 33 30 29 3B |KTIONEN:";.(30);|
00000500: 22 20 DD 22 00 2E 0D F7 03 99 22 20 20 20 20 CA |" ."......" .|
00000510: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000520: C0 C0 C0 C0 C0 CB 22 3B C7 28 31 35 38 29 00 34 |......";.(158).4|
00000530: 0D 06 04 99 00 61 0D 10 04 99 C7 28 31 34 34 29 |.....a.....(144)|
00000540: 3B 22 20 20 20 20 20 2D 31 2D 20 22 3B C7 28 31 |;" -1- ";.(1|
00000550: 35 38 29 3B 22 44 41 54 45 49 20 4C 41 44 45 4E |58);"DATEI LADEN|
00000560: 22 00 92 0D 1A 04 99 C7 28 31 34 34 29 3B 22 20 |".......(144);" |
00000570: 20 20 20 20 2D 32 2D 20 22 3B C7 28 31 35 38 29 | -2- ";.(158)|
00000580: 3B 22 44 41 54 45 49 20 53 50 45 49 43 48 45 52 |;"DATEI SPEICHER|
00000590: 4E 22 00 C5 0D 24 04 99 C7 28 31 34 34 29 3B 22 |N"...$...(144);"|
000005A0: 20 20 20 20 20 2D 33 2D 20 22 3B C7 28 31 35 38 | -3- ";.(158|
000005B0: 29 3B 22 41 44 52 45 53 53 45 4E 20 45 49 4E 47 |);"ADRESSEN EING|
000005C0: 45 42 45 4E 22 00 F7 0D 2E 04 99 C7 28 31 34 34 |EBEN".......(144|
000005D0: 29 3B 22 20 20 20 20 20 2D 34 2D 20 22 3B C7 28 |);" -4- ";.(|
000005E0: 31 35 38 29 3B 22 41 44 52 45 53 53 45 4E 20 41 |158);"ADRESSEN A|
000005F0: 45 4E 44 45 52 4E 22 00 2A 0E 38 04 99 C7 28 31 |ENDERN".*.8...(1|
00000600: 34 34 29 3B 22 20 20 20 20 20 2D 35 2D 20 22 3B |44);" -5- ";|
00000610: C7 28 31 35 38 29 3B 22 41 44 52 45 53 53 45 4E |.(158);"ADRESSEN|
00000620: 20 4C 4F 45 53 43 48 45 4E 22 00 5D 0E 42 04 99 | LOESCHEN".].B..|
00000630: C7 28 31 34 34 29 3B 22 20 20 20 20 20 2D 36 2D |.(144);" -6-|
00000640: 20 22 3B C7 28 31 35 38 29 3B 22 41 44 52 45 53 | ";.(158);"ADRES|
00000650: 53 45 4E 20 41 55 53 47 45 42 45 4E 22 00 8F 0E |SEN AUSGEBEN"...|
00000660: 4C 04 99 C7 28 31 34 34 29 3B 22 20 20 20 20 20 |L...(144);" |
00000670: 2D 37 2D 20 22 3B C7 28 31 35 38 29 3B 22 50 52 |-7- ";.(158);"PR|
00000680: 4F 47 52 41 4D 4D 20 42 45 45 4E 44 45 4E 22 00 |OGRAMM BEENDEN".|
00000690: 97 0E 51 04 99 3A 99 00 BB 0E 56 04 99 C7 28 31 |..Q..:....V...(1|
000006A0: 34 34 29 3B 22 20 20 20 20 20 41 55 53 57 41 48 |44);" AUSWAH|
000006B0: 4C 20 22 3B C7 28 31 35 38 29 3B 00 C3 0E 5B 04 |L ";.(158);...[.|
000006C0: 85 20 46 00 F6 0E 60 04 8B 46 B2 30 20 B0 20 46 |. F...`..F.0 . F|
000006D0: B1 37 20 A7 20 46 45 24 B2 22 55 4E 47 55 45 4C |.7 . FE$."UNGUEL|
000006E0: 54 49 47 45 52 20 57 45 52 54 22 3A 8D 32 30 30 |TIGER WERT":.200|
000006F0: 3A 89 31 30 30 30 00 29 0F 6A 04 91 20 46 20 89 |:.1000.).j.. F .|
00000700: 20 35 30 30 30 2C 31 30 30 30 30 2C 31 35 30 30 | 5000,10000,1500|
00000710: 30 2C 32 30 30 30 30 2C 32 35 30 30 30 2C 33 30 |0,20000,25000,30|
00000720: 30 30 30 2C 33 35 30 30 30 00 44 0F 88 13 8F 20 |000,35000.D.... |
00000730: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000740: 3D 3D 3D 3D 00 59 0F 92 13 8F 20 20 20 20 44 41 |====.Y.... DA|
00000750: 54 45 49 20 4C 41 44 45 4E 00 74 0F 9C 13 8F 20 |TEI LADEN.t.... |
00000760: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000770: 3D 3D 3D 3D 00 7F 0F A6 13 8D 33 30 30 3A 99 00 |====......300:..|
00000780: AB 0F B0 13 99 22 42 49 54 54 45 20 44 41 54 45 |....."BITTE DATE|
00000790: 4E 4B 41 53 53 45 54 54 45 20 45 49 4E 4C 45 47 |NKASSETTE EINLEG|
000007A0: 45 4E 20 55 4E 44 20 5A 55 2D 22 00 B1 0F BA 13 |EN UND ZU-".....|
000007B0: 99 00 C5 0F C4 13 99 22 52 55 45 43 4B 53 50 55 |......."RUECKSPU|
000007C0: 4C 45 4E 21 22 00 CB 0F C9 13 99 00 EE 0F CE 13 |LEN!"...........|
000007D0: 99 22 44 52 55 45 43 4B 45 4E 20 53 49 45 20 44 |."DRUECKEN SIE D|
000007E0: 41 4E 41 43 48 20 52 45 54 55 52 4E 22 3B 00 F6 |ANACH RETURN";..|
000007F0: 0F D8 13 85 58 24 00 FC 0F DD 13 99 00 13 10 E2 |....X$..........|
00000800: 13 9F 20 31 2C 31 2C 30 2C 22 41 44 52 45 53 53 |.. 1,1,0,"ADRESS|
00000810: 45 4E 22 00 1C 10 EC 13 84 31 2C 5A 00 28 10 F6 |EN"......1,Z.(..|
00000820: 13 81 20 59 B2 31 A4 5A 00 34 10 00 14 81 20 49 |.. Y.1.Z.4.... I|
00000830: B2 31 A4 37 00 43 10 0A 14 84 31 2C 44 24 28 59 |.1.7.C....1,D$(Y|
00000840: 2C 49 29 00 4A 10 14 14 82 49 00 51 10 1E 14 82 |,I).J....I.Q....|
00000850: 59 00 59 10 28 14 A0 20 31 00 74 10 32 14 99 22 |Y.Y.(.. 1.t.2.."|
00000860: 44 41 54 45 4E 20 53 49 4E 44 20 47 45 4C 41 44 |DATEN SIND GELAD|
00000870: 45 4E 21 22 00 85 10 3C 14 81 20 58 B2 31 A4 32 |EN!"...<.. X.1.2|
00000880: 30 30 30 3A 82 00 90 10 46 14 89 20 31 30 30 30 |000:....F.. 1000|
00000890: 00 AC 10 10 27 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D |....'. =========|
000008A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 C5 10 24 |============...$|
000008B0: 27 8F 20 20 20 20 44 41 54 45 49 20 53 50 45 49 |'. DATEI SPEI|
000008C0: 43 48 45 52 4E 00 E1 10 2E 27 8F 20 3D 3D 3D 3D |CHERN....'. ====|
000008D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000008E0: 3D 00 EC 10 38 27 8D 33 30 30 3A 99 00 01 11 3D |=...8'.300:....=|
000008F0: 27 8D 35 30 30 3A 8B 20 5A B2 30 20 A7 31 30 30 |'.500:. Z.0 .100|
00000900: 30 00 2D 11 4C 27 99 22 42 49 54 54 45 20 44 41 |0.-.L'."BITTE DA|
00000910: 54 45 4E 4B 41 53 53 45 54 54 45 20 45 49 4E 4C |TENKASSETTE EINL|
00000920: 45 47 45 4E 20 55 4E 44 20 5A 55 2D 22 00 33 11 |EGEN UND ZU-".3.|
00000930: 56 27 99 00 47 11 60 27 99 22 52 55 45 43 4B 53 |V'..G.`'."RUECKS|
00000940: 50 55 4C 45 4E 21 22 00 4D 11 65 27 99 00 70 11 |PULEN!".M.e'..p.|
00000950: 6A 27 99 22 44 52 55 45 43 4B 45 4E 20 53 49 45 |j'."DRUECKEN SIE|
00000960: 20 44 41 4E 41 43 48 20 52 45 54 55 52 4E 20 22 | DANACH RETURN "|
00000970: 00 78 11 6F 27 85 58 24 00 8F 11 74 27 9F 20 31 |.x.o'.X$...t'. 1|
00000980: 2C 31 2C 31 2C 22 41 44 52 45 53 53 45 4E 22 00 |,1,1,"ADRESSEN".|
00000990: 98 11 7E 27 98 31 2C 5A 00 A4 11 88 27 81 20 59 |..~'.1,Z....'. Y|
000009A0: B2 31 A4 5A 00 B0 11 92 27 81 20 49 B2 31 A4 37 |.1.Z....'. I.1.7|
000009B0: 00 BF 11 9C 27 98 31 2C 44 24 28 59 2C 49 29 00 |....'.1,D$(Y,I).|
000009C0: C6 11 A6 27 82 49 00 CD 11 B0 27 82 59 00 D4 11 |...'.I....'.Y...|
000009D0: B5 27 A0 31 00 F5 11 BA 27 99 3A 99 22 44 41 54 |.'.1....'.:."DAT|
000009E0: 45 4E 20 53 49 4E 44 20 47 45 53 50 45 49 43 48 |EN SIND GESPEICH|
000009F0: 45 52 54 21 22 00 06 12 C4 27 81 20 58 B2 31 A4 |ERT!"....'. X.1.|
00000A00: 32 30 30 30 3A 82 00 10 12 CE 27 89 31 30 30 30 |2000:.....'.1000|
00000A10: 00 2A 12 98 3A 8F 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.*..:.==========|
00000A20: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 42 12 A2 3A 8F |==========.B..:.|
00000A30: 20 41 44 52 45 53 53 45 4E 20 45 49 4E 47 45 42 | ADRESSEN EINGEB|
00000A40: 45 4E 00 5C 12 AC 3A 8F 3D 3D 3D 3D 3D 3D 3D 3D |EN.\..:.========|
00000A50: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 65 12 B6 |============.e..|
00000A60: 3A 8D 33 30 30 00 6F 12 C0 3A 5A B2 5A AA 31 00 |:.300.o..:Z.Z.1.|
00000A70: 75 12 CA 3A 99 00 80 12 D4 3A 81 49 B2 31 A4 37 |u..:.....:.I.1.7|
00000A80: 00 8C 12 DE 3A 99 46 24 28 49 29 3B 00 9A 12 E8 |....:.F$(I);....|
00000A90: 3A 85 20 44 24 28 5A 2C 49 29 00 A0 12 F2 3A 82 |:. D$(Z,I)....:.|
00000AA0: 00 A6 12 FC 3A 99 00 CD 12 06 3B 99 22 44 41 54 |....:.....;."DAT|
00000AB0: 45 4E 20 52 49 43 48 54 49 47 20 45 49 4E 47 45 |EN RICHTIG EINGE|
00000AC0: 47 45 42 45 4E 20 28 4A 2F 4E 29 22 3B 00 DC 12 |GEBEN (J/N)";...|
00000AD0: 10 3B 58 24 B2 22 22 3A 85 20 58 24 00 EF 12 1A |.;X$."":. X$....|
00000AE0: 3B 8B 20 58 24 B2 22 4A 22 A7 31 35 31 36 30 00 |;. X$."J".15160.|
00000AF0: 09 13 24 3B 8B 20 58 24 B2 22 4E 22 A7 5A B2 5A |..$;. X$."N".Z.Z|
00000B00: AB 31 3A 89 31 35 30 30 30 00 1E 13 2E 3B 99 20 |.1:.15000....;. |
00000B10: C7 28 31 34 35 29 3B 3A 89 31 35 31 31 30 00 3D |.(145);:.15110.=|
00000B20: 13 38 3B 99 22 57 45 49 54 45 52 45 20 45 49 4E |.8;."WEITERE EIN|
00000B30: 47 41 42 45 4E 20 28 4A 2F 4E 29 22 3B 00 4C 13 |GABEN (J/N)";.L.|
00000B40: 42 3B 58 24 B2 22 22 3A 85 20 58 24 00 61 13 4C |B;X$."":. X$.a.L|
00000B50: 3B 8B 20 58 24 B2 22 4A 22 20 A7 20 31 35 30 30 |;. X$."J" . 1500|
00000B60: 30 00 75 13 56 3B 8B 20 58 24 B2 22 4E 22 20 A7 |0.u.V;. X$."N" .|
00000B70: 20 31 30 30 30 00 8A 13 60 3B 99 20 C7 28 31 34 | 1000...`;. .(14|
00000B80: 35 29 3B 3A 89 31 35 31 36 30 00 A5 13 20 4E 8F |5);:.15160... N.|
00000B90: 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D | ===============|
00000BA0: 3D 3D 3D 3D 3D 00 BE 13 2A 4E 8F 20 20 20 41 44 |=====...*N. AD|
00000BB0: 52 45 53 53 45 4E 20 41 45 4E 44 45 52 4E 00 D9 |RESSEN AENDERN..|
00000BC0: 13 34 4E 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.4N. ===========|
00000BD0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 E2 13 3E 4E 5A 5A |=========...>NZZ|
00000BE0: B2 31 00 EB 13 48 4E 8D 33 30 30 00 F1 13 52 4E |.1...HN.300...RN|
00000BF0: 99 00 FD 13 5C 4E 81 20 49 B2 31 A4 37 00 14 14 |....\N. I.1.7...|
00000C00: 66 4E 99 20 49 3B 46 24 28 49 29 3B 44 24 28 5A |fN. I;F$(I);D$(Z|
00000C10: 5A 2C 49 29 00 1A 14 70 4E 82 00 31 14 7A 4E A1 |Z,I)...pN..1.zN.|
00000C20: 20 58 24 3A 8B 20 58 24 B2 22 22 A7 32 30 30 39 | X$:. X$."".2009|
00000C30: 30 00 53 14 84 4E 8B C6 28 58 24 29 B3 31 33 33 |0.S..N..(X$).133|
00000C40: 20 B0 20 C6 28 58 24 29 B1 31 33 36 20 A7 32 30 | . .(X$).136 .20|
00000C50: 30 39 30 00 68 14 8E 4E 8B 20 C6 28 58 24 29 B2 |090.h..N. .(X$).|
00000C60: 31 33 36 A7 31 30 30 30 00 8F 14 98 4E 8B 20 C6 |136.1000....N. .|
00000C70: 28 58 24 29 B2 31 33 33 20 AF 20 5A 5A B3 5A 20 |(X$).133 . ZZ.Z |
00000C80: A7 5A 5A B2 5A 5A AA 31 3A 89 32 30 30 34 30 00 |.ZZ.ZZ.1:.20040.|
00000C90: B5 14 A2 4E 8B C6 28 58 24 29 B2 31 33 34 20 AF |...N..(X$).134 .|
00000CA0: 20 5A 5A B1 31 20 A7 5A 5A B2 5A 5A AB 31 3A 89 | ZZ.1 .ZZ.ZZ.1:.|
00000CB0: 32 30 30 34 30 00 CD 14 AC 4E 8B 20 C6 28 58 24 |20040....N. .(X$|
00000CC0: 29 B2 31 33 35 20 A7 20 32 30 31 36 30 00 D8 14 |).135 . 20160...|
00000CD0: B6 4E 89 32 30 30 39 30 00 DE 14 C0 4E 99 00 F9 |.N.20090....N...|
00000CE0: 14 CA 4E 85 22 46 45 4C 44 4E 55 4D 4D 45 52 20 |..N."FELDNUMMER |
00000CF0: 28 31 2D 37 29 20 22 3B 58 00 19 15 D4 4E 8B 20 |(1-7) ";X....N. |
00000D00: 58 B3 31 B0 20 58 B1 37 20 A7 99 C7 28 31 34 35 |X.1. X.7 ...(145|
00000D10: 29 3B 3A 89 32 30 31 37 30 00 1F 15 DE 4E 99 00 |);:.20170....N..|
00000D20: 3E 15 E8 4E 85 22 4E 45 55 45 52 20 49 4E 48 41 |>..N."NEUER INHA|
00000D30: 4C 54 3A 20 22 3B 44 24 28 5A 5A 2C 58 29 00 49 |LT: ";D$(ZZ,X).I|
00000D40: 15 F2 4E 89 32 30 30 34 30 00 64 15 A8 61 8F 20 |..N.20040.d..a. |
00000D50: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000D60: 3D 3D 3D 3D 00 7D 15 B2 61 8F 20 20 41 44 52 45 |====.}..a. ADRE|
00000D70: 53 53 45 4E 20 4C 4F 45 53 43 48 45 4E 00 98 15 |SSEN LOESCHEN...|
00000D80: BC 61 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.a. ============|
00000D90: 3D 3D 3D 3D 3D 3D 3D 3D 00 A9 15 C6 61 8D 20 33 |========....a. 3|
00000DA0: 30 30 3A 8F 20 4B 4F 50 46 00 AF 15 D0 61 99 00 |00:. KOPF....a..|
00000DB0: CB 15 DA 61 8D 35 30 30 3A 8F 20 44 41 54 45 4E |...a.500:. DATEN|
00000DC0: 20 49 4D 20 52 45 43 48 4E 45 52 00 DA 15 DF 61 | IM RECHNER....a|
00000DD0: 8B 20 5A B2 30 A7 31 30 30 30 00 EF 15 E4 61 85 |. Z.0.1000....a.|
00000DE0: 22 56 4F 52 4E 41 4D 45 3A 20 22 3B 44 31 24 00 |"VORNAME: ";D1$.|
00000DF0: 04 16 EE 61 85 22 4E 41 4D 45 20 20 20 3A 20 22 |...a."NAME : "|
00000E00: 3B 44 32 24 00 0C 16 F8 61 58 B2 31 00 32 16 02 |;D2$....aX.1.2..|
00000E10: 62 8B 20 44 24 28 58 2C 32 29 B2 44 31 24 AF 20 |b. D$(X,2).D1$. |
00000E20: 44 24 28 58 2C 33 29 B2 44 32 24 20 A7 32 35 31 |D$(X,3).D2$ .251|
00000E30: 33 30 00 49 16 0C 62 8B 20 58 B3 5A A7 58 B2 58 |30.I..b. X.Z.X.X|
00000E40: AA 31 3A 89 32 35 30 39 30 00 69 16 16 62 46 45 |.1:.25090.i..bFE|
00000E50: 24 B2 22 4E 41 4D 45 20 4E 49 43 48 54 20 47 45 |$."NAME NICHT GE|
00000E60: 46 55 4E 44 45 4E 21 3A 22 00 78 16 20 62 8D 32 |FUNDEN!:".x. b.2|
00000E70: 30 30 3A 89 31 30 30 30 00 83 16 2A 62 8D 33 30 |00:.1000...*b.30|
00000E80: 30 3A 99 00 8E 16 2F 62 81 49 B2 31 A4 37 00 A1 |0:..../b.I.1.7..|
00000E90: 16 34 62 99 46 24 28 49 29 3B 44 24 28 58 2C 49 |.4b.F$(I);D$(X,I|
00000EA0: 29 00 A7 16 3E 62 82 00 AD 16 43 62 99 00 CF 16 |)...>b....Cb....|
00000EB0: 48 62 85 22 41 44 52 45 53 53 45 20 4C 4F 45 53 |Hb."ADRESSE LOES|
00000EC0: 43 48 45 4E 20 28 4A 2F 4E 29 20 22 3B 58 24 00 |CHEN (J/N) ";X$.|
00000ED0: E4 16 52 62 8B 20 58 24 B2 22 4A 22 20 A7 20 32 |..Rb. X$."J" . 2|
00000EE0: 35 32 30 30 00 F8 16 5C 62 8B 20 58 24 B2 22 4E |5200...\b. X$."N|
00000EF0: 22 20 A7 20 31 30 30 30 00 0C 17 66 62 99 C7 28 |" . 1000...fb..(|
00000F00: 31 34 35 29 3B 3A 89 32 35 31 36 30 00 1C 17 70 |145);:.25160...p|
00000F10: 62 81 20 59 B2 58 20 A4 20 5A AB 31 00 28 17 7A |b. Y.X . Z.1.(.z|
00000F20: 62 81 20 49 B2 31 A4 37 00 3E 17 84 62 44 24 28 |b. I.1.7.>..bD$(|
00000F30: 59 2C 49 29 B2 44 24 28 59 AA 31 2C 49 29 00 45 |Y,I).D$(Y.1,I).E|
00000F40: 17 8E 62 82 49 00 4C 17 98 62 82 59 00 56 17 A2 |..b.I.L..b.Y.V..|
00000F50: 62 5A B2 5A AB 31 00 60 17 AC 62 89 31 30 30 30 |bZ.Z.1.`..b.1000|
00000F60: 00 7B 17 30 75 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D |.{.0u. =========|
00000F70: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 94 17 3A 75 |===========...:u|
00000F80: 8F 20 20 41 44 52 45 53 53 45 4E 20 41 55 53 47 |. ADRESSEN AUSG|
00000F90: 45 42 45 4E 00 A5 17 44 75 99 22 44 41 54 45 49 |EBEN...Du."DATEI|
00000FA0: 45 4E 44 45 22 00 B0 17 4E 75 8D 33 30 30 3A 99 |ENDE"...Nu.300:.|
00000FB0: 00 B9 17 58 75 8D 35 30 30 00 CA 17 62 75 8B 20 |...Xu.500...bu. |
00000FC0: 5A B2 30 20 A7 20 31 30 30 30 00 F3 17 6C 75 85 |Z.0 . 1000...lu.|
00000FD0: 22 44 52 55 43 4B 45 52 20 4F 44 45 52 20 42 49 |"DRUCKER ODER BI|
00000FE0: 4C 44 53 43 48 49 52 4D 20 28 44 2F 42 29 20 22 |LDSCHIRM (D/B) "|
00000FF0: 3B 47 24 00 1E 18 76 75 8B 20 47 24 B3 B1 22 42 |;G$...vu. G$.."B|
00001000: 22 20 AF 20 47 24 B3 B1 22 44 22 A7 20 99 20 C7 |" . G$.."D". . .|
00001010: 28 31 34 35 29 3B 3A 89 20 33 30 30 36 30 00 2F |(145);:. 30060./|
00001020: 18 7B 75 8B 47 24 B2 22 44 22 A7 9F 31 2C 34 00 |.{u.G$."D"..1,4.|
00001030: 3A 18 80 75 8D 33 30 30 3A 99 00 4F 18 8A 75 99 |:..u.300:..O..u.|
00001040: 22 53 55 43 48 42 45 47 52 49 46 46 45 3A 22 00 |"SUCHBEGRIFFE:".|
00001050: 64 18 94 75 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |d..u."----------|
00001060: 2D 2D 2D 22 00 6A 18 9E 75 99 00 80 18 A8 75 81 |---".j..u.....u.|
00001070: 49 B2 31 A4 37 3A 53 24 28 49 29 B2 22 22 3A 82 |I.1.7:S$(I)."":.|
00001080: 00 8C 18 B2 75 81 20 49 B2 31 A4 37 00 99 18 BC |....u. I.1.7....|
00001090: 75 99 20 46 24 28 49 29 3B 00 A5 18 C6 75 85 20 |u. F$(I);....u. |
000010A0: 53 24 28 49 29 00 AB 18 D0 75 82 00 B7 18 DA 75 |S$(I)....u.....u|
000010B0: 81 20 59 B2 31 A4 5A 00 BF 18 E4 75 53 B2 30 00 |. Y.1.Z....uS.0.|
000010C0: CB 18 EE 75 81 20 49 B2 31 A4 37 00 E7 18 F8 75 |...u. I.1.7....u|
000010D0: 8B 20 53 24 28 49 29 B2 22 22 A7 53 B2 53 AA 31 |. S$(I)."".S.S.1|
000010E0: 3A 89 33 30 32 32 30 00 02 19 02 76 8B 20 44 24 |:.30220....v. D$|
000010F0: 28 59 2C 49 29 B2 53 24 28 49 29 A7 20 53 B2 53 |(Y,I).S$(I). S.S|
00001100: AA 31 00 0A 19 0C 76 82 20 49 00 1D 19 16 76 8B |.1....v. I....v.|
00001110: 20 53 B3 B1 37 20 A7 20 33 30 33 30 30 00 2D 19 | S..7 . 30300.-.|
00001120: 20 76 8B 47 24 B2 22 44 22 A7 99 23 31 00 40 19 | v.G$."D"..#1.@.|
00001130: 25 76 8B 47 24 B2 22 42 22 A7 8D 33 30 30 3A 99 |%v.G$."B"..300:.|
00001140: 00 4B 19 2A 76 81 49 B2 31 A4 37 00 67 19 34 76 |.K.*v.I.1.7.g.4v|
00001150: 8B 20 47 24 B2 22 42 22 A7 99 46 24 28 49 29 3B |. G$."B"..F$(I);|
00001160: 44 24 28 59 2C 49 29 00 86 19 3E 76 8B 20 47 24 |D$(Y,I)...>v. G$|
00001170: B2 22 44 22 A7 99 23 31 2C 46 24 28 49 29 3B 44 |."D"..#1,F$(I);D|
00001180: 24 28 59 2C 49 29 00 8D 19 48 76 82 49 00 A2 19 |$(Y,I)...Hv.I...|
00001190: 4D 76 8B 20 47 24 B2 22 44 22 20 A7 20 33 30 33 |Mv. G$."D" . 303|
000011A0: 30 30 00 C2 19 52 76 99 3A 85 22 44 52 55 45 43 |00...Rv.:."DRUEC|
000011B0: 4B 45 4E 20 53 49 45 20 52 45 54 55 52 4E 22 3B |KEN SIE RETURN";|
000011C0: 58 24 00 C9 19 5C 76 82 59 00 D6 19 66 76 8D 33 |X$...\v.Y...fv.3|
000011D0: 30 30 3A 99 3A 99 00 E7 19 70 76 99 22 44 41 54 |00:.:....pv."DAT|
000011E0: 45 49 45 4E 44 45 22 00 05 1A 7A 76 85 22 44 52 |EIENDE"...zv."DR|
000011F0: 55 45 43 4B 45 4E 20 53 49 45 20 52 45 54 55 52 |UECKEN SIE RETUR|
00001200: 4E 22 3B 58 24 00 16 1A 84 76 8B 20 47 24 B2 22 |N";X$....v. G$."|
00001210: 44 22 A7 20 A0 31 00 21 1A 8E 76 89 20 31 30 30 |D". .1.!..v. 100|
00001220: 30 00 3C 1A B8 88 8F 20 3D 3D 3D 3D 3D 3D 3D 3D |0.<.... ========|
00001230: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 55 1A C2 |============.U..|
00001240: 88 8F 20 20 20 50 52 4F 47 52 41 4D 4D 20 42 45 |.. PROGRAMM BE|
00001250: 45 4E 44 45 4E 00 70 1A CC 88 8F 20 3D 3D 3D 3D |ENDEN.p.... ====|
00001260: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001270: 00 7C 1A D6 88 8D 33 30 30 20 3A 99 00 8E 1A E0 |.|....300 :.....|
00001280: 88 8B 20 5A B2 30 20 A7 20 33 35 31 35 30 00 B7 |.. Z.0 . 35150..|
00001290: 1A EA 88 99 22 53 49 4E 44 20 41 4C 4C 45 20 44 |...."SIND ALLE D|
000012A0: 41 54 45 4E 20 47 45 53 49 43 48 45 52 54 20 28 |ATEN GESICHERT (|
000012B0: 4A 2F 4E 29 20 22 3B 00 BF 1A F4 88 85 58 24 00 |J/N) ";......X$.|
000012C0: D1 1A FE 88 8B 58 24 B2 22 4E 22 A7 20 31 30 30 |.....X$."N". 100|
000012D0: 30 00 E4 1A 08 89 8B 58 24 B2 22 4A 22 A7 20 33 |0......X$."J". 3|
000012E0: 35 31 30 30 00 FA 1A 12 89 99 20 C7 28 31 34 35 |5100...... .(145|
000012F0: 29 3B 3A 89 20 33 35 30 35 30 00 04 1B 1C 89 8D |);:. 35050......|
00001300: 20 33 30 30 00 35 1B 26 89 99 22 44 41 53 20 50 | 300.5.&.."DAS P|
00001310: 52 4F 47 52 41 4D 4D 20 4B 41 4E 4E 20 4D 49 54 |ROGRAMM KANN MIT|
00001320: 20 27 47 4F 54 4F 20 31 30 30 30 27 20 57 49 45 | 'GOTO 1000' WIE|
00001330: 44 45 52 22 3B 00 63 1B 30 89 99 22 47 45 53 54 |DER";.c.0.."GEST|
00001340: 41 52 54 45 54 20 57 45 52 44 45 4E 2C 20 4F 48 |ARTET WERDEN, OH|
00001350: 4E 45 20 44 41 53 53 20 44 41 54 45 4E 20 56 45 |NE DASS DATEN VE|
00001360: 52 2D 22 00 77 1B 3A 89 99 22 4C 4F 52 45 4E 20 |R-".w.:.."LOREN |
00001370: 47 45 48 45 4E 21 22 00 7D 1B 44 89 99 00 83 1B |GEHEN!".}.D.....|
00001380: 4E 89 80 00 00 00 |N..... |
....... ADRESSENVERWALTUNG.8....53280,2:
.53281,2:.G(158).G....D$(200,7)._...F$(1
)."ANREDE ".W...F$(2)."VORNAME ".
.. .F$(3)."NAME "...!.F$(4)."STRAS
SE "...".F$(5)."PLZ/ORT ".W.#.F$(6
)."TELEFON "...$.F$(7)."BEMERKUNG ".
..C..1000...D.. ====================.).N
.. PROGRAMMKOPF.D.X.. ================
====.Q....G(147);.E....I.1.40:."=";:....
... " ADRESSENVERWALTUNG"... .
.I.1.40:."=";:.......:........H.H.. ====
================...R.. FEHLERMELDUNG..
.... ====================...... G(19);..
....X.1.24:.G(17);:..3....G(18);FE$;G(14
6);.F.... X.1 . 1000:..L.....G.,.. =====
===============...6.. KOEPFE PROGRAMMTEI
LE...@.. ====================...J.PT$(1)
." DATEI LADEN "...T.PT$(2)." DATEI
SPEICHERN "...^.PT$(3)."ADRESSEN EINGEBE
N"...H.PT$(4)."ADRESSEN AENDERN ".8.R.PT
$(5)."ADRESSEN LOESCHEN".W.|.PT$(6)."ADR
ESSEN AUSGEBEN".V...PT$(7)."PROGRAMM BEE
NDEN ".....100......" ";G(30);.
....."U.................I"......"
.";G(158);PT$(F);G(30);"."......"
J.................K";G(158)...B...(.
... ====================.@.... DATEN IM
RECHNER?.[.... ====================.J...
. Z.0. 560.....FE$."KEINE DATEN IM RECHN
ER!"...&.. 200...0........100.N....G(30)
;" U.....................I"......"
.";G(158);" PROGRAMMFUNKTIONEN:";G(30);
" ."......" J.....................K";
G(158).4.....A....G(144);" -1- ";G(1
58);"DATEI LADEN"......G(144);" -2-
";G(158);"DATEI SPEICHERN".E.$..G(144);"
-3- ";G(158);"ADRESSEN EINGEBEN"...
...G(144);" -4- ";G(158);"ADRESSEN A
ENDERN".*.8..G(144);" -5- ";G(158);"
ADRESSEN LOESCHEN".].B..G(144);" -6-
";G(158);"ADRESSEN AUSGEBEN"...L..G(144
);" -7- ";G(158);"PROGRAMM BEENDEN".
..Q..:....V..G(144);" AUSWAHL ";G(15
8);.C.[.. F...`..F.0 . F.7 . FE$."UNGUEL
TIGER WERT":.200:.1000.).J.. F . 5000,10
000,15000,20000,25000,30000,35000.D....
====================.Y.... DATEI LADE
N.T.... ====================.....300:..
....."BITTE DATENKASSETTE EINLEGEN UND Z
U-".......E.D.."RUECKSPULEN!".K.I.....N.
."DRUECKEN SIE DANACH RETURN";...X..X$..
.......... 1,1,0,"ADRESSEN"......1,Z.(..
.. Y.1.Z.4.... I.1.7.C....1,D$(Y,I).J...
.I.Q....Y.Y.(. 1.T.2.."DATEN SIND GELAD
EN!"...<.. X.1.2000:....F.. 1000....'. =
====================.E.$'. DATEI SPEI
CHERN....'. =====================...8'.3
00:....='.500:. Z.0 .1000.-.L'."BITTE DA
TENKASSETTE EINLEGEN UND ZU-".3.V'..G.`'
."RUECKSPULEN!".M.E'..P.J'."DRUECKEN SIE
DANACH RETURN ".X.O'.X$...T'. 1,1,1,"AD
RESSEN"...~'.1,Z....'. Y.1.Z....'. I.1.7
....'.1,D$(Y,I).F..'.I.M..'.Y.T..' 1....
'.:."DATEN SIND GESPEICHERT!"...D'. X.1.
2000:....N'.1000.*..:.==================
==.B..:. ADRESSEN EINGEBEN.\..:.========
============.E..:.300.O..:Z.Z.1.U.J:....
T:.I.1.7....:.F$(I);....:. D$(Z,I). ..:.
....:..M..;."DATEN RICHTIG EINGEGEBEN (J
/N)";....;X$."":. X$....;. X$."J".15160.
..$;. X$."N".Z.Z.1:.15000....;. G(145);:
.15110.=.8;."WEITERE EINGABEN (J/N)";.L.
B;X$."":. X$.A.L;. X$."J" . 15000.U.V;.
X$."N" . 1000...`;. G(145);:.15160... N.
====================...*N. ADRESSEN A
ENDERN.Y.4N. ====================...>NZZ
.1...HN.300...RN....\N. I.1.7...FN. I;F$
(I);D$(ZZ,I)...PN..1.ZN. X$:. X$."".2009
0.S..N.F(X$).133 . F(X$).136 .20090.H..N
. F(X$).136.1000....N. F(X$).133 . ZZ.Z
.ZZ.ZZ.1:.20040....N.F(X$).134 . ZZ.1 .Z
Z.ZZ.1:.20040.M..N. F(X$).135 . 20160.X.
.N.20090....N....JN."FELDNUMMER (1-7) ";
X...TN. X.1. X.7 ..G(145);:.20170....N..
>..N."NEUER INHALT: ";D$(ZZ,X).I..N.2004
0.D..A. ====================.}..A. ADRE
SSEN LOESCHEN....A. ====================
...FA. 300:. KOPF...PA..K.ZA.500:. DATEN
IM RECHNER.Z..A. Z.0.1000....A."VORNAME
: ";D1$....A."NAME : ";D2$....AX.1.2..
B. D$(X,2).D1$. D$(X,3).D2$ .25130.I..B.
X.Z.X.X.1:.25090.I..BFE$."NAME NICHT GE
FUNDEN!:".X. B.200:.1000...*B.300:..../B
.I.1.7...4B.F$(I);D$(X,I)...>B....CB..O.
HB."ADRESSE LOESCHEN (J/N) ";X$...RB. X$
."J" . 25200...\B. X$."N" . 1000...FB.G(
145);:.25160...PB. Y.X . Z.1.(.ZB. I.1.7
.>..BD$(Y,I).D$(Y.1,I).E..B.I.L..B.Y.V..
BZ.Z.1.`..B.1000.{.0U. =================
===...:U. ADRESSEN AUSGEBEN...DU."DATEI
ENDE"...NU.300:....XU.500.J.BU. Z.0 . 10
00...LU."DRUCKER ODER BILDSCHIRM (D/B) "
;G$...VU. G$.."B" . G$.."D". . G(145);:.
30060./.{U.G$."D"..1,4.:..U.300:..O..U.
"SUCHBEGRIFFE:".D..U."-------------".J..
U.....U.I.1.7:S$(I)."":.....U. I.1.7....
U. F$(I);...FU. S$(I)...PU....ZU. Y.1.Z.
...US.0.K..U. I.1.7....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:..K.*V.I.1.7.G.4V. G$."B"
..F$(I);D$(Y,I)...>V. G$."D"..#1,F$(I);D
$(Y,I)...HV.I...MV. G$."D" . 30300.B.RV.
:."DRUECKEN SIE RETURN";X$.I.\V.Y.V.FV.3
00:.:....PV."DATEIENDE"...ZV."DRUECKEN S
IE RETURN";X$....V. G$."D". 1.!..V. 100
0.<.... ====================.U.B.. PRO
GRAMM BEENDEN.P.L.. ====================
.|.V..300 :....... Z.0 . 35150......"SIN
D ALLE DATEN GESICHERT (J/N) ";......X$.
Q....X$."N". 1000......X$."J". 35100....
.. G(145);:. 35050...... 300.5.&.."DAS P
ROGRAMM KANN MIT 'GOTO 1000' WIEDER";.C.
0.."GESTARTET WERDEN, OHNE DASS DATEN VE
R-".W.:.."LOREN GEHEN!".}.D.....N.....
> CLICK IMAGE PREVIEW FOR FULL MODAL