10 REM SPRITEDEMONSTRATION
20 DATA 0,255,0
30 DATA 1,227,192
40 DATA 3,255,224
50 DATA 7,255,240
60 DATA 15,255,248
70 DATA 31,255,252
80 DATA 63,255,254
90 DATA 124,111,254
100 DATA 251,223,255
110 DATA 251,158,107
120 DATA 248,133,167
130 DATA 251,108,111
140 DATA 251,109,239
150 DATA 252,238,111
160 DATA 127,255,254
170 DATA 63,255,252
180 DATA 31,255,248
190 DATA 15,255,240
200 DATA 7,255,224
210 DATA 3,255,192
220 DATA 1,255,0
225 RESTORE
230 AD=11*64:REM BLOCKADRESSE FUER BLOCK 11
240 FOR Q=AD TO AD+62
250 READ SW: POKE Q,SW
260 NEXT Q
270 REM SPRITE ANSCHALTEN
280 VIC=53248
290 POKE2040,11:REM SPRITEZEIGER AUF BLOCK 11
300 POKE VIC+39,2:REM SPRITEFARBE 0 AUF ROT
310 POKE VIC+21,1:REM SPRITE 0 EIN
320 REM SPRITEBEWEGUNG
330 FOR X=20 TO 255
340 Y= 199-(ABS(150*SIN(X/20)))
350 POKEVIC,X:POKEVIC+1,Y
360 NEXT X:GOTO330