S
FILE INFORMATION
FILENAME(S): S
FILE TYPE(S): PRG
FILE SIZE: 4.9K
FIRST SEEN: 2025-11-02 22:12:06
APPEARS ON: 1 disk(s)
FILE HASH
2ba1b9700c3df5783872e83bae2fe62c06b13b6fdf458062d8f66de1868d0b4c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SVEN | S | PRG | Treasure Chest - ToGuMi | 31 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 0A 00 97 35 33 32 38 2C 32 3A 97 35 |.......5328,2:.5|
00000010: 33 32 38 31 2C 32 3A 99 C7 28 31 35 30 29 00 2D |3281,2:..(150).-|
00000020: 08 14 00 86 44 24 28 32 30 30 2C 37 29 00 49 08 |....D$(200,7).I.|
00000030: 1E 00 46 24 28 31 29 B2 22 41 4E 52 45 44 45 20 |..F$(1)."ANREDE |
00000040: 20 20 20 20 20 20 20 20 22 00 65 08 1F 00 46 24 | ".e...F$|
00000050: 28 32 29 B2 22 56 4F 52 4E 41 4D 45 20 20 20 20 |(2)."VORNAME |
00000060: 20 20 20 20 22 00 81 08 20 00 46 24 28 33 29 B2 | "... .F$(3).|
00000070: 22 4E 41 4D 45 20 20 20 20 20 20 20 20 20 20 20 |"NAME |
00000080: 22 00 9D 08 21 00 46 24 28 34 29 B2 22 53 54 52 |"...!.F$(4)."STR|
00000090: 41 53 53 45 20 20 20 20 20 20 20 20 22 00 B9 08 |ASSE "...|
000000A0: 22 00 46 24 28 35 29 B2 22 50 4C 5A 2F 4F 52 54 |".F$(5)."PLZ/ORT|
000000B0: 20 20 20 20 20 20 20 20 22 00 D5 08 23 00 46 24 | "...#.F$|
000000C0: 28 36 29 B2 22 54 45 4C 45 46 4F 4E 20 20 20 20 |(6)."TELEFON |
000000D0: 20 20 20 20 22 00 F1 08 24 00 46 24 28 37 29 B2 | "...$.F$(7).|
000000E0: 22 42 45 4D 45 52 4B 55 4E 47 20 20 20 20 20 20 |"BEMERKUNG |
000000F0: 22 00 FB 08 63 00 89 31 30 30 30 00 19 09 64 00 |"...c..1000...d.|
00000100: 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |. ==============|
00000110: 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 2E 09 6E 00 8F 20 |=========...n.. |
00000120: 20 20 50 52 4F 47 52 41 4D 4D 4B 4F 50 46 00 4C | PROGRAMMKOPF.L|
00000130: 09 78 00 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.x.. ===========|
00000140: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 5A 09 82 |============.Z..|
00000150: 00 99 20 C7 28 31 34 37 29 3B 00 6E 09 8C 00 81 |.. .(147);.n....|
00000160: 49 B2 31 A4 34 30 3A 99 22 3D 22 3B 3A 82 00 90 |I.1.40:."=";:...|
00000170: 09 96 00 99 20 22 20 20 20 20 20 20 20 41 44 52 |.... " ADR|
00000180: 45 53 53 45 4E 56 45 52 57 41 4C 54 55 4E 47 22 |ESSENVERWALTUNG"|
00000190: 00 A4 09 A0 00 81 49 B2 31 A4 34 30 3A 99 22 3D |......I.1.40:."=|
000001A0: 22 3B 3A 82 00 AC 09 AA 00 99 3A 99 00 B2 09 B4 |";:.......:.....|
000001B0: 00 8E 00 D0 09 C8 00 8F 20 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: 00 E6 09 D2 00 8F 20 20 20 46 45 48 4C 45 52 4D |...... FEHLERM|
000001E0: 45 4C 44 55 4E 47 00 04 0A DC 00 8F 20 3D 3D 3D |ELDUNG...... ===|
000001F0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000200: 3D 3D 3D 3D 00 11 0A E6 00 99 20 C7 28 31 39 29 |====...... .(19)|
00000210: 3B 00 27 0A F0 00 81 58 B2 31 A4 32 34 3A 99 C7 |;.'....X.1.24:..|
00000220: 28 31 37 29 3B 3A 82 00 3E 0A FA 00 99 C7 28 31 |(17);:..>.....(1|
00000230: 38 29 3B 46 45 24 3B C7 28 31 34 36 29 3B 00 51 |8);FE$;.(146);.Q|
00000240: 0A 04 01 81 20 58 B2 31 20 A4 20 31 30 30 30 3A |.... X.1 . 1000:|
00000250: 82 00 57 0A 0E 01 8E 00 74 0A 2C 01 8F 20 3D 3D |..W.....t.,.. ==|
00000260: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000270: 3D 3D 3D 3D 00 90 0A 36 01 8F 20 20 4B 4F 45 50 |====...6.. KOEP|
00000280: 46 45 20 50 52 4F 47 52 41 4D 4D 54 45 49 4C 45 |FE PROGRAMMTEILE|
00000290: 00 AD 0A 40 01 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D |...@.. =========|
000002A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 CC 0A |=============...|
000002B0: 4A 01 50 54 24 28 31 29 B2 22 20 20 20 20 44 41 |J.PT$(1)." DA|
000002C0: 54 45 49 20 4C 41 44 45 4E 20 20 22 00 EB 0A 54 |TEI LADEN "...T|
000002D0: 01 50 54 24 28 32 29 B2 22 20 44 41 54 45 49 20 |.PT$(2)." DATEI |
000002E0: 53 50 45 49 43 48 45 52 4E 20 22 00 0A 0B 5E 01 |SPEICHERN "...^.|
000002F0: 50 54 24 28 33 29 B2 22 41 44 52 45 53 53 45 4E |PT$(3)."ADRESSEN|
00000300: 20 45 49 4E 47 45 42 45 4E 22 00 29 0B 68 01 50 | EINGEBEN".).h.P|
00000310: 54 24 28 34 29 B2 22 41 44 52 45 53 53 45 4E 20 |T$(4)."ADRESSEN |
00000320: 41 45 4E 44 45 52 4E 20 22 00 48 0B 72 01 50 54 |AENDERN ".H.r.PT|
00000330: 24 28 35 29 B2 22 41 44 52 45 53 53 45 4E 20 4C |$(5)."ADRESSEN L|
00000340: 4F 45 53 43 48 45 4E 22 00 67 0B 7C 01 50 54 24 |OESCHEN".g.|.PT$|
00000350: 28 36 29 B2 22 41 44 52 45 53 53 45 4E 20 41 55 |(6)."ADRESSEN AU|
00000360: 53 47 45 42 45 4E 22 00 86 0B 86 01 50 54 24 28 |SGEBEN".....PT$(|
00000370: 37 29 B2 22 50 52 4F 47 52 41 4D 4D 20 42 45 45 |7)."PROGRAMM BEE|
00000380: 4E 44 45 4E 20 22 00 8F 0B 90 01 8D 31 30 30 00 |NDEN "......100.|
00000390: A7 0B 9A 01 99 22 20 20 20 20 20 20 20 20 20 22 |....." "|
000003A0: 3B C7 28 33 30 29 3B 00 C3 0B A4 01 99 22 20 D5 |;.(30);......" .|
000003B0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000003C0: C3 C9 22 00 EE 0B AE 01 99 22 20 20 20 20 20 20 |.."......" |
000003D0: 20 20 20 20 49 22 3B C7 28 31 35 38 29 3B 50 54 | I";.(158);PT|
000003E0: 24 28 46 29 3B C7 28 33 30 29 3B 22 49 22 00 1B |$(F);.(30);"I"..|
000003F0: 0C B8 01 99 22 20 20 20 20 20 20 20 20 20 20 CA |...." .|
00000400: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000410: C3 CB 20 22 3B C7 28 31 35 38 29 00 21 0C C2 01 |.. ";.(158).!...|
00000420: 8E 00 3C 0C F4 01 8F 20 3D 3D 3D 3D 3D 3D 3D 3D |..<.... ========|
00000430: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 56 0C FE |============.V..|
00000440: 01 8F 20 20 20 44 41 54 45 4E 20 49 4D 20 52 45 |.. DATEN IM RE|
00000450: 43 48 4E 45 52 3F 00 71 0C 08 02 8F 20 3D 3D 3D |CHNER?.q.... ===|
00000460: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000470: 3D 00 80 0C 12 02 8B 20 5A B1 30 A7 20 35 36 30 |=...... Z.0. 560|
00000480: 00 A2 0C 1C 02 46 45 24 B2 22 4B 45 49 4E 45 20 |.....FE$."KEINE |
00000490: 44 41 54 45 4E 20 49 4D 20 52 45 43 48 4E 45 52 |DATEN IM RECHNER|
000004A0: 21 22 00 AC 0C 26 02 8D 20 32 30 30 00 B2 0C 30 |!"...&.. 200...0|
000004B0: 02 8E 00 BB 0C E8 03 8D 31 30 30 00 E2 0C ED 03 |........100.....|
000004C0: 99 C7 28 33 30 29 3B 22 20 20 20 20 D5 C3 C3 C3 |..(30);" ....|
000004D0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000004E0: C9 22 00 16 0D F2 03 99 22 20 20 20 20 49 22 3B |."......" I";|
000004F0: C7 28 31 35 38 29 3B 22 50 52 4F 47 52 41 4D 4D |.(158);"PROGRAMM|
00000500: 46 55 4E 4B 54 49 4F 4E 45 4E 3A 22 3B C7 28 33 |FUNKTIONEN:";.(3|
00000510: 30 29 3B 22 49 22 00 43 0D F7 03 99 22 20 20 20 |0);"I".C...." |
00000520: 20 CA C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 | ...............|
00000530: C3 C3 C3 C3 C3 CB 20 20 20 20 20 22 3B C7 28 31 |...... ";.(1|
00000540: 35 38 29 00 49 0D 06 04 99 00 76 0D 10 04 99 C7 |58).I.....v.....|
00000550: 28 31 34 34 29 3B 22 20 20 20 20 20 2D 31 2D 20 |(144);" -1- |
00000560: 22 3B C7 28 31 35 38 29 3B 22 44 41 54 45 49 20 |";.(158);"DATEI |
00000570: 4C 41 44 45 4E 22 00 A7 0D 1A 04 99 C7 28 31 34 |LADEN".......(14|
00000580: 34 29 3B 22 20 20 20 20 20 2D 32 2D 20 22 3B C7 |4);" -2- ";.|
00000590: 28 31 35 38 29 3B 22 44 41 54 45 49 20 53 50 45 |(158);"DATEI SPE|
000005A0: 49 43 48 45 52 4E 22 00 D9 0D 24 04 99 C7 28 31 |ICHERN"...$...(1|
000005B0: 34 34 29 3B 22 20 20 20 20 20 2D 33 2D 20 22 3B |44);" -3- ";|
000005C0: C7 28 31 35 38 29 3B 22 41 44 52 45 53 53 45 20 |.(158);"ADRESSE |
000005D0: 45 49 4E 47 45 42 45 4E 22 00 0B 0E 2E 04 99 C7 |EINGEBEN".......|
000005E0: 28 31 34 34 29 3B 22 20 20 20 20 20 2D 34 2D 20 |(144);" -4- |
000005F0: 22 3B C7 28 31 35 38 29 3B 22 41 44 52 45 53 53 |";.(158);"ADRESS|
00000600: 45 4E 20 41 45 4E 44 45 52 4E 22 00 3E 0E 38 04 |EN AENDERN".>.8.|
00000610: 99 C7 28 31 34 34 29 3B 22 20 20 20 20 20 2D 35 |..(144);" -5|
00000620: 2D 20 22 3B C7 28 31 35 38 29 3B 22 41 44 52 45 |- ";.(158);"ADRE|
00000630: 53 53 45 4E 20 4C 4F 45 53 43 48 45 4E 22 00 71 |SSEN LOESCHEN".q|
00000640: 0E 42 04 99 C7 28 31 34 34 29 3B 22 20 20 20 20 |.B...(144);" |
00000650: 20 2D 36 2D 20 22 3B C7 28 31 35 38 29 3B 22 41 | -6- ";.(158);"A|
00000660: 44 52 45 53 53 45 4E 20 41 55 53 47 45 42 45 4E |DRESSEN AUSGEBEN|
00000670: 22 00 A3 0E 4C 04 99 C7 28 31 34 34 29 3B 22 20 |"...L...(144);" |
00000680: 20 20 20 20 2D 37 2D 20 22 3B C7 28 31 35 38 29 | -7- ";.(158)|
00000690: 3B 22 50 52 4F 47 52 41 4D 4D 20 42 45 45 4E 44 |;"PROGRAMM BEEND|
000006A0: 45 4E 22 00 AB 0E 51 04 99 3A 99 00 CF 0E 56 04 |EN"...Q..:....V.|
000006B0: 99 C7 28 31 34 34 29 3B 22 20 20 20 20 20 41 55 |..(144);" AU|
000006C0: 53 57 41 48 4C 20 22 3B C7 28 31 35 38 29 3B 00 |SWAHL ";.(158);.|
000006D0: D7 0E 5B 04 85 20 46 00 0A 0F 60 04 8B 46 B2 30 |..[.. F...`..F.0|
000006E0: 20 B0 20 46 B1 37 20 A7 20 46 45 24 B2 22 55 4E | . F.7 . FE$."UN|
000006F0: 47 55 45 4C 54 49 47 45 52 20 57 45 52 54 22 3A |GUELTIGER WERT":|
00000700: 8D 32 30 30 3A 89 31 30 30 30 00 3D 0F 6A 04 91 |.200:.1000.=.j..|
00000710: 20 46 20 89 20 35 30 30 30 2C 31 30 30 30 30 2C | F . 5000,10000,|
00000720: 31 35 30 30 30 2C 32 30 30 30 30 2C 32 35 30 30 |15000,20000,2500|
00000730: 30 2C 33 30 30 30 30 2C 33 35 30 30 30 00 58 0F |0,30000,35000.X.|
00000740: 88 13 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |... ============|
00000750: 3D 3D 3D 3D 3D 3D 3D 3D 00 6D 0F 92 13 8F 20 20 |========.m.... |
00000760: 20 20 44 41 54 45 49 20 4C 41 44 45 4E 00 88 0F | DATEI LADEN...|
00000770: 9C 13 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |... ============|
00000780: 3D 3D 3D 3D 3D 3D 3D 3D 00 93 0F A6 13 8D 33 30 |========......30|
00000790: 30 3A 99 00 BF 0F B0 13 99 22 42 49 54 54 45 20 |0:......."BITTE |
000007A0: 44 41 54 45 4E 4B 41 53 53 45 54 54 45 20 45 49 |DATENKASSETTE EI|
000007B0: 4E 4C 45 47 45 4E 20 55 4E 44 20 5A 55 2D 22 00 |NLEGEN UND ZU-".|
000007C0: C5 0F BA 13 99 00 D9 0F C4 13 99 22 52 55 45 43 |..........."RUEC|
000007D0: 4B 53 50 55 4C 45 4E 21 22 00 DF 0F C9 13 99 00 |KSPULEN!".......|
000007E0: 03 10 CE 13 99 22 44 52 55 45 43 4B 45 4E 20 53 |....."DRUECKEN S|
000007F0: 49 45 20 44 41 4E 41 43 48 20 52 45 54 55 52 4E |IE DANACH RETURN|
00000800: 20 22 3B 00 0B 10 D8 13 85 58 24 00 11 10 DD 13 | ";......X$.....|
00000810: 99 00 28 10 E2 13 9F 20 31 2C 31 2C 30 2C 22 41 |..(.... 1,1,0,"A|
00000820: 44 52 45 53 53 45 4E 22 00 31 10 EC 13 84 31 2C |DRESSEN".1....1,|
00000830: 5A 00 3D 10 F6 13 81 20 59 B2 31 A4 5A 00 49 10 |Z.=.... Y.1.Z.I.|
00000840: 00 14 81 20 49 B2 31 A4 37 00 58 10 0A 14 84 31 |... I.1.7.X....1|
00000850: 2C 44 24 28 59 2C 49 29 00 5F 10 14 14 82 49 00 |,D$(Y,I)._....I.|
00000860: 66 10 1E 14 82 59 00 6E 10 28 14 A0 20 31 00 89 |f....Y.n.(.. 1..|
00000870: 10 32 14 99 22 44 41 54 45 4E 20 53 49 4E 44 20 |.2.."DATEN SIND |
00000880: 47 45 4C 41 44 45 4E 21 22 00 9A 10 3C 14 81 20 |GELADEN!"...<.. |
00000890: 58 B2 31 A4 32 30 30 30 3A 82 00 A5 10 46 14 89 |X.1.2000:....F..|
000008A0: 20 31 30 30 30 00 C0 10 10 27 8F 20 3D 3D 3D 3D | 1000....'. ====|
000008B0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000008C0: 00 D9 10 24 27 8F 20 20 20 20 44 41 54 45 49 20 |...$'. DATEI |
000008D0: 53 50 45 49 43 48 45 52 4E 00 F4 10 2E 27 8F 20 |SPEICHERN....'. |
000008E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000008F0: 3D 3D 3D 3D 00 FF 10 38 27 8D 33 30 30 3A 99 00 |====...8'.300:..|
00000900: 14 11 3D 27 8D 35 30 30 3A 8B 20 5A B2 30 20 A7 |..='.500:. Z.0 .|
00000910: 31 30 30 30 00 40 11 4C 27 99 22 42 49 54 54 45 |1000.@.L'."BITTE|
00000920: 20 44 41 54 45 4E 4B 41 53 53 45 54 54 45 20 45 | DATENKASSETTE E|
00000930: 49 4E 4C 45 47 45 4E 20 55 4E 44 20 5A 55 2D 22 |INLEGEN UND ZU-"|
00000940: 00 46 11 56 27 99 00 5A 11 60 27 99 22 52 55 45 |.F.V'..Z.`'."RUE|
00000950: 43 4B 53 50 55 4C 45 4E 21 22 00 60 11 65 27 99 |CKSPULEN!".`.e'.|
00000960: 00 83 11 6A 27 99 22 44 52 55 45 43 4B 45 4E 20 |...j'."DRUECKEN |
00000970: 53 49 45 20 44 41 4E 41 43 48 20 52 45 54 55 52 |SIE DANACH RETUR|
00000980: 4E 22 3B 00 8B 11 6F 27 85 58 24 00 A2 11 74 27 |N";...o'.X$...t'|
00000990: 9F 20 31 2C 31 2C 31 2C 22 41 44 52 45 53 53 45 |. 1,1,1,"ADRESSE|
000009A0: 4E 22 00 AB 11 7E 27 98 31 2C 5A 00 B7 11 88 27 |N"...~'.1,Z....'|
000009B0: 81 20 59 B2 31 A4 5A 00 C3 11 92 27 81 20 49 B2 |. Y.1.Z....'. I.|
000009C0: 31 A4 37 00 D2 11 9C 27 98 31 2C 44 24 28 59 2C |1.7....'.1,D$(Y,|
000009D0: 49 29 00 D9 11 A6 27 82 49 00 E0 11 B0 27 82 59 |I)....'.I....'.Y|
000009E0: 00 E7 11 B5 27 A0 31 00 08 12 BA 27 99 3A 99 22 |....'.1....'.:."|
000009F0: 44 41 54 45 4E 20 53 49 4E 44 20 47 45 53 50 45 |DATEN SIND GESPE|
00000A00: 49 43 48 45 52 54 21 22 00 19 12 C4 27 81 20 58 |ICHERT!"....'. X|
00000A10: B2 31 A4 32 30 30 30 3A 82 00 23 12 CE 27 89 31 |.1.2000:..#..'.1|
00000A20: 30 30 30 00 3E 12 98 3A 8F 20 3D 3D 3D 3D 3D 3D |000.>..:. ======|
00000A30: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 57 |==============.W|
00000A40: 12 A2 3A 8F 20 20 41 44 52 45 53 53 45 4E 20 45 |..:. ADRESSEN E|
00000A50: 49 4E 47 45 42 45 4E 00 72 12 AC 3A 8F 20 3D 3D |INGEBEN.r..:. ==|
00000A60: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000A70: 3D 3D 00 7B 12 B6 3A 8D 33 30 30 00 85 12 C0 3A |==.{..:.300....:|
00000A80: 5A B2 5A AA 31 00 8B 12 CA 3A 99 00 96 12 D4 3A |Z.Z.1....:.....:|
00000A90: 81 49 B2 31 A4 37 00 A2 12 DE 3A 99 46 24 28 49 |.I.1.7....:.F$(I|
00000AA0: 29 3B 00 B0 12 E8 3A 85 20 44 24 28 5A 2C 49 29 |);....:. D$(Z,I)|
00000AB0: 00 B6 12 F2 3A 82 00 BC 12 FC 3A 99 00 E3 12 06 |....:.....:.....|
00000AC0: 3B 99 22 44 41 54 45 4E 20 52 49 43 48 54 49 47 |;."DATEN RICHTIG|
00000AD0: 20 45 49 4E 47 45 47 45 42 45 4E 20 28 4A 2F 4E | EINGEGEBEN (J/N|
00000AE0: 29 22 3B 00 F2 12 10 3B 58 24 B2 22 22 3A 85 20 |)";....;X$."":. |
00000AF0: 58 24 00 05 13 1A 3B 8B 20 58 24 B2 22 4A 22 A7 |X$....;. X$."J".|
00000B00: 31 35 31 36 30 00 1F 13 24 3B 8B 20 58 24 B2 22 |15160...$;. X$."|
00000B10: 4E 22 A7 5A B2 5A AB 31 3A 89 31 35 30 30 30 00 |N".Z.Z.1:.15000.|
00000B20: 34 13 2E 3B 99 20 C7 28 31 34 35 29 3B 3A 89 31 |4..;. .(145);:.1|
00000B30: 35 31 31 30 00 53 13 38 3B 99 22 57 45 49 54 45 |5110.S.8;."WEITE|
00000B40: 52 45 20 45 49 4E 47 41 42 45 4E 20 28 4A 2F 4E |RE EINGABEN (J/N|
00000B50: 29 22 3B 00 62 13 42 3B 58 24 B2 22 22 3A 85 20 |)";.b.B;X$."":. |
00000B60: 58 24 00 77 13 4C 3B 8B 20 58 24 B2 22 4A 22 20 |X$.w.L;. X$."J" |
00000B70: A7 20 31 35 30 30 30 00 8C 13 56 3B 8B 20 58 24 |. 15000...V;. X$|
00000B80: B2 22 4E 22 20 A7 20 20 31 30 30 30 00 A1 13 60 |."N" . 1000...`|
00000B90: 3B 99 20 C7 28 31 34 35 29 3B 3A 89 31 35 31 36 |;. .(145);:.1516|
00000BA0: 30 00 BC 13 20 4E 8F 20 3D 3D 3D 3D 3D 3D 3D 3D |0... N. ========|
00000BB0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 D5 13 2A |============...*|
00000BC0: 4E 8F 20 20 20 41 44 52 45 53 53 45 4E 20 41 45 |N. ADRESSEN AE|
00000BD0: 4E 44 45 52 4E 00 F0 13 34 4E 8F 20 3D 3D 3D 3D |NDERN...4N. ====|
00000BE0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000BF0: 00 F9 13 3E 4E 5A 5A B2 31 00 02 14 48 4E 8D 33 |...>NZZ.1...HN.3|
00000C00: 30 30 00 08 14 52 4E 99 00 14 14 5C 4E 81 20 49 |00...RN....\N. I|
00000C10: B2 31 A4 37 00 2B 14 66 4E 99 20 49 3B 46 24 28 |.1.7.+.fN. I;F$(|
00000C20: 49 29 3B 44 24 28 5A 5A 2C 49 29 00 31 14 70 4E |I);D$(ZZ,I).1.pN|
00000C30: 82 00 48 14 7A 4E A1 20 58 24 3A 8B 20 58 24 B2 |..H.zN. X$:. X$.|
00000C40: 22 22 A7 32 30 30 39 30 00 6A 14 84 4E 8B C6 28 |"".20090.j..N..(|
00000C50: 58 24 29 B3 31 33 33 20 B0 20 C6 28 58 24 29 B1 |X$).133 . .(X$).|
00000C60: 31 33 36 20 A7 32 30 30 39 30 00 7F 14 8E 4E 8B |136 .20090....N.|
00000C70: 20 C6 28 58 24 29 B2 31 33 36 A7 31 30 30 30 00 | .(X$).136.1000.|
00000C80: A7 14 98 4E 8B 20 C6 28 58 24 29 B2 31 33 33 20 |...N. .(X$).133 |
00000C90: AF 20 5A 5A B3 5A 20 A7 5A 5A B2 5A 5A AA 31 20 |. ZZ.Z .ZZ.ZZ.1 |
00000CA0: 3A 89 32 30 30 34 30 00 E9 14 A2 4E 8B 20 C6 28 |:.20040....N. .(|
00000CB0: 58 24 29 B2 31 33 34 20 AF 20 5A 5A B1 31 20 A7 |X$).134 . ZZ.1 .|
00000CC0: 20 5A 5A B2 5A 5A AB 31 20 3A 89 20 32 30 30 34 | ZZ.ZZ.1 :. 2004|
00000CD0: 30 02 E9 14 02 4E 8B 20 C6 28 58 24 29 B2 31 33 |0....N. .(X$).13|
00000CE0: 35 20 A7 20 32 30 31 36 30 00 01 15 AC 4E 8B 20 |5 . 20160....N. |
00000CF0: C6 28 58 24 29 B2 31 33 35 20 A7 20 32 30 31 36 |.(X$).135 . 2016|
00000D00: 30 00 0C 15 B6 4E 89 32 30 30 39 30 00 12 15 C0 |0....N.20090....|
00000D10: 4E 99 00 2D 15 CA 4E 85 22 46 45 4C 44 4E 55 4D |N..-..N."FELDNUM|
00000D20: 4D 45 52 20 28 31 2D 37 29 20 22 3B 58 00 4E 15 |MER (1-7) ";X.N.|
00000D30: D4 4E 8B 20 58 B3 31 20 B0 20 58 B1 37 20 A7 99 |.N. X.1 . X.7 ..|
00000D40: C7 28 31 34 35 29 3B 3A 89 32 30 31 37 30 00 54 |.(145);:.20170.T|
00000D50: 15 DE 4E 99 00 73 15 E8 4E 85 22 4E 45 55 45 52 |..N..s..N."NEUER|
00000D60: 20 49 4E 48 41 4C 54 3A 20 22 3B 44 24 28 5A 5A | INHALT: ";D$(ZZ|
00000D70: 2C 58 29 00 7F 15 F2 4E 89 20 32 30 30 34 30 00 |,X)....N. 20040.|
00000D80: 9A 15 A8 61 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |...a. ==========|
00000D90: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 B3 15 B2 61 8F |==========....a.|
00000DA0: 20 20 41 44 52 45 53 53 45 4E 20 4C 4F 45 53 43 | ADRESSEN LOESC|
00000DB0: 48 45 4E 00 CE 15 BC 61 8F 20 3D 3D 3D 3D 3D 3D |HEN....a. ======|
00000DC0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 DF |==============..|
00000DD0: 15 C6 61 8D 20 33 30 30 3A 8F 20 4B 4F 50 46 00 |..a. 300:. KOPF.|
00000DE0: E5 15 D0 61 99 00 03 16 DA 61 8D 20 35 30 30 3A |...a.....a. 500:|
00000DF0: 8F 20 44 41 54 45 4E 20 49 4D 20 52 45 43 48 4E |. DATEN IM RECHN|
00000E00: 45 52 3F 00 12 16 DF 61 8B 20 5A B2 30 A7 31 30 |ER?....a. Z.0.10|
00000E10: 30 30 00 28 16 E4 61 85 20 22 56 4F 52 4E 41 4D |00.(..a. "VORNAM|
00000E20: 45 3A 20 22 3B 44 31 24 00 3E 16 EE 61 85 20 22 |E: ";D1$.>..a. "|
00000E30: 4E 41 4D 45 20 20 20 3A 20 22 3B 44 32 24 00 46 |NAME : ";D2$.F|
00000E40: 16 F8 61 58 B2 31 00 6C 16 02 62 8B 20 44 24 28 |..aX.1.l..b. D$(|
00000E50: 58 2C 32 29 B2 44 31 24 AF 20 44 24 28 58 2C 33 |X,2).D1$. D$(X,3|
00000E60: 29 B2 44 32 24 20 A7 32 35 31 33 30 00 83 16 0C |).D2$ .25130....|
00000E70: 62 8B 20 58 B3 5A A7 58 B2 58 AA 31 3A 89 32 35 |b. X.Z.X.X.1:.25|
00000E80: 30 39 30 00 A3 16 16 62 46 45 24 B2 22 4E 41 4D |090....bFE$."NAM|
00000E90: 45 20 4E 49 43 48 54 20 47 45 46 55 4E 44 45 4E |E NICHT GEFUNDEN|
00000EA0: 21 3A 22 00 B2 16 20 62 8D 32 30 30 3A 89 31 30 |!:"... b.200:.10|
00000EB0: 30 30 00 BD 16 2A 62 8D 33 30 30 3A 99 00 C8 16 |00...*b.300:....|
00000EC0: 2F 62 81 49 B2 31 A4 37 00 DB 16 34 62 99 46 24 |/b.I.1.7...4b.F$|
00000ED0: 28 49 29 3B 44 24 28 58 2C 49 29 00 E1 16 3E 62 |(I);D$(X,I)...>b|
00000EE0: 82 00 E7 16 43 62 99 00 09 17 48 62 85 22 41 44 |....Cb....Hb."AD|
00000EF0: 52 45 53 53 45 20 4C 4F 45 53 43 48 45 4E 20 28 |RESSE LOESCHEN (|
00000F00: 4A 2F 4E 29 20 22 3B 58 24 00 1E 17 52 62 8B 20 |J/N) ";X$...Rb. |
00000F10: 58 24 B2 22 4A 22 20 A7 20 32 35 32 30 30 00 33 |X$."J" . 25200.3|
00000F20: 17 5C 62 8B 20 58 24 B2 22 4E 22 20 A7 20 20 31 |.\b. X$."N" . 1|
00000F30: 30 30 30 00 47 17 66 62 99 C7 28 31 34 35 29 3B |000.G.fb..(145);|
00000F40: 3A 89 32 35 31 36 30 00 57 17 70 62 81 20 59 B2 |:.25160.W.pb. Y.|
00000F50: 58 20 A4 20 5A AB 31 00 63 17 7A 62 81 20 49 B2 |X . Z.1.c.zb. I.|
00000F60: 31 A4 37 00 79 17 84 62 44 24 28 59 2C 49 29 B2 |1.7.y..bD$(Y,I).|
00000F70: 44 24 28 59 AA 31 2C 49 29 00 80 17 8E 62 82 49 |D$(Y.1,I)....b.I|
00000F80: 00 87 17 98 62 82 59 00 91 17 A2 62 5A B2 5A AB |....b.Y....bZ.Z.|
00000F90: 31 00 9B 17 AC 62 89 31 30 30 30 00 B6 17 30 75 |1....b.1000...0u|
00000FA0: 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |. ==============|
00000FB0: 3D 3D 3D 3D 3D 3D 00 CF 17 3A 75 8F 20 20 41 44 |======...:u. AD|
00000FC0: 52 45 53 53 45 4E 20 41 55 53 47 45 42 45 4E 00 |RESSEN AUSGEBEN.|
00000FD0: EA 17 44 75 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |..Du. ==========|
00000FE0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 F5 17 4E 75 8D |==========...Nu.|
00000FF0: 33 30 30 3A 99 00 FF 17 58 75 8D 20 35 30 30 00 |300:....Xu. 500.|
00001000: 10 18 62 75 8B 20 5A B2 30 20 A7 20 31 30 30 30 |..bu. Z.0 . 1000|
00001010: 00 39 18 6C 75 85 22 44 52 55 43 4B 45 52 20 4F |.9.lu."DRUCKER O|
00001020: 44 45 52 20 42 49 4C 44 53 43 48 49 52 4D 20 28 |DER BILDSCHIRM (|
00001030: 44 2F 42 29 20 22 3B 47 24 00 64 18 76 75 8B 20 |D/B) ";G$.d.vu. |
00001040: 47 24 B3 B1 22 42 22 20 AF 20 47 24 B3 B1 22 44 |G$.."B" . G$.."D|
00001050: 22 A7 20 99 20 C7 28 31 34 35 29 3B 3A 89 20 33 |". . .(145);:. 3|
00001060: 30 30 36 30 00 76 18 7B 75 8B 20 47 24 B2 22 44 |0060.v.{u. G$."D|
00001070: 22 A7 9F 31 2C 34 00 81 18 80 75 8D 33 30 30 3A |"..1,4....u.300:|
00001080: 99 00 96 18 8A 75 99 22 53 55 43 48 42 45 47 52 |.....u."SUCHBEGR|
00001090: 49 46 46 45 3A 22 00 AB 18 94 75 99 22 2D 2D 2D |IFFE:"....u."---|
000010A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 B1 18 9E 75 |----------"....u|
000010B0: 99 00 C8 18 A8 75 81 49 B2 31 A4 37 3A 53 24 28 |.....u.I.1.7:S$(|
000010C0: 49 29 B2 22 22 20 3A 82 00 D4 18 B2 75 81 20 49 |I)."" :.....u. I|
000010D0: B2 31 A4 37 00 E1 18 BC 75 99 20 46 24 28 49 29 |.1.7....u. F$(I)|
000010E0: 3B 00 ED 18 C6 75 85 20 53 24 28 49 29 00 F3 18 |;....u. S$(I)...|
000010F0: D0 75 82 00 FF 18 DA 75 81 20 59 B2 31 A4 5A 00 |.u.....u. Y.1.Z.|
00001100: 07 19 E4 75 53 B2 30 00 13 19 EE 75 81 20 49 B2 |...uS.0....u. I.|
00001110: 31 A4 37 00 2F 19 F8 75 8B 20 53 24 28 49 29 B2 |1.7./..u. S$(I).|
00001120: 22 22 A7 53 B2 53 AA 31 3A 89 33 30 32 32 30 00 |"".S.S.1:.30220.|
00001130: 49 19 02 76 8B 20 44 24 28 59 2C 49 29 B2 53 24 |I..v. D$(Y,I).S$|
00001140: 28 49 29 A7 53 B2 53 AA 31 00 51 19 0C 76 82 20 |(I).S.S.1.Q..v. |
00001150: 49 00 61 19 16 76 8B 53 B3 B1 37 A7 33 30 33 30 |I.a..v.S..7.3030|
00001160: 30 00 70 19 20 76 8B 47 24 B2 22 44 22 A7 98 31 |0.p. v.G$."D"..1|
00001170: 00 83 19 25 76 8B 47 24 B2 22 42 22 A7 8D 33 30 |...%v.G$."B"..30|
00001180: 30 3A 99 00 8E 19 2A 76 81 49 B2 31 A4 37 00 AA |0:....*v.I.1.7..|
00001190: 19 34 76 8B 20 47 24 B2 22 42 22 A7 99 46 24 28 |.4v. G$."B"..F$(|
000011A0: 49 29 3B 44 24 28 59 2C 49 29 00 C8 19 3E 76 8B |I);D$(Y,I)...>v.|
000011B0: 20 47 24 B2 22 44 22 A7 98 31 2C 46 24 28 49 29 | G$."D"..1,F$(I)|
000011C0: 3B 44 24 28 59 2C 49 29 00 CF 19 48 76 82 49 00 |;D$(Y,I)...Hv.I.|
000011D0: E3 19 4D 76 8B 20 47 24 B2 22 44 22 A7 20 33 30 |..Mv. G$."D". 30|
000011E0: 33 30 30 00 03 1A 52 76 99 3A 85 22 44 52 55 45 |300...Rv.:."DRUE|
000011F0: 43 4B 45 4E 20 53 49 45 20 52 45 54 55 52 4E 22 |CKEN SIE RETURN"|
00001200: 3B 58 24 00 0A 1A 5C 76 82 59 00 18 1A 66 76 8D |;X$...\v.Y...fv.|
00001210: 20 33 30 30 3A 99 3A 99 00 29 1A 70 76 99 22 44 | 300:.:..).pv."D|
00001220: 41 54 45 49 45 4E 44 45 22 00 47 1A 7A 76 85 22 |ATEIENDE".G.zv."|
00001230: 44 52 55 45 43 4B 45 4E 20 53 49 45 20 52 45 54 |DRUECKEN SIE RET|
00001240: 55 52 4E 22 3B 58 24 00 57 1A 84 76 8B 20 47 24 |URN";X$.W..v. G$|
00001250: B2 22 44 22 A7 A0 31 00 61 1A 8E 76 89 31 30 30 |."D"..1.a..v.100|
00001260: 30 00 7C 1A B8 88 8F 20 3D 3D 3D 3D 3D 3D 3D 3D |0.|.... ========|
00001270: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 95 1A C2 |============....|
00001280: 88 8F 20 20 20 50 52 4F 47 52 41 4D 4D 20 42 45 |.. PROGRAMM BE|
00001290: 45 4E 44 45 4E 00 B0 1A CC 88 8F 20 3D 3D 3D 3D |ENDEN...... ====|
000012A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000012B0: 00 BC 1A D6 88 8D 33 30 30 20 3A 99 00 CE 1A E0 |......300 :.....|
000012C0: 88 8B 20 5A B2 30 20 A7 20 33 35 31 35 30 00 F7 |.. Z.0 . 35150..|
000012D0: 1A EA 88 99 22 53 49 4E 44 20 41 4C 4C 45 20 44 |...."SIND ALLE D|
000012E0: 41 54 45 4E 20 47 45 53 49 43 48 45 52 54 20 28 |ATEN GESICHERT (|
000012F0: 4A 2F 4E 29 20 22 3B 00 FF 1A F4 88 85 58 24 00 |J/N) ";......X$.|
00001300: 10 1B FE 88 8B 58 24 B2 22 4E 22 A7 31 30 30 30 |.....X$."N".1000|
00001310: 00 22 1B 08 89 8B 58 24 B2 22 4A 22 A7 33 35 31 |."....X$."J".351|
00001320: 30 30 00 36 1B 12 89 99 C7 28 31 34 35 29 3B 3A |00.6.....(145);:|
00001330: 89 33 35 30 35 30 00 3F 1B 1C 89 8D 33 30 30 00 |.35050.?....300.|
00001340: 70 1B 26 89 99 22 44 41 53 20 50 52 4F 47 52 41 |p.&.."DAS PROGRA|
00001350: 4D 4D 20 4B 41 4E 4E 20 4D 49 54 20 27 47 4F 54 |MM KANN MIT 'GOT|
00001360: 4F 20 31 30 30 30 27 20 57 49 45 44 45 52 22 3B |O 1000' WIEDER";|
00001370: 00 9E 1B 30 89 99 22 47 45 53 54 41 52 54 45 54 |...0.."GESTARTET|
00001380: 20 57 45 52 44 45 4E 2C 20 4F 48 4E 45 20 44 41 | WERDEN, OHNE DA|
00001390: 53 53 20 44 41 54 45 4E 20 56 45 52 2D 22 00 B2 |SS DATEN VER-"..|
000013A0: 1B 3A 89 99 22 4C 4F 52 45 4E 20 47 45 48 45 4E |.:.."LOREN GEHEN|
000013B0: 21 22 00 B8 1B 44 89 99 00 BE 1B 4E 89 80 00 00 |!"...D.....N....|
000013C0: 00 |. |
.......5328,2:.53281,2:.G(150).-....D$(2
00,7).I...F$(1)."ANREDE ".E...F$
(2)."VORNAME "... .F$(3)."NAME
"...!.F$(4)."STRASSE "...
".F$(5)."PLZ/ORT ".U.#.F$(6)."TEL
EFON "...$.F$(7)."BEMERKUNG
"...C..1000...D.. ======================
=...N.. PROGRAMMKOPF.L.X.. ===========
============.Z.... G(147);.N....I.1.40:.
"=";:....... " ADRESSENVERWALTUNG"
... ..I.1.40:."=";:.......:........P.H..
=======================...R.. FEHLERM
ELDUNG...... =======================....
.. G(19);.'....X.1.24:.G(17);:..>....G(1
8);FE$;G(146);.Q.... X.1 . 1000:..W.....
T.,.. ======================...6.. KOEP
FE PROGRAMMTEILE...@.. =================
=====.L.J.PT$(1)." DATEI LADEN "...T
.PT$(2)." DATEI SPEICHERN "...^.PT$(3)."
ADRESSEN EINGEBEN".).H.PT$(4)."ADRESSEN
AENDERN ".H.R.PT$(5)."ADRESSEN LOESCHEN"
.G.|.PT$(6)."ADRESSEN AUSGEBEN".....PT$(
7)."PROGRAMM BEENDEN "......100......"
";G(30);.C...." UCCCCCCCCCCCCCCCC
CI"......" I";G(158);PT$(F);G(3
0);"I"......" JCCCCCCCCCCCCCCCC
CK ";G(158).!.B...<.... ================
====.V.... DATEN IM RECHNER?.Q.... ===
=================...... Z.0. 560.....FE$
."KEINE DATEN IM RECHNER!"...&.. 200...0
........100......G(30);" UCCCCCCCCCCC
CCCCCCCCI"......" I";G(158);"PROGRAMM
FUNKTIONEN:";G(30);"I".C...." JCCCCCC
CCCCCCCCCCCCCK ";G(158).I.....V....G
(144);" -1- ";G(158);"DATEI LADEN"..
....G(144);" -2- ";G(158);"DATEI SPE
ICHERN".Y.$..G(144);" -3- ";G(158);"
ADRESSE EINGEBEN"......G(144);" -4-
";G(158);"ADRESSEN AENDERN".>.8..G(144);
" -5- ";G(158);"ADRESSEN LOESCHEN".Q
.B..G(144);" -6- ";G(158);"ADRESSEN
AUSGEBEN"...L..G(144);" -7- ";G(158)
;"PROGRAMM BEENDEN"...Q..:..O.V..G(144);
" AUSWAHL ";G(158);.W.[.. F...`..F.0
. F.7 . FE$."UNGUELTIGER WERT":.200:.10
00.=.J.. F . 5000,10000,15000,20000,2500
0,30000,35000.X.... ====================
.M.... DATEI LADEN...... ============
========......300:......."BITTE DATENKAS
SETTE EINLEGEN UND ZU-".E.....Y.D.."RUEC
KSPULEN!"...I.....N.."DRUECKEN SIE DANAC
H RETURN ";...X..X$.......(.... 1,1,0,"A
DRESSEN".1....1,Z.=.... Y.1.Z.I.... I.1.
7.X....1,D$(Y,I)._....I.F....Y.N.(. 1..
.2.."DATEN SIND GELADEN!"...<.. X.1.2000
:....F.. 1000....'. ====================
.Y.$'. DATEI SPEICHERN....'. ========
============...8'.300:....='.500:. Z.0 .
1000.@.L'."BITTE DATENKASSETTE EINLEGEN
UND ZU-".F.V'..Z.`'."RUECKSPULEN!".`.E'.
...J'."DRUECKEN SIE DANACH RETURN";...O'
.X$...T'. 1,1,1,"ADRESSEN"...~'.1,Z....'
. Y.1.Z.C..'. I.1.7.R..'.1,D$(Y,I).Y..'.
I....'.Y....' 1....'.:."DATEN SIND GESPE
ICHERT!"...D'. X.1.2000:..#.N'.1000.>..:
. ====================.W..:. ADRESSEN E
INGEBEN.R..:. ====================.{..:.
300....:Z.Z.1...J:....T:.I.1.7....:.F$(I
);....:. D$(Z,I)....:.....:.....;."DATEN
RICHTIG EINGEGEBEN (J/N)";....;X$."":.
X$....;. X$."J".15160...$;. X$."N".Z.Z.1
:.15000.4..;. G(145);:.15110.S.8;."WEITE
RE EINGABEN (J/N)";.B.B;X$."":. X$.W.L;.
X$."J" . 15000...V;. X$."N" . 1000...`
;. G(145);:.15160... N. ================
====.U.*N. ADRESSEN AENDERN...4N. ====
================...>NZZ.1...HN.300...RN.
...\N. I.1.7.+.FN. I;F$(I);D$(ZZ,I).1.PN
..H.ZN. X$:. X$."".20090.J..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 . ZZ.1 . ZZ.ZZ.1 :. 2004
0....N. F(X$).135 . 20160....N. F(X$).13
5 . 20160....N.20090....N..-.JN."FELDNUM
MER (1-7) ";X.N.TN. X.1 . X.7 ..G(145);:
.20170.T..N..S..N."NEUER INHALT: ";D$(ZZ
,X)...N. 20040....A. ==================
==....A. ADRESSEN LOESCHEN.N..A. ======
==============...FA. 300:. KOPF...PA....
ZA. 500:. DATEN IM RECHNER?....A. Z.0.10
00.(..A. "VORNAME: ";D1$.>..A. "NAME :
";D2$.F..AX.1.L..B. D$(X,2).D1$. D$(X,3
).D2$ .25130....B. X.Z.X.X.1:.25090....B
FE$."NAME NICHT GEFUNDEN!:"... B.200:.10
00...*B.300:..H./B.I.1.7...4B.F$(I);D$(X
,I)...>B....CB....HB."ADRESSE LOESCHEN (
J/N) ";X$...RB. X$."J" . 25200.3.\B. X$.
"N" . 1000.G.FB.G(145);:.25160.W.PB. Y.
X . Z.1.C.ZB. I.1.7.Y..BD$(Y,I).D$(Y.1,I
)....B.I....B.Y....BZ.Z.1....B.1000...0U
. ====================.O.:U. ADRESSEN A
USGEBEN...DU. ====================...NU.
300:....XU. 500...BU. Z.0 . 1000.9.LU."D
RUCKER ODER BILDSCHIRM (D/B) ";G$.D.VU.
G$.."B" . G$.."D". . G(145);:. 30060.V.{
U. G$."D"..1,4....U.300:.....U."SUCHBEGR
IFFE:"....U."-------------"....U..H..U.I
.1.7:S$(I)."" :..T..U. I.1.7....U. F$(I)
;...FU. S$(I)...PU....ZU. Y.1.Z....US.0.
...U. I.1.7./..U. S$(I)."".S.S.1:.30220.
I..V. D$(Y,I).S$(I).S.S.1.Q..V. I.A..V.S
..7.30300.P. V.G$."D"..1...%V.G$."B"..30
0:....*V.I.1.7...4V. G$."B"..F$(I);D$(Y,
I).H.>V. G$."D"..1,F$(I);D$(Y,I).O.HV.I.
..MV. G$."D". 30300...RV.:."DRUECKEN SIE
RETURN";X$...\V.Y...FV. 300:.:..).PV."D
ATEIENDE".G.ZV."DRUECKEN SIE RETURN";X$.
W..V. G$."D". 1.A..V.1000.|.... ========
============...B.. PROGRAMM BEENDEN...
L.. ====================...V..300 :..N..
.. Z.0 . 35150......"SIND ALLE DATEN GES
ICHERT (J/N) ";......X$......X$."N".1000
."....X$."J".35100.6....G(145);:.35050.?
....300.P.&.."DAS PROGRAMM KANN MIT 'GOT
O 1000' WIEDER";...0.."GESTARTET WERDEN,
OHNE DASS DATEN VER-"...:.."LOREN GEHEN
!"...D.....N.....
> CLICK IMAGE PREVIEW FOR FULL MODAL