64'er Special 55/64er_Magazin_Sonderheft_55_19xx_Markt__Technik_de_Side_B.d64/sprite-demo

Commodore BASIC | 1990-01-01 | 1.4 KB | 69 lines

1 rem=======================c64
2 rem= demonstrationsprogramm =
3 rem=       sprite-demo      =
4 rem=           zu           =
5 rem=     sprite-control     =
6 rem==========================
7 rem=   von ralf trabhardt   =
8 rem==========================
10 :
11 :
12 :
13 rem *abgespeicherte sprites laden*
15 a=a+1:ifa=1thenload"demofile",8,1
16 print"[147]bitte etwas geduld ..."
17 :
18 bl=200:rem*sprite-block 200*
19 :
20 sp=20 :rem*anzahl der sprites*
21 :
22 ad=49152:rem*anfangsadresse 1.sprite*
23 v=53248 :rem*adresse des vic-chip*
24 :
25 rem* sprites aus dem speicher     *
26 rem* (ab 49152) in die sprite-    *
27 rem* blocks ab block 200 schreiben*
30 fori=0to(sp*64)
40 poke(bl*64)+i,peek(49152+i)
50 nexti
60 :
70 print"[147]":rem* bildschirm loeschen *
80 :
90 poke53281,14: rem*hintergrundfarbe*
95 :
96 pokev+37,0: rem*nebenfarbe 1*
97 :
98 pokev+38,10:rem*nebenfarbe 2*
99 :
100 pokev+39,2 :rem*farbe sprite1*
101 :
102 pokev+40,9: rem*farbe sprite2*
103 :
104 pokev+41,2 :rem*farbe sprite3*
105 :
106 pokev+42,9: rem*farbe sprite4*
107 :
109 pokev+28,255:rem*multicolor an*
110 :
111 pokev+23,3  :rem*vergroessern y*
112 :
113 pokev+29,3  :rem*vergroessern x*
114 :
115 pokev+21,255:rem* sprites an *
116 :
117 pokev,100:pokev+1,129:rem   sprite1
118 :
119 pokev+2,100:pokev+3,87:rem  sprite2
120 :
121 pokev+4,200:pokev+5,150:rem sprite3
122 :
123 pokev+6,200:pokev+7,129:rem sprite4
124 :
125 fori=1to200:nexti:rem*verzoegerung*
126 :
130 poke2040,bl:poke2041,bl+10
135 poke2042,bl:poke2043,bl+10
140 bl=bl+1:rem*naechster sprite-block*
150 ifbl>209thenbl=200
160 goto120