BERTHAMMER
FILE INFORMATION
FILENAME(S): BERTHAMMER
FILE TYPE(S): PRG
FILE SIZE: 1.4K
FIRST SEEN: 2025-11-30 21:07:12
APPEARS ON: 1 disk(s)
FILE HASH
5c5349eff1a55462012c38ccf4d24a60129d6de84d0446fe9376bd528ecf200b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 WORKDISK 01 | BERTHAMMER | PRG | DuncanTwain | 5 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1B 08 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |....d.. ********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 35 08 6E 00 |***********.5.n.| 00000020: 8F 20 2A 20 20 20 42 45 52 54 48 41 4D 4D 45 52 |. * BERTHAMMER| 00000030: 20 20 20 20 2A 00 4F 08 78 00 8F 20 2A 20 43 20 | *.O.x.. * C | 00000040: 41 20 4D 20 50 20 41 20 49 20 47 20 4E 20 2A 00 |A M P A I G N *.| 00000050: 69 08 82 00 8F 20 2A 20 20 20 20 20 20 20 20 20 |i.... * | 00000060: 20 20 20 20 20 20 20 20 2A 00 83 08 8C 00 8F 20 | *...... | 00000070: 2A 20 20 20 45 2E 50 2E 20 28 43 29 27 39 31 20 |* E.P. (C)'91 | 00000080: 20 20 2A 00 9D 08 96 00 8F 20 2A 2A 2A 2A 2A 2A | *...... ******| 00000090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A3 08 |*************...| 000000A0: A0 00 3A 00 F1 08 AA 00 86 20 42 45 28 31 30 30 |..:...... BE(100| 000000B0: 29 2C 41 53 28 31 30 30 29 2C 50 53 28 31 30 30 |),AS(100),PS(100| 000000C0: 29 2C 50 52 28 31 30 30 29 2C 52 42 28 31 30 30 |),PR(100),RB(100| 000000D0: 29 2C 54 31 28 31 30 30 29 2C 54 32 28 31 30 30 |),T1(100),T2(100| 000000E0: 29 2C 45 43 28 31 30 30 29 2C 54 41 28 31 30 30 |),EC(100),TA(100| 000000F0: 29 00 07 09 B4 00 86 20 52 45 28 31 30 30 29 2C |)...... RE(100),| 00000100: 49 4E 28 31 30 30 29 00 16 09 EA 01 8D 35 30 30 |IN(100)......500| 00000110: 3A 89 31 30 30 30 00 1F 09 F4 01 99 22 93 22 00 |:.1000......".".| 00000120: 36 09 FE 01 97 35 33 32 38 30 2C 35 3A 97 35 33 |6....53280,5:.53| 00000130: 32 38 31 2C 31 32 00 68 09 08 02 99 22 13 99 42 |281,12.h...."..B| 00000140: 45 52 54 48 41 4D 4D 45 52 20 43 41 4D 50 41 49 |ERTHAMMER CAMPAI| 00000150: 47 4E 20 9F 20 2D 20 49 4E 43 4F 4D 45 2D 50 52 |GN . - INCOME-PR| 00000160: 4F 47 52 41 4D 20 2D 22 00 99 09 12 02 99 22 90 |OGRAM -"......".| 00000170: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................| 00000180: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................| 00000190: A3 A3 A3 A3 A3 A3 A3 A3 22 00 9F 09 DE 03 8E 00 |........".......| 000001A0: B3 09 E8 03 8F 20 2A 2A 2A 20 49 4E 50 55 54 20 |..... *** INPUT | 000001B0: 2A 2A 2A 00 B9 09 F2 03 99 00 D3 09 FC 03 85 22 |***............"| 000001C0: 1F 4E 52 2E 20 4F 46 20 48 45 58 45 53 20 05 22 |.NR. OF HEXES ."| 000001D0: 3B 4E 52 00 DF 09 4C 04 81 58 B2 31 A4 4E 52 00 |;NR...L..X.1.NR.| 000001E0: EF 09 56 04 99 22 9E 48 45 58 20 23 22 3B 58 00 |..V..".HEX #";X.| 000001F0: 0E 0A 60 04 85 22 1F 42 45 56 2E 45 45 4E 48 45 |..`..".BEV.EENHE| 00000200: 44 45 4E 20 20 20 05 22 3B 42 45 28 58 29 00 2D |DEN .";BE(X).-| 00000210: 0A 6A 04 85 22 1F 41 52 45 41 20 53 54 41 54 55 |.j..".AREA STATU| 00000220: 53 20 20 20 20 05 22 3B 41 53 28 58 29 00 4C 0A |S .";AS(X).L.| 00000230: 74 04 85 22 1F 50 52 45 53 45 4E 54 20 53 54 41 |t..".PRESENT STA| 00000240: 54 55 53 20 05 22 3B 50 53 28 58 29 00 6B 0A 7E |TUS .";PS(X).k.~| 00000250: 04 85 22 1F 50 52 4F 50 41 47 41 4E 44 41 20 20 |..".PROPAGANDA | 00000260: 20 20 20 05 22 3B 50 52 28 58 29 00 8A 0A 88 04 | .";PR(X).....| 00000270: 85 22 1F 52 41 43 45 42 4F 4E 55 53 20 20 20 20 |.".RACEBONUS | 00000280: 20 20 05 22 3B 52 42 28 58 29 00 A9 0A 8D 04 85 | .";RB(X)......| 00000290: 22 1F 45 43 4F 4E 4F 4D 59 20 20 20 20 20 20 20 |".ECONOMY | 000002A0: 20 05 22 3B 45 43 28 58 29 00 C8 0A 8F 04 85 22 | .";EC(X)......"| 000002B0: 1F 54 41 58 45 53 20 20 20 20 20 20 20 20 20 20 |.TAXES | 000002C0: 05 22 3B 54 41 28 58 29 00 E2 0A 92 04 8B 20 50 |.";TA(X)...... P| 000002D0: 53 28 58 29 B1 36 35 20 A7 20 50 53 28 58 29 B2 |S(X).65 . PS(X).| 000002E0: 36 35 00 FC 0A 9C 04 54 31 28 58 29 B2 28 50 53 |65.....T1(X).(PS| 000002F0: 28 58 29 AA 41 53 28 58 29 29 AD 32 00 18 0B A6 |(X).AS(X)).2....| 00000300: 04 54 32 28 58 29 B2 50 52 28 58 29 AA 52 42 28 |.T2(X).PR(X).RB(| 00000310: 58 29 AA 54 31 28 58 29 00 2E 0B B0 04 50 53 28 |X).T1(X).....PS(| 00000320: 58 29 B2 45 43 28 58 29 AA 50 53 28 58 29 00 4E |X).EC(X).PS(X).N| 00000330: 0B BA 04 45 43 28 58 29 B2 45 43 28 58 29 AB 28 |...EC(X).EC(X).(| 00000340: 28 54 41 28 58 29 AB 34 30 29 AD 34 30 29 00 6C |(TA(X).40).40).l| 00000350: 0B C4 04 52 45 28 58 29 B2 AB 45 43 28 58 29 AC |...RE(X)..EC(X).| 00000360: 33 AC 28 54 41 28 58 29 AD 33 30 29 00 81 0B CE |3.(TA(X).30)....| 00000370: 04 8B 52 45 28 58 29 B3 30 A7 52 45 28 58 29 B2 |..RE(X).0.RE(X).| 00000380: 30 00 A6 0B D8 04 49 4E 28 58 29 B2 2E 37 35 AC |0.....IN(X)..75.| 00000390: 54 32 28 58 29 AC 28 54 41 28 58 29 AD 34 30 29 |T2(X).(TA(X).40)| 000003A0: AC 42 45 28 58 29 00 B6 0B EC 04 81 49 B2 30 A4 |.BE(X)......I.0.| 000003B0: 32 30 30 3A 82 49 00 DA 0B F6 04 99 22 99 54 4F |200:.I......".TO| 000003C0: 54 41 4C 20 53 54 41 54 55 53 20 31 20 20 20 20 |TAL STATUS 1 | 000003D0: 20 20 3A 22 3B 54 31 28 58 29 00 FE 0B 00 05 99 | :";T1(X)......| 000003E0: 22 99 54 4F 54 41 4C 20 53 54 41 54 55 53 20 32 |".TOTAL STATUS 2| 000003F0: 20 20 20 20 20 20 3A 22 3B 54 32 28 58 29 00 22 | :";T2(X)."| 00000400: 0C 0A 05 99 22 99 50 52 45 53 45 4E 54 20 53 54 |....".PRESENT ST| 00000410: 41 54 55 53 20 20 20 20 20 20 3A 22 3B 50 53 28 |ATUS :";PS(| 00000420: 58 29 00 46 0C 14 05 99 22 99 45 43 4F 4E 4F 4D |X).F....".ECONOM| 00000430: 59 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 22 |Y :"| 00000440: 3B 45 43 28 58 29 00 6E 0C 1E 05 99 22 99 43 48 |;EC(X).n....".CH| 00000450: 41 4E 43 45 20 4F 4E 20 52 45 42 45 4C 4C 49 4F |ANCE ON REBELLIO| 00000460: 4E 20 3A 22 3B 52 45 28 58 29 3B 22 25 22 00 92 |N :";RE(X);"%"..| 00000470: 0C 28 05 99 22 99 4E 4F 52 4D 41 4C 20 49 4E 43 |.(..".NORMAL INC| 00000480: 4F 4D 45 20 20 20 20 20 20 20 3A 22 3B 49 4E 28 |OME :";IN(| 00000490: 58 29 00 99 0C 6E 05 82 58 00 B1 0C 78 05 99 22 |X)...n..X...x.."| 000004A0: 11 05 43 41 4C 43 55 4C 41 54 49 4E 47 2E 2E 2E |..CALCULATING...| 000004B0: 22 00 C2 0C 82 05 81 49 B2 30 A4 31 30 30 30 3A |"......I.0.1000:| 000004C0: 82 49 00 CE 0C 8C 05 81 58 B2 31 A4 4E 52 00 DE |.I......X.1.NR..| 000004D0: 0C 96 05 49 4E B2 49 4E AA 49 4E 28 58 29 00 E5 |...IN.IN.IN(X)..| 000004E0: 0C A0 05 82 58 00 EE 0C D2 05 8D 35 30 30 00 F4 |....X......500..| 000004F0: 0C DC 05 99 00 0E 0D E6 05 99 22 9E 2D 20 54 4F |..........".- TO| 00000500: 54 41 4C 20 49 4E 43 4F 4D 45 20 2D 11 22 00 24 |TAL INCOME -.".$| 00000510: 0D F0 05 99 22 9E 4E 4F 52 4D 41 41 4C 20 3D 05 |....".NORMAAL =.| 00000520: 22 3B 49 4E 00 3D 0D FA 05 99 22 9E 57 49 4E 54 |";IN.=....".WINT| 00000530: 45 52 20 20 3D 05 22 3B 49 4E AC 2E 35 00 55 0D |ER =.";IN..5.U.| 00000540: 04 06 99 22 9E 4F 4F 47 53 54 20 20 20 3D 05 22 |...".OOGST =."| 00000550: 3B 49 4E AC 32 00 6E 0D 40 06 99 22 11 11 05 4E |;IN.2.n.@.."...N| 00000560: 4F 47 20 45 45 4E 20 4B 45 45 52 20 3F 22 00 82 |OG EEN KEER ?"..| 00000570: 0D 4A 06 A1 43 24 3A 8B 43 24 B2 22 22 A7 31 36 |.J..C$:.C$."".16| 00000580: 31 30 00 92 0D 54 06 8B 43 24 B2 22 4A 22 A7 34 |10...T..C$."J".4| 00000590: 39 30 00 00 00 |90... |
....D.. *******************.5.N.. * BE
RTHAMMER *.O.X.. * C A M P A I G N *.
I.... * *...... * E.P.
(C)'91 *...... *******************...
.:...... BE(100),AS(100),PS(100),PR(100
),RB(100),T1(100),T2(100),EC(100),TA(100
)...... RE(100),IN(100)......500:.1000..
....".".6....53280,5:.53281,12.H...."..B
ERTHAMMER CAMPAIGN . - INCOME-PROGRAM -"
......".................................
........"............ *** INPUT ***.....
..S....".NR. OF HEXES .";NR...L..X.1.NR.
..V..".HEX #";X...`..".BEV.EENHEDEN ."
;BE(X).-.J..".AREA STATUS .";AS(X).L.
T..".PRESENT STATUS .";PS(X).K.~..".PROP
AGANDA .";PR(X)......".RACEBONUS
.";RB(X)......".ECONOMY .";EC(X
).H....".TAXES .";TA(X)...... P
S(X).65 . PS(X).65.....T1(X).(PS(X).AS(X
)).2.....T2(X).PR(X).RB(X).T1(X).....PS(
X).EC(X).PS(X).N...EC(X).EC(X).((TA(X).4
0).40).L.D.RE(X)..EC(X).3.(TA(X).30)...N
..RE(X).0.RE(X).0...X.IN(X)..75.T2(X).(T
A(X).40).BE(X)......I.0.200:.I.Z....".TO
TAL STATUS 1 :";T1(X)......".TOTAL
STATUS 2 :";T2(X)."....".PRESENT ST
ATUS :";PS(X).F....".ECONOMY
:";EC(X).N....".CHANCE ON REBELLIO
N :";RE(X);"%"...(..".NORMAL INCOME
:";IN(X)...N..X...X.."..CALCULATING...
".B....I.0.1000:.I.N....X.1.NR.....IN.IN
.IN(X)... ..X...R..500............".- TO
TAL INCOME -.".$....".NORMAAL =.";IN.=..
..".WINTER =.";IN..5.U....".OOGST =."
;IN.2.N.@.."...NOG EEN KEER ?"...J..C$:.
C$."".1610...T..C$."J".490...
> CLICK IMAGE PREVIEW FOR FULL MODAL