MUENZENVERWALT.
FILE INFORMATION
FILENAME(S): MUENZENVERWALT.
FILE TYPE(S): PRG
FILE SIZE: 7.6K
FIRST SEEN: 2025-10-20 14:31:35
APPEARS ON: 1 disk(s)
FILE HASH
5ecf6c16ef9b8ba61079a0599cf6f7f933c7ae8d4301c7dcb61babfb7e6cd8f2
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| WOLF S SOFT C004 | MUENZENVERWALT. | PRG | Treasure Chest - Klaus Der Suhler | 17 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 2A 1C 00 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..*.... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 53 1C 01 00 8F |**********.S....|
00000030: 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | * |
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000050: 20 20 2A 00 7C 1C 02 00 8F 20 2A 20 20 20 20 50 | *.|.... * P|
00000060: 55 42 4C 49 43 2D 44 4F 4D 41 49 4E 20 53 4F 46 |UBLIC-DOMAIN SOF|
00000070: 54 57 41 52 45 20 20 20 20 20 20 2A 00 A5 1C 03 |TWARE *....|
00000080: 00 8F 20 2A 20 20 20 20 20 20 20 46 55 45 52 20 |.. * FUER |
00000090: 44 45 4E 20 50 43 20 31 32 38 20 20 20 20 20 20 |DEN PC 128 |
000000A0: 20 20 20 20 2A 00 CE 1C 04 00 8F 20 2A 20 20 20 | *...... * |
000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 F7 | *..|
000000D0: 1C 05 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********|
000000E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000F0: 2A 2A 2A 2A 2A 2A 2A 00 FD 1C 06 00 3A 00 03 1D |*******.....:...|
00000100: 07 00 3A 00 09 1D 08 00 3A 00 0F 1D 09 00 3A 00 |..:.....:.....:.|
00000110: 37 1D 0A 00 8F 20 22 22 22 22 22 22 22 22 22 22 |7.... """"""""""|
00000120: 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 |""""""""""""""""|
00000130: 22 22 22 22 22 22 22 00 5F 1D 0B 00 8F 20 22 20 |"""""""._.... " |
00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00000160: 87 1D 0C 00 8F 20 22 20 20 50 52 4F 47 52 41 4D |..... " PROGRAM|
00000170: 20 57 41 53 20 4D 41 44 45 20 42 59 20 2E 2E 2E | WAS MADE BY ...|
00000180: 2E 2E 20 20 20 20 22 00 AF 1D 0D 00 8F 20 22 20 |.. "...... " |
00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
000001B0: D7 1D 0E 00 8F 20 22 20 20 20 20 20 20 20 20 20 |..... " |
000001C0: 20 20 20 20 20 20 50 45 54 45 52 20 4B 4C 45 49 | PETER KLEI|
000001D0: 4E 20 20 20 20 20 22 00 FF 1D 0F 00 8F 20 22 20 |N "...... " |
000001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00000200: 27 1E 10 00 8F 20 22 2D 2D 2D 2D 2D 2D 2D 2D 2D |'.... "---------|
00000210: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000220: 2D 2D 2D 2D 2D 2D 22 00 4F 1E 11 00 8F 20 22 20 |------".O.... " |
00000230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00000250: 77 1E 12 00 8F 20 22 20 20 43 4F 50 59 20 4D 45 |w.... " COPY ME|
00000260: 2C 20 49 20 57 41 4E 54 20 54 4F 20 54 52 41 56 |, I WANT TO TRAV|
00000270: 45 4C 20 21 20 20 22 00 9F 1E 13 00 8F 20 22 20 |EL ! "...... " |
00000280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
000002A0: C7 1E 14 00 8F 20 22 2D 2D 2D 2D 2D 2D 2D 2D 2D |..... "---------|
000002B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000002C0: 2D 2D 2D 2D 2D 2D 22 00 EF 1E 15 00 8F 20 22 20 |------"...... " |
000002D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
000002F0: 17 1F 16 00 8F 20 22 20 42 41 53 49 43 20 56 45 |..... " BASIC VE|
00000300: 52 53 49 4F 4E 20 37 2E 30 2F 34 30 20 5A 45 49 |RSION 7.0/40 ZEI|
00000310: 43 48 45 4E 20 20 22 00 3F 1F 17 00 8F 20 22 20 |CHEN ".?.... " |
00000320: 20 20 20 20 20 20 20 20 20 41 53 43 49 49 20 43 | ASCII C|
00000330: 4F 44 45 20 20 20 20 20 20 20 20 20 20 20 22 00 |ODE ".|
00000340: 67 1F 18 00 8F 20 22 20 20 20 20 20 20 20 20 20 |g.... " |
00000350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000360: 20 20 20 20 20 20 22 00 8F 1F 19 00 8F 20 22 22 | "...... ""|
00000370: 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 |""""""""""""""""|
00000380: 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 00 |""""""""""""""".|
00000390: 95 1F 1A 00 3A 00 9B 1F 1B 00 3A 00 A1 1F 1C 00 |....:.....:.....|
000003A0: 3A 00 A7 1F 1D 00 3A 00 AD 1F 1E 00 3A 00 D5 1F |:.....:.....:...|
000003B0: 28 00 8F 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |(..-------------|
000003C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000003D0: 2D 2D 2D 2D 2D 00 0C 20 32 00 86 20 4E 41 24 28 |-----.. 2.. NA$(|
000003E0: 35 30 30 29 2C 41 4E 28 35 30 30 29 2C 53 54 28 |500),AN(500),ST(|
000003F0: 35 30 30 29 2C 45 50 28 35 30 30 29 2C 47 50 28 |500),EP(500),GP(|
00000400: 35 30 30 29 2C 4A 41 28 35 30 30 29 00 23 20 3C |500),JA(500).# <|
00000410: 00 D7 20 36 30 3A E8 3A E7 20 30 2C 31 3A E7 20 |.. 60:.:. 0,1:. |
00000420: 34 2C 31 00 AB 20 46 00 99 22 05 23 23 23 23 23 |4,1.. F..".#####|
00000430: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00000440: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00000450: 23 23 23 22 3A 99 22 20 20 20 20 20 20 4D 55 45 |###":." MUE|
00000460: 4E 5A 45 4E 44 41 54 45 49 2D 56 45 52 54 45 49 |NZENDATEI-VERTEI|
00000470: 4C 45 52 4D 45 4E 55 45 22 3A 99 22 23 23 23 23 |LERMENUE":."####|
00000480: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00000490: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
000004A0: 23 23 23 23 22 3A 99 3A 99 3A 99 00 D4 20 50 00 |####":.:.:... P.|
000004B0: 99 22 81 20 5B 31 5D 20 4E 45 55 45 20 44 41 54 |.". [1] NEUE DAT|
000004C0: 45 49 20 49 4E 49 54 49 41 4C 49 53 49 45 52 45 |EI INITIALISIERE|
000004D0: 4E 22 3A 99 00 03 21 5A 00 99 22 95 20 5B 32 5D |N":...!Z..". [2]|
000004E0: 20 44 41 54 45 4E 20 45 49 4E 4C 45 53 45 4E 20 | DATEN EINLESEN |
000004F0: 28 50 52 4F 47 52 41 4D 4D 42 45 47 49 4E 4E 29 |(PROGRAMMBEGINN)|
00000500: 22 3A 99 00 2C 21 64 00 99 22 96 20 5B 33 5D 20 |":..,!d..". [3] |
00000510: 41 55 53 47 41 42 45 20 44 45 52 20 44 41 54 45 |AUSGABE DER DATE|
00000520: 4E 20 28 4C 49 53 54 45 29 22 3A 99 00 4D 21 6E |N (LISTE)":..M!n|
00000530: 00 99 22 97 20 5B 34 5D 20 41 45 4E 44 45 52 4E |..". [4] AENDERN|
00000540: 20 56 4F 4E 20 44 41 54 45 4E 22 3A 99 00 69 21 | VON DATEN":..i!|
00000550: 78 00 99 22 98 20 5B 35 5D 20 50 52 4F 47 52 41 |x..". [5] PROGRA|
00000560: 4D 4D 45 4E 44 45 22 3A 99 00 92 21 7D 00 99 22 |MMENDE":...!}.."|
00000570: 99 20 5B 36 5D 20 47 45 53 41 4D 54 57 45 52 54 |. [6] GESAMTWERT|
00000580: 20 44 45 52 20 53 41 4D 4D 4C 55 4E 47 22 3A 99 | DER SAMMLUNG":.|
00000590: 3A 99 00 B4 21 8C 00 99 3A 99 3A 99 3A 99 22 1F |:...!...:.:.:.".|
000005A0: 3E 3E 3E 20 49 48 52 45 20 57 41 48 4C 20 3F 20 |>>> IHRE WAHL ? |
000005B0: 3C 3C 3C 22 00 C0 21 96 00 A1 F9 20 45 49 4E 24 |<<<"..!.... EIN$|
000005C0: 00 D0 21 A0 00 45 49 4E B2 C5 28 45 49 4E 24 29 |..!..EIN..(EIN$)|
000005D0: 00 0D 22 B4 00 8B 20 45 49 4E B1 30 20 AF 20 45 |.."... EIN.0 . E|
000005E0: 49 4E B3 37 20 A7 20 91 20 45 49 4E 20 89 20 20 |IN.7 . . EIN . |
000005F0: 31 30 30 30 2C 32 30 30 30 2C 33 30 30 30 2C 34 |1000,2000,3000,4|
00000600: 30 30 30 2C 35 30 30 30 2C 36 30 30 30 00 17 22 |000,5000,6000.."|
00000610: BE 00 89 20 31 35 30 00 1D 22 C8 00 80 00 3A 22 |... 150.."....:"|
00000620: E8 03 8F 20 2A 2A 2A 20 49 4E 49 54 49 41 4C 49 |... *** INITIALI|
00000630: 53 49 45 52 45 4E 20 2A 2A 2A 00 4C 22 F2 03 E8 |SIEREN ***.L"...|
00000640: 3A E7 20 30 2C 38 3A E7 20 34 2C 38 00 54 22 FC |:. 0,8:. 4,8.T".|
00000650: 03 99 3A 99 00 83 22 06 04 99 22 90 20 44 49 45 |..:..."...". DIE|
00000660: 53 45 52 20 4D 45 4E 55 45 50 55 4E 4B 54 20 46 |SER MENUEPUNKT F|
00000670: 55 45 48 52 54 20 5A 55 20 56 4F 45 4C 4C 49 47 |UEHRT ZU VOELLIG|
00000680: 45 4D 22 00 B2 22 10 04 99 22 20 44 41 54 45 4E |EM".."..." DATEN|
00000690: 56 45 52 4C 55 53 54 2E 2D 57 4F 4C 4C 45 4E 20 |VERLUST.-WOLLEN |
000006A0: 53 49 45 20 57 45 49 54 45 52 4D 41 43 48 45 4E |SIE WEITERMACHEN|
000006B0: 3F 22 00 D3 22 1A 04 99 22 20 45 49 4E 47 41 42 |?".."..." EINGAB|
000006C0: 45 20 27 4A 27 20 4F 44 45 52 20 27 4E 27 22 3A |E 'J' ODER 'N'":|
000006D0: 99 3A 99 00 03 23 24 04 99 22 2D 2D 2D 2D 2D 2D |.:...#$.."------|
000006E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000700: 2D 2D 22 00 0F 23 2E 04 A1 F9 20 45 49 4E 24 00 |--"..#.... EIN$.|
00000710: 25 23 38 04 8B 20 45 49 4E 24 B2 22 4E 22 20 A7 |%#8.. EIN$."N" .|
00000720: 20 89 20 36 30 00 3D 23 42 04 8B 20 45 49 4E 24 | . 60.=#B.. EIN$|
00000730: B2 22 4A 22 20 A7 20 89 20 31 31 31 30 00 48 23 |."J" . . 1110.H#|
00000740: 4C 04 89 20 31 30 37 30 00 50 23 56 04 99 3A 99 |L.. 1070.P#V..:.|
00000750: 00 7E 23 60 04 99 22 1C 20 44 49 45 20 44 41 54 |.~#`..". DIE DAT|
00000760: 45 49 20 57 49 52 44 20 4E 55 4E 20 45 52 4F 45 |EI WIRD NUN EROE|
00000770: 46 46 4E 45 54 2E 44 41 53 20 42 45 2D 22 00 A9 |FFNET.DAS BE-"..|
00000780: 23 6A 04 99 22 20 4E 4F 45 54 49 47 54 20 45 49 |#j.." NOETIGT EI|
00000790: 4E 45 20 47 45 57 49 53 53 45 20 5A 45 49 54 20 |NE GEWISSE ZEIT |
000007A0: 21 21 21 21 22 3A 99 3A 99 00 D9 23 74 04 99 22 |!!!!":.:...#t.."|
000007B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000007C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000007D0: 2D 2D 2D 2D 2D 2D 2D 2D 22 00 EE 23 79 04 F2 22 |--------"..#y.."|
000007E0: 4D 55 45 4E 5A 45 4E 2D 44 41 54 45 49 22 00 09 |MUENZEN-DATEI"..|
000007F0: 24 7E 04 FE 0D 23 31 2C 22 4D 55 45 4E 5A 45 4E |$~...#1,"MUENZEN|
00000800: 2D 44 41 54 45 49 22 2C 57 00 19 24 88 04 81 20 |-DATEI",W..$... |
00000810: 49 B2 31 20 A4 20 35 30 30 00 4F 24 92 04 4E 41 |I.1 . 500.O$..NA|
00000820: 24 28 49 29 B2 22 22 3A 41 4E 28 49 29 B2 30 3A |$(I)."":AN(I).0:|
00000830: 53 54 28 49 29 B2 30 3A 45 50 28 49 29 B2 30 3A |ST(I).0:EP(I).0:|
00000840: 47 50 28 49 29 B2 30 3A 4A 41 28 49 29 B2 30 00 |GP(I).0:JA(I).0.|
00000850: 9F 24 9C 04 98 31 2C 4E 41 24 28 49 29 3B C7 28 |.$...1,NA$(I);.(|
00000860: 31 33 29 3B 41 4E 28 49 29 3B C7 28 31 33 29 3B |13);AN(I);.(13);|
00000870: 53 54 28 49 29 3B C7 28 31 33 29 3B 45 50 28 49 |ST(I);.(13);EP(I|
00000880: 29 3B C7 28 31 33 29 3B 47 50 28 49 29 3B C7 28 |);.(13);GP(I);.(|
00000890: 31 33 29 3B 4A 41 28 49 29 3B C7 28 31 33 29 00 |13);JA(I);.(13).|
000008A0: A7 24 A6 04 82 20 49 00 B0 24 B0 04 FE 0F 23 31 |.$... I..$....#1|
000008B0: 00 B8 24 BA 04 99 3A 99 00 E7 24 C4 04 99 22 05 |..$...:...$...".|
000008C0: 20 44 49 45 20 44 41 54 45 49 20 57 55 52 44 45 | DIE DATEI WURDE|
000008D0: 20 45 52 46 4F 4C 47 52 45 49 43 48 20 45 52 4F | ERFOLGREICH ERO|
000008E0: 45 46 46 4E 45 54 22 00 1B 25 CE 04 99 3A 99 3A |EFFNET"..%...:.:|
000008F0: 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |."--------------|
00000900: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000910: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 24 25 D8 04 |----------".$%..|
00000920: FE 0B 20 33 00 2D 25 E2 04 89 20 36 30 00 33 25 |.. 3.-%... 60.3%|
00000930: EC 04 80 00 50 25 D0 07 8F 20 2A 2A 2A 20 44 41 |....P%... *** DA|
00000940: 54 45 4E 20 45 49 4E 4C 45 53 45 4E 20 2A 2A 2A |TEN EINLESEN ***|
00000950: 00 62 25 DA 07 E8 3A E7 20 30 2C 32 3A E7 20 34 |.b%...:. 0,2:. 4|
00000960: 2C 32 00 6A 25 E4 07 99 3A 99 00 C2 25 EE 07 99 |,2.j%...:...%...|
00000970: 22 90 20 41 43 48 54 55 4E 47 20 21 20 53 4F 4C |". ACHTUNG ! SOL|
00000980: 4C 54 45 4E 20 53 49 43 48 20 4E 4F 43 48 20 44 |LTEN SICH NOCH D|
00000990: 41 54 45 4E 20 49 4D 22 3A 99 22 20 53 50 45 49 |ATEN IM":." SPEI|
000009A0: 43 48 45 52 20 42 45 46 49 4E 44 45 4E 2C 53 4F |CHER BEFINDEN,SO|
000009B0: 20 57 45 52 44 45 4E 20 44 49 45 53 45 20 4E 55 | WERDEN DIESE NU|
000009C0: 4E 22 00 DA 25 F8 07 99 22 20 55 45 42 45 52 53 |N"..%..." UEBERS|
000009D0: 43 48 52 49 45 42 45 4E 2E 22 00 01 26 02 08 99 |CHRIEBEN."..&...|
000009E0: 22 20 57 45 49 54 45 52 20 4D 49 54 20 27 4A 27 |" WEITER MIT 'J'|
000009F0: 20 41 42 42 52 55 43 48 20 4D 49 54 20 27 4E 27 | ABBRUCH MIT 'N'|
00000A00: 22 00 35 26 0C 08 99 3A 99 3A 99 22 2D 2D 2D 2D |".5&...:.:."----|
00000A10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000A20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000A30: 2D 2D 2D 2D 22 00 41 26 16 08 A1 F9 20 45 49 4E |----".A&.... EIN|
00000A40: 24 00 57 26 20 08 8B 20 45 49 4E 24 B2 22 4E 22 |$.W& .. EIN$."N"|
00000A50: 20 A7 20 89 20 36 30 00 6F 26 2A 08 8B 20 45 49 | . . 60.o&*.. EI|
00000A60: 4E 24 B2 22 4A 22 20 A7 20 89 20 32 31 31 30 00 |N$."J" . . 2110.|
00000A70: 7A 26 34 08 89 20 32 30 37 30 00 82 26 3E 08 99 |z&4.. 2070..&>..|
00000A80: 3A 99 00 D7 26 48 08 99 22 1F 20 44 49 45 20 44 |:...&H..". DIE D|
00000A90: 41 54 45 4E 20 57 45 52 44 45 4E 20 4E 55 4E 20 |ATEN WERDEN NUN |
00000AA0: 41 55 53 20 44 45 52 20 44 41 54 45 49 20 47 45 |AUS DER DATEI GE|
00000AB0: 2D 22 3A 99 22 20 4C 45 53 45 4E 2E 44 41 53 20 |-":." LESEN.DAS |
00000AC0: 42 52 41 55 43 48 54 20 53 45 49 4E 45 20 5A 45 |BRAUCHT SEINE ZE|
00000AD0: 49 54 20 21 21 21 22 00 DF 26 52 08 99 3A 99 00 |IT !!!"..&R..:..|
00000AE0: 0F 27 5C 08 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.'\.."----------|
00000AF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000B00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 |--------------".|
00000B10: 28 27 66 08 FE 0D 23 31 2C 22 4D 55 45 4E 5A 45 |('f...#1,"MUENZE|
00000B20: 4E 2D 44 41 54 45 49 22 00 38 27 70 08 81 20 49 |N-DATEI".8'p.. I|
00000B30: B2 31 20 A4 20 35 30 30 00 5E 27 7A 08 84 31 2C |.1 . 500.^'z..1,|
00000B40: 4E 41 24 28 49 29 2C 41 4E 28 49 29 2C 45 50 28 |NA$(I),AN(I),EP(|
00000B50: 49 29 2C 47 50 28 49 29 2C 4A 41 28 49 29 00 66 |I),GP(I),JA(I).f|
00000B60: 27 84 08 82 20 49 00 6F 27 89 08 FE 0F 23 31 00 |'... I.o'....#1.|
00000B70: 77 27 8E 08 99 3A 99 00 B2 27 98 08 99 22 96 20 |w'...:...'...". |
00000B80: 44 49 45 20 44 41 54 45 4E 20 57 55 52 44 45 4E |DIE DATEN WURDEN|
00000B90: 20 45 52 46 4F 4C 47 52 45 49 43 48 20 45 49 4E | ERFOLGREICH EIN|
00000BA0: 47 45 4C 45 2D 22 3A 99 22 20 53 45 4E 20 21 21 |GELE-":." SEN !!|
00000BB0: 21 22 00 BA 27 A2 08 99 3A 99 00 EA 27 AC 08 99 |!"..'...:...'...|
00000BC0: 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |"---------------|
00000BD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000BE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 F3 27 B6 08 FE |---------"..'...|
00000BF0: 0B 20 33 00 FC 27 C0 08 89 20 36 30 00 02 28 CA |. 3..'... 60..(.|
00000C00: 08 80 00 22 28 B8 0B 8F 20 2A 2A 2A 20 41 55 53 |..."(... *** AUS|
00000C10: 47 41 42 45 20 44 45 52 20 44 41 54 45 4E 20 2A |GABE DER DATEN *|
00000C20: 2A 2A 00 34 28 C2 0B E8 3A E7 20 30 2C 33 3A E7 |**.4(...:. 0,3:.|
00000C30: 20 34 2C 33 00 40 28 CC 0B 41 B2 31 3A 45 B2 35 | 4,3.@(..A.1:E.5|
00000C40: 00 94 28 D6 0B E8 3A 99 22 90 20 20 20 20 20 20 |..(...:.". |
00000C50: 20 20 20 20 20 20 4D 55 45 4E 5A 45 4E 20 4C 49 | MUENZEN LI|
00000C60: 53 54 45 22 3A 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D |STE":."---------|
00000C70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000C80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 |---------------"|
00000C90: 3A 99 3A 99 00 A2 28 E0 0B 81 20 49 B2 41 20 A4 |:.:...(... I.A .|
00000CA0: 20 45 00 C5 28 E5 0B 8B 20 4E 41 24 28 49 29 B2 | E..(... NA$(I).|
00000CB0: 22 22 20 B0 20 41 4E 28 49 29 B2 30 20 A7 20 89 |"" . AN(I).0 . .|
00000CC0: 20 33 31 32 30 00 F9 28 EA 0B 99 22 05 22 3B 49 | 3120..(...".";I|
00000CD0: 3B A3 34 29 22 9E 53 54 55 45 43 4B 5A 2E 3A 22 |;.4)".STUECKZ.:"|
00000CE0: 3B 41 4E 28 49 29 3B A3 31 38 29 22 4E 41 4D 45 |;AN(I);.18)"NAME|
00000CF0: 3A 22 3B 4E 41 24 28 49 29 00 31 29 F4 0B 99 20 |:";NA$(I).1)... |
00000D00: A3 32 29 22 45 2E 50 2E 3A 22 45 50 28 49 29 3B |.2)"E.P.:"EP(I);|
00000D10: A3 31 32 29 22 47 2E 50 2E 3A 22 47 50 28 49 29 |.12)"G.P.:"GP(I)|
00000D20: 3B A3 32 34 29 22 4A 41 48 52 3A 22 4A 41 28 49 |;.24)"JAHR:"JA(I|
00000D30: 29 00 61 29 F9 0B 99 22 2D 2D 2D 2D 2D 2D 2D 2D |).a)..."--------|
00000D40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000D50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000D60: 22 00 69 29 FE 0B 82 20 49 00 90 29 08 0C 99 3A |".i)... I..)...:|
00000D70: 99 3A 99 22 90 20 20 20 20 20 20 20 20 20 20 20 |.:.". |
00000D80: 20 20 3E 3E 3E 20 54 41 53 54 45 20 3C 3C 3C 22 | >>> TASTE <<<"|
00000D90: 00 9C 29 12 0C A1 F9 20 45 49 4E 24 00 AC 29 1C |..).... EIN$..).|
00000DA0: 0C 41 B2 41 AA 35 3A 45 B2 45 AA 35 00 B7 29 26 |.A.A.5:E.E.5..)&|
00000DB0: 0C 89 20 33 30 33 30 00 DE 29 30 0C 99 3A 99 3A |.. 3030..)0..:.:|
00000DC0: 99 22 90 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". |
00000DD0: 3E 3E 3E 20 54 41 53 54 45 20 3C 3C 3C 22 00 EA |>>> TASTE <<<"..|
00000DE0: 29 3A 0C A1 F9 20 45 49 4E 24 00 01 2A 44 0C E8 |):... EIN$..*D..|
00000DF0: 3A E7 20 30 2C 31 3A E7 20 34 2C 31 3A 99 22 1C |:. 0,1:. 4,1:.".|
00000E00: 22 00 22 2A 4E 0C E0 20 31 2C 31 32 2C 31 32 2C |"."*N.. 1,12,12,|
00000E10: 22 45 4E 44 45 20 44 45 52 20 44 41 54 45 4E 20 |"ENDE DER DATEN |
00000E20: 21 22 00 2B 2A 58 0C FE 0B 20 33 00 34 2A 62 0C |!".+*X... 3.4*b.|
00000E30: 89 20 36 30 00 3A 2A 6C 0C 80 00 54 2A A0 0F 8F |. 60.:*l...T*...|
00000E40: 20 2A 2A 2A 20 44 41 54 45 4E 50 46 4C 45 47 45 | *** DATENPFLEGE|
00000E50: 20 2A 2A 2A 00 6A 2A AA 0F E8 3A E7 20 30 2C 34 | ***.j*...:. 0,4|
00000E60: 3A E7 20 34 2C 34 3A 99 3A 99 00 B2 2A B4 0F 99 |:. 4,4:.:...*...|
00000E70: 22 90 20 22 3B 22 12 45 92 22 3B 22 49 4E 47 41 |". ";".E.";"INGA|
00000E80: 42 45 20 56 4F 4E 20 44 41 54 45 4E 20 4F 44 45 |BE VON DATEN ODE|
00000E90: 52 22 3A 99 22 20 22 3B 22 12 41 92 22 3B 22 45 |R":." ";".A.";"E|
00000EA0: 4E 44 45 52 4E 20 56 4F 4E 20 44 41 54 45 4E 20 |NDERN VON DATEN |
00000EB0: 3F 22 00 BA 2A BE 0F 99 3A 99 00 EA 2A C8 0F 99 |?"..*...:...*...|
00000EC0: 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |"---------------|
00000ED0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000EE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 F6 2A D2 0F A1 |---------"..*...|
00000EF0: F9 20 45 49 4E 24 00 24 2B DC 0F 8B 20 45 49 4E |. EIN$.$+... EIN|
00000F00: 24 B2 22 45 22 20 A7 20 89 20 34 31 30 30 3A D5 |$."E" . . 4100:.|
00000F10: 20 8B 20 45 49 4E 24 B2 22 41 22 20 A7 20 89 20 | . EIN$."A" . . |
00000F20: 34 35 30 30 00 2F 2B E6 0F 89 20 34 30 35 30 00 |4500./+... 4050.|
00000F30: 35 2B F0 0F 80 00 47 2B 04 10 8F 20 2A 20 45 49 |5+....G+... * EI|
00000F40: 4E 47 41 42 45 20 2A 00 51 2B 0E 10 E8 3A 99 3A |NGABE *.Q+...:.:|
00000F50: 99 00 81 2B 18 10 99 22 1F 20 49 43 48 20 53 55 |...+...". ICH SU|
00000F60: 43 48 45 20 4E 41 43 48 20 45 49 4E 45 4D 20 46 |CHE NACH EINEM F|
00000F70: 52 45 49 45 4E 20 44 41 54 45 4E 46 45 4C 44 2E |REIEN DATENFELD.|
00000F80: 22 00 B5 2B 22 10 99 3A 99 3A 99 22 2D 2D 2D 2D |"..+"..:.:."----|
00000F90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000FA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000FB0: 2D 2D 2D 2D 22 00 BD 2B 2C 10 49 B2 31 00 E0 2B |----"..+,.I.1..+|
00000FC0: 36 10 8B 20 4E 41 24 28 49 29 B2 22 22 20 B0 20 |6.. NA$(I)."" . |
00000FD0: 41 4E 28 49 29 B2 30 20 A7 20 89 20 34 31 38 30 |AN(I).0 . . 4180|
00000FE0: 00 FB 2B 40 10 49 B2 49 AA 31 3A 8B 20 49 B3 35 |..+@.I.I.1:. I.5|
00000FF0: 30 30 20 A7 20 89 20 34 31 35 30 00 3B 2C 4A 10 |00 . . 4150.;,J.|
00001000: E8 3A E7 20 30 2C 31 3A E7 20 34 2C 31 3A 99 22 |.:. 0,1:. 4,1:."|
00001010: 1C 22 3A E0 20 31 2C 31 32 2C 31 32 2C 22 44 41 |.":. 1,12,12,"DA|
00001020: 54 45 4E 46 45 4C 44 20 56 4F 4C 4C 20 21 21 21 |TENFELD VOLL !!!|
00001030: 22 3A FE 0B 20 33 3A 89 20 36 30 00 43 2C 54 10 |":.. 3:. 60.C,T.|
00001040: 99 3A 99 00 73 2C 5E 10 99 22 90 20 49 43 48 20 |.:..s,^..". ICH |
00001050: 48 41 42 45 20 45 49 4E 20 46 52 45 49 45 53 20 |HABE EIN FREIES |
00001060: 44 41 54 45 4E 46 45 4C 44 20 47 45 46 55 4E 44 |DATENFELD GEFUND|
00001070: 45 4E 22 00 A7 2C 68 10 99 3A 99 3A 99 22 2D 2D |EN"..,h..:.:."--|
00001080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000010A0: 2D 2D 2D 2D 2D 2D 22 00 AF 2C 72 10 99 3A 99 00 |------"..,r..:..|
000010B0: C2 2C 7C 10 99 22 1F 20 45 49 4E 47 41 42 45 20 |.,|..". EINGABE |
000010C0: 3A 22 00 E3 2C 86 10 85 22 20 4E 41 4D 45 20 44 |:"..,..." NAME D|
000010D0: 45 52 20 4D 55 45 4E 5A 45 20 20 22 3B 4E 41 24 |ER MUENZE ";NA$|
000010E0: 28 49 29 00 03 2D 90 10 85 22 20 53 54 55 45 43 |(I)..-..." STUEC|
000010F0: 4B 5A 41 48 4C 20 20 20 20 20 20 20 22 3B 41 4E |KZAHL ";AN|
00001100: 28 49 29 00 23 2D 9A 10 85 22 20 45 49 4E 5A 45 |(I).#-..." EINZE|
00001110: 4C 2D 50 52 45 49 53 20 20 20 20 20 22 3B 45 50 |L-PREIS ";EP|
00001120: 28 49 29 00 43 2D A4 10 85 22 20 50 52 41 45 47 |(I).C-..." PRAEG|
00001130: 55 4E 47 53 4A 41 48 52 20 20 20 20 22 3B 4A 41 |UNGSJAHR ";JA|
00001140: 28 49 29 00 59 2D AE 10 47 50 28 49 29 B2 41 4E |(I).Y-..GP(I).AN|
00001150: 28 49 29 AC 45 50 28 49 29 00 74 2D B8 10 47 50 |(I).EP(I).t-..GP|
00001160: 28 49 29 B2 B5 28 47 50 28 49 29 AC 31 30 30 29 |(I)..(GP(I).100)|
00001170: AD 31 30 30 00 7C 2D C2 10 99 3A 99 00 FB 2D CC |.100.|-...:...-.|
00001180: 10 99 22 90 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..".------------|
00001190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000011A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3A 99 22 |------------":."|
000011B0: 20 20 20 20 20 20 20 20 20 20 20 4D 55 45 4E 5A | MUENZ|
000011C0: 53 54 45 43 4B 42 52 49 45 46 20 3A 22 3A 99 22 |STECKBRIEF :":."|
000011D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000011E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000011F0: 2D 2D 2D 2D 2D 2D 2D 2D 22 3A 99 00 1B 2E D6 10 |--------":......|
00001200: 99 22 20 2A 20 4E 41 4D 45 20 20 20 20 20 20 20 |." * NAME |
00001210: 20 3A 20 22 3B 4E 41 24 28 49 29 00 39 2E E0 10 | : ";NA$(I).9...|
00001220: 99 22 20 2A 20 53 54 55 45 43 4B 5A 41 48 4C 20 |." * STUECKZAHL |
00001230: 20 3A 22 3B 41 4E 28 49 29 00 57 2E EA 10 99 22 | :";AN(I).W...."|
00001240: 20 2A 20 45 49 4E 5A 45 4C 2D 50 52 45 49 53 3A | * EINZEL-PREIS:|
00001250: 22 3B 45 50 28 49 29 00 75 2E F4 10 99 22 20 2A |";EP(I).u...." *|
00001260: 20 47 45 53 2E 2D 50 52 45 49 53 20 20 3A 22 3B | GES.-PREIS :";|
00001270: 47 50 28 49 29 00 93 2E FE 10 99 22 20 2A 20 50 |GP(I)......" * P|
00001280: 52 2E 2D 4A 41 48 52 20 20 20 20 3A 22 3B 4A 41 |R.-JAHR :";JA|
00001290: 28 49 29 00 B8 2E 08 11 99 3A 99 22 41 4C 4C 45 |(I)......:."ALLE|
000012A0: 53 20 52 49 43 48 54 49 47 20 20 28 27 4A 27 20 |S RICHTIG ('J' |
000012B0: 2F 20 27 4E 27 29 20 22 00 C4 2E 12 11 A1 F9 20 |/ 'N') "....... |
000012C0: 45 49 4E 24 00 DC 2E 1C 11 8B 20 45 49 4E 24 B2 |EIN$...... EIN$.|
000012D0: 22 4E 22 20 A7 20 89 20 34 32 30 30 00 F2 2E 26 |"N" . . 4200...&|
000012E0: 11 8B 20 45 49 4E 24 B2 22 4A 22 20 A7 20 89 20 |.. EIN$."J" . . |
000012F0: 36 30 00 FD 2E 30 11 89 20 34 33 37 30 00 03 2F |60...0.. 4370../|
00001300: 3A 11 80 00 15 2F 94 11 8F 20 2A 20 41 45 4E 44 |:..../... * AEND|
00001310: 45 52 4E 20 2A 00 1D 2F 9E 11 99 3A 99 00 68 2F |ERN *../...:..h/|
00001320: A8 11 99 22 90 20 42 49 54 54 45 20 47 45 42 45 |...". BITTE GEBE|
00001330: 4E 20 53 49 45 20 44 49 45 20 4E 55 4D 4D 45 52 |N SIE DIE NUMMER|
00001340: 20 44 45 53 20 5A 55 22 3A 99 22 20 41 45 4E 44 | DES ZU":." AEND|
00001350: 45 52 4E 44 45 4E 20 44 41 54 45 4E 53 41 54 5A |ERNDEN DATENSATZ|
00001360: 45 53 20 45 49 4E 22 3B 00 72 2F B2 11 85 20 45 |ES EIN";.r/... E|
00001370: 49 4E 00 F4 2F BC 11 99 3A 99 3A 99 22 2D 2D 2D |IN../...:.:."---|
00001380: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001390: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000013A0: 2D 2D 2D 2D 2D 22 3A 99 22 20 20 20 20 20 20 20 |-----":." |
000013B0: 20 44 41 54 45 4E 53 41 54 5A 20 4E 52 2E 20 22 | DATENSATZ NR. "|
000013C0: 3B 45 49 4E 3A 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D |;EIN:."---------|
000013D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000013E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 |---------------"|
000013F0: 3A 99 3A 99 00 14 30 C6 11 99 22 20 2A 20 4E 41 |:.:...0..." * NA|
00001400: 4D 45 20 20 20 20 20 20 20 3A 22 3B 4E 41 24 28 |ME :";NA$(|
00001410: 45 49 4E 29 00 33 30 D0 11 99 22 20 2A 20 53 54 |EIN).30..." * ST|
00001420: 55 45 43 4B 5A 41 48 4C 20 3A 22 3B 41 4E 28 45 |UECKZAHL :";AN(E|
00001430: 49 4E 29 00 52 30 DA 11 99 22 20 2A 20 45 2E 2D |IN).R0..." * E.-|
00001440: 50 52 45 49 53 20 20 20 3A 22 3B 45 50 28 45 49 |PREIS :";EP(EI|
00001450: 4E 29 00 71 30 E4 11 99 22 20 2A 20 47 2E 2D 50 |N).q0..." * G.-P|
00001460: 52 45 49 53 20 20 20 3A 22 3B 47 50 28 45 49 4E |REIS :";GP(EIN|
00001470: 29 00 90 30 EE 11 99 22 20 2A 20 50 2E 2D 4A 41 |)..0..." * P.-JA|
00001480: 48 52 20 20 20 20 3A 22 3B 4A 41 28 45 49 4E 29 |HR :";JA(EIN)|
00001490: 00 96 30 F8 11 99 00 B8 30 02 12 99 22 12 41 92 |..0.....0...".A.|
000014A0: 45 4E 44 45 52 4E 20 4F 44 45 52 20 12 5A 92 55 |ENDERN ODER .Z.U|
000014B0: 52 55 45 43 4B 20 3F 22 00 C0 30 0C 12 99 3A 99 |RUECK ?"..0...:.|
000014C0: 00 F0 30 16 12 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D |..0..."---------|
000014D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000014E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 |---------------"|
000014F0: 00 FC 30 20 12 A1 F9 20 45 49 4E 24 00 12 31 2A |..0 ... EIN$..1*|
00001500: 12 8B 20 45 49 4E 24 B2 22 5A 22 20 A7 20 89 20 |.. EIN$."Z" . . |
00001510: 36 30 00 2A 31 34 12 8B 20 45 49 4E 24 B2 22 41 |60.*14.. EIN$."A|
00001520: 22 20 A7 20 89 20 34 36 38 30 00 35 31 3E 12 89 |" . . 4680.51>..|
00001530: 20 34 36 34 30 00 3D 31 48 12 99 3A 99 00 52 31 | 4640.=1H..:..R1|
00001540: 52 12 99 22 20 4E 45 55 45 49 4E 47 41 42 45 20 |R.." NEUEINGABE |
00001550: 3A 22 00 70 31 5C 12 85 22 4E 41 4D 45 20 20 20 |:".p1\.."NAME |
00001560: 20 20 20 20 20 20 22 3B 4E 41 24 28 45 49 4E 29 | ";NA$(EIN)|
00001570: 00 8D 31 66 12 85 22 53 54 55 45 43 4B 5A 41 48 |..1f.."STUECKZAH|
00001580: 4C 20 20 20 22 3B 41 4E 28 45 49 4E 29 00 AA 31 |L ";AN(EIN)..1|
00001590: 70 12 85 22 45 2E 2D 50 52 45 49 53 20 20 20 20 |p.."E.-PREIS |
000015A0: 20 22 3B 45 50 28 45 49 4E 29 00 C7 31 7A 12 85 | ";EP(EIN)..1z..|
000015B0: 22 50 2E 2D 4A 41 48 52 20 20 20 20 20 20 22 3B |"P.-JAHR ";|
000015C0: 4A 41 28 45 49 4E 29 00 CF 31 84 12 99 3A 99 00 |JA(EIN)..1...:..|
000015D0: 4D 32 8E 12 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |M2..."----------|
000015E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000015F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3A |--------------":|
00001600: 99 22 20 20 20 20 20 20 20 4E 45 55 45 52 20 4D |." NEUER M|
00001610: 55 45 4E 5A 53 54 45 43 4B 42 52 49 45 46 22 3A |UENZSTECKBRIEF":|
00001620: 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |."--------------|
00001630: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001640: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3A 99 00 6E 32 |----------":..n2|
00001650: 98 12 99 22 20 2A 20 4E 41 4D 45 20 20 20 20 20 |..." * NAME |
00001660: 20 20 20 3A 22 3B 4E 41 24 28 45 49 4E 29 00 8E | :";NA$(EIN)..|
00001670: 32 A2 12 99 22 20 2A 20 53 54 55 45 43 4B 5A 41 |2..." * STUECKZA|
00001680: 48 4C 20 20 3A 22 3B 41 4E 28 45 49 4E 29 00 AE |HL :";AN(EIN)..|
00001690: 32 AC 12 99 22 20 2A 20 45 2E 2D 50 52 45 49 53 |2..." * E.-PREIS|
000016A0: 20 20 20 20 3A 22 3B 45 50 28 45 49 4E 29 00 CA | :";EP(EIN)..|
000016B0: 32 B6 12 47 50 28 45 49 4E 29 B2 45 50 28 45 49 |2..GP(EIN).EP(EI|
000016C0: 4E 29 AC 41 4E 28 45 49 4E 29 00 E9 32 C0 12 47 |N).AN(EIN)..2..G|
000016D0: 50 28 45 49 4E 29 B2 B5 28 47 50 28 45 49 4E 29 |P(EIN)..(GP(EIN)|
000016E0: AC 31 30 30 29 AD 31 30 30 00 09 33 CA 12 99 22 |.100).100..3..."|
000016F0: 20 2A 20 47 2E 2D 50 52 45 49 53 20 20 20 20 3A | * G.-PREIS :|
00001700: 22 3B 47 50 28 45 49 4E 29 00 29 33 D4 12 99 22 |";GP(EIN).)3..."|
00001710: 20 2A 20 50 2E 2D 4A 41 48 52 20 20 20 20 20 3A | * P.-JAHR :|
00001720: 22 3B 4A 41 28 45 49 4E 29 00 50 33 DE 12 99 3A |";JA(EIN).P3...:|
00001730: 99 22 20 41 4C 4C 45 53 20 52 49 43 48 54 49 47 |." ALLES RICHTIG|
00001740: 20 3F 20 20 28 27 4A 27 20 2F 20 27 4E 27 29 22 | ? ('J' / 'N')"|
00001750: 00 84 33 E8 12 99 3A 99 3A 99 22 2D 2D 2D 2D 2D |..3...:.:."-----|
00001760: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001770: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001780: 2D 2D 2D 22 00 90 33 F2 12 A1 F9 20 45 49 4E 24 |---"..3.... EIN$|
00001790: 00 A8 33 FC 12 8B 20 45 49 4E 24 B2 22 4E 22 20 |..3... EIN$."N" |
000017A0: A7 20 89 20 34 36 38 30 00 BE 33 06 13 8B 20 45 |. . 4680..3... E|
000017B0: 49 4E 24 B2 22 4A 22 20 A7 20 89 20 36 30 00 C9 |IN$."J" . . 60..|
000017C0: 33 10 13 89 20 34 38 35 30 00 CF 33 1A 13 80 00 |3... 4850..3....|
000017D0: EA 33 88 13 8F 20 2A 2A 2A 20 50 52 4F 47 52 41 |.3... *** PROGRA|
000017E0: 4D 4D 45 4E 44 45 20 2A 2A 2A 00 FC 33 92 13 E8 |MMENDE ***..3...|
000017F0: 3A E7 20 30 2C 36 3A E7 20 34 2C 36 00 04 34 9C |:. 0,6:. 4,6..4.|
00001800: 13 99 3A 99 00 42 34 A6 13 99 22 90 20 44 49 45 |..:..B4...". DIE|
00001810: 20 44 41 54 45 4E 20 57 45 52 44 45 4E 20 4E 55 | DATEN WERDEN NU|
00001820: 4E 20 41 55 46 20 44 49 53 4B 45 54 54 45 20 47 |N AUF DISKETTE G|
00001830: 45 2D 22 3A 99 22 20 53 49 43 48 45 52 54 20 21 |E-":." SICHERT !|
00001840: 21 21 00 76 34 B0 13 99 3A 99 3A 99 22 2D 2D 2D |!!.v4...:.:."---|
00001850: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001860: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001870: 2D 2D 2D 2D 2D 22 00 7E 34 BA 13 99 3A 99 00 B8 |-----".~4...:...|
00001880: 34 C4 13 99 22 20 44 41 5A 55 20 4D 55 53 53 20 |4..." DAZU MUSS |
00001890: 44 49 45 20 4C 49 53 54 45 20 45 52 53 54 20 53 |DIE LISTE ERST S|
000018A0: 4F 52 54 49 45 52 54 20 22 3A 99 22 20 57 45 52 |ORTIERT ":." WER|
000018B0: 44 45 4E 20 21 21 21 22 00 EC 34 CE 13 99 3A 99 |DEN !!!"..4...:.|
000018C0: 3A 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |:."-------------|
000018D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000018E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 F8 34 D8 |-----------"..4.|
000018F0: 13 41 B2 31 3A 4E B2 31 00 21 35 E2 13 8B 20 4E |.A.1:N.1.!5... N|
00001900: 41 24 28 41 29 B2 22 22 20 B0 20 41 4E 28 41 29 |A$(A)."" . AN(A)|
00001910: B2 30 20 A7 20 41 B2 41 AA 31 3A 89 20 35 31 36 |.0 . A.A.1:. 516|
00001920: 30 00 33 35 EC 13 4E 41 24 28 4E 29 B2 4E 41 24 |0.35..NA$(N).NA$|
00001930: 28 41 29 00 43 35 F6 13 41 4E 28 4E 29 B2 41 4E |(A).C5..AN(N).AN|
00001940: 28 41 29 00 53 35 00 14 45 50 28 4E 29 B2 45 50 |(A).S5..EP(N).EP|
00001950: 28 41 29 00 63 35 0A 14 47 50 28 4E 29 B2 47 50 |(A).c5..GP(N).GP|
00001960: 28 41 29 00 73 35 14 14 4A 41 28 4E 29 B2 4A 41 |(A).s5..JA(N).JA|
00001970: 28 41 29 00 83 35 1E 14 41 B2 41 AA 31 3A 4E B2 |(A)..5..A.A.1:N.|
00001980: 4E AA 31 00 98 35 28 14 8B 20 41 B3 35 30 30 20 |N.1..5(.. A.500 |
00001990: A7 20 89 20 35 30 39 30 00 AA 35 29 14 81 20 54 |. . 5090..5).. T|
000019A0: B2 4E AA 31 20 A4 20 35 30 30 00 D8 35 2A 14 4E |.N.1 . 500..5*.N|
000019B0: 41 24 28 54 29 B2 22 22 3A 41 4E 28 54 29 B2 30 |A$(T)."":AN(T).0|
000019C0: 3A 45 50 28 54 29 B2 30 3A 47 50 28 54 29 B2 30 |:EP(T).0:GP(T).0|
000019D0: 3A 4A 41 28 54 29 B2 30 00 E0 35 2B 14 82 20 54 |:JA(T).0..5+.. T|
000019E0: 00 E8 35 32 14 99 3A 99 00 37 36 3C 14 99 22 20 |..52..:..76<.." |
000019F0: 44 49 45 20 4C 49 53 54 45 20 57 55 52 44 45 20 |DIE LISTE WURDE |
00001A00: 4E 45 55 20 53 4F 52 54 49 45 52 54 2E 4E 55 4E |NEU SORTIERT.NUN|
00001A10: 20 57 49 52 44 22 3A 99 22 20 44 45 52 20 47 45 | WIRD":." DER GE|
00001A20: 53 41 4D 54 57 45 52 54 20 45 52 52 45 43 48 4E |SAMTWERT ERRECHN|
00001A30: 45 54 20 21 21 21 22 00 6B 36 46 14 99 3A 99 3A |ET !!!".k6F..:.:|
00001A40: 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |."--------------|
00001A50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001A60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 78 36 50 14 |----------".x6P.|
00001A70: 47 45 53 41 4D 54 B2 30 00 88 36 5A 14 81 20 49 |GESAMT.0..6Z.. I|
00001A80: B2 31 20 A4 20 35 30 30 00 A0 36 64 14 47 45 53 |.1 . 500..6d.GES|
00001A90: 41 4D 54 B2 47 45 53 41 4D 54 AA 47 50 28 49 29 |AMT.GESAMT.GP(I)|
00001AA0: 00 A8 36 6E 14 82 20 49 00 B0 36 78 14 99 3A 99 |..6n.. I..6x..:.|
00001AB0: 00 DD 36 82 14 99 22 20 44 45 52 20 47 45 53 41 |..6..." DER GESA|
00001AC0: 4D 54 57 45 52 54 20 42 45 54 52 41 45 47 54 3A |MTWERT BETRAEGT:|
00001AD0: 22 3B 47 45 53 41 4D 54 3B 22 44 4D 22 00 11 37 |";GESAMT;"DM"..7|
00001AE0: 8C 14 99 3A 99 3A 99 22 2D 2D 2D 2D 2D 2D 2D 2D |...:.:."--------|
00001AF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001B00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001B10: 22 00 19 37 96 14 99 3A 99 00 58 37 A0 14 99 22 |"..7...:..X7..."|
00001B20: 20 4E 55 4E 20 57 49 52 44 20 44 49 45 20 4E 45 | NUN WIRD DIE NE|
00001B30: 55 45 20 4C 49 53 54 45 20 41 55 46 20 44 49 53 |UE LISTE AUF DIS|
00001B40: 4B 45 54 54 45 22 3A 99 22 20 47 45 53 49 43 48 |KETTE":." GESICH|
00001B50: 45 52 54 20 21 21 21 22 00 8C 37 AA 14 99 3A 99 |ERT !!!"..7...:.|
00001B60: 3A 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |:."-------------|
00001B70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001B80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 A2 37 AC |-----------"..7.|
00001B90: 14 F2 22 4D 55 45 4E 5A 45 4E 2D 47 45 53 41 4D |.."MUENZEN-GESAM|
00001BA0: 54 22 00 BE 37 AE 14 FE 0D 23 31 2C 22 4D 55 45 |T"..7....#1,"MUE|
00001BB0: 4E 5A 45 4E 2D 47 45 53 41 4D 54 22 2C 57 00 D2 |NZEN-GESAMT",W..|
00001BC0: 37 B0 14 98 31 2C 47 45 53 41 4D 54 3B C7 28 31 |7...1,GESAMT;.(1|
00001BD0: 33 29 00 DB 37 B2 14 FE 0F 23 31 00 F0 37 B4 14 |3)..7....#1..7..|
00001BE0: F2 22 4D 55 45 4E 5A 45 4E 2D 44 41 54 45 49 22 |."MUENZEN-DATEI"|
00001BF0: 00 0B 38 BE 14 FE 0D 23 31 2C 22 4D 55 45 4E 5A |..8....#1,"MUENZ|
00001C00: 45 4E 2D 44 41 54 45 49 22 2C 57 00 1B 38 C8 14 |EN-DATEI",W..8..|
00001C10: 81 20 49 B2 31 20 A4 20 35 30 30 00 5F 38 D2 14 |. I.1 . 500._8..|
00001C20: 98 31 2C 4E 41 24 28 49 29 3B C7 28 31 33 29 3B |.1,NA$(I);.(13);|
00001C30: 41 4E 28 49 29 3B C7 28 31 33 29 3B 45 50 28 49 |AN(I);.(13);EP(I|
00001C40: 29 3B C7 28 31 33 29 3B 47 50 28 49 29 3B C7 28 |);.(13);GP(I);.(|
00001C50: 31 33 29 3B 4A 41 28 49 29 3B C7 28 31 33 29 00 |13);JA(I);.(13).|
00001C60: 67 38 DC 14 82 20 49 00 70 38 E6 14 FE 0F 23 31 |g8... I.p8....#1|
00001C70: 00 78 38 F0 14 99 3A 99 00 A8 38 FA 14 99 22 20 |.x8...:...8..." |
00001C80: 44 49 45 20 44 41 54 45 4E 20 57 55 52 44 45 4E |DIE DATEN WURDEN|
00001C90: 20 45 52 46 4F 4C 47 52 45 49 43 48 20 47 45 53 | ERFOLGREICH GES|
00001CA0: 49 43 48 45 52 54 21 22 00 DC 38 04 15 99 3A 99 |ICHERT!"..8...:.|
00001CB0: 3A 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |:."-------------|
00001CC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001CD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 E5 38 0E |-----------"..8.|
00001CE0: 15 FE 0B 20 33 00 EE 38 18 15 89 20 36 30 00 F4 |... 3..8... 60..|
00001CF0: 38 22 15 80 00 1A 39 70 17 8F 20 2A 2A 2A 20 47 |8"....9p.. *** G|
00001D00: 45 53 41 4D 54 57 45 52 54 20 44 45 52 20 53 41 |ESAMTWERT DER SA|
00001D10: 4D 4D 4C 55 4E 47 20 2A 2A 2A 00 22 39 7A 17 E8 |MMLUNG ***."9z..|
00001D20: 20 30 00 5B 39 84 17 99 3A 99 3A 99 22 05 3D 3D | 0.[9...:.:.".==|
00001D30: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001D40: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001D50: 3D 3D 3D 3D 3D 3D 22 3A 99 3A 99 00 89 39 8E 17 |======":.:...9..|
00001D60: 99 22 81 20 44 45 52 20 47 45 53 41 4D 54 57 45 |.". DER GESAMTWE|
00001D70: 52 54 20 44 45 52 20 4D 55 45 4E 5A 45 4E 53 41 |RT DER MUENZENSA|
00001D80: 4D 4D 4C 55 4E 47 22 3A 99 00 9E 39 98 17 99 22 |MMLUNG":...9..."|
00001D90: 20 42 45 54 52 41 45 47 54 20 3A 20 22 3B 00 B8 | BETRAEGT : ";..|
00001DA0: 39 A2 17 FE 0D 23 31 2C 22 4D 55 45 4E 5A 45 4E |9....#1,"MUENZEN|
00001DB0: 2D 47 45 53 41 4D 54 22 00 C4 39 AC 17 84 31 2C |-GESAMT"..9...1,|
00001DC0: 57 45 52 54 00 CD 39 B6 17 FE 0F 23 31 00 ED 39 |WERT..9....#1..9|
00001DD0: C0 17 99 22 96 22 3B 57 45 52 54 3B 22 81 20 44 |...".";WERT;". D|
00001DE0: 45 55 54 53 43 48 45 20 4D 41 52 4B 22 00 2E 3A |EUTSCHE MARK"..:|
00001DF0: CA 17 99 3A 99 3A 99 22 05 3D 3D 3D 3D 3D 3D 3D |...:.:.".=======|
00001E00: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001E10: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001E20: 3D 22 3A 99 3A 99 3A 99 3A 99 3A 99 3A 99 00 5D |=":.:.:.:.:.:..]|
00001E30: 3A D4 17 99 22 9E 3E 3E 3E 3E 3E 20 20 42 49 54 |:...".>>>>> BIT|
00001E40: 54 45 20 45 49 4E 45 20 54 41 53 54 45 20 44 52 |TE EINE TASTE DR|
00001E50: 55 45 43 4B 45 4E 20 3C 3C 3C 3C 3C 22 00 69 3A |UECKEN <<<<<".i:|
00001E60: DE 17 A1 F9 20 45 49 4E 24 00 72 3A E8 17 89 20 |.... EIN$.r:... |
00001E70: 36 30 00 00 00 2D 2D 2D 2D |60...---- |
..*.... ********************************
**.S.... *
*.|.... * PUBLIC-DOMAIN SOFTWARE
*...... * FUER DEN PC 128
*.N.... *
*...... ***************************
*******.....:.....:.....:.....:.7.... ""
"""""""""""""""""""""""""""""""._.... "
"...... "
PROGRAM WAS MADE BY ..... "...... "
".W.... "
PETER KLEIN "...... "
".'.... "-
------------------------------".O.... "
".W.... "
COPY ME, I WANT TO TRAVEL ! "...... "
".G.... "-
------------------------------"...... "
"...... "
BASIC VERSION 7.0/40 ZEICHEN ".?.... "
ASCII CODE ".G.... "
"...... ""
""""""""""""""""""""""""""""""".....:...
..:.....:.....:.....:.U.(..-------------
---------------------.. 2.. NA$(500),AN(
500),ST(500),EP(500),GP(500),JA(500).# <
.W 60:.:. 0,1:. 4,1.. F..".#############
###########################":." MUE
NZENDATEI-VERTEILERMENUE":."############
############################":.:.:..T P.
.". [1] NEUE DATEI INITIALISIEREN":...!Z
..". [2] DATEN EINLESEN (PROGRAMMBEGINN)
":..,!D..". [3] AUSGABE DER DATEN (LISTE
)":..M!N..". [4] AENDERN VON DATEN":..I!
X..". [5] PROGRAMMENDE":...!}..". [6] GE
SAMTWERT DER SAMMLUNG":.:...!...:.:.:.".
>>> IHRE WAHL ? <<<"..!.... EIN$.P! .EIN
.E(EIN$).."... EIN.0 . EIN.7 . . EIN .
1000,2000,3000,4000,5000,6000.."... 150.
."H...:"... *** INITIALISIEREN ***.L"...
:. 0,8:. 4,8.T"...:..."...". DIESER MENU
EPUNKT FUEHRT ZU VOELLIGEM".."..." DATEN
VERLUST.-WOLLEN SIE WEITERMACHEN?".S"...
" EINGABE 'J' ODER 'N'":.:...#$.."------
----------------------------------"..#..
.. EIN$.%#8.. EIN$."N" . . 60.=#B.. EIN$
."J" . . 1110.H#L.. 1070.P#V..:..~#`..".
DIE DATEI WIRD NUN EROEFFNET.DAS BE-"..
#J.." NOETIGT EINE GEWISSE ZEIT !!!!":.:
..Y#T.."--------------------------------
--------"..#Y.."MUENZEN-DATEI"..$~...#1,
"MUENZEN-DATEI",W..$... I.1 . 500.O$..NA
$(I)."":AN(I).0:ST(I).0:EP(I).0:GP(I).0:
JA(I).0..$...1,NA$(I);G(13);AN(I);G(13);
ST(I);G(13);EP(I);G(13);GP(I);G(13);JA(I
);G(13)..$... I..$....#1..$...:...$D..".
DIE DATEI WURDE ERFOLGREICH EROEFFNET".
.%N..:.:."------------------------------
----------".$%X... 3.-%... 60.3%....P%P.
. *** DATEN EINLESEN ***.B%Z..:. 0,2:. 4
,2.J%...:..B%...". ACHTUNG ! SOLLTEN SIC
H NOCH DATEN IM":." SPEICHER BEFINDEN,SO
WERDEN DIESE NUN".Z%..." UEBERSCHRIEBEN
."..&..." WEITER MIT 'J' ABBRUCH MIT 'N'
".5&...:.:."----------------------------
------------".A&.... EIN$.W& .. EIN$."N"
. . 60.O&*.. EIN$."J" . . 2110.Z&4.. 20
70..&>..:..W&H..". DIE DATEN WERDEN NUN
AUS DER DATEI GE-":." LESEN.DAS BRAUCHT
SEINE ZEIT !!!"..&R..:...'\.."----------
------------------------------".('F...#1
,"MUENZEN-DATEI".8'P.. I.1 . 500.^'Z..1,
NA$(I),AN(I),EP(I),GP(I),JA(I).F'... I.O
'....#1.W'...:...'...". DIE DATEN WURDEN
ERFOLGREICH EINGELE-":." SEN !!!"..'...
:...'..."-------------------------------
---------"..'.... 3..'... 60..(J..."(...
*** AUSGABE DER DATEN ***.4(B..:. 0,3:.
4,3.@(L.A.1:E.5..(V..:.". MU
ENZEN LISTE":."-------------------------
---------------":.:...(... I.A . E.E(...
NA$(I)."" . AN(I).0 . . 3120..(...".";I
;.4)".STUECKZ.:";AN(I);.18)"NAME:";NA$(I
).1)... .2)"E.P.:"EP(I);.12)"G.P.:"GP(I)
;.24)"JAHR:"JA(I).A)..."----------------
------------------------".I)... I..)...:
.:.". >>> TASTE <<<"..)....
EIN$..)..A.A.5:E.E.5..)&.. 3030..)0..:.:
.". >>> TASTE <<<"..):... EI
N$..*D..:. 0,1:. 4,1:."."."*N.. 1,12,12,
"ENDE DER DATEN !".+*X... 3.4*B.. 60.:*L
...T* .. *** DATENPFLEGE ***.J*...:. 0,4
:. 4,4:.:...*...". ";".E.";"INGABE VON D
ATEN ODER":." ";".A.";"ENDERN VON DATEN
?"..*...:...*H.."-----------------------
-----------------"..*R... EIN$.$+... EIN
$."E" . . 4100:U . EIN$."A" . . 4500./+.
.. 4050.5+....G+... * EINGABE *.Q+...:.:
...+...". ICH SUCHE NACH EINEM FREIEN DA
TENFELD."..+"..:.:."--------------------
--------------------"..+,.I.1..+6.. NA$(
I)."" . AN(I).0 . . 4180..+@.I.I.1:. I.5
00 . . 4150.;,J..:. 0,1:. 4,1:.".":. 1,1
2,12,"DATENFELD VOLL !!!":.. 3:. 60.C,T.
.:..S,^..". ICH HABE EIN FREIES DATENFEL
D GEFUNDEN"..,H..:.:."------------------
----------------------"..,R..:..B,|..".
EINGABE :"..,..." NAME DER MUENZE ";NA$
(I)..-..." STUECKZAHL ";AN(I).#-..
." EINZEL-PREIS ";EP(I).C-..." PRAEG
UNGSJAHR ";JA(I).Y-..GP(I).AN(I).EP(I
).T-..GP(I)..(GP(I).100).100.|-B..:...-L
..".------------------------------------
----":." MUENZSTECKBRIEF :":."
----------------------------------------
":....V.." * NAME : ";NA$(I).9...
." * STUECKZAHL :";AN(I).W...." * EINZE
L-PREIS:";EP(I).U...." * GES.-PREIS :";
GP(I)......" * PR.-JAHR :";JA(I).....
.:."ALLES RICHTIG ('J' / 'N') ".D.....
EIN$...... EIN$."N" . . 4200...&.. EIN$.
"J" . . 60...0.. 4370../:..../... * AEND
ERN *../...:..H/...". BITTE GEBEN SIE DI
E NUMMER DES ZU":." AENDERNDEN DATENSATZ
ES EIN";.R/... EIN../...:.:."-----------
-----------------------------":."
DATENSATZ NR. ";EIN:."-----------------
-----------------------":.:...0F.." * NA
ME :";NA$(EIN).30P.." * STUECKZAHL
:";AN(EIN).R0Z.." * E.-PREIS :";EP(EI
N).Q0..." * G.-PREIS :";GP(EIN)..0..."
* P.-JAHR :";JA(EIN)..0.....0...".A.
ENDERN ODER .Z.URUECK ?"..0...:...0..."-
---------------------------------------"
..0 ... EIN$..1*.. EIN$."Z" . . 60.*14..
EIN$."A" . . 4680.51>.. 4640.=1H..:..R1
R.." NEUEINGABE :".P1\.."NAME ";
NA$(EIN)..1F.."STUECKZAHL ";AN(EIN)..1
P.."E.-PREIS ";EP(EIN).G1Z.."P.-JAHR
";JA(EIN).O1...:..M2..."----------
------------------------------":."
NEUER MUENZSTECKBRIEF":."--------------
--------------------------":..N2..." * N
AME :";NA$(EIN)..2..." * STUECKZA
HL :";AN(EIN)..2..." * E.-PREIS :";E
P(EIN).J2..GP(EIN).EP(EIN).AN(EIN)..2..G
P(EIN)..(GP(EIN).100).100..3J.." * G.-PR
EIS :";GP(EIN).)3T.." * P.-JAHR :
";JA(EIN).P3...:." ALLES RICHTIG ? ('J'
/ 'N')"..3...:.:."---------------------
-------------------"..3.... EIN$..3... E
IN$."N" . . 4680..3... EIN$."J" . . 60.I
3... 4850.O3.....3... *** PROGRAMMENDE *
**..3...:. 0,6:. 4,6..4...:..B4...". DIE
DATEN WERDEN NUN AUF DISKETTE GE-":." S
ICHERT !!!.V4...:.:."-------------------
---------------------".~4...:...4D.." DA
ZU MUSS DIE LISTE ERST SORTIERT ":." WER
DEN !!!"..4N..:.:."---------------------
-------------------"..4X.A.1:N.1.!5... N
A$(A)."" . AN(A).0 . A.A.1:. 5160.35..NA
$(N).NA$(A).C5..AN(N).AN(A).S5..EP(N).EP
(A).C5..GP(N).GP(A).S5..JA(N).JA(A)..5..
A.A.1:N.N.1..5(.. A.500 . . 5090..5).. T
.N.1 . 500.X5*.NA$(T)."":AN(T).0:EP(T).0
:GP(T).0:JA(T).0..5+.. T..52..:..76<.."
DIE LISTE WURDE NEU SORTIERT.NUN WIRD":.
" DER GESAMTWERT ERRECHNET !!!".K6F..:.:
."--------------------------------------
--".X6P.GESAMT.0..6Z.. I.1 . 500. 6D.GES
AMT.GESAMT.GP(I)..6N.. I..6X..:...6..."
DER GESAMTWERT BETRAEGT:";GESAMT;"DM"..7
...:.:."--------------------------------
--------"..7...:..X7 .." NUN WIRD DIE NE
UE LISTE AUF DISKETTE":." GESICHERT !!!"
..7...:.:."-----------------------------
-----------"..7..."MUENZEN-GESAMT"..7...
.#1,"MUENZEN-GESAMT",W.R7...1,GESAMT;G(1
3)..7....#1..7..."MUENZEN-DATEI"..8....#
1,"MUENZEN-DATEI",W..8H.. I.1 . 500._8R.
.1,NA$(I);G(13);AN(I);G(13);EP(I);G(13);
GP(I);G(13);JA(I);G(13).G8... I.P8....#1
.X8...:...8..." DIE DATEN WURDEN ERFOLGR
EICH GESICHERT!"..8...:.:."-------------
---------------------------"..8.... 3..8
... 60..8"....9P.. *** GESAMTWERT DER SA
MMLUNG ***."9Z.. 0.[9...:.:.".==========
==============================":.:...9..
.". DER GESAMTWERT DER MUENZENSAMMLUNG":
...9..." BETRAEGT : ";..9....#1,"MUENZEN
-GESAMT".D9...1,WERT.M9....#1..9...".";W
ERT;". DEUTSCHE MARK"..:J..:.:.".=======
=================================":.:.:.
:.:.:..]:T..".>>>>> BITTE EINE TASTE DR
UECKEN <<<<<".I:.... EIN$.R:... 60...---
-
> CLICK IMAGE PREVIEW FOR FULL MODAL