|
|||||
|
Dangers |
Description Deutsch (German)
_____ |
||
**** COMMODORE 64 BASIC V2 **** 64K RAM SYSTEM 38911 BASIC BYTES FREE READY. LIST 100 PRINT CHR$(147):POKE53269,0 110 FOR I=1 TO 500:POKE53280,6:::::::::P OKE53280,14:::::::::NEXT I 120 POKE53280,14:POKE53281,6 130 FOR I=53248 TO 53263:POKE I,0:NEXT I 140 FOR SA=12800 TO 13248 STEP 64:GOSUB5 70:NEXT SA 150 FOR I=0 TO 7:POKE 2040+I,200+I:NEXT I 160 FOR I=0 TO 7:POKE 53287+I,1:NEXT I 170 POKE 53269,255 180 POKE 53277,0:POKE 53271,0 190 FOR I=0 TO 23 200 POKE 53248,0:POKE 53249,0 210 POKE 53250,I:POKE 53251,125 220 NEXT I 230 FOR I=0 TO 80 240 POKE 53248,I:POKE 53249,125 250 POKE 53250,I+24:POKE 53251,125 260 NEXT I 270 FOR K=0 TO 125 STEP 3 280 FOR J=53252 TO 53263 290 P1=INT(RND(1)*(255-2*K))+K 300 P2=INT(RND(1)*(255-2*K))+K 310 POKE J,P1:POKE J,P2 320 NEXT J 330 NEXT K 340 POKE 53256,129:POKE 53257,125 350 POKE 53254,136:POKE 53255,125 360 POKE 53252,143:POKE 53253,125 370 POKE 53262,129:POKE 53263,139 380 POKE 53260,136:POKE 53261,139 390 POKE 53258,143:POKE 53259,139 400 FOR I=1 TO 200 410 FOR J=2 TO 7 420 FA=INT(RND(1)*16) 430 POKE 53287+J,FA 440 NEXT J 450 NEXT I 460 FOR I=0 TO 7:POKE 53287+I,1:NEXT I 470 PRINT CHR$(86)CHR$(73)CHR$(69)CHR$(7 6)CHR$(32)SPC(0) 480 PRINT CHR$(83)CHR$(80)CHR$(65)CHR$(8 3)CHR$(83)CHR$(32)SPC(0) 490 PRINT CHR$(85)CHR$(78)CHR$(68)CHR$(3 2)SPC(0) 500 PRINT CHR$(69)CHR$(82)CHR$(70)CHR$(7 9)CHR$(76)CHR$(71)CHR$(32) 510 PRINT CHR$(66)CHR$(69)CHR$(73)CHR$(7 7)CHR$(32)SPC(0) 520 PRINT CHR$(83)CHR$(85)CHR$(67)CHR$(7 2)CHR$(69)CHR$(78)CHR$(32)SPC(0) 530 PRINT CHR$(73)CHR$(78)CHR$(32)CHR$(6 8)CHR$(69)CHR$(82)CHR$(32)SPC(0) 540 PRINT CHR$(78)CHR$(65)CHR$(84)CHR$(8 5)CHR$(82)CHR$(33) 550 POKE 53269,0 560 END 570 FOR I=SA TO SA+62 580 READ BY 590 POKE I,BY 600 NEXT I 610 RETURN 620 DATA 136,3,226,200,2,6,168,2,2,168,3 ,194,168,0,34,152,2,34,136,1,194 630 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ,0,0,0,0,0,248,225,28 640 DATA 129,19,34,129,17,2,241,17,12,12 9,17,16,129,17,32,248,225,62 650 DATA 96,124,48,144,64,80,144,64,144, 96,120,248,0,4,16,0,68,19,0,56,19 660 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ,0,0,0,0,0 670 DATA 96,56,248,144,68,8,144,4,16,96, 24,16,0,4,32,0,68,35,0,56,35 680 DATA 112,0,0,136,0,0,8,0,0,48,0,0,8, 0,0,136,0,0,112,0,0 690 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ,0,0,0,0,0 700 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ,0,0,0,0,0 710 DATA 112,0,0,136,0,0,8,0,0,48,0,0,8, 0,0,136,0,0,112,0,0 720 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ,0,0,0,0,0 730 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ,0,0,0,0,0 740 DATA 48,0,0,80,0,0,144,0,0,248,0,0,1 6,0,0,16,0,0,16,0,0 750 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ,0,0,0,0,0 760 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ,0,0,0,0,0 770 DATA 112,0,0,136,0,0,8,0,0,48,0,0,64 ,0,0,128,0,0,248,0,0 780 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ,0,0,0,0,0 790 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ,0,0,0,0,0 800 DATA 16,0,0,48,0,0,16,0,0,16,0,0,16, 0,0,16,0,0,16,0,0 810 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ,0,0,0,0,0 820 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ,0,0,0,0,0 830 DATA 248,0,0,8,0,0,16,0,0,16,0,0,32, 0,0,32,0,0,32,0,0 840 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ,0,0,0,0,0 850 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ,0,0,0,0,0 READY. |
||
_____ |
Utilities
This geocache is probably placed within the following protected areas (Info): Landschaftsschutzgebiet Wittenberger Vorfläming und Zahnabachtal (Info), Naturpark Fläming/Sachsen-Anhalt (Info)
Search geocaches nearby:
all -
searchable -
same type
Download as file:
GPX -
LOC -
KML -
OV2 -
OVL -
TXT -
QR-Code
When downloading this file, you accept our terms of use and Data license.
Log entries for C64 BASIC V2
0x
0x
0x