BERGE
FILE INFORMATION
FILENAME(S): BERGE
FILE TYPE(S): SEQ
FILE SIZE: 2.1K
FIRST SEEN: 2025-11-02 17:01:56
APPEARS ON: 1 disk(s)
FILE HASH
f31eb6dfa51cfc34fdea8cd2fd089cb19b8f0b0aadee52d5bb1a490add5acaeb
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COMAL C64 PROG | BERGE | SEQ | Treasure Chest - Spook | 22 | 17 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 30 30 30 35 20 D0 D2 CF C3 20 42 49 4C 44 27 4D |0005 .... BILD'M| 00000010: 49 54 27 4D 4F 4E 44 20 C3 CC CF D3 C5 C4 0D 30 |IT'MOND .......0| 00000020: 30 31 30 20 20 20 2F 2F 20 20 20 20 20 20 20 C2 |010 // .| 00000030: 49 4C 44 0D 30 30 32 30 20 20 20 0D 30 30 33 30 |ILD.0020 .0030| 00000040: 20 20 20 D5 D3 C5 20 47 52 41 50 48 49 43 53 20 | ... GRAPHICS | 00000050: 2F 2F 20 C7 52 41 46 49 4B 50 41 4B 45 54 20 C5 |// .RAFIKPAKET .| 00000060: C9 CE 0D 30 30 34 30 20 20 20 C4 C9 CD 20 54 41 |...0040 ... TA| 00000070: 53 54 45 24 20 CF C6 20 31 20 2F 2F 20 D3 54 52 |STE$ .. 1 // .TR| 00000080: 49 4E 47 56 41 52 49 41 42 4C 45 20 44 45 46 49 |INGVARIABLE DEFI| 00000090: 4E 49 45 52 45 4E 20 28 CC 41 45 4E 47 45 3A 20 |NIEREN (.AENGE: | 000000A0: 31 20 DA 45 49 43 48 45 4E 29 0D 30 30 35 30 20 |1 .EICHEN).0050 | 000000B0: 20 20 47 52 41 50 48 49 43 53 43 52 45 45 4E 28 | GRAPHICSCREEN(| 000000C0: 30 29 20 2F 2F 20 C8 49 D2 45 53 20 45 49 4E 0D |0) // .I.ES EIN.| 000000D0: 30 30 35 35 20 20 20 43 4C 45 41 52 0D 30 30 36 |0055 CLEAR.006| 000000E0: 30 20 20 20 50 45 4E 43 4F 4C 4F 52 28 31 34 29 |0 PENCOLOR(14)| 000000F0: 20 2F 2F 20 D3 43 48 52 49 46 54 46 41 52 42 45 | // .CHRIFTFARBE| 00000100: 20 48 45 4C 4C 42 4C 41 55 0D 30 30 37 30 20 20 | HELLBLAU.0070 | 00000110: 20 54 45 58 54 53 43 52 45 45 4E 20 2F 2F 20 D4 | TEXTSCREEN // .| 00000120: 45 58 54 20 45 49 4E 53 43 48 41 4C 54 45 4E 0D |EXT EINSCHALTEN.| 00000130: 30 30 38 30 20 20 20 D0 C1 C7 C5 20 2F 2F 20 C2 |0080 .... // .| 00000140: 49 4C 44 53 43 48 49 52 4D 20 4C 4F 45 53 43 48 |ILDSCHIRM LOESCH| 00000150: 45 4E 0D 30 30 39 30 20 20 20 D0 D2 C9 CE D4 20 |EN.0090 ..... | 00000160: 22 D7 4F 4C 4C 45 4E 20 D3 49 45 20 42 45 49 4D |".OLLEN .IE BEIM| 00000170: 20 C5 4E 54 53 54 45 48 45 4E 20 44 45 52 20 C7 | .NTSTEHEN DER .| 00000180: 52 41 46 49 4B 20 20 20 20 5A 55 53 45 48 45 4E |RAFIK ZUSEHEN| 00000190: 20 28 4A 2F 4E 29 20 3F 20 4A 22 0D 30 31 30 30 | (J/N) ? J".0100| 000001A0: 20 20 20 D0 D2 C9 CE D4 20 C1 D4 20 32 2C 31 37 | ..... .. 2,17| 000001B0: 3A 20 22 22 2C 0D 30 31 31 30 20 20 20 C9 CE D0 |: "",.0110 ...| 000001C0: D5 D4 20 22 22 3A 20 54 41 53 54 45 24 0D 30 31 |.. "": TASTE$.01| 000001D0: 32 30 20 20 20 C9 C6 20 54 41 53 54 45 24 3D 22 |20 .. TASTE$="| 000001E0: 4A 22 20 D4 C8 C5 CE 20 47 52 41 50 48 49 43 53 |J" .... GRAPHICS| 000001F0: 43 52 45 45 4E 28 30 29 0D 30 31 33 30 20 20 20 |CREEN(0).0130 | 00000200: 0D 30 31 34 30 20 20 20 42 41 43 4B 47 52 4F 55 |.0140 BACKGROU| 00000210: 4E 44 28 30 29 3B 20 42 4F 52 44 45 52 28 30 29 |ND(0); BORDER(0)| 00000220: 20 2F 2F 20 C8 49 4E 54 45 52 47 52 55 4E 44 20 | // .INTERGRUND | 00000230: 53 43 48 57 41 52 5A 0D 30 31 35 30 20 20 20 53 |SCHWARZ.0150 S| 00000240: 45 4E 4B 52 45 43 48 54 45 27 4C 49 4E 49 45 4E |ENKRECHTE'LINIEN| 00000250: 0D 30 31 36 30 20 20 20 57 41 41 47 45 52 45 43 |.0160 WAAGEREC| 00000260: 48 54 45 27 4C 49 4E 49 45 4E 0D 30 31 37 30 20 |HTE'LINIEN.0170 | 00000270: 20 20 42 45 52 47 45 0D 30 31 38 30 20 20 20 48 | BERGE.0180 H| 00000280: 49 4D 4D 45 4C 0D 30 31 39 30 20 20 20 54 45 58 |IMMEL.0190 TEX| 00000290: 54 53 54 59 4C 45 28 31 2C 31 2C 30 2C 30 29 0D |TSTYLE(1,1,0,0).| 000002A0: 30 32 30 30 20 20 20 50 4C 4F 54 54 45 58 54 28 |0200 PLOTTEXT(| 000002B0: 30 2C 30 2C 22 28 D4 41 53 54 45 20 44 52 55 45 |0,0,"(.ASTE DRUE| 000002C0: 43 4B 45 4E 29 22 29 0D 30 32 31 30 20 20 20 C9 |CKEN)").0210 .| 000002D0: C6 20 54 41 53 54 45 24 3C 3E 22 4A 22 20 D4 C8 |. TASTE$<>"J" ..| 000002E0: C5 CE 20 53 50 4C 49 54 53 43 52 45 45 4E 0D 30 |.. SPLITSCREEN.0| 000002F0: 32 32 30 20 20 20 D7 C8 C9 CC C5 20 CB C5 D9 24 |220 ..... ...$| 00000300: 3D C3 C8 D2 24 28 30 29 20 C4 CF 20 CE D5 CC CC |=...$(0) .. ....| 00000310: 20 2F 2F 20 57 41 52 54 45 4E 20 41 55 46 20 D4 | // WARTEN AUF .| 00000320: 41 53 54 45 4E 44 52 55 43 4B 0D 30 32 33 30 20 |ASTENDRUCK.0230 | 00000330: 20 20 D0 C1 C7 C5 0D 30 32 35 30 20 20 20 0D 30 | .....0250 .0| 00000340: 32 36 30 20 20 20 0D 30 32 37 30 20 20 20 0D 30 |260 .0270 .0| 00000350: 32 38 30 20 20 20 D0 D2 CF C3 20 53 45 4E 4B 52 |280 .... SENKR| 00000360: 45 43 48 54 45 27 4C 49 4E 49 45 4E 20 0D 30 32 |ECHTE'LINIEN .02| 00000370: 39 30 20 20 20 20 20 C6 CF D2 20 57 49 4E 4B 45 |90 ... WINKE| 00000380: 4C 3A 3D 39 30 20 D4 CF 20 32 37 30 20 D3 D4 C5 |L:=90 .. 270 ...| 00000390: D0 20 32 30 20 C4 CF 0D 30 33 30 30 20 20 20 20 |. 20 ...0300 | 000003A0: 20 20 20 4D 4F 56 45 54 4F 28 31 36 30 2C 31 30 | MOVETO(160,10| 000003B0: 30 29 0D 30 33 31 30 20 20 20 20 20 20 20 53 45 |0).0310 SE| 000003C0: 54 48 45 41 44 49 4E 47 28 57 49 4E 4B 45 4C 29 |THEADING(WINKEL)| 000003D0: 0D 30 33 32 30 20 20 20 20 20 20 20 46 4F 52 57 |.0320 FORW| 000003E0: 41 52 44 28 32 30 30 29 0D 30 33 33 30 20 20 20 |ARD(200).0330 | 000003F0: 20 20 C5 CE C4 C6 CF D2 20 57 49 4E 4B 45 4C 0D | ...... WINKEL.| 00000400: 30 33 34 30 20 20 20 20 20 4D 4F 56 45 54 4F 28 |0340 MOVETO(| 00000410: 31 36 30 2C 31 30 30 29 20 2F 2F 20 C5 58 54 52 |160,100) // .XTR| 00000420: 41 2D CC 49 4E 49 45 20 4C 49 4E 4B 53 20 55 4E |A-.INIE LINKS UN| 00000430: 44 20 52 45 43 48 54 53 0D 30 33 35 30 20 20 20 |D RECHTS.0350 | 00000440: 20 20 53 45 54 48 45 41 44 49 4E 47 28 39 37 29 | SETHEADING(97)| 00000450: 0D 30 33 36 30 20 20 20 20 20 46 4F 52 57 41 52 |.0360 FORWAR| 00000460: 44 28 32 30 30 29 0D 30 33 37 30 20 20 20 20 20 |D(200).0370 | 00000470: 4D 4F 56 45 54 4F 28 31 36 30 2C 31 30 30 29 0D |MOVETO(160,100).| 00000480: 30 33 38 30 20 20 20 20 20 53 45 54 48 45 41 44 |0380 SETHEAD| 00000490: 49 4E 47 28 32 36 33 29 0D 30 33 39 30 20 20 20 |ING(263).0390 | 000004A0: 20 20 46 4F 52 57 41 52 44 28 32 30 30 29 0D 30 | FORWARD(200).0| 000004B0: 34 30 30 20 20 20 C5 CE C4 D0 D2 CF C3 20 53 45 |400 ....... SE| 000004C0: 4E 4B 52 45 43 48 54 45 27 4C 49 4E 49 45 4E 0D |NKRECHTE'LINIEN.| 000004D0: 30 34 31 30 20 20 20 0D 30 34 32 30 20 20 20 0D |0410 .0420 .| 000004E0: 30 34 33 30 20 20 20 D0 D2 CF C3 20 57 41 41 47 |0430 .... WAAG| 000004F0: 45 52 45 43 48 54 45 27 4C 49 4E 49 45 4E 20 0D |ERECHTE'LINIEN .| 00000500: 30 34 34 30 20 20 20 20 20 59 50 4F 53 3A 3D 31 |0440 YPOS:=1| 00000510: 30 30 0D 30 34 35 30 20 20 20 20 20 C6 CF D2 20 |00.0450 ... | 00000520: 41 42 53 54 41 4E 44 3A 3D 32 20 D4 CF 20 35 30 |ABSTAND:=2 .. 50| 00000530: 20 D3 D4 C5 D0 20 34 20 C4 CF 0D 30 34 36 30 20 | .... 4 ...0460 | 00000540: 20 20 20 20 20 20 4D 4F 56 45 54 4F 28 30 2C 59 | MOVETO(0,Y| 00000550: 50 4F 53 29 0D 30 34 37 30 20 20 20 20 20 20 20 |POS).0470 | 00000560: 44 52 41 57 54 4F 28 33 32 30 2C 59 50 4F 53 29 |DRAWTO(320,YPOS)| 00000570: 0D 30 34 38 30 20 20 20 20 20 20 20 59 50 4F 53 |.0480 YPOS| 00000580: 3A 3D 59 50 4F 53 2D 41 42 53 54 41 4E 44 0D 30 |:=YPOS-ABSTAND.0| 00000590: 34 39 30 20 20 20 20 20 C5 CE C4 C6 CF D2 20 41 |490 ...... A| 000005A0: 42 53 54 41 4E 44 0D 30 35 30 30 20 20 20 C5 CE |BSTAND.0500 ..| 000005B0: C4 D0 D2 CF C3 20 57 41 41 47 45 52 45 43 48 54 |..... WAAGERECHT| 000005C0: 45 27 4C 49 4E 49 45 4E 0D 30 35 31 30 20 20 20 |E'LINIEN.0510 | 000005D0: 0D 30 35 32 30 20 20 20 0D 30 35 33 30 20 20 20 |.0520 .0530 | 000005E0: D0 D2 CF C3 20 42 45 52 47 45 20 0D 30 35 34 30 |.... BERGE .0540| 000005F0: 20 20 20 20 20 4D 4F 56 45 54 4F 28 30 2C 31 30 | MOVETO(0,10| 00000600: 30 29 0D 30 35 35 30 20 20 20 20 20 50 45 4E 43 |0).0550 PENC| 00000610: 4F 4C 4F 52 28 39 29 20 2F 2F 20 42 52 41 55 4E |OLOR(9) // BRAUN| 00000620: 0D 30 35 36 30 20 20 20 20 20 C6 CF D2 20 58 3A |.0560 ... X:| 00000630: 3D 31 30 20 D4 CF 20 33 32 30 20 D3 D4 C5 D0 20 |=10 .. 320 .... | 00000640: 32 30 20 C4 CF 0D 30 35 37 30 20 20 20 20 20 20 |20 ...0570 | 00000650: 20 59 3A 3D D2 CE C4 28 31 30 35 2C 31 32 30 29 | Y:=...(105,120)| 00000660: 20 2F 2F 20 C8 4F 45 48 45 20 4E 41 43 48 20 DA | // .OEHE NACH .| 00000670: 55 46 41 4C 4C 0D 30 35 38 30 20 20 20 20 20 20 |UFALL.0580 | 00000680: 20 44 52 41 57 54 4F 28 58 2C 59 29 0D 30 35 39 | DRAWTO(X,Y).059| 00000690: 30 20 20 20 20 20 20 20 44 52 41 57 54 4F 28 58 |0 DRAWTO(X| 000006A0: 2B 31 30 2C 31 30 30 29 0D 30 36 30 30 20 20 20 |+10,100).0600 | 000006B0: 20 20 20 20 46 49 4C 4C 28 58 2C 31 30 32 29 0D | FILL(X,102).| 000006C0: 30 36 31 30 20 20 20 20 20 C5 CE C4 C6 CF D2 20 |0610 ...... | 000006D0: 58 0D 30 36 32 30 20 20 20 C5 CE C4 D0 D2 CF C3 |X.0620 .......| 000006E0: 20 42 45 52 47 45 0D 30 36 33 30 20 20 20 0D 30 | BERGE.0630 .0| 000006F0: 36 34 30 20 20 20 0D 30 36 35 30 20 20 20 D0 D2 |640 .0650 ..| 00000700: CF C3 20 48 49 4D 4D 45 4C 20 0D 30 36 36 30 20 |.. HIMMEL .0660 | 00000710: 20 20 20 20 50 45 4E 43 4F 4C 4F 52 28 37 29 20 | PENCOLOR(7) | 00000720: 2F 2F 20 47 45 4C 42 0D 30 36 37 30 20 20 20 20 |// GELB.0670 | 00000730: 20 C6 CF D2 20 49 3A 3D 31 20 D4 CF 20 31 30 30 | ... I:=1 .. 100| 00000740: 20 C4 CF 0D 30 36 38 30 20 20 20 20 20 20 20 50 | ...0680 P| 00000750: 4C 4F 54 28 D2 CE C4 28 30 2C 33 32 30 29 2C D2 |LOT(...(0,320),.| 00000760: CE C4 28 31 32 38 2C 32 30 30 29 29 20 2F 2F 20 |..(128,200)) // | 00000770: D3 54 45 52 4E 45 20 4E 41 43 48 20 DA 55 46 41 |.TERNE NACH .UFA| 00000780: 4C 4C 0D 30 36 39 30 20 20 20 20 20 C5 CE C4 C6 |LL.0690 ....| 00000790: CF D2 20 49 0D 30 37 30 30 20 20 20 20 20 43 49 |.. I.0700 CI| 000007A0: 52 43 4C 45 28 32 36 30 2C 31 37 30 2C 31 35 29 |RCLE(260,170,15)| 000007B0: 0D 30 37 31 30 20 20 20 20 20 46 49 4C 4C 28 32 |.0710 FILL(2| 000007C0: 36 30 2C 31 37 30 29 0D 30 37 32 30 20 20 20 20 |60,170).0720 | 000007D0: 20 50 45 4E 43 4F 4C 4F 52 28 30 29 20 2F 2F 20 | PENCOLOR(0) // | 000007E0: 53 43 48 57 41 52 5A 20 28 44 41 4D 49 54 20 4E |SCHWARZ (DAMIT N| 000007F0: 55 52 20 CD 4F 4E 44 53 49 43 48 45 4C 2C 20 4E |UR .ONDSICHEL, N| 00000800: 49 43 48 54 20 D6 4F 4C 4C 4D 4F 4E 44 29 0D 30 |ICHT .OLLMOND).0| 00000810: 37 33 30 20 20 20 20 20 43 49 52 43 4C 45 28 32 |730 CIRCLE(2| 00000820: 34 36 2C 31 37 37 2C 31 37 29 0D 30 37 34 30 20 |46,177,17).0740 | 00000830: 20 20 20 20 46 49 4C 4C 28 32 35 35 2C 31 37 30 | FILL(255,170| 00000840: 29 0D 30 37 35 30 20 20 20 20 20 50 45 4E 43 4F |).0750 PENCO| 00000850: 4C 4F 52 28 33 29 20 2F 2F 20 54 55 45 52 4B 49 |LOR(3) // TUERKI| 00000860: 53 0D 30 37 36 30 20 20 20 C5 CE C4 D0 D2 CF C3 |S.0760 .......| 00000870: 20 48 49 4D 4D 45 4C 0D 39 39 39 39 20 C5 CE C4 | HIMMEL.9999 ...| 00000880: D0 D2 CF C3 20 42 49 4C 44 27 4D 49 54 27 4D 4F |.... BILD'MIT'MO| 00000890: 4E 44 0D |ND. |
0005 PROC BILD'MIT'MOND CLOSED.0010 //
BILD.0020 .0030 USE GRAPHICS
// GRAFIKPAKET EIN.0040 DIM TASTE$ OF
1 // STRINGVARIABLE DEFINIEREN (LAENGE:
1 ZEICHEN).0050 GRAPHICSCREEN(0) // HI
RES EIN.0055 CLEAR.0060 PENCOLOR(14)
// SCHRIFTFARBE HELLBLAU.0070 TEXTSCR
EEN // TEXT EINSCHALTEN.0080 PAGE // B
ILDSCHIRM LOESCHEN.0090 PRINT "WOLLEN
SIE BEIM ENTSTEHEN DER GRAFIK ZUSEHEN
(J/N) ? J".0100 PRINT AT 2,17: "",.01
10 INPUT "": TASTE$.0120 IF TASTE$="
J" THEN GRAPHICSCREEN(0).0130 .0140
BACKGROUND(0); BORDER(0) // HINTERGRUND
SCHWARZ.0150 SENKRECHTE'LINIEN.0160
WAAGERECHTE'LINIEN.0170 BERGE.0180 H
IMMEL.0190 TEXTSTYLE(1,1,0,0).0200 P
LOTTEXT(0,0,"(TASTE DRUECKEN)").0210 I
F TASTE$<>"J" THEN SPLITSCREEN.0220 WH
ILE KEY$=CHR$(0) DO NULL // WARTEN AUF T
ASTENDRUCK.0230 PAGE.0250 .0260 .0
270 .0280 PROC SENKRECHTE'LINIEN .02
90 FOR WINKEL:=90 TO 270 STEP 20 DO.
0300 MOVETO(160,100).0310 SE
THEADING(WINKEL).0320 FORWARD(200)
.0330 ENDFOR WINKEL.0340 MOVETO(
160,100) // EXTRA-LINIE LINKS UND RECHTS
.0350 SETHEADING(97).0360 FORWAR
D(200).0370 MOVETO(160,100).0380
SETHEADING(263).0390 FORWARD(200).0
400 ENDPROC SENKRECHTE'LINIEN.0410 .
0420 .0430 PROC WAAGERECHTE'LINIEN .
0440 YPOS:=100.0450 FOR ABSTAND:
=2 TO 50 STEP 4 DO.0460 MOVETO(0,Y
POS).0470 DRAWTO(320,YPOS).0480
YPOS:=YPOS-ABSTAND.0490 ENDFOR A
BSTAND.0500 ENDPROC WAAGERECHTE'LINIEN
.0510 .0520 .0530 PROC BERGE .0540
MOVETO(0,100).0550 PENCOLOR(9)
// BRAUN.0560 FOR X:=10 TO 320 STEP
20 DO.0570 Y:=RND(105,120) // HOEH
E NACH ZUFALL.0580 DRAWTO(X,Y).059
0 DRAWTO(X+10,100).0600 FILL
(X,102).0610 ENDFOR X.0620 ENDPROC
BERGE.0630 .0640 .0650 PROC HIMME
L .0660 PENCOLOR(7) // GELB.0670
FOR I:=1 TO 100 DO.0680 PLOT(RND(
0,320),RND(128,200)) // STERNE NACH ZUFA
LL.0690 ENDFOR I.0700 CIRCLE(260
,170,15).0710 FILL(260,170).0720
PENCOLOR(0) // SCHWARZ (DAMIT NUR MONDS
ICHEL, NICHT VOLLMOND).0730 CIRCLE(2
46,177,17).0740 FILL(255,170).0750
PENCOLOR(3) // TUERKIS.0760 ENDPROC
HIMMEL.9999 ENDPROC BILD'MIT'MOND.
> CLICK IMAGE PREVIEW FOR FULL MODAL