@ADRESSENVERWALT
FILE INFORMATION
FILENAME(S): @ADRESSENVERWALT
FILE TYPE(S): PRG
FILE SIZE: 4.8K
FIRST SEEN: 2025-11-02 16:54:40
APPEARS ON: 1 disk(s)
FILE HASH
35ca96d3f8e4243a8ea7a0e7231a4c82dfcecc30952ed432e889de78764cf6c2
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DATEIVERWALTUNG | @ADRESSENVERWALT | PRG | Treasure Chest - Reamigation | 13 | 19 | 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: A5 0F B0 13 99 22 42 49 54 54 45 20 44 41 54 45 |....."BITTE DATE|
00000790: 4E 44 49 53 4B 45 54 54 45 20 45 49 4E 4C 45 47 |NDISKETTE EINLEG|
000007A0: 45 4E 20 21 22 00 AB 0F BA 13 99 00 B1 0F C9 13 |EN !"...........|
000007B0: 99 00 D4 0F CE 13 99 22 44 52 55 45 43 4B 45 4E |......."DRUECKEN|
000007C0: 20 53 49 45 20 44 41 4E 41 43 48 20 52 45 54 55 | SIE DANACH RETU|
000007D0: 52 4E 22 3B 00 DC 0F D8 13 85 58 24 00 E2 0F DD |RN";......X$....|
000007E0: 13 99 00 F9 0F E2 13 9F 20 31 2C 38 2C 30 2C 22 |........ 1,8,0,"|
000007F0: 41 44 52 45 53 53 45 4E 22 00 02 10 EC 13 84 31 |ADRESSEN"......1|
00000800: 2C 5A 00 0E 10 F6 13 81 20 59 B2 31 A4 5A 00 1A |,Z...... Y.1.Z..|
00000810: 10 00 14 81 20 49 B2 31 A4 37 00 29 10 0A 14 84 |.... I.1.7.)....|
00000820: 31 2C 44 24 28 59 2C 49 29 00 30 10 14 14 82 49 |1,D$(Y,I).0....I|
00000830: 00 37 10 1E 14 82 59 00 3F 10 28 14 A0 20 31 00 |.7....Y.?.(.. 1.|
00000840: 5A 10 32 14 99 22 44 41 54 45 4E 20 53 49 4E 44 |Z.2.."DATEN SIND|
00000850: 20 47 45 4C 41 44 45 4E 21 22 00 6B 10 3C 14 81 | GELADEN!".k.<..|
00000860: 20 58 B2 31 A4 32 30 30 30 3A 82 00 76 10 46 14 | X.1.2000:..v.F.|
00000870: 89 20 31 30 30 30 00 92 10 10 27 8F 20 3D 3D 3D |. 1000....'. ===|
00000880: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000890: 3D 3D 00 AB 10 24 27 8F 20 20 20 20 44 41 54 45 |==...$'. DATE|
000008A0: 49 20 53 50 45 49 43 48 45 52 4E 00 C7 10 2E 27 |I SPEICHERN....'|
000008B0: 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |. ==============|
000008C0: 3D 3D 3D 3D 3D 3D 3D 00 D2 10 38 27 8D 33 30 30 |=======...8'.300|
000008D0: 3A 99 00 E7 10 3D 27 8D 35 30 30 3A 8B 20 5A B2 |:....='.500:. Z.|
000008E0: 30 20 A7 31 30 30 30 00 13 11 4C 27 99 22 42 49 |0 .1000...L'."BI|
000008F0: 54 54 45 20 44 41 54 45 4E 4B 41 53 53 45 54 54 |TTE DATENKASSETT|
00000900: 45 20 45 49 4E 4C 45 47 45 4E 20 55 4E 44 20 5A |E EINLEGEN UND Z|
00000910: 55 2D 22 00 19 11 56 27 99 00 1F 11 65 27 99 00 |U-"...V'....e'..|
00000920: 48 11 6A 27 99 22 44 52 55 45 43 4B 45 4E 20 53 |H.j'."DRUECKEN S|
00000930: 49 45 20 44 41 4E 41 43 48 20 52 45 54 55 52 4E |IE DANACH RETURN|
00000940: 20 22 20 31 30 30 38 30 00 50 11 6F 27 85 58 24 | " 10080.P.o'.X$|
00000950: 00 67 11 74 27 9F 20 31 2C 38 2C 31 2C 22 41 44 |.g.t'. 1,8,1,"AD|
00000960: 52 45 53 53 45 4E 22 00 70 11 7E 27 98 31 2C 5A |RESSEN".p.~'.1,Z|
00000970: 00 7C 11 88 27 81 20 59 B2 31 A4 5A 00 88 11 92 |.|..'. Y.1.Z....|
00000980: 27 81 20 49 B2 31 A4 37 00 97 11 9C 27 98 31 2C |'. I.1.7....'.1,|
00000990: 44 24 28 59 2C 49 29 00 9E 11 A6 27 82 49 00 A5 |D$(Y,I)....'.I..|
000009A0: 11 B0 27 82 59 00 AC 11 B5 27 A0 31 00 CD 11 BA |..'.Y....'.1....|
000009B0: 27 99 3A 99 22 44 41 54 45 4E 20 53 49 4E 44 20 |'.:."DATEN SIND |
000009C0: 47 45 53 50 45 49 43 48 45 52 54 21 22 00 DE 11 |GESPEICHERT!"...|
000009D0: C4 27 81 20 58 B2 31 A4 32 30 30 30 3A 82 00 E8 |.'. X.1.2000:...|
000009E0: 11 CE 27 89 31 30 30 30 00 02 12 98 3A 8F 3D 3D |..'.1000....:.==|
000009F0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000A00: 3D 3D 00 1A 12 A2 3A 8F 20 41 44 52 45 53 53 45 |==....:. ADRESSE|
00000A10: 4E 20 45 49 4E 47 45 42 45 4E 00 34 12 AC 3A 8F |N EINGEBEN.4..:.|
00000A20: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000A30: 3D 3D 3D 3D 00 3D 12 B6 3A 8D 33 30 30 00 47 12 |====.=..:.300.G.|
00000A40: C0 3A 5A B2 5A AA 31 00 4D 12 CA 3A 99 00 58 12 |.:Z.Z.1.M..:..X.|
00000A50: D4 3A 81 49 B2 31 A4 37 00 64 12 DE 3A 99 46 24 |.:.I.1.7.d..:.F$|
00000A60: 28 49 29 3B 00 72 12 E8 3A 85 20 44 24 28 5A 2C |(I);.r..:. D$(Z,|
00000A70: 49 29 00 78 12 F2 3A 82 00 7E 12 FC 3A 99 00 A5 |I).x..:..~..:...|
00000A80: 12 06 3B 99 22 44 41 54 45 4E 20 52 49 43 48 54 |..;."DATEN RICHT|
00000A90: 49 47 20 45 49 4E 47 45 47 45 42 45 4E 20 28 4A |IG EINGEGEBEN (J|
00000AA0: 2F 4E 29 22 3B 00 B4 12 10 3B 58 24 B2 22 22 3A |/N)";....;X$."":|
00000AB0: 85 20 58 24 00 C7 12 1A 3B 8B 20 58 24 B2 22 4A |. X$....;. X$."J|
00000AC0: 22 A7 31 35 31 36 30 00 E1 12 24 3B 8B 20 58 24 |".15160...$;. X$|
00000AD0: B2 22 4E 22 A7 5A B2 5A AB 31 3A 89 31 35 30 30 |."N".Z.Z.1:.1500|
00000AE0: 30 00 F6 12 2E 3B 99 20 C7 28 31 34 35 29 3B 3A |0....;. .(145);:|
00000AF0: 89 31 35 31 31 30 00 15 13 38 3B 99 22 57 45 49 |.15110...8;."WEI|
00000B00: 54 45 52 45 20 45 49 4E 47 41 42 45 4E 20 28 4A |TERE EINGABEN (J|
00000B10: 2F 4E 29 22 3B 00 24 13 42 3B 58 24 B2 22 22 3A |/N)";.$.B;X$."":|
00000B20: 85 20 58 24 00 39 13 4C 3B 8B 20 58 24 B2 22 4A |. X$.9.L;. X$."J|
00000B30: 22 20 A7 20 31 35 30 30 30 00 4D 13 56 3B 8B 20 |" . 15000.M.V;. |
00000B40: 58 24 B2 22 4E 22 20 A7 20 31 30 30 30 00 62 13 |X$."N" . 1000.b.|
00000B50: 60 3B 99 20 C7 28 31 34 35 29 3B 3A 89 31 35 31 |`;. .(145);:.151|
00000B60: 36 30 00 7D 13 20 4E 8F 20 3D 3D 3D 3D 3D 3D 3D |60.}. N. =======|
00000B70: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 96 13 |=============...|
00000B80: 2A 4E 8F 20 20 20 41 44 52 45 53 53 45 4E 20 41 |*N. ADRESSEN A|
00000B90: 45 4E 44 45 52 4E 00 B1 13 34 4E 8F 20 3D 3D 3D |ENDERN...4N. ===|
00000BA0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000BB0: 3D 00 BA 13 3E 4E 5A 5A B2 31 00 C3 13 48 4E 8D |=...>NZZ.1...HN.|
00000BC0: 33 30 30 00 C9 13 52 4E 99 00 D5 13 5C 4E 81 20 |300...RN....\N. |
00000BD0: 49 B2 31 A4 37 00 EC 13 66 4E 99 20 49 3B 46 24 |I.1.7...fN. I;F$|
00000BE0: 28 49 29 3B 44 24 28 5A 5A 2C 49 29 00 F2 13 70 |(I);D$(ZZ,I)...p|
00000BF0: 4E 82 00 09 14 7A 4E A1 20 58 24 3A 8B 20 58 24 |N....zN. X$:. X$|
00000C00: B2 22 22 A7 32 30 30 39 30 00 2B 14 84 4E 8B C6 |."".20090.+..N..|
00000C10: 28 58 24 29 B3 31 33 33 20 B0 20 C6 28 58 24 29 |(X$).133 . .(X$)|
00000C20: B1 31 33 36 20 A7 32 30 30 39 30 00 40 14 8E 4E |.136 .20090.@..N|
00000C30: 8B 20 C6 28 58 24 29 B2 31 33 36 A7 31 30 30 30 |. .(X$).136.1000|
00000C40: 00 67 14 98 4E 8B 20 C6 28 58 24 29 B2 31 33 33 |.g..N. .(X$).133|
00000C50: 20 AF 20 5A 5A B3 5A 20 A7 5A 5A B2 5A 5A AA 31 | . ZZ.Z .ZZ.ZZ.1|
00000C60: 3A 89 32 30 30 34 30 00 8D 14 A2 4E 8B C6 28 58 |:.20040....N..(X|
00000C70: 24 29 B2 31 33 34 20 AF 20 5A 5A B1 31 20 A7 5A |$).134 . ZZ.1 .Z|
00000C80: 5A B2 5A 5A AB 31 3A 89 32 30 30 34 30 00 A5 14 |Z.ZZ.1:.20040...|
00000C90: AC 4E 8B 20 C6 28 58 24 29 B2 31 33 35 20 A7 20 |.N. .(X$).135 . |
00000CA0: 32 30 31 36 30 00 B0 14 B6 4E 89 32 30 30 39 30 |20160....N.20090|
00000CB0: 00 B6 14 C0 4E 99 00 D1 14 CA 4E 85 22 46 45 4C |....N.....N."FEL|
00000CC0: 44 4E 55 4D 4D 45 52 20 28 31 2D 37 29 20 22 3B |DNUMMER (1-7) ";|
00000CD0: 58 00 F1 14 D4 4E 8B 20 58 B3 31 B0 20 58 B1 37 |X....N. X.1. X.7|
00000CE0: 20 A7 99 C7 28 31 34 35 29 3B 3A 89 32 30 31 37 | ...(145);:.2017|
00000CF0: 30 00 F7 14 DE 4E 99 00 16 15 E8 4E 85 22 4E 45 |0....N.....N."NE|
00000D00: 55 45 52 20 49 4E 48 41 4C 54 3A 20 22 3B 44 24 |UER INHALT: ";D$|
00000D10: 28 5A 5A 2C 58 29 00 21 15 F2 4E 89 32 30 30 34 |(ZZ,X).!..N.2004|
00000D20: 30 00 3C 15 A8 61 8F 20 3D 3D 3D 3D 3D 3D 3D 3D |0.<..a. ========|
00000D30: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 55 15 B2 |============.U..|
00000D40: 61 8F 20 20 41 44 52 45 53 53 45 4E 20 4C 4F 45 |a. ADRESSEN LOE|
00000D50: 53 43 48 45 4E 00 70 15 BC 61 8F 20 3D 3D 3D 3D |SCHEN.p..a. ====|
00000D60: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000D70: 00 81 15 C6 61 8D 20 33 30 30 3A 8F 20 4B 4F 50 |....a. 300:. KOP|
00000D80: 46 00 87 15 D0 61 99 00 A3 15 DA 61 8D 35 30 30 |F....a.....a.500|
00000D90: 3A 8F 20 44 41 54 45 4E 20 49 4D 20 52 45 43 48 |:. DATEN IM RECH|
00000DA0: 4E 45 52 00 B2 15 DF 61 8B 20 5A B2 30 A7 31 30 |NER....a. Z.0.10|
00000DB0: 30 30 00 C7 15 E4 61 85 22 56 4F 52 4E 41 4D 45 |00....a."VORNAME|
00000DC0: 3A 20 22 3B 44 31 24 00 DC 15 EE 61 85 22 4E 41 |: ";D1$....a."NA|
00000DD0: 4D 45 20 20 20 3A 20 22 3B 44 32 24 00 E4 15 F8 |ME : ";D2$....|
00000DE0: 61 58 B2 31 00 0A 16 02 62 8B 20 44 24 28 58 2C |aX.1....b. D$(X,|
00000DF0: 32 29 B2 44 31 24 AF 20 44 24 28 58 2C 33 29 B2 |2).D1$. D$(X,3).|
00000E00: 44 32 24 20 A7 32 35 31 33 30 00 21 16 0C 62 8B |D2$ .25130.!..b.|
00000E10: 20 58 B3 5A A7 58 B2 58 AA 31 3A 89 32 35 30 39 | X.Z.X.X.1:.2509|
00000E20: 30 00 41 16 16 62 46 45 24 B2 22 4E 41 4D 45 20 |0.A..bFE$."NAME |
00000E30: 4E 49 43 48 54 20 47 45 46 55 4E 44 45 4E 21 3A |NICHT GEFUNDEN!:|
00000E40: 22 00 50 16 20 62 8D 32 30 30 3A 89 31 30 30 30 |".P. b.200:.1000|
00000E50: 00 5B 16 2A 62 8D 33 30 30 3A 99 00 66 16 2F 62 |.[.*b.300:..f./b|
00000E60: 81 49 B2 31 A4 37 00 79 16 34 62 99 46 24 28 49 |.I.1.7.y.4b.F$(I|
00000E70: 29 3B 44 24 28 58 2C 49 29 00 7F 16 3E 62 82 00 |);D$(X,I)...>b..|
00000E80: 85 16 43 62 99 00 A7 16 48 62 85 22 41 44 52 45 |..Cb....Hb."ADRE|
00000E90: 53 53 45 20 4C 4F 45 53 43 48 45 4E 20 28 4A 2F |SSE LOESCHEN (J/|
00000EA0: 4E 29 20 22 3B 58 24 00 BC 16 52 62 8B 20 58 24 |N) ";X$...Rb. X$|
00000EB0: B2 22 4A 22 20 A7 20 32 35 32 30 30 00 D0 16 5C |."J" . 25200...\|
00000EC0: 62 8B 20 58 24 B2 22 4E 22 20 A7 20 31 30 30 30 |b. X$."N" . 1000|
00000ED0: 00 E4 16 66 62 99 C7 28 31 34 35 29 3B 3A 89 32 |...fb..(145);:.2|
00000EE0: 35 31 36 30 00 F4 16 70 62 81 20 59 B2 58 20 A4 |5160...pb. Y.X .|
00000EF0: 20 5A AB 31 00 00 17 7A 62 81 20 49 B2 31 A4 37 | Z.1...zb. I.1.7|
00000F00: 00 16 17 84 62 44 24 28 59 2C 49 29 B2 44 24 28 |....bD$(Y,I).D$(|
00000F10: 59 AA 31 2C 49 29 00 1D 17 8E 62 82 49 00 24 17 |Y.1,I)....b.I.$.|
00000F20: 98 62 82 59 00 2E 17 A2 62 5A B2 5A AB 31 00 38 |.b.Y....bZ.Z.1.8|
00000F30: 17 AC 62 89 31 30 30 30 00 53 17 30 75 8F 20 3D |..b.1000.S.0u. =|
00000F40: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000F50: 3D 3D 3D 00 6C 17 3A 75 8F 20 20 41 44 52 45 53 |===.l.:u. ADRES|
00000F60: 53 45 4E 20 41 55 53 47 45 42 45 4E 00 7D 17 44 |SEN AUSGEBEN.}.D|
00000F70: 75 99 22 44 41 54 45 49 45 4E 44 45 22 00 88 17 |u."DATEIENDE"...|
00000F80: 4E 75 8D 33 30 30 3A 99 00 91 17 58 75 8D 35 30 |Nu.300:....Xu.50|
00000F90: 30 00 A2 17 62 75 8B 20 5A B2 30 20 A7 20 31 30 |0...bu. Z.0 . 10|
00000FA0: 30 30 00 CB 17 6C 75 85 22 44 52 55 43 4B 45 52 |00...lu."DRUCKER|
00000FB0: 20 4F 44 45 52 20 42 49 4C 44 53 43 48 49 52 4D | ODER BILDSCHIRM|
00000FC0: 20 28 44 2F 42 29 20 22 3B 47 24 00 F6 17 76 75 | (D/B) ";G$...vu|
00000FD0: 8B 20 47 24 B3 B1 22 42 22 20 AF 20 47 24 B3 B1 |. G$.."B" . G$..|
00000FE0: 22 44 22 A7 20 99 20 C7 28 31 34 35 29 3B 3A 89 |"D". . .(145);:.|
00000FF0: 20 33 30 30 36 30 00 07 18 7B 75 8B 47 24 B2 22 | 30060...{u.G$."|
00001000: 44 22 A7 9F 31 2C 34 00 12 18 80 75 8D 33 30 30 |D"..1,4....u.300|
00001010: 3A 99 00 27 18 8A 75 99 22 53 55 43 48 42 45 47 |:..'..u."SUCHBEG|
00001020: 52 49 46 46 45 3A 22 00 3C 18 94 75 99 22 2D 2D |RIFFE:".<..u."--|
00001030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 42 18 9E |-----------".B..|
00001040: 75 99 00 58 18 A8 75 81 49 B2 31 A4 37 3A 53 24 |u..X..u.I.1.7:S$|
00001050: 28 49 29 B2 22 22 3A 82 00 64 18 B2 75 81 20 49 |(I)."":..d..u. I|
00001060: B2 31 A4 37 00 71 18 BC 75 99 20 46 24 28 49 29 |.1.7.q..u. F$(I)|
00001070: 3B 00 7D 18 C6 75 85 20 53 24 28 49 29 00 83 18 |;.}..u. S$(I)...|
00001080: D0 75 82 00 8F 18 DA 75 81 20 59 B2 31 A4 5A 00 |.u.....u. Y.1.Z.|
00001090: 97 18 E4 75 53 B2 30 00 A3 18 EE 75 81 20 49 B2 |...uS.0....u. I.|
000010A0: 31 A4 37 00 BF 18 F8 75 8B 20 53 24 28 49 29 B2 |1.7....u. S$(I).|
000010B0: 22 22 A7 53 B2 53 AA 31 3A 89 33 30 32 32 30 00 |"".S.S.1:.30220.|
000010C0: DA 18 02 76 8B 20 44 24 28 59 2C 49 29 B2 53 24 |...v. D$(Y,I).S$|
000010D0: 28 49 29 A7 20 53 B2 53 AA 31 00 E2 18 0C 76 82 |(I). S.S.1....v.|
000010E0: 20 49 00 F5 18 16 76 8B 20 53 B3 B1 37 20 A7 20 | I....v. S..7 . |
000010F0: 33 30 33 30 30 00 05 19 20 76 8B 47 24 B2 22 44 |30300... v.G$."D|
00001100: 22 A7 99 23 31 00 18 19 25 76 8B 47 24 B2 22 42 |"..#1...%v.G$."B|
00001110: 22 A7 8D 33 30 30 3A 99 00 23 19 2A 76 81 49 B2 |"..300:..#.*v.I.|
00001120: 31 A4 37 00 3F 19 34 76 8B 20 47 24 B2 22 42 22 |1.7.?.4v. G$."B"|
00001130: A7 99 46 24 28 49 29 3B 44 24 28 59 2C 49 29 00 |..F$(I);D$(Y,I).|
00001140: 5E 19 3E 76 8B 20 47 24 B2 22 44 22 A7 99 23 31 |^.>v. G$."D"..#1|
00001150: 2C 46 24 28 49 29 3B 44 24 28 59 2C 49 29 00 65 |,F$(I);D$(Y,I).e|
00001160: 19 48 76 82 49 00 7A 19 4D 76 8B 20 47 24 B2 22 |.Hv.I.z.Mv. G$."|
00001170: 44 22 20 A7 20 33 30 33 30 30 00 9A 19 52 76 99 |D" . 30300...Rv.|
00001180: 3A 85 22 44 52 55 45 43 4B 45 4E 20 53 49 45 20 |:."DRUECKEN SIE |
00001190: 52 45 54 55 52 4E 22 3B 58 24 00 A1 19 5C 76 82 |RETURN";X$...\v.|
000011A0: 59 00 AE 19 66 76 8D 33 30 30 3A 99 3A 99 00 BF |Y...fv.300:.:...|
000011B0: 19 70 76 99 22 44 41 54 45 49 45 4E 44 45 22 00 |.pv."DATEIENDE".|
000011C0: DD 19 7A 76 85 22 44 52 55 45 43 4B 45 4E 20 53 |..zv."DRUECKEN S|
000011D0: 49 45 20 52 45 54 55 52 4E 22 3B 58 24 00 EE 19 |IE RETURN";X$...|
000011E0: 84 76 8B 20 47 24 B2 22 44 22 A7 20 A0 31 00 F9 |.v. G$."D". .1..|
000011F0: 19 8E 76 89 20 31 30 30 30 00 14 1A B8 88 8F 20 |..v. 1000...... |
00001200: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001210: 3D 3D 3D 3D 00 2D 1A C2 88 8F 20 20 20 50 52 4F |====.-.... PRO|
00001220: 47 52 41 4D 4D 20 42 45 45 4E 44 45 4E 00 48 1A |GRAMM BEENDEN.H.|
00001230: CC 88 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |... ============|
00001240: 3D 3D 3D 3D 3D 3D 3D 3D 00 54 1A D6 88 8D 33 30 |========.T....30|
00001250: 30 20 3A 99 00 66 1A E0 88 8B 20 5A B2 30 20 A7 |0 :..f.... Z.0 .|
00001260: 20 33 35 31 35 30 00 8F 1A EA 88 99 22 53 49 4E | 35150......"SIN|
00001270: 44 20 41 4C 4C 45 20 44 41 54 45 4E 20 47 45 53 |D ALLE DATEN GES|
00001280: 49 43 48 45 52 54 20 28 4A 2F 4E 29 20 22 3B 00 |ICHERT (J/N) ";.|
00001290: 97 1A F4 88 85 58 24 00 A9 1A FE 88 8B 58 24 B2 |.....X$......X$.|
000012A0: 22 4E 22 A7 20 31 30 30 30 00 BC 1A 08 89 8B 58 |"N". 1000......X|
000012B0: 24 B2 22 4A 22 A7 20 33 35 31 30 30 00 D2 1A 12 |$."J". 35100....|
000012C0: 89 99 20 C7 28 31 34 35 29 3B 3A 89 20 33 35 30 |.. .(145);:. 350|
000012D0: 35 30 00 DC 1A 1C 89 8D 20 33 30 30 00 0D 1B 26 |50...... 300...&|
000012E0: 89 99 22 44 41 53 20 50 52 4F 47 52 41 4D 4D 20 |.."DAS PROGRAMM |
000012F0: 4B 41 4E 4E 20 4D 49 54 20 27 47 4F 54 4F 20 31 |KANN MIT 'GOTO 1|
00001300: 30 30 30 27 20 57 49 45 44 45 52 22 3B 00 3B 1B |000' WIEDER";.;.|
00001310: 30 89 99 22 47 45 53 54 41 52 54 45 54 20 57 45 |0.."GESTARTET WE|
00001320: 52 44 45 4E 2C 20 4F 48 4E 45 20 44 41 53 53 20 |RDEN, OHNE DASS |
00001330: 44 41 54 45 4E 20 56 45 52 2D 22 00 4F 1B 3A 89 |DATEN VER-".O.:.|
00001340: 99 22 4C 4F 52 45 4E 20 47 45 48 45 4E 21 22 00 |."LOREN GEHEN!".|
00001350: 55 1B 44 89 99 00 5B 1B 4E 89 80 00 00 00 |U.D...[.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 DATENDISKETTE EINLEGEN !"...
......I...T.N.."DRUECKEN SIE DANACH RETU
RN";...X..X$............ 1,8,0,"ADRESSEN
"......1,Z...... Y.1.Z...... I.1.7.)....
1,D$(Y,I).0....I.7....Y.?.(. 1.Z.2.."DA
TEN SIND GELADEN!".K.<.. X.1.2000:..V.F.
. 1000....'. =====================...$'.
DATEI SPEICHERN.G..'. ==============
=======.R.8'.300:....='.500:. Z.0 .1000.
..L'."BITTE DATENKASSETTE EINLEGEN UND Z
U-"...V'....E'..H.J'."DRUECKEN SIE DANAC
H RETURN " 10080.P.O'.X$.G.T'. 1,8,1,"AD
RESSEN".P.~'.1,Z.|..'. Y.1.Z....'. I.1.7
....'.1,D$(Y,I)....'.I....'.Y....' 1.M..
'.:."DATEN SIND GESPEICHERT!"...D'. X.1.
2000:....N'.1000....:.==================
==....:. ADRESSEN EINGEBEN.4..:.========
============.=..:.300.G..:Z.Z.1.M.J:..X.
T:.I.1.7.D..:.F$(I);.R..:. D$(Z,I).X..:.
.~..:.....;."DATEN RICHTIG EINGEGEBEN (J
/N)";....;X$."":. X$.G..;. X$."J".15160.
..$;. X$."N".Z.Z.1:.15000....;. G(145);:
.15110...8;."WEITERE EINGABEN (J/N)";.$.
B;X$."":. X$.9.L;. X$."J" . 15000.M.V;.
X$."N" . 1000.B.`;. G(145);:.15160.}. N.
====================...*N. ADRESSEN A
ENDERN...4N. ====================...>NZZ
.1.C.HN.300.I.RN..U.\N. I.1.7...FN. I;F$
(I);D$(ZZ,I)...PN....ZN. X$:. X$."".2009
0.+..N.F(X$).133 . F(X$).136 .20090.@..N
. F(X$).136.1000.G..N. F(X$).133 . ZZ.Z
.ZZ.ZZ.1:.20040....N.F(X$).134 . ZZ.1 .Z
Z.ZZ.1:.20040....N. F(X$).135 . 20160...
.N.20090....N..Q.JN."FELDNUMMER (1-7) ";
X...TN. X.1. X.7 ..G(145);:.20170....N..
...N."NEUER INHALT: ";D$(ZZ,X).!..N.2004
0.<..A. ====================.U..A. ADRE
SSEN LOESCHEN.P..A. ====================
...FA. 300:. KOPF...PA....ZA.500:. DATEN
IM RECHNER....A. Z.0.1000.G..A."VORNAME
: ";D1$....A."NAME : ";D2$....AX.1....
B. D$(X,2).D1$. D$(X,3).D2$ .25130.!..B.
X.Z.X.X.1:.25090.A..BFE$."NAME NICHT GE
FUNDEN!:".P. B.200:.1000.[.*B.300:..F./B
.I.1.7.Y.4B.F$(I);D$(X,I)..>B....CB....
HB."ADRESSE LOESCHEN (J/N) ";X$...RB. X$
."J" . 25200.P.\B. X$."N" . 1000...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.8..B.1000.S.0U. =================
===.L.:U. ADRESSEN AUSGEBEN.}.DU."DATEI
ENDE"...NU.300:....XU.500...BU. Z.0 . 10
00.K.LU."DRUCKER ODER BILDSCHIRM (D/B) "
;G$...VU. G$.."B" . G$.."D". . G(145);:.
30060...{U.G$."D"..1,4....U.300:..'..U.
"SUCHBEGRIFFE:".<..U."-------------".B..
U..X..U.I.1.7:S$(I)."":..D..U. I.1.7.Q..
U. F$(I);.}.FU. S$(I)...PU....ZU. Y.1.Z.
...US.0....U. I.1.7....U. S$(I)."".S.S.1
:.30220.Z..V. D$(Y,I).S$(I). S.S.1....V.
I....V. S..7 . 30300... V.G$."D"..#1...
%V.G$."B"..300:..#.*V.I.1.7.?.4V. G$."B"
..F$(I);D$(Y,I).^.>V. G$."D"..#1,F$(I);D
$(Y,I).E.HV.I.Z.MV. G$."D" . 30300...RV.
:."DRUECKEN SIE RETURN";X$...\V.Y...FV.3
00:.:....PV."DATEIENDE"...ZV."DRUECKEN S
IE RETURN";X$....V. G$."D". 1....V. 100
0...... ====================.-.B.. PRO
GRAMM BEENDEN.H.L.. ====================
.T.V..300 :..F.... Z.0 . 35150......"SIN
D ALLE DATEN GESICHERT (J/N) ";......X$.
.....X$."N". 1000......X$."J". 35100.R..
.. G(145);:. 35050...... 300...&.."DAS P
ROGRAMM KANN MIT 'GOTO 1000' WIEDER";.;.
0.."GESTARTET WERDEN, OHNE DASS DATEN VE
R-".O.:.."LOREN GEHEN!".U.D...[.N.....
> CLICK IMAGE PREVIEW FOR FULL MODAL