10 SCREEN 2,1
20 SPRITE$(0)="0123456789ABCDEF"
30 PUT SPRITE 0,(50,50),,0
40 FOR I=1 TO 1000:NEXT
50 VDP(1)=VDP(1) XOR 1 'Эта команда переключает масштаб спрайтов без очистки шаблонов
60 GOTO 60