64'er/64ER_CD.iso/sh5x/sh55b.d64/sprite-demo

Commodore BASIC | 1995-03-30 | 1KB | 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