home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 63
/
64er_Magazin_Sonderheft_63_19xx_Markt__Technik_de_Side_A.d64
/
demo1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
34 lines
10 v=53248:pokev+30,0:pokev+32,0:pokev+33,0:pokev+23,0:pokev+29,0
20 poke56576,1:poke648,132:poke56,128:printchr$(147)chr$(153)
30 forsp=128to130
40 forby=0to41:readw:poke32768+sp*64+by,w:nextby
50 forb0=42to62:poke32768+sp*64+b0,0:nextb0,sp
60 forsp=131to134
70 forby=0to29:readw:poke32768+sp*64+by,w:nextby
80 forb0=30to62:poke32768+sp*64+b0,0:nextb0,sp
90 pokev+21,3:pokev+39,6:pokev+40,12:pokev+3,60
100 b1=128:b2=131:ri=1:y1=250
110 forxk=0to344
120 poke34808,b1:poke34809,b2
130 pokev,xkand255:pokev+2,xkand255:pokev+1,y1:pokev+16,int(xk/256)*3
140 ko=peek(v+30):ifko>0thenpokev+30,0:y1=250
150 pokev+32,ko
160 b1=128+abs((xkand3)-1):b2=b2+1:ifb2>134thenb2=131
170 y1=y1-1
180 nextxk
190 goto100
200 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,240,0,193,248,192,166,4,192,88,18
210 data0,88,2,0,166,4,0,193,248,0,0,32,0,0,64,0 : rem fisch1
220 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,112,0,240,80,65,248,112,102,4,0,88,18
230 data0,88,3,0,102,4,0,65,248,0,0,32,0,0,32,0 : rem fisch2
240 data0,0,48,0,0,72,0,0,72,0,0,48,0,0,0,0,240,0,193,248,192,166,4,192,88
250 data18,0,88,2,0,166,4,0,193,248,0,0,32,0,0,16,0 : rem fisch3
260 data8,0,0,8,0,0,120,0,0,72,0,0,75,222,238,74,82,170,255,255,255,128,0,2
270 data153,153,157,102,102,102 : rem frachter1
280 data28,0,0,8,0,0,120,0,0,72,0,0,75,222,238,74,82,170,255,255,255,128,0,2
290 data179,51,55,204,204,204 : rem frachter2
300 data62,0,0,8,0,0,120,0,0,72,0,0,75,222,238,74,82,170,255,255,255,128,0,2
310 data230,102,102,153,153,153 : rem frachter3
320 data28,0,0,8,0,0,120,0,0,72,0,0,75,222,238,74,82,170,255,255,255,128,0,2
330 data204,204,204,51,51,51 : rem frachter4