This code tests sprite render bug

spr_bug.bas

10 COLOR 15,0,0:SCREEN 2,2,0
15 SPRITE$(0)=STRING$(32,&HAA):Y%=15:X%=192
20 PUT SPRITE 0,(128,95),15,0
25 VDP(4)=0 ' Try with 1 or 2 too!
30 PUT SPRITE 8,(X%,Y%),7,0
35 J%=STICK(0)
40 IF (PEEK(&HF3E7) AND 32) THEN COLOR ,,8 ELSE COLOR ,,0
45 Y%=Y%-(J%=5)+(J%=1)
50 X%=X%-(J%=3)+(J%=7)
55 GOTO 30