home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
91xx
/
9107a.d64
/
vogel
(
.txt
)
< prev
Wrap
Commodore BASIC
|
1995-03-30
|
921b
|
24 lines
10 V=53248:REM BASISADRESSE DES VIC $D000
20 POKEV+28,1:POKEV+37,2:POKEV+38,3
30 POKE V,255: REM X-KOORDINATE=255
40 POKE V+1,100: REM Y-KOORDINATE=100
50 FORI=8192 TO 8384:READA:POKEI,A:NEXT
60 A=128
70 POKE2040,128:REM BLOCK128 ERSTE SEQUENZ
80 POKE V+21,1:REM SPRITE 0 EINSCHALTEN
90 FORI=0 TO 255
100 A=A+1:IFA=131THENA=128
110 FORP=0TO100:NEXT:REM PAUSE
120 POKE2040,A:POKEV,I
130 NEXT
140 S=1-S:POKEV+16,S:REM LINKE & RECHTE SEITE WECHSELN
150 GOTO90
32000 DATA0,0,1,80,0,20,100,0,100,29,1,224,11,71,144,6,223,128,2,222,128,1,158
32001 DATA64,5,105,64,19,234,144,95,123,224,21,31,100,0,5,20,0,0,4,0,0,0,0,0
32002 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10,0,0,0,0,0,0,0,0,0,5,0,85,26,65,164
32003 DATA102,198,144,81,158,64,5,105,64,19,234,144,95,123,228,21,31,105,0,5
32004 DATA1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10,0,0,0,0
32005 DATA0,0,0,0,0,0,0,0,0,5,0,9,158,64,37,105,64,19,234,144,95,119,228,5,25
32006 DATA169,16,6,96,0,0,16,0,0,4,0,0,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
32007 DATA0,0,0,10,0