Multiple names: GELD BERECH, M49 GD GELDBER
FILE INFORMATION
FILENAME(S):
• GELD BERECH<br>• M49 GD   GELDBER
FILE TYPE(S): PRG
FILE SIZE: 2.4K
FIRST SEEN: 2025-11-02 16:39:54
APPEARS ON: 3 disk(s)
FILE HASH
3959ae1367d927517a9c3956398549d60ed58f5ebc744a3091520b85838039bf
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PUBLIC DOMAIN | GELD BERECH | PRG | Treasure Chest - Plattfuss | 22 | 4 | DOWNLOAD FILE |
| L EHRNEN | M49 GD GELDBER | PRG | Treasure Chest - Wolfgang Rauprich | 10 | 1 | DOWNLOAD FILE |
| FREESOFT DISK NR | M49 GD GELDBER | PRG | Treasure Chest - Wolfgang Rauprich | 10 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 01 00 8F 20 20 2A 2A 2A 2A 2A 20 20 |..).... ***** |
00000010: 47 45 4C 44 42 45 64 08 48 4E 55 4E 47 2F 43 36 |GELDBEd.HNUNG/C6|
00000020: 34 20 20 2A 2A 2A 2A 2A 2A 00 52 08 02 00 8F 20 |4 ******.R.... |
00000030: 20 2A 2A 2A 2A 2A 20 20 20 49 4E 20 53 49 4D 4F | ***** IN SIMO|
00000040: 4E 27 53 20 42 41 53 49 43 20 20 20 2A 2A 2A 2A |N'S BASIC ****|
00000050: 2A 2A 00 7A 08 03 00 8F 20 20 2A 20 56 41 52 49 |**.z.... * VARI|
00000060: 41 42 4C 45 4E 2D 4C 49 53 54 45 3A 20 20 20 20 |ABLEN-LISTE: |
00000070: 20 20 20 20 20 20 20 20 20 2A 00 A2 08 04 00 8F | *......|
00000080: 20 20 2A 20 47 28 30 29 20 20 3D 20 31 30 30 30 | * G(0) = 1000|
00000090: 20 44 4D 20 20 20 20 20 20 20 20 20 20 20 20 20 | DM |
000000A0: 20 2A 00 CA 08 05 00 8F 20 20 2A 20 47 28 31 29 | *...... * G(1)|
000000B0: 20 20 3D 20 20 35 30 30 20 44 4D 20 20 20 20 20 | = 500 DM |
000000C0: 20 20 20 20 20 20 20 20 20 2A 00 F2 08 06 00 8F | *......|
000000D0: 20 20 2A 20 47 28 32 29 20 20 3D 20 20 31 30 30 | * G(2) = 100|
000000E0: 20 44 4D 20 20 20 20 20 20 20 20 20 20 20 20 20 | DM |
000000F0: 20 2A 00 1A 09 07 00 8F 20 20 2A 20 47 28 33 29 | *...... * G(3)|
00000100: 20 20 3D 20 20 20 35 30 20 44 4D 20 20 20 20 20 | = 50 DM |
00000110: 20 20 20 20 20 20 20 20 20 2A 00 42 09 08 00 8F | *.B....|
00000120: 20 20 2A 20 47 28 34 29 20 20 3D 20 20 20 32 30 | * G(4) = 20|
00000130: 20 44 4D 20 20 20 20 20 20 20 20 20 20 20 20 20 | DM |
00000140: 20 2A 00 6A 09 09 00 8F 20 20 2A 20 47 28 35 29 | *.j.... * G(5)|
00000150: 20 20 3D 20 20 20 31 30 20 44 4D 20 20 20 20 20 | = 10 DM |
00000160: 20 20 20 20 20 20 20 20 20 2A 00 91 09 0A 00 8F | *......|
00000170: 20 2A 20 47 28 36 29 20 20 3D 20 20 20 20 35 20 | * G(6) = 5 |
00000180: 44 4D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |DM |
00000190: 2A 00 B8 09 0B 00 8F 20 2A 20 47 28 37 29 20 20 |*...... * G(7) |
000001A0: 3D 20 20 20 20 32 20 44 4D 20 20 20 20 20 20 20 |= 2 DM |
000001B0: 20 20 20 20 20 20 20 2A 00 DF 09 0C 00 8F 20 2A | *...... *|
000001C0: 20 47 28 38 29 20 20 3D 20 20 20 20 31 20 44 4D | G(8) = 1 DM|
000001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.|
000001E0: 06 0A 0D 00 8F 20 2A 20 47 28 39 29 20 20 3D 20 |..... * G(9) = |
000001F0: 20 20 35 30 20 50 46 20 20 20 20 20 20 20 20 20 | 50 PF |
00000200: 20 20 20 20 20 2A 00 2D 0A 0E 00 8F 20 2A 20 47 | *.-.... * G|
00000210: 28 31 30 29 20 3D 20 20 20 31 30 20 50 46 20 20 |(10) = 10 PF |
00000220: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 54 0A | *.T.|
00000230: 0F 00 8F 20 2A 20 47 28 31 31 29 20 3D 20 20 20 |... * G(11) = |
00000240: 20 35 20 50 46 20 20 20 20 20 20 20 20 20 20 20 | 5 PF |
00000250: 20 20 20 2A 00 7B 0A 10 00 8F 20 2A 20 47 28 31 | *.{.... * G(1|
00000260: 32 29 20 3D 20 20 20 20 32 20 50 46 20 20 20 20 |2) = 2 PF |
00000270: 20 20 20 20 20 20 20 20 20 20 2A 00 A2 0A 11 00 | *.....|
00000280: 8F 20 2A 20 47 28 31 33 29 20 3D 20 20 20 20 31 |. * G(13) = 1|
00000290: 20 50 46 20 20 20 20 20 20 20 20 20 20 20 20 20 | PF |
000002A0: 20 2A 00 C9 0A 12 00 8F 20 2A 20 42 24 2C 42 20 | *...... * B$,B |
000002B0: 20 3D 20 42 45 54 52 41 47 20 20 20 20 20 20 20 | = BETRAG |
000002C0: 20 20 20 20 20 20 20 20 2A 00 F0 0A 13 00 8F 20 | *...... |
000002D0: 2A 20 54 20 20 20 20 20 3D 20 54 45 49 4C 42 45 |* T = TEILBE|
000002E0: 54 52 41 47 20 20 20 20 20 20 20 20 20 20 20 2A |TRAG *|
000002F0: 00 17 0B 14 00 8F 20 2A 20 52 20 20 20 20 20 3D |...... * R =|
00000300: 20 52 45 53 54 42 45 54 52 41 47 20 20 20 20 20 | RESTBETRAG |
00000310: 20 20 20 20 20 20 2A 00 3E 0B 15 00 8F 20 2A 20 | *.>.... * |
00000320: 47 53 20 20 20 20 3D 20 47 45 53 41 4D 54 53 55 |GS = GESAMTSU|
00000330: 4D 4D 45 20 20 20 20 20 20 20 20 20 20 2A 00 65 |MME *.e|
00000340: 0B 16 00 8F 20 2A 20 41 20 20 20 20 20 3D 20 41 |.... * A = A|
00000350: 4B 54 55 45 4C 4C 45 20 45 49 4E 48 45 49 54 20 |KTUELLE EINHEIT |
00000360: 20 20 20 20 2A 00 8C 0B 17 00 8F 20 2A 20 49 20 | *...... * I |
00000370: 20 20 20 20 3D 20 53 43 48 4C 45 49 46 45 4E 5A | = SCHLEIFENZ|
00000380: 41 45 48 4C 45 52 20 20 20 20 20 2A 00 B3 0B 18 |AEHLER *....|
00000390: 00 8F 20 2A 20 4E 52 20 20 20 20 3D 20 41 4E 5A |.. * NR = ANZ|
000003A0: 41 48 4C 20 42 45 54 52 41 45 47 45 20 20 20 20 |AHL BETRAEGE |
000003B0: 20 20 2A 00 DA 0B 19 00 8F 20 2A 2A 2A 2A 2A 2A | *...... ******|
000003C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 FD 0B 1E 00 83 |**********......|
000003E0: 20 31 30 30 30 30 30 2C 35 30 30 30 30 2C 31 30 | 100000,50000,10|
000003F0: 30 30 30 2C 35 30 30 30 2C 32 30 30 30 00 20 0C |000,5000,2000. .|
00000400: 28 00 83 20 31 30 30 30 2C 35 30 30 2C 32 30 30 |(.. 1000,500,200|
00000410: 2C 31 30 30 2C 35 30 2C 31 30 2C 35 2C 32 2C 31 |,100,50,10,5,2,1|
00000420: 00 36 0C 32 00 97 35 33 32 38 30 2C 36 3A 97 35 |.6.2..53280,6:.5|
00000430: 33 32 38 31 2C 36 00 42 0C 64 00 86 20 47 28 31 |3281,6.B.d.. G(1|
00000440: 33 29 00 72 0C 6E 00 99 22 93 20 B0 C0 C0 C0 C0 |3).r.n..". .....|
00000450: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000460: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000470: AE 22 00 A1 0C 78 00 99 22 20 DD 20 20 20 20 20 |."...x.." . |
00000480: 20 20 20 47 45 4C 44 42 45 52 45 43 48 4E 55 4E | GELDBERECHNUN|
00000490: 47 20 43 36 34 20 20 20 20 20 20 20 20 20 20 DD |G C64 .|
000004A0: 22 00 D0 0C 82 00 99 22 20 AD C0 C0 C0 C0 C0 C0 |"......" .......|
000004B0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000004C0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 22 |..............."|
000004D0: 00 F9 0C 8C 00 99 22 11 11 20 47 49 42 20 42 49 |......".. GIB BI|
000004E0: 54 54 45 20 44 45 4E 20 4A 45 57 45 49 4C 49 47 |TTE DEN JEWEILIG|
000004F0: 45 4E 20 47 45 4C 44 2D 22 00 22 0D 96 00 99 22 |EN GELD-"."...."|
00000500: 20 42 45 54 52 41 47 20 55 45 42 45 52 20 44 49 | BETRAG UEBER DI|
00000510: 45 20 54 41 53 54 41 54 55 52 20 49 4E 20 44 45 |E TASTATUR IN DE|
00000520: 4E 22 00 4F 0D A0 00 99 22 20 52 45 43 48 4E 45 |N".O...." RECHNE|
00000530: 52 20 45 49 4E 3B 20 53 49 4E 44 20 4B 45 49 4E |R EIN; SIND KEIN|
00000540: 45 20 57 45 49 54 45 52 45 4E 20 42 45 2D 22 00 |E WEITEREN BE-".|
00000550: 7E 0D AA 00 99 22 20 54 52 41 45 47 45 20 4D 45 |~...." TRAEGE ME|
00000560: 48 52 20 56 4F 52 48 41 4E 44 45 4E 2C 20 53 4F |HR VORHANDEN, SO|
00000570: 20 47 49 42 20 27 2A 27 20 45 49 4E 21 22 00 AD | GIB '*' EIN!"..|
00000580: 0D BE 00 99 22 11 11 11 11 11 20 44 52 55 45 43 |...."..... DRUEC|
00000590: 4B 45 20 42 49 54 54 45 20 5A 55 52 20 46 4F 52 |KE BITTE ZUR FOR|
000005A0: 54 53 45 54 5A 55 4E 47 20 44 49 45 22 00 D5 0D |TSETZUNG DIE"...|
000005B0: C8 00 99 22 11 20 20 20 20 20 20 20 20 20 20 20 |...". |
000005C0: 12 20 20 4C 20 45 20 45 20 52 20 20 92 2D 54 41 |. L E E R .-TA|
000005D0: 53 54 45 21 22 00 ED 0D D2 00 A1 42 24 3A 8B 20 |STE!"......B$:. |
000005E0: 42 24 B3 B1 22 20 22 20 A7 20 32 31 30 00 27 0E |B$.." " . 210.'.|
000005F0: DC 00 99 22 93 11 11 11 11 11 11 11 11 11 47 49 |..."..........GI|
00000600: 42 20 42 49 54 54 45 20 45 49 4E 45 4E 20 42 45 |B BITTE EINEN BE|
00000610: 54 52 41 47 20 28 4F 44 45 52 20 27 2A 27 29 20 |TRAG (ODER '*') |
00000620: 45 49 4E 21 11 11 22 00 3F 0E E6 00 85 20 22 2A |EIN!..".?.... "*|
00000630: 31 32 33 34 35 36 37 38 39 30 2E 22 3B 42 24 00 |1234567890.";B$.|
00000640: 52 0E F0 00 8B 20 42 24 B2 22 2A 22 20 A7 20 33 |R.... B$."*" . 3|
00000650: 30 30 00 62 0E FA 00 42 B2 31 30 30 AC C5 28 42 |00.b...B.100..(B|
00000660: 24 29 00 6D 0E 04 01 8D 20 31 30 30 30 00 77 0E |$).m.... 1000.w.|
00000670: 0E 01 89 20 32 32 30 00 9D 0E 2C 01 8F 20 2A 2A |... 220...,.. **|
00000680: 2A 2A 2A 2A 20 45 52 47 45 42 4E 49 53 2D 41 4E |**** ERGEBNIS-AN|
00000690: 5A 45 49 47 45 20 20 2A 2A 2A 2A 2A 2A 00 CD 0E |ZEIGE ******...|
000006A0: 36 01 99 22 93 20 B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |6..". ..........|
000006B0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000006C0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 22 00 FC 0E |............"...|
000006D0: 40 01 99 22 20 DD 20 20 41 55 46 47 4C 49 45 44 |@.." . AUFGLIED|
000006E0: 45 52 55 4E 47 20 44 45 53 20 47 45 53 41 4D 54 |ERUNG DES GESAMT|
000006F0: 42 45 54 52 41 47 45 53 20 20 C2 22 00 2B 0F 4A |BETRAGES .".+.J|
00000700: 01 99 22 20 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |.." ............|
00000710: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000720: C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 22 00 56 0F 54 01 |..........".V.T.|
00000730: 99 22 11 11 20 20 20 12 20 47 45 53 41 4D 54 42 |.".. . GESAMTB|
00000740: 45 54 52 41 47 20 92 20 3A 20 20 22 47 53 AD 31 |ETRAG . : "GS.1|
00000750: 30 30 22 44 4D 22 00 73 0F 5E 01 99 22 11 22 47 |00"DM".s.^.."."G|
00000760: 28 30 29 22 31 30 30 30 44 4D 2D 53 43 48 45 49 |(0)"1000DM-SCHEI|
00000770: 4E 45 22 00 8C 0F 68 01 99 47 28 31 29 22 35 30 |NE"...h..G(1)"50|
00000780: 30 44 4D 2D 53 43 48 45 49 4E 45 22 00 A5 0F 72 |0DM-SCHEINE"...r|
00000790: 01 99 47 28 32 29 22 31 30 30 44 4D 2D 53 43 48 |..G(2)"100DM-SCH|
000007A0: 45 49 4E 45 22 00 BD 0F 7C 01 99 47 28 33 29 22 |EINE"...|..G(3)"|
000007B0: 35 30 44 4D 2D 53 43 48 45 49 4E 45 22 00 D5 0F |50DM-SCHEINE"...|
000007C0: 86 01 99 47 28 34 29 22 32 30 44 4D 2D 53 43 48 |...G(4)"20DM-SCH|
000007D0: 45 49 4E 45 22 00 ED 0F 90 01 99 47 28 35 29 22 |EINE"......G(5)"|
000007E0: 31 30 44 4D 2D 53 43 48 45 49 4E 45 22 00 0C 10 |10DM-SCHEINE"...|
000007F0: 9A 01 99 47 28 36 29 22 35 44 4D 2D 53 43 48 45 |...G(6)"5DM-SCHE|
00000800: 49 4E 45 2F 4D 55 45 4E 5A 45 4E 22 00 23 10 A4 |INE/MUENZEN".#..|
00000810: 01 99 47 28 37 29 22 32 44 4D 2D 4D 55 45 4E 5A |..G(7)"2DM-MUENZ|
00000820: 45 4E 22 00 3A 10 AE 01 99 47 28 38 29 22 31 44 |EN".:....G(8)"1D|
00000830: 4D 2D 4D 55 45 4E 5A 45 4E 22 00 52 10 B8 01 99 |M-MUENZEN".R....|
00000840: 47 28 39 29 22 35 30 50 46 2D 4D 55 45 4E 5A 45 |G(9)"50PF-MUENZE|
00000850: 4E 22 00 6B 10 C2 01 99 47 28 31 30 29 22 31 30 |N".k....G(10)"10|
00000860: 50 46 2D 4D 55 45 4E 5A 45 4E 22 00 83 10 CC 01 |PF-MUENZEN".....|
00000870: 99 47 28 31 31 29 22 35 50 46 2D 4D 55 45 4E 5A |.G(11)"5PF-MUENZ|
00000880: 45 4E 22 00 9B 10 D6 01 99 47 28 31 32 29 22 32 |EN"......G(12)"2|
00000890: 50 46 2D 4D 55 45 4E 5A 45 4E 22 00 B3 10 E0 01 |PF-MUENZEN".....|
000008A0: 99 47 28 31 33 29 22 31 50 46 2D 4D 55 45 4E 5A |.G(13)"1PF-MUENZ|
000008B0: 45 4E 22 00 B9 10 EA 01 80 00 DE 10 E8 03 8F 20 |EN"............ |
000008C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000008D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 02 |**************..|
000008E0: 11 F2 03 8F 20 2A 2A 20 20 20 20 20 55 50 52 4F |.... ** UPRO|
000008F0: 20 42 45 64 08 48 4E 55 4E 47 20 20 20 20 20 20 | BEd.HNUNG |
00000900: 2A 2A 00 27 11 FC 03 8F 20 2A 2A 2A 2A 2A 2A 2A |**.'.... *******|
00000910: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000920: 2A 2A 2A 2A 2A 2A 2A 00 37 11 06 04 47 53 B2 47 |*******.7...GS.G|
00000930: 53 AA 42 3A 52 B2 42 00 46 11 10 04 81 20 49 B2 |S.B:R.B.F.... I.|
00000940: 30 20 A4 20 31 33 00 50 11 1A 04 3A 20 87 20 41 |0 . 13.P...: . A|
00000950: 00 5F 11 24 04 3A 20 54 B2 B5 28 52 AD 41 29 00 |._.$.: T..(R.A).|
00000960: 71 11 2E 04 3A 20 47 28 49 29 B2 47 28 49 29 AA |q...: G(I).G(I).|
00000970: 54 00 7F 11 38 04 3A 20 52 B2 52 AB 41 AC 54 00 |T...8.: R.R.A.T.|
00000980: 87 11 42 04 82 20 49 00 8D 11 4C 04 8C 00 93 11 |..B.. I...L.....|
00000990: 56 04 8E 00 00 00 99 |V...... |
..).... ***** GELDBED.HNUNG/C64 *****
*.R.... ***** IN SIMON'S BASIC ****
**.Z.... * VARIABLEN-LISTE:
*...... * G(0) = 1000 DM
*.J.... * G(1) = 500 DM
*...... * G(2) = 100 DM
*...... * G(3) = 50 DM
*.B.... * G(4) = 20 DM
*.J.... * G(5) = 10 DM
*...... * G(6) = 5 DM
*...... * G(7) = 2 DM *
...... * G(8) = 1 DM *.
..... * G(9) = 50 PF *.-
.... * G(10) = 10 PF *.T.
... * G(11) = 5 PF *.{..
.. * G(12) = 2 PF *.....
. * G(13) = 1 PF *.I....
* B$,B = BETRAG *......
* T = TEILBETRAG *...... *
R = RESTBETRAG *.>.... *
GS = GESAMTSUMME *.E.... * A
= AKTUELLE EINHEIT *...... * I
= SCHLEIFENZAEHLER *...... * NR
= ANZAHL BETRAEGE *.Z.... ******
**************************...... 100000,
50000,10000,5000,2000. .(.. 1000,500,200
,100,50,10,5,2,1.6.2..53280,6:.53281,6.B
.D.. G(13).R.N..". .....................
................."...X.." . GELDB
ERECHNUNG C64 .".P...." .......
..............................."......".
. GIB BITTE DEN JEWEILIGEN GELD-"."...."
BETRAG UEBER DIE TASTATUR IN DEN".O. ..
" RECHNER EIN; SIND KEINE WEITEREN BE-".
~...." TRAEGE MEHR VORHANDEN, SO GIB '*'
EIN!"......"..... DRUECKE BITTE ZUR FOR
TSETZUNG DIE".U.H..". . L E E
R .-TASTE!"...R..B$:. B$.." " . 210.'.
..."..........GIB BITTE EINEN BETRAG (OD
ER '*') EIN!..".?.... "*1234567890.";B$.
R.... B$."*" . 300.B...B.100.E(B$).M....
1000.W.... 220...,.. ****** ERGEBNIS-AN
ZEIGE ******.M.6..". ..................
...................."...@.." . AUFGLIED
ERUNG DES GESAMTBETRAGES B".+.J.." ....
..................................".V.T.
.".. . GESAMTBETRAG . : "GS.100"DM".S
.^.."."G(0)"1000DM-SCHEINE"...H..G(1)"50
0DM-SCHEINE"...R..G(2)"100DM-SCHEINE"...
|..G(3)"50DM-SCHEINE".U....G(4)"20DM-SCH
EINE"......G(5)"10DM-SCHEINE"......G(6)"
5DM-SCHEINE/MUENZEN".#....G(7)"2DM-MUENZ
EN".:....G(8)"1DM-MUENZEN".R....G(9)"50P
F-MUENZEN".K.B..G(10)"10PF-MUENZEN"...L.
.G(11)"5PF-MUENZEN"...V..G(12)"2PF-MUENZ
EN"......G(13)"1PF-MUENZEN"............
******************************...... **
UPRO BED.HNUNG **.'.... *******
***********************.7...GS.GS.B:R.B.
F.... I.0 . 13.P...: . A._.$.: T..(R.A).
Q...: G(I).G(I).T..8.: R.R.A.T...B.. I.
..L.....V......
> CLICK IMAGE PREVIEW FOR FULL MODAL