1 REM POKE53265,11:SAVE"",8:POKE53265,27
10 REM ***** SPRITE-DEMO *****
15 PRINT""
20 V=13*4096 : L=2040 : D=832 : REM POINTERS TO VIC AND SPRITE DATA
30 FOR I=0 TO 62 : READ J : POKE I+D,J : NEXT : REM READ SPRITE DATA
40 POKE L,13 : POKE L+1,13 : REM DATA BASE OF SPRITES 0 AND 1
50 POKE V+21,3 : REM ENABLE SPRITES 0 AND 1
60 POKE V+29,2 : REM EXPAND SPRITE 1 IN X-DIRECTION
70 POKE V+39,1 : POKE V+40,5 : REM SPRITE 0 WHITE AND SPRITE 1 GREEN
80 POKE V+32,7 : POKE V+33,0 : REM BORDER YELLOW AND SCREEN BLACK
90 POKE V+3,100 : REM SET Y-COORDINATE OF SPRITE 1
100 FOR X=1 TO 255
110 POKE V,X : POKE V+1,X : POKE V+2,X : REM MOVE SPRITES
120 NEXT X : GOTO 100
130 REM
140 REM ***** SPRITE DATA *****
150 REM
160 DATA 0,0,0, 0,24,0, 0,36,0, 240,66,15, 92,102,58, 39,90,228, 17,195,136
170 DATA 8,126,16, 4,0,32, 2,0,64, 1,24,128, 0,165,0, 0,66,0, 0,66,0, 0,66,0
180 DATA 0,66,0, 0,0,0, 0,0,0, 0,0,0, 0,0,0, 0,0,0
READY.
