FR.BERGE
FILE INFORMATION
FILENAME(S): FR.BERGE
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-11-30 01:12:43
APPEARS ON: 1 disk(s)
FILE HASH
607c6a5093d211c1fc85196928bb2e23af3aa0f9253782d2aed4b3ec92b00917
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10710 10 87 | FR.BERGE | PRG | C64er | 9 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 24 08 0A 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 00 47 08 14 00 8F 20 2A 20 20 20 20 |****.G.... * |
00000030: 20 20 46 52 41 4B 54 41 4C 45 20 42 45 52 47 45 | FRAKTALE BERGE|
00000040: 20 20 20 20 20 20 2A 00 6A 08 1E 00 8F 20 2A 20 | *.j.... * |
00000050: 31 39 38 37 20 42 59 20 53 54 45 46 41 4E 20 56 |1987 BY STEFAN V|
00000060: 49 4C 53 4D 45 49 45 52 20 2A 00 8D 08 28 00 8F |ILSMEIER *...(..|
00000070: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 93 08 |*************...|
00000090: 32 00 3A 00 B7 08 3C 00 8B 20 41 B2 30 20 A7 20 |2.:...<.. A.0 . |
000000A0: 41 B2 31 3A 93 20 22 46 52 41 43 54 41 4C 2E 4F |A.1:. "FRACTAL.O|
000000B0: 42 4A 22 2C 38 2C 31 00 C9 08 46 00 86 20 48 25 |BJ",8,1...F.. H%|
000000C0: 28 31 32 38 2C 31 32 38 29 00 0A 09 50 00 9F 20 |(128,128)...P.. |
000000D0: 31 2C 38 2C 31 35 2C 22 55 39 22 3A A0 20 31 3A |1,8,15,"U9":. 1:|
000000E0: 20 8F 20 44 49 45 53 45 20 5A 45 45 49 4C 45 20 | . DIESE ZEEILE |
000000F0: 4B 41 4E 4E 20 42 45 49 20 50 52 4F 42 4C 45 4D |KANN BEI PROBLEM|
00000100: 45 4E 20 4D 49 54 20 44 45 4D 00 32 09 5A 00 8F |EN MIT DEM.2.Z..|
00000110: 20 46 4C 4F 50 50 59 53 50 45 45 44 45 52 20 57 | FLOPPYSPEEDER W|
00000120: 45 47 47 45 4C 41 53 53 45 4E 20 57 45 52 44 45 |EGGELASSEN WERDE|
00000130: 4E 21 00 48 09 64 00 97 35 33 32 38 30 2C 30 3A |N!.H.d..53280,0:|
00000140: 97 35 33 32 38 31 2C 30 00 59 09 6E 00 85 20 22 |.53281,0.Y.n.. "|
00000150: 93 47 52 41 44 20 22 3B 47 00 7B 09 78 00 8F 20 |.GRAD ";G.{.x.. |
00000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 56 41 52 49 |*********** VARI|
00000170: 41 42 4C 45 4E 20 2A 2A 2A 2A 2A 00 A7 09 82 00 |ABLEN *****.....|
00000180: 57 B2 31 32 38 3A 44 B2 2E 35 3A 48 B2 31 32 38 |W.128:D..5:H.128|
00000190: 3A 55 B2 31 38 30 3A 52 B2 31 30 3A 47 45 B2 32 |:U.180:R.10:GE.2|
000001A0: 2E 32 35 3A 4E B2 30 00 C9 09 C8 00 8F 20 2A 2A |.25:N.0...... **|
000001B0: 2A 2A 2A 2A 2A 2A 2A 20 41 4E 46 41 4E 47 53 57 |******* ANFANGSW|
000001C0: 45 52 54 45 20 2A 2A 2A 2A 00 E9 09 D2 00 8F 20 |ERTE ****...... |
000001D0: 28 4B 4F 45 4E 4E 45 4E 20 56 41 52 49 49 45 52 |(KOENNEN VARIIER|
000001E0: 54 20 57 45 52 44 45 4E 29 00 F7 09 DC 00 48 25 |T WERDEN).....H%|
000001F0: 28 30 2C 30 29 B2 30 00 07 0A E6 00 48 25 28 31 |(0,0).0.....H%(1|
00000200: 32 38 2C 30 29 B2 30 00 17 0A F0 00 48 25 28 30 |28,0).0.....H%(0|
00000210: 2C 31 32 38 29 B2 30 00 26 0A FA 00 48 25 28 36 |,128).0.&...H%(6|
00000220: 34 2C 30 29 B2 30 00 35 0A 04 01 48 25 28 30 2C |4,0).0.5...H%(0,|
00000230: 36 34 29 B2 30 00 45 0A 0E 01 48 25 28 36 34 2C |64).0.E...H%(64,|
00000240: 36 34 29 B2 30 00 67 0A 2C 01 8F 20 2A 2A 2A 2A |64).0.g.,.. ****|
00000250: 2A 2A 2A 2A 2A 20 47 52 41 46 49 4B 20 45 49 4E |***** GRAFIK EIN|
00000260: 20 2A 2A 2A 2A 2A 2A 00 87 0A 36 01 9E 35 30 31 | ******...6..501|
00000270: 37 36 2C 31 34 2C 30 3A 9E 35 30 31 37 39 2C 31 |76,14,0:.50179,1|
00000280: 3A 9E 35 30 31 39 34 00 8D 0A 5E 01 3A 00 93 0A |:.50194...^.:...|
00000290: 68 01 3A 00 B6 0A 72 01 8F 20 2A 2A 2A 2A 2A 2A |h.:...r.. ******|
000002A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002B0: 2A 2A 2A 2A 2A 2A 00 D9 0A 7C 01 8F 20 2A 20 20 |******...|.. * |
000002C0: 20 20 20 42 45 52 47 45 20 42 45 52 45 43 48 4E | BERGE BERECHN|
000002D0: 45 4E 20 20 20 20 20 20 2A 00 FC 0A 86 01 8F 20 |EN *...... |
000002E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 02 0B 90 |************....|
00000300: 01 3A 00 10 0B 9A 01 81 20 4D B2 31 20 A4 20 47 |.:...... M.1 . G|
00000310: 00 23 0B A4 01 3A 42 52 B2 57 AC 35 3A 57 32 B2 |.#...:BR.W.5:W2.|
00000320: 57 AD 32 00 38 0B AE 01 3A 81 20 54 B2 30 20 A4 |W.2.8...:. T.0 .|
00000330: 20 31 32 37 20 A9 20 57 00 50 0B B8 01 3A 20 81 | 127 . W.P...: .|
00000340: 20 49 B2 30 20 A4 20 31 32 37 AB 54 20 A9 20 57 | I.0 . 127.T . W|
00000350: 00 6F 0B C2 01 3A 20 20 42 B2 28 48 25 28 49 2C |.o...: B.(H%(I,|
00000360: 54 29 AA 48 25 28 49 AA 57 2C 54 29 29 AD 32 00 |T).H%(I.W,T)).2.|
00000370: 90 0B CC 01 3A 20 20 20 48 25 28 49 AA 57 32 2C |....: H%(I.W2,|
00000380: 54 29 B2 42 AA 28 BB 28 31 29 AB 44 29 AC 42 52 |T).B.(.(1).D).BR|
00000390: 00 AF 0B D6 01 3A 20 20 42 B2 28 48 25 28 54 2C |.....: B.(H%(T,|
000003A0: 49 29 AA 48 25 28 54 2C 49 AA 57 29 29 AD 32 00 |I).H%(T,I.W)).2.|
000003B0: D0 0B E0 01 3A 20 20 20 48 25 28 54 2C 49 AA 57 |....: H%(T,I.W|
000003C0: 32 29 B2 42 AA 28 BB 28 31 29 AB 44 29 AC 42 52 |2).B.(.(1).D).BR|
000003D0: 00 FD 0B EA 01 3A 20 20 42 B2 28 48 25 28 31 32 |.....: B.(H%(12|
000003E0: 38 AB 54 AB 49 2C 49 29 AA 48 25 28 31 32 38 AB |8.T.I,I).H%(128.|
000003F0: 54 AB 49 AB 57 2C 49 AA 57 29 29 AD 32 00 27 0C |T.I.W,I.W)).2.'.|
00000400: F4 01 3A 20 20 20 48 25 28 31 32 38 AB 54 AB 49 |..: H%(128.T.I|
00000410: AB 57 32 2C 49 AA 57 32 29 B2 42 AA 28 BB 28 31 |.W2,I.W2).B.(.(1|
00000420: 29 AB 44 29 AC 42 52 00 31 0C FE 01 3A 20 82 20 |).D).BR.1...: . |
00000430: 49 00 3A 0C 08 02 3A 82 20 54 00 44 0C 12 02 57 |I.:...:. T.D...W|
00000440: B2 57 AD 32 00 4C 0C 1C 02 82 20 4D 00 52 0C 8A |.W.2.L.... M.R..|
00000450: 02 3A 00 58 0C 94 02 3A 00 7B 0C 9E 02 8F 20 2A |.:.X...:.{.... *|
00000460: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000470: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9E 0C A8 02 |***********.....|
00000480: 8F 20 2A 20 20 20 20 20 42 45 52 47 45 20 5A 45 |. * BERGE ZE|
00000490: 49 43 48 4E 45 4E 20 20 20 20 20 20 20 2A 00 C1 |ICHNEN *..|
000004A0: 0C B2 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********|
000004B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000004C0: 2A 00 C7 0C BC 02 3A 00 DB 0C C6 02 81 20 54 B2 |*.....:...... T.|
000004D0: 30 20 A4 20 31 32 37 20 A9 20 57 00 FC 0C D0 02 |0 . 127 . W.....|
000004E0: 3A 41 B2 54 AD 32 3A 42 B2 41 AA 57 3A 43 B2 28 |:A.T.2:B.A.W:C.(|
000004F0: 54 AA 57 29 AD 32 3A 46 B2 43 AA 57 00 0E 0D DA |T.W).2:F.C.W....|
00000500: 02 3A 59 41 B2 28 54 AA 57 29 AA 55 AB 48 00 1C |.:YA.(T.W).U.H..|
00000510: 0D E4 02 3A 59 42 B2 54 AA 55 AB 48 00 33 0D EE |...:YB.T.U.H.3..|
00000520: 02 3A 81 20 49 B2 30 20 A4 20 31 32 37 AB 54 20 |.:. I.0 . 127.T |
00000530: A9 20 57 00 44 0D F8 02 3A 20 49 49 B2 31 32 37 |. W.D...: II.127|
00000540: AB 54 AB 57 00 65 0D 02 03 3A 20 48 31 B2 48 25 |.T.W.e...: H1.H%|
00000550: 28 49 2C 54 29 AD 35 3A 8B 20 48 31 B3 4E 20 A7 |(I,T).5:. H1.N .|
00000560: 20 48 31 B2 4E 00 88 0D 0C 03 3A 20 48 32 B2 48 | H1.N.....: H2.H|
00000570: 25 28 49 2C 54 AA 57 29 AD 35 3A 8B 20 48 32 B3 |%(I,T.W).5:. H2.|
00000580: 4E 20 A7 20 48 32 B2 4E 00 AB 0D 16 03 3A 20 48 |N . H2.N.....: H|
00000590: 33 B2 48 25 28 49 AA 57 2C 54 29 AD 35 3A 8B 20 |3.H%(I.W,T).5:. |
000005A0: 48 33 B3 4E 20 A7 20 48 33 B2 4E 00 D0 0D 20 03 |H3.N . H3.N... .|
000005B0: 3A 20 48 34 B2 48 25 28 49 AA 57 2C 54 AA 57 29 |: H4.H%(I.W,T.W)|
000005C0: AD 35 3A 8B 20 48 34 B3 4E 20 A7 20 48 34 B2 4E |.5:. H4.N . H4.N|
000005D0: 00 ED 0D 2A 03 3A 20 58 31 B2 28 49 AA 41 29 AC |...*.: X1.(I.A).|
000005E0: 47 45 AA 52 3A 59 31 B2 59 42 AB 48 31 00 0A 0E |GE.R:Y1.YB.H1...|
000005F0: 34 03 3A 20 58 32 B2 28 49 AA 43 29 AC 47 45 AA |4.: X2.(I.C).GE.|
00000600: 52 3A 59 32 B2 59 41 AB 48 32 00 27 0E 3E 03 3A |R:Y2.YA.H2.'.>.:|
00000610: 20 58 33 B2 28 49 AA 42 29 AC 47 45 AA 52 3A 59 | X3.(I.B).GE.R:Y|
00000620: 33 B2 59 42 AB 48 33 00 44 0E 48 03 3A 20 58 34 |3.YB.H3.D.H.: X4|
00000630: B2 28 49 AA 46 29 AC 47 45 AA 52 3A 59 34 B2 59 |.(I.F).GE.R:Y4.Y|
00000640: 41 AB 48 34 00 60 0E 52 03 3A 20 9E 20 35 30 31 |A.H4.`.R.: . 501|
00000650: 38 35 2C 58 31 2C 59 31 2C 58 33 2C 59 33 2C 31 |85,X1,Y1,X3,Y3,1|
00000660: 00 7C 0E 5C 03 3A 20 9E 20 35 30 31 38 35 2C 58 |.|.\.: . 50185,X|
00000670: 32 2C 59 32 2C 58 31 2C 59 31 2C 31 00 98 0E 66 |2,Y2,X1,Y1,1...f|
00000680: 03 3A 20 9E 20 35 30 31 38 35 2C 58 32 2C 59 32 |.: . 50185,X2,Y2|
00000690: 2C 58 33 2C 59 33 2C 31 00 AB 0E 70 03 3A 20 8B |,X3,Y3,1...p.: .|
000006A0: 20 49 B1 49 49 20 89 20 39 31 30 00 C7 0E 7A 03 | I.II . 910...z.|
000006B0: 3A 20 9E 20 35 30 31 38 35 2C 58 33 2C 59 33 2C |: . 50185,X3,Y3,|
000006C0: 58 34 2C 59 34 2C 31 00 E3 0E 84 03 3A 20 9E 20 |X4,Y4,1.....: . |
000006D0: 35 30 31 38 35 2C 58 34 2C 59 34 2C 58 32 2C 59 |50185,X4,Y4,X2,Y|
000006E0: 32 2C 31 00 EC 0E 8E 03 3A 82 20 49 00 F4 0E 98 |2,1.....:. I....|
000006F0: 03 82 20 54 00 0C 0F E8 03 A1 20 41 24 3A 8B 20 |.. T...... A$:. |
00000700: 41 24 B2 22 22 20 89 20 31 30 30 30 00 36 0F F2 |A$."" . 1000.6..|
00000710: 03 9E 20 35 30 31 37 39 2C 30 3A 8B 20 41 24 B3 |.. 50179,0:. A$.|
00000720: B1 22 53 22 20 A7 20 89 20 38 30 3A 8F 20 4E 45 |."S" . . 80:. NE|
00000730: 55 53 54 41 52 54 00 3C 0F 10 04 3A 00 42 0F 1A |USTART.<...:.B..|
00000740: 04 3A 00 64 0F 24 04 8F 20 2A 2A 2A 2A 2A 2A 2A |.:.d.$.. *******|
00000750: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000760: 2A 2A 2A 2A 00 86 0F 2E 04 8F 20 2A 20 20 20 27 |****...... * '|
00000770: 47 52 41 46 49 4B 20 53 50 45 49 43 48 45 52 4E |GRAFIK SPEICHERN|
00000780: 27 20 20 20 20 2A 00 A8 0F 38 04 8F 20 2A 2A 2A |' *...8.. ***|
00000790: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000007A0: 2A 2A 2A 2A 2A 2A 2A 2A 00 AE 0F 42 04 3A 00 C7 |********...B.:..|
000007B0: 0F 4C 04 85 20 22 11 47 52 41 46 49 4B 2D 4E 41 |.L.. ".GRAFIK-NA|
000007C0: 4D 45 20 22 3B 4E 24 00 EF 0F 56 04 9F 20 32 2C |ME ";N$...V.. 2,|
000007D0: 38 2C 32 2C 22 50 49 2E 22 AA 4E 24 AA 22 2C 50 |8,2,"PI.".N$.",P|
000007E0: 2C 57 22 3A 9E 20 35 30 31 39 31 3A A0 20 32 00 |,W":. 50191:. 2.|
000007F0: 03 10 60 04 89 20 38 30 3A 8F 20 4E 45 55 53 54 |..`.. 80:. NEUST|
00000800: 41 52 54 00 00 00 |ART... |
..$.... ****************************.G..
.. * FRAKTALE BERGE *.J.... *
1987 BY STEFAN VILSMEIER *...(.. *******
*********************...2.:...<.. A.0 .
A.1:. "FRACTAL.OBJ",8,1.I.F.. H%(128,128
)...P.. 1,8,15,"U9": 1: . DIESE ZEEILE
KANN BEI PROBLEMEN MIT DEM.2.Z.. FLOPPYS
PEEDER WEGGELASSEN WERDEN!.H.D..53280,0:
.53281,0.Y.N.. ".GRAD ";G.{.X.. ********
*** VARIABLEN *****.....W.128:D..5:H.128
:U.180:R.10:GE.2.25:N.0.I.H.. *********
ANFANGSWERTE ****...R.. (KOENNEN VARIIER
T WERDEN).....H%(0,0).0.....H%(128,0).0.
....H%(0,128).0.&...H%(64,0).0.5...H%(0,
64).0.E...H%(64,64).0.G.,.. ********* GR
AFIK EIN ******...6..50176,14,0:.50179,1
:.50194...^.:...H.:...R.. **************
**************.Y.|.. * BERGE BERECHN
EN *...... ************************
****.....:...... M.1 . G.#...:BR.W.5:W2.
W.2.8...:. T.0 . 127 . W.P...: . I.0 . 1
27.T . W.O.B.: B.(H%(I,T).H%(I.W,T)).2.
..L.: H%(I.W2,T).B.(.(1).D).BR...V.:
B.(H%(T,I).H%(T,I.W)).2.P...: H%(T,I.W
2).B.(.(1).D).BR.....: B.(H%(128.T.I,I)
.H%(128.T.I.W,I.W)).2.'...: H%(128.T.I
.W2,I.W2).B.(.(1).D).BR.1...: . I.:...:.
T.D...W.W.2.L.... M.R...:.X...:.{.... *
***************************...... *
BERGE ZEICHNEN *.A.... ***********
*****************.G...:...F.. T.0 . 127
. W...P.:A.T.2:B.A.W:C.(T.W).2:F.C.W...Z
.:YA.(T.W).U.H.....:YB.T.U.H.3...:. I.0
. 127.T . W.D...: II.127.T.W.E...: H1.H%
(I,T).5:. H1.N . H1.N.....: H2.H%(I,T.W)
.5:. H2.N . H2.N.....: H3.H%(I.W,T).5:.
H3.N . H3.N.P. .: H4.H%(I.W,T.W).5:. H4.
N . H4.N...*.: X1.(I.A).GE.R:Y1.YB.H1...
4.: X2.(I.C).GE.R:Y2.YA.H2.'.>.: X3.(I.B
).GE.R:Y3.YB.H3.D.H.: X4.(I.F).GE.R:Y4.Y
A.H4.`.R.: . 50185,X1,Y1,X3,Y3,1.|.\.: .
50185,X2,Y2,X1,Y1,1...F.: . 50185,X2,Y2
,X3,Y3,1...P.: . I.II . 910.G.Z.: . 5018
5,X3,Y3,X4,Y4,1.....: . 50185,X4,Y4,X2,Y
2,1.....:. I...... T...... A$:. A$."" .
1000.6.... 50179,0:. A$.."S" . . 80:. NE
USTART.<...:.B...:.D.$.. ***************
************...... * 'GRAFIK SPEICHERN
' *...8.. ***************************
...B.:.G.L.. ".GRAFIK-NAME ";N$...V.. 2,
8,2,"PI.".N$.",P,W":. 50191: 2...`.. 80
:. NEUSTART...
> CLICK IMAGE PREVIEW FOR FULL MODAL